annotate TL1/TL1os9.asm @ 123:69ab3f9536c0

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