|
2471
|
1 tylg set $01 Prgrm+Objct
|
|
|
2 atrv set $80+rev ReEnt+rev
|
|
|
3 rev set $00
|
|
|
4 edition set 5
|
|
|
5
|
|
|
6 psect testsync_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 sync
|
|
|
42 sync
|
|
|
43 sync
|
|
|
44 sync
|
|
|
45 sync
|
|
|
46 sync
|
|
|
47 sync
|
|
|
48 sync
|
|
|
49 sync
|
|
|
50 sync
|
|
|
51 sync
|
|
|
52 sync
|
|
|
53 sync
|
|
|
54 sync
|
|
|
55 sync
|
|
|
56 sync
|
|
|
57 sync
|
|
|
58 sync
|
|
|
59 sync
|
|
|
60 sync
|
|
|
61 sync
|
|
|
62 sync
|
|
|
63 sync
|
|
|
64 sync
|
|
|
65 sync
|
|
|
66 sync
|
|
|
67 sync
|
|
|
68 sync
|
|
|
69 sync
|
|
|
70 sync
|
|
|
71 sync
|
|
|
72 sync
|
|
|
73 sync
|
|
|
74 sync
|
|
|
75 sync
|
|
|
76 sync
|
|
|
77 sync
|
|
|
78 sync
|
|
|
79 sync
|
|
|
80 sync
|
|
|
81 sync
|
|
|
82 sync
|
|
|
83 sync
|
|
|
84 sync
|
|
|
85 sync
|
|
|
86 sync
|
|
|
87 sync
|
|
|
88 sync
|
|
|
89 sync
|
|
|
90 sync
|
|
|
91 sync
|
|
|
92 sync
|
|
|
93 sync
|
|
|
94 sync
|
|
|
95 sync
|
|
|
96 sync
|
|
|
97 sync
|
|
|
98 sync
|
|
|
99 sync
|
|
|
100 sync
|
|
|
101 sync
|
|
|
102 sync
|
|
|
103 sync
|
|
|
104 sync
|
|
|
105 sync
|
|
|
106 sync
|
|
|
107 sync
|
|
|
108 sync
|
|
|
109 sync
|
|
|
110 sync
|
|
|
111 sync
|
|
|
112 sync
|
|
|
113 sync
|
|
|
114 sync
|
|
|
115 sync
|
|
|
116 sync
|
|
|
117 sync
|
|
|
118 sync
|
|
|
119 sync
|
|
|
120 sync
|
|
|
121 sync
|
|
|
122 sync
|
|
|
123 sync
|
|
|
124 sync
|
|
|
125 sync
|
|
|
126 sync
|
|
|
127 sync
|
|
|
128 sync
|
|
|
129 sync
|
|
|
130 sync
|
|
|
131 sync
|
|
|
132 sync
|
|
|
133 sync
|
|
|
134 sync
|
|
|
135 sync
|
|
|
136 sync
|
|
|
137 sync
|
|
|
138 sync
|
|
|
139 sync
|
|
|
140 sync
|
|
|
141 sync
|
|
|
142 sync
|
|
|
143 sync
|
|
|
144 sync
|
|
|
145 sync
|
|
|
146 sync
|
|
|
147 sync
|
|
|
148 sync
|
|
|
149 sync
|
|
|
150 sync
|
|
|
151 sync
|
|
|
152 sync
|
|
|
153 sync
|
|
|
154 sync
|
|
|
155 sync
|
|
|
156 sync
|
|
|
157 sync
|
|
|
158 sync
|
|
|
159 sync
|
|
|
160 sync
|
|
|
161 bra top
|
|
|
162
|
|
|
163
|
|
|
164
|
|
|
165 endsect
|
