annotate TL1/TL1os9.asm @ 168:2937e970aac6

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