home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1993 April
/
64er_Magazin_93-04_1993_Markt__Technik_de_Side_A.d64
/
hex-ascii
< prev
next >
Wrap
Text File
|
2022-10-26
|
1KB
|
39 lines
*= $1000
;------ hex to ascii -------------------
jsr bytinit ;bytes in $fb/$fc
jsr calc ;umrechnen
rts ;rueckkehr
calc ldy #$01 ;register
ldx #$00 ;vorbereiten
calcloop lda $fb,y ;erstes hexbyte
pha ;holen und speichern
lsr a ;hi-nibble
lsr a ;isolieren
lsr a ;
lsr a ;
jsr wdhadd ;umrechnen
inx ;screenmatrix+1
pla ;altes byte holen
jsr wdhadd ;und umrechnen
inx ;screenmatrix+1
dey ;solange bis 2 bytes
bpl calcloop ;umgerechnet wurden
rts ;
wdhadd and #%00001111;lo-nibble isolieren
cmp #$0a ;wenn kleiner $0a
bcc add ;dann zahl schreiben
sbc #$39 ;wenn groesser dann
;buchstabe errechnen
add adc #$30
sta $0400,x ;in screenmatrix
rts ;schreiben und ende
;------- set bytes ---------------------
bytinit ldx #$01
byt1 lda bytes,x ;$fb und $fc
sta $fb,x ;vorbereiten
dex ;auf umrechnung
bpl byt1
rts
bytes .byte $ab,$12