Kernel 0.93

This commit is contained in:
Rémy GIBERT 2019-06-07 17:02:51 +02:00
parent ba9a5a5af8
commit 4ccad84347
32 changed files with 59 additions and 53 deletions

Binary file not shown.

View File

@ -58,7 +58,7 @@ FIO.LOAD.ASM.T >STYA ZPPtr2
>LDYA L.MSG.T.FILE >LDYA L.MSG.T.FILE
jsr OUT.Print jsr OUT.Print
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI 6 S.FI.T.BIN >PUSHBI 6 S.FI.T.BIN
>PUSHBI O.RDONLY >PUSHBI O.RDONLY
>LDYA L.ASM.T.FILENAME >LDYA L.ASM.T.FILENAME
@ -129,7 +129,7 @@ FIO.OpenFile >STYA ZPPtr1
cmp #$04 TXT ? cmp #$04 TXT ?
bne .2 bne .2
>PUSHWI 0 >PUSHWZ
>PUSHBI 4 >PUSHBI 4
>PUSHBI O.RDONLY+O.TEXT >PUSHBI O.RDONLY+O.TEXT
bra .3 bra .3
@ -137,7 +137,7 @@ FIO.OpenFile >STYA ZPPtr1
.2 cmp #$FA S-C/BAS? .2 cmp #$FA S-C/BAS?
bne .98 bne .98
>PUSHWI 0 >PUSHWZ
>PUSHBI $FA >PUSHBI $FA
>PUSHBI O.RDONLY >PUSHBI O.RDONLY

View File

@ -106,7 +106,7 @@ MAC.ReadLine >LDA.G MAC.StkPtr
>STA.G MAC.StkPtr >STA.G MAC.StkPtr
>PUSHW ZPPtr2 offset >PUSHW ZPPtr2 offset
>PUSHWI 0 len = 0 (string mode) >PUSHWZ len = 0 (string mode)
>PUSHW ZPLineBuf >PUSHW ZPLineBuf
>PUSHW ZPPtr1 Mac ID >PUSHW ZPPtr1 Mac ID
>LDA.G MAC.hList >LDA.G MAC.hList

View File

@ -71,7 +71,7 @@ SYM.Dump >LDA.G ASM.LI.ON
>STYA ZPPtr2 Save Next ID >STYA ZPPtr2 Save Next ID
>PUSHWI 0 Start >PUSHWZ Start
>PUSHWI $ffff End >PUSHWI $ffff End
>PUSHW ZPSymbolBuf >PUSHW ZPSymbolBuf
>PUSHW ZPPtr1 KeyID >PUSHW ZPPtr1 KeyID
@ -224,7 +224,7 @@ SYM.GetGlobal >PUSHW ZPLinePtr Pass #2: should be already defined...
inc ZPLinePtr+1 inc ZPLinePtr+1
.1 >PUSHWI 0 Start .1 >PUSHWZ Start
>PUSHWI $ffff End >PUSHWI $ffff End
>PUSHW ZPSymbolBuf >PUSHW ZPSymbolBuf
>PUSHW.G SYM.GlobalID >PUSHW.G SYM.GlobalID
@ -274,7 +274,7 @@ SYM.LookupGlobal
clc clc
rts rts
.3 >PUSHWI 0 Start .3 >PUSHWZ Start
>PUSHWI SYMG Get only Global value >PUSHWI SYMG Get only Global value
>PUSHW L.SRC.ACC.F >PUSHW L.SRC.ACC.F
>PUSHW ZPPtr1 >PUSHW ZPPtr1

View File

@ -471,7 +471,7 @@ CS.RUN.GetIndexInPalette.RTS
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.OpenInput CS.RUN.OpenInput
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI 0 Type >PUSHBI 0 Type
>PUSHBI O.RDONLY >PUSHBI O.RDONLY
>LDYA ZPPtr1 >LDYA ZPPtr1
@ -561,7 +561,7 @@ CS.RUN.ReadInput
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN.CreateOutput CS.RUN.CreateOutput
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI $CB PIX Type >PUSHBI $CB PIX Type
>PUSHBI O.WRONLY+O.CREATE >PUSHBI O.WRONLY+O.CREATE
>LDYA ZPPtr1 >LDYA ZPPtr1

View File

@ -178,7 +178,7 @@ CS.RUN.OPEN pha
stz bPrintedBlankLine Reset this flag for the new file stz bPrintedBlankLine Reset this flag for the new file
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY+O.TEXT >PUSHBI O.RDONLY+O.TEXT

View File

@ -80,7 +80,7 @@ CS.RUN >PUSHWI K.VER
lda (pPS),y lda (pPS),y
beq .90 no arg, usage beq .90 no arg, usage
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY >PUSHBI O.RDONLY
lda #1 lda #1

View File

@ -348,7 +348,7 @@ CharIn.Esc >STZ.G bEscMode
sec sec
rts rts
*-------------------------------------- *--------------------------------------
LoadFile >PUSHWI 0 Aux type LoadFile >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY >PUSHBI O.RDONLY
>LDA.G hFileName >LDA.G hFileName
@ -408,7 +408,7 @@ LoadFile >PUSHWI 0 Aux type
.9 jmp BUF.ResetSel .9 jmp BUF.ResetSel
*-------------------------------------- *--------------------------------------
SaveFile >PUSHWI 0 Aux type SaveFile >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.CREATE+O.WRONLY >PUSHBI O.CREATE+O.WRONLY
>LDA.G hFileName >LDA.G hFileName

View File

@ -410,7 +410,7 @@ CFG.Read.Open stz CFG.hCfgFile
pha pha
>PUSHWI 0 >PUSHWZ
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY >PUSHBI O.RDONLY

View File

@ -108,7 +108,7 @@ CS.INIT
CS.INIT.RTS rts CS.INIT.RTS rts
*-------------------------------------- *--------------------------------------
CS.INIT.OPENINPUT CS.INIT.OPENINPUT
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI 0 Type >PUSHBI 0 Type
>PUSHBI O.RDONLY >PUSHBI O.RDONLY
>LDYA ZPPtr1 >LDYA ZPPtr1
@ -171,7 +171,7 @@ CS.INIT.OPENINPUT
rts rts
*-------------------------------------- *--------------------------------------
CS.INIT.CREATEOUTPUT CS.INIT.CREATEOUTPUT
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI $CC FON Type >PUSHBI $CC FON Type
>PUSHBI O.WRONLY+O.CREATE >PUSHBI O.WRONLY+O.CREATE
>LDYA ZPPtr1 >LDYA ZPPtr1

View File

@ -171,7 +171,7 @@ CS.RUN.LOOP >SLEEP
*-------------------------------------- *--------------------------------------
CS.RUN.OPEN pha CS.RUN.OPEN pha
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY+O.TEXT >PUSHBI O.RDONLY+O.TEXT

View File

@ -170,7 +170,7 @@ CS.RUN.HOSTOK >INC.G ArgIndex
bcs CS.RUN.RTS bcs CS.RUN.RTS
pha pha
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY >PUSHBI O.RDONLY
pla pla

View File

@ -322,7 +322,7 @@ CFG.Read.Open stz CFG.hCfgFile
pha pha
>PUSHWI 0 >PUSHWZ
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY >PUSHBI O.RDONLY

View File

@ -118,7 +118,7 @@ CS.RUN.FILE >LDYAI FILEBUF.SIZE
txa txa
>STA.G hDataBuf >STA.G hDataBuf
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI 0 ftype >PUSHBI 0 ftype
>PUSHBI O.RDONLY >PUSHBI O.RDONLY

View File

@ -173,7 +173,7 @@ CS.RUN.LOOP jsr CS.RUN.GETLINE
*-------------------------------------- *--------------------------------------
CS.RUN.OPEN pha CS.RUN.OPEN pha
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY+O.TEXT >PUSHBI O.RDONLY+O.TEXT

View File

