navi_ui.lst

来自「炬力方案176*132软件源码,适用于AK1025」· LST 代码 · 共 720 行 · 第 1/3 页

LST
720
字号
   \   0249  5F                LD      E,A
   \   024A  D5                PUSH    DE
   \   024B  0E1E              LD      C,30
   \   024D  112C00            LD      DE,44
   \   0250  CD5B03            CALL    LWRD ?0062
   \   0253  F1                POP     AF
    108                    ResShowPic(DHTHK,194, menu_pos_list[i]+5); 
   \   0254  210000            LD      HL,menu_pos_list
   \   0257  ED4B0000          LD      BC,(i)
   \   025B  09                ADD     HL,BC
   \   025C  7E                LD      A,(HL)
   \   025D  C605              ADD     A,5
   \   025F  5F                LD      E,A
   \   0260  D5                PUSH    DE
   \   0261  0EC2              LD      C,194
   \   0263  112700            LD      DE,39
   \   0266  CD5B03            CALL    LWRD ?0062
   \   0269  F1                POP     AF
    109                    if(*(navi_buff+(i)*30)==1)
   \   026A  011E00            LD      BC,30
   \   026D  CD6303            CALL    LWRD ?0064
   \   0270  200B              JR      NZ,?0036
   \   0272            ?0035:
    110                    ResShowPic(MDIR,10,menu_pos_list[i]-4);
   \   0272  C6FC              ADD     A,252
   \   0274  4F                LD      C,A
   \   0275  C5                PUSH    BC
   \   0276  0E0A              LD      C,10
   \   0278  11AF00            LD      DE,175
   \   027B  1809              JR      ?0050
    111                     else
   \   027D            ?0036:
    112                    ResShowPic(MFILE,13,menu_pos_list[i]-1);  
   \   027D  C6FF              ADD     A,255
   \   027F  4F                LD      C,A
   \   0280  C5                PUSH    BC
   \   0281  0E0D              LD      C,13
   \   0283  11C600            LD      DE,198
   \   0286            ?0050:
   \   0286  CD5B03            CALL    LWRD ?0062
   \   0289  F1                POP     AF
   \   028A            ?0037:
    113                    continue;             
   \   028A  1862              JR      ?0032
   \   028C            ?0034:
    114                  } 
    115                   if(*(navi_buff+(i)*30)==1)
   \   028C  0E1E              LD      C,30
   \   028E  CD6303            CALL    LWRD ?0064
   \   0291  200B              JR      NZ,?0039
   \   0293            ?0038:
    116                     ResShowPic(MDIR,10,menu_pos_list[i]-4);
   \   0293  C6FC              ADD     A,252
   \   0295  4F                LD      C,A
   \   0296  C5                PUSH    BC
   \   0297  0E0A              LD      C,10
   \   0299  11AF00            LD      DE,175
   \   029C  1809              JR      ?0051
    117                   else
   \   029E            ?0039:
    118                     ResShowPic(MFILE,13,menu_pos_list[i]-1);
   \   029E  C6FF              ADD     A,255
   \   02A0  4F                LD      C,A
   \   02A1  C5                PUSH    BC
   \   02A2  0E0D              LD      C,13
   \   02A4  11C600            LD      DE,198
   \   02A7            ?0051:
   \   02A7  CD5B03            CALL    LWRD ?0062
   \   02AA  F1                POP     AF
   \   02AB            ?0040:
    119                            
    120                   SetTextPos(explorer_str_x_def, menu_pos_list[i]-2);
   \   02AB  210000            LD      HL,menu_pos_list
   \   02AE  ED4B0000          LD      BC,(i)
   \   02B2  09                ADD     HL,BC
   \   02B3  7E                LD      A,(HL)
   \   02B4  C6FE              ADD     A,254
   \   02B6  4F                LD      C,A
   \   02B7  1E20              LD      E,32
   \   02B9  CD0000            CALL    LWRD SetTextPos
    121                   DisplayBytes = Count_Byte(&(navi_buff+(i)*30+1),g_comval.langid); 
   \   02BC  ED4B0C00          LD      BC,(g_comval+12)
   \   02C0  C5                PUSH    BC
   \   02C1  210100            LD      HL,navi_buff+1
   \   02C4  111E00            LD      DE,30
   \   02C7  ED4B0000          LD      BC,(i)
   \   02CB  CD0000            CALL    LWRD ?S_MUL_L02
   \   02CE  19                ADD     HL,DE
   \   02CF  EB                EX      DE,HL
   \   02D0  3E00              LD      A,BYTE3 Count_Byte
   \   02D2  210000            LD      HL,LWRD Count_Byte
   \   02D5  C1                POP     BC
   \   02D6  CD0000            CALL    LWRD ?BANK_CALL_DIRECT_L08
    122                   PutS(&(navi_buff+(i)*30+1),DisplayBytes);                  //显示关键字
   \   02D9  4D                LD      C,L
   \   02DA  C5                PUSH    BC
   \   02DB  210100            LD      HL,navi_buff+1
   \   02DE  111E00            LD      DE,30
   \   02E1  ED4B0000          LD      BC,(i)
   \   02E5  CD0000            CALL    LWRD ?S_MUL_L02
   \   02E8  19                ADD     HL,DE
   \   02E9  EB                EX      DE,HL
   \   02EA  C1                POP     BC
   \   02EB  CD0000            CALL    LWRD PutS
   \   02EE            ?0032:
   \   02EE  2A0000            LD      HL,(i)
   \   02F1  23                INC     HL
   \   02F2  C31902            JP      LWRD ?0049
   \   02F5            ?0029:
    123                  }      //for   
    124                 region_scroll.y= menu_pos_list[active%NAVI_GROUP]-2;  
   \   02F5  CD2E03            CALL    LWRD ?0060
    125                 memcpy(scroll_buf,&(navi_buff+(active%NAVI_GROUP)*30+1),27); 
   \   02F8  0606              LD      B,6
   \   02FA  DD7E02            LD      A,(IX+2)
   \   02FD  CD0000            CALL    LWRD ?UC_MOD_L01
   \   0300  4F                LD      C,A
   \   0301  0600              LD      B,0
   \   0303  CD7A03            CALL    LWRD ?0065
    126                 ScrollString(scroll_buf, TRUE,g_comval.langid,&region_scroll);
   \   0306  E5                PUSH    HL
   \   0307  210C00            LD      HL,g_comval+12
   \   030A  4E                LD      C,(HL)
   \   030B  C5                PUSH    BC
   \   030C  CD2103            CALL    LWRD ?0059
   \   030F  E1                POP     HL
   \   0310  E1                POP     HL
    127                 if(strlen(scroll_buf)<20)
   \   0311  CD9E03            CALL    LWRD ?0067
   \   0314  3003              JR      NC,?0042
   \   0316            ?0041:
    128                    ScrollFlag=0;
   \   0316  AF                XOR     A
   \   0317  1802              JR      ?0052
    129                 else
   \   0319            ?0042:
    130                    ScrollFlag=1;         
   \   0319  3E01              LD      A,1
   \   031B            ?0052:
   \   031B  320000            LD      (ScrollFlag),A
   \   031E            ?0043:
   \   031E            ?0016:
   \   031E            ?0004:
    131              }    //else  active =old_active       
    132           }      //else scroll_flag
    133          
    134          }
   \   031E  C30000            JP      LWRD ?BANK_LEAVE_DIRECT_L08
   \   0321            ?0059:
   \   0321  0E01              LD      C,1
   \   0323            ?0058:
   \   0323  110000            LD      DE,scroll_buf
   \   0326  3E00              LD      A,BYTE3 ScrollString
   \   0328  210000            LD      HL,LWRD ScrollString
   \   032B  C30000            JP      LWRD ?BANK_CALL_DIRECT_L08
   \   032E            ?0060:
   \   032E  0606              LD      B,6
   \   0330  DD7E02            LD      A,(IX+2)
   \   0333  CD0000            CALL    LWRD ?UC_MOD_L01
   \   0336  4F                LD      C,A
   \   0337  0600              LD      B,0
   \   0339  210000            LD      HL,menu_pos_list
   \   033C  09                ADD     HL,BC
   \   033D  7E                LD      A,(HL)
   \   033E  C6FE              ADD     A,254
   \   0340  320100            LD      (region_scroll+1),A
   \   0343  210100            LD      HL,navi_buff+1
   \   0346  C9                RET
   \   0347            ?0061:
   \   0347  CD0000            CALL    LWRD ?UC_MOD_L01
   \   034A  4F                LD      C,A
   \   034B  0600              LD      B,0
   \   034D  210000            LD      HL,menu_pos_list
   \   0350  09                ADD     HL,BC
   \   0351  7E                LD      A,(HL)
   \   0352  C6FC              ADD     A,252
   \   0354  4F                LD      C,A
   \   0355  C9                RET
   \   0356            ?0063:
   \   0356  0EC2              LD      C,194
   \   0358  112600            LD      DE,38
   \   035B            ?0062:
   \   035B  3E00              LD      A,BYTE3 ResShowPic
   \   035D  210000            LD      HL,LWRD ResShowPic
   \   0360  C30000            JP      LWRD ?BANK_CALL_DIRECT_L08
   \   0363            ?0064:
   \   0363  ED5B0000          LD      DE,(i)
   \   0367  CD0000            CALL    LWRD ?S_MUL_L02
   \   036A  210000            LD      HL,navi_buff
   \   036D  19                ADD     HL,DE
   \   036E  46                LD      B,(HL)
   \   036F  05                DEC     B
   \   0370  210000            LD      HL,menu_pos_list
   \   0373  ED4B0000          LD      BC,(i)
   \   0377  09                ADD     HL,BC
   \   0378  7E                LD      A,(HL)
   \   0379  C9                RET
   \   037A            ?0065:
   \   037A  111E00            LD      DE,30
   \   037D  CD0000            CALL    LWRD ?S_MUL_L02
   \   0380  19                ADD     HL,DE
   \   0381  110000            LD      DE,scroll_buf
   \   0384  0E1B              LD      C,27
   \   0386  EDB0              LDIR
   \   0388  210000            LD      HL,region_scroll
   \   038B  C9                RET
   \   038C            ?0066:
   \   038C  0600              LD      B,0
   \   038E  111E00            LD      DE,30
   \   0391  CD0000            CALL    LWRD ?S_MUL_L02
   \   0394  210000            LD      HL,navi_buff
   \   0397  19                ADD     HL,DE
   \   0398  46                LD      B,(HL)
   \   0399  05                DEC     B
   \   039A  0606              LD      B,6
   \   039C  79                LD      A,C
   \   039D  C9                RET
   \   039E            ?0067:
   \   039E  210000            LD      HL,scroll_buf
   \   03A1  CD0000            CALL    LWRD ?STRLEN_L11
   \   03A4  011400            LD      BC,20
   \   03A7  A7                AND     A
   \   03A8  ED42              SBC     HL,BC
   \   03AA  C9                RET
    135          
    136          
   \   0000                    RSEG    APD_NAVI_UI
   \   0000            i:
   \   0002                    DEFS    2
   \   0002            list_num:
   \   0003                    DEFS    1
   \   0003                    END

Errors: none
Warnings: none
Code size: 939
Constant size: 0
Static variable size: Data(3) Iram(0)

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?