home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 42 / af042b.adf / Extensions.lha / _cequ.s next >
Text File  |  1992-02-21  |  3KB  |  134 lines
  1. ;---------------------------------------------------------------------
  2. ;   ***  ***  **   ** ****  **** **    **    **   **   **  ***   ***
  3. ;  **   ** ** *** *** ** **  **  **    **   ****  *** *** ** ** ** 
  4. ;  **   ** ** ** * ** ** **  **  **   **   **  ** ** * ** ** **  ***
  5. ;  **   ** ** **   ** ****   **  **        ****** **   ** ** **    **
  6. ;  **   ** ** **   ** **     **  **        **  ** **   ** ** ** *  **
  7. ;   ***  ***  **   ** **    **** ****      **  ** **   **  ***   ***
  8. ;---------------------------------------------------------------------
  9. ; EQUATES
  10. ;---------------------------------------------------------------------
  11. C_Code1        equ    $FE
  12. C_Code2        equ    $01
  13. C_CodeD        equ    $6543
  14. C_CodeJ        equ    $F7
  15.  
  16. CiJSR        equ    $4EB9
  17. CiJMP        equ    $4EF9
  18. CodeR        equ    $8F
  19. Rjmp        MACRO
  20.         dc.b    C_Code1,0*16+C_Code2
  21.         dc.b    C_CodeJ,0
  22.         dc.w    \1
  23.         ENDM
  24. Rjsr        MACRO
  25.         dc.b    C_Code1,1*16+C_Code2
  26.         dc.b    C_CodeJ,0
  27.         dc.w    \1
  28.         ENDM
  29. Ljmp        MACRO
  30.         dc.b    C_Code1,0*16+C_Code2
  31.         dc.b    C_CodeJ,\2
  32.         dc.w    \1
  33.         ENDM
  34. Ljsr        MACRO
  35.         dc.b    C_Code1,1*16+C_Code2
  36.         dc.b    C_CodeJ,\2
  37.         dc.w    \1
  38.         ENDM
  39. Rbra        MACRO
  40.         dc.b    C_Code1,2*16+C_Code2
  41.         dc.w    \1
  42.         ENDM
  43. Rbsr        MACRO
  44.         dc.b    C_Code1,3*16+C_Code2
  45.         dc.w    \1
  46.         ENDM
  47. Rbeq        MACRO
  48.         dc.b    C_Code1,4*16+C_Code2
  49.         dc.w    \1
  50.         ENDM
  51. Rbne        MACRO
  52.         dc.b    C_Code1,5*16+C_Code2
  53.         dc.w    \1
  54.         ENDM
  55. Rbcs        MACRO
  56.         dc.b    C_Code1,6*16+C_Code2
  57.         dc.w    \1
  58.         ENDM
  59. Rbcc        MACRO
  60.         dc.b    C_Code1,7*16+C_Code2
  61.         dc.w    \1
  62.         ENDM
  63. Rblt        MACRO
  64.         dc.b    C_Code1,8*16+C_Code2
  65.         dc.w    \1
  66.         ENDM
  67. Rbge        MACRO
  68.         dc.b    C_Code1,9*16+C_Code2
  69.         dc.w    \1
  70.         ENDM
  71. Rbls        MACRO
  72.         dc.b    C_Code1,10*16+C_Code2
  73.         dc.w    \1
  74.         ENDM
  75. Rbhi        MACRO
  76.         dc.b    C_Code1,11*16+C_Code2
  77.         dc.w    \1
  78.         ENDM
  79. Rble        MACRO
  80.         dc.b    C_Code1,12*16+C_Code2
  81.         dc.w    \1
  82.         ENDM
  83. Rbpl        MACRO
  84.         dc.b    C_Code1,13*16+C_Code2
  85.         dc.w    \1
  86.         ENDM
  87. Rbmi        MACRO
  88.         dc.b    C_Code1,14*16+C_Code2
  89.         dc.w    \1 
  90.         ENDM
  91. Rdata        MACRO
  92.         dc.b    C_Code1,15*16+C_Code2
  93.         dc.w    C_CodeD
  94.         ENDM
  95. Rlea        MACRO
  96.         lea    \1,\2
  97.         ENDM
  98. Alea        MACRO
  99.         move.l    a5,\2
  100.         add.w    A\1(a5),\2
  101.         ENDM
  102. *    
  103. GfxC        MACRO
  104.         movem.l    d0-d7/a0-a6,-(sp)
  105.         move.l    T_GfxBase(a5),a6
  106.         jsr    \1(a6)
  107.         movem.l    (sp)+,d0-d7/a0-a6
  108.         ENDM
  109. *
  110. BitLib        equ    31
  111. BitChaine    equ    30
  112. BitLabel    equ    29
  113. *
  114. Hunk_Public    equ    0
  115. Hunk_Chip    equ    $40000000
  116. N_HunkSys    equ    8
  117. NH_Header    equ    0
  118. NH_Prog        equ    1
  119. NH_Reloc    equ    2
  120. NH_W.Lib    equ    3
  121. NH_Env        equ    4
  122. NH_Mouse    equ    5
  123. NH_Font        equ    6
  124. NH_Key        equ    7
  125. *
  126. FlagFloat    equ    EdMarks+4*4
  127. AForNext    equ    EdMarks+5*4
  128. Ad_Labels    equ    EdMarks+6*4
  129. Num_Proc    equ    EdMarks+7*4
  130. LowPile        equ    EdMarks+8*4
  131. LowPileP    equ    EdMarks+9*4
  132. *
  133. ;---------------------------------------------------------------------
  134.