@ -607,9 +607,9 @@ CMD.CALL >LDA.G hFuncList
>STYA M32.TMP KeyID >STYA M32.TMP KeyID
>PUSHWI 0 From Start >PUSHWZ From Start
>PUSHWI $ffff all >PUSHWI $ffff all
>PUSHWI 0 Allocate.. >PUSHWZ Allocate..
>PUSHW M32.TMP KeyID >PUSHW M32.TMP KeyID
>LDA.G hFuncList >LDA.G hFuncList
>SYSCALL SListGetData >SYSCALL SListGetData
@ -874,7 +874,7 @@ CMD.DEFAULT jsr CORE.StkGetCtx Get context in CORE.Test
.9 jmp CMD.Exec.CSYN .9 jmp CMD.Exec.CSYN
*-------------------------------------- *--------------------------------------
jsr CORE.StkGetCtx Get context in CORE.Test CMD.END jsr CORE.StkGetCtx Get context in CORE.Test
bcs CMD.END.CSYN bcs CMD.END.CSYN
and #$3F and #$3F
@ -975,7 +975,7 @@ FOR.LIST >LDYA ZPArgVBufPtr
*-------------------------------------- *--------------------------------------
FOR.FILE jsr CORE.ArgV.NextChar skip "(" FOR.FILE jsr CORE.ArgV.NextChar skip "("
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY+O.TEXT >PUSHBI O.RDONLY+O.TEXT
@ -1028,7 +1028,7 @@ FOR.EXEC jsr CORE.ArgV.NextChar skip "`"
>STZ.G IO.hOut >STZ.G IO.hOut
>PUSHWI 0 auxtype >PUSHWZ auxtype
>PUSHBI 0 type >PUSHBI 0 type
>PUSHBI O.RDONLY+O.TEXT >PUSHBI O.RDONLY+O.TEXT
>LEA.G IO.FIFO >LEA.G IO.FIFO
@ -1227,7 +1227,6 @@ CMD.NEXT.FILE
* stack FOR TOKEN * stack FOR TOKEN
*-------------------------------------- *--------------------------------------
CMD.NEXT.EXEC lda (pData),y Y = StkPtr CMD.NEXT.EXEC lda (pData),y Y = StkPtr
bpl .1 bpl .1
jsr CMD.NEXT.LINE jsr CMD.NEXT.LINE

View File

@ -240,7 +240,7 @@ CORE.ExecExtCmd.Exit
.8 clc .8 clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CORE.AddFunc >LDYA L.CMD.END CORE.AddFunc >LDYA L.ENDCMD
jsr CORE.LookupInputBuf jsr CORE.LookupInputBuf
bcs .8 bcs .8
@ -563,7 +563,7 @@ CORE.IO.Open pha Open Mode
jsr CORE.ArgV.Add Get Filename jsr CORE.ArgV.Add Get Filename
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT ftype >PUSHBI S.FI.T.TXT ftype
pla pla
>PUSHA flags >PUSHA flags

View File

@ -8,7 +8,7 @@ IO.Reset jsr IO.Reset.In
IO.Reset.9 rts IO.Reset.9 rts
*-------------------------------------- *--------------------------------------
IO.Load pha IO.Load pha
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY >PUSHBI O.RDONLY
@ -22,7 +22,7 @@ IO.Pipe.In >LDA.G IO.hOut
>STZ.G IO.hOut >STZ.G IO.hOut
>PUSHWI 0 auxtype >PUSHWZ auxtype
>PUSHBI 0 type >PUSHBI 0 type
>PUSHBI O.RDONLY >PUSHBI O.RDONLY
>LEA.G IO.FIFO >LEA.G IO.FIFO
@ -58,12 +58,12 @@ IO.Reset.In >LDA.G IO.hIn
.8 clc .8 clc
IO.Reset.In.RTS rts IO.Reset.In.RTS rts
*-------------------------------------- *--------------------------------------
IO.Pipe.Out >PUSHWI 0 mode IO.Pipe.Out >PUSHWZ mode
>LEA.G IO.FIFO >LEA.G IO.FIFO
>SYSCALL MKFIFO >SYSCALL MKFIFO
bcs IO.Reset.In.RTS bcs IO.Reset.In.RTS
>PUSHWI 0 auxtype >PUSHWZ auxtype
>PUSHBI 0 type >PUSHBI 0 type
>PUSHBI O.WRONLY >PUSHBI O.WRONLY
>LEA.G IO.FIFO >LEA.G IO.FIFO

View File

@ -126,7 +126,7 @@ J.ESC .DA CL.BS left arrow
.DA CL.NAK right arow .DA CL.NAK right arow
L.IN .DA IN L.IN .DA IN
L.CMD .DA CMD L.CMD .DA CMD
L.CMD.END .DA CMD.END L.ENDCMD .DA ENDCMD
J.CMD .DA CMD... J.CMD .DA CMD...
.DA CMD.. .DA CMD..
.DA CMD.CD .DA CMD.CD
@ -637,7 +637,7 @@ CMD .AZ ".."
.AZ "LOOP" .AZ "LOOP"
.AZ "ELSE" .AZ "ELSE"
.AZ "FI" .AZ "FI"
CMD.END .AZ "END" ENDCMD .AZ "END"
.HS 00 .HS 00
*-------------------------------------- *--------------------------------------
* https://www.tldp.org/LDP/abs/html/io-redirection.html * https://www.tldp.org/LDP/abs/html/io-redirection.html

View File

@ -65,7 +65,7 @@ CS.RUN ldy #S.PS.ARGC
bne CS.RUN.Pak bne CS.RUN.Pak
jmp CS.RUN.Math jmp CS.RUN.Math
*-------------------------------------- *--------------------------------------
CS.RUN.Pak >PUSHWI 0 Aux type CS.RUN.Pak >PUSHWZ Aux type
>PUSHBI 0 >PUSHBI 0
>PUSHBI O.RDONLY >PUSHBI O.RDONLY

View File

@ -343,6 +343,12 @@ AUTO 4,1
sta ]1 sta ]1
.FIN .FIN
.EM .EM
*--------------------------------------
.MA PUSHWZ
lda #0
>PUSHA
>PUSHA
.EM
*-------------------------------------- *--------------------------------------
.MA PUSHWI .MA PUSHWI
lda /]1 lda /]1

View File

@ -2,7 +2,7 @@ NEW
PREFIX PREFIX
AUTO 4,1 AUTO 4,1
*-------------------------------------- *--------------------------------------
FON.Init >PUSHWI 0 Aux type FON.Init >PUSHWZ Aux type
>PUSHBI $CC Type >PUSHBI $CC Type
>PUSHBI O.RDONLY >PUSHBI O.RDONLY
>LDYA L.SYSX7 >LDYA L.SYSX7
@ -14,7 +14,7 @@ FON.Init >PUSHWI 0 Aux type
>SYSCALL2 GetStkObjProp >SYSCALL2 GetStkObjProp
sty SYSFON.H sty SYSFON.H
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI $CC Type >PUSHBI $CC Type
>PUSHBI O.RDONLY >PUSHBI O.RDONLY
>LDYA L.SYSX7B >LDYA L.SYSX7B

View File

@ -60,7 +60,7 @@ MOU.Quit lda hDevMouse
pha pha
>PUSHBI IOCTL.CLOSE >PUSHBI IOCTL.CLOSE
>PUSHWI 0 >PUSHWZ
pla pla
>SYSCALL2 IOCTL >SYSCALL2 IOCTL

View File

@ -67,7 +67,7 @@ WND.Quit lda SCR+S.SCREEN.hDEV
pha pha
>PUSHBI IOCTL.CLOSE >PUSHBI IOCTL.CLOSE
>PUSHWI 0 >PUSHWZ
pla pla
>SYSCALL2 IOCTL >SYSCALL2 IOCTL

View File

@ -107,7 +107,7 @@ CS.RUN ldy #S.PS.ARGC
lda (pPs),y lda (pPs),y
sta hErr sta hErr
>PUSHWI 0 auxtype >PUSHWZ auxtype
>PUSHBI 0 type >PUSHBI 0 type
>PUSHBI O.RDWR >PUSHBI O.RDWR
lda ArgDev lda ArgDev

