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.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2020-01-06 17:27:52 +01:00
parent 66ceadb5f2
commit 2670cdf560
3 changed files with 30 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

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

@ -246,9 +246,6 @@ CMD.SET.1
rts
.8 clc
.9 rts
.99 jmp CMD.E.CSYN
CMD.SET.YA >PUSHYA
@ -864,8 +861,7 @@ CMD.FOR.LIST >LDYA ZPArgVBufPtr
phy
pha
>LDYA ZPInputBufPtr
jsr CORE.StkPushYA Push CmdPtr AFTER FOR
jsr CORE.StkPushInputBufPtr Push CmdPtr AFTER FOR
pla
ply
@ -909,8 +905,7 @@ CMD.FOR.EXEC jsr CORE.ArgV.NextChar skip "`"
CMD.FOR.PUSH pha save hFILE/hPIPE
>LDYA ZPInputBufPtr
jsr CORE.StkPushYA Push CmdPtr AFTER FOR
jsr CORE.StkPushInputBufPtr Push CmdPtr AFTER FOR
pla
@ -971,15 +966,7 @@ CMD.NEXT.LIST lda (pData),y Y = StkPtr
lda (pData)
sec
sbc #6
tay
lda (pData),y
sta ZPInputBufPtr
dey
lda (pData),y
sta ZPInputBufPtr+1
clc
rts
jmp CMD.NEXT.FILEEXEC.LOOPY
.1 lda (pData)
tay
@ -1000,16 +987,7 @@ CMD.NEXT.LIST lda (pData),y Y = StkPtr
.9 rts
*--------------------------------------
CMD.NEXT.LIST.TOKEN
lda (pData)
dec skip FOR
dec skip SUB TOKEN
tay
lda (pData),y
phy
>SYSCALL GetMemPtr hVARNAME
>STYA ZPVarNamePtr
ply
jsr CMD.NEXT.GetVarNamePtr
dey skip hLIST
dey
@ -1071,12 +1049,13 @@ CMD.NEXT.FILEEXEC
bpl CMD.NEXT.FILEEXEC.POP
jsr CMD.NEXT.LINE
bcs .9
bcs CMD.NEXT.FILEEXEC.9
bpl CMD.NEXT.FILEEXEC.POP end of file/pipe
lda (pData)
sec
sbc #4
CMD.NEXT.FILEEXEC.LOOPY
tay
lda (pData),y
@ -1085,7 +1064,8 @@ CMD.NEXT.FILEEXEC
lda (pData),y
sta ZPInputBufPtr+1
clc
.9 rts
CMD.NEXT.FILEEXEC.9
rts
CMD.NEXT.FILEEXEC.POP
lda (pData)
@ -1106,21 +1086,14 @@ CMD.NEXT.FILEEXEC.POP
* clc
rts
*--------------------------------------
CMD.NEXT.LINE lda (pData)
dec skip FOR
dec skip SUB TOKEN
tay
lda (pData),y
phy
>SYSCALL GetMemPtr hVARNAME
>STYA ZPVarNamePtr
CMD.NEXT.LINE jsr CMD.NEXT.GetVarNamePtr
>PUSHWI 256
>PUSHW ZPCLBuf
ply
dey
lda (pData),y hFILE/hPIPE
>SYSCALL fgets
bcs CMD.NEXT.END
@ -1140,6 +1113,19 @@ CMD.NEXT.END jsr CMD.SET.UNSET
CMD.NEXT.LINE.RTS
rts
*--------------------------------------
CMD.NEXT.GetVarNamePtr
lda (pData)
dec skip FOR
dec skip SUB TOKEN
tay
lda (pData),y
phy
>SYSCALL GetMemPtr hVARNAME
>STYA ZPVarNamePtr
ply
rts
*--------------------------------------
CMD.WHILE
CMD.IF jsr CORE.StkGetCtx

8
BIN/SH.S.CORE.txt
View File

@ -31,8 +31,9 @@ CORE.Load.YAX stx M32.ACC X = Code to Execute
bcs .9
>LDYA ZPInputBuf
jsr CORE.StkPushYA
>LDYA ZPInputBufPtr
jsr CORE.StkPushYA
jsr CORE.StkPushInputBufPtr
ldy #S.PS.ARGC
lda (pPS),y
jsr CORE.StkPush old ARGC
@ -674,6 +675,9 @@ CORE.StkPushYAX phx
bcs CORE.StkPushYA.9
bra CORE.StkPush.1
*--------------------------------------
CORE.StkPushInputBufPtr
>LDYA ZPInputBufPtr
*--------------------------------------
CORE.StkPushYA phy
jsr CORE.StkPush
bcc CORE.StkPush.1