Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-08-25 16:54:30 +02:00
parent ad26c6d710
commit a3e218f36b
38 changed files with 195 additions and 170 deletions

Binary file not shown.

View File

@ -118,7 +118,7 @@ CS.RUN.ATCHECK lda #AT.GetInfo
pha pha
>LDYA L.MSG.NOATK >LDYA L.MSG.NOATK
>SYSCALL puts >SYSCALL PutS
pla pla
sec sec
.9 rts .9 rts
@ -139,7 +139,7 @@ CS.RUN.GOATLK >STYA ZPAtlkParams
>PUSHA >PUSHA
>PUSHBI 2 >PUSHBI 2
>SYSCALL printf >SYSCALL PrintF
pla pla
sec sec

View File

@ -405,7 +405,7 @@ CS.QUIT jsr LeaveSubDir
.8 clc .8 clc
rts rts
*-------------------------------------- *--------------------------------------
.INB usr/src/bin/x.fileenum.s .INB usr/src/shared/x.fileenum.s
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
@ -445,10 +445,9 @@ hSrcFullPath .BS 1
ATTR .BS 17 ATTR .BS 17
.INB usr/src/bin/x.fileenum.g .INB usr/src/shared/x.fileenum.g
DS.END DS.END .ED
.ED
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE usr/src/bin/attr.s SAVE usr/src/bin/attr.s

View File

@ -209,7 +209,7 @@ CS.RUN.DIR lda (ZPFileName)
>PUSHW ZPFullPath >PUSHW ZPFullPath
>PUSHBI 255 >PUSHBI 255
>PUSHB.G GID >PUSHB.G GID
>SYSCALL chown >SYSCALL ChOwn
jsr CS.RUN.CheckErr jsr CS.RUN.CheckErr
bcs .9 bcs .9
@ -279,7 +279,7 @@ CS.QUIT jsr LeaveSubDir
.8 clc .8 clc
rts rts
*-------------------------------------- *--------------------------------------
.INB usr/src/bin/x.fileenum.s .INB usr/src/shared/x.fileenum.s
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
@ -306,10 +306,9 @@ GID .BS 1
STATBUF .BS S.STAT STATBUF .BS S.STAT
hSrcFullPath .BS 1 hSrcFullPath .BS 1
.INB usr/src/bin/x.fileenum.g .INB usr/src/shared/x.fileenum.g
DS.END DS.END .ED
.ED
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE usr/src/bin/chgrp.s SAVE usr/src/bin/chgrp.s

View File

@ -320,7 +320,7 @@ CS.QUIT jsr LeaveSubDir
.8 clc .8 clc
rts rts
*-------------------------------------- *--------------------------------------
.INB usr/src/bin/x.fileenum.s .INB usr/src/shared/x.fileenum.s
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
@ -344,10 +344,9 @@ bRecurse .BS 1
bPause .BS 1 bPause .BS 1
hSrcFullPath .BS 1 hSrcFullPath .BS 1
.INB usr/src/bin/x.fileenum.g .INB usr/src/shared/x.fileenum.g
DS.END DS.END .ED
.ED
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE usr/src/bin/chmod.s SAVE usr/src/bin/chmod.s

View File

@ -281,7 +281,7 @@ CS.QUIT jsr LeaveSubDir
.8 clc .8 clc
rts rts
*-------------------------------------- *--------------------------------------
.INB usr/src/bin/x.fileenum.s .INB usr/src/shared/x.fileenum.s
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
@ -308,7 +308,7 @@ UID .BS 1
STATBUF .BS S.STAT STATBUF .BS S.STAT
hSrcFullPath .BS 1 hSrcFullPath .BS 1
.INB usr/src/bin/x.fileenum.g .INB usr/src/shared/x.fileenum.g
DS.END DS.END
.ED .ED

View File

@ -346,7 +346,7 @@ IsDigit16 cmp #'0'
.9 sec .9 sec
rts rts
*-------------------------------------- *--------------------------------------
.INB usr/src/bin/x.fileenum.s .INB usr/src/shared/x.fileenum.s
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
@ -381,8 +381,7 @@ bContinue .BS 1
bRecurse .BS 1 bRecurse .BS 1
HexFileType .BS 1 HexFileType .BS 1
.INB usr/src/bin/x.fileenum.g .INB usr/src/shared/x.fileenum.g
DS.END .ED DS.END .ED
*-------------------------------------- *--------------------------------------
MAN MAN

View File

@ -14,8 +14,8 @@ X.ENTER.SUBDIR .EQ 0
X.COPY.TO.DEST .EQ 1 X.COPY.TO.DEST .EQ 1
X.DELETE.SOURCE .EQ 0 X.DELETE.SOURCE .EQ 0
*-------------------------------------- *--------------------------------------
.INB usr/src/bin/x.cpmvrm.s .INB usr/src/shared/x.cpmvrm.s
.INB usr/src/bin/x.fileenum.s .INB usr/src/shared/x.fileenum.s
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
@ -42,10 +42,9 @@ bContinue .BS 1
bRecurse .BS 1 bRecurse .BS 1
bNoConfirm .BS 1 bNoConfirm .BS 1
bQuiet .BS 1 bQuiet .BS 1
.INB usr/src/bin/x.cpmvrm.g .INB usr/src/shared/x.cpmvrm.g
.INB usr/src/bin/x.fileenum.g .INB usr/src/shared/x.fileenum.g
DS.END DS.END .ED
.ED
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE usr/src/bin/cp.s SAVE usr/src/bin/cp.s

View File

@ -25,7 +25,6 @@ pETKCFG .BS 2
ZPFrameBase .BS 2 ZPFrameBase .BS 2
ZPFramePtr .BS 2 ZPFramePtr .BS 2
BufPtr .BS 2 BufPtr .BS 2
ZS.END .ED ZS.END .ED
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
@ -363,7 +362,7 @@ CFG.EtcFiles >LDYAI 256
>PUSHW L.CFG.DefaultHost >PUSHW L.CFG.DefaultHost
>PUSHW A2osX.TIMER16 >PUSHW A2osX.TIMER16
>PUSHBI 2 >PUSHBI 2
>SYSCALL sprintf >SYSCALL SPrintF
lda #10 lda #10
sta ETKCFG+S.ETKCFG.OBJECT sta ETKCFG+S.ETKCFG.OBJECT
@ -452,7 +451,7 @@ CFG.Read.Close2 lda CFG.hCfgFile
CFG.Read.GetS >PUSHWI 255 CFG.Read.GetS >PUSHWI 255
>PUSHW BufPtr >PUSHW BufPtr
lda CFG.hCfgFile lda CFG.hCfgFile
>SYSCALL fgets >SYSCALL FGetS
rts rts
*-------------------------------------- *--------------------------------------
CS.DOEVENT lda (pEvent) CS.DOEVENT lda (pEvent)

View File

@ -314,7 +314,7 @@ CS.RUN.CheckOpt ldy #1
clc clc
rts rts
*-------------------------------------- *--------------------------------------
.INB usr/src/bin/x.fileenum.s .INB usr/src/shared/x.fileenum.s
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
@ -340,7 +340,7 @@ hSrcNewPath .BS 1
hFile .BS 1 hFile .BS 1
hMem .BS 1 hMem .BS 1
.INB usr/src/bin/x.fileenum.g .INB usr/src/shared/x.fileenum.g
DS.END .ED DS.END .ED
*-------------------------------------- *--------------------------------------
MAN MAN

View File

@ -747,7 +747,7 @@ Mod2CSTR ldy #S.STAT.MODE+1
>PUSHEA.G MOD >PUSHEA.G MOD
rts rts
*-------------------------------------- *--------------------------------------
.INB usr/src/bin/x.fileenum.s .INB usr/src/shared/x.fileenum.s
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
@ -805,7 +805,7 @@ bRecurse .BS 1
ColCount .BS 1 ColCount .BS 1
hPW .BS 1 hPW .BS 1
.INB usr/src/bin/x.fileenum.g .INB usr/src/shared/x.fileenum.g
DS.END .ED DS.END .ED
*-------------------------------------- *--------------------------------------
MAN MAN

View File

@ -14,8 +14,8 @@ X.ENTER.SUBDIR .EQ 0
X.COPY.TO.DEST .EQ 1 X.COPY.TO.DEST .EQ 1
X.DELETE.SOURCE .EQ 1 X.DELETE.SOURCE .EQ 1
*-------------------------------------- *--------------------------------------
.INB usr/src/bin/x.cpmvrm.s .INB usr/src/shared/x.cpmvrm.s
.INB usr/src/bin/x.fileenum.s .INB usr/src/shared/x.fileenum.s
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
@ -42,10 +42,9 @@ bContinue .BS 1
bRecurse .BS 1 bRecurse .BS 1
bNoConfirm .BS 1 bNoConfirm .BS 1
bQuiet .BS 1 bQuiet .BS 1
.INB usr/src/bin/x.cpmvrm.g .INB usr/src/shared/x.cpmvrm.g
.INB usr/src/bin/x.fileenum.g .INB usr/src/shared/x.fileenum.g
DS.END DS.END .ED
.ED
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE usr/src/bin/mv.s SAVE usr/src/bin/mv.s

View File

@ -639,7 +639,7 @@ CS.RUN.CheckOpt ldy #1
.8 clc .8 clc
rts rts
*-------------------------------------- *--------------------------------------
.INB usr/src/bin/x.fileenum.s .INB usr/src/shared/x.fileenum.s
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
@ -678,7 +678,7 @@ Shunk.DstSize .BS 2
PAKSTAT .BS S.PAKSTAT PAKSTAT .BS S.PAKSTAT
.INB usr/src/bin/x.fileenum.g .INB usr/src/shared/x.fileenum.g
DS.END DS.END
.ED .ED
*-------------------------------------- *--------------------------------------

View File

