SCREEN.SRC

FILE INFORMATION

FILENAME(S): SCREEN.SRC

FILE TYPE(S): PRG

FILE SIZE: 1.5K

FIRST SEEN: 2025-11-30 21:23:14

APPEARS ON: 1 disk(s)

FILE HASH

02b35050399e096d2cdbb5220e50d1a921f6fa28f62840321a46ecaf96038917

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C64 HULP 1 1	SCREEN.SRC	PRG	DuncanTwain	12	10	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0E 08 5A 00 9E 20  38 AC 34 30 39 36 00 1C  |....Z.. 8.4096..|
00000010: 08 64 00 2E 4F 50 54 20  50 2C 4F 4F 00 22 08 6E  |.d..OPT P,OO.".n|
00000020: 00 3B 00 44 08 78 00 3B  20 42 49 4C 44 53 43 48  |.;.D.x.; BILDSCH|
00000030: 49 52 4D 53 45 49 54 45  4E 20 55 4D 53 43 48 41  |IRMSEITEN UMSCHA|
00000040: 4C 54 45 4E 00 4A 08 82  00 3B 00 57 08 8C 00 50  |LTEN.J...;.W...P|
00000050: 4E 54 31 20 B2 20 33 00  64 08 96 00 50 4E 54 32  |NT1 . 3.d...PNT2|
00000060: 20 B2 20 35 00 79 08 A0  00 56 49 44 45 4F 4D 41  | . 5.y...VIDEOMA|
00000070: 50 20 B2 20 24 44 44 30  30 00 8C 08 AA 00 56 49  |P . $DD00.....VI|
00000080: 44 45 4F 50 47 45 20 B2  20 36 34 38 00 9E 08 B4  |DEOPGE . 648....|
00000090: 00 49 52 51 56 45 43 20  B2 20 24 33 31 34 00 B1  |.IRQVEC . $314..|
000000A0: 08 BE 00 49 52 51 41 4C  54 20 B2 20 24 45 41 33  |...IRQALT . $EA3|
000000B0: 31 00 C5 08 C8 00 43 48  41 52 47 45 4E 20 B2 20  |1.....CHARGEN . |
000000C0: 24 44 30 30 30 00 D6 08  D2 00 43 4F 4C B0 20 B2  |$D000.....COL. .|
000000D0: 20 24 44 38 30 30 00 00  09 DC 00 43 4F 4C B0 32  | $D800.....COL.2|
000000E0: 20 B2 20 24 43 30 30 30  20 3B 20 53 50 45 49 43  | . $C000 ; SPEIC|
000000F0: 48 45 52 20 46 55 45 52  20 46 41 52 42 52 41 4D  |HER FUER FARBRAM|
00000100: 00 1A 09 E6 00 50 B0 54  20 B2 20 31 20 3B 20 50  |.....P.T . 1 ; P|
00000110: 52 4F 5A 45 53 53 B0 50  B0 54 00 3A 09 F0 00 43  |ROZESS.P.T.:...C|
00000120: 54 52 4C 20 B2 20 36 35  33 20 3B 20 46 4C 41 47  |TRL . 653 ; FLAG|
00000130: 20 46 55 45 52 20 9A 52  4F 4C 00 55 09 FA 00 4B  | FUER .ROL.U...K|
00000140: 45 59 20 B2 20 24 43 35  20 3B 20 88 5A 54 45 20  |EY . $C5 ; .ZTE |
00000150: 54 41 53 54 45 00 6F 09  04 01 46 31 20 B2 20 34  |TASTE.o...F1 . 4|
00000160: 20 3B 20 4D 41 54 52 49  58 4E 55 4D 4D 45 52 00  | ; MATRIXNUMMER.|
00000170: 75 09 0E 01 3B 00 80 09  18 01 AC B2 20 38 32 38  |u...;....... 828|
00000180: 00 86 09 22 01 3B 00 93  09 2C 01 49 4E 49 54 20  |...".;...,.INIT |
00000190: 53 45 49 00 C0 09 36 01  4A 53 52 20 53 45 54 43  |SEI...6.JSR SETC|
000001A0: 48 41 52 20 3B 20 43 48  41 52 41 43 54 45 52 47  |HAR ; CHARACTERG|
000001B0: 45 4E 45 52 41 A4 52 20  4B 4F 50 49 45 52 45 4E  |ENERA.R KOPIEREN|
000001C0: 00 D0 09 40 01 4C 44 41  20 23 B3 20 54 45 53 54  |...@.LDA #. TEST|
000001D0: 00 E0 09 4A 01 4C 44 59  20 23 B1 20 54 45 53 54  |...J.LDY #. TEST|
000001E0: 00 EF 09 54 01 53 54 41  20 49 52 51 56 45 43 00  |...T.STA IRQVEC.|
000001F0: 00 0A 5E 01 53 54 59 20  49 52 51 56 45 43 AA 31  |..^.STY IRQVEC.1|
00000200: 00 08 0A 68 01 43 4C 49  00 10 0A 72 01 52 54 53  |...h.CLI...r.RTS|
00000210: 00 16 0A 7C 01 3B 00 3E  0A 86 01 54 45 53 54 20  |...|.;.>...TEST |
00000220: 4C 44 41 20 43 54 52 4C  20 3B 20 9A 52 4F 4C 54  |LDA CTRL ; .ROLT|
00000230: 41 53 54 45 20 47 45 44  52 55 45 43 4B 54 00 4A  |ASTE GEDRUECKT.J|
00000240: 0A 90 01 AF 20 23 25 31  30 30 00 5B 0A 9A 01 42  |.... #%100.[...B|
00000250: 45 51 20 4E 4F 53 57 49  54 43 48 00 76 0A A4 01  |EQ NOSWITCH.v...|
00000260: 4C 44 41 20 4B 45 59 20  3B 20 46 31 20 47 45 44  |LDA KEY ; F1 GED|
00000270: 52 55 45 43 4B 54 00 82  0A AE 01 43 4D 50 20 23  |RUECKT.....CMP #|
00000280: 46 31 00 93 0A B8 01 42  4E 45 20 4E 4F 53 57 49  |F1.....BNE NOSWI|
00000290: 54 43 48 00 B7 0A C2 01  4A 53 52 20 53 57 49 54  |TCH.....JSR SWIT|
000002A0: 43 48 20 3B 20 53 45 49  54 45 4E 20 56 45 52 54  |CH ; SEITEN VERT|
000002B0: 41 55 53 43 48 45 4E 00  CF 0A CC 01 4E 4F 53 57  |AUSCHEN.....NOSW|
000002C0: 49 54 43 48 20 4A 4D 50  20 49 52 51 41 4C 54 00  |ITCH JMP IRQALT.|
000002D0: D5 0A D6 01 3B 00 E7 0A  E0 01 53 57 49 54 43 48  |....;.....SWITCH|
000002E0: 20 4C 44 59 20 23 30 00  FF 0A EA 01 53 54 59 20  | LDY #0.....STY |
000002F0: 50 4E 54 31 20 3A 20 53  54 59 20 50 4E 54 32 00  |PNT1 : STY PNT2.|
00000300: 1B 0B F4 01 4C 44 41 20  23 B1 43 4F 4C B0 20 3A  |....LDA #.COL. :|
00000310: 20 53 54 41 20 50 4E 54  31 AA 31 00 38 0B FE 01  | STA PNT1.1.8...|
00000320: 4C 44 41 20 23 B1 43 4F  4C B0 32 20 3A 20 53 54  |LDA #.COL.2 : ST|
00000330: 41 20 50 4E 54 32 AA 31  00 52 0B 08 02 4C 44 58  |A PNT2.1.R...LDX|
00000340: 20 23 34 20 3B 20 41 4E  5A 41 48 4C 20 50 41 47  | #4 ; ANZAHL PAG|
00000350: 45 53 00 68 0B 12 02 53  57 41 50 20 4C 44 41 20  |ES.h...SWAP LDA |
00000360: 28 50 4E 54 31 29 2C 59  00 70 0B 1C 02 50 48 41  |(PNT1),Y.p...PHA|
00000370: 00 81 0B 26 02 4C 44 41  20 28 50 4E 54 32 29 2C  |...&.LDA (PNT2),|
00000380: 59 00 AD 0B 30 02 53 54  41 20 28 50 4E 54 31 29  |Y...0.STA (PNT1)|
00000390: 2C 59 20 3B 20 46 41 52  42 53 50 45 49 43 48 45  |,Y ; FARBSPEICHE|
000003A0: 52 20 41 55 53 54 41 55  53 43 48 45 4E 00 B5 0B  |R AUSTAUSCHEN...|
000003B0: 3A 02 50 4C 41 00 C6 0B  44 02 53 54 41 20 28 50  |:.PLA...D.STA (P|
000003C0: 4E 54 32 29 2C 59 00 CE  0B 4E 02 49 4E 59 00 DB  |NT2),Y...N.INY..|
000003D0: 0B 58 02 42 4E 45 20 53  57 41 50 00 F7 0B 62 02  |.X.BNE SWAP...b.|
000003E0: 49 4E 43 20 50 4E 54 31  AA 31 20 3A 20 49 4E 43  |INC PNT1.1 : INC|
000003F0: 20 50 4E 54 32 AA 31 00  FF 0B 6C 02 44 45 58 00  | PNT2.1...l.DEX.|
00000400: 0C 0C 76 02 42 4E 45 20  53 57 41 50 00 1D 0C 80  |..v.BNE SWAP....|
00000410: 02 4C 44 41 20 56 49 44  45 4F 4D 41 50 00 43 0C  |.LDA VIDEOMAP.C.|
00000420: 8A 02 45 B0 20 23 25 31  31 20 3B 20 5A 55 47 52  |..E. #%11 ; ZUGR|
00000430: 8B 46 53 41 44 52 45 53  53 45 20 46 55 45 52 20  |.FSADRESSE FUER |
00000440: 56 49 43 00 54 0C 94 02  53 54 41 20 56 49 44 45  |VIC.T...STA VIDE|
00000450: 4F 4D 41 50 00 65 0C 9E  02 4C 44 41 20 56 49 44  |OMAP.e...LDA VID|
00000460: 45 4F 50 47 45 00 83 0C  A8 02 45 B0 20 23 24 43  |EOPGE.....E. #$C|
00000470: 30 20 20 3B 20 42 49 4C  44 53 43 48 49 52 4D 50  |0  ; BILDSCHIRMP|
00000480: 41 47 45 00 94 0C B2 02  53 54 41 20 56 49 44 45  |AGE.....STA VIDE|
00000490: 4F 50 47 45 00 9C 0C BC  02 52 54 53 00 A2 0C C6  |OPGE.....RTS....|
000004A0: 02 3B 00 B5 0C D0 02 53  45 54 43 48 41 52 20 4C  |.;.....SETCHAR L|
000004B0: 44 59 20 23 30 00 C2 0C  DA 02 53 54 59 20 50 4E  |DY #0.....STY PN|
000004C0: 54 31 00 D5 0C E4 02 4C  44 41 20 23 B1 20 43 48  |T1.....LDA #. CH|
000004D0: 41 52 47 45 4E 00 E4 0C  EE 02 53 54 41 20 50 4E  |ARGEN.....STA PN|
000004E0: 54 31 AA 31 00 F1 0C F8  02 4C 44 58 20 23 24 31  |T1.1.....LDX #$1|
000004F0: 30 00 03 0D 02 03 4C 4F  4F 50 20 4C 44 41 20 23  |0.....LOOP LDA #|
00000500: 24 33 33 00 21 0D 0C 03  53 54 41 20 50 B0 54 20  |$33.!...STA P.T |
00000510: 3B 20 45 4E 41 42 4C 45  20 43 48 41 52 AB 47 45  |; ENABLE CHAR.GE|
00000520: 4E 00 32 0D 16 03 4C 44  41 20 28 50 4E 54 31 29  |N.2...LDA (PNT1)|
00000530: 2C 59 00 3A 0D 20 03 50  48 41 00 47 0D 2A 03 4C  |,Y.:. .PHA.G.*.L|
00000540: 44 41 20 23 24 33 30 00  60 0D 34 03 53 54 41 20  |DA #$30.`.4.STA |
00000550: 50 B0 54 20 3B 20 45 4E  41 42 4C 45 20 52 41 4D  |P.T ; ENABLE RAM|
00000560: 00 68 0D 3E 03 50 4C 41  00 79 0D 48 03 53 54 41  |.h.>.PLA.y.H.STA|
00000570: 20 28 50 4E 54 31 29 2C  59 00 81 0D 52 03 49 4E  | (PNT1),Y...R.IN|
00000580: 59 00 8E 0D 5C 03 42 4E  45 20 4C 4F 4F 50 00 AD  |Y...\.BNE LOOP..|
00000590: 0D 66 03 49 4E 43 20 50  4E 54 31 AA 31 20 3B 20  |.f.INC PNT1.1 ; |
000005A0: 4E 41 45 43 48 53 54 45  20 50 41 47 45 00 B5 0D  |NAECHSTE PAGE...|
000005B0: 70 03 44 45 58 00 C2 0D  7A 03 42 4E 45 20 4C 4F  |p.DEX...z.BNE LO|
000005C0: 4F 50 00 E4 0D 84 03 4C  44 41 20 23 24 33 37 20  |OP.....LDA #$37 |
000005D0: 3B 20 53 C0 44 41 52 44  20 4B 91 46 49 47 55 52  |; S.DARD K.FIGUR|
000005E0: 41 54 49 91 00 F0 0D 8E  03 53 54 41 20 50 B0 54  |ATI......STA P.T|
000005F0: 00 F8 0D 98 03 52 54 53  00 00 00                 |.....RTS...     |

