HAUPTSCHL.SRC
FILE INFORMATION
FILENAME(S): HAUPTSCHL.SRC
FILE TYPE(S): SEQ
FILE SIZE: 1009b
FIRST SEEN: 2025-11-30 01:13:05
APPEARS ON: 1 disk(s)
FILE HASH
afee2e2daf297e7aef91cd61dccaee03da7659aaa2bbaffe50c56da80d3e87b8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10309 SEITE B | HAUPTSCHL.SRC | SEQ | C64er, earthshaker | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000020: 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 2D 2D 2D 2D 2D 2D |--------.;------| 00000030: 2D 2D 49 52 51 2D 48 41 55 50 54 53 43 48 4C 45 |--IRQ-HAUPTSCHLE| 00000040: 49 46 45 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |IFE-------------| 00000050: 2D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |-.;-------------| 00000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D 53 54 41 52 |----------..STAR| 00000080: 54 20 20 20 20 4C 44 41 20 59 53 43 52 4F 4C 4C |T LDA YSCROLL| 00000090: 20 20 20 3B 57 41 52 54 45 4E 20 42 49 53 0D 20 | ;WARTEN BIS. | 000000A0: 20 20 20 20 20 20 20 20 42 50 4C 20 53 54 41 52 | BPL STAR| 000000B0: 54 20 20 20 20 20 3B 55 4E 54 45 52 45 52 20 52 |T ;UNTERER R| 000000C0: 41 4E 44 0D 20 20 20 20 20 20 20 20 20 20 20 20 |AND. | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 3B 45 52 52 45 | ;ERRE| 000000E0: 49 43 48 54 0D 20 20 20 20 20 20 20 20 20 4C 44 |ICHT. LD| 000000F0: 41 20 23 24 31 41 20 20 20 20 20 20 3B 5A 45 49 |A #$1A ;ZEI| 00000100: 43 48 45 4E 53 41 54 5A 0D 20 20 20 20 20 20 20 |CHENSATZ. | 00000110: 20 20 53 54 41 20 43 48 41 52 53 45 54 20 20 20 | STA CHARSET | 00000120: 3B 55 4D 53 43 48 41 4C 54 45 4E 0D 20 20 20 20 |;UMSCHALTEN. | 00000130: 20 20 20 20 20 4C 44 41 20 23 24 43 38 20 20 20 | LDA #$C8 | 00000140: 20 20 20 3B 53 43 52 4F 4C 4C 52 45 47 0D 20 20 | ;SCROLLREG. | 00000150: 20 20 20 20 20 20 20 53 54 41 20 53 43 52 4F 4C | STA SCROL| 00000160: 4C 52 45 47 20 3B 53 45 54 5A 45 4E 0D 0D 20 20 |LREG ;SETZEN.. | 00000170: 20 20 20 20 20 20 20 4A 53 52 20 50 4C 41 59 4D | JSR PLAYM| 00000180: 55 53 49 43 20 3B 4D 55 53 49 4B 20 53 50 49 45 |USIC ;MUSIK SPIE| 00000190: 4C 45 4E 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |LEN.. LD| 000001A0: 41 20 23 24 33 38 20 20 20 20 20 20 3B 41 55 46 |A #$38 ;AUF| 000001B0: 20 52 41 53 54 45 52 4C 49 4E 45 0D 53 54 31 20 | RASTERLINE.ST1 | 000001C0: 20 20 20 20 20 43 4D 50 20 52 41 53 54 45 52 20 | CMP RASTER | 000001D0: 20 20 20 3B 24 33 38 0D 20 20 20 20 20 20 20 20 | ;$38. | 000001E0: 20 42 4E 45 20 53 54 31 20 20 20 20 20 20 20 3B | BNE ST1 ;| 000001F0: 57 41 52 54 45 4E 0D 0D 20 20 20 20 20 20 20 20 |WARTEN.. | 00000200: 20 4A 53 52 20 52 41 53 54 45 52 53 48 4F 57 3B | JSR RASTERSHOW;| 00000210: 52 41 53 54 45 52 2D 46 41 52 42 45 4E 0D 20 20 |RASTER-FARBEN. | 00000220: 20 20 20 20 20 20 20 4A 53 52 20 53 43 52 4F 4C | JSR SCROL| 00000230: 4C 20 20 20 20 3B 46 41 52 42 45 4E 20 53 43 52 |L ;FARBEN SCR| 00000240: 4F 4C 4C 45 4E 0D 0D 20 20 20 20 20 20 20 20 20 |OLLEN.. | 00000250: 4C 44 41 20 23 24 38 43 20 20 20 20 20 20 3B 41 |LDA #$8C ;A| 00000260: 55 46 20 52 41 53 54 45 52 4C 49 4E 45 0D 53 54 |UF RASTERLINE.ST| 00000270: 32 20 20 20 20 20 20 43 4D 50 20 52 41 53 54 45 |2 CMP RASTE| 00000280: 52 20 20 20 20 3B 24 38 43 0D 20 20 20 20 20 20 |R ;$8C. | 00000290: 20 20 20 42 4E 45 20 53 54 32 20 20 20 20 20 20 | BNE ST2 | 000002A0: 20 3B 57 41 52 54 45 4E 0D 0D 20 20 20 20 20 20 | ;WARTEN.. | 000002B0: 20 20 20 4C 44 41 20 23 24 31 43 20 20 20 20 20 | LDA #$1C | 000002C0: 20 3B 4B 4C 45 49 4E 45 4E 20 5A 45 49 43 48 45 | ;KLEINEN ZEICHE| 000002D0: 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 43 |N. STA C| 000002E0: 48 41 52 53 45 54 20 20 20 3B 53 41 54 5A 20 45 |HARSET ;SATZ E| 000002F0: 49 4E 0D 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |IN.. JSR| 00000300: 20 46 4C 41 53 48 20 20 20 20 20 3B 33 20 4C 49 | FLASH ;3 LI| 00000310: 4E 49 45 4E 20 46 4C 41 53 48 45 4E 0D 0D 20 20 |NIEN FLASHEN.. | 00000320: 20 20 20 20 20 20 20 4C 44 41 20 23 24 42 38 20 | LDA #$B8 | 00000330: 20 20 20 20 20 3B 41 55 46 20 52 41 53 54 45 52 | ;AUF RASTER| 00000340: 4C 49 4E 45 0D 53 54 33 20 20 20 20 20 20 43 4D |LINE.ST3 CM| 00000350: 50 20 52 41 53 54 45 52 20 20 20 20 3B 24 42 38 |P RASTER ;$B8| 00000360: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 53 54 |. BNE ST| 00000370: 33 20 20 20 20 20 20 20 3B 57 41 52 54 45 4E 0D |3 ;WARTEN.| 00000380: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 43 48 |. JSR CH| 00000390: 41 52 53 43 52 4F 4C 4C 3B 53 43 52 4F 4C 4C 52 |ARSCROLL;SCROLLR| 000003A0: 4F 55 54 49 4E 45 0D 20 20 20 20 20 20 20 20 20 |OUTINE. | 000003B0: 4A 53 52 20 43 48 41 52 46 4C 41 53 48 20 3B 46 |JSR CHARFLASH ;F| 000003C0: 41 52 42 53 43 52 4F 4C 4C 49 4E 47 0D 0D 20 20 |ARBSCROLLING.. | 000003D0: 20 20 20 20 20 20 20 4A 4D 50 20 4F 4C 44 49 52 | JMP OLDIR| 000003E0: 51 20 20 20 20 3B 41 4C 54 45 52 20 49 52 51 0D |Q ;ALTER IRQ.| 000003F0: 0D |. |
;---------------------------------------
.;--------IRQ-HAUPTSCHLEIFE-------------
-.;-------------------------------------
--..START LDA YSCROLL ;WARTEN BIS.
BPL START ;UNTERER RAND.
;ERREICHT. LD
A #$1A ;ZEICHENSATZ. STA CH
ARSET ;UMSCHALTEN. LDA #$C8
;SCROLLREG. STA SCROLLREG ;SE
TZEN.. JSR PLAYMUSIC ;MUSIK SPIE
LEN.. LDA #$38 ;AUF RASTERL
INE.ST1 CMP RASTER ;$38.
BNE ST1 ;WARTEN.. JSR RAS
TERSHOW;RASTER-FARBEN. JSR SCROL
L ;FARBEN SCROLLEN.. LDA #$8C
;AUF RASTERLINE.ST2 CMP RASTE
R ;$8C. BNE ST2 ;WARTEN
.. LDA #$1C ;KLEINEN ZEICHE
N. STA CHARSET ;SATZ EIN..
JSR FLASH ;3 LINIEN FLASHEN..
LDA #$B8 ;AUF RASTERLINE.ST3
CMP RASTER ;$B8. BNE ST
3 ;WARTEN.. JSR CHARSCROLL
;SCROLLROUTINE. JSR CHARFLASH ;F
ARBSCROLLING.. JMP OLDIRQ ;AL
TER IRQ..
> CLICK IMAGE PREVIEW FOR FULL MODAL