Kernel 0.9.2

This commit is contained in:
Rémy GIBERT 2018-06-21 17:12:10 +02:00
parent db742825c8
commit 3e6ecb55e5
76 changed files with 526 additions and 551 deletions

Binary file not shown.

Binary file not shown.

View File

@ -110,7 +110,7 @@ CS.RUN.QUERY jsr Init.Timeout
bpl .4 bpl .4
>LDYA L.MSG2 >LDYA L.MSG2
>SYSCALL PrintF.YA >SYSCALL printf
.8 lda #0 .8 lda #0
@ -145,7 +145,7 @@ CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.ARP.GETCACHE
>STYA ZPPTR1 >STYA ZPPTR1
>LDYA L.MSG0 >LDYA L.MSG0
>SYSCALL PrintF.YA >SYSCALL printf
ldx #K.ARPCACHE.SIZE ldx #K.ARPCACHE.SIZE
@ -173,7 +173,7 @@ CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.ARP.GETCACHE
>LDYA L.MSG1 >LDYA L.MSG1
phx phx
>SYSCALL PrintF.YA >SYSCALL printf
plx plx
.4 lda ZPPTR1 .4 lda ZPPTR1

View File

@ -39,7 +39,7 @@ OUT.PrintLineErr
.1 >PUSHB.G DIR.Byte .1 >PUSHB.G DIR.Byte
>LDYA L.MSG.ERROR >LDYA L.MSG.ERROR
>SYSCALL PrintF.YA >SYSCALL printf
ldx ZPLinePtr ldx ZPLinePtr
cpx ZPLineBuf cpx ZPLineBuf
@ -140,7 +140,7 @@ OUT.PrintLineOutBuf
tax tax
ldy L.MSG.OUT0,x ldy L.MSG.OUT0,x
lda L.MSG.OUT0+1,x lda L.MSG.OUT0+1,x
>SYSCALL PrintF.YA >SYSCALL printf
rts rts
OUT.PrintLineAcc OUT.PrintLineAcc
@ -160,10 +160,10 @@ OUT.PrintLineAcc
.2 ldy L.MSG.EQU0,x .2 ldy L.MSG.EQU0,x
lda L.MSG.EQU0+1,x lda L.MSG.EQU0+1,x
>SYSCALL PrintF.YA >SYSCALL printf
rts rts
*--------------------------------------- *---------------------------------------
OUT.Print >SYSCALL PrintF.YA OUT.Print >SYSCALL printf
bra OUT.Print1 bra OUT.Print1
OUT.PrintCR lda #13 OUT.PrintCR lda #13

View File

@ -392,7 +392,7 @@ SRC.ParseLine.AMCheck
* jsr OUT.PrintLine.1 * jsr OUT.PrintLine.1
* >PUSHW L.SRC.AM.StrBuf * >PUSHW L.SRC.AM.StrBuf
* >LDYA L.MSG.PSTRCRLF * >LDYA L.MSG.PSTRCRLF
* >SYSCALL PrintF.YA * >SYSCALL printf
* >DEBUG * >DEBUG
lda SRC.AM.StrBuf lda SRC.AM.StrBuf
beq SRC.ParseLine.OPAMCheckFF beq SRC.ParseLine.OPAMCheckFF

View File

@ -78,7 +78,7 @@ SYM.Dump stz ZPLinePtr
bpl .1 bpl .1
>LDYA L.MSG.SYMBOLS >LDYA L.MSG.SYMBOLS
>SYSCALL PrintF.YA >SYSCALL printf
.1 >PUSHB.G SYM.hGlobalList .1 >PUSHB.G SYM.hGlobalList
>PUSHW ZPLinePtr >PUSHW ZPLinePtr
@ -116,12 +116,12 @@ SYM.Dump stz ZPLinePtr
.3 ldy L.MSG.EQU0,x .3 ldy L.MSG.EQU0,x
lda L.MSG.EQU0+1,x lda L.MSG.EQU0+1,x
>SYSCALL PrintF.YA >SYSCALL printf
>PUSHW ZPNameBuf Label (PString) >PUSHW ZPNameBuf Label (PString)
>LDYA L.MSG.PSTR >LDYA L.MSG.PSTR
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
ldy #SYMG.SIZE ldy #SYMG.SIZE
@ -146,12 +146,12 @@ SYM.Dump stz ZPLinePtr
>PUSHA >PUSHA
phy phy
>LDYA L.MSG.LSYMBOL >LDYA L.MSG.LSYMBOL
>SYSCALL PrintF.YA >SYSCALL printf
ply ply
bne .4 bne .4
.7 >LDYA L.MSG.CRLF .7 >LDYA L.MSG.CRLF
>SYSCALL PrintF.YA >SYSCALL printf
jmp .1 jmp .1
rts rts

View File

@ -239,7 +239,7 @@ CS.INIT ldy #S.PS.ARGC
rts rts
.99 >LDYA L.MSG.HELP .99 >LDYA L.MSG.HELP
>SYSCALL PrintF.YA >SYSCALL printf
lda #ERR.INV.ARGS lda #ERR.INV.ARGS
sec sec
.9 rts .9 rts

View File

@ -53,7 +53,7 @@ CS.RUN >STZ.G P.GetInfo Sync
pha pha
>LDYA L.MSG.NOATK >LDYA L.MSG.NOATK
>SYSCALL PrintF.YA >SYSCALL printf
pla pla
sec sec
.99 rts .99 rts
@ -62,7 +62,7 @@ CS.RUN >STZ.G P.GetInfo Sync
>PUSHA >PUSHA
>PUSHW.G P.GetInfo+$8 NET >PUSHW.G P.GetInfo+$8 NET
>LDYA L.MSG.NETNODE >LDYA L.MSG.NETNODE
>SYSCALL PrintF.YA >SYSCALL printf
>STZ.G P.LookupName Sync >STZ.G P.LookupName Sync
lda #ATLookupName lda #ATLookupName
@ -98,7 +98,7 @@ CS.RUN >STZ.G P.GetInfo Sync
beq .8 beq .8
>LDYA L.MSG.DUMP0 >LDYA L.MSG.DUMP0
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
.1 lda ZPPTR1 .1 lda ZPPTR1
@ -118,7 +118,7 @@ CS.RUN >STZ.G P.GetInfo Sync
bpl .2 bpl .2
>LDYA L.MSG.DUMP >LDYA L.MSG.DUMP
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
lda ZPPTR2 lda ZPPTR2

View File

@ -47,7 +47,7 @@ CS.RUN stz K.MLI.PARAMS Sync
pha pha
>LDYA L.MSG.NOATK >LDYA L.MSG.NOATK
>SYSCALL PrintF.YA >SYSCALL printf
pla pla
sec sec
.99 rts .99 rts

View File

@ -60,7 +60,7 @@ CS.INIT
bne .2 bne .2
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
@ -213,7 +213,7 @@ CS.RUN.PRINT sty BytesRead Y,A = Bytes read
.3 >PUSHW ZPPtr1 .3 >PUSHW ZPPtr1
>LDYA L.MSG.CTRLCHAR >LDYA L.MSG.CTRLCHAR
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
bra .7 bra .7
@ -242,7 +242,7 @@ CS.RUN.PRINTNUM clc
>PUSHYA >PUSHYA
>LDYA L.MSG.LINENUM >LDYA L.MSG.LINENUM
>SYSCALL PrintF.YA >SYSCALL printf
.8 rts .8 rts
*-------------------------------------- *--------------------------------------
CS.RUN.OPEN >SYSCALL RealPath.YA CS.RUN.OPEN >SYSCALL RealPath.YA

View File

@ -66,7 +66,7 @@ CS.INIT
bne .2 bne .2
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
@ -181,7 +181,7 @@ CS.RUN.FILE jsr CS.RUN.GetFilePath
>PUSHW ZPFullPath >PUSHW ZPFullPath
>LDYA L.MSG.FILE >LDYA L.MSG.FILE
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
ldy #HexFileType ldy #HexFileType
@ -208,7 +208,7 @@ CS.RUN.FILE jsr CS.RUN.GetFilePath
*-------------------------------------- *--------------------------------------
CS.RUN.CheckErr bcs .1 CS.RUN.CheckErr bcs .1
>LDYA L.MSG.OK >LDYA L.MSG.OK
>SYSCALL PrintF.YA >SYSCALL printf
rts rts
.1 pha .1 pha
@ -220,7 +220,7 @@ CS.RUN.CheckErr bcs .1
>PUSHA >PUSHA
>LDYA L.MSG.ERR >LDYA L.MSG.ERR
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
rts rts

View File

@ -86,7 +86,7 @@ CS.RUN.ADD cmp #2
CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.DNS.GetCache CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.DNS.GetCache
>STYA ZPPTR1 >STYA ZPPTR1
>LDYA L.MSG0 >LDYA L.MSG0
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.DNSCACHE.SIZE lda #K.DNSCACHE.SIZE
>STA.G EntryCount >STA.G EntryCount
@ -121,7 +121,7 @@ CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.DNS.GetCache
>PUSHB (ZPPTR1) Entry Status >PUSHB (ZPPTR1) Entry Status
>LDYA L.MSG1 >LDYA L.MSG1
>SYSCALL PrintF.YA >SYSCALL printf
.2 lda ZPPTR1 .2 lda ZPPTR1
clc clc

View File

@ -51,7 +51,7 @@ Ctrl.A ldy #PromptMode
>PUSHW ZPPTR1 >PUSHW ZPPTR1
>LDYA L.MSG.HELPLINE >LDYA L.MSG.HELPLINE
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
inc .1+1 inc .1+1

View File

@ -9,7 +9,7 @@ SCRN.Init ldy #ScreenH
>PUSHA >PUSHA
>LDYA L.SEQ.INIT >LDYA L.SEQ.INIT
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
lda #12 lda #12
>SYSCALL PutChar.A >SYSCALL PutChar.A
@ -56,7 +56,7 @@ SCRN.UpdateTopBar
.2 >PUSHYA .2 >PUSHYA
>LDYA L.MSG.TOPBAR >LDYA L.MSG.TOPBAR
>SYSCALL PrintF.YA >SYSCALL printf
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
@ -98,7 +98,7 @@ SCRN.UpdateMain ldy #ScreenY
bcs .9 bcs .9
>LDYA L.SEQ.CEOL >LDYA L.SEQ.CEOL
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
inc TmpByte inc TmpByte
@ -175,7 +175,7 @@ SCRN.UpdateLineAtALenY
bcs .9 bcs .9
>LDYA L.SEQ.CEOL >LDYA L.SEQ.CEOL
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
rts rts
.9 jmp Ctrl.Q .9 jmp Ctrl.Q
@ -188,7 +188,7 @@ SCRN.UpdateAttrC
bpl .8 bpl .8
>LDYA L.SEQ.NORM >LDYA L.SEQ.NORM
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
stz bSelected stz bSelected
rts rts
@ -197,7 +197,7 @@ SCRN.UpdateAttrC
bmi .8 bmi .8
>LDYA L.SEQ.INV >LDYA L.SEQ.INV
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
lda #$ff lda #$ff
sta bSelected sta bSelected
@ -214,11 +214,11 @@ SCRN.UpdateStatusBar
>PUSHA >PUSHA
>LDYA L.MSG.GOTOXY >LDYA L.MSG.GOTOXY
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
>LDYA L.SEQ.INV >LDYA L.SEQ.INV
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
ldy #PromptMode ldy #PromptMode
@ -248,7 +248,7 @@ SCRN.UpdateStatusBar
>PUSHB (pData),y >PUSHB (pData),y
>LDYA L.MSG.STATUSBAR >LDYA L.MSG.STATUSBAR
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
lda #58 lda #58
@ -256,7 +256,7 @@ SCRN.UpdateStatusBar
bcs .9 bcs .9
>LDYA L.SEQ.NORM >LDYA L.SEQ.NORM
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
jmp SCRN.GotoCurXCurY jmp SCRN.GotoCurXCurY
@ -276,7 +276,7 @@ SCRN.UpdateStatusBar
tax tax
>LDYA L.MSG.STATUSBAR,x >LDYA L.MSG.STATUSBAR,x
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
rts rts
*-------------------------------------- *--------------------------------------
@ -291,7 +291,7 @@ SCRN.UpdateStatusBarErrA
.1 lda #$ff .1 lda #$ff
>PUSHA >PUSHA
>LDYA L.MSG.STATUSBAR.E >LDYA L.MSG.STATUSBAR.E
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
rts rts
.9 jmp Ctrl.Q .9 jmp Ctrl.Q
@ -320,11 +320,11 @@ SCRN.InvLineA sta .2+1
lda .2+1 lda .2+1
>PUSHA >PUSHA
>LDYA L.MSG.GOTOXY >LDYA L.MSG.GOTOXY
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
>LDYA L.SEQ.INV >LDYA L.SEQ.INV
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
ldy #ScreenW ldy #ScreenW
@ -345,7 +345,7 @@ SCRN.InvLineA sta .2+1
.2 lda #$ff .2 lda #$ff
>PUSHA >PUSHA
>LDYA L.MSG.GOTOXY >LDYA L.MSG.GOTOXY
>SYSCALL PrintF.YA >SYSCALL printf
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
@ -366,7 +366,7 @@ GotoXY txa
>PUSHA >PUSHA
>LDYA L.MSG.GOTOXY >LDYA L.MSG.GOTOXY
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
rts rts
.9 jmp Ctrl.Q .9 jmp Ctrl.Q
@ -510,7 +510,7 @@ SCRN.scrollUp ldy #CurX
>PUSHA >PUSHA
>LDYA L.SEQ.SCROLLUP >LDYA L.SEQ.SCROLLUP
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
ldy #ScreenY+1 ldy #ScreenY+1
@ -545,7 +545,7 @@ SCRN.scrollDn ldy #CurX
>PUSHA >PUSHA
>LDYA L.SEQ.SCROLLDN >LDYA L.SEQ.SCROLLDN
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
ldy #ScreenY+1 ldy #ScreenY+1

View File

@ -131,7 +131,7 @@ CS.INIT lda #$ff
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN >LDYA L.SEQ.DETECT CS.RUN >LDYA L.SEQ.DETECT
>SYSCALL PrintF.YA Send Query for term W & H >SYSCALL printf Send Query for term W & H
bcs .9 bcs .9
.1 >SLEEP .1 >SLEEP
@ -187,7 +187,7 @@ CS.QUIT ldy #hBuffer
>SYSCALL FreeMem.A >SYSCALL FreeMem.A
.8 >LDYA L.SEQ.RESET .8 >LDYA L.SEQ.RESET
>SYSCALL PrintF.YA >SYSCALL printf
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CharIn tax CharIn tax

View File

@ -117,7 +117,7 @@ CS.INIT ldy #S.PS.ARGC
rts rts
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
@ -132,7 +132,7 @@ CS.RUN jsr CS.RUN.InitCat
bcs .9 bcs .9
>LDYA L.MSG.OK >LDYA L.MSG.OK
>SYSCALL PrintF.YA >SYSCALL printf
lda #0 lda #0
sec sec
rts rts
@ -140,7 +140,7 @@ CS.RUN jsr CS.RUN.InitCat
.9 pha .9 pha
>PUSHA >PUSHA
>LDYA L.MSG.ERR >LDYA L.MSG.ERR
>SYSCALL PrintF.YA >SYSCALL printf
pla pla
sec sec
rts rts
@ -229,7 +229,7 @@ CS.RUN.BuildCat >LDA.G hDev
>PUSHW ZPPtr2 >PUSHW ZPPtr2
>LDYA L.MSG.INIT >LDYA L.MSG.INIT
>SYSCALL PrintF.YA >SYSCALL printf
.99 bcs .9 .99 bcs .9
jsr .7 jsr .7

View File

@ -65,7 +65,7 @@ CS.INIT >LDYA L.LIBTCPIP
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN >LDYA L.MSG0 CS.RUN >LDYA L.MSG0
>SYSCALL PrintF.YA >SYSCALL printf
>LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG
>STYA ZPIPCfgPtr >STYA ZPIPCfgPtr
@ -75,7 +75,7 @@ CS.RUN >LDYA L.MSG0
bne CS.RUN.DUMPDEV bne CS.RUN.DUMPDEV
>LDYA L.MSG0.NL >LDYA L.MSG0.NL
>SYSCALL PrintF.YA >SYSCALL printf
jmp CS.RUN.DONE jmp CS.RUN.DONE
CS.RUN.DUMPDEV >STA.G DevID CS.RUN.DUMPDEV >STA.G DevID
@ -87,7 +87,7 @@ CS.RUN.DUMPDEV >STA.G DevID
>STYA ZPDevStatPtr >STYA ZPDevStatPtr
>LDYA L.MSG0.L >LDYA L.MSG0.L
>SYSCALL PrintF.YA >SYSCALL printf
ldy #S.DSTAT.NIC.MAC+5 ldy #S.DSTAT.NIC.MAC+5
@ -116,7 +116,7 @@ CS.RUN.DUMPDEV >STA.G DevID
>PUSHB.G DevID >PUSHB.G DevID
>LDYA L.MSG1.DEV >LDYA L.MSG1.DEV
>SYSCALL PrintF.YA >SYSCALL printf
ldy #S.DSTAT.NIC.FLAGS ldy #S.DSTAT.NIC.FLAGS
lda (ZPDevStatPtr),y lda (ZPDevStatPtr),y
@ -125,7 +125,7 @@ CS.RUN.DUMPDEV >STA.G DevID
lda #1 lda #1
.2 >PUSHA .2 >PUSHA
>LDYA L.MSG1.DEV.ARP >LDYA L.MSG1.DEV.ARP
>SYSCALL PrintF.YA >SYSCALL printf
ldy #S.DSTAT.NIC.FLAGS ldy #S.DSTAT.NIC.FLAGS
lda (ZPDevStatPtr),y lda (ZPDevStatPtr),y
@ -134,7 +134,7 @@ CS.RUN.DUMPDEV >STA.G DevID
lda #1 lda #1
.3 >PUSHA .3 >PUSHA
>LDYA L.MSG1.DEV.IP >LDYA L.MSG1.DEV.IP
>SYSCALL PrintF.YA >SYSCALL printf
ldy #S.DSTAT.NIC.STATUS ldy #S.DSTAT.NIC.STATUS
lda (ZPDevStatPtr),y lda (ZPDevStatPtr),y
@ -142,15 +142,15 @@ CS.RUN.DUMPDEV >STA.G DevID
bne CS.RUN.LINK bne CS.RUN.LINK
>PUSHW L.MSG1.LINK.KO >PUSHW L.MSG1.LINK.KO
>LDYA L.MSG1.LINK >LDYA L.MSG1.LINK
>SYSCALL PrintF.YA >SYSCALL printf
bra CS.RUN.DUMPIP bra CS.RUN.DUMPIP
CS.RUN.LINK >PUSHW L.MSG1.LINK.OK CS.RUN.LINK >PUSHW L.MSG1.LINK.OK
>LDYA L.MSG1.LINK >LDYA L.MSG1.LINK
>SYSCALL PrintF.YA >SYSCALL printf
>LDYA L.MSG1.LINKSPEED >LDYA L.MSG1.LINKSPEED
>SYSCALL PrintF.YA >SYSCALL printf
ldy #S.DSTAT.NIC.STATUS ldy #S.DSTAT.NIC.STATUS
lda (ZPDevStatPtr),y lda (ZPDevStatPtr),y
@ -171,10 +171,10 @@ CS.RUN.LINK >PUSHW L.MSG1.LINK.OK
>LDYA L.MSG1.DPLX.HD >LDYA L.MSG1.DPLX.HD
bra .6 bra .6
.5 >LDYA L.MSG1.DPLX.FD .5 >LDYA L.MSG1.DPLX.FD
.6 >SYSCALL PrintF.YA .6 >SYSCALL printf
CS.RUN.DUMPIP >LDYA L.MSG2 CS.RUN.DUMPIP >LDYA L.MSG2
>SYSCALL PrintF.YA >SYSCALL printf
lda (ZPIPCfgPtr) lda (ZPIPCfgPtr)
and #S.IPCFG.STATUS.OK and #S.IPCFG.STATUS.OK
beq .11 beq .11
@ -182,7 +182,7 @@ CS.RUN.DUMPIP >LDYA L.MSG2
bra .10 bra .10
.11 >LDYA L.MSG2.U .11 >LDYA L.MSG2.U
.10 >SYSCALL PrintF.YA .10 >SYSCALL printf
ldy #S.IPCFG.DHCPSRVR+3 ldy #S.IPCFG.DHCPSRVR+3
ldx #4 ldx #4
@ -191,7 +191,7 @@ CS.RUN.DUMPIP >LDYA L.MSG2
dex dex
bne .2 bne .2
>LDYA L.MSG2.DHCPSRVR >LDYA L.MSG2.DHCPSRVR
>SYSCALL PrintF.YA >SYSCALL printf
ldy #S.IPCFG.IP+7 IP/MASK ldy #S.IPCFG.IP+7 IP/MASK
ldx #8 ldx #8
@ -200,7 +200,7 @@ CS.RUN.DUMPIP >LDYA L.MSG2
dex dex
bne .3 bne .3
>LDYA L.MSG2.IP >LDYA L.MSG2.IP
>SYSCALL PrintF.YA >SYSCALL printf
ldy #S.IPCFG.GW+3 ldy #S.IPCFG.GW+3
ldx #4 ldx #4
@ -209,7 +209,7 @@ CS.RUN.DUMPIP >LDYA L.MSG2
dex dex
bne .4 bne .4
>LDYA L.MSG2.GW >LDYA L.MSG2.GW
>SYSCALL PrintF.YA >SYSCALL printf
ldy #S.IPCFG.DNS1+7 ldy #S.IPCFG.DNS1+7
ldx #8 ldx #8
@ -218,7 +218,7 @@ CS.RUN.DUMPIP >LDYA L.MSG2
dex dex
bne .5 bne .5
>LDYA L.MSG2.DNS >LDYA L.MSG2.DNS
>SYSCALL PrintF.YA >SYSCALL printf
lda ZPIPCfgPtr lda ZPIPCfgPtr
clc clc
@ -237,7 +237,7 @@ CS.RUN.DUMPIP >LDYA L.MSG2
>PUSHYA >PUSHYA
>LDYA L.MSG2.HOSTNAME >LDYA L.MSG2.HOSTNAME
>SYSCALL PrintF.YA >SYSCALL printf
CS.RUN.DONE lda #0 tell TSKMGR that all done ok, but CS.RUN.DONE lda #0 tell TSKMGR that all done ok, but
sec we do not want to stay in memory sec we do not want to stay in memory

View File

@ -182,7 +182,7 @@ CS.RUN.DEV ldy #bLong
>PUSHW ZPFileName >PUSHW ZPFileName
>LDYA L.MSG.DEVEXT >LDYA L.MSG.DEVEXT
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
ldy #bRecurse ldy #bRecurse
@ -211,7 +211,7 @@ CS.RUN.DIR >LDA.G bAllmostAll
>PUSHW ZPFileName >PUSHW ZPFileName
>LDYA L.MSG.DIR >LDYA L.MSG.DIR
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
ldy #0 ldy #0
@ -241,7 +241,7 @@ CS.RUN.DIR >LDA.G bAllmostAll
>PUSHW ZPFileName >PUSHW ZPFileName
>LDYA L.MSG.DIREXT >LDYA L.MSG.DIREXT
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
.5 ldy #bRecurse .5 ldy #bRecurse
@ -271,7 +271,7 @@ CS.RUN.FILE ldy #bLong
>PUSHW ZPFileName >PUSHW ZPFileName
>LDYA L.MSG.FILE >LDYA L.MSG.FILE
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
jsr CS.RUN.UpdateColCnt jsr CS.RUN.UpdateColCnt
@ -311,7 +311,7 @@ CS.RUN.FILE ldy #bLong
>PUSHW ZPFileName >PUSHW ZPFileName
>LDYA L.MSG.FILEEXT >LDYA L.MSG.FILEEXT
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
jsr GetNextEntry jsr GetNextEntry
@ -402,7 +402,7 @@ CS.RUN.ENTER.MSG
>SYSCALL GetMemPtr.A >SYSCALL GetMemPtr.A
>PUSHYA >PUSHYA
>LDYA L.MSG.ENTER >LDYA L.MSG.ENTER
>SYSCALL PrintF.YA >SYSCALL printf
rts rts
*-------------------------------------- *--------------------------------------
CS.DOEVENT sec CS.DOEVENT sec

View File

@ -43,7 +43,7 @@ CS.INIT clc
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN >LDYA L.MSG0 CS.RUN >LDYA L.MSG0
>SYSCALL PrintF.YA >SYSCALL printf
>LDA.G DEV.ID >LDA.G DEV.ID
@ -125,7 +125,7 @@ DumpHeader ldy #S.DEV.DRV.JMP+1
>PUSHA >PUSHA
>LDYA L.MSG1 >LDYA L.MSG1
>SYSCALL PrintF.YA >SYSCALL printf
rts rts
*-------------------------------------- *--------------------------------------
DumpStatus >LDA.G DEV.S DumpStatus >LDA.G DEV.S
@ -172,7 +172,7 @@ DumpStatus >LDA.G DEV.S
bra .3 bra .3
.2 >LDYA L.MSG2.C .2 >LDYA L.MSG2.C
.3 >SYSCALL PrintF.YA .3 >SYSCALL printf
rts rts
*-------------------------------------- *--------------------------------------
CS.EVENT sec CS.EVENT sec

View File

@ -69,7 +69,7 @@ CS.INIT ldy #S.PS.ARGC
bne .2 bne .2
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
@ -111,7 +111,7 @@ CS.RUN.TEXT >LDA.G Arg
bcs .9 bcs .9
>LEA.G MD5Buf >LEA.G MD5Buf
>SYSCALL PrintF.YA >SYSCALL printf
lda #13 lda #13
>SYSCALL PutChar.A >SYSCALL PutChar.A
@ -177,7 +177,7 @@ CS.RUN.FILE >LDA.G Arg
>LIBCALL hLIBCRYPT,LIBCRYPT.MD5Finalize >LIBCALL hLIBCRYPT,LIBCRYPT.MD5Finalize
>LEA.G MD5Buf >LEA.G MD5Buf
>SYSCALL PrintF.YA >SYSCALL printf
lda #13 lda #13
>SYSCALL PutChar.A >SYSCALL PutChar.A

View File

@ -49,7 +49,7 @@ CS.RUN >LDYA L.MemStat
>SYSCALL GetMemStat.YA >SYSCALL GetMemStat.YA
>LDYA L.MSG.Main >LDYA L.MSG.Main
>SYSCALL PrintF.YA >SYSCALL printf
lda MemStat+S.MSTAT.MF lda MemStat+S.MSTAT.MF
sec sec
@ -64,10 +64,10 @@ CS.RUN >LDYA L.MemStat
>PUSHW MemStat+S.MSTAT.ML >PUSHW MemStat+S.MSTAT.ML
>LDYA L.MSG.Stat >LDYA L.MSG.Stat
>SYSCALL PrintF.YA >SYSCALL printf
*-------------------------------------- *--------------------------------------
>LDYA L.MSG.Aux >LDYA L.MSG.Aux
>SYSCALL PrintF.YA >SYSCALL printf
lda MemStat+S.MSTAT.XF lda MemStat+S.MSTAT.XF
sec sec
@ -82,10 +82,10 @@ CS.RUN >LDYA L.MemStat
>PUSHW MemStat+S.MSTAT.XL >PUSHW MemStat+S.MSTAT.XL
>LDYA L.MSG.Stat >LDYA L.MSG.Stat
>SYSCALL PrintF.YA >SYSCALL printf
*-------------------------------------- *--------------------------------------
>LDYA L.MSG.Kernel >LDYA L.MSG.Kernel
>SYSCALL PrintF.YA >SYSCALL printf
lda MemStat+S.MSTAT.DH lda MemStat+S.MSTAT.DH
sec sec
@ -100,10 +100,10 @@ CS.RUN >LDYA L.MemStat
>PUSHW MemStat+S.MSTAT.DL >PUSHW MemStat+S.MSTAT.DL
>LDYA L.MSG.Stat >LDYA L.MSG.Stat
>SYSCALL PrintF.YA >SYSCALL printf
>LDYA L.MSG.End >LDYA L.MSG.End
>SYSCALL PrintF.YA >SYSCALL printf
lda #0 lda #0
sec sec
rts rts

View File

@ -90,7 +90,7 @@ CS.RUN >SYSCALL GetChar
bne .1 bne .1
>LDYA L.MSG0 >LDYA L.MSG0
>SYSCALL PrintF.YA >SYSCALL printf
.1 >LDA.G MEM.COUNT .1 >LDA.G MEM.COUNT
>SYSCALL GetMemByID.A >SYSCALL GetMemByID.A
@ -133,22 +133,22 @@ CS.RUN >SYSCALL GetChar
ldy #USED.COUNT ldy #USED.COUNT
>PUSHB (pData),y >PUSHB (pData),y
>LDYA L.MSG2 >LDYA L.MSG2
>SYSCALL PrintF.YA >SYSCALL printf
>LDYA.G MemStat+S.MSTAT.MH >LDYA.G MemStat+S.MSTAT.MH
>PUSHYA >PUSHYA
>LDYA L.MSG3 >LDYA L.MSG3
>SYSCALL PrintF.YA >SYSCALL printf
>LDYA.G MemStat+S.MSTAT.MF >LDYA.G MemStat+S.MSTAT.MF
>PUSHYA >PUSHYA
>LDYA L.MSG4 >LDYA L.MSG4
>SYSCALL PrintF.YA >SYSCALL printf
>LDYA.G MemStat+S.MSTAT.ML >LDYA.G MemStat+S.MSTAT.ML
>PUSHYA >PUSHYA
>LDYA L.MSG5 >LDYA L.MSG5
>SYSCALL PrintF.YA >SYSCALL printf
sec sec
>LDA.G MemStat+S.MSTAT.MF >LDA.G MemStat+S.MSTAT.MF
@ -160,7 +160,7 @@ CS.RUN >SYSCALL GetChar
>PUSHYA >PUSHYA
>LDYA L.MSG.FREE >LDYA L.MSG.FREE
>SYSCALL PrintF.YA >SYSCALL printf
sec sec
rts rts
*-------------------------------------- *--------------------------------------
@ -217,10 +217,10 @@ CS.RUN.PRINTMEM ldy #S.MEM.LEN+1
bcc .12 bcc .12
>LDYA L.MSG1.INV >LDYA L.MSG1.INV
>SYSCALL PrintF.YA >SYSCALL printf
.12 >LDYA L.MSG1 .12 >LDYA L.MSG1
>SYSCALL PrintF.YA >SYSCALL printf
ldy #S.MEM.BIN ldy #S.MEM.BIN
lda (ZPPTR1),y lda (ZPPTR1),y
@ -265,7 +265,7 @@ CS.RUN.PRINTMEM ldy #S.MEM.LEN+1
>PUSHYA >PUSHYA
>LDYA L.MSG1.BIN >LDYA L.MSG1.BIN
.8 >SYSCALL PrintF.YA .8 >SYSCALL printf
>INC.G LINE.COUNT >INC.G LINE.COUNT
cmp #PAGELEN cmp #PAGELEN

View File

@ -60,7 +60,7 @@ CS.INIT >LDYA L.LIBTCPIP
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN >LDYA L.MSG0 CS.RUN >LDYA L.MSG0
>SYSCALL PrintF.YA >SYSCALL printf
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.GETTABLE >LIBCALL hLIBTCPIP,LIBTCPIP.SKT.GETTABLE
>STYA ZPPTR1 >STYA ZPPTR1
@ -99,7 +99,7 @@ CS.RUN >LDYA L.MSG0
>PUSHB L.MSG1+1,x >PUSHB L.MSG1+1,x
>PUSHB L.MSG1,x >PUSHB L.MSG1,x
>LDYA L.MSG1 >LDYA L.MSG1
>SYSCALL PrintF.YA >SYSCALL printf
.7 lda ZPPTR1 .7 lda ZPPTR1
clc clc

View File

@ -64,7 +64,7 @@ CS.INIT >SYSCALL GetArgC
rts rts
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts

View File

@ -58,7 +58,7 @@ CS.RUN.READ jsr NSC.Init
bpl .1 bpl .1
>LDYA L.MSG.READ.KO >LDYA L.MSG.READ.KO
>SYSCALL PrintF.YA >SYSCALL printf
lda #MLI.E.NODEV lda #MLI.E.NODEV
sec sec
@ -67,7 +67,7 @@ CS.RUN.READ jsr NSC.Init
.8 jsr NSC.Dump .8 jsr NSC.Dump
>LDYA L.MSG.USAGE >LDYA L.MSG.USAGE
>SYSCALL PrintF.YA >SYSCALL printf
lda #0 tell TSKMGR that all done ok, but lda #0 tell TSKMGR that all done ok, but
sec we do not want to stay in memory sec we do not want to stay in memory
@ -276,16 +276,16 @@ NSC.Dump ldx #1
>PUSHA >PUSHA
>LDYA L.MSG.READ.OK1 >LDYA L.MSG.READ.OK1
>SYSCALL PrintF.YA >SYSCALL printf
>LDYA L.MSG.READ.OK2.24 >LDYA L.MSG.READ.OK2.24
bit DS1216E.DATA+4 bit DS1216E.DATA+4
bpl .3 bpl .3
>LDYA L.MSG.READ.OK2.12 >LDYA L.MSG.READ.OK2.12
.3 >SYSCALL PrintF.YA .3 >SYSCALL printf
>LDYA L.MSG.READ.OK3 >LDYA L.MSG.READ.OK3
>SYSCALL PrintF.YA >SYSCALL printf
lda DS1216E.DATA+2 lda DS1216E.DATA+2
jsr PrintBCD jsr PrintBCD
@ -299,7 +299,7 @@ NSC.Dump ldx #1
jsr PrintBCD jsr PrintBCD
>LDYA L.MSG.READ.OK4 >LDYA L.MSG.READ.OK4
>SYSCALL PrintF.YA >SYSCALL printf
lda DS1216E.DATA+4 lda DS1216E.DATA+4
bpl .4 bpl .4

View File

@ -66,7 +66,7 @@ CS.RUN >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ?
bmi CS.RUN.IPOK bmi CS.RUN.IPOK
>LDYA L.MSG.IPKO >LDYA L.MSG.IPKO
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
@ -95,7 +95,7 @@ CS.RUN.IPOK ldy #S.PS.ARGC
bra .99 bra .99
.9 >LDYA L.MSG.USAGE .9 >LDYA L.MSG.USAGE
.99 >SYSCALL PrintF.YA .99 >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
@ -115,7 +115,7 @@ CS.RUN.HOSTOK lda #1
bpl .1 bpl .1
>LDYA L.MSG.HOSTOK >LDYA L.MSG.HOSTOK
>SYSCALL PrintF.YA >SYSCALL printf
CS.RUN.OPENSKT ldx #3 CS.RUN.OPENSKT ldx #3
ldy #S.IPCFG.IP+3 ldy #S.IPCFG.IP+3
@ -140,7 +140,7 @@ CS.RUN.OPENSKT ldx #3
bcc .2 bcc .2
>LDYA L.MSG.SKTKO >LDYA L.MSG.SKTKO
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
@ -246,7 +246,7 @@ CS.Print.UNREACH
dey dey
>PUSHB (pData),y DST.IP >PUSHB (pData),y DST.IP
>LDYA L.MSG.UNREACH >LDYA L.MSG.UNREACH
>SYSCALL PrintF.YA >SYSCALL printf
rts rts
*-------------------------------------- *--------------------------------------
CS.Print.REPLY lda #TIMEOUT.MAX CS.Print.REPLY lda #TIMEOUT.MAX
@ -288,7 +288,7 @@ CS.Print.REPLY lda #TIMEOUT.MAX
>PUSHB (ZPFrameBase),y >PUSHB (ZPFrameBase),y
>LDYA L.MSG.REPLY >LDYA L.MSG.REPLY
>SYSCALL PrintF.YA >SYSCALL printf
rts rts
*-------------------------------------- *--------------------------------------
CS.QUIT ldy #hFrame CS.QUIT ldy #hFrame

View File

@ -43,12 +43,12 @@ CS.RUN >LDYA pData
>SYSCALL GetPSStat.YA >SYSCALL GetPSStat.YA
>LDYA L.MSG0 >LDYA L.MSG0
>SYSCALL PrintF.YA >SYSCALL printf
>PUSHB.G PS.KCPU >PUSHB.G PS.KCPU
>LDYA L.MSGK >LDYA L.MSGK
>SYSCALL PrintF.YA >SYSCALL printf
>LDA.G PS.Count >LDA.G PS.Count
beq .8 beq .8
@ -90,7 +90,7 @@ CS.RUN >LDYA pData
lda (ZPPtr),y lda (ZPPtr),y
>PUSHA >PUSHA
>LDYA L.MSG1 >LDYA L.MSG1
>SYSCALL PrintF.YA >SYSCALL printf
.7 >DEC.G PS.COUNT .7 >DEC.G PS.COUNT
bne .1 bne .1

View File

@ -73,7 +73,7 @@ CS.INIT ldy #S.PS.ARGC
rts rts
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
@ -95,7 +95,7 @@ CS.RUN jsr Init.Timeout
>SYSCALL GetArg.A >SYSCALL GetArg.A
>PUSHYA >PUSHYA
>LDYA L.MSG.UNKNOWN >LDYA L.MSG.UNKNOWN
>SYSCALL PrintF.YA >SYSCALL printf
sec sec
rts rts
@ -157,7 +157,7 @@ CS.RUN jsr Init.Timeout
>SYSCALL GetArg.A >SYSCALL GetArg.A
>PUSHYA >PUSHYA
>LDYA L.MSG.TIMEOUT >LDYA L.MSG.TIMEOUT
>SYSCALL PrintF.YA >SYSCALL printf
sec sec
rts rts
*-------------------------------------- *--------------------------------------
@ -206,7 +206,7 @@ DumpRPCFrame lda #S.UDP+24
sta ZPFrameBase+1 sta ZPFrameBase+1
>LDYA L.MSG.DUMP0 >LDYA L.MSG.DUMP0
>SYSCALL PrintF.YA >SYSCALL printf
.1 ldy #3 .1 ldy #3
lda (ZPFrameBase),y Value follows? lda (ZPFrameBase),y Value follows?
@ -230,7 +230,7 @@ DumpRPCFrame lda #S.UDP+24
bne .7 bne .7
>LDYA L.MSG.DUMP1 >LDYA L.MSG.DUMP1
>SYSCALL PrintF.YA >SYSCALL printf
lda #20 lda #20
clc clc

View File

@ -71,7 +71,7 @@ CS.INIT
bne .2 bne .2
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
@ -312,7 +312,7 @@ CS.RUN.LEAVE jsr LeaveSubDir exit this sub dir....
dey dey
>PUSHB (pData),y >PUSHB (pData),y
>LDYA L.MSG.DONE >LDYA L.MSG.DONE
>SYSCALL PrintF.YA >SYSCALL printf
.91 ldy #RC .91 ldy #RC
lda (pData),y get global RC in case of bContinue lda (pData),y get global RC in case of bContinue
@ -498,7 +498,7 @@ CS.RUN.FILE.MSG clc
>LDYA L.MSG.DIR >LDYA L.MSG.DIR
bcs .2 bcs .2
.1 >LDYA L.MSG.FILE .1 >LDYA L.MSG.FILE
.2 >SYSCALL PrintF.YA .2 >SYSCALL printf
rts rts
.8 clc .8 clc
@ -517,7 +517,7 @@ CS.RUN.OVERWRITE.MSG
jsr CS.RUN.GetPathY jsr CS.RUN.GetPathY
>PUSHYA >PUSHYA
>LDYA L.MSG.OVERWRITE >LDYA L.MSG.OVERWRITE
>SYSCALL PrintF.YA >SYSCALL printf
rts rts
CS.RUN.OVERWRITE.KEY CS.RUN.OVERWRITE.KEY
@ -689,7 +689,7 @@ CS.RUN.CheckErr bcs .1
bmi .8 bmi .8
>LDYA L.MSG.OK >LDYA L.MSG.OK
>SYSCALL PrintF.YA >SYSCALL printf
rts rts
.1 ldy #RC .1 ldy #RC
@ -704,7 +704,7 @@ CS.RUN.CheckErr bcs .1
>PUSHA >PUSHA
>LDYA L.MSG.ERR >LDYA L.MSG.ERR
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
rts rts

View File

@ -68,7 +68,7 @@ CS.INIT
bne .2 bne .2
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
@ -121,7 +121,7 @@ CS.INIT.OPENINPUT
>STYA ZPInputBufPtr >STYA ZPInputBufPtr
>LDYA L.MSG.FILE.OK >LDYA L.MSG.FILE.OK
>SYSCALL PrintF.YA >SYSCALL printf
lda (ZPInputBufPtr) lda (ZPInputBufPtr)
cmp #'B' cmp #'B'
@ -170,12 +170,12 @@ CS.INIT.OPENINPUT
>PUSHA >PUSHA
>LDYA L.MSG.HEADER.OK >LDYA L.MSG.HEADER.OK
>SYSCALL PrintF.YA >SYSCALL printf
clc clc
rts rts
.99 >LDYA L.MSG.HEADER.KO .99 >LDYA L.MSG.HEADER.KO
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.IBIN lda #K.E.IBIN
sec sec
rts rts
@ -300,7 +300,7 @@ CS.RUN.LOOP inc ZPLineCount
.8 >LDYA L.MSG.DONE .8 >LDYA L.MSG.DONE
>SYSCALL PrintF.YA >SYSCALL printf
lda #0 lda #0
sec sec

View File

@ -37,7 +37,7 @@ L.MSG.DETECT .DA MSG.DETECT
.DA 0 End Of Reloc Table .DA 0 End Of Reloc Table
*-------------------------------------- *--------------------------------------
Dev.Detect >LDYA L.MSG.DETECT Dev.Detect >LDYA L.MSG.DETECT
>SYSCALL PrintF.YA >SYSCALL printf
clc clc
rts rts

View File

@ -63,7 +63,7 @@ L.MSG.DETECT.80C .DA MSG.DETECT.80C
.DA 0 End Of Reloc Table .DA 0 End Of Reloc Table
*-------------------------------------- *--------------------------------------
Dev.Detect >LDYA L.MSG.DETECT Dev.Detect >LDYA L.MSG.DETECT
>SYSCALL PrintF.YA >SYSCALL printf
lda MACHID lda MACHID
and #MACHID.T and #MACHID.T
@ -120,7 +120,7 @@ Dev.Detect >LDYA L.MSG.DETECT
>LDYA L.MSG.DETECT.80C >LDYA L.MSG.DETECT.80C
.3 >SYSCALL PrintF.YA .3 >SYSCALL printf
clc clc
rts rts
*-------------------------------------- *--------------------------------------

View File

@ -39,7 +39,7 @@ L.DEV.HEADER.NAME .DA DEV.HEADER.NAME
*-------------------------------------- *--------------------------------------
Dev.Detect >STYA Args Dev.Detect >STYA Args
>LDYA L.MSG.DETECT >LDYA L.MSG.DETECT
>SYSCALL PrintF.YA >SYSCALL printf
ldx #$70 ldx #$70
ldy #7 ldy #7
@ -60,7 +60,7 @@ Dev.Detect >STYA Args
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintF.YA >SYSCALL printf
lda #MLI.E.NODEV lda #MLI.E.NODEV
sec sec
@ -88,7 +88,7 @@ Dev.Detect >STYA Args
.4 >PUSHW L.DEV.HEADER.NAME .4 >PUSHW L.DEV.HEADER.NAME
>LDYA L.MSG.DETECT.OK >LDYA L.MSG.DETECT.OK
>SYSCALL PrintF.YA >SYSCALL printf
clc clc
rts rts
*-------------------------------------- *--------------------------------------

View File

@ -35,7 +35,7 @@ L.DEV.HEADER.NAME .DA DEV.HEADER.NAME
.DA 0 End Of Reloc Table .DA 0 End Of Reloc Table
*-------------------------------------- *--------------------------------------
Dev.Detect >LDYA L.MSG.DETECT Dev.Detect >LDYA L.MSG.DETECT
>SYSCALL PrintF.YA >SYSCALL printf
stz ZPTmpPtr1 stz ZPTmpPtr1
lda #$C1 lda #$C1
@ -66,7 +66,7 @@ Dev.Detect >LDYA L.MSG.DETECT
>PUSHW L.DEV.HEADER.NAME >PUSHW L.DEV.HEADER.NAME
>LDYA L.MSG.DETECT.OK >LDYA L.MSG.DETECT.OK
>SYSCALL PrintF.YA >SYSCALL printf
clc clc
rts rts
@ -76,7 +76,7 @@ Dev.Detect >LDYA L.MSG.DETECT
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintF.YA >SYSCALL printf
lda #MLI.E.NODEV lda #MLI.E.NODEV
sec sec

View File

@ -36,7 +36,7 @@ L.DEV.HEADER.NAME .DA DEV.HEADER.NAME
*-------------------------------------- *--------------------------------------
Dev.Detect >STYA ARGS Dev.Detect >STYA ARGS
>LDYA L.MSG.DETECT >LDYA L.MSG.DETECT
>SYSCALL PrintF.YA >SYSCALL printf
stz ZPTmpPtr1 stz ZPTmpPtr1
lda #$C1 lda #$C1
@ -63,7 +63,7 @@ Dev.Detect >STYA ARGS
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintF.YA >SYSCALL printf
lda #MLI.E.NODEV Not Found in any slot, exiting lda #MLI.E.NODEV Not Found in any slot, exiting
sec sec
@ -86,7 +86,7 @@ Dev.Detect >STYA ARGS
>PUSHW L.DEV.HEADER.NAME >PUSHW L.DEV.HEADER.NAME
>LDYA L.MSG.DETECT.OK >LDYA L.MSG.DETECT.OK
>SYSCALL PrintF.YA >SYSCALL printf
clc clc
rts rts
*-------------------------------------- *--------------------------------------

View File

@ -41,7 +41,7 @@ L.DEV.HEADER.NAME .DA DEV.HEADER.NAME
*-------------------------------------- *--------------------------------------
Dev.Detect >STYA Args Dev.Detect >STYA Args
>LDYA L.MSG.DETECT >LDYA L.MSG.DETECT
>SYSCALL PrintF.YA >SYSCALL printf
ldx #$70+$88 ldx #$70+$88
ldy #7 ldy #7
@ -85,7 +85,7 @@ Dev.Detect >STYA Args
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintF.YA >SYSCALL printf
lda #MLI.E.NODEV lda #MLI.E.NODEV
sec sec
@ -123,7 +123,7 @@ Dev.Detect >STYA Args
.8 >PUSHW L.DEV.HEADER.NAME .8 >PUSHW L.DEV.HEADER.NAME
>LDYA L.MSG.DETECT.OK >LDYA L.MSG.DETECT.OK
>SYSCALL PrintF.YA >SYSCALL printf
clc clc
rts rts
*-------------------------------------- *--------------------------------------

View File

@ -39,7 +39,7 @@ L.DEV.HEADER.NAME .DA DEV.HEADER.NAME
*-------------------------------------- *--------------------------------------
Dev.Detect >STYA ARGS Dev.Detect >STYA ARGS
>LDYA L.MSG.DETECT >LDYA L.MSG.DETECT
>SYSCALL PrintF.YA >SYSCALL printf
ldx #$70 ldx #$70
ldy #7 ldy #7
@ -69,7 +69,7 @@ Dev.Detect >STYA ARGS
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintF.YA >SYSCALL printf
lda #MLI.E.NODEV lda #MLI.E.NODEV
sec sec
@ -118,7 +118,7 @@ Dev.Detect >STYA ARGS
.8 >PUSHW L.DEV.HEADER.NAME .8 >PUSHW L.DEV.HEADER.NAME
>LDYA L.MSG.DETECT.OK >LDYA L.MSG.DETECT.OK
>SYSCALL PrintF.YA >SYSCALL printf
clc clc
rts rts
*-------------------------------------- *--------------------------------------

View File

@ -40,7 +40,7 @@ L.DEV.HEADER.NAME .DA DEV.HEADER.NAME
*-------------------------------------- *--------------------------------------
Dev.Detect >STYA Args Dev.Detect >STYA Args
>LDYA L.MSG.DETECT >LDYA L.MSG.DETECT
>SYSCALL PrintF.YA >SYSCALL printf
ldx #$70+$88 ldx #$70+$88
ldy #7 ldy #7
@ -84,7 +84,7 @@ Dev.Detect >STYA Args
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintF.YA >SYSCALL printf
lda #MLI.E.NODEV lda #MLI.E.NODEV
sec sec
@ -123,7 +123,7 @@ Dev.Detect >STYA Args
.8 >PUSHW L.DEV.HEADER.NAME .8 >PUSHW L.DEV.HEADER.NAME
>LDYA L.MSG.DETECT.OK >LDYA L.MSG.DETECT.OK
>SYSCALL PrintF.YA >SYSCALL printf
clc clc
rts rts
*-------------------------------------- *--------------------------------------

View File

@ -40,7 +40,7 @@ L.DEV.HEADER.NAME .DA DEV.HEADER.NAME
Dev.Detect >STYA ARGS Dev.Detect >STYA ARGS
>LDYA L.MSG.DETECT >LDYA L.MSG.DETECT
>SYSCALL PrintF.YA >SYSCALL printf
stz ZPTmpPtr1 stz ZPTmpPtr1
lda #$C1 lda #$C1
@ -67,7 +67,7 @@ Dev.Detect >STYA ARGS
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintF.YA >SYSCALL printf
lda #MLI.E.NODEV Not Found in any slot, exiting lda #MLI.E.NODEV Not Found in any slot, exiting
sec sec
@ -92,7 +92,7 @@ Dev.Detect >STYA ARGS
>PUSHW L.DEV.HEADER.NAME >PUSHW L.DEV.HEADER.NAME
>LDYA L.MSG.DETECT.OK >LDYA L.MSG.DETECT.OK
>SYSCALL PrintF.YA >SYSCALL printf
clc clc
rts rts
*-------------------------------------- *--------------------------------------

View File

@ -71,7 +71,7 @@ CS.INIT
bne .2 bne .2
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
@ -123,7 +123,7 @@ CS.INIT.OPENINPUT
>STYA ZPInputBufPtr >STYA ZPInputBufPtr
>LDYA L.MSG.FILE.OK >LDYA L.MSG.FILE.OK
>SYSCALL PrintF.YA >SYSCALL printf
ldy #S.FNT.dfVersion ldy #S.FNT.dfVersion
lda (ZPInputBufPtr),y lda (ZPInputBufPtr),y
@ -160,12 +160,12 @@ CS.INIT.OPENINPUT
>PUSHA >PUSHA
>LDYA L.MSG.HEADER.OK >LDYA L.MSG.HEADER.OK
>SYSCALL PrintF.YA >SYSCALL printf
clc clc
rts rts
.99 >LDYA L.MSG.HEADER.KO .99 >LDYA L.MSG.HEADER.KO
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.IBIN lda #K.E.IBIN
sec sec
rts rts
@ -211,7 +211,7 @@ CS.RUN ldy #S.FNT.dfBreakChar
>PUSHA >PUSHA
>LDYA L.MSG.RANGE >LDYA L.MSG.RANGE
>SYSCALL PrintF.YA >SYSCALL printf
>LDA.G FON.Header+S.FON.Last >LDA.G FON.Header+S.FON.Last
sec sec
@ -324,7 +324,7 @@ CS.RUN.LOOP >SLEEP
bcs .9 bcs .9
>LDYA L.MSG.DONE >LDYA L.MSG.DONE
>SYSCALL PrintF.YA >SYSCALL printf
lda #0 lda #0
sec sec
@ -402,7 +402,7 @@ CS.RUN.DumpChar >LDA.G CharOutByteW
>PUSHA >PUSHA
>PUSHA >PUSHA
>LDYA L.MSG.DUMP >LDYA L.MSG.DUMP
>SYSCALL PrintF.YA >SYSCALL printf
lda ZPCharBufPtr lda ZPCharBufPtr
sta ZPPTR1 sta ZPPTR1

View File

@ -98,7 +98,7 @@ CS.INIT >LDYA L.LIBTCPIP
.98 >LDYA L.MSG.CFG.ND .98 >LDYA L.MSG.CFG.ND
bra .90 bra .90
.99 >LDYA L.MSG.CFG.NA .99 >LDYA L.MSG.CFG.NA
.90 >SYSCALL PrintF.YA .90 >SYSCALL printf
lda #0 lda #0
sec sec
rts rts
@ -114,7 +114,7 @@ CS.RUN >PUSHW L.Socket
sta (pData),y sta (pData),y
>LDYA L.MSG.CFG1 >LDYA L.MSG.CFG1
>SYSCALL PrintF.YA >SYSCALL printf
jsr Init.Timeout jsr Init.Timeout
@ -153,7 +153,7 @@ CS.RUN.SREQ ldx #3
bpl .1 bpl .1
>LDYA L.MSG.CFG2 >LDYA L.MSG.CFG2
>SYSCALL PrintF.YA >SYSCALL printf
ldy #hSocket ldy #hSocket
>PUSHB (pData),y >PUSHB (pData),y
@ -196,7 +196,7 @@ CS.RUN.OK lda #S.IPCFG.STATUS.OK
bpl .2 bpl .2
>LDYA L.MSG.CFG.OK >LDYA L.MSG.CFG.OK
>SYSCALL PrintF.YA >SYSCALL printf
lda #0 Leave with NO ERROR lda #0 Leave with NO ERROR
sec sec
rts rts
@ -204,7 +204,7 @@ CS.RUN.OK lda #S.IPCFG.STATUS.OK
CS.RUN.KO pha CS.RUN.KO pha
>PUSHA >PUSHA
>LDYA L.MSG.CFG.KO >LDYA L.MSG.CFG.KO
>SYSCALL PrintF.YA >SYSCALL printf
pla pla
sec sec
rts rts

View File

@ -76,7 +76,7 @@ CS.INIT ldy #S.PS.ARGC
rts rts
.90 >LDYA L.MSG.USAGE .90 >LDYA L.MSG.USAGE
>SYSCALL PrintF.YA >SYSCALL printf
lda #0 lda #0
sec sec
.9 rts .9 rts
@ -117,7 +117,7 @@ CS.RUN.LOOP
bcc .1 bcc .1
>PUSHWI KVER >PUSHWI KVER
>LDYA L.MSG.GREETINGS >LDYA L.MSG.GREETINGS
>SYSCALL PrintF.YA >SYSCALL printf
bcs .8 unable to send greetings...reset.. bcs .8 unable to send greetings...reset..

View File

@ -60,7 +60,7 @@ CS.INIT >LDYA L.LIBTCPIP
CS.RUN jsr Init.Timeout CS.RUN jsr Init.Timeout
>LDYA L.MSG.TCPWAIT >LDYA L.MSG.TCPWAIT
>SYSCALL PrintF.YA >SYSCALL printf
.1 >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ? .1 >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ?
bcs .99 bcs .99
@ -78,13 +78,13 @@ CS.RUN jsr Init.Timeout
bne .1 bne .1
>LDYA L.MSG.ABORT >LDYA L.MSG.ABORT
>SYSCALL PrintF.YA >SYSCALL printf
lda #0 lda #0
clc clc
rts rts
.99 >LDYA L.MSG.TCPIPERR .99 >LDYA L.MSG.TCPIPERR
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
CS.RUN.RTS rts CS.RUN.RTS rts
@ -114,7 +114,7 @@ CS.RUN.INIT ldx #3
>STA.G hLineBuf >STA.G hLineBuf
>LDYA L.MSG.INITOK >LDYA L.MSG.INITOK
>SYSCALL PrintF.YA >SYSCALL printf
CS.RUN.LOOP >SLEEP CS.RUN.LOOP >SLEEP
jsr CS.RUN.SERVER jsr CS.RUN.SERVER
@ -141,7 +141,7 @@ CS.RUN.LOOP >SLEEP
bra CS.RUN.LOOP bra CS.RUN.LOOP
.9 >LDYA L.MSG.SKTERR .9 >LDYA L.MSG.SKTERR
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
@ -188,7 +188,7 @@ CS.RUN.SERVER ldy #hSrvSocket
>PUSHA >PUSHA
>LDYA L.MSG.INCOMING >LDYA L.MSG.INCOMING
>SYSCALL PrintF.YA >SYSCALL printf
.8 clc .8 clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
@ -201,7 +201,7 @@ CS.RUN.CLIENT sta hClntSocket
bcs .1 bcs .1
>PUSHW ZPLinePtr >PUSHW ZPLinePtr
>SYSCALL PrintF.YA >SYSCALL printf
>PUSHB hClntSocket >PUSHB hClntSocket
>PUSHW L.HTTP.200OK >PUSHW L.HTTP.200OK

View File

@ -48,7 +48,7 @@ CS.INIT ldy #S.PS.ARGC
>PUSHYA >PUSHYA
>LDYA L.MSG.LOAD >LDYA L.MSG.LOAD
>SYSCALL PrintF.YA >SYSCALL printf
lda #1 get PTR to ARG[1] (Driver name) lda #1 get PTR to ARG[1] (Driver name)
>SYSCALL GetArg.A >SYSCALL GetArg.A
@ -61,7 +61,7 @@ CS.INIT ldy #S.PS.ARGC
rts rts
.9 >LDYA L.MSG.HELP .9 >LDYA L.MSG.HELP
>SYSCALL PrintF.YA >SYSCALL printf
lda #0 tell TSKMGR that all done ok, but lda #0 tell TSKMGR that all done ok, but
sec we do not want to stay in memory sec we do not want to stay in memory
.99 rts .99 rts

View File

@ -71,7 +71,7 @@ CS.RUN >LDYA L.FILENAME
>STA.G hFileName >STA.G hFileName
>LDYA L.MSG.TOPBAR >LDYA L.MSG.TOPBAR
>SYSCALL PrintF.YA >SYSCALL printf
jsr CS.RUN.Load jsr CS.RUN.Load
bcs .1 bcs .1
@ -79,19 +79,19 @@ CS.RUN >LDYA L.FILENAME
bra .2 bra .2
.1 >LDYA L.MSG.TOPBAR.KO .1 >LDYA L.MSG.TOPBAR.KO
.2 >SYSCALL PrintF.YA .2 >SYSCALL printf
>LDYA L.MSG.KCONF >LDYA L.MSG.KCONF
>SYSCALL PrintF.YA >SYSCALL printf
>LDYAI A2osX.HZ >LDYAI A2osX.HZ
jsr CS.RUN.DumpConfYA jsr CS.RUN.DumpConfYA
>LDYA L.MSG.STATUSBAR >LDYA L.MSG.STATUSBAR
>SYSCALL PrintF.YA >SYSCALL printf
CS.RUN.REPaint >LDYA L.MSG.FCONF CS.RUN.REPaint >LDYA L.MSG.FCONF
>SYSCALL PrintF.YA >SYSCALL printf
>LDYA ZPCfgPtr >LDYA ZPCfgPtr
jsr CS.RUN.DumpConfYA jsr CS.RUN.DumpConfYA
@ -152,7 +152,7 @@ CS.RUN.Loop >SLEEP
bra CS.RUN.REPaint bra CS.RUN.REPaint
.8 >LDYA L.MSG.QUIT .8 >LDYA L.MSG.QUIT
.9 >SYSCALL PrintF.YA .9 >SYSCALL printf
lda #0 lda #0
sec sec
rts rts
@ -254,7 +254,7 @@ CS.RUN.DumpConfYA
>PUSHB (ZPTmp1) >PUSHB (ZPTmp1)
>LDYA L.MSG.HZ >LDYA L.MSG.HZ
>SYSCALL PrintF.YA >SYSCALL printf
ldy #8 ldy #8
lda (ZPTmp1),y lda (ZPTmp1),y
@ -266,7 +266,7 @@ CS.RUN.DumpConfYA
.12 >PUSHYA .12 >PUSHYA
>LDYA L.MSG.CHROOT >LDYA L.MSG.CHROOT
>SYSCALL PrintF.YA >SYSCALL printf
ldy #8 ldy #8
lda (ZPTmp1),y lda (ZPTmp1),y
@ -278,7 +278,7 @@ CS.RUN.DumpConfYA
.14 >PUSHYA .14 >PUSHYA
>LDYA L.MSG.PMODE >LDYA L.MSG.PMODE
>SYSCALL PrintF.YA >SYSCALL printf
ldy #9 Slot 1 ldy #9 Slot 1
@ -307,7 +307,7 @@ CS.RUN.DumpConfYA
>PUSHA Slot >PUSHA Slot
>LDYA L.MSG.SLOT >LDYA L.MSG.SLOT
>SYSCALL PrintF.YA >SYSCALL printf
ply ply
iny iny
@ -315,7 +315,7 @@ CS.RUN.DumpConfYA
bne .1 bne .1
>LDYA L.MSG.PROMPT >LDYA L.MSG.PROMPT
>SYSCALL PrintF.YA >SYSCALL printf
clc clc
rts rts

View File

@ -50,7 +50,7 @@ CS.RUN lda #0
sta (pData),y sta (pData),y
>LDYA L.MSG.LOGIN >LDYA L.MSG.LOGIN
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
lda #0 Echo all caracters lda #0 Echo all caracters
@ -68,7 +68,7 @@ CS.RUN lda #0
bcc .1 bcc .1
>LDYA L.MSG.PASSWORD >LDYA L.MSG.PASSWORD
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
lda #'*' lda #'*'

View File

@ -59,7 +59,7 @@ CS.INIT >LDYA L.LIBTCPIP
CS.RUN jsr Init.Timeout CS.RUN jsr Init.Timeout
>LDYA L.MSG.TCPWAIT >LDYA L.MSG.TCPWAIT
>SYSCALL PrintF.YA >SYSCALL printf
.1 >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ? .1 >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ?
bcs .99 bcs .99
@ -73,7 +73,7 @@ CS.RUN jsr Init.Timeout
bcc .1 bcc .1
.99 >LDYA L.MSG.TCPIPERR .99 >LDYA L.MSG.TCPIPERR
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
@ -94,7 +94,7 @@ CS.RUN.INIT ldx #3
sta (pData),y sta (pData),y
>LDYA L.MSG.INITOK >LDYA L.MSG.INITOK
>SYSCALL PrintF.YA >SYSCALL printf
.11 >SLEEP .11 >SLEEP
ldy #bCTRLC ldy #bCTRLC
@ -119,17 +119,17 @@ CS.RUN.INIT ldx #3
bpl .2 bpl .2
>LDYA L.MSG.INCOMING >LDYA L.MSG.INCOMING
>SYSCALL PrintF.YA >SYSCALL printf
bra .11 bra .11
.9 >LDYA L.MSG.SKTERR .9 >LDYA L.MSG.SKTERR
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
.99 >LDYA L.MSG.ABORT .99 >LDYA L.MSG.ABORT
>SYSCALL PrintF.YA >SYSCALL printf
lda #0 lda #0
sec sec
rts rts

View File

@ -7,9 +7,9 @@ CL.PrintPrompt >LDYA L.ENV.PS1
>SYSCALL GetEnv.YA >SYSCALL GetEnv.YA
>SYSCALL ExpandStr.YA >SYSCALL ExpandStr.YA
phx phx
>SYSCALL PrintF.YA >SYSCALL printf
>LDYA L.MSG.PROMPT >LDYA L.MSG.PROMPT
>SYSCALL PrintF.YA >SYSCALL printf
plx plx
php php
pha pha
@ -252,7 +252,7 @@ CL.PrintEOL.8 clc
rts rts
*-------------------------------------- *--------------------------------------
CL.PRINT >LDYA ZPCMDBuf CL.PRINT >LDYA ZPCMDBuf
>SYSCALL PrintF.YA >SYSCALL printf
rts rts
*-------------------------------------- *--------------------------------------
MAN MAN

View File

@ -264,7 +264,7 @@ Cmd.Exec.EXT.SEP
Cmd.Exec.PWD ldy #S.PS.hPREFIX Cmd.Exec.PWD ldy #S.PS.hPREFIX
lda (pPs),y lda (pPs),y
>SYSCALL GetMemPtr.A >SYSCALL GetMemPtr.A
>SYSCALL PrintF.YA >SYSCALL printf
jmp Cmd.Exec.ECHO.CR jmp Cmd.Exec.ECHO.CR
*-------------------------------------- *--------------------------------------
Cmd.Exec.CD lda (ZPPTR2) Cmd.Exec.CD lda (ZPPTR2)
@ -380,7 +380,7 @@ Cmd.Exec.SET lda (ZPPTR2)
>PUSHW ZPPTR1 Push name >PUSHW ZPPTR1 Push name
>LDYA L.MSG.PRINTENV >LDYA L.MSG.PRINTENV
>SYSCALL PrintF.YA >SYSCALL printf
bcs .9 bcs .9
ldy #$ff ldy #$ff
@ -438,7 +438,7 @@ Cmd.Exec.SETVAR ldy #0
>PUSHYA push value >PUSHYA push value
>PUSHW ZPPTR2 push name >PUSHW ZPPTR2 push name
>LDYA L.MSG.PRINTENV >LDYA L.MSG.PRINTENV
>SYSCALL PrintF.YA >SYSCALL printf
.8 clc .8 clc
.9 jmp Cmd.Exec.Done .9 jmp Cmd.Exec.Done
@ -463,7 +463,7 @@ Cmd.Exec.TIME clc
>SYSCALL StrFTime >SYSCALL StrFTime
>LDYA ZPCMDBuf >LDYA ZPCMDBuf
>SYSCALL PrintF.YA >SYSCALL printf
bcs Cmd.Exec.ECHO.END bcs Cmd.Exec.ECHO.END
bra Cmd.Exec.ECHO.CR bra Cmd.Exec.ECHO.CR
*-------------------------------------- *--------------------------------------
@ -471,7 +471,7 @@ Cmd.Exec.ECHO lda (ZPPtr2)
beq Cmd.Exec.ECHO.CR beq Cmd.Exec.ECHO.CR
>LDYA ZPPtr2 >LDYA ZPPtr2
>SYSCALL PrintF.YA >SYSCALL printf
Cmd.Exec.ECHO.CR Cmd.Exec.ECHO.CR
lda #13 lda #13

View File

@ -172,7 +172,7 @@ CSH.Run jsr CL.RESET
>PUSHW ZPCMDBuf >PUSHW ZPCMDBuf
>LDYA L.MSG.ECHO >LDYA L.MSG.ECHO
>SYSCALL PrintF.YA >SYSCALL printf
.80 clc .80 clc
rts rts
@ -1201,7 +1201,7 @@ CSH.ErrorMsg >LDA.G CSH.hBuf
.8 >PUSHW.G CSH.LineNum .8 >PUSHW.G CSH.LineNum
>LDYA L.MSG.CSHERR >LDYA L.MSG.CSHERR
>SYSCALL PrintF.YA >SYSCALL printf
rts rts
*-------------------------------------- *--------------------------------------

View File

@ -38,7 +38,7 @@ IO.PrintErrMsg pha Save EC for PrintF
pla pla
>PUSHA >PUSHA
>LDYA L.MSG.ERROR >LDYA L.MSG.ERROR
>SYSCALL PrintF.YA >SYSCALL printf
rts rts
*-------------------------------------- *--------------------------------------
MAN MAN

View File

@ -140,7 +140,7 @@ CS.INIT jsr SetPWD
>PUSHWI KVER >PUSHWI KVER
>LDYA L.MSG.GREETINGS >LDYA L.MSG.GREETINGS
>SYSCALL PrintF.YA >SYSCALL printf
.9 rts .9 rts
*-------------------------------------- *--------------------------------------

View File

@ -7,21 +7,21 @@ AUTO 6
*-------------------------------------- *--------------------------------------
CFG.Read >PUSHW L.HOSTNAME CFG.Read >PUSHW L.HOSTNAME
>LDYA L.MSG.CFG >LDYA L.MSG.CFG
>SYSCALL PrintF.YA >SYSCALL printf
jsr CFG.Read.HOSTNAME jsr CFG.Read.HOSTNAME
jsr CFG.Read.Result jsr CFG.Read.Result
>PUSHW L.TCPIP.CONF >PUSHW L.TCPIP.CONF
>LDYA L.MSG.CFG >LDYA L.MSG.CFG
>SYSCALL PrintF.YA >SYSCALL printf
jsr CFG.Read.TCPIP.CONF jsr CFG.Read.TCPIP.CONF
jsr CFG.Read.Result jsr CFG.Read.Result
>PUSHW L.HOSTS >PUSHW L.HOSTS
>LDYA L.MSG.CFG >LDYA L.MSG.CFG
>SYSCALL PrintF.YA >SYSCALL printf
jsr CFG.Read.HOSTS jsr CFG.Read.HOSTS
*-------------------------------------- *--------------------------------------
@ -30,7 +30,7 @@ CFG.Read.Result bcc .1
>LDYA L.MSG.CFG.KO >LDYA L.MSG.CFG.KO
bra .2 bra .2
.1 >LDYA L.MSG.CFG.OK .1 >LDYA L.MSG.CFG.OK
.2 >SYSCALL PrintF.YA .2 >SYSCALL printf
rts rts
*-------------------------------------- *--------------------------------------
CFG.Read.HOSTNAME CFG.Read.HOSTNAME

View File

@ -95,7 +95,7 @@ CS.INIT.DEV >LDYA L.DEVNAME
bne CS.INIT.DEV bne CS.INIT.DEV
>LDYA L.MSG.DEV.KO >LDYA L.MSG.DEV.KO
>SYSCALL PrintF.YA >SYSCALL printf
lda #MLI.E.NODEV lda #MLI.E.NODEV
sec sec
rts rts
@ -106,7 +106,7 @@ CS.INIT.DEV >LDYA L.DEVNAME
>PUSHW L.DEVNAME >PUSHW L.DEVNAME
>LDYA L.MSG.DEV.OK >LDYA L.MSG.DEV.OK
>SYSCALL PrintF.YA >SYSCALL printf
>PUSHB.G hDev >PUSHB.G hDev
>PUSHBI DEVMGR.OPEN >PUSHBI DEVMGR.OPEN

View File

@ -61,7 +61,7 @@ CS.INIT >LDYA L.LIBTCPIP
CS.RUN jsr Init.Timeout CS.RUN jsr Init.Timeout
>LDYA L.MSG.TCPWAIT >LDYA L.MSG.TCPWAIT
>SYSCALL PrintF.YA >SYSCALL printf
.1 >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ? .1 >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ?
bcs .99 bcs .99
@ -80,7 +80,7 @@ CS.RUN jsr Init.Timeout
jmp CS.RUN.ABORT jmp CS.RUN.ABORT
.99 >LDYA L.MSG.TCPIPERR .99 >LDYA L.MSG.TCPIPERR
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
@ -101,7 +101,7 @@ CS.RUN.INIT ldx #3
sta (pData),y sta (pData),y
>LDYA L.MSG.INITOK >LDYA L.MSG.INITOK
>SYSCALL PrintF.YA >SYSCALL printf
.2 >SLEEP .2 >SLEEP
jsr CS.RUN.SERVER jsr CS.RUN.SERVER
@ -111,13 +111,13 @@ CS.RUN.INIT ldx #3
bra .2 bra .2
.9 >LDYA L.MSG.SKTERR .9 >LDYA L.MSG.SKTERR
>SYSCALL PrintF.YA >SYSCALL printf
lda #K.E.SYN lda #K.E.SYN
sec sec
rts rts
CS.RUN.ABORT >LDYA L.MSG.ABORT CS.RUN.ABORT >LDYA L.MSG.ABORT
>SYSCALL PrintF.YA >SYSCALL printf
lda #0 lda #0
CS.RUN.ERR sec CS.RUN.ERR sec
@ -162,7 +162,7 @@ CS.RUN.SERVER ldy #hSrvSocket
>PUSHA >PUSHA
>LDYA L.MSG.INCOMING >LDYA L.MSG.INCOMING
>SYSCALL PrintF.YA >SYSCALL printf
.8 clc .8 clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
@ -193,7 +193,7 @@ CS.RUN.CLIENT ldy #SktIndex
.10 sta .2+1 .10 sta .2+1
>PUSHA >PUSHA
>LDYA L.MSG.BYTE >LDYA L.MSG.BYTE
>SYSCALL PrintF.YA >SYSCALL printf
.1 lda #$ff hSocket .1 lda #$ff hSocket
>PUSHA >PUSHA

View File

@ -15,7 +15,7 @@ K.GetArg pha save requested arg#
ldy #S.PS.hARGS ldy #S.PS.hARGS
lda (pPs),y lda (pPs),y
jsr K.GetMemPtr.A jsr K.GetMemPtr
plx we want 0 ? plx we want 0 ?

View File

@ -8,7 +8,7 @@ AUTO 4,1
* out : * out :
* A = hMem To loaded LIB * A = hMem To loaded LIB
*-------------------------------------- *--------------------------------------
K.LoadLib jsr BIN.FindLIB.YA K.LoadLib jsr BIN.FindLIB
bcs .9 bcs .9
jsr BIN.Load.YA Y,A = "/PATH/BIN" jsr BIN.Load.YA Y,A = "/PATH/BIN"
@ -41,7 +41,7 @@ K.LoadLib jsr BIN.FindLIB.YA
* out : * out :
*-------------------------------------- *--------------------------------------
K.UnloadLib pha K.UnloadLib pha
jsr K.GetMemByID.A jsr K.GetMemByID
>STYA ZPPtr1 >STYA ZPPtr1
ldy #S.MEM.REFCNT ldy #S.MEM.REFCNT
lda (ZPPtr1),y Get count of those referencing this lib lda (ZPPtr1),y Get count of those referencing this lib
@ -64,16 +64,17 @@ K.UnloadLib pha
.2 jsr $ffff Self Modified, Call LIB.UNLOAD function .2 jsr $ffff Self Modified, Call LIB.UNLOAD function
pla pla
jmp K.FreeMem.A jmp K.FreeMem.A
*-------------------------------------- */--------------------------------------
* K.LoadDrv * # LoadDrv
* in : * ##ASM
* Y,A = PTR to "NAME.DRV [PARAM]" C-String * **In:**
* out : * Y,A = PTR to "NAME.DRV [PARAM]" C-String
* none * **Out:**
*-------------------------------------- * none
*\--------------------------------------
K.LoadDrv >STYA .2+1 Save "BIN\0ARGS\0\0" K.LoadDrv >STYA .2+1 Save "BIN\0ARGS\0\0"
jsr BIN.FindDRV.YA jsr BIN.FindDRV
bcs .9 bcs .9
jsr BIN.Load.YA Y,A = "/PATH/BIN" jsr BIN.Load.YA Y,A = "/PATH/BIN"
@ -178,7 +179,7 @@ K.FileSearch >PULLW .4+1 DstStat
K.FileSearch.I >PULLW .4+1 Filename K.FileSearch.I >PULLW .4+1 Filename
>PULLYA Get Search list >PULLYA Get Search list
jsr K.ExpandStr.YA Expand it jsr K.ExpandStr Expand it
bcs .99 bcs .99
stx .98+1 stx .98+1
@ -228,7 +229,7 @@ K.FileSearch.I >PULLW .4+1 Filename
.99 rts .99 rts
.98 lda #$ff SELF MODIFIED : Discard Expanded hSrch list .98 lda #$ff SELF MODIFIED : Discard Expanded hSrch list
jsr K.FreeMem.A jsr K.FreeMem
lda #MLI.E.FNOTFND lda #MLI.E.FNOTFND
sec sec
rts rts
@ -261,7 +262,7 @@ BIN.Load.YA >STYA BIN.CmdLine
lda (ZPPtr1),y lda (ZPPtr1),y
beq .6 beq .6
jsr K.GetMemPtr.A get pathname jsr K.GetMemPtr get pathname
>STYA .3+1 >STYA .3+1
ldy #0 ldy #0
@ -279,7 +280,7 @@ BIN.Load.YA >STYA BIN.CmdLine
sta (ZPPtr1),y sta (ZPPtr1),y
txa txa
jmp K.GetMemPtr.A X=hMem from K.GetMemByNameA jmp K.GetMemPtr X=hMem from K.GetMemByNameA
.6 lda ZPPtr1 .6 lda ZPPtr1
clc clc
@ -321,23 +322,23 @@ BIN.Load.YA.1 >PUSHWI K.S.STAT
sta BIN.R.End+1 sta BIN.R.End+1
txa txa
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA ZPPtr1 set ZPPtr1 -> Code start >STYA ZPPtr1 set ZPPtr1 -> Code start
pha YA = actual load address pha YA = actual load address
tya tya
sec sec
sbc BIN.R.Start sbc BIN.R.Start
sta BIN.R.Offset Offset=ZPPtr1-AUXTYPE sta BIN.R.Offset Offset=ZPPtr1-AUXTYPE
pla pla
sbc BIN.R.Start+1 sbc BIN.R.Start+1
sta BIN.R.Offset+1 sta BIN.R.Offset+1
ldy #H.BIN.CODE.LEN get Code Len ldy #H.BIN.CODE.LEN get Code Len
lda (ZPPtr1),y lda (ZPPtr1),y
clc clc
adc ZPPtr1 adc ZPPtr1
sta ZPPtr2 Make ZPPtr2 = ZPPtr1 + CodeLen sta ZPPtr2 Make ZPPtr2 = ZPPtr1 + CodeLen
iny iny
lda (ZPPtr1),y lda (ZPPtr1),y
adc ZPPtr1+1 adc ZPPtr1+1
@ -345,12 +346,12 @@ BIN.Load.YA.1 >PUSHWI K.S.STAT
jsr BIN.RelExe jsr BIN.RelExe
>LDYA BIN.CmdLine get back bin path >LDYA BIN.CmdLine get back bin path
jsr K.NewStr.YA make a copy of this string jsr K.NewStr make a copy of this string
bcs .98 bcs .98
lda BIN.hMem Keep X=hMem lda BIN.hMem Keep X=hMem
jsr K.GetMemByID.A X unmodified jsr K.GetMemByID X unmodified
>STYA ZPPtr1 >STYA ZPPtr1
lda (ZPPtr1) lda (ZPPtr1)
@ -363,11 +364,11 @@ BIN.Load.YA.1 >PUSHWI K.S.STAT
lda BIN.hMem lda BIN.hMem
tax return hMEM to Caller... tax return hMEM to Caller...
jmp K.GetMemPtr.A ...and Y,A=PTR to CS jmp K.GetMemPtr ...and Y,A=PTR to CS
.98 pha .98 pha
lda BIN.hMem lda BIN.hMem
jsr K.FreeMem.A Discard Loaded Code jsr K.FreeMem Discard Loaded Code
pla pla
sec sec
@ -387,7 +388,7 @@ BIN.hMem .BS 1
BIN.InsDrv ldy #H.BIN.DRV.CODE.O BIN.InsDrv ldy #H.BIN.DRV.CODE.O
lda (pDrv),y lda (pDrv),y
clc clc
adc BIN.R.Start Advance start From AUXTYPE to AUXTYPE+DRV code offset adc BIN.R.Start Advance start From AUXTYPE to AUXTYPE+DRV code offset
sta BIN.R.Start sta BIN.R.Start
iny iny
@ -395,7 +396,7 @@ BIN.InsDrv ldy #H.BIN.DRV.CODE.O
adc BIN.R.Start+1 adc BIN.R.Start+1
sta BIN.R.Start+1 sta BIN.R.Start+1
lda DevMgr.Free Offset = Target DRV address-(AUXTYPE+DRV OFFSET) lda DevMgr.Free Offset = Target DRV address-(AUXTYPE+DRV OFFSET)
sec sec
sbc BIN.R.Start sbc BIN.R.Start
sta BIN.R.Offset sta BIN.R.Offset
@ -417,9 +418,9 @@ BIN.InsDrv ldy #H.BIN.DRV.CODE.O
clc clc
adc BIN.InsDrv.Len adc BIN.InsDrv.Len
sta BIN.InsDrv.End sta BIN.InsDrv.End
tay Save DRVEnd LO tay Save DRVEnd LO
lda DevMgr.Free+1 lda DevMgr.Free+1
adc BIN.InsDrv.Len+1 A = DRVEnd HI adc BIN.InsDrv.Len+1 A = DRVEnd HI
sta BIN.InsDrv.End+1 sta BIN.InsDrv.End+1
bcs .9 we crossed $FFFF, out of mem bcs .9 we crossed $FFFF, out of mem
@ -443,7 +444,7 @@ BIN.InsDrv ldy #H.BIN.DRV.CODE.O
.10 inc DevMgr.Count .10 inc DevMgr.Count
>SYSCALL GetDevByID.A >SYSCALL GetDevByID.A
>STYA ZPPtr2 setup Ptr2 to dest HEADER >STYA ZPPtr2 setup Ptr2 to dest HEADER
ldy #H.BIN.DRV.HEADER.O ldy #H.BIN.DRV.HEADER.O
lda (pDrv),y lda (pDrv),y
@ -453,11 +454,11 @@ BIN.InsDrv ldy #H.BIN.DRV.CODE.O
iny iny
lda (pDrv),y lda (pDrv),y
adc pDrv+1 adc pDrv+1
sta ZPPtr1+1 set Ptr1 to Src HEADER sta ZPPtr1+1 set Ptr1 to Src HEADER
ldy #S.DEV-1 ldy #S.DEV-1
.1 lda (ZPPtr1),y copy header to Dev.Table .1 lda (ZPPtr1),y copy header to Dev.Table
sta (ZPPtr2),y sta (ZPPtr2),y
dey dey
bpl .1 bpl .1
@ -471,7 +472,7 @@ BIN.InsDrv ldy #H.BIN.DRV.CODE.O
lda DevMgr.Free lda DevMgr.Free
sta (ZPPtr2),y sta (ZPPtr2),y
sta ZPPtr2 set Ptr2 to Dest CODE sta ZPPtr2 set Ptr2 to Dest CODE
stx ZPPtr2+1 stx ZPPtr2+1
ldy #H.BIN.DRV.CODE.O ldy #H.BIN.DRV.CODE.O
@ -482,7 +483,7 @@ BIN.InsDrv ldy #H.BIN.DRV.CODE.O
iny iny
lda (pDrv),y lda (pDrv),y
adc pDrv+1 adc pDrv+1
sta ZPPtr1+1 set Ptr1 to Src CODE sta ZPPtr1+1 set Ptr1 to Src CODE
lda BIN.InsDrv.Len+1 lda BIN.InsDrv.Len+1
eor #$ff eor #$ff
@ -509,7 +510,7 @@ BIN.InsDrv ldy #H.BIN.DRV.CODE.O
bra .2 bra .2
.4 ldy #H.BIN.DRV.CODE.LEN .4 ldy #H.BIN.DRV.CODE.LEN
lda DevMgr.Free Make Ptr1 = code start lda DevMgr.Free Make Ptr1 = code start
sta ZPPtr1 sta ZPPtr1
clc clc
adc (pDrv),y adc (pDrv),y

View File

@ -11,7 +11,7 @@ CORE.Run lda CORE.PSCount
lda PS.Table.hMem-1,x lda PS.Table.hMem-1,x
beq .8 beq .8
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA pPs >STYA pPs
lda (pPs) get S.PS.F lda (pPs) get S.PS.F
@ -40,7 +40,7 @@ CORE.Run lda CORE.PSCount
lda (pPs),y lda (pPs),y
beq .6 no parent process beq .6 no parent process
jsr CORE.GetPSByID.A X unmodified jsr CORE.GetPSByID X unmodified
bcs .6 parent is dead.....skipping... bcs .6 parent is dead.....skipping...
>STYA ZPPtr1 >STYA ZPPtr1
@ -227,7 +227,7 @@ CORE.Dispatch lda CORE.EvtCount
lda PS.Table.hMem-1,x lda PS.Table.hMem-1,x
beq .5 beq .5
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA pPS >STYA pPS
lda (pPs) get S.PS.F lda (pPs) get S.PS.F
@ -348,7 +348,7 @@ CORE.GetPSByID.A
bcs .9 bcs .9
lda PS.TABLE.hMem-1,y lda PS.TABLE.hMem-1,y
beq * beq *
jmp K.GetMemPtr.A jmp K.GetMemPtr
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CORE.GetPS.A ldy CORE.PSCount CORE.GetPS.A ldy CORE.PSCount
@ -373,7 +373,7 @@ CORE.GetPS.A ldy CORE.PSCount
* bpl .1 * bpl .1
* >LDYAI .2 * >LDYAI .2
* jmp K.PrintF.YA * jmp K.printf
*.2 .AZ "!Evt:F=%b,Dev=$%h,LO=$%h,HI=$%h,W1=$%H,W2=$%H\n" *.2 .AZ "!Evt:F=%b,Dev=$%h,LO=$%h,HI=$%h,W1=$%H,W2=$%H\n"
*-------------------------------------- *--------------------------------------
@ -386,7 +386,7 @@ CORE.ScrSel and #$0F
lda A2osX.SCRNDEVS-1,x lda A2osX.SCRNDEVS-1,x
beq .8 No device claimed this screen beq .8 No device claimed this screen
jsr K.GetDevByID.A x unmodified..... jsr K.GetDevByID x unmodified.....
bcs .8 ??? bcs .8 ???
stx A2osX.ASCREEN stx A2osX.ASCREEN
@ -408,7 +408,7 @@ CORE.DestroyEvent
pha pha
ldy #S.EVT.B1 ldy #S.EVT.B1
lda (pEvent),y lda (pEvent),y
jsr K.FreeMem.A jsr K.FreeMem
pla pla
.1 bit #S.EVT.F.hMEM2 .1 bit #S.EVT.F.hMEM2
@ -416,7 +416,7 @@ CORE.DestroyEvent
ldy #S.EVT.B2 ldy #S.EVT.B2
lda (pEvent),y lda (pEvent),y
jsr K.FreeMem.A jsr K.FreeMem
.2 lda #0 .2 lda #0
sta (pEvent) sta (pEvent)

View File

@ -2,7 +2,7 @@ NEW
PREFIX /A2OSX.BUILD PREFIX /A2OSX.BUILD
AUTO 4,1 AUTO 4,1
*/-------------------------------------- */--------------------------------------
* # GetDevByID.A * # GetDevByID
* **In:** * **In:**
* A = DevID * A = DevID
* **Out:** * **Out:**
@ -10,7 +10,7 @@ AUTO 4,1
* Y,A = DEVSLOT * Y,A = DEVSLOT
* note: X Unmodified * note: X Unmodified
*\-------------------------------------- *\--------------------------------------
K.GetDevByID.A cmp DevMgr.Count K.GetDevByID cmp DevMgr.Count
bcs K.GetDevDNF bcs K.GetDevDNF
asl asl
@ -23,7 +23,7 @@ K.GetDevByID.A cmp DevMgr.Count
adc #0 adc #0
rts CC rts CC
*/-------------------------------------- */--------------------------------------
* # GetDevByName.YA * # GetDevByName
* **In:** * **In:**
* Y,A = Ptr to device name (C-String) * Y,A = Ptr to device name (C-String)
* **Out:** * **Out:**
@ -31,8 +31,7 @@ K.GetDevByID.A cmp DevMgr.Count
* X = DEVID * X = DEVID
* Y,A = DEVSLOT * Y,A = DEVSLOT
*\-------------------------------------- *\--------------------------------------
K.GetDevByName.YA K.GetDevByName >STYA ZPPtr1
>STYA ZPPtr1
>LDYAI Dev.Table+S.DEV.NAME >LDYAI Dev.Table+S.DEV.NAME
>STYA ZPPtr2 >STYA ZPPtr2
@ -70,16 +69,15 @@ K.GetDevByName.YA
K.GetDevDNF lda #MLI.E.NODEV CS from cpx/beq K.GetDevDNF lda #MLI.E.NODEV CS from cpx/beq
rts rts
*/-------------------------------------- */--------------------------------------
* # GetDevStatus.A * # GetDevStatus
* **In:** * **In:**
* A = DevID * A = DevID
* **Out:** * **Out:**
* Y,A = S.DSTAT * Y,A = S.DSTAT
*\-------------------------------------- *\--------------------------------------
K.DevClose.A ldx #DEVMGR.CLOSE K.DevClose ldx #DEVMGR.CLOSE
.HS 2C BIT ABS .HS 2C BIT ABS
K.GetDevStatus.A K.GetDevStatus ldx #DEVMGR.STATUS
ldx #DEVMGR.STATUS
jsr K.GetDevByID.A jsr K.GetDevByID.A
bcs K.IOCTL.9 bcs K.IOCTL.9

View File

