Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-27 00:29:29 +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 rts
.8 clc
.9 rts
.99 jmp CMD.E.CSYN .99 jmp CMD.E.CSYN
CMD.SET.YA >PUSHYA CMD.SET.YA >PUSHYA
@ -864,8 +861,7 @@ CMD.FOR.LIST >LDYA ZPArgVBufPtr
phy phy
pha pha
>LDYA ZPInputBufPtr jsr CORE.StkPushInputBufPtr Push CmdPtr AFTER FOR
jsr CORE.StkPushYA Push CmdPtr AFTER FOR
pla pla
ply ply
@ -909,8 +905,7 @@ CMD.FOR.EXEC jsr CORE.ArgV.NextChar skip "`"
CMD.FOR.PUSH pha save hFILE/hPIPE CMD.FOR.PUSH pha save hFILE/hPIPE
>LDYA ZPInputBufPtr jsr CORE.StkPushInputBufPtr Push CmdPtr AFTER FOR
jsr CORE.StkPushYA Push CmdPtr AFTER FOR
pla pla
@ -971,15 +966,7 @@ CMD.NEXT.LIST lda (pData),y Y = StkPtr
lda (pData) lda (pData)
sec sec
sbc #6 sbc #6
tay jmp CMD.NEXT.FILEEXEC.LOOPY
lda (pData),y
sta ZPInputBufPtr
dey
lda (pData),y
sta ZPInputBufPtr+1
clc
rts
.1 lda (pData) .1 lda (pData)
tay tay
@ -1000,16 +987,7 @@ CMD.NEXT.LIST lda (pData),y Y = StkPtr
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CMD.NEXT.LIST.TOKEN CMD.NEXT.LIST.TOKEN
lda (pData) jsr CMD.NEXT.GetVarNamePtr
dec skip FOR
dec skip SUB TOKEN
tay
lda (pData),y
phy
>SYSCALL GetMemPtr hVARNAME
>STYA ZPVarNamePtr
ply
dey skip hLIST dey skip hLIST
dey dey
@ -1071,12 +1049,13 @@ CMD.NEXT.FILEEXEC
bpl CMD.NEXT.FILEEXEC.POP bpl CMD.NEXT.FILEEXEC.POP
jsr CMD.NEXT.LINE jsr CMD.NEXT.LINE
bcs .9 bcs CMD.NEXT.FILEEXEC.9
bpl CMD.NEXT.FILEEXEC.POP end of file/pipe bpl CMD.NEXT.FILEEXEC.POP end of file/pipe
lda (pData) lda (pData)
sec sec
sbc #4 sbc #4
CMD.NEXT.FILEEXEC.LOOPY
tay tay
lda (pData),y lda (pData),y
@ -1085,7 +1064,8 @@ CMD.NEXT.FILEEXEC
lda (pData),y lda (pData),y
sta ZPInputBufPtr+1 sta ZPInputBufPtr+1
clc clc
.9 rts CMD.NEXT.FILEEXEC.9
rts
CMD.NEXT.FILEEXEC.POP CMD.NEXT.FILEEXEC.POP
lda (pData) lda (pData)
@ -1106,21 +1086,14 @@ CMD.NEXT.FILEEXEC.POP
* clc * clc
rts rts
*-------------------------------------- *--------------------------------------
CMD.NEXT.LINE lda (pData) CMD.NEXT.LINE jsr CMD.NEXT.GetVarNamePtr
dec skip FOR
dec skip SUB TOKEN
tay
lda (pData),y
phy
>SYSCALL GetMemPtr hVARNAME
>STYA ZPVarNamePtr
>PUSHWI 256 >PUSHWI 256
>PUSHW ZPCLBuf >PUSHW ZPCLBuf
ply
dey dey
lda (pData),y hFILE/hPIPE lda (pData),y hFILE/hPIPE
>SYSCALL fgets >SYSCALL fgets
bcs CMD.NEXT.END bcs CMD.NEXT.END
@ -1140,6 +1113,19 @@ CMD.NEXT.END jsr CMD.SET.UNSET
CMD.NEXT.LINE.RTS CMD.NEXT.LINE.RTS
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.WHILE
CMD.IF jsr CORE.StkGetCtx 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 bcs .9
>LDYA ZPInputBuf >LDYA ZPInputBuf
jsr CORE.StkPushYA jsr CORE.StkPushYA
>LDYA ZPInputBufPtr
jsr CORE.StkPushYA jsr CORE.StkPushInputBufPtr
ldy #S.PS.ARGC ldy #S.PS.ARGC
lda (pPS),y lda (pPS),y
jsr CORE.StkPush old ARGC jsr CORE.StkPush old ARGC
@ -674,6 +675,9 @@ CORE.StkPushYAX phx
bcs CORE.StkPushYA.9 bcs CORE.StkPushYA.9
bra CORE.StkPush.1 bra CORE.StkPush.1
*-------------------------------------- *--------------------------------------
CORE.StkPushInputBufPtr
>LDYA ZPInputBufPtr
*--------------------------------------
CORE.StkPushYA phy CORE.StkPushYA phy
jsr CORE.StkPush jsr CORE.StkPush
bcc CORE.StkPush.1 bcc CORE.StkPush.1