� DATESTAMP

ZP=&80
OSWORD=&FFF1
(� N%=0 � 3 � 3
2�assemb
<�
F*SAVE DATER C00 CC0
P�
Z:
d��assemb
nP%=&C00
x[OPT(N%)
�o.startup LDA&213:CMP#(P% � 256):BEQ rts:SEI:LDA&212:STA continue+1:LDA&213:STA continue+2:LDA#routine � 256
�2STA&212:LDA#routine � 256:STA&213:CLI:.rts RTS
�.continue JMP &FF1B
��.routine CMP #0:BNE continue:LDA &8009:CMP #�"B":BEQ ok:CMP#�"V":BEQ check:.no LDA#0:BRA continue:.check LDA &800D:CMP #�"S":BEQ no
�H.ok STX ZP:STY ZP+1:LDY#14:LDA(ZP),Y:STA ZP+2:INY:LDA(ZP),Y:STA ZP+3
�2LDY#17:.loop LDA(ZP),Y:STA temp,Y:DEY:BPL loop
�WLDY#3:LDA#0:STA(ZP+2),Y:CLC:LDA ZP+2:ADC#3:TAX:LDA ZP+3:ADC#0:TAY:LDA#14:JSR OSWORD
�OLDY#0:LDA#&80:STA(ZP+2),Y:INY:LDA#�"C":STA(ZP+2),Y:INY:LDA#�"O":STA(ZP+2),Y
�ELDY#14:CLC:LDA ZP+2:ADC#28:STAtemp,Y:INY:LDA ZP+3:ADC#0:STAtemp,Y
�4LDY#17:.loop2 LDA temp,Y:STA(ZP),Y:DEY:BPL loop2
�bLDA#0:LDX ZP:LDY ZP+1:JSR continue:STX ZP:STY ZP+1:LDY#0:LDA#0:STA(ZP+2),Y:LDX ZP:LDY ZP+1:RTS
�
.temp BRK
�]

�
�

00000000  0d 00 0a 0f f4 20 44 41  54 45 53 54 41 4d 50 0d  |..... DATESTAMP.|
00000010  00 14 0a 5a 50 3d 26 38  30 0d 00 1e 10 4f 53 57  |...ZP=&80....OSW|
00000020  4f 52 44 3d 26 46 46 46  31 0d 00 28 12 e3 20 4e  |ORD=&FFF1..(.. N|
00000030  25 3d 30 20 b8 20 33 20  88 20 33 0d 00 32 0b f2  |%=0 . 3 . 3..2..|
00000040  61 73 73 65 6d 62 0d 00  3c 05 ed 0d 00 46 17 2a  |assemb..<....F.*|
00000050  53 41 56 45 20 44 41 54  45 52 20 43 30 30 20 43  |SAVE DATER C00 C|
00000060  43 30 0d 00 50 05 e0 0d  00 5a 05 3a 0d 00 64 0c  |C0..P....Z.:..d.|
00000070  dd f2 61 73 73 65 6d 62  0d 00 6e 0b 50 25 3d 26  |..assemb..n.P%=&|
00000080  43 30 30 0d 00 78 0c 5b  4f 50 54 28 4e 25 29 0d  |C00..x.[OPT(N%).|
00000090  00 82 6f 2e 73 74 61 72  74 75 70 20 4c 44 41 26  |..o.startup LDA&|
000000a0  32 31 33 3a 43 4d 50 23  28 50 25 20 81 20 32 35  |213:CMP#(P% . 25|
000000b0  36 29 3a 42 45 51 20 72  74 73 3a 53 45 49 3a 4c  |6):BEQ rts:SEI:L|
000000c0  44 41 26 32 31 32 3a 53  54 41 20 63 6f 6e 74 69  |DA&212:STA conti|
000000d0  6e 75 65 2b 31 3a 4c 44  41 26 32 31 33 3a 53 54  |nue+1:LDA&213:ST|
000000e0  41 20 63 6f 6e 74 69 6e  75 65 2b 32 3a 4c 44 41  |A continue+2:LDA|
000000f0  23 72 6f 75 74 69 6e 65  20 83 20 32 35 36 0d 00  |#routine . 256..|
00000100  8c 32 53 54 41 26 32 31  32 3a 4c 44 41 23 72 6f  |.2STA&212:LDA#ro|
00000110  75 74 69 6e 65 20 81 20  32 35 36 3a 53 54 41 26  |utine . 256:STA&|
00000120  32 31 33 3a 43 4c 49 3a  2e 72 74 73 20 52 54 53  |213:CLI:.rts RTS|
00000130  0d 00 96 17 2e 63 6f 6e  74 69 6e 75 65 20 4a 4d  |.....continue JM|
00000140  50 20 26 46 46 31 42 0d  00 a0 87 2e 72 6f 75 74  |P &FF1B.....rout|
00000150  69 6e 65 20 43 4d 50 20  23 30 3a 42 4e 45 20 63  |ine CMP #0:BNE c|
00000160  6f 6e 74 69 6e 75 65 3a  4c 44 41 20 26 38 30 30  |ontinue:LDA &800|
00000170  39 3a 43 4d 50 20 23 97  22 42 22 3a 42 45 51 20  |9:CMP #."B":BEQ |
00000180  6f 6b 3a 43 4d 50 23 97  22 56 22 3a 42 45 51 20  |ok:CMP#."V":BEQ |
00000190  63 68 65 63 6b 3a 2e 6e  6f 20 4c 44 41 23 30 3a  |check:.no LDA#0:|
000001a0  42 52 41 20 63 6f 6e 74  69 6e 75 65 3a 2e 63 68  |BRA continue:.ch|
000001b0  65 63 6b 20 4c 44 41 20  26 38 30 30 44 3a 43 4d  |eck LDA &800D:CM|
000001c0  50 20 23 97 22 53 22 3a  42 45 51 20 6e 6f 0d 00  |P #."S":BEQ no..|
000001d0  aa 48 2e 6f 6b 20 53 54  58 20 5a 50 3a 53 54 59  |.H.ok STX ZP:STY|
000001e0  20 5a 50 2b 31 3a 4c 44  59 23 31 34 3a 4c 44 41  | ZP+1:LDY#14:LDA|
000001f0  28 5a 50 29 2c 59 3a 53  54 41 20 5a 50 2b 32 3a  |(ZP),Y:STA ZP+2:|
00000200  49 4e 59 3a 4c 44 41 28  5a 50 29 2c 59 3a 53 54  |INY:LDA(ZP),Y:ST|
00000210  41 20 5a 50 2b 33 0d 00  b4 32 4c 44 59 23 31 37  |A ZP+3...2LDY#17|
00000220  3a 2e 6c 6f 6f 70 20 4c  44 41 28 5a 50 29 2c 59  |:.loop LDA(ZP),Y|
00000230  3a 53 54 41 20 74 65 6d  70 2c 59 3a 44 45 59 3a  |:STA temp,Y:DEY:|
00000240  42 50 4c 20 6c 6f 6f 70  0d 00 be 57 4c 44 59 23  |BPL loop...WLDY#|
00000250  33 3a 4c 44 41 23 30 3a  53 54 41 28 5a 50 2b 32  |3:LDA#0:STA(ZP+2|
00000260  29 2c 59 3a 43 4c 43 3a  4c 44 41 20 5a 50 2b 32  |),Y:CLC:LDA ZP+2|
00000270  3a 41 44 43 23 33 3a 54  41 58 3a 4c 44 41 20 5a  |:ADC#3:TAX:LDA Z|
00000280  50 2b 33 3a 41 44 43 23  30 3a 54 41 59 3a 4c 44  |P+3:ADC#0:TAY:LD|
00000290  41 23 31 34 3a 4a 53 52  20 4f 53 57 4f 52 44 0d  |A#14:JSR OSWORD.|
000002a0  00 c8 4f 4c 44 59 23 30  3a 4c 44 41 23 26 38 30  |..OLDY#0:LDA#&80|
000002b0  3a 53 54 41 28 5a 50 2b  32 29 2c 59 3a 49 4e 59  |:STA(ZP+2),Y:INY|
000002c0  3a 4c 44 41 23 97 22 43  22 3a 53 54 41 28 5a 50  |:LDA#."C":STA(ZP|
000002d0  2b 32 29 2c 59 3a 49 4e  59 3a 4c 44 41 23 97 22  |+2),Y:INY:LDA#."|
000002e0  4f 22 3a 53 54 41 28 5a  50 2b 32 29 2c 59 0d 00  |O":STA(ZP+2),Y..|
000002f0  d2 45 4c 44 59 23 31 34  3a 43 4c 43 3a 4c 44 41  |.ELDY#14:CLC:LDA|
00000300  20 5a 50 2b 32 3a 41 44  43 23 32 38 3a 53 54 41  | ZP+2:ADC#28:STA|
00000310  74 65 6d 70 2c 59 3a 49  4e 59 3a 4c 44 41 20 5a  |temp,Y:INY:LDA Z|
00000320  50 2b 33 3a 41 44 43 23  30 3a 53 54 41 74 65 6d  |P+3:ADC#0:STAtem|
00000330  70 2c 59 0d 00 dc 34 4c  44 59 23 31 37 3a 2e 6c  |p,Y...4LDY#17:.l|
00000340  6f 6f 70 32 20 4c 44 41  20 74 65 6d 70 2c 59 3a  |oop2 LDA temp,Y:|
00000350  53 54 41 28 5a 50 29 2c  59 3a 44 45 59 3a 42 50  |STA(ZP),Y:DEY:BP|
00000360  4c 20 6c 6f 6f 70 32 0d  00 e6 62 4c 44 41 23 30  |L loop2...bLDA#0|
00000370  3a 4c 44 58 20 5a 50 3a  4c 44 59 20 5a 50 2b 31  |:LDX ZP:LDY ZP+1|
00000380  3a 4a 53 52 20 63 6f 6e  74 69 6e 75 65 3a 53 54  |:JSR continue:ST|
00000390  58 20 5a 50 3a 53 54 59  20 5a 50 2b 31 3a 4c 44  |X ZP:STY ZP+1:LD|
000003a0  59 23 30 3a 4c 44 41 23  30 3a 53 54 41 28 5a 50  |Y#0:LDA#0:STA(ZP|
000003b0  2b 32 29 2c 59 3a 4c 44  58 20 5a 50 3a 4c 44 59  |+2),Y:LDX ZP:LDY|
000003c0  20 5a 50 2b 31 3a 52 54  53 0d 00 f0 0d 2e 74 65  | ZP+1:RTS.....te|
000003d0  6d 70 20 42 52 4b 0d 00  fa 05 5d 0d 01 04 05 e1  |mp BRK....].....|
000003e0  0d ff                                             |..|
000003e2