@ -2,7 +2,7 @@ NEW
PREFIX /A2OSX.BUILD PREFIX /A2OSX.BUILD
AUTO 4,1 AUTO 4,1
*/-------------------------------------- */--------------------------------------
* # OpenDir.YA * # OpenDir
* **In:** * **In:**
* Y,A = PATH (C-String) * Y,A = PATH (C-String)
* **Out:** * **Out:**
@ -11,12 +11,12 @@ AUTO 4,1
* CS : error * CS : error
* A = EC * A = EC
*\-------------------------------------- *\--------------------------------------
K.OpenDir.YA jsr PFT.CheckPathYA K.OpenDir jsr PFT.CheckPathYA
>STYA ZPPtr2 >STYA ZPPtr2
jsr STDIO.SetMLIPathYA For GETFILEINFO,MLIOPEN jsr STDIO.SetMLIPathYA For GETFILEINFO,MLIOPEN
>LDYAI S.NODE.DIR >LDYAI S.NODE.DIR
jsr K.GetMem0.YA jsr K.GetMem0
bcs .99 bcs .99
>STYA ZPPtr1 >STYA ZPPtr1
@ -53,12 +53,12 @@ K.OpenDir.YA jsr PFT.CheckPathYA
.98 pha save MLI error .98 pha save MLI error
lda .8+1 lda .8+1
jsr K.CloseDir.A jsr K.CloseDir
pla get back MLI error pla get back MLI error
sec sec
.99 rts .99 rts
*/-------------------------------------- */--------------------------------------
* # ReadDir.A * # ReadDir
* **In:** * **In:**
* A = hDIR * A = hDIR
* **Out:** * **Out:**
@ -69,34 +69,34 @@ K.OpenDir.YA jsr PFT.CheckPathYA
* A = EC * A = EC
* note : A = 0 means no more entry * note : A = 0 means no more entry
*\-------------------------------------- *\--------------------------------------
K.ReadDir.A.hDir .BS 1 K.ReadDir.hDir .BS 1
K.ReadDir.A.hMem .BS 1 K.ReadDir.hMem .BS 1
K.ReadDir.A.BufSize .BS 2 K.ReadDir.BufSize .BS 2
K.ReadDir.A.ECIB .BS 1 K.ReadDir.ECIB .BS 1
*--S.DIR Cache ------------------------ *--S.DIR Cache ------------------------
K.ReadDir.A.EL .BS 1 K.ReadDir.EL .BS 1
K.ReadDir.A.EPB .BS 1 K.ReadDir.EPB .BS 1
K.ReadDir.A.EC .BS 2 K.ReadDir.EC .BS 2
*-------------------------------------- *--------------------------------------
K.ReadDir.A jsr PFT.CheckNodeA K.ReadDir.A jsr PFT.CheckNodeA
sta K.ReadDir.A.hDir sta K.ReadDir.hDir
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA ZPPtr1 >STYA ZPPtr1
ldy #S.NODE.DIR.REF ldy #S.NODE.DIR.REF
lda (ZPPtr1),y lda (ZPPtr1),y
beq K.ReadDir.A.ROOT beq K.ReadDir.ROOT
jmp K.ReadDir.A.DIR jmp K.ReadDir.DIR
K.ReadDir.A.NoMore K.ReadDir.NoMore
lda #0 lda #0
sec CS,A=0 no more entry sec CS,A=0 no more entry
rts rts
*-------------------------------------- *--------------------------------------
K.ReadDir.A.ROOT K.ReadDir.ROOT
ldy #S.NODE.DIR.FC did we already returned something ? ldy #S.NODE.DIR.FC did we already returned something ?
lda (ZPPtr1),y lda (ZPPtr1),y
bne K.ReadDir.A.NoMore bne K.ReadDir.NoMore
stz K.MLI.PARAMS+1 All Volumes stz K.MLI.PARAMS+1 All Volumes
@ -110,10 +110,10 @@ K.ReadDir.A.ROOT
.99 rts .99 rts
* pass #1 compute BufSize..... * pass #1 compute BufSize.....
.10 lda #1 +1 for Ending 0 .10 lda #1 +1 for Ending 0
sta K.ReadDir.A.BufSize sta K.ReadDir.BufSize
stz K.ReadDir.A.BufSize+1 stz K.ReadDir.BufSize+1
stz K.ReadDir.A.EC stz K.ReadDir.EC
ldy #0 ldy #0
@ -121,14 +121,14 @@ K.ReadDir.A.ROOT
and #$0F and #$0F
beq .2 beq .2
inc K.ReadDir.A.EC increase entry count inc K.ReadDir.EC increase entry count
sec Add Filelen +1 sec Add Filelen +1
adc #S.STAT will ends with CC adc #S.STAT will ends with CC
adc K.ReadDir.A.BufSize adc K.ReadDir.BufSize
sta K.ReadDir.A.BufSize sta K.ReadDir.BufSize
bcc .2 bcc .2
inc K.ReadDir.A.BufSize+1 inc K.ReadDir.BufSize+1
.2 tya .2 tya
clc clc
@ -137,7 +137,7 @@ K.ReadDir.A.ROOT
bcc .1 loop until 256 bytes scanned bcc .1 loop until 256 bytes scanned
* pass #2 Fill Buffer... * pass #2 Fill Buffer...
jsr K.ReadDir.A.GetBuf jsr K.ReadDir.GetBuf
bcs .99 bcs .99
.3 lda (ZPPtr2) .3 lda (ZPPtr2)
@ -153,15 +153,15 @@ K.ReadDir.A.ROOT
.4 lda (ZPPtr2),y .4 lda (ZPPtr2),y
sta K.MLI.PATH+1,y sta K.MLI.PATH+1,y
jsr K.ReadDir.A.AddToBuf jsr K.ReadDir.AddToBuf
iny iny
dex dex
bne .4 bne .4
txa Add ending 0 for C String txa Add ending 0 for C String
jsr K.ReadDir.A.AddToBuf jsr K.ReadDir.AddToBuf
jsr K.ReadDir.A.ClrStat jsr K.ReadDir.ClrStat
lda (ZPPtr2) lda (ZPPtr2)
@ -191,9 +191,9 @@ K.ReadDir.A.ROOT
>LDYA K.MLI.PARAMS+8 >LDYA K.MLI.PARAMS+8
>STYA K.S.STAT+S.STAT.BLOCKS >STYA K.S.STAT+S.STAT.BLOCKS
.80 jsr K.ReadDir.A.ADDSTAT .80 jsr K.ReadDir.ADDSTAT
dec K.ReadDir.A.EC dec K.ReadDir.EC
beq .5 beq .5
.88 lda ZPPtr2 .88 lda ZPPtr2
@ -211,14 +211,14 @@ K.ReadDir.A.ROOT
lda #16 lda #16
sta (ZPPtr1),y Flag that we returned somthing for next time sta (ZPPtr1),y Flag that we returned somthing for next time
jmp K.ReadDir.A.EXIT jmp K.ReadDir.EXIT
*-------------------------------------- *--------------------------------------
K.ReadDir.A.DIR sta K.MLI.PARAMS+1 A=#S.DIR.PRODOS.REF K.ReadDir.DIR sta K.MLI.PARAMS+1 A=#S.DIR.PRODOS.REF
>LDYAI 512 Get a 512 bytes buffer for reading dir... >LDYAI 512 Get a 512 bytes buffer for reading dir...
jsr K.GetMem.YA jsr K.GetMem
bcs .99 bcs .99
stx K.ReadDir.A.hMem stx K.ReadDir.hMem
>STYA K.MLI.PARAMS+2 For reading >STYA K.MLI.PARAMS+2 For reading
@ -246,18 +246,18 @@ K.ReadDir.A.DIR sta K.MLI.PARAMS+1 A=#S.DIR.PRODOS.REF
ldy #$1f+3 ldy #$1f+3
ldx #3 ldx #3
.1 lda (ZPPtr2),y Get K.ReadDir.A.EL.... From Block .1 lda (ZPPtr2),y Get K.ReadDir.EL.... From Block
sta K.ReadDir.A.EL,x sta K.ReadDir.EL,x
dey dey
dex dex
bpl .1 bpl .1
inc K.ReadDir.A.EC Add one to EC because we include VOL/DIR Header inc K.ReadDir.EC Add one to EC because we include VOL/DIR Header
bne .4 bne .4
inc K.ReadDir.A.EC+1 ...and ProDOS does NOT include header entry in EC inc K.ReadDir.EC+1 ...and ProDOS does NOT include header entry in EC
bra .4 bra .4
.98 jsr K.ReadDir.A.CLN .98 jsr K.ReadDir.CLN
sec sec
.99 rts .99 rts
@ -265,16 +265,16 @@ K.ReadDir.A.DIR sta K.MLI.PARAMS+1 A=#S.DIR.PRODOS.REF
ldx #3 ldx #3
.3 lda (ZPPtr1),y get this session parameters from S.DIR .3 lda (ZPPtr1),y get this session parameters from S.DIR
sta K.ReadDir.A.EL,x sta K.ReadDir.EL,x
dey dey
dex dex
bpl .3 bpl .3
.4 lda K.ReadDir.A.EC .4 lda K.ReadDir.EC
eor #$ff eor #$ff
tax tax
lda K.ReadDir.A.EC+1 lda K.ReadDir.EC+1
eor #$ff eor #$ff
tay tay
@ -284,14 +284,14 @@ K.ReadDir.A.DIR sta K.MLI.PARAMS+1 A=#S.DIR.PRODOS.REF
beq .98 no...exit beq .98 no...exit
* pass #1 compute BufSize... * pass #1 compute BufSize...
.5 lda K.ReadDir.A.EPB .5 lda K.ReadDir.EPB
sta K.ReadDir.A.ECIB sta K.ReadDir.ECIB
lda #1 For Ending 0 lda #1 For Ending 0
sta K.ReadDir.A.BufSize sta K.ReadDir.BufSize
stz K.ReadDir.A.BufSize+1 stz K.ReadDir.BufSize+1
K.ReadDir.A.DIR1 lda (ZPPtr2) X = EntryCount In This Block K.ReadDir.DIR1 lda (ZPPtr2) X = EntryCount In This Block
beq .7 Free slot....goto next beq .7 Free slot....goto next
and #$F0 get storage_type and #$F0 get storage_type
@ -315,32 +315,32 @@ K.ReadDir.A.DIR1 lda (ZPPtr2) X = EntryCount In This Block
.2 lda #2+S.STAT+3+S.STAT add "1." + S.STAT + "2.." + S.STAT... .2 lda #2+S.STAT+3+S.STAT add "1." + S.STAT + "2.." + S.STAT...
clc clc
adc K.ReadDir.A.BufSize adc K.ReadDir.BufSize
sta K.ReadDir.A.BufSize sta K.ReadDir.BufSize
bcc .3 bcc .3
inc K.ReadDir.A.BufSize+1 inc K.ReadDir.BufSize+1
.3 inx .3 inx
bne .7 bne .7
iny iny
bra K.ReadDir.A.DIR2 we reached last entry in whole DIR bra K.ReadDir.DIR2 we reached last entry in whole DIR
.7 lda ZPPtr2 .7 lda ZPPtr2
clc clc
adc K.ReadDir.A.EL adc K.ReadDir.EL
sta ZPPtr2 sta ZPPtr2
bcc .8 bcc .8
inc ZPPtr2+1 inc ZPPtr2+1
.8 dec K.ReadDir.A.ECIB .8 dec K.ReadDir.ECIB
bne K.ReadDir.A.DIR1 bne K.ReadDir.DIR1
* pass #2 Fill Buffer...(ZPPtr1 & Ptr2 can now be trashed) * pass #2 Fill Buffer...(ZPPtr1 & Ptr2 can now be trashed)
K.ReadDir.A.DIR2 jsr K.ReadDir.A.GetBuf K.ReadDir.DIR2 jsr K.ReadDir.GetBuf
bcs .9 bcs .9
lda K.ReadDir.A.EPB lda K.ReadDir.EPB
sta K.ReadDir.A.ECIB sta K.ReadDir.ECIB
.1 lda (ZPPtr3) .1 lda (ZPPtr3)
beq .7 Empty slot, skip beq .7 Empty slot, skip
@ -348,50 +348,50 @@ K.ReadDir.A.DIR2 jsr K.ReadDir.A.GetBuf
and #$F0 and #$F0
cmp #$F0 Vol Header ? cmp #$F0 Vol Header ?
bne .2 bne .2
jsr K.ReadDir.A.ADD. jsr K.ReadDir.ADD.
bra .6 bra .6
.2 cmp #$E0 Dir Header ? .2 cmp #$E0 Dir Header ?
bne .3 bne .3
jsr K.ReadDir.A.ADD. jsr K.ReadDir.ADD.
jsr K.ReadDir.A.ADD.. jsr K.ReadDir.ADD..
bra .6 bra .6
.3 jsr K.ReadDir.A.AddFNToBuf .3 jsr K.ReadDir.AddFNToBuf
jsr K.ReadDir.A.ClrStat jsr K.ReadDir.ClrStat
lda (ZPPtr3) lda (ZPPtr3)
and #$F0 and #$F0
cmp #$D0 Directory ? cmp #$D0 Directory ?
bne .5 bne .5
jsr K.ReadDir.A.ADDD jsr K.ReadDir.ADDD
bra .6 bra .6
.5 jsr K.ReadDir.A.ADDF .5 jsr K.ReadDir.ADDF
.6 lda K.ReadDir.A.EC decrease global counter... .6 lda K.ReadDir.EC decrease global counter...
sec sec
sbc #1 sbc #1
sta K.ReadDir.A.EC sta K.ReadDir.EC
lda K.ReadDir.A.EC+1 lda K.ReadDir.EC+1
sbc #0 sbc #0
sta K.ReadDir.A.EC+1 sta K.ReadDir.EC+1
ora K.ReadDir.A.EC ora K.ReadDir.EC
beq .8 0! no more files in DIR beq .8 0! no more files in DIR
.7 dec K.ReadDir.A.ECIB 0! no more file in block .7 dec K.ReadDir.ECIB 0! no more file in block
beq .8 beq .8
lda ZPPtr3 lda ZPPtr3
clc clc
adc K.ReadDir.A.EL adc K.ReadDir.EL
sta ZPPtr3 sta ZPPtr3
bcc .1 bcc .1
inc ZPPtr3+1 inc ZPPtr3+1
bra .1 bra .1
.9 jsr K.ReadDir.A.CLN .9 jsr K.ReadDir.CLN
sec sec
rts rts
@ -399,53 +399,53 @@ K.ReadDir.A.DIR2 jsr K.ReadDir.A.GetBuf
* lda #0 S.MEM.F.INIT0 already did this * lda #0 S.MEM.F.INIT0 already did this
* sta (ZPPtr4) Ending 0 * sta (ZPPtr4) Ending 0
lda K.ReadDir.A.hDir Restore ZPPtr1 trashed by STR API calls lda K.ReadDir.hDir Restore ZPPtr1 trashed by STR API calls
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA ZPPtr1 >STYA ZPPtr1
ldx #3 ldx #3
ldy #S.NODE.DIR.EL+3 ldy #S.NODE.DIR.EL+3
.81 lda K.ReadDir.A.EL,x Store back this session prameters to S.DIR .81 lda K.ReadDir.EL,x Store back this session prameters to S.DIR
sta (ZPPtr1),y sta (ZPPtr1),y
dey dey
dex dex
bpl .81 bpl .81
jsr K.ReadDir.A.CLN Discard READBUFFER jsr K.ReadDir.CLN Discard READBUFFER
K.ReadDir.A.EXIT K.ReadDir.EXIT
ldx #$ff Self Modified : hDIRENT ldx #$ff Self Modified : hDIRENT
txa txa
jmp K.GetMemPtr.A jmp K.GetMemPtr
*-------------------------------------- *--------------------------------------
K.ReadDir.A.CLN pha K.ReadDir.CLN pha
lda K.ReadDir.A.hMem lda K.ReadDir.hMem
jsr K.FreeMem.A jsr K.FreeMem.A
pla pla
rts rts
*-------------------------------------- *--------------------------------------
K.ReadDir.A.GetBuf K.ReadDir.GetBuf
>LDYA K.ReadDir.A.BufSize Get a BufSize bytes buffer for storing results >LDYA K.ReadDir.BufSize Get a BufSize bytes buffer for storing results
jsr K.GetMem0.YA make sure 0 filled jsr K.GetMem0 make sure 0 filled
bcs .9 bcs .9
stx K.ReadDir.A.EXIT+1 stx K.ReadDir.EXIT+1
>STYA ZPPtr4 >STYA ZPPtr4
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
K.ReadDir.A.ADD. ldx #1 filename="1." K.ReadDir.ADD. ldx #1 filename="1."
.HS 2C bit abs .HS 2C bit abs
K.ReadDir.A.ADD.. K.ReadDir.ADD..
ldx #2 filename="2.." ldx #2 filename="2.."
lda #'.' lda #'.'
.1 jsr K.ReadDir.A.AddToBuf Add X dot(s) .1 jsr K.ReadDir.AddToBuf Add X dot(s)
dex dex
bne .1 bne .1
txa txa
jsr K.ReadDir.A.AddToBuf Add Ending 0 jsr K.ReadDir.AddToBuf Add Ending 0
jsr K.ReadDir.A.ClrStat jsr K.ReadDir.ClrStat
* ldy #$25 total_blocks * ldy #$25 total_blocks
* lda (ZPPtr3),y * lda (ZPPtr3),y
@ -454,15 +454,15 @@ K.ReadDir.A.ADD..
* lda (ZPPtr3),y * lda (ZPPtr3),y
* sta K.S.STAT+S.STAT.BLOCKS+1 * sta K.S.STAT+S.STAT.BLOCKS+1
*-------------------------------------- *--------------------------------------
K.ReadDir.A.ADDD K.ReadDir.ADDD
lda #$0F lda #$0F
sta K.S.STAT+S.STAT.P.TYPE sta K.S.STAT+S.STAT.P.TYPE
lda /S.STAT.MODE.DIR lda /S.STAT.MODE.DIR
sta K.S.STAT+S.STAT.MODE+1 sta K.S.STAT+S.STAT.MODE+1
bra K.ReadDir.A.AddAccess bra K.ReadDir.AddAccess
*-------------------------------------- *--------------------------------------
K.ReadDir.A.ADDF K.ReadDir.ADDF
lda /S.STAT.MODE.REG lda /S.STAT.MODE.REG
sta K.S.STAT+S.STAT.MODE+1 sta K.S.STAT+S.STAT.MODE+1
@ -475,7 +475,7 @@ K.ReadDir.A.ADDF
dex dex
bne .1 bne .1
*-------------------------------------- *--------------------------------------
K.ReadDir.A.AddAccess K.ReadDir.AddAccess
ldy #$1E ProDOS Access ldy #$1E ProDOS Access
lda (ZPPtr3),y lda (ZPPtr3),y
@ -493,16 +493,16 @@ K.ReadDir.A.AddAccess
.3 txa .3 txa
sta K.S.STAT+S.STAT.MODE sta K.S.STAT+S.STAT.MODE
*-------------------------------------- *--------------------------------------
K.ReadDir.A.AddTime K.ReadDir.AddTime
>PUSHWI K.S.STAT+S.STAT.CTIME >PUSHWI K.S.STAT+S.STAT.CTIME
lda #$18 creation Date/time lda #$18 creation Date/time
jsr K.ReadDir.A.ConvertTime jsr K.ReadDir.ConvertTime
>PUSHWI K.S.STAT+S.STAT.MTIME >PUSHWI K.S.STAT+S.STAT.MTIME
lda #$21 mod Date/time lda #$21 mod Date/time
jsr K.ReadDir.A.ConvertTime jsr K.ReadDir.ConvertTime
*-------------------------------------- *--------------------------------------
K.ReadDir.A.AddStat K.ReadDir.AddStat
ldy #S.STAT-1 ldy #S.STAT-1
.1 lda K.S.STAT,y .1 lda K.S.STAT,y
@ -523,7 +523,7 @@ ADDF.DST .DA #S.STAT.P.TYPE,#S.STAT.BLOCKS,#S.STAT.BLOCKS+1
.DA #S.STAT.SIZE,#S.STAT.SIZE+1,#S.STAT.SIZE+2 .DA #S.STAT.SIZE,#S.STAT.SIZE+1,#S.STAT.SIZE+2
.DA #S.STAT.P.AUXTYPE,#S.STAT.P.AUXTYPE+1 .DA #S.STAT.P.AUXTYPE,#S.STAT.P.AUXTYPE+1
*-------------------------------------- *--------------------------------------
K.ReadDir.A.ClrStat K.ReadDir.ClrStat
ldx #S.STAT-1 ldx #S.STAT-1
.1 stz K.S.STAT,x .1 stz K.S.STAT,x
@ -531,7 +531,7 @@ K.ReadDir.A.ClrStat
bpl .1 bpl .1
rts rts
*-------------------------------------- *--------------------------------------
K.ReadDir.A.AddFNToBuf K.ReadDir.AddFNToBuf
ldy #$1C version/min_version for lowercase bitmap ldy #$1C version/min_version for lowercase bitmap
lda (ZPPtr3),y check bxxxxxxx.xxxxxxxx... lda (ZPPtr3),y check bxxxxxxx.xxxxxxxx...
bpl .7 not set, no lowercase bitmap present bpl .7 not set, no lowercase bitmap present
@ -571,24 +571,24 @@ K.ReadDir.A.AddFNToBuf
ldy #1 ldy #1
.8 lda (ZPPtr3),y .8 lda (ZPPtr3),y
jsr K.ReadDir.A.AddToBuf jsr K.ReadDir.AddToBuf
iny iny
dex dex
bne .8 bne .8
txa txa
jsr K.ReadDir.A.AddToBuf jsr K.ReadDir.AddToBuf
rts rts
*-------------------------------------- *--------------------------------------
K.ReadDir.A.AddToBuf K.ReadDir.AddToBuf
sta (ZPPtr4) sta (ZPPtr4)
inc ZPPtr4 inc ZPPtr4
bne .8 bne .8
inc ZPPtr4+1 inc ZPPtr4+1
.8 rts .8 rts
*-------------------------------------- *--------------------------------------
K.ReadDir.A.ConvertTime K.ReadDir.ConvertTime
clc clc
adc ZPPtr3 adc ZPPtr3
tay tay

View File

@ -283,7 +283,7 @@ DRV.SmartPort.Cnt
*-------------------------------------- *--------------------------------------
* NULL DEVICE * NULL DEVICE
*-------------------------------------- *--------------------------------------
DRV.NULL.Code cld DRV.NULL cld
jmp (.1,x) jmp (.1,x)
*-------------------------------------- *--------------------------------------
.1 .DA .2 STATUS .1 .DA .2 STATUS
@ -311,7 +311,7 @@ DRV.NULL.Code cld
*-------------------------------------- *--------------------------------------
* SYS DEVICE * SYS DEVICE
*-------------------------------------- *--------------------------------------
DRV.SYS.Code cld DRV.SYS cld
jmp (.1,x) jmp (.1,x)
.1 .DA .2 STATUS .1 .DA .2 STATUS
.DA A2osX.BADCALL READBLOCK .DA A2osX.BADCALL READBLOCK

View File

@ -122,12 +122,12 @@ K.ExpandStr stz .88+1 Reset Intermediate string...
.9 rts .9 rts
*/-------------------------------------- */--------------------------------------
* # PutEnv.YA * # PutEnv
* **In:** * **In:**
* Y,A = PTR to String NAME=VALUE (C-String) * Y,A = PTR to String NAME=VALUE (C-String)
* **Out:** * **Out:**
*\-------------------------------------- *\--------------------------------------
K.PutEnv.YA >STYA ZPPtr1 NAME=VALUE K.PutEnv >STYA ZPPtr1 NAME=VALUE
ldy #0 ldy #0
@ -263,14 +263,14 @@ K.SetEnv.I jsr K.UnsetEnv.I
* sec * sec
rts rts
*/-------------------------------------- */--------------------------------------
* # GetEnv.YA * # GetEnv
* **In:** * **In:**
* Y,A = PTR to NAME (PSTR) * Y,A = PTR to NAME (PSTR)
* **Out:** * **Out:**
* CC : Y,A = PTR to VALUE (PSTR) * CC : Y,A = PTR to VALUE (PSTR)
* CS : not found * CS : not found
*\-------------------------------------- *\--------------------------------------
K.GetEnv.YA >STYA ZPPtr1 K.GetEnv >STYA ZPPtr1
jsr ENV.FindVarP1 jsr ENV.FindVarP1
bcs .9 bcs .9
@ -280,12 +280,12 @@ K.GetEnv.YA >STYA ZPPtr1
.9 >LDYA ZPPtr3 .9 >LDYA ZPPtr3
rts rts
*/-------------------------------------- */--------------------------------------
* # UnsetEnv.YA * # UnsetEnv
* **In:** * **In:**
* Y,A = PTR To Name (PSTR) * Y,A = PTR To Name (PSTR)
* **Out:** * **Out:**
*\-------------------------------------- *\--------------------------------------
K.UnsetEnv.YA >STYA ZPPtr1 Store VAR Name K.UnsetEnv >STYA ZPPtr1 Store VAR Name
K.UnsetEnv.I jsr ENV.FindVarP1 K.UnsetEnv.I jsr ENV.FindVarP1
bcs K.UnsetEnv.I.8 not found, quit bcs K.UnsetEnv.I.8 not found, quit
@ -519,7 +519,7 @@ ENV.DelVarP3 >LDYA ZPPtr3 save actual Ptr
*-------------------------------------- *--------------------------------------
ENV.InitEnvP3 ldy #S.PS.hENV ENV.InitEnvP3 ldy #S.PS.hENV
lda (pPs),y lda (pPs),y
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA ZPPtr3 Store ENV >STYA ZPPtr3 Store ENV
rts rts
*-------------------------------------- *--------------------------------------

View File

@ -2,7 +2,7 @@ NEW
PREFIX /A2OSX.BUILD PREFIX /A2OSX.BUILD
AUTO 4,1 AUTO 4,1
*/-------------------------------------- */--------------------------------------
* # LoadTxtFile.YA * # LoadTxtFile
* Load TXT a file in memory (with ending 0) * Load TXT a file in memory (with ending 0)
* **In:** * **In:**
* Y,A = File Path * Y,A = File Path
@ -10,8 +10,7 @@ AUTO 4,1
* Y,A = File Length (without ending 0) * Y,A = File Length (without ending 0)
* X = hMem of Loaded File * X = hMem of Loaded File
*\-------------------------------------- *\--------------------------------------
K.LoadTxtFile.YA K.LoadTxtFile pha
pha
>PUSHWI 0 Aux type >PUSHWI 0 Aux type
>PUSHBI 4 S.FI.T.TXT >PUSHBI 4 S.FI.T.TXT
>PUSHBI SYS.FOpen.R >PUSHBI SYS.FOpen.R
@ -52,7 +51,7 @@ K.LoadFile clc
lda #K.E.FTB lda #K.E.FTB
bra .99 bra .99
.1 jsr K.GetMem.YA .1 jsr K.GetMem
bcs .99 bcs .99
>STYA FIO.Mem >STYA FIO.Mem
stx .8+1 stx .8+1

View File

@ -154,9 +154,9 @@ GP.SysCall dec IRQ.InKernel
*-------------------------------------- *--------------------------------------
GP.LibCall dec IRQ.InKernel GP.LibCall dec IRQ.InKernel
pha No need to save X, K.GetMemPtr.A will leave it unmodified pha No need to save X, K.GetMemPtr will leave it unmodified
tya Get LIB hMem in A tya Get LIB hMem in A
jsr K.GetMemPtr.A Get LIB Code Segment (MemMgr in $E000, no BNK change) jsr K.GetMemPtr Get LIB Code Segment (MemMgr in $E000, no BNK change)
>STYA .1+1 >STYA .1+1
pla pla
.1 jsr * SELF MODIFIED .1 jsr * SELF MODIFIED

