HALF WIDTH .SRC
FILE INFORMATION
FILENAME(S): HALF WIDTH .SRC
FILE TYPE(S): SEQ
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 16:10:45
APPEARS ON: 1 disk(s)
FILE HASH
144724d66a4a61999019a707178d5e97cb4a113c0207e01e884ca87dbba301fc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DIGITAL NEWS | HALF WIDTH .SRC | SEQ | BrainSkull, Sammlung | 7 | 11 | 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 48 41 4C 46 20 57 49 44 54 48 | HALF WIDTH| 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000050: 2A 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.;*************| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 2A 20 20 20 |**********.;* | 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 20 47 52 41 46 49 4B 31 20 41 | *.;* GRAFIK1 A| 000000B0: 55 46 20 44 49 45 20 48 41 4C 42 45 20 42 52 45 |UF DIE HALBE BRE| 000000C0: 49 54 45 20 20 20 20 20 20 20 20 2A 0D 3B 2A 20 |ITE *.;* | 000000D0: 52 45 44 55 5A 49 45 52 45 4E 20 55 4E 44 20 49 |REDUZIEREN UND I| 000000E0: 4E 20 47 52 41 46 49 4B 32 20 53 50 45 49 43 48 |N GRAFIK2 SPEICH| 000000F0: 45 52 4E 20 2A 0D 3B 2A 20 20 20 20 20 20 20 20 |ERN *.;* | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D 3B | *.;| 00000120: 2A 20 20 25 58 41 58 41 58 41 58 41 20 2B 20 25 |* %XAXAXAXA + %| 00000130: 58 42 58 42 58 42 58 42 20 3D 20 25 41 41 41 41 |XBXBXBXB = %AAAA| 00000140: 42 42 42 42 20 20 2A 0D 3B 2A 20 20 20 20 20 20 |BBBB *.;* | 00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *| 00000170: 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************| 00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 53 54 41 52 54 |*********..START| 000001A0: 20 20 20 20 3D 20 24 31 30 30 30 0D 0D 20 20 20 | = $1000.. | 000001B0: 20 20 20 20 20 20 2A 3D 20 53 54 41 52 54 0D 0D | *= START..| 000001C0: 47 52 41 46 49 4B 31 20 20 3D 20 24 32 30 30 30 |GRAFIK1 = $2000| 000001D0: 0D 47 52 41 46 49 4B 32 20 20 3D 20 24 34 30 30 |.GRAFIK2 = $400| 000001E0: 30 0D 0D 52 30 20 20 20 20 20 20 20 3D 20 24 30 |0..R0 = $0| 000001F0: 32 20 20 20 20 20 20 20 3B 20 41 4B 54 2E 20 5A |2 ; AKT. Z| 00000200: 45 49 4C 45 0D 52 31 20 20 20 20 20 20 20 3D 20 |EILE.R1 = | 00000210: 24 30 33 3B 30 34 0D 52 32 20 20 20 20 20 20 20 |$03;04.R2 | 00000220: 3D 20 24 30 35 3B 30 36 0D 52 33 20 20 20 20 20 |= $05;06.R3 | 00000230: 20 20 3D 20 24 30 37 3B 30 38 0D 52 34 20 20 20 | = $07;08.R4 | 00000240: 20 20 20 20 3D 20 24 30 39 3B 30 41 0D 0D 3B 2A | = $09;0A..;*| 00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000270: 2A 2A 2A 2A 2A 2A 0D 0D 48 41 4C 46 57 49 44 54 |******..HALFWIDT| 00000280: 48 0D 20 20 20 20 20 20 20 20 20 53 45 49 0D 20 |H. SEI. | 00000290: 20 20 20 20 20 20 20 20 43 4C 44 0D 20 20 20 20 | CLD. | 000002A0: 20 20 20 20 20 4C 44 59 20 23 30 0D 20 20 20 20 | LDY #0. | 000002B0: 20 20 20 20 20 4C 44 41 20 23 3E 47 52 41 46 49 | LDA #>GRAFI| 000002C0: 4B 31 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 |K1. STY | 000002D0: 52 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |R1. STA | 000002E0: 52 31 2B 31 0D 20 20 20 20 20 20 20 20 20 4C 44 |R1+1. LD| 000002F0: 41 20 23 3E 47 52 41 46 49 4B 32 0D 20 20 20 20 |A #>GRAFIK2. | 00000300: 20 20 20 20 20 53 54 59 20 52 32 0D 20 20 20 20 | STY R2. | 00000310: 20 20 20 20 20 53 54 41 20 52 32 2B 31 0D 0D 20 | STA R2+1.. | 00000320: 20 20 20 20 20 20 20 20 4C 44 58 20 23 33 32 20 | LDX #32 | 00000330: 20 20 20 20 20 20 3B 20 47 52 41 46 49 4B 32 0D | ; GRAFIK2.| 00000340: 20 20 20 20 20 20 20 20 20 54 59 41 20 20 20 20 | TYA | 00000350: 20 20 20 20 20 20 20 3B 20 4C 4F 45 53 43 48 45 | ; LOESCHE| 00000360: 4E 0D 43 4C 45 41 52 20 20 20 20 53 54 41 20 28 |N.CLEAR STA (| 00000370: 52 32 29 2C 59 0D 20 20 20 20 20 20 20 20 20 49 |R2),Y. I| 00000380: 4E 59 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |NY. BNE | 00000390: 43 4C 45 41 52 0D 20 20 20 20 20 20 20 20 20 49 |CLEAR. I| 000003A0: 4E 43 20 52 32 2B 31 0D 20 20 20 20 20 20 20 20 |NC R2+1. | 000003B0: 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 42 4E | DEX. BN| 000003C0: 45 20 43 4C 45 41 52 0D 0D 20 20 20 20 20 20 20 |E CLEAR.. | 000003D0: 20 20 4C 44 41 20 23 3E 47 52 41 46 49 4B 32 0D | LDA #>GRAFIK2.| 000003E0: 20 20 20 20 20 20 20 20 20 53 54 41 20 52 32 2B | STA R2+| 000003F0: 31 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |1.. LDA | 00000400: 23 32 35 20 20 20 20 20 20 20 3B 20 32 35 2A 38 |#25 ; 25*8| 00000410: 20 5A 45 49 4C 45 4E 0D 20 20 20 20 20 20 20 20 | ZEILEN. | 00000420: 20 53 54 41 20 52 30 0D 0D 20 20 20 20 20 20 20 | STA R0.. | 00000430: 20 20 4C 44 41 20 52 32 20 20 20 20 20 20 20 20 | LDA R2 | 00000440: 3B 20 5A 45 49 47 45 52 20 53 49 43 48 45 52 4E |; ZEIGER SICHERN| 00000450: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 52 33 |. STA R3| 00000460: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 52 32 |. LDA R2| 00000470: 2B 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |+1. STA | 00000480: 52 33 2B 31 0D 0D 4C 4F 4F 50 33 20 20 20 20 4C |R3+1..LOOP3 L| 00000490: 44 58 20 23 32 30 20 20 20 20 20 20 20 3B 20 4E |DX #20 ; N| 000004A0: 45 55 45 20 42 52 45 49 54 45 0D 0D 4C 4F 4F 50 |EUE BREITE..LOOP| 000004B0: 32 20 20 20 20 4C 44 59 20 23 30 0D 4C 4F 4F 50 |2 LDY #0.LOOP| 000004C0: 31 20 20 20 20 4A 53 52 20 43 4F 4D 50 52 45 53 |1 JSR COMPRES| 000004D0: 53 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 52 |S. STY R| 000004E0: 34 0D 20 20 20 20 20 20 20 20 20 54 59 41 0D 20 |4. TYA. | 000004F0: 20 20 20 20 20 20 20 20 4F 52 41 20 23 38 0D 20 | ORA #8. | 00000500: 20 20 20 20 20 20 20 20 54 41 59 0D 20 20 20 20 | TAY. | 00000510: 20 20 20 20 20 4A 53 52 20 43 4F 4D 50 52 45 53 | JSR COMPRES| 00000520: 53 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 52 |S. LDY R| 00000530: 34 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 52 |4. LDA R| 00000540: 34 2B 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 |4+1. STA| 00000550: 20 28 52 33 29 2C 59 0D 20 20 20 20 20 20 20 20 | (R3),Y. | 00000560: 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 43 50 | INY. CP| 00000570: 59 20 23 38 0D 20 20 20 20 20 20 20 20 20 42 43 |Y #8. BC| 00000580: 43 20 4C 4F 4F 50 31 0D 0D 20 20 20 20 20 20 20 |C LOOP1.. | 00000590: 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 | CLC | 000005A0: 3B 20 5A 45 49 47 45 52 20 41 45 4E 44 45 52 4E |; ZEIGER AENDERN| 000005B0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 52 31 |. LDA R1| 000005C0: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 31 |. ADC #1| 000005D0: 36 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 52 |6. STA R| 000005E0: 31 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 4D |1. BCC M| 000005F0: 30 31 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 |01. INC | 00000600: 52 31 2B 31 0D 0D 4D 30 31 20 20 20 20 20 20 43 |R1+1..M01 C| 00000610: 4C 43 0D 20 20 20 20 20 20 20 20 20 54 59 41 0D |LC. TYA.| 00000620: 20 20 20 20 20 20 20 20 20 41 44 43 20 52 33 0D | ADC R3.| 00000630: 20 20 20 20 20 20 20 20 20 53 54 41 20 52 33 0D | STA R3.| 00000640: 20 20 20 20 20 20 20 20 20 42 43 43 20 4D 30 32 | BCC M02| 00000650: 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 52 33 |. INC R3| 00000660: 2B 31 0D 0D 4D 30 32 20 20 20 20 20 20 44 45 58 |+1..M02 DEX| 00000670: 20 20 20 20 20 20 20 20 20 20 20 3B 20 47 45 53 | ; GES| 00000680: 41 4D 54 45 20 42 52 45 49 54 45 3F 0D 20 20 20 |AMTE BREITE?. | 00000690: 20 20 20 20 20 20 42 4E 45 20 4C 4F 4F 50 32 0D | BNE LOOP2.| 000006A0: 0D 20 20 20 20 20 20 20 20 20 43 4C 43 20 20 20 |. CLC | 000006B0: 20 20 20 20 20 20 20 20 3B 20 4E 41 45 43 48 53 | ; NAECHS| 000006C0: 54 45 20 5A 45 49 4C 45 0D 20 20 20 20 20 20 20 |TE ZEILE. | 000006D0: 20 20 4C 44 41 20 52 32 0D 20 20 20 20 20 20 20 | LDA R2. | 000006E0: 20 20 41 44 43 20 23 3C 33 32 30 0D 20 20 20 20 | ADC #<320. | 000006F0: 20 20 20 20 20 53 54 41 20 52 32 0D 20 20 20 20 | STA R2. | 00000700: 20 20 20 20 20 53 54 41 20 52 33 0D 20 20 20 20 | STA R3. | 00000710: 20 20 20 20 20 4C 44 41 20 52 32 2B 31 0D 20 20 | LDA R2+1. | 00000720: 20 20 20 20 20 20 20 41 44 43 20 23 3E 33 32 30 | ADC #>320| 00000730: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 52 32 |. STA R2| 00000740: 2B 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |+1. STA | 00000750: 52 33 2B 31 0D 0D 20 20 20 20 20 20 20 20 20 44 |R3+1.. D| 00000760: 45 43 20 52 30 20 20 20 20 20 20 20 20 3B 20 41 |EC R0 ; A| 00000770: 4C 4C 45 20 5A 45 49 4C 45 4E 20 3F 3F 0D 20 20 |LLE ZEILEN ??. | 00000780: 20 20 20 20 20 20 20 42 4E 45 20 4C 4F 4F 50 33 | BNE LOOP3| 00000790: 0D 0D 20 20 20 20 20 20 20 20 20 43 4C 49 0D 20 |.. CLI. | 000007A0: 20 20 20 20 20 20 20 20 52 54 53 0D 0D 3B 2A 2A | RTS..;**| 000007B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000007C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000007D0: 2A 2A 2A 2A 2A 0D 3B 2A 20 20 20 20 20 53 55 42 |*****.;* SUB| 000007E0: 52 4F 55 54 49 4E 45 20 46 55 45 52 20 48 41 4C |ROUTINE FUER HAL| 000007F0: 46 20 57 49 44 54 48 20 20 20 20 20 20 2A 0D 3B |F WIDTH *.;| 00000800: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000820: 2A 2A 2A 2A 2A 2A 2A 0D 0D 43 4F 4D 50 52 45 53 |*******..COMPRES| 00000830: 53 20 4C 44 41 20 28 52 31 29 2C 59 0D 20 20 20 |S LDA (R1),Y. | 00000840: 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 | ASL A. | 00000850: 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 | ASL A. | 00000860: 20 20 20 20 52 4F 4C 20 52 34 2B 31 0D 20 20 20 | ROL R4+1. | 00000870: 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 | ASL A. | 00000880: 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 | ASL A. | 00000890: 20 20 20 20 52 4F 4C 20 52 34 2B 31 0D 20 20 20 | ROL R4+1. | 000008A0: 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 | ASL A. | 000008B0: 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 | ASL A. | 000008C0: 20 20 20 20 52 4F 4C 20 52 34 2B 31 0D 20 20 20 | ROL R4+1. | 000008D0: 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 | ASL A. | 000008E0: 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 | ASL A. | 000008F0: 20 20 20 20 52 4F 4C 20 52 34 2B 31 0D 20 20 20 | ROL R4+1. | 00000900: 20 20 20 20 20 20 52 54 53 0D 0D 3B 2A 2A 2A 2A | RTS..;****| 00000910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000930: 2A 2A 2A 0D 0D |***.. |
;***************************************
.;* HALF WIDTH
*.;*************************************
**.;*
*.;* GRAFIK1 AUF DIE HALBE BREITE
*.;* REDUZIEREN UND IN GRAFIK2 SPEICH
ERN *.;*
*.;* %XAXAXAXA + %XBXBXBXB = %AAAA
BBBB *.;*
*.;******************************
*********..START = $1000.. *=
START..GRAFIK1 = $2000.GRAFIK2 = $400
0..R0 = $02 ; AKT. ZEILE.R1
= $03;04.R2 = $05;06.R3
= $07;08.R4 = $09;0A..;*********
******************************..HALFWIDT
H. SEI. CLD. LDY
#0. LDA #>GRAFIK1. STY
R1. STA R1+1. LDA #>GRAF
IK2. STY R2. STA R2+1..
LDX #32 ; GRAFIK2.
TYA ; LOESCHEN.CLEAR STA (
R2),Y. INY. BNE CLEAR.
INC R2+1. DEX. BN
E CLEAR.. LDA #>GRAFIK2.
STA R2+1.. LDA #25 ; 25*8
ZEILEN. STA R0.. LDA R2
; ZEIGER SICHERN. STA R3
. LDA R2+1. STA R3+1..LO
OP3 LDX #20 ; NEUE BREITE..LOOP
2 LDY #0.LOOP1 JSR COMPRESS.
STY R4. TYA. ORA #8.
TAY. JSR COMPRESS.
LDY R4. LDA R4+1. STA
(R3),Y. INY. CPY #8.
BCC LOOP1.. CLC
; ZEIGER AENDERN. LDA R1.
ADC #16. STA R1. BCC M
01. INC R1+1..M01 CLC.
TYA. ADC R3. STA R3.
BCC M02. INC R3+1..M02
DEX ; GESAMTE BREITE?.
BNE LOOP2.. CLC
; NAECHSTE ZEILE. LDA R2.
ADC #<320. STA R2. STA
R3. LDA R2+1. ADC #>320
. STA R2+1. STA R3+1..
DEC R0 ; ALLE ZEILEN ??.
BNE LOOP3.. CLI.
RTS..;**********************************
*****.;* SUBROUTINE FUER HALF WIDTH
*.;********************************
*******..COMPRESS LDA (R1),Y. AS
L A. ASL A. ROL R4+1.
ASL A. ASL A. ROL
R4+1. ASL A. ASL A.
ROL R4+1. ASL A. ASL
A. ROL R4+1. RTS..;****
***********************************..
> CLICK IMAGE PREVIEW FOR FULL MODAL