View File

@ -86,7 +86,7 @@ CS.RUN >LDYAI 33 Enough for HASH
>LDYA L.ETCISSUE >LDYA L.ETCISSUE
jsr CS.RUN.DUMPFILE jsr CS.RUN.DUMPFILE
>PUSHWI 0 Dry Run, no output >PUSHWZ Dry Run, no output
* lda #0 ROOT user * lda #0 ROOT user
>SYSCALL GetPWUID >SYSCALL GetPWUID
bcc CS.RUN.AUTH bcc CS.RUN.AUTH
@ -121,7 +121,7 @@ CS.RUN.AUTH >LDYA L.LIBCRYPT
jsr CS.RUN.GetLine jsr CS.RUN.GetLine
bcs .9 bcs .9
>PUSHWI 0 Dry Run >PUSHWZ Dry Run
>LDYA ZPGetLinePtr >LDYA ZPGetLinePtr
>SYSCALL GetPWName >SYSCALL GetPWName
ror ZPbValidUser ror ZPbValidUser
@ -430,7 +430,7 @@ CS.RUN.GetLine sta ZPGetLineMax
*-------------------------------------- *--------------------------------------
CS.RUN.DumpFile pha CS.RUN.DumpFile pha
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY+O.TEXT >PUSHBI O.RDONLY+O.TEXT

View File

@ -173,7 +173,7 @@ CS.INIT.CONF >LDYAI 64
>STYA pBuf >STYA pBuf
stx hLineBuf stx hLineBuf
>PUSHWI 0 >PUSHWZ
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY+O.TEXT >PUSHBI O.RDONLY+O.TEXT
@ -283,7 +283,7 @@ CS.QUIT ldx #0
beq .8 beq .8
pha pha
>PUSHWI 0 >PUSHWZ
>PUSHBI IOCTL.CLOSE >PUSHBI IOCTL.CLOSE
pla pla
>SYSCALL IOCTL >SYSCALL IOCTL

View File

@ -121,7 +121,7 @@ CORE.Events jsr CORE.GetEvents
pha pha
>PUSHWI 0 Param >PUSHWZ Param
>PUSHBI IOCTL.CONTROL request >PUSHBI IOCTL.CONTROL request
pla pla

View File

@ -129,7 +129,7 @@ Kernel.Init3 sta SETALTZP
jsr SysScrInit jsr SysScrInit
bcs * bcs *
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDWR >PUSHBI O.RDWR
>LDYAI DEV.CONSOLE >LDYAI DEV.CONSOLE
@ -1027,7 +1027,7 @@ TskMgrInit >LDYAI MSG.TSK
PwdMgrInit >LDYAI MSG.PWD PwdMgrInit >LDYAI MSG.PWD
>SYSCALL puts >SYSCALL puts
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY >PUSHBI O.RDONLY
>LDYAI ETCPASSWD >LDYAI ETCPASSWD

View File

@ -274,7 +274,8 @@ K.FreeMem.ERR phx
.1 ldx #SYS.printf .1 ldx #SYS.printf
jsr K.SYSCALL2.BANK jsr K.SYSCALL2.BANK
plx plx
lda #E.INVH
>DEBUG
sec sec
rts rts
*-------------------------------------- *--------------------------------------

View File

@ -404,7 +404,7 @@ PS.LoadBIN >LDYAI K.Buf256
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
PS.LoadGetHeader PS.LoadGetHeader
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY >PUSHBI O.RDONLY
>LDYAI K.IOBuf >LDYAI K.IOBuf

View File

@ -68,7 +68,7 @@ PWD.Store lda PWD.DBPtr
clc Aux To Main clc Aux To Main
jsr AuxMove jsr AuxMove
>PUSHWI 0 Aux type >PUSHWZ Aux type
>PUSHBI S.FI.T.TXT >PUSHBI S.FI.T.TXT
>PUSHBI O.WRONLY+O.CREATE >PUSHBI O.WRONLY+O.CREATE
>LDYAI PWD.FILE >LDYAI PWD.FILE