POUND.BAS
FILE INFORMATION
FILENAME(S): POUND.BAS
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 18:07:08
APPEARS ON: 3 disk(s)
FILE HASH
2845bfee4c9e090af243709bcd6b004c6eb38c72b95abb9c27be189788b4d1d7
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 1764 V 040887 | POUND.BAS | PRG | Xii | 15 | 2 | DOWNLOAD FILE |
| 1764 V 040887 | POUND.BAS | PRG | Sailor, Pbv | 15 | 2 | DOWNLOAD FILE |
| 1764 V 040887 | POUND.BAS | PRG | DuncanTwain | 15 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3A 08 0A 00 8F 20 46 24 3D 22 30 3A 50 4F |..:.... F$="0:PO|
00000010: 55 4E 44 2E 42 41 53 22 3A 4F 50 45 4E 31 2C 38 |UND.BAS":OPEN1,8|
00000020: 2C 31 35 2C 22 53 22 2B 46 24 3A 43 4C 4F 53 45 |,15,"S"+F$:CLOSE|
00000030: 31 3A 53 41 56 45 46 24 2C 38 00 48 08 14 00 8B |1:SAVEF$,8.H....|
00000040: 20 41 20 A7 20 32 30 30 00 7B 08 1E 00 8D 20 39 | A . 200.{.... 9|
00000050: 30 30 30 3A 20 20 20 20 20 20 20 20 20 20 20 20 |000: |
00000060: 20 20 8F 20 56 45 52 49 46 59 20 45 58 50 41 4E | . VERIFY EXPAN|
00000070: 44 45 52 20 50 52 45 53 45 4E 54 00 A8 08 28 00 |DER PRESENT...(.|
00000080: 97 35 32 2C 32 38 3A 97 35 36 2C 32 38 3A 9C 3A |.52,28:.56,28:.:|
00000090: 20 8F 20 4D 41 4B 45 20 52 4F 4F 4D 20 46 4F 52 | . MAKE ROOM FOR|
000000A0: 20 42 49 54 20 4D 41 50 00 DE 08 32 00 8D 20 38 | BIT MAP...2.. 8|
000000B0: 30 30 30 3A 20 20 20 20 20 20 20 20 20 20 20 20 |000: |
000000C0: 20 20 8F 20 49 4E 49 54 20 44 4D 41 20 43 54 4C | . INIT DMA CTL|
000000D0: 52 20 26 20 50 49 43 20 50 41 52 41 4D 53 00 E4 |R & PIC PARAMS..|
000000E0: 08 3C 00 3A 00 FE 08 64 00 85 20 22 4C 4F 41 44 |.<.:...d.. "LOAD|
000000F0: 20 52 41 4D 20 28 59 2F 4E 29 22 3B 41 24 00 34 | RAM (Y/N)";A$.4|
00000100: 09 6E 00 3A 20 8B 20 41 24 B2 22 4E 22 20 A7 20 |.n.: . A$."N" . |
00000110: 34 30 30 3A 20 20 20 8F 20 55 53 45 20 50 49 43 |400: . USE PIC|
00000120: 53 20 50 52 45 56 49 4F 55 53 4C 59 20 53 54 41 |S PREVIOUSLY STA|
00000130: 53 48 45 44 00 52 09 78 00 41 B2 31 3A 20 93 20 |SHED.R.x.A.1: . |
00000140: 22 43 4F 4D 50 52 45 53 53 2E 42 49 4E 22 2C 38 |"COMPRESS.BIN",8|
00000150: 2C 31 00 58 09 82 00 3A 00 78 09 C8 00 8F 20 20 |,1.X...:.x.... |
00000160: 55 4E 43 4F 4D 50 52 45 53 53 20 50 49 43 20 41 |UNCOMPRESS PIC A|
00000170: 4E 44 20 53 54 41 53 48 00 B7 09 D2 00 8B 20 50 |ND STASH...... P|
00000180: 20 A7 20 9E 34 39 31 35 35 3A 20 97 52 AA 34 2C | . .49155: .R.4,|
00000190: 4C 28 50 AB 31 29 3A 97 52 AA 35 2C 48 28 50 AB |L(P.1):.R.5,H(P.|
000001A0: 31 29 3A 97 52 AA 36 2C 42 28 50 AB 31 29 3A 97 |1):.R.6,B(P.1):.|
000001B0: 52 AA 31 2C 31 37 36 00 BD 09 DC 00 3A 00 DE 09 |R.1,176.....:...|
000001C0: 2C 01 8F 20 20 4C 4F 41 44 20 41 20 43 4F 4D 50 |,.. LOAD A COMP|
000001D0: 52 45 53 53 45 44 20 50 49 43 54 55 52 45 00 F6 |RESSED PICTURE..|
000001E0: 09 36 01 50 B2 50 AA 31 3A 20 8B 20 50 B1 33 32 |.6.P.P.1: . P.32|
000001F0: 20 A7 20 34 30 30 00 25 0A 40 01 3A 20 99 20 22 | . 400.%.@.: . "|
00000200: 93 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 4C 4F 41 |.............LOA|
00000210: 44 49 4E 47 20 49 4D 41 47 45 22 3B 50 3B 22 4F |DING IMAGE";P;"O|
00000220: 46 20 33 32 22 00 47 0A 4A 01 3A 20 93 20 22 50 |F 32".G.J.: . "P|
00000230: 4F 55 4E 44 22 AA C4 28 50 AB 31 29 AA 22 2E 43 |OUND"..(P.1).".C|
00000240: 4D 50 22 2C 38 2C 31 00 4D 0A 54 01 3A 00 69 0A |MP",8,1.M.T.:.i.|
00000250: 90 01 8F 20 20 49 4E 49 54 20 42 49 54 20 4D 41 |... INIT BIT MA|
00000260: 50 20 26 20 43 4F 4C 4F 52 00 96 0A 9A 01 44 41 |P & COLOR.....DA|
00000270: B2 33 33 3A 41 44 B2 31 30 32 34 20 3A 53 5A B2 |.33:AD.1024 :SZ.|
00000280: 31 30 30 30 3A 8D 37 30 30 30 3A 20 8F 20 43 4C |1000:.7000: . CL|
00000290: 45 41 52 20 56 4D 00 C8 0A A4 01 44 41 B2 36 20 |EAR VM.....DA.6 |
000002A0: 3A 41 44 B2 35 35 32 39 36 3A 53 5A B2 31 30 30 |:AD.55296:SZ.100|
000002B0: 30 3A 8D 37 30 30 30 3A 20 8F 20 43 4C 45 41 52 |0:.7000: . CLEAR|
000002C0: 20 4E 59 42 42 4C 45 53 00 F7 0A AE 01 44 41 B2 | NYBBLES.....DA.|
000002D0: 30 20 3A 41 44 B2 38 31 39 32 20 3A 53 5A B2 38 |0 :AD.8192 :SZ.8|
000002E0: 30 30 30 3A 8D 37 30 30 30 3A 20 8F 20 43 4C 45 |000:.7000: . CLE|
000002F0: 41 52 20 4D 43 42 4D 00 19 0B B8 01 56 B2 31 33 |AR MCBM.....V.13|
00000300: AC 34 30 39 36 3A 20 20 20 20 20 20 20 20 20 20 |.4096: |
00000310: 20 20 20 20 8F 20 56 49 43 00 38 0B C2 01 97 56 | . VIC.8....V|
00000320: AA 31 37 2C C2 28 56 AA 31 37 29 B0 33 32 3A 8F |.17,.(V.17).32:.|
00000330: 20 53 45 54 20 42 4D 4D 00 57 0B C7 01 97 56 AA | SET BMM.W....V.|
00000340: 32 32 2C C2 28 56 AA 32 32 29 B0 31 36 3A 8F 20 |22,.(V.22).16:. |
00000350: 53 45 54 20 4D 43 4D 00 85 0B CC 01 97 56 AA 32 |SET MCM......V.2|
00000360: 34 2C C2 28 56 AA 32 34 29 B0 38 3A 20 8F 20 42 |4,.(V.24).8: . B|
00000370: 4D 20 40 20 24 32 30 30 30 2C 20 56 4D 20 40 20 |M @ $2000, VM @ |
00000380: 24 30 34 30 30 00 AD 0B D6 01 97 56 AA 33 32 2C |$0400......V.32,|
00000390: 30 3A 97 56 AA 33 33 2C 30 3A 20 20 8F 20 42 47 |0:.V.33,0: . BG|
000003A0: 20 26 20 42 52 44 52 20 43 4F 4C 4F 52 00 D5 0B | & BRDR COLOR...|
000003B0: E0 01 8D 38 30 37 30 3A 20 20 20 20 20 20 20 20 |...8070: |
000003C0: 20 20 20 20 20 20 8F 20 49 4E 49 54 20 44 4D 41 | . INIT DMA|
000003D0: 20 43 54 4C 52 00 DB 0B EA 01 3A 00 FB 0B F4 01 | CTLR.....:.....|
000003E0: 8F 20 43 59 43 4C 45 20 54 48 52 55 20 50 49 43 |. CYCLE THRU PIC|
000003F0: 53 20 45 4E 44 4C 45 53 53 4C 59 00 0A 0C FE 01 |S ENDLESSLY.....|
00000400: 81 49 B2 30 A4 31 3A 49 B2 30 00 3F 0C 08 02 81 |.I.0.1:I.0.?....|
00000410: 50 B2 2E A4 33 31 3A 97 52 AA 34 2C 4C 28 50 29 |P...31:.R.4,L(P)|
00000420: 3A 97 52 AA 35 2C 48 28 50 29 3A 97 52 AA 36 2C |:.R.5,H(P):.R.6,|
00000430: 42 28 50 29 3A 97 52 AA 31 2C 31 37 37 3A 82 00 |B(P):.R.1,177:..|
00000440: 48 0C 12 02 82 3A 20 90 00 4E 0C 1C 02 3A 00 6C |H....: ..N...:.l|
00000450: 0C 58 1B 8F 20 20 44 4D 41 20 42 4C 4F 43 4B 20 |.X.. DMA BLOCK |
00000460: 46 49 4C 4C 20 52 4F 55 54 49 4E 45 00 88 0C 62 |FILL ROUTINE...b|
00000470: 1B 8F 20 20 45 4E 54 45 52 20 57 49 54 48 20 20 |.. ENTER WITH |
00000480: 44 41 3D 20 44 41 54 41 00 A7 0C 6C 1B 8F 20 20 |DA= DATA...l.. |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 41 44 3D 20 | AD= |
000004A0: 41 44 44 52 45 53 53 00 C5 0C 76 1B 8F 20 20 20 |ADDRESS...v.. |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 53 5A 3D 20 23 | SZ= #|
000004C0: 42 59 54 45 53 00 D1 0C 80 1B 97 32 35 31 2C 44 |BYTES......251,D|
000004D0: 41 00 FA 0C 8A 1B 97 52 AA 32 2C 32 35 31 3A 97 |A......R.2,251:.|
000004E0: 52 AA 33 2C 30 3A 97 52 AA 34 2C 30 3A 97 52 AA |R.3,0:.R.4,0:.R.|
000004F0: 35 2C 30 3A 97 52 AA 36 2C 30 00 24 0D 94 1B 97 |5,0:.R.6,0.$....|
00000500: 52 AA 37 2C 31 3A 97 52 AA 38 2C 30 3A 97 52 AA |R.7,1:.R.8,0:.R.|
00000510: 39 2C 30 3A 97 52 AA 31 30 2C 30 3A 97 52 AA 31 |9,0:.R.10,0:.R.1|
00000520: 2C 31 37 36 00 4D 0D 9E 1B 48 B2 B5 28 41 44 AD |,176.M...H..(AD.|
00000530: 32 35 36 29 3A 4C B2 41 44 AB 32 35 36 AC 48 3A |256):L.AD.256.H:|
00000540: 97 52 AA 32 2C 4C 3A 97 52 AA 33 2C 48 00 69 0D |.R.2,L:.R.3,H.i.|
00000550: A8 1B 97 52 AA 37 2C 53 5A AF 32 35 35 3A 97 52 |...R.7,SZ.255:.R|
00000560: AA 38 2C 53 5A AD 32 35 36 00 89 0D B2 1B 97 52 |.8,SZ.256......R|
00000570: AA 39 2C 30 3A 97 52 AA 31 30 2C 36 34 3A 97 52 |.9,0:.R.10,64:.R|
00000580: AA 31 2C 31 37 37 3A 20 8E 00 8F 0D BC 1B 3A 00 |.1,177: ......:.|
00000590: B0 0D 40 1F 8F 20 49 4E 49 54 20 44 4D 41 20 43 |..@.. INIT DMA C|
000005A0: 54 4C 52 20 26 20 50 49 43 20 50 41 52 41 4D 53 |TLR & PIC PARAMS|
000005B0: 00 DE 0D 4A 1F 52 B2 35 37 30 38 38 3A 20 20 20 |...J.R.57088: |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 8F 20 | . |
000005D0: 44 4D 41 20 43 4F 4E 54 52 4F 4C 4C 45 52 00 14 |DMA CONTROLLER..|
000005E0: 0E 54 1F 42 53 B2 38 31 39 32 3A 44 B2 38 30 30 |.T.BS.8192:D.800|
000005F0: 30 20 20 20 20 20 20 20 20 20 20 3A 8F 20 50 4F |0 :. PO|
00000600: 55 4E 44 20 50 49 43 20 53 54 41 52 54 20 26 20 |UND PIC START & |
00000610: 53 49 5A 45 00 49 0E 5E 1F 86 4C 28 33 31 29 2C |SIZE.I.^..L(31),|
00000620: 48 28 33 31 29 2C 42 28 33 31 29 20 20 20 20 3A |H(31),B(31) :|
00000630: 8F 20 50 4F 49 4E 54 45 52 53 20 54 4F 20 53 54 |. POINTERS TO ST|
00000640: 41 53 48 45 44 20 50 49 43 00 5C 0E 68 1F 81 49 |ASHED PIC.\.h..I|
00000650: B2 30 A4 33 31 3A 20 5A B2 49 AC 44 00 94 0E 72 |.0.31: Z.I.D...r|
00000660: 1F 42 B2 B5 28 5A AD 36 35 35 33 36 29 3A 48 B2 |.B..(Z.65536):H.|
00000670: B5 28 28 5A AB 42 AC 36 35 35 33 36 29 AD 32 35 |.((Z.B.65536).25|
00000680: 36 29 3A 4C B2 5A AB 42 AC 36 35 35 33 36 AB 48 |6):L.Z.B.65536.H|
00000690: AC 32 35 36 00 B0 0E 7C 1F 4C 28 49 29 B2 4C 3A |.256...|.L(I).L:|
000006A0: 48 28 49 29 B2 48 3A 42 28 49 29 B2 42 3A 20 82 |H(I).H:B(I).B: .|
000006B0: 00 DD 0E 86 1F 97 52 AA 32 2C 42 53 AF 32 35 35 |......R.2,BS.255|
000006C0: 3A 97 52 AA 33 2C 42 53 AD 32 35 36 3A 20 8F 20 |:.R.3,BS.256: . |
000006D0: 49 4E 49 54 20 44 4D 41 20 43 54 4C 52 00 F6 0E |INIT DMA CTLR...|
000006E0: 90 1F 97 52 AA 34 2C 30 3A 97 52 AA 35 2C 30 3A |...R.4,0:.R.5,0:|
000006F0: 97 52 AA 36 2C 30 00 1F 0F 9A 1F 97 52 AA 37 2C |.R.6,0......R.7,|
00000700: 44 AF 32 35 35 3A 97 52 AA 38 2C 44 AD 32 35 36 |D.255:.R.8,D.256|
00000710: 3A 97 52 AA 39 2C 30 3A 97 52 AA 31 30 2C 30 00 |:.R.9,0:.R.10,0.|
00000720: 25 0F A4 1F 8E 00 2B 0F AE 1F 3A 00 4D 0F 28 23 |%.....+...:.M.(#|
00000730: 8F 20 56 45 52 49 46 59 20 50 52 45 53 45 4E 43 |. VERIFY PRESENC|
00000740: 45 20 4F 46 20 52 41 4D 20 43 41 52 44 00 6F 0F |E OF RAM CARD.o.|
00000750: 32 23 52 B2 35 37 30 38 38 3A 20 97 52 2C 30 3A |2#R.57088: .R,0:|
00000760: 20 8B C2 28 52 29 B3 B1 31 36 A7 39 30 35 30 00 | ..(R)..16.9050.|
00000770: 83 0F 3C 23 81 49 B2 32 A4 35 3A 97 52 AA 49 2C |..<#.I.2.5:.R.I,|
00000780: 49 3A 82 00 9E 0F 46 23 81 49 B2 32 A4 35 3A 8B |I:....F#.I.2.5:.|
00000790: C2 28 52 AA 49 29 B3 B1 49 A7 39 30 35 30 00 A6 |.(R.I)..I.9050..|
000007A0: 0F 50 23 82 3A 8E 00 CE 0F 5A 23 99 20 22 93 11 |.P#.:....Z#. "..|
000007B0: 20 12 52 41 4D 20 45 58 50 41 4E 44 45 52 20 4E | .RAM EXPANDER N|
000007C0: 4F 54 20 50 52 45 53 45 4E 54 22 3A 20 80 00 00 |OT PRESENT": ...|
000007D0: 00 |. |
..:.... F$="0:POUND.BAS":OPEN1,8,15,"S"+
F$:CLOSE1:SAVEF$,8.H.... A . 200.{.... 9
000: . VERIFY EXPANDER PRES
ENT...(..52,28:.56,28:.: . MAKE ROOM FOR
BIT MAP...2.. 8000: . INIT
DMA CTLR & PIC PARAMS...<.:...D.. "LOAD
RAM (Y/N)";A$.4.N.: . A$."N" . 400: .
USE PICS PREVIOUSLY STASHED.R.X.A.1: .
"COMPRESS.BIN",8,1.X...:.X.H.. UNCOMPRE
SS PIC AND STASH...R.. P . .49155: .R.4,
L(P.1):.R.5,H(P.1):.R.6,B(P.1):.R.1,176.
....:...,.. LOAD A COMPRESSED PICTURE..
.6.P.P.1: . P.32 . 400.%.@.: . "........
.....LOADING IMAGE";P;"OF 32".G.J.: . "P
OUND".D(P.1).".CMP",8,1.M.T.:.I.... INI
T BIT MAP & COLOR.....DA.33:AD.1024 :SZ.
1000:.7000: . CLEAR VM.H...DA.6 :AD.5529
6:SZ.1000:.7000: . CLEAR NYBBLES.....DA.
0 :AD.8192 :SZ.8000:.7000: . CLEAR MCBM.
....V.13.4096: . VIC.8.B..V
.17,B(V.17).32:. SET BMM.W.G..V.22,B(V.2
2).16:. SET MCM...L..V.24,B(V.24).8: . B
M @ $2000, VM @ $0400...V..V.32,0:.V.33,
0: . BG & BRDR COLOR.U....8070:
. INIT DMA CTLR.....:...... CYCLE
THRU PICS ENDLESSLY......I.0.1:I.0.?....
P...31:.R.4,L(P):.R.5,H(P):.R.6,B(P):.R.
1,177:..H....: ..N...:.L.X.. DMA BLOCK
FILL ROUTINE...B.. ENTER WITH DA= DATA
...L.. AD= ADDRESS.E.V..
SZ= #BYTES.Q....251,DA......R
.2,251:.R.3,0:.R.4,0:.R.5,0:.R.6,0.$....
R.7,1:.R.8,0:.R.9,0:.R.10,0:.R.1,176.M..
.H..(AD.256):L.AD.256.H:.R.2,L:.R.3,H.I.
...R.7,SZ.255:.R.8,SZ.256......R.9,0:.R.
10,64:.R.1,177: ......:...@.. INIT DMA C
TLR & PIC PARAMS...J.R.57088:
. DMA CONTROLLER...T.BS.8192:D.800
0 :. POUND PIC START & SIZE.I.^
..L(31),H(31),B(31) :. POINTERS TO ST
ASHED PIC.\.H..I.0.31: Z.I.D...R.B..(Z.6
5536):H..((Z.B.65536).256):L.Z.B.65536.H
.256...|.L(I).L:H(I).H:B(I).B: .......R.
2,BS.255:.R.3,BS.256: . INIT DMA CTLR...
...R.4,0:.R.5,0:.R.6,0......R.7,D.255:.R
.8,D.256:.R.9,0:.R.10,0.%.....+...:.M.(#
. VERIFY PRESENCE OF RAM CARD.O.2#R.5708
8: .R,0: .B(R)..16.9050...<#.I.2.5:.R.I,
I:....F#.I.2.5:.B(R.I)..I.9050...P#.:..N
.Z#. ".. .RAM EXPANDER NOT PRESENT": ...
.
> CLICK IMAGE PREVIEW FOR FULL MODAL