�"Source filename",S$
 �"Destination filename",D$
 �pass=0 � 2 � 2:[OPTpass
($ LDA#0:STAoldcol:LDA#1:STAnewcol
2 LDA#0:STAflag
< .colourloop
F LDA#0:STAline
P( LDA#&2D:STAhread+1:LDA#&C7:STAhread
Z( LDA#&30:STAlread+1:LDA#&01:STAlread
d' LDA#&2F:STAread+1:LDA#&F8:STAmread
n .lineloop
x LDA#0:STAsubline
�
 .subloop
� LDA#0:STAaddr
�
 .pixloop
� LDY#8:LDA(mread),Y
� �#&AA:CMPcoloursA,X
� BEQright:JMPnextpix
� .right
� LDA(mread),Y
� �#&55:CMP#&55:BNEleft
� LDA#1:STAflag
�1 LDA(mread),Y:�#&AA:�AcoloursB,X:STA(mread),Y
�
 .left
� LDAaddr:BEQup

 LDY#0:LDA(mread),Y

 �#&55:CMP#&55:BNEup

 LDA#1:STAflag

"1 LDA(mread),Y:�#&AA:�AcoloursB,X:STA(mread),Y

, .up

6& LDAline:BNEok1:LDAsubline:BEQdown

@ .ok1 LDA(hread),Y

J �#&AA:CMP#&AA:BNEdown

T LDA#1:STAflag

^1 LDA(hread),Y:�#&55:�AcoloursA,X:STA(hread),Y

h
 .down

r6 LDAline:CMP#31:BNEok2:LDAsubline:CMP#7:BEQnextpix

| .ok2 LDA(lread),Y

� �#&AA:CMP#&AA:BNEleft

� LDA#1:STAflag

�1 LDA(lread),Y:�#&55:�AcoloursA,X:STA(lread),Y

�
 .nextpix

�3 LDAmread:CLC:ADC#8:STAmread:BCCa:INCmread+1:.a

� LDY#0:LDA(mread),Y

� �#&55:CMPcoloursB,X

� BEQup2:JMPnextpix2

�	 .up2

�' LDAline:BNEok3:LDAsubline:BEQdown2

� .ok3 LDA(hread),Y

� �#&55:CMP#&55:BNEdown2

� LDA#1:STAflag
1 LDA(hread),Y:�#&AA:�AcoloursB,X:STA(hread),Y
 .down2
4 LDAline:CMP#31:BNEok4:LDAsubline:CMP#7:BEQleft2
& .ok4 LDA(lread),Y
0 �#&55:CMP#&55:BNEleft2
: LDA#1:STAflag
D1 LDA(lread),Y:�#&AA:�AcoloursB,X:STA(lread),Y
N .left2
X LDA(mread),Y
b �#&AA:CMP#&AA:BNEright2
l LDA#1:STAflag
v1 LDA(mread),Y:�#&55:�AcoloursA,X:STA(mread),Y
� .right2
� LDAaddr:CMP#79:BEQnextpix2
� LDY#8:LDA(mread),Y
� �#&AA:CMP#&AA:BNEnextpix2
� LDA#1:STAflag
�1 LDA(mread),Y:�#&55:�AcoloursA,X:STA(mread),Y
� .nextpix2
�3 LDAhread:CLC:ADC#8:STAhread:BCCb:INChread+1:.b
�3 LDAlread:CLC:ADC#8:STAlread:BCCc:INClread+1:.c
�1 INCaddr:LDAaddr:CMP#79:BEQnextsub:JMPpixloop
�
 .nextsub
� LDAsubline:BNEnorm1
�% LDAhread:SEC:SBC#7:STAhread:JMPl
E .norm1 LDAhread:SEC:SBC#&7F:STAhread:LDAhread+1:SBC#2:STAhread+1
! .l LDAsubline:CMP#6:BNEnorm2
% LDAlread:SEC:SBC#7:STAlread:JMPm
 E .norm2 LDAlread:SEC:SBC#&7F:STAlread:LDAlread+1:SBC#2:STAlread+1
�A .m LDAmread:SEC:SBC#&7F:STAmread:LDAmread+1:SBC#2:STAmread+1
�7 INCsubline:LDAsubline:CMP#8:BEQnextline:JMPsubloop
�

00000000  0d 00 0a 1a 20 e8 22 53  6f 75 72 63 65 20 66 69  |.... ."Source fi|
00000010  6c 65 6e 61 6d 65 22 2c  53 24 0d 00 14 1f 20 e8  |lename",S$.... .|
00000020  22 44 65 73 74 69 6e 61  74 69 6f 6e 20 66 69 6c  |"Destination fil|
00000030  65 6e 61 6d 65 22 2c 44  24 0d 00 1e 1d 20 e3 70  |ename",D$.... .p|
00000040  61 73 73 3d 30 20 b8 20  32 20 88 20 32 3a 5b 4f  |ass=0 . 2 . 2:[O|
00000050  50 54 70 61 73 73 0d 00  28 24 20 4c 44 41 23 30  |PTpass..($ LDA#0|
00000060  3a 53 54 41 6f 6c 64 63  6f 6c 3a 4c 44 41 23 31  |:STAoldcol:LDA#1|
00000070  3a 53 54 41 6e 65 77 63  6f 6c 0d 00 32 12 20 4c  |:STAnewcol..2. L|
00000080  44 41 23 30 3a 53 54 41  66 6c 61 67 0d 00 3c 10  |DA#0:STAflag..<.|
00000090  20 2e 63 6f 6c 6f 75 72  6c 6f 6f 70 0d 00 46 12  | .colourloop..F.|
000000a0  20 4c 44 41 23 30 3a 53  54 41 6c 69 6e 65 0d 00  | LDA#0:STAline..|
000000b0  50 28 20 4c 44 41 23 26  32 44 3a 53 54 41 68 72  |P( LDA#&2D:STAhr|
000000c0  65 61 64 2b 31 3a 4c 44  41 23 26 43 37 3a 53 54  |ead+1:LDA#&C7:ST|
000000d0  41 68 72 65 61 64 0d 00  5a 28 20 4c 44 41 23 26  |Ahread..Z( LDA#&|
000000e0  33 30 3a 53 54 41 6c 72  65 61 64 2b 31 3a 4c 44  |30:STAlread+1:LD|
000000f0  41 23 26 30 31 3a 53 54  41 6c 72 65 61 64 0d 00  |A#&01:STAlread..|
00000100  64 27 20 4c 44 41 23 26  32 46 3a 53 54 41 72 65  |d' LDA#&2F:STAre|
00000110  61 64 2b 31 3a 4c 44 41  23 26 46 38 3a 53 54 41  |ad+1:LDA#&F8:STA|
00000120  6d 72 65 61 64 0d 00 6e  0e 20 2e 6c 69 6e 65 6c  |mread..n. .linel|
00000130  6f 6f 70 0d 00 78 15 20  4c 44 41 23 30 3a 53 54  |oop..x. LDA#0:ST|
00000140  41 73 75 62 6c 69 6e 65  0d 00 82 0d 20 2e 73 75  |Asubline.... .su|
00000150  62 6c 6f 6f 70 0d 00 8c  12 20 4c 44 41 23 30 3a  |bloop.... LDA#0:|
00000160  53 54 41 61 64 64 72 0d  00 96 0d 20 2e 70 69 78  |STAaddr.... .pix|
00000170  6c 6f 6f 70 0d 00 a0 17  20 4c 44 59 23 38 3a 4c  |loop.... LDY#8:L|
00000180  44 41 28 6d 72 65 61 64  29 2c 59 0d 00 aa 18 20  |DA(mread),Y.... |
00000190  80 23 26 41 41 3a 43 4d  50 63 6f 6c 6f 75 72 73  |.#&AA:CMPcolours|
000001a0  41 2c 58 0d 00 b4 18 20  42 45 51 72 69 67 68 74  |A,X.... BEQright|
000001b0  3a 4a 4d 50 6e 65 78 74  70 69 78 0d 00 be 0b 20  |:JMPnextpix.... |
000001c0  2e 72 69 67 68 74 0d 00  c8 11 20 4c 44 41 28 6d  |.right.... LDA(m|
000001d0  72 65 61 64 29 2c 59 0d  00 d2 1a 20 80 23 26 35  |read),Y.... .#&5|
000001e0  35 3a 43 4d 50 23 26 35  35 3a 42 4e 45 6c 65 66  |5:CMP#&55:BNElef|
000001f0  74 0d 00 dc 12 20 4c 44  41 23 31 3a 53 54 41 66  |t.... LDA#1:STAf|
00000200  6c 61 67 0d 00 e6 31 20  4c 44 41 28 6d 72 65 61  |lag...1 LDA(mrea|
00000210  64 29 2c 59 3a 80 23 26  41 41 3a 84 41 63 6f 6c  |d),Y:.#&AA:.Acol|
00000220  6f 75 72 73 42 2c 58 3a  53 54 41 28 6d 72 65 61  |oursB,X:STA(mrea|
00000230  64 29 2c 59 0d 00 f0 0a  20 2e 6c 65 66 74 0d 00  |d),Y.... .left..|
00000240  fa 12 20 4c 44 41 61 64  64 72 3a 42 45 51 75 70  |.. LDAaddr:BEQup|
00000250  0d 01 04 17 20 4c 44 59  23 30 3a 4c 44 41 28 6d  |.... LDY#0:LDA(m|
00000260  72 65 61 64 29 2c 59 0d  01 0e 18 20 80 23 26 35  |read),Y.... .#&5|
00000270  35 3a 43 4d 50 23 26 35  35 3a 42 4e 45 75 70 0d  |5:CMP#&55:BNEup.|
00000280  01 18 12 20 4c 44 41 23  31 3a 53 54 41 66 6c 61  |... LDA#1:STAfla|
00000290  67 0d 01 22 31 20 4c 44  41 28 6d 72 65 61 64 29  |g.."1 LDA(mread)|
000002a0  2c 59 3a 80 23 26 41 41  3a 84 41 63 6f 6c 6f 75  |,Y:.#&AA:.Acolou|
000002b0  72 73 42 2c 58 3a 53 54  41 28 6d 72 65 61 64 29  |rsB,X:STA(mread)|
000002c0  2c 59 0d 01 2c 08 20 2e  75 70 0d 01 36 26 20 4c  |,Y..,. .up..6& L|
000002d0  44 41 6c 69 6e 65 3a 42  4e 45 6f 6b 31 3a 4c 44  |DAline:BNEok1:LD|
000002e0  41 73 75 62 6c 69 6e 65  3a 42 45 51 64 6f 77 6e  |Asubline:BEQdown|
000002f0  0d 01 40 16 20 2e 6f 6b  31 20 4c 44 41 28 68 72  |..@. .ok1 LDA(hr|
00000300  65 61 64 29 2c 59 0d 01  4a 1a 20 80 23 26 41 41  |ead),Y..J. .#&AA|
00000310  3a 43 4d 50 23 26 41 41  3a 42 4e 45 64 6f 77 6e  |:CMP#&AA:BNEdown|
00000320  0d 01 54 12 20 4c 44 41  23 31 3a 53 54 41 66 6c  |..T. LDA#1:STAfl|
00000330  61 67 0d 01 5e 31 20 4c  44 41 28 68 72 65 61 64  |ag..^1 LDA(hread|
00000340  29 2c 59 3a 80 23 26 35  35 3a 84 41 63 6f 6c 6f  |),Y:.#&55:.Acolo|
00000350  75 72 73 41 2c 58 3a 53  54 41 28 68 72 65 61 64  |ursA,X:STA(hread|
00000360  29 2c 59 0d 01 68 0a 20  2e 64 6f 77 6e 0d 01 72  |),Y..h. .down..r|
00000370  36 20 4c 44 41 6c 69 6e  65 3a 43 4d 50 23 33 31  |6 LDAline:CMP#31|
00000380  3a 42 4e 45 6f 6b 32 3a  4c 44 41 73 75 62 6c 69  |:BNEok2:LDAsubli|
00000390  6e 65 3a 43 4d 50 23 37  3a 42 45 51 6e 65 78 74  |ne:CMP#7:BEQnext|
000003a0  70 69 78 0d 01 7c 16 20  2e 6f 6b 32 20 4c 44 41  |pix..|. .ok2 LDA|
000003b0  28 6c 72 65 61 64 29 2c  59 0d 01 86 1a 20 80 23  |(lread),Y.... .#|
000003c0  26 41 41 3a 43 4d 50 23  26 41 41 3a 42 4e 45 6c  |&AA:CMP#&AA:BNEl|
000003d0  65 66 74 0d 01 90 12 20  4c 44 41 23 31 3a 53 54  |eft.... LDA#1:ST|
000003e0  41 66 6c 61 67 0d 01 9a  31 20 4c 44 41 28 6c 72  |Aflag...1 LDA(lr|
000003f0  65 61 64 29 2c 59 3a 80  23 26 35 35 3a 84 41 63  |ead),Y:.#&55:.Ac|
00000400  6f 6c 6f 75 72 73 41 2c  58 3a 53 54 41 28 6c 72  |oloursA,X:STA(lr|
00000410  65 61 64 29 2c 59 0d 01  a4 0d 20 2e 6e 65 78 74  |ead),Y.... .next|
00000420  70 69 78 0d 01 ae 33 20  4c 44 41 6d 72 65 61 64  |pix...3 LDAmread|
00000430  3a 43 4c 43 3a 41 44 43  23 38 3a 53 54 41 6d 72  |:CLC:ADC#8:STAmr|
00000440  65 61 64 3a 42 43 43 61  3a 49 4e 43 6d 72 65 61  |ead:BCCa:INCmrea|
00000450  64 2b 31 3a 2e 61 0d 01  b8 17 20 4c 44 59 23 30  |d+1:.a.... LDY#0|
00000460  3a 4c 44 41 28 6d 72 65  61 64 29 2c 59 0d 01 c2  |:LDA(mread),Y...|
00000470  18 20 80 23 26 35 35 3a  43 4d 50 63 6f 6c 6f 75  |. .#&55:CMPcolou|
00000480  72 73 42 2c 58 0d 01 cc  17 20 42 45 51 75 70 32  |rsB,X.... BEQup2|
00000490  3a 4a 4d 50 6e 65 78 74  70 69 78 32 0d 01 d6 09  |:JMPnextpix2....|
000004a0  20 2e 75 70 32 0d 01 e0  27 20 4c 44 41 6c 69 6e  | .up2...' LDAlin|
000004b0  65 3a 42 4e 45 6f 6b 33  3a 4c 44 41 73 75 62 6c  |e:BNEok3:LDAsubl|
000004c0  69 6e 65 3a 42 45 51 64  6f 77 6e 32 0d 01 ea 16  |ine:BEQdown2....|
000004d0  20 2e 6f 6b 33 20 4c 44  41 28 68 72 65 61 64 29  | .ok3 LDA(hread)|
000004e0  2c 59 0d 01 f4 1b 20 80  23 26 35 35 3a 43 4d 50  |,Y.... .#&55:CMP|
000004f0  23 26 35 35 3a 42 4e 45  64 6f 77 6e 32 0d 01 fe  |#&55:BNEdown2...|
00000500  12 20 4c 44 41 23 31 3a  53 54 41 66 6c 61 67 0d  |. LDA#1:STAflag.|
00000510  02 08 31 20 4c 44 41 28  68 72 65 61 64 29 2c 59  |..1 LDA(hread),Y|
00000520  3a 80 23 26 41 41 3a 84  41 63 6f 6c 6f 75 72 73  |:.#&AA:.Acolours|
00000530  42 2c 58 3a 53 54 41 28  68 72 65 61 64 29 2c 59  |B,X:STA(hread),Y|
00000540  0d 02 12 0b 20 2e 64 6f  77 6e 32 0d 02 1c 34 20  |.... .down2...4 |
00000550  4c 44 41 6c 69 6e 65 3a  43 4d 50 23 33 31 3a 42  |LDAline:CMP#31:B|
00000560  4e 45 6f 6b 34 3a 4c 44  41 73 75 62 6c 69 6e 65  |NEok4:LDAsubline|
00000570  3a 43 4d 50 23 37 3a 42  45 51 6c 65 66 74 32 0d  |:CMP#7:BEQleft2.|
00000580  02 26 16 20 2e 6f 6b 34  20 4c 44 41 28 6c 72 65  |.&. .ok4 LDA(lre|
00000590  61 64 29 2c 59 0d 02 30  1b 20 80 23 26 35 35 3a  |ad),Y..0. .#&55:|
000005a0  43 4d 50 23 26 35 35 3a  42 4e 45 6c 65 66 74 32  |CMP#&55:BNEleft2|
000005b0  0d 02 3a 12 20 4c 44 41  23 31 3a 53 54 41 66 6c  |..:. LDA#1:STAfl|
000005c0  61 67 0d 02 44 31 20 4c  44 41 28 6c 72 65 61 64  |ag..D1 LDA(lread|
000005d0  29 2c 59 3a 80 23 26 41  41 3a 84 41 63 6f 6c 6f  |),Y:.#&AA:.Acolo|
000005e0  75 72 73 42 2c 58 3a 53  54 41 28 6c 72 65 61 64  |ursB,X:STA(lread|
000005f0  29 2c 59 0d 02 4e 0b 20  2e 6c 65 66 74 32 0d 02  |),Y..N. .left2..|
00000600  58 11 20 4c 44 41 28 6d  72 65 61 64 29 2c 59 0d  |X. LDA(mread),Y.|
00000610  02 62 1c 20 80 23 26 41  41 3a 43 4d 50 23 26 41  |.b. .#&AA:CMP#&A|
00000620  41 3a 42 4e 45 72 69 67  68 74 32 0d 02 6c 12 20  |A:BNEright2..l. |
00000630  4c 44 41 23 31 3a 53 54  41 66 6c 61 67 0d 02 76  |LDA#1:STAflag..v|
00000640  31 20 4c 44 41 28 6d 72  65 61 64 29 2c 59 3a 80  |1 LDA(mread),Y:.|
00000650  23 26 35 35 3a 84 41 63  6f 6c 6f 75 72 73 41 2c  |#&55:.AcoloursA,|
00000660  58 3a 53 54 41 28 6d 72  65 61 64 29 2c 59 0d 02  |X:STA(mread),Y..|
00000670  80 0c 20 2e 72 69 67 68  74 32 0d 02 8a 1f 20 4c  |.. .right2.... L|
00000680  44 41 61 64 64 72 3a 43  4d 50 23 37 39 3a 42 45  |DAaddr:CMP#79:BE|
00000690  51 6e 65 78 74 70 69 78  32 0d 02 94 17 20 4c 44  |Qnextpix2.... LD|
000006a0  59 23 38 3a 4c 44 41 28  6d 72 65 61 64 29 2c 59  |Y#8:LDA(mread),Y|
000006b0  0d 02 9e 1e 20 80 23 26  41 41 3a 43 4d 50 23 26  |.... .#&AA:CMP#&|
000006c0  41 41 3a 42 4e 45 6e 65  78 74 70 69 78 32 0d 02  |AA:BNEnextpix2..|
000006d0  a8 12 20 4c 44 41 23 31  3a 53 54 41 66 6c 61 67  |.. LDA#1:STAflag|
000006e0  0d 02 b2 31 20 4c 44 41  28 6d 72 65 61 64 29 2c  |...1 LDA(mread),|
000006f0  59 3a 80 23 26 35 35 3a  84 41 63 6f 6c 6f 75 72  |Y:.#&55:.Acolour|
00000700  73 41 2c 58 3a 53 54 41  28 6d 72 65 61 64 29 2c  |sA,X:STA(mread),|
00000710  59 0d 02 bc 0e 20 2e 6e  65 78 74 70 69 78 32 0d  |Y.... .nextpix2.|
00000720  02 c6 33 20 4c 44 41 68  72 65 61 64 3a 43 4c 43  |..3 LDAhread:CLC|
00000730  3a 41 44 43 23 38 3a 53  54 41 68 72 65 61 64 3a  |:ADC#8:STAhread:|
00000740  42 43 43 62 3a 49 4e 43  68 72 65 61 64 2b 31 3a  |BCCb:INChread+1:|
00000750  2e 62 0d 02 d0 33 20 4c  44 41 6c 72 65 61 64 3a  |.b...3 LDAlread:|
00000760  43 4c 43 3a 41 44 43 23  38 3a 53 54 41 6c 72 65  |CLC:ADC#8:STAlre|
00000770  61 64 3a 42 43 43 63 3a  49 4e 43 6c 72 65 61 64  |ad:BCCc:INClread|
00000780  2b 31 3a 2e 63 0d 02 da  31 20 49 4e 43 61 64 64  |+1:.c...1 INCadd|
00000790  72 3a 4c 44 41 61 64 64  72 3a 43 4d 50 23 37 39  |r:LDAaddr:CMP#79|
000007a0  3a 42 45 51 6e 65 78 74  73 75 62 3a 4a 4d 50 70  |:BEQnextsub:JMPp|
000007b0  69 78 6c 6f 6f 70 0d 02  e4 0d 20 2e 6e 65 78 74  |ixloop.... .next|
000007c0  73 75 62 0d 02 ee 18 20  4c 44 41 73 75 62 6c 69  |sub.... LDAsubli|
000007d0  6e 65 3a 42 4e 45 6e 6f  72 6d 31 0d 02 f8 25 20  |ne:BNEnorm1...% |
000007e0  4c 44 41 68 72 65 61 64  3a 53 45 43 3a 53 42 43  |LDAhread:SEC:SBC|
000007f0  23 37 3a 53 54 41 68 72  65 61 64 3a 4a 4d 50 6c  |#7:STAhread:JMPl|
00000800  0d 03 02 45 20 2e 6e 6f  72 6d 31 20 4c 44 41 68  |...E .norm1 LDAh|
00000810  72 65 61 64 3a 53 45 43  3a 53 42 43 23 26 37 46  |read:SEC:SBC#&7F|
00000820  3a 53 54 41 68 72 65 61  64 3a 4c 44 41 68 72 65  |:STAhread:LDAhre|
00000830  61 64 2b 31 3a 53 42 43  23 32 3a 53 54 41 68 72  |ad+1:SBC#2:STAhr|
00000840  65 61 64 2b 31 0d 03 0c  21 20 2e 6c 20 4c 44 41  |ead+1...! .l LDA|
00000850  73 75 62 6c 69 6e 65 3a  43 4d 50 23 36 3a 42 4e  |subline:CMP#6:BN|
00000860  45 6e 6f 72 6d 32 0d 03  16 25 20 4c 44 41 6c 72  |Enorm2...% LDAlr|
00000870  65 61 64 3a 53 45 43 3a  53 42 43 23 37 3a 53 54  |ead:SEC:SBC#7:ST|
00000880  41 6c 72 65 61 64 3a 4a  4d 50 6d 0d 03 20 45 20  |Alread:JMPm.. E |
00000890  2e 6e 6f 72 6d 32 20 4c  44 41 6c 72 65 61 64 3a  |.norm2 LDAlread:|
000008a0  53 45 43 3a 53 42 43 23  26 37 46 3a 53 54 41 6c  |SEC:SBC#&7F:STAl|
000008b0  72 65 61 64 3a 4c 44 41  6c 72 65 61 64 2b 31 3a  |read:LDAlread+1:|
000008c0  53 42 43 23 32 3a 53 54  41 6c 72 65 61 64 2b 31  |SBC#2:STAlread+1|
000008d0  0d 03 84 41 20 2e 6d 20  4c 44 41 6d 72 65 61 64  |...A .m LDAmread|
000008e0  3a 53 45 43 3a 53 42 43  23 26 37 46 3a 53 54 41  |:SEC:SBC#&7F:STA|
000008f0  6d 72 65 61 64 3a 4c 44  41 6d 72 65 61 64 2b 31  |mread:LDAmread+1|
00000900  3a 53 42 43 23 32 3a 53  54 41 6d 72 65 61 64 2b  |:SBC#2:STAmread+|
00000910  31 0d 03 8e 37 20 49 4e  43 73 75 62 6c 69 6e 65  |1...7 INCsubline|
00000920  3a 4c 44 41 73 75 62 6c  69 6e 65 3a 43 4d 50 23  |:LDAsubline:CMP#|
00000930  38 3a 42 45 51 6e 65 78  74 6c 69 6e 65 3a 4a 4d  |8:BEQnextline:JM|
00000940  50 73 75 62 6c 6f 6f 70  0d ff                    |Psubloop..|
0000094a