> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 64 00 4E B2 31 30 00 15 08 6E 00 86 |....d.N.10...n..|
00000010: 20 41 28 4E 29 00 29 08 78 00 81 49 B2 31 A4 4E | A(N).).x..I.1.N|
00000020: 3A 87 20 41 28 49 29 3A 82 00 43 08 82 00 83 20 |:. A(I):..C.... |
00000030: 35 2C 32 2C 34 2C 30 2C 38 2C 37 2C 33 2C 39 2C |5,2,4,0,8,7,3,9,|
00000040: 31 2C 36 00 51 08 8C 00 99 22 42 45 46 4F 52 45 |1,6.Q...."BEFORE|
00000050: 22 00 69 08 96 00 81 49 B2 31 A4 4E 3A 99 41 28 |".i....I.1.N:.A(|
00000060: 49 29 3B 22 20 22 3B 3A 82 00 8D 08 84 03 8F 20 |I);" ";:....... |
00000070: 2A 2A 2A 2A 2A 2A 20 54 48 45 20 27 46 41 53 54 |****** THE 'FAST|
00000080: 20 42 55 42 42 4C 45 27 20 53 4F 52 54 00 93 08 | BUBBLE' SORT...|
00000090: 89 03 8F 00 A4 08 8E 03 8F 20 2A 2A 2A 2A 2A 4D |......... *****M|
000000A0: 4F 44 20 31 00 CA 08 98 03 8F 20 49 46 20 54 48 |OD 1...... IF TH|
000000B0: 45 52 45 20 41 52 45 20 4E 4F 20 49 4E 54 45 52 |ERE ARE NO INTER|
000000C0: 43 48 41 4E 47 45 53 20 49 4E 00 ED 08 A2 03 8F |CHANGES IN......|
000000D0: 20 41 20 50 41 53 53 20 54 48 45 4E 20 59 4F 55 | A PASS THEN YOU|
000000E0: 20 41 52 45 20 44 4F 4E 45 20 21 21 21 00 0F 09 | ARE DONE !!!...|
000000F0: AC 03 8F 20 54 48 55 53 2C 20 4E 4F 20 4E 45 45 |... THUS, NO NEE|
00000100: 44 20 54 4F 20 44 4F 20 41 4E 59 4D 4F 52 45 00 |D TO DO ANYMORE.|
00000110: 1D 09 B6 03 8F 20 50 41 53 53 45 53 2E 00 2E 09 |..... PASSES....|
00000120: C0 03 8F 20 2A 2A 2A 2A 2A 4D 4F 44 20 32 00 54 |... *****MOD 2.T|
00000130: 09 CA 03 8F 20 52 45 43 4F 52 44 20 54 48 45 20 |.... RECORD THE |
00000140: 50 4F 53 49 54 49 4F 4E 20 4F 46 20 54 48 45 20 |POSITION OF THE |
00000150: 4C 41 53 54 00 7A 09 D4 03 8F 20 49 4E 54 45 52 |LAST.z.... INTER|
00000160: 43 48 41 4E 47 45 2E 20 54 48 45 20 4E 45 58 54 |CHANGE. THE NEXT|
00000170: 20 50 41 53 53 20 4F 4E 4C 59 00 9E 09 DE 03 8F | PASS ONLY......|
00000180: 20 48 41 53 20 54 4F 20 47 4F 20 55 50 54 4F 20 | HAS TO GO UPTO |
00000190: 54 48 45 52 45 2C 20 49 4E 53 54 45 41 44 00 BA |THERE, INSTEAD..|
000001A0: 09 E3 03 8F 20 4F 46 20 41 4C 4C 20 54 48 45 20 |.... OF ALL THE |
000001B0: 57 41 59 20 54 4F 20 4E 2D 49 00 C0 09 E4 03 8F |WAY TO N-I......|
000001C0: 00 CF 09 E8 03 4C 41 53 54 20 B2 20 4E AB 31 00 |.....LAST . N.1.|
000001D0: DE 09 F2 03 43 48 41 4E 47 45 20 B2 20 30 00 F1 |....CHANGE . 0..|
000001E0: 09 FC 03 81 20 4A 20 B2 20 31 20 A4 20 4C 41 53 |.... J . 1 . LAS|
000001F0: 54 00 0D 0A 06 04 8B 20 41 28 4A 29 20 B3 B2 20 |T...... A(J) .. |
00000200: 41 28 4A AA 31 29 20 89 20 31 30 37 30 00 2A 0A |A(J.1) . 1070.*.|
00000210: 0B 04 43 48 41 4E 47 45 20 B2 20 AB 31 20 3A 20 |..CHANGE . .1 : |
00000220: 4C 41 53 54 20 B2 20 4A AB 31 00 37 0A 10 04 54 |LAST . J.1.7...T|
00000230: 20 B2 20 41 28 4A 29 00 49 0A 1A 04 41 28 4A 29 | . A(J).I...A(J)|
00000240: 20 B2 20 41 28 4A AA 31 29 00 58 0A 24 04 41 28 | . A(J.1).X.$.A(|
00000250: 4A AA 31 29 20 B2 20 54 00 60 0A 2E 04 82 20 4A |J.1) . T.`.... J|
00000260: 00 7D 0A 38 04 8B 20 43 48 41 4E 47 45 20 AF 20 |.}.8.. CHANGE . |
00000270: 4C 41 53 54 B1 30 20 A7 20 31 30 31 30 00 9F 0A |LAST.0 . 1010...|
00000280: 4C 04 8F 20 2A 2A 2A 2A 2A 2A 20 45 4E 44 20 4F |L.. ****** END O|
00000290: 46 20 27 46 41 53 54 20 42 55 42 42 4C 45 27 00 |F 'FAST BUBBLE'.|
000002A0: AF 0A 56 04 99 3A 99 22 11 41 46 54 45 52 22 00 |..V..:.".AFTER".|
000002B0: C7 0A 60 04 81 49 B2 31 A4 4E 3A 99 41 28 49 29 |..`..I.1.N:.A(I)|
000002C0: 3B 22 20 22 3B 3A 82 00 00 00 |;" ";:.... |
....D.N.10...N.. A(N).).X..I.1.N:. A(I):
..C.... 5,2,4,0,8,7,3,9,1,6.Q...."BEFORE
".I....I.1.N:.A(I);" ";:....... ****** T
HE 'FAST BUBBLE' SORT............ *****M
OD 1.J.... IF THERE ARE NO INTERCHANGES
IN...... A PASS THEN YOU ARE DONE !!!...
... THUS, NO NEED TO DO ANYMORE...... PA
SSES....... *****MOD 2.T.J.. RECORD THE
POSITION OF THE LAST.Z.T.. INTERCHANGE.
THE NEXT PASS ONLY...... HAS TO GO UPTO
THERE, INSTEAD...... OF ALL THE WAY TO N
-I.......O...LAST . N.1.....CHANGE . 0..
.... J . 1 . LAST...... A(J) .. A(J.1) .
1070.*...CHANGE . .1 : LAST . J.1.7...T
. A(J).I...A(J) . A(J.1).X.$.A(J.1) . T
.`.... J.}.8.. CHANGE . LAST.0 . 1010...
L.. ****** END OF 'FAST BUBBLE'...V..:."
.AFTER".G.`..I.1.N:.A(I);" ";:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL