GRAFIKROUTINEN
FILE INFORMATION
FILENAME(S): GRAFIKROUTINEN
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-10-20 14:30:10
APPEARS ON: 2 disk(s)
FILE HASH
ea75768699405a44d55dd6731090bc1d4d2bc207f26e24ed4ecdfdd001e6b323
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90571 | GRAFIKROUTINEN | PRG | Treasure Chest - Klaus Der Suhler | 24 | 2 | DOWNLOAD FILE |
| 90571 | GRAFIKROUTINEN | PRG | BrainSkull, Georg Fuchs 1988 | 24 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 14 2D 28 2D 01 00 3B 47 52 41 46 49 4B 52 4F 55 |.-(-..;GRAFIKROU| 00000010: 54 49 4E 45 4E 00 2E 2D 02 00 3B 00 3C 2D 03 00 |TINEN..-..;.<-..| 00000020: 20 2E 42 41 24 36 30 30 30 00 42 2D 05 00 3B 00 | .BA$6000.B-..;.| 00000030: 6A 2D 06 00 20 2E 45 51 4B 4F 4D 4D 41 20 3D 20 |j-.. .EQKOMMA = | 00000040: 24 41 45 46 44 20 20 20 20 3B 4B 4F 4D 4D 41 50 |$AEFD ;KOMMAP| 00000050: 52 55 45 46 55 4E 47 00 8F 2D 07 00 20 2E 45 51 |RUEFUNG..-.. .EQ| 00000060: 42 59 54 45 20 3D 20 24 42 37 39 45 20 20 20 20 |BYTE = $B79E | 00000070: 20 3B 42 59 54 45 20 48 4F 4C 45 4E 00 95 2D 08 | ;BYTE HOLEN..-.| 00000080: 00 3B 00 AC 2D 0C 00 3B 47 52 41 46 49 4B 20 41 |.;..-..;GRAFIK A| 00000090: 4E 53 43 48 41 4C 54 45 4E 00 C3 2D 0D 00 3B 3D |NSCHALTEN..-..;=| 000000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000000B0: 00 C9 2D 0E 00 3B 00 F0 2D 0F 00 47 52 4F 4E 20 |..-..;..-..GRON | 000000C0: 20 4C 44 41 20 23 30 30 20 20 20 3B 43 49 41 20 | LDA #00 ;CIA | 000000D0: 41 44 52 45 53 53 42 45 52 45 49 43 48 00 12 2E |ADRESSBEREICH...| 000000E0: 10 00 20 53 54 41 24 44 44 30 30 20 20 20 20 20 |.. STA$DD00 | 000000F0: 20 20 3B 41 42 20 24 43 30 30 30 20 2B 20 58 00 | ;AB $C000 + X.| 00000100: 30 2E 11 00 20 4C 44 41 24 44 30 31 31 20 20 20 |0... LDA$D011 | 00000110: 20 20 20 20 3B 42 49 54 20 35 20 49 4D 00 57 2E | ;BIT 5 IM.W.| 00000120: 12 00 20 4F 52 41 23 25 30 30 31 30 30 30 30 30 |.. ORA#%00100000| 00000130: 20 20 3B 56 49 43 2D 52 45 47 20 31 37 20 53 45 | ;VIC-REG 17 SE| 00000140: 54 5A 45 4E 00 7E 2E 13 00 20 53 54 41 24 44 30 |TZEN.~... STA$D0| 00000150: 31 31 20 20 20 20 20 20 20 3B 28 3D 47 52 41 46 |11 ;(=GRAF| 00000160: 49 4B 4D 4F 44 55 53 20 41 4E 29 00 A7 2E 14 00 |IKMODUS AN).....| 00000170: 20 4C 44 41 24 44 30 31 38 20 20 20 20 20 20 20 | LDA$D018 | 00000180: 3B 42 49 54 20 33 20 49 4D 20 56 49 43 2D 52 45 |;BIT 3 IM VIC-RE| 00000190: 47 20 32 34 00 D0 2E 15 00 20 4F 52 41 23 25 30 |G 24..... ORA#%0| 000001A0: 30 30 30 31 30 30 30 20 20 3B 53 45 54 5A 45 4E |0001000 ;SETZEN| 000001B0: 20 20 28 58 20 3D 20 24 32 30 30 30 29 00 F7 2E | (X = $2000)...| 000001C0: 16 00 20 4F 52 41 23 25 30 31 31 31 30 30 30 30 |.. ORA#%01110000| 000001D0: 20 20 3B 56 49 44 45 4F 52 41 4D 20 41 42 20 24 | ;VIDEORAM AB $| 000001E0: 43 30 30 30 00 1E 2F 17 00 20 53 54 41 24 44 30 |C000../.. STA$D0| 000001F0: 31 38 20 20 20 20 20 20 20 3B 2B 20 37 2A 24 30 |18 ;+ 7*$0| 00000200: 34 30 30 20 3D 20 24 44 43 30 30 00 27 2F 18 00 |400 = $DC00.'/..| 00000210: 20 52 54 53 00 2D 2F 1F 00 3B 00 45 2F 20 00 3B | RTS.-/..;.E/ .;| 00000220: 47 52 41 46 49 4B 20 41 55 53 53 43 48 41 4C 54 |GRAFIK AUSSCHALT| 00000230: 45 4E 00 5D 2F 21 00 3B 3D 3D 3D 3D 3D 3D 3D 3D |EN.]/!.;========| 00000240: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 63 2F 22 00 3B |==========.c/".;| 00000250: 00 8A 2F 23 00 47 52 4F 46 46 20 20 4C 44 41 20 |../#.GROFF LDA | 00000260: 23 31 39 39 20 3B 43 49 41 20 41 44 52 45 53 53 |#199 ;CIA ADRESS| 00000270: 42 45 52 45 49 43 48 00 AC 2F 24 00 20 53 54 41 |BEREICH../$. STA| 00000280: 24 44 44 30 30 20 20 20 20 20 20 20 3B 41 42 20 |$DD00 ;AB | 00000290: 24 30 30 30 30 20 2B 20 58 00 CA 2F 25 00 20 4C |$0000 + X../%. L| 000002A0: 44 41 24 44 30 31 31 20 20 20 20 20 20 20 3B 42 |DA$D011 ;B| 000002B0: 49 54 20 35 20 49 4D 00 F3 2F 26 00 20 41 4E 44 |IT 5 IM../&. AND| 000002C0: 23 25 31 31 30 31 31 31 31 31 20 20 3B 56 49 43 |#%11011111 ;VIC| 000002D0: 2D 52 45 47 20 31 37 20 4C 4F 45 53 43 48 45 4E |-REG 17 LOESCHEN| 000002E0: 00 1B 30 27 00 20 53 54 41 24 44 30 31 31 20 20 |..0'. STA$D011 | 000002F0: 20 20 20 20 20 3B 28 3D 47 52 41 46 49 4B 4D 4F | ;(=GRAFIKMO| 00000300: 44 55 53 20 41 55 53 29 00 44 30 28 00 20 4C 44 |DUS AUS).D0(. LD| 00000310: 41 24 44 30 31 38 20 20 20 20 20 20 20 3B 42 49 |A$D018 ;BI| 00000320: 54 20 33 20 49 4D 20 56 49 43 2D 52 45 47 20 32 |T 3 IM VIC-REG 2| 00000330: 34 00 6D 30 29 00 20 41 4E 44 23 25 31 31 31 31 |4.m0). AND#%1111| 00000340: 30 31 31 31 20 20 3B 4C 4F 45 53 43 48 45 4E 20 |0111 ;LOESCHEN | 00000350: 28 58 3D 20 24 30 30 30 30 29 00 95 30 2A 00 20 |(X= $0000)..0*. | 00000360: 41 4E 44 23 25 30 30 30 31 31 31 31 31 20 20 3B |AND#%00011111 ;| 00000370: 56 49 44 45 4F 2D 52 41 4D 20 41 42 20 24 30 30 |VIDEO-RAM AB $00| 00000380: 30 30 00 BC 30 2B 00 20 53 54 41 24 44 30 31 38 |00..0+. STA$D018| 00000390: 20 20 20 20 20 20 20 3B 2B 20 31 2A 24 30 34 30 | ;+ 1*$040| 000003A0: 30 20 3D 20 24 30 34 30 30 00 C5 30 2C 00 20 52 |0 = $0400..0,. R| 000003B0: 54 53 00 CB 30 33 00 3B 00 DD 30 34 00 3B 46 41 |TS..03.;..04.;FA| 000003C0: 52 42 45 20 53 45 54 5A 45 4E 00 EF 30 35 00 3B |RBE SETZEN..05.;| 000003D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 F5 30 36 |============..06| 000003E0: 00 3B 00 0A 31 37 00 43 4F 4C 4F 52 20 20 4A 53 |.;..17.COLOR JS| 000003F0: 52 20 4B 4F 4D 4D 41 00 30 31 38 00 20 4A 53 52 |R KOMMA.018. JSR| 00000400: 42 59 54 45 20 20 20 20 20 20 20 20 3B 50 55 4E |BYTE ;PUN| 00000410: 4B 54 46 41 52 42 45 20 48 4F 4C 45 4E 00 58 31 |KTFARBE HOLEN.X1| 00000420: 39 00 20 43 50 58 23 31 36 20 20 20 20 20 20 20 |9. CPX#16 | 00000430: 20 20 3B 3E 3D 20 31 36 2C 20 44 41 4E 4E 20 46 | ;>= 16, DANN F| 00000440: 45 48 4C 45 52 00 66 31 3A 00 20 42 43 53 45 52 |EHLER.f1:. BCSER| 00000450: 52 4F 52 00 6F 31 3B 00 20 54 58 41 00 78 31 3C |ROR.o1;. TXA.x1<| 00000460: 00 20 41 53 4C 00 81 31 3D 00 20 41 53 4C 00 9C |. ASL..1=. ASL..| 00000470: 31 3E 00 20 41 53 4C 20 20 20 20 20 20 20 20 20 |1>. ASL | 00000480: 20 3B 20 4D 41 4C 20 31 36 00 A5 31 3F 00 20 41 | ; MAL 16..1?. A| 00000490: 53 4C 00 C1 31 40 00 20 53 54 41 24 46 41 20 20 |SL..1@. STA$FA | 000004A0: 20 20 20 20 20 20 20 3B 4D 45 52 4B 45 4E 00 E7 | ;MERKEN..| 000004B0: 31 41 00 20 4A 53 52 4B 4F 4D 4D 41 20 20 20 20 |1A. JSRKOMMA | 000004C0: 20 20 20 3B 48 49 4E 54 45 52 47 52 55 4E 44 46 | ;HINTERGRUNDF| 000004D0: 41 52 42 45 00 02 32 42 00 20 4A 53 52 42 59 54 |ARBE..2B. JSRBYT| 000004E0: 45 20 20 20 20 20 20 20 20 3B 48 4F 4C 45 4E 00 |E ;HOLEN.| 000004F0: 29 32 43 00 20 43 50 58 23 31 36 20 20 20 20 20 |)2C. CPX#16 | 00000500: 20 20 20 20 3B 3E 3D 31 36 2C 20 44 41 4E 4E 20 | ;>=16, DANN | 00000510: 46 45 48 4C 45 52 00 37 32 44 00 20 42 43 53 45 |FEHLER.72D. BCSE| 00000520: 52 52 4F 52 00 40 32 45 00 20 54 58 41 00 49 32 |RROR.@2E. TXA.I2| 00000530: 46 00 20 43 4C 43 00 71 32 47 00 20 41 44 43 24 |F. CLC.q2G. ADC$| 00000540: 46 41 20 20 20 20 20 20 20 20 20 3B 50 4C 55 53 |FA ;PLUS| 00000550: 20 50 55 4E 4B 54 46 41 52 42 45 2A 31 36 00 7E | PUNKTFARBE*16.~| 00000560: 32 48 00 20 4C 44 59 23 24 30 30 00 A4 32 49 00 |2H. LDY#$00..2I.| 00000570: 20 53 45 49 20 20 20 20 20 20 20 20 20 20 20 20 | SEI | 00000580: 3B 41 55 46 20 52 41 4D 20 53 43 48 41 4C 54 45 |;AUF RAM SCHALTE| 00000590: 4E 00 B0 32 4A 00 20 4C 44 58 23 35 32 00 BC 32 |N..2J. LDX#52..2| 000005A0: 4B 00 20 53 54 58 24 30 31 00 D9 32 4C 00 4C 46 |K. STX$01..2L.LF| 000005B0: 20 53 54 41 24 44 42 46 46 2C 59 20 20 3B 57 45 | STA$DBFF,Y ;WE| 000005C0: 52 54 20 49 4E 53 00 E9 32 4D 00 20 53 54 41 24 |RT INS..2M. STA$| 000005D0: 44 43 46 46 2C 59 00 10 33 4E 00 20 53 54 41 24 |DCFF,Y..3N. STA$| 000005E0: 44 44 46 46 2C 59 20 20 20 20 20 3B 46 41 52 42 |DDFF,Y ;FARB| 000005F0: 52 41 4D 20 53 43 48 52 45 49 42 45 4E 00 20 33 |RAM SCHREIBEN. 3| 00000600: 4F 00 20 53 54 41 24 44 45 46 46 2C 59 00 29 33 |O. STA$DEFF,Y.)3| 00000610: 50 00 20 44 45 59 00 34 33 51 00 20 42 4E 45 4C |P. DEY.43Q. BNEL| 00000620: 46 00 5A 33 52 00 20 4C 44 58 23 35 35 20 20 20 |F.Z3R. LDX#55 | 00000630: 20 20 20 20 20 20 3B 41 55 46 20 52 4F 4D 20 53 | ;AUF ROM S| 00000640: 43 48 41 4C 54 45 4E 00 66 33 53 00 20 53 54 58 |CHALTEN.f3S. STX| 00000650: 24 30 31 00 6F 33 54 00 20 43 4C 49 00 78 33 55 |$01.o3T. CLI.x3U| 00000660: 00 20 52 54 53 00 7E 33 56 00 3B 00 A5 33 57 00 |. RTS.~3V.;..3W.| 00000670: 45 52 52 4F 52 20 20 4A 4D 50 20 24 42 32 34 38 |ERROR JMP $B248| 00000680: 20 3B 49 4C 4C 45 47 41 4C 20 51 55 41 4E 54 49 | ;ILLEGAL QUANTI| 00000690: 54 59 00 AB 33 58 00 3B 00 C4 33 59 00 3B 42 49 |TY..3X.;..3Y.;BI| 000006A0: 4C 44 53 43 48 49 52 4D 20 4C 4F 45 53 43 48 45 |LDSCHIRM LOESCHE| 000006B0: 4E 00 DD 33 5A 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D |N..3Z.;=========| 000006C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 E3 33 5B 00 3B |==========..3[.;| 000006D0: 00 03 34 5C 00 43 4C 45 41 52 20 20 4C 44 41 20 |..4\.CLEAR LDA | 000006E0: 23 30 30 20 20 3B 4C 4F 45 53 43 48 57 45 52 54 |#00 ;LOESCHWERT| 000006F0: 00 15 34 5D 00 20 4C 44 58 23 3C 28 24 45 30 30 |..4]. LDX#<($E00| 00000700: 30 29 00 21 34 5E 00 20 53 54 58 24 46 41 00 33 |0).!4^. STX$FA.3| 00000710: 34 5F 00 20 4C 44 58 23 3E 28 24 45 30 30 30 29 |4_. LDX#>($E000)| 00000720: 00 3F 34 60 00 20 53 54 58 24 46 42 00 66 34 61 |.?4`. STX$FB.f4a| 00000730: 00 20 4C 44 58 23 33 32 20 20 20 20 20 20 20 20 |. LDX#32 | 00000740: 20 3B 33 32 20 50 41 47 45 53 20 4C 4F 45 53 43 | ;32 PAGES LOESC| 00000750: 48 45 4E 00 76 34 62 00 43 31 20 20 4C 44 59 20 |HEN.v4b.C1 LDY | 00000760: 23 30 30 00 8A 34 63 00 43 32 20 20 53 54 41 20 |#00..4c.C2 STA | 00000770: 28 24 46 41 29 2C 59 00 93 34 64 00 20 49 4E 59 |($FA),Y..4d. INY| 00000780: 00 B6 34 65 00 20 42 4E 45 43 32 20 20 20 20 20 |..4e. BNEC2 | 00000790: 20 20 20 20 3B 49 4E 53 20 47 52 41 46 49 4B 2D | ;INS GRAFIK-| 000007A0: 52 41 4D 00 C2 34 66 00 20 49 4E 43 24 46 42 00 |RAM..4f. INC$FB.| 000007B0: E0 34 67 00 20 44 45 58 20 20 20 20 20 20 20 20 |.4g. DEX | 000007C0: 20 20 20 3B 53 43 48 52 45 49 42 45 4E 00 EB 34 | ;SCHREIBEN..4| 000007D0: 68 00 20 42 4E 45 43 31 00 F4 34 69 00 20 52 54 |h. BNEC1..4i. RT| 000007E0: 53 00 FA 34 6A 00 3B 00 00 00 |S..4j.;... |
.-(-..;GRAFIKROUTINEN..-..;.<-.. .BA$600
0.B-..;.J-.. .EQKOMMA = $AEFD ;KOMMAP
RUEFUNG..-.. .EQBYTE = $B79E ;BYTE H
OLEN..-..;..-..;GRAFIK ANSCHALTEN.C-..;=
================.I-..;..-..GRON LDA #00
;CIA ADRESSBEREICH..... STA$DD00
;AB $C000 + X.0... LDA$D011 ;BIT
5 IM.W... ORA#%00100000 ;VIC-REG 17 SE
TZEN.~... STA$D011 ;(=GRAFIKMODUS
AN)..... LDA$D018 ;BIT 3 IM VIC-RE
G 24.P... ORA#%00001000 ;SETZEN (X = $
2000)..... ORA#%01110000 ;VIDEORAM AB $
C000../.. STA$D018 ;+ 7*$0400 = $D
C00.'/.. RTS.-/..;.E/ .;GRAFIK AUSSCHALT
EN.]/!.;==================.C/".;../#.GRO
FF LDA #199 ;CIA ADRESSBEREICH../$. STA
$DD00 ;AB $0000 + X.J/%. LDA$D011
;BIT 5 IM../&. AND#%11011111 ;VIC
-REG 17 LOESCHEN..0'. STA$D011 ;(=
GRAFIKMODUS AUS).D0(. LDA$D018 ;BI
T 3 IM VIC-REG 24.M0). AND#%11110111 ;L
OESCHEN (X= $0000)..0*. AND#%00011111 ;
VIDEO-RAM AB $0000..0+. STA$D018 ;
+ 1*$0400 = $0400.E0,. RTS.K03.;..04.;FA
RBE SETZEN..05.;============..06.;..17.C
OLOR JSR KOMMA.018. JSRBYTE ;PUN
KTFARBE HOLEN.X19. CPX#16 ;>= 16
, DANN FEHLER.F1:. BCSERROR.O1;. TXA.X1<
. ASL..1=. ASL..1>. ASL ; MAL 1
6..1?. ASL.A1@. STA$FA ;MERKEN..
1A. JSRKOMMA ;HINTERGRUNDFARBE..2B
. JSRBYTE ;HOLEN.)2C. CPX#16
;>=16, DANN FEHLER.72D. BCSERROR.@2E
. TXA.I2F. CLC.Q2G. ADC$FA ;PLUS
PUNKTFARBE*16.~2H. LDY#$00..2I. SEI
;AUF RAM SCHALTEN..2J. LDX#52..2
K. STX$01.Y2L.LF STA$DBFF,Y ;WERT INS..
2M. STA$DCFF,Y..3N. STA$DDFF,Y ;FARB
RAM SCHREIBEN. 3O. STA$DEFF,Y.)3P. DEY.4
3Q. BNELF.Z3R. LDX#55 ;AUF ROM S
CHALTEN.F3S. STX$01.O3T. CLI.X3U. RTS.~3
V.;..3W.ERROR JMP $B248 ;ILLEGAL QUANTI
TY..3X.;.D3Y.;BILDSCHIRM LOESCHEN..3Z.;=
==================..3[.;..4\.CLEAR LDA
#00 ;LOESCHWERT..4]. LDX#<($E000).!4^.
STX$FA.34_. LDX#>($E000).?4`. STX$FB.F4A
. LDX#32 ;32 PAGES LOESCHEN.V4B.
C1 LDY #00..4C.C2 STA ($FA),Y..4D. INY
..4E. BNEC2 ;INS GRAFIK-RAM.B4F.
INC$FB..4G. DEX ;SCHREIBEN..4
H. BNEC1..4I. RTS..4J.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL