home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / VGR.S < prev    next >
Encoding:
Text File  |  1990-05-07  |  29.3 KB  |  1,385 lines
  1. ******************************************
  2. * Title : Vector Graphics Routines (VGR) *
  3. * By    : Kenneth Bernholm         *
  4. ******************************************
  5.  
  6. ***** Memory reservations *****
  7.  
  8. Screen0   = $60000
  9. Screen1   = Screen0+8000
  10. ProgStart = Screen1+8000
  11.  
  12. org  ProgStart
  13. load ProgStart
  14.  
  15. Start:
  16. bsr    Init_Interrupts
  17. bsr    Init_Screen
  18.  
  19. Test_Left_Button:
  20. btst   #6,$bfe001
  21. bne    Test_Left_Button
  22. bsr    Restore_Screen
  23. bsr    Restore_Interrupts
  24. clr.l  d0
  25. rts
  26.  
  27. ************************
  28. ***** Sub Programs *****
  29. ************************
  30.  
  31. ***** Interrup routines *****
  32.  
  33. Init_Interrupts:
  34. move.w $dff01e,Sys_Intreq
  35. move.w $dff01c,Sys_Intena
  36. move.w #$7fff,$dff09c
  37. move.w #$7fff,$dff09a
  38. move.l $6c,Sys_Level3
  39. move.l #My_Level3,$6c
  40. move.w #$8020,$dff09a
  41. move.w #$c000,$dff09a
  42. rts
  43.  
  44. Restore_Interrupts:
  45. move.l Sys_Level3,$6c
  46. or.w   #$8000,Sys_Intena
  47. or.w   #$8000,Sys_Intreq
  48. move.w Sys_Intreq,$dff09c
  49. move.w Sys_Intena,$dff09a
  50. rts
  51.  
  52. ***** Screen Routines *****
  53.  
  54. Init_Screen:
  55. move.l 4,a6
  56. move.l 156(a6),a1
  57. move.l 38(a1),Sys_Copper
  58. move.l a7,Sys_Stack
  59. move.l #Copper_List,$dff080
  60. move.w #$0020,$dff096
  61. rts
  62.  
  63. Restore_Screen:
  64. move.l 4,a6
  65. move.l Sys_Copper,$dff080
  66. move.l Sys_Stack,a7
  67. move.w #$8020,$dff096
  68. rts
  69.  
  70. Flip_Screen:
  71. cmp.l  #Screen1,Screen_Address
  72. beq    Flip_To_Screen1
  73. Flip_To_Screen0:
  74. lea    Bpl_Pointers,a0
  75. move.l #Screen0,d0
  76. move.w d0,6(a0)
  77. swap   d0
  78. move.w d0,2(a0)
  79. move.l #Screen1,Screen_Address
  80. bra    Flip_Screen_exit
  81. Flip_To_Screen1:
  82. lea    Bpl_Pointers,a0
  83. move.l #Screen1,d0
  84. move.w d0,6(a0)
  85. swap   d0
  86. move.w d0,2(a0)
  87. move.l #Screen0,Screen_Address
  88. Flip_Screen_Exit:
  89. rts
  90.  
  91. ***** Level 3 Interrupt *****
  92.  
  93. My_Level3:
  94. btst   #5,$dff01f
  95. beq    My_Level3_Exit
  96. bsr    Draw_Figure
  97. move.w #$0800,$dff180
  98. bsr    Flip_Screen
  99. move.w #$0020,$dff09c
  100. My_Level3_Exit:
  101. rte
  102.  
  103. ***** Vector Routines *****
  104.  
  105. Draw_Figure:
  106. btst   #14,$dff002
  107. bne    Draw_Figure
  108. move.l #$01000000,$dff040
  109. move.l Screen_Address,$dff054
  110. move.w #$0,$dff066
  111. move.w #[200*64]+20,$dff058
  112. move.l #$00008000,$dff072
  113. move.l #$ffffffff,$dff044
  114. move.w #40,$dff060
  115.  
  116. move.l xdelta,d0
  117. add.l  d0,xgrad
  118. and.l  #$000001ff,xgrad
  119. move.l ygrad,d6
  120. add.l  ydelta,d6
  121. and.l  #$000001ff,d6
  122. move.l d6,ygrad
  123. lsl.w  #1,d6
  124. move.l zgrad,d7
  125. add.l  zdelta,d7
  126. and.l  #$000001ff,d7
  127. move.l d7,zgrad
  128. lsl.w  #1,d7
  129.  
  130. move.l Screen_Address,a0
  131. lea    Figure1,a1
  132. lea    Sin_Table,a2
  133. lea    Cos_Table,a3
  134. lea    Octant_Table,a4
  135. Draw_Figure2:
  136. cmp.w  #555,(a1)
  137. beq    Draw_Figure_exit
  138. move.l xgrad,d5
  139. lsl.w  #1,d5
  140.  
  141. move.w (a3,d5),d0
  142. muls   4(a1),d0
  143. move.w (a2,d5),d1
  144. muls   6(a1),d1
  145. sub.l  d1,d0
  146. lsl.l  #2,d0
  147. move.l d0,y1
  148. move.w (a2,d5),d0
  149. muls   4(a1),d0
  150. move.w (a3,d5),d1
  151. muls   6(a1),d1
  152. add.l  d1,d0
  153. lsl.l  #2,d0
  154. move.l d0,z1
  155.  
  156. move.w (a3,d6),d0
  157. muls   2(a1),d0
  158. move.w (a2,d6),d1
  159. muls   z1,d1
  160. sub.l  d1,d0
  161. lsl.l  #2,d0
  162. move.l d0,x2
  163. move.w (a2,d6),d0
  164. muls   2(a1),d0
  165. move.w (a3,d6),d1
  166. muls   z1,d1
  167. add.l  d1,d0
  168. lsl.l  #2,d0
  169. swap   d0
  170. ext.l  d0
  171. move.l d0,z2
  172.  
  173. move.w (a3,d7),d0
  174. muls   x2,d0
  175. move.w (a2,d7),d1
  176. muls   y1,d1
  177. sub.l  d1,d0
  178. lsl.l  #2,d0
  179. swap   d0
  180. ext.l  d0
  181. move.w (a2,d7),d1
  182. muls   x2,d1
  183. move.w (a3,d7),d2
  184. muls   y1,d2
  185. add.l  d2,d1
  186. lsl.l  #2,d1
  187. swap   d1
  188. ext.l  d1
  189.  
  190. move.l yviewpoint,d2
  191. muls   d0,d2
  192. move.l viewdistance,d4
  193. add.l  d1,d4
  194. divs   d4,d2
  195. ext.l  d2
  196. add.l  xorigo,d2
  197. move.l last_x_point,d0
  198. move.l d2,last_x_point
  199. move.l d1,d3
  200. add.l  yorigo,d3
  201. move.l zviewpoint,d4
  202. sub.l  z2,d4
  203. muls   d3,d4
  204. add.l  viewdistance,d1
  205. divs   d1,d4
  206. ext.l  d4
  207. add.l  z2,d4
  208. lsr.l  #1,d4
  209. move.l zorigo,d3
  210. sub.l  d4,d3
  211. move.l last_y_point,d1
  212. move.l d3,last_y_point
  213.  
  214. tst.w  (a1)
  215. beq    Draw_Figure3
  216. cmp.l  d0,d2
  217. bne    Draw1
  218. cmp.l  d1,d3
  219. bne    Draw1
  220. bra    Draw_Figure3
  221.  
  222. Draw1:
  223. move.l d1,d4
  224. move.l d4,d5
  225. lsl.w  #5,d4
  226. lsl.w  #3,d5
  227. add.l  d5,d4
  228. move.l d0,d5
  229. lsr.w  #3,d5
  230. add.l  d5,d4
  231. add.l  a0,d4
  232.  
  233. move.l #0,d5
  234. sub.w  d1,d3
  235. roxl.b #1,d5
  236. tst.w  d3
  237. bge    y2gy1
  238. neg.w  d3
  239. y2gy1:
  240. sub.w  d0,d2
  241. roxl.b #1,d5
  242. tst.w  d2
  243. bge    x2gx1
  244. neg.w  d2
  245. x2gx1:
  246. move.w d3,d1
  247. sub.w  d2,d1
  248. bge    dygdx
  249. exg    d2,d3
  250. dygdx:
  251. roxl.b #1,d5
  252. move.b (a4,d5),d5
  253. lsl.l  #1,d2
  254. and.w  #$000f,d0
  255. ror.w  #4,d0
  256. or.w   #$0bfa,d0
  257. move.l d3,d1
  258. lsl.w  #6,d3
  259. addq.w #2,d3
  260. draw99:
  261. btst   #14,$dff002
  262. bne    draw99
  263. move.w d2,$dff062
  264. sub.w  d1,d2
  265. bge    signnl
  266. or.b   #$40,d5
  267. signnl:
  268. move.w d2,$dff052
  269. sub.w  d1,d2
  270. move.w d2,$dff064
  271. move.w d0,$dff040
  272. move.w d5,$dff042
  273. move.l d4,$dff048
  274. move.l d4,$dff054
  275. move.w #40,$dff066
  276. move.w d3,$dff058
  277. Draw_Figure3:
  278. addq.l #8,a1
  279. bra    Draw_Figure2
  280. Draw_Figure_Exit:
  281. rts
  282.  
  283. ***** DATA !!! *****
  284.  
  285. even
  286. Sys_Intreq:
  287. dc.w 0
  288. Sys_Intena:
  289. dc.w 0
  290. Sys_Level3:
  291. dc.l 0
  292. Sys_Copper:
  293. dc.l 0
  294. Sys_Stack:
  295. dc.l 0
  296. Screen_Address:
  297. dc.l Screen0
  298. Octant_Table:
  299. dc.b %00000001,%00010001,%00001001,%00010101
  300. dc.b %00000101,%00011001,%00001101,%00011101
  301. xorigo:
  302. dc.l 160
  303. yorigo:
  304. dc.l -100
  305. zorigo:
  306. dc.l 100
  307. yviewpoint:
  308. dc.l 250
  309. zviewpoint:
  310. dc.l 0
  311. viewdistance:
  312. dc.l 300
  313. xgrad:
  314. dc.l 0
  315. ygrad:
  316. dc.l 0
  317. zgrad:
  318. dc.l 0
  319. xdelta:
  320. dc.l 5
  321. ydelta:
  322. dc.l 3
  323. zdelta:
  324. dc.l 1
  325. y1:
  326. dc.l 0
  327. z1:
  328. dc.l 0
  329. x2:
  330. dc.l 0
  331. z2:
  332. dc.l 0
  333. last_x_point:
  334. dc.l 0
  335. last_y_point:
  336. dc.l 0
  337.  
  338. figure1:
  339. dc.w 0,65,0,-65,1,65,0,65,1,65,0,-80,1,-57,0,-80,1,-65,0,-72,1,-65,0,65,0,-53,0,65
  340. dc.w 1,-53,0,-20,1,53,0,-20,1,53,0,65,0,55,0,55,1,61,0,55,1,61,0,49,1,55,0,49
  341. dc.w 1,55,0,55,0,-34,0,-80,1,-34,0,-34,1,53,0,-34,1,53,0,-80,1,32,0,-80,1,32,0,-34
  342. dc.w 0,-24,0,-73,1,-24,0,-37,1,-8,0,-73,1,-24,0,-73,0,-40,0,30,1,-15,0,0
  343. dc.w 1,25,0,55,0,-30,0,30,1,-5,0,0,1,35,0,55,0,-20,0,30,1,5,0,0,1,45,0,55,0,-65,50,65
  344. dc.w 1,65,50,65,1,65,50,-80,1,-57,50,-80,1,-65,50,-72,1,-65,50,65,0,-53,50,65
  345. dc.w 1,-53,50,-20,1,-53,50,-20,1,-53,50,65,0,55,50,55,1,61,50,55,1,61,50,49,1,55,50,49
  346. dc.w 1,55,50,55,0,-34,50,-80,1,-34,50,-34,1,53,50,-34,1,53,50,-80,1,32,50,-80
  347. dc.w 1,32,50,-34,555,555,555,555
  348.  
  349. Copper_List:
  350. dc.w $0100,$1200,$0104,$0024,$0102,$0000,$0108,$0000
  351. dc.w $010a,$0000,$008e,$2c81,$0090,$f4c1,$0092,$0038
  352. dc.w $0094,$00d0
  353. Bpl_Pointers:
  354. dc.w $00e0,$0000,$00e2,$0000
  355. dc.w $0180,$0000,$0182,$00f0
  356. dc.w $ffff,$fffe
  357.  
  358. Sin_Table:
  359.     dc.w               0 
  360.     dc.w               201 
  361.     dc.w               402 
  362.     dc.w               603 
  363.     dc.w               803 
  364.     dc.w               1004 
  365.     dc.w               1205 
  366.     dc.w               1405 
  367.     dc.w               1605 
  368.     dc.w               1805 
  369.     dc.w               2005 
  370.     dc.w               2204 
  371.     dc.w               2404 
  372.     dc.w               2602 
  373.     dc.w               2801 
  374.     dc.w               2998 
  375.     dc.w               3196 
  376.     dc.w               3393 
  377.     dc.w               3589 
  378.     dc.w               3785 
  379.     dc.w               3980 
  380.     dc.w               4175 
  381.     dc.w               4369 
  382.     dc.w               4563 
  383.     dc.w               4756 
  384.     dc.w               4948 
  385.     dc.w               5139 
  386.     dc.w               5329 
  387.     dc.w               5519 
  388.     dc.w               5708 
  389.     dc.w               5896 
  390.     dc.w               6083 
  391.     dc.w               6269 
  392.     dc.w               6455 
  393.     dc.w               6639 
  394.     dc.w               6822 
  395.     dc.w               7005 
  396.     dc.w               7186 
  397.     dc.w               7366 
  398.     dc.w               7545 
  399.     dc.w               7723 
  400.     dc.w               7900 
  401.     dc.w               8075 
  402.     dc.w               8249 
  403.     dc.w               8423 
  404.     dc.w               8594 
  405.     dc.w               8765 
  406.     dc.w               8934 
  407.     dc.w               9102 
  408.     dc.w               9268 
  409.     dc.w               9434 
  410.     dc.w               9597 
  411.     dc.w               9759 
  412.     dc.w               9920 
  413.     dc.w               10079 
  414.     dc.w               10237 
  415.     dc.w               10393 
  416.     dc.w               10548 
  417.     dc.w               10701 
  418.     dc.w               10853 
  419.     dc.w               11002 
  420.     dc.w               11150 
  421.     dc.w               11297 
  422.     dc.w               11442 
  423.     dc.w               11585 
  424.     dc.w               11726 
  425.     dc.w               11866 
  426.     dc.w               12003 
  427.     dc.w               12139 
  428.     dc.w               12273 
  429.     dc.w               12406 
  430.     dc.w               12536 
  431.     dc.w               12665 
  432.     dc.w               12791 
  433.     dc.w               12916 
  434.     dc.w               13038 
  435.     dc.w               13159 
  436.     dc.w               13278 
  437.     dc.w               13395 
  438.     dc.w               13510 
  439.     dc.w               13622 
  440.     dc.w               13733 
  441.     dc.w               13842 
  442.     dc.w               13948 
  443.     dc.w               14053 
  444.     dc.w               14155 
  445.     dc.w               14255 
  446.     dc.w               14353 
  447.     dc.w               14449 
  448.     dc.w               14543 
  449.     dc.w               14634 
  450.     dc.w               14723 
  451.     dc.w               14810 
  452.     dc.w               14895 
  453.     dc.w               14978 
  454.     dc.w               15058 
  455.     dc.w               15136 
  456.     dc.w               15212 
  457.     dc.w               15286 
  458.     dc.w               15357 
  459.     dc.w               15426 
  460.     dc.w               15492 
  461.     dc.w               15557 
  462.     dc.w               15618 
  463.     dc.w               15678 
  464.     dc.w               15735 
  465.     dc.w               15790 
  466.     dc.w               15842 
  467.     dc.w               15892 
  468.     dc.w               15940 
  469.     dc.w               15985 
  470.     dc.w               16028 
  471.     dc.w               16069 
  472.     dc.w               16107 
  473.     dc.w               16142 
  474.     dc.w               16175 
  475.     dc.w               16206 
  476.     dc.w               16234 
  477.     dc.w               16260 
  478.     dc.w               16284 
  479.     dc.w               16305 
  480.     dc.w               16323 
  481.     dc.w               16339 
  482.     dc.w               16353 
  483.     dc.w               16364 
  484.     dc.w               16372 
  485.     dc.w               16379 
  486.     dc.w               16382 
  487.     dc.w               16384 
  488.     dc.w               16382 
  489.     dc.w               16379 
  490.     dc.w               16372 
  491.     dc.w               16364 
  492.     dc.w               16353 
  493.     dc.w               16339 
  494.     dc.w               16323 
  495.     dc.w               16305 
  496.     dc.w               16284 
  497.     dc.w               16260 
  498.     dc.w               16234 
  499.     dc.w               16206 
  500.     dc.w               16175 
  501.     dc.w               16142 
  502.     dc.w               16107 
  503.     dc.w               16069 
  504.     dc.w               16028 
  505.     dc.w               15985 
  506.     dc.w               15940 
  507.     dc.w               15892 
  508.     dc.w               15842 
  509.     dc.w               15790 
  510.     dc.w               15735 
  511.     dc.w               15678 
  512.     dc.w               15618 
  513.     dc.w               15557 
  514.     dc.w               15492 
  515.     dc.w               15426 
  516.     dc.w               15357 
  517.     dc.w               15286 
  518.     dc.w               15212 
  519.     dc.w               15136 
  520.     dc.w               15058 
  521.     dc.w               14978 
  522.     dc.w               14895 
  523.     dc.w               14810 
  524.     dc.w               14723 
  525.     dc.w               14634 
  526.     dc.w               14543 
  527.     dc.w               14449 
  528.     dc.w               14353 
  529.     dc.w               14255 
  530.     dc.w               14155 
  531.     dc.w               14053 
  532.     dc.w               13948 
  533.     dc.w               13842 
  534.     dc.w               13733 
  535.     dc.w               13622 
  536.     dc.w               13510 
  537.     dc.w               13395 
  538.     dc.w               13278 
  539.     dc.w               13159 
  540.     dc.w               13038 
  541.     dc.w               12916 
  542.     dc.w               12791 
  543.     dc.w               12665 
  544.     dc.w               12536 
  545.     dc.w               12406 
  546.     dc.w               12273 
  547.     dc.w               12139 
  548.     dc.w               12003 
  549.     dc.w               11866 
  550.     dc.w               11726 
  551.     dc.w               11585 
  552.     dc.w               11442 
  553.     dc.w               11297 
  554.     dc.w               11150 
  555.     dc.w               11002 
  556.     dc.w               10853 
  557.     dc.w               10701 
  558.     dc.w               10548 
  559.     dc.w               10393 
  560.     dc.w               10237 
  561.     dc.w               10079 
  562.     dc.w               9920 
  563.     dc.w               9759 
  564.     dc.w               9597 
  565.     dc.w               9434 
  566.     dc.w               9268 
  567.     dc.w               9102 
  568.     dc.w               8934 
  569.     dc.w               8765 
  570.     dc.w               8594 
  571.     dc.w               8423 
  572.     dc.w               8249 
  573.     dc.w               8075 
  574.     dc.w               7900 
  575.     dc.w               7723 
  576.     dc.w               7545 
  577.     dc.w               7366 
  578.     dc.w               7186 
  579.     dc.w               7005 
  580.     dc.w               6822 
  581.     dc.w               6639 
  582.     dc.w               6455 
  583.     dc.w               6269 
  584.     dc.w               6083 
  585.     dc.w               5896 
  586.     dc.w               5708 
  587.     dc.w               5519 
  588.     dc.w               5329 
  589.     dc.w               5139 
  590.     dc.w               4948 
  591.     dc.w               4756 
  592.     dc.w               4563 
  593.     dc.w               4369 
  594.     dc.w               4175 
  595.     dc.w               3980 
  596.     dc.w               3785 
  597.     dc.w               3589 
  598.     dc.w               3393 
  599.     dc.w               3196 
  600.     dc.w               2998 
  601.     dc.w               2801 
  602.     dc.w               2602 
  603.     dc.w               2404 
  604.     dc.w               2204 
  605.     dc.w               2005 
  606.     dc.w               1805 
  607.     dc.w               1605 
  608.     dc.w               1405 
  609.     dc.w               1205 
  610.     dc.w               1004 
  611.     dc.w               803 
  612.     dc.w               603 
  613.     dc.w               402 
  614.     dc.w               201 
  615.     dc.w              -1 
  616.     dc.w              -202 
  617.     dc.w              -403 
  618.     dc.w              -604 
  619.     dc.w              -804 
  620.     dc.w              -1005 
  621.     dc.w              -1206 
  622.     dc.w              -1406 
  623.     dc.w              -1606 
  624.     dc.w              -1806 
  625.     dc.w              -2006 
  626.     dc.w              -2205 
  627.     dc.w              -2405 
  628.     dc.w              -2603 
  629.     dc.w              -2802 
  630.     dc.w              -2999 
  631.     dc.w              -3197 
  632.     dc.w              -3394 
  633.     dc.w              -3590 
  634.     dc.w              -3786 
  635.     dc.w              -3981 
  636.     dc.w              -4176 
  637.     dc.w              -4370 
  638.     dc.w              -4564 
  639.     dc.w              -4757 
  640.     dc.w              -4949 
  641.     dc.w              -5140 
  642.     dc.w              -5330 
  643.     dc.w              -5520 
  644.     dc.w              -5709 
  645.     dc.w              -5897 
  646.     dc.w              -6084 
  647.     dc.w              -6270 
  648.     dc.w              -6456 
  649.     dc.w              -6640 
  650.     dc.w              -6823 
  651.     dc.w              -7006 
  652.     dc.w              -7187 
  653.     dc.w              -7367 
  654.     dc.w              -7546 
  655.     dc.w              -7724 
  656.     dc.w              -7901 
  657.     dc.w              -8076 
  658.     dc.w              -8250 
  659.     dc.w              -8424 
  660.     dc.w              -8595 
  661.     dc.w              -8766 
  662.     dc.w              -8935 
  663.     dc.w              -9103 
  664.     dc.w              -9269 
  665.     dc.w              -9435 
  666.     dc.w              -9598 
  667.     dc.w              -9760 
  668.     dc.w              -9921 
  669.     dc.w              -10080 
  670.     dc.w              -10238 
  671.     dc.w              -10394 
  672.     dc.w              -10549 
  673.     dc.w              -10702 
  674.     dc.w              -10854 
  675.     dc.w              -11003 
  676.     dc.w              -11151 
  677.     dc.w              -11298 
  678.     dc.w              -11443 
  679.     dc.w              -11586 
  680.     dc.w              -11727 
  681.     dc.w              -11867 
  682.     dc.w              -12004 
  683.     dc.w              -12140 
  684.     dc.w              -12274 
  685.     dc.w              -12407 
  686.     dc.w              -12537 
  687.     dc.w              -12666 
  688.     dc.w              -12792 
  689.     dc.w              -12917 
  690.     dc.w              -13039 
  691.     dc.w              -13160 
  692.     dc.w              -13279 
  693.     dc.w              -13396 
  694.     dc.w              -13511 
  695.     dc.w              -13623 
  696.     dc.w              -13734 
  697.     dc.w              -13843 
  698.     dc.w              -13949 
  699.     dc.w              -14054 
  700.     dc.w              -14156 
  701.     dc.w              -14256 
  702.     dc.w              -14354 
  703.     dc.w              -14450 
  704.     dc.w              -14544 
  705.     dc.w              -14635 
  706.     dc.w              -14724 
  707.     dc.w              -14811 
  708.     dc.w              -14896 
  709.     dc.w              -14979 
  710.     dc.w              -15059 
  711.     dc.w              -15137 
  712.     dc.w              -15213 
  713.     dc.w              -15287 
  714.     dc.w              -15358 
  715.     dc.w              -15427 
  716.     dc.w              -15493 
  717.     dc.w              -15558 
  718.     dc.w              -15619 
  719.     dc.w              -15679 
  720.     dc.w              -15736 
  721.     dc.w              -15791 
  722.     dc.w              -15843 
  723.     dc.w              -15893 
  724.     dc.w              -15941 
  725.     dc.w              -15986 
  726.     dc.w              -16029 
  727.     dc.w              -16070 
  728.     dc.w              -16108 
  729.     dc.w              -16143 
  730.     dc.w              -16176 
  731.     dc.w              -16207 
  732.     dc.w              -16235 
  733.     dc.w              -16261 
  734.     dc.w              -16285 
  735.     dc.w              -16306 
  736.     dc.w              -16324 
  737.     dc.w              -16340 
  738.     dc.w              -16354 
  739.     dc.w              -16365 
  740.     dc.w              -16373 
  741.     dc.w              -16380 
  742.     dc.w              -16383 
  743.     dc.w              -16384 
  744.     dc.w              -16383 
  745.     dc.w              -16380 
  746.     dc.w              -16373 
  747.     dc.w              -16365 
  748.     dc.w              -16354 
  749.     dc.w              -16340 
  750.     dc.w              -16324 
  751.     dc.w              -16306 
  752.     dc.w              -16285 
  753.     dc.w              -16261 
  754.     dc.w              -16235 
  755.     dc.w              -16207 
  756.     dc.w              -16176 
  757.     dc.w              -16143 
  758.     dc.w              -16108 
  759.     dc.w              -16070 
  760.     dc.w              -16029 
  761.     dc.w              -15986 
  762.     dc.w              -15941 
  763.     dc.w              -15893 
  764.     dc.w              -15843 
  765.     dc.w              -15791 
  766.     dc.w              -15736 
  767.     dc.w              -15679 
  768.     dc.w              -15619 
  769.     dc.w              -15558 
  770.     dc.w              -15493 
  771.     dc.w              -15427 
  772.     dc.w              -15358 
  773.     dc.w              -15287 
  774.     dc.w              -15213 
  775.     dc.w              -15137 
  776.     dc.w              -15059 
  777.     dc.w              -14979 
  778.     dc.w              -14896 
  779.     dc.w              -14811 
  780.     dc.w              -14724 
  781.     dc.w              -14635 
  782.     dc.w              -14544 
  783.     dc.w              -14450 
  784.     dc.w              -14354 
  785.     dc.w              -14256 
  786.     dc.w              -14156 
  787.     dc.w              -14054 
  788.     dc.w              -13949 
  789.     dc.w              -13843 
  790.     dc.w              -13734 
  791.     dc.w              -13623 
  792.     dc.w              -13511 
  793.     dc.w              -13396 
  794.     dc.w              -13279 
  795.     dc.w              -13160 
  796.     dc.w              -13039 
  797.     dc.w              -12917 
  798.     dc.w              -12792 
  799.     dc.w              -12666 
  800.     dc.w              -12537 
  801.     dc.w              -12407 
  802.     dc.w              -12274 
  803.     dc.w              -12140 
  804.     dc.w              -12004 
  805.     dc.w              -11867 
  806.     dc.w              -11727 
  807.     dc.w              -11586 
  808.     dc.w              -11443 
  809.     dc.w              -11298 
  810.     dc.w              -11151 
  811.     dc.w              -11003 
  812.     dc.w              -10854 
  813.     dc.w              -10702 
  814.     dc.w              -10549 
  815.     dc.w              -10394 
  816.     dc.w              -10238 
  817.     dc.w              -10080 
  818.     dc.w              -9921 
  819.     dc.w              -9760 
  820.     dc.w              -9598 
  821.     dc.w              -9435 
  822.     dc.w              -9269 
  823.     dc.w              -9103 
  824.     dc.w              -8935 
  825.     dc.w              -8766 
  826.     dc.w              -8595 
  827.     dc.w              -8424 
  828.     dc.w              -8250 
  829.     dc.w              -8076 
  830.     dc.w              -7901 
  831.     dc.w              -7724 
  832.     dc.w              -7546 
  833.     dc.w              -7367 
  834.     dc.w              -7187 
  835.     dc.w              -7006 
  836.     dc.w              -6823 
  837.     dc.w              -6640 
  838.     dc.w              -6456 
  839.     dc.w              -6270 
  840.     dc.w              -6084 
  841.     dc.w              -5897 
  842.     dc.w              -5709 
  843.     dc.w              -5520 
  844.     dc.w              -5330 
  845.     dc.w              -5140 
  846.     dc.w              -4949 
  847.     dc.w              -4757 
  848.     dc.w              -4564 
  849.     dc.w              -4370 
  850.     dc.w              -4176 
  851.     dc.w              -3981 
  852.     dc.w              -3786 
  853.     dc.w              -3590 
  854.     dc.w              -3394 
  855.     dc.w              -3197 
  856.     dc.w              -2999 
  857.     dc.w              -2802 
  858.     dc.w              -2603 
  859.     dc.w              -2405 
  860.     dc.w              -2205 
  861.     dc.w              -2006 
  862.     dc.w              -1806 
  863.     dc.w              -1606 
  864.     dc.w              -1406 
  865.     dc.w              -1206 
  866.     dc.w              -1005 
  867.     dc.w              -804 
  868.     dc.w              -604 
  869.     dc.w              -403 
  870.     dc.w              -202 
  871. Cos_Table:
  872.     dc.w               16384 
  873.     dc.w               16382 
  874.     dc.w               16379 
  875.     dc.w               16372 
  876.     dc.w               16364 
  877.     dc.w               16353 
  878.     dc.w               16339 
  879.     dc.w               16323 
  880.     dc.w               16305 
  881.     dc.w               16284 
  882.     dc.w               16260 
  883.     dc.w               16234 
  884.     dc.w               16206 
  885.     dc.w               16175 
  886.     dc.w               16142 
  887.     dc.w               16107 
  888.     dc.w               16069 
  889.     dc.w               16028 
  890.     dc.w               15985 
  891.     dc.w               15940 
  892.     dc.w               15892 
  893.     dc.w               15842 
  894.     dc.w               15790 
  895.     dc.w               15735 
  896.     dc.w               15678 
  897.     dc.w               15618 
  898.     dc.w               15557 
  899.     dc.w               15492 
  900.     dc.w               15426 
  901.     dc.w               15357 
  902.     dc.w               15286 
  903.     dc.w               15212 
  904.     dc.w               15136 
  905.     dc.w               15058 
  906.     dc.w               14978 
  907.     dc.w               14895 
  908.     dc.w               14810 
  909.     dc.w               14723 
  910.     dc.w               14634 
  911.     dc.w               14543 
  912.     dc.w               14449 
  913.     dc.w               14353 
  914.     dc.w               14255 
  915.     dc.w               14155 
  916.     dc.w               14053 
  917.     dc.w               13948 
  918.     dc.w               13842 
  919.     dc.w               13733 
  920.     dc.w               13622 
  921.     dc.w               13510 
  922.     dc.w               13395 
  923.     dc.w               13278 
  924.     dc.w               13159 
  925.     dc.w               13038 
  926.     dc.w               12916 
  927.     dc.w               12791 
  928.     dc.w               12665 
  929.     dc.w               12536 
  930.     dc.w               12406 
  931.     dc.w               12273 
  932.     dc.w               12139 
  933.     dc.w               12003 
  934.     dc.w               11866 
  935.     dc.w               11726 
  936.     dc.w               11585 
  937.     dc.w               11442 
  938.     dc.w               11297 
  939.     dc.w               11150 
  940.     dc.w               11002 
  941.     dc.w               10853 
  942.     dc.w               10701 
  943.     dc.w               10548 
  944.     dc.w               10393 
  945.     dc.w               10237 
  946.     dc.w               10079 
  947.     dc.w               9920 
  948.     dc.w               9759 
  949.     dc.w               9597 
  950.     dc.w               9434 
  951.     dc.w               9268 
  952.     dc.w               9102 
  953.     dc.w               8934 
  954.     dc.w               8765 
  955.     dc.w               8594 
  956.     dc.w               8423 
  957.     dc.w               8249 
  958.     dc.w               8075 
  959.     dc.w               7900 
  960.     dc.w               7723 
  961.     dc.w               7545 
  962.     dc.w               7366 
  963.     dc.w               7186 
  964.     dc.w               7005 
  965.     dc.w               6822 
  966.     dc.w               6639 
  967.     dc.w               6455 
  968.     dc.w               6269 
  969.     dc.w               6083 
  970.     dc.w               5896 
  971.     dc.w               5708 
  972.     dc.w               5519 
  973.     dc.w               5329 
  974.     dc.w               5139 
  975.     dc.w               4948 
  976.     dc.w               4756 
  977.     dc.w               4563 
  978.     dc.w               4369 
  979.     dc.w               4175 
  980.     dc.w               3980 
  981.     dc.w               3785 
  982.     dc.w               3589 
  983.     dc.w               3393 
  984.     dc.w               3196 
  985.     dc.w               2998 
  986.     dc.w               2801 
  987.     dc.w               2602 
  988.     dc.w               2404 
  989.     dc.w               2204 
  990.     dc.w               2005 
  991.     dc.w               1805 
  992.     dc.w               1605 
  993.     dc.w               1405 
  994.     dc.w               1205 
  995.     dc.w               1004 
  996.     dc.w               803 
  997.     dc.w               603 
  998.     dc.w               402 
  999.     dc.w               201 
  1000.     dc.w              -1 
  1001.     dc.w              -202 
  1002.     dc.w              -403 
  1003.     dc.w              -604 
  1004.     dc.w              -804 
  1005.     dc.w              -1005 
  1006.     dc.w              -1206 
  1007.     dc.w              -1406 
  1008.     dc.w              -1606 
  1009.     dc.w              -1806 
  1010.     dc.w              -2006 
  1011.     dc.w              -2205 
  1012.     dc.w              -2405 
  1013.     dc.w              -2603 
  1014.     dc.w              -2802 
  1015.     dc.w              -2999 
  1016.     dc.w              -3197 
  1017.     dc.w              -3394 
  1018.     dc.w              -3590 
  1019.     dc.w              -3786 
  1020.     dc.w              -3981 
  1021.     dc.w              -4176 
  1022.     dc.w              -4370 
  1023.     dc.w              -4564 
  1024.     dc.w              -4757 
  1025.     dc.w              -4949 
  1026.     dc.w              -5140 
  1027.     dc.w              -5330 
  1028.     dc.w              -5520 
  1029.     dc.w              -5709 
  1030.     dc.w              -5897 
  1031.     dc.w              -6084 
  1032.     dc.w              -6270 
  1033.     dc.w              -6456 
  1034.     dc.w              -6640 
  1035.     dc.w              -6823 
  1036.     dc.w              -7006 
  1037.     dc.w              -7187 
  1038.     dc.w              -7367 
  1039.     dc.w              -7546 
  1040.     dc.w              -7724 
  1041.     dc.w              -7901 
  1042.     dc.w              -8076 
  1043.     dc.w              -8250 
  1044.     dc.w              -8424 
  1045.     dc.w              -8595 
  1046.     dc.w              -8766 
  1047.     dc.w              -8935 
  1048.     dc.w              -9103 
  1049.     dc.w              -9269 
  1050.     dc.w              -9435 
  1051.     dc.w              -9598 
  1052.     dc.w              -9760 
  1053.     dc.w              -9921 
  1054.     dc.w              -10080 
  1055.     dc.w              -10238 
  1056.     dc.w              -10394 
  1057.     dc.w              -10549 
  1058.     dc.w              -10702 
  1059.     dc.w              -10854 
  1060.     dc.w              -11003 
  1061.     dc.w              -11151 
  1062.     dc.w              -11298 
  1063.     dc.w              -11443 
  1064.     dc.w              -11586 
  1065.     dc.w              -11727 
  1066.     dc.w              -11867 
  1067.     dc.w              -12004 
  1068.     dc.w              -12140 
  1069.     dc.w              -12274 
  1070.     dc.w              -12407 
  1071.     dc.w              -12537 
  1072.     dc.w              -12666 
  1073.     dc.w              -12792 
  1074.     dc.w              -12917 
  1075.     dc.w              -13039 
  1076.     dc.w              -13160 
  1077.     dc.w              -13279 
  1078.     dc.w              -13396 
  1079.     dc.w              -13511 
  1080.     dc.w              -13623 
  1081.     dc.w              -13734 
  1082.     dc.w              -13843 
  1083.     dc.w              -13949 
  1084.     dc.w              -14054 
  1085.     dc.w              -14156 
  1086.     dc.w              -14256 
  1087.     dc.w              -14354 
  1088.     dc.w              -14450 
  1089.     dc.w              -14544 
  1090.     dc.w              -14635 
  1091.     dc.w              -14724 
  1092.     dc.w              -14811 
  1093.     dc.w              -14896 
  1094.     dc.w              -14979 
  1095.     dc.w              -15059 
  1096.     dc.w              -15137 
  1097.     dc.w              -15213 
  1098.     dc.w              -15287 
  1099.     dc.w              -15358 
  1100.     dc.w              -15427 
  1101.     dc.w              -15493 
  1102.     dc.w              -15558 
  1103.     dc.w              -15619 
  1104.     dc.w              -15679 
  1105.     dc.w              -15736 
  1106.     dc.w              -15791 
  1107.     dc.w              -15843 
  1108.     dc.w              -15893 
  1109.     dc.w              -15941 
  1110.     dc.w              -15986 
  1111.     dc.w              -16029 
  1112.     dc.w              -16070 
  1113.     dc.w              -16108 
  1114.     dc.w              -16143 
  1115.     dc.w              -16176 
  1116.     dc.w              -16207 
  1117.     dc.w              -16235 
  1118.     dc.w              -16261 
  1119.     dc.w              -16285 
  1120.     dc.w              -16306 
  1121.     dc.w              -16324 
  1122.     dc.w              -16340 
  1123.     dc.w              -16354 
  1124.     dc.w              -16365 
  1125.     dc.w              -16373 
  1126.     dc.w              -16380 
  1127.     dc.w              -16383 
  1128.     dc.w              -16384 
  1129.     dc.w              -16383 
  1130.     dc.w              -16380 
  1131.     dc.w              -16373 
  1132.     dc.w              -16365 
  1133.     dc.w              -16354 
  1134.     dc.w              -16340 
  1135.     dc.w              -16324 
  1136.     dc.w              -16306 
  1137.     dc.w              -16285 
  1138.     dc.w              -16261 
  1139.     dc.w              -16235 
  1140.     dc.w              -16207 
  1141.     dc.w              -16176 
  1142.     dc.w              -16143 
  1143.     dc.w              -16108 
  1144.     dc.w              -16070 
  1145.     dc.w              -16029 
  1146.     dc.w              -15986 
  1147.     dc.w              -15941 
  1148.     dc.w              -15893 
  1149.     dc.w              -15843 
  1150.     dc.w              -15791 
  1151.     dc.w              -15736 
  1152.     dc.w              -15679 
  1153.     dc.w              -15619 
  1154.     dc.w              -15558 
  1155.     dc.w              -15493 
  1156.     dc.w              -15427 
  1157.     dc.w              -15358 
  1158.     dc.w              -15287 
  1159.     dc.w              -15213 
  1160.     dc.w              -15137 
  1161.     dc.w              -15059 
  1162.     dc.w              -14979 
  1163.     dc.w              -14896 
  1164.     dc.w              -14811 
  1165.     dc.w              -14724 
  1166.     dc.w              -14635 
  1167.     dc.w              -14544 
  1168.     dc.w              -14450 
  1169.     dc.w              -14354 
  1170.     dc.w              -14256 
  1171.     dc.w              -14156 
  1172.     dc.w              -14054 
  1173.     dc.w              -13949 
  1174.     dc.w              -13843 
  1175.     dc.w              -13734 
  1176.     dc.w              -13623 
  1177.     dc.w              -13511 
  1178.     dc.w              -13396 
  1179.     dc.w              -13279 
  1180.     dc.w              -13160 
  1181.     dc.w              -13039 
  1182.     dc.w              -12917 
  1183.     dc.w              -12792 
  1184.     dc.w              -12666 
  1185.     dc.w              -12537 
  1186.     dc.w              -12407 
  1187.     dc.w              -12274 
  1188.     dc.w              -12140 
  1189.     dc.w              -12004 
  1190.     dc.w              -11867 
  1191.     dc.w              -11727 
  1192.     dc.w              -11586 
  1193.     dc.w              -11443 
  1194.     dc.w              -11298 
  1195.     dc.w              -11151 
  1196.     dc.w              -11003 
  1197.     dc.w              -10854 
  1198.     dc.w              -10702 
  1199.     dc.w              -10549 
  1200.     dc.w              -10394 
  1201.     dc.w              -10238 
  1202.     dc.w              -10080 
  1203.     dc.w              -9921 
  1204.     dc.w              -9760 
  1205.     dc.w              -9598 
  1206.     dc.w              -9435 
  1207.     dc.w              -9269 
  1208.     dc.w              -9103 
  1209.     dc.w              -8935 
  1210.     dc.w              -8766 
  1211.     dc.w              -8595 
  1212.     dc.w              -8424 
  1213.     dc.w              -8250 
  1214.     dc.w              -8076 
  1215.     dc.w              -7901 
  1216.     dc.w              -7724 
  1217.     dc.w              -7546 
  1218.     dc.w              -7367 
  1219.     dc.w              -7187 
  1220.     dc.w              -7006 
  1221.     dc.w              -6823 
  1222.     dc.w              -6640 
  1223.     dc.w              -6456 
  1224.     dc.w              -6270 
  1225.     dc.w              -6084 
  1226.     dc.w              -5897 
  1227.     dc.w              -5709 
  1228.     dc.w              -5520 
  1229.     dc.w              -5330 
  1230.     dc.w              -5140 
  1231.     dc.w              -4949 
  1232.     dc.w              -4757 
  1233.     dc.w              -4564 
  1234.     dc.w              -4370 
  1235.     dc.w              -4176 
  1236.     dc.w              -3981 
  1237.     dc.w              -3786 
  1238.     dc.w              -3590 
  1239.     dc.w              -3394 
  1240.     dc.w              -3197 
  1241.     dc.w              -2999 
  1242.     dc.w              -2802 
  1243.     dc.w              -2603 
  1244.     dc.w              -2405 
  1245.     dc.w              -2205 
  1246.     dc.w              -2006 
  1247.     dc.w              -1806 
  1248.     dc.w              -1606 
  1249.     dc.w              -1406 
  1250.     dc.w              -1206 
  1251.     dc.w              -1005 
  1252.     dc.w              -804 
  1253.     dc.w              -604 
  1254.     dc.w              -403 
  1255.     dc.w              -202 
  1256.     dc.w              -1 
  1257.     dc.w               201 
  1258.     dc.w               402 
  1259.     dc.w               603 
  1260.     dc.w               803 
  1261.     dc.w               1004 
  1262.     dc.w               1205 
  1263.     dc.w               1405 
  1264.     dc.w               1605 
  1265.     dc.w               1805 
  1266.     dc.w               2005 
  1267.     dc.w               2204 
  1268.     dc.w               2404 
  1269.     dc.w               2602 
  1270.     dc.w               2801 
  1271.     dc.w               2998 
  1272.     dc.w               3196 
  1273.     dc.w               3393 
  1274.     dc.w               3589 
  1275.     dc.w               3785 
  1276.     dc.w               3980 
  1277.     dc.w               4175 
  1278.     dc.w               4369 
  1279.     dc.w               4563 
  1280.     dc.w               4756 
  1281.     dc.w               4948 
  1282.     dc.w               5139 
  1283.     dc.w               5329 
  1284.     dc.w               5519 
  1285.     dc.w               5708 
  1286.     dc.w               5896 
  1287.     dc.w               6083 
  1288.     dc.w               6269 
  1289.     dc.w               6455 
  1290.     dc.w               6639 
  1291.     dc.w               6822 
  1292.     dc.w               7005 
  1293.     dc.w               7186 
  1294.     dc.w               7366 
  1295.     dc.w               7545 
  1296.     dc.w               7723 
  1297.     dc.w               7900 
  1298.     dc.w               8075 
  1299.     dc.w               8249 
  1300.     dc.w               8423 
  1301.     dc.w               8594 
  1302.     dc.w               8765 
  1303.     dc.w               8934 
  1304.     dc.w               9102 
  1305.     dc.w               9268 
  1306.     dc.w               9434 
  1307.     dc.w               9597 
  1308.     dc.w               9759 
  1309.     dc.w               9920 
  1310.     dc.w               10079 
  1311.     dc.w               10237 
  1312.     dc.w               10393 
  1313.     dc.w               10548 
  1314.     dc.w               10701 
  1315.     dc.w               10853 
  1316.     dc.w               11002 
  1317.     dc.w               11150 
  1318.     dc.w               11297 
  1319.     dc.w               11442 
  1320.     dc.w               11585 
  1321.     dc.w               11726 
  1322.     dc.w               11866 
  1323.     dc.w               12003 
  1324.     dc.w               12139 
  1325.     dc.w               12273 
  1326.     dc.w               12406 
  1327.     dc.w               12536 
  1328.     dc.w               12665 
  1329.     dc.w               12791 
  1330.     dc.w               12916 
  1331.     dc.w               13038 
  1332.     dc.w               13159 
  1333.     dc.w               13278 
  1334.     dc.w               13395 
  1335.     dc.w               13510 
  1336.     dc.w               13622 
  1337.     dc.w               13733 
  1338.     dc.w               13842 
  1339.     dc.w               13948 
  1340.     dc.w               14053 
  1341.     dc.w               14155 
  1342.     dc.w               14255 
  1343.     dc.w               14353 
  1344.     dc.w               14449 
  1345.     dc.w               14543 
  1346.     dc.w               14634 
  1347.     dc.w               14723 
  1348.     dc.w               14810 
  1349.     dc.w               14895 
  1350.     dc.w               14978 
  1351.     dc.w               15058 
  1352.     dc.w               15136 
  1353.     dc.w               15212 
  1354.     dc.w               15286 
  1355.     dc.w               15357 
  1356.     dc.w               15426 
  1357.     dc.w               15492 
  1358.     dc.w               15557 
  1359.     dc.w               15618 
  1360.     dc.w               15678 
  1361.     dc.w               15735 
  1362.     dc.w               15790 
  1363.     dc.w               15842 
  1364.     dc.w               15892 
  1365.     dc.w               15940 
  1366.     dc.w               15985 
  1367.     dc.w               16028 
  1368.     dc.w               16069 
  1369.     dc.w               16107 
  1370.     dc.w               16142 
  1371.     dc.w               16175 
  1372.     dc.w               16206 
  1373.     dc.w               16234 
  1374.     dc.w               16260 
  1375.     dc.w               16284 
  1376.     dc.w               16305 
  1377.     dc.w               16323 
  1378.     dc.w               16339 
  1379.     dc.w               16353 
  1380.     dc.w               16364 
  1381.     dc.w               16372 
  1382.     dc.w               16379 
  1383.     dc.w               16382 
  1384.  
  1385.