....Z.. 8.4096...D..OPT P,OO.".N.;.D.X.;
 BILDSCHIRMSEITEN UMSCHALTEN.J...;.W...P
NT1 . 3.D...PNT2 . 5.Y. .VIDEOMAP . $DD0
0.....VIDEOPGE . 648.....IRQVEC . $314..
...IRQALT . $EA31.E.H.CHARGEN . $D000.V.
R.COL. . $D800.....COL.2 . $C000 ; SPEIC
HER FUER FARBRAM.....P.T . 1 ; PROZESS.P
.T.:...CTRL . 653 ; FLAG FUER .ROL.U...K
EY . $C5 ; .ZTE TASTE.O...F1 . 4 ; MATRI
XNUMMER.U...;....... 828...".;...,.INIT 
SEI...6.JSR SETCHAR ; CHARACTERGENERA.R 
KOPIEREN.P.@.LDA #. TEST...J.LDY #. TEST
...T.STA IRQVEC...^.STY IRQVEC.1...H.CLI
...R.RTS...|.;.>...TEST LDA CTRL ; .ROLT
ASTE GEDRUECKT.J.... #%100.[...BEQ NOSWI
TCH.V...LDA KEY ; F1 GEDRUECKT.....CMP #
F1.....BNE NOSWITCH...B.JSR SWITCH ; SEI
TEN VERTAUSCHEN.O.L.NOSWITCH JMP IRQALT.
U.V.;.....SWITCH LDY #0.....STY PNT1 : S
TY PNT2.....LDA #.COL. : STA PNT1.1.8...
LDA #.COL.2 : STA PNT2.1.R...LDX #4 ; AN
ZAHL PAGES.H...SWAP LDA (PNT1),Y.P...PHA
...&.LDA (PNT2),Y...0.STA (PNT1),Y ; FAR
BSPEICHER AUSTAUSCHEN...:.PLA.F.D.STA (P
NT2),Y.N.N.INY...X.BNE SWAP...B.INC PNT1
.1 : INC PNT2.1...L.DEX...V.BNE SWAP....
.LDA VIDEOMAP.C...E. #%11 ; ZUGR.FSADRES
SE FUER VIC.T...STA VIDEOMAP.E...LDA VID
EOPGE.....E. #$C0  ; BILDSCHIRMPAGE.....
STA VIDEOPGE.....RTS...F.;...P.SETCHAR L
DY #0.B.Z.STY PNT1.U...LDA #. CHARGEN...
..STA PNT1.1.....LDX #$10.....LOOP LDA #
$33.!...STA P.T ; ENABLE CHAR.GEN.2...LD
A (PNT1),Y.:. .PHA.G.*.LDA #$30.`.4.STA 
P.T ; ENABLE RAM.H.>.PLA.Y.H.STA (PNT1),
Y...R.INY...\.BNE LOOP...F.INC PNT1.1 ; 
NAECHSTE PAGE...P.DEX.B.Z.BNE LOOP.....L
DA #$37 ; S.DARD K.FIGURATI......STA P.T
.....RTS...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL