� 24hr. CLOCK
:
:
(:
2*FX250,255
<�N%=1�2000:�
F
zp=&F8
P
�N%=0�2�2
ZP%=&900
d
[OPTN%
n.enable_int
x* SEI:LDA&206:STAoldv:LDA&207:STAoldv+1
�;LDA#interupt �256:STA&206:LDA#interupt �256:STA&207:CLI
�LDA#&40:�A&FE6B:STA&FE6B
�LDA#&C0:STA&FE6D:STA&FE6E
�!LDA#1:STAcount:LDA#0:STAmode7
�)LDA#&26:STA&FE64:LDA#&C3:STA&FE65:RTS
�.disable_int
�)SEI:LDAoldv:STA&206:LDAoldv+1:STA&207
� LDA#&40:STA&FE6E:CLI:JMPexit
�
.interupt
�LDA&FC:PHA:TXA:PHA:TYA:PHA
�.LDA#&40:�&FE6D:BNEtimer1_interrupt:JMPexit
�.timer1_interrupt

LDA&FE64

-LDA&355:LDX&28A:CMP#7:BEQstore_mode:LDX#0

.store_mode STXmode7

""LDA&28A:CMP#255:BEQdisable_int

6"DECcount:BEQprint_time:JMPexit

@#.print_time CLI:LDA#20:STAcount

JLDA#0:STAaltemp

T/LDA&350:STAzp:LDA&351:STAzp+1:LDY#39:LDX#12

^LDY#39:LDX#12

h'LDAmode7:BNEdisplay:LDA#&C0:STAzp+1

rE.display LDAttab,X:STA(zp),Y:CMPaldat,X:BNEnext_display:INCaltemp

|$.next_display DEY:DEX:BPLdisplay

�.update_time LDY#10

�A.increment_loop LDA#58:STAtemp:JSRchange:CMP#48:BNEcheck_hour

�5DEY:LDA#54:STAtemp:JSRchange:CMP#48:BNEcheck_hour

�DEY:DEY:BNEincrement_loop

�5.check_hour LDY#3:LDAttab,Y:CMP#50:BNEcheck_alarm

�%LDAttab+1,Y:CMP#52:BNEcheck_alarm

� LDA#48:STAttab,Y:STAttab+1,Y

�2.check_alarm LDAaltemp:CMP#13:BNEexit:JSRsound

�	.exit

�(PLA:TAY:PLA:TAX:PLA:STA&FC:JMP(oldv)

�D.change LDAttab,Y:CLC:ADC#1:CMPtemp:BNEP%+4:LDA#48:STAttab,Y:RTS

�.sound LDA#89:JSRplay

�LDA#101:JSRplay
LDA#117:JSRplay
LDA&FF:BPLsound:RTS
H.play STAmusdat+4:LDX#musdat �256:LDY#musdat �256:LDA#7:JSR&FFF1:RTS
&.oldv BRK:BRK
0.mode7 BRK
:.count BRK
D.altemp BRK
N
.temp BRK
X	.ttab
b]P%=P%+13:[OPTN%:.aldat 
l]P%=P%+13:[OPTN%:.musdat
v]�:P%=P%+8
��N%=0�33
��ttab?N%
��
�m�132,157,131,48,48,58,48,48,58,48,48,32,32,132,157,131,58,58,58,58,58,58,58,58,32,32,1,0,243,255,89,0,3,0
��7
�3�" Input Time in hours,miutes,seconds"'H%,M%,S%
��enter(H%,ttab+3)
� �enter(M%,ttab+6)
��enter(S%,ttab+9)
�!�'"Input alarm Time"'H%,M%,S%
�<�enter(H%,aldat+3):�enter(M%,aldat+6):�enter(S%,aldat+9)
�)�''"Press any key to start clock...."
�*FX15,1
A=�
*FX250,1
�enable_int:�:�
 ��enter(V%,A%)
*
S$=�V%
4�S$=1 S$="0"+S$
>?A%=��S$,1,1)
HA%?1=��S$,2,1)
R�
�

00000000  0d 00 0a 11 f4 20 32 34  68 72 2e 20 43 4c 4f 43  |..... 24hr. CLOC|
00000010  4b 0d 00 14 05 3a 0d 00  1e 05 3a 0d 00 28 05 3a  |K....:....:..(.:|
00000020  0d 00 32 0e 2a 46 58 32  35 30 2c 32 35 35 0d 00  |..2.*FX250,255..|
00000030  3c 10 e3 4e 25 3d 31 b8  32 30 30 30 3a ed 0d 00  |<..N%=1.2000:...|
00000040  46 0a 7a 70 3d 26 46 38  0d 00 50 0d e3 4e 25 3d  |F.zp=&F8..P..N%=|
00000050  30 b8 32 88 32 0d 00 5a  0b 50 25 3d 26 39 30 30  |0.2.2..Z.P%=&900|
00000060  0d 00 64 0a 5b 4f 50 54  4e 25 0d 00 6e 0f 2e 65  |..d.[OPTN%..n..e|
00000070  6e 61 62 6c 65 5f 69 6e  74 0d 00 78 2a 20 53 45  |nable_int..x* SE|
00000080  49 3a 4c 44 41 26 32 30  36 3a 53 54 41 6f 6c 64  |I:LDA&206:STAold|
00000090  76 3a 4c 44 41 26 32 30  37 3a 53 54 41 6f 6c 64  |v:LDA&207:STAold|
000000a0  76 2b 31 0d 00 82 3b 4c  44 41 23 69 6e 74 65 72  |v+1...;LDA#inter|
000000b0  75 70 74 20 83 32 35 36  3a 53 54 41 26 32 30 36  |upt .256:STA&206|
000000c0  3a 4c 44 41 23 69 6e 74  65 72 75 70 74 20 81 32  |:LDA#interupt .2|
000000d0  35 36 3a 53 54 41 26 32  30 37 3a 43 4c 49 0d 00  |56:STA&207:CLI..|
000000e0  8c 1c 4c 44 41 23 26 34  30 3a 84 41 26 46 45 36  |..LDA#&40:.A&FE6|
000000f0  42 3a 53 54 41 26 46 45  36 42 0d 00 96 1d 4c 44  |B:STA&FE6B....LD|
00000100  41 23 26 43 30 3a 53 54  41 26 46 45 36 44 3a 53  |A#&C0:STA&FE6D:S|
00000110  54 41 26 46 45 36 45 0d  00 a0 21 4c 44 41 23 31  |TA&FE6E...!LDA#1|
00000120  3a 53 54 41 63 6f 75 6e  74 3a 4c 44 41 23 30 3a  |:STAcount:LDA#0:|
00000130  53 54 41 6d 6f 64 65 37  0d 00 aa 29 4c 44 41 23  |STAmode7...)LDA#|
00000140  26 32 36 3a 53 54 41 26  46 45 36 34 3a 4c 44 41  |&26:STA&FE64:LDA|
00000150  23 26 43 33 3a 53 54 41  26 46 45 36 35 3a 52 54  |#&C3:STA&FE65:RT|
00000160  53 0d 00 b4 10 2e 64 69  73 61 62 6c 65 5f 69 6e  |S.....disable_in|
00000170  74 0d 00 be 29 53 45 49  3a 4c 44 41 6f 6c 64 76  |t...)SEI:LDAoldv|
00000180  3a 53 54 41 26 32 30 36  3a 4c 44 41 6f 6c 64 76  |:STA&206:LDAoldv|
00000190  2b 31 3a 53 54 41 26 32  30 37 0d 00 c8 20 4c 44  |+1:STA&207... LD|
000001a0  41 23 26 34 30 3a 53 54  41 26 46 45 36 45 3a 43  |A#&40:STA&FE6E:C|
000001b0  4c 49 3a 4a 4d 50 65 78  69 74 0d 00 dc 0d 2e 69  |LI:JMPexit.....i|
000001c0  6e 74 65 72 75 70 74 0d  00 e6 1e 4c 44 41 26 46  |nterupt....LDA&F|
000001d0  43 3a 50 48 41 3a 54 58  41 3a 50 48 41 3a 54 59  |C:PHA:TXA:PHA:TY|
000001e0  41 3a 50 48 41 0d 00 f0  2e 4c 44 41 23 26 34 30  |A:PHA....LDA#&40|
000001f0  3a 80 26 46 45 36 44 3a  42 4e 45 74 69 6d 65 72  |:.&FE6D:BNEtimer|
00000200  31 5f 69 6e 74 65 72 72  75 70 74 3a 4a 4d 50 65  |1_interrupt:JMPe|
00000210  78 69 74 0d 00 fa 15 2e  74 69 6d 65 72 31 5f 69  |xit.....timer1_i|
00000220  6e 74 65 72 72 75 70 74  0d 01 04 0c 4c 44 41 26  |nterrupt....LDA&|
00000230  46 45 36 34 0d 01 0e 2d  4c 44 41 26 33 35 35 3a  |FE64...-LDA&355:|
00000240  4c 44 58 26 32 38 41 3a  43 4d 50 23 37 3a 42 45  |LDX&28A:CMP#7:BE|
00000250  51 73 74 6f 72 65 5f 6d  6f 64 65 3a 4c 44 58 23  |Qstore_mode:LDX#|
00000260  30 0d 01 18 18 2e 73 74  6f 72 65 5f 6d 6f 64 65  |0.....store_mode|
00000270  20 53 54 58 6d 6f 64 65  37 0d 01 22 22 4c 44 41  | STXmode7..""LDA|
00000280  26 32 38 41 3a 43 4d 50  23 32 35 35 3a 42 45 51  |&28A:CMP#255:BEQ|
00000290  64 69 73 61 62 6c 65 5f  69 6e 74 0d 01 36 22 44  |disable_int..6"D|
000002a0  45 43 63 6f 75 6e 74 3a  42 45 51 70 72 69 6e 74  |ECcount:BEQprint|
000002b0  5f 74 69 6d 65 3a 4a 4d  50 65 78 69 74 0d 01 40  |_time:JMPexit..@|
000002c0  23 2e 70 72 69 6e 74 5f  74 69 6d 65 20 43 4c 49  |#.print_time CLI|
000002d0  3a 4c 44 41 23 32 30 3a  53 54 41 63 6f 75 6e 74  |:LDA#20:STAcount|
000002e0  0d 01 4a 13 4c 44 41 23  30 3a 53 54 41 61 6c 74  |..J.LDA#0:STAalt|
000002f0  65 6d 70 0d 01 54 2f 4c  44 41 26 33 35 30 3a 53  |emp..T/LDA&350:S|
00000300  54 41 7a 70 3a 4c 44 41  26 33 35 31 3a 53 54 41  |TAzp:LDA&351:STA|
00000310  7a 70 2b 31 3a 4c 44 59  23 33 39 3a 4c 44 58 23  |zp+1:LDY#39:LDX#|
00000320  31 32 0d 01 5e 11 4c 44  59 23 33 39 3a 4c 44 58  |12..^.LDY#39:LDX|
00000330  23 31 32 0d 01 68 27 4c  44 41 6d 6f 64 65 37 3a  |#12..h'LDAmode7:|
00000340  42 4e 45 64 69 73 70 6c  61 79 3a 4c 44 41 23 26  |BNEdisplay:LDA#&|
00000350  43 30 3a 53 54 41 7a 70  2b 31 0d 01 72 45 2e 64  |C0:STAzp+1..rE.d|
00000360  69 73 70 6c 61 79 20 4c  44 41 74 74 61 62 2c 58  |isplay LDAttab,X|
00000370  3a 53 54 41 28 7a 70 29  2c 59 3a 43 4d 50 61 6c  |:STA(zp),Y:CMPal|
00000380  64 61 74 2c 58 3a 42 4e  45 6e 65 78 74 5f 64 69  |dat,X:BNEnext_di|
00000390  73 70 6c 61 79 3a 49 4e  43 61 6c 74 65 6d 70 0d  |splay:INCaltemp.|
000003a0  01 7c 24 2e 6e 65 78 74  5f 64 69 73 70 6c 61 79  |.|$.next_display|
000003b0  20 44 45 59 3a 44 45 58  3a 42 50 4c 64 69 73 70  | DEY:DEX:BPLdisp|
000003c0  6c 61 79 0d 01 86 17 2e  75 70 64 61 74 65 5f 74  |lay.....update_t|
000003d0  69 6d 65 20 4c 44 59 23  31 30 0d 01 90 41 2e 69  |ime LDY#10...A.i|
000003e0  6e 63 72 65 6d 65 6e 74  5f 6c 6f 6f 70 20 4c 44  |ncrement_loop LD|
000003f0  41 23 35 38 3a 53 54 41  74 65 6d 70 3a 4a 53 52  |A#58:STAtemp:JSR|
00000400  63 68 61 6e 67 65 3a 43  4d 50 23 34 38 3a 42 4e  |change:CMP#48:BN|
00000410  45 63 68 65 63 6b 5f 68  6f 75 72 0d 01 9a 35 44  |Echeck_hour...5D|
00000420  45 59 3a 4c 44 41 23 35  34 3a 53 54 41 74 65 6d  |EY:LDA#54:STAtem|
00000430  70 3a 4a 53 52 63 68 61  6e 67 65 3a 43 4d 50 23  |p:JSRchange:CMP#|
00000440  34 38 3a 42 4e 45 63 68  65 63 6b 5f 68 6f 75 72  |48:BNEcheck_hour|
00000450  0d 01 a4 1d 44 45 59 3a  44 45 59 3a 42 4e 45 69  |....DEY:DEY:BNEi|
00000460  6e 63 72 65 6d 65 6e 74  5f 6c 6f 6f 70 0d 01 ae  |ncrement_loop...|
00000470  35 2e 63 68 65 63 6b 5f  68 6f 75 72 20 4c 44 59  |5.check_hour LDY|
00000480  23 33 3a 4c 44 41 74 74  61 62 2c 59 3a 43 4d 50  |#3:LDAttab,Y:CMP|
00000490  23 35 30 3a 42 4e 45 63  68 65 63 6b 5f 61 6c 61  |#50:BNEcheck_ala|
000004a0  72 6d 0d 01 b8 25 4c 44  41 74 74 61 62 2b 31 2c  |rm...%LDAttab+1,|
000004b0  59 3a 43 4d 50 23 35 32  3a 42 4e 45 63 68 65 63  |Y:CMP#52:BNEchec|
000004c0  6b 5f 61 6c 61 72 6d 0d  01 c2 20 4c 44 41 23 34  |k_alarm... LDA#4|
000004d0  38 3a 53 54 41 74 74 61  62 2c 59 3a 53 54 41 74  |8:STAttab,Y:STAt|
000004e0  74 61 62 2b 31 2c 59 0d  01 cc 32 2e 63 68 65 63  |tab+1,Y...2.chec|
000004f0  6b 5f 61 6c 61 72 6d 20  4c 44 41 61 6c 74 65 6d  |k_alarm LDAaltem|
00000500  70 3a 43 4d 50 23 31 33  3a 42 4e 45 65 78 69 74  |p:CMP#13:BNEexit|
00000510  3a 4a 53 52 73 6f 75 6e  64 0d 01 d6 09 2e 65 78  |:JSRsound.....ex|
00000520  69 74 0d 01 e0 28 50 4c  41 3a 54 41 59 3a 50 4c  |it...(PLA:TAY:PL|
00000530  41 3a 54 41 58 3a 50 4c  41 3a 53 54 41 26 46 43  |A:TAX:PLA:STA&FC|
00000540  3a 4a 4d 50 28 6f 6c 64  76 29 0d 01 ea 44 2e 63  |:JMP(oldv)...D.c|
00000550  68 61 6e 67 65 20 4c 44  41 74 74 61 62 2c 59 3a  |hange LDAttab,Y:|
00000560  43 4c 43 3a 41 44 43 23  31 3a 43 4d 50 74 65 6d  |CLC:ADC#1:CMPtem|
00000570  70 3a 42 4e 45 50 25 2b  34 3a 4c 44 41 23 34 38  |p:BNEP%+4:LDA#48|
00000580  3a 53 54 41 74 74 61 62  2c 59 3a 52 54 53 0d 01  |:STAttab,Y:RTS..|
00000590  f4 19 2e 73 6f 75 6e 64  20 4c 44 41 23 38 39 3a  |...sound LDA#89:|
000005a0  4a 53 52 70 6c 61 79 0d  01 fe 13 4c 44 41 23 31  |JSRplay....LDA#1|
000005b0  30 31 3a 4a 53 52 70 6c  61 79 0d 02 08 13 4c 44  |01:JSRplay....LD|
000005c0  41 23 31 31 37 3a 4a 53  52 70 6c 61 79 0d 02 12  |A#117:JSRplay...|
000005d0  17 4c 44 41 26 46 46 3a  42 50 4c 73 6f 75 6e 64  |.LDA&FF:BPLsound|
000005e0  3a 52 54 53 0d 02 1c 48  2e 70 6c 61 79 20 53 54  |:RTS...H.play ST|
000005f0  41 6d 75 73 64 61 74 2b  34 3a 4c 44 58 23 6d 75  |Amusdat+4:LDX#mu|
00000600  73 64 61 74 20 83 32 35  36 3a 4c 44 59 23 6d 75  |sdat .256:LDY#mu|
00000610  73 64 61 74 20 81 32 35  36 3a 4c 44 41 23 37 3a  |sdat .256:LDA#7:|
00000620  4a 53 52 26 46 46 46 31  3a 52 54 53 0d 02 26 11  |JSR&FFF1:RTS..&.|
00000630  2e 6f 6c 64 76 20 42 52  4b 3a 42 52 4b 0d 02 30  |.oldv BRK:BRK..0|
00000640  0e 2e 6d 6f 64 65 37 20  42 52 4b 0d 02 3a 0e 2e  |..mode7 BRK..:..|
00000650  63 6f 75 6e 74 20 42 52  4b 0d 02 44 0f 2e 61 6c  |count BRK..D..al|
00000660  74 65 6d 70 20 42 52 4b  0d 02 4e 0d 2e 74 65 6d  |temp BRK..N..tem|
00000670  70 20 42 52 4b 0d 02 58  09 2e 74 74 61 62 0d 02  |p BRK..X..ttab..|
00000680  62 1c 5d 50 25 3d 50 25  2b 31 33 3a 5b 4f 50 54  |b.]P%=P%+13:[OPT|
00000690  4e 25 3a 2e 61 6c 64 61  74 20 0d 02 6c 1c 5d 50  |N%:.aldat ..l.]P|
000006a0  25 3d 50 25 2b 31 33 3a  5b 4f 50 54 4e 25 3a 2e  |%=P%+13:[OPTN%:.|
000006b0  6d 75 73 64 61 74 0d 02  76 0e 5d ed 3a 50 25 3d  |musdat..v.].:P%=|
000006c0  50 25 2b 38 0d 02 80 0c  e3 4e 25 3d 30 b8 33 33  |P%+8.....N%=0.33|
000006d0  0d 02 8a 0c f3 74 74 61  62 3f 4e 25 0d 02 94 05  |.....ttab?N%....|
000006e0  ed 0d 02 9e 6d dc 31 33  32 2c 31 35 37 2c 31 33  |....m.132,157,13|
000006f0  31 2c 34 38 2c 34 38 2c  35 38 2c 34 38 2c 34 38  |1,48,48,58,48,48|
00000700  2c 35 38 2c 34 38 2c 34  38 2c 33 32 2c 33 32 2c  |,58,48,48,32,32,|
00000710  31 33 32 2c 31 35 37 2c  31 33 31 2c 35 38 2c 35  |132,157,131,58,5|
00000720  38 2c 35 38 2c 35 38 2c  35 38 2c 35 38 2c 35 38  |8,58,58,58,58,58|
00000730  2c 35 38 2c 33 32 2c 33  32 2c 31 2c 30 2c 32 34  |,58,32,32,1,0,24|
00000740  33 2c 32 35 35 2c 38 39  2c 30 2c 33 2c 30 0d 02  |3,255,89,0,3,0..|
00000750  a8 06 eb 37 0d 02 b2 33  e8 22 20 49 6e 70 75 74  |...7...3." Input|
00000760  20 54 69 6d 65 20 69 6e  20 68 6f 75 72 73 2c 6d  | Time in hours,m|
00000770  69 75 74 65 73 2c 73 65  63 6f 6e 64 73 22 27 48  |iutes,seconds"'H|
00000780  25 2c 4d 25 2c 53 25 0d  02 bc 15 f2 65 6e 74 65  |%,M%,S%.....ente|
00000790  72 28 48 25 2c 74 74 61  62 2b 33 29 0d 02 c6 16  |r(H%,ttab+3)....|
000007a0  20 f2 65 6e 74 65 72 28  4d 25 2c 74 74 61 62 2b  | .enter(M%,ttab+|
000007b0  36 29 0d 02 d0 15 f2 65  6e 74 65 72 28 53 25 2c  |6).....enter(S%,|
000007c0  74 74 61 62 2b 39 29 0d  02 da 21 e8 27 22 49 6e  |ttab+9)...!.'"In|
000007d0  70 75 74 20 61 6c 61 72  6d 20 54 69 6d 65 22 27  |put alarm Time"'|
000007e0  48 25 2c 4d 25 2c 53 25  0d 02 e4 3c f2 65 6e 74  |H%,M%,S%...<.ent|
000007f0  65 72 28 48 25 2c 61 6c  64 61 74 2b 33 29 3a f2  |er(H%,aldat+3):.|
00000800  65 6e 74 65 72 28 4d 25  2c 61 6c 64 61 74 2b 36  |enter(M%,aldat+6|
00000810  29 3a f2 65 6e 74 65 72  28 53 25 2c 61 6c 64 61  |):.enter(S%,alda|
00000820  74 2b 39 29 0d 02 ee 29  f1 27 27 22 50 72 65 73  |t+9)...).''"Pres|
00000830  73 20 61 6e 79 20 6b 65  79 20 74 6f 20 73 74 61  |s any key to sta|
00000840  72 74 20 63 6c 6f 63 6b  2e 2e 2e 2e 22 0d 02 f8  |rt clock...."...|
00000850  0b 2a 46 58 31 35 2c 31  0d 03 02 07 41 3d a5 0d  |.*FX15,1....A=..|
00000860  03 0c 0c 2a 46 58 32 35  30 2c 31 0d 03 16 13 d6  |...*FX250,1.....|
00000870  65 6e 61 62 6c 65 5f 69  6e 74 3a db 3a e0 0d 03  |enable_int:.:...|
00000880  20 12 dd f2 65 6e 74 65  72 28 56 25 2c 41 25 29  | ...enter(V%,A%)|
00000890  0d 03 2a 0a 53 24 3d c3  56 25 0d 03 34 14 e7 a9  |..*.S$=.V%..4...|
000008a0  53 24 3d 31 20 53 24 3d  22 30 22 2b 53 24 0d 03  |S$=1 S$="0"+S$..|
000008b0  3e 11 3f 41 25 3d 97 c1  53 24 2c 31 2c 31 29 0d  |>.?A%=..S$,1,1).|
000008c0  03 48 12 41 25 3f 31 3d  97 c1 53 24 2c 32 2c 31  |.H.A%?1=..S$,2,1|
000008d0  29 0d 03 52 05 e1 0d ff                           |)..R....|
000008d8