Mercurial > hg > Members > kono > nitros9-code

comparison 3rdparty/customboots/boisy/testexg.a @ 2427:69b4e5d37906

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updates
author boisy
date Thu, 04 Feb 2010 15:18:04 +0000
parents
children
comparison
equal deleted inserted replaced
2426:5ade5dd9c3cb 2427:69b4e5d37906
1 tylg set $01 Prgrm+Objct
2 atrv set $80+rev ReEnt+rev
3 rev set $00
4 edition set 5
5
6 psect testexg_a,tylg,atrv,edition,200,start
7
8 vsect
9 reg1 rmb 2
10 reg2 rmb 2
11 endsect
12
13 * capture two parameters
14 start ldd #0000
15 std reg1,u
16 std reg2,u
17
18 * if no params, just go straight to multiplication
19 lda ,x
20 cmpa #C$CR
21 beq top
22
23 * get first number
24 lbsr DEC_BIN
25 std reg1,u
26 leax ,y
27 lbsr TO_NON_SP
28
29 * if no second number, go straight to multiplication
30 cmpb #C$CR
31 beq go
32 lbsr DEC_BIN
33 std reg2,u
34
35 ldx reg1,u
36 ldy reg2,u
37
38 go
39 orcc #IntMasks
40 top
41 exg x,y
42 exg x,y
43 exg x,y
44 exg x,y
45 exg x,y
46 exg x,y
47 exg x,y
48 exg x,y
49 exg x,y
50 exg x,y
51 exg x,y
52 exg x,y
53 exg x,y
54 exg x,y
55 exg x,y
56 exg x,y
57 exg x,y
58 exg x,y
59 exg x,y
60 exg x,y
61 exg x,y
62 exg x,y
63 exg x,y
64 exg x,y
65 exg x,y
66 exg x,y
67 exg x,y
68 exg x,y
69 exg x,y
70 exg x,y
71 exg x,y
72 exg x,y
73 exg x,y
74 exg x,y
75 exg x,y
76 exg x,y
77 exg x,y
78 exg x,y
79 exg x,y
80 exg x,y
81 exg x,y
82 exg x,y
83 exg x,y
84 exg x,y
85 exg x,y
86 exg x,y
87 exg x,y
88 exg x,y
89 exg x,y
90 exg x,y
91 exg x,y
92 exg x,y
93 exg x,y
94 exg x,y
95 exg x,y
96 exg x,y
97 exg x,y
98 exg x,y
99 exg x,y
100 exg x,y
101 exg x,y
102 exg x,y
103 exg x,y
104 exg x,y
105 exg x,y
106 exg x,y
107 exg x,y
108 exg x,y
109 exg x,y
110 exg x,y
111 exg x,y
112 exg x,y
113 exg x,y
114 exg x,y
115 exg x,y
116 exg x,y
117 exg x,y
118 exg x,y
119 exg x,y
120 exg x,y
121 exg x,y
122 exg x,y
123 exg x,y
124 exg x,y
125 exg x,y
126 exg x,y
127 exg x,y
128 exg x,y
129 exg x,y
130 exg x,y
131 exg x,y
132 exg x,y
133 exg x,y
134 exg x,y
135 exg x,y
136 exg x,y
137 exg x,y
138 exg x,y
139 exg x,y
140 exg x,y
141 lbra top
142
143
144
145 endsect