home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJSRC / HEXASC.SRC.txt < prev    next >
Text File  |  2020-08-13  |  2KB  |  73 lines
  1. ; ********************************************
  2. ; * HEXASC.SRC - CONVERT HEX TO ASC 
  3. ; * (C) 1993, ERIC RANGELL
  4. ; ********************************************
  5. ;
  6. ;------------GLOBAL EQUATES
  7. RECEIVER EQU $FA
  8. MSG      EQU $FB
  9. MYOBJ    EQU $FD
  10. MYADRS   EQU $FE             ;WILL POINT TO 'BASE' WHEN OBJECT INVOKED
  11. ;
  12. USRVECT  EQU $0A             ;APPLESOFT USR VECTOR - USED TO CALL OBJECTS
  13. ;
  14. ;------------OBJECTS REFERENCED
  15. HEXASC   EQU  13             
  16. ;
  17. ;------------OBJECT HEADER
  18.         ORG $6000
  19. ;
  20.         LDA #$00  ;CALL OBJECT SETUP ROUTINE
  21.         STA $FA
  22.         JSR $000A
  23.         DFB HEXASC          ;OBJECT NUMBER
  24.         DFB 0,0,0,0,0,0,0   ;SAVE AREA
  25. BASE    CLV
  26.         BVC CODE
  27. RETCODE DFB $00             ;RETURN CODE
  28. ;
  29. ;==========================================
  30. ; INTERNAL DATA MAINTAINED BY OBJECT:
  31. ;
  32. ;
  33. ASCTBL              DFB   $B0,$B1,$B2,$B3,$B4,$B5,$B6,$B7
  34.                     DFB   $B8,$B9,$C1,$C2,$C3,$C4,$C5,$C6
  35. ;==========================================
  36. ; METHODS:
  37. ;
  38. ;        'B' <BYTE> | <ASC1><ASC2>
  39. ;
  40. ;==========================================
  41. CODE     LDY #0
  42.          LDA (MSG),Y
  43.          CMP #'B'        
  44.          BNE CODEEX
  45. ;
  46.          LDY #1
  47.          LDA (MSG),Y
  48.          LSR A
  49.          LSR A
  50.          LSR A
  51.          LSR A
  52.          CLC
  53.          ADC #ASCTBL-BASE
  54.          LDA (MYADRS),Y
  55.          LDY #2
  56.          STA (MSG),Y
  57. ;
  58.          LDY #1
  59.          LDA (MSG),Y
  60.          AND #$0F        
  61.          CLC
  62.          ADC #ASCTBL-BASE
  63.          LDA (MYADRS),Y
  64.          LDY #3
  65.          STA (MSG),Y
  66. ;
  67. CODEEX   LDY #RETCODE-BASE
  68.          LDA #12
  69.          STA (MYADRS),Y
  70.          SEC   
  71.          RTS 
  72. ;
  73.