Mercurial > hg > Members > kono > os9 > sbc09
annotate TL1/TL1os9.asm @ 177:3770e86114aa
TL/1 fix
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 15 Apr 2019 04:27:18 +0900 |
parents | 6ef317714ae8 |
children | 4d83154d2a78 |
rev | line source |
---|---|
121 | 1 *******TL/1************* |
2 nam tl1 | |
3 ttl TL1 compiler | |
4 | |
5 ifp1 | |
6 use defsfile | |
7 endc | |
8 | |
9 * Module header definitions | |
10 tylg set Prgrm+Objct | |
11 atrv set ReEnt+rev | |
12 rev set $00 | |
13 edition set 1 | |
14 | |
15 mod eom,name,tylg,atrv,start,size | |
16 | |
17 TXTTOP EQU $FB7E | |
18 | |
19 INDN RMB 1 | |
20 OUTDN RMB 1 | |
21 LB RMB 2 | |
22 GB RMB 2 | |
23 MHIGH RMB 1 | |
24 MOD RMB 1 | |
25 WT1 RMB 1 | |
26 WT2 RMB 1 | |
27 RNDH RMB 1 | |
28 RNDL RMB 1 | |
29 DREG RMB 1 | |
30 DBUF RMB 3 | |
31 XR RMB 2 | |
32 YR RMB 2 | |
33 ZR RMB 2 | |
165 | 34 arg equ . |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
35 PFTBEG RMB 2 prog/func table |
121 | 36 PC RMB 2 |
37 SREG RMB 2 | |
38 SP RMB 2 | |
39 PFMAX RMB 2 | |
40 LSW RMB 1 | |
41 SY RMB 1 | |
42 CH RMB 1 | |
43 VAL RMB 1 | |
137
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
44 GL RMB 1 global 0xff / local 1 |
121 | 45 OPER RMB 1 |
137
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
46 GLL RMB 1 left value g 0xff / local l |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
47 AMODE RMB 1 |
121 | 48 ACC RMB 1 |
142 | 49 LSIZE RMB 1 local variable size (including arguments ) |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
50 GSIZE RMB 1 global variable including array |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
51 TCOUNT RMB 1 1 search reserved word only, 5 search all local/global var/array, proc |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
52 TEND RMB 2 table end (search start from here ) include local name |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
53 WEND RMB 2 word end |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
54 PMODE RMB 1 0x20 main, 1 proc, 0 ? |
137
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
55 RSW RMB 1 0 word lookup, 0xff word register mode in tlook |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
56 GEND RMB 2 end of global name |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
57 SSW RMB 1 |
164 | 58 runmod RMB 1 |
162 | 59 modofs RMB 2 module library offset |
121 | 60 |
135
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
61 filepath rmb 2 |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
62 parmptr rmb 2 |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
63 stdin rmb 2 |
135
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
64 adr rmb 2 |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
65 work rmb 2 |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
66 bufsiz equ $100-1 |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
67 |
126
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
68 ** |
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
69 * LIBRARY ADDRESSS TABLE |
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
70 ** |
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
71 LIBR equ . |
121 | 72 ioentry rmb $80 |
135
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
73 readbuff rmb bufsiz+1 |
121 | 74 |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
75 OBJSTART RMB 10 |
121 | 76 |
77 | |
78 * OBJECT PG AREA | |
79 | |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
80 WTBLE RMB $100+500 |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
81 MSTACK RMB $140 |
121 | 82 |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
83 OBJECT RMB 2048 * NOP |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
84 RUB equ 8 |
121 | 85 |
86 size equ . | |
87 | |
88 name fcs /TL1/ | |
89 fcb edition | |
90 | |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
91 |
162 | 92 ** OBJECT START |
93 ****** | |
167 | 94 C tst <runmod |
95 beq c2 | |
96 lbra modend | |
97 c2 leas OBJECT,u | |
98 VARPTR lda INDN | |
99 lbsr close | |
162 | 100 clra os9 stdin |
167 | 101 sta INDN |
162 | 102 inca |
167 | 103 sta OUTDN |
104 LDX <PC | |
105 leay ,x | |
106 OBJMP JMP OBJECT,u | |
155 | 107 |
162 | 108 |
164 | 109 start LEAY OBJECT,u |
110 STY PC | |
111 lda ,x | |
166 | 112 cmpa #'-' |
164 | 113 bne run |
114 leax 1,x | |
115 lda ,x+ | |
165 | 116 cmpa #'c' |
164 | 117 bne run |
118 lbsr modsetup | |
119 bra fread | |
120 run ldy #-2 17 xx xx | |
162 | 121 sty modofs |
164 | 122 fread clr <stdin |
155 | 123 stx <parmptr save parameter pointer |
124 stu <work save parameter pointer | |
125 lda #READ. read access mode | |
126 os9 I$Open open file | |
127 lbcs ferr branch if error | |
128 sta <INDN else save path to file | |
129 stx <parmptr and updated parm pointer | |
130 leax readbuff,u buffer | |
131 clr ,x buffer empty | |
132 stx <adr | |
133 lbra comp | |
134 | |
121 | 135 ** |
136 COMP CLRA | |
137 STA OUTDN | |
138 STA LSW | |
139 STA AMODE | |
139 | 140 STA PMODE |
121 | 141 STA LSIZE |
142 STA RSW | |
143 STA PFMAX | |
122 | 144 leax MSTACK,u |
121 | 145 STX SP |
146 LEAX 2,x | |
147 STX PFTBEG | |
148 CLRB | |
149 C1 STA ,X+ | |
150 DECB | |
151 BNE C1 | |
152 INCA | |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
153 STA TCOUNT = 1 |
121 | 154 LDA #' ' |
155 STA CH | |
156 ** copy reserved word table | |
157 LEAX WTABLE,PCR | |
175 | 158 pshs u |
159 leau WTBLE,u | |
160 ldy #WTBLEND-WTABLE | |
121 | 161 tbl1 lda ,x+ |
175 | 162 sta ,u+ |
163 leay -1,y | |
121 | 164 bne tbl1 |
175 | 165 stu TEND |
166 puls u | |
121 | 167 ** |
168 LBSR CRLF | |
169 BSR REG0 | |
170 LBSR WORD | |
171 CMPA #$30 PROC? | |
172 BNE *+4 | |
173 BSR REGNAM | |
174 BSR REG0 | |
175 CMPA #$31 FUNC? | |
176 BNE *+4 | |
177 BSR REGNAM | |
178 CLR LSIZE | |
179 BSR REG0 | |
171 | 180 LBSR PROG |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
181 LDB LSIZE |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
182 STB GSIZE |
121 | 183 LBSR STPOUT |
184 LDX TEND | |
185 STX GEND | |
186 PLOOP LDA SY | |
187 CMPA #$8F /END CODE | |
188 LBEQ ENDL | |
189 CMPA #$4 | |
190 BCC ERR4 | |
191 DECA | |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
192 STA PMODE |
121 | 193 LDA VAL |
194 LBSR DEFPF | |
142 | 195 LBSR PUTHS |
196 FCB $04 | |
197 FDB $AFE3 stx ,--s | |
143 | 198 FDB $3086 leax a,x |
121 | 199 BSR REG0 |
200 CLR LSIZE | |
201 LBSR WORD | |
127
321b7fffadab
TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
126
diff
changeset
|
202 CMPA #$37 ( |
121 | 203 BNE PL1 |
204 BSR REGNAM | |
127
321b7fffadab
TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
126
diff
changeset
|
205 LDA #$3B ) |
121 | 206 LBSR CHECK |
207 PL1 BSR PROG | |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
208 LDB PMODE |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
209 CMPB #1 |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
210 BNE *+5 |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
211 LBSR RETP generate return |
121 | 212 LDX GEND |
213 STX TEND | |
214 LDB #5 | |
215 STB TCOUNT | |
216 BRA PLOOP | |
217 ** | |
218 * REGIST ZERO | |
219 ** | |
220 REG0 LDX TEND | |
221 CLR ,X+ | |
222 STX TEND | |
223 INC TCOUNT | |
224 RTS | |
225 ** | |
226 * REGIST NAME | |
227 ** | |
228 REGNAM COM RSW | |
229 LBSR WORD | |
230 LDB RSW | |
231 BEQ *+5 | |
137
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
232 ERR4 LBRA ERROR define duplicate name |
121 | 233 LDX TEND |
234 LDA LSIZE | |
235 STA ,X | |
236 INC LSIZE | |
237 LDX WEND | |
238 STX TEND | |
239 BSR WORD1 | |
137
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
240 CMPA #$36 "[" array |
121 | 241 BNE REG2 |
242 BSR WORD1 | |
243 BNE ERR4 | |
244 LDA VAL | |
245 ADDA LSIZE | |
246 BSR WORD1 | |
124 | 247 LDA #$3A ":" |
121 | 248 LBSR CHECK |
124 | 249 REG2 CMPA #$3C "," get next word |
121 | 250 BEQ REGNAM |
251 RTS | |
252 ** | |
253 * PROGRAM | |
254 ** | |
255 PROG CMPA #$32 VAR? | |
256 BNE *+4 | |
137
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
257 BSR REGNAM global variable |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
258 BSR REG0 put mark |
121 | 259 CMPA #$33 ARRAY? |
260 BNE *+4 | |
261 BSR REGNAM | |
262 ** | |
263 * STATEMENT | |
264 ** | |
265 STAT BSR SSTAT | |
266 LDB SSW | |
267 BEQ RTS1 | |
268 LBRA ERROR | |
269 ** | |
270 * STATEMENTS LIST | |
271 ** | |
272 STLIST BSR SSTAT | |
273 LDB SSW | |
274 BEQ STLIST | |
275 RTS1 RTS | |
276 ** | |
277 * SINGLE STATEMENT | |
278 ** | |
279 SSTAT CLRA | |
280 STA ACC | |
281 STA SSW | |
282 LDA SY | |
283 ** | |
284 * MULTIPLE STATEMENTS | |
285 ** | |
127
321b7fffadab
TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
126
diff
changeset
|
286 SS1 CMPA #$34 BEGIN |
121 | 287 BCS SS2 |
127
321b7fffadab
TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
126
diff
changeset
|
288 CMPA #$38 END |
121 | 289 BCC SS2 |
290 ADDA #4 | |
137
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
291 PSHS A wait for END |
121 | 292 BSR WORD1 |
293 BSR STLIST | |
294 PULS A | |
295 CLR SSW | |
296 LBRA CHECK | |
297 ** | |
298 * STOP | |
299 ** | |
300 SS2 CMPA #$50 | |
301 BNE SS3 | |
302 BSR STPOUT | |
303 WORD1 LBRA WORD | |
304 ** | |
122 | 305 STPOUT LBSR PUTHSL |
162 | 306 FCB 3,$16 |
122 | 307 FDB exit |
121 | 308 RTS |
309 ** | |
310 * RETURN | |
311 ** | |
312 SS3 CMPA #$51 | |
313 BNE SS4 | |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
314 LDB PMODE |
121 | 315 LBEQ ERR4 |
316 PSHS B | |
317 BSR WORD1 | |
318 PULS B | |
319 DECB | |
320 BEQ RETP | |
321 LBSR EXPR | |
142 | 322 RETP LDD #$3590 puls x,pc |
323 LBSR PUTAB | |
121 | 324 RTS |
325 ** | |
326 * PROC CALL | |
327 ** | |
328 SS4 CMPA #2 | |
329 LBEQ PFCALL | |
330 CMPA #$E0 | |
331 BCS SS5 | |
332 LBRA PFCALL | |
333 ** | |
334 * ASSIGNMENT STATEMENT | |
335 ** | |
336 SS5 CMPA #7 | |
337 BCS ASSIGN | |
338 LBRA SS6 | |
339 ASSIGN LDB GL | |
340 PSHS B | |
341 LDB VAL | |
342 PSHS B | |
170
d4e2f1179baf
remove psh on TL1 for-statement
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
169
diff
changeset
|
343 CMPA #5 local array |
121 | 344 BNE ASS1 |
345 LBSR SUBSC1 | |
346 LDB ,S | |
347 LDA LSW | |
348 BNE AS0 | |
349 LDA #$8B | |
350 LBSR PUTAB | |
351 LDA #1 | |
352 BRA AS2 | |
353 AS0 ADDB OPER | |
354 STB ,S | |
355 CLR LSW | |
356 BRA AS1 | |
170
d4e2f1179baf
remove psh on TL1 for-statement
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
169
diff
changeset
|
357 ASS1 CMPA #6 global array |
121 | 358 BNE ASS2 |
359 LBSR DSUBSC | |
360 LDA #2 | |
361 BRA AS2 | |
362 ASS2 CMPA #4 | |
363 BEQ *+5 | |
364 LBRA ERROR | |
170
d4e2f1179baf
remove psh on TL1 for-statement
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
169
diff
changeset
|
365 LBSR WORD local var |
121 | 366 AS1 CLRA |
367 AS2 PSHS A | |
368 LDA SY | |
170
d4e2f1179baf
remove psh on TL1 for-statement
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
169
diff
changeset
|
369 CMPA #$3C , |
121 | 370 BNE *+9 |
371 LBSR WORD | |
372 BSR ASSIGN | |
373 BRA AS3 | |
170
d4e2f1179baf
remove psh on TL1 for-statement
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
169
diff
changeset
|
374 LDA #$3D : |
121 | 375 LBSR CHECK |
170
d4e2f1179baf
remove psh on TL1 for-statement
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
169
diff
changeset
|
376 LDA #$27 = |
121 | 377 LBSR CHECK |
378 LBSR EXPR | |
379 AS3 PULS D | |
380 STB OPER 4-- | |
381 PULS B | |
382 STB GLL | |
383 TSTA | |
384 BNE AS4 | |
141 | 385 * LBSR PUTX |
121 | 386 LDA #$A7 |
125 | 387 LDB OPER |
137
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
388 LBRA PUTOFS |
121 | 389 AS4 DECA |
390 BNE AS5 | |
136 | 391 LDD #$3504 PULS B |
392 LBSR PUTAB | |
141 | 393 * LBSR PUTX STA B,X / STA B,Y |
136 | 394 LDD #$A785 |
395 LBRA PUTAB | |
121 | 396 AS5 LBSR PUTHS |
136 | 397 FCB 4 |
398 FDB $3510 PULS X | |
399 FDB $A700 STA ,X | |
121 | 400 RTS |
401 ** | |
402 ** NON-STATEMENT | |
403 ** | |
404 SSEND COM SSW | |
405 RTS | |
406 ** | |
407 SS6 CMPA #$58 | |
408 BCC SSEND | |
409 CMPA #$52 | |
410 BCS SSEND | |
411 SUBA #$51 | |
412 PSHS A | |
413 LBSR WORD | |
125 | 414 PULS B B keyword A next token |
121 | 415 ** |
416 * REPEAT UNTIL | |
417 ** | |
418 DECB | |
419 BNE SS7 | |
420 BSR ASTOUT | |
421 LBSR STLIST | |
422 LDA #$60 | |
423 LBSR CHECK | |
424 LBSR EXPR | |
425 LBSR PUTHS | |
426 FCB 2 | |
427 FDB $2603 | |
428 CLR SSW | |
429 BRA MINOUT | |
430 ** | |
431 * FOR-TO | |
432 ** | |
433 SS7 DECB | |
434 BNE SS8 | |
125 | 435 CMPA #4 should be simple var |
121 | 436 BEQ *+5 |
437 LBRA ERROR | |
438 LDB VAL | |
439 PSHS B | |
440 LDB GL | |
441 PSHS B | |
442 LBSR ASSIGN | |
125 | 443 LDA #$61 to |
121 | 444 LBSR CHECK |
445 CLR ACC | |
446 LBSR EXPR | |
125 | 447 LDA #$64 do |
121 | 448 LBSR CHECK |
170
d4e2f1179baf
remove psh on TL1 for-statement
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
169
diff
changeset
|
449 INC LSIZE |
d4e2f1179baf
remove psh on TL1 for-statement
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
169
diff
changeset
|
450 LDA #$A7 sta |
d4e2f1179baf
remove psh on TL1 for-statement
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
169
diff
changeset
|
451 LDB LSIZE |
125 | 452 LBSR PUTAB |
170
d4e2f1179baf
remove psh on TL1 for-statement
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
169
diff
changeset
|
453 pshs b |
d4e2f1179baf
remove psh on TL1 for-statement
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
169
diff
changeset
|
454 BSR ASTOUT |
121 | 455 LBSR STAT |
170
d4e2f1179baf
remove psh on TL1 for-statement
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
169
diff
changeset
|
456 puls b |
d4e2f1179baf
remove psh on TL1 for-statement
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
169
diff
changeset
|
457 lda #$A6 lda |
125 | 458 LBSR PUTAB |
121 | 459 PULS D |
460 STA GLL | |
461 STB OPER | |
462 LDA #$A1 | |
463 LBSR PUTABX | |
464 LBSR PUTHS | |
465 FCB 2 | |
466 FDB $2305 | |
467 LDA #$6C | |
468 LDB OPER | |
469 LBSR PUTAB | |
470 MINOUT LBRA PULJMP | |
471 ASTOUT LBRA PSHDEF | |
472 ** | |
473 * WHILE-DO | |
474 ** | |
475 SS8 DECB | |
476 BNE SS9 | |
477 BSR ASTOUT | |
478 LBSR EXPR | |
479 LDA #$64 | |
480 LBSR CHECK | |
481 LBSR PUTHS | |
482 FCB 2 | |
483 FDB $2603 | |
484 BSR SLAOUT | |
485 LBSR STAT | |
486 BSR PEROUT | |
487 BSR MINOUT | |
488 PLUOUT LBRA PULDEF | |
489 ** | |
490 ** IF—THEN | |
491 ** | |
492 SS9 DECB | |
493 BNE SS10 | |
494 LBSR EXPR | |
495 LDA #$65 | |
496 LBSR CHECK | |
497 LBSR PUTHS | |
498 FCB 2 | |
499 FDB $2603 | |
500 BSR SLAOUT | |
501 LBSR STAT | |
177 | 502 LDA SY |
503 CMPA #$67 ELSE | |
504 BNE PLUOUT | |
505 BSR SLAOUT lbra then | |
506 BSR PEROUT | |
507 BSR PLUOUT else: | |
508 LBSR WORD | |
509 LBSR STAT | |
510 BRA PLUOUT then: | |
121 | 511 SLAOUT LBRA PSHJMP |
512 PEROUT LBRA STCHG | |
513 *** | |
514 * CASE—OF | |
515 SS10 DECB | |
516 BNE SS11 | |
517 LBSR EXPR | |
518 LDA #$66 | |
519 LBSR CHECK | |
520 CLRB | |
521 S10A INCB | |
522 PSHS B | |
523 STB ACC | |
524 LBSR LEXPR | |
525 LDA #$81 | |
526 LBSR AOPER | |
527 LBSR PUTHS | |
528 FCB 2 | |
529 FDB $2703 | |
530 BSR SLAOUT | |
531 LBSR STAT | |
532 BSR SLAOUT | |
533 BSR PEROUT | |
534 BSR PLUOUT | |
535 PULS B | |
536 LDA SY | |
177 | 537 CMPA #$67 ELSE |
121 | 538 BNE S10A |
539 PSHS B | |
540 LBSR WORD | |
541 LBSR STAT | |
542 PULS A | |
543 LBRA PLDFN | |
544 ** | |
545 * WRITE STATEMENT | |
546 ** | |
547 SS11 LDA #$37 | |
548 LBSR CHECK | |
125 | 549 LBSR EXPR output channel number |
121 | 550 LBSR PUTHS |
551 FDB $0297 | |
552 FCB OUTDN | |
553 LDA #$3D | |
554 LBSR CHECK | |
555 WTLP CLR ACC | |
556 BSR WTERM | |
557 LDA SY | |
558 CMPA #$3C | |
559 BNE WTEN | |
560 LBSR WORD | |
561 BRA WTLP | |
125 | 562 WTEN LDA #$3B |
121 | 563 LBRA CHECK |
125 | 564 ** write command argument |
565 WTERM CMPA #$6C string | |
121 | 566 BNE WR1 |
122 | 567 LBSR PUTHSL |
162 | 568 FDB $0317 |
121 | 569 FDB PUTSTR |
570 LDA CH | |
125 | 571 WR01 CMPA #'"' copy until '"' |
121 | 572 BEQ WR02 |
573 LBSR PUTA | |
574 LBSR GETCH | |
575 BRA WR01 | |
125 | 576 WR02 CLRA put 0 at end |
121 | 577 LBSR PUTA |
578 LBSR GETCH | |
579 LBRA WORD | |
580 ** | |
581 WR1 CMPA #$6B | |
582 BNE WR3 | |
583 LBSR WORD | |
584 CMPA #$37 | |
585 BEQ WR2 | |
122 | 586 LBSR PUTHSL |
162 | 587 FDB $0317 |
126
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
588 FDB CRLF |
121 | 589 RTS |
590 ** | |
591 WR2 LBSR WEXPR | |
592 BSR WTEN | |
122 | 593 LBSR PUTHSL |
162 | 594 FDB $0317 |
121 | 595 FDB CRLFA |
596 RTS | |
597 ** | |
598 WR3 CMPA #$6A | |
599 BNE WR4 | |
600 LBSR SUBSC | |
122 | 601 LBSR PUTHSL |
162 | 602 FDB $0317 |
121 | 603 FDB SPACEA |
604 RTS | |
605 ** | |
176 | 606 WR4 CMPA #$69 |
121 | 607 BNE WR5 |
608 LBSR SUBSC | |
122 | 609 LBSR PUTHSL |
162 | 610 FDB $0317 |
121 | 611 FDB PUTCA |
612 RTS | |
613 ** | |
614 WR5 CMPA #$26 | |
615 BNE WR6 | |
616 LBSR DSUBSC | |
617 LBSR PUTPLB | |
122 | 618 LBSR PUTHSL |
162 | 619 FDB $0317 |
121 | 620 FDB PUTDA+1 |
621 BRA WR66 | |
622 ** | |
623 WR6 LBSR EXPR | |
122 | 624 LBSR PUTHSL |
162 | 625 FDB $0317 |
121 | 626 FDB PUTDA |
137
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
627 WR66 |
121 | 628 RTS11 RTS |
629 ** | |
137
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
630 * use X for LB, OR use Y for GB BY |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
631 ** |
141 | 632 *PUTX equ RTS11 * no pointer load |
121 | 633 ** |
137
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
634 PUTOFS PSHS D,X |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
635 LDX <PC |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
636 STA ,X+ |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
637 CLRA |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
638 TST <GLL |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
639 BMI PUTOFSX |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
640 LDA #$20 |
137
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
641 PUTOFSX STA ,S |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
642 CMPB #32 |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
643 BGT *+6 |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
644 CMPB #-32 |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
645 BGE PUTOFS5 |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
646 LDA #$80 |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
647 ORA ,S |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
648 STA ,X+ |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
649 STB ,X+ |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
650 BRA PUTOFS8 |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
651 PUTOFS5 |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
652 ANDB #$1F |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
653 ORB ,S |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
654 STB ,X+ |
137
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
655 PUTOFS8 |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
656 STX <PC |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
657 PULS D,X,PC |
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
658 |
121 | 659 *** |
660 * PUT ACC A&B | |
661 ** | |
125 | 662 PUTAB BSR PUTA |
121 | 663 TFR B,A |
664 ** | |
144
1112b0549142
TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
143
diff
changeset
|
665 * PUTX & PUTB |
1112b0549142
TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
143
diff
changeset
|
666 ** |
1112b0549142
TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
143
diff
changeset
|
667 PUTABX equ PUTAB |
1112b0549142
TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
143
diff
changeset
|
668 * PSHS D |
1112b0549142
TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
143
diff
changeset
|
669 * BSR PUTX |
1112b0549142
TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
143
diff
changeset
|
670 * PULS D |
1112b0549142
TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
143
diff
changeset
|
671 * BRA PUTAB |
1112b0549142
TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
143
diff
changeset
|
672 ** |
121 | 673 * PUT ACCA RS AN OBJECT |
674 ** | |
136 | 675 PUTA PSHS X |
121 | 676 LBSR AOUT |
136 | 677 PULS X,PC |
121 | 678 ** |
679 * PUTHS STRING | |
680 ** | |
681 PUTHS LDX ,S++ | |
682 LDB ,X+ | |
683 PS1 LDA ,X+ | |
684 BSR PUTA | |
685 DECB | |
686 BNE PS1 | |
687 JMP ,X | |
688 ** | |
689 ** CHECK ACC | |
690 ** | |
691 CHECK CMPA SY | |
692 BEQ WORD | |
693 ** | |
694 * ERROR | |
695 ** | |
696 ERROR LBSR PUTSTR | |
697 FDB $0D0A | |
698 FCC "ERROR ",0 | |
699 LDX TEND | |
700 LEAX 1,X | |
701 NEG ,X | |
702 ER0 LDA ,X+ | |
703 LBSR PUTCA | |
704 CMPX WEND | |
705 BNE ER0 | |
706 lbra exit | |
707 ** | |
708 * WORD DECORDER | |
709 ** | |
710 WORD BSR WORDS | |
711 LDA SY | |
712 RTS | |
713 WORDS CLRB | |
714 STB SY | |
715 STB VAL | |
716 LDA CH | |
717 ** SKIP CONT ,SPACE.; | |
718 WD1 CMPA #$21 | |
719 BCS SKIP | |
720 CMPA #'.' | |
721 BEQ SKIP | |
722 CMPA #';' | |
723 BNE WD2 | |
724 SKIP BSR GETCH | |
725 BRA WD1 | |
726 ** | |
727 * COMMENT | |
728 ** | |
729 WD2 CMPA #'%' | |
730 BNE WD3 | |
731 BSR GETCH | |
732 CMPA #$20 | |
123 | 733 BCC *-4 |
121 | 734 BRA WD1 |
735 ** | |
736 * ASCC CONST | |
737 ** | |
738 WD3 CMPA #'\'' | |
739 BNE WD4 | |
740 BSR GETCH | |
741 STA VAL | |
742 BSR GETCH | |
743 GETCH PSHS X | |
744 LBSR MEMIN | |
745 STA CH | |
746 PULS X,PC | |
747 * HEX CONSTANT | |
748 WD4 CMPA #'$' | |
749 BNE WD5 | |
750 WD40 BSR GETCH | |
751 BSR TSTNA | |
752 BEQ WD41 | |
753 BCC RTS2 | |
754 CMPA #'F'+1 | |
755 BCC RTS2 | |
756 SUBA #7 | |
757 WD41 SUBA #'0' | |
758 LDB VAL | |
759 ASLB | |
760 ASLB | |
761 ASLB | |
762 ASLB | |
763 PSHS B | |
764 ADDA ,S+ | |
765 STA VAL | |
766 BRA WD40 | |
767 ** | |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
768 * TEST ALPHA NUMERIC Z=0 C=0 Not Number/Not Alpha |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
769 TSTNA CMPA #'0' Z=1 C=1 Number |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
770 BCS NAF Z=0 C=1 Not Number/Alpha |
121 | 771 CMPA #'9'+1 |
772 BCS NT | |
773 CMPA #'A' | |
774 BCS NAF | |
775 CMPA #'Z'+1 | |
776 BCS AT | |
777 NAF CLRB CLEAR C | |
778 AT LDB #-1 | |
779 RTS2 RTS | |
780 NT CLRB | |
781 RTS | |
782 ** DECIMAL CONSTANT | |
783 WD5 BSR TSTNA | |
784 BNE WD6 | |
785 WD50 SUBA #'0' | |
786 PSHS A | |
787 LDA VAL | |
788 LDB #10 | |
789 MUL | |
127
321b7fffadab
TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
126
diff
changeset
|
790 ADDB ,S+ |
321b7fffadab
TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
126
diff
changeset
|
791 STB VAL |
121 | 792 BSR GETCH |
793 BSR TSTNA | |
794 BEQ WD50 | |
795 RTS | |
796 * THE OTHER WORDS | |
797 WD6 LDX TEND | |
798 PSHS A | |
799 NEGA | |
800 LEAX 1,X | |
801 BSR STAONE | |
802 PULS A | |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
803 BSR TSTNA first word must alpha |
121 | 804 BCC TLOOK1 |
805 WD61 LDA CH | |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
806 BSR TSTNA alpha numeric? |
121 | 807 BCS *+4 |
808 BNE TLOOK1 | |
809 BSR STAONE | |
810 BRA WD61 | |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
811 STAONE STA ,X+ store to the table |
121 | 812 STX WEND |
813 BRA GETCH | |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
814 TLOOK1 LDA RSW word end |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
815 BEQ TLOOK let's search |
121 | 816 COM RSW |
817 RTS | |
818 ** | |
819 * WORD TABLE SEARCH | |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
820 * |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
821 * if not find then error |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
822 * on return X point last of word (VAL) |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
823 * SY 7 larray 6 lvar 5 garray 4 gvar 3 func or proc 0 reserved word |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
824 * VAL word id or size |
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
825 * GL 1 local 0xff global |
121 | 826 ** |
123 | 827 TLOOK PSHS U |
828 LDA TCOUNT | |
121 | 829 STA SY |
830 LDX TEND | |
831 S01 LDU WEND | |
832 S02 LDA ,-U | |
833 CMPA ,-X | |
834 BEQ S06 | |
835 S03 TST ,X | |
836 BEQ S05 | |
837 BMI S04 | |
838 LEAX -1,X | |
839 BRA S03 | |
840 S04 LEAX -1,X | |
841 BRA S01 | |
842 S05 DEC SY | |
843 BNE S01 | |
844 LBRA ERROR | |
845 S06 TSTA | |
846 BPL S02 | |
847 LDB ,-X | |
848 STB VAL | |
849 LDA SY | |
850 CMPA #1 | |
851 BNE *+6 | |
852 TFR B,A | |
853 BRA S07 | |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
854 LDB #1 |
121 | 855 CMPA #4 |
856 BCS RTSS | |
138
6f7276831219
TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
137
diff
changeset
|
857 TST PMODE |
121 | 858 BEQ *+6 |
859 CMPA #6 | |
860 BCS *+3 | |
861 NEGB | |
862 STB GL | |
863 ANDA #$FD | |
864 S07 STA SY | |
123 | 865 RTSS PULS U,PC |
121 | 866 ** |
867 * ARITHMATIC EXPRESSION | |
868 ** | |
869 WEXPR LBSR WORD | |
870 EXPR BSR LEXPR | |
871 BSR OLOAD | |
872 RTE RTS | |
873 ** WORD * LEXPR | |
874 WLEXPR LBSR WORD | |
875 ** | |
876 * LOGICAL EXPRESSION | |
877 ** | |
878 LEXPR BSR REXPR | |
879 LE1 LDY SY | |
880 CMPA #$82 | |
881 BCS RTE | |
882 CMPA #$8A+1 | |
883 BCC RTE | |
884 PSHS A | |
885 LBSR WORD | |
886 BSR REXPR | |
887 LDB LSW | |
888 BNE LE2 | |
889 LBSR PUTHS | |
890 FDB $0397 | |
891 FCB WT1 | |
892 FCB $32 | |
893 PULS A | |
894 ADDA #$10 | |
895 LDB #WT1 | |
896 LBSR PUTAB | |
897 BRA LE1 | |
898 LE2 PULS A | |
899 BSR OCORD | |
900 BRA LE1 | |
901 ** | |
902 * RELATIONAL EXPRESS | |
903 ** | |
139 | 904 REXPR LBSR AEXPR |
121 | 905 RE1 LDA SY |
906 CMPA #$21 | |
907 BCS RTE | |
908 CMPA #$30 | |
909 BCC RTE | |
910 PSHS A | |
911 LBSR WORD | |
177 | 912 BSR AEXPR |
121 | 913 LDA #$80 |
914 BSR AOPER | |
915 PULS A | |
916 LBSR PUTHS | |
177 | 917 FCB 6 b?? *+3 ; clra ; bra *+2 ; lda #$ff |
121 | 918 FCB $3,$4F,$20,$02,$86,$FF |
919 BRA RE1 | |
920 ** ADDING OPERATFR | |
921 AOPER LDB LSW | |
922 BNE OCORD | |
923 PSHS A | |
924 CMPA #$80 | |
925 BEQ *+5 | |
926 BSR PUTPUL | |
927 FCB $8C | |
928 BSR PUTPLB | |
929 PULS A | |
930 SUBA #$70 | |
931 PUTA1 LBRA PUTA | |
932 ** OUTPUT SAVED L-CC | |
933 OLOAD LDA LSW | |
934 BEQ RTE | |
935 LDA ACC | |
132 | 936 BEQ OL1 |
937 LDD #$3402 pshs a | |
938 LBSR PUTAB | |
939 OL1 LDA #$86 | |
121 | 940 OCORD PSHS A |
941 CLRA | |
942 STA LSW | |
943 COMA | |
944 STA ACC | |
142 | 945 * LDA AMODE amode is sometime wrong? |
946 * CMPA #$20 | |
947 * BNE *+5 | |
141 | 948 * LBSR PUTX |
121 | 949 CLR LSW |
950 PULS A | |
951 ADDA AMODE | |
140 | 952 CMPA #$A6 |
953 BEQ OCOFS | |
954 CMPA #$E6 | |
955 BEQ OCOFS | |
141 | 956 LDB OPER imm case |
140 | 957 LBRA PUTAB |
141 | 958 OCOFS LDB OPER index case |
137
1078f3e31d9c
index version TL/1 first try
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
136
diff
changeset
|
959 LBRA PUTOFS |
121 | 960 * PUT 'TAB:PULS A' |
961 PUTPUL LBSR PUTHS | |
132 | 962 FCB 4 |
963 FCB $1f,$89,$35,2 tfr a,b ; puls a | |
121 | 964 RTE1 RTS |
965 * PUT 'PULS B' | |
132 | 966 PUTPLB LDA #$3504 puls b |
967 LBRA PUTAB | |
121 | 968 ** |
969 * ADDING EXPRESSION | |
970 ** | |
971 AEXPR BSR MEXPR | |
972 AE1 LDA SY | |
973 CMPA #$80 | |
974 BEQ AE2 | |
975 CMPA #$8B | |
976 BNE RTE1 | |
977 AE2 PSHS A | |
978 LBSR WORD | |
979 BSR MEXPR | |
980 PULS A | |
139 | 981 LBSR AOPER |
121 | 982 BRA AE1 |
983 ** | |
984 * MUTIPLYING EXPRESSION | |
985 ** | |
986 MEXPR BSR TERM | |
987 ME1 LDA SY | |
988 CMPA #$8E | |
989 BEQ ME2 | |
990 CMPA #$8F | |
991 BNE RTE1 | |
992 ME2 PSHS A | |
993 LBSR WORD | |
994 BSR TERM | |
995 LDB LSW | |
996 BEQ ME3 | |
997 LDA #$C6 | |
998 BSR OCORD | |
999 FCB $8C | |
1000 ME3 BSR PUTPUL | |
1001 PULS A | |
1002 CMPA #$8E | |
1003 BHS ME4 | |
122 | 1004 LBSR PUTHSL |
121 | 1005 FCB 3 |
162 | 1006 FCB $17 |
121 | 1007 FDB MULT |
1008 BRA ME1 | |
122 | 1009 ME4 LBSR PUTHSL |
121 | 1010 FCB 3 |
162 | 1011 FCB $17 |
121 | 1012 FDB DIV |
1013 BRA ME1 | |
1014 ** | |
1015 * TERM | |
1016 ** | |
1017 TERM LDA SY | |
1018 BNE TM1 | |
1019 * SAVE L-COMMAND | |
1020 SLOAD PSHS A | |
1021 LBSR OLOAD | |
1022 LDA VAL | |
1023 STA OPER | |
1024 LDA GL | |
1025 STA GLL | |
1026 PULS A | |
1027 STA AMODE | |
1028 COM LSW | |
1029 LBRA WORD | |
124 | 1030 * CONST TRUE & FALSE |
126
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
1031 TM1 CMPA #$A0 |
124 | 1032 BEQ TM01 |
121 | 1033 CMPA #$A1 |
1034 BNE TM2 | |
1035 TM01 SUBA #$A1 | |
1036 STA VAL | |
1037 CLRA | |
1038 BRA SLOAD | |
1039 * SYSTEM VAR MHIGH & MOD | |
1040 TM2 CMPA #$16 | |
126
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
1041 BEQ *+6 |
121 | 1042 CMPA #$17 |
1043 BNE TM3 | |
1044 STA VAL | |
1045 LDA #$10 | |
1046 BRA SLOAD | |
1047 * SIMPLE VARIABLE | |
1048 TM3 CMPA #4 | |
1049 BNE TM4 | |
1050 LDA #$20 | |
1051 BRA SLOAD | |
1052 * ( EXPTRSSION ) | |
1053 TM4 CMPA #$35 | |
1054 BCS TM5 | |
1055 CMPA #$38 | |
1056 BCC TM5 | |
1057 PSHS A | |
1058 LBSR WLEXPR | |
1059 PULS A | |
1060 ADDA #4 | |
1061 LBRA CHECK | |
1062 ** FUNCTION CALL | |
1063 TM5 CMPA #3 | |
144
1112b0549142
TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
143
diff
changeset
|
1064 BEQ *+6 |
121 | 1065 CMPA #$E0 |
1066 BCS TM6 | |
1067 BSR OLP | |
1068 PFCALL LDA VAL | |
1069 PSHS A | |
1070 LBSR WORD | |
1071 CMPA #$37 | |
1072 BNE PFC1 | |
1073 LDA LSIZE | |
1074 PSHS A | |
144
1112b0549142
TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
143
diff
changeset
|
1075 * INC LSIZE |
142 | 1076 PFC2 INC LSIZE |
143 | 1077 LBSR WEXPR |
121 | 1078 CLRB |
1079 STB ACC | |
1080 DECB | |
1081 STB GLL | |
143 | 1082 LDA #$A7 |
1083 LDB LSIZE | |
144
1112b0549142
TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
143
diff
changeset
|
1084 DECB |
143 | 1085 LBSR PUTABX |
121 | 1086 LDA SY |
1087 CMPA #$3C | |
1088 BEQ PFC2 | |
1089 PULS A | |
1090 STA LSIZE | |
1091 LDA #$3B | |
1092 LBSR CHECK | |
1093 PFC1 LDB #-1 | |
1094 STB ACC | |
1095 LDA #$86 | |
1096 LDB LSIZE | |
1097 LBSR PUTAB | |
1098 PULS A | |
1099 CMPA #$C0 | |
1100 BCC *+5 | |
1101 LBRA CALPF | |
1102 LDX #LIBR | |
1103 SUBA #$C0 | |
1104 PFC3 BEQ PFC4 | |
1105 LEAX 2,X | |
1106 DECA | |
1107 BRA PFC3 | |
162 | 1108 PFC4 LDA #$17 |
121 | 1109 LBSR PUTA |
1110 LDD ,X | |
1111 LBRA PUTAB | |
1112 ** | |
1113 OLP LBSR OLOAD | |
1114 LDB ACC | |
1115 BEQ RTS4 | |
132 | 1116 LDD #$3402 pshs a |
1117 LBSR PUTAB | |
121 | 1118 CLR ACC |
1119 RTS4 RTS | |
1120 ** FUNCTION RND | |
1121 TM6 CMPA #$70 | |
1122 BNE TM61 | |
175 | 1123 LBSR SUBSC |
155 | 1124 LBSR PUTHSL |
176 | 1125 FDB $0317 |
121 | 1126 FDB RND |
1127 RTS | |
1128 * FUNTION GET | |
1129 TM61 CMPA #$71 | |
1130 BNE TM62 | |
175 | 1131 LBSR SUBSC |
121 | 1132 LBSR PUTHS |
122 | 1133 FDB $0297 |
1134 FCB INDN | |
1135 LBSR PUTHSL | |
176 | 1136 FDB $0317 |
155 | 1137 FDB getchar |
121 | 1138 RTS |
175 | 1139 * FUNCTION READ etc |
121 | 1140 TM62 CMPA #$72 |
175 | 1141 BNE TM63 |
1142 LBSR SUBSC | |
121 | 1143 LBSR PUTHS |
122 | 1144 FDB $0297 |
121 | 1145 FDB INDN |
122 | 1146 LBSR PUTHSL |
176 | 1147 FDB $0317 |
121 | 1148 FDB GETDA |
1149 RTS | |
175 | 1150 TM63 CMPA #$A2 seek |
1151 BNE TM64 | |
176 | 1152 LBSR DSUBSA |
1153 tstb | |
1154 beq tmm0 | |
1155 bsr aradr | |
1156 tmm0 LBSR PUTHSL | |
1157 FDB $0317 | |
175 | 1158 FDB NONE |
1159 RTS | |
1160 TM64 CMPA #$A3 seekr | |
1161 BNE TM65 | |
176 | 1162 LBSR DSUBSC |
175 | 1163 LBSR PUTHSL |
176 | 1164 FDB $0317 |
175 | 1165 FDB NONE |
1166 RTS | |
1167 TM65 CMPA #$A4 position | |
1168 BNE TM66 | |
176 | 1169 LBSR DSUBSA |
1170 tstb | |
1171 beq tmm1 | |
1172 bsr aradr | |
1173 tmm1 LBSR PUTHSL | |
1174 FDB $0317 | |
175 | 1175 FDB NONE |
1176 RTS | |
1177 TM66 CMPA #$A5 open | |
1178 BNE TM67 | |
176 | 1179 LBSR DSUBSC |
175 | 1180 LBSR PUTHSL |
176 | 1181 FDB $0317 |
175 | 1182 FDB NONE |
1183 RTS | |
1184 TM67 CMPA #$A6 openm | |
1185 BNE TM7 | |
176 | 1186 LBSR DSUBSA |
1187 tstb | |
1188 beq tmm2 | |
1189 bsr aradr | |
1190 tmm2 LBSR PUTHSL | |
1191 FDB $0317 | |
175 | 1192 FDB NONE |
1193 RTS | |
176 | 1194 * ; pshs u; leau ?,[xy] ; tfr u,d ; puls u |
1195 aradr LBSR PUTHS | |
1196 FCB 2,$34,$40 | |
1197 ldb VAL | |
1198 lda #$33 leau | |
1199 tst GL | |
1200 beq aradr1 | |
1201 addb #$20 | |
1202 aradr1 LBSR PUTAB | |
1203 LBSR PUTHS | |
1204 FCB 4,$1f,$30,$35,$40 | |
177 | 1205 LBSR WORD |
1206 LDA #$3B ')' | |
1207 LBRA CHECK | |
175 | 1208 |
176 | 1209 * FUNCTION NOT ASL ET AL |
121 | 1210 TM7 CMPA #$40 |
1211 BCS TM8 | |
1212 CMPA #$49+1 | |
1213 BCC TM8 | |
1214 PSHS A | |
1215 BSR SUBSC | |
1216 PULS A | |
1217 LBRA PUTA | |
1218 * ARRAY | |
1219 TM8 CMPA #$5 | |
1220 BNE TM9 | |
1221 LDB VAL | |
1222 PSHS B | |
1223 LDB GL | |
1224 PSHS B | |
1225 BSR SUBSC1 | |
1226 PULS B | |
1227 STB GLL | |
1228 PULS B | |
1229 LDA LSW | |
1230 BEQ ARY1 | |
1231 ADDB OPER | |
1232 STB OPER | |
1233 LDA #$20 | |
1234 STA AMODE | |
1235 RTS | |
1236 ARY1 LDA #$8B | |
1237 LBSR PUTABX | |
1238 LBRA LDAAX | |
176 | 1239 |
1240 ** f(x,y) y can be an array | |
1241 DSUBSA LDA #$3C ',' | |
1242 BSR SUBS1 | |
1243 LDA #$3B ')' | |
1244 PSHS A | |
177 | 1245 LDA SY |
176 | 1246 CMPA #$5 |
177 | 1247 BNE DSUB1 |
1248 leas 1,s | |
1249 ldb #1 b==1 array | |
176 | 1250 RTS |
177 | 1251 DSUB1 LBSR EXPR |
1252 puls a | |
1253 lbsr CHECK | |
1254 clrb | |
1255 rts | |
176 | 1256 |
1257 ** f(x,y) | |
175 | 1258 DSUBSC LDA #$3C ',' |
121 | 1259 BSR SUBS1 |
175 | 1260 LDA #$3B ')' |
121 | 1261 PSHS A |
1262 BRA SUBS2 | |
176 | 1263 SUBSC LDA #$3B ')' |
121 | 1264 SUBS1 PSHS A |
1265 LBSR WORD | |
175 | 1266 LDA #$37 '(' |
121 | 1267 LBSR CHECK |
1268 SUBS2 LBSR EXPR | |
1269 PULS A | |
1270 LBRA CHECK | |
1271 SUBSC1 LBSR WORD | |
175 | 1272 LDA #$36 '[' |
121 | 1273 LBSR CHECK |
1274 LBSR LEXPR | |
1275 LDB LSW | |
1276 BEQ SBS5 | |
1277 LDB AMODE | |
1278 BEQ SBS5 | |
1279 LBSR OLOAD | |
175 | 1280 SBS5 LDA #$3A ']' |
121 | 1281 LBRA CHECK |
1282 * MEM FUNCTION | |
1283 TM9 CMPA #6 | |
1284 BNE TM10 | |
176 | 1285 LBSR PUTHS ; leas -1,s |
1286 FCB 2,$32,$7F | |
121 | 1287 BSR DSUBSC |
176 | 1288 LBSR PUTHS ; sta 1,s; lda [,s++] |
1289 FDB $04,$a7,$61,$a8,$f1 | |
121 | 1290 RTS |
1291 ** FOR EXPANTION | |
1292 TM10 LBRA ERROR | |
1293 ** | |
1294 * ADDRESS DEPENDENT CODE | |
1295 * GENARATION | |
1296 ** | |
1297 * SET PRC—FUNC TABLE | |
1298 ** | |
1299 SETPFT PSHS A | |
1300 LDB #3 | |
1301 MUL | |
1302 ADDD PFTBEG | |
1303 STD XR | |
1304 PULS A,PC | |
1305 ** | |
1306 TWICE LBSR PUTSTR | |
1307 FCB $0D,$0A | |
1308 FCC "TWICE!",0 | |
1309 lbra exit | |
1310 ** | |
1311 * DEF PROC-FUNC | |
1312 ** | |
1313 DEFPF BSR SETPFT | |
1314 LDX XR | |
1315 TST ,X | |
1316 BNE TWICE | |
1317 COM ,X | |
1318 LDX 1,X | |
1319 STX YR | |
1320 LDX XR | |
1321 LEAX 1,X | |
162 | 1322 BSR RPCST |
121 | 1323 LDX YR |
1324 DP1 BEQ RT10 | |
1325 LDX ,X | |
1326 STX ZR | |
1327 LDX YR | |
162 | 1328 BSR RPCST |
121 | 1329 LDX ZR |
1330 STX YR | |
1331 BRA DP1 | |
162 | 1332 RPCST LDD PC |
1333 pshs x | |
1334 subd ,s++ | |
1335 subd #2 | |
1336 STD ,X | |
1337 RTS | |
121 | 1338 ** |
1339 * CALL PORC-FUNC | |
1340 ** | |
1341 CALPF BSR SETPFT | |
1342 INCA | |
1343 CMPA PFMAX | |
1344 BCS *+4 | |
1345 STA PFMAX | |
162 | 1346 LDA #$17 |
121 | 1347 BSR AOUT |
1348 LDX XR | |
1349 LDD 1,X | |
1350 LDX PC | |
1351 BSR STAABX | |
1352 LDX XR | |
1353 TST ,X | |
1354 BNE PC2ADD | |
1355 LEAX 1,X | |
1356 BSR PCST | |
1357 BRA PC2ADD | |
1358 ** | |
1359 * PUL-DEF N TIMES | |
1360 ** | |
1361 PLDFN PSHS A | |
1362 BSR PULDEF | |
1363 DEC ,S | |
1364 BNE *-4 | |
1365 PULS A,PC | |
1366 ** | |
1367 * PULL AND DEFINE | |
1368 ** | |
1369 PULDEF BSR PULSTK | |
1370 PCST LDD PC | |
1371 STAABX STD ,X | |
1372 RT10 RTS | |
1373 ** | |
162 | 1374 JMPOUT LDA #$16 |
121 | 1375 AOUT LDX PC |
1376 STA ,X | |
1377 BRA INCPC1 | |
1378 ** | |
1379 PULSTK LDX SP | |
1380 LEAX 2,x | |
1381 STX SP | |
1382 LDD ,X | |
1383 LDX ,X | |
1384 RTS | |
1385 ** | |
1386 * PUL STACK & Jump | |
1387 ** | |
1388 PULJMP BSR JMPOUT | |
1389 BSR PULSTK | |
1390 PCST2 LDX PC | |
162 | 1391 pshs x |
1392 subd ,s++ | |
163 | 1393 subd #2 |
162 | 1394 std ,x |
121 | 1395 INCPC LEAX 1,X |
1396 INCPC1 LEAX 1,X | |
1397 SETPC STX PC | |
1398 RTS | |
1399 ** | |
1400 * PUSH STACK & JUMP | |
1401 ** | |
1402 PSHJMP BSR JMPOUT | |
1403 BSR PSHDEF | |
1404 PC2ADD LDX PC | |
1405 BRA INCPC | |
1406 ** | |
1407 * PUSH STRCK & DEFINE | |
1408 ** | |
1409 PSHDEF LDX SP | |
1410 BSR PCST | |
1411 LEAX -2,X | |
1412 STX SP | |
1413 RTS | |
1414 ** | |
1415 OUTPC3 BSR AOUT | |
1416 LDD PC | |
1417 ADDD #3 | |
1418 BRA PCST2 | |
1419 ** | |
1420 * LDA R,X | |
1421 LDAAX LDA #$B7 | |
1422 BSR OUTPC3 | |
1423 LDA #$A6 | |
1424 LA1 BSR AOUT | |
1425 BRA INCPC1 | |
1426 ** | |
1427 * STA B,X | |
1428 STABX LDA #$F7 | |
1429 BSR OUTPC3 | |
1430 LDA #$A7 | |
1431 BRA LA1 | |
1432 ** | |
1433 * STACK TOP CHANGE | |
1434 ** | |
177 | 1435 STCHG PSHS U,Y |
1436 LDU SP | |
1437 PULU X,Y | |
1438 STX ,--U | |
1439 STY ,--U | |
1440 PULS U,Y,PC | |
121 | 1441 ** |
122 | 1442 * PUTHSL output with address calculation |
162 | 1443 * only working on 3 byte 16/17 (LBRA/LBSR) |
122 | 1444 ** |
1445 PUTHSL LDX ,S++ | |
1446 LDB ,X+ | |
1447 LDA ,X+ | |
1448 LBSR PUTA | |
1449 LDD ,X++ | |
124 | 1450 leay 0,pcr |
122 | 1451 leay d,y |
1452 exg d,y | |
162 | 1453 addd modofs |
1454 subd pc | |
122 | 1455 ldy pc |
1456 std ,y++ | |
1457 sty pc | |
1458 JMP ,X | |
1459 ** | |
1460 ** | |
121 | 1461 * END OF LOAD |
1462 ** | |
1463 ENDL LDX PFTBEG | |
1464 LDA PFMAX | |
1465 EL1 BEQ EL | |
1466 TST ,X | |
1467 BEQ UDERR | |
1468 EL2 LEAX 3,X | |
162 | 1469 DECA |
121 | 1470 BRA EL1 |
1471 UDERR PSHS A | |
1472 STA ZR | |
1473 SUBA PFMAX | |
1474 NEGA | |
1475 PSHS A | |
1476 LBSR PUTSTR | |
1477 FDB $0D0A | |
1478 FCC "UNDEF",0 | |
1479 PULS A | |
1480 LBSR PUTCA | |
1481 PULS A | |
1482 LDX ZR | |
1483 BRA EL2 | |
1484 EL LDX PC | |
126
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
1485 LBRA C |
121 | 1486 |
164 | 1487 modsetup |
1488 pshs x,y,u | |
1489 lda #$ff | |
1490 sta <runmod | |
1491 ldy <pc | |
1492 ldd #$87CD | |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1493 std ,y |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1494 leay 4,y skip size |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1495 ldd #$0d module name offset |
164 | 1496 std ,y++ |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1497 ldd #$1180 type language |
164 | 1498 std ,y++ |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1499 ldd #$1a00 attribue rev |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1500 leay 5,y |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1501 * put module name |
164 | 1502 ldx ,s |
1503 bsr mkmodnam | |
165 | 1504 tfr y,d |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1505 leax crt0top,pcr |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1506 pshs x |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1507 subd ,s++ |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1508 subd #2 |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1509 std modofs |
164 | 1510 leau crt0top,pc |
1511 ldx #LIBEND-crt0top | |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1512 libcpy lda ,u+ |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1513 sta ,y+ |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1514 leax -1,x |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1515 bne libcpy |
164 | 1516 sty <PC |
1517 puls x,y,u,pc | |
1518 | |
165 | 1519 mkmodnam pshs x,y,u |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1520 m7 tfr x,u |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1521 lda ,x+ |
165 | 1522 lbeq ERROR * no file name |
167 | 1523 cmpa #' ' |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1524 bne m2 |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1525 bra m7 |
164 | 1526 m0 lda ,x+ |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1527 m2 cmpa #' ' |
167 | 1528 ble m1 |
166 | 1529 cmpa #'/' |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1530 beq m8 |
167 | 1531 cmpa #':' |
1532 bne m0 | |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1533 m8 tfr x,u |
164 | 1534 bra m0 |
1535 m1 lda ,u+ | |
167 | 1536 cmpa #' ' |
1537 ble m3 | |
166 | 1538 cmpa #'.' |
164 | 1539 beq m3 |
1540 sta ,y+ | |
1541 bra m1 | |
1542 m3 lda -1,y | |
1543 ora #$80 | |
1544 sta -1,y | |
169 | 1545 clr ,y+ |
164 | 1546 sty 2,s |
1547 puls x,y,u,pc | |
1548 | |
1549 modend leax OBJECT,u * header setup | |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1550 ldd <PC |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1551 pshs x |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1552 subd ,s++ |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1553 addd #3 |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1554 std 2,x module size |
164 | 1555 * header parity |
1556 clra | |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1557 ldb #8 |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1558 m4 eora ,x+ |
164 | 1559 decb |
1560 bne m4 | |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1561 eora #$ff |
164 | 1562 sta ,x+ header parity |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1563 leay crt0,pcr |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1564 ldd modofs |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1565 addd #11 |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1566 leay d,y |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1567 tfr y,d |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1568 pshs x |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1569 subd ,s++ |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1570 std ,x++ start address offset |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1571 clra |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1572 ldb GSIZE |
172 | 1573 addd #OBJSTART+100 |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1574 std ,x global size |
164 | 1575 * mod CRC |
1576 pshs d,u | |
1577 leax OBJECT,u | |
1578 ldu <PC | |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1579 lda #$ff |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1580 sta ,u |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1581 sta 1,u |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1582 sta 2,u |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1583 tfr u,d |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1584 pshs x |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1585 subd ,s++ |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1586 tfr d,y |
164 | 1587 os9 F$CRC |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1588 com ,u |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1589 com 1,u |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1590 com 2,u |
164 | 1591 |
1592 * write to file | |
1593 ldu 2,s | |
1594 leax OBJECT,u | |
1595 ldd 4,x | |
1596 leax d,x | |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1597 ldd #$27f 10 01111111 |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1598 os9 I$Create |
165 | 1599 lbcs ERROR |
164 | 1600 sta ,s |
1601 ldu 2,s | |
1602 leax OBJECT,u | |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1603 ldy 2,x module size |
164 | 1604 lda ,s |
1605 os9 I$Write | |
165 | 1606 lbcs ERROR |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1607 puls d,u |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
1608 clrb |
164 | 1609 os9 F$Exit all end |
1610 | |
121 | 1611 ********************** |
1612 * ADVANCE WORD | |
1613 ** | |
1614 WTABLE FCB 0 END MARK | |
1615 FCB $30,-'P' | |
1616 FCC "ROC" | |
1617 FCB $31,-'F' | |
1618 FCC "UNC" | |
124 | 1619 FCB $32,-'V' |
121 | 1620 FCC "AR" |
1621 FCB $33,-'A' | |
1622 FCC "RRAY" | |
1623 FCB $34,-'B' | |
1624 FCC "EGIN" | |
124 | 1625 FCB $35,-';' |
121 | 1626 FCB $36,-'[' |
1627 FCB $37,-'(' | |
1628 FCB $38,-'E' | |
1629 FCC "ND" | |
1630 FCB $39,-'=' | |
1631 FCB $3A,-']' | |
1632 FCB $3B,-')' | |
1633 FCB $3C,-',' | |
1634 FCB $3D,-':' | |
1635 FCB $50,-'S' | |
1636 FCC "TOP" | |
1637 FCB $51,-'R' | |
1638 FCC "ETURN" | |
1639 FCB $55,-'I' | |
1640 FCC "F" | |
1641 FCB $65,-'T' | |
1642 FCC "HEN" | |
1643 FCB $53,-'F' | |
1644 FCC "OR" | |
1645 FCB $61,-'T' | |
1646 FCC "O" | |
1647 FCB $52,-'R' | |
1648 FCC "EPEAT" | |
1649 FCB $60,-'U' | |
1650 FCC "NTIL" | |
1651 FCB $54,-'W' | |
1652 FCC "HILE" | |
1653 FCB $64,-'D' | |
1654 FCC "O" | |
1655 FCB $56,-'C' | |
1656 FCC "ASE" | |
1657 FCB $66,-'O' | |
1658 FCC "F" | |
1659 FCB $67,-'E' | |
1660 FCC "LSE" | |
1661 FCB $57,-'W' | |
1662 FCC "RITE" | |
1663 FCB $69,-'A' | |
1664 FCC "SCII" | |
1665 FCB $6A,-'S' | |
1666 FCC "PACE" | |
126
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
1667 FCB $6B,-'C' |
121 | 1668 FCC "RLF" |
1669 FCB $6C,-'"' | |
1670 FCB $8B,-'+' | |
1671 FCB $80,-'-' | |
1672 FCB $8E,-'*' | |
1673 FCB $8F,-'/' | |
1674 FCB $82,-'S' | |
1675 FCC "BC" | |
1676 FCB $84,-'A' | |
1677 FCC "ND" | |
1678 FCB $88,-'E' | |
1679 FCC "OR" | |
1680 FCB $89,-'A' | |
1681 FCC "DC" | |
1682 FCB $8A,-'O' | |
1683 FCC "R" | |
1684 FCB $22,-'>' | |
1685 FCB $25,-'<' | |
1686 FCB $26,-'#' | |
1687 FCB $27,-'=' | |
1688 FCB $2D,-'L','T' | |
1689 FCB $2E,-'G','T' | |
1690 FCB $40,-'N','E','G' | |
1691 FCB $43,-'N','O','T' | |
1692 FCB,$43,-'C','O','M' | |
1693 FCB $44,-'L','S','R' | |
1694 FCB $46,-'R','O','R' | |
1695 FCB $47,-'A','S','R' | |
1696 FCB $48,-'A','S','L' | |
1697 FCB $49,-'R','O','L' | |
1698 FCB $06,-'M','E','M' | |
1699 FCB $A0,-'T' | |
1700 FCC "RUE" | |
1701 FCB $A1,-'F' | |
1702 FCC "ALSE" | |
1703 FCB $16,-'M' | |
1704 FCC "HIGH" | |
1705 FCB $17,-'M' | |
1706 FCC "OD" | |
1707 FCB $70,-'R','N','D' | |
1708 FCB $71,-'G','E','T' | |
1709 FCB $72,-'R' | |
1710 FCC "EAD" | |
175 | 1711 FCB $A2,-'S' |
177 | 1712 FCC "EEK" |
175 | 1713 FCB $A3,-'S' |
177 | 1714 FCC "EEKR" |
175 | 1715 FCB $A4,-'P' |
1716 FCC "OSITION" | |
1717 FCB $A5,-'O' | |
1718 FCC "PEN" | |
1719 FCB $A6,-'O' | |
1720 FCC "PENM" | |
121 | 1721 WTBLEND |
126
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
1722 |
121 | 1723 ****** |
126
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
1724 * SUPORTING ROUTINES |
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
1725 * & I/0 CONTROL |
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
1726 ** |
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
1727 |
164 | 1728 crt0top |
1729 | |
121 | 1730 ** |
1731 * RND FUNCTION | |
1732 ** | |
1733 RND PSHS A | |
1734 LDA RNDL | |
1735 LDB #125 | |
1736 MUL | |
1737 ADDD #1 | |
1738 STA RNDL | |
1739 PSHS A | |
1740 LDA RNDH | |
1741 LDB #125 | |
1742 MUL | |
1743 ADDA ,S+ | |
1744 STA RNDH | |
1745 PULS B | |
1746 MUL | |
1747 INCA | |
175 | 1748 NONE |
121 | 1749 RTS |
1750 ** | |
1751 * DVISITION SET MOD | |
1752 ** | |
1753 DIV STB WT1 | |
1754 BEQ ERDIV | |
1755 TFR A,B | |
1756 CLRA | |
1757 STA WT2 | |
1758 DV0 INC WT2 | |
1759 ASL WT1 | |
1760 BCC DV0 | |
1761 DV1 ROR WT1 | |
1762 CMPB WT1 | |
1763 BCS DV2 | |
1764 SUBB WT1 | |
1765 ORCC #1 | |
1766 BRA *+4 | |
1767 DV2 ANDCC #$FE CLR C | |
1768 ROLA | |
1769 DEC WT2 | |
1770 BNE DV1 | |
1771 STB MOD | |
1772 TSTA | |
1773 RTS | |
1774 ** | |
1775 ERDIV STB OUTDN | |
1776 LBSR CRLF | |
1777 LBSR PUTSTR | |
1778 FCC "ERR DIV 0",0 | |
127
321b7fffadab
TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
126
diff
changeset
|
1779 MONIT lbra exit |
121 | 1780 ** |
1781 MULT MUL | |
1782 STA MHIGH | |
1783 TFR B,A | |
1784 RTS | |
1785 ** | |
1786 * PUT A IN DECIMAL | |
1787 ** | |
1788 PUTDA CLRB | |
1789 PUTDR STB DREG | |
136 | 1790 PSHS X |
126
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
1791 LEAX -2,S |
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
1792 LEAS -6,S |
121 | 1793 CLR 1,X |
1794 LDB #3 | |
1795 P0 PSHS B | |
1796 LDB #10 | |
1797 BSR DIV | |
1798 ADDB #$30 | |
1799 STB ,X | |
1800 LEAX -1,X | |
1801 PULS B | |
1802 DECB | |
1803 BNE P0 | |
1804 COM 3,X | |
1805 LDA #'0' | |
1806 LDB #4 | |
1807 P1 LEAX 1,X | |
1808 DECB | |
1809 CMPA ,X | |
1810 BEQ P1 | |
1811 COM 4,S | |
1812 LDA DREG | |
1813 PSHS B | |
1814 SUBA ,S+ | |
1815 BCS PRX | |
1816 BSR SPACEA | |
126
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
1817 PRX LDA ,X |
121 | 1818 BEQ P4 |
122 | 1819 LBSR PUTCA |
121 | 1820 LEAX 1,X |
1821 BRA PRX | |
126
f43ca5d22920
fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
125
diff
changeset
|
1822 P4 LEAS 6,S |
136 | 1823 CL1 PULS X,PC |
121 | 1824 ** |
1825 * GET IN A DECIMAL | |
1826 ** | |
1827 GETDA CLRA | |
1828 PSHS A | |
122 | 1829 LBSR GETCA |
121 | 1830 CMPA #RUB |
1831 BNE GD1 | |
1832 PULS A | |
1833 LDB #10 | |
1834 LBSR DIV | |
1835 BRA GETDA+1 | |
1836 GD1 SUBA #'0' | |
1837 BCS GD2 | |
1838 CMPA #10 | |
1839 BCC GD2 | |
1840 STA DBUF | |
1841 PULS A | |
1842 LDB #10 | |
1843 MUL | |
1844 ADDB DBUF | |
1845 TFR B,A | |
1846 BRA GETDA+1 | |
1847 GD2 PULS A,PC | |
1848 ** | |
1849 * SPACE A TIMES | |
1850 ** | |
1851 SPACEA BEQ CL1 | |
1852 PSHS A | |
1853 LDA #' ' | |
122 | 1854 LBSR PUTCA |
121 | 1855 PULS A |
1856 DECA | |
1857 BRA SPACEA | |
1858 ** | |
1859 * STR OUT | |
1860 ** | |
1861 PUTSTR PSHS X | |
1862 LDX 2,S | |
1863 STR1 LDA ,X+ | |
1864 BEQ STR2 | |
1865 LBSR PUTCA | |
1866 BRA STR1 | |
1867 STR2 STX 2,S | |
1868 PULS X,PC | |
1869 ** | |
1870 * CRLF | |
1871 ** | |
1872 CRLF LDA #$0D | |
1873 BSR PUTCA | |
1874 LDA #$0A | |
1875 BRA PUTCA | |
1876 ** | |
1877 * CRLF A TIMES | |
1878 ** | |
1879 CRLFA BEQ CL1 | |
1880 PSHS A | |
1881 BSR CRLF | |
1882 PULS A | |
1883 DECA | |
1884 BRA CRLFA | |
1885 | |
1886 | |
1887 Exit lbsr setecho | |
1888 * ldx <work | |
1889 * leax readbuff,x | |
1890 * ldb #1 | |
1891 * lbsr getline | |
1892 * lbsr getpoll | |
1893 * lda <stdin | |
1894 * os9 I$Close | |
1895 | |
1896 clrb | |
1897 os9 F$Exit | |
1898 * no return | |
1899 | |
1900 | |
1901 | |
1902 err ldb #1 | |
1903 L0049 | |
1904 bra Exit | |
1905 | |
1906 | |
135
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1907 PUTCA tfr a,b |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1908 putchar * Output one character in B register. |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1909 PSHS X,Y |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1910 BRA OUTCH1 |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1911 |
121 | 1912 close |
1913 lda <INDN else get path | |
1914 os9 I$Close and close it | |
1915 bcs L0049 branch if error | |
1916 rts | |
1917 | |
1918 MEMIN | |
1919 PSHS A,B,X,Y | |
135
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1920 ldx <adr |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1921 lda ,x+ |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1922 bne GETCA1 |
121 | 1923 LDA INDN |
135
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1924 LEAX readbuff,u |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1925 LDY #bufsiz |
121 | 1926 OS9 I$Read |
1927 BCC GETCA0 | |
1928 lda #'/' | |
135
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1929 ldx <adr |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1930 bra GETCA1 |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1931 GETCA0 LEAX readbuff,u |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1932 tfr y,d |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1933 clr d,x eof |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1934 lda ,x+ |
7503617351c0
TL/1 buffered program read
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
132
diff
changeset
|
1935 GETCA1 stx <adr |
123 | 1936 sta ,s |
121 | 1937 PULS A,B,X,Y,PC |
1938 | |
1939 GETCA bsr getchar | |
1940 tfr b,a | |
1941 rts | |
1942 | |
1943 getchar * Input one character into B register. | |
1944 PSHS A,B,X,Y | |
1945 GETCH0 | |
1946 LDA INDN | |
123 | 1947 LEAX ,S |
121 | 1948 LDY #1 |
1949 OS9 I$Read | |
1950 BCS GETCH0 | |
1951 PULS A,B,X,Y,PC | |
1952 putcr * Output a newline. | |
1953 LDB #C$CR | |
1954 bsr putchar | |
1955 LDB #C$LF | |
1956 PSHS X,Y | |
1957 OUTCH1 PSHS A,B | |
1958 LEAX 1,S | |
1959 LDA OUTDN | |
1960 LDY #1 | |
1961 OS9 I$Write | |
1962 PULS A,B,X,Y,PC | |
1963 getpoll | |
1964 PSHS X,Y,D | |
1965 LDA #0 | |
1966 LDB #SS.Ready | |
1967 OS9 I$GetStt | |
1968 CMPB #$F6 Not Ready | |
1969 BNE RSENSE | |
1970 CLRB | |
1971 PULS X,Y,D,PC | |
1972 RSENSE | |
1973 ORCC #1 set carry to indicate ready | |
1974 RNSENSE | |
1975 PULS X,Y,D,PC | |
1976 | |
145 | 1977 ferr clr <OUTDN |
1978 ldx <parmptr | |
1979 floop ldb ,x+ | |
1980 beq ferr1 | |
1981 cmpb #$0d | |
1982 beq floop | |
1983 lbsr putchar | |
1984 bra floop | |
1985 ferr1 lbsr putstr | |
1986 fcc " is not found",0 | |
1987 lbra L0049 | |
1988 | |
121 | 1989 getline * Input line at address in X, length in B. |
1990 PSHS A,B,X,Y | |
1991 clr ,s | |
1992 GETLN0 | |
1993 ldy ,s | |
1994 lda INDN | |
1995 OS9 I$ReadLn | |
1996 BCS GETLN0 | |
1997 LEAY -1,Y | |
1998 GETLN1 STY ,S | |
1999 PULS A,B,X,Y,PC | |
2000 putline * Output string at address in X, length in B. | |
2001 PSHS A,B,X,Y | |
2002 CLRA | |
2003 TFR D,Y | |
2004 lda OUTDN | |
2005 OS9 I$WritLn | |
2006 PULS A,B,X,Y,PC | |
2007 | |
2008 setecho lda #1 | |
2009 bra sss | |
2010 noecho clra | |
2011 sss leas -128,s | |
2012 leax ,s | |
2013 pshs a | |
2014 clra | |
2015 ldb #SS.Opt | |
2016 OS9 I$GetStt | |
2017 bcs err2 | |
2018 LDA ,s | |
2019 STA PD.EKO-PD.OPT,X | |
2020 setopts | |
2021 ldb #SS.Opt | |
2022 clra | |
2023 OS9 I$SetStt | |
2024 err2 | |
2025 puls a | |
2026 leas 128,s | |
2027 rts | |
2028 | |
2029 | |
2030 delay PSHS D,X * address **$21** | |
2031 * On input the D register contains the number of timer | |
2032 * ticks to wait. Each timer tick is 20ms | |
2033 TFR D,X | |
2034 OS9 F$Sleep | |
2035 PULS D,X,PC | |
164 | 2036 |
165 | 2037 crt0 stx <arg |
164 | 2038 leax OBJSTART,u |
172 | 2039 leay ,x |
164 | 2040 * compiled code follows |
2041 | |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
167
diff
changeset
|
2042 LIBEND equ * |
121 | 2043 |
2044 | |
2045 emod | |
2046 eom equ * | |
2047 end | |
2048 |