Mercurial > hg > Members > kono > os9 > sbc09
changeset 172:90a8e97a70f7
fix variable area
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Fri, 12 Apr 2019 08:54:33 +0900 |
| parents | dd1cc5e836ad |
| children | 7dd634f92ffd |
| files | TL1/TL1os9.asm |
| diffstat | 1 files changed, 2 insertions(+), 39 deletions(-) [+] |
line wrap: on
line diff
--- a/TL1/TL1os9.asm Thu Apr 11 21:26:35 2019 +0900 +++ b/TL1/TL1os9.asm Fri Apr 12 08:54:33 2019 +0900 @@ -132,38 +132,6 @@ stx <adr lbra comp -copytbl - pshs y,x,u - leau LIBR,y - leax iotbl,pcr - leay iotblend,pcr - ldy #(iotblend-iotbl) -l1 ldb #$7e * JMP - stb ,u+ - ldd ,x++ - addb 1,s - adca ,s - std ,u++ - cmpx 2,s - ble l1 - puls x,y,u -iotbl - fdb getchar-iotbl ; 0 - fdb putchar-iotbl ; 3 - fdb getline-iotbl ; 6 - fdb putline-iotbl ; 9 - fdb putcr-iotbl ; $C - fdb getpoll-iotbl ; $F - fdb xopenin-iotbl ; $12 - fdb xopenout-iotbl ; $15 - fdb xabortin-iotbl ; $18 - fdb xclosein-iotbl ; $1B - fdb xcloseout-iotbl ; $1E - fdb delay-iotbl ; $21 - fdb noecho-iotbl ; $24 - fdb setecho-iotbl ; $27 - fdb exit-iotbl ; $2a -iotblend ** COMP CLRA STA OUTDN @@ -1516,7 +1484,7 @@ std ,x++ start address offset clra ldb GSIZE - addd #1 + addd #OBJSTART+100 std ,x global size * mod CRC pshs d,u @@ -1954,12 +1922,6 @@ lda OUTDN OS9 I$WritLn PULS A,B,X,Y,PC -xopenin -xopenout -xabortin -xclosein -xcloseout - RTS setecho lda #1 bra sss @@ -1992,6 +1954,7 @@ crt0 stx <arg leax OBJSTART,u + leay ,x * compiled code follows LIBEND equ *