Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-20 11:29:29 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.9.1 : Code reorganization & move to CSTR

Browse Source
This commit is contained in:
Rémy GIBERT 2017-08-25 17:02:16 +02:00
parent 2f8dbba25a
commit fc3fc7e817
68 changed files with 1061 additions and 970 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

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

4
BIN/ASM.S.FIO.txt
View File

@ -58,7 +58,7 @@ FIO.OpenFileA sta FIO.hFileName
.1 >PUSHW ZPPtr1 .1 >PUSHW ZPPtr1
>LDYA L.MSG.SRC.FILE >LDYA L.MSG.SRC.FILE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #SRC.COUNT ldy #SRC.COUNT
lda (pData),y lda (pData),y
@ -258,7 +258,7 @@ FIO.LOAD.ASM.T ldy #ASM.T.hMem
.1 >PUSHW L.ASM.T.FILENAME .1 >PUSHW L.ASM.T.FILENAME
>LDYA L.MSG.T.FILE >LDYA L.MSG.T.FILE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>PUSHWI 0 Aux type >PUSHWI 0 Aux type
>PUSHBI 6 S.FILEINFO.TYPE.BIN >PUSHBI 6 S.FILEINFO.TYPE.BIN

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

@ -25,7 +25,7 @@ SRC.PrintLine ldy #ASM.MACRO.ON
dey dey
>PUSHB (pData),y >PUSHB (pData),y
>LDYA L.MSG.SRCLINE >LDYA L.MSG.SRCLINE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.9 rts .9 rts
*--------------------------------------- *---------------------------------------
SRC.PrintLineErr ldx #0 SRC.PrintLineErr ldx #0

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

@ -52,7 +52,7 @@ SYM.Quit ldy #SYM.pLastGBlock
rts rts
*--------------------------------------- *---------------------------------------
SYM.Dump >LDYA L.MSG.SYMBOLS SYM.Dump >LDYA L.MSG.SYMBOLS
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #SYM.DumpCount ldy #SYM.DumpCount
lda #20 lda #20
@ -92,7 +92,7 @@ SYM.Dump >LDYA L.MSG.SYMBOLS
>PUSHA >PUSHA
>LDYA L.MSG.GSYMBOL >LDYA L.MSG.GSYMBOL
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
@ -105,7 +105,7 @@ SYM.Dump >LDYA L.MSG.SYMBOLS
pla pla
>PUSHA >PUSHA
>LDYA L.MSG.LSYMBOL >LDYA L.MSG.LSYMBOL
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcc .4 bcc .4
rts rts

8
BIN/ASM.S.txt
View File

@ -177,7 +177,7 @@ CS.INIT >SYSCALL GetArgC
rts rts
.99 >LDYA L.MSG.HELP .99 >LDYA L.MSG.HELP
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #ERR.INV.ARGS lda #ERR.INV.ARGS
sec sec
.9 rts .9 rts
@ -206,7 +206,7 @@ CS.RUN >SYSCALL GetC
inc inc
>PUSHA >PUSHA
>LDYA L.MSG.PASS >LDYA L.MSG.PASS
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #SRC.hFILENAME ldy #SRC.hFILENAME
lda (pData),y lda (pData),y
@ -237,7 +237,7 @@ CS.RUN >SYSCALL GetC
.1 jsr SYM.Dump .1 jsr SYM.Dump
>LDYA L.MSG.SUMMARY >LDYA L.MSG.SUMMARY
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #0 End of assembly, exit with no error lda #0 End of assembly, exit with no error
.99 sec .99 sec
@ -259,7 +259,7 @@ CS.RUN >SYSCALL GetC
>PUSHA >PUSHA
>PUSHW SRC.LINENUM >PUSHW SRC.LINENUM
>LDYA L.MSG.ERROR >LDYA L.MSG.ERROR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
pla pla
sec sec
rts rts

8
BIN/ATBROWSE.S.txt
View File

@ -53,7 +53,7 @@ CS.RUN stz K.MLI.PARAMS Sync
pha pha
>LDYA L.MSG.NOATK >LDYA L.MSG.NOATK
>SYSCALL PrintFYA >SYSCALL PrintF.YA
pla pla
sec sec
.99 rts .99 rts
@ -61,7 +61,7 @@ CS.RUN stz K.MLI.PARAMS Sync
.10 >PUSHB K.MLI.PARAMS+$E NODE .10 >PUSHB K.MLI.PARAMS+$E NODE
>PUSHW K.MLI.PARAMS+$8 NET >PUSHW K.MLI.PARAMS+$8 NET
>LDYA L.MSG.NETNODE >LDYA L.MSG.NETNODE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
stz K.MLI.PARAMS Sync stz K.MLI.PARAMS Sync
lda #ATLookupName lda #ATLookupName
@ -97,7 +97,7 @@ CS.RUN stz K.MLI.PARAMS Sync
beq .8 beq .8
>LDYA L.MSG.DUMP0 >LDYA L.MSG.DUMP0
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
.1 lda ZPPTR1 .1 lda ZPPTR1
@ -117,7 +117,7 @@ CS.RUN stz K.MLI.PARAMS Sync
bpl .2 bpl .2
>LDYA L.MSG.DUMP >LDYA L.MSG.DUMP
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
lda ZPPTR2 lda ZPPTR2

2
BIN/ATLOGON.S.txt
View File

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

6
BIN/CAT.S.txt
View File

@ -70,7 +70,7 @@ CS.INIT >SYSCALL GetArgC
bne .2 bne .2
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
sec sec
rts rts
@ -235,7 +235,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 PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
bra .7 bra .7
@ -271,7 +271,7 @@ CS.RUN.PRINTNUM clc
>PUSHYA >PUSHYA
>LDYA L.MSG.LINENUM >LDYA L.MSG.LINENUM
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.8 rts .8 rts
*-------------------------------------- *--------------------------------------
CS.RUN.OPEN >SYSCALL GetFullPath.YA CS.RUN.OPEN >SYSCALL GetFullPath.YA

8
BIN/CHTYP.S.txt
View File

@ -81,7 +81,7 @@ CS.INIT >SYSCALL GetArgC
bne .2 bne .2
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
sec sec
rts rts
@ -192,7 +192,7 @@ CS.RUN.FILE jsr CS.RUN.GetFilePath
>PUSHWI UsrBuf256 >PUSHWI UsrBuf256
>LDYA L.MSG.FILE >LDYA L.MSG.FILE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
ldy #HexFileType ldy #HexFileType
@ -221,7 +221,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 PrintFYA >SYSCALL PrintF.YA
rts rts
.1 pha .1 pha
@ -234,7 +234,7 @@ CS.RUN.CheckErr bcs .1
>PUSHA >PUSHA
>LDYA L.MSG.ERR >LDYA L.MSG.ERR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
rts rts

4
BIN/DNSINFO.S.txt
View File

@ -83,7 +83,7 @@ CS.RUN.ADD cmp #3
CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.DNS.GetC.ACHE CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.DNS.GetC.ACHE
>STYA ZPPTR1 >STYA ZPPTR1
>LDYA L.MSG0 >LDYA L.MSG0
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #K.DNSCACHE.SIZE lda #K.DNSCACHE.SIZE
sta EntryCount sta EntryCount
@ -118,7 +118,7 @@ CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.DNS.GetC.ACHE
>PUSHB (ZPPTR1) Entry Status >PUSHB (ZPPTR1) Entry Status
>LDYA L.MSG1 >LDYA L.MSG1
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.2 lda ZPPTR1 .2 lda ZPPTR1
clc clc

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

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

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

@ -11,7 +11,7 @@ SCRN.Init ldy #ScreenH
>PUSHA >PUSHA
>LDYA L.SEQ.INIT >LDYA L.SEQ.INIT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
lda #12 lda #12
>SYSCALL PutChar.A >SYSCALL PutChar.A
@ -58,7 +58,7 @@ SCRN.UpdateTopBar
.2 >PUSHYA .2 >PUSHYA
>LDYA L.MSG.TOPBAR >LDYA L.MSG.TOPBAR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
@ -99,7 +99,7 @@ SCRN.UpdateMain ldy #ScreenY
bcs .9 bcs .9
>LDYA L.SEQ.CEOL >LDYA L.SEQ.CEOL
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
inc TmpByte inc TmpByte
@ -176,7 +176,7 @@ SCRN.UpdateLineAtALenY
bcs .9 bcs .9
>LDYA L.SEQ.CEOL >LDYA L.SEQ.CEOL
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
rts rts
.9 jmp Ctrl.Q .9 jmp Ctrl.Q
@ -189,7 +189,7 @@ SCRN.UpdateAttrC
bpl .8 bpl .8
>LDYA L.SEQ.NORM >LDYA L.SEQ.NORM
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
stz bSelected stz bSelected
rts rts
@ -198,7 +198,7 @@ SCRN.UpdateAttrC
bmi .8 bmi .8
>LDYA L.SEQ.INV >LDYA L.SEQ.INV
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
lda #$ff lda #$ff
sta bSelected sta bSelected
@ -215,11 +215,11 @@ SCRN.UpdateStatusBar
>PUSHA >PUSHA
>LDYA L.MSG.GOTOXY >LDYA L.MSG.GOTOXY
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
>LDYA L.SEQ.INV >LDYA L.SEQ.INV
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
ldy #PromptMode ldy #PromptMode
@ -247,7 +247,7 @@ SCRN.UpdateStatusBar
>PUSHB (pData),y >PUSHB (pData),y
>LDYA L.MSG.STATUSBAR >LDYA L.MSG.STATUSBAR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
lda #58 lda #58
@ -255,7 +255,7 @@ SCRN.UpdateStatusBar
bcs .9 bcs .9
>LDYA L.SEQ.NORM >LDYA L.SEQ.NORM
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
jmp SCRN.GotoCurXCurY jmp SCRN.GotoCurXCurY
@ -275,7 +275,7 @@ SCRN.UpdateStatusBar
tax tax
>LDYA L.MSG.STATUSBAR,x >LDYA L.MSG.STATUSBAR,x
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
rts rts
*-------------------------------------- *--------------------------------------
@ -290,7 +290,7 @@ SCRN.UpdateStatusBarErrA
.1 lda #$ff .1 lda #$ff
>PUSHA >PUSHA
>LDYA L.MSG.STATUSBAR.E >LDYA L.MSG.STATUSBAR.E
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
rts rts
.9 jmp Ctrl.Q .9 jmp Ctrl.Q
@ -319,11 +319,11 @@ SCRN.InvLineA sta .2+1
lda .2+1 lda .2+1
>PUSHA >PUSHA
>LDYA L.MSG.GOTOXY >LDYA L.MSG.GOTOXY
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
>LDYA L.SEQ.INV >LDYA L.SEQ.INV
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
ldy #ScreenW ldy #ScreenW
@ -344,7 +344,7 @@ SCRN.InvLineA sta .2+1
.2 lda #$ff .2 lda #$ff
>PUSHA >PUSHA
>LDYA L.MSG.GOTOXY >LDYA L.MSG.GOTOXY
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
@ -365,7 +365,7 @@ GotoXY txa
>PUSHA >PUSHA
>LDYA L.MSG.GOTOXY >LDYA L.MSG.GOTOXY
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
rts rts
.9 jmp Ctrl.Q .9 jmp Ctrl.Q
@ -509,7 +509,7 @@ SCRN.scrollUp ldy #CurX
>PUSHA >PUSHA
>LDYA L.SEQ.SCROLLUP >LDYA L.SEQ.SCROLLUP
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
ldy #ScreenY+1 ldy #ScreenY+1
@ -544,7 +544,7 @@ SCRN.scrollDn ldy #CurX
>PUSHA >PUSHA
>LDYA L.SEQ.SCROLLDN >LDYA L.SEQ.SCROLLDN
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
ldy #ScreenY+1 ldy #ScreenY+1

4
BIN/EDIT.S.txt
View File

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

8
BIN/FORMAT.S.txt
View File

@ -76,7 +76,7 @@ CS.INIT >SYSCALL GetArgC
bne .2 bne .2
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
sec sec
rts rts
@ -163,7 +163,7 @@ CS.RUN jsr CS.RUN.BuildCat
bcs .9 bcs .9
>LDYA L.MSG.OK >LDYA L.MSG.OK
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #0 lda #0
sec sec
rts rts
@ -171,7 +171,7 @@ CS.RUN jsr CS.RUN.BuildCat
.9 pha .9 pha
>PUSHA >PUSHA
>LDYA L.MSG.ERR >LDYA L.MSG.ERR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
pla pla
sec sec
rts rts
@ -207,7 +207,7 @@ CS.RUN.BuildCat ldy #hDev
>PUSHW ZPPtr2 >PUSHW ZPPtr2
>LDYA L.MSG.INIT >LDYA L.MSG.INIT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
>PUSHW SizeInBlocks >PUSHW SizeInBlocks

34
BIN/IPCONFIG.S.txt
View File

@ -67,7 +67,7 @@ CS.INIT >LDYA L.LIBTCPIP
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN >LDYA L.MSG0 CS.RUN >LDYA L.MSG0
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG
>STYA ZPIPCfgPtr >STYA ZPIPCfgPtr
@ -77,7 +77,7 @@ CS.RUN >LDYA L.MSG0
bne CS.RUN.DUMPDEV bne CS.RUN.DUMPDEV
>LDYA L.MSG0.NL >LDYA L.MSG0.NL
>SYSCALL PrintFYA >SYSCALL PrintF.YA
jmp CS.RUN.DONE jmp CS.RUN.DONE
CS.RUN.DUMPDEV sta DevID CS.RUN.DUMPDEV sta DevID
@ -90,7 +90,7 @@ CS.RUN.DUMPDEV sta DevID
>STYA ZPDevStatPtr >STYA ZPDevStatPtr
>LDYA L.MSG0.L >LDYA L.MSG0.L
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #S.DEVSTAT.NET.MAC+5 ldy #S.DEVSTAT.NET.MAC+5
@ -119,7 +119,7 @@ CS.RUN.DUMPDEV sta DevID
>PUSHB DevID >PUSHB DevID
>LDYA L.MSG1.DEV >LDYA L.MSG1.DEV
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #S.DEVSTAT.NET.FLAGS ldy #S.DEVSTAT.NET.FLAGS
lda (ZPDevStatPtr),y lda (ZPDevStatPtr),y
@ -128,7 +128,7 @@ CS.RUN.DUMPDEV sta DevID
lda #1 lda #1
.2 >PUSHA .2 >PUSHA
>LDYA L.MSG1.DEV.ARP >LDYA L.MSG1.DEV.ARP
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #S.DEVSTAT.NET.FLAGS ldy #S.DEVSTAT.NET.FLAGS
lda (ZPDevStatPtr),y lda (ZPDevStatPtr),y
@ -137,7 +137,7 @@ CS.RUN.DUMPDEV sta DevID
lda #1 lda #1
.3 >PUSHA .3 >PUSHA
>LDYA L.MSG1.DEV.IP >LDYA L.MSG1.DEV.IP
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #S.DEVSTAT.NET.STATUS ldy #S.DEVSTAT.NET.STATUS
lda (ZPDevStatPtr),y lda (ZPDevStatPtr),y
@ -145,15 +145,15 @@ CS.RUN.DUMPDEV sta 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 PrintFYA >SYSCALL PrintF.YA
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 PrintFYA >SYSCALL PrintF.YA
>LDYA L.MSG1.LINKSPEED >LDYA L.MSG1.LINKSPEED
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #S.DEVSTAT.NET.STATUS ldy #S.DEVSTAT.NET.STATUS
lda (ZPDevStatPtr),y lda (ZPDevStatPtr),y
@ -174,10 +174,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 PrintFYA .6 >SYSCALL PrintF.YA
CS.RUN.DUMPIP >LDYA L.MSG2 CS.RUN.DUMPIP >LDYA L.MSG2
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda (ZPIPCfgPtr) lda (ZPIPCfgPtr)
and #S.IPCFG.STATUS.OK and #S.IPCFG.STATUS.OK
beq .11 beq .11
@ -185,7 +185,7 @@ CS.RUN.DUMPIP >LDYA L.MSG2
bra .10 bra .10
.11 >LDYA L.MSG2.U .11 >LDYA L.MSG2.U
.10 >SYSCALL PrintFYA .10 >SYSCALL PrintF.YA
ldy #S.IPCFG.DHCPSRVR+3 ldy #S.IPCFG.DHCPSRVR+3
ldx #4 ldx #4
@ -194,7 +194,7 @@ CS.RUN.DUMPIP >LDYA L.MSG2
dex dex
bne .2 bne .2
>LDYA L.MSG2.DHCPSRVR >LDYA L.MSG2.DHCPSRVR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #S.IPCFG.IP+7 IP/MASK ldy #S.IPCFG.IP+7 IP/MASK
ldx #8 ldx #8
@ -203,7 +203,7 @@ CS.RUN.DUMPIP >LDYA L.MSG2
dex dex
bne .3 bne .3
>LDYA L.MSG2.IP >LDYA L.MSG2.IP
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #S.IPCFG.GW+3 ldy #S.IPCFG.GW+3
ldx #4 ldx #4
@ -212,7 +212,7 @@ CS.RUN.DUMPIP >LDYA L.MSG2
dex dex
bne .4 bne .4
>LDYA L.MSG2.GW >LDYA L.MSG2.GW
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #S.IPCFG.DNS1+7 ldy #S.IPCFG.DNS1+7
ldx #8 ldx #8
@ -221,7 +221,7 @@ CS.RUN.DUMPIP >LDYA L.MSG2
dex dex
bne .5 bne .5
>LDYA L.MSG2.DNS >LDYA L.MSG2.DNS
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda ZPIPCfgPtr lda ZPIPCfgPtr
clc clc
@ -240,7 +240,7 @@ CS.RUN.DUMPIP >LDYA L.MSG2
>PUSHYA >PUSHYA
>LDYA L.MSG2.HOSTNAME >LDYA L.MSG2.HOSTNAME
>SYSCALL PrintFYA >SYSCALL PrintF.YA
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
View File

@ -200,7 +200,7 @@ CS.RUN.DEV ldy #bLong
>PUSHW ZPFileName >PUSHW ZPFileName
>LDYA L.MSG.DEVEXT >LDYA L.MSG.DEVEXT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
ldy #bRecurse ldy #bRecurse
@ -232,7 +232,7 @@ CS.RUN.DIR ldy #bAllmostAll
>PUSHW ZPFileName >PUSHW ZPFileName
>LDYA L.MSG.DIR >LDYA L.MSG.DIR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
lda #80/MAX.COL-2 lda #80/MAX.COL-2
@ -264,7 +264,7 @@ CS.RUN.DIR ldy #bAllmostAll
>PUSHW ZPFileName >PUSHW ZPFileName
>LDYA L.MSG.DIREXT >LDYA L.MSG.DIREXT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
.5 ldy #bRecurse .5 ldy #bRecurse
@ -295,7 +295,7 @@ CS.RUN.FILE ldy #bLong
>PUSHW ZPFileName >PUSHW ZPFileName
>LDYA L.MSG.FILE >LDYA L.MSG.FILE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
jsr CS.RUN.UpdateColCnt jsr CS.RUN.UpdateColCnt
@ -334,7 +334,7 @@ CS.RUN.FILE ldy #bLong
>PUSHW ZPFileName >PUSHW ZPFileName
>LDYA L.MSG.FILEEXT >LDYA L.MSG.FILEEXT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
jsr GetNextEntry jsr GetNextEntry
@ -415,7 +415,7 @@ CS.RUN.ENTER.MSG
>SYSCALL GetMemPtr.A >SYSCALL GetMemPtr.A
>PUSHYA >PUSHYA
>LDYA L.MSG.ENTER >LDYA L.MSG.ENTER
>SYSCALL PrintFYA >SYSCALL PrintF.YA
rts rts
*-------------------------------------- *--------------------------------------
CS.DOEVENT sec CS.DOEVENT sec

6
BIN/LSDEV.S.txt
View File

@ -44,7 +44,7 @@ CS.INIT clc
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN >LDYA L.MSG0 CS.RUN >LDYA L.MSG0
>SYSCALL PrintFYA >SYSCALL PrintF.YA
stz DEV.ID stz DEV.ID
@ -112,7 +112,7 @@ DumpHeader ldy #S.DEV.DRV.JMP+1
>PUSHB DEV.ID >PUSHB DEV.ID
>LDYA L.MSG1 >LDYA L.MSG1
>SYSCALL PrintFYA >SYSCALL PrintF.YA
rts rts
*-------------------------------------- *--------------------------------------
DumpStatus bit DEV.S DumpStatus bit DEV.S
@ -155,7 +155,7 @@ DumpStatus bit DEV.S
bra .3 bra .3
.2 >LDYA L.MSG2.C .2 >LDYA L.MSG2.C
.3 >SYSCALL PrintFYA .3 >SYSCALL PrintF.YA
rts rts
*-------------------------------------- *--------------------------------------
CS.EVENT sec CS.EVENT sec

14
BIN/MEM.S.txt
View File

@ -50,7 +50,7 @@ CS.RUN >LDYA L.MemStat
>SYSCALL GetMemStat.YA >SYSCALL GetMemStat.YA
>LDYA L.MSG.Main >LDYA L.MSG.Main
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda MemStat+S.MEMSTAT.MF lda MemStat+S.MEMSTAT.MF
sec sec
@ -65,10 +65,10 @@ CS.RUN >LDYA L.MemStat
>PUSHW MemStat+S.MEMSTAT.ML >PUSHW MemStat+S.MEMSTAT.ML
>LDYA L.MSG.Stat >LDYA L.MSG.Stat
>SYSCALL PrintFYA >SYSCALL PrintF.YA
*-------------------------------------- *--------------------------------------
>LDYA L.MSG.Aux >LDYA L.MSG.Aux
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda MemStat+S.MEMSTAT.XF lda MemStat+S.MEMSTAT.XF
sec sec
@ -83,10 +83,10 @@ CS.RUN >LDYA L.MemStat
>PUSHW MemStat+S.MEMSTAT.XL >PUSHW MemStat+S.MEMSTAT.XL
>LDYA L.MSG.Stat >LDYA L.MSG.Stat
>SYSCALL PrintFYA >SYSCALL PrintF.YA
*-------------------------------------- *--------------------------------------
>LDYA L.MSG.Kernel >LDYA L.MSG.Kernel
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda MemStat+S.MEMSTAT.DH lda MemStat+S.MEMSTAT.DH
sec sec
@ -101,10 +101,10 @@ CS.RUN >LDYA L.MemStat
>PUSHW MemStat+S.MEMSTAT.DL >PUSHW MemStat+S.MEMSTAT.DL
>LDYA L.MSG.Stat >LDYA L.MSG.Stat
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>LDYA L.MSG.End >LDYA L.MSG.End
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #0 lda #0
sec sec
rts rts

20
BIN/MEMDUMP.S.txt
View File

@ -91,7 +91,7 @@ CS.RUN >SYSCALL GetC
bne .1 bne .1
>LDYA L.MSG0 >LDYA L.MSG0
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.1 ldy #MEM.COUNT .1 ldy #MEM.COUNT
lda (pData),y lda (pData),y
@ -141,19 +141,19 @@ CS.RUN >SYSCALL GetC
ldy #USED.COUNT ldy #USED.COUNT
>PUSHB (pData),y >PUSHB (pData),y
>LDYA L.MSG2 >LDYA L.MSG2
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>PUSHW MemMgr.HiMem >PUSHW MemMgr.HiMem
>LDYA L.MSG3 >LDYA L.MSG3
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>PUSHW MemMgr.Free >PUSHW MemMgr.Free
>LDYA L.MSG4 >LDYA L.MSG4
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>PUSHW MemMgr.LoMem >PUSHW MemMgr.LoMem
>LDYA L.MSG5 >LDYA L.MSG5
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda MemMgr.Free lda MemMgr.Free
sec sec
@ -164,7 +164,7 @@ CS.RUN >SYSCALL GetC
>PUSHYA >PUSHYA
>LDYA L.MSG6 >LDYA L.MSG6
>SYSCALL PrintFYA >SYSCALL PrintF.YA
sec sec
rts rts
*-------------------------------------- *--------------------------------------
@ -200,7 +200,7 @@ CS.RUN.PRINTMEM ldy #S.MEM.LEN
>PUSHA >PUSHA
>LDYA L.MSG1 >LDYA L.MSG1
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda (ZPPTR1) Free ? assume raw data... lda (ZPPTR1) Free ? assume raw data...
bpl .10 bpl .10
@ -228,7 +228,7 @@ CS.RUN.PRINTMEM ldy #S.MEM.LEN
>PUSHW ZPPTR2 String >PUSHW ZPPTR2 String
>PUSHB (ZPPTR2) Len >PUSHB (ZPPTR2) Len
>LDYA L.MSG1.STR >LDYA L.MSG1.STR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bra .8 bra .8
.2 ldy #15 .2 ldy #15
@ -238,14 +238,14 @@ CS.RUN.PRINTMEM ldy #S.MEM.LEN
bpl .3 bpl .3
>LDYA L.MSG1.HEX >LDYA L.MSG1.HEX
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bra .8 bra .8
****** BIN ****** BIN
.7 >SYSCALL GetMemPtr.A .7 >SYSCALL GetMemPtr.A
>PUSHYA >PUSHYA
>LDYA L.MSG1.BIN >LDYA L.MSG1.BIN
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.8 ldy #LINE.COUNT .8 ldy #LINE.COUNT
lda (pData),y lda (pData),y

4
BIN/NETSTAT.S.txt
View File

@ -61,7 +61,7 @@ CS.INIT >LDYA L.LIBTCPIP
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN >LDYA L.MSG0 CS.RUN >LDYA L.MSG0
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.GETTABLE >LIBCALL hLIBTCPIP,LIBTCPIP.SKT.GETTABLE
>STYA ZPPTR1 >STYA ZPPTR1
@ -100,7 +100,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 PrintFYA >SYSCALL PrintF.YA
.7 lda ZPPTR1 .7 lda ZPPTR1
clc clc

2
BIN/NFSMOUNT.S.txt
View File

@ -64,7 +64,7 @@ CS.INIT >SYSCALL GetArgC
rts rts
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
sec sec
rts rts

12
BIN/NSCUTIL.S.txt
View File

@ -60,7 +60,7 @@ CS.RUN.READ jsr NSC.Init
bpl .1 bpl .1
>LDYA L.MSG.READ.KO >LDYA L.MSG.READ.KO
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #MLI.ERR.NODEV lda #MLI.ERR.NODEV
sec sec
@ -69,7 +69,7 @@ CS.RUN.READ jsr NSC.Init
.8 jsr NSC.Dump .8 jsr NSC.Dump
>LDYA L.MSG.USAGE >LDYA L.MSG.USAGE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
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
@ -278,16 +278,16 @@ NSC.Dump ldx #1
>PUSHA >PUSHA
>LDYA L.MSG.READ.OK1 >LDYA L.MSG.READ.OK1
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>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 PrintFYA .3 >SYSCALL PrintF.YA
>LDYA L.MSG.READ.OK3 >LDYA L.MSG.READ.OK3
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda DS1216E.DATA+2 lda DS1216E.DATA+2
jsr PrintBCD jsr PrintBCD
@ -301,7 +301,7 @@ NSC.Dump ldx #1
jsr PrintBCD jsr PrintBCD
>LDYA L.MSG.READ.OK4 >LDYA L.MSG.READ.OK4
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda DS1216E.DATA+4 lda DS1216E.DATA+4
bpl .4 bpl .4

12
BIN/PING.S.txt
View File

@ -67,7 +67,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 PrintFYA >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
sec sec
rts rts
@ -95,7 +95,7 @@ CS.RUN.IPOK >SYSCALL GetArgC
bra .99 bra .99
.9 >LDYA L.MSG.USAGE .9 >LDYA L.MSG.USAGE
.99 >SYSCALL PrintFYA .99 >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
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 PrintFYA >SYSCALL PrintF.YA
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 PrintFYA >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
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 PrintFYA >SYSCALL PrintF.YA
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 PrintFYA >SYSCALL PrintF.YA
rts rts
*-------------------------------------- *--------------------------------------
CS.QUIT ldy #hFrame CS.QUIT ldy #hFrame

4
BIN/PS.S.txt
View File

@ -45,7 +45,7 @@ CS.RUN >LDYAI TSKMGR.TABLE+S.PS
stz PS.COUNT stz PS.COUNT
>LDYA L.MSG0 >LDYA L.MSG0
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.1 lda (ZPPTR1) .1 lda (ZPPTR1)
bpl .4 bpl .4
@ -66,7 +66,7 @@ CS.RUN >LDYAI TSKMGR.TABLE+S.PS
lda (ZPPTR1),y lda (ZPPTR1),y
>PUSHA PID >PUSHA PID
>LDYA L.MSG1 >LDYA L.MSG1
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.4 lda ZPPTR1 .4 lda ZPPTR1
clc clc

10
BIN/RPCDUMP.S.txt
View File

@ -74,7 +74,7 @@ CS.INIT >SYSCALL GetArgC
rts rts
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
sec sec
rts rts
@ -96,7 +96,7 @@ CS.RUN jsr Init.Timeout
>SYSCALL GetArg.A >SYSCALL GetArg.A
>PUSHYA >PUSHYA
>LDYA L.MSG.UNKNOWN >LDYA L.MSG.UNKNOWN
>SYSCALL PrintFYA >SYSCALL PrintF.YA
sec sec
rts rts
@ -158,7 +158,7 @@ CS.RUN jsr Init.Timeout
>SYSCALL GetArg.A >SYSCALL GetArg.A
>PUSHYA >PUSHYA
>LDYA L.MSG.TIMEOUT >LDYA L.MSG.TIMEOUT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
sec sec
rts rts
*-------------------------------------- *--------------------------------------
@ -207,7 +207,7 @@ DumpRPCFrame lda #S.UDP+24
sta ZPFrameBase+1 sta ZPFrameBase+1
>LDYA L.MSG.DUMP0 >LDYA L.MSG.DUMP0
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.1 ldy #3 .1 ldy #3
lda (ZPFrameBase),y Value follows? lda (ZPFrameBase),y Value follows?
@ -231,7 +231,7 @@ DumpRPCFrame lda #S.UDP+24
bne .7 bne .7
>LDYA L.MSG.DUMP1 >LDYA L.MSG.DUMP1
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #20 lda #20
clc clc

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

@ -77,7 +77,7 @@ CS.INIT >SYSCALL GetArgC
bne .2 bne .2
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
sec sec
rts rts
@ -321,7 +321,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 PrintFYA >SYSCALL PrintF.YA
.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
@ -506,7 +506,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 PrintFYA .2 >SYSCALL PrintF.YA
rts rts
.8 clc .8 clc
@ -524,7 +524,7 @@ CS.RUN.OVERWRITE.MSG
jsr CS.RUN.GetPathY jsr CS.RUN.GetPathY
>PUSHYA >PUSHYA
>LDYA L.MSG.OVERWRITE >LDYA L.MSG.OVERWRITE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
rts rts
CS.RUN.OVERWRITE.KEY CS.RUN.OVERWRITE.KEY
@ -688,7 +688,7 @@ CS.RUN.CheckErr bcs .1
bmi .8 bmi .8
>LDYA L.MSG.OK >LDYA L.MSG.OK
>SYSCALL PrintFYA >SYSCALL PrintF.YA
rts rts
.1 ldy #RC .1 ldy #RC
@ -703,7 +703,7 @@ CS.RUN.CheckErr bcs .1
>PUSHA >PUSHA
>LDYA L.MSG.ERR >LDYA L.MSG.ERR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
rts rts

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

@ -38,7 +38,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 PrintFYA >SYSCALL PrintF.YA
clc clc
rts rts

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

@ -37,7 +37,7 @@ L.MSG.DETECT .DA MSG.DETECT
.DA 0 End Of Reloc Table .DA 0 End Of Reloc Table
*-------------------------------------- *--------------------------------------
Dev.Detect >LDYA L.MSG.DETECT Dev.Detect >LDYA L.MSG.DETECT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldx #0 ldx #0
.1 txa .1 txa

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

@ -41,7 +41,7 @@ L.DEV.HEADER.NAME .DA DEV.HEADER.NAME
*-------------------------------------- *--------------------------------------
Dev.Detect >STYA Args Dev.Detect >STYA Args
>LDYA L.MSG.DETECT >LDYA L.MSG.DETECT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldx #$70 ldx #$70
ldy #7 ldy #7
@ -62,7 +62,7 @@ Dev.Detect >STYA Args
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #MLI.ERR.NODEV lda #MLI.ERR.NODEV
sec sec
@ -89,7 +89,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 PrintFYA >SYSCALL PrintF.YA
clc clc
rts rts
*-------------------------------------- *--------------------------------------

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

@ -74,7 +74,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 PrintFYA >SYSCALL PrintF.YA
stz ZPTmpPtr1 stz ZPTmpPtr1
lda #$C1 lda #$C1
@ -96,7 +96,7 @@ Dev.Detect >LDYA L.MSG.DETECT
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #MLI.ERR.NODEV lda #MLI.ERR.NODEV
sec sec
@ -116,7 +116,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 PrintFYA >SYSCALL PrintF.YA
clc clc
rts rts
*-------------------------------------- *--------------------------------------

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

@ -36,7 +36,7 @@ L.DEV.HEADER.NAME .DA DEV.HEADER.NAME
*-------------------------------------- *--------------------------------------
Dev.Detect >STYA ARGS Dev.Detect >STYA ARGS
>LDYA L.MSG.DETECT >LDYA L.MSG.DETECT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
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 PrintFYA >SYSCALL PrintF.YA
lda #MLI.ERR.NODEV Not Found in any slot, exiting lda #MLI.ERR.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 PrintFYA >SYSCALL PrintF.YA
clc clc
rts rts
*-------------------------------------- *--------------------------------------

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

@ -38,7 +38,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 PrintFYA >SYSCALL PrintF.YA
stz ZPTmpPtr1 stz ZPTmpPtr1
lda #$C1 lda #$C1
@ -65,7 +65,7 @@ Dev.Detect >STYA ARGS
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #MLI.ERR.NODEV Not Found in any slot, exiting lda #MLI.ERR.NODEV Not Found in any slot, exiting
sec sec
@ -88,7 +88,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 PrintFYA >SYSCALL PrintF.YA
clc clc
rts rts
*-------------------------------------- *--------------------------------------

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

@ -41,7 +41,7 @@ L.DEV.HEADER.NAME .DA DEV.HEADER.NAME
Dev.Detect >STYA ARGS Dev.Detect >STYA ARGS
>LDYA L.MSG.DETECT >LDYA L.MSG.DETECT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
stz ZPTmpPtr1 stz ZPTmpPtr1
lda #$C1 lda #$C1
@ -68,7 +68,7 @@ Dev.Detect >STYA ARGS
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #MLI.ERR.NODEV Not Found in any slot, exiting lda #MLI.ERR.NODEV Not Found in any slot, exiting
sec sec
@ -91,7 +91,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 PrintFYA >SYSCALL PrintF.YA
clc clc
rts rts
*-------------------------------------- *--------------------------------------

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

@ -43,7 +43,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 PrintFYA >SYSCALL PrintF.YA
ldx #$70+$88 ldx #$70+$88
ldy #7 ldy #7
@ -87,7 +87,7 @@ Dev.Detect >STYA Args
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #MLI.ERR.NODEV lda #MLI.ERR.NODEV
sec sec
@ -125,7 +125,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 PrintFYA >SYSCALL PrintF.YA
clc clc
rts rts
*-------------------------------------- *--------------------------------------

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

@ -41,7 +41,7 @@ L.DEV.HEADER.NAME .DA DEV.HEADER.NAME
*-------------------------------------- *--------------------------------------
Dev.Detect >STYA ARGS Dev.Detect >STYA ARGS
>LDYA L.MSG.DETECT >LDYA L.MSG.DETECT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldx #$70 ldx #$70
ldy #7 ldy #7
@ -71,7 +71,7 @@ Dev.Detect >STYA ARGS
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #MLI.ERR.NODEV lda #MLI.ERR.NODEV
sec sec
@ -119,7 +119,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 PrintFYA >SYSCALL PrintF.YA
clc clc
rts rts
*-------------------------------------- *--------------------------------------

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

@ -42,7 +42,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 PrintFYA >SYSCALL PrintF.YA
ldx #$70+$88 ldx #$70+$88
ldy #7 ldy #7
@ -86,7 +86,7 @@ Dev.Detect >STYA Args
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #MLI.ERR.NODEV lda #MLI.ERR.NODEV
sec sec
@ -124,7 +124,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 PrintFYA >SYSCALL PrintF.YA
clc clc
rts rts
*-------------------------------------- *--------------------------------------

217
INC/A2osX.I.txt
View File

@ -160,121 +160,134 @@ H.BIN.DRV.REL.TABLE .EQ 0
*-------------------------------------- *--------------------------------------
* A2osX.SYSCALL Functions Indexes * A2osX.SYSCALL Functions Indexes
*-------------------------------------- *--------------------------------------
SYS.FileSearch .EQ $00 * .EQ $00
SYS.GetFullPath.YA .EQ $02 * .EQ $02
SYS.LoadFile .EQ $04 SYS.Stat .EQ $04
SYS.SaveFile .EQ $06 SYS.MKDir.YA .EQ $06
SYS.MKNod.YA .EQ $08
SYS.MKFIFO .EQ $0A
* .EQ $0C
* .EQ $0E
SYS.ChTyp .EQ $08 SYS.OpenDir.YA .EQ $10
SYS.ChMod .EQ $0A SYS.ReadDir.A .EQ $12
SYS.ChOwn .EQ $0C SYS.CloseDir.A .EQ $14
SYS.ChGrp .EQ $0E * .EQ $16-$1E
*--------------------------------------
SYS.LoadDrvYA .EQ $10 SYS.FPutC.AY .EQ $20
SYS.LoadLibYA .EQ $12 SYS.PutChar.A .EQ $22
SYS.UnloadLibA .EQ $14 SYS.GetC.A .EQ $24
SYS.LoadBin.YA .EQ $16 SYS.GetChar .EQ $26
SYS.TimeYA .EQ $18 SYS.FPutS .EQ $28
SYS.CTime2Time .EQ $1A SYS.PutS.YA .EQ $2A
SYS.PTime2Time .EQ $1C SYS.FGetS .EQ $2C
* .EQ $1E SYS.GetS.YA .EQ $2E
*--------------------------------------
SYS.FOpen .EQ $20 SYS.FOpen .EQ $30
SYS.FOpen.R .EQ $01 Open For Read SYS.FOpen.R .EQ $01 Open For Read
SYS.FOpen.W .EQ $02 Open For Write SYS.FOpen.W .EQ $02 Open For Write
SYS.FOpen.A .EQ $04 Append SYS.FOpen.A .EQ $04 Append
SYS.FOpen.T .EQ $08 Open/Append in Text mode SYS.FOpen.T .EQ $08 Open/Append in Text mode
SYS.FOpen.X .EQ $80 Create if not exists SYS.FOpen.X .EQ $80 Create if not exists
SYS.FClose.A .EQ $22 SYS.FClose.A .EQ $32
SYS.FRead .EQ $24 SYS.FRead .EQ $34
SYS.FWrite .EQ $26 SYS.FWrite .EQ $36
SYS.FFlush .EQ $28 SYS.FFlush .EQ $38
SYS.FSeek .EQ $2A SYS.FSeek .EQ $3A
SYS.FSeek.SET .EQ $00 SYS.FSeek.SET .EQ $00
SYS.FSeek.CUR .EQ $01 SYS.FSeek.CUR .EQ $01
SYS.FSeek.END .EQ $02 SYS.FSeek.END .EQ $02
SYS.FTell .EQ $2C SYS.FTell .EQ $3C
SYS.FEOF .EQ $2E SYS.FEOF .EQ $3E
SYS.Remove.YA .EQ $30 SYS.Remove.YA .EQ $40
SYS.Rename .EQ $32 SYS.Rename .EQ $42
SYS.STAT .EQ $34 * .EQ $44-$4E
* .EQ $36
SYS.OpenDir.YA .EQ $38 * .EQ $50
SYS.ReadDir.A .EQ $3A SYS.SScanF .EQ $52
SYS.CloseDir.A .EQ $3C * .EQ $54
SYS.MKDir.YA .EQ $3E * .EQ $56
SYS.PrintF.YA .EQ $58
SYS.SPrintF.YA .EQ $5A
SYS.FPrintF.YA .EQ $5C
* .EQ $5E
SYS.FileSearch .EQ $60
SYS.GetFullPath.YA .EQ $62
SYS.LoadFile .EQ $64
SYS.SaveFile .EQ $66
SYS.ChTyp .EQ $68
SYS.ChMod .EQ $6A
SYS.ChOwn .EQ $6C
SYS.ChGrp .EQ $6E
*-------------------------------------- *--------------------------------------
* .EQ $40 * .EQ $70
SYS.SScanF .EQ $42 SYS.PStrCpy .EQ $72
* .EQ $44 SYS.PStrCat .EQ $74
SYS.PrintFYA .EQ $46 SYS.PStrMatch .EQ $76
SYS.SPrintFYA .EQ $48 SYS.PStrUprYA .EQ $78
SYS.FPrintFYA .EQ $4A SYS.PStrLwrYA .EQ $7A
SYS.AToI .EQ $4C SYS.StrFTime .EQ $7C
* .EQ $4E * .EQ $7E
*--------------------------------------
SYS.NewPStrYA .EQ $50 SYS.AToF .EQ $80
SYS.PStrCpy .EQ $52 SYS.AToI.YA .EQ $82
SYS.PStrCat .EQ $54 SYS.AToL .EQ $84
SYS.PStrMatch .EQ $56 * .EQ $86-$8E
SYS.PStrUprYA .EQ $58
SYS.PStrLwrYA .EQ $5A SYS.TimeYA .EQ $90
SYS.StrFTime .EQ $5C SYS.CTime2Time .EQ $92
*SYS.PStr2StrArrayYA .EQ $5E SYS.PTime2Time .EQ $94
*-------------------------------------- * .EQ $96
SYS.ExecProcessNewEnvYA .EQ $60
SYS.ExecProcessYA .EQ $62 SYS.GetDevByID.A .EQ $98
SYS.CreateProcessNewEnvYA .EQ $64 SYS.GetDevByName.YA .EQ $9A
SYS.CreateProcessYA .EQ $66 SYS.GetDevStatus.A .EQ $9C
SYS.GetPSByIDA .EQ $68
* .EQ $6A
SYS.Sleep .EQ $6C
* .EQ $6E
*--------------------------------------
SYS.GetArgC .EQ $70
SYS.GetArg.A .EQ $72
SYS.ExpandStr.YA .EQ $74
* .EQ $76
SYS.PutEnv.YA .EQ $78
SYS.SetEnv .EQ $7A
SYS.GetEnv.YA .EQ $7C
SYS.UnsetEnv.YA .EQ $7E
*--------------------------------------
SYS.GetDevByID.A .EQ $80
SYS.GetDevByName.YA .EQ $82
SYS.GetDevStatus.A .EQ $84
* .EQ $86
SYS.MKNod.YA .EQ $88
SYS.MKNod.A .EQ $8A
SYS.MKFIFO .EQ $8C
* .EQ $8E
*--------------------------------------
SYS.GetMem .EQ $90
SYS.FreeMem.A .EQ $92
SYS.GetMemPtr.A .EQ $94
SYS.GetMemByID.A .EQ $96
SYS.GetMem.YA .EQ $98
SYS.GetMem0.YA .EQ $9A
* .EQ $9C
* .EQ $9E * .EQ $9E
*--------------------------------------
SYS.SetLoMem .EQ $A0 SYS.ExecProcessNewEnvYA .EQ $A0
SYS.GetMemStat.YA .EQ $A2 SYS.ExecProcessYA .EQ $A2
* .EQ $A4 SYS.CreateProcessNewEnvYA .EQ $A4
* .EQ $A6 SYS.CreateProcessYA .EQ $A6
SYS.LoadStkObj.YA .EQ $A8 SYS.GetPSByIDA .EQ $A8
SYS.GetStkObj.A .EQ $AA * .EQ $AA
SYS.FreeStkObj.A .EQ $AC SYS.Sleep .EQ $AC
* .EQ $AE * .EQ $AE
SYS.GetArgC .EQ $B0
SYS.GetArg.A .EQ $B2
SYS.ExpandStr.YA .EQ $B4
* .EQ $B6
SYS.PutEnv.YA .EQ $B8
SYS.SetEnv .EQ $BA
SYS.GetEnv.YA .EQ $BC
SYS.UnsetEnv.YA .EQ $BE
*-------------------------------------- *--------------------------------------
SYS.FPutC.AY .EQ $B0 SYS.GetMem .EQ $C0
SYS.PutChar.A .EQ $B2 SYS.FreeMem.A .EQ $C2
SYS.GetC.A .EQ $B4 SYS.GetMemPtr.A .EQ $C4
SYS.GetChar .EQ $B6 SYS.GetMemByID.A .EQ $C6
SYS.FPutS .EQ $B8
SYS.PutS.YA .EQ $BA SYS.GetMem.YA .EQ $C8
SYS.FGetS .EQ $BC SYS.GetMem0.YA .EQ $CA
SYS.GetS.YA .EQ $BE * .EQ $CC
* .EQ $CE
SYS.SetLoMem .EQ $D0
SYS.GetMemStat.YA .EQ $D2
* .EQ $D4
* .EQ $D6
SYS.LoadStkObj.YA .EQ $D8
SYS.GetStkObj.A .EQ $DA
SYS.FreeStkObj.A .EQ $DC
* .EQ $DE
*--------------------------------------
SYS.LoadLib.YA .EQ $E0
SYS.UnloadLib.A .EQ $E2
SYS.LoadDrv.YA .EQ $E4
*-------------------------------------- *--------------------------------------
* ProDOS ERROR CODES : $00->$5F * ProDOS ERROR CODES : $00->$5F
* Lib ERROR CODES : $80->$BF * Lib ERROR CODES : $80->$BF

