📄 disp.asm
字号:
M_Input R_MemoryWrite
LDA #128
STA <R_Disp_TempL
LDY #040H
BRA L_Clear_MenuOtherArea_Com
L_Clear_MenuOtherArea_ST7787:
M_Input R_RowAddressSet ;COM SET
M_Write_D 000H
M_Write_D 060H+C_ST7787_Y_Off
M_Write_D 001H
M_Write_D 03FH+C_ST7787_Y_Off
M_Input R_ColumeAddressSet ;SEG SET
M_Para R_ColumeAddressStartH
M_Para R_ColumeAddressStartL
M_Para R_ColumeAddressEndH
M_Para R_ColumeAddressEndL
; M_Input R_RowAddressSet ;COM SET
; M_Para R_ColumeAddressStartH
; M_Para R_ColumeAddressStartL
; M_Para R_ColumeAddressEndH
; M_Para R_ColumeAddressEndL
; M_Input R_ColumeAddressSet ;SEG SET
; M_Write_D 000H
; M_Write_D 060H+C_ST7787_Y_Off
; M_Write_D 001H
; M_Write_D 03FH+C_ST7787_Y_Off
M_Input R_MemoryWrite
LDA #240
STA <R_Disp_TempL
LDY #0E0H
L_Clear_MenuOtherArea_Com:
L_Clear_MenuOtherArea_00:
LDA <R_Disp_TempL
TAX
L_Clear_MenuOtherArea_01:
M_Para #0FFH
M_Para #0FFH
BBR6 <R_Disp_Flag,L_Clear_MenuOtherArea_01_65K
L_Clear_MenuOtherArea_01_262K:
M_Para #0FFH
BRA L_Clear_MenuOtherArea_01_65K_262K
L_Clear_MenuOtherArea_01_65K:
L_Clear_MenuOtherArea_01_65K_262K:
DEX
BNE L_Clear_MenuOtherArea_01
DEY
BNE L_Clear_MenuOtherArea_00
L_Clear_MenuOtherArea_End:
M_Relase_Drr
PLY
PLX
PLA
RTS
;;==============================================
T_NormalClock:
DB ' ',016,'D','i','s','p',' ','C','l','o','c','k',' ',' ',' ',' '
DB ' ',' ','N','o','r','m','a','l',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ','D','i','s','p',' ','C','l','o','c','k',' ',' ',' ',' '
DB ' ',' ','W','a','t','e','r',' ','M','a','r','k',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_WaterMarkClock:
DB ' ',' ','D','i','s','p',' ','C','l','o','c','k',' ',' ',' ',' '
DB ' ',' ','N','o','r','m','a','l',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',016,'D','i','s','p',' ','C','l','o','c','k',' ',' ',' ',' '
DB ' ',' ','W','a','t','e','r',' ','M','a','r','k',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_AutoOnOFF_On:
DB ' ',016,'A','u','t','o',' ','O','N','/','O','F','F',' ',' ',' '
DB ' ',' ',' ',' ',' ','O','N',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ','A','u','t','o',' ','O','N','/','O','F','F',' ',' ',' '
DB ' ',' ',' ',' ',' ','O','F','F',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_AutoOnOFF_Off:
DB ' ',' ','A','u','t','o',' ','O','N','/','O','F','F',' ',' ',' '
DB ' ',' ',' ',' ',' ','O','N',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',016,'A','u','t','o',' ','O','N','/','O','F','F',' ',' ',' '
DB ' ',' ',' ',' ',' ','O','F','F',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
;;==============================================
T_NorFlahNoPragramTab:
DB 'P','l','e','a','s','e',' ','C','o','n','n','e','c','t',' ',' '
DB 'T','o',' ','P','C',' ','U','S','B',' ',' ',' ',' ',' ',' ',' '
DB 'U','p','d','a','t','e',' ','P','r','o','g','r','a','m',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_AutoPlayModeTab:
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ','A','u','t','o',' ','P','l','a','y',' ','M','o','d','e',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_SinglePhotoTab:
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ','S','i','n','g','l','e',' ','P','h','o','t','o',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_MenuTab0:
DB ' ',' ','O','F','F',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ','D','i','s','p','l','a','y',' ','M','o','d','e',' ',' '
DB ' ',' ','C','l','o','c','k',' ','S','e','t',' ',' ',' ',' ',' '
DB ' ',' ','A','u','t','o',' ','O','N','/','O','F','F',' ',' ',' '
DB ' ',' ','C','l','o','c','k',' ','D','i','s','p',' ',' ',' ',' '
DB ' ',' ','E','x','i','t',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_MenuTab1:
; DB ' ',' ','O','F','F',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',016,'D','i','s','p','l','a','y',' ','M','o','d','e',' ',' '
; DB ' ',' ','C','l','o','c','k',' ','S','e','t',' ',' ',' ',' ',' '
; DB ' ',' ','A','u','t','o',' ','O','N','/','O','F','F',' ',' ',' '
; DB ' ',' ','C','l','o','c','k',' ','D','i','s','p',' ',' ',' ',' '
; DB ' ',' ','E','x','i','t',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_MenuTab2:
; DB ' ',' ','O','F','F',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ','D','i','s','p','l','a','y',' ','M','o','d','e',' ',' '
; DB ' ',016,'C','l','o','c','k',' ','S','e','t',' ',' ',' ',' ',' '
; DB ' ',' ','A','u','t','o',' ','O','N','/','O','F','F',' ',' ',' '
; DB ' ',' ','C','l','o','c','k',' ','D','i','s','p',' ',' ',' ',' '
; DB ' ',' ','E','x','i','t',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_MenuTab3:
; DB ' ',' ','O','F','F',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ','D','i','s','p','l','a','y',' ','M','o','d','e',' ',' '
; DB ' ',' ','C','l','o','c','k',' ','S','e','t',' ',' ',' ',' ',' '
; DB ' ',016,'A','u','t','o',' ','O','N','/','O','F','F',' ',' ',' '
; DB ' ',' ','C','l','o','c','k',' ','D','i','s','p',' ',' ',' ',' '
; DB ' ',' ','E','x','i','t',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_MenuTab4:
; DB ' ',' ','O','F','F',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ','D','i','s','p','l','a','y',' ','M','o','d','e',' ',' '
; DB ' ',' ','C','l','o','c','k',' ','S','e','t',' ',' ',' ',' ',' '
; DB ' ',' ','A','u','t','o',' ','O','N','/','O','F','F',' ',' ',' '
; DB ' ',016,'C','l','o','c','k',' ','D','i','s','p',' ',' ',' ',' '
; DB ' ',' ','E','x','i','t',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_MenuTab5:
; DB ' ',' ','O','F','F',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ','D','i','s','p','l','a','y',' ','M','o','d','e',' ',' '
; DB ' ',' ','C','l','o','c','k',' ','S','e','t',' ',' ',' ',' ',' '
; DB ' ',' ','A','u','t','o',' ','O','N','/','O','F','F',' ',' ',' '
; DB ' ',' ','C','l','o','c','k',' ','D','i','s','p',' ',' ',' ',' '
; DB ' ',016,'E','x','i','t',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_MenuTab10:
DB ' ',' ','A','u','t','o',' ','S','l','i','d','e',' ',' ',' ',' '
DB ' ',' ','M','a','n','u','a','l',' ','S','l','i','d','e',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_MenuTab11:
; DB ' ',' ','A','u','t','o',' ','S','l','i','d','e',' ',' ',' ',' '
; DB ' ',016,'M','a','n','u','a','l',' ','S','l','i','d','e',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_NoPhotoTab:
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ','N','o',' ','P','h','o','t','o',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ','P','l','e','a','s','e',' ','C','o','n','n','e','c','t',' '
DB ' ','T','o',' ','P','C',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ','U','p','d','a','t','e',' ','P','i','c','t','u','r','e',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_MenuTabUSB_OnLine0:
DB ' ',016,'U','S','B',' ','C','h','a','r','g','e',' ',' ',' ',' '
DB ' ',' ','U','S','B',' ','U','p','d','a','t','e',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
T_MenuTabUSB_OnLine1:
DB ' ',' ','U','S','B',' ','C','h','a','r','g','e',' ',' ',' ',' '
DB ' ',016,'U','S','B',' ','U','p','d','a','t','e',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
; DB ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
;;==============================================
Slide_MenuTab1:
DB ' ',' ',' ','A','u','t','o',' ','S','l','i','d','e',' ',' ',' '
Slide_MenuTab2:
DB ' ',' ',' ',' ',' ',' ','T','i','m','e',' ',' ',' ',' ',' ',' '
Slide_MenuTab3:
DB ' ',' ',' ',' ',' '
Slide_MenuTab4:
DB 'S','e','c','o','n','d','s'
;;==============================================
T_SunDay:
DB ' ',' ','S','u','n','d','a','y',' '
;;==============================================
T_MonDay:
DB ' ',' ','M','o','n','d','a','y',' '
;;==============================================
T_TuesDay:
DB ' ','T','u','e','s','d','a','y',' '
;;==============================================
T_WednesDay:
DB 'W','e','d','n','e','s','d','a','y'
;;==============================================
T_ThursDay:
DB ' ','T','h','u','r','s','d','a','y'
;;==============================================
T_FriDay:
DB ' ',' ','F','r','i','d','a','y',' '
;;==============================================
T_SaturDay:
DB ' ','S','a','t','u','r','d','a','y'
;;==============================================
F_Disp_OnTime:
LDA #ON_TIME_ADDR_X
STA <R_CursorX
LDA #ON_TIME_ADDR_Y
STA <R_CursorY
JSR F_R_CursorY_37_XY_Off
LDA #'O'
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #ON_TIME_ADDR_X+008H
STA <R_CursorX
LDA #'N'
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #ON_TIME_ADDR_X+010H
STA <R_CursorX
LDA #ON_TIME_ADDR_Y+010H
STA <R_CursorY
JSR F_R_CursorY_37_XY_Off
STZ R_Disp_CharL
LDA R_Hour_On
L_Disp_Clock_Hour0_On:
CMP #10
BCC L_Disp_Clock_Hour1_On
INC R_Disp_CharL
SEC
SBC #10
BRA L_Disp_Clock_Hour0_On
L_Disp_Clock_Hour1_On:
CLC
LDA R_Disp_CharL
ADC #30H
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #ON_TIME_ADDR_X+018H
STA <R_CursorX
LDA R_Hour_On
L_Disp_Clock_Hour2_On:
CMP #10
BCC L_Disp_Clock_Hour3_On
SEC
SBC #10
BRA L_Disp_Clock_Hour2_On
L_Disp_Clock_Hour3_On:
CLC
ADC #30H
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #ON_TIME_ADDR_X+020H
STA <R_CursorX
LDA #COLON_SIGN
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #ON_TIME_ADDR_X+028H
STA <R_CursorX
STZ R_Disp_CharL
LDA R_Minute_On
L_Disp_Clock_Minute0_On:
CMP #10
BCC L_Disp_Clock_Minute1_On
INC R_Disp_CharL
SEC
SBC #10
BRA L_Disp_Clock_Minute0_On
L_Disp_Clock_Minute1_On:
CLC
LDA R_Disp_CharL
ADC #30H
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #ON_TIME_ADDR_X+030H
STA <R_CursorX
LDA R_Minute_On
L_Disp_Clock_Minute2_On:
CMP #10
BCC L_Disp_Clock_Minute3_On
SEC
SBC #10
BRA L_Disp_Clock_Minute2_On
L_Disp_Clock_Minute3_On:
CLC
ADC #30H
STA R_Disp_CharL
JSR F_Disp_NumOrABC
RTS
;;==============================================
F_Disp_OffTime:
LDA #OFF_TIME_ADDR_X
STA <R_CursorX
LDA #OFF_TIME_ADDR_Y
STA <R_CursorY
JSR F_R_CursorY_37_XY_Off
LDA #'O'
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #OFF_TIME_ADDR_X+008H
STA <R_CursorX
LDA #'F'
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #OFF_TIME_ADDR_X+010H
STA <R_CursorX
LDA #'F'
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #OFF_TIME_ADDR_X+010H
STA <R_CursorX
LDA #OFF_TIME_ADDR_Y+010H
STA <R_CursorY
JSR F_R_CursorY_37_XY_Off
STZ R_Disp_CharL
LDA R_Hour_Off
L_Disp_Clock_Hour0_Off:
CMP #10
BCC L_Disp_Clock_Hour1_Off
INC R_Disp_CharL
SEC
SBC #10
BRA L_Disp_Clock_Hour0_Off
L_Disp_Clock_Hour1_Off:
CLC
LDA R_Disp_CharL
ADC #30H
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #OFF_TIME_ADDR_X+018H
STA <R_CursorX
LDA R_Hour_Off
L_Disp_Clock_Hour2_Off:
CMP #10
BCC L_Disp_Clock_Hour3_Off
SEC
SBC #10
BRA L_Disp_Clock_Hour2_Off
L_Disp_Clock_Hour3_Off:
CLC
ADC #30H
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #OFF_TIME_ADDR_X+020H
STA <R_CursorX
LDA #COLON_SIGN
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #OFF_TIME_ADDR_X+028H
STA <R_CursorX
STZ R_Disp_CharL
LDA R_Minute_Off
L_Disp_Clock_Minute0_Off:
CMP #10
BCC L_Disp_Clock_Minute1_Off
INC R_Disp_CharL
SEC
SBC #10
BRA L_Disp_Clock_Minute0_Off
L_Disp_Clock_Minute1_Off:
CLC
LDA R_Disp_CharL
ADC #30H
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #OFF_TIME_ADDR_X+030H
STA <R_CursorX
LDA R_Minute_Off
L_Disp_Clock_Minute2_Off:
CMP #10
BCC L_Disp_Clock_Minute3_Off
SEC
SBC #10
BRA L_Disp_Clock_Minute2_Off
L_Disp_Clock_Minute3_Off:
CLC
ADC #30H
STA R_Disp_CharL
JSR F_Disp_NumOrABC
RTS
;;==============================================
F_Disp_Clock:
PHA
BBS2 <R_Disp_Flag,L_Disp_Clock
JMP L_Disp_Clock_End
L_Disp_Clock:
RESB 2,R_Disp_Flag
LDA #YEAR_ADDR_X
STA <R_CursorX
LDA #YEAR_ADDR_Y
STA <R_CursorY
JSR F_R_CursorY_37_XY_Off
LDA #'1'
STA R_Disp_CharL
LDA R_Year
AND #080H ; Bit7 = 1 ==>19XX,0 is 20XX.
BEQ L_Disp_Clock_Year20XX
L_Disp_Clock_Year19XX:
JSR F_Disp_NumOrABC
LDA #YEAR_ADDR_X+08H
STA <R_CursorX
LDA #'9'
STA R_Disp_CharL
JSR F_Disp_NumOrABC
BRA L_Disp_Clock_Year20XX_End
L_Disp_Clock_Year20XX:
LDA #'2'
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #YEAR_ADDR_X+08H
STA <R_CursorX
LDA #'0'
STA R_Disp_CharL
JSR F_Disp_NumOrABC
L_Disp_Clock_Year20XX_End:
LDA #YEAR_ADDR_X+010H
STA <R_CursorX
STZ R_Disp_CharL
LDA R_Year
AND #7FH
L_Disp_Clock_Year0:
CMP #10
BCC L_Disp_Clock_Year1
INC R_Disp_CharL
SEC
SBC #10
BRA L_Disp_Clock_Year0
L_Disp_Clock_Year1:
CLC
LDA R_Disp_CharL
ADC #30H
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #YEAR_ADDR_X+018H
STA <R_CursorX
LDA R_Year
AND #7FH
L_Disp_Clock_Year2:
CMP #10
BCC L_Disp_Clock_Year3
SEC
SBC #10
BRA L_Disp_Clock_Year2
L_Disp_Clock_Year3:
CLC
ADC #30H
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #YEAR_ADDR_X+020H
STA <R_CursorX
LDA #MINUS_SIGN
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #YEAR_ADDR_X+028H
STA <R_CursorX
STZ R_Disp_CharL
LDA R_Month
L_Disp_Clock_Month0:
CMP #10
BCC L_Disp_Clock_Month1
INC R_Disp_CharL
SEC
SBC #10
BRA L_Disp_Clock_Month0
L_Disp_Clock_Month1:
CLC
LDA R_Disp_CharL
ADC #30H
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #YEAR_ADDR_X+030H
STA <R_CursorX
LDA R_Month
L_Disp_Clock_Month2:
CMP #10
BCC L_Disp_Clock_Month3
SEC
SBC #10
BRA L_Disp_Clock_Month2
L_Disp_Clock_Month3:
CLC
ADC #30H
STA R_Disp_CharL
JSR F_Disp_NumOrABC
LDA #YEAR_ADDR_X+038H
STA <R_CursorX
LDA #MINUS_SIGN
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -