alarm.asm

辞典 dict3.asm.grammar.asm,newword.asm 学习 learn.asm 名片 userinf.asm 备忘 userinf.asm 提醒 userinf

TP0             equ     AData+61        ; Temporary register 0 for system call.
TP1             equ     AData+62        ; Temporary register 1 for system call.
ToneCounter     equ     AData+63        ; Tone counter.

;=================================================================================
DS0             .SECTION                        ; Data ROM location 10000h(Bank#2)
alarmbmp:
	DB	17,14
	DB	%00111000,%00001110,%00100010,%11101000
	DB	%10010000,%00100000,%01000011,%11111111
	DB	%10000010,%00000000,%00100010,%00000000
	DB	%00001001,%00000010,%00000100,%10000001
	DB	%00000010,%01000000,%11110001,%00100000
	DB	%00000000,%10010000,%00000000,%01000100
	DB	%00000000,%01000001,%11111111,%11000000
	DB	%01100000,%110000

shipbmp:
	DB	16,15
	DB	%11111101,%11111111,%11111001,%11111111
	DB	%11111001,%01111111,%11110001,%00111111
	DB	%11110001,%00011111,%11100001,%00001111
	DB	%11100001,%00000111,%11000001,%00000011
	DB	%11000001,%00000001,%10000001,%00001111
	DB	%10000001,%01111111,%11111101,%01110000
	DB	%00000000,%00000001,%10000000,%00000011
	DB	%11111111,%11111111

;=================================================================================
                include alarm.inc
;======================================================================

;======================================================================
PS3             .SECTION
BankNo          equ     AlarmBank
;======================================================================
SchItemNo       equ     2

                public  AlarmBank       ; Open Alarm bank,
                public  AlarmEvent      ;      Alarm event vector.
                public  AlarmFlag2      ; Open Multi-alarm flags.
                public  AlarmFlag4      ;      Alarm mode flags.
                public  ToneCounter     ;      alarm tone counter.
                public  SCViewCounter   ;      Schedule data view counter.
                public  ScheYear        ;      Schedule year.
                public  ScheMonth       ;      Schedule month.
                public  ScheDay         ;      Schedule day.
                public  ScheHour        ;      Schedule hour.
                public  ScheMinute      ;      Schedule minute.
                public  ChkSCYear       ;      Check schedule year.
                public  ChkSCMonth      ;      Check schedule month.
                public  ChkSCDay        ;      Check schedule day.
                public  ChkSCHour       ;      Check schedule hour.
                public  ChkSCMinute     ;      Check schedule minute.
                public  ScheDSLine      ;      Schedule hint message.
                public  TP0             ;      Temporary register at AData.
                public  LocalTime       ; Open local time zone register.
                public  WTIMEDSLine0    ;      world time display table.
                public  SWSecond        ; Open Second register for Stop-watch.
                public  SWMinute        ;      Minute register for Stop-watch.
                public  SWHour          ;      Hour register for Stop-watch.
                public  AD2KDay         ; Open Day register for AD2000.
                public  AD2KMonth       ;      Month register for AD2000.
                public  AD2KYear        ;      Year register for AD2000.


calnumberstring1:
        db  13,11
        db    00000000b,00000000b,00110000b,00000011b,10000000b
        db    00001100b,00000000b,01100000b,00000011b,00000000b
        db    00011000b,00000000b,11000000b,00000110b,00000000b
        db    01111000b,00000000b,00000000b
calnumberstring2:
        db   13,11
        db    00000000b,00000000b,00111000b,00000011b,01100000b
        db    00011011b,00000000b,00011000b,00000001b,10000000b
        db    00011000b,00000001b,10000000b,00001111b,10000000b
        db    01111100b,00000000b,00000000b
calnumberstring3:
        db   13,11
        db    00000000b,00000000b,00111000b,00000011b,11100000b
        db    00000011b,00000000b,00011000b,00000011b,10000000b
        db    00000110b,00000000b,00110000b,00001111b,10000000b
        db    00111000b,00000000b,00000000b
calnumberstring4:
        db   13,11
        db    00000000b,00000000b,00011000b,00000001b,11000000b
        db    00010110b,00000000b,10110000b,00000101b,10000000b
        db    00101100b,00000001b,11110000b,00000011b,00000000b
        db    00111100b,00000000b,00000000b
calnumberstring5:
        db   13,11
        db    00000000b,00000000b,01111100b,00000011b,11100000b
        db    00010000b,00000000b,11110000b,00000111b,11000000b
        db    00000110b,00000001b,00110000b,00001111b,10000000b
        db    00111000b,00000000b,00000000b
calnumberstring6:
        db   13,11
        db    00000000b,00000000b,00111000b,00000011b,11100000b
        db    00011001b,00000000b,11000000b,00000111b,10000000b
        db    00110110b,00000001b,10110000b,00001111b,10000000b
        db    00111000b,00000000b,00000000b
calnumberstring7:
        db   13,11
        db    00000000b,00000000b,01111100b,00000011b,11100000b
        db    00010011b,00000000b,00011000b,00000001b,10000000b
        db    00011000b,00000000b,11000000b,00000110b,00000000b
        db    00110000b,00000000b,00000000b
calnumberstring8:
        db  13,11
        db    00000000b,00000000b,00111000b,00000011b,01100000b
        db    00011011b,00000000b,11011000b,00000011b,10000000b
        db    00110110b,00000001b,10110000b,00001101b,10000000b
        db    00111000b,00000000b,00000000b
calnumberstring9:
        db   13,11
        db    00000000b,00000000b,00111000b,00000011b,11100000b
        db    00011011b,00000000b,11011000b,00000011b,11000000b
        db    00000110b,00000001b,00110000b,00001111b,10000000b
        db    00111000b,00000000b,00000000b
calnumberstring0:
        db  12,9
        db    00001110b,00000001b,10110000b,00011011b,00000001b
        db    10110000b,00011011b,00000001b,10110000b,00011011b
        db    00000001b,10110000b,00001110b,00000000b
calnumberstring10:
        db  13,11
        db    00000000b,00000000b,11001110b,00001110b,11011000b
        db    00110110b,11000001b,10110110b,00001101b,10110000b
        db    01101101b,10000011b,01101100b,00011011b,01100001b
        db    11101110b,00000000b,00000000b
calnumberstring11:
        db  13,11
        db    00000000b,00000000b,11000110b,00001110b,01110000b
        db    00110001b,10000001b,10001100b,00001100b,01100000b
        db    01100011b,00000011b,00011000b,00011000b,11000001b
        db    11101111b,00000000b,00000000b
calnumberstring12:
       db   13,11
       db    00000000b,00000000b,11000111b,00001110b,01101100b
       db    00110011b,01100001b,10000011b,00001100b,00110000b
       db    01100011b,00000011b,00110000b,00011001b,11110001b
       db    11101111b,10000000b,00000000b
calnumberstring13:
        db   13,11
        db    00000000b,00000000b,11001110b,00001110b,11111000b
        db    00110000b,11000001b,10000110b,00001100b,11100000b
        db    01100001b,10000011b,00001100b,00011011b,11100001b
        db    11101110b,00000000b,00000000b
calnumberstring14:
        db   13,11
        db    00000000b,00000000b,11000110b,00001110b,01110000b
        db    00110101b,10000001b,10101100b,00001101b,01100000b
        db    01101011b,00000011b,01111100b,00011000b,11000001b
        db    11101111b,00000000b,00000000b
calnumberstring15:
        db   13,11
        db    00000000b,00000000b,11011111b,00001110b,11111000b
        db    00110100b,00000001b,10111100b,00001101b,11110000b
        db    01100001b,10000011b,01001100b,00011011b,11100001b
        db    11101110b,00000000b,00000000b
calnumberstring16:
        db   13,11
        db    00000000b,00000000b,11000111b,00001110b,01111100b
        db    00110011b,00100001b,10011000b,00001100b,11110000b
        db    01100110b,11000011b,00110110b,00011001b,11110001b
        db    11100111b,00000000b,00000000b
calnumberstring17:
        db   13,11
        db    00000000b,00000000b,11011111b,00001110b,11111000b
        db    00110100b,11000001b,10000110b,00001100b,01100000b
        db    01100110b,00000011b,00110000b,00011001b,10000001b
        db    11101100b,00000000b,00000000b
calnumberstring18:
        db  13,11
        db    00000000b,00000000b,11001110b,00001110b,11011000b
        db    00110110b,11000001b,10110110b,00001100b,11100000b
        db    01101101b,10000011b,01101100b,00011011b,01100001b
        db    11101110b,00000000b,00000000b
calnumberstring19:
        db   13,11
        db    00000000b,00000000b,11001110b,00001110b,11111000b
        db    00110110b,11000001b,10110110b,00001100b,11110000b
        db    01100001b,10000011b,01001100b,00011011b,11100001b
        db    11101110b,00000000b,00000000b

calnumberstring20:
        db   13,11
        db    00000000b,00000001b,11000111b,00011011b,01101100b
        db    11011011b,01100000b,11011011b,00001100b,11011000b
        db    11000110b,11001100b,00110110b,01111101b,10110011b
        db    11100111b,00000000b,00000000b
calnumberstring21:
        db  13,11
        db    00000000b,00000000b,11100011b,00001101b,10111000b
        db    01101100b,11000000b,01100110b,00000110b,00110000b
        db    01100001b,10000110b,00001100b,00111110b,01100001b
        db    11110111b,10000000b,00000000b
calnumberstring22:
        db  13,11
        db    00000000b,00000001b,11000111b,00011011b,01101100b
        db    11011011b,01100000b,11000011b,00001100b,00110000b
        db    11000011b,00001100b,00110000b,01111101b,11110011b
        db    11101111b,10000000b,00000000b
calnumberstring23:
        db   13,11
        db    00000000b,00000001b,11000111b,00011011b,01111100b
        db    11011000b,01100000b,11000011b,00001100b,01110000b
        db    11000000b,11001100b,00000110b,01111101b,11110011b
        db    11100111b,00000000b,00000000b
calnumberstring24:
        db   13,11
        db    00000000b,00000001b,11000011b,00011011b,00111000b
        db    11011010b,11000000b,11010110b,00001100b,10110000b
        db    11000101b,10001100b,00111110b,01111100b,01100011b
        db    11100111b,10000000b,00000000b
calnumberstring25:
        db   13,11
        db    00000000b,00000001b,11001111b,10011011b,01111100b
        db    11011010b,00000000b,11011110b,00001100b,11111000b
        db    11000000b,11001100b,00100110b,01111101b,11110011b
        db    11100111b,00000000b,00000000b
calnumberstring26:
        db  13,11
        db    00000000b,00000001b,11000111b,00011011b,01111100b
        db    11011011b,00100000b,11011000b,00001100b,11110000b
        db    11000110b,11001100b,00110110b,01111101b,11110011b
        db    11100111b,00000000b,00000000b
calnumberstring27:
        db  13,11
        db    00000000b,00000001b,11001111b,10011011b,01111100b
        db    11011010b,01100000b,11000011b,00001100b,00110000b
        db    11000011b,00001100b,00011000b,01111100b,11000011b
        db    11100110b,00000000b,00000000b
calnumberstring28:
        db   13,11
        db    00000000b,00000001b,11000111b,00011011b,01101100b
        db    11011011b,01100000b,11011011b,00001100b,01110000b
        db    11000110b,11001100b,00110110b,01111101b,10110011b
        db    11100111b,00000000b,00000000b
calnumberstring29:
        db   13,11
        db    00000000b,00000001b,11000111b,00011011b,01111100b
        db    11011011b,01100000b,11011011b,00001100b,01111000b
        db    11000000b,11001100b,00100110b,01111101b,11110011b
        db    11100111b,00000000b,00000000b
calnumberstring30:
        db   13,11
        db    00000000b,00000001b,11000111b,00011111b,01101100b
        db    00011011b,01100000b,11011011b,00011100b,11011000b
        db    00110110b,11000001b,10110110b,01111101b,10110001b
        db    11000111b,00000000b,00000000b
calnumberstring31:
        db   13,11
        db    00000000b,00000000b,11100011b,00001111b,10111000b
        db    00001100b,11000000b,01100110b,00001110b,00110000b
        db    00011001b,10000000b,11001100b,00111110b,01100000b
        db    11100111b,10000000b,00000000b
;======================================================================
;PS3             .SECTION
;BankNo          equ     AlarmBank
calnumberstring00:
                db  13,11
                db    00000000b,00000000b,00000000b,00000000b,00000000b
                db    00000000b,00000000b,00000000b,00000000b,00000000b
                db    00000000b,00000000b,00000000b,00000000b,00000000b
                db    00000000b,00000000b,00000000b
xinqitab:
                dw   sundata,mondaydata,turesdaydata
                dw   wenesdaydata,thuresdaydata,fridaydata,saturesdaydata
sundata:
                dw  calnumberstring1,calnumberstring2
                dw  calnumberstring3,calnumberstring4
                dw  calnumberstring5,calnumberstring6
                dw  calnumberstring7,calnumberstring8
                dw  calnumberstring9,calnumberstring10,calnumberstring11
                dw  calnumberstring12,calnumberstring13,calnumberstring14,calnumberstring15
                dw  calnumberstring16,calnumberstring17,calnumberstring18,calnumberstring19
                dw  calnumberstring20,calnumberstring21,calnumberstring22,calnumberstring23
                dw  calnumberstring24,calnumberstring25,calnumberstring26,calnumberstring27
                dw  calnumberstring28
                dw  calnumberstring00