@ -14,8 +14,8 @@ X.ENTER.SUBDIR .EQ 0
X.COPY.TO.DEST .EQ 0 X.COPY.TO.DEST .EQ 0
X.DELETE.SOURCE .EQ 1 X.DELETE.SOURCE .EQ 1
*-------------------------------------- *--------------------------------------
.INB usr/src/bin/x.cpmvrm.s .INB usr/src/shared/x.cpmvrm.s
.INB usr/src/bin/x.fileenum.s .INB usr/src/shared/x.fileenum.s
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
@ -39,8 +39,8 @@ DS.START
bContinue .BS 1 bContinue .BS 1
bRecurse .BS 1 bRecurse .BS 1
bQuiet .BS 1 bQuiet .BS 1
.INB usr/src/bin/x.cpmvrm.g .INB usr/src/shared/x.cpmvrm.g
.INB usr/src/bin/x.fileenum.g .INB usr/src/shared/x.fileenum.g
DS.END DS.END
.ED .ED
*-------------------------------------- *--------------------------------------

View File

@ -15,8 +15,7 @@ ZS.START
ZPPtr1 .BS 2 ZPPtr1 .BS 2
Count .BS 1 Count .BS 1
Index .BS 1 Index .BS 1
ZS.END ZS.END .ED
.ED
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
*-------------------------------------- *--------------------------------------
@ -52,7 +51,7 @@ CS.RUN jsr CS.RUN.PS
>PUSHBI 2 >PUSHBI 2
>PUSHBI 1 INITD >PUSHBI 1 INITD
>SYSCALL kill >SYSCALL Kill
lda #0 lda #0
sec sec
@ -98,13 +97,13 @@ CS.RUN.PS
>PUSHYA >PUSHYA
>PUSHBI 3 >PUSHBI 3
>SYSCALL printf >SYSCALL PrintF
>PUSHBI 2 >PUSHBI 2
ldy #S.PS.PID ldy #S.PS.PID
lda (ZPPtr1),y lda (ZPPtr1),y
>SYSCALL kill >SYSCALL Kill
.6 inc Count .6 inc Count
@ -145,7 +144,7 @@ CS.RUN.DEV ldx #1
.7 inc Index .7 inc Index
inc index inc Index
ldx Index ldx Index
cpx #K.DEV.MAX*2+1 cpx #K.DEV.MAX*2+1
@ -166,8 +165,7 @@ MSGDEV .AZ "SHUTDOWN:Closing device %3d, %s\r\n"
.DUMMY .DUMMY
.OR 0 .OR 0
DS.START DS.START
DS.END DS.END .ED
.ED
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE usr/src/bin/shutdown.s SAVE usr/src/bin/shutdown.s

View File

@ -314,7 +314,7 @@ CS.RUN.CheckOpt ldy #1
clc clc
rts rts
*-------------------------------------- *--------------------------------------
.INB usr/src/bin/x.fileenum.s .INB usr/src/shared/x.fileenum.s
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
@ -340,7 +340,7 @@ hSrcNewPath .BS 1
hFile .BS 1 hFile .BS 1
hMem .BS 1 hMem .BS 1
.INB usr/src/bin/x.fileenum.g .INB usr/src/shared/x.fileenum.g
DS.END .ED DS.END .ED
*-------------------------------------- *--------------------------------------
MAN MAN

View File

@ -69,7 +69,7 @@ CS.RUN ldy #S.PS.ARGC
bcs .99 bcs .99
>PUSHW pData >PUSHW pData
>SYSCALL putpw >SYSCALL PutPW
bcs .99 bcs .99
lda #0 lda #0

View File

@ -567,7 +567,7 @@ CS.RUN.CheckOpt ldy #1
clc clc
rts rts
*-------------------------------------- *--------------------------------------
.INB usr/src/bin/x.fileenum.s .INB usr/src/shared/x.fileenum.s
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
@ -597,10 +597,9 @@ tCharCount .BS 4
tLineCount .BS 4 tLineCount .BS 4
tWordCount .BS 4 tWordCount .BS 4
.INB usr/src/bin/x.fileenum.g .INB usr/src/shared/x.fileenum.g
DS.END DS.END .ED
.ED
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE usr/src/bin/wc.s SAVE usr/src/bin/wc.s

View File

@ -1,6 +1,5 @@
NEW NEW
AUTO 3,1 AUTO 3,1
.LIST OFF
*-------------------------------------- *--------------------------------------
index .BS 1 index .BS 1
hDIRs .BS X.MAX.RECURSE+1 hDIRs .BS X.MAX.RECURSE+1
@ -16,6 +15,6 @@ hDstBasePath .BS 1
.FIN .FIN
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE USR/SRC/BIN/X.FILEENUM.G SAVE usr/src/shared/x.fileenum.g
LOAD USR/SRC/BIN/LS.S LOAD usr/src/bin/ls.s
ASM ASM

View File

@ -605,6 +605,6 @@ GetoDIRENT ldy #index
rts rts
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE USR/SRC/BIN/X.FILEENUM.S SAVE usr/src/shared/x.fileenum.s
LOAD USR/SRC/BIN/LS.S LOAD usr/src/bin/ls.s
ASM ASM

View File

@ -1,6 +1,5 @@
NEW NEW
AUTO 3,1 AUTO 3,1
.LIST OFF
*-------------------------------------- *--------------------------------------
Mask7BitsH .DA #%01111111 Useless Mask7BitsH .DA #%01111111 Useless
C2.MASK .DA #%01111110 C2.MASK .DA #%01111110

