home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Source / pheno.lha / pha / VectorStarsF.S < prev    next >
Encoding:
Text File  |  1987-12-17  |  27.1 KB  |  825 lines
  1. ;------------------------------------------------------------------------
  2. ;-                                    -
  3. ;-                 Vector-Stars                -
  4. ;-                                    -
  5. ;------------------------------------------------------------------------
  6.  
  7. org    $20000
  8. load    $20000
  9.  
  10. >EXTERN        '16Font',Font
  11.  
  12.         AntStars:    =    90
  13.  
  14. ;------------------------------------------------------------------------
  15.  
  16. S:        movem.l    d0-d7/a0-a6,-(sp)
  17.         lea.l    $dff000,a6
  18.         bsr    Startup
  19.         bsr    InitRutin
  20.         bsr    StartCop
  21.         bsr    MainLoop
  22.         bsr    RestoreCop
  23.         movem.l    (sp)+,d0-d7/a0-a6
  24.         rts
  25.  
  26. Startup:    move.w    2(a6),d0
  27.         bset    #15,d0
  28.         move.w    d0,OldDma
  29.         move.w    $1c(a6),d0
  30.         bset    #15,d0
  31.         move.w    d0,OldIrq
  32.         move.l    $4,a6
  33.         lea.l    Lib(pc),a1
  34.         moveq    #0,d0
  35.         jsr    -408(a6)
  36.         move.l    d0,a0
  37.         move.l    $26(a0),OldCop
  38.         lea.l    $dff000,a6
  39.         rts
  40.  
  41. StartCop:    move.l    #CopperList,$80(a6)
  42.         tst.w    $88(a6)
  43.         move.w    #$7fff,$96(a6)
  44.         move.w    #$87c0,$96(a6)
  45.         move.w    #$7fff,$9a(a6)
  46.         move.w    #$c000,$9a(a6)
  47.         rts
  48.  
  49. RestoreCop:    move.l    OldCop(pc),$80(a6)
  50.         tst.w    $88(a6)
  51.         move.w    OldDma(pc),$96(a6)
  52.         move.w    OldIrq(pc),$9a(a6)
  53.         rts
  54.  
  55.     ;-----------------------------------------------------
  56.         OldCop:        dc.l    0
  57.         OldDma:        dc.w    0
  58.         OldIrq:        dc.w    0
  59.         Lib:        dc.b    'graphics.library',0
  60.                 even
  61.     ;-----------------------------------------------------
  62.  
  63. ;------------------------------------------------------------------------
  64.  
  65. BlitWait:    btst    #14,2(a6)
  66.         bne.S    BlitWait
  67.         rts
  68.  
  69. ClearScreen:    bsr.S    BlitWait
  70.         move.l    #-1,$44(a6)
  71.         move.l    #$01000000,$40(a6)
  72.         move.w    d2,$66(a6)
  73.         move.l    d0,$54(a6)
  74.         move.w    d1,$58(a6)
  75.         rts
  76.  
  77. ;------------------------------------------------------------------------
  78.  
  79. InitRutin:    move.l    Screen(pc),d0
  80.         move.w    #116*64+24,d1
  81.         moveq    #0,d2
  82.         bsr    ClearScreen
  83.         move.l    Screen+4(pc),d0
  84.         bsr    ClearScreen
  85.         move.l    #ScrollAdr,d0
  86.         move.w    #16*64+22,d1
  87.         bsr    ClearScreen
  88.  
  89.         lea.l    Positioner(pc),a0
  90.         lea.l    $6(a6),a1
  91.         move.w    #1245,d1
  92.         move.w    #13,d2
  93.         move.w    #2,d3
  94.         move.w    #AntStars-1,d7
  95. RNDLoop:    move.w    (a1),d0
  96.         ext    d0
  97.         muls    d1,d0
  98.         and.w    #$1ff,d0
  99.         ;cmp.w    #320,d0
  100.         ;bls.S    NoD1
  101.         sub.w    #256,d0
  102. NoD1:        move.w    d0,(a0)+
  103.         muls    d2,d1
  104.         add.w    d3,d2
  105.         move.w    (a1),d0
  106.         ext    d0
  107.         muls    d1,d0
  108.         and.w    #$1ff,d0
  109.         ;cmp.w    #200,d0
  110.         ;bls.S    NoD2
  111.         sub.w    #256,d0
  112. NoD2:        move.w    d0,(a0)+
  113.         muls    d2,d1
  114.         add.w    d3,d2
  115.         move.w    (a1),d0
  116.         ext    d0
  117.         muls    d1,d0
  118.         and.w    #$1ff,d0
  119.         sub.w    #256,d0
  120.         move.w    d0,(a0)+
  121.         muls    d2,d1
  122.         add.w    d3,d2
  123.         dbra    d7,RNDLoop
  124.  
  125.         lea.l    MulsList,a0
  126.         moveq    #0,d0
  127.         move.w    #300-1,d7
  128. MulsLoop:    move.w    d0,(a0)+
  129.         add.w    #44,d0
  130.         dbra    d7,MulsLoop
  131.  
  132.         lea.l    BMap2(pc),a0
  133.         move.l    #ScrollAdr,d0
  134.         move.w    d0,6(a0)
  135.         swap    d0
  136.         move.w    d0,2(a0)
  137.         move.l    #ScrollText,ScrollSave
  138.         rts
  139.  
  140. ScrollAdr:    =    $79000
  141. MulsList:    =    $6d000
  142.  
  143. ;------------------------------------------------------------------------
  144.  
  145. MainLoop:    cmp.b    #-1,$6(a6)
  146.         bne.S    MainLoop
  147.  
  148.         ;move.w    #$4,$180(a6)
  149.         bsr    Stars
  150.         bsr    Scroll
  151.         ;move.w    #$40,$180(a6)
  152.  
  153.         btst    #6,$bfe001
  154.         bne.S    MainLoop
  155.         rts
  156.  
  157. ;------------------------------------------------------------------------
  158.  
  159. Scroll:        cmp.w    #0,Reg
  160.         bne.S    NoNew
  161.         bsr    GetNew
  162.         move.w    #16,Reg
  163. NoNew:        bsr    ScrollIt
  164.         subq.w    #4,Reg
  165.         rts
  166.  
  167. Reg:        dc.w    0
  168. ScrollSave:    dc.l    0
  169.  
  170. GetNew:        move.l    ScrollSave(pc),a0
  171.         moveq    #0,d0
  172.         move.b    (a0),d0
  173.         cmp.b    #-1,d0
  174.         bne.S    NoRe
  175.         move.l    #ScrollText,ScrollSave
  176.         bra.S    GetNew
  177. NoRe:        cmp.b    #1,d0
  178.         bne.S    NoS
  179.         addq.l    #1,a0
  180.         bsr    FindNS
  181.         addq.l    #3,ScrollSave
  182.         bra.S    GetNew
  183. NoS:        sub.b    #$20,d0
  184.         add.w    d0,d0
  185.         add.l    #Font,d0
  186.         bsr    BlitWait
  187.         move.l    #-1,$44(a6)
  188.         move.l    #$09f00000,$40(a6)
  189.         move.w    #118-2,$64(a6)
  190.         move.w    #44-2,$66(a6)
  191.         move.l    #ScrollAdr,d1
  192.         add.l    #42,d1
  193.         move.l    d0,$50(a6)
  194.         move.l    d1,$54(a6)
  195.         move.w    #16*64+1,$58(a6)
  196.         addq.l    #1,ScrollSave
  197.         rts
  198.  
  199. FindNS:        moveq    #0,d2
  200.         move.b    (a0)+,d2
  201.         add.w    d2,d2
  202.         moveq    #0,d3
  203.         move.b    (a0)+,d3
  204.         lea.l    VAdds(pc),a3
  205.         move.w    d3,(a3,d2.W)
  206.         rts
  207.  
  208. ScrollIt:    bsr    BlitWait
  209.         move.l    #ScrollAdr,d0
  210.         add.l    #15*44+44,d0
  211.         move.l    #-1,$44(a6)
  212.         move.l    #$49f00002,$40(a6)
  213.         clr.l    $64(a6)
  214.         move.l    d0,$50(a6)
  215.         move.l    d0,$54(a6)
  216.         move.w    #17*64+22,$58(a6)
  217.         rts
  218.  
  219. ScrollText:
  220. DC.B    'PHENOMENA PRESENTS:  ',1,2,6
  221. DC.B    'A NEW DEMO',1,1,2
  222. DC.B    ' CALLED: ',1,0,4
  223. DC.B    '  SMURFDEMOT!!  ',1,2,4
  224. DC.B    '   CODED BY MACE!  ',1,0,0
  225. DC.B    '  MUSIC BY TIP!    ',1,1,6
  226. DC.B    'GRAPHICS BY COLOR!!       ',1,0,0,1,1,0
  227. DC.B    -1
  228. even
  229.  
  230. ;------------------------------------------------------------------------
  231.  
  232. Stars:        bsr    Buffra
  233.         bsr    Rensa
  234.         bsr    VinkelAdd
  235.         bsr    AddZ
  236.         bsr    Rakna
  237.         bsr    Plotta
  238.         rts
  239.  
  240. Buffra:        move.l    Screen(pc),d0
  241.         move.l    Screen+4(pc),Screen
  242.         move.l    d0,Screen+4
  243.         lea.l    BMap(pc),a0
  244.         moveq    #2-1,d7
  245. BMapLoop:    swap    d0
  246.         move.w    d0,2(a0)
  247.         swap    d0
  248.         move.w    d0,6(a0)
  249.         addq.l    #8,a0
  250.         add.l    #BmapSize,d0
  251.         dbra    d7,BMapLoop
  252.         rts
  253.  
  254. Rensa:        move.l    Screen(pc),d0
  255.         moveq    #0,d2
  256.         move.w    #280*64*2+22,d1
  257.         bsr    ClearScreen
  258.         rts
  259.  
  260. VinkelAdd:    lea.l    Vinklar(pc),a0
  261.         lea.l    VAdds(pc),a1
  262.         move.w    #720,d1
  263.         moveq    #3-1,d7
  264. VAddLoop:    move.w    (a0),d0
  265.         add.w    (a1)+,d0
  266.         cmp.w    d1,d0
  267.         bls.S    Nothing
  268.         sub.w    d1,d0
  269. Nothing:    move.w    d0,(a0)+
  270.         dbra    d7,VAddLoop
  271.         rts
  272.  
  273. AddZ:        lea.l    Positioner+4(pc),a0
  274.         move.w    #511,d0
  275.         move.w    #256,d3
  276.         move.w    #-12,d1
  277.         move.w    #AntStars-1,d7
  278. ZLoop:        move.w    (a0),d2
  279.         add.w    d3,d2
  280.         add.w    d1,d2
  281.         and.w    d0,d2
  282.         sub.w    d3,d2
  283.         move.w    d2,(a0)
  284.         addq.l    #6,a0
  285.         dbra    d7,ZLoop
  286.         rts
  287.  
  288. Rakna:        lea.l    Positioner(pc),a0
  289.         lea.l    Sinus+180(pc),a1
  290.         lea.l    Sinus(pc),a2
  291.         lea.l    Vinklar(pc),a3
  292.         lea.l    Posses(pc),a4
  293.         lea.l    Djup+200(pc),a5
  294.  
  295.         lea.l    CalcUp(pc),a6
  296.         move.w    (a3),d0
  297.         move.w    (a1,d0.W),(a6)+
  298.         move.w    (a2,d0.W),(a6)+
  299.         move.w    4(a3),d0
  300.         move.w    (a1,d0.W),(a6)+
  301.         move.w    (a2,d0.W),(a6)+
  302.         move.w    2(a3),d0
  303.         move.w    (a1,d0.W),(a6)+
  304.         move.w    (a2,d0.W),(a6)+
  305.  
  306.         lea.l    CalcUp(pc),a1
  307.         lea.l    MulsList,a6
  308.         move.w    #AntStars-1,d7
  309.  
  310. RakneLoop:    move.w    (a1)+,d1
  311.         move.w    (a1)+,d2
  312.  
  313.         move.w    2(a0),d3
  314.         muls    d2,d3
  315.         move.w    4(a0),d4
  316.         muls    d1,d4
  317.         sub.l    d4,d3
  318.         asl.l    #2,d3
  319.         swap    d3        ;Y
  320.         move.w    2(a0),d4
  321.         muls    d1,d4
  322.         move.w    4(a0),d5
  323.         muls    d2,d5
  324.         add.l    d5,d4
  325.         asl.l    #2,d4
  326.         swap    d4        ;Z
  327.  
  328.         move.w    (a1)+,d1
  329.         move.w    (a1)+,d2
  330.         move.w    (a0),d5
  331.         muls    d2,d5
  332.         move.w    d3,d6
  333.         muls    d1,d6
  334.         sub.l    d6,d5
  335.         asl.l    #2,d5
  336.         swap    d5        ;X
  337.         move.w    (a0),d6
  338.         muls    d1,d6
  339.         muls    d2,d3
  340.         add.l    d6,d3
  341.         asl.l    #2,d3
  342.         swap    d3        ;Y
  343.  
  344.         move.w    (a1)+,d1
  345.         move.w    (a1)+,d2
  346.         move.w    d5,d0
  347.         muls    d2,d0
  348.         move.w    d4,d6
  349.         muls    d1,d6
  350.         sub.l    d6,d0
  351.         asl.l    #2,d0
  352.         swap    d0        ;X
  353.         muls    d1,d5
  354.         muls    d2,d4
  355.         add.l    d5,d4
  356.         asl.l    #2,d4
  357.         swap    d4        ;Z
  358.  
  359.         add.w    #256,d4
  360.         add.w    d4,d4
  361.         move.w    (a5,d4.W),d2
  362.         muls    d2,d0
  363.         muls    d2,d3
  364.         lsl.l    #4,d0
  365.         lsl.l    #4,d3
  366.         swap    d0
  367.         swap    d3
  368.  
  369.         addq.l    #6,a0
  370.  
  371.         add.w    #176,d0
  372.         cmp.w    #352,d0
  373.         bls.S    NN
  374.         move.w    #351,d0
  375. NN:        add.w    #140,d3
  376.         cmp.w    #280,d3
  377.         bls.S    NN2
  378.         move.w    #281,d3
  379. NN2:
  380.         move.w    d0,d1
  381.         lsr.w    #3,d0
  382.         eor.w    #$7,d1
  383.         add.w    d3,d3
  384.         move.w    (a6,d3.W),d3
  385.         add.w    d3,d0
  386.  
  387.         move.w    d0,(a4)+
  388.         move.w    d1,(a4)+
  389.         move.w    d4,(a4)+
  390.         lea.l    -12(a1),a1
  391.         dbra    d7,RakneLoop
  392.         lea.l    $dff000,a6
  393.         rts
  394.  
  395. Plotta:        lea.l    Posses(pc),a0
  396.         move.l    Screen(pc),a1
  397.         move.l    #BMapSize,d3
  398.         move.w    #1024,d4
  399.         move.w    #AntStars-1,d7
  400. PlotLoop:    move.w    (a0)+,d0
  401.         move.w    (a0)+,d1
  402.         move.w    (a0)+,d2
  403.         cmp.w    d3,d0
  404.         bhi.S    NoPlot2
  405.         cmp.w    d4,d2
  406.         bhi.S    NoPlot2
  407.         btst    #8,d2
  408.         beq.S    NoPlot1
  409.         bset    d1,(a1,d0.W)
  410. NoPlot1:    add.w    d3,d0
  411.         btst    #9,d2
  412.         beq.S    NoPlot2
  413.         bset    d1,(a1,d0.W)
  414. NoPlot2:    dbra    d7,PlotLoop
  415.         rts
  416.  
  417.     ;--------------------------------------------------
  418.  
  419.         Screen:        dc.l    $60000
  420.                 dc.l    $70000
  421.  
  422.         BMapSize:    =    280*44
  423.  
  424.         Posses:        blk.w    AntStars*3,0
  425.         Positioner:    blk.w    AntStars*3,0
  426.         CalcUp:        blk.w    3*2,0
  427.  
  428.         Vinklar:    dc.w    0
  429.                 dc.w    0
  430.                 dc.w    0
  431.  
  432.         VAdds:        dc.w    0
  433.                 dc.w    0
  434.                 dc.w    0
  435.  
  436.     ;--------------------------------------------------
  437.  
  438. ;------------------------------------------------------------------------
  439.  
  440. CopperList:    dc.l    $008e2066,$009038c6,$00920030,$009400d8
  441.         dc.l    $01020055,$01040000,$01080000,$010a0000
  442.  
  443.         dc.l    $01800000,$01820dde,$0184099a,$01860556
  444.         dc.l    $01880fff,$018a0fff,$018c0fff,$018e0fff
  445. BMap:        dc.l    $00e00000,$00e20000,$00e40000,$00e60000
  446. BMap2:        dc.l    $00e80000,$00ea0000
  447.         dc.l    $01002000
  448.  
  449.         dc.l    $9001fffe,$01003000
  450.         dc.l    $01880444,$018a0444,$018c0444,$018e0444
  451.         dc.l    $9101fffe,$01880555,$018a0555,$018c0555,$018e0555
  452.         dc.l    $9201fffe,$01880666,$018a0666,$018c0666,$018e0666
  453.         dc.l    $9301fffe,$01880777,$018a0777,$018c0777,$018e0777
  454.         dc.l    $9401fffe,$01880888,$018a0888,$018c0888,$018e0888
  455.         dc.l    $9501fffe,$01880999,$018a0999,$018c0999,$018e0999
  456.         dc.l    $9601fffe,$01880aaa,$018a0aaa,$018c0aaa,$018e0aaa
  457.         dc.l    $9701fffe,$01880bbb,$018a0bbb,$018c0bbb,$018e0bbb
  458.         dc.l    $9801fffe,$01880006,$018a0006,$018c0006,$018e0006
  459.         dc.l    $9901fffe,$01880007,$018a0007,$018c0007,$018e0007
  460.         dc.l    $9a01fffe,$01880008,$018a0008,$018c0008,$018e0008
  461.         dc.l    $9b01fffe,$01880009,$018a0009,$018c0009,$018e0009
  462.         dc.l    $9c01fffe,$0188000a,$018a000a,$018c000a,$018e000a
  463.         dc.l    $9d01fffe,$0188000b,$018a000b,$018c000b,$018e000b
  464.         dc.l    $9e01fffe,$0188000c,$018a000c,$018c000c,$018e000c
  465.         dc.l    $9f01fffe,$0188000d,$018a000d,$018c000d,$018e000d
  466.         dc.l    $a001fffe,$01002000
  467.  
  468.         dc.l    -2
  469.  
  470. ;------------------------------------------------------------------------
  471.  
  472. DJUP:
  473.     dc.w    $6a00,$6000,$5a00,$5200,$4d00,$4800,$4400,$4000
  474.     DC.W    $3D12,$3BF4,$3AE0,$39D6,$38D6,$37DE,$36EE,$3606
  475.     DC.W    $3526,$344C,$337A,$32AE,$31E9,$3129,$306F,$2FBA
  476.     DC.W    $2F0B,$2E60,$2DBB,$2D1A,$2C7D,$2BE4,$2B50,$2ABF
  477.     DC.W    $2A32,$29A9,$2923,$28A0,$2821,$27A5,$272B,$26B5
  478.     DC.W    $2641,$25D0,$2562,$24F6,$248C,$2425,$23C0,$235D
  479.     DC.W    $22FD,$229E,$2241,$21E7,$218E,$2137,$20E1,$208E
  480.     DC.W    $203C,$1FEB,$1F9C,$1F4F,$1F03,$1EB9,$1E70,$1E28
  481.     DC.W    $1DE2,$1D9C,$1D59,$1D16,$1CD4,$1C94,$1C55,$1C17
  482.     DC.W    $1BD9,$1B9D,$1B62,$1B28,$1AEF,$1AB7,$1A7F,$1A49
  483.     DC.W    $1A13,$19DF,$19AB,$1978,$1946,$1914,$18E3,$18B3
  484.     DC.W    $1884,$1855,$1827,$17FA,$17CE,$17A2,$1776,$174C
  485.     DC.W    $1721,$16F8,$16CF,$16A7,$167F,$1658,$1631,$160B
  486.     DC.W    $15E5,$15C0,$159B,$1577,$1553,$1530,$150D,$14EA
  487.     DC.W    $14C8,$14A7,$1486,$1465,$1445,$1425,$1405,$13E6
  488.     DC.W    $13C7,$13A9,$138B,$136D,$1350,$1333,$1316,$12FA
  489.     DC.W    $12DE,$12C3,$12A7,$128C,$1271,$1257,$123D,$1223
  490.     DC.W    $1209,$11F0,$11D7,$11BE,$11A6,$118E,$1176,$115E
  491.     DC.W    $1147,$112F,$1118,$1102,$10EB,$10D5,$10BF,$10A9
  492.     DC.W    $1094,$107E,$1069,$1054,$103F,$102B,$1017,$1002
  493.     DC.W    $0FEF,$0FDB,$0FC7,$0FB4,$0FA1,$0F8E,$0F7B,$0F68
  494.     DC.W    $0F56,$0F43,$0F31,$0F1F,$0F0E,$0EFC,$0EEB,$0ED9
  495.     DC.W    $0EC8,$0EB7,$0EA6,$0E96,$0E85,$0E75,$0E64,$0E54
  496.     DC.W    $0E44,$0E34,$0E25,$0E15,$0E06,$0DF6,$0DE7,$0DD8
  497.     DC.W    $0DC9,$0DBA,$0DAC,$0D9D,$0D8F,$0D81,$0D72,$0D64
  498.     DC.W    $0D56,$0D48,$0D3B,$0D2D,$0D20,$0D12,$0D05,$0CF8
  499.     DC.W    $0CEB,$0CDE,$0CD1,$0CC4,$0CB7,$0CAB,$0C9E,$0C92
  500.     DC.W    $0C86,$0C79,$0C6D,$0C61,$0C55,$0C49,$0C3E,$0C32
  501.     DC.W    $0C26,$0C1B,$0C0F,$0C04,$0BF9,$0BEE,$0BE3,$0BD8
  502.     DC.W    $0BCD,$0BC2,$0BB7,$0BAC,$0BA2,$0B97,$0B8D,$0B82
  503.     DC.W    $0B78,$0B6E,$0B64,$0B5A,$0B50,$0B46,$0B3C,$0B32
  504.     DC.W    $0B28,$0B1E,$0B15,$0B0B,$0B02,$0AF8,$0AEF,$0AE6
  505.     DC.W    $0ADC,$0AD3,$0ACA,$0AC1,$0AB8,$0AAF,$0AA6,$0A9D
  506.     DC.W    $0A95,$0A8C,$0A83,$0A7B,$0A72,$0A69,$0A61,$0A59
  507.     DC.W    $0A50,$0A48,$0A40,$0A38,$0A2F,$0A27,$0A1F,$0A17
  508.     DC.W    $0A0F,$0A08,$0A00,$09F8,$09F0,$09E8,$09E1,$09D9
  509.     DC.W    $09D2,$09CA,$09C3,$09BB,$09B4,$09AD,$09A5,$099E
  510.     DC.W    $0997,$0990,$0989,$0981,$097A,$0973,$096C,$0966
  511.     DC.W    $095F,$0958,$0951,$094A,$0943,$093D,$0936,$0930
  512.     DC.W    $0929,$0922,$091C,$0915,$090F,$0909,$0902,$08FC
  513.     DC.W    $08F6,$08EF,$08E9,$08E3,$08DD,$08D7,$08D1,$08CB
  514.     DC.W    $08C5,$08BF,$08B9,$08B3,$08AD,$08A7,$08A1,$089B
  515.     DC.W    $0895,$0890,$088A,$0884,$087F,$0879,$0873,$086E
  516.     DC.W    $0868,$0863,$085D,$0858,$0852,$084D,$0848,$0842
  517.     DC.W    $083D,$0838,$0832,$082D,$0828,$0823,$081E,$0819
  518.     DC.W    $0813,$080E,$0809,$0804,$07FF,$07FA,$07F5,$07F0
  519.     DC.W    $07EB,$07E7,$07E2,$07DD,$07D8,$07D3,$07CE,$07CA
  520.     DC.W    $07C5,$07C0,$07BC,$07B7,$07B2,$07AE,$07A9,$07A4
  521.     DC.W    $07A0,$079B,$0797,$0792,$078E,$0789,$0785,$0781
  522.     DC.W    $077C,$0778,$0774,$076F,$076B,$0767,$0762,$075E
  523.     DC.W    $075A,$0756,$0751,$074D,$0749,$0745,$0741,$073D
  524.     DC.W    $0739,$0735,$0731,$072C,$0728,$0724,$0720,$071D
  525.     DC.W    $0719,$0715,$0711,$070D,$0709,$0705,$0701,$06FD
  526.     DC.W    $06FA,$06F6,$06F2,$06EE,$06EB,$06E7,$06E3,$06DF
  527.     DC.W    $06DC,$06D8,$06D4,$06D1,$06CD,$06CA,$06C6,$06C2
  528.     DC.W    $06BF,$06BB,$06B8,$06B4,$06B1,$06AD,$06AA,$06A6
  529.     DC.W    $06A3,$069F,$069C,$0699,$0695,$0692,$068E,$068B
  530.     DC.W    $0688,$0684,$0681,$067E,$067A,$0677,$0674,$0671
  531.     DC.W    $066D,$066A,$0667,$0664,$0661,$065D,$065A,$0657
  532.     DC.W    $0654,$0651,$064E,$064B,$0648,$0645,$0641,$063E
  533.     DC.W    $063B,$0638,$0635,$0632,$062F,$062C,$0629,$0626
  534.     DC.W    $0623,$0620,$061E,$061B,$0618,$0615,$0612,$060F
  535.     DC.W    $060C,$0609,$0607,$0604,$0601,$05FE,$05FB,$05F8
  536.     DC.W    $05F6,$05F3,$05F0,$05ED,$05EB,$05E8,$05E5,$05E2
  537.     DC.W    $05E0,$05DD,$05DA,$05D8,$05D5,$05D2,$05D0,$05CD
  538.     DC.W    $05CA,$05C8,$05C5,$05C3,$05C0,$05BE,$05BB,$05B8
  539.     DC.W    $05B6,$05B3,$05B1,$05AE,$05AC,$05A9,$05A7,$05A4
  540.     DC.W    $05A2,$059F,$059D,$059A,$0598,$0595,$0593,$0591
  541.     DC.W    $058E,$058C,$0589,$0587,$0585,$0582,$0580,$057D
  542.     DC.W    $057B,$0579,$0576,$0574,$0572,$056F,$056D,$056B
  543.     DC.W    $0569,$0566,$0564,$0562,$055F,$055D,$055B,$0559
  544.     DC.W    $0556,$0554,$0552,$0550,$054E,$054B,$0549,$0547
  545.     DC.W    $0545,$0543,$0541,$053E,$053C,$053A,$0538,$0536
  546.     DC.W    $0534,$0532,$0530,$052D,$052B,$0529,$0527,$0525
  547.     DC.W    $0523,$0521,$051F,$051D,$051B,$0519,$0517,$0515
  548.     DC.W    $0513,$0511,$050F,$050D,$050B,$0509,$0507,$0505
  549.     DC.W    $0503,$0501,$04FF,$04FD,$04FB,$04F9,$04F7,$04F5
  550.     DC.W    $04F3,$04F1,$04F0,$04EE,$04EC,$04EA,$04E8,$04E6
  551.     DC.W    $04E4,$04E2,$04E0,$04DF,$04DD,$04DB,$04D9,$04D7
  552.     DC.W    $04D5,$04D4,$04D2,$04D0,$04CE,$04CC,$04CB,$04C9
  553.     DC.W    $04C7,$04C5,$04C3,$04C2,$04C0,$04BE,$04BC,$04BB
  554.     DC.W    $04B9,$04B7,$04B5,$04B4,$04B2,$04B0,$04AE,$04AD
  555.     DC.W    $04AB,$04A9,$04A8,$04A6,$04A4,$04A3,$04A1,$049F
  556.     DC.W    $049E,$049C,$049A,$0499,$0497,$0495,$0494,$0492
  557.     DC.W    $0490,$048F,$048D,$048C,$048A,$0488,$0487,$0485
  558.     DC.W    $0484,$0482,$0480,$047F,$047D,$047C,$047A,$0478
  559.     DC.W    $0477,$0475,$0474,$0472,$0471,$046F,$046E,$046C
  560.     DC.W    $046B,$0469,$0468,$0466,$0465,$0463,$0461,$0460
  561.     DC.W    $045E,$045D,$045C,$045A,$0459,$0457,$0456,$0454
  562.     DC.W    $0453,$0451,$0450,$044E,$044D,$044B,$044A,$0449
  563.     DC.W    $0447,$0446,$0444,$0443,$0441,$0440,$043F,$043D
  564.     DC.W    $043C,$043A,$0439,$0438,$0436,$0435,$0433,$0432
  565.     DC.W    $0431,$042F,$042E,$042D,$042B,$042A,$0429,$0427
  566.     DC.W    $0426,$0424,$0423,$0422,$0420,$041F,$041E,$041C
  567.     DC.W    $041B,$041A,$0419,$0417,$0416,$0415,$0413,$0412
  568.     DC.W    $0411,$040F,$040E,$040D,$040C,$040A,$0409,$0408
  569.     DC.W    $0406,$0405,$0404,$0403,$0401,$0400,$03FF,$03FE
  570.     DC.W    $03FC,$03FB,$03FA,$03F9,$03F7,$03F6,$03F5,$03F4
  571.     DC.W    $03F3,$03F1,$03F0,$03EF,$03EE,$03ED,$03EB,$03EA
  572.     DC.W    $03E9,$03E8,$03E7,$03E5,$03E4,$03E3,$03E2,$03E1
  573.     DC.W    $03DF,$03DE,$03DD,$03DC,$03DB,$03DA,$03D8,$03D7
  574.     DC.W    $03D6,$03D5,$03D4,$03D3,$03D2,$03D0,$03CF,$03CE
  575.     DC.W    $03CD,$03CC,$03CB,$03CA,$03C9,$03C7,$03C6,$03C5
  576.     DC.W    $03C4,$03C3,$03C2,$03C1,$03C0,$03BF,$03BD,$03BC
  577.     DC.W    $03BB,$03BA,$03B9,$03B8,$03B7,$03B6,$03B5,$03B4
  578.     DC.W    $03B3,$03B2,$03B1,$03AF,$03AE,$03AD,$03AC,$03AB
  579.     DC.W    $03AA,$03A9,$03A8,$03A7,$03A6,$03A5,$03A4,$03A3
  580.     DC.W    $03A2,$03A1,$03A0,$039F,$039E,$039D,$039C,$039B
  581.     DC.W    $039A,$0399,$0398,$0397,$0396,$0395,$0394,$0393
  582.     DC.W    $0392,$0391,$0390,$038F,$038E,$038D,$038C,$038B
  583.     DC.W    $038A,$0389,$0388,$0387,$0386,$0385,$0384,$0383
  584.     DC.W    $0382,$0381,$0380,$037F,$037E,$037D,$037C,$037B
  585.     DC.W    $037A,$0379,$0378,$0378,$0377,$0376,$0375,$0374
  586.     DC.W    $0373,$0372,$0371,$0370,$036F,$036E,$036D,$036C
  587.     DC.W    $036B,$036B,$036A,$0369,$0368,$0367,$0366,$0365
  588.     DC.W    $0364,$0363,$0362,$0362,$0361,$0360,$035F,$035E
  589.     DC.W    $035D,$035C,$035B,$035A,$035A,$0359,$0358,$0357
  590.     DC.W    $0356,$0355,$0354,$0353,$0353,$0352,$0351,$0350
  591.     DC.W    $034F,$034E,$034D,$034D,$034C,$034B,$034A,$0349
  592.     DC.W    $0348,$0347,$0347,$0346,$0345,$0344,$0343,$0342
  593.     DC.W    $0342,$0341,$0340,$033F,$033E,$033E,$033D,$033C
  594.     DC.W    $033B,$033A,$0339,$0339,$0338,$0337,$0336,$0335
  595.     DC.W    $0335,$0334,$0333,$0332,$0331,$0331,$0330,$032F
  596.     DC.W    $032E,$032D,$032D,$032C,$032B,$032A,$0329,$0329
  597.     DC.W    $0328,$0327,$0326,$0326,$0325,$0324,$0323,$0323
  598.     DC.W    $0322,$0321,$0320,$031F,$031F,$031E,$031D,$031C
  599.     DC.W    $031C,$031B,$031A,$0319,$0319,$0318,$0317,$0316
  600.     DC.W    $0316,$0315,$0314,$0313,$0313,$0312,$0311,$0310
  601.     DC.W    $0310,$030F,$030E,$030E,$030D,$030C,$030B,$030B
  602.     DC.W    $030A,$0309,$0308,$0308,$0307,$0306,$0306,$0305
  603.     DC.W    $0304,$0303,$0303,$0302,$0301,$0301,$0300,$02FF
  604.     DC.W    $02FF,$02FE,$02FD,$02FC,$02FC,$02FB,$02FA,$02FA
  605.     DC.W    $02F9,$02F8,$02F8,$02F7,$02F6,$02F6,$02F5,$02F4
  606.     DC.W    $02F3,$02F3,$02F2,$02F1,$02F1,$02F0,$02EF,$02EF
  607.     DC.W    $02EE,$02ED,$02ED,$02EC,$02EB,$02EB,$02EA,$02E9
  608.     DC.W    $02E9,$02E8,$02E7,$02E7,$02E6,$02E5,$02E5,$02E4
  609.     DC.W    $02E3,$02E3,$02E2,$02E2,$02E1,$02E0,$02E0,$02DF
  610.     DC.W    $02DE,$02DE,$02DD,$02DC,$02DC,$02DB,$02DA,$02DA
  611.     DC.W    $02D9,$02D9,$02D8,$02D7,$02D7,$02D6,$02D5,$02D5
  612.     DC.W    $02D4,$02D3,$02D3,$02D2,$02D2,$02D1,$02D0,$02D0
  613.     DC.W    $02CF,$02CF,$02CE,$02CD,$02CD,$02CC,$02CB,$02CB
  614.     DC.W    $02CA,$02CA,$02C9,$02C8,$02C8,$02C7,$02C7,$02C6
  615.     DC.W    $02C5,$02C5,$02C4,$02C4,$02C3,$02C2,$02C2,$02C1
  616.     DC.W    $02C1,$02C0,$02BF,$02BF,$02BE,$02BE,$02BD,$02BD
  617.     DC.W    $02BC,$02BB,$02BB,$02BA,$02BA,$02B9,$02B8,$02B8
  618.     DC.W    $02B7,$02B7,$02B6,$02B6,$02B5,$02B4,$02B4,$02B3
  619.     DC.W    $02B3,$02B2,$02B2,$02B1,$02B0,$02B0,$02AF,$02AF
  620.     DC.W    $02AE,$02AE,$02AD,$02AC,$02AC,$02AB,$02AB,$02AA
  621.     DC.W    $02AA,$02A9,$02A9,$02A8,$02A7,$02A7,$02A6,$02A6
  622.     DC.W    $02A5,$02A5,$02A4,$02A4,$02A3,$02A3,$02A2,$02A1
  623.     DC.W    $02A1,$02A0,$02A0,$029F,$029F,$029E,$029E,$029D
  624.     DC.W    $029D,$029C,$029C,$029B,$029B,$029A,$0299,$0299
  625.     DC.W    $0298,$0298,$0297,$0297,$0296,$0296,$0295,$0295
  626.     DC.W    $0294,$0294,$0293,$0293,$0292,$0292,$0291,$0291
  627.     DC.W    $0290,$0290,$028F,$028F,$028E,$028E,$028D,$028C
  628.     DC.W    $028C,$028B,$028B,$028A,$028A,$0289,$0289,$0288
  629.     DC.W    $0288,$0287,$0287,$0286,$0286,$0285,$0285,$0284
  630.     DC.W    $0284,$0283,$0283,$0282,$0282,$0281,$0281,$0281
  631.     DC.W    $0280,$0280,$027F,$027F,$027E,$027E,$027D,$027D
  632.     DC.W    $027C,$027C,$027B,$027B,$027A,$027A,$0279,$0279
  633.     DC.W    $0278,$0278,$0277,$0277,$0276,$0276,$0275,$0275
  634.     DC.W    $0274,$0274,$0274,$0273,$0273,$0272,$0272,$0271
  635.     DC.W    $0271,$0270,$0270,$026F,$026F,$026E,$026E,$026D
  636.     DC.W    $026D,$026D,$026C,$026C,$026B,$026B,$026A,$026A
  637.     DC.W    $0269,$0269,$0268,$0268,$0268,$0267,$0267,$0266
  638.     DC.W    $0266,$0265,$0265,$0264,$0264,$0264,$0263,$0263
  639.     DC.W    $0262,$0262,$0261,$0261,$0260,$0260,$0260,$025F
  640.     DC.W    $025F,$025E,$025E,$025D,$025D,$025C,$025C,$025C
  641.     DC.W    $025B,$025B,$025A,$025A,$0259,$0259,$0259,$0258
  642.     DC.W    $0258,$0257,$0257,$0256,$0256,$0256,$0255,$0255
  643.     DC.W    $0254,$0254,$0253,$0253,$0253,$0252,$0252,$0251
  644.     DC.W    $0251,$0250,$0250,$0250,$024F,$024F,$024E,$024E
  645.     DC.W    $024E,$024D,$024D,$024C,$024C,$024B,$024B,$024B
  646.     DC.W    $024A,$024A,$0249,$0249,$0249,$0248,$0248,$0247
  647.     DC.W    $0247,$0247,$0246,$0246,$0245,$0245,$0245,$0244
  648.     DC.W    $0244,$0243,$0243,$0243,$0242,$0242,$0241,$0241
  649.     DC.W    $0241,$0240,$0240,$023F,$023F,$023F,$023E,$023E
  650.     DC.W    $023D,$023D,$023D,$023C,$023C,$023B,$023B,$023B
  651.     DC.W    $023A,$023A,$023A,$0239,$0239,$0238,$0238,$0238
  652.     DC.W    $0237,$0237,$0236,$0236,$0236,$0235,$0235,$0235
  653.     DC.W    $0234,$0234,$0233,$0233,$0233,$0232,$0232,$0231
  654.     DC.W    $0231,$0231,$0230,$0230,$0230,$022F,$022F,$022E
  655.     DC.W    $022E,$022E,$022D,$022D,$022D,$022C,$022C,$022C
  656.     DC.W    $022B,$022B,$022A,$022A,$022A,$0229,$0229,$0229
  657.     DC.W    $0228,$0228,$0228,$0227,$0227,$0226,$0226,$0226
  658.     DC.W    $0225,$0225,$0225,$0224,$0224,$0224,$0223,$0223
  659.     DC.W    $0222,$0222,$0222,$0221,$0221,$0221,$0220,$0220
  660.     DC.W    $0220,$021F,$021F,$021F,$021E,$021E,$021E,$021D
  661.     DC.W    $021D,$021C,$021C,$021C,$021B,$021B,$021B,$021A
  662.     DC.W    $021A,$021A,$0219,$0219,$0219,$0218,$0218,$0218
  663.     DC.W    $0217,$0217,$0217,$0216,$0216,$0216,$0215,$0215
  664.     DC.W    $0215,$0214,$0214,$0214,$0213,$0213,$0213,$0212
  665.     DC.W    $0212,$0212,$0211,$0211,$0211,$0210,$0210,$0210
  666.     DC.W    $020F,$020F,$020F,$020E,$020E,$020E,$020D,$020D
  667.     DC.W    $020D,$020C,$020C,$020C,$020B,$020B,$020B,$020A
  668.     DC.W    $020A,$020A,$0209,$0209,$0209,$0208,$0208,$0208
  669.     DC.W    $0207,$0207,$0207,$0206,$0206,$0206,$0205,$0205
  670.     DC.W    $0205,$0204,$0204,$0204,$0204,$0203,$0203,$0203
  671.     DC.W    $0202,$0202,$0202,$0201,$0201,$0201,$0200,$0200
  672.     DC.W    $0200,$01FF,$01FF,$01FF,$01FE,$01FE,$01FE,$01FE
  673.     DC.W    $01FD,$01FD,$01FD,$01FC,$01FC,$01FC,$01FB,$01FB
  674.     DC.W    $01FB,$01FA,$01FA,$01FA,$01FA,$01F9,$01F9,$01F9
  675.     DC.W    $01F8,$01F8,$01F8,$01F7,$01F7,$01F7,$01F7,$01F6
  676.     DC.W    $01F6,$01F6,$01F5,$01F5,$01F5,$01F4,$01F4,$01F4
  677.     DC.W    $01F4,$01F3,$01F3,$01F3,$01F2,$01F2,$01F2,$01F1
  678.     DC.W    $01F1,$01F1,$01F1,$01F0,$01F0,$01F0,$01EF,$01EF
  679.     DC.W    $01EF,$01EF,$01EE,$01EE,$01EE,$01ED,$01ED,$01ED
  680.     DC.W    $01EC,$01EC,$01EC,$01EC,$01EB,$01EB,$01EB,$01EA
  681.     DC.W    $01EA,$01EA,$01EA,$01E9,$01E9,$01E9,$01E8,$01E8
  682.     DC.W    $01E8,$01E8,$01E7,$01E7,$01E7,$01E6,$01E6,$01E6
  683.     DC.W    $01E6,$01E5,$01E5,$01E5,$01E4,$01E4,$01E4,$01E4
  684.     DC.W    $01E3,$01E3,$01E3,$01E3,$01E2,$01E2,$01E2,$01E1
  685.     DC.W    $01E1,$01E1,$01E1,$01E0,$01E0,$01E0,$01DF,$01DF
  686.     DC.W    $01DF,$01DF,$01DE,$01DE,$01DE,$01DE,$01DD,$01DD
  687.     DC.W    $01DD,$01DC,$01DC,$01DC,$01DC,$01DB,$01DB,$01DB
  688.     DC.W    $01DB,$01DA,$01DA,$01DA,$01DA,$01D9,$01D9,$01D9
  689.     DC.W    $01D8,$01D8,$01D8,$01D8,$01D7,$01D7,$01D7,$01D7
  690.     DC.W    $01D6,$01D6,$01D6,$01D6,$01D5,$01D5,$01D5,$01D4
  691.     DC.W    $01D4,$01D4,$01D4,$01D3,$01D3,$01D3,$01D3,$01D2
  692.     DC.W    $01D2,$01D2,$01D2,$01D1,$01D1,$01D1,$01D1,$01D0
  693.     DC.W    $01D0,$01D0,$01D0,$01CF,$01CF,$01CF,$01CF,$01CE
  694.     DC.W    $01CE,$01CE,$01CE,$01CD,$01CD,$01CD,$01CD,$01CC
  695.     DC.W    $01CC,$01CC,$01CB,$01CB,$01CB,$01CB,$01CA,$01CA
  696.     DC.W    $01CA,$01CA,$01C9,$01C9,$01C9,$01C9,$01C8,$01C8
  697.     DC.W    $01C8,$01C8,$01C7,$01C7,$01C7,$01C7,$01C6,$01C6
  698.     DC.W    $01C6,$01C6,$01C6,$01C5,$01C5,$01C5,$01C5,$01C4
  699.     DC.W    $01C4,$01C4,$01C4,$01C3,$01C3,$01C3,$01C3,$01C2
  700.     DC.W    $01C2,$01C2,$01C2,$01C1,$01C1,$01C1,$01C1,$01C0
  701.     DC.W    $01C0,$01C0,$01C0,$01BF,$01BF,$01BF,$01BF,$01BE
  702.     DC.W    $01BE,$01BE,$01BE,$01BE,$01BD,$01BD,$01BD,$01BD
  703.     DC.W    $01BC,$01BC,$01BC,$01BC,$01BB,$01BB,$01BB,$01BB
  704.     DC.W    $01BA,$01BA,$01BA,$01BA,$01BA,$01B9,$01B9,$01B9
  705.     DC.W    $01B9,$01B8,$01B8,$01B8,$01B8,$01B7,$01B7,$01B7
  706.     DC.W    $01B7,$01B7,$01B6,$01B6,$01B6,$01B6,$01B5,$01B5
  707.     DC.W    $01B5,$01B5,$01B4,$01B4,$01B4,$01B4,$01B4,$01B3
  708.     DC.W    $01B3,$01B3,$01B3,$01B2,$01B2,$01B2,$01B2,$01B2
  709.     DC.W    $01B1,$01B1,$01B1,$01B1,$01B0,$01B0,$01B0,$01B0
  710.     DC.W    $01B0,$01AF,$01AF,$01AF,$01AF,$01AE,$01AE,$01AE
  711.     DC.W    $01AE,$01AE,$01AD,$01AD,$01AD,$01AD,$01AC,$01AC
  712.     DC.W    $01AC,$01AC,$01AC,$01AB,$01AB,$01AB,$01AB,$01AA
  713.     DC.W    $01AA,$01AA,$01AA,$01AA,$01A9,$01A9,$01A9,$01A9
  714.     DC.W    $01A9,$01A8,$01A8,$01A8,$01A8,$01A7,$01A7,$01A7
  715.     DC.W    $01A7,$01A7,$01A6,$01A6,$01A6,$01A6,$01A6,$01A5
  716.     DC.W    $01A5,$01A5,$01A5,$01A4,$01A4,$01A4,$01A4,$01A4
  717.     DC.W    $01A3,$01A3,$01A3,$01A3,$01A3,$01A2,$01A2,$01A2
  718.     DC.W    $01A2,$01A2,$01A1,$01A1,$01A1,$01A1,$01A1,$01A0
  719.     DC.W    $01A0,$01A0,$01A0,$019F,$019F,$019F,$019F,$019F
  720.     DC.W    $019E,$019E,$019E,$019E,$019E,$019D,$019D,$019D
  721.     DC.W    $019D,$019D,$019C,$019C,$019C,$019C,$019C,$019B
  722.     DC.W    $019B,$019B,$019B,$019B,$019A,$019A,$019A,$019A
  723.     DC.W    $019A,$0199,$0199,$0199,$0199,$0199,$0198,$0198
  724.     DC.W    $0198,$0198,$0198,$0197,$0197,$0197,$0197,$0197
  725.     DC.W    $0197,$0197,$0197,$0197,$0197,$0197,$0197,$0197
  726.     DC.W    $0197,$0197,$0197,$0197,$0196,$0196,$0196,$0196
  727.     DC.W    $0196,$0196,$0196,$0196,$0196,$0196,$0196,$0196
  728.     DC.W    $0196,$0196,$0196,$0196,$0196,$0196,$0196,$0196
  729.     DC.W    $0196,$0196,$0196,$0196,$0196,$0196,$0196,$0196
  730.  
  731. Sinus:    dc.w    16384,16382,16374,16362,16344,16322,16294,16262
  732.     dc.w    16225,16182,16135,16083,16026,15964,15897,15826
  733.     dc.w    15749,15668,15582,15491,15396,15296,15191,15082
  734.     dc.w    14967,14849,14726,14598,14466,14330,14189,14044
  735.     dc.w    13894,13741,13583,13421,13255,13085,12911,12733
  736.     dc.w    12551,12365,12176,11982,11786,11585,11381,11174
  737.     dc.w    10963,10749,10531,10311,10087,9860,9630,9397
  738.     dc.w    9162,8923,8682,8438,8192,7943,7692,7438
  739.     dc.w    7182,6924,6664,6401,6137,5871,5603,5334
  740.     dc.w    5063,4790,4516,4240,3963,3685,3406,3126
  741.     dc.w    2845,2563,2280,1996,1712,1427,1142,857
  742.     dc.w    571,285,0,-285,-571,-857,-1142,-1428
  743.     dc.w    -1712,-1996,-2280,-2563,-2845,-3126,-3406,-3685
  744.     dc.w    -3963,-4240,-4516,-4790,-5063,-5334,-5603,-5871
  745.     dc.w    -6137,-6401,-6664,-6924,-7182,-7438,-7692,-7943
  746.     dc.w    -8192,-8438,-8682,-8923,-9162,-9397,-9630,-9860
  747.     dc.w    -10087,-10311,-10531,-10749,-10963,-11174,-11381,-11585
  748.     dc.w    -11786,-11982,-12176,-12365,-12551,-12733,-12911,-13085
  749.     dc.w    -13255,-13421,-13583,-13741,-13894,-14044,-14189,-14330
  750.     dc.w    -14466,-14598,-14726,-14849,-14967,-15082,-15191,-15296
  751.     dc.w    -15396,-15491,-15582,-15668,-15749,-15826,-15897,-15964
  752.     dc.w    -16026,-16083,-16135,-16182,-16225,-16262,-16294,-16322
  753.     dc.w    -16344,-16362,-16374,-16382,-16384,-16382,-16374,-16362
  754.     dc.w    -16344,-16322,-16294,-16262,-16225,-16182,-16135,-16083
  755.     dc.w    -16026,-15964,-15897,-15826,-15749,-15668,-15582,-15491
  756.     dc.w    -15396,-15296,-15191,-15082,-14968,-14849,-14726,-14598
  757.     dc.w    -14466,-14330,-14189,-14044,-13894,-13741,-13583,-13421
  758.     dc.w    -13255,-13085,-12911,-12733,-12551,-12365,-12176,-11982
  759.     dc.w    -11786,-11585,-11381,-11174,-10963,-10749,-10531,-10311
  760.     dc.w    -10087,-9860,-9630,-9397,-9162,-8923,-8682,-8438
  761.     dc.w    -8192,-7943,-7692,-7438,-7182,-6924,-6664,-6402
  762.     dc.w    -6137,-5871,-5604,-5334,-5063,-4790,-4516,-4240
  763.     dc.w    -3963,-3685,-3406,-3126,-2845,-2563,-2280,-1996
  764.     dc.w    -1712,-1428,-1143,-857,-572,-286,0,285
  765.     dc.w    571,857,1142,1427,1712,1996,2280,2562
  766.     dc.w    2844,3126,3406,3685,3963,4240,4515,4790
  767.     dc.w    5062,5334,5603,5871,6137,6401,6663,6924
  768.     dc.w    7182,7438,7691,7943,8192,8438,8682,8923
  769.     dc.w    9161,9397,9630,9860,10087,10310,10531,10748
  770.     dc.w    10963,11173,11381,11585,11785,11982,12175,12365
  771.     dc.w    12551,12732,12910,13085,13255,13421,13583,13740
  772.     dc.w    13894,14044,14189,14330,14466,14598,14726,14849
  773.     dc.w    14967,15081,15191,15296,15396,15491,15582,15668
  774.     dc.w    15749,15826,15897,15964,16026,16083,16135,16182
  775.     dc.w    16224,16262,16294,16322,16344,16361,16374,16382
  776.  
  777.     dc.w    16384,16382,16374,16362,16344,16322,16294,16262
  778.     dc.w    16225,16182,16135,16083,16026,15964,15897,15826
  779.     dc.w    15749,15668,15582,15491,15396,15296,15191,15082
  780.     dc.w    14967,14849,14726,14598,14466,14330,14189,14044
  781.     dc.w    13894,13741,13583,13421,13255,13085,12911,12733
  782.     dc.w    12551,12365,12176,11982,11786,11585,11381,11174
  783.     dc.w    10963,10749,10531,10311,10087,9860,9630,9397
  784.     dc.w    9162,8923,8682,8438,8192,7943,7692,7438
  785.     dc.w    7182,6924,6664,6401,6137,5871,5603,5334
  786.     dc.w    5063,4790,4516,4240,3963,3685,3406,3126
  787.     dc.w    2845,2563,2280,1996,1712,1427,1142,857
  788.     dc.w    571,285,0,-285,-571,-857,-1142,-1428
  789.     dc.w    -1712,-1996,-2280,-2563,-2845,-3126,-3406,-3685
  790.     dc.w    -3963,-4240,-4516,-4790,-5063,-5334,-5603,-5871
  791.     dc.w    -6137,-6401,-6664,-6924,-7182,-7438,-7692,-7943
  792.     dc.w    -8192,-8438,-8682,-8923,-9162,-9397,-9630,-9860
  793.     dc.w    -10087,-10311,-10531,-10749,-10963,-11174,-11381,-11585
  794.     dc.w    -11786,-11982,-12176,-12365,-12551,-12733,-12911,-13085
  795.     dc.w    -13255,-13421,-13583,-13741,-13894,-14044,-14189,-14330
  796.     dc.w    -14466,-14598,-14726,-14849,-14967,-15082,-15191,-15296
  797.     dc.w    -15396,-15491,-15582,-15668,-15749,-15826,-15897,-15964
  798.     dc.w    -16026,-16083,-16135,-16182,-16225,-16262,-16294,-16322
  799.     dc.w    -16344,-16362,-16374,-16382,-16384,-16382,-16374,-16362
  800.     dc.w    -16344,-16322,-16294,-16262,-16225,-16182,-16135,-16083
  801.     dc.w    -16026,-15964,-15897,-15826,-15749,-15668,-15582,-15491
  802.     dc.w    -15396,-15296,-15191,-15082,-14968,-14849,-14726,-14598
  803.     dc.w    -14466,-14330,-14189,-14044,-13894,-13741,-13583,-13421
  804.     dc.w    -13255,-13085,-12911,-12733,-12551,-12365,-12176,-11982
  805.     dc.w    -11786,-11585,-11381,-11174,-10963,-10749,-10531,-10311
  806.     dc.w    -10087,-9860,-9630,-9397,-9162,-8923,-8682,-8438
  807.     dc.w    -8192,-7943,-7692,-7438,-7182,-6924,-6664,-6402
  808.     dc.w    -6137,-5871,-5604,-5334,-5063,-4790,-4516,-4240
  809.     dc.w    -3963,-3685,-3406,-3126,-2845,-2563,-2280,-1996
  810.     dc.w    -1712,-1428,-1143,-857,-572,-286,0,285
  811.     dc.w    571,857,1142,1427,1712,1996,2280,2562
  812.     dc.w    2844,3126,3406,3685,3963,4240,4515,4790
  813.     dc.w    5062,5334,5603,5871,6137,6401,6663,6924
  814.     dc.w    7182,7438,7691,7943,8192,8438,8682,8923
  815.     dc.w    9161,9397,9630,9860,10087,10310,10531,10748
  816.     dc.w    10963,11173,11381,11585,11785,11982,12175,12365
  817.     dc.w    12551,12732,12910,13085,13255,13421,13583,13740
  818.     dc.w    13894,14044,14189,14330,14466,14598,14726,14849
  819.     dc.w    14967,15081,15191,15296,15396,15491,15582,15668
  820.     dc.w    15749,15826,15897,15964,16026,16083,16135,16182
  821.     dc.w    16224,16262,16294,16322,16344,16361,16374,16382
  822.  
  823. Font:        =    $40000
  824.  
  825.