BAM.C
FILE INFORMATION
FILENAME(S): BAM.C
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-11-30 01:08:03
APPEARS ON: 2 disk(s)
FILE HASH
3e1b955899af8af5b486bf8b54fb0fedd55fcab3410ee1815fca89b56f324cc2
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | BAM.C | PRG | Treasure Chest - Wolfgang Rauprich | 16 | 2 | DOWNLOAD FILE |
| D IVERSE | BAM.C | PRG | Treasure Chest - Wolfgang Rauprich | 16 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 64 00 8F 20 20 42 4C 4F 43 4B 20 41 |....d.. BLOCK A| 00000010: 4C 4C 4F 43 41 54 49 4F 4E 20 4D 41 50 00 3A 08 |LLOCATION MAP.:.| 00000020: 6E 00 8F 20 20 57 52 49 54 54 45 4E 20 42 59 20 |n.. WRITTEN BY | 00000030: 54 4F 4D 20 43 4F 4E 52 41 44 00 59 08 78 00 8F |TOM CONRAD.Y.x..| 00000040: 20 20 4F 52 49 47 49 4E 41 4C 4C 59 20 49 4E 20 | ORIGINALLY IN | 00000050: 27 43 4F 4D 50 55 54 45 27 00 5F 08 82 00 3A 00 |'COMPUTE'._...:.| 00000060: 77 08 8C 00 8F 20 20 4D 4F 44 49 46 49 45 44 20 |w.... MODIFIED | 00000070: 46 4F 52 20 43 36 34 00 97 08 96 00 8F 20 20 50 |FOR C64...... P| 00000080: 41 55 4C 20 42 4C 41 49 52 20 46 45 42 52 55 41 |AUL BLAIR FEBRUA| 00000090: 52 59 20 31 39 38 34 00 9D 08 A0 00 3A 00 BE 08 |RY 1984.....:...| 000000A0: AA 00 8F 20 42 4C 4F 43 4B 20 41 4C 4C 4F 43 41 |... BLOCK ALLOCA| 000000B0: 54 49 4F 4E 20 4D 41 50 20 28 42 41 4D 29 00 E1 |TION MAP (BAM)..| 000000C0: 08 B4 00 8F 20 41 4C 4C 4F 57 53 20 59 4F 55 20 |.... ALLOWS YOU | 000000D0: 54 4F 20 53 45 45 20 57 48 45 52 45 20 59 4F 55 |TO SEE WHERE YOU| 000000E0: 52 00 03 09 BE 00 8F 20 4D 41 54 45 52 49 41 4C |R...... MATERIAL| 000000F0: 20 49 53 20 53 54 4F 52 45 44 20 4F 4E 20 44 49 | IS STORED ON DI| 00000100: 53 4B 2E 00 09 09 C8 00 3A 00 2C 09 D2 00 8F 20 |SK......:.,.... | 00000110: 54 48 45 20 50 55 52 50 4F 53 45 20 4F 46 20 54 |THE PURPOSE OF T| 00000120: 48 45 20 42 41 4D 20 49 53 20 54 4F 00 51 09 DC |HE BAM IS TO.Q..| 00000130: 00 8F 20 54 4F 20 50 52 4F 54 45 43 54 20 41 4C |.. TO PROTECT AL| 00000140: 4C 4F 43 41 54 45 44 20 42 4C 4F 43 4B 53 20 53 |LOCATED BLOCKS S| 00000150: 4F 00 75 09 E6 00 8F 20 54 48 45 59 20 41 52 45 |O.u.... THEY ARE| 00000160: 20 4E 4F 54 20 57 52 49 54 54 45 4E 20 4F 56 45 | NOT WRITTEN OVE| 00000170: 52 20 41 4E 44 00 98 09 F0 00 8F 20 54 48 45 52 |R AND...... THER| 00000180: 45 46 4F 52 45 20 44 45 53 54 52 4F 59 45 44 2E |EFORE DESTROYED.| 00000190: 20 54 48 45 20 4D 41 50 00 B7 09 FA 00 8F 20 52 | THE MAP...... R| 000001A0: 45 53 49 44 45 53 20 4F 4E 20 54 48 45 20 44 49 |ESIDES ON THE DI| 000001B0: 52 45 43 54 4F 52 59 00 DA 09 04 01 8F 20 54 52 |RECTORY...... TR| 000001C0: 41 43 4B 2C 20 28 54 52 41 43 4B 20 31 38 2C 20 |ACK, (TRACK 18, | 000001D0: 53 45 43 54 4F 52 20 30 29 2E 00 E0 09 0E 01 3A |SECTOR 0)......:| 000001E0: 00 01 0A 18 01 8F 20 54 48 45 20 42 41 4D 20 54 |...... THE BAM T| 000001F0: 55 52 4E 53 20 4F 46 46 20 54 48 45 20 42 49 54 |URNS OFF THE BIT| 00000200: 53 00 23 0A 22 01 8F 20 57 48 45 4E 20 49 54 20 |S.#.".. WHEN IT | 00000210: 41 4C 4C 4F 43 41 54 45 53 20 41 20 53 45 43 54 |ALLOCATES A SECT| 00000220: 4F 52 2E 00 29 0A 2C 01 3A 00 4C 0A 36 01 8F 20 |OR..).,.:.L.6.. | 00000230: 54 48 49 53 20 50 47 4D 20 4C 4F 4F 4B 53 20 41 |THIS PGM LOOKS A| 00000240: 54 20 54 48 45 53 45 20 42 49 54 53 00 6F 0A 40 |T THESE BITS.o.@| 00000250: 01 8F 20 26 20 49 46 20 4F 4E 20 28 4D 45 41 4E |.. & IF ON (MEAN| 00000260: 49 4E 47 20 49 54 20 49 53 20 46 52 45 45 29 00 |ING IT IS FREE).| 00000270: 92 0A 4A 01 8F 20 57 49 4C 4C 20 50 52 49 4E 54 |..J.. WILL PRINT| 00000280: 20 45 49 54 48 45 52 20 41 20 52 45 44 20 4F 52 | EITHER A RED OR| 00000290: 20 41 00 B4 0A 54 01 8F 20 47 52 45 45 4E 20 53 | A...T.. GREEN S| 000002A0: 51 55 41 52 45 2E 20 42 59 20 4C 4F 4F 4B 49 4E |QUARE. BY LOOKIN| 000002B0: 47 20 41 54 00 D8 0A 5E 01 8F 20 54 48 45 20 4D |G AT...^.. THE M| 000002C0: 41 50 20 59 4F 55 20 43 41 4E 20 44 45 54 45 52 |AP YOU CAN DETER| 000002D0: 4D 49 4E 45 20 48 4F 57 00 F9 0A 68 01 8F 20 46 |MINE HOW...h.. F| 000002E0: 55 4C 4C 20 4F 52 20 45 4D 50 54 59 20 54 48 45 |ULL OR EMPTY THE| 000002F0: 20 44 49 53 4B 20 49 53 2E 00 FF 0A 72 01 3A 00 | DISK IS....r.:.| 00000300: 19 0B 7C 01 8F 20 20 20 20 20 20 49 4E 49 54 49 |..|.. INITI| 00000310: 41 4C 49 5A 41 54 49 4F 4E 00 1F 0B 86 01 3A 00 |ALIZATION.....:.| 00000320: 57 0B 90 01 86 20 41 28 34 29 3A 50 50 B2 35 33 |W.... A(4):PP.53| 00000330: 32 38 30 3A 97 50 50 2C 31 32 3A 97 50 50 AA 31 |280:.PP,12:.PP.1| 00000340: 2C 31 35 3A 4E 4C 24 B2 C7 28 30 29 3A 44 24 B2 |,15:NL$..(0):D$.| 00000350: 22 30 22 3A 54 B2 30 00 5D 0B 9A 01 3A 00 7F 0B |"0":T.0.]...:...| 00000360: A4 01 8F 20 20 50 52 49 4E 54 53 20 54 48 45 20 |... PRINTS THE | 00000370: 42 41 4D 20 4D 41 50 20 4F 55 54 4C 49 4E 45 00 |BAM MAP OUTLINE.| 00000380: 85 0B AE 01 3A 00 B7 0B B8 01 99 22 93 20 20 20 |....:......". | 00000390: 12 95 54 52 41 43 4B 53 92 20 20 20 31 31 31 31 |..TRACKS. 1111| 000003A0: 31 31 31 31 31 31 32 32 32 32 32 32 32 32 32 32 |1111112222222222| 000003B0: 33 33 33 33 33 33 22 00 E5 0B C2 01 99 22 20 20 |333333"......" | 000003C0: 20 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 | 123456789012345| 000003D0: 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 |6789012345678901| 000003E0: 32 33 34 35 22 00 14 0C CC 01 99 22 1F AF 20 20 |2345"......".. | 000003F0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 00000400: AF 2A AF AF AF AF AF AF AF AF AF AF AF AF AF AF |.*..............| 00000410: AF AF AF 22 00 49 0C D6 01 99 22 12 53 92 30 A7 |...".I....".S.0.| 00000420: 9F 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000440: 20 20 20 20 20 1F 92 A5 22 00 7E 0C E0 01 99 22 | ...".~...."| 00000450: 12 45 92 31 A7 9F 12 20 20 20 20 20 20 20 20 20 |.E.1... | 00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000470: 20 20 20 20 20 20 20 20 20 20 1F 92 A5 22 00 B3 | ..."..| 00000480: 0C EA 01 99 22 12 43 92 32 AA 9F 12 20 20 20 20 |....".C.2... | 00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1F | .| 000004B0: 92 B4 22 00 E8 0C F4 01 99 22 12 54 92 33 AA 9F |.."......".T.3..| 000004C0: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004E0: 20 20 20 20 1F 92 B4 22 00 1D 0D FE 01 99 22 12 | ..."......".| 000004F0: 4F 92 34 AA 9F 12 20 20 20 20 20 20 20 20 20 20 |O.4... | 00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000510: 20 20 20 20 20 20 20 20 20 1F 92 B4 22 00 52 0D | ...".R.| 00000520: 08 02 99 22 12 52 92 35 AA 9F 12 20 20 20 20 20 |...".R.5... | 00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1F 92 | ..| 00000550: B4 22 00 87 0D 12 02 99 22 12 53 92 36 AA 9F 12 |."......".S.6...| 00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000580: 20 20 20 1F 92 B4 22 00 BA 0D 1C 02 99 22 20 37 | ..."......" 7| 00000590: AA 9F 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |... | 000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005B0: 20 20 20 20 20 20 1F 92 B4 22 00 ED 0D 26 02 99 | ..."...&..| 000005C0: 22 20 38 AA 9F 12 20 20 20 20 20 20 20 20 20 20 |" 8... | 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 1F 92 B4 22 00 20 0E | ...". .| 000005F0: 30 02 99 22 20 39 AA 9F 12 20 20 20 20 20 20 20 |0.." 9... | 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 1F 92 B4 22 | ..."| 00000620: 00 53 0E 3A 02 99 22 31 30 AA 9F 12 20 20 20 20 |.S.:.."10... | 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 1F | .| 00000650: 92 B4 22 00 86 0E 44 02 99 22 31 31 AA 9F 12 20 |.."...D.."11... | 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 1F 92 B4 22 00 B9 0E 4E 02 99 22 31 32 AA | ..."...N.."12.| 00000690: 9F 12 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 20 20 1F 92 B4 22 00 EC 0E 58 02 99 22 | ..."...X.."| 000006C0: 31 33 AA 9F 12 20 20 20 20 20 20 20 20 20 20 20 |13... | 000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006E0: 20 20 20 20 20 20 20 20 1F 92 B4 22 00 1F 0F 62 | ..."...b| 000006F0: 02 99 22 31 34 AA 9F 12 20 20 20 20 20 20 20 20 |.."14... | 00000700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000710: 20 20 20 20 20 20 20 20 20 20 20 1F 92 B4 22 00 | ...".| 00000720: 52 0F 6C 02 99 22 31 35 AA 9F 12 20 20 20 20 20 |R.l.."15... | 00000730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1F 92 | ..| 00000750: B4 22 00 85 0F 76 02 99 22 31 36 AA 9F 12 20 20 |."...v.."16... | 00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000780: 20 1F 92 B4 22 00 B8 0F 80 02 99 22 31 37 AA 9F | ..."......"17..| 00000790: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007B0: 20 20 20 20 1F 92 B4 22 00 EB 0F 8A 02 99 22 31 | ..."......"1| 000007C0: 38 AA 9F 12 20 20 20 20 20 20 20 20 20 20 20 20 |8... | 000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007E0: 20 20 20 20 20 20 20 1F 92 B4 22 00 2E 10 94 02 | ...".....| 000007F0: 99 22 31 39 AA 9F 12 20 20 20 20 20 20 20 20 20 |."19... | 00000800: 20 20 20 20 20 20 20 20 1F 92 CF B7 B7 B7 B7 B7 | ........| 00000810: B7 20 12 1C 20 92 90 4F 52 1E 12 20 90 92 3D 45 |. .. ..OR.. ..=E| 00000820: 4D 50 54 59 1F 22 20 20 20 20 20 20 20 22 00 4F |MPTY." ".O| 00000830: 10 9E 02 99 22 32 30 AA 9F 12 20 20 20 20 20 20 |...."20... | 00000840: 20 20 20 20 20 20 20 20 20 20 20 1F 92 B4 22 00 | ...".| 00000850: 6C 10 A8 02 99 22 20 20 20 B7 B7 B7 B7 B7 B7 B7 |l...." .......| 00000860: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 13 22 00 BD 10 B2 |..........."....| 00000870: 02 53 24 B2 22 11 11 11 11 11 11 11 11 11 11 11 |.S$."...........| 00000880: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3A |..............":| 00000890: 54 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |T$."............| 000008A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000008B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 C3 10 |............"...| 000008C0: BC 02 3A 00 E6 10 C6 02 8F 20 20 49 4E 49 54 20 |..:...... INIT | 000008D0: 44 52 49 56 45 20 41 4E 44 20 43 4B 20 46 4F 52 |DRIVE AND CK FOR| 000008E0: 20 45 52 52 4F 52 00 EC 10 D0 02 3A 00 08 11 DA | ERROR.....:....| 000008F0: 02 9F 20 31 35 2C 38 2C 31 35 2C 22 49 22 AA 44 |.. 15,8,15,"I".D| 00000900: 24 3A 8D 20 31 32 36 30 00 0E 11 E4 02 3A 00 31 |$:. 1260.....:.1| 00000910: 11 EE 02 8F 20 20 41 4C 4C 4F 43 20 42 55 46 46 |.... ALLOC BUFF| 00000920: 45 52 20 30 20 54 4F 20 43 48 41 4E 4E 45 4C 20 |ER 0 TO CHANNEL | 00000930: 32 00 37 11 F8 02 3A 00 53 11 02 03 9F 20 32 2C |2.7...:.S.... 2,| 00000940: 38 2C 32 2C 22 23 22 AA 22 30 22 3A 20 8D 20 31 |8,2,"#"."0": . 1| 00000950: 32 36 30 00 59 11 0C 03 3A 00 77 11 16 03 8F 20 |260.Y...:.w.... | 00000960: 20 42 4C 4F 43 4B 2D 52 45 41 44 20 49 4E 54 4F | BLOCK-READ INTO| 00000970: 20 42 55 46 46 45 52 00 7D 11 20 03 3A 00 9C 11 | BUFFER.}. .:...| 00000980: 2A 03 98 31 35 2C 22 55 31 3A 32 2C 22 44 24 2C |*..15,"U1:2,"D$,| 00000990: 31 38 2C 30 3A 20 8D 20 31 32 36 30 00 A2 11 34 |18,0: . 1260...4| 000009A0: 03 3A 00 BC 11 3E 03 8F 20 20 53 45 54 20 42 55 |.:...>.. SET BU| 000009B0: 46 46 45 52 20 50 4F 49 4E 54 45 52 00 C2 11 48 |FFER POINTER...H| 000009C0: 03 3A 00 D4 11 52 03 98 31 35 2C 22 42 2D 50 3A |.:...R..15,"B-P:| 000009D0: 32 2C 34 22 00 DA 11 5C 03 3A 00 ED 11 66 03 8F |2,4"...\.:...f..| 000009E0: 20 20 4D 45 4D 4F 52 59 20 52 45 41 44 00 F3 11 | MEMORY READ...| 000009F0: 70 03 3A 00 0A 12 7A 03 98 31 35 2C 22 4D 2D 52 |p.:...z..15,"M-R| 00000A00: 22 C7 28 30 29 C7 28 31 37 29 00 10 12 84 03 3A |".(0).(17).....:| 00000A10: 00 30 12 8E 03 8F 20 20 53 45 41 52 43 48 20 46 |.0.... SEARCH F| 00000A20: 4F 52 20 45 4D 50 54 59 20 53 45 43 54 4F 52 53 |OR EMPTY SECTORS| 00000A30: 00 36 12 98 03 3A 00 45 12 A2 03 81 20 49 B2 31 |.6...:.E.... I.1| 00000A40: 20 A4 20 33 35 00 54 12 AC 03 3A 81 20 4C B2 31 | . 35.T...:. L.1| 00000A50: 20 A4 20 34 00 61 12 B6 03 3A 3A A1 23 32 2C 41 | . 4.a...::.#2,A| 00000A60: 24 00 78 12 C0 03 3A 3A 8B 20 41 24 B2 22 22 20 |$.x...::. A$."" | 00000A70: A7 20 41 24 B2 4E 4C 24 00 8A 12 CA 03 3A 3A 41 |. A$.NL$.....::A| 00000A80: 28 4C 29 B2 20 C6 28 41 24 29 00 A9 12 D4 03 3A |(L). .(A$).....:| 00000A90: 3A 8B 20 4C B2 31 20 AF 20 49 B3 B1 31 38 20 A7 |:. L.1 . I..18 .| 00000AA0: 20 54 B2 54 AA 41 28 31 29 00 B2 12 DE 03 3A 82 | T.T.A(1).....:.| 00000AB0: 20 4C 00 C1 12 E8 03 3A 81 20 4A B2 32 20 A4 20 | L.....:. J.2 . | 00000AC0: 34 00 E8 12 F2 03 3A 3A 99 20 22 13 12 1C 20 22 |4.....::. "... "| 00000AD0: 3A 8B 20 B5 28 4A AD 32 29 B2 4A AD 32 20 A7 20 |:. .(J.2).J.2 . | 00000AE0: 99 20 22 13 12 1E 20 22 00 10 13 FC 03 3A 3A 8B |. "... ".....::.| 00000AF0: 20 41 28 4A 29 B2 C6 28 C7 28 30 29 29 A7 89 31 | A(J)..(.(0))..1| 00000B00: 30 38 30 3A 8F 20 20 53 45 43 54 20 46 55 4C 4C |080:. SECT FULL| 00000B10: 00 25 13 06 04 3A 3A 81 20 4B B2 37 20 A4 20 30 |.%...::. K.7 . 0| 00000B20: 20 A9 20 AB 31 00 4D 13 10 04 3A 3A 3A 99 20 22 | . .1.M...:::. "| 00000B30: 13 12 1C 20 22 3A 8B 20 B5 28 4B AD 32 29 B2 4B |... ":. .(K.2).K| 00000B40: AD 32 20 A7 20 99 20 22 13 12 1E 20 22 00 6A 13 |.2 . . "... ".j.| 00000B50: 1A 04 3A 3A 3A 8B 20 28 41 28 4A 29 AB 32 AE 4B |..:::. (A(J).2.K| 00000B60: 29 B3 30 20 89 20 31 30 37 30 00 86 13 24 04 3A |).0 . 1070...$.:| 00000B70: 3A 3A 41 28 4A 29 B2 41 28 4A 29 AB 32 AE 4B 3A |::A(J).A(J).2.K:| 00000B80: 8D 20 31 33 30 30 00 90 13 2E 04 3A 3A 82 20 4B |. 1300.....::. K| 00000B90: 00 99 13 38 04 3A 82 20 4A 00 A1 13 42 04 82 20 |...8.:. J...B.. | 00000BA0: 49 00 B2 13 4C 04 99 22 13 20 22 3A A0 32 3A A0 |I...L..". ":.2:.| 00000BB0: 31 35 00 B8 13 56 04 3A 00 D8 13 60 04 8F 20 20 |15...V.:...`.. | 00000BC0: 50 52 49 4E 54 53 20 54 4F 54 41 4C 20 46 52 45 |PRINTS TOTAL FRE| 00000BD0: 45 20 42 4C 4F 43 4B 53 00 DE 13 6A 04 3A 00 09 |E BLOCKS...j.:..| 00000BE0: 14 74 04 99 20 C8 28 53 24 2C 32 32 29 C8 28 54 |.t.. .(S$,22).(T| 00000BF0: 24 2C 32 33 29 22 90 46 52 45 45 20 42 4C 4B 53 |$,23)".FREE BLKS| 00000C00: 3D 22 54 22 91 91 91 91 22 00 3F 14 7E 04 99 22 |="T"....".?.~.."| 00000C10: 13 22 C8 28 53 24 2C 32 34 29 C8 28 54 24 2C 34 |.".(S$,24).(T$,4| 00000C20: 29 22 90 27 43 27 20 54 4F 20 43 4F 4E 54 49 4E |)".'C' TO CONTIN| 00000C30: 55 45 2D 27 45 27 20 54 4F 20 45 4E 44 22 3B 00 |UE-'E' TO END";.| 00000C40: 45 14 88 04 3A 00 6B 14 92 04 8F 20 20 4D 41 50 |E...:.k.... MAP| 00000C50: 20 4F 4E 20 53 43 52 45 45 4E 20 55 4E 54 49 4C | ON SCREEN UNTIL| 00000C60: 20 4B 45 59 20 49 53 20 48 49 54 00 71 14 9C 04 | KEY IS HIT.q...| 00000C70: 3A 00 89 14 A6 04 A1 20 5A 24 3A 8B 20 5A 24 B2 |:...... Z$:. Z$.| 00000C80: 22 22 20 89 20 31 31 39 30 00 9C 14 B0 04 8B 5A |"" . 1190......Z| 00000C90: 24 B2 22 45 22 A7 99 22 13 22 3A 80 00 AA 14 BA |$."E"..".":.....| 00000CA0: 04 8B 5A 24 B2 22 43 22 A7 8A 00 B4 14 C4 04 89 |..Z$."C"........| 00000CB0: 31 31 39 30 00 BA 14 CE 04 3A 00 D6 14 D8 04 8F |1190.....:......| 00000CC0: 20 20 43 48 45 43 4B 20 46 4F 52 20 44 49 53 4B | CHECK FOR DISK| 00000CD0: 20 45 52 52 4F 52 00 DC 14 E2 04 3A 00 02 15 EC | ERROR.....:....| 00000CE0: 04 84 31 35 2C 45 4E 24 2C 45 4D 24 2C 45 54 2C |..15,EN$,EM$,ET,| 00000CF0: 45 53 3A 20 8B 20 45 4E 24 B2 22 30 30 22 20 A7 |ES: . EN$."00" .| 00000D00: 20 8E 00 2F 15 F6 04 99 20 22 12 44 49 53 4B 20 | ../.... ".DISK | 00000D10: 45 52 52 4F 52 3A 92 20 22 20 45 4D 24 20 22 20 |ERROR:. " EM$ " | 00000D20: 22 20 45 4E 24 2C 45 54 20 22 2C 22 20 45 53 00 |" EN$,ET "," ES.| 00000D30: 3C 15 00 05 A0 32 3A A0 31 35 3A 80 00 42 15 0A |<....2:.15:..B..| 00000D40: 05 3A 00 63 15 14 05 8F 20 20 50 52 49 4E 54 20 |.:.c.... PRINT | 00000D50: 41 4C 54 45 52 4E 41 54 49 4E 47 20 50 41 54 54 |ALTERNATING PATT| 00000D60: 45 52 4E 00 69 15 1E 05 3A 00 94 15 28 05 8B 20 |ERN.i...:...(.. | 00000D70: B5 28 49 AD 32 29 B2 20 49 AD 32 20 AF 20 B5 28 |.(I.2). I.2 . .(| 00000D80: 4B AD 32 29 B2 20 4B AD 32 20 A7 20 43 24 B2 22 |K.2). K.2 . C$."| 00000D90: 1C 12 20 22 00 BF 15 32 05 8B 20 B5 28 49 AD 32 |.. "...2.. .(I.2| 00000DA0: 29 B3 B1 49 AD 32 20 AF 20 B5 28 4B AD 32 29 B2 |)..I.2 . .(K.2).| 00000DB0: 20 4B AD 32 20 A7 20 43 24 B2 22 12 1E 20 22 00 | K.2 . C$.".. ".| 00000DC0: EA 15 3C 05 8B 20 B5 28 49 AD 32 29 B2 20 49 AD |..<.. .(I.2). I.| 00000DD0: 32 20 AF 20 B5 28 4B AD 32 29 B3 B1 4B AD 32 20 |2 . .(K.2)..K.2 | 00000DE0: A7 20 43 24 B2 22 12 1E 20 22 00 15 16 46 05 8B |. C$.".. "...F..| 00000DF0: 20 B5 28 49 AD 32 29 B3 B1 49 AD 32 20 AF 20 B5 | .(I.2)..I.2 . .| 00000E00: 28 4B AD 32 29 B3 B1 4B AD 32 20 A7 20 43 24 B2 |(K.2)..K.2 . C$.| 00000E10: 22 12 1C 20 22 00 40 16 50 05 99 20 22 13 22 20 |".. ".@.P.. "." | 00000E20: C8 28 53 24 2C 33 AA 28 28 4A AB 32 29 AC 38 29 |.(S$,3.((J.2).8)| 00000E30: AA 4B 29 20 C8 28 54 24 2C 32 AA 49 29 20 43 24 |.K) .(T$,2.I) C$| 00000E40: 00 46 16 5A 05 8E 00 00 00 |.F.Z..... |
....D.. BLOCK ALLOCATION MAP.:.N.. WRI
TTEN BY TOM CONRAD.Y.X.. ORIGINALLY IN
'COMPUTE'._...:.W.... MODIFIED FOR C64.
..... PAUL BLAIR FEBRUARY 1984... .:...
... BLOCK ALLOCATION MAP (BAM)...... ALL
OWS YOU TO SEE WHERE YOUR...... MATERIAL
IS STORED ON DISK....H.:.,.R.. THE PURP
OSE OF THE BAM IS TO.Q.... TO PROTECT AL
LOCATED BLOCKS SO.U.... THEY ARE NOT WRI
TTEN OVER AND...... THEREFORE DESTROYED.
THE MAP...... RESIDES ON THE DIRECTORY.
Z.... TRACK, (TRACK 18, SECTOR 0)......:
...... THE BAM TURNS OFF THE BITS.#."..
WHEN IT ALLOCATES A SECTOR..).,.:.L.6..
THIS PGM LOOKS AT THESE BITS.O.@.. & IF
ON (MEANING IT IS FREE)...J.. WILL PRINT
EITHER A RED OR A...T.. GREEN SQUARE. B
Y LOOKING AT.X.^.. THE MAP YOU CAN DETER
MINE HOW...H.. FULL OR EMPTY THE DISK IS
....R.:...|.. INITIALIZATION.....:.
W.... A(4):PP.53280:.PP,12:.PP.1,15:NL$.
G(0):D$."0":T.0.]...:..... PRINTS THE
BAM MAP OUTLINE.....:......". ..TRACKS
. 11111111112222222222333333"...B.."
12345678901234567890123456789012345"...
L..".. .................*..............
...".I.V..".S.0...
...".~....".E.1...
..."......".C.
2... .
.."......".T.3...
..."......".O.4...
...".R....".R.5
... ..
."......".S.6...
..."......" 7...
..."...&.." 8...
...". .
0.." 9...
...".S.:.."10...
..."...D.."11...
..."...N.."12.
.. ...
"...X.."13...
..."...B.."14...
...".R.L.."15...
..."...V..
"16...
..."......"17...
..."......"18...
..."......"19...
..O...... .. ..OR.. ..=E
MPTY." ".O...."20...
...".L...." .................."....
.S$.".........................":T$."....
....................................".C.
..:...F.. INIT DRIVE AND CK FOR ERROR..
.P.:...Z.. 15,8,15,"I".D$:. 1260.....:.1
.... ALLOC BUFFER 0 TO CHANNEL 2.7...:.
S.... 2,8,2,"#"."0": . 1260.Y...:.W....
BLOCK-READ INTO BUFFER.}. .:...*..15,"U
1:2,"D$,18,0: . 1260...4.:...>.. SET BU
FFER POINTER.B.H.:.T.R..15,"B-P:2,4".Z.\
.:...F.. MEMORY READ...P.:...Z..15,"M-R
"G(0)G(17).....:.0.... SEARCH FOR EMPTY
SECTORS.6...:.E.... I.1 . 35.T...:. L.1
. 4.A...::.#2,A$.X...::. A$."" . A$.NL$
...J.::A(L). F(A$)...T.::. L.1 . I..18 .
T.T.A(1).....:. L.A...:. J.2 . 4.....::
. "... ":. .(J.2).J.2 . . "... ".....::.
A(J).F(G(0))..1080:. SECT FULL.%...::.
K.7 . 0 . .1.M...:::. "... ":. .(K.2).K
.2 . . "... ".J...:::. (A(J).2.K).0 . 10
70...$.:::A(J).A(J).2.K:. 1300.....::. K
...8.:. J...B.. I...L..". ": 2: 15...V.:
.X.`.. PRINTS TOTAL FREE BLOCKS...J.:..
.T.. H(S$,22)H(T$,23)".FREE BLKS="T"....
".?.~.."."H(S$,24)H(T$,4)".'C' TO CONTIN
UE-'E' TO END";.E...:.K.... MAP ON SCRE
EN UNTIL KEY IS HIT.Q...:...... Z$:. Z$.
"" . 1190......Z$."E"..".":.......Z$."C"
.....D..1190...N.:.V.X.. CHECK FOR DISK
ERROR.....:......15,EN$,EM$,ET,ES: . EN
$."00" . ../.... ".DISK ERROR:. " EM$ "
" EN$,ET "," ES.<... 2: 15:..B...:.C....
PRINT ALTERNATING PATTERN.I...:...(..
.(I.2). I.2 . .(K.2). K.2 . C$.".. "...2
.. .(I.2)..I.2 . .(K.2). K.2 . C$.".. ".
..<.. .(I.2). I.2 . .(K.2)..K.2 . C$."..
"...F.. .(I.2)..I.2 . .(K.2)..K.2 . C$.
".. ".@.P.. "." H(S$,3.((J.2).8).K) H(T$
,2.I) C$.F.Z.....
> CLICK IMAGE PREVIEW FOR FULL MODAL