Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-26 13:49:18 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.92

Browse Source
This commit is contained in:
Rémy GIBERT 2018-11-12 17:19:44 +01:00
parent ec6d65ca0e
commit bc95c179ac
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
SBIN/SHELL.S.CMD.txt
View File

@ -17,6 +17,10 @@ CMD.Init >LDYAI 256
txa
>STA.G CMD.hArgVBuf
lda #CMD.IF.PTR
tay
sta (pData),y
.9 rts
*--------------------------------------
CMD.Quit >LDA.G CMD.hArgVBuf
@ -527,6 +531,7 @@ CMD.IF.F
rts
*--------------------------------------
Cmd.INT.ELSE >LDA.G CMD.IF.PTR
>DEBUG
cmp #CMD.IF.PTR
beq .9

10
SBIN/SHELL.S.txt
View File

@ -131,10 +131,6 @@ CS.RUN jsr SetPWD
>SYSCALL GetMemPtr
>STYA ZPFileBufPtr
lda #CMD.IF.PTR
tay
sta (pData),y
.DO CSH=1
jsr CSH.Init
.FIN
@ -216,7 +212,7 @@ CS.RUN.INTERCATIVE
tay
beq .1 no char
rts I/O error
.9 rts I/O error
.2 cmp #C.EOF ....or Ctrl-D
beq .9 CS
@ -233,7 +229,6 @@ CS.RUN.INTERCATIVE
jmp CS.RUN.Exec
.8 jmp CS.RUN.LOOP
.9 rts
*--------------------------------------
CS.RUN.READ
.1 >SLEEP
@ -271,8 +266,7 @@ CS.RUN.BATCH >SYSCALL GetChar
lda #$80
>STA.G bPause
clc
rts
jmp CS.RUN.LOOP.END
.2 .DO CSH=1
jsr CSH.Run