📄 ui_clockdrm.lst
字号:
\ 0597 DD77CA LD (IX-54),A
357 if(key == RESULT_REDRAW)
\ 059A FE32 CP 50
\ 059C 200A JR NZ,?0091
\ 059E ?0090:
358 {
359 need_draw_backgroud = TRUE;
\ 059E DD36D201 LD (IX-46),1
360 need_draw = TRUE;
\ 05A2 DD36CF01 LD (IX-49),1
\ 05A6 180A JR ?0094
\ 05A8 ?0091:
361 }
362 else if( key != 0 )
\ 05A8 AF XOR A
\ 05A9 DDB6CA OR (IX-54)
\ 05AC 2804 JR Z,?0094
\ 05AE ?0093:
363 {
364 set_ok = TRUE;
\ 05AE DD36D101 LD (IX-47),1
\ 05B2 ?0094:
\ 05B2 ?0092:
\ 05B2 ?0082:
365 }
366 } //switch(key)
367
368 //set ok?
369 if(set_ok) break;
\ 05B2 AF XOR A
\ 05B3 DDB6D1 OR (IX-47)
\ 05B6 CACF02 JP Z,?0054
\ 05B9 ?0095:
\ 05B9 1803 JR ?0053
\ 05BB ?0096:
\ 05BB C3CF02 JP LWRD ?0054
\ 05BE ?0053:
370 }//while(1)
371 if( bIsSet == 0 )
\ 05BE AF XOR A
\ 05BF DDB6D4 OR (IX-44)
\ 05C2 2008 JR NZ,?0098
\ 05C4 ?0097:
372 {
373 return key;
\ 05C4 DD6ECA LD L,(IX-54)
\ 05C7 2600 LD H,0
374 }
\ 05C9 C33409 JP LWRD ?0162
\ 05CC ?0098:
375 else if ( key != 0 ) //不是按mode退出的都不保存设置，如USB线插上等
\ 05CC AF XOR A
\ 05CD DDB6CA OR (IX-54)
\ 05D0 2808 JR Z,?0100
\ 05D2 ?0099:
376 {
377 return key;
\ 05D2 DD6ECA LD L,(IX-54)
\ 05D5 2600 LD H,0
378 }
\ 05D7 C33409 JP LWRD ?0162
\ 05DA ?0100:
379
380 // SetAsciiFont(FONT_TYPE_DEFAULT);
381
382
383 //re-check the date/time format
384 days = month_days[date.month - 1];
\ 05DA DD4ED8 LD C,(IX-40)
\ 05DD 0600 LD B,0
\ 05DF 21FFFF LD HL,month_days-1
\ 05E2 09 ADD HL,BC
\ 05E3 46 LD B,(HL)
\ 05E4 DD70D0 LD (IX-48),B
385 if((date.year % 4 == 0) && (date.month == 2)) days++; //润年
\ 05E7 DD6ED6 LD L,(IX-42)
\ 05EA DD66D7 LD H,(IX-41)
\ 05ED 7D LD A,L
\ 05EE E603 AND 3
\ 05F0 6F LD L,A
\ 05F1 2600 LD H,0
\ 05F3 7D LD A,L
\ 05F4 B4 OR H
\ 05F5 200A JR NZ,?0102
\ 05F7 DD46D8 LD B,(IX-40)
\ 05FA 05 DEC B
\ 05FB 05 DEC B
\ 05FC 2003 JR NZ,?0102
\ 05FE ?0104:
\ 05FE ?0103:
\ 05FE ?0101:
\ 05FE DD34D0 INC (IX-48)
\ 0601 ?0102:
386 if(date.day > days) date.day = days;
\ 0601 DD7ED0 LD A,(IX-48)
\ 0604 DDBED9 CP (IX-39)
\ 0607 3006 JR NC,?0106
\ 0609 ?0105:
\ 0609 DD46D0 LD B,(IX-48)
\ 060C DD70D9 LD (IX-39),B
\ 060F ?0106:
387 bDateTSmall=CpDate(&date,&date1);
\ 060F 211800 LD HL,24
\ 0612 39 ADD HL,SP
\ 0613 4D LD C,L
\ 0614 44 LD B,H
\ 0615 210C00 LD HL,12
\ 0618 39 ADD HL,SP
\ 0619 5D LD E,L
\ 061A 54 LD D,H
\ 061B 3E00 LD A,BYTE3 CpDate
\ 061D 217900 LD HL,LWRD CpDate
\ 0620 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0623 DD75CB LD (IX-53),L
388 if(bDateTSmall==0xff)
\ 0626 2C INC L
\ 0627 2006 JR NZ,?0108
\ 0629 ?0107:
389 {
390 bDateTSmall=1;
\ 0629 DD36CB01 LD (IX-53),1
\ 062D 183C JR ?0118
\ 062F ?0108:
391 }
392 else if( bDateTSmall==1)
\ 062F DD46CB LD B,(IX-53)
\ 0632 05 DEC B
\ 0633 2006 JR NZ,?0111
\ 0635 ?0110:
393 {
394 bDateTSmall=0;
\ 0635 DD36CB00 LD (IX-53),0
395 }
396 else
\ 0639 1830 JR ?0118
\ 063B ?0111:
397 {
398 bDateTSmall=CpTime(&time,&time1);
\ 063B 211400 LD HL,20
\ 063E 39 ADD HL,SP
\ 063F 4D LD C,L
\ 0640 44 LD B,H
\ 0641 211000 LD HL,16
\ 0644 39 ADD HL,SP
\ 0645 5D LD E,L
\ 0646 54 LD D,H
\ 0647 3E00 LD A,BYTE3 CpTime
\ 0649 210000 LD HL,LWRD CpTime
\ 064C CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 064F DD75CB LD (IX-53),L
399 if ( bDateTSmall==0xff)
\ 0652 2C INC L
\ 0653 2006 JR NZ,?0114
\ 0655 ?0113:
400 {
401 bDateTSmall=1;
\ 0655 DD36CB01 LD (IX-53),1
\ 0659 1810 JR ?0118
\ 065B ?0114:
402 }
403 else if (bDateTSmall==0)
\ 065B AF XOR A
\ 065C DDB6CB OR (IX-53)
\ 065F 2006 JR NZ,?0117
\ 0661 ?0116:
404 {
405 bDateTSmall=5;
\ 0661 DD36CB05 LD (IX-53),5
406 }
407 else
\ 0665 1804 JR ?0118
\ 0667 ?0117:
408 {
409 bDateTSmall=0;
\ 0667 DD36CB00 LD (IX-53),0
\ 066B ?0118:
\ 066B ?0115:
\ 066B ?0112:
\ 066B ?0109:
410 }
411 }
412
413 if(bDateTSmall==5)
\ 066B DD7ECB LD A,(IX-53)
\ 066E FE05 CP 5
\ 0670 2008 JR NZ,?0120
\ 0672 ?0119:
414 {
415 return key;
\ 0672 DD6ECA LD L,(IX-54)
\ 0675 2600 LD H,0
416 }
\ 0677 C33409 JP LWRD ?0162
\ 067A ?0120:
417
418
419 VMRead(&kval, VM_KERNEL, sizeof(kval_t));
\ 067A 210B00 LD HL,11
\ 067D E5 PUSH HL
\ 067E 010000 LD BC,0
\ 0681 212C00 LD HL,44
\ 0684 39 ADD HL,SP
\ 0685 5D LD E,L
\ 0686 54 LD D,H
\ 0687 CD0000 CALL LWRD VMRead
\ 068A E1 POP HL
420
421 if( (kval.rtcresetflag == 0) && (bDateTSmall==0) )
\ 068B DD7EFE LD A,(IX-2)
\ 068E B7 OR A
\ 068F C26507 JP NZ,?0122
\ 0692 AF XOR A
\ 0693 DDB6CB OR (IX-53)
\ 0696 C26507 JP NZ,?0122
\ 0699 ?0124:
\ 0699 ?0123:
\ 0699 ?0121:
422 {
423 ClearScreen(NULL);
\ 0699 110000 LD DE,0
\ 069C CD0000 CALL LWRD ClearScreen
424 ResShowMultiString(SETTIME1,g_comval.langid,255,0);
\ 069F 0E00 LD C,0
\ 06A1 C5 PUSH BC
\ 06A2 0EFF LD C,255
\ 06A4 C5 PUSH BC
\ 06A5 ED4B0C00 LD BC,(g_comval+12)
\ 06A9 115102 LD DE,593
\ 06AC 3E00 LD A,BYTE3 ResShowMultiString
\ 06AE 210000 LD HL,LWRD ResShowMultiString
\ 06B1 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 06B4 F1 POP AF
\ 06B5 F1 POP AF
425 ResShowMultiString(SETTIME2,g_comval.langid,255,16);
\ 06B6 0E10 LD C,16
\ 06B8 C5 PUSH BC
\ 06B9 0EFF LD C,255
\ 06BB C5 PUSH BC
\ 06BC ED4B0C00 LD BC,(g_comval+12)
\ 06C0 115202 LD DE,594
\ 06C3 3E00 LD A,BYTE3 ResShowMultiString
\ 06C5 210000 LD HL,LWRD ResShowMultiString
\ 06C8 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 06CB F1 POP AF
\ 06CC F1 POP AF
426 output8(0x4e,input8(0x4e)|0x08);
\ 06CD DB4E IN A,(78)
\ 06CF CBDF SET 3,A
\ 06D1 D34E OUT (78),A
\ 06D3 ?0127:
427 do
428 {
429 output8(0x4e,input8(0x4e)|0x08);
\ 06D3 DB4E IN A,(78)
\ 06D5 CBDF SET 3,A
\ 06D7 D34E OUT (78),A
430 if( (key = ap_get_message()) == AP_MSG_RTC )
\ 06D9 CD0000 CALL LWRD ap_get_message
\ 06DC DD77CA LD (IX-54),A
\ 06DF FE1C CP 28
\ 06E1 2003 JR NZ,?0129
\ 06E3 ?0128:
431 {
432 msgTimeout++;
\ 06E3 DD34CC INC (IX-52)
\ 06E6 ?0129:
433 }
434
435 key = ap_handle_hotkey(key);
\ 06E6 DD5ECA LD E,(IX-54)
\ 06E9 CD0000 CALL LWRD ap_handle_hotkey
\ 06EC DD77CA LD (IX-54),A
436 if(key == RESULT_REDRAW)
\ 06EF FE32 CP 50
\ 06F1 2036 JR NZ,?0131
\ 06F3 ?0130:
437 {
438 ClearScreen(NULL);
\ 06F3 110000 LD DE,0
\ 06F6 CD0000 CALL LWRD ClearScreen
439 ResShowMultiString(SETTIME1,g_comval.langid,255,0);
\ 06F9 0E00 LD C,0
\ 06FB C5 PUSH BC
\ 06FC 0EFF LD C,255
\ 06FE C5 PUSH BC
\ 06FF ED4B0C00 ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -