home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Source / pheno.lha / pha / vectorstarsfasm.S < prev    next >
Encoding:
Text File  |  1980-06-18  |  27.0 KB  |  824 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. BMapSize=280*44
  422.  
  423. Posses:    blk.w    AntStars*3,0
  424. Positioner:blk.w    AntStars*3,0
  425. CalcUp:    blk.w    3*2,0
  426.  
  427. Vinklar:dc.w    0
  428.                 dc.w    0
  429.                 dc.w    0
  430.  
  431. VAdds:    dc.w    0
  432.                 dc.w    0
  433.                 dc.w    0
  434.  
  435.     ;--------------------------------------------------
  436.  
  437. ;------------------------------------------------------------------------
  438.  
  439. CopperList:    dc.l    $008e2066,$009038c6,$00920030,$009400d8
  440.         dc.l    $01020055,$01040000,$01080000,$010a0000
  441.  
  442.         dc.l    $01800000,$01820dde,$0184099a,$01860556
  443.         dc.l    $01880fff,$018a0fff,$018c0fff,$018e0fff
  444. BMap:        dc.l    $00e00000,$00e20000,$00e40000,$00e60000
  445. BMap2:        dc.l    $00e80000,$00ea0000
  446.         dc.l    $01002000
  447.  
  448.         dc.l    $9001fffe,$01003000
  449.         dc.l    $01880444,$018a0444,$018c0444,$018e0444
  450.         dc.l    $9101fffe,$01880555,$018a0555,$018c0555,$018e0555
  451.         dc.l    $9201fffe,$01880666,$018a0666,$018c0666,$018e0666
  452.         dc.l    $9301fffe,$01880777,$018a0777,$018c0777,$018e0777
  453.         dc.l    $9401fffe,$01880888,$018a0888,$018c0888,$018e0888
  454.         dc.l    $9501fffe,$01880999,$018a0999,$018c0999,$018e0999
  455.         dc.l    $9601fffe,$01880aaa,$018a0aaa,$018c0aaa,$018e0aaa
  456.         dc.l    $9701fffe,$01880bbb,$018a0bbb,$018c0bbb,$018e0bbb
  457.         dc.l    $9801fffe,$01880006,$018a0006,$018c0006,$018e0006
  458.         dc.l    $9901fffe,$01880007,$018a0007,$018c0007,$018e0007
  459.         dc.l    $9a01fffe,$01880008,$018a0008,$018c0008,$018e0008
  460.         dc.l    $9b01fffe,$01880009,$018a0009,$018c0009,$018e0009
  461.         dc.l    $9c01fffe,$0188000a,$018a000a,$018c000a,$018e000a
  462.         dc.l    $9d01fffe,$0188000b,$018a000b,$018c000b,$018e000b
  463.         dc.l    $9e01fffe,$0188000c,$018a000c,$018c000c,$018e000c
  464.         dc.l    $9f01fffe,$0188000d,$018a000d,$018c000d,$018e000d
  465.         dc.l    $a001fffe,$01002000
  466.  
  467.         dc.l    -2
  468.  
  469. ;------------------------------------------------------------------------
  470.  
  471. DJUP:
  472.     dc.w    $6a00,$6000,$5a00,$5200,$4d00,$4800,$4400,$4000
  473.     DC.W    $3D12,$3BF4,$3AE0,$39D6,$38D6,$37DE,$36EE,$3606
  474.     DC.W    $3526,$344C,$337A,$32AE,$31E9,$3129,$306F,$2FBA
  475.     DC.W    $2F0B,$2E60,$2DBB,$2D1A,$2C7D,$2BE4,$2B50,$2ABF
  476.     DC.W    $2A32,$29A9,$2923,$28A0,$2821,$27A5,$272B,$26B5
  477.     DC.W    $2641,$25D0,$2562,$24F6,$248C,$2425,$23C0,$235D
  478.     DC.W    $22FD,$229E,$2241,$21E7,$218E,$2137,$20E1,$208E
  479.     DC.W    $203C,$1FEB,$1F9C,$1F4F,$1F03,$1EB9,$1E70,$1E28
  480.     DC.W    $1DE2,$1D9C,$1D59,$1D16,$1CD4,$1C94,$1C55,$1C17
  481.     DC.W    $1BD9,$1B9D,$1B62,$1B28,$1AEF,$1AB7,$1A7F,$1A49
  482.     DC.W    $1A13,$19DF,$19AB,$1978,$1946,$1914,$18E3,$18B3
  483.     DC.W    $1884,$1855,$1827,$17FA,$17CE,$17A2,$1776,$174C
  484.     DC.W    $1721,$16F8,$16CF,$16A7,$167F,$1658,$1631,$160B
  485.     DC.W    $15E5,$15C0,$159B,$1577,$1553,$1530,$150D,$14EA
  486.     DC.W    $14C8,$14A7,$1486,$1465,$1445,$1425,$1405,$13E6
  487.     DC.W    $13C7,$13A9,$138B,$136D,$1350,$1333,$1316,$12FA
  488.     DC.W    $12DE,$12C3,$12A7,$128C,$1271,$1257,$123D,$1223
  489.     DC.W    $1209,$11F0,$11D7,$11BE,$11A6,$118E,$1176,$115E
  490.     DC.W    $1147,$112F,$1118,$1102,$10EB,$10D5,$10BF,$10A9
  491.     DC.W    $1094,$107E,$1069,$1054,$103F,$102B,$1017,$1002
  492.     DC.W    $0FEF,$0FDB,$0FC7,$0FB4,$0FA1,$0F8E,$0F7B,$0F68
  493.     DC.W    $0F56,$0F43,$0F31,$0F1F,$0F0E,$0EFC,$0EEB,$0ED9
  494.     DC.W    $0EC8,$0EB7,$0EA6,$0E96,$0E85,$0E75,$0E64,$0E54
  495.     DC.W    $0E44,$0E34,$0E25,$0E15,$0E06,$0DF6,$0DE7,$0DD8
  496.     DC.W    $0DC9,$0DBA,$0DAC,$0D9D,$0D8F,$0D81,$0D72,$0D64
  497.     DC.W    $0D56,$0D48,$0D3B,$0D2D,$0D20,$0D12,$0D05,$0CF8
  498.     DC.W    $0CEB,$0CDE,$0CD1,$0CC4,$0CB7,$0CAB,$0C9E,$0C92
  499.     DC.W    $0C86,$0C79,$0C6D,$0C61,$0C55,$0C49,$0C3E,$0C32
  500.     DC.W    $0C26,$0C1B,$0C0F,$0C04,$0BF9,$0BEE,$0BE3,$0BD8
  501.     DC.W    $0BCD,$0BC2,$0BB7,$0BAC,$0BA2,$0B97,$0B8D,$0B82
  502.     DC.W    $0B78,$0B6E,$0B64,$0B5A,$0B50,$0B46,$0B3C,$0B32
  503.     DC.W    $0B28,$0B1E,$0B15,$0B0B,$0B02,$0AF8,$0AEF,$0AE6
  504.     DC.W    $0ADC,$0AD3,$0ACA,$0AC1,$0AB8,$0AAF,$0AA6,$0A9D
  505.     DC.W    $0A95,$0A8C,$0A83,$0A7B,$0A72,$0A69,$0A61,$0A59
  506.     DC.W    $0A50,$0A48,$0A40,$0A38,$0A2F,$0A27,$0A1F,$0A17
  507.     DC.W    $0A0F,$0A08,$0A00,$09F8,$09F0,$09E8,$09E1,$09D9
  508.     DC.W    $09D2,$09CA,$09C3,$09BB,$09B4,$09AD,$09A5,$099E
  509.     DC.W    $0997,$0990,$0989,$0981,$097A,$0973,$096C,$0966
  510.     DC.W    $095F,$0958,$0951,$094A,$0943,$093D,$0936,$0930
  511.     DC.W    $0929,$0922,$091C,$0915,$090F,$0909,$0902,$08FC
  512.     DC.W    $08F6,$08EF,$08E9,$08E3,$08DD,$08D7,$08D1,$08CB
  513.     DC.W    $08C5,$08BF,$08B9,$08B3,$08AD,$08A7,$08A1,$089B
  514.     DC.W    $0895,$0890,$088A,$0884,$087F,$0879,$0873,$086E
  515.     DC.W    $0868,$0863,$085D,$0858,$0852,$084D,$0848,$0842
  516.     DC.W    $083D,$0838,$0832,$082D,$0828,$0823,$081E,$0819
  517.     DC.W    $0813,$080E,$0809,$0804,$07FF,$07FA,$07F5,$07F0
  518.     DC.W    $07EB,$07E7,$07E2,$07DD,$07D8,$07D3,$07CE,$07CA
  519.     DC.W    $07C5,$07C0,$07BC,$07B7,$07B2,$07AE,$07A9,$07A4
  520.     DC.W    $07A0,$079B,$0797,$0792,$078E,$0789,$0785,$0781
  521.     DC.W    $077C,$0778,$0774,$076F,$076B,$0767,$0762,$075E
  522.     DC.W    $075A,$0756,$0751,$074D,$0749,$0745,$0741,$073D
  523.     DC.W    $0739,$0735,$0731,$072C,$0728,$0724,$0720,$071D
  524.     DC.W    $0719,$0715,$0711,$070D,$0709,$0705,$0701,$06FD
  525.     DC.W    $06FA,$06F6,$06F2,$06EE,$06EB,$06E7,$06E3,$06DF
  526.     DC.W    $06DC,$06D8,$06D4,$06D1,$06CD,$06CA,$06C6,$06C2
  527.     DC.W    $06BF,$06BB,$06B8,$06B4,$06B1,$06AD,$06AA,$06A6
  528.     DC.W    $06A3,$069F,$069C,$0699,$0695,$0692,$068E,$068B
  529.     DC.W    $0688,$0684,$0681,$067E,$067A,$0677,$0674,$0671
  530.     DC.W    $066D,$066A,$0667,$0664,$0661,$065D,$065A,$0657
  531.     DC.W    $0654,$0651,$064E,$064B,$0648,$0645,$0641,$063E
  532.     DC.W    $063B,$0638,$0635,$0632,$062F,$062C,$0629,$0626
  533.     DC.W    $0623,$0620,$061E,$061B,$0618,$0615,$0612,$060F
  534.     DC.W    $060C,$0609,$0607,$0604,$0601,$05FE,$05FB,$05F8
  535.     DC.W    $05F6,$05F3,$05F0,$05ED,$05EB,$05E8,$05E5,$05E2
  536.     DC.W    $05E0,$05DD,$05DA,$05D8,$05D5,$05D2,$05D0,$05CD
  537.     DC.W    $05CA,$05C8,$05C5,$05C3,$05C0,$05BE,$05BB,$05B8
  538.     DC.W    $05B6,$05B3,$05B1,$05AE,$05AC,$05A9,$05A7,$05A4
  539.     DC.W    $05A2,$059F,$059D,$059A,$0598,$0595,$0593,$0591
  540.     DC.W    $058E,$058C,$0589,$0587,$0585,$0582,$0580,$057D
  541.     DC.W    $057B,$0579,$0576,$0574,$0572,$056F,$056D,$056B
  542.     DC.W    $0569,$0566,$0564,$0562,$055F,$055D,$055B,$0559
  543.     DC.W    $0556,$0554,$0552,$0550,$054E,$054B,$0549,$0547
  544.     DC.W    $0545,$0543,$0541,$053E,$053C,$053A,$0538,$0536
  545.     DC.W    $0534,$0532,$0530,$052D,$052B,$0529,$0527,$0525
  546.     DC.W    $0523,$0521,$051F,$051D,$051B,$0519,$0517,$0515
  547.     DC.W    $0513,$0511,$050F,$050D,$050B,$0509,$0507,$0505
  548.     DC.W    $0503,$0501,$04FF,$04FD,$04FB,$04F9,$04F7,$04F5
  549.     DC.W    $04F3,$04F1,$04F0,$04EE,$04EC,$04EA,$04E8,$04E6
  550.     DC.W    $04E4,$04E2,$04E0,$04DF,$04DD,$04DB,$04D9,$04D7
  551.     DC.W    $04D5,$04D4,$04D2,$04D0,$04CE,$04CC,$04CB,$04C9
  552.     DC.W    $04C7,$04C5,$04C3,$04C2,$04C0,$04BE,$04BC,$04BB
  553.     DC.W    $04B9,$04B7,$04B5,$04B4,$04B2,$04B0,$04AE,$04AD
  554.     DC.W    $04AB,$04A9,$04A8,$04A6,$04A4,$04A3,$04A1,$049F
  555.     DC.W    $049E,$049C,$049A,$0499,$0497,$0495,$0494,$0492
  556.     DC.W    $0490,$048F,$048D,$048C,$048A,$0488,$0487,$0485
  557.     DC.W    $0484,$0482,$0480,$047F,$047D,$047C,$047A,$0478
  558.     DC.W    $0477,$0475,$0474,$0472,$0471,$046F,$046E,$046C
  559.     DC.W    $046B,$0469,$0468,$0466,$0465,$0463,$0461,$0460
  560.     DC.W    $045E,$045D,$045C,$045A,$0459,$0457,$0456,$0454
  561.     DC.W    $0453,$0451,$0450,$044E,$044D,$044B,$044A,$0449
  562.     DC.W    $0447,$0446,$0444,$0443,$0441,$0440,$043F,$043D
  563.     DC.W    $043C,$043A,$0439,$0438,$0436,$0435,$0433,$0432
  564.     DC.W    $0431,$042F,$042E,$042D,$042B,$042A,$0429,$0427
  565.     DC.W    $0426,$0424,$0423,$0422,$0420,$041F,$041E,$041C
  566.     DC.W    $041B,$041A,$0419,$0417,$0416,$0415,$0413,$0412
  567.     DC.W    $0411,$040F,$040E,$040D,$040C,$040A,$0409,$0408
  568.     DC.W    $0406,$0405,$0404,$0403,$0401,$0400,$03FF,$03FE
  569.     DC.W    $03FC,$03FB,$03FA,$03F9,$03F7,$03F6,$03F5,$03F4
  570.     DC.W    $03F3,$03F1,$03F0,$03EF,$03EE,$03ED,$03EB,$03EA
  571.     DC.W    $03E9,$03E8,$03E7,$03E5,$03E4,$03E3,$03E2,$03E1
  572.     DC.W    $03DF,$03DE,$03DD,$03DC,$03DB,$03DA,$03D8,$03D7
  573.     DC.W    $03D6,$03D5,$03D4,$03D3,$03D2,$03D0,$03CF,$03CE
  574.     DC.W    $03CD,$03CC,$03CB,$03CA,$03C9,$03C7,$03C6,$03C5
  575.     DC.W    $03C4,$03C3,$03C2,$03C1,$03C0,$03BF,$03BD,$03BC
  576.     DC.W    $03BB,$03BA,$03B9,$03B8,$03B7,$03B6,$03B5,$03B4
  577.     DC.W    $03B3,$03B2,$03B1,$03AF,$03AE,$03AD,$03AC,$03AB
  578.     DC.W    $03AA,$03A9,$03A8,$03A7,$03A6,$03A5,$03A4,$03A3
  579.     DC.W    $03A2,$03A1,$03A0,$039F,$039E,$039D,$039C,$039B
  580.     DC.W    $039A,$0399,$0398,$0397,$0396,$0395,$0394,$0393
  581.     DC.W    $0392,$0391,$0390,$038F,$038E,$038D,$038C,$038B
  582.     DC.W    $038A,$0389,$0388,$0387,$0386,$0385,$0384,$0383
  583.     DC.W    $0382,$0381,$0380,$037F,$037E,$037D,$037C,$037B
  584.     DC.W    $037A,$0379,$0378,$0378,$0377,$0376,$0375,$0374
  585.     DC.W    $0373,$0372,$0371,$0370,$036F,$036E,$036D,$036C
  586.     DC.W    $036B,$036B,$036A,$0369,$0368,$0367,$0366,$0365
  587.     DC.W    $0364,$0363,$0362,$0362,$0361,$0360,$035F,$035E
  588.     DC.W    $035D,$035C,$035B,$035A,$035A,$0359,$0358,$0357
  589.     DC.W    $0356,$0355,$0354,$0353,$0353,$0352,$0351,$0350
  590.     DC.W    $034F,$034E,$034D,$034D,$034C,$034B,$034A,$0349
  591.     DC.W    $0348,$0347,$0347,$0346,$0345,$0344,$0343,$0342
  592.     DC.W    $0342,$0341,$0340,$033F,$033E,$033E,$033D,$033C
  593.     DC.W    $033B,$033A,$0339,$0339,$0338,$0337,$0336,$0335
  594.     DC.W    $0335,$0334,$0333,$0332,$0331,$0331,$0330,$032F
  595.     DC.W    $032E,$032D,$032D,$032C,$032B,$032A,$0329,$0329
  596.     DC.W    $0328,$0327,$0326,$0326,$0325,$0324,$0323,$0323
  597.     DC.W    $0322,$0321,$0320,$031F,$031F,$031E,$031D,$031C
  598.     DC.W    $031C,$031B,$031A,$0319,$0319,$0318,$0317,$0316
  599.     DC.W    $0316,$0315,$0314,$0313,$0313,$0312,$0311,$0310
  600.     DC.W    $0310,$030F,$030E,$030E,$030D,$030C,$030B,$030B
  601.     DC.W    $030A,$0309,$0308,$0308,$0307,$0306,$0306,$0305
  602.     DC.W    $0304,$0303,$0303,$0302,$0301,$0301,$0300,$02FF
  603.     DC.W    $02FF,$02FE,$02FD,$02FC,$02FC,$02FB,$02FA,$02FA
  604.     DC.W    $02F9,$02F8,$02F8,$02F7,$02F6,$02F6,$02F5,$02F4
  605.     DC.W    $02F3,$02F3,$02F2,$02F1,$02F1,$02F0,$02EF,$02EF
  606.     DC.W    $02EE,$02ED,$02ED,$02EC,$02EB,$02EB,$02EA,$02E9
  607.     DC.W    $02E9,$02E8,$02E7,$02E7,$02E6,$02E5,$02E5,$02E4
  608.     DC.W    $02E3,$02E3,$02E2,$02E2,$02E1,$02E0,$02E0,$02DF
  609.     DC.W    $02DE,$02DE,$02DD,$02DC,$02DC,$02DB,$02DA,$02DA
  610.     DC.W    $02D9,$02D9,$02D8,$02D7,$02D7,$02D6,$02D5,$02D5
  611.     DC.W    $02D4,$02D3,$02D3,$02D2,$02D2,$02D1,$02D0,$02D0
  612.     DC.W    $02CF,$02CF,$02CE,$02CD,$02CD,$02CC,$02CB,$02CB
  613.     DC.W    $02CA,$02CA,$02C9,$02C8,$02C8,$02C7,$02C7,$02C6
  614.     DC.W    $02C5,$02C5,$02C4,$02C4,$02C3,$02C2,$02C2,$02C1
  615.     DC.W    $02C1,$02C0,$02BF,$02BF,$02BE,$02BE,$02BD,$02BD
  616.     DC.W    $02BC,$02BB,$02BB,$02BA,$02BA,$02B9,$02B8,$02B8
  617.     DC.W    $02B7,$02B7,$02B6,$02B6,$02B5,$02B4,$02B4,$02B3
  618.     DC.W    $02B3,$02B2,$02B2,$02B1,$02B0,$02B0,$02AF,$02AF
  619.     DC.W    $02AE,$02AE,$02AD,$02AC,$02AC,$02AB,$02AB,$02AA
  620.     DC.W    $02AA,$02A9,$02A9,$02A8,$02A7,$02A7,$02A6,$02A6
  621.     DC.W    $02A5,$02A5,$02A4,$02A4,$02A3,$02A3,$02A2,$02A1
  622.     DC.W    $02A1,$02A0,$02A0,$029F,$029F,$029E,$029E,$029D
  623.     DC.W    $029D,$029C,$029C,$029B,$029B,$029A,$0299,$0299
  624.     DC.W    $0298,$0298,$0297,$0297,$0296,$0296,$0295,$0295
  625.     DC.W    $0294,$0294,$0293,$0293,$0292,$0292,$0291,$0291
  626.     DC.W    $0290,$0290,$028F,$028F,$028E,$028E,$028D,$028C
  627.     DC.W    $028C,$028B,$028B,$028A,$028A,$0289,$0289,$0288
  628.     DC.W    $0288,$0287,$0287,$0286,$0286,$0285,$0285,$0284
  629.     DC.W    $0284,$0283,$0283,$0282,$0282,$0281,$0281,$0281
  630.     DC.W    $0280,$0280,$027F,$027F,$027E,$027E,$027D,$027D
  631.     DC.W    $027C,$027C,$027B,$027B,$027A,$027A,$0279,$0279
  632.     DC.W    $0278,$0278,$0277,$0277,$0276,$0276,$0275,$0275
  633.     DC.W    $0274,$0274,$0274,$0273,$0273,$0272,$0272,$0271
  634.     DC.W    $0271,$0270,$0270,$026F,$026F,$026E,$026E,$026D
  635.     DC.W    $026D,$026D,$026C,$026C,$026B,$026B,$026A,$026A
  636.     DC.W    $0269,$0269,$0268,$0268,$0268,$0267,$0267,$0266
  637.     DC.W    $0266,$0265,$0265,$0264,$0264,$0264,$0263,$0263
  638.     DC.W    $0262,$0262,$0261,$0261,$0260,$0260,$0260,$025F
  639.     DC.W    $025F,$025E,$025E,$025D,$025D,$025C,$025C,$025C
  640.     DC.W    $025B,$025B,$025A,$025A,$0259,$0259,$0259,$0258
  641.     DC.W    $0258,$0257,$0257,$0256,$0256,$0256,$0255,$0255
  642.     DC.W    $0254,$0254,$0253,$0253,$0253,$0252,$0252,$0251
  643.     DC.W    $0251,$0250,$0250,$0250,$024F,$024F,$024E,$024E
  644.     DC.W    $024E,$024D,$024D,$024C,$024C,$024B,$024B,$024B
  645.     DC.W    $024A,$024A,$0249,$0249,$0249,$0248,$0248,$0247
  646.     DC.W    $0247,$0247,$0246,$0246,$0245,$0245,$0245,$0244
  647.     DC.W    $0244,$0243,$0243,$0243,$0242,$0242,$0241,$0241
  648.     DC.W    $0241,$0240,$0240,$023F,$023F,$023F,$023E,$023E
  649.     DC.W    $023D,$023D,$023D,$023C,$023C,$023B,$023B,$023B
  650.     DC.W    $023A,$023A,$023A,$0239,$0239,$0238,$0238,$0238
  651.     DC.W    $0237,$0237,$0236,$0236,$0236,$0235,$0235,$0235
  652.     DC.W    $0234,$0234,$0233,$0233,$0233,$0232,$0232,$0231
  653.     DC.W    $0231,$0231,$0230,$0230,$0230,$022F,$022F,$022E
  654.     DC.W    $022E,$022E,$022D,$022D,$022D,$022C,$022C,$022C
  655.     DC.W    $022B,$022B,$022A,$022A,$022A,$0229,$0229,$0229
  656.     DC.W    $0228,$0228,$0228,$0227,$0227,$0226,$0226,$0226
  657.     DC.W    $0225,$0225,$0225,$0224,$0224,$0224,$0223,$0223
  658.     DC.W    $0222,$0222,$0222,$0221,$0221,$0221,$0220,$0220
  659.     DC.W    $0220,$021F,$021F,$021F,$021E,$021E,$021E,$021D
  660.     DC.W    $021D,$021C,$021C,$021C,$021B,$021B,$021B,$021A
  661.     DC.W    $021A,$021A,$0219,$0219,$0219,$0218,$0218,$0218
  662.     DC.W    $0217,$0217,$0217,$0216,$0216,$0216,$0215,$0215
  663.     DC.W    $0215,$0214,$0214,$0214,$0213,$0213,$0213,$0212
  664.     DC.W    $0212,$0212,$0211,$0211,$0211,$0210,$0210,$0210
  665.     DC.W    $020F,$020F,$020F,$020E,$020E,$020E,$020D,$020D
  666.     DC.W    $020D,$020C,$020C,$020C,$020B,$020B,$020B,$020A
  667.     DC.W    $020A,$020A,$0209,$0209,$0209,$0208,$0208,$0208
  668.     DC.W    $0207,$0207,$0207,$0206,$0206,$0206,$0205,$0205
  669.     DC.W    $0205,$0204,$0204,$0204,$0204,$0203,$0203,$0203
  670.     DC.W    $0202,$0202,$0202,$0201,$0201,$0201,$0200,$0200
  671.     DC.W    $0200,$01FF,$01FF,$01FF,$01FE,$01FE,$01FE,$01FE
  672.     DC.W    $01FD,$01FD,$01FD,$01FC,$01FC,$01FC,$01FB,$01FB
  673.     DC.W    $01FB,$01FA,$01FA,$01FA,$01FA,$01F9,$01F9,$01F9
  674.     DC.W    $01F8,$01F8,$01F8,$01F7,$01F7,$01F7,$01F7,$01F6
  675.     DC.W    $01F6,$01F6,$01F5,$01F5,$01F5,$01F4,$01F4,$01F4
  676.     DC.W    $01F4,$01F3,$01F3,$01F3,$01F2,$01F2,$01F2,$01F1
  677.     DC.W    $01F1,$01F1,$01F1,$01F0,$01F0,$01F0,$01EF,$01EF
  678.     DC.W    $01EF,$01EF,$01EE,$01EE,$01EE,$01ED,$01ED,$01ED
  679.     DC.W    $01EC,$01EC,$01EC,$01EC,$01EB,$01EB,$01EB,$01EA
  680.     DC.W    $01EA,$01EA,$01EA,$01E9,$01E9,$01E9,$01E8,$01E8
  681.     DC.W    $01E8,$01E8,$01E7,$01E7,$01E7,$01E6,$01E6,$01E6
  682.     DC.W    $01E6,$01E5,$01E5,$01E5,$01E4,$01E4,$01E4,$01E4
  683.     DC.W    $01E3,$01E3,$01E3,$01E3,$01E2,$01E2,$01E2,$01E1
  684.     DC.W    $01E1,$01E1,$01E1,$01E0,$01E0,$01E0,$01DF,$01DF
  685.     DC.W    $01DF,$01DF,$01DE,$01DE,$01DE,$01DE,$01DD,$01DD
  686.     DC.W    $01DD,$01DC,$01DC,$01DC,$01DC,$01DB,$01DB,$01DB
  687.     DC.W    $01DB,$01DA,$01DA,$01DA,$01DA,$01D9,$01D9,$01D9
  688.     DC.W    $01D8,$01D8,$01D8,$01D8,$01D7,$01D7,$01D7,$01D7
  689.     DC.W    $01D6,$01D6,$01D6,$01D6,$01D5,$01D5,$01D5,$01D4
  690.     DC.W    $01D4,$01D4,$01D4,$01D3,$01D3,$01D3,$01D3,$01D2
  691.     DC.W    $01D2,$01D2,$01D2,$01D1,$01D1,$01D1,$01D1,$01D0
  692.     DC.W    $01D0,$01D0,$01D0,$01CF,$01CF,$01CF,$01CF,$01CE
  693.     DC.W    $01CE,$01CE,$01CE,$01CD,$01CD,$01CD,$01CD,$01CC
  694.     DC.W    $01CC,$01CC,$01CB,$01CB,$01CB,$01CB,$01CA,$01CA
  695.     DC.W    $01CA,$01CA,$01C9,$01C9,$01C9,$01C9,$01C8,$01C8
  696.     DC.W    $01C8,$01C8,$01C7,$01C7,$01C7,$01C7,$01C6,$01C6
  697.     DC.W    $01C6,$01C6,$01C6,$01C5,$01C5,$01C5,$01C5,$01C4
  698.     DC.W    $01C4,$01C4,$01C4,$01C3,$01C3,$01C3,$01C3,$01C2
  699.     DC.W    $01C2,$01C2,$01C2,$01C1,$01C1,$01C1,$01C1,$01C0
  700.     DC.W    $01C0,$01C0,$01C0,$01BF,$01BF,$01BF,$01BF,$01BE
  701.     DC.W    $01BE,$01BE,$01BE,$01BE,$01BD,$01BD,$01BD,$01BD
  702.     DC.W    $01BC,$01BC,$01BC,$01BC,$01BB,$01BB,$01BB,$01BB
  703.     DC.W    $01BA,$01BA,$01BA,$01BA,$01BA,$01B9,$01B9,$01B9
  704.     DC.W    $01B9,$01B8,$01B8,$01B8,$01B8,$01B7,$01B7,$01B7
  705.     DC.W    $01B7,$01B7,$01B6,$01B6,$01B6,$01B6,$01B5,$01B5
  706.     DC.W    $01B5,$01B5,$01B4,$01B4,$01B4,$01B4,$01B4,$01B3
  707.     DC.W    $01B3,$01B3,$01B3,$01B2,$01B2,$01B2,$01B2,$01B2
  708.     DC.W    $01B1,$01B1,$01B1,$01B1,$01B0,$01B0,$01B0,$01B0
  709.     DC.W    $01B0,$01AF,$01AF,$01AF,$01AF,$01AE,$01AE,$01AE
  710.     DC.W    $01AE,$01AE,$01AD,$01AD,$01AD,$01AD,$01AC,$01AC
  711.     DC.W    $01AC,$01AC,$01AC,$01AB,$01AB,$01AB,$01AB,$01AA
  712.     DC.W    $01AA,$01AA,$01AA,$01AA,$01A9,$01A9,$01A9,$01A9
  713.     DC.W    $01A9,$01A8,$01A8,$01A8,$01A8,$01A7,$01A7,$01A7
  714.     DC.W    $01A7,$01A7,$01A6,$01A6,$01A6,$01A6,$01A6,$01A5
  715.     DC.W    $01A5,$01A5,$01A5,$01A4,$01A4,$01A4,$01A4,$01A4
  716.     DC.W    $01A3,$01A3,$01A3,$01A3,$01A3,$01A2,$01A2,$01A2
  717.     DC.W    $01A2,$01A2,$01A1,$01A1,$01A1,$01A1,$01A1,$01A0
  718.     DC.W    $01A0,$01A0,$01A0,$019F,$019F,$019F,$019F,$019F
  719.     DC.W    $019E,$019E,$019E,$019E,$019E,$019D,$019D,$019D
  720.     DC.W    $019D,$019D,$019C,$019C,$019C,$019C,$019C,$019B
  721.     DC.W    $019B,$019B,$019B,$019B,$019A,$019A,$019A,$019A
  722.     DC.W    $019A,$0199,$0199,$0199,$0199,$0199,$0198,$0198
  723.     DC.W    $0198,$0198,$0198,$0197,$0197,$0197,$0197,$0197
  724.     DC.W    $0197,$0197,$0197,$0197,$0197,$0197,$0197,$0197
  725.     DC.W    $0197,$0197,$0197,$0197,$0196,$0196,$0196,$0196
  726.     DC.W    $0196,$0196,$0196,$0196,$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.  
  730. Sinus:    dc.w    16384,16382,16374,16362,16344,16322,16294,16262
  731.     dc.w    16225,16182,16135,16083,16026,15964,15897,15826
  732.     dc.w    15749,15668,15582,15491,15396,15296,15191,15082
  733.     dc.w    14967,14849,14726,14598,14466,14330,14189,14044
  734.     dc.w    13894,13741,13583,13421,13255,13085,12911,12733
  735.     dc.w    12551,12365,12176,11982,11786,11585,11381,11174
  736.     dc.w    10963,10749,10531,10311,10087,9860,9630,9397
  737.     dc.w    9162,8923,8682,8438,8192,7943,7692,7438
  738.     dc.w    7182,6924,6664,6401,6137,5871,5603,5334
  739.     dc.w    5063,4790,4516,4240,3963,3685,3406,3126
  740.     dc.w    2845,2563,2280,1996,1712,1427,1142,857
  741.     dc.w    571,285,0,-285,-571,-857,-1142,-1428
  742.     dc.w    -1712,-1996,-2280,-2563,-2845,-3126,-3406,-3685
  743.     dc.w    -3963,-4240,-4516,-4790,-5063,-5334,-5603,-5871
  744.     dc.w    -6137,-6401,-6664,-6924,-7182,-7438,-7692,-7943
  745.     dc.w    -8192,-8438,-8682,-8923,-9162,-9397,-9630,-9860
  746.     dc.w    -10087,-10311,-10531,-10749,-10963,-11174,-11381,-11585
  747.     dc.w    -11786,-11982,-12176,-12365,-12551,-12733,-12911,-13085
  748.     dc.w    -13255,-13421,-13583,-13741,-13894,-14044,-14189,-14330
  749.     dc.w    -14466,-14598,-14726,-14849,-14967,-15082,-15191,-15296
  750.     dc.w    -15396,-15491,-15582,-15668,-15749,-15826,-15897,-15964
  751.     dc.w    -16026,-16083,-16135,-16182,-16225,-16262,-16294,-16322
  752.     dc.w    -16344,-16362,-16374,-16382,-16384,-16382,-16374,-16362
  753.     dc.w    -16344,-16322,-16294,-16262,-16225,-16182,-16135,-16083
  754.     dc.w    -16026,-15964,-15897,-15826,-15749,-15668,-15582,-15491
  755.     dc.w    -15396,-15296,-15191,-15082,-14968,-14849,-14726,-14598
  756.     dc.w    -14466,-14330,-14189,-14044,-13894,-13741,-13583,-13421
  757.     dc.w    -13255,-13085,-12911,-12733,-12551,-12365,-12176,-11982
  758.     dc.w    -11786,-11585,-11381,-11174,-10963,-10749,-10531,-10311
  759.     dc.w    -10087,-9860,-9630,-9397,-9162,-8923,-8682,-8438
  760.     dc.w    -8192,-7943,-7692,-7438,-7182,-6924,-6664,-6402
  761.     dc.w    -6137,-5871,-5604,-5334,-5063,-4790,-4516,-4240
  762.     dc.w    -3963,-3685,-3406,-3126,-2845,-2563,-2280,-1996
  763.     dc.w    -1712,-1428,-1143,-857,-572,-286,0,285
  764.     dc.w    571,857,1142,1427,1712,1996,2280,2562
  765.     dc.w    2844,3126,3406,3685,3963,4240,4515,4790
  766.     dc.w    5062,5334,5603,5871,6137,6401,6663,6924
  767.     dc.w    7182,7438,7691,7943,8192,8438,8682,8923
  768.     dc.w    9161,9397,9630,9860,10087,10310,10531,10748
  769.     dc.w    10963,11173,11381,11585,11785,11982,12175,12365
  770.     dc.w    12551,12732,12910,13085,13255,13421,13583,13740
  771.     dc.w    13894,14044,14189,14330,14466,14598,14726,14849
  772.     dc.w    14967,15081,15191,15296,15396,15491,15582,15668
  773.     dc.w    15749,15826,15897,15964,16026,16083,16135,16182
  774.     dc.w    16224,16262,16294,16322,16344,16361,16374,16382
  775.  
  776.     dc.w    16384,16382,16374,16362,16344,16322,16294,16262
  777.     dc.w    16225,16182,16135,16083,16026,15964,15897,15826
  778.     dc.w    15749,15668,15582,15491,15396,15296,15191,15082
  779.     dc.w    14967,14849,14726,14598,14466,14330,14189,14044
  780.     dc.w    13894,13741,13583,13421,13255,13085,12911,12733
  781.     dc.w    12551,12365,12176,11982,11786,11585,11381,11174
  782.     dc.w    10963,10749,10531,10311,10087,9860,9630,9397
  783.     dc.w    9162,8923,8682,8438,8192,7943,7692,7438
  784.     dc.w    7182,6924,6664,6401,6137,5871,5603,5334
  785.     dc.w    5063,4790,4516,4240,3963,3685,3406,3126
  786.     dc.w    2845,2563,2280,1996,1712,1427,1142,857
  787.     dc.w    571,285,0,-285,-571,-857,-1142,-1428
  788.     dc.w    -1712,-1996,-2280,-2563,-2845,-3126,-3406,-3685
  789.     dc.w    -3963,-4240,-4516,-4790,-5063,-5334,-5603,-5871
  790.     dc.w    -6137,-6401,-6664,-6924,-7182,-7438,-7692,-7943
  791.     dc.w    -8192,-8438,-8682,-8923,-9162,-9397,-9630,-9860
  792.     dc.w    -10087,-10311,-10531,-10749,-10963,-11174,-11381,-11585
  793.     dc.w    -11786,-11982,-12176,-12365,-12551,-12733,-12911,-13085
  794.     dc.w    -13255,-13421,-13583,-13741,-13894,-14044,-14189,-14330
  795.     dc.w    -14466,-14598,-14726,-14849,-14967,-15082,-15191,-15296
  796.     dc.w    -15396,-15491,-15582,-15668,-15749,-15826,-15897,-15964
  797.     dc.w    -16026,-16083,-16135,-16182,-16225,-16262,-16294,-16322
  798.     dc.w    -16344,-16362,-16374,-16382,-16384,-16382,-16374,-16362
  799.     dc.w    -16344,-16322,-16294,-16262,-16225,-16182,-16135,-16083
  800.     dc.w    -16026,-15964,-15897,-15826,-15749,-15668,-15582,-15491
  801.     dc.w    -15396,-15296,-15191,-15082,-14968,-14849,-14726,-14598
  802.     dc.w    -14466,-14330,-14189,-14044,-13894,-13741,-13583,-13421
  803.     dc.w    -13255,-13085,-12911,-12733,-12551,-12365,-12176,-11982
  804.     dc.w    -11786,-11585,-11381,-11174,-10963,-10749,-10531,-10311
  805.     dc.w    -10087,-9860,-9630,-9397,-9162,-8923,-8682,-8438
  806.     dc.w    -8192,-7943,-7692,-7438,-7182,-6924,-6664,-6402
  807.     dc.w    -6137,-5871,-5604,-5334,-5063,-4790,-4516,-4240
  808.     dc.w    -3963,-3685,-3406,-3126,-2845,-2563,-2280,-1996
  809.     dc.w    -1712,-1428,-1143,-857,-572,-286,0,285
  810.     dc.w    571,857,1142,1427,1712,1996,2280,2562
  811.     dc.w    2844,3126,3406,3685,3963,4240,4515,4790
  812.     dc.w    5062,5334,5603,5871,6137,6401,6663,6924
  813.     dc.w    7182,7438,7691,7943,8192,8438,8682,8923
  814.     dc.w    9161,9397,9630,9860,10087,10310,10531,10748
  815.     dc.w    10963,11173,11381,11585,11785,11982,12175,12365
  816.     dc.w    12551,12732,12910,13085,13255,13421,13583,13740
  817.     dc.w    13894,14044,14189,14330,14466,14598,14726,14849
  818.     dc.w    14967,15081,15191,15296,15396,15491,15582,15668
  819.     dc.w    15749,15826,15897,15964,16026,16083,16135,16182
  820.     dc.w    16224,16262,16294,16322,16344,16361,16374,16382
  821.  
  822. Font=$40000
  823.  
  824.