home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1989 / USER1089.MSA / HEXPRINT.S < prev    next >
Text File  |  1985-11-19  |  860b  |  49 lines
  1. *    Print hex number
  2. *    By R.A.Waddilove
  3.  
  4. p_term        EQU 0
  5. c_conin        EQU 1
  6. c_conout    EQU 2
  7.  
  8. * -------------------------------------
  9. *     Program start
  10. * -------------------------------------
  11.  
  12.     MOVE #$1234,D0        Number
  13.     BSR hexprint
  14.     MOVE #c_conin,-(A7)
  15.     TRAP #1            Wait for keypress
  16.     ADDQ.L #2,A7
  17.     MOVE #p_term,-(A7)
  18.     TRAP #1            Gemdos 0 - exit
  19.  
  20. * -------------------------------------
  21. * Print hex number in D0
  22. * Uses D0,D1
  23. * -------------------------------------
  24.  
  25. hexprint
  26.     MOVE D0,D1        Save number
  27.     LSR #8,D0        Get 1st nybble
  28.     LSR #4,D0
  29.     BSR printchar
  30.     MOVE D1,D0
  31.     LSR #8,D0        Get 2nd nybble
  32.     BSR printchar
  33.     MOVE D1,D0
  34.     LSR #4,D0        Get 3rd nybble
  35.     BSR printchar
  36.     MOVE D1,D0
  37. printchar
  38.     AND #$000F,D0        Isolate nybble
  39.     ADD #'0',D0
  40.     CMP #'9',D0
  41.     BLE ok
  42.     ADD #7,D0
  43. ok
  44.     MOVE D0,-(A7)
  45.     MOVE #c_conout,-(A7)
  46.     TRAP #1
  47.     ADDA.L #4,A7
  48.     RTS
  49.