�6
A oscli=&FFF7:oswrch=&FFEE:osbyte=&FFF4:nvosbyte=!&20A � &FFFF
' � 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
�E LDA#&20:STA&2057:LDA#0:STA&2058:LDA#&C:STA&2059:LDA#&A6:STA&205A
�L LDX#0:.loop LDAcode2,X:STA&2800,X:INX:CPX#(code2end-code2start):BNEloop
� LDA#3:STA&7426
� LDA#&8D:STA&742F
� LDA#&A9:STA&7445
�
 JMP&7400
� .oldvec EQUW0
�& .load EQUS"LOAD SYNC 1F00":EQUB13
� .unlock
� LDA&3CA:�#254:STA&3CA

 RTS

 .code2

 ]

" O%=P%:P%=&C00

, [OPTpass+4

6 .code2start

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

J\ LDA#&81:LDX#239:LDY#&FF:JSRnvosbyte:BCCslow:LDAdelay+1:CMP#1:BEQout2:DECdelay+1:BNEout2

T] .slow LDX#190:LDY#&FF:JSRnvosbyte:BCCout2:LDAdelay+1:CMP#15:BEQout2:INCdelay+1:.out2 RTS

^ .code2end

h ]:�

r
 *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 41 20 6f 73 63 6c  |.... .6...A 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 3a 6e 76 6f 73 62 79  74 65 3d 21 26 32 30 41  |4:nvosbyte=!&20A|