View File

@ -149,7 +149,7 @@ Kernel.Init3 sta SETALTZP
jsr PS0Init jsr PS0Init
bcs * bcs *
>LDYAI MSG.Init3 >LDYAI MSG.Init3
>SYSCALL PrintF.YA >SYSCALL PrintF
jsr DevMgrInit jsr DevMgrInit
bcs * bcs *
@ -168,28 +168,28 @@ Kernel.Init3 sta SETALTZP
ldy #S.PS.hPREFIX ldy #S.PS.hPREFIX
lda (pPs),y lda (pPs),y
>SYSCALL GetMemPtr.A >SYSCALL GetMemPtr
>PUSHYA >PUSHYA
>LDYAI MSG.Prefix >LDYAI MSG.Prefix
>SYSCALL PrintF.YA >SYSCALL PrintF
>PUSHWI STARTUP.CMDLINE >PUSHWI STARTUP.CMDLINE
>LDYAI MSG.Startup >LDYAI MSG.Startup
>SYSCALL PrintF.YA >SYSCALL PrintF
>LDYAI STARTUP.CMDLINE >LDYAI STARTUP.CMDLINE
>SYSCALL ExpandStr.YA >SYSCALL ExpandStr
phx Save Expanded CMDLINE for discard phx Save Expanded CMDLINE for discard
>SYSCALL CreatePS.YA >SYSCALL CreatePS
bcs .9 bcs .9
pla pla
>SYSCALL FreeMem.A ...discard... >SYSCALL FreeMem ...discard...
>LDYAI MSG.Init3.OK >LDYAI MSG.Init3.OK
>SYSCALL PrintF.YA >SYSCALL PrintF
>DEBUGOA >DEBUGOA
@ -197,7 +197,7 @@ Kernel.Init3 sta SETALTZP
.9 >PUSHA .9 >PUSHA
>LDYAI MSG.StartupErr >LDYAI MSG.StartupErr
>SYSCALL PrintF.YA >SYSCALL PrintF
bra * No need to discard Expanded CMDLINE bra * No need to discard Expanded CMDLINE
*-------------------------------------- *--------------------------------------
* Modified CHARGET/CHARGOT for ROM CALL * Modified CHARGET/CHARGOT for ROM CALL
@ -461,18 +461,10 @@ MemMgrInit >LDYAI Mem.MHiMem
rts rts
*-------------------------------------- *--------------------------------------
PS0Init ldx #S.DEV*2 NUL,SYS PS0Init sta SET80STORE
.1 lda DevMgr.NUL-1,x
sta Dev.Table-1,x
dex
bne .1
ldx #0 ldx #0
sta SET80STORE
ldy #0 ldy #0
.2 lda DevMgr.SYS.TITLE,y .2 lda DevMgr.SYS.TITLE,y
@ -533,7 +525,7 @@ PS0Init ldx #S.DEV*2 NUL,SYS
>STYA pStack >STYA pStack
>LDYAI DEV.SYS >LDYAI DEV.SYS
>SYSCALL MkNod.YA Will open SYS >SYSCALL MkNod Will open SYS
bcs .9 bcs .9
ldy #S.PS.hStdIn ldy #S.PS.hStdIn
@ -551,25 +543,29 @@ PS0Init ldx #S.DEV*2 NUL,SYS
*-------------------------------------- *--------------------------------------
DevMgr.SYS.TITLE .AZ "A2osX System Screen" DevMgr.SYS.TITLE .AZ "A2osX System Screen"
*-------------------------------------- *--------------------------------------
DevMgr.NUL cld IOCTL.NULL .DA #S.NODE.T.CDEV
jmp (DevMgr.NUL.Code,x) .DA #0 HANDLER
.DA #S.DEV.S.WRITE+S.DEV.S.READ+S.DEV.S.OPENED .DA #0 BUSID
.BS 6 .DA #0 DEVID
.AZ "NUL" NAME .DA DRV.NULL
.HS 00 NAME must Be 4 bytes long .DA 0 ROMPTR
.AZ "NULL" NAME
.HS 000000
*-------------------------------------- *--------------------------------------
DevMgr.SYS cld IOCTL.SYS .DA #S.NODE.T.CDEV
jmp (DevMgr.SYS.Code,x) .DA #0 HANDLER
.DA #S.DEV.S.WRITE+S.DEV.S.READ .DA #0 BUSID
.BS 6 .DA #1 DEVID
.DA DRV.SYS
.DA 0 ROMPTR
.AZ "SYS" NAME .AZ "SYS" NAME
.HS 00 NAME must Be 4 bytes long .HS 00000000
*-------------------------------------- *--------------------------------------
* Setup AuxLC $FFFE->Kernel IRQ Handler * Setup AuxLC $FFFE->Kernel IRQ Handler
* if irq not handled, jmp (S.IrqMgrOldFFFE) * if irq not handled, jmp (S.IrqMgrOldFFFE)
*-------------------------------------- *--------------------------------------
IrqMgrInit >LDYAI MSG.IRQ IrqMgrInit >LDYAI MSG.IRQ
>SYSCALL PrintF.YA >SYSCALL PrintF
php php
sei sei
@ -600,7 +596,7 @@ IrqMgrInit >LDYAI MSG.IRQ
>STYA GP.IrqH.JSR+1 >STYA GP.IrqH.JSR+1
>LDYAI MSG.IRQ.CLOCK >LDYAI MSG.IRQ.CLOCK
>SYSCALL PrintF.YA >SYSCALL PrintF
clc clc
rts rts
@ -616,7 +612,7 @@ IrqMgrInit >LDYAI MSG.IRQ
>STYA GP.IrqH.JSR+1 >STYA GP.IrqH.JSR+1
>LDYAI MSG.IRQ.VBL >LDYAI MSG.IRQ.VBL
>SYSCALL PrintF.YA >SYSCALL PrintF
clc clc
rts rts
@ -627,7 +623,7 @@ IrqMgrInit >LDYAI MSG.IRQ
sta SYS.BASL0+38 sta SYS.BASL0+38
>LDYAI MSG.IRQ.POLL >LDYAI MSG.IRQ.POLL
>SYSCALL PrintF.YA >SYSCALL PrintF
clc clc
rts rts
@ -795,7 +791,7 @@ IrqMgrInit.HZ2Tick
rts rts
*-------------------------------------- *--------------------------------------
DevMgrInit >LDYAI MSG.DEV DevMgrInit >LDYAI MSG.DEV
>SYSCALL PrintF.YA >SYSCALL PrintF
lda DEVCNT lda DEVCNT
sta DevMgrInit.DEVCNT sta DevMgrInit.DEVCNT
@ -914,11 +910,11 @@ DevMgrInit.SP ldy #$ff
clc clc
adc #3 Compute smartport entry point adc #3 Compute smartport entry point
sta .1+1 sta .1+1
sta DEV.HEADER+S.DEV.ROM.JMP sta IOCTL.BDEV+S.NODE.DEV.ROMPTR
lda ZPPtr1+1 lda ZPPtr1+1
sta .1+2 sta .1+2
lda DEV.HEADER+S.DEV.DEVID lda IOCTL.BDEV+S.DEV.DEVID
sta SP.DEV.STATUS.DEVID sta SP.DEV.STATUS.DEVID
.1 jsr $ffff Self Modified .1 jsr $ffff Self Modified
@ -926,38 +922,23 @@ DevMgrInit.SP ldy #$ff
.DA SP.DEV.STATUS .DA SP.DEV.STATUS
bcs .9 bcs .9
lda SP.DEV.STATUS.DATA+S.DSTAT.S
sta DEV.HEADER+S.DEV.S
>LDYAI A2osX.PrtDrv >LDYAI A2osX.PrtDrv
jsr DevMgrInit.AddDev jsr DevMgrInit.AddDev
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
DevMgrInit.AddDev DevMgrInit.AddDev
>STYA DEV.HEADER+S.DEV.DRV.JMP >STYA IOCTL.BDEV+S.NODE.DEV.DRVPTR
lda DevMgr.Count
cmp #K.DEV.MAX
beq .9
inc DevMgr.Count lda IOCTL.BDEV+S.NODE.DEV.BUSID
>SYSCALL GetDevByID.A
>STYA ZPPtr2
lda DEV.HEADER+S.DEV.BUSID
ora #$30 ora #$30
sta DEV.HEADER+S.DEV.NAME+1 SnDy sta IOCTL.BDEV+S.NODE.DEV.NAME+1 SnDy
lda DEV.HEADER+S.DEV.DEVID lda IOCTL.BDEV+S.NODE.DEV.DEVID
ora #$30 ora #$30
sta DEV.HEADER+S.DEV.NAME+3 SxDn sta IOCTL.BDEV+S.NODE.DEV.NAME+3 SxDn
ldy #S.DEV-1 >LDYAI IOCTL.BDEV
.1 lda DEV.HEADER,y
sta (ZPPtr2),y
dey
bpl .1
clc clc
rts rts
@ -966,15 +947,14 @@ DevMgrInit.AddDev
sec sec
rts rts
*-------------------------------------- *--------------------------------------
DEV.HEADER cld IOCTL.BDEV .DA #S.NODE.T.BDEV
jmp ($ffff,x) .DA #0 HANDLER
.DA #S.DEV.S.BLOCK S .DA #0 BUSID
.BS 1 F .DA #0 DEVID
.BS 1 BUS.ID .BS 2 DRVPTR
.BS 1 DEV.ID .BS 2 ROMPTR
.BS 2 ROM.JMP .AZ "S1D1" NAME
.BS 1 .HS 000000
.AZ "S1D1" 5 bytes
*-------------------------------------- *--------------------------------------
SmartPort.OFS .HS 010305 SmartPort.OFS .HS 010305
SmartPort.SIG .HS 200003 SmartPort.SIG .HS 200003
@ -988,7 +968,7 @@ SP.DEV.STATUS.DATA
.BS S.DSTAT .BS S.DSTAT
*-------------------------------------- *--------------------------------------
EvtMgrInit >LDYAI MSG.EVT EvtMgrInit >LDYAI MSG.EVT
>SYSCALL PrintF.YA >SYSCALL printf
lda #$A5 lda #$A5
sta A2osX.TIMER16 sta A2osX.TIMER16
lda #$9B lda #$9B
@ -1000,13 +980,13 @@ EvtMgrInit >LDYAI MSG.EVT
rts rts
*-------------------------------------- *--------------------------------------
FltMgrInit >LDYAI MSG.FLT FltMgrInit >LDYAI MSG.FLT
>SYSCALL PrintF.YA >SYSCALL printf
stz Flt.Table stz Flt.Table
clc clc
rts rts
*-------------------------------------- *--------------------------------------
TskMgrInit >LDYAI MSG.TSK TskMgrInit >LDYAI MSG.TSK
>SYSCALL PrintF.YA >SYSCALL printf
jsr CORE.PSSelect0 jsr CORE.PSSelect0

View File

@ -2,7 +2,7 @@ NEW
PREFIX /A2OSX.BUILD PREFIX /A2OSX.BUILD
AUTO 4,1 AUTO 4,1
*-------------------------------------- *--------------------------------------
IO.SELECT jsr K.GetMemPtr.A IO.SELECT jsr K.GetMemPtr
>STYA pNode >STYA pNode
rts rts
*-------------------------------------- *--------------------------------------
@ -40,7 +40,7 @@ IO.WRITE.CDEV ldy #S.NODE.DEV.JMP
.1 jmp $ffff .1 jmp $ffff
*-------------------------------------- *--------------------------------------
IO.WRITE.SSOCK lda (pNode) #S.NODE.HANDLER IO.WRITE.SSOCK lda (pNode) #S.NODE.HANDLER
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA .1 >STYA .1
ldy #S.NODE.SSOCK.HSKT ldy #S.NODE.SSOCK.HSKT
@ -60,11 +60,11 @@ IO.WRITE.FIFO ldy #S.NODE.FIFO.S
ldy #S.NODE.FIFO.hMem ldy #S.NODE.FIFO.hMem
lda (pNode),y lda (pNode),y
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA .1+2 >STYA .1+2
ldy #S.NODE.FIFO.Head ldy #S.NODE.FIFO.Head
lda (pNode),y lda (pNodae),y
inc inc
dey #S.NODE.FIFO.Tail dey #S.NODE.FIFO.Tail
cmp (pNode),y cmp (pNode),y

View File

@ -136,7 +136,7 @@ K.SYSCALL.JMP .DA 0 $00
*-------------------------------------- *--------------------------------------
* $E000 * $E000
*-------------------------------------- *--------------------------------------
.DA K.GetStkObjProperty $E0 .DA K.GetStkObjProp $E0
.DA K.FreeMem .DA K.FreeMem
.DA K.GetMemPtr .DA K.GetMemPtr
.DA K.GetMemByID .DA K.GetMemByID

View File

@ -240,7 +240,7 @@ K.FreeMem phy
beq * Slot=0, reserved by Kernel beq * Slot=0, reserved by Kernel
jsr K.GetMemByID.A X unmodified jsr K.GetMemByID X unmodified
lda (ZPMemMgrSPtr) lda (ZPMemMgrSPtr)
bpl .9 In use ? bpl .9 In use ?
@ -257,7 +257,7 @@ K.FreeMem phy
lda (ZPMemMgrSPtr),y Any BINPATH to discard ? lda (ZPMemMgrSPtr),y Any BINPATH to discard ?
beq .1 beq .1
jsr K.GetMemByID.A X unmodified jsr K.GetMemByID X unmodified
lda (ZPMemMgrSPtr) lda (ZPMemMgrSPtr)
bpl * ***MUST BE ALLOCATED*** bpl * ***MUST BE ALLOCATED***
@ -267,7 +267,7 @@ K.FreeMem phy
.1 lda Mem.LastSlot .1 lda Mem.LastSlot
beq .8 beq .8
jsr K.GetMemByID.A X unmodified jsr K.GetMemByID X unmodified
lda (ZPMemMgrSPtr) lda (ZPMemMgrSPtr)
bmi .8 used, exit bmi .8 used, exit
@ -275,7 +275,7 @@ K.FreeMem phy
beq .3 empty list: go set Mem.Free=Mem.HiMem beq .3 empty list: go set Mem.Free=Mem.HiMem
lda Mem.LastSlot lda Mem.LastSlot
jsr K.GetMemByID.A X unmodified jsr K.GetMemByID X unmodified
lda (ZPMemMgrSPtr) lda (ZPMemMgrSPtr)
bpl .2 free again! loop bpl .2 free again! loop
@ -315,7 +315,7 @@ K.FreeMem phy
>PUSHYA >PUSHYA
>LDYAI K.FreeMem.ERR >LDYAI K.FreeMem.ERR
>SYSCALL PrintF.YA >SYSCALL printf
.91 ldx #$ff .91 ldx #$ff
bit $C000,x bit $C000,x
@ -331,7 +331,7 @@ K.FreeMem.ERR .AZ "FreeMem:%H:hMem already freed."
* Y,A = PTR to MemBlock * Y,A = PTR to MemBlock
* (X unmodified) * (X unmodified)
*\-------------------------------------- *\--------------------------------------
K.GetMemPtr jsr K.GetMemByID.A K.GetMemPtr jsr K.GetMemByID
ldy #S.MEM.PTR ldy #S.MEM.PTR
lda (ZPMemMgrSPtr),y lda (ZPMemMgrSPtr),y
pha pha
@ -419,7 +419,7 @@ K.NewStr >STYA .1+1
bne .3 bne .3
inc inc
.3 jsr K.GetMem.YA .3 jsr K.GetMem
bcs .9 bcs .9
>STYA .5+1 >STYA .5+1
@ -524,7 +524,7 @@ K.SListFree
*\-------------------------------------- *\--------------------------------------
K.GetStkObjProp phy K.GetStkObjProp phy
sta SETREADAUX sta SETREADAUX
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA ZPMemMgrTmp1 >STYA ZPMemMgrTmp1
ply ply
@ -592,7 +592,7 @@ K.LoadStkObj >SYSCALL LoadFile
>STYA A4L Save Destination Address in AUX >STYA A4L Save Destination Address in AUX
lda .8+1 lda .8+1
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA A1L Save MAIN base Ptr >STYA A1L Save MAIN base Ptr

View File

@ -35,7 +35,7 @@ X.GUIOSD >STYA ZPCmdPtr
txa txa
beq .3 beq .3
jsr GO.GetMemPtr.A jsr GO.GetMemPtr
>STYA ZPDstBMPtr >STYA ZPDstBMPtr
@ -150,7 +150,7 @@ BITBLT >LDYA CB.CACHE+S.CB.SrcPtr
bne BITBLT.1 bne BITBLT.1
tya tya
jsr GO.GetMemPtr.A jsr GO.GetMemPtr
BITBLT.1 >STYA ZPSrcBMPtr BITBLT.1 >STYA ZPSrcBMPtr
@ -190,7 +190,7 @@ GETTEXTSIZE clc
php php
lda CB.Cache+S.CB.hFONT lda CB.Cache+S.CB.hFONT
jsr GO.GetMemPtr.A jsr GO.GetMemPtr
>STYA ZPFontPtr >STYA ZPFontPtr
ldy #S.FON-1 ldy #S.FON-1
@ -566,7 +566,7 @@ BM.Create lda DstBM.Cache+S.BM.W
tay tay
pla pla
adc /S.BM adc /S.BM
jsr GO.GetMem.YA jsr GO.GetMem
bcs .9 bcs .9
>STYA ZPDstBMPtr >STYA ZPDstBMPtr
@ -652,9 +652,9 @@ CB.Update >LDYA ZPCmdPtr
clc Aux To Main clc Aux To Main
jmp AuxMove jmp AuxMove
*-------------------------------------- *--------------------------------------
GO.GetMem.YA ldx #SYS.GetMem.YA GO.GetMem ldx #SYS.GetMem
.HS 2C BIT ABS .HS 2C BIT ABS
GO.GetMemPtr.A ldx #SYS.GetMemPtr.A GO.GetMemPtr ldx #SYS.GetMemPtr
jmp (K.SYSCALL.JMP,x) jmp (K.SYSCALL.JMP,x)
*-------------------------------------- *--------------------------------------
CB.Cache .BS S.CB CB.Cache .BS S.CB

View File

@ -56,7 +56,7 @@ PFT.CheckPathYA
ldy #S.PFT.HANDLER ldy #S.PFT.HANDLER
lda (ZPPtr2),y get hLib lda (ZPPtr2),y get hLib
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA .7+1 >STYA .7+1
pla discard JSR return @ pla discard JSR return @
@ -85,12 +85,12 @@ PFT.CheckNodeSTK
lda (pStack) read hFILE on top of stack lda (pStack) read hFILE on top of stack
PFT.CheckNodeA sta .9+1 save hFILE PFT.CheckNodeA sta .9+1 save hFILE
jsr K.GetMemPtr.A X = unmodified jsr K.GetMemPtr X = unmodified
>STYA ZPPtr1 >STYA ZPPtr1
lda (ZPPtr1) lda (ZPPtr1)
beq .9 Handler is 0, back to kernel.... beq .9 Handler is 0, back to kernel....
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA .1+1 >STYA .1+1
pla discard JSR return @ pla discard JSR return @

View File

