0 Members and 1 Guest are viewing this topic.
;; VATEntryToOP1:;;;; Copy a program, appvar, group, or list variable name from the VAT;; to OP1.;;;; Input:;; - HL = address of type byte of VAT entry;;;; Output:;; - OP1 = variable name;;;; Destroys:;; - AF, BC, DE, HLVATEntryToOP1: ex de,hl BCALL _ZeroOP1 ld a,(de) ld hl,-6 add hl,de ld b,(hl) inc b ld de,OP1VATEntryToOP1_CopyNameLoop: ld (de),a inc de dec hl ld a,(hl) djnz VATEntryToOP1_CopyNameLoop ld a,(OP1 + 1) sub tVarLst ret nz dec de ld (de),a ret