Mercurial > hg > Members > kono > os9 > sbc09
changeset 165:5aefcd52aba8
fix asm error
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Wed, 10 Apr 2019 10:08:44 +0900 |
| parents | c90b9be8c307 |
| children | a813c5ae58d5 |
| files | TL1/TL1os9.asm |
| diffstat | 1 files changed, 14 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/TL1/TL1os9.asm Wed Apr 10 07:42:15 2019 +0900 +++ b/TL1/TL1os9.asm Wed Apr 10 10:08:44 2019 +0900 @@ -31,6 +31,7 @@ XR RMB 2 YR RMB 2 ZR RMB 2 +arg equ . PFTBEG RMB 2 prog/func table PC RMB 2 SREG RMB 2 @@ -107,7 +108,7 @@ bne run leax 1,x lda ,x+ - cmp 'c' + cmpa #'c' bne run lbsr modsetup bra fread @@ -1430,10 +1431,12 @@ std ,y++ ldd #$000d ldy <pc - leay 0xd,y + leay $d,y ldx ,s bsr mkmodnam - sty <runtop + tfr y,d + subd #LIBEND+2 + std modofs leau crt0top,pc ldx #LIBEND-crt0top libcpy ldd ,u++ @@ -1441,14 +1444,14 @@ leax -2,x bhi libcpy sty <PC - ldd <runtop - subd #LIBEND+2 - std modofs puls x,y,u,pc -mkmodnam pshs x,y.u +mkmodnam pshs x,y,u + tfr x,u + tst ,x + lbeq ERROR * no file name m0 lda ,x+ - bne m2 + bne m3 cmpa '/' bne m0 tfr x,u @@ -1504,7 +1507,7 @@ leax d,x lda 2 write os9 I$Open - bcs ERROR + lbcs ERROR sta ,s ldu 2,s leax OBJECT,u @@ -1514,7 +1517,7 @@ subd ,s++ lda ,s os9 I$Write - bcs ERROR + lbcs ERROR clra os9 F$Exit all end @@ -1955,7 +1958,7 @@ OS9 F$Sleep PULS D,X,PC -crt0 stx <args +crt0 stx <arg leax OBJSTART,u * compiled code follows