mirror of
https://github.com/A2osX/A2osX.git
synced 2024-12-26 11:30:07 +00:00
Kernel 0.9.2
This commit is contained in:
parent
db742825c8
commit
3e6ecb55e5
Binary file not shown.
Binary file not shown.
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
12
BIN/LS.S.txt
12
BIN/LS.S.txt
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -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
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -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
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -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
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -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
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -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
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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..
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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 #'*'
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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 ?
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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)
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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 @
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
16
TEST.S.txt
16
TEST.S.txt
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user