View File

@ -1,6 +1,5 @@
NEW NEW
AUTO 3,1 AUTO 3,1
.LIST OFF
*-------------------------------------- *--------------------------------------
* BitBlt * BitBlt
* S.CB.X1 : SrcX1 in bitmap/mask * S.CB.X1 : SrcX1 in bitmap/mask
@ -122,7 +121,7 @@ BITBLT.1 ldy #S.BM-1
.4 >LDYA CB.Cache+S.CB.DstX .4 >LDYA CB.Cache+S.CB.DstX
jsr LBUF.SetBounds1YA jsr LBUF.SetBounds1YA
stx BLT.SCRBitOfs stx BLT.ScrBitOfs
lda CB.Cache+S.CB.DstX lda CB.Cache+S.CB.DstX
clc clc
adc CB.Cache+S.CB.SrcW adc CB.Cache+S.CB.SrcW
@ -136,7 +135,7 @@ BITBLT.1 ldy #S.BM-1
pla pla
sbc #0 sbc #0
jsr LBUF.SetBounds2YA jsr LBUF.SetBounds2YA
ldx BLT.SCRBitOfs ldx BLT.ScrBitOfs
beq BITBLT.LOOP0 beq BITBLT.LOOP0
ldy Shift.L.LO-1,x X = 1->6 ldy Shift.L.LO-1,x X = 1->6
@ -213,7 +212,7 @@ BITBLT.LOOP0 lda CB.Cache+S.CB.OP
rts rts
*------------ Shift 1->6 Comment : SCRBitOfs=X=3 *------------ Shift 1->6 Comment : SCRBitOfs=X=3
BITBLT.LOOPx lda CB.Cache+S.CB.OP X = BLT.SCRBitOfs BITBLT.LOOPx lda CB.Cache+S.CB.OP X = BLT.ScrBitOfs
bit #S.CB.OP.MASK bit #S.CB.OP.MASK
beq BITBLT.LOOPx.4 beq BITBLT.LOOPx.4
>LDYA BLT.BMMaskPtr >LDYA BLT.BMMaskPtr
@ -352,6 +351,6 @@ BLT.Get7BMBits1 lda (ZPBMDataPtr)
.8 rts .8 rts
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE usr/src/drv/dhgr.drv.s.rect SAVE usr/src/drv/dhgr.drv.s.blt
LOAD usr/src/drv/dhgr.drv.s LOAD usr/src/drv/dhgr.drv.s
ASM ASM

View File

@ -1,6 +1,5 @@
NEW NEW
AUTO 3,1 AUTO 3,1
.LIST OFF
*-------------------------------------- *--------------------------------------
LBUF.SetBounds1YA LBUF.SetBounds1YA
jsr DIVMOD7YA A=DIV, X=MOD jsr DIVMOD7YA A=DIV, X=MOD

View File

@ -1,6 +1,5 @@
NEW NEW
AUTO 3,1 AUTO 3,1
.LIST OFF
*-------------------------------------- *--------------------------------------
* HLINE X1,X2 at Y1 (XOR,SET,ORA) * HLINE X1,X2 at Y1 (XOR,SET,ORA)
*-------------------------------------- *--------------------------------------

View File

@ -172,7 +172,7 @@ OSD.DRAWTEXT sec
*-------------------------------------- *--------------------------------------
OSD.GETTEXTSIZE clc OSD.GETTEXTSIZE clc
php php
lda CBX.Cache+S.CB.hFONT lda CBX.Cache+S.CB.hFont
>SYSCALL2 GetMemPtr >SYSCALL2 GetMemPtr
>STYA ZPFontPtr >STYA ZPFontPtr

View File

@ -1,6 +1,5 @@
NEW NEW
AUTO 3,1 AUTO 3,1
.LIST OFF
*-------------------------------------- *--------------------------------------
* SETPIXEL * SETPIXEL
* 1 : OP (XOR,SET,ORA) * 1 : OP (XOR,SET,ORA)

View File

@ -1,6 +1,5 @@
NEW NEW
AUTO 3,1 AUTO 3,1
.LIST OFF
*-------------------------------------- *--------------------------------------
* FILLRECT * FILLRECT
* 1 : OP (XOR,SET,ORA) * 1 : OP (XOR,SET,ORA)
@ -45,6 +44,6 @@ GETRECTBUFSIZE >LDYA CB.Cache+S.CB.X1
jmp YAMultX jmp YAMultX
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE usr/src/drv/dhgr.drv.s.blt SAVE usr/src/drv/dhgr.drv.s.rect
LOAD usr/src/drv/dhgr.drv.s LOAD usr/src/drv/dhgr.drv.s
ASM ASM

View File

@ -98,7 +98,7 @@ Dev.Detect >LDYA L.MSG.DETECT
>PUSHW L.FD.DEV >PUSHW L.FD.DEV
>PUSHW L.FD.DEV.NAME >PUSHW L.FD.DEV.NAME
>SYSCALL MKDEV >SYSCALL MKDev
bcs .9 bcs .9
php php

View File

