DEMO 1.SRC
FILE INFORMATION
FILENAME(S): DEMO 1.SRC
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 01:13:02
APPEARS ON: 2 disk(s)
FILE HASH
a7811a22a7ed709252d179b1a0c9ebc7e8f1d5fdfa9d66ed4f3b2f48017b40ae
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10108 SEITE A | DEMO 1.SRC | PRG | C64er | 33 | 4 | DOWNLOAD FILE |
| 10108 SEITE A | DEMO 1.SRC | PRG | BrainSkull, Sammlung | 33 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 0A 00 9E 33 36 38 36 34 00 18 08 14 |.......36864....|
00000010: 00 2E 4F 50 54 20 4F 4F 00 25 08 1E 00 AC B2 20 |..OPT OO.%..... |
00000020: 24 43 30 30 30 00 4F 08 28 00 3B 20 44 49 45 53 |$C000.O.(.; DIES|
00000030: 45 53 20 50 52 4F 47 52 41 4D 4D 20 96 49 4E 49 |ES PROGRAMM .INI|
00000040: 45 52 54 20 45 49 4E 45 4E 20 4E 45 55 45 4E 00 |ERT EINEN NEUEN.|
00000050: 7B 08 2A 00 3B 20 42 41 53 49 43 AB 42 45 46 45 |{.*.; BASIC.BEFE|
00000060: 48 4C 20 4E 41 4D 45 4E 53 20 21 53 2E 20 44 49 |HL NAMENS !S. DI|
00000070: 45 53 45 52 20 42 45 46 45 48 4C 00 93 08 2C 00 |ESER BEFEHL...,.|
00000080: 3B 20 45 52 5A 45 55 47 54 20 45 49 4E 45 4E 20 |; ERZEUGT EINEN |
00000090: A4 4E 2E 00 BA 08 2E 00 3B 20 4E 49 4B 4F 4C 41 |.N......; NIKOLA|
000000A0: 55 53 20 48 45 55 53 4C 45 52 2C 20 4D 55 45 4E |US HEUSLER, MUEN|
000000B0: 43 48 45 4E 2C 20 33 2E 39 31 00 DF 08 64 00 49 |CHEN, 3.91...d.I|
000000C0: 42 41 53 20 B2 37 37 36 3B 56 45 4B A4 52 20 46 |BAS .776;VEK.R F|
000000D0: 55 45 52 20 42 41 53 49 43 42 45 46 45 48 4C 00 |UER BASICBEFEHL.|
000000E0: 03 09 6E 00 43 48 52 A1 20 B2 31 31 35 3B 4E 41 |..n.CHR. .115;NA|
000000F0: 45 43 48 53 54 45 53 20 5A 45 49 43 48 45 4E 20 |ECHSTES ZEICHEN |
00000100: 48 4F C3 00 23 09 78 00 B5 45 52 20 B2 24 41 37 |HO..#.x..ER .$A7|
00000110: 41 45 3B B5 45 52 50 52 45 54 45 52 53 43 48 4C |AE;.ERPRETERSCHL|
00000120: 45 8B 45 00 52 09 82 00 4F 4C 44 42 41 53 20 B2 |E.E.R...OLDBAS .|
00000130: 24 41 37 45 37 3B 41 4C 54 45 4E 20 42 41 53 49 |$A7E7;ALTEN BASI|
00000140: 43 42 45 46 45 48 4C 20 42 45 41 52 42 45 49 54 |CBEFEHL BEARBEIT|
00000150: 45 4E 00 70 09 96 00 53 59 4E 54 41 58 20 B2 24 |EN.p...SYNTAX .$|
00000160: 41 46 30 38 3B 53 59 4E 54 41 58 20 45 52 52 B0 |AF08;SYNTAX ERR.|
00000170: 00 96 09 A0 00 53 49 44 20 B2 35 34 32 37 32 3B |.....SID .54272;|
00000180: 53 4F 55 4E 44 43 48 49 50 20 42 41 53 49 53 41 |SOUNDCHIP BASISA|
00000190: 44 52 45 53 53 45 00 B6 09 C8 00 3B 20 AB AB AB |DRESSE.....; ...|
000001A0: 20 4E 45 55 45 4E 20 42 45 46 45 48 4C 20 96 49 | NEUEN BEFEHL .I|
000001B0: 4E 49 45 52 45 4E 00 F3 09 2C 01 4C 44 41 20 23 |NIEREN...,.LDA #|
000001C0: B3 4E 45 55 42 45 46 3A 4C 44 59 20 23 B1 4E 45 |.NEUBEF:LDY #.NE|
000001D0: 55 42 45 46 3B 5A 45 49 47 45 52 20 41 55 46 20 |UBEF;ZEIGER AUF |
000001E0: 4E 45 55 45 20 42 45 46 45 48 4C 53 52 4F 55 54 |NEUE BEFEHLSROUT|
000001F0: 49 4E 45 00 1B 0A 36 01 53 54 41 20 49 42 41 53 |INE...6.STA IBAS|
00000200: 3A 53 54 59 20 49 42 41 53 AA 31 3B 56 45 4B A4 |:STY IBAS.1;VEK.|
00000210: 52 20 56 45 52 42 49 45 47 45 4E 00 2E 0A 40 01 |R VERBIEGEN...@.|
00000220: 52 54 53 3B 55 4E 44 20 46 45 52 54 49 47 00 55 |RTS;UND FERTIG.U|
00000230: 0A 4A 01 3B 20 AB AB AB 20 4E 45 55 45 4E 20 42 |.J.; ... NEUEN B|
00000240: 41 53 49 43 42 45 46 45 48 4C 20 41 55 53 46 55 |ASICBEFEHL AUSFU|
00000250: 45 48 52 45 4E 00 7C 0A 54 01 4E 45 55 42 45 46 |EHREN.|.T.NEUBEF|
00000260: 20 4A 53 52 20 43 48 52 A1 3B 45 52 53 54 45 53 | JSR CHR.;ERSTES|
00000270: 20 5A 45 49 43 48 45 4E 20 48 4F C3 00 A0 0A 5E | ZEICHEN HO....^|
00000280: 01 43 4D 50 20 23 33 33 3B 57 41 52 20 45 53 20 |.CMP #33;WAR ES |
00000290: 44 41 53 20 41 B7 55 46 45 5A 45 49 43 48 45 4E |DAS A.UFEZEICHEN|
000002A0: 00 C3 0A 68 01 42 45 51 20 43 41 4C 4C 3B 4A 41 |...h.BEQ CALL;JA|
000002B0: 2C 20 44 41 4E 4E 20 4E 45 55 45 52 20 42 45 46 |, DANN NEUER BEF|
000002C0: 45 48 4C 00 01 0B 72 01 B0 41 20 23 30 3B 53 91 |EHL...r..A #0;S.|
000002D0: 53 54 20 46 4C 41 47 53 20 53 45 54 5A 45 4E 3A |ST FLAGS SETZEN:|
000002E0: 4A 4D 50 20 4F 4C 44 42 41 53 3B 55 4E 44 20 4E |JMP OLDBAS;UND N|
000002F0: B0 4D 41 4C 20 57 45 49 54 45 52 4D 41 43 48 45 |.MAL WEITERMACHE|
00000300: 4E 00 20 0B 7C 01 3B 20 AB AB AB 20 41 B7 55 46 |N. .|.; ... A.UF|
00000310: 45 5A 45 49 43 48 45 4E 20 45 52 4B 41 4E 4E 54 |EZEICHEN ERKANNT|
00000320: 00 47 0B 86 01 43 41 4C 4C 20 4A 53 52 20 43 48 |.G...CALL JSR CH|
00000330: 52 A1 3B 5A 45 49 43 48 45 4E 20 4E 41 43 48 20 |R.;ZEICHEN NACH |
00000340: 27 21 27 20 48 4F C3 00 68 0B 90 01 43 4D 50 20 |'!' HO..h...CMP |
00000350: 23 38 33 3B 42 55 43 48 53 54 41 42 45 20 27 53 |#83;BUCHSTABE 'S|
00000360: 27 20 54 45 53 54 45 4E 00 8A 0B 9A 01 42 45 51 |' TESTEN.....BEQ|
00000370: 20 53 54 49 4D 4D 54 3B 4A 41 2C 20 44 41 4E 4E | STIMMT;JA, DANN|
00000380: 20 21 53 20 42 45 46 45 48 4C 00 BB 0B A4 01 4A | !S BEFEHL.....J|
00000390: 4D 50 20 53 59 4E 54 41 58 3B 53 91 53 54 20 53 |MP SYNTAX;S.ST S|
000003A0: 59 4E 54 41 58 20 45 52 52 B0 20 41 55 53 47 45 |YNTAX ERR. AUSGE|
000003B0: 42 45 4E 2C 20 46 45 52 54 49 47 00 DD 0B AE 01 |BEN, FERTIG.....|
000003C0: 3B 20 AB AB AB 20 21 53 20 42 45 46 45 48 4C 20 |; ... !S BEFEHL |
000003D0: AB 20 A4 4E 20 41 55 53 47 45 42 45 4E 00 0D 0C |. .N AUSGEBEN...|
000003E0: B8 01 53 54 49 4D 4D 54 20 4C 44 41 20 23 30 3A |..STIMMT LDA #0:|
000003F0: 4C 44 58 20 23 32 34 3B 53 49 44 AB 52 45 47 49 |LDX #24;SID.REGI|
00000400: 53 54 45 52 20 4C 4F 45 53 43 48 45 4E 00 53 0C |STER LOESCHEN.S.|
00000410: C2 01 9C 53 49 44 20 53 54 41 20 53 49 44 2C 58 |...SID STA SID,X|
00000420: 3A 44 45 58 3B 4C 4F 45 53 43 48 AB 53 43 48 4C |:DEX;LOESCH.SCHL|
00000430: 45 8B 45 3A 42 50 4C 20 9C 53 49 44 3B 41 4C 4C |E.E:BPL .SID;ALL|
00000440: 45 20 52 45 47 49 53 54 45 52 20 41 55 46 20 4E |E REGISTER AUF N|
00000450: 55 4C 4C 00 79 0C CC 01 4C 44 41 20 23 31 35 3A |ULL.y...LDA #15:|
00000460: 53 54 41 20 53 49 44 AA 32 34 3B 4C 41 55 54 53 |STA SID.24;LAUTS|
00000470: 54 41 45 52 4B 45 20 31 35 00 A2 0C D6 01 4C 44 |TAERKE 15.....LD|
00000480: 41 20 23 31 30 30 3A 53 54 41 20 53 49 44 AA 31 |A #100:STA SID.1|
00000490: 3B A4 4E 48 4F 45 48 45 20 46 45 53 54 4C 45 47 |;.NHOEHE FESTLEG|
000004A0: 45 4E 00 C0 0C E0 01 4C 44 41 20 23 32 34 30 3A |EN.....LDA #240:|
000004B0: 53 54 41 20 53 49 44 AA 36 3B 57 45 4C C3 81 4D |STA SID.6;WEL..M|
000004C0: 00 E5 0C EA 01 4C 44 41 20 23 31 37 3A 53 54 41 |.....LDA #17:STA|
000004D0: 20 53 49 44 AA 34 3B A4 4E 20 45 49 4E 53 43 48 | SID.4;.N EINSCH|
000004E0: 41 4C 54 45 4E 00 04 0D F4 01 4C 44 58 20 23 30 |ALTEN.....LDX #0|
000004F0: 3A 4C 44 59 20 23 30 3B 57 41 52 54 45 53 43 48 |:LDY #0;WARTESCH|
00000500: 4C 45 8B 45 00 39 0D FE 01 92 20 4E 4F 50 3A 44 |LE.E.9.... NOP:D|
00000510: 45 58 3A 42 4E 45 20 92 3A 44 45 59 3A 42 4E 45 |EX:BNE .:DEY:BNE|
00000520: 20 92 3B 57 41 52 54 45 54 20 43 41 2E 20 31 AD | .;WARTET CA. 1.|
00000530: 32 20 53 45 4B 55 4E 44 45 00 5E 0D 08 02 4C 44 |2 SEKUNDE.^...LD|
00000540: 41 20 23 31 36 3A 53 54 41 20 53 49 44 AA 34 3B |A #16:STA SID.4;|
00000550: A4 4E 20 41 55 53 53 43 48 41 4C 54 45 4E 00 94 |.N AUSSCHALTEN..|
00000560: 0D 12 02 4A 53 52 20 43 48 52 A1 3A 4A 4D 50 20 |...JSR CHR.:JMP |
00000570: B5 45 52 3B 42 45 46 45 48 4C 20 46 45 52 54 49 |.ER;BEFEHL FERTI|
00000580: 47 2C 20 57 45 49 54 45 52 20 57 49 45 20 47 45 |G, WEITER WIE GE|
00000590: 48 41 42 54 00 00 00 |HABT... |
.......36864......OPT OO.%..... $C000.O.
(.; DIESES PROGRAMM .INIERT EINEN NEUEN.
{.*.; BASIC.BEFEHL NAMENS !S. DIESER BEF
EHL...,.; ERZEUGT EINEN .N......; NIKOLA
US HEUSLER, MUENCHEN, 3.91...D.IBAS .776
;VEK.R FUER BASICBEFEHL...N.CHR. .115;NA
ECHSTES ZEICHEN HOC.#.X..ER .$A7AE;.ERPR
ETERSCHLE.E.R...OLDBAS .$A7E7;ALTEN BASI
CBEFEHL BEARBEITEN.P...SYNTAX .$AF08;SYN
TAX ERR.... .SID .54272;SOUNDCHIP BASISA
DRESSE...H.; ... NEUEN BEFEHL .INIEREN..
.,.LDA #.NEUBEF:LDY #.NEUBEF;ZEIGER AUF
NEUE BEFEHLSROUTINE...6.STA IBAS:STY IBA
S.1;VEK.R VERBIEGEN...@.RTS;UND FERTIG.U
.J.; ... NEUEN BASICBEFEHL AUSFUEHREN.|.
T.NEUBEF JSR CHR.;ERSTES ZEICHEN HOC. .^
.CMP #33;WAR ES DAS A.UFEZEICHEN.C.H.BEQ
CALL;JA, DANN NEUER BEFEHL...R..A #0;S.
ST FLAGS SETZEN:JMP OLDBAS;UND N.MAL WEI
TERMACHEN. .|.; ... A.UFEZEICHEN ERKANNT
.G...CALL JSR CHR.;ZEICHEN NACH '!' HOC.
H...CMP #83;BUCHSTABE 'S' TESTEN.....BEQ
STIMMT;JA, DANN !S BEFEHL.....JMP SYNTA
X;S.ST SYNTAX ERR. AUSGEBEN, FERTIG.....
; ... !S BEFEHL . .N AUSGEBEN.....STIMMT
LDA #0:LDX #24;SID.REGISTER LOESCHEN.S.
B..SID STA SID,X:DEX;LOESCH.SCHLE.E:BPL
.SID;ALLE REGISTER AUF NULL.Y.L.LDA #15:
STA SID.24;LAUTSTAERKE 15...V.LDA #100:S
TA SID.1;.NHOEHE FESTLEGEN.....LDA #240:
STA SID.6;WELC.M.....LDA #17:STA SID.4;.
N EINSCHALTEN.....LDX #0:LDY #0;WARTESCH
LE.E.9.... NOP:DEX:BNE .:DEY:BNE .;WARTE
T CA. 1.2 SEKUNDE.^...LDA #16:STA SID.4;
.N AUSSCHALTEN.....JSR CHR.:JMP .ER;BEFE
HL FERTIG, WEITER WIE GEHABT...
> CLICK IMAGE PREVIEW FOR FULL MODAL