Changeset 56 for trunk/page00/menu.asm

Show
Ignore:
Timestamp:
10/31/09 08:14:55 (3 years ago)
Author:
brandonlw
Message:

Split the hex editor out to another file
Fix the APPS menu key handling

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/page00/menu.asm

    r55 r56  
    66 PUBLIC _PULLDOWNCHK,clrTR 
    77 EXTERN savepartialWin,rstrpartialWin,RestoreTextShadow,PutS,LdHLInd,PutPS,EraseEOL,PutC 
     8 EXTERN _JForceHexEditor 
    89 
    910_PULLDOWNCHK: 
    … …  
    108109notUp: cp kDown 
    109110       jr nz,notDown 
     111        
    110112       call DisplayMenu 
    111113       jr keyHandled 
    112114notDown: 
     115       cp kAlphaDown 
     116       jr nz,notAlphaDown 
     117       jr notAlphaDown 
     118       ld a,(numItemsForThisHeader) 
     119       ld hl,menuCurrent+2 
     120       sub (hl) 
     121       ld hl,curRow 
     122       add a,(hl) 
     123       cp 9 
     124       jr c,$F 
     125       ld a,(menuCurrent+2) 
     126       ld hl,curRow 
     127       sub (hl) 
     128       add a,7 
     129       jr RedrawAlphaMenu 
     130$$:    ld a,6 
     131       ld (curOffset),a 
     132       ;TODO: finish this... 
     133RedrawAlphaMenu: 
     134       ld (menuCurrent+2),a 
     135;       call  
     136notAlphaDown: 
    113137       cp kEnter 
    114138       jr nz,notEnter 
    115139       ld a,(menuCurrent+2) 
     140       call ExecuteSelected 
     141       jr keyHandled 
     142ExecuteSelected: 
     143       ld hl,numItemsForThisHeader 
     144       cp (hl) 
     145       ret nc 
    116146       push af 
    117147       call GetCurrentMenuPointer 
    … …  
    169199notEnter: 
    170200       cp kClear 
    171        jr nz,keyHandled 
     201       jr nz,maybeNumberKey 
    172202       call RestoreTextShadow 
    173203       ld a,(curFlagsBackup) 
    … …  
    177207       ld (hl),0 
    178208       jr keyHandled 
     209maybeNumberKey: 
     210       ld b,8Fh 
     211       cp 8Fh 
     212       jr c,$F 
     213       cp 98h 
     214       jr c,mnk1 
     215$$:    ld b,85h 
     216       cp 8Eh 
     217       jr z,mnk1 
     218       ld b,90h 
     219       cp 9Ah 
     220       jr c,keyHandled ;not exactly right 
     221       cp 0B4h 
     222       jr c,mnk1 
     223       ld b,0A8h 
     224       cp 0CCh 
     225       jr nz,keyHandled ;not exactly right 
     226mnk1:  sub b 
     227       call ExecuteSelected 
     228       jr keyHandled 
    179229IsSystemMenuKey: 
    180230;HACK: until we get all the menus between menuStart and menuEnd implemented, we have to hard-code 
    … …  
    192242DisplayMenu: 
    193243       ld a,(menuCurrent+2) 
     244DisplayMenu_1: 
    194245       ld c,a 
    195246       push bc 
    … …  
    419470       DB $F-HexEditor-1 
    420471       DB "Hex Editor" 
    421 $$:    res curAble,(iy+curFlags) 
    422        res curOn,(iy+curFlags) 
    423        res appTextSave,(iy+appFlags) 
    424        B_CALL ClrLCDFull 
    425        ld hl,0 
    426        ld (curRow),hl 
    427        ld hl,sWelcome 
    428        call PutS 
    429        B_CALL GetKey 
    430        B_JUMP JForceCmdNoChar 
    431 sWelcome: 
    432        DB "Welcome to the  " 
    433        DB "hex editor!",0 
     472$$:    call _JForceHexEditor 
    434473    
    435474clrTR: