MenuHook

;#SECTION "MAIN", CODE

    org userMem - 2
    db  0BBh, 6Dh
Start:
    ld  hl, PrgmEditHook
    ld  de, 8265h
    ld  bc, EndHook - PrgmEditHook + 1
    ldir
    ld  hl, 8265h
    ld  a, 1
    B_CALL  5083h
    ret

PrgmEditHook:
    db  83h
    push    af
    push    bc
    push    de
    push    hl
    cp  04h
    jr nz,Quit
    ld  a, (MenuCurrent)
    cp  mProgramHome
    jr nz,Quit
    ld  a, (MenuCurrent + 1)
    cp  mPrgm_Edit
    jr nz,Quit
    ld  hl, -9
    add hl, de
    B_CALL  _Mov9ToOP1
    ld  a, ProgObj
    ld  (OP1), a
    B_CALL  _ChkFindSym
    inc de
    inc de
    ld  hl, tFact
    or  a
    sbc hl, de
    jr  nz, SetFlag0
    set 0, (iy + 21h)
    jr Quit
SetFlag0:
    res 0, (iy + 21h)
Quit:
    pop hl
    pop de
    pop bc
    pop af
    cp a
    ret

EndHook:
;#IMPORT "TOKENS"
;#IMPORT "MENUCURR"