📄 ui_licensinf.lst
字号:
\ 02FB DD4E0C LD C,(IX+12)
\ 02FE 11BD01 LD DE,445
\ 0301 1812 JR ?0090
409 }
410 else
\ 0303 ?0066:
411 {
412 ClearScreen(NULL);
\ 0303 110000 LD DE,0
\ 0306 CD0000 CALL LWRD ClearScreen
413 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 11BE01 LD DE,446
\ 0315 ?0090:
\ 0315 CD0001 CALL LWRD ?0107
\ 0318 F1 POP AF
\ 0319 F1 POP AF
\ 031A ?0067:
414 }
415 return TRUE;
\ 031A 2E01 LD L,1
416 }
\ 031C 1802 JR ?0069
\ 031E ?0068:
417
418 default:
419 return FALSE;
\ 031E 2E00 LD L,0
420 }
\ 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:
421 }
\ 0350 DisplayDate:
422
423 void DisplayDate(int ID, DateTime_t *pDate,char discnt, BYTE string_id)
424 {
\ 0350 CD0000 CALL LWRD ?ENT_AUTO_DIRECT_L09
\ 0353 F4FF DEFW 65524
\ 0355 FDE5 PUSH IY
\ 0357 C5 PUSH BC
\ 0358 FDE1 POP IY
425 char disbuf[11];
426
427 /*
428 switch(discnt)
429 {
430 case 0:
431 //a+b
432 ClearScreen(NULL);
433 ResShowMultiString(ID, string_id, 0, 0);
434 itoa4(pDate->date.year, &disbuf[0]);
435 itoa2(pDate->date.month, &disbuf[5]);
436 itoa2(pDate->date.day, &disbuf[8]);
437 disbuf[4] = '-';
438 disbuf[7] = '-';
439 SetTextPos(30, 24);
440 PutS(disbuf, -1);
441 break;
442
443 case 1:
444 //b+c
445 ClearScreen(NULL);
446 itoa4(pDate->date.year, &disbuf[0]);
447 itoa2(pDate->date.month, &disbuf[5]);
448 itoa2(pDate->date.day, &disbuf[8]);
449 disbuf[4] = '-';
450 disbuf[7] = '-';
451 SetTextPos(30, 0);
452 PutS(disbuf, -1);
453 itoa2(pDate->time.hour, &disbuf[0]);
454 itoa2(pDate->time.minute, &disbuf[3]);
455 itoa2(pDate->time.second, &disbuf[6]);
456 disbuf[2] = ':';
457 disbuf[5] = ':';
458 SetTextPos(30, 24);
459 PutS(disbuf, -1);
460 break;
461
462 default:
463 break;
464 }
465 */
466 ClearScreen(NULL);
\ 035A 110000 LD DE,0
\ 035D CD0000 CALL LWRD ClearScreen
467 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
468 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
469 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
470 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
471 disbuf[4] = '-';
\ 03AA DD36F82D LD (IX-8),45
472 disbuf[7] = '-';
\ 03AE DD36FB2D LD (IX-5),45
473 SetTextPos(24, 70);
\ 03B2 0E46 LD C,70
\ 03B4 1E18 LD E,24
\ 03B6 CD0000 CALL LWRD SetTextPos
474 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
475
476 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
477 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
478 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
479 disbuf[2] = ':';
\ 03EE DD36F63A LD (IX-10),58
480 disbuf[5] = ':';
\ 03F2 DD36F93A LD (IX-7),58
481 SetTextPos(114, 70);
\ 03F6 0E46 LD C,70
\ 03F8 1E72 LD E,114
\ 03FA CD0000 CALL LWRD SetTextPos
482 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
483
484
485 }
\ 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:
486
487 void delstartzero(char* buf)
488 {
\ 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
489 char i;
490 if (buf[0]=='\0')
\ 0425 AF XOR A
\ 0426 B6 OR (HL)
\ 0427 282A JR Z,?0072
\ 0429 ?0070:
491 {
492 return;
493 }
\ 0429 ?0071:
494
495 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:
496 {
497 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:
498 {
499 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:
500 {
501 return;
502 }
\ 0449 ?0079:
503 buf[i] = ' ';
\ 0449 6B LD L,E
\ 044A 62 LD H,D
\ 044B 09 ADD HL,BC
\ 044C 3620 LD (HL),32
504 }
505 else
\ 044E ?0077:
506 {
507 break;
\ 044E ?0080:
\ 044E DD34FE INC (IX-2)
508 }
509 }
510 }
\ 0451 18DA JR ?0073
\ 0453 ?0072:
\ 0453 ?0081:
\ 0453 C30000 JP LWRD ?BANK_LEAVE_DIRECT_L08
511
\ 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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -