;#SECTION "MAIN", CODE org userMem - 2 db 0BBh, 6Dh Start: ld hl, hook_start ld de, smallEditRAM push de ld bc, 136 ldir pop hl ld a, 1 B_CALL 4F7Bh ret hook_start: rorg smallEditRAM db 83h cp 1Bh ret nz in a, (04h) bit 3, a ld a, b ret nz ld b, 0 cp sk1 jq z, @F inc b cp sk2 jq z, @F inc b cp sk3 jq z, @F inc b cp sk4 jq z, @F inc b cp sk5 jq z, @F inc b cp sk6 jq z, @F inc b cp sk7 jq z, @F inc b cp sk8 jq z, @F inc b cp sk9 jq z, @F inc b cp sk0 ret nz @: ld a, b ; Don't need a any more ld (pic_name + 2), a ld hl, pic_name rst rMOV9TOOP1 B_CALL _ChkFindSym jq c, create_pic ld a, b or a jr nz, quit jq save_screen create_pic: ld hl, 779 B_CALL _EnoughMem jq c, quit ld hl, pic_name rst rMOV9TOOP1 ld a, PictObj ld hl, 768 B_CALL _CreateVar save_screen: ex de, hl inc hl inc hl B_CALL _SaveDisp quit: xor a inc a ld a, 0 ret pic_name: db PictObj, 60h, 0, 0, 0