25
LIB/LIBTCPIP.S.SKT.txt
View File

@ -310,7 +310,32 @@ SKT.AcceptA jsr SKT.GetA.I
* A = hFile * A = hFile
*\-------------------------------------- *\--------------------------------------
SKT.MkNodA sta NODE.SSOCK+S.NODE.SSOCK.HSKT SKT.MkNodA sta NODE.SSOCK+S.NODE.SSOCK.HSKT
>SYSCALL MkNodA >SYSCALL MkNodA
K.MkNod.A sta .1+1
>LDYAI S.NODE.SSOCK
jsr K.GetMem0.YA
bcs .9
>STYA ZPPtr1
ldy #S.NODE.T
lda #S.NODE.T.SSOCK
sta (ZPPtr1),y
ldy #S.NODE.SSOCK.HSKT
.1 lda #$ff
sta (ZPPtr1),y
>LDYA ZPPtr1
.9 rts
bcs .9 bcs .9
>STYA ZPTmpPtr1 >STYA ZPTmpPtr1

2
SBIN/DESKTOP.S.txt
View File

@ -49,7 +49,7 @@ L.DrawLine6.CB .DA DrawLine6.CB
.DA 0 .DA 0
*-------------------------------------- *--------------------------------------
CS.INIT >LDYA L.MSG.INIT CS.INIT >LDYA L.MSG.INIT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>LDYA L.LIBGFX >LDYA L.LIBGFX
>SYSCALL LoadLibYA >SYSCALL LoadLibYA

10
SBIN/DHCPCLNT.S.txt
View File

@ -99,7 +99,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 PrintFYA .90 >SYSCALL PrintF.YA
lda #0 lda #0
sec sec
rts rts
@ -115,7 +115,7 @@ CS.RUN >PUSHW L.Socket
sta (pData),y sta (pData),y
>LDYA L.MSG.CFG1 >LDYA L.MSG.CFG1
>SYSCALL PrintFYA >SYSCALL PrintF.YA
jsr Init.Timeout jsr Init.Timeout
@ -154,7 +154,7 @@ CS.RUN.SREQ ldx #3
bpl .1 bpl .1
>LDYA L.MSG.CFG2 >LDYA L.MSG.CFG2
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #hSocket ldy #hSocket
>PUSHB (pData),y >PUSHB (pData),y
@ -197,7 +197,7 @@ CS.RUN.OK lda #S.IPCFG.STATUS.OK
bpl .2 bpl .2
>LDYA L.MSG.CFG.OK >LDYA L.MSG.CFG.OK
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #0 Leave with NO ERROR lda #0 Leave with NO ERROR
sec sec
rts rts
@ -205,7 +205,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 PrintFYA >SYSCALL PrintF.YA
pla pla
sec sec
rts rts

6
SBIN/GETTY.S.txt
View File

@ -45,7 +45,7 @@ CS.INIT >SYSCALL GetArgC
bne .1 bne .1
>LDYA L.MSG.USAGE >LDYA L.MSG.USAGE
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #0 lda #0
sec sec
rts rts
@ -188,11 +188,11 @@ CS.RUN jsr Init.Timeout
.5 .5
>LDYA L.MSG.TELNET.OPT >LDYA L.MSG.TELNET.OPT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs * bcs *
>LDYA L.MSG.GREETINGS >LDYA L.MSG.GREETINGS
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .8 unable to send greetings...loop.. bcs .8 unable to send greetings...loop..

14
SBIN/HTTPD.S.txt
View File

@ -60,7 +60,7 @@ CS.INIT >LDYA L.LIBTCPIP
CS.RUN jsr Init.Timeout CS.RUN jsr Init.Timeout
>LDYA L.MSG.TCPWAIT >LDYA L.MSG.TCPWAIT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.1 >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ? .1 >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ?
bcs .99 bcs .99
@ -79,7 +79,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 PrintFYA >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
sec sec
rts rts
@ -100,7 +100,7 @@ CS.RUN.INIT ldx #3
sta (pData),y sta (pData),y
>LDYA L.MSG.INITOK >LDYA L.MSG.INITOK
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.2 >SYSCALL Sleep .2 >SYSCALL Sleep
jsr CS.RUN.SERVER jsr CS.RUN.SERVER
@ -127,13 +127,13 @@ CS.RUN.INIT ldx #3
bra .2 bra .2
.9 >LDYA L.MSG.SKTERR .9 >LDYA L.MSG.SKTERR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
sec sec
rts rts
CS.RUN.ABORT >LDYA L.MSG.ABORT CS.RUN.ABORT >LDYA L.MSG.ABORT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #0 lda #0
CS.RUN.ERR sec CS.RUN.ERR sec
@ -178,7 +178,7 @@ CS.RUN.SERVER ldy #hSrvSocket
>PUSHA >PUSHA
>LDYA L.MSG.INCOMING >LDYA L.MSG.INCOMING
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.8 clc .8 clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
@ -190,7 +190,7 @@ CS.RUN.CLIENT sta hClntSocket
bcs .1 bcs .1
>LDYAI UsrBuf256 >LDYAI UsrBuf256
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>PUSHB hClntSocket >PUSHB hClntSocket
>PUSHW L.HTTP.200OK >PUSHW L.HTTP.200OK

6
SBIN/INSDRV.S.txt
View File

@ -42,7 +42,7 @@ CS.INIT >SYSCALL GetArgC
bne .1 bne .1
>LDYA L.MSG.HELP >LDYA L.MSG.HELP
>SYSCALL PrintFYA >SYSCALL PrintF.YA
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
rts rts
@ -52,12 +52,12 @@ CS.INIT >SYSCALL GetArgC
>PUSHYA >PUSHYA
>LDYA L.MSG.LOAD >LDYA L.MSG.LOAD
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #1 get PTR to ARG[1] (Driver name) lda #1 get PTR to ARG[1] (Driver name)
>SYSCALL GetArg.A >SYSCALL GetArg.A
>SYSCALL LoadDrvYA YA = PTR to ARG[1...n] >SYSCALL LoadDrv.YA YA = PTR to ARG[1...n]
bcs .99 bcs .99
lda #0 success, but.... lda #0 success, but....

20
SBIN/KCONFIG.S.txt
View File

@ -70,7 +70,7 @@ CS.RUN >LDYA L.FILENAME
sta (pData),y sta (pData),y
>LDYA L.MSG.TOPBAR >LDYA L.MSG.TOPBAR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
jsr CS.RUN.Load jsr CS.RUN.Load
bcs .1 bcs .1
@ -78,19 +78,19 @@ CS.RUN >LDYA L.FILENAME
bra .2 bra .2
.1 >LDYA L.MSG.TOPBAR.KO .1 >LDYA L.MSG.TOPBAR.KO
.2 >SYSCALL PrintFYA .2 >SYSCALL PrintF.YA
>LDYA L.MSG.KCONF >LDYA L.MSG.KCONF
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>LDYAI A2osX.HZ >LDYAI A2osX.HZ
jsr CS.RUN.DumpConfYA jsr CS.RUN.DumpConfYA
>LDYA L.MSG.STATUSBAR >LDYA L.MSG.STATUSBAR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
CS.RUN.REPaint >LDYA L.MSG.FCONF CS.RUN.REPaint >LDYA L.MSG.FCONF
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #hFileBuf ldy #hFileBuf
lda (pData),y lda (pData),y
@ -134,7 +134,7 @@ CS.RUN.Loop >SYSCALL Sleep
bra CS.RUN.REPaint bra CS.RUN.REPaint
.8 >LDYA L.MSG.QUIT .8 >LDYA L.MSG.QUIT
.9 >SYSCALL PrintFYA .9 >SYSCALL PrintF.YA
lda #0 lda #0
sec sec
rts rts
@ -258,7 +258,7 @@ CS.RUN.DumpConfYA
>PUSHB (ZPTmp1) >PUSHB (ZPTmp1)
>LDYA L.MSG.HZ >LDYA L.MSG.HZ
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #8 ldy #8
lda (ZPTmp1),y lda (ZPTmp1),y
@ -268,7 +268,7 @@ CS.RUN.DumpConfYA
.10 >PUSHW L.MSG.ENABLED .10 >PUSHW L.MSG.ENABLED
.12 >LDYA L.MSG.CHROOT .12 >LDYA L.MSG.CHROOT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldy #9 Slot 1 ldy #9 Slot 1
@ -297,7 +297,7 @@ CS.RUN.DumpConfYA
>PUSHA Slot >PUSHA Slot
>LDYA L.MSG.SLOT >LDYA L.MSG.SLOT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ply ply
iny iny
@ -305,7 +305,7 @@ CS.RUN.DumpConfYA
bne .1 bne .1
>LDYA L.MSG.PROMPT >LDYA L.MSG.PROMPT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
clc clc
rts rts

4
SBIN/LOGIN.S.txt
View File

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

12
SBIN/NFSD.S.txt
View File

@ -59,7 +59,7 @@ CS.INIT >LDYA L.LIBTCPIP
CS.RUN jsr Init.Timeout CS.RUN jsr Init.Timeout
>LDYA L.MSG.TCPWAIT >LDYA L.MSG.TCPWAIT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.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 PrintFYA >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
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 PrintFYA >SYSCALL PrintF.YA
.11 >SYSCALL Sleep .11 >SYSCALL 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 PrintFYA >SYSCALL PrintF.YA
bra .11 bra .11
.9 >LDYA L.MSG.SKTERR .9 >LDYA L.MSG.SKTERR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
sec sec
rts rts
.99 >LDYA L.MSG.ABORT .99 >LDYA L.MSG.ABORT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #0 lda #0
sec sec
rts rts

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

@ -259,7 +259,7 @@ Cmd.Exec.PWD ldy #S.PS.hPREFIX
>SYSCALL GetMemPtr.A >SYSCALL GetMemPtr.A
>PUSHYA >PUSHYA
>LDYA L.MSG.PSTRCR >LDYA L.MSG.PSTRCR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
rts rts
Cmd.Exec.CD1 stz UsrBuf256 Cmd.Exec.CD1 stz UsrBuf256
@ -407,7 +407,7 @@ Cmd.Exec.SET lda ARGS
>PUSHW ZPPTR1 Push name >PUSHW ZPPTR1 Push name
>LDYA L.MSG.PRINTENV >LDYA L.MSG.PRINTENV
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs .9 bcs .9
lda ZPPTR2 lda ZPPTR2
@ -455,7 +455,7 @@ Cmd.Exec.SETVAR tax
>PUSHYA push value >PUSHYA push value
>PUSHW L.ARGS push name >PUSHW L.ARGS push name
>LDYA L.MSG.PRINTENV >LDYA L.MSG.PRINTENV
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.8 clc .8 clc
.9 rts .9 rts
@ -481,7 +481,7 @@ Cmd.Exec.TIME clc
>SYSCALL StrFTime >SYSCALL StrFTime
>LDYAI UsrBuf256 >LDYAI UsrBuf256
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bcs Cmd.Exec.ECHO.RTS bcs Cmd.Exec.ECHO.RTS
bra Cmd.Exec.ECHO.CR bra Cmd.Exec.ECHO.CR
*-------------------------------------- *--------------------------------------
@ -490,7 +490,7 @@ Cmd.Exec.ECHO lda ARGS
>PUSHW L.ARGS >PUSHW L.ARGS
>LDYA L.MSG.PSTRCR >LDYA L.MSG.PSTRCR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
rts rts
Cmd.Exec.ECHO.CR Cmd.Exec.ECHO.CR

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

@ -151,7 +151,7 @@ CSH.Run jsr CSH.GetBuf
>PUSHW pData >PUSHW pData
>LDYA L.MSG.ECHO >LDYA L.MSG.ECHO
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.80 clc .80 clc
rts rts

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

@ -38,7 +38,7 @@ IO.PrintErrMsg >PUSHA Save EC for PrintF
.8 >PUSHW ZPPTR1 .8 >PUSHW ZPPTR1
>LDYA L.MSG.ERROR >LDYA L.MSG.ERROR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
rts rts
*-------------------------------------- *--------------------------------------
MAN MAN

8
SBIN/SHELL.S.txt
View File

@ -139,7 +139,7 @@ CS.INIT jsr SetPWD
bcs .9 bcs .9
>LDYA L.MSG.GREETINGS >LDYA L.MSG.GREETINGS
>SYSCALL PrintFYA >SYSCALL PrintF.YA
* clc * clc
.9 rts .9 rts
@ -283,7 +283,7 @@ CS.RUN.BATCH jsr CSH.Run
>PUSHB (pData),y >PUSHB (pData),y
>LDYA L.MSG.CSHERR >LDYA L.MSG.CSHERR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
jsr CSH.RestorePtr jsr CSH.RestorePtr
@ -503,7 +503,7 @@ PrintPrompt >LDYA L.ENV.PS1
phx phx
>PUSHYA >PUSHYA
>LDYA L.MSG.PROMPT >LDYA L.MSG.PROMPT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
plx plx
php php
pha pha
@ -541,7 +541,7 @@ CmdLine.DEL lda (pData)
*-------------------------------------- *--------------------------------------
CmdLine.SET >PUSHW pData CmdLine.SET >PUSHW pData
>LDYA L.MSG.PSTR >LDYA L.MSG.PSTR
>SYSCALL PrintfYA >SYSCALL PrintF.YA
rts rts
*-------------------------------------- *--------------------------------------
.INB /A2OSX.SRC/SBIN/SHELL.S.CMD .INB /A2OSX.SRC/SBIN/SHELL.S.CMD

14
SBIN/TCPIP.S.CFG.txt
View File

@ -7,7 +7,7 @@ AUTO 6
*-------------------------------------- *--------------------------------------
CFG.Read >PUSHW L.HOSTNAME CFG.Read >PUSHW L.HOSTNAME
>LDYA L.MSG.CFG >LDYA L.MSG.CFG
>SYSCALL PrintFYA >SYSCALL PrintF.YA
jsr CFG.Read.HOSTNAME jsr CFG.Read.HOSTNAME
bcc .1 bcc .1
@ -15,11 +15,11 @@ CFG.Read >PUSHW L.HOSTNAME
>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 PrintFYA .2 >SYSCALL PrintF.YA
>PUSHW L.TCPIP.CONF >PUSHW L.TCPIP.CONF
>LDYA L.MSG.CFG >LDYA L.MSG.CFG
>SYSCALL PrintFYA >SYSCALL PrintF.YA
jsr CFG.Read.TCPIP.CONF jsr CFG.Read.TCPIP.CONF
bcc .3 bcc .3
@ -27,20 +27,20 @@ CFG.Read >PUSHW L.HOSTNAME
>LDYA L.MSG.CFG.KO >LDYA L.MSG.CFG.KO
bra .4 bra .4
.3 >LDYA L.MSG.CFG.OK .3 >LDYA L.MSG.CFG.OK
.4 >SYSCALL PrintFYA .4 >SYSCALL PrintF.YA
>PUSHW L.HOSTS >PUSHW L.HOSTS
>LDYA L.MSG.CFG >LDYA L.MSG.CFG
>SYSCALL PrintFYA >SYSCALL PrintF.YA
jsr CFG.Read.HOSTS jsr CFG.Read.HOSTS
bcc .5 bcc .5
>PUSHA >PUSHA
>LDYA L.MSG.CFG.KO >LDYA L.MSG.CFG.KO
bra .6 bra .6
.5 >SYSCALL PrintFYA .5 >SYSCALL PrintF.YA
.6 >LDYA L.MSG.CFG.OK .6 >LDYA L.MSG.CFG.OK
>SYSCALL PrintFYA >SYSCALL PrintF.YA
rts rts
*-------------------------------------- *--------------------------------------
CFG.Read.HOSTNAME CFG.Read.HOSTNAME

4
SBIN/TCPIP.S.txt
View File

@ -95,7 +95,7 @@ CS.INIT.DEV >LDYA L.DEVNAME
bne CS.INIT.DEV bne CS.INIT.DEV
>LDYA L.MSG.DEV.KO >LDYA L.MSG.DEV.KO
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #$28 MLI.ERR.NODEV lda #$28 MLI.ERR.NODEV
sec sec
rts rts
@ -107,7 +107,7 @@ CS.INIT.DEV >LDYA L.DEVNAME
>PUSHW L.DEVNAME >PUSHW L.DEVNAME
>LDYA L.MSG.DEV.OK >LDYA L.MSG.DEV.OK
>SYSCALL PrintFYA >SYSCALL PrintF.YA
ldx #DEVMGR.OPEN ldx #DEVMGR.OPEN
jsr NetDevJmp jsr NetDevJmp

14
SBIN/TELNETD.S.txt
View File

@ -60,7 +60,7 @@ CS.INIT >LDYA L.LIBTCPIP
CS.RUN jsr Init.Timeout CS.RUN jsr Init.Timeout
>LDYA L.MSG.TCPWAIT >LDYA L.MSG.TCPWAIT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.1 >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ? .1 >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ?
bcs .99 bcs .99
@ -79,7 +79,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 PrintFYA >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
sec sec
rts rts
@ -100,7 +100,7 @@ CS.RUN.INIT ldx #3
sta (pData),y sta (pData),y
>LDYA L.MSG.INITOK >LDYA L.MSG.INITOK
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.2 >SYSCALL Sleep .2 >SYSCALL Sleep
jsr CS.RUN.SERVER jsr CS.RUN.SERVER
@ -110,13 +110,13 @@ CS.RUN.INIT ldx #3
bra .2 bra .2
.9 >LDYA L.MSG.SKTERR .9 >LDYA L.MSG.SKTERR
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #SYSMGR.ERRSYN lda #SYSMGR.ERRSYN
sec sec
rts rts
CS.RUN.ABORT >LDYA L.MSG.ABORT CS.RUN.ABORT >LDYA L.MSG.ABORT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
lda #0 lda #0
CS.RUN.ERR sec CS.RUN.ERR sec
@ -161,7 +161,7 @@ CS.RUN.SERVER ldy #hSrvSocket
>PUSHA >PUSHA
>LDYA L.MSG.INCOMING >LDYA L.MSG.INCOMING
>SYSCALL PrintFYA >SYSCALL PrintF.YA
.8 clc .8 clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
@ -192,7 +192,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 PrintFYA >SYSCALL PrintF.YA
.1 lda #$ff hSocket .1 lda #$ff hSocket
>PUSHA >PUSHA

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

@ -4,43 +4,97 @@ LOMEM $A00
INC 1 INC 1
AUTO 6 AUTO 6
*-------------------------------------- *--------------------------------------
* K.LoadLib.YA
* in :
* Y,A = PTR To "LibName.o" C-String
* out :
* A = hMem To loaded LIB
*--------------------------------------
K.LoadLib.YA jsr BIN.FindLIB
bcs .9
jsr BIN.Load.YA Y,A=filename full path
bcs .9
stx .8+1
>STYA .1+1
txa Pass hLib to LibLoad
ldx #LIBMGR.LOAD
.1 jsr $ffff Self Modified, Call LIB.LOAD function
bcs .99
.8 lda #$ff hLib
clc
.9 rts
.99 pha
lda .8+1
jsr K.FreeMem.A
pla
sec
rts
*--------------------------------------
* K.UnloadLib.A
* in :
* A = hMem To Lib
* out :
*--------------------------------------
K.UnloadLib.A pha
jsr K.GetMemByID.A
>STYA ZPPtr1
ldy #S.MEM.REFCNT
lda (ZPPtr1),y Get count of those referencing this lib
dec only one left ?
beq .1
sta (ZPPtr1),y
pla
clc
rts
.1 ldy #S.MEM.PTR
lda (ZPPtr1),y
sta .2+1
iny
lda (ZPPtr1),y
sta .2+2
ldx #LIBMGR.UNLOAD
.2 jsr $ffff Self Modified, Call LIB.UNLOAD function
pla
jmp K.FreeMem.A
*--------------------------------------
* K.LoadDrv.YA * K.LoadDrv.YA
* in : * in :
* Y,A = PTR To Full Cmd Line PStrArray * Y,A = PTR to "NAME.DRV [PARAM]" C-String
* out : * out :
* none * none
*-------------------------------------- *--------------------------------------
K.LoadDrv.YA >STYA K.LoadDrv.CmdArray K.LoadDrv.YA jsr BIN.FindDRV
>LDYAI ENV.DRV push ENVNAME=DRV
>SYSCALL GetEnv.YA get value for ENV=DRV
bcs .9
>PUSHYA Push $DRV value
>PUSHW K.LoadDrv.CmdArray (ARG[0] = DRVNAME)
jsr K.FileSearch.I find Driver in $DRV
bcs .9 bcs .9
>LDYAI K.Buf256 jsr BIN.Load.YA Y,A =filename full path
jsr K.LoadBin.YA Y,A =filename full path
bcs .9 bcs .9
>STYA pDrv >STYA pDrv
stx .97+1 stx .97+1
>LDYA K.LoadDrv.CmdArray >LDYA BIN.CmdLine
>STYA ZPPtr1 >STYA ZPPtr1
.1 lda (ZPPtr1) Advance to ARG[1] .1 lda (ZPPtr1) Advance to ARG[1]
beq .2 pha
inc ZPPtr1 inc ZPPtr1
bne .1 bne .2
inc ZPPtr1+1 inc ZPPtr1+1
bra .1
.2 >LDYA ZPPtr1 .2 pla
bne .1
>LDYA ZPPtr1
jsr pDrvJmp call Dev.Detect jsr pDrvJmp call Dev.Detect
bcs .96 bcs .96
@ -60,95 +114,42 @@ K.LoadDrv.YA >STYA K.LoadDrv.CmdArray
pla pla
rts rts
*-------------------------------------- *--------------------------------------
K.LoadDrv.CmdArray .BS 2 BIN.FindLIB clc
*-------------------------------------- .HS B0 bcs
* K.LoadLib.YA BIN.FindDRV sec
* in : >STYA BIN.CmdLine
* Y,A = PTR To Lib Name
* out : >LDYAI BIN.Find.ENV.LIB
* A = hMem To loaded LIB bcc .1
*-------------------------------------- >LDYAI BIN.Find.ENV.DRV
K.LoadLib.YA >STYA K.LoadLib.Name SAVE LIBname for K.FileSearch
>LDYAI ENV.LIB push ENVNAME=LIB .1 >SYSCALL GetEnv.YA get value for Search Path
>SYSCALL GetEnv.YA get value for ENV=LIB
bcs .9 bcs .9
>PUSHYA Push $LIB value >PUSHYA Push Search path
>PUSHW K.LoadLib.Name >LDYA BIN.CmdLine
jsr K.FileSearch.I find libname in $LIB jsr K.FileSearch.I find libname in Search
bcs .9 bcs .9
>LDYAI K.Buf256 >LDYAI K.Buf256
jsr K.LoadBin.YA Y,A=filename full path
bcs .9
stx .8+1
>STYA LIB.Jump+1
txa Pass hLib to LibLoad
ldx #LIBMGR.LOAD
jsr LIB.Jump Call LIB.LOAD function
bcs .99
.8 lda #$ff hLib
clc
.9 rts .9 rts
.99 pha
lda .8+1
jsr K.FreeMem.A
pla
sec
rts
*-------------------------------------- *--------------------------------------
K.LoadLib.Name .BS 2 BIN.Find.ENV.DRV >CSTR "DRV"
BIN.Find.ENV.LIB >CSTR "LIB"
*-------------------------------------- *--------------------------------------
* K.UnloadLib.A * BIN.Load.YA
* in :
* A = hMem To Lib
* out :
*--------------------------------------
K.UnloadLib.A pha
jsr K.GetMemByID.A
>STYA ZPPtr1
ldy #S.MEM.REFCNT
lda (ZPPtr1),y Get count of those referencing this lib
dec only one left ?
beq .1
sta (ZPPtr1),y
pla
clc
rts
.1 ldy #S.MEM.PTR
lda (ZPPtr1),y
sta LIB.Jump+1
iny
lda (ZPPtr1),y
sta LIB.Jump+2
ldx #LIBMGR.UNLOAD
jsr LIB.Jump Call LIB.UNLOAD function
pla
jmp K.FreeMem.A
LIB.Jump jmp $ffff Self Modiied
*--------------------------------------
* K.LoadBin.YA
* in : * in :
* A = hMem of FilePath (PSTR) * A = hMem of FilePath (PSTR)
* out : * out :
* Y,A = MEMPTR * Y,A = MEMPTR
* X = hMem of Code Segment * X = hMem of Code Segment
*-------------------------------------- *--------------------------------------
K.LoadBin.YA >STYA K.LoadBin.YA.Filename BIN.Load.YA >STYA BIN.CmdLine
jsr MEM.GetMemByNameYA jsr MEM.GetMemByNameYA
bcs K.LoadBin.YA.1 not already loaded bcs BIN.Load.YA.1 not already loaded
>STYA ZPPtr1 Save base address >STYA ZPPtr1 Save base address
ldy #S.MEM.REFCNT ldy #S.MEM.REFCNT
@ -159,8 +160,8 @@ K.LoadBin.YA >STYA K.LoadBin.YA.Filename
txa txa
jmp K.GetMemPtr.A X=hMem from K.GetMemByNameA jmp K.GetMemPtr.A X=hMem from K.GetMemByNameA
*-------------------------------------- *--------------------------------------
K.LoadBin.YA.1 >PUSHWI K.S.STAT BIN.Load.YA.1 >PUSHWI K.S.STAT
>PUSHW K.LoadBin.YA.Filename >PUSHW BIN.CmdLine
jsr K.STAT Look for AUXTYPE jsr K.STAT Look for AUXTYPE
bcs .9 bcs .9
@ -170,12 +171,12 @@ K.LoadBin.YA.1 >PUSHWI K.S.STAT
>PUSHYA Push AUXTYPE >PUSHYA Push AUXTYPE
>PUSHBI 6 S.FILEINFO.TYPE.BIN >PUSHBI 6 S.FILEINFO.TYPE.BIN
>PUSHBI SYS.FOpen.R >PUSHBI SYS.FOpen.R
>PUSHW K.LoadBin.YA.Filename >PUSHW BIN.CmdLine
jsr K.LoadFile jsr K.LoadFile
.9 bcs .99 Error Loading file .9 bcs .99 Error Loading file
stx K.LoadBin.YA.hMem save hMem stx BIN.hMem save hMem
pha YA=CODE+DATA size pha YA=CODE+DATA size
tya tya
@ -212,11 +213,11 @@ K.LoadBin.YA.1 >PUSHWI K.S.STAT
jsr BIN.RelocateEXE jsr BIN.RelocateEXE
>LDYA K.LoadBin.YA.Filename get back bin path >LDYA BIN.CmdLine get back bin path
>SYSCALL NewPStrYA make a copy of this string jsr K.NewPStr.YA make a copy of this string
bcs .98 bcs .98
lda K.LoadBin.YA.hMem Keep X=hMem lda BIN.hMem Keep X=hMem
jsr K.GetMemByID.A X unmodified jsr K.GetMemByID.A X unmodified
>STYA ZPPtr1 >STYA ZPPtr1
@ -228,28 +229,28 @@ K.LoadBin.YA.1 >PUSHWI K.S.STAT
ldy #S.MEM.BIN ldy #S.MEM.BIN
sta (ZPPtr1),y sta (ZPPtr1),y
lda K.LoadBin.YA.hMem lda BIN.hMem
tax return hMEM to Caller... tax return hMEM to Caller...
jsr K.GetMemPtr.A jsr K.GetMemPtr.A
clc ...and Y,A=PTR to CS clc ...and Y,A=PTR to CS
rts rts
.98 pha .98 pha
lda K.LoadBin.YA.hMem lda BIN.hMem
jsr K.FreeMem.A Discard Loaded Code jsr K.FreeMem.A Discard Loaded Code
pla pla
sec sec
.99 rts .99 rts
*-------------------------------------- *--------------------------------------
K.LoadBin.YA.Filename .BS 2 BIN.CmdLine .BS 2
K.LoadBin.YA.hMem .BS 1 BIN.hMem .BS 1
*-------------------------------------- *--------------------------------------
* BIN.InstallDRV * BIN.InstallDRV
* In: * In:
* pDrv = .DRV File Loaded Address * pDrv = .DRV File Loaded Address
* Note: * Note:
* K.LoadBin.YA called from K.LoadDrvYA * BIN.Load.YA called from K.LoadDrvYA
* Already setup correctly pDrv, * Already setup correctly pDrv,
* BIN.Relocate.Start,End * BIN.Relocate.Start,End
*-------------------------------------- *--------------------------------------

3
SYS/KERNEL.S.DAT.txt
View File

@ -17,9 +17,6 @@ EvtMgr.Count .BS 1
TskMgr.Count .DA #1 One Slot Busy (Kernel PS=0) TskMgr.Count .DA #1 One Slot Busy (Kernel PS=0)
TskMgr.LastID .DA #0 TskMgr.LastID .DA #0
*-------------------------------------- *--------------------------------------
ENV.DRV >PSTR "DRV"
ENV.LIB >PSTR "LIB"
*--------------------------------------
EmptyPSTR .DA #0 EmptyPSTR .DA #0
*-------------------------------------- *--------------------------------------
MAN MAN

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

@ -15,7 +15,7 @@ AUTO 6
*\-------------------------------------- *\--------------------------------------
K.OpenDir.YA jsr PFT.CheckPathYA K.OpenDir.YA jsr PFT.CheckPathYA
>STYA ZPPtr2 >STYA ZPPtr2
>STYA K.MLI.PARAMS+1 For GETFILEINFO,MLIOPEN jsr STDIO.SetMLIPathYA For GETFILEINFO,MLIOPEN
>LDYAI S.NODE.DIR >LDYAI S.NODE.DIR
jsr K.GetMem0.YA jsr K.GetMem0.YA
@ -518,6 +518,11 @@ K.ReadDir.A.AddStat
inc ZPPtr4+1 inc ZPPtr4+1
.8 rts .8 rts
*-------------------------------------- *--------------------------------------
ADDF.SRC .HS 1013141516171f20
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.A.ClrStat
ldx #S.STAT-1 ldx #S.STAT-1
@ -594,11 +599,6 @@ K.ReadDir.A.ConvertTime
adc #0 adc #0
sta ZPPtr1+1 sta ZPPtr1+1
jmp TIME.PTime2TimePtr1Ptr2 jmp TIME.PTime2TimePtr1Ptr2
*--------------------------------------
ADDF.SRC .HS 1013141516171f20
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
*/------------------------------------- */-------------------------------------
* # CloseDir.A * # CloseDir.A
* ## In: * ## In:
@ -606,7 +606,7 @@ ADDF.DST .DA #S.STAT.P.TYPE,#S.STAT.BLOCKS,#S.STAT.BLOCKS+1
* ## Out: * ## Out:
* none, always succeed. * none, always succeed.
*\------------------------------------- *\-------------------------------------
K.CloseDir.A .EQ K.FClose.A K.CloseDir.A .EQ K.FClose.A
K.CloseDir.A.1 .EQ K.FClose.A.1 K.CloseDir.A.1 .EQ K.FClose.A.1
*-------------------------------------- *--------------------------------------
MAN MAN

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

@ -4,42 +4,6 @@ LOMEM $A00
INC 1 INC 1
AUTO 6 AUTO 6
*/-------------------------------------- */--------------------------------------
* # NewPStrYA
* Create a new copy of PSTR
* ## In:
* Y,A = PTR to buffer
* ## Out:
* CC : success
* Y,A = PTR to String
* X = hMem (PSTR)
* CS : error
* A = SYS error code
*\--------------------------------------
K.NewPStr.YA >STYA ZPPtr2
lda (ZPPtr2)
inc
tay
lda #0 Y,A = len of new string
jsr K.GetMem.YA
bcs .9
>STYA ZPPtr1
lda (ZPPtr2)
sta (ZPPtr1)
tay
beq .2
.1 lda (ZPPtr2),y
sta (ZPPtr1),y
dey
bne .1
.2 >LDYA ZPPtr1
clc
.9 rts
*/--------------------------------------
* # ExpandPStr.YA * # ExpandPStr.YA
* ## In: * ## In:
* Y,A = PTR to String to Expand (PSTR) * Y,A = PTR to String to Expand (PSTR)

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

@ -126,7 +126,7 @@ K.GetFullPath.YA
>SYSCALL PStrCat >SYSCALL PStrCat
K.GetFullPath.YA.NewStr K.GetFullPath.YA.NewStr
>LDYAI K.Buf256 >LDYAI K.Buf256
>SYSCALL NewPStrYA jsr K.NewPStr.YA
rts rts
K.GetFullPath.YA.9 K.GetFullPath.YA.9

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

@ -48,12 +48,12 @@ GO.Reset jsr GO.A2osX
*-------------------------------------- *--------------------------------------
* *** MUST BE REINTRANT *** * *** MUST BE REINTRANT ***
*-------------------------------------- *--------------------------------------
A2osX.SYSCALL1 bit K.SYSCALL.FLAGS,x A2osX.SYSCALL1 bit K.SYSCALL.BANK,x
bpl .8 in $E000, no BNK change bpl .8 in $E000, no BNK change
sta .7+1 save A (Func Arg) sta .7+1 save A (Func Arg)
lda K.SYSCALL.FLAGS+1,x Get Target BNK lda K.SYSCALL.BANK,x Get Target BNK
cmp $D000 #RRAMWRAMBNK1 or #RRAMWRAMBNK2 cmp $D000 #RRAMWRAMBNK1 or #RRAMWRAMBNK2
beq .7 same as actual BNK...go restore A and JMP beq .7 same as actual BNK...go restore A and JMP

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

@ -105,30 +105,30 @@ Kernel.Init3 sta SETALTZP
jsr PS0Init jsr PS0Init
bcs * bcs *
>LDYAI MSG.Init3 >LDYAI MSG.Init3
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>LDYAI MSG.DEV >LDYAI MSG.DEV
>SYSCALL PrintFYA >SYSCALL PrintF.YA
jsr DevMgrInit jsr DevMgrInit
bcs * bcs *
>LDYAI MSG.IRQ >LDYAI MSG.IRQ
>SYSCALL PrintFYA >SYSCALL PrintF.YA
jsr IrqMgrInit jsr IrqMgrInit
bcs * bcs *
>LDYAI MSG.EVT >LDYAI MSG.EVT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
jsr EvtMgrInit jsr EvtMgrInit
bcs * bcs *
>LDYAI MSG.FLT >LDYAI MSG.FLT
>SYSCALL PrintFYA >SYSCALL PrintF.YA
jsr FltMgrInit jsr FltMgrInit
bcs * bcs *
>LDYAI MSG.TSK >LDYAI MSG.TSK
>SYSCALL PrintFYA >SYSCALL PrintF.YA
jsr TskMgrInit jsr TskMgrInit
bcs * bcs *
@ -138,11 +138,11 @@ Kernel.Init3 sta SETALTZP
>PUSHYA >PUSHYA
>LDYAI MSG.Prefix >LDYAI MSG.Prefix
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>PUSHWI STARTUP.CMDLINE >PUSHWI STARTUP.CMDLINE
>LDYAI MSG.Startup >LDYAI MSG.Startup
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>LDYAI STARTUP.CMDLINE >LDYAI STARTUP.CMDLINE
>SYSCALL ExpandStr.YA >SYSCALL ExpandStr.YA
@ -153,7 +153,7 @@ Kernel.Init3 sta SETALTZP
>SYSCALL FreeMem.A ...discard... >SYSCALL FreeMem.A ...discard...
>LDYAI MSG.Init3.OK >LDYAI MSG.Init3.OK
>SYSCALL PrintFYA >SYSCALL PrintF.YA
>LDYAI TskMgr.Table >LDYAI TskMgr.Table
>STYA pPs >STYA pPs
@ -166,7 +166,7 @@ Kernel.Init3 sta SETALTZP
.9 >PUSHA .9 >PUSHA
>LDYAI MSG.StartupErr >LDYAI MSG.StartupErr
>SYSCALL PrintFYA >SYSCALL PrintF.YA
bra * No need to discard Expanded CMDLINE bra * No need to discard Expanded CMDLINE
*-------------------------------------- *--------------------------------------
@ -781,7 +781,7 @@ TskMgrInit >LDYAI TskMgr.Table+S.PS Clear whole process table except PS0
bcs .9 bcs .9
>LDYAI K.Buf256 >LDYAI K.Buf256
>SYSCALL NewPStrYA jsr K.NewPStr.YA
bcs .9 bcs .9
txa txa

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