@ -5,12 +5,12 @@ NEW
.OR $2000 .OR $2000
.TF drv/lancegs.drv .TF drv/lancegs.drv
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB inc/macros.i
.INB INC/A2OSX.I .INB inc/a2osx.i
.INB INC/MLI.E.I .INB inc/mli.e.i
.INB INC/NIC.I .INB inc/nic.i
.INB INC/NIC.91C96.I .INB inc/nic.91c96.i
.INB INC/ETH.I .INB inc/eth.i
*-------------------------------------- *--------------------------------------
ZPArgPtr .EQ ZPBIN ZPArgPtr .EQ ZPBIN
DEVSLOT0x .EQ ZPBIN+2 DEVSLOT0x .EQ ZPBIN+2
@ -95,7 +95,7 @@ Dev.Detect >STYA ARGS
>PUSHW L.FD.DEV >PUSHW L.FD.DEV
>PUSHW L.FD.DEV.NAME >PUSHW L.FD.DEV.NAME
>SYSCALL MKDEV >SYSCALL MKDev
bcs .9 bcs .9
ldx DEVSLOT0x ldx DEVSLOT0x
@ -105,8 +105,8 @@ Dev.Detect >STYA ARGS
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
Dev.ParseArgs >LDYA ARGS Dev.ParseArgs >LDYA ARGS
>STYA ZPArgPTR >STYA ZPArgPtr
lda (ZPArgPTR) lda (ZPArgPtr)
bne .1 bne .1
lda A2osX.RANDOM16 lda A2osX.RANDOM16
@ -131,7 +131,7 @@ Dev.ParseArgs >LDYA ARGS
bne .2 bne .2
>PUSHBI 12 6 x byte PTRs >PUSHBI 12 6 x byte PTRs
>SYSCALL sscanf >SYSCALL SScanF
bcc .8 bcc .8
lda #E.SYN lda #E.SYN
@ -361,7 +361,7 @@ READ php
ply Y,A = Size ply Y,A = Size
>SYSCALL2 getmem >SYSCALL2 GetMem
bcs READWRITE.99 bcs READWRITE.99
>STYA ZPBufPtr >STYA ZPBufPtr
@ -556,5 +556,5 @@ DCB .DA #S.DCB.T.NIC
*-------------------------------------- *--------------------------------------
DRV.END DRV.END
MAN MAN
SAVE USR/SRC/DRV/LANCEGS.DRV.S SAVE usr/src/drv/lancegs.drv.s
ASM ASM

View File

@ -99,7 +99,7 @@ Dev.Detect >STYA ARGS
>PUSHW L.FD.DEV >PUSHW L.FD.DEV
>PUSHW L.FD.DEV.NAME >PUSHW L.FD.DEV.NAME
>SYSCALL MKDEV >SYSCALL MKDev
.9 rts .9 rts
*-------------------------------------- *--------------------------------------

View File

@ -96,7 +96,7 @@ Dev.Detect >LDYA L.MSG.DETECT
>PUSHW L.FD.DEV >PUSHW L.FD.DEV
>PUSHW L.FD.DEV.NAME >PUSHW L.FD.DEV.NAME
>SYSCALL MKDEV >SYSCALL MKDev
.99 rts .99 rts
*-------------------------------------- *--------------------------------------

View File

@ -1,14 +1,13 @@
NEW NEW
PREFIX AUTO 3,1
AUTO 4,1
.LIST OFF .LIST OFF
.OP 65C02 .OP 65C02
.OR $2000 .OR $2000
.TF DRV/PIC.DRV .TF drv/pic.drv
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB inc/macros.i
.INB INC/A2OSX.I .INB inc/a2osx.i
.INB INC/MLI.E.I .INB inc/mli.e.i
*-------------------------------------- *--------------------------------------
ZPTmpPtr1 .EQ ZPDRV ZPTmpPtr1 .EQ ZPDRV
*-------------------------------------- *--------------------------------------
@ -20,24 +19,30 @@ CS.START cld
.DA #1 DRV Layout Version 1 .DA #1 DRV Layout Version 1
.DA 0 .DA 0
.DA CS.END-CS.START Code Length .DA CS.END-CS.START Code Length
.DA DEV.HEADER-CS.START Device Header Offset .DA 0
.DA DRV.CS.START-CS.START Driver Code Offset .DA #32 SS
.DA DRV.CS.END-DRV.CS.START Drv Code Length .DA #2 ZP
.DA 0
*-------------------------------------- *--------------------------------------
* Relocation Table * Relocation Table
*-------------------------------------- *--------------------------------------
L.MSG.DETECT .DA MSG.DETECT L.MSG.DETECT .DA MSG.DETECT
L.MSG.DETECT.OK .DA MSG.DETECT.OK L.MSG.DETECT.OK .DA MSG.DETECT.OK
L.MSG.DETECT.KO .DA MSG.DETECT.KO L.MSG.DETECT.KO .DA MSG.DETECT.KO
L.DEV.HEADER.NAME .DA DEV.HEADER.NAME L.DRV.CS.START .DA DRV.CS.START
L.FD.DEV .DA FD.DEV
L.FD.DEV.NAME .DA FD.DEV.NAME
.DA 0 End Of Reloc Table .DA 0 End Of Reloc Table
*-------------------------------------- *--------------------------------------
Dev.Detect >STYA ARGS Dev.Detect >STYA ARGS
>LDYA L.MSG.DETECT >LDYA L.MSG.DETECT
>SYSCALL PrintF >SYSCALL PutS
stz ZPTmpPtr1 stz ZPTmpPtr1
lda #$C1 lda #$C1
sta ZPTmpPtr1+1 sta ZPTmpPtr1+1
.1 and #$0f .1 and #$0f
tay tay
lda A2osX.S,y lda A2osX.S,y
@ -49,15 +54,20 @@ Dev.Detect >STYA ARGS
lda (ZPTmpPtr1),y lda (ZPTmpPtr1),y
cmp DEVSIG.Value,x cmp DEVSIG.Value,x
bne .3 bne .3
dex dex
bpl .2 bpl .2
bra .4 bra .4
.3 inc ZPTmpPtr1+1 no match, try next slot....
.3 inc FD.DEV.NAME+3
inc ZPTmpPtr1+1 no match, try next slot....
lda ZPTmpPtr1+1 lda ZPTmpPtr1+1
cmp #$C8 cmp #$C8
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintF >SYSCALL PutS
lda #MLI.E.NODEV Not Found in any slot, exiting lda #MLI.E.NODEV Not Found in any slot, exiting
sec sec
@ -70,19 +80,31 @@ Dev.Detect >STYA ARGS
lda #A2osX.S.COM lda #A2osX.S.COM
sta A2osX.S,y sta A2osX.S,y
pla pla
ora #$30
sta DEV.HEADER.NAME+4
asl asl
asl asl
asl asl
asl asl
sta DEVSLOTn0 sta DEVSLOTn0
>PUSHW L.DEV.HEADER.NAME .8 >PUSHW L.MSG.DETECT.OK
>LDYA L.MSG.DETECT.OK >PUSHW L.FD.DEV.NAME
>PUSHBI 2
>SYSCALL PrintF >SYSCALL PrintF
clc
rts >PUSHWI DRV.END
>PUSHWI DRV.CS.END-DRV.CS.START
>PUSHWI DRV.CS.START
>LDYA L.DRV.CS.START
>SYSCALL InsDrv
bcs .9
>STYA FD.DEV+S.FD.DEV.DRVPTR
>PUSHW L.FD.DEV
>PUSHW L.FD.DEV.NAME
>SYSCALL MKDev
.9 rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
DEVSIG.Offset .HS 0507 DEVSIG.Offset .HS 0507
@ -93,17 +115,21 @@ MSG.DETECT.OK .AZ "PIC Installed As Device : %S\r\n"
MSG.DETECT.KO .AZ "No PIC Found.\r\n" MSG.DETECT.KO .AZ "No PIC Found.\r\n"
ARGS .BS 2 ARGS .BS 2
*-------------------------------------- *--------------------------------------
* Device Header (16 Bytes) FD.DEV .DA #S.FD.T.CDEV
*-------------------------------------- .DA #0 HANDLER
DEV.HEADER cld .DA #0 BUSID
jmp (DRV.CS.START,x) .DA #0 DEVID
.DA #S.DEV.S.WRITE .DA 0 BUSPTR
.BS 6 .BS 2 DRVPTR
DEV.HEADER.NAME >PSTR "LPT1" .DA 0 DCBPTR
.DA 0 BUFPTR
FD.DEV.NAME .AZ "lpt1"
*-------------------------------------- *--------------------------------------
* Driver Code * Driver Code
*-------------------------------------- *--------------------------------------
DRV.CS.START .DA STATUS DRV.CS.START cld
jmp (.1,x)
.1 .DA STATUS
.DA A2osX.BADCALL .DA A2osX.BADCALL
.DA A2osX.BADCALL .DA A2osX.BADCALL
.DA A2osX.BADCALL .DA A2osX.BADCALL
@ -149,6 +175,22 @@ STAT .DA #S.DIB.S.WRITE
.DA #0 .DA #0
.DA $0900 .DA $0900
*-------------------------------------- *--------------------------------------
DIB .DA #S.DIB.S.WRITE
.DA #0,#0,#0
>PSTR "Serial Card/Port"
.DA #S.DIB.T.CHAR
.DA #0
.DA K.VER
*--------------------------------------
DCB .DA #S.DCB.T.COM
.DA #0 FLAGS
.DA 0
.DA #0
.DA #0
.DA #0
.DA #0
*--------------------------------------
DRV.END
MAN MAN
SAVE /A2OSX/SRC/DRV/PIC.DRV.S SAVE usr/src/drv/pic.drv.s
ASM ASM

View File

@ -4,13 +4,13 @@ NEW
*-------------------------------------- *--------------------------------------
SSCIRQ .EQ 0 SSCIRQ .EQ 0
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB inc/macros.i
.INB INC/A2OSX.I .INB inc/a2osx.i
.INB INC/MLI.E.I .INB inc/mli.e.i
.INB INC/COM.I .INB inc/com.i
.INB INC/COM.6551.I .INB inc/com.6551.i
.INB USR/SRC/DRV/X.SSC.DRV.S .INB usr/src/shared/x.ssc.drv.s
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE USR/SRC/DRV/SSC.DRV.S SAVE usr/src/drv/ssc.drv.s
ASM ASM

