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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -126,7 +126,7 @@ J.ESC .DA CL.BS left arrow
.DA CL.NAK right arow
L.IN .DA IN
L.CMD .DA CMD
L.CMD.END .DA CMD.END
L.ENDCMD .DA ENDCMD
J.CMD .DA CMD...
.DA CMD..
.DA CMD.CD
@ -637,7 +637,7 @@ CMD .AZ ".."
.AZ "LOOP"
.AZ "ELSE"
.AZ "FI"
CMD.END .AZ "END"
ENDCMD .AZ "END"
.HS 00
*--------------------------------------
* 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
jmp CS.RUN.Math
*--------------------------------------
CS.RUN.Pak >PUSHWI 0 Aux type
CS.RUN.Pak >PUSHWZ Aux type
>PUSHBI 0
>PUSHBI O.RDONLY

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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