Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/TL1os9.asm @ 172:90a8e97a70f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix variable area
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Fri, 12 Apr 2019 08:54:33 +0900
parents dd1cc5e836ad
children c83545730d6c
comparison
equal deleted inserted replaced
171:dd1cc5e836ad 172:90a8e97a70f7
130 leax readbuff,u buffer 130 leax readbuff,u buffer
131 clr ,x buffer empty 131 clr ,x buffer empty
132 stx <adr 132 stx <adr
133 lbra comp 133 lbra comp
134 134
135 copytbl
136 pshs y,x,u
137 leau LIBR,y
138 leax iotbl,pcr
139 leay iotblend,pcr
140 ldy #(iotblend-iotbl)
141 l1 ldb #$7e * JMP
142 stb ,u+
143 ldd ,x++
144 addb 1,s
145 adca ,s
146 std ,u++
147 cmpx 2,s
148 ble l1
149 puls x,y,u
150 iotbl
151 fdb getchar-iotbl ; 0
152 fdb putchar-iotbl ; 3
153 fdb getline-iotbl ; 6
154 fdb putline-iotbl ; 9
155 fdb putcr-iotbl ; $C
156 fdb getpoll-iotbl ; $F
157 fdb xopenin-iotbl ; $12
158 fdb xopenout-iotbl ; $15
159 fdb xabortin-iotbl ; $18
160 fdb xclosein-iotbl ; $1B
161 fdb xcloseout-iotbl ; $1E
162 fdb delay-iotbl ; $21
163 fdb noecho-iotbl ; $24
164 fdb setecho-iotbl ; $27
165 fdb exit-iotbl ; $2a
166 iotblend
167 ** 135 **
168 COMP CLRA 136 COMP CLRA
169 STA OUTDN 137 STA OUTDN
170 STA LSW 138 STA LSW
171 STA AMODE 139 STA AMODE
1514 pshs x 1482 pshs x
1515 subd ,s++ 1483 subd ,s++
1516 std ,x++ start address offset 1484 std ,x++ start address offset
1517 clra 1485 clra
1518 ldb GSIZE 1486 ldb GSIZE
1519 addd #1 1487 addd #OBJSTART+100
1520 std ,x global size 1488 std ,x global size
1521 * mod CRC 1489 * mod CRC
1522 pshs d,u 1490 pshs d,u
1523 leax OBJECT,u 1491 leax OBJECT,u
1524 ldu <PC 1492 ldu <PC
1952 CLRA 1920 CLRA
1953 TFR D,Y 1921 TFR D,Y
1954 lda OUTDN 1922 lda OUTDN
1955 OS9 I$WritLn 1923 OS9 I$WritLn
1956 PULS A,B,X,Y,PC 1924 PULS A,B,X,Y,PC
1957 xopenin
1958 xopenout
1959 xabortin
1960 xclosein
1961 xcloseout
1962 RTS
1963 1925
1964 setecho lda #1 1926 setecho lda #1
1965 bra sss 1927 bra sss
1966 noecho clra 1928 noecho clra
1967 sss leas -128,s 1929 sss leas -128,s
1990 OS9 F$Sleep 1952 OS9 F$Sleep
1991 PULS D,X,PC 1953 PULS D,X,PC
1992 1954
1993 crt0 stx <arg 1955 crt0 stx <arg
1994 leax OBJSTART,u 1956 leax OBJSTART,u
1957 leay ,x
1995 * compiled code follows 1958 * compiled code follows
1996 1959
1997 LIBEND equ * 1960 LIBEND equ *
1998 1961
1999 1962