0 Members and 1 Guest are viewing this topic.
ld hl, tokenHook ld de, smallEditRam ;nothing touches this, ever ld bc, tokenHookEnd-tokenHook ldir ;copy it to a place where it won't get destroyed ld a, 1 ;1 means ram ld hl, smallEditRam bcall(_enableTokenHook) rettokenHook: .db $83 ;necessary for hooks, indicates that it hasn't been overwritten push hl ld hl, $C8*2 or a sbc hl, de add hl, de ;essentially, cp DE pop hl ret nz ld hl, cscText-tokenHook+smallEditRam-1 ;give it a ptr 1 behind where it should be ret ;I do not know whycscText: .db 4, "csc(" ;length, then stringtokenHookEnd:
_enableTokenHook equ 4F99h
cscText:.db 4,$63,$73,$63,$28; instead of.db 4,"csc("