home *** CD-ROM | disk | FTP | other *** search
/ Shareworld 8 / Shareworld 8 (Disk 2 of 2).adf / Programs / MachineCodeHelloWorld / MyIncludes / StandardMacros.i < prev    next >
Encoding:
Text File  |  1978-02-11  |  605 b   |  32 lines
  1.  
  2. ; Some simple macros I have deemed to make standard
  3. ; Matthew Goode - 2/1/97
  4.  
  5. ; --------------------------------------------------------------
  6. SaveToStack    Macro
  7.     ;Places \1 on the stack area
  8.  
  9.     movem.l \1,-(sp)
  10.     EndM
  11.  
  12. LoadFromStack    Macro
  13.     ;Retrieves \1 from the stack area
  14.  
  15.     movem.l (sp)+,\1
  16.     EndM
  17.  
  18. ; --------------------------------------------------------------
  19.  
  20. TestLMB_m    macro
  21.     ;Test the left mouse button
  22.     ;Bne if button not held down
  23.     btst #6,$bfe001
  24.     endm
  25.  
  26. ; --------------------------------------------------------------
  27. Test    macro
  28.     ;Flashes col 0 as a test indicator
  29.     move.w #$fff,$dff180
  30.     endm
  31.  
  32.