home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / snoopy-2.0.lha / Snoopy / Macros / main next >
Encoding:
Text File  |  1993-12-31  |  2.0 KB  |  111 lines
  1. prepare        MACRO
  2.         lea    (\1),a0
  3.         NEWLIST    a0
  4.         ENDM
  5.  
  6. openlib        MACRO
  7.         lea    (\1Name),a1
  8.         moveq    #0,d0
  9.         CALL    OpenLibrary,<(execBase).w>
  10.         move.l    d0,(\1Base)
  11.         beq    .NODOSBASE
  12.         ENDM
  13.  
  14. closelb        MACRO
  15.         move.l    (\1Base),d0
  16.         beq.b    .NO\1BASE
  17.         movea.l    d0,a1
  18.         CALL    CloseLibrary,<(execBase).w>
  19. .NO\1BASE
  20.         ENDM
  21.  
  22. defs        MACRO
  23.         xdef    \1
  24. \1        ds\0    \2
  25.         ENDM
  26.  
  27. remlist        MACRO
  28.         lea    (\1),a0
  29.         move.l    #\2,d0
  30.         jsr    RemoveList
  31.         ENDM
  32.  
  33. ;--------------    give out a message in \1
  34. SHOWMSG        MACRO
  35.         lea    (\1Msg,pc),a0
  36.         jsr    ShowMessage
  37.         ENDM
  38.  
  39. SAVEREG        MACRO
  40. .Save\1L    move.l    (sregs_\1,a2),(a0)+
  41.         rts
  42. .Save\1W    move.w    (sregs_\1,a2),(a0)+
  43.         rts
  44. .Save\1B    move.b    (sregs_\1,a2),d0
  45.         ext.w    d0
  46.         move.w    d0,(a0)+
  47.         rts
  48. .Save\1LB    move.l    (sregs_\1,a2),d0
  49.         bra    .LONGBOOLEAN
  50. .Save\1WB    move.w    (sregs_\1,a2),d0
  51.         bra    .WORDBOOLEAN
  52. .Save\1BB    move.b    (sregs_\1,a2),d0
  53.         ext.w    d0
  54.         bra    .WORDBOOLEAN
  55.         ENDM
  56.  
  57. REGLIST        MACRO
  58. .Jump\1        dc.l    .SaveD0\2
  59.         dc.l    .SaveD1\2
  60.         dc.l    .SaveD2\2
  61.         dc.l    .SaveD3\2
  62.         dc.l    .SaveD4\2
  63.         dc.l    .SaveD5\2
  64.         dc.l    .SaveD6\2
  65.         dc.l    .SaveD7\2
  66.         dc.l    .SaveA0\2
  67.         dc.l    .SaveA1\2
  68.         dc.l    .SaveA2\2
  69.         dc.l    .SaveA3\2
  70.         dc.l    .SaveA4\2
  71.         dc.l    .SaveA5\2
  72.         dc.l    .SaveA5\2
  73.         dc.l    .SaveA5\2
  74.         dc.l    .SaveI0\2
  75.         dc.l    .SaveI1\2
  76.         dc.l    .SaveI2\2
  77.         dc.l    .SaveI3\2
  78.         dc.l    .SaveI4\2
  79.         dc.l    .SaveI5\2
  80.         dc.l    .SaveI6\2
  81.         dc.l    .SaveI7\2
  82.         ENDM
  83.  
  84.  
  85. SAVEDEBUGREGISTERS    MACRO
  86.         move.l    sregs_D0(a1),(a0)+
  87.         move.l    sregs_D1(a1),(a0)+
  88.         move.l    sregs_D2(a1),(a0)+
  89.         move.l    sregs_D3(a1),(a0)+
  90.         move.l    sregs_D4(a1),(a0)+
  91.         move.l    sregs_D5(a1),(a0)+
  92.         move.l    sregs_D6(a1),(a0)+
  93.         move.l    sregs_D7(a1),(a0)+
  94.         move.l    sregs_A0(a1),(a0)+
  95.         move.l    sregs_A1(a1),(a0)+
  96.         move.l    sregs_A2(a1),(a0)+
  97.         move.l    sregs_A3(a1),(a0)+
  98.         move.l    sregs_A4(a1),(a0)+
  99.         move.l    sregs_A5(a1),(a0)+
  100.         move.l    sregs_A6(a1),(a0)+
  101.         move.l    sregs_A7(a1),(a0)+
  102.         move.l    sregs_I0(a1),(a0)+
  103.         move.l    sregs_I1(a1),(a0)+
  104.         move.l    sregs_I2(a1),(a0)+
  105.         move.l    sregs_I3(a1),(a0)+
  106.         move.l    sregs_I4(a1),(a0)+
  107.         move.l    sregs_I5(a1),(a0)+
  108.         move.l    sregs_I6(a1),(a0)+
  109.         move.l    sregs_I7(a1),(a0)+
  110.         ENDM
  111.