@ -4,29 +4,38 @@ LOMEM $A00
INC 1 INC 1
AUTO 6 AUTO 6
*-------------------------------------- *--------------------------------------
* $D000-D0FF K.SYSCALL.JMP Jmp Table * $E000-E0FF K.SYSCALL.JMP Jmp Table
*-------------------------------------- *--------------------------------------
* Bank 1 * Bank 1
*-------------------------------------- *--------------------------------------
K.SYSCALL.JMP .DA K.FileSearch $00 K.SYSCALL.JMP .DA 0 $00
.DA K.GetFullPath.YA .DA 0
.DA K.LoadFile .DA K.Stat
.DA K.SaveFile .DA K.MKDir.YA
.DA K.ChTyp .DA K.MKNod.YA
.DA K.ChMod .DA K.MKFIFO
.DA K.ChOwn
.DA K.ChGrp
*--------------------------------------
.DA K.LoadDrv.YA $10
.DA K.LoadLib.YA
.DA K.UnloadLib.A
.DA K.LoadBin.YA
.DA K.Time.YA
.DA K.CTime2Time
.DA K.PTime2Time
.DA 0 .DA 0
*-------------------------------------- .DA 0
.DA K.FOpen $20
.DA K.OpenDir.YA $10
.DA K.ReadDir.A
.DA K.CloseDir.A
.DA 0
.DA 0
.DA 0
.DA 0
.DA 0
.DA K.FPutC.AY $20
.DA K.PutChar.A
.DA K.GetC.A
.DA K.GetChar
.DA K.FPutS
.DA K.PutS.YA
.DA K.FGetS
.DA K.GetS.YA
.DA K.FOpen $30
.DA K.FClose.A .DA K.FClose.A
.DA K.FRead .DA K.FRead
.DA K.FWrite .DA K.FWrite
@ -34,37 +43,64 @@ K.SYSCALL.JMP .DA K.FileSearch $00
.DA K.FSeek .DA K.FSeek
.DA K.FTell.A .DA K.FTell.A
.DA K.FEOF.A .DA K.FEOF.A
*--------------------------------------
.DA K.Remove.YA $30 .DA K.Remove.YA $40
.DA K.Rename .DA K.Rename
.DA K.Stat
.DA 0 .DA 0
.DA K.OpenDir.YA .DA 0
.DA K.ReadDir.A .DA 0
.DA K.CloseDir.A .DA 0
.DA K.MKDir.YA .DA 0
*-------------------------------------- .DA 0
* Bank 2
*-------------------------------------- .DA 0 $50
.DA 0 $40
.DA K.SScanF .DA K.SScanF
.DA 0 .DA 0
.DA 0
.DA K.PrintF.YA .DA K.PrintF.YA
.DA K.SPrintF.YA .DA K.SPrintF.YA
.DA K.FPrintF.YA .DA K.FPrintF.YA
.DA K.AToI
.DA 0 .DA 0
.DA K.FileSearch $60
.DA K.GetFullPath.YA
.DA K.LoadFile
.DA K.SaveFile
.DA K.ChTyp
.DA K.ChMod
.DA K.ChOwn
.DA K.ChGrp
*-------------------------------------- *--------------------------------------
.DA 0 $50 * Bank 2
*--------------------------------------
.DA 0 $70
.DA K.StrCpy .DA K.StrCpy
.DA K.StrCat .DA K.StrCat
.DA K.StrMatch .DA K.StrMatch
.DA K.StrUpr.YA .DA K.StrUpr.YA
.DA K.StrLwr.YA .DA K.StrLwr.YA
.DA K.StrFTime .DA K.StrFTime
.DA 0 K.PStr2StrArrayYA .DA 0
*--------------------------------------
.DA K.ExecProcessNewEnv.YA $60 .DA K.AToF $80
.DA K.AToI.YA
.DA K.AToL
.DA 0
.DA 0
.DA 0
.DA 0
.DA 0
.DA K.Time.YA $90
.DA K.CTime2Time
.DA K.PTime2Time
.DA 0
.DA K.GetDevByID.A
.DA K.GetDevByName.YA
.DA K.GetDevStatus.A
.DA 0
.DA K.ExecProcessNewEnv.YA $A0
.DA K.ExecProcess.YA .DA K.ExecProcess.YA
.DA K.CreateProcessNewEnv.YA .DA K.CreateProcessNewEnv.YA
.DA K.CreateProcess.YA .DA K.CreateProcess.YA
@ -72,8 +108,8 @@ K.SYSCALL.JMP .DA K.FileSearch $00
.DA 0 .DA 0
.DA K.Sleep .DA K.Sleep
.DA 0 .DA 0
*--------------------------------------
.DA K.GetArgC $70 .DA K.GetArgC $B0
.DA K.GetArg.A .DA K.GetArg.A
.DA K.ExpandPStr.YA .DA K.ExpandPStr.YA
.DA 0 .DA 0
@ -81,19 +117,10 @@ K.SYSCALL.JMP .DA K.FileSearch $00
.DA K.SetEnv .DA K.SetEnv
.DA K.GetEnv.YA .DA K.GetEnv.YA
.DA K.UnsetEnv.YA .DA K.UnsetEnv.YA
*--------------------------------------
.DA K.GetDevByID.A $80
.DA K.GetDevByName.YA
.DA K.GetDevStatus.A
.DA 0
.DA K.MKNod.YA
.DA K.MKNod.A
.DA K.MKFIFO
.DA 0
*-------------------------------------- *--------------------------------------
* $E000 * $E000
*-------------------------------------- *--------------------------------------
.DA K.GetMem $90 .DA K.GetMem $C0
.DA K.FreeMem.A .DA K.FreeMem.A
.DA K.GetMemPtr.A .DA K.GetMemPtr.A
.DA K.GetMemByID.A .DA K.GetMemByID.A
@ -102,7 +129,7 @@ K.SYSCALL.JMP .DA K.FileSearch $00
.DA 0 .DA 0
.DA 0 .DA 0
*-------------------------------------- *--------------------------------------
.DA K.SetLoMem $A0 .DA K.SetLoMem $D0
.DA K.GetMemStat.YA .DA K.GetMemStat.YA
.DA 0 .DA 0
.DA 0 .DA 0
@ -111,19 +138,23 @@ K.SYSCALL.JMP .DA K.FileSearch $00
.DA K.FreeStkObj.A .DA K.FreeStkObj.A
.DA 0 .DA 0
*-------------------------------------- *--------------------------------------
.DA K.FPutC.AY $B0 .DA K.LoadLib.YA $E0
.DA K.PutChar.A .DA K.UnloadLib.A
.DA K.GetC.A .DA K.LoadDrv.YA
.DA K.GetChar
.DA K.FPutS
.DA K.PutS.YA
.DA K.FGetS
.DA K.GetS.YA
*-------------------------------------- *--------------------------------------
* LO Byte : * LO Byte :
* #RRAMWRAMBNK1 or #RRAMWRAMBNK2 * #RRAMWRAMBNK1,#RRAMWRAMBNK2
* HI Byte :
* Flags (ROOT....)
*-------------------------------------- *--------------------------------------
K.SYSCALL.FLAGS .DA #$80 $00 K.SYSCALL.BANK .DA #RRAMWRAMBNK1 $00
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK1
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK1
@ -131,7 +162,83 @@ K.SYSCALL.FLAGS .DA #$80 $00
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK1
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1 $10
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1 $20
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1 $30
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1 $40
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1 $50
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK1
.DA #$80 .DA #$80
@ -140,154 +247,111 @@ K.SYSCALL.FLAGS .DA #$80 $00
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK1
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1 $60
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
*-------------------------------------- *--------------------------------------
.DA #$80 $10 .DA #RRAMWRAMBNK2 $70
.DA #RRAMWRAMBNK1
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK2
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2 $80
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1
.DA #RRAMWRAMBNK2 $90
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK2
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK2
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK2
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK2
*--------------------------------------
.DA #$80 $20
.DA #RRAMWRAMBNK1
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK2
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1
.DA #RRAMWRAMBNK2 $A0
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK2
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK2
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1 .DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2 $B0
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80 .DA #$80
.DA #RRAMWRAMBNK1
*-------------------------------------- *--------------------------------------
.DA #$80 $30 .DA 0 $C0 : MemMgr at $E000
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
.DA #$80
.DA #RRAMWRAMBNK1
*--------------------------------------
* $40 -> $8E
*--------------------------------------
.DA #$80 $40
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
*--------------------------------------
.DA #$80 $50
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
*--------------------------------------
.DA #$80 $60
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
*--------------------------------------
.DA #$80 $70
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
*--------------------------------------
.DA #$80 $80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
.DA #$80
.DA #RRAMWRAMBNK2
*--------------------------------------
.DA 0 $90 : MemMgr at $E000
.DA 0 .DA 0
.DA 0 .DA 0
.DA 0 .DA 0
@ -305,7 +369,7 @@ K.SYSCALL.FLAGS .DA #$80 $00
.DA 0 .DA 0
.DA 0 .DA 0
*-------------------------------------- *--------------------------------------
.DA 0 $A0 .DA 0 $D0
.DA 0 .DA 0
.DA 0 .DA 0
.DA 0 .DA 0
@ -323,7 +387,7 @@ K.SYSCALL.FLAGS .DA #$80 $00
.DA 0 .DA 0
.DA 0 .DA 0
*-------------------------------------- *--------------------------------------
.DA 0 $B0 .DA 0 $E0
.DA 0 .DA 0
.DA 0 .DA 0
.DA 0 .DA 0
@ -350,6 +414,42 @@ PullPtr1Ptr2 clc
bcc .9 bcc .9
>PULLW ZPPtr3 >PULLW ZPPtr3
.9 rts .9 rts
*/--------------------------------------
* # NewPStrYA
* Create a new copy of PSTR
* ## In:
* Y,A = PTR to buffer
* ## Out:
* CC : success
* Y,A = PTR to String
* X = hMem (PSTR)
* CS : error
* A = SYS error code
*\--------------------------------------
K.NewPStr.YA >STYA ZPPtr2
lda (ZPPtr2)
inc
tay
lda #0 Y,A = len of new string
jsr K.GetMem.YA
bcs .9
>STYA ZPPtr1
lda (ZPPtr2)
sta (ZPPtr1)
tay
beq .2
.1 lda (ZPPtr2),y
sta (ZPPtr1),y
dey
bne .1
.2 >LDYA ZPPtr1
clc
.9 rts
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE /A2OSX.SRC/SYS/KERNEL.S.JMP SAVE /A2OSX.SRC/SYS/KERNEL.S.JMP

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

@ -245,7 +245,7 @@ PS.Init >LDYA K.CreateProcess.CmdLine
pla Restore PTR... pla Restore PTR...
ply ply
>SYSCALL LoadBin.YA Y,A=filename full path jsr BIN.Load.YA Y,A=filename full path
bcs .9 bcs .9
>STYA ZPPtr4 save PTR to Code Segment >STYA ZPPtr4 save PTR to Code Segment

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

@ -8,11 +8,11 @@ AUTO 6
* Return information about a file * Return information about a file
* ## In : * ## In :
* PUSHW = PTR to S.STAT buffer * PUSHW = PTR to S.STAT buffer
* PUSHW = PTR to Filename (PSTR) * PUSHW = PTR to Filename (C-String)
* ## Out : * ## Out :
*\-------------------------------------- *\--------------------------------------
K.Stat jsr PFT.CheckPathSTK K.Stat jsr PFT.CheckPathSTK
>PULLW K.MLI.PARAMS+1 jsr STDIO.PullMLIPath
>PULLW K.Stat.StoreY+1 >PULLW K.Stat.StoreY+1
>MLICALL MLIGETFILEINFO >MLICALL MLIGETFILEINFO
bcs .9 bcs .9
@ -157,33 +157,6 @@ K.MkNod.YA jsr K.GetDevByName.YA Ptr1=NAME
sec sec
rts rts
*/-------------------------------------- */--------------------------------------
* # MkNod.A
* return a hFile for a given Socket
* ## IN:
* A=hSocket
* ## OUT:
* CC = OK, CS = ERROR
* X = hFILE
* Y,A = pFILE
*\--------------------------------------
K.MkNod.A sta .1+1
>LDYAI S.NODE.SSOCK
jsr K.GetMem0.YA
bcs .9
>STYA ZPPtr1
ldy #S.NODE.T
lda #S.NODE.T.SSOCK
sta (ZPPtr1),y
ldy #S.NODE.SSOCK.HSKT
.1 lda #$ff
sta (ZPPtr1),y
>LDYA ZPPtr1
.9 rts
*/--------------------------------------
* # MKFIFO * # MKFIFO
* return a S.FILE to a new FIFO * return a S.FILE to a new FIFO
* ## IN: * ## IN:

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