00000040  20 80 20 26 46 46 46 46  0d 00 1e 27 20 e3 20 70  | . &FFFF...' . p|
00000050  61 73 73 3d 30 20 b8 20  32 20 88 20 32 3a 50 25  |ass=0 . 2 . 2:P%|
00000060  3d 26 39 30 30 3a 5b 4f  50 54 20 70 61 73 73 0d  |=&900:[OPT pass.|
00000070  00 28 2a 20 4c 44 41 26  32 31 45 3a 53 54 41 6f  |.(* LDA&21E:STAo|
00000080  6c 64 76 65 63 3a 4c 44  41 26 32 31 46 3a 53 54  |ldvec:LDA&21F:ST|
00000090  41 6f 6c 64 76 65 63 2b  31 0d 00 32 38 20 53 45  |Aoldvec+1..28 SE|
000000a0  49 3a 4c 44 41 23 63 6f  64 65 20 83 32 35 36 3a  |I:LDA#code .256:|
000000b0  53 54 41 26 32 31 45 3a  4c 44 41 23 63 6f 64 65  |STA&21E:LDA#code|
000000c0  20 81 32 35 36 3a 53 54  41 26 32 31 46 3a 43 4c  | .256:STA&21F:CL|
000000d0  49 0d 00 3c 08 20 52 54  53 0d 00 46 0a 20 2e 63  |I..<. RTS..F. .c|
000000e0  6f 64 65 0d 00 50 1e 20  43 4d 50 23 34 3a 42 45  |ode..P. CMP#4:BE|
000000f0  51 73 79 6e 63 3a 4a 4d  50 28 6f 6c 64 76 65 63  |Qsync:JMP(oldvec|
00000100  29 0d 00 5a 0a 20 2e 73  79 6e 63 0d 00 64 29 20  |)..Z. .sync..d) |
00000110  4c 44 58 23 6c 6f 61 64  20 83 32 35 36 3a 4c 44  |LDX#load .256:LD|
00000120  59 23 6c 6f 61 64 20 81  32 35 36 3a 4a 53 52 6f  |Y#load .256:JSRo|
00000130  73 63 6c 69 0d 00 6e 21  20 4c 44 41 23 31 33 3a  |scli..n! LDA#13:|
00000140  4c 44 58 23 34 3a 4c 44  59 23 30 3a 4a 53 52 6f  |LDX#4:LDY#0:JSRo|
00000150  73 62 79 74 65 0d 00 78  15 20 4c 44 41 23 26 31  |sbyte..x. LDA#&1|
00000160  46 3a 53 54 41 26 37 34  32 36 0d 00 82 15 20 4c  |F:STA&7426.... L|
00000170  44 41 23 26 36 30 3a 53  54 41 26 37 34 34 35 0d  |DA#&60:STA&7445.|
00000180  00 8c 15 20 4c 44 41 23  26 41 39 3a 53 54 41 26  |... LDA#&A9:STA&|
00000190  37 34 33 36 0d 00 96 0d  20 4a 53 52 26 37 34 31  |7436.... JSR&741|
000001a0  46 0d 00 a0 45 20 4c 44  41 23 26 32 30 3a 53 54  |F...E LDA#&20:ST|
000001b0  41 26 32 30 35 37 3a 4c  44 41 23 30 3a 53 54 41  |A&2057:LDA#0:STA|
000001c0  26 32 30 35 38 3a 4c 44  41 23 26 43 3a 53 54 41  |&2058:LDA#&C:STA|
000001d0  26 32 30 35 39 3a 4c 44  41 23 26 41 36 3a 53 54  |&2059:LDA#&A6:ST|
000001e0  41 26 32 30 35 41 0d 00  aa 4c 20 4c 44 58 23 30  |A&205A...L LDX#0|
000001f0  3a 2e 6c 6f 6f 70 20 4c  44 41 63 6f 64 65 32 2c  |:.loop LDAcode2,|
00000200  58 3a 53 54 41 26 32 38  30 30 2c 58 3a 49 4e 58  |X:STA&2800,X:INX|
00000210  3a 43 50 58 23 28 63 6f  64 65 32 65 6e 64 2d 63  |:CPX#(code2end-c|
00000220  6f 64 65 32 73 74 61 72  74 29 3a 42 4e 45 6c 6f  |ode2start):BNElo|
00000230  6f 70 0d 00 b4 13 20 4c  44 41 23 33 3a 53 54 41  |op.... LDA#3:STA|
00000240  26 37 34 32 36 0d 00 be  15 20 4c 44 41 23 26 38  |&7426.... LDA#&8|
00000250  44 3a 53 54 41 26 37 34  32 46 0d 00 c8 15 20 4c  |D:STA&742F.... L|
00000260  44 41 23 26 41 39 3a 53  54 41 26 37 34 34 35 0d  |DA#&A9:STA&7445.|
00000270  00 d2 0d 20 4a 4d 50 26  37 34 30 30 0d 00 dc 12  |... JMP&7400....|
00000280  20 2e 6f 6c 64 76 65 63  20 45 51 55 57 30 0d 00  | .oldvec EQUW0..|
00000290  e6 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 f0 0c  20 2e 75 6e 6c 6f 63 6b  |UB13.... .unlock|
000002c0  0d 00 fa 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 04 08 20 52  |54:STA&3CA.... R|
000002e0  54 53 0d 01 0e 0b 20 2e  63 6f 64 65 32 0d 01 18  |TS.... .code2...|
000002f0  06 20 5d 0d 01 22 12 20  4f 25 3d 50 25 3a 50 25  |. ]..". O%=P%:P%|
00000300  3d 26 43 30 30 0d 01 2c  0f 20 5b 4f 50 54 70 61  |=&C00..,. [OPTpa|
00000310  73 73 2b 34 0d 01 36 10  20 2e 63 6f 64 65 32 73  |ss+4..6. .code2s|
00000320  74 61 72 74 0d 01 40 53  20 53 54 41 26 46 45 30  |tart..@S STA&FE0|
00000330  35 3a 4c 44 41 23 31 35  3a 53 54 41 26 41 42 3a  |5:LDA#15:STA&AB:|
00000340  2e 64 65 6c 61 79 20 4c  44 59 23 26 31 3a 2e 61  |.delay LDY#&1:.a|
00000350  20 44 45 59 3a 42 45 51  6f 75 74 3a 4c 44 58 23  | DEY:BEQout:LDX#|
00000360  30 3a 2e 62 20 44 45 58  3a 42 4e 45 62 3a 42 45  |0:.b DEX:BNEb:BE|
00000370  51 61 3a 2e 6f 75 74 0d  01 4a 5c 20 4c 44 41 23  |Qa:.out..J\ LDA#|
00000380  26 38 31 3a 4c 44 58 23  32 33 39 3a 4c 44 59 23  |&81:LDX#239:LDY#|
00000390  26 46 46 3a 4a 53 52 6e  76 6f 73 62 79 74 65 3a  |&FF:JSRnvosbyte:|
000003a0  42 43 43 73 6c 6f 77 3a  4c 44 41 64 65 6c 61 79  |BCCslow:LDAdelay|
000003b0  2b 31 3a 43 4d 50 23 31  3a 42 45 51 6f 75 74 32  |+1:CMP#1:BEQout2|
000003c0  3a 44 45 43 64 65 6c 61  79 2b 31 3a 42 4e 45 6f  |:DECdelay+1:BNEo|
000003d0  75 74 32 0d 01 54 5d 20  2e 73 6c 6f 77 20 4c 44  |ut2..T] .slow LD|
000003e0  58 23 31 39 30 3a 4c 44  59 23 26 46 46 3a 4a 53  |X#190:LDY#&FF:JS|
000003f0  52 6e 76 6f 73 62 79 74  65 3a 42 43 43 6f 75 74  |Rnvosbyte:BCCout|
00000400  32 3a 4c 44 41 64 65 6c  61 79 2b 31 3a 43 4d 50  |2:LDAdelay+1:CMP|
00000410  23 31 35 3a 42 45 51 6f  75 74 32 3a 49 4e 43 64  |#15:BEQout2:INCd|
00000420  65 6c 61 79 2b 31 3a 2e  6f 75 74 32 20 52 54 53  |elay+1:.out2 RTS|
00000430  0d 01 5e 0e 20 2e 63 6f  64 65 32 65 6e 64 0d 01  |..^. .code2end..|
00000440  68 08 20 5d 3a ed 0d 01  72 0a 20 2a 54 41 50 45  |h. ]:...r. *TAPE|
00000450  0d 01 7c 0a 20 d6 26 39  30 30 0d 01 86 0c 20 2a  |..|. .&900.... *|
00000460  46 58 31 33 2c 34 0d 01  90 16 20 3f 26 32 32 30  |FX13,4.... ?&220|
00000470  3d 75 6e 6c 6f 63 6b 20  83 32 35 36 0d 01 9a 16  |=unlock .256....|
00000480  20 3f 26 32 32 31 3d 75  6e 6c 6f 63 6b 20 81 32  | ?&221=unlock .2|
00000490  35 36 0d 01 a4 0c 20 2a  46 58 31 34 2c 34 0d 01  |56.... *FX14,4..|
000004a0  ae 0b 20 d0 3d 26 45 30  30 0d 01 b8 0f 20 d7 22  |.. .=&E00.... ."|
000004b0  53 59 4e 43 52 4f 4e 22  0d ff                    |SYNCRON"..|
000004ba