2017-12-22 21:24:30 +00:00
|
|
|
|
NEW
|
2019-05-25 19:24:07 +00:00
|
|
|
|
AUTO 3,1
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*--------------------------------------
|
2016-08-17 06:25:58 +00:00
|
|
|
|
ZPMemMgrSPtr .EQ ZPMEMMGR Pointer To Slot selected
|
|
|
|
|
ZPMemMgrTmp1 .EQ ZPMEMMGR+2
|
2018-05-04 14:55:29 +00:00
|
|
|
|
ZPMemMgrSize .EQ ZPMEMMGR+4
|
2016-10-25 06:58:15 +00:00
|
|
|
|
*/--------------------------------------
|
2018-06-18 06:22:50 +00:00
|
|
|
|
* # GetMem0
|
2017-06-28 14:34:11 +00:00
|
|
|
|
* Y,A = Size Requested
|
2018-10-11 15:23:06 +00:00
|
|
|
|
* ## RETURN VALUE
|
2017-06-28 14:34:11 +00:00
|
|
|
|
* CC : success
|
2017-07-06 15:30:40 +00:00
|
|
|
|
* YA = PTR to Mem (ZERO Initialised)
|
2017-06-28 14:34:11 +00:00
|
|
|
|
* X = hMem
|
|
|
|
|
* CS :
|
|
|
|
|
* A = EC
|
2019-01-21 14:51:10 +00:00
|
|
|
|
*\--------------------------------------
|
|
|
|
|
MEM.ReqFlags .BS 1 store requested Flags
|
|
|
|
|
MEM.BestSlot .BS 1
|
2019-02-01 20:01:54 +00:00
|
|
|
|
*MEM.BestScore .BS 2
|
|
|
|
|
MEM.BestScore .EQ ZPMemMgrTmp1
|
2019-01-21 14:51:10 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-18 06:22:50 +00:00
|
|
|
|
K.GetMem0 ldx #S.MEM.F.INIT0
|
2017-12-07 16:33:39 +00:00
|
|
|
|
.HS 2C bit abs
|
2017-07-06 15:30:40 +00:00
|
|
|
|
*/--------------------------------------
|
2018-06-18 06:22:50 +00:00
|
|
|
|
* # GetMem
|
2017-07-06 15:30:40 +00:00
|
|
|
|
* Y,A = Size Requested
|
2018-10-11 15:23:06 +00:00
|
|
|
|
* ## RETURN VALUE
|
2017-07-06 15:30:40 +00:00
|
|
|
|
* CC : success
|
|
|
|
|
* YA = PTR to Mem (Uninitialised)
|
|
|
|
|
* X = hMem
|
|
|
|
|
* CS :
|
|
|
|
|
* A = EC
|
|
|
|
|
*\--------------------------------------
|
2018-06-18 06:22:50 +00:00
|
|
|
|
K.GetMem ldx #0
|
2017-10-09 05:51:32 +00:00
|
|
|
|
|
2019-01-21 14:51:10 +00:00
|
|
|
|
MEM.GetMem.YAX stx MEM.ReqFlags
|
2018-05-04 14:55:29 +00:00
|
|
|
|
sta ZPMemMgrSize+1
|
2017-12-07 16:33:39 +00:00
|
|
|
|
|
|
|
|
|
tya
|
2019-01-17 20:43:29 +00:00
|
|
|
|
bit #K.MEM.ALIGN-1 aligned ?
|
2017-10-09 05:51:32 +00:00
|
|
|
|
beq .10 yes, request it
|
2017-06-28 14:34:11 +00:00
|
|
|
|
|
2019-01-17 20:43:29 +00:00
|
|
|
|
and #K.MEM.nALIGNm1 align on boundary
|
2017-06-28 14:34:11 +00:00
|
|
|
|
clc
|
2019-01-17 20:43:29 +00:00
|
|
|
|
adc #K.MEM.ALIGN
|
2017-10-09 05:51:32 +00:00
|
|
|
|
bcc .10
|
2018-05-04 14:55:29 +00:00
|
|
|
|
inc ZPMemMgrSize+1
|
2017-06-28 14:34:11 +00:00
|
|
|
|
|
2018-05-04 14:55:29 +00:00
|
|
|
|
.10 sta ZPMemMgrSize
|
2017-06-28 14:34:11 +00:00
|
|
|
|
|
2017-10-27 06:36:46 +00:00
|
|
|
|
>LDYAI Mem.Table
|
2015-06-03 18:30:57 +00:00
|
|
|
|
>STYA ZPMemMgrSPtr
|
|
|
|
|
|
2019-01-21 14:51:10 +00:00
|
|
|
|
stz MEM.BestSlot
|
|
|
|
|
ldx #$ff
|
|
|
|
|
stx MEM.BestScore
|
|
|
|
|
stx MEM.BestScore+1
|
|
|
|
|
|
2015-06-03 18:30:57 +00:00
|
|
|
|
ldx #0 Current slot=0
|
2015-03-15 22:00:40 +00:00
|
|
|
|
|
2016-10-07 15:28:17 +00:00
|
|
|
|
bra .4 skip slot 0, Check if some free slot to reuse first
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
|
|
|
|
.1 inx move to next slot
|
2017-10-27 06:36:46 +00:00
|
|
|
|
jsr Mem.NextSlot
|
2015-03-14 21:48:35 +00:00
|
|
|
|
lda (ZPMemMgrSPtr) Get Flags
|
|
|
|
|
bmi .4 in use ?
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2019-01-21 14:51:10 +00:00
|
|
|
|
.2 lda MEM.ReqFlags Found an empty slot
|
2015-03-14 21:48:35 +00:00
|
|
|
|
and #S.MEM.F.ALIGN is request needs a page align ?
|
|
|
|
|
beq .3
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2015-03-14 21:48:35 +00:00
|
|
|
|
ldy #S.MEM.PTR
|
|
|
|
|
lda (ZPMemMgrSPtr),y get LO of PTR
|
|
|
|
|
bne .4 not page-aligned
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2015-03-14 21:48:35 +00:00
|
|
|
|
.3 ldy #S.MEM.LEN
|
2019-01-21 14:51:10 +00:00
|
|
|
|
sec
|
2015-03-14 21:48:35 +00:00
|
|
|
|
lda (ZPMemMgrSPtr),y get LEN of this block
|
2019-01-21 14:51:10 +00:00
|
|
|
|
sbc ZPMemMgrSize compare with requested size
|
|
|
|
|
pha
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2015-03-14 21:48:35 +00:00
|
|
|
|
iny
|
|
|
|
|
lda (ZPMemMgrSPtr),y
|
2019-01-21 14:51:10 +00:00
|
|
|
|
sbc ZPMemMgrSize+1
|
|
|
|
|
ply Y,A = SlotLen - ReqSize
|
|
|
|
|
|
|
|
|
|
bcc .4 req size > slot size
|
|
|
|
|
|
|
|
|
|
cpy MEM.BestScore
|
|
|
|
|
pha
|
|
|
|
|
sbc MEM.BestScore+1
|
|
|
|
|
pla
|
|
|
|
|
bcs .4 Delta is >= BestScore
|
|
|
|
|
|
|
|
|
|
bne .4 Delta is > 255...
|
|
|
|
|
|
|
|
|
|
sty MEM.BestScore
|
|
|
|
|
sta MEM.BestScore+1
|
|
|
|
|
stx MEM.BestSlot
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2017-10-27 06:36:46 +00:00
|
|
|
|
.4 cpx Mem.LastSlot any other slot to check?
|
2015-06-03 18:30:57 +00:00
|
|
|
|
bne .1 last one, create a new slot
|
2016-10-07 15:28:17 +00:00
|
|
|
|
|
2019-01-21 14:51:10 +00:00
|
|
|
|
lda MEM.BestSlot
|
|
|
|
|
beq .5
|
|
|
|
|
|
|
|
|
|
tax
|
2019-01-30 06:20:13 +00:00
|
|
|
|
jsr MEM.GetMemByID
|
2019-01-21 14:51:10 +00:00
|
|
|
|
|
|
|
|
|
bra .7
|
|
|
|
|
|
2015-06-03 18:30:57 +00:00
|
|
|
|
*-------------- Create a New SLOT
|
2018-08-20 15:15:37 +00:00
|
|
|
|
|
2019-01-21 14:51:10 +00:00
|
|
|
|
.5 lda MEM.ReqFlags
|
2015-06-03 18:30:57 +00:00
|
|
|
|
and #S.MEM.F.ALIGN is request needs a page align ?
|
|
|
|
|
beq .6
|
|
|
|
|
|
2017-10-27 06:36:46 +00:00
|
|
|
|
lda Mem.Free target PTR will be page aligned ?
|
2015-06-03 18:30:57 +00:00
|
|
|
|
sec
|
2018-05-04 14:55:29 +00:00
|
|
|
|
sbc ZPMemMgrSize
|
2015-06-03 18:30:57 +00:00
|
|
|
|
beq .6 yes, allocate
|
|
|
|
|
|
|
|
|
|
tay no, reserve a free slot to fill gap
|
|
|
|
|
lda #0
|
2017-11-22 16:27:50 +00:00
|
|
|
|
jsr Mem.AddSlot X = new slot
|
2015-06-03 18:30:57 +00:00
|
|
|
|
bcs .9
|
|
|
|
|
|
2018-08-21 13:12:47 +00:00
|
|
|
|
lda #S.MEM.F.ALIGN Make sure marked FREE
|
|
|
|
|
sta (ZPMemMgrSPtr)
|
|
|
|
|
|
2018-05-04 14:55:29 +00:00
|
|
|
|
.6 >LDYA ZPMemMgrSize
|
2017-11-22 16:27:50 +00:00
|
|
|
|
jsr Mem.AddSlot X = new slot
|
2015-06-03 18:30:57 +00:00
|
|
|
|
bcs .9
|
2016-10-07 15:28:17 +00:00
|
|
|
|
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*-------------- Reuse this SLOT
|
2017-11-22 16:27:50 +00:00
|
|
|
|
|
2019-01-21 14:51:10 +00:00
|
|
|
|
.7 lda MEM.ReqFlags get requested flags
|
2015-03-14 21:48:35 +00:00
|
|
|
|
ora #S.MEM.F.INUSE mark as in use
|
|
|
|
|
sta (ZPMemMgrSPtr)
|
2015-03-15 22:00:40 +00:00
|
|
|
|
|
2015-06-03 18:30:57 +00:00
|
|
|
|
and #S.MEM.F.INIT0
|
|
|
|
|
beq .8
|
2016-11-01 21:34:29 +00:00
|
|
|
|
|
2017-11-22 16:27:50 +00:00
|
|
|
|
ldy #S.MEM.PTR
|
|
|
|
|
lda (ZPMemMgrSPtr),y ZPMemMgrSPtr already set
|
|
|
|
|
sta .12+1
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPMemMgrSPtr),y
|
|
|
|
|
sta .12+2
|
|
|
|
|
|
2018-05-04 14:55:29 +00:00
|
|
|
|
lda ZPMemMgrSize
|
2017-11-22 16:27:50 +00:00
|
|
|
|
eor #$ff
|
|
|
|
|
tay y=not lo count
|
|
|
|
|
|
2018-05-04 14:55:29 +00:00
|
|
|
|
lda ZPMemMgrSize+1
|
2017-11-22 16:27:50 +00:00
|
|
|
|
eor #$ff a=not hi count
|
|
|
|
|
|
|
|
|
|
phx
|
|
|
|
|
|
|
|
|
|
ldx #0
|
|
|
|
|
|
|
|
|
|
.11 iny
|
|
|
|
|
bne .12
|
|
|
|
|
inc
|
|
|
|
|
beq .13
|
|
|
|
|
|
|
|
|
|
.12 stz $ffff,x
|
|
|
|
|
inx
|
|
|
|
|
bne .11
|
|
|
|
|
|
|
|
|
|
inc .12+2
|
|
|
|
|
bra .11
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2017-11-22 16:27:50 +00:00
|
|
|
|
.13 plx
|
|
|
|
|
|
2015-06-03 18:30:57 +00:00
|
|
|
|
.8 lda #0
|
2015-03-14 21:48:35 +00:00
|
|
|
|
ldy #S.MEM.BIN
|
|
|
|
|
sta (ZPMemMgrSPtr),y
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
|
|
|
|
inc Mark this slot used by one process
|
2015-03-14 21:48:35 +00:00
|
|
|
|
ldy #S.MEM.REFCNT
|
|
|
|
|
sta (ZPMemMgrSPtr),y
|
2015-03-15 22:00:40 +00:00
|
|
|
|
|
2016-10-29 19:58:21 +00:00
|
|
|
|
ldy #S.PS.PID
|
2015-06-03 18:30:57 +00:00
|
|
|
|
lda (pPs),y
|
2015-03-14 21:48:35 +00:00
|
|
|
|
ldy #S.MEM.OWNERPID
|
|
|
|
|
sta (ZPMemMgrSPtr),y
|
2018-12-20 16:23:43 +00:00
|
|
|
|
clc
|
2019-02-03 21:58:26 +00:00
|
|
|
|
jmp MEM.GetMEMPTR
|
2018-12-20 16:23:43 +00:00
|
|
|
|
* A = HI PTR,Y = LO PTR,X = Current hMem
|
2015-03-15 22:00:40 +00:00
|
|
|
|
|
2017-06-28 14:34:11 +00:00
|
|
|
|
.9 rts
|
2015-06-03 18:30:57 +00:00
|
|
|
|
*--------------------------------------
|
2017-10-27 06:36:46 +00:00
|
|
|
|
* Mem.AddSlot
|
2015-06-03 18:30:57 +00:00
|
|
|
|
* In:
|
|
|
|
|
* Y,A = Requested size
|
|
|
|
|
* Out:
|
|
|
|
|
*--------------------------------------
|
2017-10-27 14:56:46 +00:00
|
|
|
|
Mem.AddSlot >STYA ZPMemMgrTmp1 save req size
|
2018-08-11 10:57:57 +00:00
|
|
|
|
ldx Mem.LastSlot
|
2015-06-03 18:30:57 +00:00
|
|
|
|
inx
|
|
|
|
|
beq .99 > 255 ERR:OUT OF SLOT
|
|
|
|
|
|
2017-10-27 06:36:46 +00:00
|
|
|
|
lda Mem.Free Compute base PTR=FREE-REQ size
|
2015-03-14 21:48:35 +00:00
|
|
|
|
sec
|
2015-06-03 18:30:57 +00:00
|
|
|
|
sbc ZPMemMgrTmp1
|
2017-10-27 06:36:46 +00:00
|
|
|
|
tay save new Mem.Free LO
|
|
|
|
|
lda Mem.Free+1
|
2015-06-03 18:30:57 +00:00
|
|
|
|
sbc ZPMemMgrTmp1+1
|
2017-10-27 06:36:46 +00:00
|
|
|
|
pha save new Mem.Free HI
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2017-10-27 06:36:46 +00:00
|
|
|
|
cpy Mem.LoMem
|
|
|
|
|
sbc Mem.LoMem+1
|
2015-06-03 18:30:57 +00:00
|
|
|
|
bcc .98 ERR out of mem
|
|
|
|
|
|
2017-10-27 06:36:46 +00:00
|
|
|
|
jsr Mem.NextSlot X,Y unmodified
|
2016-10-03 15:59:36 +00:00
|
|
|
|
|
2017-10-27 06:36:46 +00:00
|
|
|
|
tya get back Mem.Free LO
|
2015-03-15 22:00:40 +00:00
|
|
|
|
|
2015-06-03 18:30:57 +00:00
|
|
|
|
ldy #S.MEM.PTR
|
2017-10-27 06:36:46 +00:00
|
|
|
|
sta Mem.Free set as system Mem.Free value
|
2018-08-11 10:57:57 +00:00
|
|
|
|
sta (ZPMemMgrSPtr),y store it as base address of new slot
|
2015-06-03 18:30:57 +00:00
|
|
|
|
iny
|
2017-10-27 06:36:46 +00:00
|
|
|
|
pla get back Mem.Free HI
|
|
|
|
|
sta Mem.Free+1
|
2015-03-14 21:48:35 +00:00
|
|
|
|
sta (ZPMemMgrSPtr),y
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
lda ZPMemMgrTmp1 get requested size
|
|
|
|
|
sta (ZPMemMgrSPtr),y setup slot LEN
|
|
|
|
|
iny
|
|
|
|
|
lda ZPMemMgrTmp1+1
|
2015-03-14 21:48:35 +00:00
|
|
|
|
sta (ZPMemMgrSPtr),y
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2017-10-27 06:36:46 +00:00
|
|
|
|
stx Mem.LastSlot mark this slot allocated
|
2015-03-14 21:48:35 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2017-10-27 06:36:46 +00:00
|
|
|
|
.98 pla discard new Mem.Free HI
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2018-10-21 20:54:07 +00:00
|
|
|
|
.99 lda #E.OOM
|
2015-06-03 18:30:57 +00:00
|
|
|
|
sec
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-12-20 16:23:43 +00:00
|
|
|
|
MEM.NextSlot lda ZPMemMgrSPtr
|
2015-06-03 18:30:57 +00:00
|
|
|
|
clc
|
2016-10-03 15:59:36 +00:00
|
|
|
|
adc #S.MEM
|
2015-06-03 18:30:57 +00:00
|
|
|
|
sta ZPMemMgrSPtr
|
|
|
|
|
bcc .8
|
|
|
|
|
inc ZPMemMgrSPtr+1
|
|
|
|
|
.8 rts
|
2016-10-25 06:58:15 +00:00
|
|
|
|
*/--------------------------------------
|
2018-06-18 06:22:50 +00:00
|
|
|
|
* # FreeMem
|
2015-03-14 21:48:35 +00:00
|
|
|
|
* A = hMem To Free
|
2018-10-11 15:23:06 +00:00
|
|
|
|
* ## RETURN VALUE
|
2016-10-25 06:58:15 +00:00
|
|
|
|
* none.
|
2018-08-21 13:12:47 +00:00
|
|
|
|
* (X unmodified)
|
2016-10-25 06:58:15 +00:00
|
|
|
|
*\--------------------------------------
|
2019-02-11 16:44:56 +00:00
|
|
|
|
K.FreeMem.MSG .AZ "FreeMem:hMem=$%h,PID=%d\r\n"
|
2018-11-26 16:36:55 +00:00
|
|
|
|
*--------------------------------------
|
2019-02-11 16:44:56 +00:00
|
|
|
|
K.FreeMem.ERR phx
|
2018-11-28 14:58:42 +00:00
|
|
|
|
|
2019-02-03 21:58:26 +00:00
|
|
|
|
phy hMem n Y
|
2019-02-11 16:44:56 +00:00
|
|
|
|
ldy #S.PS.PID
|
2018-11-26 16:36:55 +00:00
|
|
|
|
lda (pPS),y
|
2019-02-11 16:44:56 +00:00
|
|
|
|
>PUSHA
|
2018-10-17 15:31:29 +00:00
|
|
|
|
|
2018-11-26 16:36:55 +00:00
|
|
|
|
pla
|
|
|
|
|
>PUSHA
|
2016-10-03 15:59:36 +00:00
|
|
|
|
|
2019-02-11 16:44:56 +00:00
|
|
|
|
>PUSHBI 2
|
|
|
|
|
>LDYAI K.FreeMem.MSG
|
2018-11-28 14:58:42 +00:00
|
|
|
|
|
2019-05-04 21:13:50 +00:00
|
|
|
|
.1 ldx #SYS.printf
|
2019-05-12 20:45:11 +00:00
|
|
|
|
jsr K.SYSCALL2.BANK
|
2018-12-20 07:33:10 +00:00
|
|
|
|
plx
|
2019-06-07 15:02:51 +00:00
|
|
|
|
lda #E.INVH
|
|
|
|
|
>DEBUG
|
2018-11-26 16:36:55 +00:00
|
|
|
|
sec
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
K.FreeMem tay
|
2019-02-11 16:44:56 +00:00
|
|
|
|
beq K.FreeMem.ERR Slot=0, reserved by Kernel
|
2018-11-26 16:36:55 +00:00
|
|
|
|
|
2018-08-20 15:15:37 +00:00
|
|
|
|
cmp Mem.LastSlot
|
|
|
|
|
bcc .10
|
2019-02-11 16:44:56 +00:00
|
|
|
|
bne K.FreeMem.ERR
|
2018-08-20 15:15:37 +00:00
|
|
|
|
|
2019-02-03 21:58:26 +00:00
|
|
|
|
.10 jsr MEM.GetMemByID X,Y unmodified
|
2018-11-28 14:58:42 +00:00
|
|
|
|
lda (ZPMemMgrSPtr) In use ?
|
2019-02-11 16:44:56 +00:00
|
|
|
|
bpl K.FreeMem.ERR
|
2018-11-28 14:58:42 +00:00
|
|
|
|
|
2019-02-03 21:58:26 +00:00
|
|
|
|
ldy #S.MEM.REFCNT
|
|
|
|
|
lda (ZPMemMgrSPtr),y
|
|
|
|
|
dec
|
|
|
|
|
sta (ZPMemMgrSPtr),y only one left ?
|
2015-06-03 18:30:57 +00:00
|
|
|
|
bne .8 no, must be a code segment loaded several times
|
2015-03-14 21:48:35 +00:00
|
|
|
|
|
2018-08-21 13:12:47 +00:00
|
|
|
|
lda (ZPMemMgrSPtr)
|
|
|
|
|
and #S.MEM.F.CODE CS: Any BINPATH to discard ?
|
|
|
|
|
sta (ZPMemMgrSPtr) Mark as FREE
|
2015-06-03 18:30:57 +00:00
|
|
|
|
beq .1
|
2015-03-14 21:48:35 +00:00
|
|
|
|
|
2018-08-21 13:12:47 +00:00
|
|
|
|
ldy #S.MEM.BIN
|
|
|
|
|
lda (ZPMemMgrSPtr),y
|
|
|
|
|
|
2019-01-30 06:20:13 +00:00
|
|
|
|
jsr MEM.GetMemByID X unmodified
|
2015-03-14 21:48:35 +00:00
|
|
|
|
lda (ZPMemMgrSPtr)
|
2015-06-03 18:30:57 +00:00
|
|
|
|
bpl * ***MUST BE ALLOCATED***
|
2015-03-14 21:48:35 +00:00
|
|
|
|
|
2015-06-03 18:30:57 +00:00
|
|
|
|
lda #0 mark BINPATH slot as free
|
2015-03-14 21:48:35 +00:00
|
|
|
|
sta (ZPMemMgrSPtr)
|
|
|
|
|
|
2017-10-27 06:36:46 +00:00
|
|
|
|
.1 lda Mem.LastSlot
|
2015-06-03 18:30:57 +00:00
|
|
|
|
beq .8
|
|
|
|
|
|
2019-01-30 06:20:13 +00:00
|
|
|
|
jsr MEM.GetMemByID X unmodified
|
2015-03-14 21:48:35 +00:00
|
|
|
|
lda (ZPMemMgrSPtr)
|
2017-10-09 05:51:32 +00:00
|
|
|
|
bmi .8 used, exit
|
|
|
|
|
|
2017-10-27 06:36:46 +00:00
|
|
|
|
.2 dec Mem.LastSlot free! get previous....
|
2018-08-21 13:12:47 +00:00
|
|
|
|
beq .80 empty list: go set Mem.Free=Mem.HiMem
|
2017-10-09 05:51:32 +00:00
|
|
|
|
|
2017-10-27 06:36:46 +00:00
|
|
|
|
lda Mem.LastSlot
|
2019-01-30 06:20:13 +00:00
|
|
|
|
jsr MEM.GetMemByID X unmodified
|
2017-10-09 05:51:32 +00:00
|
|
|
|
lda (ZPMemMgrSPtr)
|
|
|
|
|
bpl .2 free again! loop
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2017-10-09 05:51:32 +00:00
|
|
|
|
ldy #S.MEM.PTR
|
2017-10-27 06:36:46 +00:00
|
|
|
|
lda (ZPMemMgrSPtr),y set Mem.Free...
|
|
|
|
|
sta Mem.Free
|
2015-03-14 21:48:35 +00:00
|
|
|
|
iny
|
|
|
|
|
lda (ZPMemMgrSPtr),y
|
2017-10-27 06:36:46 +00:00
|
|
|
|
sta Mem.Free+1
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2018-08-21 13:12:47 +00:00
|
|
|
|
.8 clc
|
2015-03-14 21:48:35 +00:00
|
|
|
|
rts
|
2017-10-09 05:51:32 +00:00
|
|
|
|
|
2018-08-21 13:12:47 +00:00
|
|
|
|
.80 >LDYA Mem.HiMem
|
2017-10-27 06:36:46 +00:00
|
|
|
|
>STYA Mem.Free
|
2018-08-21 13:12:47 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
2016-10-25 06:58:15 +00:00
|
|
|
|
*/--------------------------------------
|
2018-06-18 06:22:50 +00:00
|
|
|
|
* # GetMemPtr
|
2018-08-21 13:12:47 +00:00
|
|
|
|
* A = hMem
|
2018-10-11 15:23:06 +00:00
|
|
|
|
* ## RETURN VALUE
|
2018-08-21 13:12:47 +00:00
|
|
|
|
* Y,A = PTR to MemBlock
|
|
|
|
|
* (X unmodified)
|
2016-10-25 06:58:15 +00:00
|
|
|
|
*\--------------------------------------
|
|
|
|
|
* Optimized for :
|
2019-03-14 16:51:02 +00:00
|
|
|
|
* Mem.Table is page aligned at $800
|
2016-10-25 06:58:15 +00:00
|
|
|
|
* S.MEM is 8 bytes
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*--------------------------------------
|
2018-12-17 07:02:03 +00:00
|
|
|
|
.DO Mem.Table=$800
|
2016-10-03 15:59:36 +00:00
|
|
|
|
.ELSE
|
|
|
|
|
!!!!!WARNING!!!!!
|
|
|
|
|
.FIN
|
|
|
|
|
.DO S.MEM=8
|
|
|
|
|
.ELSE
|
|
|
|
|
!!!!!WARNING!!!!!
|
|
|
|
|
.FIN
|
|
|
|
|
*--------------------------------------
|
2019-02-01 20:01:54 +00:00
|
|
|
|
K.GetMemPtr jsr MEM.GetMemByID
|
2019-02-03 21:58:26 +00:00
|
|
|
|
MEM.GetMEMPTR ldy #S.MEM.PTR
|
2018-08-21 13:12:47 +00:00
|
|
|
|
lda (ZPMemMgrSPtr),y
|
|
|
|
|
pha
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPMemMgrSPtr),y
|
|
|
|
|
ply
|
|
|
|
|
rts
|
2019-02-01 20:01:54 +00:00
|
|
|
|
*--------------------------------------
|
2019-01-30 06:20:13 +00:00
|
|
|
|
MEM.GetMemByID sta ZPMemMgrSPtr
|
2017-10-27 06:36:46 +00:00
|
|
|
|
lda /Mem.Table/8
|
2016-10-03 15:59:36 +00:00
|
|
|
|
asl ZPMemMgrSPtr
|
|
|
|
|
rol
|
|
|
|
|
asl ZPMemMgrSPtr
|
|
|
|
|
rol
|
|
|
|
|
asl ZPMemMgrSPtr
|
|
|
|
|
rol
|
2015-03-14 21:48:35 +00:00
|
|
|
|
sta ZPMemMgrSPtr+1
|
|
|
|
|
rts
|
2019-03-15 16:20:28 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
ZPSListKeyID .EQ ZPMEMMGR+6
|
|
|
|
|
ZPSListDataPtr .EQ ZPMEMMGR+8
|
|
|
|
|
ZPSListDataLen .EQ ZPMEMMGR+10
|
|
|
|
|
ZPSListIBlkPtr .EQ ZPMEMMGR+12
|
|
|
|
|
ZPSListDBlkPtr .EQ ZPMEMMGR+14
|
2017-09-05 15:17:10 +00:00
|
|
|
|
*/--------------------------------------
|
2019-03-15 16:20:28 +00:00
|
|
|
|
* # SListGetData
|
2019-01-29 16:42:06 +00:00
|
|
|
|
* ## ASM
|
2019-03-15 16:20:28 +00:00
|
|
|
|
* `PUSHW DataOfs`
|
|
|
|
|
* `PUSHW DataLen`
|
|
|
|
|
* `PUSHW DataPtr`
|
2019-03-14 16:51:02 +00:00
|
|
|
|
* `PUSHW KeyID`
|
2019-01-29 16:42:06 +00:00
|
|
|
|
* `lda hSList`
|
2019-03-15 16:20:28 +00:00
|
|
|
|
* `>SYSCALL SListGetData`
|
2018-10-11 15:23:06 +00:00
|
|
|
|
* ## RETURN VALUE
|
2019-03-15 16:20:28 +00:00
|
|
|
|
* Y,A = Byte Count
|
2019-03-18 06:53:20 +00:00
|
|
|
|
* X = hMem (if DataPtr = 0)
|
2018-01-15 06:50:44 +00:00
|
|
|
|
*\--------------------------------------
|
2019-03-15 16:20:28 +00:00
|
|
|
|
K.SListGetData pha
|
2019-03-18 06:53:20 +00:00
|
|
|
|
>PULLW ZPSListKeyID
|
|
|
|
|
>PULLW ZPSListDataPtr
|
|
|
|
|
>PULLW ZPSListDataLen
|
2019-03-15 16:20:28 +00:00
|
|
|
|
>PULLW ZPMemMgrSize
|
|
|
|
|
pla
|
2019-03-18 06:53:20 +00:00
|
|
|
|
bra K.SListFree
|
2018-01-17 16:31:32 +00:00
|
|
|
|
*/--------------------------------------
|
2019-03-15 16:20:28 +00:00
|
|
|
|
* # SListAddData
|
2019-01-29 16:42:06 +00:00
|
|
|
|
* ## ASM
|
2019-03-15 16:20:28 +00:00
|
|
|
|
* `PUSHW DataLen`
|
|
|
|
|
* `PUSHW DataPtr`
|
2019-03-14 16:51:02 +00:00
|
|
|
|
* `PUSHW KeyID`
|
2019-01-29 16:42:06 +00:00
|
|
|
|
* `lda hSList`
|
2019-03-15 16:20:28 +00:00
|
|
|
|
* `>SYSCALL SListAddData`
|
2018-10-11 15:23:06 +00:00
|
|
|
|
* ## RETURN VALUE
|
2019-01-29 16:42:06 +00:00
|
|
|
|
*\--------------------------------------
|
2019-03-18 06:53:20 +00:00
|
|
|
|
K.SListAddData
|
2019-01-29 16:42:06 +00:00
|
|
|
|
*/--------------------------------------
|
|
|
|
|
* # SListSetData
|
|
|
|
|
* ## ASM
|
2019-03-15 16:20:28 +00:00
|
|
|
|
* `PUSHW DataLen`
|
|
|
|
|
* `PUSHW DataPtr`
|
2019-03-14 16:51:02 +00:00
|
|
|
|
* `PUSHW KeyID`
|
2019-01-29 16:42:06 +00:00
|
|
|
|
* `lda hSList`
|
|
|
|
|
* `>SYSCALL SListSetData`
|
|
|
|
|
* ## RETURN VALUE
|
|
|
|
|
*\--------------------------------------
|
2019-01-30 06:20:13 +00:00
|
|
|
|
K.SListSetData pha
|
2019-03-18 06:53:20 +00:00
|
|
|
|
>PULLW ZPSListKeyID
|
|
|
|
|
>PULLW ZPSListDataPtr
|
2019-03-15 16:20:28 +00:00
|
|
|
|
>PULLW ZPSListDataLen
|
|
|
|
|
pla
|
2019-03-18 06:53:20 +00:00
|
|
|
|
bra K.SListFree
|
2019-01-29 16:42:06 +00:00
|
|
|
|
*/--------------------------------------
|
|
|
|
|
* # SListGetByID
|
|
|
|
|
* ## ASM
|
|
|
|
|
* `PUSHW KeyPtr`
|
|
|
|
|
* `PUSHW KeyID`
|
|
|
|
|
* `lda hSList`
|
|
|
|
|
* `>SYSCALL SListGetByID`
|
|
|
|
|
* ## RETURN VALUE
|
|
|
|
|
* Y,A = Next KeyID
|
2018-01-17 16:31:32 +00:00
|
|
|
|
*\--------------------------------------
|
2019-01-29 16:42:06 +00:00
|
|
|
|
K.SListGetByID pha
|
2019-03-15 16:20:28 +00:00
|
|
|
|
>PULLW ZPSListKeyID
|
2019-03-18 06:53:20 +00:00
|
|
|
|
>PULLW ZPSListDataPtr
|
2019-03-15 16:20:28 +00:00
|
|
|
|
pla
|
|
|
|
|
bra K.SListFree
|
2017-10-17 15:40:21 +00:00
|
|
|
|
*/--------------------------------------
|
2019-03-13 16:29:24 +00:00
|
|
|
|
* # SListNewKey
|
2019-01-29 16:42:06 +00:00
|
|
|
|
* ## ASM
|
|
|
|
|
* `PUSHW KeyPtr`
|
|
|
|
|
* `lda hSList`
|
2019-03-13 16:29:24 +00:00
|
|
|
|
* `>SYSCALL SListNewKey`
|
2018-10-11 15:23:06 +00:00
|
|
|
|
* ## RETURN VALUE
|
2019-03-13 16:29:24 +00:00
|
|
|
|
* Y,A = KeyID
|
2019-03-14 16:51:02 +00:00
|
|
|
|
* X = KeyLen
|
2017-10-17 15:40:21 +00:00
|
|
|
|
*\--------------------------------------
|
2019-03-13 16:29:24 +00:00
|
|
|
|
K.SListNewKey
|
2017-10-17 15:40:21 +00:00
|
|
|
|
*/--------------------------------------
|
2018-03-30 15:21:42 +00:00
|
|
|
|
* # SListLookup
|
2019-01-29 16:42:06 +00:00
|
|
|
|
* ## ASM
|
|
|
|
|
* `PUSHW KeyPtr`
|
|
|
|
|
* `lda hSList`
|
|
|
|
|
* `>SYSCALL SListLookup`
|
2018-10-11 15:23:06 +00:00
|
|
|
|
* ## RETURN VALUE
|
2019-01-29 16:42:06 +00:00
|
|
|
|
* Y,A = KeyID
|
2019-03-15 16:20:28 +00:00
|
|
|
|
* X = Key Length
|
2017-10-17 15:40:21 +00:00
|
|
|
|
*\--------------------------------------
|
2019-01-29 16:42:06 +00:00
|
|
|
|
K.SListLookup pha
|
2019-03-18 06:53:20 +00:00
|
|
|
|
>PULLW ZPSListDataPtr
|
2019-03-15 16:20:28 +00:00
|
|
|
|
pla
|
2017-10-17 15:40:21 +00:00
|
|
|
|
*/--------------------------------------
|
2018-01-19 16:21:31 +00:00
|
|
|
|
* # SListNew
|
2019-01-29 16:42:06 +00:00
|
|
|
|
* ## ASM
|
|
|
|
|
* `>SYSCALL SListNew`
|
2018-10-11 15:23:06 +00:00
|
|
|
|
* ## RETURN VALUE
|
2019-01-29 16:42:06 +00:00
|
|
|
|
* A=hSList
|
2017-10-17 15:40:21 +00:00
|
|
|
|
*\--------------------------------------
|
2019-03-15 16:20:28 +00:00
|
|
|
|
K.SListNew
|
2017-10-17 15:40:21 +00:00
|
|
|
|
*/--------------------------------------
|
|
|
|
|
* # SListFree
|
2019-01-29 16:42:06 +00:00
|
|
|
|
* ## ASM
|
|
|
|
|
* `lda hSList`
|
|
|
|
|
* `>SYSCALL SListFree`
|
2018-10-11 15:23:06 +00:00
|
|
|
|
* ## RETURN VALUE
|
2017-10-17 15:40:21 +00:00
|
|
|
|
*\--------------------------------------
|
2019-03-15 16:20:28 +00:00
|
|
|
|
K.SListFree sta SETREADAUX
|
2018-01-17 16:31:32 +00:00
|
|
|
|
sta SETWRITEAUX
|
2019-02-01 20:01:54 +00:00
|
|
|
|
|
2019-03-15 16:20:28 +00:00
|
|
|
|
jsr X.SLIST
|
2019-02-01 20:01:54 +00:00
|
|
|
|
|
2018-05-04 14:55:29 +00:00
|
|
|
|
sta CLRREADAUX
|
2019-03-15 16:20:28 +00:00
|
|
|
|
sta CLRWRITEAUX
|
2018-05-04 14:55:29 +00:00
|
|
|
|
rts
|
|
|
|
|
*/--------------------------------------
|
2018-06-18 06:22:50 +00:00
|
|
|
|
* # NewStkObj
|
2018-04-29 19:10:13 +00:00
|
|
|
|
* Y,A = Size Requested
|
2018-10-11 15:23:06 +00:00
|
|
|
|
* ## RETURN VALUE
|
2018-04-29 19:10:13 +00:00
|
|
|
|
* CC : success
|
|
|
|
|
* YA = PTR to Mem (Uninitialised)
|
|
|
|
|
* X = hMem
|
|
|
|
|
* CS :
|
|
|
|
|
* A = EC
|
|
|
|
|
*\--------------------------------------
|
2017-10-17 15:40:21 +00:00
|
|
|
|
*/--------------------------------------
|
2017-12-07 16:33:39 +00:00
|
|
|
|
* # LoadStkObj
|
|
|
|
|
* Load a file in AUX memory (Stock Objects)
|
|
|
|
|
* PUSHW = AUXTYPE (Handled by....
|
|
|
|
|
* PUSHB = TYPE ...
|
|
|
|
|
* PUSHB = MODE ...
|
2019-02-01 20:01:54 +00:00
|
|
|
|
* LDYA = PATH ...FOpen)
|
2018-10-11 15:23:06 +00:00
|
|
|
|
* ## RETURN VALUE
|
2017-12-07 16:33:39 +00:00
|
|
|
|
* Y,A = File Length
|
|
|
|
|
* X = hMem of Loaded Object in AUX mem
|
2017-10-17 15:40:21 +00:00
|
|
|
|
*\--------------------------------------
|
2019-05-04 21:13:50 +00:00
|
|
|
|
K.LoadStkObj ldx #SYS.LoadTxtFile To get ending \0
|
2019-05-12 20:45:11 +00:00
|
|
|
|
jsr K.SYSCALL2.BANK
|
2017-12-07 16:33:39 +00:00
|
|
|
|
bcs .99
|
2019-05-04 21:13:50 +00:00
|
|
|
|
|
2019-04-11 15:59:57 +00:00
|
|
|
|
sty .81+1
|
|
|
|
|
sta .82+1
|
2017-12-07 16:33:39 +00:00
|
|
|
|
|
|
|
|
|
stx .8+1 Save MAIN hMem
|
2019-02-03 21:58:26 +00:00
|
|
|
|
iny
|
|
|
|
|
bne .1
|
|
|
|
|
inc +1 for ending 0
|
|
|
|
|
.1 >STYA A2L Save LEN temporarly
|
2017-12-07 16:33:39 +00:00
|
|
|
|
|
2019-06-19 15:56:59 +00:00
|
|
|
|
ldx #SYS.NewStkObj
|
|
|
|
|
jsr K.SYSCALL2.AUX
|
|
|
|
|
|
2017-12-07 16:33:39 +00:00
|
|
|
|
bcs .9
|
|
|
|
|
stx .80+1
|
|
|
|
|
>STYA A4L Save Destination Address in AUX
|
|
|
|
|
|
|
|
|
|
lda .8+1
|
2018-06-21 15:12:10 +00:00
|
|
|
|
jsr K.GetMemPtr
|
2017-12-07 16:33:39 +00:00
|
|
|
|
|
|
|
|
|
>STYA A1L Save MAIN base Ptr
|
|
|
|
|
|
|
|
|
|
pha Add Allocated LEN
|
|
|
|
|
tya
|
|
|
|
|
clc
|
|
|
|
|
adc A2L
|
|
|
|
|
sta A2L
|
|
|
|
|
pla
|
|
|
|
|
adc A2L+1
|
|
|
|
|
sta A2L+1 to get End address in A2L/H
|
|
|
|
|
|
|
|
|
|
sec Main To Aux
|
|
|
|
|
jsr AuxMove
|
2019-02-03 21:58:26 +00:00
|
|
|
|
|
2017-12-07 16:33:39 +00:00
|
|
|
|
.8 lda #$ff SELF MODIFIED
|
2018-06-22 14:59:24 +00:00
|
|
|
|
jsr K.FreeMem release MAIN memory
|
2017-12-07 16:33:39 +00:00
|
|
|
|
|
2019-04-11 15:59:57 +00:00
|
|
|
|
.80 ldx #$ff Returns AUX hMem
|
|
|
|
|
.81 ldy #$ff and file len in Y,A
|
|
|
|
|
.82 lda #$ff
|
|
|
|
|
* clc
|
2017-12-07 16:33:39 +00:00
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.9 pha
|
|
|
|
|
jsr .8
|
|
|
|
|
pla
|
|
|
|
|
sec
|
|
|
|
|
.99 rts
|
2019-03-15 16:20:28 +00:00
|
|
|
|
*/--------------------------------------
|
2019-06-19 15:56:59 +00:00
|
|
|
|
* # GetStkObjPtr
|
2019-03-15 16:20:28 +00:00
|
|
|
|
* ## ASM
|
|
|
|
|
* `lda hStkObj`
|
2019-06-19 15:56:59 +00:00
|
|
|
|
* `>SYSCALL GetStkObjPtr`
|
2019-03-15 16:20:28 +00:00
|
|
|
|
* ## RETURN VALUE
|
|
|
|
|
*\--------------------------------------
|
2019-06-19 15:56:59 +00:00
|
|
|
|
*/--------------------------------------
|
|
|
|
|
* # FreeStkObj
|
|
|
|
|
* A = hMem To Free (AUX Memory)
|
|
|
|
|
* ## RETURN VALUE
|
|
|
|
|
* none.
|
|
|
|
|
* (X,Y unmodified)
|
|
|
|
|
*\--------------------------------------
|
2018-04-29 19:10:13 +00:00
|
|
|
|
*--------------------------------------
|
2019-01-11 16:06:05 +00:00
|
|
|
|
* in Y,A = buf size
|
|
|
|
|
*--------------------------------------
|
2019-03-18 06:53:20 +00:00
|
|
|
|
MEM.GetMainBuf sta CLRREADAUX
|
|
|
|
|
sta CLRWRITEAUX
|
|
|
|
|
jsr K.GetMem
|
|
|
|
|
sta SETREADAUX
|
|
|
|
|
sta SETWRITEAUX
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2019-01-11 16:06:05 +00:00
|
|
|
|
MEM.GetKrnlBuf pha
|
|
|
|
|
tya
|
|
|
|
|
clc
|
|
|
|
|
adc DevMgr.Free
|
|
|
|
|
tax
|
|
|
|
|
pla
|
|
|
|
|
adc DevMgr.Free+1
|
|
|
|
|
bcs .99 we crossed $FFFF, out of mem
|
|
|
|
|
|
|
|
|
|
cpx #DevMgr.HiMem
|
|
|
|
|
pha
|
|
|
|
|
sbc /DevMgr.HiMem
|
|
|
|
|
bcs .98 No More Room...
|
|
|
|
|
|
|
|
|
|
ldy DevMgr.Free
|
|
|
|
|
stx DevMgr.Free
|
|
|
|
|
ldx DevMgr.Free+1
|
|
|
|
|
pla
|
|
|
|
|
sta DevMgr.Free+1
|
|
|
|
|
txa
|
|
|
|
|
|
|
|
|
|
* clc
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.98 pla
|
|
|
|
|
.99 lda #E.OOM
|
|
|
|
|
* sec
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-04-29 19:10:13 +00:00
|
|
|
|
MEM.GetKeyCharY sta CLRREADAUX
|
2019-03-18 06:53:20 +00:00
|
|
|
|
lda (ZPSListDataPtr),y
|
2018-04-29 19:10:13 +00:00
|
|
|
|
sta SETREADAUX
|
|
|
|
|
beq MEM.IsDigit.9
|
2017-12-07 16:33:39 +00:00
|
|
|
|
|
2018-04-29 19:10:13 +00:00
|
|
|
|
MEM.IsIDValid cmp #'.'
|
|
|
|
|
beq MEM.IsDigit.8
|
|
|
|
|
|
|
|
|
|
cmp #'_'
|
|
|
|
|
beq MEM.IsDigit.8
|
2017-12-07 16:33:39 +00:00
|
|
|
|
|
2018-04-29 19:10:13 +00:00
|
|
|
|
MEM.IsDigitOrL cmp #'z'+1
|
|
|
|
|
bcs MEM.IsDigit.RTS
|
|
|
|
|
cmp #'a'
|
|
|
|
|
bcs MEM.IsDigit.8
|
|
|
|
|
|
|
|
|
|
MEM.IsDigitOrUC cmp #'Z'+1
|
|
|
|
|
bcs MEM.IsDigit.RTS
|
|
|
|
|
cmp #'A'
|
|
|
|
|
bcs MEM.IsDigit.8
|
|
|
|
|
|
|
|
|
|
MEM.IsDigit cmp #'9'+1
|
|
|
|
|
bcs MEM.IsDigit.RTS
|
|
|
|
|
cmp #'0'
|
|
|
|
|
bcs MEM.IsDigit.8
|
|
|
|
|
|
|
|
|
|
MEM.IsDigit.9 sec
|
2017-12-07 16:33:39 +00:00
|
|
|
|
|
2018-04-29 19:10:13 +00:00
|
|
|
|
MEM.IsDigit.RTS rts
|
2017-12-07 16:33:39 +00:00
|
|
|
|
|
2018-04-29 19:10:13 +00:00
|
|
|
|
MEM.IsDigit.8 clc
|
2016-11-01 21:34:29 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-05-25 15:09:14 +00:00
|
|
|
|
MEM.IsHexDigit jsr MEM.IsDigit
|
|
|
|
|
bcc .8
|
|
|
|
|
|
|
|
|
|
cmp #'A'
|
|
|
|
|
bcc MEM.IsDigit.9
|
|
|
|
|
cmp #'F'+1
|
|
|
|
|
bcc .1
|
|
|
|
|
|
|
|
|
|
cmp #'a'
|
|
|
|
|
bcc MEM.IsDigit.9
|
|
|
|
|
cmp #'f'+1
|
|
|
|
|
bcs MEM.IsDigit.RTS
|
|
|
|
|
|
|
|
|
|
eor #$20
|
|
|
|
|
.1
|
|
|
|
|
* clc
|
|
|
|
|
sbc #'A'-11 cc so A->10 (11-CC)
|
|
|
|
|
clc
|
|
|
|
|
|
|
|
|
|
.8 and #$0F
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-04-29 19:10:13 +00:00
|
|
|
|
MEM.SetKeyCharY sta CLRWRITEAUX
|
2019-03-18 06:53:20 +00:00
|
|
|
|
sta (ZPSListDataPtr),y
|
2018-04-29 19:10:13 +00:00
|
|
|
|
sta SETWRITEAUX
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MEM.GetDataByte sta CLRREADAUX
|
|
|
|
|
lda (ZPSListDataPtr)
|
|
|
|
|
sta SETREADAUX
|
|
|
|
|
bra MEM.SetDataByte.1
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MEM.SetDataByte sta CLRWRITEAUX
|
|
|
|
|
sta (ZPSListDataPtr)
|
|
|
|
|
sta SETWRITEAUX
|
|
|
|
|
MEM.SetDataByte.1
|
|
|
|
|
inc ZPSListDataPtr
|
|
|
|
|
bne .8
|
|
|
|
|
inc ZPSListDataPtr+1
|
|
|
|
|
.8 rts
|
|
|
|
|
*--------------------------------------
|
2019-06-20 15:47:03 +00:00
|
|
|
|
MEM.TXTPTR.GetY sta CLRREADAUX
|
2019-04-11 15:59:57 +00:00
|
|
|
|
lda (TXTPTR),y
|
|
|
|
|
sta SETREADAUX
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-04-29 19:10:13 +00:00
|
|
|
|
MEM.TXTPTR.GetNext
|
|
|
|
|
sta CLRREADAUX
|
|
|
|
|
lda (TXTPTR)
|
|
|
|
|
sta SETREADAUX
|
|
|
|
|
beq .9
|
|
|
|
|
inc TXTPTR
|
|
|
|
|
bne .9
|
|
|
|
|
inc TXTPTR+1
|
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
2018-09-07 14:12:42 +00:00
|
|
|
|
MEM.SPtr1PPtr2 >STYA ZPPtr1
|
|
|
|
|
>PULLW ZPPtr2
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2019-01-26 14:01:05 +00:00
|
|
|
|
MEM.SPtr2PPtr1 >STYA ZPPtr2
|
|
|
|
|
>PULLW ZPPtr1
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-10-25 15:31:41 +00:00
|
|
|
|
MEM.GetCharPtr1 lda (ZPPtr1)
|
|
|
|
|
beq MEM.GetCharPtr1.8
|
|
|
|
|
MEM.NextCharPtr1
|
|
|
|
|
inc ZPPtr1
|
|
|
|
|
bne MEM.GetCharPtr1.8
|
|
|
|
|
inc ZPPtr1+1 never Z
|
|
|
|
|
MEM.GetCharPtr1.8
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-12-20 16:23:43 +00:00
|
|
|
|
MEM.AddYp1ToPtr1
|
|
|
|
|
sec
|
|
|
|
|
.HS 90 BCC
|
|
|
|
|
MEM.AddYToPtr1 clc
|
|
|
|
|
tya
|
|
|
|
|
adc ZPPtr1
|
|
|
|
|
sta ZPPtr1
|
|
|
|
|
bcc .8
|
|
|
|
|
inc ZPPtr1+1
|
|
|
|
|
.8 rts
|
|
|
|
|
*--------------------------------------
|
2018-10-25 15:31:41 +00:00
|
|
|
|
MEM.PutCharPtr2 sta (ZPPtr2)
|
2019-01-04 13:17:31 +00:00
|
|
|
|
MEM.NextCharPtr2
|
2018-10-25 15:31:41 +00:00
|
|
|
|
inc ZPPtr2
|
|
|
|
|
bne .8
|
|
|
|
|
inc ZPPtr2+1
|
|
|
|
|
.8 rts
|
2019-06-04 15:49:58 +00:00
|
|
|
|
*/--------------------------------------
|
|
|
|
|
* # GetMemStat
|
|
|
|
|
* **In:**
|
|
|
|
|
* Y,A = Ptr to 24 bytes buffer
|
|
|
|
|
* ## RETURN VALUE
|
|
|
|
|
* Buffer filled with memory stats
|
|
|
|
|
*\--------------------------------------
|
|
|
|
|
K.GetMemStat >STYA ZPPtr1
|
|
|
|
|
|
|
|
|
|
ldy #23
|
|
|
|
|
ldx #7
|
|
|
|
|
|
|
|
|
|
.1 lda DevMgr.Stat,x
|
|
|
|
|
sta (ZPPtr1),y
|
|
|
|
|
dey
|
|
|
|
|
dex
|
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
sta SETREADAUX
|
|
|
|
|
|
|
|
|
|
jsr .2
|
|
|
|
|
|
|
|
|
|
sta CLRREADAUX
|
|
|
|
|
|
|
|
|
|
.2 ldx #7
|
|
|
|
|
|
|
|
|
|
.3 lda Mem.Table,x
|
|
|
|
|
sta (ZPPtr1),y
|
|
|
|
|
dey
|
|
|
|
|
dex
|
|
|
|
|
bpl .3
|
|
|
|
|
|
|
|
|
|
rts
|
2018-10-25 15:31:41 +00:00
|
|
|
|
*--------------------------------------
|
2015-03-14 21:48:35 +00:00
|
|
|
|
MAN
|
2018-11-17 17:17:13 +00:00
|
|
|
|
SAVE USR/SRC/SYS/KERNEL.S.MEM
|
|
|
|
|
LOAD USR/SRC/SYS/KERNEL.S
|
2015-03-14 21:48:35 +00:00
|
|
|
|
ASM
|