View File

@ -4,13 +4,13 @@ NEW
*-------------------------------------- *--------------------------------------
SSCIRQ .EQ 1 SSCIRQ .EQ 1
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB inc/macros.i
.INB INC/A2OSX.I .INB inc/a2osx.i
.INB INC/MLI.E.I .INB inc/mli.e.i
.INB INC/COM.I .INB inc/com.i
.INB INC/COM.6551.I .INB inc/com.6551.i
.INB USR/SRC/DRV/X.SSC.DRV.S .INB usr/src/shared/x.ssc.drv.s
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE USR/SRC/DRV/SSC.I.DRV.S SAVE usr/src/drv/ssc.i.drv.s
ASM ASM

View File

@ -120,7 +120,7 @@ Dev.Detect >STYA ARGS
>PUSHW L.FD.DEV >PUSHW L.FD.DEV
>PUSHW L.FD.DEV.NAME >PUSHW L.FD.DEV.NAME
>SYSCALL MKDEV >SYSCALL MKDev
bcs .9 bcs .9
ldx DEVSLOT0x ldx DEVSLOT0x
@ -130,8 +130,8 @@ Dev.Detect >STYA ARGS
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
Dev.ParseArgs >LDYA ARGS Dev.ParseArgs >LDYA ARGS
>STYA ZPArgPTR >STYA ZPArgPtr
lda (ZPArgPTR) lda (ZPArgPtr)
bne .1 bne .1
lda A2osX.RANDOM16 lda A2osX.RANDOM16
@ -157,7 +157,7 @@ Dev.ParseArgs >LDYA ARGS
>PUSHBI 12 6 x byte PTRs >PUSHBI 12 6 x byte PTRs
>SYSCALL sscanf >SYSCALL SScanF
bcc .8 bcc .8
lda #E.SYN lda #E.SYN
@ -433,9 +433,9 @@ READ.ICMP lda #S.IP.PROTOCOL.ICMP
>AR.Sn.SELECT S0.RX.RD >AR.Sn.SELECT S0.RX.RD
lda W5100.DR,x get the received ptr HI lda W5100.DR,x get the received ptr HI
sta offset+1 sta Offset+1
ldy W5100.DR,x get the received ptr LO ldy W5100.DR,x get the received ptr LO
sty offset sty Offset
and Sn.MASK and Sn.MASK
ora Sn.BASE ora Sn.BASE
@ -492,7 +492,7 @@ READ.ICMP lda #S.IP.PROTOCOL.ICMP
sta FRM.HDR.IPLEN sta FRM.HDR.IPLEN
>LDYA BUF.Size >LDYA BUF.Size
>SYSCALL2 getmem >SYSCALL2 GetMem
bcc .14 bcc .14
jmp READWRITE.9 jmp READWRITE.9
@ -576,9 +576,9 @@ READ.ICMP lda #S.IP.PROTOCOL.ICMP
*-------------------------------------- *--------------------------------------
READ.RAW >AR.SELECT S0.RX.RD READ.RAW >AR.SELECT S0.RX.RD
lda W5100.DR,x get the received ptr HI lda W5100.DR,x get the received ptr HI
sta offset+1 sta Offset+1
ldy W5100.DR,x get the received ptr LO ldy W5100.DR,x get the received ptr LO
sty offset sty Offset
and /$7FF and /$7FF
ora /RX.BASE ora /RX.BASE
@ -608,7 +608,7 @@ READ.RAW >AR.SELECT S0.RX.RD
sta Counter+1 sta Counter+1
>LDYA BUF.Size >LDYA BUF.Size
>SYSCALL2 getmem >SYSCALL2 GetMem
bcc .14 bcc .14
jmp READWRITE.9 jmp READWRITE.9

View File

@ -112,7 +112,7 @@ Dev.Detect >STYA ZPArgPtr
>PUSHW L.FD.DEV >PUSHW L.FD.DEV
>PUSHW L.FD.DEV.NAME >PUSHW L.FD.DEV.NAME
>SYSCALL MKDEV >SYSCALL MKDev
bcs .9 bcs .9
ldx DEVSLOT0x ldx DEVSLOT0x
@ -121,7 +121,7 @@ Dev.Detect >STYA ZPArgPtr
* clc * clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
Dev.ParseArgs lda (ZPArgPTR) Dev.ParseArgs lda (ZPArgPtr)
bne .1 bne .1
lda A2osX.RANDOM16 lda A2osX.RANDOM16
@ -146,7 +146,7 @@ Dev.ParseArgs lda (ZPArgPTR)
bne .2 bne .2
>PUSHBI 12 6 x byte PTRs >PUSHBI 12 6 x byte PTRs
>SYSCALL sscanf >SYSCALL SScanF
bcc .8 bcc .8
lda #E.SYN lda #E.SYN
@ -372,7 +372,7 @@ READ php
sta Counter+1 sta Counter+1
pla pla
>SYSCALL2 getmem >SYSCALL2 GetMem
bcs READWRITE.99 bcs READWRITE.99
>STYA ZPBufPtr >STYA ZPBufPtr
phx phx

View File

@ -5,12 +5,12 @@ NEW
.OR $2000 .OR $2000
.TF drv/uthernet2.drv .TF drv/uthernet2.drv
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB inc/macros.i
.INB INC/A2OSX.I .INB inc/a2osx.i
.INB INC/MLI.E.I .INB inc/mli.e.i
.INB INC/NIC.I .INB inc/nic.i
.INB INC/NIC.W5100.I .INB inc/nic.w5100.i
.INB INC/ETH.I .INB inc/eth.i
*-------------------------------------- *--------------------------------------
ZPArgPtr .EQ ZPBIN ZPArgPtr .EQ ZPBIN
DEVSLOT0x .EQ ZPBIN+2 DEVSLOT0x .EQ ZPBIN+2
@ -119,7 +119,7 @@ Dev.Detect >STYA ARGS
>PUSHW L.FD.DEV >PUSHW L.FD.DEV
>PUSHW L.FD.DEV.NAME >PUSHW L.FD.DEV.NAME
>SYSCALL MKDEV >SYSCALL MKDev
bcs .9 bcs .9
ldx DEVSLOT0x ldx DEVSLOT0x
@ -129,8 +129,8 @@ Dev.Detect >STYA ARGS
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
Dev.ParseArgs >LDYA ARGS Dev.ParseArgs >LDYA ARGS
>STYA ZPArgPTR >STYA ZPArgPtr
lda (ZPArgPTR) lda (ZPArgPtr)
bne .1 bne .1
lda A2osX.RANDOM16 lda A2osX.RANDOM16
@ -156,7 +156,7 @@ Dev.ParseArgs >LDYA ARGS
>PUSHBI 12 6 x byte PTRs >PUSHBI 12 6 x byte PTRs
>SYSCALL sscanf >SYSCALL SScanF
bcc .8 bcc .8
lda #E.SYN lda #E.SYN
@ -318,9 +318,9 @@ READ php
.1 >AR.SELECT S0.RX.RD .1 >AR.SELECT S0.RX.RD
lda W5100.DR,x get the received ptr HI lda W5100.DR,x get the received ptr HI
sta offset+1 sta Offset+1
ldy W5100.DR,x get the received ptr LO ldy W5100.DR,x get the received ptr LO
sty offset sty Offset
and /RXTX.MASK and /RXTX.MASK
ora /RX.BASE ora /RX.BASE
@ -350,7 +350,7 @@ READ php
sta Counter+1 sta Counter+1
>LDYA BUF.Size >LDYA BUF.Size
>SYSCALL2 getmem >SYSCALL2 GetMem
bcc .14 bcc .14
jmp READWRITE.9 jmp READWRITE.9

View File

@ -4,9 +4,9 @@ NEW
.OR $2000 .OR $2000
*-------------------------------------- *--------------------------------------
.DO SSCIRQ=1 .DO SSCIRQ=1
.TF DRV/SSC.I.DRV .TF drv/ssc.i.drv
.ELSE .ELSE
.TF DRV/SSC.DRV .TF drv/ssc.drv
.FIN .FIN
*-------------------------------------- *--------------------------------------
.DO SSCIRQ=1 .DO SSCIRQ=1
@ -30,7 +30,7 @@ CS.START cld
.DA CS.END-CS.START Code Length .DA CS.END-CS.START Code Length
.DA 0 .DA 0
.DA #32 SS .DA #32 SS
.DA #8 ZP .DA #10 ZP
.DA 0 .DA 0
*-------------------------------------- *--------------------------------------
* Relocation Table * Relocation Table
@ -118,13 +118,13 @@ Dev.Detect >STYA ARGS
>PUSHW L.FD.DEV >PUSHW L.FD.DEV
>PUSHW L.FD.DEV.NAME >PUSHW L.FD.DEV.NAME
>SYSCALL MKDEV >SYSCALL MKDev
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
Dev.ParseArgs >LDYA ARGS Dev.ParseArgs >LDYA ARGS
>STYA ZPArgPTR >STYA ZPArgPtr
lda (ZPArgPTR) lda (ZPArgPtr)
bne .1 bne .1
clc clc
@ -157,7 +157,7 @@ Dev.ParseArgs >LDYA ARGS
>PUSHW ZPParityPtr >PUSHW ZPParityPtr
>PUSHW ZPControlPtr >PUSHW ZPControlPtr
>PUSHBI 10 5 x byte PTRs >PUSHBI 10 5 x byte PTRs
>SYSCALL sscanf >SYSCALL SScanF
bcs .90 bcs .90
.90 lda ZPhControl .90 lda ZPhControl
@ -570,6 +570,6 @@ DCB .DA #S.DCB.T.COM
*-------------------------------------- *--------------------------------------
DRV.END DRV.END
MAN MAN
SAVE USR/SRC/DRV/X.SSC.DRV.S SAVE usr/src/drv/x.ssc.drv.s
LOAD USR/SRC/DRV/SSC.I.DRV.S LOAD usr/src/drv/ssc.i.drv.s
ASM ASM