|
2427
|
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 |
