GLOBE.BAS
FILE INFORMATION
FILENAME(S): GLOBE.BAS
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 18:07:08
APPEARS ON: 3 disk(s)
FILE HASH
3a862621f7501753c5bf86088812dcfda687625afbb6e5a7037a1dab06e93e0d
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 1764 V 040887 | GLOBE.BAS | PRG | Xii | 26 | 0 | DOWNLOAD FILE |
| 1764 V 040887 | GLOBE.BAS | PRG | Sailor, Pbv | 26 | 0 | DOWNLOAD FILE |
| 1764 V 040887 | GLOBE.BAS | PRG | DuncanTwain | 26 | 0 | 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 47 4C |..:.... F$="0:GL|
00000010: 4F 42 45 2E 42 41 53 22 3A 4F 50 45 4E 31 2C 38 |OBE.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 B1 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 29 3A 97 52 AA 35 2C 48 28 50 29 3A 97 |L(P):.R.5,H(P):.|
000001A0: 52 AA 36 2C 42 28 50 29 3A 97 52 AA 31 2C 31 37 |R.6,B(P):.R.1,17|
000001B0: 36 00 B7 09 DC 00 3A 00 D8 09 2C 01 8F 20 20 4C |6.....:...,.. L|
000001C0: 4F 41 44 20 41 20 43 4F 4D 50 52 45 53 53 45 44 |OAD A COMPRESSED|
000001D0: 20 50 49 43 54 55 52 45 00 F0 09 36 01 50 B2 50 | PICTURE...6.P.P|
000001E0: AA 31 3A 20 8B 20 50 B1 33 36 20 A7 20 34 30 30 |.1: . P.36 . 400|
000001F0: 00 1F 0A 40 01 3A 20 99 20 22 93 11 11 11 11 1D |...@.: . "......|
00000200: 1D 1D 1D 1D 1D 1D 1D 4C 4F 41 44 49 4E 47 20 49 |.......LOADING I|
00000210: 4D 41 47 45 22 3B 50 3B 22 4F 46 20 33 36 22 00 |MAGE";P;"OF 36".|
00000220: 46 0A 4A 01 3A 20 93 20 22 47 4C 4F 42 45 22 AA |F.J.: . "GLOBE".|
00000230: C4 28 28 50 AB 31 29 AC 31 30 29 AA 22 2E 43 4D |.((P.1).10).".CM|
00000240: 50 22 2C 38 2C 31 00 4C 0A 54 01 3A 00 68 0A 90 |P",8,1.L.T.:.h..|
00000250: 01 8F 20 20 49 4E 49 54 20 42 49 54 20 4D 41 50 |.. INIT BIT MAP|
00000260: 20 26 20 43 4F 4C 4F 52 00 95 0A 9A 01 44 41 B2 | & COLOR.....DA.|
00000270: 32 32 32 3A 41 44 B2 31 30 32 34 3A 53 5A B2 31 |222:AD.1024:SZ.1|
00000280: 30 30 30 3A 8D 37 30 30 30 3A 20 8F 20 43 4C 45 |000:.7000: . CLE|
00000290: 41 52 20 56 4D 00 C4 0A AE 01 44 41 B2 30 20 20 |AR VM.....DA.0 |
000002A0: 3A 41 44 B2 38 31 39 32 3A 53 5A B2 38 30 30 30 |:AD.8192:SZ.8000|
000002B0: 3A 8D 37 30 30 30 3A 20 8F 20 43 4C 45 41 52 20 |:.7000: . CLEAR |
000002C0: 48 52 42 4D 00 E6 0A B8 01 56 B2 31 33 AC 34 30 |HRBM.....V.13.40|
000002D0: 39 36 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 |96: |
000002E0: 20 8F 20 56 49 43 00 05 0B C2 01 97 56 AA 31 37 | . VIC......V.17|
000002F0: 2C C2 28 56 AA 31 37 29 B0 33 32 3A 8F 20 53 45 |,.(V.17).32:. SE|
00000300: 54 20 42 4D 4D 00 33 0B CC 01 97 56 AA 32 34 2C |T BMM.3....V.24,|
00000310: C2 28 56 AA 32 34 29 B0 38 3A 20 8F 20 42 4D 20 |.(V.24).8: . BM |
00000320: 40 20 24 32 30 30 30 2C 20 56 4D 20 40 20 24 30 |@ $2000, VM @ $0|
00000330: 34 30 30 00 59 0B D6 01 97 56 AA 33 32 2C 36 3A |400.Y....V.32,6:|
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 8F 20 42 | . B|
00000350: 52 44 52 20 43 4F 4C 4F 52 00 81 0B E0 01 8D 38 |RDR COLOR......8|
00000360: 30 37 30 3A 20 20 20 20 20 20 20 20 20 20 20 20 |070: |
00000370: 20 20 8F 20 49 4E 49 54 20 44 4D 41 20 43 54 4C | . INIT DMA CTL|
00000380: 52 00 87 0B EA 01 3A 00 A7 0B F4 01 8F 20 43 59 |R.....:...... CY|
00000390: 43 4C 45 20 54 48 52 55 20 50 49 43 53 20 45 4E |CLE THRU PICS EN|
000003A0: 44 4C 45 53 53 4C 59 00 B6 0B FE 01 81 49 B2 30 |DLESSLY......I.0|
000003B0: A4 31 3A 49 B2 30 00 EE 0B 08 02 81 50 B2 33 35 |.1:I.0......P.35|
000003C0: A4 30 A9 AB 31 3A 97 52 AA 34 2C 4C 28 50 29 3A |.0..1:.R.4,L(P):|
000003D0: 97 52 AA 35 2C 48 28 50 29 3A 97 52 AA 36 2C 42 |.R.5,H(P):.R.6,B|
000003E0: 28 50 29 3A 97 52 AA 31 2C 31 37 37 3A 82 00 F7 |(P):.R.1,177:...|
000003F0: 0B 12 02 82 3A 20 90 00 FD 0B 1C 02 3A 00 1B 0C |....: ......:...|
00000400: 58 1B 8F 20 20 44 4D 41 20 42 4C 4F 43 4B 20 46 |X.. DMA BLOCK F|
00000410: 49 4C 4C 20 52 4F 55 54 49 4E 45 00 37 0C 62 1B |ILL ROUTINE.7.b.|
00000420: 8F 20 20 45 4E 54 45 52 20 57 49 54 48 20 20 44 |. ENTER WITH D|
00000430: 41 3D 20 44 41 54 41 00 56 0C 6C 1B 8F 20 20 20 |A= DATA.V.l.. |
00000440: 20 20 20 20 20 20 20 20 20 20 20 41 44 3D 20 41 | AD= A|
00000450: 44 44 52 45 53 53 00 74 0C 76 1B 8F 20 20 20 20 |DDRESS.t.v.. |
00000460: 20 20 20 20 20 20 20 20 20 20 53 5A 3D 20 23 42 | SZ= #B|
00000470: 59 54 45 53 00 80 0C 80 1B 97 32 35 31 2C 44 41 |YTES......251,DA|
00000480: 00 A9 0C 8A 1B 97 52 AA 32 2C 32 35 31 3A 97 52 |......R.2,251:.R|
00000490: AA 33 2C 30 3A 97 52 AA 34 2C 30 3A 97 52 AA 35 |.3,0:.R.4,0:.R.5|
000004A0: 2C 30 3A 97 52 AA 36 2C 30 00 D3 0C 94 1B 97 52 |,0:.R.6,0......R|
000004B0: AA 37 2C 31 3A 97 52 AA 38 2C 30 3A 97 52 AA 39 |.7,1:.R.8,0:.R.9|
000004C0: 2C 30 3A 97 52 AA 31 30 2C 30 3A 97 52 AA 31 2C |,0:.R.10,0:.R.1,|
000004D0: 31 37 36 00 FC 0C 9E 1B 48 B2 B5 28 41 44 AD 32 |176.....H..(AD.2|
000004E0: 35 36 29 3A 4C B2 41 44 AB 32 35 36 AC 48 3A 97 |56):L.AD.256.H:.|
000004F0: 52 AA 32 2C 4C 3A 97 52 AA 33 2C 48 00 18 0D A8 |R.2,L:.R.3,H....|
00000500: 1B 97 52 AA 37 2C 53 5A AF 32 35 35 3A 97 52 AA |..R.7,SZ.255:.R.|
00000510: 38 2C 53 5A AD 32 35 36 00 38 0D B2 1B 97 52 AA |8,SZ.256.8....R.|
00000520: 39 2C 30 3A 97 52 AA 31 30 2C 36 34 3A 97 52 AA |9,0:.R.10,64:.R.|
00000530: 31 2C 31 37 37 3A 20 8E 00 3E 0D BC 1B 3A 00 5F |1,177: ..>...:._|
00000540: 0D 40 1F 8F 20 49 4E 49 54 20 44 4D 41 20 43 54 |.@.. INIT DMA CT|
00000550: 4C 52 20 26 20 50 49 43 20 50 41 52 41 4D 53 00 |LR & PIC PARAMS.|
00000560: 8D 0D 4A 1F 52 B2 35 37 30 38 38 3A 20 20 20 20 |..J.R.57088: |
00000570: 20 20 20 20 20 20 20 20 20 20 20 20 20 8F 20 44 | . D|
00000580: 4D 41 20 43 4F 4E 54 52 4F 4C 4C 45 52 00 C5 0D |MA CONTROLLER...|
00000590: 54 1F 42 53 B2 38 39 36 30 3A 42 45 B2 31 35 32 |T.BS.8960:BE.152|
000005A0: 30 30 3A 44 B2 42 45 AB 42 53 3A 8F 20 47 4C 4F |00:D.BE.BS:. GLO|
000005B0: 42 45 20 50 49 43 20 53 54 41 52 54 2F 45 4E 44 |BE PIC START/END|
000005C0: 2F 53 49 5A 45 00 FA 0D 5E 1F 86 4C 28 33 36 29 |/SIZE...^..L(36)|
000005D0: 2C 48 28 33 36 29 2C 42 28 33 36 29 20 20 20 20 |,H(36),B(36) |
000005E0: 3A 8F 20 50 4F 49 4E 54 45 52 53 20 54 4F 20 53 |:. POINTERS TO S|
000005F0: 54 41 53 48 45 44 20 50 49 43 00 0D 0E 68 1F 81 |TASHED PIC...h..|
00000600: 49 B2 30 A4 33 35 3A 20 5A B2 49 AC 44 00 45 0E |I.0.35: Z.I.D.E.|
00000610: 72 1F 42 B2 B5 28 5A AD 36 35 35 33 36 29 3A 48 |r.B..(Z.65536):H|
00000620: B2 B5 28 28 5A AB 42 AC 36 35 35 33 36 29 AD 32 |..((Z.B.65536).2|
00000630: 35 36 29 3A 4C B2 5A AB 42 AC 36 35 35 33 36 AB |56):L.Z.B.65536.|
00000640: 48 AC 32 35 36 00 61 0E 7C 1F 4C 28 49 29 B2 4C |H.256.a.|.L(I).L|
00000650: 3A 48 28 49 29 B2 48 3A 42 28 49 29 B2 42 3A 20 |:H(I).H:B(I).B: |
00000660: 82 00 8E 0E 86 1F 97 52 AA 32 2C 42 53 AF 32 35 |.......R.2,BS.25|
00000670: 35 3A 97 52 AA 33 2C 42 53 AD 32 35 36 3A 20 8F |5:.R.3,BS.256: .|
00000680: 20 49 4E 49 54 20 44 4D 41 20 43 54 4C 52 00 A7 | INIT DMA CTLR..|
00000690: 0E 90 1F 97 52 AA 34 2C 30 3A 97 52 AA 35 2C 30 |....R.4,0:.R.5,0|
000006A0: 3A 97 52 AA 36 2C 30 00 D0 0E 9A 1F 97 52 AA 37 |:.R.6,0......R.7|
000006B0: 2C 44 AF 32 35 35 3A 97 52 AA 38 2C 44 AD 32 35 |,D.255:.R.8,D.25|
000006C0: 36 3A 97 52 AA 39 2C 30 3A 97 52 AA 31 30 2C 30 |6:.R.9,0:.R.10,0|
000006D0: 00 D6 0E A4 1F 8E 00 DC 0E AE 1F 3A 00 FE 0E 28 |...........:...(|
000006E0: 23 8F 20 56 45 52 49 46 59 20 50 52 45 53 45 4E |#. VERIFY PRESEN|
000006F0: 43 45 20 4F 46 20 52 41 4D 20 43 41 52 44 00 20 |CE OF RAM CARD. |
00000700: 0F 32 23 52 B2 35 37 30 38 38 3A 20 97 52 2C 30 |.2#R.57088: .R,0|
00000710: 3A 20 8B C2 28 52 29 B3 B1 31 36 A7 39 30 35 30 |: ..(R)..16.9050|
00000720: 00 34 0F 3C 23 81 49 B2 32 A4 35 3A 97 52 AA 49 |.4.<#.I.2.5:.R.I|
00000730: 2C 49 3A 82 00 4F 0F 46 23 81 49 B2 32 A4 35 3A |,I:..O.F#.I.2.5:|
00000740: 8B C2 28 52 AA 49 29 B3 B1 49 A7 39 30 35 30 00 |..(R.I)..I.9050.|
00000750: 57 0F 50 23 82 3A 8E 00 7F 0F 5A 23 99 20 22 93 |W.P#.:....Z#. ".|
00000760: 11 20 12 52 41 4D 20 45 58 50 41 4E 44 45 52 20 |. .RAM EXPANDER |
00000770: 4E 4F 54 20 50 52 45 53 45 4E 54 22 3A 20 80 00 |NOT PRESENT": ..|
00000780: 00 00 |.. |
..:.... F$="0:GLOBE.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):.R.5,H(P):.R.6,B(P):.R.1,176.....:.
X.,.. LOAD A COMPRESSED PICTURE...6.P.P
.1: . P.36 . 400...@.: . ".............L
OADING IMAGE";P;"OF 36".F.J.: . "GLOBE".
D((P.1).10).".CMP",8,1.L.T.:.H.... INIT
BIT MAP & COLOR.....DA.222:AD.1024:SZ.1
000:.7000: . CLEAR VM.D...DA.0 :AD.8192
:SZ.8000:.7000: . CLEAR HRBM.....V.13.40
96: . VIC...B..V.17,B(V.17)
.32:. SET BMM.3.L..V.24,B(V.24).8: . BM
@ $2000, VM @ $0400.Y.V..V.32,6:
. BRDR COLOR......8070:
. INIT DMA CTLR.....:...... CYCLE THRU
PICS ENDLESSLY......I.0.1:I.0......P.35
.0..1:.R.4,L(P):.R.5,H(P):.R.6,B(P):.R.1
,177:.......: ......:...X.. DMA BLOCK F
ILL ROUTINE.7.B.. ENTER WITH DA= DATA.
V.L.. AD= ADDRESS.T.V..
SZ= #BYTES......251,DA......R.
2,251:.R.3,0:.R.4,0:.R.5,0:.R.6,0.S....R
.7,1:.R.8,0:.R.9,0:.R.10,0:.R.1,176.....
H..(AD.256):L.AD.256.H:.R.2,L:.R.3,H....
..R.7,SZ.255:.R.8,SZ.256.8....R.9,0:.R.1
0,64:.R.1,177: ..>...:._.@.. INIT DMA CT
LR & PIC PARAMS...J.R.57088:
. DMA CONTROLLER.E.T.BS.8960:BE.152
00:D.BE.BS:. GLOBE PIC START/END/SIZE...
^..L(36),H(36),B(36) :. POINTERS TO S
TASHED PIC...H..I.0.35: Z.I.D.E.R.B..(Z.
65536):H..((Z.B.65536).256):L.Z.B.65536.
H.256.A.|.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.P....R.7,D.255:.
R.8,D.256:.R.9,0:.R.10,0.V.........:...(
#. VERIFY PRESENCE OF RAM CARD. .2#R.570
88: .R,0: .B(R)..16.9050.4.<#.I.2.5:.R.I
,I:..O.F#.I.2.5:.B(R.I)..I.9050.W.P#.:..
.Z#. ".. .RAM EXPANDER NOT PRESENT": ..
..
> CLICK IMAGE PREVIEW FOR FULL MODAL