home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / startup_asm35 / digital.macs < prev    next >
Text File  |  1977-12-31  |  2KB  |  133 lines
  1. *    MACROS for sources by Kenneth C. Nilsen / Digital Surface
  2.  
  3. OpenLib    MACRO            OpenLib    Library,Version
  4.     lea    \1N(pc),a1
  5.     moveq    #\2,d0
  6.     jsr    -552(a6)
  7.     move.l    d0,\1B
  8.     ENDM
  9.  
  10. CloseLib    MACRO        CloseLib Library
  11.     move.l    \1B(pc),d0
  12.     beq.b    *+8
  13.     move.l    d0,a1
  14.     jsr    -414(a6)
  15.     ENDM
  16.  
  17. CloseWin    Macro        CloseWin <WinBase>
  18.     move.l    \1(pc),d0
  19.     beq.b    *+8
  20.     move.l    d0,a0
  21.     jsr    _LVOCloseWindow(a6)
  22.     EndM
  23.  
  24. CloseScr    Macro        CloseScr <ScrBase>
  25.     move.l    \1(pc),d0
  26.     beq.b    *+8
  27.     move.l    d0,a0
  28.     jsr    _LVOCloseScreen(a6)
  29.     EndM
  30.  
  31. Base    MACRO            Base LibN
  32.     move.l    \1B(pc),a6
  33.     ENDM
  34.  
  35. ExecB    MACRO            move Execbase to a6
  36.     move.l    $4.w,a6
  37.     ENDM
  38.  
  39. Pen    MACRO
  40.     moveq    #\1,d0
  41.     jsr    -78(a6)
  42.     ENDM
  43.  
  44. StackOn    MACRO
  45.     movem.l    d2-d7/a2-a6,-(sp)
  46.     ENDM
  47.  
  48. StackOff MACRO
  49.     movem.l    (sp)+,d2-d7/a2-a6
  50.     ENDM
  51.  
  52. SetPen    MACRO            SetPen Color
  53.     move.l    a5,a1
  54.     moveq    #\1,d0
  55.     jsr    -342(a6)
  56.     ENDM
  57.  
  58. Box    MACRO            Box X1,Y1,X2,Y2
  59.     move.l    a5,a1
  60.     move.l    \1,d0
  61.     move.l    \2,d1
  62.     move.l    \3,d2
  63.     move.l    \4,d3
  64.     jsr    -306(a6)
  65.     ENDM
  66.  
  67. LineC    MACRO            LineC X1,Y1,X2,Y2,Color
  68.     move.l    a5,a1
  69.     moveq    #\5,d0
  70.     jsr    -342(a6)
  71.     move.l    a5,a1
  72.     move.l    \1,d0
  73.     move.l    \2,d1
  74.     jsr    -240(a6)
  75.     move.l    a5,a1
  76.     move.l    \3,d0
  77.     move.l    \4,d1
  78.     jsr    -246(a6)
  79.     ENDM
  80.  
  81. Line    MACRO            Line X1,Y1,X2,Y2
  82.     move.l    a5,a1
  83.     move.l    \1,d0
  84.     move.l    \2,d1
  85.     jsr    -240(a6)
  86.     move.l    a5,a1
  87.     move.l    \3,d0
  88.     move.l    \4,d1
  89.     jsr    -246(a6)
  90.     ENDM
  91.  
  92. LineW    MACRO            LineW X1,Y1,X2,Y2
  93.     move.l    a5,a1
  94.     move.w    \1,d0
  95.     move.w    \2,d1
  96.     jsr    -240(a6)
  97.     move.l    a5,a1
  98.     move.w    \3,d0
  99.     move.w    \4,d1
  100.     jsr    -246(a6)
  101.     ENDM
  102.  
  103. DCall    MACRO
  104.     jsr    _LVODF\1(a6)
  105.     ENDM
  106.  
  107. Call    MACRO
  108.     jsr    _LVO\1(a6)
  109.     ENDM
  110.  
  111. PrtCmd    MACRO
  112.     move.l    #PRTCMD_\1,d0
  113. ;    jsr    LVODF_PrintComand(a6)
  114.     ENDM
  115.  
  116. ;These macros will make BarFly sources compatible wih other assemblers:
  117.  
  118. MB    MACRO
  119.     move.b    \1,\2
  120.     ENDM
  121.  
  122. MW    MACRO
  123.     move.w    \1,\2
  124.     ENDM
  125.  
  126. ML    MACRO
  127.     move.l    \1,\2
  128.     ENDM
  129.  
  130. MQ    MACRO
  131.     moveq    \1,\2
  132.     ENDM
  133.