BAM MAP
FILE INFORMATION
FILENAME(S): BAM MAP
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 21:05:48
APPEARS ON: 1 disk(s)
FILE HASH
51fb31fc508990fbc5f61486a74dd67ff92e2fcdb155c33d00c4a57bd1a2cb61
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VAN DOUWEN | BAM MAP | PRG | DuncanTwain | 10 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 26 04 0A 00 8F 2A 20 42 4C 4F 43 4B 20 41 |..&....* BLOCK A|
00000010: 43 43 45 53 53 20 4D 45 54 48 4F 44 20 44 55 4D |CCESS METHOD DUM|
00000020: 50 20 20 20 20 2A 00 4B 04 14 00 8F 2A 20 57 52 |P *.K....* WR|
00000030: 49 54 54 45 4E 20 42 59 20 20 20 54 4F 4D 20 43 |ITTEN BY TOM C|
00000040: 4F 4E 52 41 44 20 20 20 20 20 2A 00 70 04 1E 00 |ONRAD *.p...|
00000050: 8F 2A 20 20 20 20 20 20 43 4F 4D 50 55 54 45 2E |.* COMPUTE.|
00000060: 20 23 34 20 20 20 20 20 20 20 20 20 20 20 20 2A | #4 *|
00000070: 00 95 04 1F 00 8F 2A 20 20 20 20 20 20 20 20 20 |......* |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 2A 00 BA 04 20 00 8F 2A 20 20 52 45 | *... ..* RE|
000000A0: 51 55 49 52 45 53 20 41 20 43 4F 4D 4D 4F 44 4F |QUIRES A COMMODO|
000000B0: 52 45 20 44 49 53 4B 20 20 2A 00 DF 04 23 00 8F |RE DISK *...#..|
000000C0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
000000E0: 04 05 28 00 8F 2A 42 4C 4F 43 4B 20 41 43 43 45 |..(..*BLOCK ACCE|
000000F0: 53 53 20 4D 45 54 48 4F 44 20 28 42 41 4D 29 20 |SS METHOD (BAM) |
00000100: 4D 41 50 2A 00 29 05 2D 00 8F 2A 57 49 4C 4C 20 |MAP*.).-..*WILL |
00000110: 20 41 4C 4C 4F 57 20 20 59 4F 55 20 54 4F 20 53 | ALLOW YOU TO S|
00000120: 45 45 20 57 48 45 52 45 2A 00 4E 05 32 00 8F 2A |EE WHERE*.N.2..*|
00000130: 59 4F 55 52 20 46 49 4C 45 53 20 41 52 45 20 41 |YOUR FILES ARE A|
00000140: 4C 4C 4F 43 41 54 45 44 2E 20 59 4F 55 2A 00 73 |LLOCATED. YOU*.s|
00000150: 05 3C 00 8F 2A 43 41 4E 20 53 41 56 45 20 41 4E |.<..*CAN SAVE AN|
00000160: 44 20 44 45 4C 45 54 45 20 46 49 4C 45 53 20 41 |D DELETE FILES A|
00000170: 4E 44 2A 00 98 05 46 00 8F 2A 4F 42 53 45 52 56 |ND*...F..*OBSERV|
00000180: 45 20 20 54 48 45 20 20 20 41 4C 4C 4F 43 41 54 |E THE ALLOCAT|
00000190: 49 4F 4E 20 20 20 20 2A 00 BF 05 50 00 8F 2A 54 |ION *...P..*T|
000001A0: 45 43 48 4E 49 51 55 45 2E 20 20 20 20 20 20 20 |ECHNIQUE. |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 | ***.|
000001C0: E4 05 55 00 8F 2A 20 54 48 45 20 50 55 52 50 4F |..U..* THE PURPO|
000001D0: 53 45 20 4F 46 20 54 48 45 20 42 41 4D 20 49 53 |SE OF THE BAM IS|
000001E0: 20 54 4F 2A 00 09 06 5A 00 8F 2A 54 4F 20 50 52 | TO*...Z..*TO PR|
000001F0: 4F 54 45 43 54 20 41 4C 4C 4F 43 41 54 45 44 20 |OTECT ALLOCATED |
00000200: 46 49 4C 45 53 20 53 4F 2A 00 2E 06 5F 00 8F 2A |FILES SO*..._..*|
00000210: 54 48 45 59 20 41 52 45 20 4E 4F 54 20 57 52 49 |THEY ARE NOT WRI|
00000220: 54 54 45 4E 20 4F 56 45 52 20 41 4E 44 2A 00 53 |TTEN OVER AND*.S|
00000230: 06 60 00 8F 2A 41 4E 44 20 54 48 45 52 45 46 4F |.`..*AND THEREFO|
00000240: 52 45 20 44 45 53 54 52 4F 59 45 44 2E 20 54 48 |RE DESTROYED. TH|
00000250: 45 20 2A 00 78 06 61 00 8F 2A 4D 41 50 20 52 45 |E *.x.a..*MAP RE|
00000260: 53 49 44 45 53 20 4F 4E 20 54 48 45 20 44 49 52 |SIDES ON THE DIR|
00000270: 45 43 54 4F 52 59 20 2A 00 9F 06 62 00 8F 2A 54 |ECTORY *...b..*T|
00000280: 52 41 43 4B 20 31 38 20 53 45 43 54 4F 52 20 30 |RACK 18 SECTOR 0|
00000290: 2E 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 |. ***.|
000002A0: C5 06 63 00 8F 20 2A 54 48 45 20 42 41 4D 20 54 |..c.. *THE BAM T|
000002B0: 55 52 4E 53 20 4F 46 46 20 54 48 45 20 42 49 54 |URNS OFF THE BIT|
000002C0: 53 20 20 20 2A 00 EA 06 64 00 8F 2A 57 48 45 4E |S *...d..*WHEN|
000002D0: 20 49 54 20 41 4C 4C 4F 43 41 54 45 53 20 41 20 | IT ALLOCATES A |
000002E0: 53 45 43 54 4F 52 2E 20 20 2A 00 0F 07 65 00 8F |SECTOR. *...e..|
000002F0: 2A 54 48 49 53 20 50 47 4D 20 4C 4F 4F 4B 53 20 |*THIS PGM LOOKS |
00000300: 41 54 20 54 48 45 53 45 20 42 49 54 53 20 2A 00 |AT THESE BITS *.|
00000310: 34 07 66 00 8F 2A 26 20 49 46 20 4F 4E 20 28 4D |4.f..*& IF ON (M|
00000320: 45 41 4E 49 4E 47 20 49 54 20 49 53 20 46 52 45 |EANING IT IS FRE|
00000330: 45 29 20 2A 00 59 07 67 00 8F 2A 57 49 4C 4C 20 |E) *.Y.g..*WILL |
00000340: 50 52 49 4E 54 20 45 49 54 48 45 52 20 41 20 22 |PRINT EITHER A "|
00000350: A6 22 20 4F 52 20 41 20 2A 00 7E 07 68 00 8F 2A |." OR A *.~.h..*|
00000360: 57 48 49 54 45 20 53 51 55 41 52 45 2E 20 42 59 |WHITE SQUARE. BY|
00000370: 20 4C 4F 4F 4B 49 4E 47 20 41 54 20 20 2A 00 A3 | LOOKING AT *..|
00000380: 07 69 00 8F 2A 54 48 45 20 4D 41 50 20 59 4F 55 |.i..*THE MAP YOU|
00000390: 20 43 41 4E 20 44 45 54 45 52 4D 49 4E 45 20 48 | CAN DETERMINE H|
000003A0: 4F 57 2A 00 C8 07 6A 00 8F 2A 46 55 4C 4C 20 4F |OW*...j..*FULL O|
000003B0: 52 20 45 4D 50 54 59 20 54 48 45 20 44 49 53 4B |R EMPTY THE DISK|
000003C0: 20 49 53 2E 20 20 20 2A 00 CF 07 82 00 8F 2A 00 | IS. *......*.|
000003D0: F3 07 8C 00 8F 2A 20 20 20 20 20 49 4E 49 54 49 |.....* INITI|
000003E0: 41 4C 49 5A 41 54 49 4F 4E 20 20 20 20 20 20 20 |ALIZATION |
000003F0: 20 20 2A 00 FE 07 96 00 86 20 41 28 34 29 00 0B | *...... A(4)..|
00000400: 08 A0 00 4E 4C 24 B2 C7 28 30 29 00 28 08 AA 00 |...NL$..(0).(...|
00000410: 54 B2 30 3A 20 8F 20 54 4F 54 41 4C 20 46 52 45 |T.0: . TOTAL FRE|
00000420: 45 20 42 4C 4F 43 4B 53 00 40 08 AF 00 8F 2A 20 |E BLOCKS.@....* |
00000430: 57 48 49 43 48 20 44 52 49 56 45 20 20 20 20 2A |WHICH DRIVE *|
00000440: 00 54 08 B4 00 99 22 93 11 11 11 11 11 44 52 49 |.T...."......DRI|
00000450: 56 45 3F 22 00 6C 08 BE 00 A1 20 44 24 3A 20 8B |VE?".l.... D$: .|
00000460: 20 44 24 B2 22 22 20 89 20 31 39 30 00 90 08 C3 | D$."" . 190....|
00000470: 00 8F 2A 20 50 52 49 4E 54 53 20 54 48 45 20 42 |..* PRINTS THE B|
00000480: 41 4D 20 4D 41 50 20 4F 55 54 4C 49 4E 45 20 2A |AM MAP OUTLINE *|
00000490: 00 C1 08 C8 00 99 22 93 20 20 20 12 54 52 41 43 |......". .TRAC|
000004A0: 4B 53 92 20 20 20 31 31 31 31 31 31 31 31 31 31 |KS. 1111111111|
000004B0: 32 32 32 32 32 32 32 32 32 32 33 33 33 33 33 33 |2222222222333333|
000004C0: 22 00 EF 08 D2 00 99 22 20 20 20 31 32 33 34 35 |"......" 12345|
000004D0: 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 |6789012345678901|
000004E0: 32 33 34 35 36 37 38 39 30 31 32 33 34 35 22 00 |23456789012345".|
000004F0: 1D 09 DC 00 99 22 A4 20 20 A4 A4 A4 A4 A4 A4 A4 |.....". .......|
00000500: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000510: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 4E 09 |............".N.|
00000520: E6 00 99 22 12 53 92 30 A7 20 20 20 20 20 20 20 |...".S.0. |
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 A5 22 00 7F | ."..|
00000550: 09 F0 00 99 22 12 45 92 31 A7 20 20 20 20 20 20 |....".E.1. |
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 A5 22 00 | .".|
00000580: B0 09 FA 00 99 22 12 43 92 32 A7 20 20 20 20 20 |.....".C.2. |
00000590: 20 20 20 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 A5 22 | ."|
000005B0: 00 E1 09 04 01 99 22 12 54 92 33 A7 20 20 20 20 |......".T.3. |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A5 | .|
000005E0: 22 00 12 0A 0E 01 99 22 12 4F 92 34 A7 20 20 20 |"......".O.4. |
000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000610: A5 22 00 43 0A 18 01 99 22 12 52 92 35 A7 20 20 |.".C....".R.5. |
00000620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000640: 20 A5 22 00 72 0A 22 01 99 22 20 36 A7 20 20 20 | .".r.".." 6. |
00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000670: A5 22 00 A1 0A 2C 01 99 22 20 37 A7 20 20 20 20 |."...,.." 7. |
00000680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A5 | .|
000006A0: 22 00 D0 0A 36 01 99 22 20 38 A7 20 20 20 20 20 |"...6.." 8. |
000006B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A5 22 | ."|
000006D0: 00 FF 0A 40 01 99 22 20 39 A7 20 20 20 20 20 20 |...@.." 9. |
000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 A5 22 00 | .".|
00000700: 2E 0B 4A 01 99 22 31 30 A7 20 20 20 20 20 20 20 |..J.."10. |
00000710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000720: 20 20 20 20 20 20 20 20 20 20 20 20 A5 22 00 5D | .".]|
00000730: 0B 54 01 99 22 31 31 A7 20 20 20 20 20 20 20 20 |.T.."11. |
00000740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000750: 20 20 20 20 20 20 20 20 20 20 20 A5 22 00 8C 0B | ."...|
00000760: 5E 01 99 22 31 32 A7 20 20 20 20 20 20 20 20 20 |^.."12. |
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000780: 20 20 20 20 20 20 20 20 20 20 A5 22 00 BB 0B 68 | ."...h|
00000790: 01 99 22 31 33 A7 20 20 20 20 20 20 20 20 20 20 |.."13. |
000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007B0: 20 20 20 20 20 20 20 20 20 A5 22 00 EA 0B 72 01 | ."...r.|
000007C0: 99 22 31 34 A7 20 20 20 20 20 20 20 20 20 20 20 |."14. |
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 20 A5 22 00 19 0C 7C 01 99 | ."...|..|
000007F0: 22 31 35 A7 20 20 20 20 20 20 20 20 20 20 20 20 |"15. |
00000800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000810: 20 20 20 20 20 20 20 A5 22 00 48 0C 86 01 99 22 | .".H...."|
00000820: 31 36 A7 20 20 20 20 20 20 20 20 20 20 20 20 20 |16. |
00000830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000840: 20 20 20 20 20 20 A5 22 00 76 0C 90 01 99 22 31 | .".v...."1|
00000850: 37 A7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |7. |
00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000870: CF A3 A3 A3 A3 22 00 9F 0C 9A 01 99 22 31 38 A7 |....."......"18.|
00000880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000890: 20 20 20 20 20 20 20 20 CF A3 A3 A3 A3 A3 22 00 | ......".|
000008A0: D7 0C A4 01 99 22 31 39 A7 20 20 20 20 20 20 20 |....."19. |
000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008C0: 20 A5 12 20 92 4F 52 A6 3D 45 4D 50 54 59 22 20 | .. .OR.=EMPTY" |
000008D0: 20 20 20 20 20 20 22 00 FA 0C AE 01 99 22 32 30 | "......"20|
000008E0: A7 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000008F0: A4 A4 CF A3 A3 A3 A3 A3 A3 22 00 0B 0D B8 01 53 |.........".....S|
00000900: 24 B2 22 22 3A 20 54 24 B2 22 22 00 2E 0D C2 01 |$."": T$."".....|
00000910: 57 24 B2 22 11 22 3A 20 81 20 49 B2 31 20 A4 20 |W$.".": . I.1 . |
00000920: 32 35 3A 20 53 24 B2 53 24 AA 57 24 3A 82 00 51 |25: S$.S$.W$:..Q|
00000930: 0D CC 01 56 24 B2 22 1D 22 3A 20 81 20 49 B2 31 |...V$.".": . I.1|
00000940: 20 A4 20 34 30 3A 20 54 24 B2 54 24 AA 56 24 3A | . 40: T$.T$.V$:|
00000950: 82 00 76 0D D1 01 8F 2A 20 49 4E 49 54 20 44 52 |..v....* INIT DR|
00000960: 49 56 45 20 41 4E 44 20 43 4B 20 46 4F 52 20 45 |IVE AND CK FOR E|
00000970: 52 52 4F 52 20 2A 00 91 0D D6 01 9F 20 31 35 2C |RROR *...... 15,|
00000980: 38 2C 31 35 2C 22 49 22 AA 44 24 3A 8D 20 37 36 |8,15,"I".D$:. 76|
00000990: 30 00 B6 0D DB 01 8F 2A 20 41 4C 4C 4F 43 20 42 |0......* ALLOC B|
000009A0: 55 46 46 45 52 20 30 20 54 4F 20 43 48 41 4E 4E |UFFER 0 TO CHANN|
000009B0: 45 4C 20 32 20 2A 00 D1 0D E0 01 9F 20 32 2C 38 |EL 2 *...... 2,8|
000009C0: 2C 32 2C 22 23 22 AA 22 30 22 3A 20 8D 20 37 36 |,2,"#"."0": . 76|
000009D0: 30 00 F6 0D E5 01 8F 2A 20 42 4C 4F 43 4B 2D 52 |0......* BLOCK-R|
000009E0: 45 41 44 20 49 4E 54 4F 20 42 55 46 46 45 52 20 |EAD INTO BUFFER |
000009F0: 20 20 20 20 20 2A 00 14 0E EA 01 98 31 35 2C 22 | *......15,"|
00000A00: 55 31 3A 32 2C 22 44 24 2C 31 38 2C 30 3A 20 8D |U1:2,"D$,18,0: .|
00000A10: 20 37 36 30 00 39 0E EF 01 8F 2A 20 53 45 54 20 | 760.9....* SET |
00000A20: 42 55 46 46 45 52 20 50 4F 49 4E 54 45 52 20 20 |BUFFER POINTER |
00000A30: 20 20 20 20 20 20 20 20 2A 00 4B 0E F4 01 98 31 | *.K....1|
00000A40: 35 2C 22 42 2D 50 3A 32 2C 34 22 00 70 0E F9 01 |5,"B-P:2,4".p...|
00000A50: 8F 2A 20 4D 45 4D 4F 52 59 20 52 45 41 44 20 20 |.* MEMORY READ |
00000A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000A70: 00 87 0E FE 01 98 31 35 2C 22 4D 2D 52 22 C7 28 |......15,"M-R".(|
00000A80: 30 29 C7 28 31 37 29 00 A9 0E 08 02 8F 2A 20 53 |0).(17)......* S|
00000A90: 45 41 52 43 48 20 46 4F 52 20 45 4D 50 54 59 20 |EARCH FOR EMPTY |
00000AA0: 53 45 43 54 4F 52 53 20 2A 00 B8 0E 12 02 81 20 |SECTORS *...... |
00000AB0: 49 B2 31 20 A4 20 33 35 00 C7 0E 1C 02 3A 81 20 |I.1 . 35.....:. |
00000AC0: 4C B2 31 20 A4 20 34 00 EE 0E 21 02 3A 3A 8F 2A |L.1 . 4...!.::.*|
00000AD0: 20 20 47 45 54 53 20 41 20 42 59 54 45 20 46 52 | GETS A BYTE FR|
00000AE0: 4F 4D 20 42 55 46 46 45 52 20 20 20 20 2A 00 FB |OM BUFFER *..|
00000AF0: 0E 26 02 3A 3A A1 23 32 2C 41 24 00 12 0F 30 02 |.&.::.#2,A$...0.|
00000B00: 3A 3A 8B 20 41 24 B2 22 22 20 A7 20 41 24 B2 4E |::. A$."" . A$.N|
00000B10: 4C 24 00 37 0F 35 02 3A 3A 8F 2A 43 4F 4E 56 45 |L$.7.5.::.*CONVE|
00000B20: 52 53 49 4F 4E 20 46 52 4F 4D 20 43 48 41 52 20 |RSION FROM CHAR |
00000B30: 54 4F 20 41 53 43 49 00 49 0F 3A 02 3A 3A 41 28 |TO ASCI.I.:.::A(|
00000B40: 4C 29 B2 20 C6 28 41 24 29 00 68 0F 44 02 3A 3A |L). .(A$).h.D.::|
00000B50: 8B 20 4C B2 31 20 AF 20 49 B3 B1 31 38 20 A7 20 |. L.1 . I..18 . |
00000B60: 54 B2 54 AA 41 28 31 29 00 71 0F 4E 02 3A 82 20 |T.T.A(1).q.N.:. |
00000B70: 4C 00 80 0F 58 02 3A 81 20 4A B2 32 20 A4 20 34 |L...X.:. J.2 . 4|
00000B80: 00 A7 0F 5D 02 3A 3A 8F 2A 20 50 52 49 4E 54 53 |...].::.* PRINTS|
00000B90: 20 41 4C 54 45 52 4E 41 54 49 4E 47 20 53 51 55 | ALTERNATING SQU|
00000BA0: 41 52 45 53 20 20 2A 00 CB 0F 62 02 3A 3A 99 20 |ARES *...b.::. |
00000BB0: 22 13 A6 22 3A 8B 20 B5 28 4A AD 32 29 B2 4A AD |"..":. .(J.2).J.|
00000BC0: 32 20 A7 20 99 20 22 13 12 20 22 00 F8 0F 6C 02 |2 . . ".. "...l.|
00000BD0: 3A 3A 8B 20 41 28 4A 29 B2 C6 28 C7 28 30 29 29 |::. A(J)..(.(0))|
00000BE0: 20 A7 20 89 20 20 36 38 30 3A 8F 2A 20 53 45 43 | . . 680:.* SEC|
00000BF0: 54 20 46 55 4C 4C 20 2A 00 0D 10 76 02 3A 3A 81 |T FULL *...v.::.|
00000C00: 20 4B B2 37 20 A4 20 30 20 A9 20 AB 31 00 35 10 | K.7 . 0 . .1.5.|
00000C10: 7B 02 3A 3A 3A 8F 2A 20 50 52 49 4E 54 53 20 41 |{.:::.* PRINTS A|
00000C20: 4C 54 45 52 4E 41 54 49 4E 47 20 53 51 55 41 52 |LTERNATING SQUAR|
00000C30: 45 53 20 20 2A 00 5A 10 80 02 3A 3A 3A 99 20 22 |ES *.Z...:::. "|
00000C40: 13 A6 22 3A 8B 20 B5 28 4B AD 32 29 B2 4B AD 32 |..":. .(K.2).K.2|
00000C50: 20 A7 20 99 20 22 13 12 20 22 00 7F 10 85 02 3A | . . ".. ".....:|
00000C60: 3A 3A 8F 2A 20 44 45 43 4F 44 45 53 20 44 45 43 |::.* DECODES DEC|
00000C70: 49 4D 41 4C 20 54 4F 20 42 49 54 20 20 20 2A 00 |IMAL TO BIT *.|
00000C80: 9B 10 8A 02 3A 3A 3A 8B 20 28 41 28 4A 29 AB 32 |....:::. (A(J).2|
00000C90: AE 4B 29 B3 30 20 89 20 36 37 30 00 B6 10 94 02 |.K).0 . 670.....|
00000CA0: 3A 3A 3A 41 28 4A 29 B2 41 28 4A 29 AB 32 AE 4B |:::A(J).A(J).2.K|
00000CB0: 3A 8D 20 37 39 30 00 C0 10 9E 02 3A 3A 82 20 4B |:. 790.....::. K|
00000CC0: 00 C9 10 A8 02 3A 82 20 4A 00 D1 10 B2 02 82 20 |.....:. J...... |
00000CD0: 49 00 ED 10 BC 02 99 22 13 20 22 3A 8F 2A 20 43 |I......". ":.* C|
00000CE0: 4C 45 41 52 20 53 51 55 41 52 45 20 2A 00 13 11 |LEAR SQUARE *...|
00000CF0: C1 02 8F 2A 20 50 52 49 4E 54 53 20 54 4F 54 41 |...* PRINTS TOTA|
00000D00: 4C 20 46 52 45 45 20 42 4C 4F 43 4B 53 20 20 20 |L FREE BLOCKS |
00000D10: 20 20 2A 00 3D 11 C6 02 99 20 C8 28 53 24 2C 32 | *.=.... .(S$,2|
00000D20: 32 29 C8 28 54 24 2C 32 33 29 22 46 52 45 45 20 |2).(T$,23)"FREE |
00000D30: 42 4C 4B 53 3D 22 54 22 91 91 91 91 22 00 64 11 |BLKS="T"....".d.|
00000D40: CB 02 8F 2A 20 4D 41 50 20 4F 4E 20 53 43 52 45 |...* MAP ON SCRE|
00000D50: 45 4E 20 55 4E 54 49 4C 20 4B 45 59 20 49 53 20 |EN UNTIL KEY IS |
00000D60: 48 49 54 2A 00 7B 11 D0 02 A1 20 5A 24 3A 8B 20 |HIT*.{.... Z$:. |
00000D70: 5A 24 B2 22 22 20 89 20 37 32 30 00 88 11 DA 02 |Z$."" . 720.....|
00000D80: A0 20 32 3A A0 20 31 35 00 A6 11 DF 02 8F 2A 20 |. 2:. 15......* |
00000D90: 53 54 41 52 54 20 50 52 4F 47 52 41 4D 20 41 47 |START PROGRAM AG|
00000DA0: 41 49 4E 20 20 2A 00 B0 11 E4 02 89 20 31 37 30 |AIN *...... 170|
00000DB0: 00 CE 11 EE 02 8F 2A 20 43 48 45 43 4B 20 46 4F |......* CHECK FO|
00000DC0: 52 20 44 49 53 4B 20 45 52 52 4F 52 20 2A 00 F4 |R DISK ERROR *..|
00000DD0: 11 F8 02 84 31 35 2C 45 4E 24 2C 45 4D 24 2C 45 |....15,EN$,EM$,E|
00000DE0: 54 2C 45 53 3A 20 8B 20 45 4E 24 B2 22 30 30 22 |T,ES: . EN$."00"|
00000DF0: 20 A7 20 8E 00 21 12 02 03 99 20 22 12 44 49 53 | . ..!.... ".DIS|
00000E00: 4B 20 45 52 52 4F 52 3A 92 20 22 20 45 4D 24 20 |K ERROR:. " EM$ |
00000E10: 22 20 22 20 45 4E 24 2C 45 54 20 22 2C 22 20 45 |" " EN$,ET "," E|
00000E20: 53 00 27 12 0C 03 80 00 4A 12 16 03 8F 2A 20 50 |S.'.....J....* P|
00000E30: 52 49 4E 54 20 41 4C 54 45 52 4E 41 54 49 4E 47 |RINT ALTERNATING|
00000E40: 20 50 41 54 54 45 52 4E 20 2A 00 73 12 20 03 8B | PATTERN *.s. ..|
00000E50: 20 B5 28 49 AD 32 29 B2 20 49 AD 32 20 AF 20 B5 | .(I.2). I.2 . .|
00000E60: 28 4B AD 32 29 B2 20 4B AD 32 20 A7 20 43 24 B2 |(K.2). K.2 . C$.|
00000E70: 22 A6 22 00 9D 12 2A 03 8B 20 B5 28 49 AD 32 29 |"."...*.. .(I.2)|
00000E80: B3 B1 49 AD 32 20 AF 20 B5 28 4B AD 32 29 B2 20 |..I.2 . .(K.2). |
00000E90: 4B AD 32 20 A7 20 43 24 B2 22 12 20 22 00 C7 12 |K.2 . C$.". "...|
00000EA0: 34 03 8B 20 B5 28 49 AD 32 29 B2 20 49 AD 32 20 |4.. .(I.2). I.2 |
00000EB0: AF 20 B5 28 4B AD 32 29 B3 B1 4B AD 32 20 A7 20 |. .(K.2)..K.2 . |
00000EC0: 43 24 B2 22 12 20 22 00 F1 12 3E 03 8B 20 B5 28 |C$.". "...>.. .(|
00000ED0: 49 AD 32 29 B3 B1 49 AD 32 20 AF 20 B5 28 4B AD |I.2)..I.2 . .(K.|
00000EE0: 32 29 B3 B1 4B AD 32 20 A7 20 43 24 B2 22 12 A6 |2)..K.2 . C$."..|
00000EF0: 22 00 1C 13 48 03 99 20 22 13 22 20 C8 28 53 24 |"...H.. "." .(S$|
00000F00: 2C 33 AA 28 28 4A AB 32 29 AC 38 29 AA 4B 29 20 |,3.((J.2).8).K) |
00000F10: C8 28 54 24 2C 32 AA 49 29 20 43 24 00 22 13 52 |.(T$,2.I) C$.".R|
00000F20: 03 8E 00 00 00 |..... |
..&....* BLOCK ACCESS METHOD DUMP *.K
....* WRITTEN BY TOM CONRAD *.P...
.* COMPUTE. #4 *......*
*... ..* RE
QUIRES A COMMODORE DISK *...#..*
*...(..*BLOCK ACCE
SS METHOD (BAM) MAP*.).-..*WILL ALLOW
YOU TO SEE WHERE*.N.2..*YOUR FILES ARE A
LLOCATED. YOU*.S.<..*CAN SAVE AND DELETE
FILES AND*...F..*OBSERVE THE ALLOCAT
ION *...P..*TECHNIQUE.
***...U..* THE PURPOSE OF THE BAM IS
TO*...Z..*TO PROTECT ALLOCATED FILES SO
*..._..*THEY ARE NOT WRITTEN OVER AND*.S
.`..*AND THEREFORE DESTROYED. THE *.X.A.
.*MAP RESIDES ON THE DIRECTORY *...B..*T
RACK 18 SECTOR 0. ***.E.C.. *T
HE BAM TURNS OFF THE BITS *...D..*WHEN
IT ALLOCATES A SECTOR. *...E..*THIS PG
M LOOKS AT THESE BITS *.4.F..*& IF ON (M
EANING IT IS FREE) *.Y.G..*WILL PRINT EI
THER A "." OR A *.~.H..*WHITE SQUARE. BY
LOOKING AT *...I..*THE MAP YOU CAN DET
ERMINE HOW*.H.J..*FULL OR EMPTY THE DISK
IS. *.O....*......* INITIALIZATIO
N *...... A(4)... .NL$.G(0).(...
T.0: . TOTAL FREE BLOCKS.@....* WHICH DR
IVE *.T...."......DRIVE?".L.... D$: .
D$."" . 190...C..* PRINTS THE BAM MAP O
UTLINE *.A.H..". .TRACKS. 1111111111
2222222222333333"...R.." 1234567890123
4567890123456789012345"......". .......
............................".N....".S.0
. .".
....".E.1.
."......".C.2.
."......".T.3.
."......".O.4.
.".C....
".R.5.
.".R.".." 6.
."...,.." 7.
.".P.6.." 8.
."...@.." 9.
."...J.."10
. .".]
.T.."11.
."...^.."12.
."...H.."13.
."...R.."14.
."...|.."15.
.".H...."
16. ."
.V...."17.
O...."......"18.
O.....".W...."19.
.. .OR.=EMPTY" "......"20........
..........O......".....S$."": T$.""...B.
W$.".": . I.1 . 25: S$.S$.W$:..Q.L.V$.".
": . I.1 . 40: T$.T$.V$:..V.Q..* INIT DR
IVE AND CK FOR ERROR *...V.. 15,8,15,"I"
.D$:. 760......* ALLOC BUFFER 0 TO CHANN
EL 2 *.Q.... 2,8,2,"#"."0": . 760......*
BLOCK-READ INTO BUFFER *......15,"
U1:2,"D$,18,0: . 760.9....* SET BUFFER P
OINTER *.K....15,"B-P:2,4".P...
.* MEMORY READ *......15
,"M-R"G(0)G(17)......* SEARCH FOR EMPTY
SECTORS *...... I.1 . 35.G...:. L.1 . 4.
..!.::.* GETS A BYTE FROM BUFFER *..
.&.::.#2,A$...0.::. A$."" . A$.NL$.7.5.:
:.*CONVERSION FROM CHAR TO ASCI.I.:.::A(
L). F(A$).H.D.::. L.1 . I..18 . T.T.A(1)
.Q.N.:. L...X.:. J.2 . 4...].::.* PRINTS
ALTERNATING SQUARES *.K.B.::. "..":. .
(J.2).J.2 . . ".. "...L.::. A(J).F(G(0))
. . 680:.* SECT FULL *...V.::. K.7 . 0
. .1.5.{.:::.* PRINTS ALTERNATING SQUAR
ES *.Z...:::. "..":. .(K.2).K.2 . . "..
"....:::.* DECODES DECIMAL TO BIT *.
....:::. (A(J).2.K).0 . 670.....:::A(J).
A(J).2.K:. 790.....::. K.I...:. J.Q....
I......". ":.* CLEAR SQUARE *...A..* PRI
NTS TOTAL FREE BLOCKS *.=.F.. H(S$,2
2)H(T$,23)"FREE BLKS="T"....".D.K..* MAP
ON SCREEN UNTIL KEY IS HIT*.{.P.. Z$:.
Z$."" . 720...Z. 2: 15......* START PR
OGRAM AGAIN *...... 170.N....* CHECK FO
R DISK ERROR *......15,EN$,EM$,ET,ES: .
EN$."00" . ..!.... ".DISK ERROR:. " EM$
" " EN$,ET "," ES.'.....J....* PRINT ALT
ERNATING PATTERN *.S. .. .(I.2). I.2 . .
(K.2). K.2 . C$."."...*.. .(I.2)..I.2 .
.(K.2). K.2 . C$.". ".G.4.. .(I.2). I.2
. .(K.2)..K.2 . C$.". "...>.. .(I.2)..I.
2 . .(K.2)..K.2 . C$.".."...H.. "." H(S$
,3.((J.2).8).K) H(T$,2.I) C$.".R.....
> CLICK IMAGE PREVIEW FOR FULL MODAL