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