Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Kernel 0.9.2

This commit is contained in:
Rémy GIBERT 2018-06-21 17:12:10 +02:00
parent db742825c8
commit 3e6ecb55e5
76 changed files with 526 additions and 551 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

BIN
.Floppies/A2OSX.SRC.po
View File

Binary file not shown.

6
BIN/ARP.S.txt
View File

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

8
BIN/ASM.S.OUT.txt
View File

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

2
BIN/ASM.S.SRC.txt
View File

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

10
BIN/ASM.S.SYM.txt
View File

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

2
BIN/ASM.S.txt
View File

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

8
BIN/ATBROWSE.S.txt
View File

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

2
BIN/ATLOGON.S.txt
View File

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

6
BIN/CAT.S.txt
View File

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

8
BIN/CHTYP.S.txt
View File

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

4
BIN/DNSINFO.S.txt
View File

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

2
BIN/EDIT.S.CTRL.txt
View File

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

36
BIN/EDIT.S.SCRN.txt
View File

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

4
BIN/EDIT.S.txt
View File

@ -131,7 +131,7 @@ CS.INIT lda #$ff
.9 rts
*--------------------------------------
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
.1 >SLEEP
@ -187,7 +187,7 @@ CS.QUIT ldy #hBuffer
>SYSCALL FreeMem.A
.8 >LDYA L.SEQ.RESET
>SYSCALL PrintF.YA
>SYSCALL printf
.9 rts
*--------------------------------------
CharIn tax

8
BIN/FORMAT.S.txt
View File

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

34
BIN/IPCONFIG.S.txt
View File

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

12
BIN/LS.S.txt
View File

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

6
BIN/LSDEV.S.txt
View File

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

6
BIN/MD5.S.txt
View File

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

14
BIN/MEM.S.txt
View File

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

18
BIN/MEMDUMP.S.txt
View File

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

4
BIN/NETSTAT.S.txt
View File

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

2
BIN/NFSMOUNT.S.txt
View File

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

12
BIN/NSCUTIL.S.txt
View File

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

12
BIN/PING.S.txt
View File

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

6
BIN/PS.S.txt
View File

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

10
BIN/RPCDUMP.S.txt
View File

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

12
BIN/X.CPMVRM.S.txt
View File

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

10
BMP2PIX.S.txt
View File

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

2
DRV/CONSOLE.DRV.S.txt
View File

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

4
DRV/DHGR.DRV.S.txt
View File

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

6
DRV/LANCEGS.DRV.S.txt
View File

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

6
DRV/MOUSE.DRV.S.txt
View File

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

6
DRV/PIC.DRV.S.txt
View File

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

6
DRV/UTHER2.AI.DRV.S.txt
View File

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

6
DRV/UTHERNET.DRV.S.txt
View File

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

6
DRV/UTHERNET2.DRV.S.txt
View File

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

6
DRV/X.SSC.DRV.S.txt
View File

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

14
FNT2FON.S.txt
View File

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

10
SBIN/DHCPCLNT.S.txt
View File

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

4
SBIN/GETTY.S.txt
View File

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

14
SBIN/HTTPD.S.txt
View File

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

4
SBIN/INSDRV.S.txt
View File

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

22
SBIN/KCONFIG.S.txt
View File

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

4
SBIN/LOGIN.S.txt
View File

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

12
SBIN/NFSD.S.txt
View File

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

6
SBIN/SHELL.S.CL.txt
View File

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

10
SBIN/SHELL.S.CMD.txt
View File

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

4
SBIN/SHELL.S.CSH.txt
View File

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

2
SBIN/SHELL.S.IO.txt
View File

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

2
SBIN/SHELL.S.txt
View File

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

8
SBIN/TCPIPD.S.CFG.txt
View File

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

4
SBIN/TCPIPD.S.txt
View File

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

14
SBIN/TELNETD.S.txt
View File

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

2
SYS/KERNEL.S.ARG.txt
View File

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

73
SYS/KERNEL.S.BIN.txt
View File

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

16
SYS/KERNEL.S.CORE.txt
View File

@ -11,7 +11,7 @@ CORE.Run lda CORE.PSCount
lda PS.Table.hMem-1,x
beq .8
jsr K.GetMemPtr.A
jsr K.GetMemPtr
>STYA pPs
lda (pPs) get S.PS.F
@ -40,7 +40,7 @@ CORE.Run lda CORE.PSCount
lda (pPs),y
beq .6 no parent process
jsr CORE.GetPSByID.A X unmodified
jsr CORE.GetPSByID X unmodified
bcs .6 parent is dead.....skipping...
>STYA ZPPtr1
@ -227,7 +227,7 @@ CORE.Dispatch lda CORE.EvtCount
lda PS.Table.hMem-1,x
beq .5
jsr K.GetMemPtr.A
jsr K.GetMemPtr
>STYA pPS
lda (pPs) get S.PS.F
@ -348,7 +348,7 @@ CORE.GetPSByID.A
bcs .9
lda PS.TABLE.hMem-1,y
beq *
jmp K.GetMemPtr.A
jmp K.GetMemPtr
.9 rts
*--------------------------------------
CORE.GetPS.A ldy CORE.PSCount
@ -373,7 +373,7 @@ CORE.GetPS.A ldy CORE.PSCount
* bpl .1
* >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"
*--------------------------------------
@ -386,7 +386,7 @@ CORE.ScrSel and #$0F
lda A2osX.SCRNDEVS-1,x
beq .8 No device claimed this screen
jsr K.GetDevByID.A x unmodified.....
jsr K.GetDevByID x unmodified.....
bcs .8 ???
stx A2osX.ASCREEN
@ -408,7 +408,7 @@ CORE.DestroyEvent
pha
ldy #S.EVT.B1
lda (pEvent),y
jsr K.FreeMem.A
jsr K.FreeMem
pla
.1 bit #S.EVT.F.hMEM2
@ -416,7 +416,7 @@ CORE.DestroyEvent
ldy #S.EVT.B2
lda (pEvent),y
jsr K.FreeMem.A
jsr K.FreeMem
.2 lda #0
sta (pEvent)

16
SYS/KERNEL.S.DEV.txt
View File

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

210
SYS/KERNEL.S.DIRENT.txt
View File

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

4
SYS/KERNEL.S.DRV.txt
View File

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

14
SYS/KERNEL.S.ENV.txt
View File

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

7
SYS/KERNEL.S.FIO.txt
View File

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

4
SYS/KERNEL.S.GP.txt
View File

@ -154,9 +154,9 @@ GP.SysCall 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
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
pla
.1 jsr * SELF MODIFIED

120
SYS/KERNEL.S.INIT.txt
View File

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

8
SYS/KERNEL.S.IO.txt
View File

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

2
SYS/KERNEL.S.JMP.txt
View File

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

18
SYS/KERNEL.S.MEM.txt
View File

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

12
SYS/KERNEL.S.OSD.txt
View File

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

6
SYS/KERNEL.S.PFT.txt
View File

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

49
SYS/KERNEL.S.PS.txt
View File

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

28
SYS/KERNEL.S.SLIST.txt
View File

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

14
SYS/KERNEL.S.STAT.txt
View File

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

10
SYS/KERNEL.S.STDIO.txt
View File

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

2
SYS/KERNEL.S.STDLIB.txt
View File

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

16
TEST.S.txt
View File

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