M/L COMPARATOR

00000000: 01 08 14 08 8C 00 97 35  33 2C 36 34 3A 97 35 32  |.......53,64:.52|
00000010: 2C 30 3A 9C 00 31 08 96  00 99 22 93 12 43 4F 4D  |,0:..1...."..COM|
00000020: 50 41 52 45 20 54 57 4F  20 46 49 4C 45 53 22 3A  |PARE TWO FILES":|
00000030: 99 00 61 08 9B 00 85 22  4F 55 54 50 55 54 20 2D  |..a...."OUTPUT -|
00000040: 20 12 53 92 43 52 45 45  4E 20 4F 52 20 12 50 92  | .S.CREEN OR .P.|
00000050: 52 49 4E 54 45 52 20 20  20 50 9D 9D 9D 22 3B 41  |RINTER   P...";A|
00000060: 24 00 7C 08 A0 00 8B C8  28 41 24 2C 31 29 B2 22  |$.|.....(A$,1)."|
00000070: 53 22 A7 44 45 B2 33 3A  89 31 39 30 00 97 08 AA  |S".DE.3:.190....|
00000080: 00 8B C8 28 41 24 2C 31  29 B2 22 50 22 A7 44 45  |...(A$,1)."P".DE|
00000090: B2 34 3A 89 31 39 30 00  A0 08 B4 00 89 31 35 30  |.4:.190......150|
000000A0: 00 D0 08 BE 00 99 22 49  4E 53 45 52 54 20 44 49  |......"INSERT DI|
000000B0: 53 4B 20 57 49 54 48 20  50 52 4F 47 52 41 4D 20  |SK WITH PROGRAM |
000000C0: 41 20 2D 20 48 49 54 20  41 4E 59 20 4B 45 59 22  |A - HIT ANY KEY"|
000000D0: 00 E3 08 C8 00 A1 41 24  3A 8B 41 24 B2 22 22 A7  |......A$:.A$."".|
000000E0: 32 30 30 00 11 09 D2 00  85 22 46 49 4C 45 20 41  |200......"FILE A|
000000F0: 20 4E 41 4D 45 20 20 A0  9D 9D 9D 22 3B 42 24 28  | NAME  ....";B$(|
00000100: 31 29 3A 8B 42 24 28 31  29 B2 22 A0 22 A7 32 31  |1):.B$(1).".".21|
00000110: 30 00 1A 09 DC 00 99 54  49 24 00 27 09 E1 00 9F  |0......TI$.'....|
00000120: 31 35 2C 38 2C 31 35 00  44 09 E6 00 9F 31 2C 38  |15,8,15.D....1,8|
00000130: 2C 33 2C 22 30 3A 22 AA  42 24 28 31 29 AA 22 2C  |,3,"0:".B$(1).",|
00000140: 50 2C 52 22 00 67 09 F0  00 84 31 35 2C 44 53 2C  |P,R".g....15,DS,|
00000150: 44 53 24 2C 44 31 2C 44  32 3A 8B 44 53 B3 B1 30  |DS$,D1,D2:.DS..0|
00000160: A7 99 44 53 24 3A 90 00  74 09 FA 00 9F 32 2C 44  |..DS$:..t....2,D|
00000170: 45 3A 98 32 00 98 09 04  01 4E B2 34 3A 8D 36 38  |E:.2.....N.4:.68|
00000180: 30 3A 53 31 B2 4C 31 3A  45 31 B2 4C 31 AA 28 4D  |0:S1.L1:E1.L1.(M|
00000190: AB 4E AC 34 30 39 36 29  00 B2 09 0E 01 98 32 2C  |.N.4096)......2,|
000001A0: 42 24 28 31 29 3B 22 20  2D 20 53 54 41 52 54 20  |B$(1);" - START |
000001B0: 22 3B 00 DC 09 18 01 4C  4C B2 53 31 3A 8D 38 33  |";.....LL.S1:.83|
000001C0: 30 3A 98 32 2C 22 20 20  45 4E 44 20 22 3B 3A 4C  |0:.2,"  END ";:L|
000001D0: 4C B2 45 31 3A 8D 38 33  30 3A 98 32 00 E5 09 22  |L.E1:.830:.2..."|
000001E0: 01 99 54 49 24 00 15 0A  2C 01 99 22 49 4E 53 45  |..TI$...,.."INSE|
000001F0: 52 54 20 44 49 53 4B 20  57 49 54 48 20 50 52 4F  |RT DISK WITH PRO|
00000200: 47 52 41 4D 20 42 20 2D  20 48 49 54 20 41 4E 59  |GRAM B - HIT ANY|
00000210: 20 4B 45 59 22 00 28 0A  36 01 A1 41 24 3A 8B 41  | KEY".(.6..A$:.A|
00000220: 24 B2 22 22 A7 33 31 30  00 56 0A 40 01 85 22 46  |$."".310.V.@.."F|
00000230: 49 4C 45 20 42 20 4E 41  4D 45 20 20 A0 9D 9D 9D  |ILE B NAME  ....|
00000240: 22 3B 42 24 28 32 29 3A  8B 42 24 28 32 29 B2 22  |";B$(2):.B$(2)."|
00000250: A0 22 A7 33 32 30 00 5F  0A 4A 01 99 54 49 24 00  |.".320._.J..TI$.|
00000260: 7B 0A 54 01 9F 31 2C 38  2C 33 2C 22 30 3A 22 AA  |{.T..1,8,3,"0:".|
00000270: 42 24 28 32 29 AA 22 2C  50 2C 52 00 9E 0A 5E 01  |B$(2).",P,R...^.|
00000280: 84 31 35 2C 44 53 2C 44  53 24 2C 44 31 2C 44 32  |.15,DS,DS$,D1,D2|
00000290: 3A 8B 44 53 B3 B1 30 A7  99 44 53 24 3A 90 00 C2  |:.DS..0..DS$:...|
000002A0: 0A 68 01 4E B2 38 3A 8D  36 38 30 3A 53 32 B2 4C  |.h.N.8:.680:S2.L|
000002B0: 31 3A 45 32 B2 4C 31 AA  28 4D AB 4E AC 34 30 39  |1:E2.L1.(M.N.409|
000002C0: 36 29 00 DC 0A 72 01 98  32 2C 42 24 28 32 29 3B  |6)...r..2,B$(2);|
000002D0: 22 20 2D 20 53 54 41 52  54 20 22 3B 00 09 0B 7C  |" - START ";...||
000002E0: 01 4C 4C B2 53 32 3A 8D  38 33 30 3A 98 32 2C 22  |.LL.S2:.830:.2,"|
000002F0: 20 20 45 4E 44 20 22 3B  3A 4C 4C B2 45 32 3A 8D  |  END ";:LL.E2:.|
00000300: 38 33 30 3A 98 32 3A 98  32 00 12 0B 86 01 99 54  |830:.2:.2......T|
00000310: 49 24 00 2B 0B 90 01 8F  20 51 3D 4D 41 58 28 45  |I$.+.... Q=MAX(E|
00000320: 31 2D 53 31 2C 45 32 2D  53 32 29 00 67 0B 9A 01  |1-S1,E2-S2).g...|
00000330: 51 B2 AB 28 28 45 31 AB  53 31 29 B1 B2 28 45 32  |Q..((E1.S1)..(E2|
00000340: AB 53 32 29 29 AC 28 45  31 AB 53 31 29 AB 28 28  |.S2)).(E1.S1).((|
00000350: 45 32 AB 53 32 29 B1 28  45 31 AB 53 31 29 29 AC  |E2.S2).(E1.S1)).|
00000360: 28 45 32 AB 53 32 29 00  92 0B A4 01 98 32 2C 42  |(E2.S2)......2,B|
00000370: 24 28 31 29 3B A3 31 35  AA 28 44 45 B2 34 29 AC  |$(1);.15.(DE.4).|
00000380: C3 28 42 24 28 31 29 29  29 3B 42 24 28 32 29 3A  |.(B$(1)));B$(2):|
00000390: 98 32 00 A5 0B AE 01 8F  20 4D 41 49 4E 20 43 4F  |.2...... MAIN CO|
000003A0: 4D 50 41 52 45 00 BF 0B  B8 01 46 B2 30 3A 4A B2  |MPARE.....F.0:J.|
000003B0: 34 AC 34 30 39 36 3A 4B  B2 38 AC 34 30 39 36 00  |4.4096:K.8.4096.|
000003C0: FA 0B C2 01 8F 20 46 3D  30 2F 4E 4F 20 44 49 46  |..... F=0/NO DIF|
000003D0: 46 45 52 45 4E 43 45 20  20 46 49 4C 45 20 41 2F  |FERENCE  FILE A/|
000003E0: 24 32 30 30 30 20 55 50  20 20 20 46 49 4C 45 20  |$2000 UP   FILE |
000003F0: 42 2F 24 35 30 30 30 20  55 50 00 05 0C CC 01 81  |B/$5000 UP......|
00000400: 49 B2 30 A4 51 00 16 0C  D6 01 41 B2 C2 28 4A 29  |I.0.Q.....A..(J)|
00000410: 3A 4A B2 4A AA 31 00 27  0C E0 01 42 B2 C2 28 4B  |:J.J.1.'...B..(K|
00000420: 29 3A 4B B2 4B AA 31 00  39 0C EA 01 8B 53 31 AA  |):K.K.1.9....S1.|
00000430: 49 B3 B2 45 31 A7 35 34  30 00 4D 0C F4 01 8F 20  |I..E1.540.M.... |
00000440: 46 49 4C 45 20 42 3E 46  49 4C 45 20 41 00 76 0C  |FILE B>FILE A.v.|
00000450: FE 01 4C 4C B2 53 31 AA  49 3A 8D 38 33 30 3A 98  |..LL.S1.I:.830:.|
00000460: 32 2C 22 20 3A 20 22 3B  22 2A 2A 2A 2A 22 3B 22  |2," : ";"****";"|
00000470: 20 20 20 20 22 3B 00 87  0C 08 02 4C 4C B2 53 32  |    ";.....LL.S2|
00000480: AA 49 3A 8D 38 33 30 00  AB 0C 12 02 98 32 2C 22  |.I:.830......2,"|
00000490: 20 3A 20 22 3B 3A 4C 4C  B2 42 3A 8D 38 33 30 3A  | : ";:LL.B:.830:|
000004A0: 98 32 3A 46 B2 31 3A 89  36 34 30 00 BD 0C 1C 02  |.2:F.1:.640.....|
000004B0: 8B 53 32 AA 49 B3 B2 45  32 A7 35 39 30 00 D3 0C  |.S2.I..E2.590...|
000004C0: 26 02 8F 20 46 49 4C 45  20 41 20 3E 20 46 49 4C  |&.. FILE A > FIL|
000004D0: 45 20 42 00 F8 0C 30 02  4C 4C B2 53 31 AA 49 3A  |E B...0.LL.S1.I:|
000004E0: 8D 38 33 30 3A 98 32 2C  22 20 3A 20 22 3B 3A 4C  |.830:.2," : ";:L|
000004F0: 4C B2 41 3A 8D 38 33 30  00 07 0D 3A 02 98 32 2C  |L.A:.830...:..2,|
00000500: 22 20 20 20 20 22 3B 00  31 0D 44 02 4C 4C B2 53  |"    ";.1.D.LL.S|
00000510: 32 AA 49 3A 8D 38 33 30  3A 98 32 2C 22 20 3A 20  |2.I:.830:.2," : |
00000520: 22 3B 22 2A 2A 2A 2A 22  3A 46 B2 31 3A 89 36 34  |";"****":F.1:.64|
00000530: 30 00 3E 0D 4E 02 8B 41  B2 42 A7 36 34 30 00 63  |0.>.N..A.B.640.c|
00000540: 0D 58 02 4C 4C B2 53 31  AA 49 3A 8D 38 33 30 3A  |.X.LL.S1.I:.830:|
00000550: 98 32 2C 22 20 3A 20 22  3B 3A 4C 4C B2 41 3A 8D  |.2," : ";:LL.A:.|
00000560: 38 33 30 00 72 0D 62 02  98 32 2C 22 20 20 20 20  |830.r.b..2,"    |
00000570: 22 3B 00 97 0D 6C 02 4C  4C B2 53 32 AA 49 3A 8D  |";...l.LL.S2.I:.|
00000580: 38 33 30 3A 98 32 2C 22  20 3A 20 22 3B 3A 4C 4C  |830:.2," : ";:LL|
00000590: B2 42 3A 8D 38 33 30 00  A2 0D 76 02 98 32 3A 46  |.B:.830...v..2:F|
000005A0: B2 31 00 A9 0D 80 02 82  49 00 CB 0D 8A 02 8B 46  |.1......I......F|
000005B0: B2 30 A7 99 22 2A 2A 2A  12 4E 4F 20 44 49 46 46  |.0.."***.NO DIFF|
000005C0: 45 52 45 4E 43 45 92 2A  2A 2A 22 00 DC 0D 94 02  |ERENCE.***".....|
000005D0: 98 32 3A A0 32 3A 99 54  49 24 3A 80 00 FA 0D 9E  |.2:.2:.TI$:.....|
000005E0: 02 8F 20 50 4F 4B 45 20  46 49 4C 45 20 41 2F 42  |.. POKE FILE A/B|
000005F0: 20 54 4F 20 4D 45 4D 4F  52 59 00 12 0E A8 02 4D  | TO MEMORY.....M|
00000600: B2 4E AC 34 30 39 36 3A  51 B2 4D AA 34 AC 34 30  |.N.4096:Q.M.4.40|
00000610: 39 36 00 24 0E B2 02 A1  23 31 2C 4C 24 3A A1 23  |96.$....#1,L$:.#|
00000620: 31 2C 48 24 00 38 0E BC  02 8B 4C 24 B2 22 22 A7  |1,H$.8....L$."".|
00000630: 4C B2 30 3A 89 37 32 30  00 44 0E C6 02 4C B2 C6  |L.0:.720.D...L..|
00000640: 28 4C 24 29 00 58 0E D0  02 8B 48 24 B2 22 22 A7  |(L$).X....H$."".|
00000650: 48 B2 30 3A 89 37 34 30  00 64 0E DA 02 48 B2 C6  |H.0:.740.d...H..|
00000660: 28 48 24 29 00 73 0E E4  02 4C 31 B2 32 35 36 AC  |(H$).s...L1.256.|
00000670: 48 AA 4C 00 7E 0E EE 02  A1 23 31 2C 56 24 00 93  |H.L.~....#1,V$..|
00000680: 0E F8 02 8B 56 24 B2 22  22 A7 97 4D 2C 30 3A 89  |....V$.""..M,0:.|
00000690: 37 38 30 00 A0 0E 02 03  97 4D 2C C6 28 56 24 29  |780......M,.(V$)|
000006A0: 00 BE 0E 0C 03 8B 53 54  B3 B1 30 A7 A0 31 3A 8E  |......ST..0..1:.|
000006B0: 3A 8F 20 45 4E 44 20 4F  46 20 46 49 4C 45 00 E5  |:. END OF FILE..|
000006C0: 0E 16 03 8F 20 53 41 46  45 54 59 20 43 48 45 43  |.... SAFETY CHEC|
000006D0: 4B 20 46 4F 52 20 54 4F  4F 20 4C 41 52 47 45 20  |K FOR TOO LARGE |
000006E0: 46 49 4C 45 53 00 0C 0F  20 03 4D B2 4D AA 31 3A  |FILES... .M.M.1:|
000006F0: 8B 4D B1 51 20 A7 99 22  46 49 4C 45 20 54 4F 4F  |.M.Q .."FILE TOO|
00000700: 20 4C 41 52 47 45 22 3A  A0 31 3A 90 00 15 0F 2A  | LARGE":.1:....*|
00000710: 03 89 37 35 30 00 2A 0F  34 03 8F 20 44 45 43 49  |..750.*.4.. DECI|
00000720: 4D 41 4C 20 54 4F 20 48  45 58 00 60 0F 3E 03 4C  |MAL TO HEX.`.>.L|
00000730: 4C B2 4C 4C AD 34 30 39  36 3A 81 4A 4A B2 31 A4  |L.LL.4096:.JJ.1.|
00000740: 34 3A 4C 4C 25 B2 4C 4C  3A 98 32 2C C7 28 34 38  |4:LL%.LL:.2,.(48|
00000750: AA 4C 4C 25 AB 28 4C 4C  25 B1 39 29 AC 37 29 3B  |.LL%.(LL%.9).7);|
00000760: 00 82 0F 48 03 4C 4C B2  31 36 AC 28 4C 4C AB 4C  |...H.LL.16.(LL.L|
00000770: 4C 25 29 3A 82 4A 4A 3A  8E 3A 8F 20 4A 49 4D 20  |L%):.JJ:.:. JIM |
00000780: 42 2E 00 00 00                                    |B....           |

.......53,64:.52,0:..1...."..COMPARE TWO
 FILES":..A...."OUTPUT - .S.CREEN OR .P.
RINTER   P...";A$.|. ..H(A$,1)."S".DE.3:
.190......H(A$,1)."P".DE.4:.190. ....150
.P...."INSERT DISK WITH PROGRAM A - HIT 
ANY KEY"...H..A$:.A$."".200...R.."FILE A
 NAME   ...";B$(1):.B$(1)." ".210......T
I$.'....15,8,15.D....1,8,3,"0:".B$(1).",
P,R".G....15,DS,DS$,D1,D2:.DS..0..DS$:..
T....2,DE:.2.....N.4:.680:S1.L1:E1.L1.(M
.N.4096)......2,B$(1);" - START ";.....L
L.S1:.830:.2,"  END ";:LL.E1:.830:.2..."
..TI$...,.."INSERT DISK WITH PROGRAM B -
 HIT ANY KEY".(.6..A$:.A$."".310.V.@.."F
ILE B NAME   ...";B$(2):.B$(2)." ".320._
.J..TI$.{.T..1,8,3,"0:".B$(2).",P,R...^.
.15,DS,DS$,D1,D2:.DS..0..DS$:..B.H.N.8:.
680:S2.L1:E2.L1.(M.N.4096)...R..2,B$(2);
" - START ";...|.LL.S2:.830:.2,"  END ";
:LL.E2:.830:.2:.2......TI$.+.... Q=MAX(E
1-S1,E2-S2).G...Q..((E1.S1)..(E2.S2)).(E
1.S1).((E2.S2).(E1.S1)).(E2.S2)......2,B
$(1);.15.(DE.4).C(B$(1)));B$(2):.2......
 MAIN COMPARE.....F.0:J.4.4096:K.8.4096.
..B.. F=0/NO DIFFERENCE  FILE A/$2000 UP
   FILE B/$5000 UP...L..I.0.Q...V.A.B(J)
:J.J.1.'...B.B(K):K.K.1.9....S1.I..E1.54
0.M.... FILE B>FILE A.V...LL.S1.I:.830:.
2," : ";"****";"    ";.....LL.S2.I:.830.
.....2," : ";:LL.B:.830:.2:F.1:.640.....
.S2.I..E2.590.S.&.. FILE A > FILE B...0.
LL.S1.I:.830:.2," : ";:LL.A:.830...:..2,
"    ";.1.D.LL.S2.I:.830:.2," : ";"****"
:F.1:.640.>.N..A.B.640.C.X.LL.S1.I:.830:
.2," : ";:LL.A:.830.R.B..2,"    ";...L.L
L.S2.I:.830:.2," : ";:LL.B:.830...V..2:F
.1......I.K....F.0.."***.NO DIFFERENCE.*
**"......2: 2:.TI$:....... POKE FILE A/B
 TO MEMORY.....M.N.4096:Q.M.4.4096.$....
#1,L$:.#1,H$.8....L$."".L.0:.720.D.F.L.F
(L$).X.P..H$."".H.0:.740.D.Z.H.F(H$).S..
.L1.256.H.L.~....#1,V$......V$.""..M,0:.
780. ....M,F(V$)......ST..0. 1:.:. END O
F FILE...... SAFETY CHECK FOR TOO LARGE 
FILES... .M.M.1:.M.Q .."FILE TOO LARGE":
 1:....*..750.*.4.. DECIMAL TO HEX.`.>.L
L.LL.4096:.JJ.1.4:LL%.LL:.2,G(48.LL%.(LL
%.9).7);...H.LL.16.(LL.LL%):.JJ:.:. JIM 
B....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL