annotate TL1/TL1os9.asm @ 127:321b7fffadab

TL/1 simple test worked
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 05 Jan 2019 19:08:54 +0900
parents f43ca5d22920
children 36000611014b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 *******TL/1*************
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 nam tl1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 ttl TL1 compiler
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 ifp1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 use defsfile
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 endc
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 * Module header definitions
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 tylg set Prgrm+Objct
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 atrv set ReEnt+rev
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 rev set $00
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 edition set 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 mod eom,name,tylg,atrv,start,size
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 TXTTOP EQU $FB7E
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 INDN RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 OUTDN RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 LB RMB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 GB RMB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 MHIGH RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 MOD RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 WT1 RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 WT2 RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 RNDH RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 RNDL RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 DREG RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 DBUF RMB 3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 XR RMB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 YR RMB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 ZR RMB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 PFTBEG RMB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
35 PC RMB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 SREG RMB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 SP RMB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 PFMAX RMB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 LSW RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 SY RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
41 CH RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 VAL RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 GL RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
44 OPER RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 GLL RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
46 INDEX RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
47 RMCODE RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 ACC RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 LSIZE RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
50 TCOUNT RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
51 TEND RMB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
52 WEND RMB 2
127
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
53 AMODE RMB 1 0x20 main, 1 proc, 0 ?
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
54 RSW RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
55 GEND RMB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
56 SSW RMB 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
57
126
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
58 **
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
59 * LIBRARY ADDRESSS TABLE
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
60 **
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
61 LIBR equ .
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
62 ioentry rmb $80
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
63 filepath rmb 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
64 parmptr rmb 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
65 stdin rmb 1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
66 adr rmb 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
67 work rmb 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
68 readbuff rmb $100
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
69
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
70 OBJSTART RMB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
71
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
72
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
73 * OBJECT PG AREA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
74
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
75 WTBLE RMB $500+$100
126
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
76 MSTACK RMB $140
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
77
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
78 OBJECT RMB 2048 * NOP
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
79 RUB equ 8
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
80
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
81 size equ .
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
82
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
83 name fcs /TL1/
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
84 fcb edition
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
85
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
86 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
87 COMP CLRA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
88 STA OUTDN
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
89 STA LSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
90 STA INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
91 STA AMODE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
92 STA LSIZE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
93 STA RSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
94 STA PFMAX
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
95 leax MSTACK,u
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
96 STX SP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
97 LEAX 2,x
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
98 STX PFTBEG
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
99 CLRB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
100 C1 STA ,X+
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
101 DECB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
102 BNE C1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
103 INCA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
104 STA TCOUNT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
105 LDA #' '
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
106 STA CH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
107 ** copy reserved word table
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
108 LEAX WTABLE,PCR
123
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 122
diff changeset
109 leay WTBLE,u
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
110 ldb #WTBLEND-WTABLE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
111 tbl1 lda ,x+
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
112 sta ,y+
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
113 decb
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
114 bne tbl1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
115 sty TEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
116 LEAX OBJECT,u
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
117 STX PC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
118 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
119 LBSR CRLF
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
120 BSR REG0
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
121 LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
122 CMPA #$30 PROC?
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
123 BNE *+4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
124 BSR REGNAM
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
125 BSR REG0
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
126 CMPA #$31 FUNC?
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
127 BNE *+4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
128 BSR REGNAM
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
129 CLR LSIZE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
130 BSR REG0
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
131 LBSR PROG
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
132 LBSR STPOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
133 LDX TEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
134 STX GEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
135 PLOOP LDA SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
136 CMPA #$8F /END CODE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
137 LBEQ ENDL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
138 CMPA #$4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
139 BCC ERR4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
140 DECA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
141 STA AMODE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
142 LDA VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
143 LBSR DEFPF
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
144 LBSR PUTHSL
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
145 FDB $03BD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
146 FDB PSHLB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
147 BSR REG0
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
148 CLR LSIZE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
149 LBSR WORD
127
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
150 CMPA #$37 (
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
151 BNE PL1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
152 BSR REGNAM
127
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
153 LDA #$3B )
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
154 LBSR CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
155 PL1 BSR PROG
127
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
156 * LDB AMODE
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
157 * CMPB #1
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
158 * BNE *+5
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
159 LBSR RETP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
160 LDX GEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
161 STX TEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
162 LDB #5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
163 STB TCOUNT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
164 BRA PLOOP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
165 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
166 * REGIST ZERO
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
167 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
168 REG0 LDX TEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
169 CLR ,X+
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
170 STX TEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
171 INC TCOUNT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
172 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
173 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
174 * REGIST NAME
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
175 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
176 REGNAM COM RSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
177 LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
178 LDB RSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
179 BEQ *+5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
180 ERR4 LBRA ERROR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
181 LDX TEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
182 LDA LSIZE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
183 STA ,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
184 INC LSIZE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
185 LDX WEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
186 STX TEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
187 BSR WORD1
127
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
188 CMPA #$36 [
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
189 BNE REG2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
190 BSR WORD1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
191 BNE ERR4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
192 LDA VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
193 ADDA LSIZE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
194 BSR WORD1
124
f065d9718442 fix word table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 123
diff changeset
195 LDA #$3A ":"
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
196 LBSR CHECK
124
f065d9718442 fix word table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 123
diff changeset
197 REG2 CMPA #$3C "," get next word
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
198 BEQ REGNAM
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
199 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
200 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
201 * PROGRAM
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
202 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
203 PROG CMPA #$32 VAR?
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
204 BNE *+4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
205 BSR REGNAM
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
206 BSR REG0
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
207 CMPA #$33 ARRAY?
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
208 BNE *+4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
209 BSR REGNAM
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
210 LDB #-1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
211 STB INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
212 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
213 * STATEMENT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
214 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
215 STAT BSR SSTAT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
216 LDB SSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
217 BEQ RTS1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
218 LBRA ERROR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
219 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
220 * STATEMENTS LIST
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
221 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
222 STLIST BSR SSTAT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
223 LDB SSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
224 BEQ STLIST
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
225 RTS1 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
226 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
227 * SINGLE STATEMENT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
228 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
229 SSTAT CLRA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
230 STA ACC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
231 STA SSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
232 LDA SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
233 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
234 * MULTIPLE STATEMENTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
235 **
127
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
236 SS1 CMPA #$34 BEGIN
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
237 BCS SS2
127
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
238 CMPA #$38 END
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
239 BCC SS2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
240 ADDA #4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
241 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
242 BSR WORD1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
243 BSR STLIST
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
244 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
245 CLR SSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
246 LBRA CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
247 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
248 * STOP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
249 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
250 SS2 CMPA #$50
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
251 BNE SS3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
252 BSR STPOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
253 WORD1 LBRA WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
254 **
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
255 STPOUT LBSR PUTHSL
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
256 FCB 3,$7E
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
257 FDB exit
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
258 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
259 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
260 * RETURN
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
261 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
262 SS3 CMPA #$51
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
263 BNE SS4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
264 LDB AMODE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
265 LBEQ ERR4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
266 PSHS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
267 BSR WORD1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
268 PULS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
269 DECB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
270 BEQ RETP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
271 LBSR EXPR
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
272 RETP LBSR PUTHSL
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
273 FDB $037E
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
274 FDB PULLB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
275 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
276 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
277 * PROC CALL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
278 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
279 SS4 CMPA #2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
280 LBEQ PFCALL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
281 CMPA #$E0
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
282 BCS SS5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
283 LBRA PFCALL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
284 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
285 * ASSIGNMENT STATEMENT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
286 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
287 SS5 CMPA #7
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
288 BCS ASSIGN
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
289 LBRA SS6
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
290 ASSIGN LDB GL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
291 PSHS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
292 LDB VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
293 PSHS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
294 CMPA #5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
295 BNE ASS1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
296 LBSR SUBSC1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
297 LDB ,S
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
298 LDA LSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
299 BNE AS0
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
300 LDA #$8B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
301 LBSR PUTAB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
302 LDA #1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
303 BRA AS2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
304 AS0 ADDB OPER
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
305 STB ,S
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
306 CLR LSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
307 BRA AS1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
308 ASS1 CMPA #6
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
309 BNE ASS2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
310 LBSR DSUBSC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
311 LDA #2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
312 BRA AS2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
313 ASS2 CMPA #4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
314 BEQ *+5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
315 LBRA ERROR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
316 LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
317 AS1 CLRA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
318 AS2 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
319 LDA SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
320 CMPA #$3C
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
321 BNE *+9
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
322 LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
323 BSR ASSIGN
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
324 BRA AS3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
325 LDA #$3D
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
326 LBSR CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
327 LDA #$27
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
328 LBSR CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
329 LBSR EXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
330 AS3 PULS D
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
331 STB OPER 4--
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
332 PULS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
333 STB GLL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
334 TSTA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
335 BNE AS4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
336 LBSR PUTX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
337 LDA #$A7
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
338 LDB OPER
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
339 LBRA PUTAB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
340 AS4 DECA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
341 BNE AS5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
342 LBSR PUTX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
343 LDA #$33
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
344 LBSR PUTA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
345 LBRA STABX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
346 AS5 LBSR PUTHS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
347 FCB 10
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
348 FDB $33D7
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
349 FCB WT2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
350 FDB $33D7
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
351 FCB WT1 $9E,WT2
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
352 FDB $A700
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
353 CLR INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
354 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
355 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
356 ** NON-STATEMENT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
357 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
358 SSEND COM SSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
359 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
360 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
361 SS6 CMPA #$58
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
362 BCC SSEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
363 CMPA #$52
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
364 BCS SSEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
365 SUBA #$51
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
366 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
367 LBSR WORD
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
368 PULS B B keyword A next token
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
369 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
370 * REPEAT UNTIL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
371 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
372 DECB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
373 BNE SS7
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
374 STB INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
375 BSR ASTOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
376 LBSR STLIST
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
377 LDA #$60
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
378 LBSR CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
379 LBSR EXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
380 LBSR PUTHS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
381 FCB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
382 FDB $2603
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
383 CLR SSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
384 BRA MINOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
385 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
386 * FOR-TO
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
387 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
388 SS7 DECB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
389 BNE SS8
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
390 CMPA #4 should be simple var
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
391 BEQ *+5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
392 LBRA ERROR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
393 LDB VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
394 PSHS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
395 LDB GL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
396 PSHS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
397 LBSR ASSIGN
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
398 LDA #$61 to
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
399 LBSR CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
400 CLR ACC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
401 LBSR EXPR
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
402 LDA #$64 do
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
403 LBSR CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
404 BSR ASTOUT
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
405 LDD #$3402 pshs a
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
406 LBSR PUTAB
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
407 CLR INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
408 LBSR STAT
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
409 LDD #$3502 puls a
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
410 LBSR PUTAB
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
411 PULS D
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
412 STA GLL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
413 STB OPER
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
414 LDA #$A1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
415 LBSR PUTABX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
416 LBSR PUTHS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
417 FCB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
418 FDB $2305
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
419 LDA #$6C
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
420 LDB OPER
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
421 LBSR PUTAB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
422 MINOUT LBRA PULJMP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
423 ASTOUT LBRA PSHDEF
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
424 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
425 * WHILE-DO
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
426 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
427 SS8 DECB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
428 BNE SS9
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
429 STB INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
430 BSR ASTOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
431 LBSR EXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
432 LDA #$64
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
433 LBSR CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
434 LBSR PUTHS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
435 FCB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
436 FDB $2603
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
437 BSR SLAOUT
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
438 LDB INDEX
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
439 PSHS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
440 LBSR STAT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
441 PULS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
442 STB INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
443 BSR PEROUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
444 BSR MINOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
445 PLUOUT LBRA PULDEF
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
446 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
447 ** IF—THEN
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
448 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
449 SS9 DECB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
450 BNE SS10
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
451 LBSR EXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
452 LDA #$65
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
453 LBSR CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
454 LBSR PUTHS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
455 FCB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
456 FDB $2603
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
457 BSR SLAOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
458 LDB INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
459 PSHS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
460 LBSR STAT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
461 PULS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
462 CMPB INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
463 BEQ *+4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
464 CLR INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
465 BRA PLUOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
466 SLAOUT LBRA PSHJMP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
467 PEROUT LBRA STCHG
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
468 ***
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
469 * CASE—OF
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
470 SS10 DECB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
471 BNE SS11
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
472 LBSR EXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
473 LDA #$66
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
474 LBSR CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
475 CLRB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
476 S10A INCB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
477 PSHS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
478 STB ACC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
479 LBSR LEXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
480 LDA #$81
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
481 LBSR AOPER
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
482 LBSR PUTHS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
483 FCB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
484 FDB $2703
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
485 BSR SLAOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
486 LDB INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
487 PSHS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
488 LBSR STAT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
489 BSR SLAOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
490 BSR PEROUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
491 BSR PLUOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
492 PULS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
493 STB INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
494 PULS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
495 LDA SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
496 CMPA #$67
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
497 BNE S10A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
498 PSHS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
499 LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
500 LBSR STAT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
501 CLR INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
502 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
503 LBRA PLDFN
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
504 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
505 * WRITE STATEMENT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
506 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
507 SS11 LDA #$37
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
508 LBSR CHECK
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
509 LBSR EXPR output channel number
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
510 LBSR PUTHS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
511 FDB $0297
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
512 FCB OUTDN
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
513 LDA #$3D
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
514 LBSR CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
515 WTLP CLR ACC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
516 BSR WTERM
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
517 LDA SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
518 CMPA #$3C
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
519 BNE WTEN
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
520 LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
521 BRA WTLP
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
522 WTEN LDA #$3B
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
523 LBRA CHECK
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
524 ** write command argument
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
525 WTERM CMPA #$6C string
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
526 BNE WR1
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
527 LBSR PUTHSL
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
528 FDB $03BD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
529 FDB PUTSTR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
530 LDA CH
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
531 WR01 CMPA #'"' copy until '"'
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
532 BEQ WR02
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
533 LBSR PUTA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
534 LBSR GETCH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
535 BRA WR01
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
536 WR02 CLRA put 0 at end
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
537 STA INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
538 LBSR PUTA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
539 LBSR GETCH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
540 LBRA WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
541 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
542 WR1 CMPA #$6B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
543 BNE WR3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
544 LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
545 CMPA #$37
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
546 BEQ WR2
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
547 LBSR PUTHSL
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
548 FDB $03BD
126
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
549 FDB CRLF
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
550 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
551 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
552 WR2 LBSR WEXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
553 BSR WTEN
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
554 LBSR PUTHSL
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
555 FDB $03BD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
556 FDB CRLFA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
557 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
558 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
559 WR3 CMPA #$6A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
560 BNE WR4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
561 LBSR SUBSC
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
562 LBSR PUTHSL
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
563 FDB $03BD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
564 FDB SPACEA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
565 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
566 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
567 WR4 CMPA #$A9
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
568 BNE WR5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
569 LBSR SUBSC
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
570 LBSR PUTHSL
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
571 FDB $03BD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
572 FDB PUTCA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
573 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
574 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
575 WR5 CMPA #$26
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
576 BNE WR6
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
577 LBSR DSUBSC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
578 LBSR PUTPLB
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
579 LBSR PUTHSL
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
580 FDB $03BD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
581 FDB PUTDA+1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
582 BRA WR66
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
583 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
584 WR6 LBSR EXPR
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
585 LBSR PUTHSL
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
586 FDB $03BD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
587 FDB PUTDA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
588 WR66 CLR INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
589 RTS11 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
590 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
591 * PUTX & PUTB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
592 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
593 PUTABX PSHS D
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
594 BSR PUTX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
595 PULS D
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
596 BRA PUTAB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
597 **
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
598 * PUT LB, OR GB BY INDEX
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
599 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
600 PUTX LDB GLL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
601 CMPB INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
602 BEQ RTS11
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
603 STB INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
604 ADDB #LB+1
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
605 LDA #$9E
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
606 ***
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
607 * PUT ACC A&B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
608 **
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
609 PUTAB BSR PUTA
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
610 TFR B,A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
611 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
612 * PUT ACCA RS AN OBJECT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
613 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
614 PUTA STX RNDH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
615 LBSR AOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
616 LDX RNDH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
617 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
618 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
619 * PUTHS STRING
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
620 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
621 PUTHS LDX ,S++
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
622 LDB ,X+
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
623 PS1 LDA ,X+
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
624 BSR PUTA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
625 DECB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
626 BNE PS1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
627 JMP ,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
628 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
629 ** CHECK ACC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
630 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
631 CHECK CMPA SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
632 BEQ WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
633 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
634 * ERROR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
635 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
636 ERROR LBSR PUTSTR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
637 FDB $0D0A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
638 FCC "ERROR ",0
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
639 LDX TEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
640 LEAX 1,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
641 NEG ,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
642 ER0 LDA ,X+
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
643 LBSR PUTCA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
644 CMPX WEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
645 BNE ER0
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
646 lbra exit
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
647 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
648 * WORD DECORDER
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
649 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
650 WORD BSR WORDS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
651 LDA SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
652 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
653 WORDS CLRB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
654 STB SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
655 STB VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
656 LDA CH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
657 ** SKIP CONT ,SPACE.;
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
658 WD1 CMPA #$21
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
659 BCS SKIP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
660 CMPA #'.'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
661 BEQ SKIP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
662 CMPA #';'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
663 BNE WD2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
664 SKIP BSR GETCH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
665 BRA WD1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
666 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
667 * COMMENT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
668 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
669 WD2 CMPA #'%'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
670 BNE WD3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
671 BSR GETCH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
672 CMPA #$20
123
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 122
diff changeset
673 BCC *-4
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
674 BRA WD1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
675 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
676 * ASCC CONST
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
677 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
678 WD3 CMPA #'\''
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
679 BNE WD4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
680 BSR GETCH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
681 STA VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
682 BSR GETCH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
683 GETCH PSHS X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
684 LBSR MEMIN
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
685 STA CH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
686 PULS X,PC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
687 * HEX CONSTANT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
688 WD4 CMPA #'$'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
689 BNE WD5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
690 WD40 BSR GETCH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
691 BSR TSTNA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
692 BEQ WD41
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
693 BCC RTS2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
694 CMPA #'F'+1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
695 BCC RTS2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
696 SUBA #7
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
697 WD41 SUBA #'0'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
698 LDB VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
699 ASLB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
700 ASLB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
701 ASLB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
702 ASLB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
703 PSHS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
704 ADDA ,S+
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
705 STA VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
706 BRA WD40
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
707 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
708 * TEST ALPHA NUMERIC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
709 TSTNA CMPA #'0'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
710 BCS NAF
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
711 CMPA #'9'+1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
712 BCS NT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
713 CMPA #'A'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
714 BCS NAF
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
715 CMPA #'Z'+1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
716 BCS AT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
717 NAF CLRB CLEAR C
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
718 AT LDB #-1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
719 RTS2 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
720 NT CLRB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
721 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
722 ** DECIMAL CONSTANT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
723 WD5 BSR TSTNA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
724 BNE WD6
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
725 WD50 SUBA #'0'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
726 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
727 LDA VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
728 LDB #10
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
729 MUL
127
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
730 ADDB ,S+
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
731 STB VAL
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
732 BSR GETCH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
733 BSR TSTNA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
734 BEQ WD50
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
735 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
736 * THE OTHER WORDS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
737 WD6 LDX TEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
738 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
739 NEGA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
740 LEAX 1,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
741 BSR STAONE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
742 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
743 BSR TSTNA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
744 BCC TLOOK1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
745 WD61 LDA CH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
746 BSR TSTNA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
747 BCS *+4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
748 BNE TLOOK1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
749 BSR STAONE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
750 BRA WD61
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
751 STAONE STA ,X+
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
752 STX WEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
753 BRA GETCH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
754 TLOOK1 LDA RSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
755 BEQ TLOOK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
756 COM RSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
757 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
758 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
759 * WORD TABLE SEARCH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
760 **
123
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 122
diff changeset
761 TLOOK PSHS U
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 122
diff changeset
762 LDA TCOUNT
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
763 STA SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
764 LDX TEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
765 S01 LDU WEND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
766 S02 LDA ,-U
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
767 CMPA ,-X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
768 BEQ S06
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
769 S03 TST ,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
770 BEQ S05
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
771 BMI S04
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
772 LEAX -1,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
773 BRA S03
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
774 S04 LEAX -1,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
775 BRA S01
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
776 S05 DEC SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
777 BNE S01
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
778 LBRA ERROR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
779 S06 TSTA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
780 BPL S02
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
781 LDB ,-X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
782 STB VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
783 LDA SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
784 CMPA #1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
785 BNE *+6
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
786 TFR B,A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
787 BRA S07
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
788 CMPA #4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
789 BCS RTSS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
790 LDB #1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
791 TST AMODE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
792 BEQ *+6
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
793 CMPA #6
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
794 BCS *+3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
795 NEGB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
796 STB GL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
797 ANDA #$FD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
798 S07 STA SY
123
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 122
diff changeset
799 RTSS PULS U,PC
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
800 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
801 * ARITHMATIC EXPRESSION
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
802 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
803 WEXPR LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
804 EXPR BSR LEXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
805 BSR OLOAD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
806 RTE RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
807 ** WORD * LEXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
808 WLEXPR LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
809 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
810 * LOGICAL EXPRESSION
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
811 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
812 LEXPR BSR REXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
813 LE1 LDY SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
814 CMPA #$82
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
815 BCS RTE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
816 CMPA #$8A+1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
817 BCC RTE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
818 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
819 LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
820 BSR REXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
821 LDB LSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
822 BNE LE2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
823 LBSR PUTHS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
824 FDB $0397
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
825 FCB WT1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
826 FCB $32
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
827 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
828 ADDA #$10
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
829 LDB #WT1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
830 LBSR PUTAB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
831 BRA LE1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
832 LE2 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
833 BSR OCORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
834 BRA LE1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
835 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
836 * RELATIONAL EXPRESS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
837 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
838 REXPR BSR AEXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
839 RE1 LDA SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
840 CMPA #$21
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
841 BCS RTE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
842 CMPA #$30
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
843 BCC RTE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
844 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
845 LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
846 ASR AEXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
847 LDA #$80
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
848 BSR AOPER
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
849 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
850 LBSR PUTHS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
851 FCB 6
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
852 FCB $3,$4F,$20,$02,$86,$FF
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
853 BRA RE1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
854 ** ADDING OPERATFR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
855 AOPER LDB LSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
856 BNE OCORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
857 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
858 CMPA #$80
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
859 BEQ *+5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
860 BSR PUTPUL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
861 FCB $8C
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
862 BSR PUTPLB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
863 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
864 SUBA #$70
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
865 PUTA1 LBRA PUTA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
866 ** OUTPUT SAVED L-CC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
867 OLOAD LDA LSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
868 BEQ RTE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
869 LDA ACC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
870 BEQ *+6
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
871 LDA #$36
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
872 BSR PUTA1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
873 LDA #$86
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
874 OCORD PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
875 CLRA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
876 STA LSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
877 COMA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
878 STA ACC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
879 LDA AMODE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
880 CMPA #$20
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
881 BNE *+5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
882 LBSR PUTX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
883 CLR LSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
884 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
885 ADDA AMODE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
886 LDB OPER
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
887 LBRA PUTAB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
888 * PUT 'TAB:PULS A'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
889 PUTPUL LBSR PUTHS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
890 FCB 2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
891 FDB $1632
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
892 RTE1 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
893 * PUT 'PULS B'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
894 PUTPLB LDA #$33
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
895 BRA PUTA1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
896 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
897 * ADDING EXPRESSION
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
898 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
899 AEXPR BSR MEXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
900 AE1 LDA SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
901 CMPA #$80
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
902 BEQ AE2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
903 CMPA #$8B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
904 BNE RTE1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
905 AE2 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
906 LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
907 BSR MEXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
908 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
909 BSR AOPER
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
910 BRA AE1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
911 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
912 * MUTIPLYING EXPRESSION
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
913 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
914 MEXPR BSR TERM
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
915 ME1 LDA SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
916 CMPA #$8E
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
917 BEQ ME2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
918 CMPA #$8F
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
919 BNE RTE1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
920 ME2 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
921 LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
922 BSR TERM
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
923 LDB LSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
924 BEQ ME3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
925 LDA #$C6
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
926 BSR OCORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
927 FCB $8C
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
928 ME3 BSR PUTPUL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
929 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
930 CMPA #$8E
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
931 BHS ME4
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
932 LBSR PUTHSL
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
933 FCB 3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
934 FCB $BD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
935 FDB MULT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
936 BRA ME1
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
937 ME4 LBSR PUTHSL
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
938 FCB 3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
939 FCB $BD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
940 FDB DIV
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
941 BRA ME1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
942 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
943 * TERM
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
944 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
945 TERM LDA SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
946 BNE TM1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
947 * SAVE L-COMMAND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
948 SLOAD PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
949 LBSR OLOAD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
950 LDA VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
951 STA OPER
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
952 LDA GL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
953 STA GLL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
954 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
955 STA AMODE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
956 COM LSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
957 LBRA WORD
124
f065d9718442 fix word table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 123
diff changeset
958 * CONST TRUE & FALSE
126
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
959 TM1 CMPA #$A0
124
f065d9718442 fix word table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 123
diff changeset
960 BEQ TM01
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
961 CMPA #$A1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
962 BNE TM2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
963 TM01 SUBA #$A1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
964 STA VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
965 CLRA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
966 BRA SLOAD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
967 * SYSTEM VAR MHIGH & MOD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
968 TM2 CMPA #$16
126
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
969 BEQ *+6
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
970 CMPA #$17
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
971 BNE TM3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
972 STA VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
973 LDA #$10
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
974 BRA SLOAD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
975 * SIMPLE VARIABLE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
976 TM3 CMPA #4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
977 BNE TM4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
978 LDA #$20
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
979 BRA SLOAD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
980 * ( EXPTRSSION )
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
981 TM4 CMPA #$35
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
982 BCS TM5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
983 CMPA #$38
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
984 BCC TM5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
985 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
986 LBSR WLEXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
987 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
988 ADDA #4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
989 LBRA CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
990 ** FUNCTION CALL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
991 TM5 CMPA #3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
992 BMI *+6
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
993 CMPA #$E0
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
994 BCS TM6
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
995 BSR OLP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
996 PFCALL LDA VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
997 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
998 LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
999 CMPA #$37
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1000 BNE PFC1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1001 LDA LSIZE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1002 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1003 INC LSIZE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1004 PFC2 INC LSIZE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1005 LBSR WEXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1006 CLRB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1007 STB ACC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1008 DECB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1009 STB GLL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1010 LDA #$A7
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1011 LDB LSIZE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1012 LBSR PUTABX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1013 LDA SY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1014 CMPA #$3C
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1015 BEQ PFC2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1016 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1017 STA LSIZE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1018 LDA #$3B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1019 LBSR CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1020 PFC1 LDB #-1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1021 STB ACC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1022 STB INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1023 LDA #$86
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1024 LDB LSIZE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1025 LBSR PUTAB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1026 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1027 CMPA #$C0
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1028 BCC *+5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1029 LBRA CALPF
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1030 LDX #LIBR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1031 SUBA #$C0
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1032 PFC3 BEQ PFC4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1033 LEAX 2,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1034 DECA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1035 BRA PFC3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1036 PFC4 LDA #$BD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1037 LBSR PUTA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1038 LDD ,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1039 LBRA PUTAB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1040 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1041 OLP LBSR OLOAD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1042 LDB ACC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1043 BEQ RTS4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1044 LDA #$36
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1045 LBSR PUTA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1046 CLR ACC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1047 RTS4 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1048 ** FUNCTION RND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1049 TM6 CMPA #$70
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1050 BNE TM61
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1051 BSR SUBSC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1052 LBSR PUTHS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1053 FCB $03BD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1054 FDB RND
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1055 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1056 * FUNTION GET
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1057 TM61 CMPA #$71
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1058 BNE TM62
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1059 BSR SUBSC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1060 LBSR PUTHS
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1061 FDB $0297
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1062 FCB INDN
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1063 LBSR PUTHSL
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1064 FCB $03BD
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1065 FDB GETCH
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1066 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1067 * FUNCTION READ
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1068 TM62 CMPA #$72
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1069 BNE TM7
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1070 BSR SUBSC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1071 LBSR PUTHS
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1072 FDB $0297
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1073 FDB INDN
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1074 LBSR PUTHSL
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1075 FCB $038D
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1076 FDB GETDA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1077 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1078 * FUNCTION NOTASL ET AL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1079 TM7 CMPA #$40
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1080 BCS TM8
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1081 CMPA #$49+1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1082 BCC TM8
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1083 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1084 BSR SUBSC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1085 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1086 LBRA PUTA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1087 * ARRAY
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1088 TM8 CMPA #$5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1089 BNE TM9
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1090 LDB VAL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1091 PSHS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1092 LDB GL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1093 PSHS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1094 BSR SUBSC1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1095 PULS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1096 STB GLL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1097 PULS B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1098 LDA LSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1099 BEQ ARY1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1100 ADDB OPER
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1101 STB OPER
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1102 LDA #$20
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1103 STA AMODE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1104 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1105 ARY1 LDA #$8B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1106 LBSR PUTABX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1107 LBRA LDAAX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1108 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1109 DSUBSC LDA #$3C
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1110 BSR SUBS1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1111 LDA #$3B
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1112 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1113 BRA SUBS2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1114 SUBSC LDA #$3E
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1115 SUBS1 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1116 LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1117 LDA #$37
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1118 LBSR CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1119 SUBS2 LBSR EXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1120 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1121 LBRA CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1122 SUBSC1 LBSR WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1123 LDA #$36
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1124 LBSR CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1125 LBSR LEXPR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1126 LDB LSW
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1127 BEQ SBS5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1128 LDB AMODE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1129 BEQ SBS5
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1130 LBSR OLOAD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1131 SBS5 LDA #$3A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1132 LBRA CHECK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1133 * MEM FUNCTION
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1134 TM9 CMPA #6
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1135 BNE TM10
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1136 BSR DSUBSC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1137 LBSR PUTHS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1138 FDB $0997
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1139 FCB WT2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1140 FDB $3297
125
95718258025c TL/1 fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 124
diff changeset
1141 FCB WT1,$9E,WT1
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1142 FDB $A600
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1143 CLR INDEX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1144 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1145 ** FOR EXPANTION
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1146 TM10 LBRA ERROR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1147 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1148 * ADDRESS DEPENDENT CODE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1149 * GENARATION
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1150 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1151 * SET PRC—FUNC TABLE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1152 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1153 SETPFT PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1154 LDB #3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1155 MUL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1156 ADDD PFTBEG
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1157 STD XR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1158 PULS A,PC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1159 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1160 TWICE LBSR PUTSTR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1161 FCB $0D,$0A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1162 FCC "TWICE!",0
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1163 lbra exit
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1164 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1165 * DEF PROC-FUNC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1166 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1167 DEFPF BSR SETPFT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1168 LDX XR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1169 TST ,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1170 BNE TWICE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1171 COM ,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1172 LDX 1,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1173 STX YR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1174 LDX XR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1175 LEAX 1,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1176 BSR PCST
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1177 LDX YR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1178 DP1 BEQ RT10
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1179 LDX ,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1180 STX ZR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1181 LDX YR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1182 BSR PCST
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1183 LDX ZR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1184 STX YR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1185 BRA DP1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1186 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1187 * CALL PORC-FUNC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1188 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1189 CALPF BSR SETPFT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1190 INCA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1191 CMPA PFMAX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1192 BCS *+4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1193 STA PFMAX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1194 LDA #$BD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1195 BSR AOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1196 LDX XR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1197 LDD 1,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1198 LDX PC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1199 BSR STAABX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1200 LDX XR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1201 TST ,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1202 BNE PC2ADD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1203 LEAX 1,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1204 BSR PCST
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1205 BRA PC2ADD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1206 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1207 * PUL-DEF N TIMES
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1208 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1209 PLDFN PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1210 BSR PULDEF
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1211 DEC ,S
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1212 BNE *-4
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1213 PULS A,PC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1214 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1215 * PULL AND DEFINE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1216 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1217 PULDEF BSR PULSTK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1218 PCST LDD PC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1219 STAABX STD ,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1220 RT10 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1221 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1222 JMPOUT LDA #$7E
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1223 AOUT LDX PC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1224 STA ,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1225 BRA INCPC1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1226 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1227 PULSTK LDX SP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1228 LEAX 2,x
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1229 STX SP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1230 LDD ,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1231 LDX ,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1232 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1233 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1234 * PUL STACK & Jump
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1235 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1236 PULJMP BSR JMPOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1237 BSR PULSTK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1238 PCST2 LDX PC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1239 BSR STAABX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1240 INCPC LEAX 1,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1241 INCPC1 LEAX 1,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1242 SETPC STX PC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1243 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1244 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1245 * PUSH STACK & JUMP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1246 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1247 PSHJMP BSR JMPOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1248 BSR PSHDEF
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1249 PC2ADD LDX PC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1250 BRA INCPC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1251 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1252 * PUSH STRCK & DEFINE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1253 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1254 PSHDEF LDX SP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1255 BSR PCST
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1256 LEAX -2,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1257 STX SP
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1258 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1259 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1260 OUTPC3 BSR AOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1261 LDD PC
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1262 ADDD #3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1263 BRA PCST2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1264 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1265 * LDA R,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1266 LDAAX LDA #$B7
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1267 BSR OUTPC3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1268 LDA #$A6
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1269 LA1 BSR AOUT
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1270 BRA INCPC1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1271 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1272 * STA B,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1273 STABX LDA #$F7
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1274 BSR OUTPC3
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1275 LDA #$A7
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1276 BRA LA1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1277 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1278 * STACK TOP CHANGE
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1279 **
123
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 122
diff changeset
1280 STCHG LDD 2,S
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 122
diff changeset
1281 LDX 4,S
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 122
diff changeset
1282 STD 4,S
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 122
diff changeset
1283 STX 2,S
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1284 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1285 **
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1286 * PUTHSL output with address calculation
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1287 * only working on 3 byte 7E/BD (JMP/JSR)
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1288 **
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1289 PUTHSL LDX ,S++
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1290 LDB ,X+
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1291 LDA ,X+
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1292 LBSR PUTA
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1293 LDD ,X++
124
f065d9718442 fix word table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 123
diff changeset
1294 leay 0,pcr
122
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1295 leay d,y
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1296 exg d,y
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1297 ldy pc
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1298 std ,y++
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1299 sty pc
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1300 JMP ,X
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1301 **
4d06202716c2 TL1 no compile errors
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 121
diff changeset
1302 **
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1303 * END OF LOAD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1304 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1305 ENDL LDX PFTBEG
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1306 LDA PFMAX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1307 EL1 BEQ EL
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1308 TST ,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1309 BEQ UDERR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1310 EL2 LEAX 3,X
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1311 DECA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1312 BRA EL1
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1313 UDERR PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1314 STA ZR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1315 SUBA PFMAX
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1316 NEGA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1317 PSHS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1318 LBSR PUTSTR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1319 FDB $0D0A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1320 FCC "UNDEF",0
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1321 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1322 LBSR PUTCA
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1323 PULS A
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1324 LDX ZR
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1325 BRA EL2
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1326 EL LDX PC
126
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1327 LBRA C
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1328
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1329 **********************
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1330 * ADVANCE WORD
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1331 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1332 WTABLE FCB 0 END MARK
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1333 FCB $30,-'P'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1334 FCC "ROC"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1335 FCB $31,-'F'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1336 FCC "UNC"
124
f065d9718442 fix word table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 123
diff changeset
1337 FCB $32,-'V'
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1338 FCC "AR"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1339 FCB $33,-'A'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1340 FCC "RRAY"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1341 FCB $34,-'B'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1342 FCC "EGIN"
124
f065d9718442 fix word table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 123
diff changeset
1343 FCB $35,-';'
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1344 FCB $36,-'['
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1345 FCB $37,-'('
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1346 FCB $38,-'E'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1347 FCC "ND"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1348 FCB $39,-'='
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1349 FCB $3A,-']'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1350 FCB $3B,-')'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1351 FCB $3C,-','
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1352 FCB $3D,-':'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1353 FCB $50,-'S'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1354 FCC "TOP"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1355 FCB $51,-'R'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1356 FCC "ETURN"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1357 FCB $55,-'I'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1358 FCC "F"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1359 FCB $65,-'T'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1360 FCC "HEN"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1361 FCB $53,-'F'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1362 FCC "OR"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1363 FCB $61,-'T'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1364 FCC "O"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1365 FCB $52,-'R'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1366 FCC "EPEAT"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1367 FCB $60,-'U'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1368 FCC "NTIL"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1369 FCB $54,-'W'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1370 FCC "HILE"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1371 FCB $64,-'D'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1372 FCC "O"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1373 FCB $56,-'C'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1374 FCC "ASE"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1375 FCB $66,-'O'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1376 FCC "F"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1377 FCB $67,-'E'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1378 FCC "LSE"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1379 FCB $57,-'W'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1380 FCC "RITE"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1381 FCB $69,-'A'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1382 FCC "SCII"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1383 FCB $6A,-'S'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1384 FCC "PACE"
126
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1385 FCB $6B,-'C'
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1386 FCC "RLF"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1387 FCB $6C,-'"'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1388 FCB $8B,-'+'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1389 FCB $80,-'-'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1390 FCB $8E,-'*'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1391 FCB $8F,-'/'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1392 FCB $82,-'S'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1393 FCC "BC"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1394 FCB $84,-'A'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1395 FCC "ND"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1396 FCB $88,-'E'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1397 FCC "OR"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1398 FCB $89,-'A'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1399 FCC "DC"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1400 FCB $8A,-'O'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1401 FCC "R"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1402 FCB $22,-'>'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1403 FCB $25,-'<'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1404 FCB $26,-'#'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1405 FCB $27,-'='
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1406 FCB $2D,-'L','T'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1407 FCB $2E,-'G','T'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1408 FCB $40,-'N','E','G'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1409 FCB $43,-'N','O','T'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1410 FCB,$43,-'C','O','M'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1411 FCB $44,-'L','S','R'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1412 FCB $46,-'R','O','R'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1413 FCB $47,-'A','S','R'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1414 FCB $48,-'A','S','L'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1415 FCB $49,-'R','O','L'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1416 FCB $06,-'M','E','M'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1417 FCB $A0,-'T'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1418 FCC "RUE"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1419 FCB $A1,-'F'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1420 FCC "ALSE"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1421 FCB $16,-'M'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1422 FCC "HIGH"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1423 FCB $17,-'M'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1424 FCC "OD"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1425 FCB $70,-'R','N','D'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1426 FCB $71,-'G','E','T'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1427 FCB $72,-'R'
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1428 FCC "EAD"
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1429 WTBLEND
126
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1430
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1431 ******
126
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1432 * SUPORTING ROUTINES
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1433 * & I/0 CONTROL
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1434 **
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1435 ** OBJECT START
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1436 ******
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1437 C leas MSTACK,u
127
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
1438 VARPTR LDX <PC
126
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1439 STX GB
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1440 STX LB
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1441 lda INDN
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1442 lbsr close
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1443 clra os9 stdin
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1444 sta INDN
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1445 inca
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1446 sta OUTDN
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1447 OBJMP JMP OBJECT,u
f43ca5d22920 fix dicimal print routine
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 125
diff changeset
1448
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1449 **
127
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
1450 * PUSH LB & SET NEW LB
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1451 **
127
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
1452 PSHLB LDX LB
321b7fffadab TL/1 simple test worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
1453 leax a,x
121
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1454 LDD LB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1455 STD ,X++
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1456 STX LB
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1457 RTS
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1458 **
6ebaa9693310 os9 version TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: