ASCII-HEX
FILE INFORMATION
FILENAME(S): ASCII-HEX
FILE TYPE(S): SEQ
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 01:13:03
APPEARS ON: 1 disk(s)
FILE HASH
81d4b6b093b3823fcb8aa01b956b7e758b4cf90e02e672f2115958568fe3c2a5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10304 SEITE A | ASCII-HEX | SEQ | C64er | 19 | 8 | 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 41 53 43 49 49 |00.;------ ASCII| 00000020: 20 54 4F 20 48 45 58 20 2D 2D 2D 2D 2D 2D 2D 2D | TO HEX --------| 00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D 20 20 20 |-----------.. | 00000040: 20 20 20 20 20 20 20 4A 53 52 20 53 54 52 49 4E | JSR STRIN| 00000050: 49 54 20 20 20 3B 53 54 52 49 4E 47 20 41 55 46 |IT ;STRING AUF| 00000060: 20 53 43 52 45 45 4E 0D 20 20 20 20 20 20 20 20 | SCREEN. | 00000070: 20 20 4A 53 52 20 43 41 4C 43 20 20 20 20 20 20 | JSR CALC | 00000080: 3B 55 4D 52 45 43 48 4E 45 4E 0D 20 20 20 20 20 |;UMRECHNEN. | 00000090: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 000000A0: 20 20 20 3B 5A 55 52 55 45 43 4B 4B 45 48 52 45 | ;ZURUECKKEHRE| 000000B0: 4E 0D 0D 43 41 4C 43 20 20 20 20 20 20 4C 44 58 |N..CALC LDX| 000000C0: 20 23 24 30 30 20 20 20 20 20 20 3B 52 45 47 49 | #$00 ;REGI| 000000D0: 53 54 45 52 0D 20 20 20 20 20 20 20 20 20 20 4C |STER. L| 000000E0: 44 59 20 23 24 30 31 20 20 20 20 20 20 3B 56 4F |DY #$01 ;VO| 000000F0: 52 42 45 52 45 49 54 45 4E 0D 43 41 4C 43 4C 4F |RBEREITEN.CALCLO| 00000100: 4F 50 20 20 4C 44 41 20 24 30 34 30 30 2C 58 20 |OP LDA $0400,X | 00000110: 20 20 3B 45 52 53 54 45 4E 20 41 53 43 49 49 2D | ;ERSTEN ASCII-| 00000120: 43 4F 44 45 0D 20 20 20 20 20 20 20 20 20 20 43 |CODE. C| 00000130: 4D 50 20 23 24 32 46 20 20 20 20 20 20 3B 48 4F |MP #$2F ;HO| 00000140: 4C 45 4E 20 55 4E 44 20 50 52 55 45 46 45 4E 0D |LEN UND PRUEFEN.| 00000150: 20 20 20 20 20 20 20 20 20 20 42 43 53 20 43 4F | BCS CO| 00000160: 4E 54 20 20 20 20 20 20 3B 4F 42 20 42 55 43 48 |NT ;OB BUCH| 00000170: 53 54 41 42 45 0D 20 20 20 20 20 20 20 20 20 20 |STABE. | 00000180: 41 44 43 20 23 24 30 39 20 20 20 20 20 20 3B 4A |ADC #$09 ;J| 00000190: 41 3A 24 30 39 20 41 44 44 49 45 52 45 4E 0D 43 |A:$09 ADDIEREN.C| 000001A0: 4F 4E 54 20 20 20 20 20 20 43 4C 43 20 20 20 20 |ONT CLC | 000001B0: 20 20 20 20 20 20 20 3B 4E 45 49 4E 20 44 41 4E | ;NEIN DAN| 000001C0: 4E 20 57 45 49 54 45 52 0D 20 20 20 20 20 20 20 |N WEITER. | 000001D0: 20 20 20 41 53 4C 20 41 20 20 20 20 20 20 20 20 | ASL A | 000001E0: 20 3B 4C 4F 57 4E 49 42 42 4C 45 0D 20 20 20 20 | ;LOWNIBBLE. | 000001F0: 20 20 20 20 20 20 41 53 4C 20 41 20 20 20 20 20 | ASL A | 00000200: 20 20 20 20 3B 49 53 4F 4C 49 45 52 45 4E 0D 20 | ;ISOLIEREN. | 00000210: 20 20 20 20 20 20 20 20 20 41 53 4C 20 41 20 20 | ASL A | 00000220: 20 20 20 20 20 20 20 3B 55 4E 44 20 46 55 45 52 | ;UND FUER| 00000230: 20 53 50 41 45 54 45 52 45 0D 20 20 20 20 20 20 | SPAETERE. | 00000240: 20 20 20 20 41 53 4C 20 41 20 20 20 20 20 20 20 | ASL A | 00000250: 20 20 3B 56 45 52 4B 4E 55 45 50 46 55 4E 47 0D | ;VERKNUEPFUNG.| 00000260: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 | STA $0| 00000270: 32 20 20 20 20 20 20 20 3B 53 50 45 49 43 48 45 |2 ;SPEICHE| 00000280: 52 4E 0D 20 20 20 20 20 20 20 20 20 20 49 4E 58 |RN. INX| 00000290: 20 20 20 20 20 20 20 20 20 20 20 3B 4E 41 45 43 | ;NAEC| 000002A0: 48 53 54 45 53 20 42 59 54 45 0D 20 20 20 20 20 |HSTES BYTE. | 000002B0: 20 20 20 20 20 4C 44 41 20 24 30 34 30 30 2C 58 | LDA $0400,X| 000002C0: 20 20 20 3B 48 4F 4C 45 4E 0D 20 20 20 20 20 20 | ;HOLEN. | 000002D0: 20 20 20 20 43 4D 50 20 23 24 32 46 20 20 20 20 | CMP #$2F | 000002E0: 20 20 3B 55 4E 44 20 50 52 55 45 46 45 4E 20 4F | ;UND PRUEFEN O| 000002F0: 42 0D 20 20 20 20 20 20 20 20 20 20 42 43 53 20 |B. BCS | 00000300: 43 4F 4E 54 32 20 20 20 20 20 3B 42 55 43 48 53 |CONT2 ;BUCHS| 00000310: 54 41 42 45 0D 20 20 20 20 20 20 20 20 20 20 41 |TABE. A| 00000320: 44 43 20 23 24 30 39 20 20 20 20 20 20 3B 4A 41 |DC #$09 ;JA| 00000330: 3A 24 30 39 0D 43 4F 4E 54 32 20 20 20 20 20 41 |:$09.CONT2 A| 00000340: 4E 44 20 23 25 30 30 30 30 31 31 31 31 3B 4E 45 |ND #%00001111;NE| 00000350: 49 4E 20 44 41 4E 4E 20 4C 4F 57 2D 4E 49 42 42 |IN DANN LOW-NIBB| 00000360: 4C 45 0D 20 20 20 20 20 20 20 20 20 20 4F 52 41 |LE. ORA| 00000370: 20 24 30 32 20 20 20 20 20 20 20 3B 49 53 4F 4C | $02 ;ISOL| 00000380: 49 45 52 45 4E 20 55 4E 44 20 4D 49 54 0D 20 20 |IEREN UND MIT. | 00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003A0: 20 20 20 20 20 20 3B 48 49 2D 4E 49 42 42 4C 45 | ;HI-NIBBLE| 000003B0: 20 56 45 52 4B 4E 55 45 50 46 45 4E 0D 20 20 20 | VERKNUEPFEN. | 000003C0: 20 20 20 20 20 20 20 53 54 41 20 24 46 42 2C 59 | STA $FB,Y| 000003D0: 20 20 20 20 20 3B 49 4E 20 24 46 42 2B 59 20 53 | ;IN $FB+Y S| 000003E0: 50 45 49 43 48 45 52 4E 0D 20 20 20 20 20 20 20 |PEICHERN. | 000003F0: 20 20 20 44 45 59 20 20 20 20 20 20 20 20 20 20 | DEY | 00000400: 20 3B 0D 20 20 20 20 20 20 20 20 20 20 49 4E 58 | ;. INX| 00000410: 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 20 20 | ;. | 00000420: 20 20 20 20 20 20 20 43 50 58 20 23 24 30 34 20 | CPX #$04 | 00000430: 20 20 20 20 20 3B 42 45 52 45 49 54 53 20 34 20 | ;BEREITS 4 | 00000440: 41 53 43 49 49 2D 43 4F 44 45 53 0D 20 20 20 20 |ASCII-CODES. | 00000450: 20 20 20 20 20 20 42 4E 45 20 43 41 4C 43 4C 4F | BNE CALCLO| 00000460: 4F 50 20 20 3B 41 42 47 45 41 52 42 45 49 54 45 |OP ;ABGEARBEITE| 00000470: 54 3F 0D 20 20 20 20 20 20 20 20 20 20 52 54 53 |T?. RTS| 00000480: 20 20 20 20 20 20 20 20 20 20 20 3B 57 45 4E 4E | ;WENN| 00000490: 20 4A 41 3A 20 52 55 45 43 4B 4B 45 48 52 0D 3B | JA: RUECKKEHR.;| 000004A0: 2D 2D 2D 2D 2D 2D 2D 20 53 45 54 20 53 54 52 49 |------- SET STRI| 000004B0: 4E 47 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |NG -------------| 000004C0: 2D 2D 2D 2D 2D 2D 2D 0D 53 54 52 49 4E 49 54 20 |-------.STRINIT | 000004D0: 20 20 4C 44 58 20 23 24 30 33 0D 53 54 52 31 20 | LDX #$03.STR1 | 000004E0: 20 20 20 20 20 4C 44 41 20 53 54 52 49 4E 47 2C | LDA STRING,| 000004F0: 58 20 20 3B 56 4F 4E 20 24 30 34 30 30 2D 24 30 |X ;VON $0400-$0| 00000500: 34 30 33 0D 20 20 20 20 20 20 20 20 20 20 53 54 |403. ST| 00000510: 41 20 24 30 34 30 30 2C 58 20 20 20 3B 53 54 52 |A $0400,X ;STR| 00000520: 49 4E 47 20 22 41 42 31 32 22 20 41 55 46 0D 20 |ING "AB12" AUF. | 00000530: 20 20 20 20 20 20 20 20 20 44 45 58 20 20 20 20 | DEX | 00000540: 20 20 20 20 20 20 20 3B 44 45 4E 20 42 49 4C 44 | ;DEN BILD| 00000550: 53 43 48 49 52 4D 0D 20 20 20 20 20 20 20 20 20 |SCHIRM. | 00000560: 20 42 50 4C 20 53 54 52 31 20 20 20 20 20 20 3B | BPL STR1 ;| 00000570: 53 43 48 52 45 49 42 45 4E 0D 20 20 20 20 20 20 |SCHREIBEN. | 00000580: 20 20 20 20 52 54 53 0D 53 54 52 49 4E 47 20 20 | RTS.STRING | 00000590: 20 20 2E 54 45 58 54 20 22 01 02 31 32 22 0D 20 | .TEXT "..12". |
*= $1000.;------ ASCII TO HEX
-------------------.. JSR STRIN
IT ;STRING AUF SCREEN. JSR CA
LC ;UMRECHNEN. RTS
;ZURUECKKEHREN..CALC LDX #$00
;REGISTER. LDY #$01 ;VO
RBEREITEN.CALCLOOP LDA $0400,X ;ERSTE
N ASCII-CODE. CMP #$2F ;HO
LEN UND PRUEFEN. BCS CONT
;OB BUCHSTABE. ADC #$09 ;J
A:$09 ADDIEREN.CONT CLC ;
NEIN DANN WEITER. ASL A
;LOWNIBBLE. ASL A ;ISO
LIEREN. ASL A ;UND FUER
SPAETERE. ASL A ;VERKN
UEPFUNG. STA $02 ;SPEICHE
RN. INX ;NAECHSTES BY
TE. LDA $0400,X ;HOLEN.
CMP #$2F ;UND PRUEFEN OB.
BCS CONT2 ;BUCHSTABE. A
DC #$09 ;JA:$09.CONT2 AND #%000
01111;NEIN DANN LOW-NIBBLE. ORA
$02 ;ISOLIEREN UND MIT.
;HI-NIBBLE VERKNUEPFEN.
STA $FB,Y ;IN $FB+Y SPEICHERN
. DEY ;. INX
;. CPX #$04 ;BE
REITS 4 ASCII-CODES. BNE CALCLO
OP ;ABGEARBEITET?. RTS
;WENN JA: RUECKKEHR.;------- SET STRI
NG --------------------.STRINIT LDX #$
03.STR1 LDA STRING,X ;VON $0400-$0
403. STA $0400,X ;STRING "AB1
2" AUF. DEX ;DEN BILD
SCHIRM. BPL STR1 ;SCHREIBE
N. RTS.STRING .TEXT "..12".
> CLICK IMAGE PREVIEW FOR FULL MODAL