@ -2,26 +2,23 @@ NEW
PREFIX /A2OSX.BUILD PREFIX /A2OSX.BUILD
AUTO 4,1 AUTO 4,1
*/-------------------------------------- */--------------------------------------
* # ExecPSNewEnv.YA * # ExecPSNewEnv.
* # ExecPS.YA (Blocking Parent PID) * # ExecPS (Blocking Parent PID)
* # CreatePSNewEnv.YA * # CreatePSNewEnv
* # CreatePS.YA (Non Blocking) * # CreatePS (Non Blocking)
* **In:** * **In:**
* Y,A = PTR To Cmd Line * Y,A = PTR To Cmd Line
* **Out:** * **Out:**
* A = Child PSID * A = Child PSID
*\-------------------------------------- *\--------------------------------------
K.ExecPSNewEnv.YA K.ExecPSNewEnv ldx #S.PS.F.DUPENV+S.PS.F.HOLD
ldx #S.PS.F.DUPENV+S.PS.F.HOLD
.HS 2C bit abs .HS 2C bit abs
K.ExecPS.YA K.ExecPS ldx #S.PS.F.HOLD
ldx #S.PS.F.HOLD
.HS 2C bit abs .HS 2C bit abs
K.CreatePSNewEnv.YA K.CreatePSNewEnv
ldx #S.PS.F.DUPENV ldx #S.PS.F.DUPENV
.HS 2C bit abs .HS 2C bit abs
K.CreatePS.YA K.CreatePS ldx #0
ldx #0
stx PS.Flags stx PS.Flags
>STYA PS.CL >STYA PS.CL
@ -93,7 +90,7 @@ PS.CreateChild ldx #0
phx phx
>LDYAI S.PS >LDYAI S.PS
jsr K.GetMem0.YA Blank Everything in this S.PS jsr K.GetMem0 Blank Everything in this S.PS
bcs .99 bcs .99
>STYA ZPPtr3 >STYA ZPPtr3
@ -101,7 +98,7 @@ PS.CreateChild ldx #0
plx plx
sta PS.Table.hMem,x sta PS.Table.hMem,x
jsr PS.SetMemOwner Set Ownership jsr PS.SetMemOwner Set Ownership
ldy #S.PS.PID ldy #S.PS.PID
lda CORE.LastPSID lda CORE.LastPSID
@ -115,7 +112,7 @@ PS.CreateChild ldx #0
ldy #S.PS.hPREFIX copy hPREFIX... ldy #S.PS.hPREFIX copy hPREFIX...
lda (pPs),y lda (pPs),y
jsr K.GetMemPtr.A jsr K.GetMemPtr
jsr K.NewStr.YA jsr K.NewStr.YA
bcs .9 bcs .9
@ -191,7 +188,7 @@ PS.CmdLine2Args >STYA ZPPtr1
bcc .3 bcc .3
inc inc
.3 jsr K.GetMem.YA .3 jsr K.GetMem
bcs .9 bcs .9
phy save PTR.LO phy save PTR.LO
@ -271,7 +268,7 @@ PS.Init jsr BIN.Load.YA Y,A=filename full path
ldy #S.PS.hCS ldy #S.PS.hCS
sta (ZPPtr3),y save CS hMem in S.PS sta (ZPPtr3),y save CS hMem in S.PS
jsr K.GetMemByID.A jsr K.GetMemByID
jsr PS.SetMemOwner Set Ownership jsr PS.SetMemOwner Set Ownership
ldy #H.BIN.EXE.DS.SIZE+1 ldy #H.BIN.EXE.DS.SIZE+1
@ -285,7 +282,7 @@ PS.Init jsr BIN.Load.YA Y,A=filename full path
lda (ZPPtr4),y lda (ZPPtr4),y
tay tay
txa Y,A = DS.SIZE txa Y,A = DS.SIZE
jsr K.GetMem0.YA jsr K.GetMem0
bcs .9 bcs .9
phy phy
@ -337,17 +334,17 @@ PS.Init jsr BIN.Load.YA Y,A=filename full path
clc clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
* PS.DupEnv.A * PS.DupEnv
* In: * In:
* A = ENV hMem To Duplicate * A = ENV hMem To Duplicate
* Out: * Out:
* A = hMem to new ENV * A = hMem to new ENV
*-------------------------------------- *--------------------------------------
PS.DupEnv.A jsr K.GetMemPtr.A PS.DupEnv jsr K.GetMemPtr
>STYA ZPPtr1 >STYA ZPPtr1
>LDYAI K.ENV.SIZE >LDYAI K.ENV.SIZE
jsr K.GetMem.YA jsr K.GetMem
bcs .9 bcs .9
>STYA ZPPtr2 >STYA ZPPtr2
@ -385,13 +382,13 @@ PS.SetMemOwner lda CORE.LastPSID
sta (ZPMEMMGR),y sta (ZPMEMMGR),y
rts rts
*/-------------------------------------- */--------------------------------------
* # GetMemStat.YA * # GetMemStat
* **In:** * **In:**
* Y,A = Ptr to 24 bytes buffer * Y,A = Ptr to 24 bytes buffer
* **Out:** * **Out:**
* Buffer filled with memory stats * Buffer filled with memory stats
*\-------------------------------------- *\--------------------------------------
K.GetMemStat.YA >STYA ZPMemMgrTmp1 K.GetMemStat >STYA ZPMemMgrTmp1
ldy #22 ldy #22
ldx #6 ldx #6
@ -420,25 +417,25 @@ K.GetMemStat.YA >STYA ZPMemMgrTmp1
bpl .3 bpl .3
rts rts
*/-------------------------------------- */--------------------------------------
* # GetPSStatus.A * # GetPSStatus
* **In:** * **In:**
* A = PID * A = PID
* **Out:** * **Out:**
* A = Status Byte * A = Status Byte
*\-------------------------------------- *\--------------------------------------
K.GetPSStatus.A jsr CORE.GetPSByID.A K.GetPSStatus jsr CORE.GetPSByID
bcs .9 bcs .9
>STYA ZPPtr1 >STYA ZPPtr1
lda (ZPPtr1) lda (ZPPtr1)
.9 rts .9 rts
*/-------------------------------------- */--------------------------------------
* # GetPSStat.YA * # GetPSStat
* **In:** * **In:**
* Y,A = Ptr to 24 bytes buffer * Y,A = Ptr to 24 bytes buffer
* **Out:** * **Out:**
* Buffer filled with PS stats * Buffer filled with PS stats
*\-------------------------------------- *\--------------------------------------
K.GetPSStat.YA >STYA ZPPtr1 K.GetPSStat >STYA ZPPtr1
ldx #0 ldx #0

View File

@ -8,7 +8,7 @@ X.SLIST jmp (.1-SYS.SListAdd,x)
.DA SLIST.GetByID .DA SLIST.GetByID
.DA SLIST.UpdateByID .DA SLIST.UpdateByID
.DA SLIST.New .DA SLIST.New
.DA SLIST.Free.A .DA SLIST.Free
*-------------------------------------- *--------------------------------------
SLIST.Add jsr SLIST.Search SLIST.Add jsr SLIST.Search
bcc .99 Lookup succeeded...DUP bcc .99 Lookup succeeded...DUP
@ -146,13 +146,13 @@ SLIST.UpdateByID
rts rts
*-------------------------------------- *--------------------------------------
SLIST.New >LDYAI 160 40k Max before out of memory!!! SLIST.New >LDYAI 160 40k Max before out of memory!!!
jsr K.GetMem0.YA jsr K.GetMem0
bcs .9 bcs .9
>STYA ZPSListIBlkPtr >STYA ZPSListIBlkPtr
stx .8+1 stx .8+1
>LDYAI 256 >LDYAI 256
jsr K.GetMem0.YA jsr K.GetMem0
bcs .9 bcs .9
txa txa
sta (ZPSListIBlkPtr) sta (ZPSListIBlkPtr)
@ -161,44 +161,44 @@ SLIST.New >LDYAI 160 40k Max before out of memory!!!
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
SLIST.Free.A sta .8+1 SLIST.Free sta .8+1
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA .1+1 >STYA .1+1
ldx #0 ldx #0
.1 lda $ffff,x SELF MODIFIED .1 lda $ffff,x SELF MODIFIED
beq .8 beq .8
jsr K.FreeMem.A jsr K.FreeMem
inx inx
bra .1 bra .1
.8 lda #$ff SELF MODIFIED .8 lda #$ff SELF MODIFIED
jmp K.FreeMem.A jmp K.FreeMem
*-------------------------------------- *--------------------------------------
SLIST.Select jsr K.GetMemPtr.A SLIST.Select jsr K.GetMemPtr
>STYA ZPSListIBlkPtr >STYA ZPSListIBlkPtr
ldy ZPSListID+1 ldy ZPSListID+1
sty SLIST.IndexOfs sty SLIST.IndexOfs
lda (ZPSListIBlkPtr),y lda (ZPSListIBlkPtr),y
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA ZPSListDBlkPtr >STYA ZPSListDBlkPtr
lda ZPSListID lda ZPSListID
sta SLIST.BlockOfs sta SLIST.BlockOfs
rts rts
*-------------------------------------- *--------------------------------------
SLIST.Search jsr K.GetMemPtr.A SLIST.Search jsr K.GetMemPtr
>STYA ZPSListIBlkPtr >STYA ZPSListIBlkPtr
stz SLIST.IndexOfs stz SLIST.IndexOfs
stz ZPSListID+1 stz ZPSListID+1
lda (ZPSListIBlkPtr) lda (ZPSListIBlkPtr)
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA ZPSListDBlkPtr >STYA ZPSListDBlkPtr
stz SLIST.BlockOfs stz SLIST.BlockOfs
@ -276,7 +276,7 @@ SLIST.GetNextBlockByte
sty SLIST.IndexOfs sty SLIST.IndexOfs
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA ZPSListDBlkPtr >STYA ZPSListDBlkPtr
stz SLIST.BlockOfs stz SLIST.BlockOfs
@ -300,7 +300,7 @@ SLIST.AddBlockByte
phx phx
>LDYAI 256 >LDYAI 256
jsr K.GetMem0.YA jsr K.GetMem0
bcs .9 bcs .9
>STYA ZPSListDBlkPtr >STYA ZPSListDBlkPtr
txa txa
@ -334,7 +334,7 @@ SLIST.SetBlockByte
ldy SLIST.IndexOfs ldy SLIST.IndexOfs
lda (ZPSListIBlkPtr),y lda (ZPSListIBlkPtr),y
beq * beq *
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA ZPSListDBlkPtr >STYA ZPSListDBlkPtr
* stz SLIST.BlockOfs * stz SLIST.BlockOfs

View File

@ -84,7 +84,7 @@ K.Stat.DST .DA #S.STAT.P.TYPE
.DA #S.STAT.P.AUXTYPE,#S.STAT.P.AUXTYPE+1 .DA #S.STAT.P.AUXTYPE,#S.STAT.P.AUXTYPE+1
.DA #S.STAT.BLOCKS,#S.STAT.BLOCKS+1 .DA #S.STAT.BLOCKS,#S.STAT.BLOCKS+1
*/------------------------------------- */-------------------------------------
* # MKDir.YA * # MKDir
* **In:** * **In:**
* Y,A = DIR name * Y,A = DIR name
* **Out:** * **Out:**
@ -92,7 +92,7 @@ K.Stat.DST .DA #S.STAT.P.TYPE
* CS : error * CS : error
* A = EC * A = EC
*\------------------------------------- *\-------------------------------------
K.MKDir.YA jsr PFT.CheckPathYA K.MKDir jsr PFT.CheckPathYA
jsr STDIO.SetMLIPathYA jsr STDIO.SetMLIPathYA
lda #S.FI.A.FULL lda #S.FI.A.FULL
sta K.MLI.PARAMS+S.FI.A sta K.MLI.PARAMS+S.FI.A
@ -112,7 +112,7 @@ K.MKDir.YA jsr PFT.CheckPathYA
>MLICALL MLICREATE >MLICALL MLICREATE
rts rts
*/-------------------------------------- */--------------------------------------
* # MkNod.YA * # MkNod
* return a hFile for a given Device Name * return a hFile for a given Device Name
* **In:** * **In:**
* Y,A=DevName * Y,A=DevName
@ -120,7 +120,7 @@ K.MKDir.YA jsr PFT.CheckPathYA
* CC = OK, CS = ERROR * CC = OK, CS = ERROR
* A = hFILE * A = hFILE
*\-------------------------------------- *\--------------------------------------
K.MkNod.YA jsr K.GetDevByName.YA Ptr1=NAME K.MkNod jsr K.GetDevByName.YA Ptr1=NAME
bcs .9 bcs .9
>STYA .1+1 >STYA .1+1
stx .2+1 stx .2+1
@ -136,7 +136,7 @@ K.MkNod.YA jsr K.GetDevByName.YA Ptr1=NAME
bcs .9 bcs .9
>LDYAI S.NODE.DEV >LDYAI S.NODE.DEV
jsr K.GetMem0.YA jsr K.GetMem0
bcs .9 bcs .9
>STYA ZPPtr3 Ptr3=S.NODE >STYA ZPPtr3 Ptr3=S.NODE
@ -173,13 +173,13 @@ K.MkNod.YA jsr K.GetDevByName.YA Ptr1=NAME
* A = hFILE * A = hFILE
*\-------------------------------------- *\--------------------------------------
K.MKFIFO >LDYAI 256 K.MKFIFO >LDYAI 256
jsr K.GetMem.YA jsr K.GetMem
bcs .99 bcs .99
stx .1+1 save FIFO buffer stx .1+1 save FIFO buffer
>LDYAI S.NODE.FIFO >LDYAI S.NODE.FIFO
jsr K.GetMem0.YA jsr K.GetMem0
bcs .9 bcs .9

View File

@ -593,7 +593,7 @@ K.GetChar ldy #S.PS.hStdIn
* CC = success * CC = success
* A = char * A = char
*\-------------------------------------- *\--------------------------------------
K.GetC.A jsr K.GetMemPtr.A K.GetC.A jsr K.GetMemPtr
>STYA pDev >STYA pDev
ldy #S.NODE.T ldy #S.NODE.T
@ -631,7 +631,7 @@ K.GetC.CDEV ldx #DEVMGR.READ
.1 jmp $ffff .1 jmp $ffff
*-------------------------------------- *--------------------------------------
K.GetC.SSOCK lda (pDev) #S.NODE.HANDLER K.GetC.SSOCK lda (pDev) #S.NODE.HANDLER
* jsr K.GetMemPtr.A * jsr K.GetMemPtr
* >STYA .1+1 * >STYA .1+1
* ldy #S.NODE.SSOCK.READ * ldy #S.NODE.SSOCK.READ
@ -841,7 +841,7 @@ K.FOpen jsr PFT.CheckPathSTK
K.FOpen.9 rts K.FOpen.9 rts
K.FOpen.10 >LDYAI S.NODE.REG K.FOpen.10 >LDYAI S.NODE.REG
jsr K.GetMem0.YA jsr K.GetMem0
bcs K.FOpen.9 bcs K.FOpen.9
>STYA ZPPtr1 >STYA ZPPtr1
@ -916,7 +916,7 @@ K.FOpen.AUXTYPE .BS 2
K.FClose.A jsr PFT.CheckNodeA K.FClose.A jsr PFT.CheckNodeA
sta K.FClose.A.8+1 sta K.FClose.A.8+1
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA ZPPtr1 >STYA ZPPtr1
ldy #S.NODE.T ldy #S.NODE.T
@ -1201,7 +1201,7 @@ STDIO.SetIOBUF >LDYAI 1024 get a ProDOS IOBUF
sta (ZPPtr1),y sta (ZPPtr1),y
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
STDIO.GetRefNum jsr K.GetMemPtr.A STDIO.GetRefNum jsr K.GetMemPtr
>STYA ZPPtr1 >STYA ZPPtr1
ldy #S.NODE.REG.REF ldy #S.NODE.REG.REF
lda (ZPPtr1),y lda (ZPPtr1),y

View File

@ -303,7 +303,7 @@ K.realpath >STYA ZPPtr1
.1 ldy #S.PS.hPREFIX .1 ldy #S.PS.hPREFIX
lda (pPs),y lda (pPs),y
jsr K.GetMemPtr.A jsr K.GetMemPtr
>STYA ZPPtr2 >STYA ZPPtr2
ldy #$ff ldy #$ff

View File

@ -123,7 +123,7 @@ CS.RUN.Pak >PUSHWI 0 Aux type
>PUSHW.G PAK.FileSize >PUSHW.G PAK.FileSize
>LDYA L.MSG6 >LDYA L.MSG6
>SYSCALL PrintF.YA >SYSCALL printf
*-------------------------------------- *--------------------------------------
CS.RUN.Unpak lda ZPPakHdrPtr CS.RUN.Unpak lda ZPPakHdrPtr
clc clc
@ -251,7 +251,7 @@ CS.RUN.Unpak lda ZPPakHdrPtr
.9 >PUSHW UNPAK.Ofs .9 >PUSHW UNPAK.Ofs
>LDYA L.MSG.UnpakErr >LDYA L.MSG.UnpakErr
>SYSCALL PrintF.YA >SYSCALL printf
lda #0 lda #0
sec sec
@ -316,7 +316,7 @@ DEBUG.S3 pha
phy phy
>PUSHA >PUSHA
>LDYA L.MSG.DEBUG.S3 >LDYA L.MSG.DEBUG.S3
>SYSCALL PrintF.YA >SYSCALL printf
ply ply
plx plx
pla pla
@ -341,7 +341,7 @@ CS.RUN.Math >PUSHEA.G ENDPTR
>PUSHW L.FLOAT1 >PUSHW L.FLOAT1
>LDYA L.MSG1 >LDYA L.MSG1
>SYSCALL PrintF.YA >SYSCALL printf
*-------------------------------------- *--------------------------------------
>PUSHEA.G MYFLOAT1 >PUSHEA.G MYFLOAT1
>PUSHEA.G MYFLOAT2 >PUSHEA.G MYFLOAT2
@ -350,7 +350,7 @@ CS.RUN.Math >PUSHEA.G ENDPTR
>PUSHEA.G MYFLOAT3 >PUSHEA.G MYFLOAT3
>LDYA L.MSG2 >LDYA L.MSG2
>SYSCALL PrintF.YA >SYSCALL printf
*-------------------------------------- *--------------------------------------
>PUSHEA.G MYFLOAT3 >PUSHEA.G MYFLOAT3
>LEA.G MYFLOAT3 >LEA.G MYFLOAT3
@ -358,7 +358,7 @@ CS.RUN.Math >PUSHEA.G ENDPTR
>PUSHEA.G MYFLOAT3 >PUSHEA.G MYFLOAT3
>LDYA L.MSG3 >LDYA L.MSG3
>SYSCALL PrintF.YA >SYSCALL printf
*-------------------------------------- *--------------------------------------
>PUSHW L.FLOAT1 >PUSHW L.FLOAT1
>LEA.G MYLONG >LEA.G MYLONG
@ -366,7 +366,7 @@ CS.RUN.Math >PUSHEA.G ENDPTR
>PUSHEA.G MYLONG >PUSHEA.G MYLONG
>LDYA L.MSG4 >LDYA L.MSG4
>SYSCALL PrintF.YA >SYSCALL printf
*-------------------------------------- *--------------------------------------
>PUSHW L.LONG1 >PUSHW L.LONG1
>LEA.G MYFLOAT1 >LEA.G MYFLOAT1
@ -374,7 +374,7 @@ CS.RUN.Math >PUSHEA.G ENDPTR
>PUSHEA.G MYFLOAT1 >PUSHEA.G MYFLOAT1
>LDYA L.MSG5 >LDYA L.MSG5
>SYSCALL PrintF.YA >SYSCALL printf
lda #0 lda #0
sec sec
rts rts