Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-10-03 21:54:53 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.92+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-02-20 06:30:36 +00:00
parent 1dd557b175
commit 1dfc2bf03e
2 changed files with 16 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
BIN/SH.S.CMD.txt
View File

@ -390,9 +390,7 @@ CMD.GETKEY lda (ZPArgVBufPtr)
beq .99 beq .99
>SYSCALL getchar >SYSCALL getchar
bcc .1 bcs .9
tay
bne .9
.1 >PUSHA .1 >PUSHA
>PUSHBI 1 >PUSHBI 1

42
BIN/SH.S.txt
View File

@ -226,9 +226,8 @@ CS.RUN.LOOP
.1 jsr CheckSleep .1 jsr CheckSleep
beq .3 beq .3
>SLEEP
>SYSCALL GetChar >SYSCALL GetChar
bcs .2 bcs .9 I/O err
cmp #3 Ctrl-C cmp #3 Ctrl-C
bne .1 bne .1
@ -240,19 +239,11 @@ CS.RUN.LOOP
beq .8 beq .8
bra .1 bra .1
.2 tay
beq .1
rts I/O err
.3 >LDA.G bPause .3 >LDA.G bPause
bpl .6 bpl .6
.4 >SLEEP .4 >SYSCALL GetChar
>SYSCALL GetChar bcs .9 I/O err
bcc .5 got one
tay
beq .4 no char
rts I/O err
.5 cmp #3 Ctrl-C .5 cmp #3 Ctrl-C
bne .60 bne .60
@ -279,8 +270,8 @@ CS.RUN.LOOP
.7 jmp CS.RUN.READ .7 jmp CS.RUN.READ
.8 lda #3 User Interrupt .8 lda #3 User Interrupt
.9 sec sec
rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN.INTERACTIVE CS.RUN.INTERACTIVE
jsr IO.Reset jsr IO.Reset
@ -299,14 +290,8 @@ CS.RUN.INTERACTIVE
jsr CL.PrintPrompt jsr CL.PrintPrompt
bcs .9 bcs .9
.1 >SLEEP .1 >SYSCALL GetChar
>SYSCALL GetChar bcs .9 I/O error
bcc .2
tay
beq .1 no char
.9 rts I/O error
.2 cmp #C.EOF ....or Ctrl-D .2 cmp #C.EOF ....or Ctrl-D
beq .9 CS beq .9 CS
@ -337,17 +322,15 @@ CS.RUN.INTERACTIVE
.6 jsr CORE.Run .6 jsr CORE.Run
.8 jmp CS.RUN.LOOP.END .8 jmp CS.RUN.LOOP.END
.9 rts
*-------------------------------------- *--------------------------------------
CS.RUN.READ jsr CL.RESET CS.RUN.READ jsr CL.RESET
.1 >SLEEP .1 >SYSCALL GetChar
>SYSCALL GetChar bcs .9
bcc .11
tay jsr CL.CHARIN
beq .1
.11 jsr CL.CHARIN
>LDA.G CL.bReady >LDA.G CL.bReady
bpl .1 bpl .1
@ -374,6 +357,7 @@ CS.RUN.READ jsr CL.RESET
plp plp
.8 jmp CS.RUN.LOOP.END .8 jmp CS.RUN.LOOP.END
.9 rts
*-------------------------------------- *--------------------------------------
CS.RUN.BATCH >SYSCALL GetChar CS.RUN.BATCH >SYSCALL GetChar
bcs .2 bcs .2