home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / pencilvec.lha / macro < prev    next >
Encoding:
Text File  |  1980-01-01  |  5.1 KB  |  316 lines
  1.  
  2.     Opt    c-
  3. custom   equ $dff000
  4. bltddat  equ $000
  5. dmaconr  equ $002
  6. vposr    equ $004
  7. vhposr   equ $006
  8. dskdatr  equ $009
  9. joy0dat  equ $00a
  10. joy1dat  equ $00c
  11. clxdat   equ $00e
  12. adkconr  equ $010
  13. pot0dat  equ $012
  14. pot1dat  equ $014
  15. potgor   equ $016
  16. serdatr  equ $018
  17. dskbytr  equ $01a
  18. intenar  equ $01c
  19. intreqr  equ $01e
  20. dskpth   equ $020
  21. dskptl   equ $022
  22. dsklen   equ $024
  23. dskdat   equ $026
  24. refptr   equ $028
  25. vposw    equ $02a
  26. vhposw   equ $02c
  27. copcon   equ $02e
  28. serdat   equ $030
  29. serper   equ $032
  30. potgo    equ $034
  31. joytest  equ $036
  32. strequ   equ $038
  33. strvbl   equ $03a
  34. strhor   equ $03c
  35. strlong  equ $03e
  36. bltcon0  equ $040
  37. bltcon1  equ $042
  38. bltafwm  equ $044
  39. bltalwm  equ $046
  40. bltcpth  equ $048
  41. bltcptl  equ $04a
  42. bltbpth  equ $04c
  43. bltbptl  equ $04e
  44. bltapth  equ $050
  45. bltaptl  equ $052
  46. bltdpth  equ $054
  47. bltdptl  equ $056
  48. bltsize  equ $058
  49. bltcmod  equ $060
  50. bltbmod  equ $062
  51. bltamod  equ $064
  52. bltdmod  equ $066
  53. bltcdat  equ $070
  54. bltbdat  equ $072
  55. bltadat  equ $074
  56. dsksync  equ $07e
  57. cop1lch  equ $080
  58. cop1lcl  equ $082
  59. cop2lch  equ $084
  60. cop2lcl  equ $086
  61. copjmp1  equ $088
  62. copjmp2  equ $08a
  63. copins   equ $08c
  64. diwstrt  equ $08e
  65. diwstop  equ $090
  66. ddfstrt  equ $092
  67. ddfstop  equ $094
  68. dmacon   equ $096
  69. clxcon   equ $098
  70. intena   equ $09a
  71. intreq   equ $09c
  72. adkcon   equ $09e
  73. aud0lch  equ $0a0
  74. aud0lcl  equ $0a2
  75. aud0len  equ $0a4
  76. aud0per  equ $0a6
  77. aud0vol  equ $0a8
  78. aud0dat  equ $0aa
  79. aud1lch  equ $0b0
  80. audilcl  equ $0b2
  81. aud1len  equ $0b4
  82. aud1per  equ $0b6
  83. aud1vol  equ $0b8
  84. aud1dat  equ $0ba
  85. aud2lch  equ $0c0
  86. aud2lcl  equ $0c2
  87. aud2len  equ $0c4
  88. aud2per  equ $0c6
  89. aud2vol  equ $0c8
  90. aud2dat  equ $0ca
  91. aud3lch  equ $0d0
  92. aud3lcl  equ $0d2
  93. aud3len  equ $0d4
  94. aud3per  equ $0d6
  95. aud3vol  equ $0d8
  96. aud3dat  equ $0da
  97. bpl1pth  equ $0e0
  98. bpl1ptl  equ $0e2
  99. bpl2pth  equ $0e4
  100. bpl2ptl  equ $0e6
  101. bpl3pth  equ $0e8
  102. bpl3ptl  equ $0ea
  103. bpl4pth  equ $0ec
  104. bpl4ptl  equ $0ee
  105. bpl5pth  equ $0f0
  106. bpl5ptl  equ $0f2
  107. bpl6pth  equ $0f4
  108. bpl6ptl  equ $0f6
  109. bplcon0  equ $100
  110. bplcon1  equ $102
  111. bplcon2  equ $104
  112. bpl1mod  equ $108
  113. bpl2mod  equ $10a
  114. bpl1dat  equ $110
  115. bpl2dat  equ $112
  116. bpl3dat  equ $114
  117. bpl4dat  equ $116
  118. bpl5dat  equ $118
  119. bpl6dat  equ $11a
  120. spr0pth  equ $120
  121. spr0ptl  equ $122
  122. spr1pth  equ $124
  123. spr1ptl  equ $126
  124. spr2pth  equ $128
  125. spr2ptl  equ $12a
  126. spr3pth  equ $12c
  127. spr3ptl  equ $12e
  128. spr4pth  equ $130
  129. spr4ptl  equ $132
  130. spr5pth  equ $134
  131. spr5ptl  equ $136
  132. spr6pth  equ $138
  133. spr6ptl  equ $13a
  134. spr7pth  equ $13c
  135. spr7ptl  equ $13e
  136. spr0pos  equ $140
  137. spr0ctl  equ $142
  138. spr0data equ $144
  139. spr0datb equ $146
  140. spr1pos  equ $148
  141. spr1ctl  equ $14a
  142. spr1data equ $14c
  143. spr1datb equ $14e
  144. spr2pos  equ $150
  145. spr2ctl  equ $152
  146. spr2data equ $154
  147. spr2datb equ $156
  148. spr3pos  equ $158
  149. spr3ctl  equ $15a
  150. spr3data equ $15c
  151. spr3datb equ $15e
  152. spr4pos  equ $160
  153. spr4ctl  equ $162
  154. spr4data equ $164
  155. spr4datb equ $166
  156. spr5pos  equ $168
  157. spr5ctl  equ $16a
  158. spr5data equ $16c
  159. spr5datb equ $16e
  160. spr6pos  equ $170
  161. spr6ctl  equ $172
  162. spr6data equ $174
  163. spr6datb equ $176
  164. spr7pos  equ $178
  165. spr7ctl  equ $17a
  166. spr7data equ $17c
  167. spr7datb equ $17e
  168. color00  equ $180
  169. color01  equ $182
  170. color02  equ $184
  171. color03  equ $186
  172. color04  equ $188
  173. color05  equ $18a
  174. color06  equ $18c
  175. color07  equ $18e
  176. color08  equ $190
  177. color09  equ $192
  178. color10  equ $194
  179. color11  equ $196
  180. color12  equ $198
  181. color13  equ $19a
  182. color14  equ $19c
  183. color15  equ $19e
  184. color16  equ $1a0
  185. color17  equ $1a2
  186. color18  equ $1a4
  187. color19  equ $1a6
  188. color20  equ $1a8
  189. color21  equ $1aa
  190. color22  equ $1ac
  191. color23  equ $1ae
  192. color24  equ $1b0
  193. color25  equ $1b2
  194. color26  equ $1b4
  195. color27  equ $1b6
  196. color28  equ $1b8
  197. color29  equ $1ba
  198. color30  equ $1bc
  199. color31  equ $1be
  200. tbe      equ 0
  201. dskblk   equ 1
  202. soft     equ 2
  203. ports    equ 3
  204. coper    equ 4
  205. vertb    equ 5
  206. blit     equ 6
  207. aud0     equ 7
  208. aud1     equ 8
  209. aud2     equ 9
  210. aud3     equ 10
  211. rbf      equ 11
  212. dsksyn   equ 12
  213. exter    equ 13
  214. inten    equ 14
  215. ciaa     equ $bfe001
  216. ciab     equ $bfd000
  217. pra      equ $000
  218. prb      equ $100
  219. ddra     equ $200
  220. ddrb     equ $300
  221. talo     equ $400
  222. tahi     equ $500
  223. tblo     equ $600
  224. tbhi     equ $700
  225. event    equ $800
  226. sdr      equ $c00
  227. icr      equ $d00
  228. cra      equ $e00
  229. crb      equ $f00
  230. ovl      equ 0
  231. led      equ 1
  232. chng     equ 2
  233. wrpo     equ 3
  234. tk0      equ 4
  235. rdy      equ 5
  236. fir0     equ 6
  237. fir1     equ 7
  238. busy     equ 0
  239. pout     equ 1
  240. sel      equ 2
  241. dsr      equ 3
  242. cts      equ 4
  243. cd       equ 5
  244. rts      equ 6
  245. dtr      equ 7
  246. step     equ 0
  247. dir      equ 1
  248. side     equ 2
  249. sel0     equ 3
  250. sel1     equ 4
  251. sel2     equ 5
  252. sel3     equ 6
  253. mtr      equ 7
  254. Spr_Off    Macro
  255.     DC.W    $120,0
  256.     DC.W    $122,0
  257.     DC.W    $124,0
  258.     DC.W    $126,0
  259.     DC.W    $128,0
  260.     DC.W    $12A,0
  261.     DC.W    $12C,0
  262.     DC.W    $12E,0
  263.     DC.W    $130,0
  264.     DC.W    $132,0
  265.     DC.W    $134,0
  266.     DC.W    $136,0
  267.     DC.W    $138,0
  268.     DC.W    $13A,0
  269.     DC.W    $13C,0
  270.     DC.W    $13E,0
  271.     Endm
  272. Cwait    Macro
  273.     Dc.b    \1,\2+9,$ff,$fe
  274.     Endm
  275. Cskip    Macro
  276.     Dc.b    \1,\2+9,$ff,$ff
  277.     Endm
  278. Cmove    Macro
  279.     dc.w    \2,\1
  280.     Endm
  281. Pal    Macro
  282.     Dc.w    $ff09,$fffe,$ffdd,$fffe
  283.     Endm
  284. Endcop    Macro
  285.     Dc.w    $ffff,$fffe
  286.     Endm
  287. BlitWait Macro
  288. BlitW\@    Btst    #14,$dff002
  289.     Bne.s    BlitW\@
  290.     Endm
  291. Chip    Macro
  292.     Section    Wildthing,Code_c
  293.     Endm
  294. tstmice MACRO
  295.     Btst    #6,$Bfe001
  296.     Bne    \1
  297.     Endm
  298. Saveall    Macro
  299.     Movem.l    d0-d7/a0-a6,-(A7)
  300.     endm
  301. LoadAll    Macro
  302.     Movem.l    (a7)+,d0-d7/a0-a6
  303.     Endm
  304. Planeon    Macro
  305.     Move.w    \1,\2
  306.     Swap    \1
  307.     Move.w    \1,\3
  308.     Swap    \1
  309.     Endm
  310. POS    Macro
  311. Posi\@
  312.     cmp.b    #$ff,$dff006
  313.     bne.s    Posi\@
  314.     ENDM
  315.  
  316.