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