Mercurial > hg > Members > kono > nitros9-code
changeset 3060:04175ab6b6b3
level1 scf: Fix up more 6309 code
| author | Robert Gault <robert.gault@att.net> |
|---|---|
| date | Thu, 29 Jan 2015 22:50:30 +0100 |
| parents | 412772d32331 |
| children | 102fe4086f0c |
| files | level1/modules/scf.asm |
| diffstat | 1 files changed, 5 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/modules/scf.asm Thu Jan 29 22:50:26 2015 +0100 +++ b/level1/modules/scf.asm Thu Jan 29 22:50:30 2015 +0100 @@ -599,9 +599,7 @@ putkey cmpa #SS.Fill Buffer preload? bne L01FA No, go execute driver setstat - IFEQ H6309 pshs u,y,x - ENDC IFGT Level-1 ldx <D.Proc Get current process pointer ELSE @@ -642,11 +640,10 @@ bmi putkey1 Don't want CR appended, exit lda #C$CR Get code for carriage return sta b,u Put it in buffer to terminate string +putkey1 puls a,x,y,u,pc Eat stack & return IFNE H6309 -putkey1 puls a,pc Eat stack & return L021B ldf #D$PSTA Get driver entry offset for setstat ELSE -putkey1 puls a,x,y,u,pc Eat stack & return L021B ldb #D$PSTA Get driver entry offset for setstat ENDC lda R$B,u Get function code from caller @@ -706,9 +703,6 @@ std R$Y,x Put it in callers Y lda $0F,s Get function code sta R$B,x Put it in callers B - IFEQ H6309 - ldb #$0C - ENDC lbsr L04A7 Wait for device to be ready lbsr L0212 Send it to driver puls a,x,y,u Restore callers registers @@ -865,7 +859,11 @@ os9 F$Move Move it to caller ELSE ldx PD.BUF,y Get buffer pointer + IFEQ H6309 puls y + ELSE + tfr w,y + ENDC pshs u L0443 lda ,x+