ui_licensinf.lst
来自「炬力方案176*132软件源码,适用于AK1025」· LST 代码 · 共 1,103 行 · 第 1/4 页
LST
1,103 行
\ 02EE 2013 JR NZ,?0066
\ 02F0 ?0065:
337 {
338 ClearScreen(NULL);
\ 02F0 5F LD E,A
\ 02F1 57 LD D,A
\ 02F2 CD0000 CALL LWRD ClearScreen
339 ResShowMultiString(DELCKBCK, lan_id, 255, 80);
\ 02F5 0E50 LD C,80
\ 02F7 C5 PUSH BC
\ 02F8 0EFF LD C,255
\ 02FA C5 PUSH BC
\ 02FB DD4E0C LD C,(IX+12)
\ 02FE 11A301 LD DE,419
\ 0301 1812 JR ?0090
340 }
341 else
\ 0303 ?0066:
342 {
343 ClearScreen(NULL);
\ 0303 110000 LD DE,0
\ 0306 CD0000 CALL LWRD ClearScreen
344 ResShowMultiString(DISCKBCK, lan_id, 255, 80);
\ 0309 0E50 LD C,80
\ 030B C5 PUSH BC
\ 030C 0EFF LD C,255
\ 030E C5 PUSH BC
\ 030F DD4E0C LD C,(IX+12)
\ 0312 11A401 LD DE,420
\ 0315 ?0090:
\ 0315 CD0001 CALL LWRD ?0107
\ 0318 F1 POP AF
\ 0319 F1 POP AF
\ 031A ?0067:
345 }
346 return TRUE;
\ 031A 2E01 LD L,1
347 }
\ 031C 1802 JR ?0069
\ 031E ?0068:
348
349 default:
350 return FALSE;
\ 031E 2E00 LD L,0
351 }
\ 0320 ?0069:
\ 0320 FDE1 POP IY
\ 0322 C30000 JP LWRD ?BANK_LEAVE_DIRECT_L08
\ 0325 ?0106:
\ 0325 110000 LD DE,0
\ 0328 CD0000 CALL LWRD ClearScreen
\ 032B 0E5A LD C,90
\ 032D C9 RET
\ 032E ?0110:
\ 032E 3E00 LD A,BYTE3 itoa_4
\ 0330 210000 LD HL,LWRD itoa_4
\ 0333 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0336 0E46 LD C,70
\ 0338 1E50 LD E,80
\ 033A CD0000 CALL LWRD SetTextPos
\ 033D 210200 LD HL,2
\ 0340 C9 RET
\ 0341 ?0111:
\ 0341 EB EX DE,HL
\ 0342 3E00 LD A,BYTE3 delstartzero
\ 0344 211804 LD HL,LWRD delstartzero
\ 0347 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 034A 0EFF LD C,255
\ 034C 210200 LD HL,2
\ 034F C9 RET
\ 0350 ?0043:
352 }
\ 0350 DisplayDate:
353
354 void DisplayDate(int ID, DateTime_t *pDate,char discnt, BYTE string_id)
355 {
\ 0350 CD0000 CALL LWRD ?ENT_AUTO_DIRECT_L09
\ 0353 F4FF DEFW 65524
\ 0355 FDE5 PUSH IY
\ 0357 C5 PUSH BC
\ 0358 FDE1 POP IY
356 char disbuf[11];
357 ClearScreen(NULL);
\ 035A 110000 LD DE,0
\ 035D CD0000 CALL LWRD ClearScreen
358 ResShowMultiString(ID, string_id, 255, 90);
\ 0360 1E5A LD E,90
\ 0362 D5 PUSH DE
\ 0363 1EFF LD E,255
\ 0365 D5 PUSH DE
\ 0366 DD4E0C LD C,(IX+12)
\ 0369 DD5E02 LD E,(IX+2)
\ 036C DD5603 LD D,(IX+3)
\ 036F CD0001 CALL LWRD ?0107
\ 0372 F1 POP AF
\ 0373 F1 POP AF
359 itoa_4(pDate->date.year, &disbuf[0]);
\ 0374 210200 LD HL,2
\ 0377 39 ADD HL,SP
\ 0378 4D LD C,L
\ 0379 44 LD B,H
\ 037A FD5E00 LD E,(IY+0)
\ 037D FD5601 LD D,(IY+1)
\ 0380 3E00 LD A,BYTE3 itoa_4
\ 0382 210000 LD HL,LWRD itoa_4
\ 0385 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
360 itoa_2(pDate->date.month, &disbuf[5]);
\ 0388 210200 LD HL,2
\ 038B 39 ADD HL,SP
\ 038C 010500 LD BC,5
\ 038F 09 ADD HL,BC
\ 0390 4D LD C,L
\ 0391 44 LD B,H
\ 0392 FD5E02 LD E,(IY+2)
\ 0395 CD0C04 CALL LWRD ?0112
361 itoa_2(pDate->date.day, &disbuf[8]);
\ 0398 39 ADD HL,SP
\ 0399 010800 LD BC,8
\ 039C 09 ADD HL,BC
\ 039D 4D LD C,L
\ 039E 44 LD B,H
\ 039F FD5E03 LD E,(IY+3)
\ 03A2 3E00 LD A,BYTE3 itoa_2
\ 03A4 210000 LD HL,LWRD itoa_2
\ 03A7 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
362 disbuf[4] = '-';
\ 03AA DD36F82D LD (IX-8),45
363 disbuf[7] = '-';
\ 03AE DD36FB2D LD (IX-5),45
364 SetTextPos(24, 70);
\ 03B2 0E46 LD C,70
\ 03B4 1E18 LD E,24
\ 03B6 CD0000 CALL LWRD SetTextPos
365 PutS(disbuf, -1);
\ 03B9 0EFF LD C,255
\ 03BB 210200 LD HL,2
\ 03BE 39 ADD HL,SP
\ 03BF EB EX DE,HL
\ 03C0 CD0000 CALL LWRD PutS
366
367 itoa_2(pDate->time.hour, &disbuf[0]);
\ 03C3 210200 LD HL,2
\ 03C6 39 ADD HL,SP
\ 03C7 4D LD C,L
\ 03C8 44 LD B,H
\ 03C9 FD5E04 LD E,(IY+4)
\ 03CC CD0C04 CALL LWRD ?0112
368 itoa_2(pDate->time.minute, &disbuf[3]);
\ 03CF 39 ADD HL,SP
\ 03D0 010300 LD BC,3
\ 03D3 09 ADD HL,BC
\ 03D4 4D LD C,L
\ 03D5 44 LD B,H
\ 03D6 FD5E05 LD E,(IY+5)
\ 03D9 CD0C04 CALL LWRD ?0112
369 itoa_2(pDate->time.second, &disbuf[6]);
\ 03DC 39 ADD HL,SP
\ 03DD 010600 LD BC,6
\ 03E0 09 ADD HL,BC
\ 03E1 4D LD C,L
\ 03E2 44 LD B,H
\ 03E3 FD5E06 LD E,(IY+6)
\ 03E6 3E00 LD A,BYTE3 itoa_2
\ 03E8 210000 LD HL,LWRD itoa_2
\ 03EB CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
370 disbuf[2] = ':';
\ 03EE DD36F63A LD (IX-10),58
371 disbuf[5] = ':';
\ 03F2 DD36F93A LD (IX-7),58
372 SetTextPos(114, 70);
\ 03F6 0E46 LD C,70
\ 03F8 1E72 LD E,114
\ 03FA CD0000 CALL LWRD SetTextPos
373 PutS(disbuf, -1);
\ 03FD 0EFF LD C,255
\ 03FF 210200 LD HL,2
\ 0402 39 ADD HL,SP
\ 0403 EB EX DE,HL
\ 0404 CD0000 CALL LWRD PutS
374
375
376 }
\ 0407 FDE1 POP IY
\ 0409 C30000 JP LWRD ?BANK_LEAVE_DIRECT_L08
\ 040C ?0112:
\ 040C 3E00 LD A,BYTE3 itoa_2
\ 040E 210000 LD HL,LWRD itoa_2
\ 0411 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0414 210200 LD HL,2
\ 0417 C9 RET
\ 0418 delstartzero:
377
378 void delstartzero(char* buf)
379 {
\ 0418 CD0000 CALL LWRD ?ENT_AUTO_DIRECT_L09
\ 041B FEFF DEFW 65534
\ 041D DD5E02 LD E,(IX+2)
\ 0420 6B LD L,E
\ 0421 DD5603 LD D,(IX+3)
\ 0424 62 LD H,D
380 char i;
381 if (buf[0]=='\0')
\ 0425 AF XOR A
\ 0426 B6 OR (HL)
\ 0427 282A JR Z,?0072
\ 0429 ?0070:
382 {
383 return;
384 }
\ 0429 ?0071:
385
386 for(i=0; buf[i]!='\0'; i++)
\ 0429 DD36FE00 LD (IX-2),0
\ 042D ?0073:
\ 042D DD4EFE LD C,(IX-2)
\ 0430 0600 LD B,0
\ 0432 6B LD L,E
\ 0433 62 LD H,D
\ 0434 09 ADD HL,BC
\ 0435 7E LD A,(HL)
\ 0436 B7 OR A
\ 0437 281A JR Z,?0072
\ 0439 ?0074:
387 {
388 if (buf[i]=='0')
\ 0439 6B LD L,E
\ 043A 62 LD H,D
\ 043B 09 ADD HL,BC
\ 043C 7E LD A,(HL)
\ 043D FE30 CP 48
\ 043F 2012 JR NZ,?0072
\ 0441 ?0076:
389 {
390 if (buf[i+1] == '\0')
\ 0441 6B LD L,E
\ 0442 62 LD H,D
\ 0443 09 ADD HL,BC
\ 0444 23 INC HL
\ 0445 7E LD A,(HL)
\ 0446 B7 OR A
\ 0447 280A JR Z,?0072
\ 0449 ?0078:
391 {
392 return;
393 }
\ 0449 ?0079:
394 buf[i] = ' ';
\ 0449 6B LD L,E
\ 044A 62 LD H,D
\ 044B 09 ADD HL,BC
\ 044C 3620 LD (HL),32
395 }
396 else
\ 044E ?0077:
397 {
398 break;
\ 044E ?0080:
\ 044E DD34FE INC (IX-2)
399 }
400 }
401 }
\ 0451 18DA JR ?0073
\ 0453 ?0072:
\ 0453 ?0081:
\ 0453 C30000 JP LWRD ?BANK_LEAVE_DIRECT_L08
402
\ 0456 END
Errors: none
Warnings: none
Code size: 1110
Constant size: 0
Static variable size: Data(0) Iram(0)
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?