�6
* oscli=&FFF7:oswrch=&FFEE:osbyte=&FFF4
' � pass=0 � 2 � 2:P%=&900:[OPT pass
(* LDA&21E:STAoldvec:LDA&21F:STAoldvec+1
28 SEI:LDA#code �256:STA&21E:LDA#code �256:STA&21F:CLI
< RTS
F
 .code
P CMP#4:BEQsync:JMP(oldvec)
Z
 .sync
d) LDX#load �256:LDY#load �256:JSRoscli
n! LDA#13:LDX#4:LDY#0:JSRosbyte
x LDA#&1F:STA&7426
� LDA#&60:STA&7445
� LDA#&A9:STA&7436
�
 JSR&741F
�G LDA#&20:STA&2057:LDA#&E0:STA&2058:LDA#&B:STA&2059:LDA#&A6:STA&205A
�L LDX#0:.loop LDAcode2,X:STA&27E0,X:INX:CPX#(code2end-code2start):BNEloop
� LDA#3:STA&7426
� LDA#&8D:STA&742F
� LDA#&A9:STA&7445
� LDA#&A9:STA&29A9
�
 JMP&7400
� .oldvec EQUW0
�& .load EQUS"LOAD SYNC 1F00":EQUB13
� .unlock

 LDA&3CA:�#254:STA&3CA

 RTS

 .code2

" ]

, O%=P%:P%=&BE0

6 [OPTpass+4

@ .code2start

JV STA&FE05:SEI:LDA#15:STA&AB:.delay LDY#1:.a DEY:BEQout:LDX#0:.b DEX:BNEb:BEQa:.out

T LDA#&EA:STA&619

^+ LDX#0:.l1 LDA&20,X:PHA:INX:CPX#4:BNEl1

hf LDA#&D:JSR&5F9:BPLslow:LDAdelay+1:CMP#1:BEQout2:DECflag:BNEout2:LDA#10:STAflag:DECdelay+1:BNEout2

rz .slow LDA#&12:JSR&5F9:BPLout2:LDAdelay+1:CMP#14:BEQout2:INCflag:LDAflag:CMP#11:BNEout2:LDA#1:STAflag:INCdelay+1:.out2

|% LDX#4:.l2 PLA:STA&19,X:DEX:BNEl2

� LDA#&58:STA&619

� RTS

� .flag EQUB1

� .code2end

� ]:�

�
 *TAPE

�
 �&900

� *FX13,4

� ?&220=unlock �256

� ?&221=unlock �256

� *FX14,4

� �=&E00

� �"SYNCRON"
�

00000000  0d 00 0a 07 20 eb 36 0d  00 14 2a 20 6f 73 63 6c  |.... .6...* oscl|
00000010  69 3d 26 46 46 46 37 3a  6f 73 77 72 63 68 3d 26  |i=&FFF7:oswrch=&|
00000020  46 46 45 45 3a 6f 73 62  79 74 65 3d 26 46 46 46  |FFEE:osbyte=&FFF|
00000030  34 0d 00 1e 27 20 e3 20  70 61 73 73 3d 30 20 b8  |4...' . pass=0 .|
00000040  20 32 20 88 20 32 3a 50  25 3d 26 39 30 30 3a 5b  | 2 . 2:P%=&900:[|
00000050  4f 50 54 20 70 61 73 73  0d 00 28 2a 20 4c 44 41  |OPT pass..(* LDA|
00000060  26 32 31 45 3a 53 54 41  6f 6c 64 76 65 63 3a 4c  |&21E:STAoldvec:L|
00000070  44 41 26 32 31 46 3a 53  54 41 6f 6c 64 76 65 63  |DA&21F:STAoldvec|
00000080  2b 31 0d 00 32 38 20 53  45 49 3a 4c 44 41 23 63  |+1..28 SEI:LDA#c|
00000090  6f 64 65 20 83 32 35 36  3a 53 54 41 26 32 31 45  |ode .256:STA&21E|
000000a0  3a 4c 44 41 23 63 6f 64  65 20 81 32 35 36 3a 53  |:LDA#code .256:S|
000000b0  54 41 26 32 31 46 3a 43  4c 49 0d 00 3c 08 20 52  |TA&21F:CLI..<. R|
000000c0  54 53 0d 00 46 0a 20 2e  63 6f 64 65 0d 00 50 1e  |TS..F. .code..P.|
000000d0  20 43 4d 50 23 34 3a 42  45 51 73 79 6e 63 3a 4a  | CMP#4:BEQsync:J|
000000e0  4d 50 28 6f 6c 64 76 65  63 29 0d 00 5a 0a 20 2e  |MP(oldvec)..Z. .|
000000f0  73 79 6e 63 0d 00 64 29  20 4c 44 58 23 6c 6f 61  |sync..d) LDX#loa|
00000100  64 20 83 32 35 36 3a 4c  44 59 23 6c 6f 61 64 20  |d .256:LDY#load |
00000110  81 32 35 36 3a 4a 53 52  6f 73 63 6c 69 0d 00 6e  |.256:JSRoscli..n|
00000120  21 20 4c 44 41 23 31 33  3a 4c 44 58 23 34 3a 4c  |! LDA#13:LDX#4:L|
00000130  44 59 23 30 3a 4a 53 52  6f 73 62 79 74 65 0d 00  |DY#0:JSRosbyte..|
00000140  78 15 20 4c 44 41 23 26  31 46 3a 53 54 41 26 37  |x. LDA#&1F:STA&7|
00000150  34 32 36 0d 00 82 15 20  4c 44 41 23 26 36 30 3a  |426.... LDA#&60:|
00000160  53 54 41 26 37 34 34 35  0d 00 8c 15 20 4c 44 41  |STA&7445.... LDA|
00000170  23 26 41 39 3a 53 54 41  26 37 34 33 36 0d 00 96  |#&A9:STA&7436...|
00000180  0d 20 4a 53 52 26 37 34  31 46 0d 00 a0 47 20 4c  |. JSR&741F...G L|
00000190  44 41 23 26 32 30 3a 53  54 41 26 32 30 35 37 3a  |DA#&20:STA&2057:|
000001a0  4c 44 41 23 26 45 30 3a  53 54 41 26 32 30 35 38  |LDA#&E0:STA&2058|
000001b0  3a 4c 44 41 23 26 42 3a  53 54 41 26 32 30 35 39  |:LDA#&B:STA&2059|
000001c0  3a 4c 44 41 23 26 41 36  3a 53 54 41 26 32 30 35  |:LDA#&A6:STA&205|
000001d0  41 0d 00 aa 4c 20 4c 44  58 23 30 3a 2e 6c 6f 6f  |A...L LDX#0:.loo|
000001e0  70 20 4c 44 41 63 6f 64  65 32 2c 58 3a 53 54 41  |p LDAcode2,X:STA|
000001f0  26 32 37 45 30 2c 58 3a  49 4e 58 3a 43 50 58 23  |&27E0,X:INX:CPX#|
00000200  28 63 6f 64 65 32 65 6e  64 2d 63 6f 64 65 32 73  |(code2end-code2s|
00000210  74 61 72 74 29 3a 42 4e  45 6c 6f 6f 70 0d 00 b4  |tart):BNEloop...|
00000220  13 20 4c 44 41 23 33 3a  53 54 41 26 37 34 32 36  |. LDA#3:STA&7426|
00000230  0d 00 be 15 20 4c 44 41  23 26 38 44 3a 53 54 41  |.... LDA#&8D:STA|
00000240  26 37 34 32 46 0d 00 c8  15 20 4c 44 41 23 26 41  |&742F.... LDA#&A|
00000250  39 3a 53 54 41 26 37 34  34 35 0d 00 d2 15 20 4c  |9:STA&7445.... L|
00000260  44 41 23 26 41 39 3a 53  54 41 26 32 39 41 39 0d  |DA#&A9:STA&29A9.|
00000270  00 dc 0d 20 4a 4d 50 26  37 34 30 30 0d 00 e6 12  |... JMP&7400....|
00000280  20 2e 6f 6c 64 76 65 63  20 45 51 55 57 30 0d 00  | .oldvec EQUW0..|
00000290  f0 26 20 2e 6c 6f 61 64  20 45 51 55 53 22 4c 4f  |.& .load EQUS"LO|
000002a0  41 44 20 53 59 4e 43 20  31 46 30 30 22 3a 45 51  |AD SYNC 1F00":EQ|
000002b0  55 42 31 33 0d 00 fa 0c  20 2e 75 6e 6c 6f 63 6b  |UB13.... .unlock|
000002c0  0d 01 04 1a 20 4c 44 41  26 33 43 41 3a 80 23 32  |.... LDA&3CA:.#2|
000002d0  35 34 3a 53 54 41 26 33  43 41 0d 01 0e 08 20 52  |54:STA&3CA.... R|
000002e0  54 53 0d 01 18 0b 20 2e  63 6f 64 65 32 0d 01 22  |TS.... .code2.."|
000002f0  06 20 5d 0d 01 2c 12 20  4f 25 3d 50 25 3a 50 25  |. ]..,. O%=P%:P%|
00000300  3d 26 42 45 30 0d 01 36  0f 20 5b 4f 50 54 70 61  |=&BE0..6. [OPTpa|
00000310  73 73 2b 34 0d 01 40 10  20 2e 63 6f 64 65 32 73  |ss+4..@. .code2s|
00000320  74 61 72 74 0d 01 4a 56  20 53 54 41 26 46 45 30  |tart..JV STA&FE0|
00000330  35 3a 53 45 49 3a 4c 44  41 23 31 35 3a 53 54 41  |5:SEI:LDA#15:STA|
00000340  26 41 42 3a 2e 64 65 6c  61 79 20 4c 44 59 23 31  |&AB:.delay LDY#1|
00000350  3a 2e 61 20 44 45 59 3a  42 45 51 6f 75 74 3a 4c  |:.a DEY:BEQout:L|
00000360  44 58 23 30 3a 2e 62 20  44 45 58 3a 42 4e 45 62  |DX#0:.b DEX:BNEb|
00000370  3a 42 45 51 61 3a 2e 6f  75 74 0d 01 54 14 20 4c  |:BEQa:.out..T. L|
00000380  44 41 23 26 45 41 3a 53  54 41 26 36 31 39 0d 01  |DA#&EA:STA&619..|
00000390  5e 2b 20 4c 44 58 23 30  3a 2e 6c 31 20 4c 44 41  |^+ LDX#0:.l1 LDA|
000003a0  26 32 30 2c 58 3a 50 48  41 3a 49 4e 58 3a 43 50  |&20,X:PHA:INX:CP|
000003b0  58 23 34 3a 42 4e 45 6c  31 0d 01 68 66 20 4c 44  |X#4:BNEl1..hf LD|
000003c0  41 23 26 44 3a 4a 53 52  26 35 46 39 3a 42 50 4c  |A#&D:JSR&5F9:BPL|
000003d0  73 6c 6f 77 3a 4c 44 41  64 65 6c 61 79 2b 31 3a  |slow:LDAdelay+1:|
000003e0  43 4d 50 23 31 3a 42 45  51 6f 75 74 32 3a 44 45  |CMP#1:BEQout2:DE|
000003f0  43 66 6c 61 67 3a 42 4e  45 6f 75 74 32 3a 4c 44  |Cflag:BNEout2:LD|
00000400  41 23 31 30 3a 53 54 41  66 6c 61 67 3a 44 45 43  |A#10:STAflag:DEC|
00000410  64 65 6c 61 79 2b 31 3a  42 4e 45 6f 75 74 32 0d  |delay+1:BNEout2.|
00000420  01 72 7a 20 2e 73 6c 6f  77 20 4c 44 41 23 26 31  |.rz .slow LDA#&1|
00000430  32 3a 4a 53 52 26 35 46  39 3a 42 50 4c 6f 75 74  |2:JSR&5F9:BPLout|
00000440  32 3a 4c 44 41 64 65 6c  61 79 2b 31 3a 43 4d 50  |2:LDAdelay+1:CMP|
00000450  23 31 34 3a 42 45 51 6f  75 74 32 3a 49 4e 43 66  |#14:BEQout2:INCf|
00000460  6c 61 67 3a 4c 44 41 66  6c 61 67 3a 43 4d 50 23  |lag:LDAflag:CMP#|
00000470  31 31 3a 42 4e 45 6f 75  74 32 3a 4c 44 41 23 31  |11:BNEout2:LDA#1|
00000480  3a 53 54 41 66 6c 61 67  3a 49 4e 43 64 65 6c 61  |:STAflag:INCdela|
00000490  79 2b 31 3a 2e 6f 75 74  32 0d 01 7c 25 20 4c 44  |y+1:.out2..|% LD|
000004a0  58 23 34 3a 2e 6c 32 20  50 4c 41 3a 53 54 41 26  |X#4:.l2 PLA:STA&|
000004b0  31 39 2c 58 3a 44 45 58  3a 42 4e 45 6c 32 0d 01  |19,X:DEX:BNEl2..|
000004c0  86 14 20 4c 44 41 23 26  35 38 3a 53 54 41 26 36  |.. LDA#&58:STA&6|
000004d0  31 39 0d 01 90 08 20 52  54 53 0d 01 9a 10 20 2e  |19.... RTS.... .|
000004e0  66 6c 61 67 20 45 51 55  42 31 0d 01 a4 0e 20 2e  |flag EQUB1.... .|
000004f0  63 6f 64 65 32 65 6e 64  0d 01 ae 08 20 5d 3a ed  |code2end.... ]:.|
00000500  0d 01 b8 0a 20 2a 54 41  50 45 0d 01 c2 0a 20 d6  |.... *TAPE.... .|
00000510  26 39 30 30 0d 01 cc 0c  20 2a 46 58 31 33 2c 34  |&900.... *FX13,4|
00000520  0d 01 d6 16 20 3f 26 32  32 30 3d 75 6e 6c 6f 63  |.... ?&220=unloc|
00000530  6b 20 83 32 35 36 0d 01  e0 16 20 3f 26 32 32 31  |k .256.... ?&221|
00000540  3d 75 6e 6c 6f 63 6b 20  81 32 35 36 0d 01 ea 0c  |=unlock .256....|
00000550  20 2a 46 58 31 34 2c 34  0d 01 f4 0b 20 d0 3d 26  | *FX14,4.... .=&|
00000560  45 30 30 0d 01 fe 0f 20  d7 22 53 59 4e 43 52 4f  |E00.... ."SYNCRO|
00000570  4e 22 0d ff                                       |N"..|
00000574