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

428 lines
6.9 KiB
Plaintext
Raw Normal View History

Kernel 0.9.1 : ASM rewrite....new SLIST API
2018-01-19 16:21:31 +00:00
NEW
Kernel 0.93
2019-04-10 15:51:47 +00:00
AUTO 3,1
Kernel 0.9.1 : ASM rewrite....new SLIST API
2018-01-19 16:21:31 +00:00
*--------------------------------------
Kernel 0.94
2020-02-20 16:54:51 +00:00
ZPSListDataOfs .EQ ZPMEMMGR+8
Kernel 0.93+
2019-07-29 15:38:55 +00:00
ZPSListDataLen .EQ ZPMEMMGR+10
Kernel 0.94
2020-02-18 15:34:56 +00:00
*--------------------------------------
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
SLIST.Opt .BS 1
Kernel 0.94
2020-02-18 15:34:56 +00:00
SLIST.KeyLen .BS 1
SLIST.DataLen .BS 2
SLIST.nDataCnt .BS 2
SLIST.nBufCnt .BS 2
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SLIST.bStr .BS 1
SLIST.b0 .BS 1
SLIST.KeyID .BS 2
Kernel 0.94
2020-02-18 15:34:56 +00:00
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SLISTX.GetData jsr SLIST.Select
Kernel 0.94
2020-02-20 07:41:52 +00:00
Kernel 0.92+
2019-03-15 16:20:28 +00:00
jsr SLIST.SkipKey
jsr SLIST.GetDataLen
Kernel 0.93
2019-03-18 06:53:20 +00:00
Kernel 0.93
2019-03-18 16:48:16 +00:00
lda SLIST.DataLen
Kernel 0.92+
2019-03-15 16:20:28 +00:00
sec
Kernel 0.94
2020-02-20 16:54:51 +00:00
sbc ZPSListDataOfs Offset
Kernel 0.92+
2019-03-15 16:20:28 +00:00
eor #$ff
sta SLIST.nDataCnt
Kernel 0.93++
2020-01-26 19:36:49 +00:00
Kernel 0.92+
2019-03-15 16:20:28 +00:00
lda SLIST.DataLen+1
Kernel 0.94
2020-02-20 16:54:51 +00:00
sbc ZPSListDataOfs+1
Kernel 0.92+
2019-03-15 16:20:28 +00:00
eor #$ff
sta SLIST.nDataCnt+1 Data remaining
Kernel 0.93
2019-03-18 16:48:16 +00:00
Kernel 0.93+
2019-08-12 07:40:16 +00:00
bcc .99 Offset Beyond DataLen
Kernel 0.93
2019-03-18 16:48:16 +00:00
Kernel 0.94
2020-08-18 08:00:26 +00:00
lda ZPSListDataOfs Skip to Offset
Kernel 0.94
2020-02-20 16:54:51 +00:00
ldx ZPSListDataOfs+1
Kernel 0.93
2019-03-18 16:48:16 +00:00
jsr SLIST.SkipDataAX
Kernel 0.94++
2021-05-04 17:31:21 +00:00
stz SLIST.b0
Kernel 0.94
2020-08-18 08:00:26 +00:00
Kernel 0.94
2020-02-18 15:34:56 +00:00
lda FORPNT
ora FORPNT+1
Kernel 0.94
2020-08-17 13:03:39 +00:00
bne .12 buffer provided
Kernel 0.93++
2020-01-26 19:36:49 +00:00
Kernel 0.93
2019-03-18 16:48:16 +00:00
>LDYA SLIST.DataLen
Kernel 0.93++
2020-01-26 19:36:49 +00:00
Kernel 0.93+
2019-08-12 07:40:16 +00:00
iny
bne .11
inc +1 for ending 0
Kernel 0.93++
2020-01-26 19:36:49 +00:00
Kernel 0.94
2020-08-18 08:00:26 +00:00
sec
Kernel 0.94++
2021-05-04 17:31:21 +00:00
ror SLIST.b0
Kernel 0.94
2020-08-18 08:00:26 +00:00
Kernel 0.93+
2019-08-12 07:40:16 +00:00
.11 ldx #SYS.GetMem
Kernel 0.93+
2019-08-05 13:30:58 +00:00
jsr K.SYSCALL2.MAIN !!! Get a buffer In MAIN Mem !!!
Kernel 0.93
2019-03-18 16:48:16 +00:00
bcs .9
Kernel 0.94
2020-02-21 13:24:16 +00:00
stx .88+1
Kernel 0.94
2020-02-18 15:34:56 +00:00
>STYA FORPNT
Kernel 0.93
2019-03-18 16:48:16 +00:00
.12 lda ZPSListDataLen
ora ZPSListDataLen+1
Kernel 0.93
2019-03-18 06:53:20 +00:00
sec
Kernel 0.92+
2019-03-15 16:20:28 +00:00
beq .1 String Mode
Kernel 0.93++
2020-01-26 19:36:49 +00:00
Kernel 0.92+
2019-03-15 16:20:28 +00:00
lda ZPSListDataLen
eor #$ff
sta SLIST.nBufCnt
lda ZPSListDataLen+1
eor #$ff
sta SLIST.nBufCnt+1
Kernel 0.93
2019-03-18 06:53:20 +00:00
clc
Kernel 0.93++
2020-01-26 19:36:49 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
.1 ror SLIST.bStr
Kernel 0.92+
2019-03-15 16:20:28 +00:00
stz ZPSListDataLen
stz ZPSListDataLen+1
Kernel 0.93++
2020-01-26 19:36:49 +00:00
Kernel 0.92+
2019-03-15 16:20:28 +00:00
.2 inc SLIST.nDataCnt
bne .3
inc SLIST.nDataCnt+1
Kernel 0.94
2020-08-17 13:03:39 +00:00
beq .80
Kernel 0.93++
2020-01-26 19:36:49 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
.3 bit SLIST.bStr
Kernel 0.93++
2020-01-26 19:36:49 +00:00
bmi .4 String mode : until CR
inc SLIST.nBufCnt
Kernel 0.92+
2019-03-15 16:20:28 +00:00
bne .4
inc SLIST.nBufCnt+1
Kernel 0.94
2020-08-18 08:00:26 +00:00
beq .80 not string mode : until end of buffer
Kernel 0.93++
2020-01-26 19:36:49 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
.4 jsr BLISTX.GetNByte
bit SLIST.bStr
Kernel 0.92+
2019-03-15 16:20:28 +00:00
bpl .5
Kernel 0.94
2020-02-21 13:24:16 +00:00
Kernel 0.92+
2019-03-15 16:20:28 +00:00
cmp #C.CR
Kernel 0.94
2020-02-21 13:24:16 +00:00
beq .81
Kernel 0.94++
2021-05-04 17:31:21 +00:00
.5 jsr SHARED.FORPNTpn
Kernel 0.92+
2019-03-15 16:20:28 +00:00
inc ZPSListDataLen
bne .2
inc ZPSListDataLen+1
Kernel 0.9.1 : ASM rewrite....new SLIST API
2018-01-19 16:21:31 +00:00
bra .2
Kernel 0.93
2019-03-18 06:53:20 +00:00
Kernel 0.93
2019-05-12 20:45:11 +00:00
.99 lda #E.EMPTYKEY
Kernel 0.92+
2019-03-15 16:20:28 +00:00
sec
Kernel 0.93
2019-03-18 16:48:16 +00:00
.9 rts
Kernel 0.93
2019-03-18 06:53:20 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
.80 lda SLIST.bStr
ora SLIST.b0
Kernel 0.94
2020-02-21 13:24:16 +00:00
bpl .82
.81 lda #0
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr SHARED.FORPNTpn
Kernel 0.94
2020-02-21 13:24:16 +00:00
.82 >LDYA ZPSListDataLen
.88 ldx #$ff SELF MODIFIED
Kernel 0.93
2019-03-18 06:53:20 +00:00
clc
rts
Kernel 0.94
2020-02-18 15:34:56 +00:00
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SLISTX.AddData jsr SLIST.Select
Kernel 0.94
2020-02-20 07:41:52 +00:00
Kernel 0.92+
2019-03-15 16:20:28 +00:00
jsr SLIST.SkipKey
Kernel 0.9.1 : ASM rewrite....Macros
2018-01-29 16:48:07 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
ldy iByte
lda (DBlkPtr),y
Kernel 0.92+
2019-03-15 16:20:28 +00:00
pha
Kernel 0.9.1 : ASM rewrite....Macros
2018-01-29 16:48:07 +00:00
clc
Kernel 0.93
2019-03-27 17:01:01 +00:00
adc ZPSListDataLen
Kernel 0.94++
2021-05-04 17:31:21 +00:00
sta (DBlkPtr),y
Kernel 0.93
2019-03-27 17:01:01 +00:00
php
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr BLISTX.2NByte skip LEN lo
Kernel 0.93
2019-03-27 17:01:01 +00:00
plp
Kernel 0.94++
2021-05-04 17:31:21 +00:00
ldy iByte
lda (DBlkPtr),y
Kernel 0.93
2019-03-27 17:01:01 +00:00
pha
adc ZPSListDataLen+1
Kernel 0.94++
2021-05-04 17:31:21 +00:00
sta (DBlkPtr),y
jsr BLISTX.2NByte skip LEN hi
Kernel 0.93
2019-03-27 17:01:01 +00:00
plx
Kernel 0.92+
2019-03-15 16:20:28 +00:00
pla
Kernel 0.93
2019-03-27 17:01:01 +00:00
jsr SLIST.SkipDataAX
lda ZPSListDataLen
Kernel 0.92+
2019-03-15 16:20:28 +00:00
eor #$ff
sta ZPSListDataLen
lda ZPSListDataLen+1
eor #$ff
sta ZPSListDataLen+1
Kernel 0.94
2020-03-06 16:20:29 +00:00
sec
Kernel 0.92+
2019-03-15 16:20:28 +00:00
.1 inc ZPSListDataLen
bne .2
inc ZPSListDataLen+1
beq .8
Kernel 0.94
2020-03-05 16:55:02 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
.2 jsr SHARED.FORPNTgn
Kernel 0.94
2020-03-06 16:20:29 +00:00
bcc .3
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr BLISTX.SetBlkByte override ending 0, already allocated
Kernel 0.94
2020-03-06 16:20:29 +00:00
clc
bra .1
Kernel 0.94++
2021-05-04 17:31:21 +00:00
.3 jsr BLISTX.AddByte
Kernel 0.93
2019-03-18 06:53:20 +00:00
bcc .1
Kernel 0.92+
2019-03-14 16:51:02 +00:00
rts
Kernel 0.92+
2019-03-15 16:20:28 +00:00
Kernel 0.93
2019-03-18 16:48:16 +00:00
.8 lda #0
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jmp BLISTX.AddByte Add an extra 0 to stop Search here
Kernel 0.94
2020-02-18 15:34:56 +00:00
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SLISTX.SetData jsr SLIST.Select
Kernel 0.94
2020-02-20 07:41:52 +00:00
Kernel 0.93
2019-03-18 16:48:16 +00:00
jsr SLIST.SkipKey
jsr SLIST.GetDataLen
lda SLIST.DataLen
cmp ZPSListDataLen
bne .9
ldx SLIST.DataLen+1
cpx ZPSListDataLen+1
bne .9
eor #$ff
sta SLIST.nDataCnt
txa
eor #$ff
sta SLIST.nDataCnt+1
Kernel 0.94
2020-03-06 16:20:29 +00:00
Kernel 0.93
2019-03-18 16:48:16 +00:00
.1 inc SLIST.nDataCnt
bne .2
Kernel 0.94
2020-03-06 16:20:29 +00:00
Kernel 0.93
2019-03-18 16:48:16 +00:00
inc SLIST.nDataCnt+1
beq .8
Kernel 0.94
2020-03-06 16:20:29 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
.2 jsr SHARED.FORPNTgn
jsr BLISTX.SetBlkByte
Kernel 0.93
2019-03-18 16:48:16 +00:00
bra .1
.8 clc
rts
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
Kernel 0.93
2019-03-18 16:48:16 +00:00
.9 lda #E.DATALEN
sec
Kernel 0.92+
2019-03-13 16:29:24 +00:00
rts
Kernel 0.94
2020-02-18 15:34:56 +00:00
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SLISTX.GetByID jsr SLIST.Select
Kernel 0.9.1 : ASM rewrite....Symbols DB
2018-01-24 16:24:06 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr BLISTX.GetNByte
Kernel 0.9.1 : ASM rewrite....new SLIST API
2018-01-19 16:21:31 +00:00
tax
Kernel 0.9.1 : ASM rewrite....Symbols DB
2018-01-24 16:24:06 +00:00
beq .9
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.9.1 : KERNEL, better SList API for Symbol Dump
2018-03-30 15:21:42 +00:00
ldy #0
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.93
2019-03-21 07:07:38 +00:00
.1 phy
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr BLISTX.GetNByte
Kernel 0.93
2019-03-21 07:07:38 +00:00
ply
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr SHARED.FORPNTpn
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.9.1 : KERNEL, better SList API for Symbol Dump
2018-03-30 15:21:42 +00:00
iny
Kernel 0.9.1 : ASM rewrite....new SLIST API
2018-01-19 16:21:31 +00:00
dex
bne .1
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.93
2019-03-18 16:48:16 +00:00
txa lda #0
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr SHARED.FORPNTpn
Kernel 0.93
2019-03-18 16:48:16 +00:00
jsr SLIST.SkipData
Kernel 0.94++
2021-05-04 17:31:21 +00:00
>LDYA KeyID
Kernel 0.93
2019-03-18 16:48:16 +00:00
clc
rts
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.93
2019-03-18 16:48:16 +00:00
.9 lda #E.NOKEY
sec
Kernel 0.9.1 : ASM rewrite....new SLIST API
2018-01-19 16:21:31 +00:00
rts
Kernel 0.94
2020-02-18 15:34:56 +00:00
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SLISTX.NewKey jsr SLIST.Search
Kernel 0.92+
2019-03-14 16:51:02 +00:00
bcc .99
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
>LDYA KeyID
>STYA SLIST.KeyID End of list
Kernel 0.94
2020-03-05 16:55:02 +00:00
Kernel 0.92+
2019-03-14 16:51:02 +00:00
lda SLIST.KeyLen
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr BLISTX.SetBlkByte override ending 0, already allocated
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.92+
2019-03-14 16:51:02 +00:00
ldy #0
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
.1 jsr SHARED.TXTPTRgY
jsr BLISTX.AddByte
Kernel 0.92+
2019-03-14 16:51:02 +00:00
bcs .9
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.92+
2019-03-14 16:51:02 +00:00
iny
cpy SLIST.KeyLen
bne .1
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.94
2020-03-06 16:20:29 +00:00
lda #0 Data Len lo = 0
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr BLISTX.AddByte
Kernel 0.92+
2019-03-14 16:51:02 +00:00
bcs .9
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.94
2020-03-06 16:20:29 +00:00
lda #0 Data Len hi = 0
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr BLISTX.AddByte
Kernel 0.92+
2019-03-14 16:51:02 +00:00
bcs .9
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.94
2020-03-06 16:20:29 +00:00
lda #0 Ending Len = 0
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr BLISTX.AddByte
Kernel 0.93
2019-03-27 17:01:01 +00:00
bcs .9
Kernel 0.94++
2021-05-04 17:31:21 +00:00
>LDYA SLIST.KeyID
Kernel 0.93
2019-03-19 16:52:08 +00:00
ldx SLIST.KeyLen
Kernel 0.94
2020-02-18 15:34:56 +00:00
* clc
Kernel 0.92+
2019-03-13 16:29:24 +00:00
rts
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.93
2019-04-09 15:47:33 +00:00
.99 lda #E.DUPKEY
Kernel 0.92+
2019-03-14 16:51:02 +00:00
sec
Kernel 0.93+
2019-10-03 06:25:27 +00:00
.9 rts
Kernel 0.94
2020-02-18 15:34:56 +00:00
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SLISTX.Lookup jsr SLIST.Search
Kernel 0.92+
2019-03-13 16:29:24 +00:00
bcs .9
Kernel 0.92+
2019-03-14 16:51:02 +00:00
ldx SLIST.KeyLen
Kernel 0.92+
2019-03-13 16:29:24 +00:00
.9 rts
Kernel 0.94
2020-02-18 15:34:56 +00:00
*--------------------------------------
Kernel 0.92+
2019-03-14 16:51:02 +00:00
* PRIVATE
Kernel 0.93+
2019-07-29 15:38:55 +00:00
*--------------------------------------
Kernel 0.94
2020-02-20 16:54:51 +00:00
SLIST.Search jsr K.GetMemPtr
Kernel 0.94++
2021-05-04 17:31:21 +00:00
>STYA IBlkPtr
Kernel 0.9.1 : ASM rewrite....new SLIST API
2018-01-19 16:21:31 +00:00
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
lda (IBlkPtr)
sta SLIST.Opt
stz iByte
ldy #1
sty iBlk
lda (IBlkPtr),y
Kernel 0.9.2
2018-06-21 15:12:10 +00:00
jsr K.GetMemPtr
Kernel 0.94++
2021-05-04 17:31:21 +00:00
>STYA DBlkPtr
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.92+
2019-03-14 16:51:02 +00:00
ldy #$ff
Kernel 0.9.1 : ASM rewrite, SLIST Debugging
2018-01-25 16:13:28 +00:00
Kernel 0.92+
2019-03-14 16:51:02 +00:00
.1 iny
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr SHARED.TXTPTRgY
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
beq .2
Kernel 0.94
2020-02-20 07:41:52 +00:00
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
jsr SLIST.IsIDValid
Kernel 0.92+
2019-03-14 16:51:02 +00:00
bcc .1
Kernel 0.94
2020-02-18 15:34:56 +00:00
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
.2 sty SLIST.KeyLen
Kernel 0.94
2020-02-18 15:34:56 +00:00
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
.3 >LDYA KeyID
Kernel 0.94++
2021-05-04 17:31:21 +00:00
>STYA SLIST.KeyID
Kernel 0.94
2020-02-20 16:54:51 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
ldy iByte
lda (DBlkPtr),y
Kernel 0.93
2019-03-18 16:48:16 +00:00
beq .9
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.93
2019-03-18 06:53:20 +00:00
cmp SLIST.KeyLen
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
bne .6
Kernel 0.94
2020-02-20 07:41:52 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr BLISTX.GetNByte Skip Len
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.92+
2019-03-14 16:51:02 +00:00
ldy #0
Kernel 0.94
2020-02-18 15:34:56 +00:00
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
.4 phy
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr BLISTX.GetNByte
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
sta .5+1
Kernel 0.93
2019-03-18 06:53:20 +00:00
ply
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr SHARED.TXTPTRgY
Kernel 0.94
2020-02-18 15:34:56 +00:00
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
.5 cmp #$ff SELF MODIFIED
bne .6
Kernel 0.92+
2019-03-14 16:51:02 +00:00
iny
cpy SLIST.KeyLen
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
bne .4
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
>LDYA SLIST.KeyID
Kernel 0.92+
2019-03-14 16:51:02 +00:00
clc
rts
Kernel 0.94
2020-02-18 15:34:56 +00:00
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
.6 >LDYA SLIST.KeyID
Kernel 0.94
2020-02-20 07:41:52 +00:00
jsr SLIST.Select.I move back...
Kernel 0.93
2019-03-19 07:26:14 +00:00
jsr SLIST.Next
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
bra .3
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.92+
2019-03-14 16:51:02 +00:00
.9 lda #E.NOKEY
sec
Kernel 0.9.1 : ASM rewrite....new SLIST API
2018-01-19 16:21:31 +00:00
rts
*--------------------------------------
Kernel 0.94
2020-02-20 16:54:51 +00:00
SLIST.Select jsr K.GetMemPtr
Kernel 0.94++
2021-05-04 17:31:21 +00:00
>STYA IBlkPtr
Kernel 0.93
2019-03-28 16:48:22 +00:00
Kernel 0.94
2020-02-20 07:41:52 +00:00
>LDYA TXTPTR
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SLIST.Select.I >STYA KeyID
Kernel 0.94
2020-02-20 07:41:52 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
ldy iBlk
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.94++
2021-05-04 17:31:21 +00:00
lda (IBlkPtr),y
Kernel 0.93
2019-03-28 16:48:22 +00:00
jsr K.GetMemPtr
Kernel 0.94++
2021-05-04 17:31:21 +00:00
>STYA DBlkPtr
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.93
2019-03-28 16:48:22 +00:00
rts
*--------------------------------------
Kernel 0.92+
2019-03-15 16:20:28 +00:00
SLIST.Next jsr SLIST.SkipKey
SLIST.SkipData jsr SLIST.GetDataLen
Kernel 0.93
2019-03-27 17:01:01 +00:00
Kernel 0.92+
2019-03-15 16:20:28 +00:00
lda SLIST.DataLen
ldx SLIST.DataLen+1
Kernel 0.93+
2019-10-03 06:25:27 +00:00
SLIST.SkipDataAX
Kernel 0.92+
2019-03-15 16:20:28 +00:00
clc
Kernel 0.94++
2021-05-04 17:31:21 +00:00
adc iByte
sta iByte
Kernel 0.92+
2019-03-15 16:20:28 +00:00
txa
Kernel 0.94++
2021-05-04 17:31:21 +00:00
adc iBlk
sta iBlk
Kernel 0.93
2019-03-18 06:53:20 +00:00
tay
Kernel 0.94++
2021-05-04 17:31:21 +00:00
lda (IBlkPtr),y
Kernel 0.92+
2019-03-15 16:20:28 +00:00
jsr K.GetMemPtr
Kernel 0.94++
2021-05-04 17:31:21 +00:00
>STYA DBlkPtr
Kernel 0.92+
2019-03-15 16:20:28 +00:00
rts
Kernel 0.92+
2019-03-14 16:51:02 +00:00
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SLIST.SkipKey ldy iByte
lda (DBlkPtr),y Get KeyLen
Kernel 0.92+
2019-03-15 16:20:28 +00:00
sec
Kernel 0.94++
2021-05-04 17:31:21 +00:00
adc iByte
sta iByte
bcc .8
jmp BLISTX.2NBlk
Kernel 0.92+
2019-03-15 16:20:28 +00:00
.8 rts
*--------------------------------------
SLIST.GetDataLen
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr BLISTX.GetNByte Get DataLenLo
Kernel 0.92+
2019-03-15 16:20:28 +00:00
sta SLIST.DataLen
Kernel 0.94++
2021-05-04 17:31:21 +00:00
jsr BLISTX.GetNByte Get DataLenHI
Kernel 0.92+
2019-03-15 16:20:28 +00:00
sta SLIST.DataLen+1
rts
*--------------------------------------
KERNEL: modification for CC (Slist API) updated FORTH,SH, CSH, SM.... KERNEL: modification for Softcard //e (may help...or not) KERNEL: bugfix for VS/VE drive detetcion and report on KCONFIG CC: some progress on STRUCT & UNION SHARED/PrintF: removed support for /n..... (now in S-C MASM3.1 & A2osX-ASM)
2022-09-17 11:35:52 +00:00
SLIST.IsIDValid bit SLIST.Opt
bpl .2
cmp #'.'
beq .8
.1 bit SLIST.Opt
.2 bvc .3
cmp #'_'
beq .8
.3 jmp SHARED.IsDigitOrL
.8 clc
rts
*--------------------------------------
Kernel 0.9.1 : ASM rewrite....new SLIST API
2018-01-19 16:21:31 +00:00
MAN
Kernel 0.94+
2020-12-15 13:23:22 +00:00
SAVE usr/src/sys/kernel.s.slistx
LOAD usr/src/sys/kernel.s
Kernel 0.9.1 : ASM rewrite....new SLIST API
2018-01-19 16:21:31 +00:00
ASM