mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-25 20:33:13 +00:00
Kernel 0.93
This commit is contained in:
parent
ba9a5a5af8
commit
4ccad84347
Binary file not shown.
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -410,7 +410,7 @@ CFG.Read.Open stz CFG.hCfgFile
|
||||
|
||||
pha
|
||||
|
||||
>PUSHWI 0
|
||||
>PUSHWZ
|
||||
>PUSHBI S.FI.T.TXT
|
||||
>PUSHBI O.RDONLY
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
@ -322,7 +322,7 @@ CFG.Read.Open stz CFG.hCfgFile
|
||||
|
||||
pha
|
||||
|
||||
>PUSHWI 0
|
||||
>PUSHWZ
|
||||
>PUSHBI S.FI.T.TXT
|
||||
>PUSHBI O.RDONLY
|
||||
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
||||
|
@ -343,6 +343,12 @@ AUTO 4,1
|
||||
sta ]1
|
||||
.FIN
|
||||
.EM
|
||||
*--------------------------------------
|
||||
.MA PUSHWZ
|
||||
lda #0
|
||||
>PUSHA
|
||||
>PUSHA
|
||||
.EM
|
||||
*--------------------------------------
|
||||
.MA PUSHWI
|
||||
lda /]1
|
||||
|
@ -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
|
||||
|
@ -60,7 +60,7 @@ MOU.Quit lda hDevMouse
|
||||
|
||||
pha
|
||||
>PUSHBI IOCTL.CLOSE
|
||||
>PUSHWI 0
|
||||
>PUSHWZ
|
||||
pla
|
||||
>SYSCALL2 IOCTL
|
||||
|
||||
|
@ -67,7 +67,7 @@ WND.Quit lda SCR+S.SCREEN.hDEV
|
||||
|
||||
pha
|
||||
>PUSHBI IOCTL.CLOSE
|
||||
>PUSHWI 0
|
||||
>PUSHWZ
|
||||
pla
|
||||
>SYSCALL2 IOCTL
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
@ -121,7 +121,7 @@ CORE.Events jsr CORE.GetEvents
|
||||
|
||||
pha
|
||||
|
||||
>PUSHWI 0 Param
|
||||
>PUSHWZ Param
|
||||
>PUSHBI IOCTL.CONTROL request
|
||||
pla
|
||||
|
||||
|
@ -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
|
||||
|
@ -274,7 +274,8 @@ K.FreeMem.ERR phx
|
||||
.1 ldx #SYS.printf
|
||||
jsr K.SYSCALL2.BANK
|
||||
plx
|
||||
|
||||
lda #E.INVH
|
||||
>DEBUG
|
||||
sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user