Mercurial > hg > Members > kono > os9 > sbc09

annotate TL1/TL1os9.asm @ 191:d0f5894e9b3a default tip

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