PRG 4.BAS
FILE INFORMATION
FILENAME(S): PRG 4.BAS
FILE TYPE(S): PRG
FILE SIZE: 578b
FIRST SEEN: 2025-10-20 14:29:51
APPEARS ON: 2 disk(s)
FILE HASH
32d94e850131a074a71d11dc13ace42ff0efbc166d061c550db3174b9667a0e1
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15832 SEITE A | PRG 4.BAS | PRG | C64er, Treasure Chest - Klaus Der Suhler | 17 | 4 | DOWNLOAD FILE |
| 15832 SEITE A | PRG 4.BAS | PRG | DuncanTwain | 17 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 2C 40 0A 00 8F 20 2A 2A 2A 20 49 4E 49 54 |.@,@... *** INIT|
00000010: 49 41 4C 49 53 49 45 52 55 4E 47 20 44 45 52 20 |IALISIERUNG DER |
00000020: 44 49 53 4B 45 54 54 45 20 2A 2A 2A 00 57 40 0F |DISKETTE ***.W@.|
00000030: 00 8F 20 2A 2A 2A 20 56 4F 52 20 44 45 4D 20 45 |.. *** VOR DEM E|
00000040: 52 53 54 45 4E 20 42 55 52 53 54 2D 5A 55 47 52 |RSTEN BURST-ZUGR|
00000050: 49 46 46 20 2A 2A 2A 00 86 40 14 00 8F 20 2A 2A |IFF ***..@... **|
00000060: 2A 20 55 4E 44 20 4E 41 43 48 20 44 49 53 4B 45 |* UND NACH DISKE|
00000070: 54 54 45 4E 57 45 43 48 45 4C 53 20 4E 4F 45 54 |TTENWECHELS NOET|
00000080: 49 47 20 2A 2A 2A 00 8F 40 19 00 55 4E B2 39 00 |IG ***..@..UN.9.|
00000090: B1 40 1E 00 FE 11 22 42 55 52 53 54 2D 54 4F 4F |.@...."BURST-TOO|
000000A0: 4C 2E 4F 42 4A 22 2C 20 42 30 2C 20 55 28 55 4E |L.OBJ", B0, U(UN|
000000B0: 29 00 C9 40 23 00 8F 20 2A 42 55 52 53 54 2D 54 |)..@#.. *BURST-T|
000000C0: 4F 4F 4C 20 4C 41 44 45 4E 00 D9 40 28 00 41 B2 |OOL LADEN..@(.A.|
000000D0: D1 28 22 31 34 33 30 22 29 00 07 41 2D 00 8F 20 |.("1430")..A-.. |
000000E0: 2A 41 42 20 24 31 34 33 30 20 4D 55 53 53 20 44 |*AB $1430 MUSS D|
000000F0: 45 52 20 42 45 46 45 48 4C 53 53 54 52 49 4E 47 |ER BEFEHLSSTRING|
00000100: 20 53 54 45 48 45 4E 00 29 41 32 00 97 41 2C 20 | STEHEN.)A2..A, |
00000110: 38 35 20 3A 20 97 20 41 AA 31 2C 20 34 38 20 3A |85 : . A.1, 48 :|
00000120: 20 97 20 41 AA 32 2C 20 34 00 57 41 37 00 8F 20 | . A.2, 4.WA7.. |
00000130: 2A 42 45 46 45 48 4C 20 5A 55 4D 20 49 4E 49 54 |*BEFEHL ZUM INIT|
00000140: 49 41 4C 49 53 49 45 52 45 4E 20 44 45 52 20 44 |IALISIEREN DER D|
00000150: 49 53 4B 45 54 54 45 00 67 41 3C 00 9F 20 31 2C |ISKETTE.gA<.. 1,|
00000160: 20 55 4E 2C 20 31 35 00 93 41 41 00 8F 20 2A 42 | UN, 15..AA.. *B|
00000170: 45 46 45 48 4C 53 4B 41 4E 41 4C 20 4F 45 46 46 |EFEHLSKANAL OEFF|
00000180: 4E 45 4E 20 28 44 41 54 45 49 4E 55 4D 4D 45 52 |NEN (DATEINUMMER|
00000190: 3D 31 29 00 A7 41 46 00 9E 20 D1 28 22 32 32 30 |=1)..AF.. .("220|
000001A0: 30 22 29 2C 2C 2C 33 00 DC 41 4B 00 8F 20 2A 44 |0"),,,3..AK.. *D|
000001B0: 49 45 20 52 4F 55 54 49 4E 45 20 22 42 45 46 45 |IE ROUTINE "BEFE|
000001C0: 48 4C 20 53 45 4E 44 45 4E 22 20 42 45 47 49 4E |HL SENDEN" BEGIN|
000001D0: 4E 54 20 42 45 49 20 24 32 32 30 30 00 18 42 4C |NT BEI $2200..BL|
000001E0: 00 8F 20 2A 49 4D 20 59 2D 52 45 47 49 53 54 45 |.. *IM Y-REGISTE|
000001F0: 52 20 57 49 52 44 20 44 49 45 20 4C 41 45 4E 47 |R WIRD DIE LAENG|
00000200: 45 20 44 45 53 20 42 45 46 45 48 4C 53 20 55 45 |E DES BEFEHLS UE|
00000210: 42 45 52 47 45 42 45 4E 00 20 42 50 00 A0 20 31 |BERGEBEN. BP.. 1|
00000220: 00 3F 42 55 00 8F 20 2A 42 45 46 45 48 4C 53 4B |.?BU.. *BEFEHLSK|
00000230: 41 4E 41 4C 20 53 43 48 4C 49 45 53 53 45 4E 00 |ANAL SCHLIESSEN.|
00000240: 00 00 |.. |
.@,@... *** INITIALISIERUNG DER DISKETTE
***.W@... *** VOR DEM ERSTEN BURST-ZUGR
IFF ***..@... *** UND NACH DISKETTENWECH
ELS NOETIG ***..@..UN.9..@...."BURST-TOO
L.OBJ", B0, U(UN).I@#.. *BURST-TOOL LADE
N.Y@(.A.Q("1430")..A-.. *AB $1430 MUSS D
ER BEFEHLSSTRING STEHEN.)A2..A, 85 : . A
.1, 48 : . A.2, 4.WA7.. *BEFEHL ZUM INIT
IALISIEREN DER DISKETTE.GA<.. 1, UN, 15.
.AA.. *BEFEHLSKANAL OEFFNEN (DATEINUMMER
=1)..AF.. Q("2200"),,,3..AK.. *DIE ROUTI
NE "BEFEHL SENDEN" BEGINNT BEI $2200..BL
.. *IM Y-REGISTER WIRD DIE LAENGE DES BE
FEHLS UEBERGEBEN. BP. 1.?BU.. *BEFEHLSK
ANAL SCHLIESSEN...
> CLICK IMAGE PREVIEW FOR FULL MODAL