HEX-ASCII
FILE INFORMATION
FILENAME(S): HEX-ASCII
FILE TYPE(S): SEQ
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 01:13:03
APPEARS ON: 1 disk(s)
FILE HASH
54aadfddcbf33d78f87d533b824245abfddfc73e38881a9e3601ea1c2d7d1fe5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10304 SEITE A | HEX-ASCII | SEQ | C64er | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 20 2A 3D 20 24 31 30 | *= $10| 00000010: 30 30 0D 3B 2D 2D 2D 2D 2D 2D 20 48 45 58 20 54 |00.;------ HEX T| 00000020: 4F 20 41 53 43 49 49 20 2D 2D 2D 2D 2D 2D 2D 2D |O ASCII --------| 00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 20 20 20 |-----------. | 00000040: 20 20 20 20 20 20 4A 53 52 20 42 59 54 49 4E 49 | JSR BYTINI| 00000050: 54 20 20 20 3B 42 59 54 45 53 20 49 4E 20 24 46 |T ;BYTES IN $F| 00000060: 42 2F 24 46 43 0D 20 20 20 20 20 20 20 20 20 20 |B/$FC. | 00000070: 4A 53 52 20 43 41 4C 43 20 20 20 20 20 20 3B 55 |JSR CALC ;U| 00000080: 4D 52 45 43 48 4E 45 4E 0D 20 20 20 20 20 20 20 |MRECHNEN. | 00000090: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 | RTS | 000000A0: 20 3B 52 55 45 43 4B 4B 45 48 52 0D 0D 43 41 4C | ;RUECKKEHR..CAL| 000000B0: 43 20 20 20 20 20 20 4C 44 59 20 23 24 30 31 20 |C LDY #$01 | 000000C0: 20 20 20 20 20 3B 52 45 47 49 53 54 45 52 0D 20 | ;REGISTER. | 000000D0: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 30 | LDX #$0| 000000E0: 30 20 20 20 20 20 20 3B 56 4F 52 42 45 52 45 49 |0 ;VORBEREI| 000000F0: 54 45 4E 0D 43 41 4C 43 4C 4F 4F 50 20 20 4C 44 |TEN.CALCLOOP LD| 00000100: 41 20 24 46 42 2C 59 20 20 20 20 20 3B 45 52 53 |A $FB,Y ;ERS| 00000110: 54 45 53 20 48 45 58 42 59 54 45 0D 20 20 20 20 |TES HEXBYTE. | 00000120: 20 20 20 20 20 20 50 48 41 20 20 20 20 20 20 20 | PHA | 00000130: 20 20 20 20 3B 48 4F 4C 45 4E 20 55 4E 44 20 53 | ;HOLEN UND S| 00000140: 50 45 49 43 48 45 52 4E 0D 20 20 20 20 20 20 20 |PEICHERN. | 00000150: 20 20 20 4C 53 52 20 41 20 20 20 20 20 20 20 20 | LSR A | 00000160: 20 3B 48 49 2D 4E 49 42 42 4C 45 0D 20 20 20 20 | ;HI-NIBBLE. | 00000170: 20 20 20 20 20 20 4C 53 52 20 41 20 20 20 20 20 | LSR A | 00000180: 20 20 20 20 3B 49 53 4F 4C 49 45 52 45 4E 0D 20 | ;ISOLIEREN. | 00000190: 20 20 20 20 20 20 20 20 20 4C 53 52 20 41 20 20 | LSR A | 000001A0: 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 | ;. | 000001B0: 20 20 20 4C 53 52 20 41 20 20 20 20 20 20 20 20 | LSR A | 000001C0: 20 3B 0D 20 20 20 20 20 20 20 20 20 20 4A 53 52 | ;. JSR| 000001D0: 20 57 44 48 41 44 44 20 20 20 20 3B 55 4D 52 45 | WDHADD ;UMRE| 000001E0: 43 48 4E 45 4E 0D 20 20 20 20 20 20 20 20 20 20 |CHNEN. | 000001F0: 49 4E 58 20 20 20 20 20 20 20 20 20 20 20 3B 53 |INX ;S| 00000200: 43 52 45 45 4E 4D 41 54 52 49 58 2B 31 0D 20 20 |CREENMATRIX+1. | 00000210: 20 20 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 | PLA | 00000220: 20 20 20 20 20 20 3B 41 4C 54 45 53 20 42 59 54 | ;ALTES BYT| 00000230: 45 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 20 20 |E HOLEN. | 00000240: 20 20 4A 53 52 20 57 44 48 41 44 44 20 20 20 20 | JSR WDHADD | 00000250: 3B 55 4E 44 20 55 4D 52 45 43 48 4E 45 4E 0D 20 |;UND UMRECHNEN. | 00000260: 20 20 20 20 20 20 20 20 20 49 4E 58 20 20 20 20 | INX | 00000270: 20 20 20 20 20 20 20 3B 53 43 52 45 45 4E 4D 41 | ;SCREENMA| 00000280: 54 52 49 58 2B 31 0D 20 20 20 20 20 20 20 20 20 |TRIX+1. | 00000290: 20 44 45 59 20 20 20 20 20 20 20 20 20 20 20 3B | DEY ;| 000002A0: 53 4F 4C 41 4E 47 45 20 42 49 53 20 32 20 42 59 |SOLANGE BIS 2 BY| 000002B0: 54 45 53 0D 20 20 20 20 20 20 20 20 20 20 42 50 |TES. BP| 000002C0: 4C 20 43 41 4C 43 4C 4F 4F 50 20 20 3B 55 4D 47 |L CALCLOOP ;UMG| 000002D0: 45 52 45 43 48 4E 45 54 20 57 55 52 44 45 4E 0D |ERECHNET WURDEN.| 000002E0: 20 20 20 20 20 20 20 20 20 20 52 54 53 20 20 20 | RTS | 000002F0: 20 20 20 20 20 20 20 20 3B 0D 57 44 48 41 44 44 | ;.WDHADD| 00000300: 20 20 20 20 41 4E 44 20 23 25 30 30 30 30 31 31 | AND #%000011| 00000310: 31 31 3B 4C 4F 2D 4E 49 42 42 4C 45 20 49 53 4F |11;LO-NIBBLE ISO| 00000320: 4C 49 45 52 45 4E 0D 20 20 20 20 20 20 20 20 20 |LIEREN. | 00000330: 20 43 4D 50 20 23 24 30 41 20 20 20 20 20 20 3B | CMP #$0A ;| 00000340: 57 45 4E 4E 20 4B 4C 45 49 4E 45 52 20 24 30 41 |WENN KLEINER $0A| 00000350: 0D 20 20 20 20 20 20 20 20 20 20 42 43 43 20 41 |. BCC A| 00000360: 44 44 20 20 20 20 20 20 20 3B 44 41 4E 4E 20 5A |DD ;DANN Z| 00000370: 41 48 4C 20 53 43 48 52 45 49 42 45 4E 0D 20 20 |AHL SCHREIBEN. | 00000380: 20 20 20 20 20 20 20 20 53 42 43 20 23 24 33 39 | SBC #$39| 00000390: 20 20 20 20 20 20 3B 57 45 4E 4E 20 47 52 4F 45 | ;WENN GROE| 000003A0: 53 53 45 52 20 44 41 4E 4E 0D 20 20 20 20 20 20 |SSER DANN. | 000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003C0: 20 20 3B 42 55 43 48 53 54 41 42 45 20 45 52 52 | ;BUCHSTABE ERR| 000003D0: 45 43 48 4E 45 4E 0D 41 44 44 20 20 20 20 20 20 |ECHNEN.ADD | 000003E0: 20 41 44 43 20 23 24 33 30 0D 20 20 20 20 20 20 | ADC #$30. | 000003F0: 20 20 20 20 53 54 41 20 24 30 34 30 30 2C 58 20 | STA $0400,X | 00000400: 20 20 3B 49 4E 20 53 43 52 45 45 4E 4D 41 54 52 | ;IN SCREENMATR| 00000410: 49 58 0D 20 20 20 20 20 20 20 20 20 20 52 54 53 |IX. RTS| 00000420: 20 20 20 20 20 20 20 20 20 20 20 3B 53 43 48 52 | ;SCHR| 00000430: 45 49 42 45 4E 20 55 4E 44 20 45 4E 44 45 0D 3B |EIBEN UND ENDE.;| 00000440: 2D 2D 2D 2D 2D 2D 2D 20 53 45 54 20 42 59 54 45 |------- SET BYTE| 00000450: 53 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |S --------------| 00000460: 2D 2D 2D 2D 2D 2D 2D 0D 42 59 54 49 4E 49 54 20 |-------.BYTINIT | 00000470: 20 20 4C 44 58 20 23 24 30 31 0D 42 59 54 31 20 | LDX #$01.BYT1 | 00000480: 20 20 20 20 20 4C 44 41 20 42 59 54 45 53 2C 58 | LDA BYTES,X| 00000490: 20 20 20 3B 24 46 42 20 55 4E 44 20 24 46 43 0D | ;$FB UND $FC.| 000004A0: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 | STA $F| 000004B0: 42 2C 58 20 20 20 20 20 3B 56 4F 52 42 45 52 45 |B,X ;VORBERE| 000004C0: 49 54 45 4E 0D 20 20 20 20 20 20 20 20 20 20 44 |ITEN. D| 000004D0: 45 58 20 20 20 20 20 20 20 20 20 20 20 3B 41 55 |EX ;AU| 000004E0: 46 20 55 4D 52 45 43 48 4E 55 4E 47 0D 20 20 20 |F UMRECHNUNG. | 000004F0: 20 20 20 20 20 20 20 42 50 4C 20 42 59 54 31 0D | BPL BYT1.| 00000500: 20 20 20 20 20 20 20 20 20 20 52 54 53 0D 42 59 | RTS.BY| 00000510: 54 45 53 20 20 20 20 20 2E 42 59 54 45 20 24 41 |TES .BYTE $A| 00000520: 42 2C 24 31 32 0D 20 |B,$12. |
*= $1000.;------ HEX TO ASCII
-------------------. JSR BYTINI
T ;BYTES IN $FB/$FC. JSR CALC
;UMRECHNEN. RTS
;RUECKKEHR..CALC LDY #$01 ;RE
GISTER. LDX #$00 ;VORBEREI
TEN.CALCLOOP LDA $FB,Y ;ERSTES HEXB
YTE. PHA ;HOLEN UND S
PEICHERN. LSR A ;HI-NIB
BLE. LSR A ;ISOLIEREN.
LSR A ;. LSR A
;. JSR WDHADD ;UMRE
CHNEN. INX ;SCREENMAT
RIX+1. PLA ;ALTES BYT
E HOLEN. JSR WDHADD ;UND UMR
ECHNEN. INX ;SCREENMA
TRIX+1. DEY ;SOLANGE
BIS 2 BYTES. BPL CALCLOOP ;UMG
ERECHNET WURDEN. RTS
;.WDHADD AND #%00001111;LO-NIBBLE ISO
LIEREN. CMP #$0A ;WENN KLE
INER $0A. BCC ADD ;DANN Z
AHL SCHREIBEN. SBC #$39 ;W
ENN GROESSER DANN.
;BUCHSTABE ERRECHNEN.ADD ADC #$3
0. STA $0400,X ;IN SCREENMATR
IX. RTS ;SCHREIBEN UN
D ENDE.;------- SET BYTES --------------
-------.BYTINIT LDX #$01.BYT1 LDA
BYTES,X ;$FB UND $FC. STA $F
B,X ;VORBEREITEN. DEX
;AUF UMRECHNUNG. BPL BYT1.
RTS.BYTES .BYTE $AB,$12.
> CLICK IMAGE PREVIEW FOR FULL MODAL