INIT.SRC
FILE INFORMATION
FILENAME(S): INIT.SRC
FILE TYPE(S): SEQ
FILE SIZE: 1.1K
FIRST SEEN: 2025-11-30 01:13:05
APPEARS ON: 1 disk(s)
FILE HASH
789c114515fb3bbef536d4543c4a51866bad4c624de7e8009ec8a34e03eca04c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10309 SEITE B | INIT.SRC | SEQ | C64er, earthshaker | 16 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 49 4E 49 54 20 20 20 20 20 4C 44 41 20 23 24 43 |INIT LDA #$C| 00000010: 37 20 20 20 20 20 20 20 3B 48 49 4C 46 53 52 45 |7 ;HILFSRE| 00000020: 47 49 53 54 45 52 0D 20 20 20 20 20 20 20 20 20 |GISTER. | 00000030: 53 54 41 20 53 43 52 48 45 4C 50 20 20 20 20 3B |STA SCRHELP ;| 00000040: 53 45 54 5A 45 4E 0D 0D 20 20 20 20 20 20 20 20 |SETZEN.. | 00000050: 20 4C 44 41 20 23 24 30 30 20 20 20 20 20 20 20 | LDA #$00 | 00000060: 3B 43 4F 55 4E 54 45 52 0D 20 20 20 20 20 20 20 |;COUNTER. | 00000070: 20 20 53 54 41 20 46 4C 41 53 48 43 4F 55 4E 54 | STA FLASHCOUNT| 00000080: 20 3B 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E | ;INITIALISIEREN| 00000090: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 46 4C |. STA FL| 000000A0: 41 53 48 43 4F 55 4E 54 32 3B 0D 20 20 20 20 20 |ASHCOUNT2;. | 000000B0: 20 20 20 20 53 54 41 20 24 44 30 32 30 20 20 20 | STA $D020 | 000000C0: 20 20 20 3B 53 43 52 45 45 4E 20 55 4E 44 0D 20 | ;SCREEN UND. | 000000D0: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 32 | STA $D02| 000000E0: 31 20 20 20 20 20 20 3B 46 52 41 4D 45 20 53 43 |1 ;FRAME SC| 000000F0: 48 57 41 52 5A 0D 20 20 20 20 20 20 20 20 20 4C |HWARZ. L| 00000100: 44 41 20 23 24 30 30 20 20 20 20 20 20 20 3B 53 |DA #$00 ;S| 00000110: 43 48 57 41 52 5A 45 53 0D 20 20 20 20 20 20 20 |CHWARZES. | 00000120: 20 20 53 54 41 20 24 30 32 38 36 20 20 20 20 20 | STA $0286 | 00000130: 20 3B 46 41 52 42 52 41 4D 0D 20 20 20 20 20 20 | ;FARBRAM. | 00000140: 20 20 20 4A 53 52 20 24 45 35 34 34 20 20 20 20 | JSR $E544 | 00000150: 20 20 3B 53 43 52 45 45 4E 20 4C 4F 45 53 43 48 | ;SCREEN LOESCH| 00000160: 45 4E 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 58 |EN.. LDX| 00000170: 20 23 24 30 30 20 20 20 20 20 20 20 3B 22 44 45 | #$00 ;"DE| 00000180: 4D 4F 20 54 45 53 54 0D 49 4E 49 54 31 20 20 20 |MO TEST.INIT1 | 00000190: 20 4C 44 41 20 53 43 52 45 45 4E 31 2C 58 20 20 | LDA SCREEN1,X | 000001A0: 3B 20 47 52 4F 53 53 45 52 0D 20 20 20 20 20 20 |; GROSSER. | 000001B0: 20 20 20 53 54 41 20 24 30 34 35 34 2C 58 20 20 | STA $0454,X | 000001C0: 20 20 3B 20 5A 45 49 43 48 45 4E 53 41 54 5A 22 | ; ZEICHENSATZ"| 000001D0: 0D 20 20 20 20 20 20 20 20 20 49 4E 58 20 20 20 |. INX | 000001E0: 20 20 20 20 20 20 20 20 20 3B 41 55 46 20 44 45 | ;AUF DE| 000001F0: 4E 0D 20 20 20 20 20 20 20 20 20 43 50 58 20 23 |N. CPX #| 00000200: 24 45 43 20 20 20 20 20 20 20 3B 42 49 4C 44 53 |$EC ;BILDS| 00000210: 43 48 49 52 4D 0D 20 20 20 20 20 20 20 20 20 42 |CHIRM. B| 00000220: 4E 45 20 49 4E 49 54 31 20 20 20 20 20 20 3B 53 |NE INIT1 ;S| 00000230: 43 48 52 45 49 42 45 4E 0D 0D 20 20 20 20 20 20 |CHREIBEN.. | 00000240: 20 20 20 4C 44 58 20 23 24 37 37 20 20 20 20 20 | LDX #$77 | 00000250: 20 20 3B 22 4B 4C 45 49 4E 45 52 0D 49 4E 49 54 | ;"KLEINER.INIT| 00000260: 33 20 20 20 20 4C 44 41 20 53 43 52 45 45 4E 32 |3 LDA SCREEN2| 00000270: 2C 58 20 20 3B 20 5A 45 49 43 48 45 4E 53 41 54 |,X ; ZEICHENSAT| 00000280: 5A 22 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |Z". STA | 00000290: 24 30 36 30 38 2C 58 20 20 20 20 3B 41 55 46 20 |$0608,X ;AUF | 000002A0: 44 45 4E 0D 20 20 20 20 20 20 20 20 20 44 45 58 |DEN. DEX| 000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 42 49 4C | ;BIL| 000002C0: 44 53 43 48 49 52 4D 0D 20 20 20 20 20 20 20 20 |DSCHIRM. | 000002D0: 20 42 50 4C 20 49 4E 49 54 33 20 20 20 20 20 20 | BPL INIT3 | 000002E0: 3B 53 43 48 52 45 49 42 45 4E 0D 0D 20 20 20 20 |;SCHREIBEN.. | 000002F0: 20 20 20 20 20 4C 44 58 20 23 24 32 37 20 20 20 | LDX #$27 | 00000300: 20 20 20 20 3B 46 41 52 42 54 41 42 45 4C 4C 45 | ;FARBTABELLE| 00000310: 0D 49 4E 49 54 34 20 20 20 20 4C 44 41 20 46 4C |.INIT4 LDA FL| 00000320: 41 53 48 54 41 42 32 2C 58 3B 49 4E 20 43 4F 4C |ASHTAB2,X;IN COL| 00000330: 4F 52 2D 52 41 4D 0D 20 20 20 20 20 20 20 20 20 |OR-RAM. | 00000340: 53 54 41 20 24 44 42 32 30 2C 58 20 20 20 20 3B |STA $DB20,X ;| 00000350: 53 43 48 52 45 49 42 45 4E 0D 20 20 20 20 20 20 |SCHREIBEN. | 00000360: 20 20 20 44 45 58 20 20 20 20 20 20 20 20 20 20 | DEX | 00000370: 20 20 3B 28 46 55 45 52 27 53 0D 20 20 20 20 20 | ;(FUER'S. | 00000380: 20 20 20 20 42 50 4C 20 49 4E 49 54 34 20 20 20 | BPL INIT4 | 00000390: 20 20 20 3B 46 41 52 42 53 43 52 4F 4C 4C 49 4E | ;FARBSCROLLIN| 000003A0: 47 29 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |G).. LDA| 000003B0: 20 23 24 43 37 20 20 20 20 20 20 20 3B 53 43 52 | #$C7 ;SCR| 000003C0: 4F 4C 4C 52 45 47 49 53 54 45 52 0D 20 20 20 20 |OLLREGISTER. | 000003D0: 20 20 20 20 20 53 54 41 20 53 43 52 4F 4C 4C 52 | STA SCROLLR| 000003E0: 45 47 20 20 3B 53 45 54 5A 45 4E 0D 20 20 20 20 |EG ;SETZEN. | 000003F0: 20 20 20 20 20 4C 44 41 20 23 24 31 43 20 20 20 | LDA #$1C | 00000400: 20 20 20 20 3B 5A 45 49 43 48 45 4E 53 41 54 5A | ;ZEICHENSATZ| 00000410: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 43 48 |. STA CH| 00000420: 41 52 53 45 54 20 20 20 20 3B 41 4E 53 43 48 41 |ARSET ;ANSCHA| 00000430: 4C 54 45 4E 0D 20 20 20 20 20 20 20 20 20 52 54 |LTEN. RT| 00000440: 53 20 20 20 20 20 20 20 20 20 20 20 20 3B 45 4E |S ;EN| 00000450: 44 45 0D 0D |DE.. |
INIT LDA #$C7 ;HILFSREGISTER.
STA SCRHELP ;SETZEN..
LDA #$00 ;COUNTER. STA FL
ASHCOUNT ;INITIALISIEREN. STA FL
ASHCOUNT2;. STA $D020 ;SCRE
EN UND. STA $D021 ;FRAME SC
HWARZ. LDA #$00 ;SCHWARZES
. STA $0286 ;FARBRAM.
JSR $E544 ;SCREEN LOESCHEN..
LDX #$00 ;"DEMO TEST.INIT1
LDA SCREEN1,X ; GROSSER. STA $
0454,X ; ZEICHENSATZ". INX
;AUF DEN. CPX #$EC
;BILDSCHIRM. BNE INIT1 ;S
CHREIBEN.. LDX #$77 ;"KLEI
NER.INIT3 LDA SCREEN2,X ; ZEICHENSAT
Z". STA $0608,X ;AUF DEN.
DEX ;BILDSCHIRM.
BPL INIT3 ;SCHREIBEN.. LDX
#$27 ;FARBTABELLE.INIT4 LDA FL
ASHTAB2,X;IN COLOR-RAM. STA $DB2
0,X ;SCHREIBEN. DEX
;(FUER'S. BPL INIT4 ;FARB
SCROLLING).. LDA #$C7 ;SCR
OLLREGISTER. STA SCROLLREG ;SET
ZEN. LDA #$1C ;ZEICHENSATZ
. STA CHARSET ;ANSCHALTEN.
RTS ;ENDE..
> CLICK IMAGE PREVIEW FOR FULL MODAL