2019-11-24 20:34:23 -05:00
|
|
|
basBSEL:
|
|
|
|
|
call rdExpr
|
|
|
|
|
ret nz
|
|
|
|
|
push ix \ pop hl
|
|
|
|
|
call blkSelPtr
|
|
|
|
|
ld a, l
|
|
|
|
|
jp blkSel
|
|
|
|
|
|
|
|
|
|
basBSEEK:
|
|
|
|
|
call rdExpr
|
|
|
|
|
ret nz
|
|
|
|
|
push ix ; --> lvl 1
|
|
|
|
|
call rdExpr
|
|
|
|
|
push ix \ pop de
|
|
|
|
|
pop hl ; <-- lvl 1
|
|
|
|
|
jr z, .skip
|
|
|
|
|
; DE not supplied, set to zero
|
|
|
|
|
ld de, 0
|
|
|
|
|
.skip:
|
|
|
|
|
xor a ; absolute mode
|
|
|
|
|
call blkSeek
|
|
|
|
|
cp a ; ensure Z
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
basGETB:
|
|
|
|
|
call blkGetB
|
|
|
|
|
ret nz
|
|
|
|
|
ld (VAR_TBL), a
|
2019-11-30 21:13:44 -05:00
|
|
|
xor a
|
|
|
|
|
ld (VAR_TBL+1), a
|
2019-11-24 20:34:23 -05:00
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
basPUTB:
|
|
|
|
|
call rdExpr
|
|
|
|
|
ret nz
|
|
|
|
|
push ix \ pop hl
|
|
|
|
|
ld a, l
|
|
|
|
|
jp blkPutB
|
|
|
|
|
|
|
|
|
|
basBLKCmds:
|
2019-11-30 21:36:34 -05:00
|
|
|
.db "bsel", 0
|
2019-11-24 20:34:23 -05:00
|
|
|
.dw basBSEL
|
|
|
|
|
.db "bseek", 0
|
2019-11-30 21:36:34 -05:00
|
|
|
.dw basBSEEK
|
|
|
|
|
.db "getb", 0
|
2019-11-24 20:34:23 -05:00
|
|
|
.dw basGETB
|
2019-11-30 21:36:34 -05:00
|
|
|
.db "putb", 0
|
2019-11-24 20:34:23 -05:00
|
|
|
.dw basPUTB
|
2019-11-30 21:36:34 -05:00
|
|
|
.db 0xff ; end of table
|
