Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/packages/basic09/gfx-d64.asm @ 25:ad78331ace28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Prego; The basic09 interpreter.
author roug
date Sat, 06 Apr 2002 14:47:31 +0000
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
25
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
1 ********************************************************************
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
2 * progname - program module
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
3 *
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
4 * $Id$
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
5 *
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
7 * ------------------------------------------------------------------
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
8 * - Original Basic09 from Dragon Data distribution version
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
9 *
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
10 * $Log$
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
11 * Revision 1.1 2002/04/06 14:47:31 roug
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
12 * Prego; The basic09 interpreter.
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
13 *
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
14 *
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
15
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
16 nam GFX
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
17 ttl subroutine module
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
18
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
19 * Disassembled 02/04/06 16:39:17 by Disasm v1.6 (C) 1988 by RML
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
20
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
21 ifp1
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
22 use /dd/defs/os9defs
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
23 endc
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
24 tylg set Sbrtn+Objct
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
25 atrv set ReEnt+rev
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
26 rev set $01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
27 mod eom,name,tylg,atrv,start,size
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
28 u0000 rmb 0
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
29 size equ .
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
30 name equ *
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
31 fcs /GFX/
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
32 fcb $01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
33 L0011 fcb $01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
34 fcb $2B +
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
35 fcb $41 A
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
36 fcb $6C l
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
37 fcb $70 p
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
38 fcb $68 h
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
39 fcb $61 a
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
40 fcb $FF
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
41 fcb $01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
42 fcb $02
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
43 fcb $43 C
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
44 fcb $69 i
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
45 fcb $72 r
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
46 fcb $63 c
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
47 fcb $6C l
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
48 fcb $65 e
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
49 fcb $FF
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
50 fcb $00
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
51 fcb $C7 G
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
52 fcb $43 C
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
53 fcb $6C l
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
54 fcb $65 e
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
55 fcb $61 a
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
56 fcb $72 r
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
57 fcb $FF
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
58 fcb $00
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
59 fcb $AE .
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
60 fcb $43 C
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
61 fcb $6F o
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
62 fcb $6C l
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
63 fcb $6F o
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
64 fcb $72 r
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
65 fcb $FF
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
66 fcb $01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
67 fcb $8E
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
68 fcb $47 G
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
69 fcb $43 C
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
70 fcb $6F o
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
71 fcb $6C l
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
72 fcb $72 r
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
73 fcb $FF
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
74 fcb $01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
75 fcb $74 t
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
76 fcb $47 G
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
77 fcb $4C L
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
78 fcb $6F o
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
79 fcb $63 c
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
80 fcb $FF
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
81 fcb $01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
82 fcb $BF ?
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
83 fcb $4A J
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
84 fcb $6F o
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
85 fcb $79 y
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
86 fcb $53 S
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
87 fcb $74 t
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
88 fcb $6B k
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
89 fcb $FF
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
90 fcb $00
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
91 fcb $D7 W
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
92 fcb $4C L
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
93 fcb $69 i
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
94 fcb $6E n
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
95 fcb $65 e
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
96 fcb $FF
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
97 fcb $00
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
98 fcb $A2 "
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
99 fcb $4D M
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
100 fcb $6F o
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
101 fcb $64 d
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
102 fcb $65 e
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
103 fcb $FF
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
104 fcb $00
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
105 fcb $A6 &
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
106 fcb $4D M
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
107 fcb $6F o
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
108 fcb $76 v
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
109 fcb $65 e
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
110 fcb $FF
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
111 fcb $00
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
112 fcb $B2 2
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
113 fcb $50 P
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
114 fcb $6F o
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
115 fcb $69 i
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
116 fcb $6E n
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
117 fcb $74 t
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
118 fcb $FF
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
119 fcb $01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
120 fcb $2F /
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
121 fcb $51 Q
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
122 fcb $75 u
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
123 fcb $69 i
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
124 fcb $74 t
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
125 fcb $FF
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
126 fcb $00
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
127 fcb $00
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
128 start equ *
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
129 leas -$09,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
130 ldd $0B,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
131 beq L00AD
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
132 tsta
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
133 bne L00AD
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
134 leau >L0011,pcr
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
135 L007D ldy ,u++
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
136 beq L00A9
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
137 ldx $0D,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
138 L0084 lda ,x+
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
139 eora ,u+
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
140 anda #$DF
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
141 beq L0094
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
142 leau -$01,u
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
143 L008E tst ,u+
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
144 bpl L008E
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
145 bra L007D
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
146 L0094 tst -$01,u
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
147 bpl L0084
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
148 tfr y,d
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
149 leay >L0011,pcr
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
150 leay d,y
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
151 leax ,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
152 leau <$11,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
153 ldd $0B,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
154 jmp ,y
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
155 L00A9 ldb #$30
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
156 bra L00AF
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
157 L00AD ldb #$38
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
158 L00AF coma
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
159 leas $09,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
160 rts
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
161 lda #$0F
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
162 bra L00B9
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
163 lda #$15
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
164 L00B9 cmpb #$03
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
165 bne L00AD
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
166 bra L010B
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
167 lda #$11
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
168 bra L00DE
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
169 cmpb #$03
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
170 beq L00D4
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
171 cmpb #$04
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
172 bne L00AD
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
173 leau <$19,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
174 lbsr L015E
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
175 leau <$11,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
176 L00D4 lda #$18
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
177 bra L010B
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
178 cmpb #$01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
179 beq L00E4
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
180 lda #$10
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
181 L00DE cmpb #$02
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
182 bne L00AD
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
183 bra L0136
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
184 L00E4 lda #$13
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
185 bra L0142
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
186 cmpb #$06
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
187 bhi L00AD
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
188 cmpb #$03
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
189 bcs L015B
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
190 bitb #$01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
191 bne L0103
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
192 leau <$19,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
193 cmpb #$04
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
194 beq L00FE
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
195 leau <$21,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
196 L00FE bsr L015E
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
197 leau <$11,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
198 L0103 cmpb #$04
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
199 bls L0109
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
200 bsr L0164
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
201 L0109 lda #$16
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
202 L010B sta ,x+
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
203 bsr L016E
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
204 bsr L016E
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
205 bra L0144
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
206 cmpb #$05
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
207 bhi L015B
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
208 cmpb #$02
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
209 bcs L015B
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
210 bitb #$01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
211 beq L012E
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
212 leau <$15,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
213 cmpb #$03
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
214 beq L0129
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
215 leau <$1D,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
216 L0129 bsr L015E
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
217 leau <$11,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
218 L012E cmpb #$03
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
219 bls L0134
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
220 bsr L0164
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
221 L0134 lda #$1A
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
222 L0136 sta ,x+
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
223 bsr L016E
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
224 bra L0144
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
225 lda #$0E
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
226 bra L0142
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
227 lda #$12
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
228 L0142 sta ,x+
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
229 L0144 bsr L0149
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
230 leas $09,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
231 rts
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
232 L0149 tfr x,d
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
233 leax $02,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
234 pshs x
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
235 subd ,s++
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
236 tfr d,y
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
237 lda #$01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
238 os9 I$Write
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
239 rts
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
240 L0159 leas $06,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
241 L015B lbra L00AD
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
242 L015E lda #$11
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
243 sta ,x+
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
244 bra L016E
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
245 L0164 puls y
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
246 lda #$15
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
247 sta ,x+
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
248 bsr L016E
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
249 pshs y
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
250 L016E pshs y,b,a
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
251 ldd [,u++]
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
252 sta ,x+
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
253 pulu y
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
254 leay -$01,y
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
255 beq L0183
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
256 leay -$01,y
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
257 bne L0159
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
258 tsta
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
259 bne L0159
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
260 stb -$01,x
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
261 L0183 puls pc,y,b,a
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
262 cmpb #$02
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
263 bne L015B
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
264 ldx <$13,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
265 leax -$02,x
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
266 bne L015B
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
267 lda #$01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
268 ldb #$12
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
269 os9 I$GetStt
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
270 bcs L019C
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
271 stx [<$11,s]
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
272 L019C leas $09,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
273 rts
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
274 cmpb #$02
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
275 beq L01AD
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
276 cmpb #$04
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
277 bne L015B
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
278 bsr L0164
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
279 bsr L0149
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
280 bcs L019C
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
281 L01AD lda #$01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
282 ldb #$12
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
283 os9 I$GetStt
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
284 bcs L019C
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
285 tfr a,b
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
286 bra L01ED
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
287 L01BA leau $04,u
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
288 pshs u,x
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
289 ldx -$02,u
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
290 ldu -$04,u
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
291 leax -$01,x
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
292 beq L01CC
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
293 leax -$01,x
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
294 bne L0159
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
295 clr ,u+
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
296 L01CC stb ,u+
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
297 puls pc,u,x
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
298 cmpb #$05
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
299 bne L015B
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
300 clr ,x+
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
301 bsr L016E
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
302 ldx -$02,x
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
303 lda #$01
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
304 ldb #$13
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
305 os9 I$GetStt
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
306 bcs L019C
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
307 tfr a,b
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
308 bsr L01BA
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
309 tfr x,d
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
310 bsr L01BA
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
311 tfr y,d
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
312 L01ED bsr L01BA
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
313 leas $09,s
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
314 rts
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
315 emod
ad78331ace28 Prego; The basic09 interpreter.
roug
parents:
diff changeset
316 eom equ *