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