> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 0A 00 8F 00 25 08 14 00 8F 20 42 49 |........%.... BI|
00000010: 4E 41 52 59 20 53 45 41 52 43 48 20 54 45 43 48 |NARY SEARCH TECH|
00000020: 4E 49 51 55 45 00 2B 08 1E 00 8F 00 49 08 28 00 |NIQUE.+.....I.(.|
00000030: 99 20 C7 28 31 34 29 3B 22 93 05 C2 49 4E 41 52 |. .(14);"...INAR|
00000040: 59 20 D3 45 41 52 43 48 22 00 65 08 32 00 99 22 |Y .EARCH".e.2.."|
00000050: 05 11 CE 55 4D 42 45 52 53 20 49 4E 20 41 52 52 |...UMBERS IN ARR|
00000060: 41 59 3A 11 22 00 7A 08 3C 00 4E B2 31 33 3A 20 |AY:.".z.<.N.13: |
00000070: 86 20 41 52 52 41 59 28 4E 29 00 A2 08 46 00 81 |. ARRAY(N)...F..|
00000080: 49 B2 31 A4 4E 3A 87 20 41 52 52 41 59 28 49 29 |I.1.N:. ARRAY(I)|
00000090: 3A 99 C4 28 41 52 52 41 59 28 49 29 29 3B 3A 82 |:..(ARRAY(I));:.|
000000A0: 3A 99 00 CF 08 50 00 83 20 31 30 2C 31 34 2C 32 |:....P.. 10,14,2|
000000B0: 30 2C 32 34 2C 32 37 2C 32 38 2C 33 32 2C 33 35 |0,24,27,28,32,35|
000000C0: 2C 33 39 2C 34 37 2C 36 32 2C 36 34 2C 39 38 00 |,39,47,62,64,98.|
000000D0: F3 08 5A 00 85 20 22 11 CE 55 4D 42 45 52 20 54 |..Z.. "..UMBER T|
000000E0: 4F 20 53 45 41 52 43 48 20 46 4F 52 3A 20 22 3B |O SEARCH FOR: ";|
000000F0: 4E 55 4D 00 24 09 64 00 8D 20 31 39 30 3A 20 99 |NUM.$.d.. 190: .|
00000100: 20 22 4E 55 4D 42 45 52 22 3B 4E 55 4D 3B 22 20 | "NUMBER";NUM;" |
00000110: 46 4F 55 4E 44 20 41 53 20 49 54 45 4D 20 23 22 |FOUND AS ITEM #"|
00000120: 3B 54 52 59 00 2A 09 6E 00 80 00 30 09 78 00 8F |;TRY.*.n...0.x..|
00000130: 00 4F 09 82 00 8F 20 42 49 4E 41 52 59 20 53 45 |.O.... BINARY SE|
00000140: 41 52 43 48 20 53 55 42 52 4F 55 54 49 4E 45 00 |ARCH SUBROUTINE.|
00000150: 55 09 8C 00 8F 00 78 09 96 00 8F 20 54 48 49 53 |U.....x.... THIS|
00000160: 20 52 4F 55 54 49 4E 45 20 57 49 4C 4C 20 53 45 | ROUTINE WILL SE|
00000170: 41 52 43 48 20 46 4F 52 00 9D 09 A0 00 8F 20 27 |ARCH FOR...... '|
00000180: 4E 55 4D 27 20 49 4E 20 41 52 52 41 59 20 27 41 |NUM' IN ARRAY 'A|
00000190: 52 52 41 59 27 20 4F 46 20 53 49 5A 45 00 BF 09 |RRAY' OF SIZE...|
000001A0: AA 00 8F 20 27 4E 27 2E 20 20 54 48 45 20 49 4E |... 'N'. THE IN|
000001B0: 44 45 58 20 49 53 20 52 45 54 55 52 4E 45 44 00 |DEX IS RETURNED.|
000001C0: E6 09 B4 00 8F 20 4F 4E 20 43 4F 4D 50 4C 45 54 |..... ON COMPLET|
000001D0: 49 4F 4E 20 28 27 30 27 20 49 46 20 4E 4F 54 20 |ION ('0' IF NOT |
000001E0: 46 4F 55 4E 44 29 00 F7 09 BE 00 4C 4F 57 B2 31 |FOUND).....LOW.1|
000001F0: 3A 48 49 47 48 B2 4E 00 0F 0A C8 00 54 52 59 B2 |:HIGH.N.....TRY.|
00000200: B5 28 28 4C 4F 57 AA 48 49 47 48 29 AD 32 29 00 |.((LOW.HIGH).2).|
00000210: 28 0A D2 00 8B 20 4E 55 4D B2 41 52 52 41 59 28 |(.... NUM.ARRAY(|
00000220: 54 52 59 29 20 A7 20 8E 00 52 0A DC 00 8B 20 4E |TRY) . ..R.... N|
00000230: 55 4D B3 41 52 52 41 59 28 54 52 59 29 20 A7 20 |UM.ARRAY(TRY) . |
00000240: 48 49 47 48 B2 54 52 59 AB 31 3A 20 20 89 20 32 |HIGH.TRY.1: . 2|
00000250: 34 30 00 60 0A E6 00 4C 4F 57 B2 54 52 59 AA 31 |40.`...LOW.TRY.1|
00000260: 00 76 0A F0 00 8B 20 4C 4F 57 B3 B2 48 49 47 48 |.v.... LOW..HIGH|
00000270: 20 A7 20 32 30 30 00 83 0A FA 00 54 52 59 B2 30 | . 200.....TRY.0|
00000280: 3A 20 8E 00 00 00 |: .... |
........%.... BINARY SEARCH TECHNIQUE.+.
....I.(.. G(14);"..BINARY SEARCH".E.2.."
..NUMBERS IN ARRAY:.".Z.<.N.13: . ARRAY(
N)...F..I.1.N:. ARRAY(I):.D(ARRAY(I));:.
:..O.P.. 10,14,20,24,27,28,32,35,39,47,6
2,64,98...Z.. ".NUMBER TO SEARCH FOR: ";
NUM.$.D.. 190: . "NUMBER";NUM;" FOUND AS
ITEM #";TRY.*.N...0.X...O.... BINARY SE
ARCH SUBROUTINE.U.....X.... THIS ROUTINE
WILL SEARCH FOR... .. 'NUM' IN ARRAY 'A
RRAY' OF SIZE...... 'N'. THE INDEX IS R
ETURNED...... ON COMPLETION ('0' IF NOT
FOUND).....LOW.1:HIGH.N...H.TRY..((LOW.H
IGH).2).(.R.. NUM.ARRAY(TRY) . ..R.... N
UM.ARRAY(TRY) . HIGH.TRY.1: . 240.`...L
OW.TRY.1.V.... LOW..HIGH . 200.....TRY.0
: ....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL