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 >
Text File  |  2022-10-26  |  1KB  |  39 lines
  1.           *= $1000
  2. ;------ hex to ascii -------------------
  3.           jsr bytinit   ;bytes in $fb/$fc
  4.           jsr calc      ;umrechnen
  5.           rts           ;rueckkehr
  6.  
  7. calc      ldy #$01      ;register
  8.           ldx #$00      ;vorbereiten
  9. calcloop  lda $fb,y     ;erstes hexbyte
  10.           pha           ;holen und speichern
  11.           lsr a         ;hi-nibble
  12.           lsr a         ;isolieren
  13.           lsr a         ;
  14.           lsr a         ;
  15.           jsr wdhadd    ;umrechnen
  16.           inx           ;screenmatrix+1
  17.           pla           ;altes byte holen
  18.           jsr wdhadd    ;und umrechnen
  19.           inx           ;screenmatrix+1
  20.           dey           ;solange bis 2 bytes
  21.           bpl calcloop  ;umgerechnet wurden
  22.           rts           ;
  23. wdhadd    and #%00001111;lo-nibble isolieren
  24.           cmp #$0a      ;wenn kleiner $0a
  25.           bcc add       ;dann zahl schreiben
  26.           sbc #$39      ;wenn groesser dann
  27.                         ;buchstabe errechnen
  28. add       adc #$30
  29.           sta $0400,x   ;in screenmatrix
  30.           rts           ;schreiben und ende
  31. ;------- set bytes ---------------------
  32. bytinit   ldx #$01
  33. byt1      lda bytes,x   ;$fb und $fc
  34.           sta $fb,x     ;vorbereiten
  35.           dex           ;auf umrechnung
  36.           bpl byt1
  37.           rts
  38. bytes     .byte $ab,$12
  39.