@ -4,6 +4,231 @@ LOMEM $A00
INC 1 INC 1
AUTO 6 AUTO 6
*/-------------------------------------- */--------------------------------------
* # FPutC.AY
* Print A (char) to File
* ## In:
* A : char to print
* Y = hFILE
* ## Out:
* CC = success
*\--------------------------------------
K.FPutC.AY sta K.PutC.Char
sty K.PutC.Node
tya
phy
bne K.PutChar.A.1
K.PutChar.A.8 ply
clc
rts
*/--------------------------------------
* # PutChar.A
* Print A (char) to StdOut
* ## In:
* A : char to print
* ## Out:
* CC = success
*\--------------------------------------
K.PutChar.A sta K.PutC.Char
phy
ldy #S.PS.hStdOut
lda (pPs),y
beq K.PutChar.A.8 NUL
phx
K.PutChar.A.1 sta K.PutC.Node
jsr K.GetMemPtr.A
>STYA pDev
ldy #S.NODE.T
lda (pDev),y
asl
tax
jsr K.PutChar.A.Jmp
plx
ply
rts
*--------------------------------------
K.PutChar.A.Jmp jmp (.1,x)
.1 .DA K.PutChar.A.REG
.DA STDIO.IOERR DIR
.DA K.PutChar.A.CDEV
.DA STDIO.IOERR BDEV
.DA STDIO.IOERR LNK
.DA STDIO.IOERR DSOCK
.DA K.PutChar.A.SSOCK
.DA K.PutChar.A.FIFO
*--------------------------------------
K.PutChar.A.REG lda K.PutC.Node
ldy K.PutC.Char
jmp K.FWrite.AY
*--------------------------------------
K.PutChar.A.CDEV ldy #S.NODE.DEV.JMP
lda (pDev),y
sta .1+1
iny
lda (pDev),y
sta .1+2
lda K.PutC.Char
ldx #DEVMGR.WRITE
.1 jmp $ffff
*--------------------------------------
K.PutChar.A.SSOCK
lda (pDev) #S.NODE.HANDLER
jsr K.GetMemPtr.A
>STYA .1
ldy #S.NODE.SSOCK.HSKT
>PUSHB (pDev),y
>PUSHB K.PutC.Char
ldy #S.NODE.SSOCK.WRITE
lda (pDev),y
tax Function Offset for write
.1 jmp $ffff
*--------------------------------------
K.PutChar.A.FIFO
ldy #S.NODE.FIFO.S
lda (pDev),y
beq .9 Remote PS did not opened yet the pipe
cmp #S.NODE.FIFO.S.Closed
beq .99 Remote PS closed the Pipe
ldy #S.NODE.FIFO.hMem
lda (pDev),y
jsr K.GetMemPtr.A
>STYA .1+2
ldy #S.NODE.FIFO.Head
lda (pDev),y
inc
dey #S.NODE.FIFO.Tail
cmp (pDev),y
beq .9 FIFO is full
iny
sta (pDev),y
tay
lda K.PutC.Char
.1 sta $ffff,y
clc
rts
.9 lda #MLI.ERR.VOLFULL
sec
rts
.99 lda #MLI.ERR.EOF
sec
rts
*--------------------------------------
K.PutC.Char .BS 1
K.PutC.Node .BS 1
*/--------------------------------------
* # GetChar
* Get char from StdIn
* ## In:
* none.
* ## Out:
* CC = success
* A = char
*\--------------------------------------
K.GetChar ldy #S.PS.hStdIn
lda (pPs),y
*/--------------------------------------
* # GetC.A
* Get char from File
* ## In:
* A = hFILE
* ## Out:
* CC = success
* A = char
*\--------------------------------------
K.GetC.A sta K.PutC.Node
jsr K.GetMemPtr.A
>STYA pDev
ldy #S.NODE.T
lda (pDev),y
asl
tax
jmp (.1,x)
.1 .DA K.GetC.REG
.DA STDIO.IOERR DIR
.DA K.GetC.CDEV
.DA STDIO.IOERR BDEV
.DA STDIO.IOERR LNK
.DA STDIO.IOERR DSOCK
.DA K.GetC.SSOCK
.DA K.GetC.FIFO
*--------------------------------------
K.GetC.REG lda K.PutC.Node
jmp K.FRead.A
*--------------------------------------
K.GetC.CDEV ldx #DEVMGR.READ
ldy #S.NODE.DEV.JMP
lda (pDev),y
sta .1+1
iny
lda (pDev),y
sta .1+2
.1 jmp $ffff
*--------------------------------------
K.GetC.SSOCK lda (pDev) #S.NODE.HANDLER
jsr K.GetMemPtr.A
>STYA .1
ldy #S.NODE.SSOCK.READ
lda (pDev),y
tax Function Offset for READ
ldy #S.NODE.SSOCK.HSKT
lda (pDev),y
.1 jmp $ffff
*--------------------------------------
K.GetC.FIFO
*/--------------------------------------
* # FPutS
* Write String to FILE
* ## In:
* PUSHW : CPtr
* PUSHB : hFILE
* ## Out:
* CC = success
*\--------------------------------------
K.FPutS
*/--------------------------------------
* # PutS.YA
* Write String to StdOut
* ## In:
* Y,A : CPtr
* ## Out:
* CC = success
*\--------------------------------------
K.PutS.YA
*/--------------------------------------
* # FGetS
* Read String From FILE
* ## In:
* PUSHW : CPtr
* PUSHB : hFILE
* ## Out:
* CC = success
*\--------------------------------------
K.FGetS
*/--------------------------------------
* # GetS.YA
* Read String From StdIn
* ## In:
* Y,A : CPtr
* ## Out:
* CC = success
*\--------------------------------------
K.GetS.YA
bra *
*/--------------------------------------
* # FOpen * # FOpen
* Open a file * Open a file
* ## In : * ## In :
@ -334,7 +559,7 @@ K.FEOF.A.MARK .BS 3
* # Remove.YA * # Remove.YA
*\-------------------------------------- *\--------------------------------------
K.Remove.YA jsr PFT.CheckPathYA K.Remove.YA jsr PFT.CheckPathYA
jsr STDIO.PullMLIPath jsr STDIO.SetMLIPathYA
>MLICALL MLIDESTROY >MLICALL MLIDESTROY
rts rts
*/-------------------------------------- */--------------------------------------
@ -364,272 +589,6 @@ K.Rename jsr PFT.CheckPathSTK
>MLICALL MLIRename >MLICALL MLIRename
rts rts
*--------------------------------------
STDIO.PullMLIPath
>PULLYA
STDIO.SetMLIPathYA
>STYA .1+1
ldy #0
.1 lda $ffff,y Self Modified
beq .8
iny
sta K.MLI.PATH,y
cpy #MLI.MAXPATH
bne .1
.8 sty K.MLI.PATH
>LDYAI K.MLI.PATH
>STYA K.MLI.PARAMS+1
rts
*--------------------------------------
STDIO.SetIOBUF >PUSHWI 1024 get a ProDOS IOBUF
>PUSHBI S.MEM.F.ALIGN+S.MEM.F.NOMOVE
jsr K.GetMem
bcs .9
>STYA K.MLI.PARAMS+3 Save Ptr to IOBUF for MLIOPEN call
txa
ldy #S.NODE.REG.IOBUF
sta (ZPPtr1),y
.9 rts
*--------------------------------------
STDIO.GetRefNum jsr K.GetMemPtr.A
>STYA ZPPtr1
ldy #S.NODE.REG.REF
lda (ZPPtr1),y
sta K.MLI.PARAMS+1
rts
*/--------------------------------------
* # FPutC.AY
* Print A (char) to File
* ## In:
* A : char to print
* Y = hFILE
* ## Out:
* CC = success
*\--------------------------------------
K.FPutC.AY sta K.PutC.Char
sty K.PutC.Node
tya
phy
bne K.PutChar.A.1
K.PutChar.A.8 ply
clc
rts
*/--------------------------------------
* # PutChar.A
* Print A (char) to StdOut
* ## In:
* A : char to print
* ## Out:
* CC = success
*\--------------------------------------
K.PutChar.A sta K.PutC.Char
phy
ldy #S.PS.hStdOut
lda (pPs),y
beq K.PutChar.A.8 NUL
phx
K.PutChar.A.1 sta K.PutC.Node
jsr K.GetMemPtr.A
>STYA pDev
ldy #S.NODE.T
lda (pDev),y
asl
tax
jsr K.PutChar.A.Jmp
plx
ply
rts
*--------------------------------------
K.PutChar.A.Jmp jmp (.1,x)
.1 .DA K.PutChar.A.REG
.DA STDIO.IOERR DIR
.DA K.PutChar.A.CDEV
.DA STDIO.IOERR BDEV
.DA STDIO.IOERR LNK
.DA STDIO.IOERR DSOCK
.DA K.PutChar.A.SSOCK
.DA K.PutChar.A.FIFO
*--------------------------------------
K.PutChar.A.REG lda K.PutC.Node
ldy K.PutC.Char
jmp K.FWrite.AY
*--------------------------------------
K.PutChar.A.CDEV ldy #S.NODE.DEV.JMP
lda (pDev),y
sta .1+1
iny
lda (pDev),y
sta .1+2
lda K.PutC.Char
ldx #DEVMGR.WRITE
.1 jmp $ffff
*--------------------------------------
K.PutChar.A.SSOCK
lda (pDev) #S.NODE.HANDLER
jsr K.GetMemPtr.A
>STYA .1
ldy #S.NODE.SSOCK.HSKT
>PUSHB (pDev),y
>PUSHB K.PutC.Char
ldy #S.NODE.SSOCK.WRITE
lda (pDev),y
tax Function Offset for write
.1 jmp $ffff
*--------------------------------------
K.PutChar.A.FIFO ldy #S.NODE.FIFO.S
lda (pDev),y
beq .9 Remote PS did not opened yet the pipe
cmp #S.NODE.FIFO.S.Closed
beq .99 Remote PS closed the Pipe
ldy #S.NODE.FIFO.hMem
lda (pDev),y
jsr K.GetMemPtr.A
>STYA .1+2
ldy #S.NODE.FIFO.Head
lda (pDev),y
inc
dey #S.NODE.FIFO.Tail
cmp (pDev),y
beq .9 FIFO is full
iny
sta (pDev),y
tay
lda K.PutC.Char
.1 sta $ffff,y
clc
rts
.9 lda #MLI.ERR.VOLFULL
sec
rts
.99 lda #MLI.ERR.EOF
sec
rts
*--------------------------------------
K.PutC.Char .BS 1
K.PutC.Node .BS 1
*/--------------------------------------
* # GetChar
* Get char from StdIn
* ## In:
* none.
* ## Out:
* CC = success
* A = char
*\--------------------------------------
K.GetChar ldy #S.PS.hStdIn
lda (pPs),y
*/--------------------------------------
* # GetC.A
* Get char from File
* ## In:
* A = hFILE
* ## Out:
* CC = success
* A = char
*\--------------------------------------
K.GetC.A sta K.PutC.Node
jsr K.GetMemPtr.A
>STYA pDev
ldy #S.NODE.T
lda (pDev),y
asl
tax
jmp (.1,x)
.1 .DA K.GetC.REG
.DA STDIO.IOERR DIR
.DA K.GetC.CDEV
.DA STDIO.IOERR BDEV
.DA STDIO.IOERR LNK
.DA STDIO.IOERR DSOCK
.DA K.GetC.SSOCK
.DA K.GetC.FIFO
*--------------------------------------
K.GetC.REG lda K.PutC.Node
jmp K.FRead.A
*--------------------------------------
K.GetC.CDEV ldx #DEVMGR.READ
ldy #S.NODE.DEV.JMP
lda (pDev),y
sta .1+1
iny
lda (pDev),y
sta .1+2
.1 jmp $ffff
*--------------------------------------
K.GetC.SSOCK lda (pDev) #S.NODE.HANDLER
jsr K.GetMemPtr.A
>STYA .1
ldy #S.NODE.SSOCK.READ
lda (pDev),y
tax Function Offset for READ
ldy #S.NODE.SSOCK.HSKT
lda (pDev),y
.1 jmp $ffff
*--------------------------------------
K.GetC.FIFO
*/--------------------------------------
* # FPutS
* Write String to FILE
* ## In:
* PUSHW : CPtr
* PUSHB : hFILE
* ## Out:
* CC = success
*\--------------------------------------
K.FPutS
*/--------------------------------------
* # PutS.YA
* Write String to StdOut
* ## In:
* Y,A : CPtr
* ## Out:
* CC = success
*\--------------------------------------
K.PutS.YA
*/--------------------------------------
* # FGetS
* Read String From FILE
* ## In:
* PUSHW : CPtr
* PUSHB : hFILE
* ## Out:
* CC = success
*\--------------------------------------
K.FGetS
*/--------------------------------------
* # GetS.YA
* Read String From StdIn
* ## In:
* Y,A : CPtr
* ## Out:
* CC = success
*\--------------------------------------
K.GetS.YA
bra *
*--------------------------------------
STDIO.IOERR lda #MLI.ERR.IO
sec
rts
*/-------------------------------------- */--------------------------------------
* # SScanF * # SScanF
* Scan a PStr (in progress) * Scan a PStr (in progress)
@ -1128,6 +1087,47 @@ Printf.Cout jmp K.PutChar.A
Printf.Cout.Ptr sta $ffff Self modified Printf.Cout.Ptr sta $ffff Self modified
*-------------------------------------- *--------------------------------------
STDIO.PullMLIPath
>PULLYA
STDIO.SetMLIPathYA
>STYA .1+1
ldy #0
.1 lda $ffff,y Self Modified
beq .8
iny
sta K.MLI.PATH,y
cpy #MLI.MAXPATH
bne .1
.8 sty K.MLI.PATH
>LDYAI K.MLI.PATH
>STYA K.MLI.PARAMS+1
rts
*--------------------------------------
STDIO.SetIOBUF >PUSHWI 1024 get a ProDOS IOBUF
>PUSHBI S.MEM.F.ALIGN+S.MEM.F.NOMOVE
jsr K.GetMem
bcs .9
>STYA K.MLI.PARAMS+3 Save Ptr to IOBUF for MLIOPEN call
txa
ldy #S.NODE.REG.IOBUF
sta (ZPPtr1),y
.9 rts
*--------------------------------------
STDIO.GetRefNum jsr K.GetMemPtr.A
>STYA ZPPtr1
ldy #S.NODE.REG.REF
lda (ZPPtr1),y
sta K.MLI.PARAMS+1
rts
*--------------------------------------
STDIO.IOERR lda #MLI.ERR.IO
sec
rts
*--------------------------------------
MAN MAN
SAVE /A2OSX.SRC/SYS/KERNEL.S.STDIO SAVE /A2OSX.SRC/SYS/KERNEL.S.STDIO
LOAD /A2OSX.SRC/SYS/KERNEL.S LOAD /A2OSX.SRC/SYS/KERNEL.S

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

@ -4,14 +4,32 @@ LOMEM $A00
INC 1 INC 1
AUTO 6 AUTO 6
*/-------------------------------------- */--------------------------------------
* # AToI * # AToF
* Convert String to 32 bit int * Convert String to 40 bits Float
* ## In:
* PUSHW PTR to target buffer (5 Bytes)
* PUSHW Source String (PSTR)
* ## Out:
*\--------------------------------------
K.AToF
*/--------------------------------------
* # AToI.YA
* Convert String to 16 bits int
* ## In:
* Y,A = Source String (C-String)
* ## Out:
* Y,A = Int
*\--------------------------------------
K.AToI.YA
*/--------------------------------------
* # AToL
* Convert String to 32 bits int
* ## In: * ## In:
* PUSHW PTR to target buffer DWORD * PUSHW PTR to target buffer DWORD
* PUSHW Source String (PSTR) * PUSHW Source String (PSTR)
* ## Out: * ## Out:
*\-------------------------------------- *\--------------------------------------
K.AToI jsr PullPtr1Ptr2 PSTR in Ptr1,buffer in Ptr2 K.AToL jsr PullPtr1Ptr2 PSTR in Ptr1,buffer in Ptr2
stz ASCBUF stz ASCBUF

6
SYS/KERNEL.S.txt
View File

@ -31,7 +31,8 @@ A2osX.D1 .PH $D000
.INB /A2OSX.SRC/SYS/KERNEL.S.STDIO .INB /A2OSX.SRC/SYS/KERNEL.S.STDIO
.INB /A2OSX.SRC/SYS/KERNEL.S.STAT .INB /A2OSX.SRC/SYS/KERNEL.S.STAT
.INB /A2OSX.SRC/SYS/KERNEL.S.DIRENT .INB /A2OSX.SRC/SYS/KERNEL.S.DIRENT
.INB /A2OSX.SRC/SYS/KERNEL.S.BIN .INB /A2OSX.SRC/SYS/KERNEL.S.FIO
.INB /A2OSX.SRC/SYS/KERNEL.S.PFT
.EP .EP
A2osX.D2 .PH $D000 A2osX.D2 .PH $D000
.DA #RRAMWRAMBNK2 .DA #RRAMWRAMBNK2
@ -51,8 +52,7 @@ A2osX.E0 .PH $E000
.INB /A2OSX.SRC/SYS/KERNEL.S.DAT .INB /A2OSX.SRC/SYS/KERNEL.S.DAT
.INB /A2OSX.SRC/SYS/KERNEL.S.IRQ .INB /A2OSX.SRC/SYS/KERNEL.S.IRQ
.INB /A2OSX.SRC/SYS/KERNEL.S.MEM .INB /A2OSX.SRC/SYS/KERNEL.S.MEM
.INB /A2OSX.SRC/SYS/KERNEL.S.FIO .INB /A2OSX.SRC/SYS/KERNEL.S.BIN
.INB /A2OSX.SRC/SYS/KERNEL.S.PFT
.INB /A2OSX.SRC/SYS/KERNEL.S.D01 .INB /A2OSX.SRC/SYS/KERNEL.S.D01
.EP .EP
A2osX.E0.E .EQ * A2osX.E0.E .EQ *