Kernel 0.92+

This commit is contained in:
Rémy GIBERT 2019-02-25 07:39:19 +00:00
parent 40044ba024
commit b7d0ebf1ea
4 changed files with 7 additions and 13 deletions

Binary file not shown.

View File

@ -69,9 +69,11 @@ CS.RUN >LEA.G MemStat
CS.RUN.LOOP >LDA.G bSTOP
beq .1
>SYSCALL GetChar
.10 >SYSCALL GetChar
cmp #3 Ctrl-C ?
beq CS.RUN.LOOP.RTS
cmp #C.SPACE
bne .10
>STZ.G bSTOP

View File

@ -112,15 +112,8 @@ CS.RUN
>LDYA L.MSG.Init
>SYSCALL printf
CS.RUN.LOOP >SLEEP
jsr CS.RUN.GETLINE
bcc .1
tay
beq CS.RUN.LOOP
bra .13
CS.RUN.LOOP jsr CS.RUN.GETLINE
bcs .13
.1 >INCW.G LineNum
@ -150,7 +143,7 @@ CS.RUN.LOOP >SLEEP
lda #0 Exit with no Error
.9 sec
rts
.99 rts
*--------------------------------------
CS.RUN.OPEN pha

View File

@ -260,8 +260,7 @@ IO.CLOSE.NOD ldx #0
lda IO.hFD
.1 lda Nod.Table.hFD,x
cmp IO.hFD
.1 cmp Nod.Table.hFD,x
bne .2
stz Nod.Table.hFD,x