CHAR->GRAFIK.SRC
FILE INFORMATION
FILENAME(S): CHAR->GRAFIK.SRC
FILE TYPE(S): SEQ
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 16:10:45
APPEARS ON: 1 disk(s)
FILE HASH
18e8cb0215abaaae3da431e8be7cf9d28cd1d54c6641691fbaa2d89143fec247
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DIGITAL NEWS | CHAR->GRAFIK.SRC | SEQ | BrainSkull, Sammlung | 8 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 2A 20 20 20 20 20 |********.;* | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000050: 2A 0D 3B 2A 20 20 20 47 52 41 46 49 4B 20 41 55 |*.;* GRAFIK AU| 00000060: 53 20 5A 45 49 43 48 45 4E 53 41 54 5A 20 41 55 |S ZEICHENSATZ AU| 00000070: 46 42 41 55 45 4E 20 20 20 2A 0D 3B 2A 20 20 20 |FBAUEN *.;* | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 20 20 2A 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | *.;***********| 000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 53 54 |************..ST| 000000D0: 41 52 54 20 20 20 20 3D 20 24 31 30 30 30 0D 0D |ART = $1000..| 000000E0: 20 20 20 20 20 20 20 20 20 2A 3D 20 53 54 41 52 | *= STAR| 000000F0: 54 0D 0D 43 48 41 52 20 20 20 20 20 3D 20 24 32 |T..CHAR = $2| 00000100: 30 30 30 3B 20 20 20 20 20 42 41 53 49 53 2D 41 |000; BASIS-A| 00000110: 44 52 45 53 53 45 4E 0D 53 43 52 45 45 4E 20 20 |DRESSEN.SCREEN | 00000120: 20 3D 20 24 32 38 30 30 3B 0D 47 52 41 46 49 4B | = $2800;.GRAFIK| 00000130: 20 20 20 3D 20 24 34 30 30 30 3B 0D 0D 42 59 54 | = $4000;..BYT| 00000140: 45 20 20 20 20 20 3D 20 24 30 32 3B 20 20 20 20 |E = $02; | 00000150: 20 20 20 52 45 47 49 53 54 45 52 20 31 20 42 59 | REGISTER 1 BY| 00000160: 54 45 0D 47 52 20 20 20 20 20 20 20 3D 20 24 30 |TE.GR = $0| 00000170: 33 3B 24 30 34 20 20 20 20 52 45 47 49 53 54 45 |3;$04 REGISTE| 00000180: 52 20 32 20 42 59 54 45 53 0D 53 43 52 20 20 20 |R 2 BYTES.SCR | 00000190: 20 20 20 3D 20 24 30 35 3B 24 30 36 0D 4D 45 4D | = $05;$06.MEM| 000001A0: 20 20 20 20 20 20 3D 20 24 32 32 3B 24 32 33 0D | = $22;$23.| 000001B0: 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************| 000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 20 20 20 20 20 |*********.. | 000001E0: 20 20 20 20 53 45 49 0D 20 20 20 20 20 20 20 20 | SEI. | 000001F0: 20 4C 44 59 20 23 30 0D 20 20 20 20 20 20 20 20 | LDY #0. | 00000200: 20 4C 44 41 20 23 3E 47 52 41 46 49 4B 0D 20 20 | LDA #>GRAFIK. | 00000210: 20 20 20 20 20 20 20 53 54 59 20 47 52 0D 20 20 | STY GR. | 00000220: 20 20 20 20 20 20 20 53 54 41 20 47 52 2B 31 0D | STA GR+1.| 00000230: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3E 53 | LDA #>S| 00000240: 43 52 45 45 4E 0D 20 20 20 20 20 20 20 20 20 53 |CREEN. S| 00000250: 54 59 20 53 43 52 0D 20 20 20 20 20 20 20 20 20 |TY SCR. | 00000260: 53 54 41 20 53 43 52 2B 31 0D 0D 20 20 20 20 20 |STA SCR+1.. | 00000270: 20 20 20 20 4C 44 58 20 23 34 3B 20 34 20 42 4C | LDX #4; 4 BL| 00000280: 4F 45 43 4B 45 20 3D 20 31 30 32 34 20 42 59 54 |OECKE = 1024 BYT| 00000290: 45 0D 0D 4C 4F 4F 50 20 20 20 20 20 4C 44 41 20 |E..LOOP LDA | 000002A0: 28 53 43 52 29 2C 59 0D 20 20 20 20 20 20 20 20 |(SCR),Y. | 000002B0: 20 53 54 59 20 42 59 54 45 0D 0D 20 20 20 20 20 | STY BYTE.. | 000002C0: 20 20 20 20 4C 44 59 20 23 30 20 20 20 3B 20 41 | LDY #0 ; A| 000002D0: 44 52 45 53 53 45 20 49 4D 20 5A 45 49 43 48 45 |DRESSE IM ZEICHE| 000002E0: 4E 2D 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 |N-. STY | 000002F0: 4D 45 4D 20 20 3B 20 53 41 54 5A 20 42 45 52 45 |MEM ; SATZ BERE| 00000300: 43 48 4E 45 4E 0D 20 20 20 20 20 20 20 20 20 53 |CHNEN. S| 00000310: 54 59 20 4D 45 4D 2B 31 0D 20 20 20 20 20 20 20 |TY MEM+1. | 00000320: 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 | ASL A. | 00000330: 20 52 4F 4C 20 4D 45 4D 2B 31 0D 20 20 20 20 20 | ROL MEM+1. | 00000340: 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 | ASL A. | 00000350: 20 20 20 52 4F 4C 20 4D 45 4D 2B 31 0D 20 20 20 | ROL MEM+1. | 00000360: 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 | ASL A. | 00000370: 20 20 20 20 20 53 54 41 20 4D 45 4D 0D 20 20 20 | STA MEM. | 00000380: 20 20 20 20 20 20 4C 44 41 20 4D 45 4D 2B 31 0D | LDA MEM+1.| 00000390: 20 20 20 20 20 20 20 20 20 52 4F 4C 20 41 0D 20 | ROL A. | 000003A0: 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 | CLC. | 000003B0: 20 20 20 20 20 41 44 43 20 23 3E 43 48 41 52 0D | ADC #>CHAR.| 000003C0: 20 20 20 20 20 20 20 20 20 53 54 41 20 4D 45 4D | STA MEM| 000003D0: 2B 31 0D 0D 4C 4F 4F 50 32 20 20 20 20 4C 44 41 |+1..LOOP2 LDA| 000003E0: 20 28 4D 45 4D 29 2C 59 20 3B 20 5A 45 49 43 48 | (MEM),Y ; ZEICH| 000003F0: 45 4E 44 41 54 45 4E 20 49 4E 0D 20 20 20 20 20 |ENDATEN IN. | 00000400: 20 20 20 20 53 54 41 20 28 47 52 29 2C 59 20 20 | STA (GR),Y | 00000410: 3B 20 47 52 41 46 49 4B 20 4B 4F 50 49 45 52 45 |; GRAFIK KOPIERE| 00000420: 4E 0D 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 |N. INY. | 00000430: 20 20 20 20 20 20 20 20 43 50 59 20 23 38 0D 20 | CPY #8. | 00000440: 20 20 20 20 20 20 20 20 42 4E 45 20 4C 4F 4F 50 | BNE LOOP| 00000450: 32 0D 0D 20 20 20 20 20 20 20 20 20 43 4C 43 20 |2.. CLC | 00000460: 20 20 20 20 20 3B 20 4E 45 55 45 4E 20 5A 45 49 | ; NEUEN ZEI| 00000470: 47 45 52 20 41 55 46 20 44 49 45 0D 20 20 20 20 |GER AUF DIE. | 00000480: 20 20 20 20 20 4C 44 41 20 47 52 20 20 20 3B 20 | LDA GR ; | 00000490: 47 52 41 46 49 4B 20 42 45 52 45 43 48 4E 45 4E |GRAFIK BERECHNEN| 000004A0: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 38 |. ADC #8| 000004B0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 47 52 |. STA GR| 000004C0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 47 52 |. LDA GR| 000004D0: 2B 31 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |+1. ADC | 000004E0: 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#0. STA | 000004F0: 47 52 2B 31 0D 0D 20 20 20 20 20 20 20 20 20 4C |GR+1.. L| 00000500: 44 59 20 42 59 54 45 0D 20 20 20 20 20 20 20 20 |DY BYTE. | 00000510: 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 42 4E | INY. BN| 00000520: 45 20 4C 4F 4F 50 0D 0D 20 20 20 20 20 20 20 20 |E LOOP.. | 00000530: 20 49 4E 43 20 53 43 52 2B 31 0D 20 20 20 20 20 | INC SCR+1. | 00000540: 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 20 20 | DEX. | 00000550: 20 42 4E 45 20 4C 4F 4F 50 0D 20 20 20 20 20 20 | BNE LOOP. | 00000560: 20 20 20 43 4C 49 0D 20 20 20 20 20 20 20 20 20 | CLI. | 00000570: 52 54 53 0D 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |RTS..;**********| 00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D |*************.. |
;***************************************
.;*
*.;* GRAFIK AUS ZEICHENSATZ AUFBAUEN
*.;*
*.;***********************************
****..START = $1000.. *= STAR
T..CHAR = $2000; BASIS-ADRESSEN.
SCREEN = $2800;.GRAFIK = $4000;..BYT
E = $02; REGISTER 1 BYTE.GR
= $03;$04 REGISTER 2 BYTES.SCR
= $05;$06.MEM = $22;$23..;******
*********************************..
SEI. LDY #0. LDA #>G
RAFIK. STY GR. STA GR+1.
LDA #>SCREEN. STY SCR.
STA SCR+1.. LDX #4; 4 BL
OECKE = 1024 BYTE..LOOP LDA (SCR),Y.
STY BYTE.. LDY #0 ; A
DRESSE IM ZEICHEN-. STY MEM ; S
ATZ BERECHNEN. STY MEM+1.
ASL A. ROL MEM+1. ASL
A. ROL MEM+1. ASL A.
STA MEM. LDA MEM+1.
ROL A. CLC. ADC #>CHAR.
STA MEM+1..LOOP2 LDA (MEM),Y
; ZEICHENDATEN IN. STA (GR),Y
; GRAFIK KOPIEREN. INY.
CPY #8. BNE LOOP2.. CLC
; NEUEN ZEIGER AUF DIE. LDA
GR ; GRAFIK BERECHNEN. ADC #8
. STA GR. LDA GR+1.
ADC #0. STA GR+1.. L
DY BYTE. INY. BNE LOOP..
INC SCR+1. DEX.
BNE LOOP. CLI. RTS..;**
*************************************..
> CLICK IMAGE PREVIEW FOR FULL MODAL