SHELL SORT

FILE INFORMATION

FILENAME(S): SHELL SORT

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-10-19 22:49:15

APPEARS ON: 1 disk(s)

FILE HASH

28af77bcffa8aabd2946093d280cceeb7f2c5e7b848c94951d8c6164f4d1b9e3

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
GOLD DISK SEP85	SHELL SORT	PRG	Radd Maxx	9	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 07 08 E8 03 8F 00  2B 08 F2 03 8F 20 41 4C  |........+.... AL|
00000010: 4C 20 56 41 52 49 41 42  4C 45 53 20 49 4E 20 54  |L VARIABLES IN T|
00000020: 48 49 53 20 52 4F 55 54  49 4E 45 00 4B 08 FC 03  |HIS ROUTINE.K...|
00000030: 8F 20 42 45 47 49 4E 20  57 49 54 48 20 54 48 45  |. BEGIN WITH THE|
00000040: 20 4C 45 54 54 45 52 20  27 51 27 00 6F 08 06 04  | LETTER 'Q'.o...|
00000050: 8F 20 59 4F 55 20 53 48  4F 55 4C 44 20 4E 4F 54  |. YOU SHOULD NOT|
00000060: 20 53 54 41 52 54 20 56  41 52 49 41 42 4C 45 00  | START VARIABLE.|
00000070: 94 08 10 04 8F 20 4E 41  4D 45 53 20 49 4E 20 59  |..... NAMES IN Y|
00000080: 4F 55 52 20 50 52 4F 47  52 41 4D 20 57 49 54 48  |OUR PROGRAM WITH|
00000090: 20 27 51 27 00 9A 08 1A  04 8F 00 A0 08 24 04 8F  | 'Q'.........$..|
000000A0: 00 BF 08 2E 04 8F 20 54  4F 20 55 53 45 20 54 48  |...... TO USE TH|
000000B0: 49 53 20 53 55 42 52 4F  55 54 49 4E 45 20 3A 00  |IS SUBROUTINE :.|
000000C0: C5 08 38 04 8F 00 E8 08  42 04 8F 20 20 31 2E 20  |..8.....B..  1. |
000000D0: 20 53 45 54 20 51 4E 20  54 4F 20 23 20 4F 46 20  | SET QN TO # OF |
000000E0: 45 4C 45 4D 45 4E 54 53  00 0D 09 4C 04 8F 20 20  |ELEMENTS...L..  |
000000F0: 20 20 20 20 49 4E 20 54  48 45 20 41 52 52 41 59  |    IN THE ARRAY|
00000100: 20 54 4F 20 42 45 20 53  4F 52 54 45 44 00 13 09  | TO BE SORTED...|
00000110: 56 04 8F 00 37 09 60 04  8F 20 20 32 2E 20 20 43  |V...7.`..  2.  C|
00000120: 48 41 4E 47 45 20 41 4C  4C 20 27 41 28 27 53 20  |HANGE ALL 'A('S |
00000130: 49 4E 20 54 48 49 53 00  59 09 6A 04 8F 20 20 20  |IN THIS.Y.j..   |
00000140: 20 20 20 52 4F 55 54 49  4E 45 20 54 4F 20 54 48  |   ROUTINE TO TH|
00000150: 45 20 4E 41 4D 45 20 4F  46 00 70 09 74 04 8F 20  |E NAME OF.p.t.. |
00000160: 20 20 20 20 20 59 4F 55  52 20 41 52 52 41 59 2E  |     YOUR ARRAY.|
00000170: 00 76 09 7E 04 8F 00 97  09 88 04 8F 20 20 33 2E  |.v.~........  3.|
00000180: 20 20 47 4F 53 55 42 20  54 4F 20 54 48 49 53 20  |  GOSUB TO THIS |
00000190: 52 4F 55 54 49 4E 45 00  9D 09 92 04 8F 00 A3 09  |ROUTINE.........|
000001A0: 9C 04 8F 00 C2 09 A6 04  8F 20 43 41 4C 43 55 4C  |......... CALCUL|
000001B0: 41 54 45 20 54 48 45 20  49 4E 43 52 45 4D 45 4E  |ATE THE INCREMEN|
000001C0: 54 53 00 C8 09 B0 04 8F  00 D4 09 BA 04 86 51 48  |TS............QH|
000001D0: 28 32 30 29 00 E5 09 C4  04 51 48 28 31 29 B2 31  |(20).....QH(1).1|
000001E0: 3A 51 53 B2 31 00 F1 09  CE 04 51 53 B2 51 53 AA  |:QS.1.....QS.QS.|
000001F0: 31 00 09 0A D8 04 51 48  28 51 53 29 B2 51 48 28  |1.....QH(QS).QH(|
00000200: 51 53 AB 31 29 AC 33 AA  31 00 20 0A E2 04 8B 20  |QS.1).3.1. .... |
00000210: 51 48 28 51 53 29 B3 51  4E 20 A7 20 31 32 33 30  |QH(QS).QN . 1230|
00000220: 00 37 0A EC 04 51 53 B2  51 53 AB 32 3A 8B 51 53  |.7...QS.QS.2:.QS|
00000230: B3 31 A7 51 53 B2 31 00  3D 0A F6 04 8F 00 62 0A  |.1.QS.1.=.....b.|
00000240: 00 05 8F 20 46 4F 52 20  45 41 43 48 20 49 4E 43  |... FOR EACH INC|
00000250: 52 45 4D 45 4E 54 20 44  4F 20 41 20 42 55 42 42  |REMENT DO A BUBB|
00000260: 4C 45 00 6D 0A 0A 05 8F  20 53 4F 52 54 00 73 0A  |LE.m.... SORT.s.|
00000270: 14 05 8F 00 83 0A 1E 05  81 51 4C B2 51 53 A4 31  |.........QL.QS.1|
00000280: A9 AB 31 00 91 0A 28 05  51 44 B2 51 48 28 51 4C  |..1...(.QD.QH(QL|
00000290: 29 00 A4 0A 32 05 81 51  49 B2 31 A4 51 44 3A 51  |)...2..QI.1.QD:Q|
000002A0: 4D B2 51 4E 00 C0 0A 3C  05 8B 51 49 B1 51 4E AB  |M.QN...<..QI.QN.|
000002B0: 51 44 A7 51 49 B2 51 44  AA 31 3A 89 31 35 33 30  |QD.QI.QD.1:.1530|
000002C0: 00 C6 0A 46 05 8F 00 E9  0A 50 05 8F 20 54 48 49  |...F.....P.. THI|
000002D0: 53 20 49 53 20 54 48 45  20 27 42 55 42 42 4C 45  |S IS THE 'BUBBLE|
000002E0: 27 20 52 4F 55 54 49 4E  45 00 EF 0A 5A 05 8F 00  |' ROUTINE...Z...|
000002F0: 08 0B 64 05 81 20 51 4A  B2 51 49 20 A4 20 51 4E  |..d.. QJ.QI . QN|
00000300: AB 51 44 20 A9 20 51 44  00 1B 0B 6E 05 51 4D B2  |.QD . QD...n.QM.|
00000310: 51 4D AB 51 44 3A 51 46  B2 AB 31 00 2C 0B 78 05  |QM.QD:QF..1.,.x.|
00000320: 81 51 4B B2 51 49 A4 51  4D A9 51 44 00 32 0B 82  |.QK.QI.QM.QD.2..|
00000330: 05 8F 00 55 0B 8C 05 8F  20 48 45 52 45 20 59 4F  |...U.... HERE YO|
00000340: 55 20 4D 55 53 54 20 43  48 41 4E 47 45 20 27 41  |U MUST CHANGE 'A|
00000350: 28 27 20 54 4F 00 7A 0B  96 05 8F 20 59 4F 55 52  |(' TO.z.... YOUR|
00000360: 20 4F 57 4E 20 50 41 52  54 49 43 55 4C 41 52 20  | OWN PARTICULAR |
00000370: 41 52 52 41 59 20 4E 41  4D 45 00 80 0B A0 05 8F  |ARRAY NAME......|
00000380: 00 9F 0B AA 05 8B 20 41  28 20 51 4B 29 B3 B2 20  |...... A( QK).. |
00000390: 41 28 20 51 4B AA 51 44  29 20 A7 31 35 31 30 00  |A( QK.QD) .1510.|
000003A0: C1 0B B4 05 51 54 B2 20  41 28 20 51 4B 29 3A 20  |....QT. A( QK): |
000003B0: 41 28 20 51 4B 29 B2 20  41 28 20 51 4B AA 51 44  |A( QK). A( QK.QD|
000003C0: 29 00 D7 0B BE 05 41 28  20 51 4B AA 51 44 29 B2  |).....A( QK.QD).|
000003D0: 51 54 3A 51 46 B2 30 00  DD 0B C8 05 8F 00 F2 0B  |QT:QF.0.........|
000003E0: D2 05 8F 20 43 4F 4E 54  49 4E 55 45 20 4F 4E 2E  |... CONTINUE ON.|
000003F0: 2E 2E 00 F8 0B DC 05 8F  00 08 0C E6 05 82 3A 8B  |..............:.|
00000400: 51 46 A7 51 4A B2 51 4E  00 0E 0C F0 05 82 00 16  |QF.QJ.QN........|
00000410: 0C FA 05 82 3A 82 00 1C  0C 04 06 8F 00 2A 0C 0E  |....:........*..|
00000420: 06 8F 20 44 4F 4E 45 2E  2E 2E 00 30 0C 18 06 8F  |.. DONE....0....|
00000430: 00 36 0C 22 06 8E 00 00  00                       |.6.".....       |

........+.... ALL VARIABLES IN THIS ROUT
INE.K.... BEGIN WITH THE LETTER 'Q'.O...
. YOU SHOULD NOT START VARIABLE...... NA
MES IN YOUR PROGRAM WITH 'Q'....... .$..
...... TO USE THIS SUBROUTINE :.E.8.....
B..  1.  SET QN TO # OF ELEMENTS...L..  
    IN THE ARRAY TO BE SORTED...V...7.`.
.  2.  CHANGE ALL 'A('S IN THIS.Y.J..   
   ROUTINE TO THE NAME OF.P.T..      YOU
R ARRAY..V.~........  3.  GOSUB TO THIS 
ROUTINE.............B.... CALCULATE THE 
INCREMENTS.H.....T....QH(20)...D.QH(1).1
:QS.1...N.QS.QS.1...X.QH(QS).QH(QS.1).3.
1. .... QH(QS).QN . 1230.7...QS.QS.2:.QS
.1.QS.1.=.....B.... FOR EACH INCREMENT D
O A BUBBLE.M.... SORT.S..........QL.QS.1
..1...(.QD.QH(QL)...2..QI.1.QD:QM.QN...<
..QI.QN.QD.QI.QD.1:.1530.F.F.....P.. THI
S IS THE 'BUBBLE' ROUTINE...Z.....D.. QJ
.QI . QN.QD . QD...N.QM.QM.QD:QF..1.,.X.
.QK.QI.QM.QD.2.....U.... HERE YOU MUST C
HANGE 'A(' TO.Z.... YOUR OWN PARTICULAR 
ARRAY NAME... ........ A( QK).. A( QK.QD
) .1510.A...QT. A( QK): A( QK). A( QK.QD
).W...A( QK.QD).QT:QF.0...H.....R.. CONT
INUE ON...............:.QF.QJ.QN........
....:........*.... DONE....0.....6."....
.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL