home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / HEXDEC.SRC.txt < prev    next >
Text File  |  2020-08-13  |  1KB  |  37 lines
  1. ;========================================================
  2. ; CONVERTS HEX IN ($50,$51) TO DECIMAL 
  3. ; FROM APPLE PROGRAMMERS HANDBOOK P. 225
  4. ;========================================================
  5. HEXDEC              LDA   #$0A
  6.                     STA   $53
  7.                     LDY   #$04
  8. HEXDEC0             LDX   #$10
  9.                     LDA   #$00
  10.                     STA   $52
  11.                     CLC   
  12. HEXDEC1             ROL   $50
  13.                     ROL   $51
  14.                     ROL   $52
  15.                     DEX   
  16.                     BMI   HEXDEC2
  17.                     LDA   $52
  18.                     SEC   
  19.                     SBC   $53
  20.                     BCC   HEXDEC1
  21.                     STA   $52
  22.                     BCS   HEXDEC1
  23. HEXDEC2             CLC   
  24.                     ROR   $52
  25.                     LDA   $52
  26.                     ORA   #$B0
  27.                     STA   DEC1,Y
  28.                     DEY   
  29.                     BPL   HEXDEC0
  30.                     RTS   
  31. DEC1                DFB $B0
  32. DEC2                DFB $B0
  33. DEC3                DFB $B0
  34. DEC4                DFB $B0
  35. DEC5                DFB $B0
  36. ;==================================================
  37.