home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 April / 64er_Magazin_93-04_1993_Markt__Technik_de_Side_A.d64 / ascii-hex < prev    next >
Text File  |  2022-10-26  |  1KB  |  42 lines
  1.           *= $1000
  2. ;------ ascii to hex -------------------
  3.  
  4.           jsr strinit   ;string auf screen
  5.           jsr calc      ;umrechnen
  6.           rts           ;zurueckkehren
  7.  
  8. calc      ldx #$00      ;register
  9.           ldy #$01      ;vorbereiten
  10. calcloop  lda $0400,x   ;ersten ascii-code
  11.           cmp #$2f      ;holen und pruefen
  12.           bcs cont      ;ob buchstabe
  13.           adc #$09      ;ja:$09 addieren
  14. cont      clc           ;nein dann weiter
  15.           asl a         ;lownibble
  16.           asl a         ;isolieren
  17.           asl a         ;und fuer spaetere
  18.           asl a         ;verknuepfung
  19.           sta $02       ;speichern
  20.           inx           ;naechstes byte
  21.           lda $0400,x   ;holen
  22.           cmp #$2f      ;und pruefen ob
  23.           bcs cont2     ;buchstabe
  24.           adc #$09      ;ja:$09
  25. cont2     and #%00001111;nein dann low-nibble
  26.           ora $02       ;isolieren und mit
  27.                         ;hi-nibble verknuepfen
  28.           sta $fb,y     ;in $fb+y speichern
  29.           dey           ;
  30.           inx           ;
  31.           cpx #$04      ;bereits 4 ascii-codes
  32.           bne calcloop  ;abgearbeitet?
  33.           rts           ;wenn ja: rueckkehr
  34. ;------- set string --------------------
  35. strinit   ldx #$03
  36. str1      lda string,x  ;von $0400-$0403
  37.           sta $0400,x   ;string "ab12" auf
  38.           dex           ;den bildschirm
  39.           bpl str1      ;schreiben
  40.           rts
  41. string    .text "12"
  42.