)
InsertMemory:
;=========================================================
; Insert DefaultBlockSize bytes to the end of the variable
;=========================================================
;??????DEBUG THIS THING...WRITES PROBABLY NOT THE WRITE THING TO INCREASE MEMORY
; .using GlobalVariables
bcall(_MemChk)
ld hl, (App.DefaultBlockSize)
bcall(_EnoughMem)
jp c, ErrorScreen
call GetTestObj
;DE points to ti var size bytes
push de ; save pointer to start of size bytes of data
;======================================
;Set DE to the last memory location of
;current variable
;======================================
ldDEInd() ;ld de, (de)
pop hl ; add to var addy to get insertion point
push hl
add hl, de ; calculate insertion address
ld d, h ; set de to insertion address
ld e, l
ld hl, (App.DefaultBlockSize) ; hl to size insert
bcall(_InsertMem)
pop de ; size address (start of variable)
push de ; save it back again
ldDEind()
ld hl, (App.DefaultBlockSize) ; hl to size
add hl, de ; hl = hl + de
;===========================
; Write hl to the size bytes
;===========================
pop de ; ld (de), hl
ld a, l
ld (de), a
inc de
ld a, h
ld (de), a
ret
DeleteLastBlockMemory:
;hl = address of first byte to delete
;de = number of bytes to delete
call SetDEToBlockSizeValue ; destroys a lot of registers, do first
ld (App.BlockSizeTemp), de
ld hl, (App.EndBlockStartByte) ; start of delete
bcall(_DelMem)
call GetTestObj ;de pointing to size bytes (variable)
push de
ldDEind() ; de = (de)
xor a ; clear CA
ld bc, (App.BlockSizeTemp)
ex de, hl
sbc hl, bc ; hl is new size of variable
;write hl to the size location of the variable
ex de, hl ; de is new size of variable
pop hl ; pointer to size bytes location
ld (hl), e
inc hl
ld (hl), d
ret
GetTestObj:
;check the symbol table for the testPackage variable and unarc if it is arc
ld hl, VarName
bcall(_Mov9ToOP1)
bcall(_ChkFindSym)
jr nc, VarCreated
;CREATE VARIABLE IN RAM
;set initial size to 1 block at Me.blockSize amount
LD hl, 7
bcall(_CreateAppVar) ; create appVar
inc de ; load identifier
inc de
ld hl, Identifier
ld bc, 4
ldir
;TMKR0 | 20 | 8
inc de ; set block count to 0 (default)
ld (de), a
;done initializing the count to 0
; walk de back by 7
ld b, 7
-:
dec de
djnz {-}
VarCreated:
;ADD CODE !!!!
;CHECK FOR IDENTIFIER, IF NOT THROW ERROR
ld a, b
or a
jr z, InRam
bcall(_Arc_Unarc)
jr GetTestObj
InRam:
ld (App.TIVarAddy), de
ret
VarName:
.db AppVarObj, 'TestObj',0
Identifier:
.db "TMKR",0
;--------------------------------get the test object ---- END
Advertisement