|
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 testtfr_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 tfr x,y
|
|
|
42 tfr x,y
|
|
|
43 tfr x,y
|
|
|
44 tfr x,y
|
|
|
45 tfr x,y
|
|
|
46 tfr x,y
|
|
|
47 tfr x,y
|
|
|
48 tfr x,y
|
|
|
49 tfr x,y
|
|
|
50 tfr x,y
|
|
|
51 tfr x,y
|
|
|
52 tfr x,y
|
|
|
53 tfr x,y
|
|
|
54 tfr x,y
|
|
|
55 tfr x,y
|
|
|
56 tfr x,y
|
|
|
57 tfr x,y
|
|
|
58 tfr x,y
|
|
|
59 tfr x,y
|
|
|
60 tfr x,y
|
|
|
61 tfr x,y
|
|
|
62 tfr x,y
|
|
|
63 tfr x,y
|
|
|
64 tfr x,y
|
|
|
65 tfr x,y
|
|
|
66 tfr x,y
|
|
|
67 tfr x,y
|
|
|
68 tfr x,y
|
|
|
69 tfr x,y
|
|
|
70 tfr x,y
|
|
|
71 tfr x,y
|
|
|
72 tfr x,y
|
|
|
73 tfr x,y
|
|
|
74 tfr x,y
|
|
|
75 tfr x,y
|
|
|
76 tfr x,y
|
|
|
77 tfr x,y
|
|
|
78 tfr x,y
|
|
|
79 tfr x,y
|
|
|
80 tfr x,y
|
|
|
81 tfr x,y
|
|
|
82 tfr x,y
|
|
|
83 tfr x,y
|
|
|
84 tfr x,y
|
|
|
85 tfr x,y
|
|
|
86 tfr x,y
|
|
|
87 tfr x,y
|
|
|
88 tfr x,y
|
|
|
89 tfr x,y
|
|
|
90 tfr x,y
|
|
|
91 tfr x,y
|
|
|
92 tfr x,y
|
|
|
93 tfr x,y
|
|
|
94 tfr x,y
|
|
|
95 tfr x,y
|
|
|
96 tfr x,y
|
|
|
97 tfr x,y
|
|
|
98 tfr x,y
|
|
|
99 tfr x,y
|
|
|
100 tfr x,y
|
|
|
101 tfr x,y
|
|
|
102 tfr x,y
|
|
|
103 tfr x,y
|
|
|
104 tfr x,y
|
|
|
105 tfr x,y
|
|
|
106 tfr x,y
|
|
|
107 tfr x,y
|
|
|
108 tfr x,y
|
|
|
109 tfr x,y
|
|
|
110 tfr x,y
|
|
|
111 tfr x,y
|
|
|
112 tfr x,y
|
|
|
113 tfr x,y
|
|
|
114 tfr x,y
|
|
|
115 tfr x,y
|
|
|
116 tfr x,y
|
|
|
117 tfr x,y
|
|
|
118 tfr x,y
|
|
|
119 tfr x,y
|
|
|
120 tfr x,y
|
|
|
121 tfr x,y
|
|
|
122 tfr x,y
|
|
|
123 tfr x,y
|
|
|
124 tfr x,y
|
|
|
125 tfr x,y
|
|
|
126 tfr x,y
|
|
|
127 tfr x,y
|
|
|
128 tfr x,y
|
|
|
129 tfr x,y
|
|
|
130 tfr x,y
|
|
|
131 tfr x,y
|
|
|
132 tfr x,y
|
|
|
133 tfr x,y
|
|
|
134 tfr x,y
|
|
|
135 tfr x,y
|
|
|
136 tfr x,y
|
|
|
137 tfr x,y
|
|
|
138 tfr x,y
|
|
|
139 tfr x,y
|
|
|
140 tfr x,y
|
|
|
141 lbra top
|
|
|
142
|
|
|
143
|
|
|
144
|
|
|
145 endsect |
