mirror of
https://github.com/A2osX/A2osX.git
synced 2025-01-09 10:31:45 +00:00
Kernel 0.9.1 : Code reorganization & move to CSTR
This commit is contained in:
Rémy GIBERT
parent
668412cc17
commit
7cecefb477
@ -50,23 +50,21 @@ A2osX.SaveSX .EQ $101 Aux
|
|||||||
* Aux $200 -> 3FD : /RAM Driver
|
* Aux $200 -> 3FD : /RAM Driver
|
||||||
* Aux $3FE -> 3FF : IRQ Vector
|
* Aux $3FE -> 3FF : IRQ Vector
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
*D.STACK.BASE .EQ $0300 $03EF...
|
K.S.STAT .EQ $0300 S.STAT for internal kernel operations
|
||||||
D.STACK.TOP .EQ $03F0 ...Down to $0300
|
K.S.DEVSTAT .EQ $0340 S.DEVSTAT=25 or higher depends on dev type
|
||||||
|
K.SP.PARAMS .EQ $0380 Max 9 bytes
|
||||||
|
K.MLI.PARAMS .EQ $0390 Main, 18 bytes min for GetFileInfo (ATLK needs MORE!!!...32 max for now)
|
||||||
|
K.MLI.PATH .EQ $03B0 64+1 -> $03D0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
*** $3F0-$3FF IRQ Handler.... ***
|
*** $3F0-$3FF IRQ Handler.... ***
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* Main/Aux $400 -> $7FF : Console Screen
|
* Main/Aux $400 -> $7FF : Console Screen
|
||||||
* Main/Aux $800 -> $BFF : System Screen
|
* Main/Aux $800 -> $BFF : System Screen
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
UsrBuf256 .EQ $0C00 Main
|
*UsrBuf256 .EQ $0C00 Main
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
KrnBuf256 .EQ $0D00 Main
|
KrnBuf256 .EQ $0D00 Main
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
K.MLI.PARAMS .EQ $0E00 Main, 18 bytes min for GetFileInfo
|
|
||||||
K.MLI.PATH .EQ K.MLI.PARAMS+32 (ATLK needs MORE!!!...32 max for now
|
|
||||||
K.S.STAT .EQ K.MLI.PATH+64 S.STAT for internal kernel operations (DIR,FIO)
|
|
||||||
K.S.DEVSTAT .EQ K.S.STAT+64
|
|
||||||
K.S.PORTCALL .EQ K.S.DEVSTAT+64 S.DEVSTAT=25 or higher depends on dev type
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
*** Z80 Reserved $0F00-10FF***
|
*** Z80 Reserved $0F00-10FF***
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
@ -432,10 +430,10 @@ S.PS.PID .EQ 2
|
|||||||
S.PS.CPID .EQ 3
|
S.PS.CPID .EQ 3
|
||||||
S.PS.hCS .EQ 4
|
S.PS.hCS .EQ 4
|
||||||
S.PS.hDS .EQ 5
|
S.PS.hDS .EQ 5
|
||||||
S.PS.hPREFIX .EQ 6
|
S.PS.hSS .EQ 6
|
||||||
S.PS.hENV .EQ 7
|
S.PS.hENV .EQ 7
|
||||||
S.PS.hCMDLINE .EQ 8
|
S.PS.hCMDLINE .EQ 8
|
||||||
S.PS.UID .EQ 9
|
S.PS.hPREFIX .EQ 9
|
||||||
S.PS.hStdIn .EQ 10
|
S.PS.hStdIn .EQ 10
|
||||||
S.PS.hStdOut .EQ 11
|
S.PS.hStdOut .EQ 11
|
||||||
S.PS.hStdErr .EQ 12
|
S.PS.hStdErr .EQ 12
|
||||||
|
|||||||
@ -50,7 +50,7 @@ AUTO 6
|
|||||||
.DO ]1=MLIDESTROY
|
.DO ]1=MLIDESTROY
|
||||||
lda #1
|
lda #1
|
||||||
.FIN
|
.FIN
|
||||||
.DO ]1=MLIRename
|
.DO ]1=MLIRENAME
|
||||||
lda #2
|
lda #2
|
||||||
.FIN
|
.FIN
|
||||||
.DO ]1=MLISETFILEINFO
|
.DO ]1=MLISETFILEINFO
|
||||||
|
|||||||
@ -30,7 +30,7 @@ K.GetArgC jsr ARG.InitArgPtr1
|
|||||||
* A = argument index.
|
* A = argument index.
|
||||||
* ## Out:
|
* ## Out:
|
||||||
* CC : success
|
* CC : success
|
||||||
* Y,A = PStr To Arg[A]
|
* Y,A = CStr To Arg[A]
|
||||||
* CS : Out Of Bound
|
* CS : Out Of Bound
|
||||||
*\--------------------------------------
|
*\--------------------------------------
|
||||||
K.GetArgA sta .2+1
|
K.GetArgA sta .2+1
|
||||||
@ -64,11 +64,15 @@ ARG.InitArgPtr1 ldy #S.PS.hCMDLINE
|
|||||||
>STYA ZPPtr1
|
>STYA ZPPtr1
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
ARG.NextArgPtr1 lda ZPPtr1
|
ARG.NextArgPtr1 inc ZPPtr1
|
||||||
sec
|
bne .1
|
||||||
adc (ZPPtr1)
|
inc ZPPtr1+1
|
||||||
sta ZPPtr1
|
|
||||||
bcc .8
|
.1 lda (ZPPtr1)
|
||||||
|
bne ARG.NextArgPtr1
|
||||||
|
|
||||||
|
inc ZPPtr1
|
||||||
|
bne .8
|
||||||
inc ZPPtr1+1
|
inc ZPPtr1+1
|
||||||
.8 rts
|
.8 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|||||||
@ -12,7 +12,7 @@ AUTO 6
|
|||||||
* X = hMem of Code Segment
|
* X = hMem of Code Segment
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
K.LoadEXEYA >STYA K.LoadEXEYA.Filename
|
K.LoadEXEYA >STYA K.LoadEXEYA.Filename
|
||||||
>SYSCALL PStrUprYA Y,A unmodified
|
>SYSCALL StrUprYA Y,A unmodified
|
||||||
jsr MEM.GetMemByNameYA
|
jsr MEM.GetMemByNameYA
|
||||||
bcs K.LoadEXEYA.1 not already loaded
|
bcs K.LoadEXEYA.1 not already loaded
|
||||||
|
|
||||||
|
|||||||
@ -3,235 +3,6 @@ PREFIX /A2OSX.BUILD
|
|||||||
LOMEM $A00
|
LOMEM $A00
|
||||||
INC 1
|
INC 1
|
||||||
AUTO 6
|
AUTO 6
|
||||||
*/--------------------------------------
|
|
||||||
* # FPutCAY
|
|
||||||
* Print A (char) to File
|
|
||||||
* ## In:
|
|
||||||
* A : char to print
|
|
||||||
* Y = hFILE
|
|
||||||
* ## Out:
|
|
||||||
* CC = success
|
|
||||||
*\--------------------------------------
|
|
||||||
K.FPutCAY sta K.PutC.Char
|
|
||||||
sty K.PutC.Node
|
|
||||||
tya
|
|
||||||
phy
|
|
||||||
bne K.PutCharA.1
|
|
||||||
K.PutCharA.8 ply
|
|
||||||
clc
|
|
||||||
rts
|
|
||||||
*/--------------------------------------
|
|
||||||
* # PutCharA
|
|
||||||
* Print A (char) to StdOut
|
|
||||||
* ## In:
|
|
||||||
* A : char to print
|
|
||||||
* ## Out:
|
|
||||||
* CC = success
|
|
||||||
*\--------------------------------------
|
|
||||||
K.PutCharA sta K.PutC.Char
|
|
||||||
phy
|
|
||||||
ldy #S.PS.hStdOut
|
|
||||||
lda (pPs),y
|
|
||||||
beq K.PutCharA.8 NUL
|
|
||||||
|
|
||||||
phx
|
|
||||||
|
|
||||||
K.PutCharA.1 sta K.PutC.Node
|
|
||||||
jsr K.GetMemPtrA
|
|
||||||
>STYA pDev
|
|
||||||
|
|
||||||
ldy #S.NODE.T
|
|
||||||
lda (pDev),y
|
|
||||||
asl
|
|
||||||
tax
|
|
||||||
jsr K.PutCharA.Jmp
|
|
||||||
|
|
||||||
plx
|
|
||||||
ply
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
K.PutCharA.Jmp jmp (.1,x)
|
|
||||||
.1 .DA K.PutCharA.REG
|
|
||||||
.DA K.CHR.IOERR DIR
|
|
||||||
.DA K.PutCharA.CDEV
|
|
||||||
.DA K.CHR.IOERR BDEV
|
|
||||||
.DA K.CHR.IOERR LNK
|
|
||||||
.DA K.CHR.IOERR DSOCK
|
|
||||||
.DA K.PutCharA.SSOCK
|
|
||||||
.DA K.PutCharA.FIFO
|
|
||||||
*--------------------------------------
|
|
||||||
K.PutCharA.REG lda K.PutC.Node
|
|
||||||
ldy K.PutC.Char
|
|
||||||
jmp K.FWriteAY
|
|
||||||
*--------------------------------------
|
|
||||||
K.PutCharA.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.PutCharA.SSOCK
|
|
||||||
lda (pDev) #S.NODE.HANDLER
|
|
||||||
jsr K.GetMemPtrA
|
|
||||||
>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.PutCharA.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.GetMemPtrA
|
|
||||||
>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
|
|
||||||
*/--------------------------------------
|
|
||||||
* # GetCA
|
|
||||||
* Get char from File
|
|
||||||
* ## In:
|
|
||||||
* A = hFILE
|
|
||||||
* ## Out:
|
|
||||||
* CC = success
|
|
||||||
* A = char
|
|
||||||
*\--------------------------------------
|
|
||||||
K.GetCA sta K.PutC.Node
|
|
||||||
|
|
||||||
jsr K.GetMemPtrA
|
|
||||||
>STYA pDev
|
|
||||||
|
|
||||||
ldy #S.NODE.T
|
|
||||||
lda (pDev),y
|
|
||||||
asl
|
|
||||||
tax
|
|
||||||
jmp (.1,x)
|
|
||||||
|
|
||||||
.1 .DA K.GetC.REG
|
|
||||||
.DA K.CHR.IOERR DIR
|
|
||||||
.DA K.GetC.CDEV
|
|
||||||
.DA K.CHR.IOERR BDEV
|
|
||||||
.DA K.CHR.IOERR LNK
|
|
||||||
.DA K.CHR.IOERR DSOCK
|
|
||||||
.DA K.GetC.SSOCK
|
|
||||||
.DA K.GetC.FIFO
|
|
||||||
*--------------------------------------
|
|
||||||
K.GetC.REG lda K.PutC.Node
|
|
||||||
jmp K.FReadA
|
|
||||||
*--------------------------------------
|
|
||||||
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.GetMemPtrA
|
|
||||||
>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
|
|
||||||
*/--------------------------------------
|
|
||||||
* # PutSYA
|
|
||||||
* Write String to StdOut
|
|
||||||
* ## In:
|
|
||||||
* Y,A : CPtr
|
|
||||||
* ## Out:
|
|
||||||
* CC = success
|
|
||||||
*\--------------------------------------
|
|
||||||
K.PutSYA
|
|
||||||
*/--------------------------------------
|
|
||||||
* # FGetS
|
|
||||||
* Read String From FILE
|
|
||||||
* ## In:
|
|
||||||
* PUSHW : CPtr
|
|
||||||
* PUSHB : hFILE
|
|
||||||
* ## Out:
|
|
||||||
* CC = success
|
|
||||||
*\--------------------------------------
|
|
||||||
K.FGetS
|
|
||||||
*/--------------------------------------
|
|
||||||
* # GetSYA
|
|
||||||
* Read String From StdIn
|
|
||||||
* ## In:
|
|
||||||
* Y,A : CPtr
|
|
||||||
* ## Out:
|
|
||||||
* CC = success
|
|
||||||
*\--------------------------------------
|
|
||||||
K.GetSYA
|
|
||||||
bra *
|
|
||||||
*--------------------------------------
|
|
||||||
K.CHR.IOERR lda #MLI.ERR.IO
|
|
||||||
sec
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
SAVE /A2OSX.SRC/SYS/KERNEL.S.CHR
|
SAVE /A2OSX.SRC/SYS/KERNEL.S.CHR
|
||||||
|
|||||||
@ -3,503 +3,6 @@ PREFIX /A2OSX.BUILD
|
|||||||
LOMEM $A00
|
LOMEM $A00
|
||||||
INC 1
|
INC 1
|
||||||
AUTO 6
|
AUTO 6
|
||||||
*/--------------------------------------
|
|
||||||
* # SScanF
|
|
||||||
* Scan a PStr (in progress)
|
|
||||||
* ## In:
|
|
||||||
* PUSHW PTR to target buffer
|
|
||||||
* PUSHW PSTR pattern (ex: "%d.%d.%d.%d")
|
|
||||||
* %d : byte
|
|
||||||
* PUSHW PSTR to scan (ex: "192.168.1.5")
|
|
||||||
* ## Out:
|
|
||||||
*\--------------------------------------
|
|
||||||
K.SScanF jsr PullPtr1Ptr2Ptr3
|
|
||||||
|
|
||||||
ldy #0 Y = PTR in pattern
|
|
||||||
|
|
||||||
lda (ZPPtr1)
|
|
||||||
beq .9
|
|
||||||
tax X = COUNT to scan
|
|
||||||
inc ZPPtr1
|
|
||||||
bne .1
|
|
||||||
inc ZPPtr1+1
|
|
||||||
|
|
||||||
.1 txa End Of String?
|
|
||||||
beq .8
|
|
||||||
tya
|
|
||||||
cmp (ZPPtr2) End of pattern?
|
|
||||||
beq .8
|
|
||||||
iny
|
|
||||||
lda (ZPPtr2),y
|
|
||||||
cmp #'%' Escape?
|
|
||||||
beq .2
|
|
||||||
cmp (ZPPtr1) Same char?
|
|
||||||
bne .9
|
|
||||||
jsr K.SScanF.IncPtr1
|
|
||||||
bne .1
|
|
||||||
clc
|
|
||||||
rts
|
|
||||||
|
|
||||||
.2 tya
|
|
||||||
cmp (ZPPtr2) unexpected End of pattern after "%" ?
|
|
||||||
beq .9
|
|
||||||
|
|
||||||
iny
|
|
||||||
lda (ZPPtr2),y
|
|
||||||
cmp #'d' BYTE ?
|
|
||||||
bne .3
|
|
||||||
|
|
||||||
stz ASCBUF
|
|
||||||
.20 lda (ZPPtr1)
|
|
||||||
jsr K.SScanF.IsDigit
|
|
||||||
bcs .21
|
|
||||||
phx
|
|
||||||
inc ASCBUF
|
|
||||||
ldx ASCBUF
|
|
||||||
sta ASCBUF,x
|
|
||||||
plx
|
|
||||||
jsr K.SScanF.IncPtr1
|
|
||||||
bne .20 end of string ?
|
|
||||||
|
|
||||||
.21 jsr DEC2HEX
|
|
||||||
lda HEXBUF
|
|
||||||
sta (ZPPtr3)
|
|
||||||
inc ZPPtr3
|
|
||||||
bne .1
|
|
||||||
inc ZPPtr3+1
|
|
||||||
bra .1
|
|
||||||
|
|
||||||
.3 cmp #'D' WORD ?
|
|
||||||
bne .4
|
|
||||||
|
|
||||||
bra .1
|
|
||||||
|
|
||||||
.4 cmp #'s' STRING ?
|
|
||||||
bne .9
|
|
||||||
|
|
||||||
bra .1
|
|
||||||
|
|
||||||
.8 clc
|
|
||||||
rts
|
|
||||||
|
|
||||||
.9 sec
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
K.SScanF.IncPtr1
|
|
||||||
dex
|
|
||||||
beq .1
|
|
||||||
inc ZPPtr1
|
|
||||||
bne .1
|
|
||||||
inc ZPPtr1+1 never Zero
|
|
||||||
.1 rts
|
|
||||||
*--------------------------------------
|
|
||||||
K.SScanF.IsDigit
|
|
||||||
cmp #'0'
|
|
||||||
bcc .1
|
|
||||||
cmp #'9'+1
|
|
||||||
bcs .1
|
|
||||||
rts
|
|
||||||
.1 sec
|
|
||||||
rts
|
|
||||||
*/--------------------------------------
|
|
||||||
* # PrintFYA/SPrintFYA/FPrintFYA
|
|
||||||
* Prints C-Style String
|
|
||||||
* ## In:
|
|
||||||
* PrintFYA :
|
|
||||||
* Y,A = PTR to CStr
|
|
||||||
* SPrintFYA :
|
|
||||||
* Y,A = PTR to CStr
|
|
||||||
* PULLW = Ptr to Dst Buffer
|
|
||||||
* FPrintFYA :
|
|
||||||
* Y,A = PTR to CStr
|
|
||||||
* PULLB = hNode
|
|
||||||
* ## Out:
|
|
||||||
* CC : success
|
|
||||||
* CS : error code from Output
|
|
||||||
* Specifiers :
|
|
||||||
* %a : pull 2 bytes to Print Access right String 'drwxrwxrwx'
|
|
||||||
* %b : pull 1 byte to Print BIN
|
|
||||||
* %B : pull 2 bytes to Print BIN
|
|
||||||
* %d : pull 1 byte unsigned DEC 0..255
|
|
||||||
* %D : pull 2 bytes unsigned DEC 0..65535
|
|
||||||
* %u : pull 2 bytes PTR to 4 bytes long unsigned DEC 0..4294967295
|
|
||||||
* %e : pull 2 bytes PTR to 6 Bytes Real +1.23456789e+12
|
|
||||||
* %f : pull 2 bytes PTR to 6 Bytes Real 3.1415
|
|
||||||
* %h : pull 1 byte to Print HEX
|
|
||||||
* %H : pull 2 bytes to Print HEX
|
|
||||||
* %i : pull 1 byte to Print signed DEC -128..127
|
|
||||||
* %I : pull 2 bytes to Print signed DEC -32768..32767
|
|
||||||
* %L : pull 2 bytes PTR to 4 bytes signed DEC -2147483648..2147483647
|
|
||||||
* %n : pull 1 byte to Print low Nibble HEX
|
|
||||||
* %N : pull 1 byte to Print high Nibble HEX
|
|
||||||
* %s : pull 2 bytes ptr to C-Style String
|
|
||||||
* %S : pull 2 bytes ptr to P-Style String
|
|
||||||
* \b : Print 'BS' (08)
|
|
||||||
* \e : Print 'ESC' ($1B,27)
|
|
||||||
* \f : Print 'FF' ($0C,12)
|
|
||||||
* \n : Print 'LF' ($0A,10)
|
|
||||||
* \r : Print 'CR' ($0D,13)
|
|
||||||
* \\\\ : Print \
|
|
||||||
* \% : Print %
|
|
||||||
* Modifiers for len and padding :
|
|
||||||
* %d : '9' '12'
|
|
||||||
* %2d : ' 9' '12'
|
|
||||||
* %02d : '09' '12'
|
|
||||||
* %11s : 'ABCDEFGH '
|
|
||||||
* %011s : 'ABCDEFGH000'
|
|
||||||
* %2f : '3.14'
|
|
||||||
*\--------------------------------------
|
|
||||||
K.SPrintFYA >STYA ZPPtr1
|
|
||||||
>PULLW Printf.Cout.Ptr+1
|
|
||||||
|
|
||||||
K.FPrintFYA >STYA ZPPtr1
|
|
||||||
|
|
||||||
K.PrintFYA >STYA ZPPtr1
|
|
||||||
|
|
||||||
ldy #0
|
|
||||||
|
|
||||||
.1 lda (ZPPtr1),y
|
|
||||||
beq .99
|
|
||||||
iny
|
|
||||||
cmp #'%'
|
|
||||||
bne .10
|
|
||||||
|
|
||||||
stz PADLEN
|
|
||||||
lda #' '
|
|
||||||
sta PADCHAR
|
|
||||||
|
|
||||||
.2 ldx #PrintFTBL2-PrintFTBL1-1
|
|
||||||
lda (ZPPtr1),y
|
|
||||||
beq .99
|
|
||||||
iny
|
|
||||||
|
|
||||||
.3 cmp PrintFTBL1,x do we have a %x command?
|
|
||||||
beq .8 yes, jmp to it!
|
|
||||||
dex
|
|
||||||
bpl .3 no valid letter...
|
|
||||||
|
|
||||||
cmp #'0' ...a 0...mmm... padding char?
|
|
||||||
bne .4
|
|
||||||
|
|
||||||
ldx PADLEN PADLEN is not nul, so this 0 is second digit
|
|
||||||
bne .5
|
|
||||||
|
|
||||||
lda #'0'
|
|
||||||
sta PADCHAR no, this is the first 0, so make it PADCHAR
|
|
||||||
bra .2
|
|
||||||
|
|
||||||
.4 bcc .99 less than '0'....error
|
|
||||||
cmp #'9'+1
|
|
||||||
bcs .99 more than '9' ....error
|
|
||||||
|
|
||||||
.5 and #$0F we have a digit
|
|
||||||
pha save it...
|
|
||||||
lda PADLEN starts PADLEN * 10
|
|
||||||
asl
|
|
||||||
asl A=times 4
|
|
||||||
adc PADLEN CC by ASL, A=times 5
|
|
||||||
asl times 10
|
|
||||||
sta PADLEN
|
|
||||||
|
|
||||||
pla get back digit
|
|
||||||
adc PADLEN
|
|
||||||
sta PADLEN
|
|
||||||
bra .2 go get next char...
|
|
||||||
|
|
||||||
.8 phy
|
|
||||||
txa
|
|
||||||
asl
|
|
||||||
tax
|
|
||||||
jsr PrintFESC
|
|
||||||
ply
|
|
||||||
bcc .1
|
|
||||||
rts
|
|
||||||
|
|
||||||
.10 cmp #'\'
|
|
||||||
bne .20
|
|
||||||
|
|
||||||
ldx #PrintFTBL2.OUT-PrintFTBL2-1
|
|
||||||
lda (ZPPtr1),y
|
|
||||||
beq .99
|
|
||||||
iny
|
|
||||||
|
|
||||||
.12 cmp PrintFTBL2,x
|
|
||||||
beq .13
|
|
||||||
dex
|
|
||||||
bpl .12
|
|
||||||
bra .1
|
|
||||||
|
|
||||||
.13 lda PrintFTBL2.OUT,x
|
|
||||||
|
|
||||||
.20 jsr Printf.Cout
|
|
||||||
bcc .1
|
|
||||||
.99 rts
|
|
||||||
*--------------------------------------
|
|
||||||
PrintFESC jmp (PrintFJMP,x)
|
|
||||||
*--------------------------------------
|
|
||||||
PrintFTBL1 .AS "abBdDuefhHiILnNsS"
|
|
||||||
PrintFTBL2 .AS "befnr\%"
|
|
||||||
PrintFTBL2.OUT .HS 08.1B.0C.0A.0D \b\e\f\n\r
|
|
||||||
.DA #'\' \\
|
|
||||||
.DA #'%' \%
|
|
||||||
PrintFJMP .DA PrintF.A
|
|
||||||
.DA PrintF.B,PrintF.BB
|
|
||||||
.DA PrintF.D,PrintF.DD,PrintF.U
|
|
||||||
.DA PrintF.E,PrintF.F
|
|
||||||
.DA PrintF.H,PrintF.HH
|
|
||||||
.DA PrintF.I,PrintF.II,PrintF.L
|
|
||||||
.DA PrintF.N,PrintF.NN
|
|
||||||
.DA PrintF.S,PrintF.SS
|
|
||||||
*--------------------------------------
|
|
||||||
PrintF.A >PULLW HEXBUF
|
|
||||||
|
|
||||||
lda HEXBUF+1
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
tax
|
|
||||||
lda TYPES,x
|
|
||||||
jsr Printf.Cout
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
ldx #0
|
|
||||||
|
|
||||||
.1 lda #'-'
|
|
||||||
lsr HEXBUF
|
|
||||||
bcc .2
|
|
||||||
lda ACCESS,x
|
|
||||||
|
|
||||||
.2 jsr Printf.Cout
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
inx
|
|
||||||
cpx #8
|
|
||||||
bne .1
|
|
||||||
|
|
||||||
.3 lda #'-'
|
|
||||||
lsr HEXBUF+1
|
|
||||||
bcc .4
|
|
||||||
lda ACCESS,x
|
|
||||||
|
|
||||||
.4 jmp Printf.Cout
|
|
||||||
|
|
||||||
.9 rts
|
|
||||||
*--------------------------------------
|
|
||||||
PrintF.BB >PULLA
|
|
||||||
pha
|
|
||||||
jsr PrintF.B
|
|
||||||
pla
|
|
||||||
bcc PrintF.B.1
|
|
||||||
PrintF.BB.RTS rts
|
|
||||||
*--------------------------------------
|
|
||||||
PrintF.B >PULLA
|
|
||||||
|
|
||||||
PrintF.B.1 ldx #8
|
|
||||||
|
|
||||||
.1 asl
|
|
||||||
pha
|
|
||||||
lda #'0'
|
|
||||||
adc #0 add Carry
|
|
||||||
jsr Printf.Cout
|
|
||||||
pla
|
|
||||||
bcs PrintF.BB.RTS
|
|
||||||
dex
|
|
||||||
bne .1
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
PrintF.D >PULLB HEXBUF
|
|
||||||
stz HEXBUF+1
|
|
||||||
bra PrintF.DD.1
|
|
||||||
|
|
||||||
PrintF.DD >PULLW HEXBUF
|
|
||||||
PrintF.DD.1 stz HEXBUF+2
|
|
||||||
stz HEXBUF+3
|
|
||||||
bra PrintF.U.1
|
|
||||||
|
|
||||||
PrintF.U >PULLW ZPPtr2
|
|
||||||
ldy #3
|
|
||||||
|
|
||||||
.1 lda (ZPPtr2),y
|
|
||||||
sta HEXBUF,y
|
|
||||||
dey
|
|
||||||
bpl .1
|
|
||||||
|
|
||||||
PrintF.U.1 stz SIGN
|
|
||||||
jsr HEX2DEC
|
|
||||||
jmp PrintDEC
|
|
||||||
*--------------------------------------
|
|
||||||
PrintF.E >PULLW ZPPtr2
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
PrintF.F >PULLW ZPPtr2
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
PrintF.HH >PULLA
|
|
||||||
pha
|
|
||||||
jsr PrintF.H
|
|
||||||
pla
|
|
||||||
bra PrintF.H.1
|
|
||||||
*--------------------------------------
|
|
||||||
PrintF.H >PULLA
|
|
||||||
PrintF.H.1 pha
|
|
||||||
jsr PrintF.NN.1
|
|
||||||
pla
|
|
||||||
jmp PrintF.N.1
|
|
||||||
*--------------------------------------
|
|
||||||
PrintF.I >PULLB HEXBUF
|
|
||||||
eor #$ff if positive, it becomes neg so branch if....minus!
|
|
||||||
clc
|
|
||||||
bmi .1
|
|
||||||
sec
|
|
||||||
inc 2s complement...
|
|
||||||
sta HEXBUF
|
|
||||||
|
|
||||||
|
|
||||||
.1 stz HEXBUF+1
|
|
||||||
bra PrintF.II.1
|
|
||||||
|
|
||||||
PrintF.II >PULLW HEXBUF A=HI
|
|
||||||
eor #$ff
|
|
||||||
clc
|
|
||||||
bmi PrintF.II.1
|
|
||||||
sec
|
|
||||||
tax
|
|
||||||
lda HEXBUF
|
|
||||||
eor #$ff
|
|
||||||
inc 2s complement...
|
|
||||||
sta HEXBUF
|
|
||||||
bne .1
|
|
||||||
inx
|
|
||||||
.1 sta HEXBUF
|
|
||||||
stx HEXBUF+1
|
|
||||||
|
|
||||||
PrintF.II.1 stz HEXBUF+2
|
|
||||||
stz HEXBUF+3
|
|
||||||
bra PrintF.L.1
|
|
||||||
|
|
||||||
PrintF.L >PULLW ZPPtr2
|
|
||||||
ldy #3
|
|
||||||
|
|
||||||
.1 lda (ZPPtr2),y
|
|
||||||
sta HEXBUF,y
|
|
||||||
dey
|
|
||||||
bpl .1
|
|
||||||
|
|
||||||
|
|
||||||
PrintF.L.1 ror SIGN
|
|
||||||
jsr HEX2DEC
|
|
||||||
*--------------------------------------
|
|
||||||
PRINTDEC lda PADLEN any Len format ?
|
|
||||||
beq .1 no
|
|
||||||
|
|
||||||
lda #10
|
|
||||||
sec yes, Print only digits starting at pos 10-padlen
|
|
||||||
sbc PADLEN
|
|
||||||
|
|
||||||
.1 tax x=0 if no padlen, or x=10-padlen
|
|
||||||
|
|
||||||
.2 lda ASCBUF,x
|
|
||||||
cmp #'0' a zero?
|
|
||||||
beq .3
|
|
||||||
|
|
||||||
inc PADLEN found a non zero, Print all digits, even if 0, next time
|
|
||||||
ldy #'0'
|
|
||||||
sty PADCHAR
|
|
||||||
bra .4
|
|
||||||
|
|
||||||
.3 cpx #9 last digit ?
|
|
||||||
beq .4 Print always
|
|
||||||
|
|
||||||
ldy PADLEN no pad to fill, do not Print 0
|
|
||||||
beq .6
|
|
||||||
|
|
||||||
lda PADCHAR fill with PADCHAR
|
|
||||||
|
|
||||||
.4 bit SIGN a sign to print before digits ?
|
|
||||||
bpl .5
|
|
||||||
pha yes, save whatever we have to print....
|
|
||||||
lda #'-'
|
|
||||||
jsr Printf.Cout
|
|
||||||
stz SIGN reset flag for next char...
|
|
||||||
pla
|
|
||||||
|
|
||||||
.5 jsr Printf.Cout
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
.6 inx
|
|
||||||
cpx #10
|
|
||||||
bne .2
|
|
||||||
|
|
||||||
clc
|
|
||||||
.9 rts
|
|
||||||
*--------------------------------------
|
|
||||||
PrintF.N >PULLA
|
|
||||||
PrintF.N.1 and #$0F
|
|
||||||
bra PrintF.NN.2
|
|
||||||
|
|
||||||
PrintF.NN >PULLA
|
|
||||||
PrintF.NN.1 lsr
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
|
|
||||||
PrintF.NN.2 ora #$30
|
|
||||||
cmp #$3A
|
|
||||||
bcc .1
|
|
||||||
adc #6
|
|
||||||
.1 jmp Printf.Cout
|
|
||||||
*--------------------------------------
|
|
||||||
PrintF.S ldy #$ff CSTR
|
|
||||||
.HS 2C bit abs
|
|
||||||
PrintF.SS ldy #$00 PSTR
|
|
||||||
|
|
||||||
>PULLW ZPPtr2
|
|
||||||
|
|
||||||
lda (ZPPtr2) if CSTR:last char=0, if PSTR:len=0
|
|
||||||
beq .8
|
|
||||||
|
|
||||||
sty .1+1
|
|
||||||
|
|
||||||
.1 lda #$ff Self Modified
|
|
||||||
bne .11 CSTR
|
|
||||||
|
|
||||||
tya PSTR
|
|
||||||
cmp (ZPPtr2) len check
|
|
||||||
beq .2
|
|
||||||
|
|
||||||
.11 iny
|
|
||||||
|
|
||||||
lda (ZPPtr2),y
|
|
||||||
beq .2
|
|
||||||
|
|
||||||
jsr Printf.Cout
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
lda PADLEN
|
|
||||||
beq .1
|
|
||||||
|
|
||||||
cpy PADLEN
|
|
||||||
bne .1
|
|
||||||
clc
|
|
||||||
rts
|
|
||||||
|
|
||||||
.2 lda PADLEN
|
|
||||||
beq .8
|
|
||||||
|
|
||||||
.3 lda PADCHAR
|
|
||||||
jsr Printf.Cout
|
|
||||||
bcs .9
|
|
||||||
iny
|
|
||||||
cpy PADLEN
|
|
||||||
bne .3
|
|
||||||
|
|
||||||
.8 clc
|
|
||||||
.9 rts
|
|
||||||
*--------------------------------------
|
|
||||||
Printf.Cout jmp K.PutCharA
|
|
||||||
|
|
||||||
Printf.Cout.Ptr sta $ffff Self modified
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
SAVE /A2OSX.SRC/SYS/KERNEL.S.CIO
|
SAVE /A2OSX.SRC/SYS/KERNEL.S.CIO
|
||||||
|
|||||||
@ -4,133 +4,6 @@ LOMEM $A00
|
|||||||
INC 1
|
INC 1
|
||||||
AUTO 6
|
AUTO 6
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* Convert HEXBUF to ASCBUF decimal padded with 0
|
|
||||||
*--------------------------------------
|
|
||||||
HEX2DEC ldx #4
|
|
||||||
|
|
||||||
.1 stz BCDBUF,x Clear all 5 bytes
|
|
||||||
dex
|
|
||||||
bpl .1
|
|
||||||
|
|
||||||
sed switch to BCD mode
|
|
||||||
|
|
||||||
ldx #32 let's roll 32 bits
|
|
||||||
|
|
||||||
.2 jsr HEXBUF.ROL
|
|
||||||
|
|
||||||
ldy #4
|
|
||||||
|
|
||||||
.3 lda BCDBUF,y
|
|
||||||
adc BCDBUF,y
|
|
||||||
sta BCDBUF,y
|
|
||||||
dey
|
|
||||||
bpl .3
|
|
||||||
|
|
||||||
dex
|
|
||||||
bne .2
|
|
||||||
|
|
||||||
cld
|
|
||||||
|
|
||||||
ldy #4
|
|
||||||
ldx #9
|
|
||||||
|
|
||||||
.4 lda BCDBUF,y
|
|
||||||
pha
|
|
||||||
and #$0F
|
|
||||||
ora #$30
|
|
||||||
sta ASCBUF,x
|
|
||||||
dex
|
|
||||||
pla
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
ora #$30
|
|
||||||
sta ASCBUF,x
|
|
||||||
dey
|
|
||||||
dex
|
|
||||||
bpl .4
|
|
||||||
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
* Convert ASCBUF decimal to HEXBUF
|
|
||||||
*--------------------------------------
|
|
||||||
DEC2HEX stz HEXBUF
|
|
||||||
stz HEXBUF+1
|
|
||||||
stz HEXBUF+2
|
|
||||||
stz HEXBUF+3
|
|
||||||
|
|
||||||
lda ASCBUF
|
|
||||||
beq .8
|
|
||||||
|
|
||||||
ldx #0
|
|
||||||
|
|
||||||
.1 lda HEXBUF+3 save HEXBUF for 4+1
|
|
||||||
pha
|
|
||||||
lda HEXBUF+2
|
|
||||||
pha
|
|
||||||
lda HEXBUF+1
|
|
||||||
pha
|
|
||||||
lda HEXBUF
|
|
||||||
pha
|
|
||||||
|
|
||||||
jsr HEXBUF.ROL HEXBUF * 2 -> HEXBUF
|
|
||||||
* bcs .9 overflow!!!
|
|
||||||
|
|
||||||
jsr HEXBUF.ROL HEXBUF * 4 -> HEXBUF
|
|
||||||
* bcs .9 overflow!!!
|
|
||||||
|
|
||||||
pla HEXBUF * 4 + HEXBUF -> HEXBUF
|
|
||||||
adc HEXBUF
|
|
||||||
sta HEXBUF
|
|
||||||
pla
|
|
||||||
adc HEXBUF+1
|
|
||||||
sta HEXBUF+1
|
|
||||||
pla
|
|
||||||
adc HEXBUF+2
|
|
||||||
sta HEXBUF+2
|
|
||||||
pla
|
|
||||||
adc HEXBUF+3
|
|
||||||
sta HEXBUF+3
|
|
||||||
* bcs .99 overflow!!!
|
|
||||||
|
|
||||||
jsr HEXBUF.ROL HEXBUF * 10 -> HEXBUF
|
|
||||||
* bcs .99 overflow!!!
|
|
||||||
|
|
||||||
inx
|
|
||||||
lda ASCBUF,x
|
|
||||||
and #$0F
|
|
||||||
|
|
||||||
adc HEXBUF
|
|
||||||
sta HEXBUF
|
|
||||||
bcc .2
|
|
||||||
inc HEXBUF+1
|
|
||||||
bne .2
|
|
||||||
inc HEXBUF+2
|
|
||||||
bne .2
|
|
||||||
inc HEXBUF+3
|
|
||||||
|
|
||||||
.2 cpx ASCBUF
|
|
||||||
bne .1
|
|
||||||
|
|
||||||
.8 rts
|
|
||||||
|
|
||||||
*.9 pla discard saved HEXBUF
|
|
||||||
* pla
|
|
||||||
* pla
|
|
||||||
* pla
|
|
||||||
*.99 rts
|
|
||||||
*--------------------------------------
|
|
||||||
HEXBUF.ROL asl HEXBUF
|
|
||||||
rol HEXBUF+1
|
|
||||||
rol HEXBUF+2
|
|
||||||
rol HEXBUF+3
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
HEXBUF .BS 4 32 bits max
|
|
||||||
BCDBUF .BS 5 5, enough to handle 10 digits (32bits)
|
|
||||||
ASCBUF .BS 12 LEN + sign + 10 digits ($FFFFFFFF=4.294.967.295)
|
|
||||||
*--------------------------------------
|
|
||||||
MAN
|
MAN
|
||||||
SAVE /A2OSX.SRC/SYS/KERNEL.S.CNV
|
SAVE /A2OSX.SRC/SYS/KERNEL.S.CNV
|
||||||
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
||||||
|
|||||||
@ -19,9 +19,9 @@ A2osX.PrtDrv .DA A2osX.PrtDrv.S STATUS
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
A2osX.PrtDrv.S jsr A2osX.PrtDrv.GetDev
|
A2osX.PrtDrv.S jsr A2osX.PrtDrv.GetDev
|
||||||
>LDYAI K.S.DEVSTAT
|
>LDYAI K.S.DEVSTAT
|
||||||
>STYA K.S.PORTCALL+2
|
>STYA K.SP.PARAMS+2
|
||||||
lda #3
|
lda #3
|
||||||
sta K.S.PORTCALL+4
|
sta K.SP.PARAMS+4
|
||||||
jsr A2osX.PrtDrv.Go
|
jsr A2osX.PrtDrv.Go
|
||||||
bcs .9
|
bcs .9
|
||||||
>LDYAI K.S.DEVSTAT
|
>LDYAI K.S.DEVSTAT
|
||||||
@ -41,7 +41,7 @@ A2osX.PrtDrv.Go ldy #S.DEV.ROM.JMP
|
|||||||
.8 jsr $ffff
|
.8 jsr $ffff
|
||||||
A2osX.PrtDrv.Go.Cmd
|
A2osX.PrtDrv.Go.Cmd
|
||||||
.BS 1
|
.BS 1
|
||||||
.DA K.S.PORTCALL
|
.DA K.SP.PARAMS
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
A2osX.PrtDrv.GetParam
|
A2osX.PrtDrv.GetParam
|
||||||
@ -51,7 +51,7 @@ A2osX.PrtDrv.GetParam
|
|||||||
ldy #7
|
ldy #7
|
||||||
|
|
||||||
.1 lda (ZPDRV),y
|
.1 lda (ZPDRV),y
|
||||||
sta K.S.PORTCALL+2,y
|
sta K.SP.PARAMS+2,y
|
||||||
dey
|
dey
|
||||||
bpl .1
|
bpl .1
|
||||||
rts
|
rts
|
||||||
@ -62,10 +62,10 @@ A2osX.PrtDrv.GetDev
|
|||||||
sta A2osX.PrtDrv.Go.Cmd
|
sta A2osX.PrtDrv.Go.Cmd
|
||||||
tax
|
tax
|
||||||
lda A2osX.PrtDrv.Cnt,x
|
lda A2osX.PrtDrv.Cnt,x
|
||||||
sta K.S.PORTCALL
|
sta K.SP.PARAMS
|
||||||
ldy #S.DEV.DEVID
|
ldy #S.DEV.DEVID
|
||||||
lda (pDev),y
|
lda (pDev),y
|
||||||
sta K.S.PORTCALL+1
|
sta K.SP.PARAMS+1
|
||||||
rts
|
rts
|
||||||
A2osX.PrtDrv.Cnt
|
A2osX.PrtDrv.Cnt
|
||||||
.HS 03030301030101010404
|
.HS 03030301030101010404
|
||||||
|
|||||||
@ -4,450 +4,6 @@ LOMEM $A00
|
|||||||
INC 1
|
INC 1
|
||||||
AUTO 6
|
AUTO 6
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* For All SYS.xxxx calls, X = #SYSCall
|
|
||||||
* Must be kept in X before calling
|
|
||||||
* PFT.Check
|
|
||||||
*/--------------------------------------
|
|
||||||
* # FOpen
|
|
||||||
* Open a file
|
|
||||||
* ## In :
|
|
||||||
* PUSHW = AUXTYPE
|
|
||||||
* PUSHB = TYPE
|
|
||||||
* PUSHB = MODE
|
|
||||||
* SYS.FOpen.R : if R and !exists -> ERROR
|
|
||||||
* SYS.FOpen.W : if W and !exists -> CREATE
|
|
||||||
* SYS.FOpen.A : Append
|
|
||||||
* SYS.FOpen.T : Open/Append in Text mode
|
|
||||||
* SYS.FOpen.X : Create if not exists
|
|
||||||
* PUSHW = PATH (PSTR)
|
|
||||||
* ## Out :
|
|
||||||
* CC : A = hFILE
|
|
||||||
* CS : A = EC
|
|
||||||
*\--------------------------------------
|
|
||||||
K.FOpen jsr PFT.CheckPathSTK
|
|
||||||
>PULLW K.MLI.PARAMS+1
|
|
||||||
>PULLB K.FOpen.MODE
|
|
||||||
>PULLB K.FOpen.TYPE
|
|
||||||
>PULLW K.FOpen.AUXTYPE
|
|
||||||
|
|
||||||
>MLICALL MLIGETFILEINFO
|
|
||||||
bcc K.FOpen.10 Already Exists
|
|
||||||
|
|
||||||
bit K.FOpen.MODE Create if not exists ?
|
|
||||||
bpl K.FOpen.9 No, return MLI error
|
|
||||||
|
|
||||||
lda #S.FILEINFO.ACCESS.FULL Yes, Create...
|
|
||||||
sta K.MLI.PARAMS+3 Access
|
|
||||||
lda K.FOpen.TYPE
|
|
||||||
sta K.MLI.PARAMS+4 File type
|
|
||||||
>LDYA K.FOpen.AUXTYPE
|
|
||||||
>STYA K.MLI.PARAMS+5 Aux type
|
|
||||||
lda #S.FILEINFO.STORETYPE.STD
|
|
||||||
sta K.MLI.PARAMS+7
|
|
||||||
|
|
||||||
ldx #3
|
|
||||||
|
|
||||||
.1 lda DATELO,x
|
|
||||||
sta K.MLI.PARAMS+8,x
|
|
||||||
dex
|
|
||||||
bpl .1
|
|
||||||
|
|
||||||
>MLICALL MLICREATE
|
|
||||||
bcc K.FOpen.10
|
|
||||||
K.FOpen.9 rts
|
|
||||||
|
|
||||||
K.FOpen.10 >LDYAI S.NODE.REG
|
|
||||||
jsr K.GetMem0YA
|
|
||||||
bcs K.FOpen.9
|
|
||||||
|
|
||||||
>STYA ZPPtr1
|
|
||||||
stx hFILE
|
|
||||||
|
|
||||||
jsr FILE.SetIOBUF
|
|
||||||
bcs .98
|
|
||||||
|
|
||||||
>MLICALL MLIOPEN
|
|
||||||
bcs .98
|
|
||||||
|
|
||||||
lda K.MLI.PARAMS+5 get ref_num
|
|
||||||
ldy #S.NODE.REG.REF
|
|
||||||
sta (ZPPtr1),y
|
|
||||||
|
|
||||||
sta K.MLI.PARAMS+1 Next MLI Calls are REF_NUM based
|
|
||||||
|
|
||||||
lda K.FOpen.MODE
|
|
||||||
bit #SYS.FOpen.W
|
|
||||||
beq .20 Write mode ?
|
|
||||||
|
|
||||||
and #SYS.FOpen.A Append ?
|
|
||||||
bne .11 yes, go to end of file
|
|
||||||
|
|
||||||
stz K.MLI.PARAMS+2
|
|
||||||
stz K.MLI.PARAMS+3
|
|
||||||
stz K.MLI.PARAMS+4
|
|
||||||
>MLICALL MLISETEOF no, reset size to 0
|
|
||||||
bcs .98
|
|
||||||
bra .20
|
|
||||||
|
|
||||||
.11 >MLICALL MLIGETEOF
|
|
||||||
bcs .98
|
|
||||||
|
|
||||||
>MLICALL MLISETMARK
|
|
||||||
bcs .98
|
|
||||||
|
|
||||||
.20 lda K.FOpen.MODE
|
|
||||||
and #SYS.FOpen.T Text Mode ?
|
|
||||||
beq .30
|
|
||||||
|
|
||||||
lda #$FF
|
|
||||||
sta K.MLI.PARAMS+2
|
|
||||||
lda #$0D
|
|
||||||
sta K.MLI.PARAMS+3
|
|
||||||
>MLICALL MLINEWLINE
|
|
||||||
|
|
||||||
.30 ldy #S.NODE.T
|
|
||||||
lda #S.NODE.T.REG
|
|
||||||
sta (ZPPtr1),y
|
|
||||||
lda hFILE
|
|
||||||
clc
|
|
||||||
rts CC
|
|
||||||
|
|
||||||
.98 pha save MLI error
|
|
||||||
lda hFILE
|
|
||||||
jsr K.FCloseA.1
|
|
||||||
pla get back MLI error
|
|
||||||
sec
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
K.FOpen.MODE .BS 1
|
|
||||||
K.FOpen.TYPE .BS 1
|
|
||||||
K.FOpen.AUXTYPE .BS 2
|
|
||||||
hFILE .BS 1
|
|
||||||
*/--------------------------------------
|
|
||||||
* # FCloseA
|
|
||||||
* Close a file
|
|
||||||
* ## In :
|
|
||||||
* A = hFILE
|
|
||||||
* ## Out :
|
|
||||||
*\--------------------------------------
|
|
||||||
K.FCloseA jsr PFT.CheckNodeA
|
|
||||||
pha
|
|
||||||
jsr K.GetMemPtrA
|
|
||||||
>STYA ZPPtr1
|
|
||||||
pla
|
|
||||||
|
|
||||||
K.FCloseA.1 sta K.FCloseA.2+1
|
|
||||||
ldy #S.NODE.REG.REF
|
|
||||||
lda (ZPPtr1),y
|
|
||||||
beq .1
|
|
||||||
sta K.MLI.PARAMS+1
|
|
||||||
>MLICALL MLICLOSE
|
|
||||||
|
|
||||||
.1 ldy #S.NODE.REG.IOBUF
|
|
||||||
lda (ZPPtr1),y
|
|
||||||
beq K.FCloseA.2
|
|
||||||
jsr K.FreeMemA
|
|
||||||
|
|
||||||
K.FCloseA.2 lda #$ff Self Modified
|
|
||||||
jmp K.FreeMemA
|
|
||||||
*/--------------------------------------
|
|
||||||
* # FReadA
|
|
||||||
* Read ONE byte from file
|
|
||||||
* ## In :
|
|
||||||
* A = hFILE
|
|
||||||
* ## Out :
|
|
||||||
* A = Byte Read
|
|
||||||
*\--------------------------------------
|
|
||||||
K.FReadA jsr PFT.CheckNodeA
|
|
||||||
ldx #MLIREAD
|
|
||||||
bra K.FReadWrite.0
|
|
||||||
*/--------------------------------------
|
|
||||||
* # FWriteAY
|
|
||||||
* ## In:
|
|
||||||
* A = hFILE
|
|
||||||
* Y = char
|
|
||||||
* # Out:
|
|
||||||
* Y,A = Bytes Written
|
|
||||||
*\--------------------------------------
|
|
||||||
K.FWriteAY jsr PFT.CheckNodeA
|
|
||||||
sty K.FWriteAY.Buf
|
|
||||||
ldx #MLIWRITE
|
|
||||||
K.FReadWrite.0 jsr FILE.SetupPrt1A
|
|
||||||
>LDYAI K.FWriteAY.Buf
|
|
||||||
>STYA K.MLI.PARAMS+2
|
|
||||||
lda #1
|
|
||||||
sta K.MLI.PARAMS+4
|
|
||||||
stz K.MLI.PARAMS+5
|
|
||||||
lda #4 Param Count = 4 for MLIREAD & MLIWRITE
|
|
||||||
jsr A2osX.MLICALL
|
|
||||||
bcs .9
|
|
||||||
lda K.FWriteAY.Buf
|
|
||||||
.9 rts
|
|
||||||
K.FWriteAY.Buf .BS 1
|
|
||||||
*/--------------------------------------
|
|
||||||
* # FRead
|
|
||||||
* Read bytes from file
|
|
||||||
* ## In :
|
|
||||||
* PUSHW = Dest Ptr
|
|
||||||
* PUSHW = Bytes To Read
|
|
||||||
* PUSHB = hFILE
|
|
||||||
* ## Out :
|
|
||||||
* Y,A = Bytes Read
|
|
||||||
*\--------------------------------------
|
|
||||||
K.FRead jsr PFT.CheckNodeSTK
|
|
||||||
ldx #MLIREAD
|
|
||||||
bra K.FReadWrite.1
|
|
||||||
*/--------------------------------------
|
|
||||||
* # FWrite
|
|
||||||
* ## In:
|
|
||||||
* PUSHW = Src Ptr
|
|
||||||
* PUSHW = Bytes To Write
|
|
||||||
* PUSHB = hFILE
|
|
||||||
* # Out:
|
|
||||||
* Y,A = Bytes Written
|
|
||||||
*\--------------------------------------
|
|
||||||
K.FWrite jsr PFT.CheckNodeSTK
|
|
||||||
ldx #MLIWRITE
|
|
||||||
K.FReadWrite.1 >PULLA
|
|
||||||
jsr FILE.SetupPrt1A
|
|
||||||
>PULLW K.MLI.PARAMS+4
|
|
||||||
>PULLW K.MLI.PARAMS+2
|
|
||||||
|
|
||||||
lda #4 Param Count = 4 for MLIREAD & MLIWRITE
|
|
||||||
jsr A2osX.MLICALL
|
|
||||||
bcs .9
|
|
||||||
>LDYA K.MLI.PARAMS+6
|
|
||||||
.9 rts
|
|
||||||
*/--------------------------------------
|
|
||||||
* # FFlushA
|
|
||||||
* ## In:
|
|
||||||
* A = hFILE
|
|
||||||
*\--------------------------------------
|
|
||||||
K.FFlushA jsr PFT.CheckNodeA
|
|
||||||
jsr FILE.SetupPrt1A
|
|
||||||
>MLICALL MLIFLUSH
|
|
||||||
rts
|
|
||||||
*/-------------------------------------
|
|
||||||
* # FSeek
|
|
||||||
* ## In:
|
|
||||||
* PUSHW = OffsetHi
|
|
||||||
* PUSHW = OffsetLo
|
|
||||||
* PUSHB = From
|
|
||||||
* PUSHB = hFILE
|
|
||||||
*\-------------------------------------
|
|
||||||
K.FSeek jsr PFT.CheckNodeSTK
|
|
||||||
>PULLA
|
|
||||||
jsr FILE.SetupPrt1A
|
|
||||||
>PULLA FROM
|
|
||||||
tax
|
|
||||||
>PULLW K.FSeek.OFFSET
|
|
||||||
>PULLW K.FSeek.OFFSET+2
|
|
||||||
|
|
||||||
cpx #SYS.FSeek.SET
|
|
||||||
|
|
||||||
bne .1
|
|
||||||
stz K.MLI.PARAMS+2
|
|
||||||
stz K.MLI.PARAMS+3
|
|
||||||
stz K.MLI.PARAMS+4
|
|
||||||
bra .8
|
|
||||||
|
|
||||||
.1 cpx #SYS.FSeek.CUR
|
|
||||||
bne .2
|
|
||||||
>MLICALL MLIGETMARK
|
|
||||||
bcc .8
|
|
||||||
rts
|
|
||||||
|
|
||||||
.2 cpx #SYS.FSeek.END
|
|
||||||
bne .98
|
|
||||||
>MLICALL MLIGETEOF
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
.8 ldx #0
|
|
||||||
ldy #3
|
|
||||||
|
|
||||||
clc
|
|
||||||
|
|
||||||
.81 lda K.MLI.PARAMS+2,x
|
|
||||||
adc K.FSeek.OFFSET,x
|
|
||||||
sta K.MLI.PARAMS+2,x
|
|
||||||
|
|
||||||
inx
|
|
||||||
dey
|
|
||||||
bne .81
|
|
||||||
|
|
||||||
bcs .99 Offset out of range!
|
|
||||||
|
|
||||||
>MLICALL MLISETMARK
|
|
||||||
|
|
||||||
.9 rts
|
|
||||||
|
|
||||||
.98 lda #SYSMGR.ERRSYN
|
|
||||||
.HS 2C bit abs
|
|
||||||
.99 lda #SYSMGR.ERRFTB
|
|
||||||
sec
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
K.FSeek.OFFSET .BS 4
|
|
||||||
*/--------------------------------------
|
|
||||||
* # FTellA
|
|
||||||
* ## In:
|
|
||||||
* A = hFILE
|
|
||||||
* ## Out:
|
|
||||||
* Y,A,X = Offset
|
|
||||||
*\--------------------------------------
|
|
||||||
K.FTellA jsr PFT.CheckNodeA
|
|
||||||
K.FTellA.1 jsr FILE.SetupPrt1A
|
|
||||||
>MLICALL MLIGETMARK
|
|
||||||
bcs .9
|
|
||||||
>LDYA K.MLI.PARAMS+2
|
|
||||||
ldx K.MLI.PARAMS+4
|
|
||||||
.9 rts
|
|
||||||
*/--------------------------------------
|
|
||||||
* # FEOFA
|
|
||||||
* ## In:
|
|
||||||
* A = hFILE
|
|
||||||
* ## Out:
|
|
||||||
* CC :
|
|
||||||
* A=0 EOF
|
|
||||||
* A !=0 NOT EOF
|
|
||||||
* CS :
|
|
||||||
*\--------------------------------------
|
|
||||||
K.FEOFA jsr PFT.CheckNodeA
|
|
||||||
jsr FILE.SetupPrt1A
|
|
||||||
jsr K.FTellA.1
|
|
||||||
bcs .9
|
|
||||||
>STYA K.FEOFA.MARK
|
|
||||||
stx K.FEOFA.MARK+2
|
|
||||||
|
|
||||||
>MLICALL MLIGETEOF
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
sec
|
|
||||||
lda K.MLI.PARAMS+2
|
|
||||||
sbc K.FEOFA.MARK
|
|
||||||
bne .8
|
|
||||||
lda K.MLI.PARAMS+3
|
|
||||||
sbc K.FEOFA.MARK+1
|
|
||||||
bne .8
|
|
||||||
lda K.MLI.PARAMS+4
|
|
||||||
sbc K.FEOFA.MARK+2
|
|
||||||
.8 clc
|
|
||||||
.9 rts
|
|
||||||
K.FEOFA.MARK .BS 3
|
|
||||||
*/--------------------------------------
|
|
||||||
* # RemoveYA
|
|
||||||
*\--------------------------------------
|
|
||||||
K.RemoveYA jsr PFT.CheckPathYA
|
|
||||||
>STYA K.MLI.PARAMS+1
|
|
||||||
>MLICALL MLIDESTROY
|
|
||||||
rts
|
|
||||||
*/--------------------------------------
|
|
||||||
* # Rename
|
|
||||||
* Rename a file
|
|
||||||
* ## In :
|
|
||||||
* PUSHW = New Name
|
|
||||||
* PUSHW = Old Name
|
|
||||||
* ## Out :
|
|
||||||
*\--------------------------------------
|
|
||||||
K.Rename jsr PFT.CheckPathSTK
|
|
||||||
>PULLW K.MLI.PARAMS+1
|
|
||||||
>PULLW K.MLI.PARAMS+3
|
|
||||||
>MLICALL MLIRename
|
|
||||||
rts
|
|
||||||
*/--------------------------------------
|
|
||||||
* # Stat
|
|
||||||
* Return information about a file
|
|
||||||
* ## In :
|
|
||||||
* PUSHW = PTR to S.STAT buffer
|
|
||||||
* PUSHW = PTR to Filename (PSTR)
|
|
||||||
* ## Out :
|
|
||||||
*\--------------------------------------
|
|
||||||
K.Stat jsr PFT.CheckPathSTK
|
|
||||||
>PULLW K.MLI.PARAMS+1
|
|
||||||
>PULLW K.Stat.StoreY+1
|
|
||||||
>MLICALL MLIGETFILEINFO
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
ldx K.MLI.PARAMS+S.FILEINFO.ACCESS
|
|
||||||
|
|
||||||
lda #S.STAT.MODE.XO+S.STAT.MODE.WO+S.STAT.MODE.RO
|
|
||||||
cpx #S.FILEINFO.ACCESS.FULL
|
|
||||||
beq .2
|
|
||||||
|
|
||||||
lda #S.STAT.MODE.XO+S.STAT.MODE.RO
|
|
||||||
cpx #S.FILEINFO.ACCESS.R
|
|
||||||
beq .2
|
|
||||||
|
|
||||||
lda #0
|
|
||||||
|
|
||||||
.2 ldy #S.STAT.MODE
|
|
||||||
jsr K.Stat.StoreY
|
|
||||||
|
|
||||||
ldx #K.Stat.DST-K.Stat.SRC
|
|
||||||
|
|
||||||
.3 ldy K.Stat.SRC-1,x
|
|
||||||
lda K.MLI.PARAMS,y
|
|
||||||
ldy K.Stat.DST-1,x
|
|
||||||
jsr K.Stat.StoreY
|
|
||||||
dex
|
|
||||||
bne .3
|
|
||||||
|
|
||||||
ldy #S.STAT.SIZE
|
|
||||||
lda #0
|
|
||||||
jsr K.Stat.StoreY
|
|
||||||
|
|
||||||
iny
|
|
||||||
|
|
||||||
lda K.MLI.PARAMS+S.FILEINFO.BLOCKSUSED
|
|
||||||
asl
|
|
||||||
jsr K.Stat.StoreY
|
|
||||||
|
|
||||||
iny
|
|
||||||
|
|
||||||
lda K.MLI.PARAMS+S.FILEINFO.BLOCKSUSED+1
|
|
||||||
rol
|
|
||||||
jsr K.Stat.StoreY
|
|
||||||
|
|
||||||
iny
|
|
||||||
|
|
||||||
lda #0
|
|
||||||
rol
|
|
||||||
jsr K.Stat.StoreY
|
|
||||||
|
|
||||||
clc
|
|
||||||
.9 rts
|
|
||||||
|
|
||||||
K.Stat.StoreY sta $ffff,y
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
K.Stat.SRC .DA #S.FILEINFO.TYPE
|
|
||||||
.DA #S.FILEINFO.AUXTYPE,#S.FILEINFO.AUXTYPE+1
|
|
||||||
.DA #S.FILEINFO.BLOCKSUSED,#S.FILEINFO.BLOCKSUSED+1
|
|
||||||
|
|
||||||
K.Stat.DST .DA #S.STAT.P.TYPE
|
|
||||||
.DA #S.STAT.P.AUXTYPE,#S.STAT.P.AUXTYPE+1
|
|
||||||
.DA #S.STAT.BLOCKS,#S.STAT.BLOCKS+1
|
|
||||||
* .DA #S.STAT.SIZE+1,#S.STAT.SIZE+2
|
|
||||||
|
|
||||||
*--------------------------------------
|
|
||||||
FILE.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
|
|
||||||
*--------------------------------------
|
|
||||||
FILE.SetupPrt1A jsr K.GetMemPtrA
|
|
||||||
>STYA ZPPtr1
|
|
||||||
ldy #S.NODE.REG.REF
|
|
||||||
lda (ZPPtr1),y
|
|
||||||
sta K.MLI.PARAMS+1
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
MAN
|
MAN
|
||||||
SAVE /A2OSX.SRC/SYS/KERNEL.S.FILE
|
SAVE /A2OSX.SRC/SYS/KERNEL.S.FILE
|
||||||
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
||||||
|
|||||||
@ -353,8 +353,8 @@ PS.DupEnvA jsr K.GetMemPtrA
|
|||||||
clc
|
clc
|
||||||
.9 rts
|
.9 rts
|
||||||
*/--------------------------------------
|
*/--------------------------------------
|
||||||
* # PStr2StrArrayYA
|
* # Str2StrArrayYA
|
||||||
* Convert a PSTR (e.g. : command Line) to a Array of PSTRs (Args[])
|
* Convert a CSTR (e.g. : command Line) to a Array of CSTRs (Args[])
|
||||||
* ## In:
|
* ## In:
|
||||||
* Y,A = PTR to String
|
* Y,A = PTR to String
|
||||||
* ## Out:
|
* ## Out:
|
||||||
@ -364,7 +364,7 @@ PS.DupEnvA jsr K.GetMemPtrA
|
|||||||
* CS : error
|
* CS : error
|
||||||
* A = SYS error code
|
* A = SYS error code
|
||||||
*\--------------------------------------
|
*\--------------------------------------
|
||||||
PS.PStr2StrArrayYA
|
PS.Str2StrArrayYA
|
||||||
>STYA ZPPtr1
|
>STYA ZPPtr1
|
||||||
lda (ZPPtr1) Get mem size STRLEN+1
|
lda (ZPPtr1) Get mem size STRLEN+1
|
||||||
inc
|
inc
|
||||||
|
|||||||
@ -232,6 +232,521 @@ K.GetSYA
|
|||||||
K.CHR.IOERR lda #MLI.ERR.IO
|
K.CHR.IOERR lda #MLI.ERR.IO
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
*/--------------------------------------
|
||||||
|
* # SScanF
|
||||||
|
* Scan a PStr (in progress)
|
||||||
|
* ## In:
|
||||||
|
* PUSHW PTR to target buffer
|
||||||
|
* PUSHW PSTR pattern (ex: "%d.%d.%d.%d")
|
||||||
|
* %d : byte
|
||||||
|
* PUSHW PSTR to scan (ex: "192.168.1.5")
|
||||||
|
* ## Out:
|
||||||
|
*\--------------------------------------
|
||||||
|
K.SScanF jsr PullPtr1Ptr2Ptr3
|
||||||
|
|
||||||
|
ldy #0 Y = PTR in pattern
|
||||||
|
|
||||||
|
lda (ZPPtr1)
|
||||||
|
beq .9
|
||||||
|
tax X = COUNT to scan
|
||||||
|
inc ZPPtr1
|
||||||
|
bne .1
|
||||||
|
inc ZPPtr1+1
|
||||||
|
|
||||||
|
.1 txa End Of String?
|
||||||
|
beq .8
|
||||||
|
tya
|
||||||
|
cmp (ZPPtr2) End of pattern?
|
||||||
|
beq .8
|
||||||
|
iny
|
||||||
|
lda (ZPPtr2),y
|
||||||
|
cmp #'%' Escape?
|
||||||
|
beq .2
|
||||||
|
cmp (ZPPtr1) Same char?
|
||||||
|
bne .9
|
||||||
|
jsr K.SScanF.IncPtr1
|
||||||
|
bne .1
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
|
||||||
|
.2 tya
|
||||||
|
cmp (ZPPtr2) unexpected End of pattern after "%" ?
|
||||||
|
beq .9
|
||||||
|
|
||||||
|
iny
|
||||||
|
lda (ZPPtr2),y
|
||||||
|
cmp #'d' BYTE ?
|
||||||
|
bne .3
|
||||||
|
|
||||||
|
stz ASCBUF
|
||||||
|
.20 lda (ZPPtr1)
|
||||||
|
jsr K.SScanF.IsDigit
|
||||||
|
bcs .21
|
||||||
|
phx
|
||||||
|
inc ASCBUF
|
||||||
|
ldx ASCBUF
|
||||||
|
sta ASCBUF,x
|
||||||
|
plx
|
||||||
|
jsr K.SScanF.IncPtr1
|
||||||
|
bne .20 end of string ?
|
||||||
|
|
||||||
|
.21 jsr DEC2HEX
|
||||||
|
lda HEXBUF
|
||||||
|
sta (ZPPtr3)
|
||||||
|
inc ZPPtr3
|
||||||
|
bne .1
|
||||||
|
inc ZPPtr3+1
|
||||||
|
bra .1
|
||||||
|
|
||||||
|
.3 cmp #'D' WORD ?
|
||||||
|
bne .4
|
||||||
|
|
||||||
|
bra .1
|
||||||
|
|
||||||
|
.4 cmp #'s' STRING ?
|
||||||
|
bne .9
|
||||||
|
|
||||||
|
bra .1
|
||||||
|
|
||||||
|
.8 clc
|
||||||
|
rts
|
||||||
|
|
||||||
|
.9 sec
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
K.SScanF.IncPtr1
|
||||||
|
dex
|
||||||
|
beq .1
|
||||||
|
inc ZPPtr1
|
||||||
|
bne .1
|
||||||
|
inc ZPPtr1+1 never Zero
|
||||||
|
.1 rts
|
||||||
|
*--------------------------------------
|
||||||
|
K.SScanF.IsDigit
|
||||||
|
cmp #'0'
|
||||||
|
bcc .1
|
||||||
|
cmp #'9'+1
|
||||||
|
bcs .1
|
||||||
|
rts
|
||||||
|
.1 sec
|
||||||
|
rts
|
||||||
|
*/--------------------------------------
|
||||||
|
* # PrintFYA/SPrintFYA/FPrintFYA
|
||||||
|
* Prints C-Style String
|
||||||
|
* ## In:
|
||||||
|
* PrintFYA :
|
||||||
|
* Y,A = PTR to CStr
|
||||||
|
* SPrintFYA :
|
||||||
|
* Y,A = PTR to CStr
|
||||||
|
* PULLW = Ptr to Dst Buffer
|
||||||
|
* FPrintFYA :
|
||||||
|
* Y,A = PTR to CStr
|
||||||
|
* PULLB = hNode
|
||||||
|
* ## Out:
|
||||||
|
* CC : success
|
||||||
|
* CS : error code from Output
|
||||||
|
* Specifiers :
|
||||||
|
* %a : pull 2 bytes to Print Access right String 'drwxrwxrwx'
|
||||||
|
* %b : pull 1 byte to Print BIN
|
||||||
|
* %B : pull 2 bytes to Print BIN
|
||||||
|
* %d : pull 1 byte unsigned DEC 0..255
|
||||||
|
* %D : pull 2 bytes unsigned DEC 0..65535
|
||||||
|
* %u : pull 2 bytes PTR to 4 bytes long unsigned DEC 0..4294967295
|
||||||
|
* %e : pull 2 bytes PTR to 6 Bytes Real +1.23456789e+12
|
||||||
|
* %f : pull 2 bytes PTR to 6 Bytes Real 3.1415
|
||||||
|
* %h : pull 1 byte to Print HEX
|
||||||
|
* %H : pull 2 bytes to Print HEX
|
||||||
|
* %i : pull 1 byte to Print signed DEC -128..127
|
||||||
|
* %I : pull 2 bytes to Print signed DEC -32768..32767
|
||||||
|
* %L : pull 2 bytes PTR to 4 bytes signed DEC -2147483648..2147483647
|
||||||
|
* %n : pull 1 byte to Print low Nibble HEX
|
||||||
|
* %N : pull 1 byte to Print high Nibble HEX
|
||||||
|
* %s : pull 2 bytes ptr to C-Style String
|
||||||
|
* %S : pull 2 bytes ptr to P-Style String
|
||||||
|
* \b : Print 'BS' (08)
|
||||||
|
* \e : Print 'ESC' ($1B,27)
|
||||||
|
* \f : Print 'FF' ($0C,12)
|
||||||
|
* \n : Print 'LF' ($0A,10)
|
||||||
|
* \r : Print 'CR' ($0D,13)
|
||||||
|
* \\\\ : Print \
|
||||||
|
* \% : Print %
|
||||||
|
* Modifiers for len and padding :
|
||||||
|
* %d : '9' '12'
|
||||||
|
* %2d : ' 9' '12'
|
||||||
|
* %02d : '09' '12'
|
||||||
|
* %11s : 'ABCDEFGH '
|
||||||
|
* %011s : 'ABCDEFGH000'
|
||||||
|
* %2f : '3.14'
|
||||||
|
*\--------------------------------------
|
||||||
|
K.SPrintFYA >STYA ZPPtr1
|
||||||
|
>PULLW Printf.Cout.Ptr+1
|
||||||
|
|
||||||
|
K.FPrintFYA >STYA ZPPtr1
|
||||||
|
|
||||||
|
K.PrintFYA >STYA ZPPtr1
|
||||||
|
|
||||||
|
ldy #0
|
||||||
|
|
||||||
|
.1 lda (ZPPtr1),y
|
||||||
|
beq .99
|
||||||
|
iny
|
||||||
|
cmp #'%'
|
||||||
|
bne .10
|
||||||
|
|
||||||
|
stz PADLEN
|
||||||
|
lda #' '
|
||||||
|
sta PADCHAR
|
||||||
|
|
||||||
|
.2 ldx #PrintFTBL2-PrintFTBL1-1
|
||||||
|
lda (ZPPtr1),y
|
||||||
|
beq .99
|
||||||
|
iny
|
||||||
|
|
||||||
|
.3 cmp PrintFTBL1,x do we have a %x command?
|
||||||
|
beq .8 yes, jmp to it!
|
||||||
|
dex
|
||||||
|
bpl .3 no valid letter...
|
||||||
|
|
||||||
|
cmp #'0' ...a 0...mmm... padding char?
|
||||||
|
bne .4
|
||||||
|
|
||||||
|
ldx PADLEN PADLEN is not nul, so this 0 is second digit
|
||||||
|
bne .5
|
||||||
|
|
||||||
|
lda #'0'
|
||||||
|
sta PADCHAR no, this is the first 0, so make it PADCHAR
|
||||||
|
bra .2
|
||||||
|
|
||||||
|
.4 bcc .99 less than '0'....error
|
||||||
|
cmp #'9'+1
|
||||||
|
bcs .99 more than '9' ....error
|
||||||
|
|
||||||
|
.5 and #$0F we have a digit
|
||||||
|
pha save it...
|
||||||
|
lda PADLEN starts PADLEN * 10
|
||||||
|
asl
|
||||||
|
asl A=times 4
|
||||||
|
adc PADLEN CC by ASL, A=times 5
|
||||||
|
asl times 10
|
||||||
|
sta PADLEN
|
||||||
|
|
||||||
|
pla get back digit
|
||||||
|
adc PADLEN
|
||||||
|
sta PADLEN
|
||||||
|
bra .2 go get next char...
|
||||||
|
|
||||||
|
.8 phy
|
||||||
|
txa
|
||||||
|
asl
|
||||||
|
tax
|
||||||
|
jsr PrintFESC
|
||||||
|
ply
|
||||||
|
bcc .1
|
||||||
|
rts
|
||||||
|
|
||||||
|
.10 cmp #'\'
|
||||||
|
bne .20
|
||||||
|
|
||||||
|
ldx #PrintFTBL2.OUT-PrintFTBL2-1
|
||||||
|
lda (ZPPtr1),y
|
||||||
|
beq .99
|
||||||
|
iny
|
||||||
|
|
||||||
|
.12 cmp PrintFTBL2,x
|
||||||
|
beq .13
|
||||||
|
dex
|
||||||
|
bpl .12
|
||||||
|
bra .1
|
||||||
|
|
||||||
|
.13 lda PrintFTBL2.OUT,x
|
||||||
|
|
||||||
|
.20 jsr Printf.Cout
|
||||||
|
bcc .1
|
||||||
|
.99 rts
|
||||||
|
*--------------------------------------
|
||||||
|
PrintFESC jmp (PrintFJMP,x)
|
||||||
|
*--------------------------------------
|
||||||
|
PrintFTBL1 .AS "abBdDuefhHiILnNsS"
|
||||||
|
PrintFTBL2 .AS "befnr\%"
|
||||||
|
PrintFTBL2.OUT .HS 08.1B.0C.0A.0D \b\e\f\n\r
|
||||||
|
.DA #'\' \\
|
||||||
|
.DA #'%' \%
|
||||||
|
PrintFJMP .DA PrintF.A
|
||||||
|
.DA PrintF.B,PrintF.BB
|
||||||
|
.DA PrintF.D,PrintF.DD,PrintF.U
|
||||||
|
.DA PrintF.E,PrintF.F
|
||||||
|
.DA PrintF.H,PrintF.HH
|
||||||
|
.DA PrintF.I,PrintF.II,PrintF.L
|
||||||
|
.DA PrintF.N,PrintF.NN
|
||||||
|
.DA PrintF.S,PrintF.SS
|
||||||
|
*--------------------------------------
|
||||||
|
PrintF.A >PULLW HEXBUF
|
||||||
|
|
||||||
|
lda HEXBUF+1
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
tax
|
||||||
|
lda TYPES,x
|
||||||
|
jsr Printf.Cout
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
ldx #0
|
||||||
|
|
||||||
|
.1 lda #'-'
|
||||||
|
lsr HEXBUF
|
||||||
|
bcc .2
|
||||||
|
lda ACCESS,x
|
||||||
|
|
||||||
|
.2 jsr Printf.Cout
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
inx
|
||||||
|
cpx #8
|
||||||
|
bne .1
|
||||||
|
|
||||||
|
.3 lda #'-'
|
||||||
|
lsr HEXBUF+1
|
||||||
|
bcc .4
|
||||||
|
lda ACCESS,x
|
||||||
|
|
||||||
|
.4 jmp Printf.Cout
|
||||||
|
|
||||||
|
.9 rts
|
||||||
|
*--------------------------------------
|
||||||
|
PrintF.BB >PULLA
|
||||||
|
pha
|
||||||
|
jsr PrintF.B
|
||||||
|
pla
|
||||||
|
bcc PrintF.B.1
|
||||||
|
PrintF.BB.RTS rts
|
||||||
|
*--------------------------------------
|
||||||
|
PrintF.B >PULLA
|
||||||
|
|
||||||
|
PrintF.B.1 ldx #8
|
||||||
|
|
||||||
|
.1 asl
|
||||||
|
pha
|
||||||
|
lda #'0'
|
||||||
|
adc #0 add Carry
|
||||||
|
jsr Printf.Cout
|
||||||
|
pla
|
||||||
|
bcs PrintF.BB.RTS
|
||||||
|
dex
|
||||||
|
bne .1
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
PrintF.D >PULLB HEXBUF
|
||||||
|
stz HEXBUF+1
|
||||||
|
bra PrintF.DD.1
|
||||||
|
|
||||||
|
PrintF.DD >PULLW HEXBUF
|
||||||
|
PrintF.DD.1 stz HEXBUF+2
|
||||||
|
stz HEXBUF+3
|
||||||
|
bra PrintF.U.1
|
||||||
|
|
||||||
|
PrintF.U >PULLW ZPPtr2
|
||||||
|
ldy #3
|
||||||
|
|
||||||
|
.1 lda (ZPPtr2),y
|
||||||
|
sta HEXBUF,y
|
||||||
|
dey
|
||||||
|
bpl .1
|
||||||
|
|
||||||
|
PrintF.U.1 stz SIGN
|
||||||
|
jsr HEX2DEC
|
||||||
|
jmp PrintDEC
|
||||||
|
*--------------------------------------
|
||||||
|
PrintF.E >PULLW ZPPtr2
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
PrintF.F >PULLW ZPPtr2
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
PrintF.HH >PULLA
|
||||||
|
pha
|
||||||
|
jsr PrintF.H
|
||||||
|
pla
|
||||||
|
bra PrintF.H.1
|
||||||
|
*--------------------------------------
|
||||||
|
PrintF.H >PULLA
|
||||||
|
PrintF.H.1 pha
|
||||||
|
jsr PrintF.NN.1
|
||||||
|
pla
|
||||||
|
jmp PrintF.N.1
|
||||||
|
*--------------------------------------
|
||||||
|
PrintF.I >PULLB HEXBUF
|
||||||
|
eor #$ff if positive, it becomes neg so branch if....minus!
|
||||||
|
clc
|
||||||
|
bmi .1
|
||||||
|
sec
|
||||||
|
inc 2s complement...
|
||||||
|
sta HEXBUF
|
||||||
|
|
||||||
|
|
||||||
|
.1 stz HEXBUF+1
|
||||||
|
bra PrintF.II.1
|
||||||
|
|
||||||
|
PrintF.II >PULLW HEXBUF A=HI
|
||||||
|
eor #$ff
|
||||||
|
clc
|
||||||
|
bmi PrintF.II.1
|
||||||
|
sec
|
||||||
|
tax
|
||||||
|
lda HEXBUF
|
||||||
|
eor #$ff
|
||||||
|
inc 2s complement...
|
||||||
|
sta HEXBUF
|
||||||
|
bne .1
|
||||||
|
inx
|
||||||
|
.1 sta HEXBUF
|
||||||
|
stx HEXBUF+1
|
||||||
|
|
||||||
|
PrintF.II.1 stz HEXBUF+2
|
||||||
|
stz HEXBUF+3
|
||||||
|
bra PrintF.L.1
|
||||||
|
|
||||||
|
PrintF.L >PULLW ZPPtr2
|
||||||
|
ldy #3
|
||||||
|
|
||||||
|
.1 lda (ZPPtr2),y
|
||||||
|
sta HEXBUF,y
|
||||||
|
dey
|
||||||
|
bpl .1
|
||||||
|
|
||||||
|
|
||||||
|
PrintF.L.1 ror SIGN
|
||||||
|
jsr HEX2DEC
|
||||||
|
*--------------------------------------
|
||||||
|
PRINTDEC lda PADLEN any Len format ?
|
||||||
|
beq .1 no
|
||||||
|
|
||||||
|
lda #10
|
||||||
|
sec yes, Print only digits starting at pos 10-padlen
|
||||||
|
sbc PADLEN
|
||||||
|
|
||||||
|
.1 tax x=0 if no padlen, or x=10-padlen
|
||||||
|
|
||||||
|
.2 lda ASCBUF,x
|
||||||
|
cmp #'0' a zero?
|
||||||
|
beq .3
|
||||||
|
|
||||||
|
inc PADLEN found a non zero, Print all digits, even if 0, next time
|
||||||
|
ldy #'0'
|
||||||
|
sty PADCHAR
|
||||||
|
bra .4
|
||||||
|
|
||||||
|
.3 cpx #9 last digit ?
|
||||||
|
beq .4 Print always
|
||||||
|
|
||||||
|
ldy PADLEN no pad to fill, do not Print 0
|
||||||
|
beq .6
|
||||||
|
|
||||||
|
lda PADCHAR fill with PADCHAR
|
||||||
|
|
||||||
|
.4 bit SIGN a sign to print before digits ?
|
||||||
|
bpl .5
|
||||||
|
pha yes, save whatever we have to print....
|
||||||
|
lda #'-'
|
||||||
|
jsr Printf.Cout
|
||||||
|
stz SIGN reset flag for next char...
|
||||||
|
pla
|
||||||
|
|
||||||
|
.5 jsr Printf.Cout
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
.6 inx
|
||||||
|
cpx #10
|
||||||
|
bne .2
|
||||||
|
|
||||||
|
clc
|
||||||
|
.9 rts
|
||||||
|
*--------------------------------------
|
||||||
|
PrintF.N >PULLA
|
||||||
|
PrintF.N.1 and #$0F
|
||||||
|
bra PrintF.NN.2
|
||||||
|
|
||||||
|
PrintF.NN >PULLA
|
||||||
|
PrintF.NN.1 lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
|
||||||
|
PrintF.NN.2 ora #$30
|
||||||
|
cmp #$3A
|
||||||
|
bcc .1
|
||||||
|
adc #6
|
||||||
|
.1 jmp Printf.Cout
|
||||||
|
*--------------------------------------
|
||||||
|
PrintF.S ldy #$ff CSTR
|
||||||
|
.HS 2C bit abs
|
||||||
|
PrintF.SS ldy #$00 PSTR
|
||||||
|
|
||||||
|
>PULLW ZPPtr2
|
||||||
|
|
||||||
|
lda (ZPPtr2) if CSTR:last char=0, if PSTR:len=0
|
||||||
|
beq .8
|
||||||
|
|
||||||
|
sty .1+1
|
||||||
|
|
||||||
|
.1 lda #$ff Self Modified
|
||||||
|
bne .11 CSTR
|
||||||
|
|
||||||
|
tya PSTR
|
||||||
|
cmp (ZPPtr2) len check
|
||||||
|
beq .2
|
||||||
|
|
||||||
|
.11 iny
|
||||||
|
|
||||||
|
lda (ZPPtr2),y
|
||||||
|
beq .2
|
||||||
|
|
||||||
|
jsr Printf.Cout
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
lda PADLEN
|
||||||
|
beq .1
|
||||||
|
|
||||||
|
cpy PADLEN
|
||||||
|
bne .1
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
|
||||||
|
.2 lda PADLEN
|
||||||
|
beq .8
|
||||||
|
|
||||||
|
.3 lda PADCHAR
|
||||||
|
jsr Printf.Cout
|
||||||
|
bcs .9
|
||||||
|
iny
|
||||||
|
cpy PADLEN
|
||||||
|
bne .3
|
||||||
|
|
||||||
|
.8 clc
|
||||||
|
.9 rts
|
||||||
|
*--------------------------------------
|
||||||
|
Printf.Cout jmp K.PutCharA
|
||||||
|
|
||||||
|
Printf.Cout.Ptr sta $ffff Self modified
|
||||||
|
*--------------------------------------
|
||||||
|
FILE.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
|
||||||
|
*--------------------------------------
|
||||||
|
FILE.SetupPrt1A jsr K.GetMemPtrA
|
||||||
|
>STYA ZPPtr1
|
||||||
|
ldy #S.NODE.REG.REF
|
||||||
|
lda (ZPPtr1),y
|
||||||
|
sta K.MLI.PARAMS+1
|
||||||
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
SAVE /A2OSX.SRC/SYS/KERNEL.S.STDIO
|
SAVE /A2OSX.SRC/SYS/KERNEL.S.STDIO
|
||||||
|
|||||||
@ -57,6 +57,133 @@ SIGN .BS 1
|
|||||||
PADLEN .BS 1
|
PADLEN .BS 1
|
||||||
PADCHAR .BS 1
|
PADCHAR .BS 1
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
* Convert HEXBUF to ASCBUF decimal padded with 0
|
||||||
|
*--------------------------------------
|
||||||
|
HEX2DEC ldx #4
|
||||||
|
|
||||||
|
.1 stz BCDBUF,x Clear all 5 bytes
|
||||||
|
dex
|
||||||
|
bpl .1
|
||||||
|
|
||||||
|
sed switch to BCD mode
|
||||||
|
|
||||||
|
ldx #32 let's roll 32 bits
|
||||||
|
|
||||||
|
.2 jsr HEXBUF.ROL
|
||||||
|
|
||||||
|
ldy #4
|
||||||
|
|
||||||
|
.3 lda BCDBUF,y
|
||||||
|
adc BCDBUF,y
|
||||||
|
sta BCDBUF,y
|
||||||
|
dey
|
||||||
|
bpl .3
|
||||||
|
|
||||||
|
dex
|
||||||
|
bne .2
|
||||||
|
|
||||||
|
cld
|
||||||
|
|
||||||
|
ldy #4
|
||||||
|
ldx #9
|
||||||
|
|
||||||
|
.4 lda BCDBUF,y
|
||||||
|
pha
|
||||||
|
and #$0F
|
||||||
|
ora #$30
|
||||||
|
sta ASCBUF,x
|
||||||
|
dex
|
||||||
|
pla
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
ora #$30
|
||||||
|
sta ASCBUF,x
|
||||||
|
dey
|
||||||
|
dex
|
||||||
|
bpl .4
|
||||||
|
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
* Convert ASCBUF decimal to HEXBUF
|
||||||
|
*--------------------------------------
|
||||||
|
DEC2HEX stz HEXBUF
|
||||||
|
stz HEXBUF+1
|
||||||
|
stz HEXBUF+2
|
||||||
|
stz HEXBUF+3
|
||||||
|
|
||||||
|
lda ASCBUF
|
||||||
|
beq .8
|
||||||
|
|
||||||
|
ldx #0
|
||||||
|
|
||||||
|
.1 lda HEXBUF+3 save HEXBUF for 4+1
|
||||||
|
pha
|
||||||
|
lda HEXBUF+2
|
||||||
|
pha
|
||||||
|
lda HEXBUF+1
|
||||||
|
pha
|
||||||
|
lda HEXBUF
|
||||||
|
pha
|
||||||
|
|
||||||
|
jsr HEXBUF.ROL HEXBUF * 2 -> HEXBUF
|
||||||
|
* bcs .9 overflow!!!
|
||||||
|
|
||||||
|
jsr HEXBUF.ROL HEXBUF * 4 -> HEXBUF
|
||||||
|
* bcs .9 overflow!!!
|
||||||
|
|
||||||
|
pla HEXBUF * 4 + HEXBUF -> HEXBUF
|
||||||
|
adc HEXBUF
|
||||||
|
sta HEXBUF
|
||||||
|
pla
|
||||||
|
adc HEXBUF+1
|
||||||
|
sta HEXBUF+1
|
||||||
|
pla
|
||||||
|
adc HEXBUF+2
|
||||||
|
sta HEXBUF+2
|
||||||
|
pla
|
||||||
|
adc HEXBUF+3
|
||||||
|
sta HEXBUF+3
|
||||||
|
* bcs .99 overflow!!!
|
||||||
|
|
||||||
|
jsr HEXBUF.ROL HEXBUF * 10 -> HEXBUF
|
||||||
|
* bcs .99 overflow!!!
|
||||||
|
|
||||||
|
inx
|
||||||
|
lda ASCBUF,x
|
||||||
|
and #$0F
|
||||||
|
|
||||||
|
adc HEXBUF
|
||||||
|
sta HEXBUF
|
||||||
|
bcc .2
|
||||||
|
inc HEXBUF+1
|
||||||
|
bne .2
|
||||||
|
inc HEXBUF+2
|
||||||
|
bne .2
|
||||||
|
inc HEXBUF+3
|
||||||
|
|
||||||
|
.2 cpx ASCBUF
|
||||||
|
bne .1
|
||||||
|
|
||||||
|
.8 rts
|
||||||
|
|
||||||
|
*.9 pla discard saved HEXBUF
|
||||||
|
* pla
|
||||||
|
* pla
|
||||||
|
* pla
|
||||||
|
*.99 rts
|
||||||
|
*--------------------------------------
|
||||||
|
HEXBUF.ROL asl HEXBUF
|
||||||
|
rol HEXBUF+1
|
||||||
|
rol HEXBUF+2
|
||||||
|
rol HEXBUF+3
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
HEXBUF .BS 4 32 bits max
|
||||||
|
BCDBUF .BS 5 5, enough to handle 10 digits (32bits)
|
||||||
|
ASCBUF .BS 12 LEN + sign + 10 digits ($FFFFFFFF=4.294.967.295)
|
||||||
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
SAVE /A2OSX.SRC/SYS/KERNEL.S.STDLIB
|
SAVE /A2OSX.SRC/SYS/KERNEL.S.STDLIB
|
||||||
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
||||||
|
|||||||
@ -3,239 +3,6 @@ PREFIX /A2OSX.BUILD
|
|||||||
LOMEM $A00
|
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.NewPStrYA >STYA ZPPtr2
|
|
||||||
lda (ZPPtr2)
|
|
||||||
inc
|
|
||||||
tay
|
|
||||||
lda #0 Y,A = len of new string
|
|
||||||
jsr K.GetMemYA
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
>STYA ZPPtr1
|
|
||||||
|
|
||||||
jsr K.PStrCpyPtr2Ptr1
|
|
||||||
|
|
||||||
>LDYA ZPPtr1
|
|
||||||
|
|
||||||
clc
|
|
||||||
.9 rts
|
|
||||||
*/--------------------------------------
|
|
||||||
* # PStrCpy
|
|
||||||
* Copy string
|
|
||||||
* ## In:
|
|
||||||
* PUSHW = Ptr to SRC (PSTR)
|
|
||||||
* PUSHW = Ptr to DST (PSTR)
|
|
||||||
* ## Out:
|
|
||||||
* DST = SRC (PSTR)
|
|
||||||
*\--------------------------------------
|
|
||||||
K.PStrCpy jsr PullPtr1Ptr2
|
|
||||||
|
|
||||||
K.PStrCpyPtr2Ptr1
|
|
||||||
lda (ZPPtr2)
|
|
||||||
sta (ZPPtr1)
|
|
||||||
tay
|
|
||||||
beq .2
|
|
||||||
|
|
||||||
.1 lda (ZPPtr2),y
|
|
||||||
sta (ZPPtr1),y
|
|
||||||
dey
|
|
||||||
bne .1
|
|
||||||
|
|
||||||
.2 clc
|
|
||||||
rts
|
|
||||||
*/--------------------------------------
|
|
||||||
* # PStrCat
|
|
||||||
* Append SRC to DST
|
|
||||||
* ## In:
|
|
||||||
* PUSHW = Ptr to SRC (PSTR)
|
|
||||||
* PUSHW = Ptr to DST (PSTR)
|
|
||||||
* ## Out:
|
|
||||||
* DST = DST+SRC (PSTR)
|
|
||||||
*\--------------------------------------
|
|
||||||
K.PStrCat jsr PullPtr1Ptr2
|
|
||||||
|
|
||||||
lda (ZPPtr2)
|
|
||||||
tax
|
|
||||||
|
|
||||||
lda (ZPPtr1)
|
|
||||||
tay
|
|
||||||
|
|
||||||
.1 cpy #255
|
|
||||||
beq .8
|
|
||||||
|
|
||||||
iny
|
|
||||||
|
|
||||||
inc ZPPtr2
|
|
||||||
bne .2
|
|
||||||
inc ZPPtr2+1
|
|
||||||
|
|
||||||
.2 lda (ZPPtr2)
|
|
||||||
sta (ZPPtr1),y
|
|
||||||
dex
|
|
||||||
bne .1
|
|
||||||
|
|
||||||
.8 tya
|
|
||||||
sta (ZPPtr1)
|
|
||||||
clc
|
|
||||||
rts
|
|
||||||
*/--------------------------------------
|
|
||||||
* # PStrMatch
|
|
||||||
* Compare a String against pattern
|
|
||||||
* ## In:
|
|
||||||
* PUSHW = PTR to Pattern (e.g. '*test?.txt')
|
|
||||||
* PUSHW = PTR to Src String
|
|
||||||
* ## Out:
|
|
||||||
* CC : match
|
|
||||||
* CS : no match
|
|
||||||
*\--------------------------------------
|
|
||||||
K.PStrMatch jsr PullPtr1Ptr2
|
|
||||||
|
|
||||||
lda (ZPPtr2) Keep Pattern Length in X
|
|
||||||
tax
|
|
||||||
beq .8 Match always if empty
|
|
||||||
ldy #0
|
|
||||||
|
|
||||||
.1 inc ZPPtr2 Make PTR1 advance to next char
|
|
||||||
bne .2
|
|
||||||
inc ZPPtr2+1
|
|
||||||
|
|
||||||
.2 lda (ZPPtr2) get pattern char
|
|
||||||
cmp #'*'
|
|
||||||
beq .5
|
|
||||||
|
|
||||||
.3 tya we must match ? or regular char
|
|
||||||
cmp (ZPPtr1) check if at end of string
|
|
||||||
beq .9 yes, no char left, exit with error
|
|
||||||
|
|
||||||
iny advance to next char to compare
|
|
||||||
|
|
||||||
lda (ZPPtr2) get back pattern char
|
|
||||||
cmp #'?'
|
|
||||||
beq .4 no need to compare, any char will match
|
|
||||||
cmp (ZPPtr1),y Regular Char, compare with string at Y
|
|
||||||
bne .9 no match, exit
|
|
||||||
|
|
||||||
.4 dex char matched, check if end of pattern
|
|
||||||
bne .1 continue if remaining char in pattern
|
|
||||||
|
|
||||||
tya end of pattern, but end of string ?
|
|
||||||
cmp (ZPPtr1) end of string ?
|
|
||||||
beq .8 yes, string matched entirely
|
|
||||||
bra .9 no, remaining char in string, no match
|
|
||||||
|
|
||||||
.5 dex we have '*', last char of pattern ?
|
|
||||||
beq .8 yes, match everything, including empty string
|
|
||||||
|
|
||||||
inc ZPPtr2 Make PTR1 advance to next char
|
|
||||||
bne .6
|
|
||||||
inc ZPPtr2+1
|
|
||||||
|
|
||||||
.6 lda (ZPPtr2) get next char of pattern
|
|
||||||
cmp #'*' another '*' ?
|
|
||||||
beq .5 yes, '**' = '*', go next char
|
|
||||||
cmp #'?' '*?' ??? we must match a least one char
|
|
||||||
beq .3
|
|
||||||
|
|
||||||
.7 tya we need at least one remaining char in string,
|
|
||||||
cmp (ZPPtr1) check if at end of string
|
|
||||||
beq .9 no chance to match ? or regular char
|
|
||||||
|
|
||||||
iny
|
|
||||||
lda (ZPPtr2) get again char in pattern
|
|
||||||
cmp (ZPPtr1),y compare with char in string
|
|
||||||
bne .7 not equal to next non wildcard in pattern
|
|
||||||
|
|
||||||
bra .4 go check remaining char in pattern...
|
|
||||||
|
|
||||||
.8 clc
|
|
||||||
rts
|
|
||||||
|
|
||||||
.9 sec
|
|
||||||
rts
|
|
||||||
*/--------------------------------------
|
|
||||||
* # PStrUprYA/PStrLwrYA
|
|
||||||
* Convert string to UPPERCASE/lowercase
|
|
||||||
* ## In:
|
|
||||||
* Y,A = PTR to String (PSTR)
|
|
||||||
* ## Out:
|
|
||||||
* Uppercased/lowercased String in Buffer
|
|
||||||
*\--------------------------------------
|
|
||||||
K.PStrUprYA ldx #0
|
|
||||||
.HS 2C bit abs
|
|
||||||
K.PStrLwrYA ldx #2
|
|
||||||
>STYA ZPPtr1
|
|
||||||
|
|
||||||
pha save Y,A to restore them at exit
|
|
||||||
phy
|
|
||||||
|
|
||||||
lda (ZPPtr1)
|
|
||||||
tay
|
|
||||||
|
|
||||||
.1 lda (ZPPtr1),y
|
|
||||||
cmp K.PStrUprLwr,x
|
|
||||||
bcc .2
|
|
||||||
cmp K.PStrUprLwr+1,x
|
|
||||||
bcs .2
|
|
||||||
eor #$20
|
|
||||||
sta (ZPPtr1),y
|
|
||||||
.2 dey
|
|
||||||
bne .1
|
|
||||||
|
|
||||||
ply
|
|
||||||
pla
|
|
||||||
clc
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
K.PStrUprLwr .AS "azAZ"
|
|
||||||
*--------------------------------------
|
|
||||||
K.PStr2CStrYA >STYA ZPPtr1
|
|
||||||
lda (ZPPtr1)
|
|
||||||
beq .8
|
|
||||||
pha
|
|
||||||
|
|
||||||
tay
|
|
||||||
|
|
||||||
.1 lda (ZPPtr1),y
|
|
||||||
dey
|
|
||||||
sta (ZPPtr1),y
|
|
||||||
tya
|
|
||||||
bne .1
|
|
||||||
ply
|
|
||||||
sta (ZPPtr1),y Ending 0
|
|
||||||
|
|
||||||
.8 rts
|
|
||||||
*--------------------------------------
|
|
||||||
K.CStr2PStrYA >STYA ZPPtr1
|
|
||||||
|
|
||||||
ldy #0
|
|
||||||
|
|
||||||
.1 lda (ZPPtr1),y
|
|
||||||
beq .9
|
|
||||||
|
|
||||||
.2 pha
|
|
||||||
iny
|
|
||||||
lda (ZPPtr1),y
|
|
||||||
tax
|
|
||||||
pla
|
|
||||||
sta (ZPPtr1),y
|
|
||||||
txa
|
|
||||||
bne .2
|
|
||||||
|
|
||||||
.8 tya
|
|
||||||
sta (ZPPtr1)
|
|
||||||
.9 rts
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
SAVE /A2OSX.SRC/SYS/KERNEL.S.STR
|
SAVE /A2OSX.SRC/SYS/KERNEL.S.STR
|
||||||
|
|||||||
@ -4,6 +4,29 @@ LOMEM $A00
|
|||||||
INC 1
|
INC 1
|
||||||
AUTO 6
|
AUTO 6
|
||||||
*/--------------------------------------
|
*/--------------------------------------
|
||||||
|
* # StrLen.YA
|
||||||
|
* Returns Length of C-String
|
||||||
|
* ## In:
|
||||||
|
* Y,A = Ptr to CSTR
|
||||||
|
* ## Out:
|
||||||
|
* Y,A = String length
|
||||||
|
*\--------------------------------------
|
||||||
|
K.StrLen.YA >STYA ZPPtr1
|
||||||
|
|
||||||
|
ldy #0
|
||||||
|
ldx #0
|
||||||
|
|
||||||
|
.1 lda (ZPPtr1),y
|
||||||
|
beq .8
|
||||||
|
iny
|
||||||
|
bne .1
|
||||||
|
inx
|
||||||
|
inc ZPPtr1+1
|
||||||
|
bra .1
|
||||||
|
|
||||||
|
.8 txa
|
||||||
|
rts
|
||||||
|
*/--------------------------------------
|
||||||
* # StrCat
|
* # StrCat
|
||||||
* Append SRC to DST
|
* Append SRC to DST
|
||||||
* ## In:
|
* ## In:
|
||||||
@ -156,248 +179,6 @@ K.StrLwrYA ldx #2
|
|||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
K.PStrUprLwr .AS "azAZ"
|
K.PStrUprLwr .AS "azAZ"
|
||||||
*/--------------------------------------
|
|
||||||
* # StrFTime
|
|
||||||
* Convert S.TIME struct to CSTR
|
|
||||||
* ## In:
|
|
||||||
* PUSHW = Dst PTR To CSTR Buf
|
|
||||||
* PUSHW = Src PTR To Format String
|
|
||||||
* %a : Abbreviated weekday name : Thu
|
|
||||||
* %A : Full weekday name : Thursday
|
|
||||||
* %b : Abbreviated month name : Aug
|
|
||||||
* %B : Full month name : August
|
|
||||||
* %d : Day of the month, zero-padded (01-31)
|
|
||||||
* %H : Hour in 24h format (00-23) 14
|
|
||||||
* %I : Hour in 12h format (01-12) 02
|
|
||||||
* %m : Month as a decimal number (01-12) 08
|
|
||||||
* %M : Minute (00-59) 55
|
|
||||||
* %p : AM or PM designation PM
|
|
||||||
* %S : Second (00-61) 02
|
|
||||||
* %w : Weekday as a decimal number with Sunday as 0 (0-6)
|
|
||||||
* %y : Year, last two digits (00-99)
|
|
||||||
* %Y : Year four digits 2001
|
|
||||||
* PUSHW = Src PTR To S.Time
|
|
||||||
* ## Out:
|
|
||||||
* none. always succeed.
|
|
||||||
*\--------------------------------------
|
|
||||||
K.StrFTime jsr PullPtr1Ptr2Ptr3
|
|
||||||
|
|
||||||
ldy #0
|
|
||||||
|
|
||||||
.1 lda (ZPPtr2),y
|
|
||||||
beq .8
|
|
||||||
|
|
||||||
iny
|
|
||||||
|
|
||||||
cmp #'%'
|
|
||||||
beq .2
|
|
||||||
|
|
||||||
jsr K.StrFTime.addChar
|
|
||||||
bra .1
|
|
||||||
|
|
||||||
.2 ldx #K.StrFTime.JMPL-K.StrFTime.Tbl-1
|
|
||||||
|
|
||||||
lda (ZPPtr2),y
|
|
||||||
beq .8
|
|
||||||
iny
|
|
||||||
|
|
||||||
.3 cmp K.StrFTime.Tbl,x
|
|
||||||
beq .4
|
|
||||||
dex
|
|
||||||
bpl .3
|
|
||||||
bra .1
|
|
||||||
|
|
||||||
.4 lda K.StrFTime.JMPL,x
|
|
||||||
sta .5+1
|
|
||||||
lda K.StrFTime.JMPH,x
|
|
||||||
sta .5+2
|
|
||||||
phy
|
|
||||||
.5 jsr $ffff
|
|
||||||
ply
|
|
||||||
bra .1
|
|
||||||
|
|
||||||
.8 lda #0 Terminate C string
|
|
||||||
sta (ZPPtr3)
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
K.StrFTime.TBL .AS "aAbBdHImMpSwyY"
|
|
||||||
K.StrFTime.JMPL .DA #K.StrFTime.A
|
|
||||||
.DA #K.StrFTime.AA
|
|
||||||
.DA #K.StrFTime.B
|
|
||||||
.DA #K.StrFTime.BB
|
|
||||||
.DA #K.StrFTime.D
|
|
||||||
.DA #K.StrFTime.HH
|
|
||||||
.DA #K.StrFTime.II
|
|
||||||
.DA #K.StrFTime.M
|
|
||||||
.DA #K.StrFTime.MM
|
|
||||||
.DA #K.StrFTime.P
|
|
||||||
.DA #K.StrFTime.SS
|
|
||||||
.DA #K.StrFTime.W
|
|
||||||
.DA #K.StrFTime.Y
|
|
||||||
.DA #K.StrFTime.YY
|
|
||||||
*--------------------------------------
|
|
||||||
K.StrFTime.JMPH .DA /K.StrFTime.A
|
|
||||||
.DA /K.StrFTime.AA
|
|
||||||
.DA /K.StrFTime.B
|
|
||||||
.DA /K.StrFTime.BB
|
|
||||||
.DA /K.StrFTime.D
|
|
||||||
.DA /K.StrFTime.HH
|
|
||||||
.DA /K.StrFTime.II
|
|
||||||
.DA /K.StrFTime.M
|
|
||||||
.DA /K.StrFTime.MM
|
|
||||||
.DA /K.StrFTime.P
|
|
||||||
.DA /K.StrFTime.SS
|
|
||||||
.DA /K.StrFTime.W
|
|
||||||
.DA /K.StrFTime.Y
|
|
||||||
.DA /K.StrFTime.YY
|
|
||||||
*--------------------------------------
|
|
||||||
K.StrFTime.A ldx #3 Short day of week, 3 chars...
|
|
||||||
.HS 2C Bit abs
|
|
||||||
|
|
||||||
K.StrFTime.AA ldx #15 full DoW
|
|
||||||
>LDYAI K.StrFTime.DAY
|
|
||||||
>STYA ZPPtr4
|
|
||||||
ldy #S.Time.WDAY
|
|
||||||
bra K.StrFTime.STR
|
|
||||||
|
|
||||||
K.StrFTime.B ldx #3 Short Month, 3 chars....
|
|
||||||
.HS 2C Bit abs
|
|
||||||
|
|
||||||
K.StrFTime.BB ldx #15 full Month....
|
|
||||||
>LDYAI K.StrFTime.MON
|
|
||||||
>STYA ZPPtr4
|
|
||||||
ldy #S.Time.MONTH
|
|
||||||
|
|
||||||
K.StrFTime.STR lda (ZPPtr1),y get required S.Time field value
|
|
||||||
tay
|
|
||||||
beq .9 Illegal value
|
|
||||||
|
|
||||||
.1 dey range 0..x
|
|
||||||
beq .2
|
|
||||||
lda (ZPPtr4)
|
|
||||||
sec
|
|
||||||
adc ZPPtr4
|
|
||||||
sta ZPPtr4
|
|
||||||
bcc .1
|
|
||||||
inc ZPPtr4+1
|
|
||||||
bra .1
|
|
||||||
|
|
||||||
.2 ldy #0
|
|
||||||
|
|
||||||
.3 iny
|
|
||||||
lda (ZPPtr4),y
|
|
||||||
phy
|
|
||||||
jsr K.StrFTime.addChar
|
|
||||||
pla
|
|
||||||
cmp (ZPPtr4)
|
|
||||||
beq .8
|
|
||||||
|
|
||||||
tay
|
|
||||||
dex
|
|
||||||
bne .3
|
|
||||||
.8 rts
|
|
||||||
|
|
||||||
.9 ldx #3
|
|
||||||
lda #'?'
|
|
||||||
.99 jsr K.StrFTime.addChar
|
|
||||||
dex
|
|
||||||
bne .99
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
K.StrFTime.D ldy #S.Time.DAY
|
|
||||||
bra K.StrFTime.addDecPtr1Y
|
|
||||||
K.StrFTime.HH ldy #S.Time.HOUR
|
|
||||||
bra K.StrFTime.addDecPtr1Y
|
|
||||||
K.StrFTime.II ldy #S.Time.HOUR
|
|
||||||
lda (ZPPtr1),y
|
|
||||||
cmp #12
|
|
||||||
bcc .1
|
|
||||||
sbc #12
|
|
||||||
.1 bra K.StrFTime.addDecA
|
|
||||||
K.StrFTime.M ldy #S.Time.MONTH
|
|
||||||
bra K.StrFTime.addDecPtr1Y
|
|
||||||
K.StrFTime.MM ldy #S.Time.MINUTE
|
|
||||||
bra K.StrFTime.addDecPtr1Y
|
|
||||||
K.StrFTime.P ldy #S.Time.HOUR
|
|
||||||
lda (ZPPtr1),y
|
|
||||||
cmp #12
|
|
||||||
bcc .1
|
|
||||||
lda #'p'
|
|
||||||
.HS 2C bit abs
|
|
||||||
.1 lda #'a'
|
|
||||||
jsr K.StrFTime.addChar
|
|
||||||
lda #'m'
|
|
||||||
bra K.StrFTime.addChar
|
|
||||||
K.StrFTime.SS ldy #S.Time.SECOND
|
|
||||||
bra K.StrFTime.addDecPtr1Y
|
|
||||||
K.StrFTime.W ldy #S.Time.WDAY
|
|
||||||
bra K.StrFTime.addDecPtr1Y
|
|
||||||
K.StrFTime.YY ldy #S.Time.CENTURY
|
|
||||||
jsr K.StrFTime.addDecPtr1Y
|
|
||||||
K.StrFTime.Y ldy #S.Time.YEAR
|
|
||||||
*--------------------------------------
|
|
||||||
K.StrFTime.addDecPtr1Y
|
|
||||||
lda (ZPPtr1),y
|
|
||||||
K.StrFTime.addDecA
|
|
||||||
sta K.StrFTime.BIN
|
|
||||||
stz K.StrFTime.DEC
|
|
||||||
|
|
||||||
sed
|
|
||||||
ldx #8
|
|
||||||
|
|
||||||
.1 asl K.StrFTime.BIN
|
|
||||||
|
|
||||||
lda K.StrFTime.DEC
|
|
||||||
adc K.StrFTime.DEC
|
|
||||||
sta K.StrFTime.DEC
|
|
||||||
|
|
||||||
dex
|
|
||||||
bne .1
|
|
||||||
|
|
||||||
cld
|
|
||||||
|
|
||||||
* lda K.StrFTime.DEC already in A
|
|
||||||
pha
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
ora #$30
|
|
||||||
jsr K.StrFTime.addChar
|
|
||||||
pla
|
|
||||||
and #$0f
|
|
||||||
ora #$30
|
|
||||||
*--------------------------------------
|
|
||||||
K.StrFTime.addChar
|
|
||||||
sta (ZPPtr3)
|
|
||||||
inc ZPPtr3
|
|
||||||
bne .8
|
|
||||||
inc ZPPtr3+1
|
|
||||||
.8 rts
|
|
||||||
*--------------------------------------
|
|
||||||
K.StrFTime.DAY >PSTR "Monday"
|
|
||||||
>PSTR "Tuesday"
|
|
||||||
>PSTR "Wednesday"
|
|
||||||
>PSTR "Thursday"
|
|
||||||
>PSTR "Friday"
|
|
||||||
>PSTR "Saturday"
|
|
||||||
>PSTR "Sunday"
|
|
||||||
*--------------------------------------
|
|
||||||
K.StrFTime.MON >PSTR "January"
|
|
||||||
>PSTR "February"
|
|
||||||
>PSTR "March"
|
|
||||||
>PSTR "April"
|
|
||||||
>PSTR "May"
|
|
||||||
>PSTR "June"
|
|
||||||
>PSTR "July"
|
|
||||||
>PSTR "August"
|
|
||||||
>PSTR "September"
|
|
||||||
>PSTR "October"
|
|
||||||
>PSTR "November"
|
|
||||||
>PSTR "December"
|
|
||||||
*--------------------------------------
|
|
||||||
K.StrFTime.BIN .BS 1
|
|
||||||
K.StrFTime.DEC .BS 1 always < 100
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
SAVE /A2OSX.SRC/SYS/KERNEL.S.STRING
|
SAVE /A2OSX.SRC/SYS/KERNEL.S.STRING
|
||||||
|
|||||||
@ -374,6 +374,249 @@ K.CTime.Div3600 .BS 1
|
|||||||
K.CTime.Mod .BS 1
|
K.CTime.Mod .BS 1
|
||||||
K.CTime.Century .BS 1
|
K.CTime.Century .BS 1
|
||||||
K.CTime.Year .BS 1
|
K.CTime.Year .BS 1
|
||||||
|
*/--------------------------------------
|
||||||
|
* # StrFTime
|
||||||
|
* Convert S.TIME struct to CSTR
|
||||||
|
* ## In:
|
||||||
|
* PUSHW = Dst PTR To CSTR Buf
|
||||||
|
* PUSHW = Src PTR To Format String
|
||||||
|
* %a : Abbreviated weekday name : Thu
|
||||||
|
* %A : Full weekday name : Thursday
|
||||||
|
* %b : Abbreviated month name : Aug
|
||||||
|
* %B : Full month name : August
|
||||||
|
* %d : Day of the month, zero-padded (01-31)
|
||||||
|
* %H : Hour in 24h format (00-23) 14
|
||||||
|
* %I : Hour in 12h format (01-12) 02
|
||||||
|
* %m : Month as a decimal number (01-12) 08
|
||||||
|
* %M : Minute (00-59) 55
|
||||||
|
* %p : AM or PM designation PM
|
||||||
|
* %S : Second (00-61) 02
|
||||||
|
* %w : Weekday as a decimal number with Sunday as 0 (0-6)
|
||||||
|
* %y : Year, last two digits (00-99)
|
||||||
|
* %Y : Year four digits 2001
|
||||||
|
* PUSHW = Src PTR To S.Time
|
||||||
|
* ## Out:
|
||||||
|
* none. always succeed.
|
||||||
|
*\--------------------------------------
|
||||||
|
K.StrFTime jsr PullPtr1Ptr2Ptr3
|
||||||
|
|
||||||
|
ldy #0
|
||||||
|
|
||||||
|
.1 lda (ZPPtr2),y
|
||||||
|
beq .8
|
||||||
|
|
||||||
|
iny
|
||||||
|
|
||||||
|
cmp #'%'
|
||||||
|
beq .2
|
||||||
|
|
||||||
|
jsr K.StrFTime.addChar
|
||||||
|
bra .1
|
||||||
|
|
||||||
|
.2 ldx #K.StrFTime.JMPL-K.StrFTime.Tbl-1
|
||||||
|
|
||||||
|
lda (ZPPtr2),y
|
||||||
|
beq .8
|
||||||
|
iny
|
||||||
|
|
||||||
|
.3 cmp K.StrFTime.Tbl,x
|
||||||
|
beq .4
|
||||||
|
dex
|
||||||
|
bpl .3
|
||||||
|
bra .1
|
||||||
|
|
||||||
|
.4 lda K.StrFTime.JMPL,x
|
||||||
|
sta .5+1
|
||||||
|
lda K.StrFTime.JMPH,x
|
||||||
|
sta .5+2
|
||||||
|
phy
|
||||||
|
.5 jsr $ffff
|
||||||
|
ply
|
||||||
|
bra .1
|
||||||
|
|
||||||
|
.8 lda #0 Terminate C string
|
||||||
|
sta (ZPPtr3)
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
K.StrFTime.TBL .AS "aAbBdHImMpSwyY"
|
||||||
|
K.StrFTime.JMPL .DA #K.StrFTime.A
|
||||||
|
.DA #K.StrFTime.AA
|
||||||
|
.DA #K.StrFTime.B
|
||||||
|
.DA #K.StrFTime.BB
|
||||||
|
.DA #K.StrFTime.D
|
||||||
|
.DA #K.StrFTime.HH
|
||||||
|
.DA #K.StrFTime.II
|
||||||
|
.DA #K.StrFTime.M
|
||||||
|
.DA #K.StrFTime.MM
|
||||||
|
.DA #K.StrFTime.P
|
||||||
|
.DA #K.StrFTime.SS
|
||||||
|
.DA #K.StrFTime.W
|
||||||
|
.DA #K.StrFTime.Y
|
||||||
|
.DA #K.StrFTime.YY
|
||||||
|
*--------------------------------------
|
||||||
|
K.StrFTime.JMPH .DA /K.StrFTime.A
|
||||||
|
.DA /K.StrFTime.AA
|
||||||
|
.DA /K.StrFTime.B
|
||||||
|
.DA /K.StrFTime.BB
|
||||||
|
.DA /K.StrFTime.D
|
||||||
|
.DA /K.StrFTime.HH
|
||||||
|
.DA /K.StrFTime.II
|
||||||
|
.DA /K.StrFTime.M
|
||||||
|
.DA /K.StrFTime.MM
|
||||||
|
.DA /K.StrFTime.P
|
||||||
|
.DA /K.StrFTime.SS
|
||||||
|
.DA /K.StrFTime.W
|
||||||
|
.DA /K.StrFTime.Y
|
||||||
|
.DA /K.StrFTime.YY
|
||||||
|
*--------------------------------------
|
||||||
|
K.StrFTime.A ldx #3 Short day of week, 3 chars...
|
||||||
|
.HS 2C Bit abs
|
||||||
|
|
||||||
|
K.StrFTime.AA ldx #15 full DoW
|
||||||
|
>LDYAI K.StrFTime.DAY
|
||||||
|
>STYA ZPPtr4
|
||||||
|
ldy #S.Time.WDAY
|
||||||
|
bra K.StrFTime.STR
|
||||||
|
|
||||||
|
K.StrFTime.B ldx #3 Short Month, 3 chars....
|
||||||
|
.HS 2C Bit abs
|
||||||
|
|
||||||
|
K.StrFTime.BB ldx #15 full Month....
|
||||||
|
>LDYAI K.StrFTime.MON
|
||||||
|
>STYA ZPPtr4
|
||||||
|
ldy #S.Time.MONTH
|
||||||
|
|
||||||
|
K.StrFTime.STR lda (ZPPtr1),y get required S.Time field value
|
||||||
|
tay
|
||||||
|
beq .9 Illegal value
|
||||||
|
|
||||||
|
.1 dey range 0..x
|
||||||
|
beq .2
|
||||||
|
lda (ZPPtr4)
|
||||||
|
sec
|
||||||
|
adc ZPPtr4
|
||||||
|
sta ZPPtr4
|
||||||
|
bcc .1
|
||||||
|
inc ZPPtr4+1
|
||||||
|
bra .1
|
||||||
|
|
||||||
|
.2 ldy #0
|
||||||
|
|
||||||
|
.3 iny
|
||||||
|
lda (ZPPtr4),y
|
||||||
|
phy
|
||||||
|
jsr K.StrFTime.addChar
|
||||||
|
pla
|
||||||
|
cmp (ZPPtr4)
|
||||||
|
beq .8
|
||||||
|
|
||||||
|
tay
|
||||||
|
dex
|
||||||
|
bne .3
|
||||||
|
.8 rts
|
||||||
|
|
||||||
|
.9 ldx #3
|
||||||
|
lda #'?'
|
||||||
|
.99 jsr K.StrFTime.addChar
|
||||||
|
dex
|
||||||
|
bne .99
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
K.StrFTime.D ldy #S.Time.DAY
|
||||||
|
bra K.StrFTime.addDecPtr1Y
|
||||||
|
K.StrFTime.HH ldy #S.Time.HOUR
|
||||||
|
bra K.StrFTime.addDecPtr1Y
|
||||||
|
K.StrFTime.II ldy #S.Time.HOUR
|
||||||
|
lda (ZPPtr1),y
|
||||||
|
cmp #12
|
||||||
|
bcc .1
|
||||||
|
sbc #12
|
||||||
|
.1 bra K.StrFTime.addDecA
|
||||||
|
K.StrFTime.M ldy #S.Time.MONTH
|
||||||
|
bra K.StrFTime.addDecPtr1Y
|
||||||
|
K.StrFTime.MM ldy #S.Time.MINUTE
|
||||||
|
bra K.StrFTime.addDecPtr1Y
|
||||||
|
K.StrFTime.P ldy #S.Time.HOUR
|
||||||
|
lda (ZPPtr1),y
|
||||||
|
cmp #12
|
||||||
|
bcc .1
|
||||||
|
lda #'p'
|
||||||
|
.HS 2C bit abs
|
||||||
|
.1 lda #'a'
|
||||||
|
jsr K.StrFTime.addChar
|
||||||
|
lda #'m'
|
||||||
|
bra K.StrFTime.addChar
|
||||||
|
K.StrFTime.SS ldy #S.Time.SECOND
|
||||||
|
bra K.StrFTime.addDecPtr1Y
|
||||||
|
K.StrFTime.W ldy #S.Time.WDAY
|
||||||
|
bra K.StrFTime.addDecPtr1Y
|
||||||
|
K.StrFTime.YY ldy #S.Time.CENTURY
|
||||||
|
jsr K.StrFTime.addDecPtr1Y
|
||||||
|
K.StrFTime.Y ldy #S.Time.YEAR
|
||||||
|
*--------------------------------------
|
||||||
|
K.StrFTime.addDecPtr1Y
|
||||||
|
lda (ZPPtr1),y
|
||||||
|
K.StrFTime.addDecA
|
||||||
|
sta K.StrFTime.BIN
|
||||||
|
stz K.StrFTime.DEC
|
||||||
|
|
||||||
|
sed
|
||||||
|
ldx #8
|
||||||
|
|
||||||
|
.1 asl K.StrFTime.BIN
|
||||||
|
|
||||||
|
lda K.StrFTime.DEC
|
||||||
|
adc K.StrFTime.DEC
|
||||||
|
sta K.StrFTime.DEC
|
||||||
|
|
||||||
|
dex
|
||||||
|
bne .1
|
||||||
|
|
||||||
|
cld
|
||||||
|
|
||||||
|
* lda K.StrFTime.DEC already in A
|
||||||
|
pha
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
ora #$30
|
||||||
|
jsr K.StrFTime.addChar
|
||||||
|
pla
|
||||||
|
and #$0f
|
||||||
|
ora #$30
|
||||||
|
*--------------------------------------
|
||||||
|
K.StrFTime.addChar
|
||||||
|
sta (ZPPtr3)
|
||||||
|
inc ZPPtr3
|
||||||
|
bne .8
|
||||||
|
inc ZPPtr3+1
|
||||||
|
.8 rts
|
||||||
|
*--------------------------------------
|
||||||
|
K.StrFTime.DAY >PSTR "Monday"
|
||||||
|
>PSTR "Tuesday"
|
||||||
|
>PSTR "Wednesday"
|
||||||
|
>PSTR "Thursday"
|
||||||
|
>PSTR "Friday"
|
||||||
|
>PSTR "Saturday"
|
||||||
|
>PSTR "Sunday"
|
||||||
|
*--------------------------------------
|
||||||
|
K.StrFTime.MON >PSTR "January"
|
||||||
|
>PSTR "February"
|
||||||
|
>PSTR "March"
|
||||||
|
>PSTR "April"
|
||||||
|
>PSTR "May"
|
||||||
|
>PSTR "June"
|
||||||
|
>PSTR "July"
|
||||||
|
>PSTR "August"
|
||||||
|
>PSTR "September"
|
||||||
|
>PSTR "October"
|
||||||
|
>PSTR "November"
|
||||||
|
>PSTR "December"
|
||||||
|
*--------------------------------------
|
||||||
|
K.StrFTime.BIN .BS 1
|
||||||
|
K.StrFTime.DEC .BS 1 always < 100
|
||||||
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
SAVE /A2OSX.SRC/SYS/KERNEL.S.Time
|
SAVE /A2OSX.SRC/SYS/KERNEL.S.Time
|
||||||
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user