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