mirror of
https://github.com/A2osX/A2osX.git
synced 2025-02-05 23:30:15 +00:00
Kernel 0.92+
This commit is contained in:
parent
40044ba024
commit
b7d0ebf1ea
Binary file not shown.
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user