annotate TL1/TL1os9.asm @ 161:91447c3ccd58

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