> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 02 00 8F 3A 20 43 36 34 20 46 41 53 |.......: C64 FAS|
00000010: 54 20 42 41 4D 20 55 54 49 4C 49 54 59 00 43 08 |T BAM UTILITY.C.|
00000020: 03 00 8F 3A 20 43 4F 4E 46 49 47 55 52 41 54 49 |...: CONFIGURATI|
00000030: 4F 4E 3A 20 43 36 34 2B 31 35 34 30 2F 31 20 44 |ON: C64+1540/1 D|
00000040: 49 53 4B 00 49 08 04 00 3A 00 69 08 05 00 8F 3A |ISK.I...:.i....:|
00000050: 20 55 53 45 53 20 4D 2F 43 20 52 4F 55 54 49 4E | USES M/C ROUTIN|
00000060: 45 20 40 20 24 43 30 30 30 00 87 08 06 00 8F 3A |E @ $C000......:|
00000070: 20 53 54 4F 52 45 53 20 42 49 54 20 4D 41 50 20 | STORES BIT MAP |
00000080: 40 20 24 43 31 30 30 00 8D 08 07 00 3A 00 AB 08 |@ $C100.....:...|
00000090: 08 00 8F 3A 20 4D 2F 43 20 52 4F 55 54 49 4E 45 |...: M/C ROUTINE|
000000A0: 20 53 45 4C 46 20 4C 4F 41 44 53 00 B1 08 09 00 | SELF LOADS.....|
000000B0: 3A 00 D2 08 0A 00 8F 3A 20 50 41 55 4C 20 42 4C |:......: PAUL BL|
000000C0: 41 49 52 2F 50 45 54 45 52 20 46 4C 45 54 43 48 |AIR/PETER FLETCH|
000000D0: 45 52 00 F5 08 0B 00 8F 3A 20 43 41 4E 42 45 52 |ER......: CANBER|
000000E0: 52 41 20 41 55 53 54 52 41 4C 49 41 20 35 20 46 |RA AUSTRALIA 5 F|
000000F0: 45 42 20 38 34 00 FB 08 0C 00 3A 00 10 09 0F 00 |EB 84.....:.....|
00000100: 8B C2 28 34 39 31 35 32 29 B2 31 36 30 A7 32 31 |..(49152).160.21|
00000110: 00 2A 09 14 00 46 B2 46 AA 31 3A 93 22 42 41 4D |.*...F.F.1:."BAM|
00000120: 47 45 54 2E 44 22 2C 38 2C 31 00 44 09 15 00 4D |GET.D",8,1.D...M|
00000130: B2 35 33 32 38 30 3A 97 4D 2C 31 35 3A 97 4D AA |.53280:.M,15:.M.|
00000140: 31 2C 31 35 00 70 09 1E 00 99 22 93 11 90 92 20 |1,15.p....".... |
00000150: 20 20 20 20 20 20 43 4F 4D 4D 4F 44 4F 52 45 20 | COMMODORE |
00000160: 36 34 20 44 49 53 4B 20 55 54 49 4C 49 54 59 22 |64 DISK UTILITY"|
00000170: 00 9B 09 23 00 99 22 11 1F 20 20 20 20 20 20 20 |...#..".. |
00000180: 42 4C 4F 43 4B 20 41 4C 4C 4F 43 41 54 49 4F 4E |BLOCK ALLOCATION|
00000190: 20 4D 41 50 20 28 42 41 4D 29 22 00 C5 09 24 00 | MAP (BAM)"...$.|
000001A0: 99 22 11 1C 20 20 20 20 20 20 20 50 41 55 4C 20 |.".. PAUL |
000001B0: 42 4C 41 49 52 2F 50 45 54 45 52 20 46 4C 45 54 |BLAIR/PETER FLET|
000001C0: 43 48 45 52 22 00 ED 09 25 00 99 22 20 20 20 20 |CHER"...%.." |
000001D0: 20 20 20 43 41 4E 42 45 52 52 41 20 41 55 53 54 | CANBERRA AUST|
000001E0: 52 41 4C 49 41 20 46 45 42 20 38 34 22 00 1B 0A |RALIA FEB 84"...|
000001F0: 26 00 99 22 11 11 11 90 20 20 20 20 20 20 20 50 |&..".... P|
00000200: 4C 45 41 53 45 20 49 4E 53 45 52 54 20 44 49 53 |LEASE INSERT DIS|
00000210: 4B 20 49 4E 20 44 52 49 56 45 22 00 44 0A 28 00 |K IN DRIVE".D.(.|
00000220: 99 22 11 20 20 20 20 20 20 20 20 50 52 45 53 53 |.". PRESS|
00000230: 20 41 4E 59 20 4B 45 59 20 57 48 45 4E 20 52 45 | ANY KEY WHEN RE|
00000240: 41 44 59 22 00 56 0A 32 00 A1 59 24 3A 8B 59 24 |ADY".V.2..Y$:.Y$|
00000250: B2 22 22 A7 35 30 00 A7 0A 3C 00 59 24 B2 22 11 |."".50...<.Y$.".|
00000260: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000270: 11 11 11 11 11 11 11 22 3A 58 24 B2 22 1D 1D 1D |.......":X$."...|
00000280: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000290: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000002A0: 1D 1D 1D 1D 1D 1D 22 00 BD 0A 46 00 9F 31 35 2C |......"...F..15,|
000002B0: 38 2C 31 35 3A 98 31 35 2C 22 49 30 22 00 CC 0A |8,15:.15,"I0"...|
000002C0: 50 00 9F 32 2C 38 2C 32 2C 22 23 22 00 E2 0A 5A |P..2,8,2,"#"...Z|
000002D0: 00 98 31 35 2C 22 55 31 22 3B 32 3B 30 3B 31 38 |..15,"U1";2;0;18|
000002E0: 3B 30 00 F4 0A 64 00 98 31 35 2C 22 42 2D 50 3A |;0...d..15,"B-P:|
000002F0: 22 32 3B 34 00 0F 0B 6E 00 9E 34 39 31 35 32 20 |"2;4...n..49152 |
00000300: 3A 8F 20 43 4C 45 41 52 20 42 55 46 46 45 52 00 |:. CLEAR BUFFER.|
00000310: 27 0B 78 00 9E 34 39 31 37 38 20 3A 20 8F 20 52 |'.x..49178 : . R|
00000320: 45 41 44 20 42 41 4D 00 32 0B 82 00 A0 32 3A A0 |EAD BAM.2....2:.|
00000330: 31 35 00 6A 0B 8C 00 97 4D 2C 31 31 3A 99 22 93 |15.j....M,11:.".|
00000340: 95 20 20 20 12 54 52 41 43 4B 53 92 20 20 20 31 |. .TRACKS. 1|
00000350: 31 31 31 31 31 31 31 31 31 32 32 32 32 32 32 32 |1111111112222222|
00000360: 32 32 32 33 33 33 33 33 33 22 00 98 0B 96 00 99 |222333333"......|
00000370: 22 20 20 20 31 32 33 34 35 36 37 38 39 30 31 32 |" 123456789012|
00000380: 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 |3456789012345678|
00000390: 39 30 31 32 33 34 35 22 00 C8 0B A0 00 99 22 1F |9012345"......".|
000003A0: AF 90 20 20 AF AF AF AF AF AF AF AF AF AF AF AF |.. ............|
000003B0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
000003C0: AF AF AF AF AF AF AF 22 00 FB 0B AA 00 99 22 12 |......."......".|
000003D0: 1F 53 92 30 90 A7 20 20 20 20 20 20 20 20 20 20 |.S.0.. |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 20 20 20 20 20 20 20 20 A5 22 00 2E 0C B4 00 | .".....|
00000400: 99 22 12 1F 45 92 31 90 A7 20 20 20 20 20 20 20 |."..E.1.. |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 A5 22 00 61 | .".a|
00000430: 0C BE 00 99 22 12 1F 43 92 32 90 A7 20 20 20 20 |...."..C.2.. |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A5 | .|
00000460: 22 00 94 0C C8 00 99 22 12 1F 54 92 33 90 A7 20 |"......"..T.3.. |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 A5 22 00 C7 0C D2 00 99 22 12 1F 4F 92 34 | ."......"..O.4|
000004A0: 90 A7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 20 A5 22 00 FA 0C DC 00 99 22 12 1F | ."......"..|
000004D0: 52 92 35 90 A7 20 20 20 20 20 20 20 20 20 20 20 |R.5.. |
000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004F0: 20 20 20 20 20 20 20 20 A5 22 00 2D 0D E6 00 99 | .".-....|
00000500: 22 12 1F 53 92 36 90 A7 20 20 20 20 20 20 20 20 |"..S.6.. |
00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000520: 20 20 20 20 20 20 20 20 20 20 20 A5 22 00 5E 0D | .".^.|
00000530: F0 00 99 22 1F 20 37 90 A7 20 20 20 20 20 20 20 |...". 7.. |
00000540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000550: 20 20 20 20 20 20 20 20 20 20 20 20 A5 22 00 8F | ."..|
00000560: 0D FA 00 99 22 1F 20 38 90 A7 20 20 20 20 20 20 |....". 8.. |
00000570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000580: 20 20 20 20 20 20 20 20 20 20 20 20 20 A5 22 00 | .".|
00000590: C0 0D 04 01 99 22 1F 20 39 90 A7 20 20 20 20 20 |.....". 9.. |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A5 22 | ."|
000005C0: 00 F1 0D 0E 01 99 22 1F 31 30 90 A7 20 20 20 20 |......".10.. |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A5 | .|
000005F0: 22 00 22 0E 18 01 99 22 1F 31 31 90 A7 20 20 20 |"."....".11.. |
00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000620: A5 22 00 53 0E 22 01 99 22 1F 31 32 90 A7 20 20 |.".S."..".12.. |
00000630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000650: 20 A5 22 00 84 0E 2C 01 99 22 1F 31 33 90 A7 20 | ."...,..".13.. |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000680: 20 20 A5 22 00 B5 0E 36 01 99 22 1F 31 34 90 A7 | ."...6..".14..|
00000690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006B0: 20 20 20 A5 22 00 E6 0E 40 01 99 22 1F 31 35 90 | ."...@..".15.|
000006C0: A7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 20 A5 22 00 17 0F 4A 01 99 22 1F 31 36 | ."...J..".16|
000006F0: 90 A7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000710: 20 20 20 20 20 A5 22 00 47 0F 54 01 99 22 1F 31 | .".G.T..".1|
00000720: 37 90 A7 20 20 20 20 20 20 20 20 20 20 20 20 20 |7.. |
00000730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000740: 20 CF B7 B7 B7 B7 22 00 72 0F 5E 01 99 22 1F 31 | .....".r.^..".1|
00000750: 38 90 A7 20 20 20 20 20 20 20 20 20 20 20 20 20 |8.. |
00000760: 20 20 20 20 20 20 20 20 20 20 20 CF B7 B7 B7 B7 | .....|
00000770: B7 22 00 A4 0F 68 01 99 22 1F 31 39 90 A7 20 20 |."...h..".19.. |
00000780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 CF | .|
00000790: B7 B7 B7 B7 B7 B7 20 20 20 20 20 1C D1 90 3D 55 |...... ...=U|
000007A0: 53 45 44 22 00 C3 0F 72 01 99 22 1F 32 30 90 A7 |SED"...r..".20..|
000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007C0: 20 A5 22 00 E0 0F 7C 01 99 22 20 20 20 B7 B7 B7 | ."...|.." ...|
000007D0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 13 22 |..............."|
000007E0: 00 F4 0F 86 01 42 B2 34 39 34 30 38 3A 81 54 B2 |.....B.49408:.T.|
000007F0: 31 A4 33 35 00 08 10 90 01 8B 54 B3 31 38 A7 41 |1.35......T.18.A|
00000800: B2 32 30 3A 89 34 34 30 00 1C 10 9A 01 8B 54 B3 |.20:.440......T.|
00000810: 32 35 A7 41 B2 31 38 3A 89 34 34 30 00 30 10 A4 |25.A.18:.440.0..|
00000820: 01 8B 54 B3 33 31 A7 41 B2 31 37 3A 89 34 34 30 |..T.31.A.17:.440|
00000830: 00 39 10 AE 01 41 B2 31 36 00 5A 10 B8 01 81 53 |.9...A.16.Z....S|
00000840: B2 30 A4 41 3A 8B C2 28 42 29 B2 31 AF 54 B3 B1 |.0.A:..(B).1.T..|
00000850: 31 38 A7 42 46 B2 42 46 AA 31 00 71 10 B9 01 8B |18.BF.BF.1.q....|
00000860: C2 28 42 29 B2 31 A7 42 B2 42 AA 31 3A 89 34 36 |.(B).1.B.B.1:.46|
00000870: 30 00 A6 10 C2 01 99 22 13 22 C8 28 59 24 2C 53 |0......".".(Y$,S|
00000880: AA 33 29 C8 28 58 24 2C 54 AA 32 29 22 1C 22 CA |.3).(X$,T.2)".".|
00000890: 28 22 D1 A0 22 2C C2 28 42 29 AA 31 2C 31 29 3B |("..",.(B).1,1);|
000008A0: 3A 42 B2 42 AA 31 00 AE 10 CC 01 82 3A 82 00 D9 |:B.B.1......:...|
000008B0: 10 D6 01 99 22 13 22 C8 28 59 24 2C 32 33 29 C8 |....".".(Y$,23).|
000008C0: 28 58 24 2C 32 31 29 22 90 42 4C 4F 43 4B 53 20 |(X$,21)".BLOCKS |
000008D0: 46 52 45 45 20 3D 22 42 46 00 16 11 E0 01 99 22 |FREE ="BF......"|
000008E0: 13 22 C8 28 59 24 2C 32 34 29 22 97 12 20 20 20 |.".(Y$,24)".. |
000008F0: 20 20 20 27 43 27 20 54 4F 20 43 4F 4E 54 49 4E | 'C' TO CONTIN|
00000900: 55 45 20 27 45 27 20 54 4F 20 45 4E 44 20 20 20 |UE 'E' TO END |
00000910: 20 20 20 20 22 3B 00 2E 11 E1 01 97 32 30 32 33 | ";......2023|
00000920: 2C 31 36 30 3A 97 35 36 32 39 35 2C 31 31 00 41 |,160:.56295,11.A|
00000930: 11 EA 01 A1 52 24 3A 8B 52 24 B2 22 22 A7 34 39 |....R$:.R$."".49|
00000940: 30 00 54 11 F4 01 8B 52 24 B2 22 45 22 A7 99 22 |0.T....R$."E".."|
00000950: 13 22 3A 80 00 62 11 FE 01 8B 52 24 B2 22 43 22 |.":..b....R$."C"|
00000960: A7 8A 00 6B 11 08 02 89 34 39 30 00 00 00 |...k....490... |
.......: C64 FAST BAM UTILITY.C....: CON
FIGURATION: C64+1540/1 DISK.I...:.I....:
USES M/C ROUTINE @ $C000......: STORES
BIT MAP @ $C100.....:......: M/C ROUTINE
SELF LOADS.....:.R....: PAUL BLAIR/PETE
R FLETCHER......: CANBERRA AUSTRALIA 5 F
EB 84.....:......B(49152).160.21.*...F.F
.1:."BAMGET.D",8,1.D...M.53280:.M,15:.M.
1,15.P....".... COMMODORE 64 DISK
UTILITY"...#..".. BLOCK ALLOCATION
MAP (BAM)".E.$..".. PAUL BLAIR/PE
TER FLETCHER"...%.." CANBERRA AUST
RALIA FEB 84"...&..".... PLEASE IN
SERT DISK IN DRIVE".D.(..". PRESS
ANY KEY WHEN READY".V.2..Y$:.Y$."".50..
.<.Y$."........................":X$."...
......................................".
..F..15,8,15:.15,"I0".L.P..2,8,2,"#"...Z
..15,"U1";2;0;18;0...D..15,"B-P:"2;4...N
..49152 :. CLEAR BUFFER.'.X..49178 : . R
EAD BAM.2... 2: 15.J....M,11:.".. .TRA
CKS. 11111111112222222222333333"......
" 12345678901234567890123456789012345"
.H. .."... ............................
......."......"..S.0..
."......"..E.1..
.".A...."..C
.2.. .
"...H.."..T.3..
.".G.R.."..O.4..
."......"..R.5..
.".-....
"..S.6..
.".^....". 7..
."......". 8..
."......". 9..
."......".
10.. .
"."....".11..
.".S."..".12..
."...,..".13..
."...6..".14..
."...
@..".15..
."...J..".16..
.".G.T..".17..
O....".R.^..".18..
O....."...H..".19..
O...... .Q.=USED".C.R
..".20.. ."...|.." ...
...............".....B.49408:.T.1.35....
..T.18.A.20:.440......T.25.A.18:.440.0..
..T.31.A.17:.440.9...A.16.Z....S.0.A:.B(
B).1.T..18.BF.BF.1.Q....B(B).1.B.B.1:.46
0...B.."."H(Y$,S.3)H(X$,T.2)"."J("Q ",B(
B).1,1);:B.B.1...L..:..Y.V.."."H(Y$,23)H
(X$,21)".BLOCKS FREE ="BF......"."H(Y$,2
4)".. 'C' TO CONTINUE 'E' TO END
";......2023,160:.56295,11.A....R$:.
R$."".490.T....R$."E"..".":..B....R$."C"
...K....490...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL