home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / UNIFLEX / UNIFLEX / UniFLEX_Common.tar.Z / UniFLEX_Common.tar / macdefs < prev    next >
Text File  |  1982-09-30  |  528b  |  65 lines
  1.  
  2.  sttl Macro Definitions
  3.  pag
  4.  
  5. *
  6. * This file contains all macro definitions
  7. * used in the system.
  8. *
  9.  
  10. *
  11. * Set interrupt flags (I and F)
  12. *
  13.  
  14. seti macro
  15.  orcc #F|I
  16.  endm
  17.  
  18.  
  19. *
  20. * Clear interrupt flags (I and F)
  21. *
  22.  
  23. clri macro
  24.  andcc #!(F|I)
  25.  endm
  26.  
  27.  
  28. *
  29. * Shift d left n times
  30. *
  31.  
  32. sld macro n where n is shift count
  33.  if &1
  34.  lslb
  35.  rola
  36.  sld &1-1
  37.  endif
  38.  endm
  39.  
  40.  pag
  41.  
  42. *
  43. * lsr a 4 times and increment it
  44. *
  45.  
  46. lsr4p macro no args
  47.  lsra
  48.  lsra
  49.  lsra
  50.  lsra
  51.  inca
  52.  endm
  53.  
  54.  
  55. *
  56. * debug macro
  57. *
  58.  
  59. dbugm macro output_character
  60.  lda #'&1
  61.  lbsr syspch
  62.  endm
  63.  
  64.  
  65.