Mercurial > hg > Members > kono > nitros9-code

comparison 3rdparty/customboots/boisy/testtfr.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 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