home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / SRRTXT.LZH / scrolltext.s < prev   
Encoding:
Text File  |  1990-03-20  |  48.9 KB  |  2,010 lines
  1.  
  2. *************************************************************************
  3. *** Title:    Scroll Text + Raster                                    ***
  4. *** Version:  1.00                                                    ***
  5. *************************************************************************
  6.  
  7. PLANESIZE_CRED    =    80*240
  8. COPPERSIZE    =    4000
  9. FONTSIZE    =    15360
  10.  
  11. CHIPMEM        =    $060000
  12. COPPERLIST_CRED    =    CHIPMEM
  13. PLANEADRX_CRED    =    COPPERLIST_CRED+COPPERSIZE
  14. FONTADR        =    PLANEADRX_CRED+PLANESIZE_CRED
  15.  
  16. Start:        bsr    system_push
  17.         lea.l    interrupt3(pc),a0
  18.         move.l    a0,$6c
  19.         bsr    scrolltext
  20.         bsr    system_pop
  21.         rts
  22.  
  23. interrupt3:    bsr    bars
  24.         move.w    #$0020,$dff09c
  25.         rte
  26.  
  27. *******************************************************
  28. ******* scroll text main code *************************
  29. *******************************************************
  30.  
  31. scrolltext:    bsr    makeview
  32.         move.w    #$c020,$dff09a
  33.         bsr    buildtxtlist
  34.         movea.l    #FONTADR,a0
  35.         lea.l    superfont(pc),a1
  36.         move.w    #15360/4-1,d0
  37. 110$:        move.l    (a1)+,(a0)+
  38.         dbra    d0,110$
  39.         lea.l    textptlist(pc),a5    ;ptblock
  40.         move.l    (a5)+,d6        ;number of lines
  41. 1$:        btst    #6,$bfe001
  42.         beq.s    8$
  43.         bsr    scrollup
  44.         subq.l    #1,d6
  45.         beq.s    8$
  46.         bra.s    1$
  47. 8$:        bsr    closeview2
  48.         rts
  49.  
  50. calctextline:    move.l    (a5)+,a2
  51.         movem.l    d0/d6-d7/a5,-(sp)
  52.         bsr    pssftype
  53.         movem.l    (sp)+,d0/d6-d7/a5
  54.         rts
  55.  
  56. waitblt:    macro
  57.         btst    #14,$dff002
  58.         bne.s    *-8
  59.         endm
  60.  
  61. scrollup:    move.w    #231*64+40,d7
  62.         move.w    #30,d0
  63.         move.w    #$8640,$dff096
  64.  
  65. 1$:        bsr    wait_line_w1
  66.         waitblt
  67.         move.w    #$03aa,$dff040
  68.         move.w    #$0000,$dff042
  69.         move.w    #$ffff,$dff044
  70.         move.w    #$ffff,$dff046
  71.         move.l    #PLANEADRX_CRED+80,$dff048
  72.         move.l    #PLANEADRX_CRED,$dff054
  73.         move.w    #$0000,$dff060
  74.         move.w    #$0000,$dff066
  75.         move.w    d7,$dff058
  76.         waitblt
  77.  
  78.         sub.w    #64,d7
  79.         dbra    d0,1$
  80.  
  81.         bsr    calctextline
  82.         move.w    #10,d0
  83.  
  84. 7$:        movem.l    d0/d6/a5,-(sp)
  85.         bsr    blt_text_line
  86.         movem.l    (sp)+,d0/d6/a5
  87.  
  88.         bsr    wait_line_w1
  89.         waitblt
  90.         move.w    #$03aa,$dff040
  91.         move.w    #$0000,$dff042
  92.         move.w    #$ffff,$dff044
  93.         move.w    #$ffff,$dff046
  94.         move.l    #PLANEADRX_CRED+80,$dff048
  95.         move.l    #PLANEADRX_CRED,$dff054
  96.         move.w    #$0000,$dff060
  97.         move.w    #$0000,$dff066
  98.         move.w    d7,$dff058
  99.         waitblt
  100.  
  101.         sub.w    #64,d7
  102.         dbra    d0,7$
  103.         rts
  104.  
  105. wait_line_w1:    move.l    d0,-(sp)
  106. 1$:        move.l    $dff004,d0
  107.         andi.l    #$0001f000,d0
  108.         cmp.l    #$00008000,d0
  109.         bne.s    1$
  110.         move.l    (sp)+,d0
  111.         rts
  112.  
  113. *******************************************************
  114. ******* end of scroll text main code ******************
  115. *******************************************************
  116.  
  117.  
  118. *******************************************************
  119. ******* scroll text ***********************************
  120. *******************************************************
  121.  
  122. buildtxtlist:    movem.l    d0-d7/a0-a6,-(sp)
  123.         lea.l    tekstblock(pc),a0    ;tekstblock
  124.         lea.l    textptlist(pc),a2    ;ptblock
  125.         lea.l    4(a2),a1        ;ptlist
  126.         clr.l    d7            ;stringcounter
  127. 1$:        tst.b    (a0)            ;more strings?
  128.         beq    9$            ;no->end
  129.         add.l    #1,d7            ;count strings
  130.         move.l    a0,(a1)+        ;store pointer in list
  131.         clr.l    d6            ;length counter
  132. 2$:        tst.b    (a0)
  133.         beq    3$
  134.         add.l    #1,d6
  135.         adda.l    #1,a0
  136.         bra    2$
  137. 3$:        adda.l    #1,a0
  138.         bra    1$
  139. 9$:        move.l    d7,(a2)
  140.         movem.l    (sp)+,d0-d7/a0-a6
  141.         rts
  142.  
  143. textptlist:    dc.l    0    ;length
  144.         ds.l    400    ;max number of text lines
  145.  
  146. tekstblock:
  147.         dc.b    2,"Scroll Text with Raster Bars",0
  148.         dc.b    1,"                  ",0
  149.         dc.b    2,"Text can be printet in 3 modes:",0
  150.         dc.b    1,"This line is left adjust.",0
  151.         dc.b    3,"This line is right adjust.",0
  152.         dc.b    2,"This line is center adjust",0
  153.         dc.b    1,"                  ",0
  154.         dc.b    2,"The program is writen for",0
  155.         dc.b    2,"the DevPac Assembler.",0
  156.         dc.b    1,"                  ",0
  157.         dc.b    1,"Special fonts:",0
  158.         dc.b    3,"æ Æ ø Ø å Å © ®",0
  159.         dc.b    1,"                  ",0
  160.         dc.b    1,"                  ",0
  161.         dc.b    2,"Scroll Text with Raster Bars",0
  162.         dc.b    1,"                  ",0
  163.         dc.b    2,"Text can be printet in 3 modes:",0
  164.         dc.b    1,"This line is left adjust.",0
  165.         dc.b    3,"This line is right adjust.",0
  166.         dc.b    2,"This line is center adjust",0
  167.         dc.b    1,"                  ",0
  168.         dc.b    2,"The program is writen for",0
  169.         dc.b    2,"the DevPac Assembler.",0
  170.         dc.b    1,"                  ",0
  171.         dc.b    1,"Special fonts:",0
  172.         dc.b    3,"æ Æ ø Ø å Å © ®",0
  173.         dc.b    1,"                  ",0
  174.         dc.b    2,"Scroll Text with Raster Bars",0
  175.         dc.b    1,"                  ",0
  176.         dc.b    2,"Text can be printet in 3 modes:",0
  177.         dc.b    1,"This line is left adjust.",0
  178.         dc.b    3,"This line is right adjust.",0
  179.         dc.b    2,"This line is center adjust",0
  180.         dc.b    1,"                  ",0
  181.         dc.b    2,"The program is writen for",0
  182.         dc.b    2,"the DevPac Assembler.",0
  183.         dc.b    1,"                  ",0
  184.         dc.b    1,"Special fonts:",0
  185.         dc.b    3,"æ Æ ø Ø å Å © ®",0
  186.         dc.b    1,"                  ",0
  187.         dc.b    2,"Scroll Text with Raster Bars",0
  188.         dc.b    1,"                  ",0
  189.         dc.b    2,"Text can be printet in 3 modes:",0
  190.         dc.b    1,"This line is left adjust.",0
  191.         dc.b    3,"This line is right adjust.",0
  192.         dc.b    2,"This line is center adjust",0
  193.         dc.b    1,"                  ",0
  194.         dc.b    2,"The program is writen for",0
  195.         dc.b    2,"the DevPac Assembler.",0
  196.         dc.b    1,"                  ",0
  197.         dc.b    1,"Special fonts:",0
  198.         dc.b    3,"æ Æ ø Ø å Å © ®",0
  199.         dc.b    1,"                  ",0
  200.         dc.b    1,"                  ",0
  201.         dc.b    1,"                  ",0
  202.         dc.b    0,0,0,0,0,0,0,0
  203.         even
  204.  
  205. *******************************************************
  206. ******* end of scroll text ****************************
  207. *******************************************************
  208.  
  209. *******************************************************
  210. ******* setup display *********************************
  211. *******************************************************
  212.  
  213. COPPERVIEW_E:    macro
  214.         move.l    #$008e2c81,(a0)+
  215.         move.l    #$0090f4c1,(a0)+
  216.         move.l    #$0092003c,(a0)+
  217.         move.l    #$009400d4,(a0)+
  218.         move.l    #$01009200,(a0)+
  219.         move.l    #$01020000,(a0)+
  220.         move.l    #$01040024,(a0)+
  221.         move.l    #$01080000,(a0)+
  222.         move.l    #$010a0000,(a0)+
  223.         endm
  224.  
  225. makeview:    bsr    sletplanx
  226.         movea.l    #COPPERLIST_CRED,a0
  227.         COPPERVIEW_E
  228.         lea.l    plane_ptrx(pc),a1
  229.         bsr    copper_planes
  230.  
  231.  
  232.         move.w    #$2b07,d0
  233.         move.w    d0,(a0)+
  234.         move.w    #$ff01,(a0)+
  235.         move.w    #210,d1
  236.         lea.l    copptr(pc),a1
  237.         move.l    a0,(a1)
  238. 1$:        move.w    #$0180,(a0)+
  239.         move.w    #0,(a0)+
  240.         add.w    #$0100,d0
  241.         move.w    d0,(a0)+
  242.         move.w    #$fffe,(a0)+
  243.         dbf    d1,1$
  244.         bsr    copper_end
  245.         move.l    #COPPERLIST_CRED,$dff080
  246.         clr.w    $dff088
  247.  
  248.  
  249.         movea.l    #$dff180,a0
  250. ;display colors
  251.         move.w    #$000,(a0)+    ;c0
  252.         move.w    #$fff,(a0)+    ;c1
  253.  
  254.         move.w    #$8380,$dff096
  255.         rts
  256.  
  257. closeview2:    move.w    #$0180,$dff096
  258.         rts
  259.  
  260. sletplanx:    move.l    #(PLANESIZE_CRED)/4-1,d0
  261.         movea.l    #PLANEADRX_CRED,a0
  262. 1$:        clr.l    (a0)+
  263.         dbra    d0,1$
  264.         rts
  265.  
  266. plane_ptrx:
  267.         dc.l    PLANEADRX_CRED
  268.         dc.l    0
  269.         dc.l    0
  270.         dc.l    0
  271.         dc.l    0
  272.         dc.l    0
  273.         dc.l    0
  274.         dc.l    0
  275.  
  276. copper_planes:    movem.l d1/d3-d4/a1,-(sp)
  277.         moveq.l    #$5,d4
  278.         move.w    #$0e0,d3
  279. 1$:        move.l    (a1)+,d1
  280.         beq.s    2$
  281.         move.w    d3,(a0)+
  282.         addq.w    #2,d3
  283.         swap    d1
  284.         move.w    d1,(a0)+
  285.         move.w    d3,(a0)+
  286.         addq.w    #2,d3
  287.         swap    d1
  288.         move.w    d1,(a0)+
  289. 2$:        dbf    d4,1$
  290.         movem.l    (sp)+,d1/d3-d4/a1
  291.         rts
  292.  
  293. copper_end:    move.l    #$fffffffe,(a0)+
  294.         rts
  295.  
  296. *******************************************************
  297. ******* end of setup display **************************
  298. *******************************************************
  299.  
  300. *******************************************************
  301. ******* text printing *********************************
  302. *******************************************************
  303.  
  304. pssftype:    lea.l    blt_memory(pc),a6
  305.         clr.l    (a6)
  306.         lea.l    8(a6),a5
  307.         move.l    a5,4(a6)
  308.         lea.l    atosfontcontab(pc),a3    ;convert table
  309.         lea.l    propfontdata(pc),a4    ;convert table
  310.         move.l    #0,d1
  311.         clr.l    d3
  312.         clr.l    d4
  313.         clr.l    d0
  314.         move.b    (a2)+,d4        ;pos mode
  315.         cmp.b    #3,d4
  316.         beq    5$
  317.         cmp.b    #2,d4
  318.         beq    6$
  319.         bra    1$
  320. 5$:        bsr    pssflength
  321.         move.l    #640,d6
  322.         sub.l    d5,d6
  323.         add.l    d6,d1
  324.         bra    1$
  325. 6$:        bsr    pssflength
  326.         move.l    #640,d6
  327.         sub.l    d5,d6
  328.         lsr.l    #1,d6
  329.         add.l    d6,d1
  330.         bra    1$
  331. 1$:        tst.b    (a2)
  332.         beq    2$
  333.         move.b    (a2)+,d3
  334.         move.b    0(a3,d3.w),d0
  335.         move.w    d0,(a5)+
  336.         move.w    d1,(a5)+
  337.         addq.l    #1,(a6)
  338.         move.b    0(a4,d0.w),d0
  339.         add.l    d0,d1
  340.         add.l    #1,d1
  341.         bra    1$
  342. 2$:        rts
  343.  
  344. blt_text_line:    clr.l    d0
  345.         clr.l    d1
  346.         move.w    #4,d2
  347.         lea.l    FONTADR,a0            ;font
  348.         move.l    #PLANEADRX_CRED+200*80,a1    ;plane pt
  349.         lea.l    blt_memory(pc),a6
  350.         move.l    4(a6),a5
  351. 1$:        tst.l    (a6)
  352.         beq.s    9$
  353.         move.w    (a5)+,d0
  354.         move.w    (a5)+,d1
  355.         subq.l    #1,(a6)
  356.         bsr    bltsuperfont
  357.         dbra    d2,1$
  358. 9$:        move.l    a5,4(a6)
  359.         rts
  360.  
  361. pssflength:    movem.l    d0/d3/a2,-(sp)
  362.         clr.l    d5
  363. 1$:        tst.b    (a2)
  364.         beq    2$
  365.         move.b    (a2)+,d3
  366.         move.b    0(a3,d3.w),d0
  367.         move.b    0(a4,d0.w),d0
  368.         add.l    #1,d5
  369.         add.l    d0,d5
  370.         bra    1$
  371. 2$:        movem.l    (sp)+,d0/d3/a2
  372.         rts
  373.  
  374. bltsuperfont:    movem.l    d0-d1/a0-a1,-(sp)
  375.         lsl.l    #7,d0
  376.         adda.l    d0,a0
  377.         move.w    d1,d0
  378.         andi.w    #$f,d0
  379.         lsl.w    #8,d0
  380.         lsl.w    #4,d0
  381.         or.w    #$0bfa,d0
  382.         lsr.l    #4,d1
  383.         lsl.l    #1,d1
  384.         adda.l    d1,a1
  385.         move.w    #$8640,$dff096
  386. 1$:        btst    #14,$dff002
  387.         bne.s    1$
  388.         move.w    d0,$dff040        ;bltcon0
  389.         move.w    #$0000,$dff042        ;bltcon1
  390.         move.l    #$ffff0000,$dff044    ;bltfwm/lwm
  391.         move.l    a1,$dff048        ;bltcpt
  392.         move.l    a0,$dff050        ;bltapt
  393.         move.l    a1,$dff054        ;bltdpt
  394.         move.w    #74,$dff060        ;bltcmod
  395.         move.w    #-2,$dff064        ;bltamod
  396.         move.w    #74,$dff066        ;bltdmod
  397.         move.w    #$07c3,$dff058        ;bltsize
  398.         movem.l    (sp)+,d0-d1/a0-a1
  399.         rts
  400.  
  401. blt_memory:    ds.l    160
  402.  
  403. *******************************************************
  404. ******* end of text printing **************************
  405. *******************************************************
  406.  
  407. *******************************************************
  408. ******* text font data ********************************
  409. *******************************************************
  410.  
  411. propfontdata:
  412.     dc.b    20,19,18,21,16,16,18,20,7,13,20,15,25,20,21,18,21,19,15,19
  413.     dc.b    19,20,29,19,21,17,26,24,20,0,0,0,0,0,0,0,0,0,0,0
  414.     dc.b    13,15,13,14,13,10,15,14,5,8,14,5,24,14,14,15,14,10,11,10
  415.     dc.b    14,13,20,13,13,12,18,16,13,19,19,0,0,0,0,0,0,0,0,0
  416.     dc.b    13,13,14,14,13,14,14,14,14,14,6,6,0,0,0,0,0,0,0,20
  417.     dc.b    7,20,24,13,28,12,19,14,10,10,7,23,8,19,19,13,7,12,6,6
  418.  
  419. atosfontcontab:
  420.     dc.b    0,0,0,0,0,0,0,0,0,0        ;0-9
  421.     dc.b    0,0,0,0,0,0,0,0,0,0        ;10-19
  422.     dc.b    0,0,0,0,0,0,0,0,0,0        ;20-29
  423.     dc.b    0,0,99,100,0,0,0,0,0,110    ;30-39
  424.     dc.b    108,109,0,0,118,114,119,0,89,80    ;40-49
  425.     dc.b    81,82,83,84,85,86,87,88,90,91    ;50-59
  426.     dc.b    0,0,0,116,0,0,1,2,3,4        ;60-69
  427.     dc.b    5,6,7,8,9,10,11,12,13,14    ;70-79
  428.     dc.b    15,16,17,18,19,20,21,22,23,24    ;80-89
  429.     dc.b    25,0,0,0,0,0,0,40,41,42        ;90-99
  430.     dc.b    43,44,45,46,47,48,49,50,51,52    ;100-109
  431.     dc.b    53,54,55,56,57,58,59,60,61,62    ;110-119
  432.     dc.b    63,64,65,0,0,0,0,0,0,0        ;120-129
  433.     dc.b    0,0,0,0,0,0,0,0,0,0        ;130-139
  434.     dc.b    0,0,0,0,0,0,0,0,0,0        ;140-149
  435.     dc.b    0,0,0,0,0,0,0,0,0,0        ;150-159
  436.     dc.b    0,0,0,0,0,0,0,0,0,69        ;160-169
  437.     dc.b    0,0,0,0,70,0,0,0,0,0        ;170-179
  438.     dc.b    0,0,0,0,0,0,0,0,0,0        ;180-189
  439.     dc.b    0,0,0,0,0,0,0,28,26,0        ;190-199
  440.     dc.b    0,0,0,0,0,0,0,0,0,0        ;200-209
  441.     dc.b    0,0,0,0,0,0,27,0,0,0        ;210-219
  442.     dc.b    0,0,0,0,0,0,0,0,0,68        ;220-229
  443.     dc.b    66,0,0,0,0,0,0,0,0,0        ;230-239
  444.     dc.b    0,0,0,0,0,0,0,0,67,0        ;240-249
  445.     dc.b    0,0,0,0,0,0,0,0,0,0        ;250-259
  446.  
  447. superfont:
  448.  
  449. *** [0|0]
  450.     dc.l    $0,$0,$f80000,$1fc0000
  451.     dc.l    $1fc0000,$1fc0000,$3be0000,$39e0000
  452.     dc.l    $39e0000,$79f0000,$79f0000,$71f0000
  453.     dc.l    $f0f8000,$f0f8000,$f0f8000,$1e07c000
  454.     dc.l    $1fffc000,$1fffc000,$3fffe000,$3c03e000
  455.     dc.l    $3c03e000,$7803f000,$7801f000,$0
  456.     dc.l    $0,$0,$0,$0
  457.     dc.l    $0,$0,$0
  458.     dc.l    0
  459. *** [0|1]
  460.     dc.l    $0,$0,$1ffe0000,$1fff0000
  461.     dc.l    $1fff8000,$1f0fc000,$1f07c000,$1f07c000
  462.     dc.l    $1f07c000,$1f07c000,$1f0f8000,$1fff0000
  463.     dc.l    $1fff8000,$1f07c000,$1f03e000,$1f03e000
  464.     dc.l    $1f03e000,$1f03e000,$1f03e000,$1f07e000
  465.     dc.l    $1fffc000,$1fff8000,$1ffe0000,$0
  466.     dc.l    $0,$0,$0,$0
  467.     dc.l    $0,$0,$0
  468.     dc.l    0
  469. *** [0|2]
  470.     dc.l    $0,$0,$ff0000,$3ffc000
  471.     dc.l    $7ffc000,$fc1c000,$1f000000,$1f000000
  472.     dc.l    $3e000000,$3e000000,$3e000000,$3e000000
  473.     dc.l    $3e000000,$3e000000,$3e000000,$3e000000
  474.     dc.l    $3e000000,$1f000000,$1f004000,$fc1c000
  475.     dc.l    $7ffc000,$3ff8000,$fe0000,$0
  476.     dc.l    $0,$0,$0,$0
  477.     dc.l    $0,$0,$0
  478.     dc.l    0
  479. *** [0|3]
  480.     dc.l    $0,$0,$1ffe0000,$1fff8000
  481.     dc.l    $1fffc000,$1f07e000,$1f01f000,$1f01f000
  482.     dc.l    $1f00f800,$1f00f800,$1f00f800,$1f00f800
  483.     dc.l    $1f00f800,$1f00f800,$1f00f800,$1f00f800
  484.     dc.l    $1f00f800,$1f01f000,$1f01f000,$1f07e000
  485.     dc.l    $1fffe000,$1fff8000,$1ffe0000,$0
  486.     dc.l    $0,$0,$0,$0
  487.     dc.l    $0,$0,$0
  488.     dc.l    0
  489. *** [0|4]
  490.     dc.l    $0,$0,$1fff0000,$1fff0000
  491.     dc.l    $1fff0000,$1f000000,$1f000000,$1f000000
  492.     dc.l    $1f000000,$1f000000,$1f000000,$1ffe0000
  493.     dc.l    $1ffe0000,$1ffe0000,$1f000000,$1f000000
  494.     dc.l    $1f000000,$1f000000,$1f000000,$1f000000
  495.     dc.l    $1fff8000,$1fff8000,$1fff8000,$0
  496.     dc.l    $0,$0,$0,$0
  497.     dc.l    $0,$0,$0
  498.     dc.l    0
  499. *** [0|5]
  500.     dc.l    $0,$0,$1fff0000,$1fff0000
  501.     dc.l    $1fff0000,$1f000000,$1f000000,$1f000000
  502.     dc.l    $1f000000,$1f000000,$1f000000,$1ffc0000
  503.     dc.l    $1ffc0000,$1ffc0000,$1f000000,$1f000000
  504.     dc.l    $1f000000,$1f000000,$1f000000,$1f000000
  505.     dc.l    $1f000000,$1f000000,$1f000000,$0
  506.     dc.l    $0,$0,$0,$0
  507.     dc.l    $0,$0,$0
  508.     dc.l    0
  509. *** [0|6]
  510.     dc.l    $0,$0,$ff8000,$3ffe000
  511.     dc.l    $7ffe000,$fc0e000,$1f000000,$1f000000
  512.     dc.l    $3e000000,$3e000000,$3e000000,$3e000000
  513.     dc.l    $3e0fe000,$3e0fe000,$3e0fe000,$3e01e000
  514.     dc.l    $3e01e000,$1f01e000,$1f01e000,$fc1e000
  515.     dc.l    $7ffe000,$3ffe000,$ff8000,$0
  516.     dc.l    $0,$0,$0,$0
  517.     dc.l    $0,$0,$0
  518.     dc.l    0
  519. *** [0|7]
  520.     dc.l    $0,$0,$1f01f000,$1f01f000
  521.     dc.l    $1f01f000,$1f01f000,$1f01f000,$1f01f000
  522.     dc.l    $1f01f000,$1f01f000,$1f01f000,$1ffff000
  523.     dc.l    $1ffff000,$1ffff000,$1f01f000,$1f01f000
  524.     dc.l    $1f01f000,$1f01f000,$1f01f000,$1f01f000
  525.     dc.l    $1f01f000,$1f01f000,$1f01f000,$0
  526.     dc.l    $0,$0,$0,$0
  527.     dc.l    $0,$0,$0
  528.     dc.l    0
  529. *** [0|8]
  530.     dc.l    $0,$0,$3e000000,$3e000000
  531.     dc.l    $3e000000,$3e000000,$3e000000,$3e000000
  532.     dc.l    $3e000000,$3e000000,$3e000000,$3e000000
  533.     dc.l    $3e000000,$3e000000,$3e000000,$3e000000
  534.     dc.l    $3e000000,$3e000000,$3e000000,$3e000000
  535.     dc.l    $3e000000,$3e000000,$3e000000,$0
  536.     dc.l    $0,$0,$0,$0
  537.     dc.l    $0,$0,$0
  538.     dc.l    0
  539. *** [0|9]
  540.     dc.l    $0,$0,$1f00000,$1f00000
  541.     dc.l    $1f00000,$1f00000,$1f00000,$1f00000
  542.     dc.l    $1f00000,$1f00000,$1f00000,$1f00000
  543.     dc.l    $1f00000,$1f00000,$1f00000,$1f00000
  544.     dc.l    $1f00000,$1f00000,$1f00000,$61f00000
  545.     dc.l    $7ff00000,$7fe00000,$1f800000,$0
  546.     dc.l    $0,$0,$0,$0
  547.     dc.l    $0,$0,$0
  548.     dc.l    0
  549. *** [0|10]
  550.     dc.l    $0,$0,$1e01f000,$1e03e000
  551.     dc.l    $1e07c000,$1e0f8000,$1e1f0000,$1e3e0000
  552.     dc.l    $1e7c0000,$1efc0000,$1ff80000,$1ff80000
  553.     dc.l    $1ffc0000,$1ffe0000,$1fbe0000,$1f1f0000
  554.     dc.l    $1e0f8000,$1e0f8000,$1e07c000,$1e03e000
  555.     dc.l    $1e01e000,$1e01f000,$1e00f000,$0
  556.     dc.l    $0,$0,$0,$0
  557.     dc.l    $0,$0,$0
  558.     dc.l    0
  559. *** [0|11]
  560.     dc.l    $0,$0,$1f000000,$1f000000
  561.     dc.l    $1f000000,$1f000000,$1f000000,$1f000000
  562.     dc.l    $1f000000,$1f000000,$1f000000,$1f000000
  563.     dc.l    $1f000000,$1f000000,$1f000000,$1f000000
  564.     dc.l    $1f000000,$1f000000,$1f000000,$1f000000
  565.     dc.l    $1ffe0000,$1ffe0000,$1ffe0000,$0
  566.     dc.l    $0,$0,$0,$0
  567.     dc.l    $0,$0,$0
  568.     dc.l    0
  569. *** [0|12]
  570.     dc.l    $0,$0,$1f801f80,$1fc03f80
  571.     dc.l    $1fc03f80,$1fc03f80,$1ec03780,$1ee07780
  572.     dc.l    $1ee07780,$1ee07780,$1ef0f780,$1e70e780
  573.     dc.l    $1e70e780,$1e79e780,$1e79e780,$1e39c780
  574.     dc.l    $1e39c780,$1e39c780,$1e198780,$1e1f8780
  575.     dc.l    $1e1f8780,$1e0f0780,$1e0f0780,$0
  576.     dc.l    $0,$0,$0,$0
  577.     dc.l    $0,$0,$0
  578.     dc.l    0
  579. *** [0|13]
  580.     dc.l    $0,$0,$1f80f000,$1fc0f000
  581.     dc.l    $1fc0f000,$1fc0f000,$1ee0f000,$1ee0f000
  582.     dc.l    $1ef0f000,$1e70f000,$1e78f000,$1e78f000
  583.     dc.l    $1e38f000,$1e3cf000,$1e3cf000,$1e1cf000
  584.     dc.l    $1e1ef000,$1e0ef000,$1e0ef000,$1e07f000
  585.     dc.l    $1e07f000,$1e07f000,$1e03f000,$0
  586.     dc.l    $0,$0,$0,$0
  587.     dc.l    $0,$0,$0
  588.     dc.l    0
  589. *** [0|14]
  590.     dc.l    $0,$0,$fe0000,$3ff8000
  591.     dc.l    $7c7c000,$f01e000,$1f01f000,$1e00f000
  592.     dc.l    $3e00f800,$3e00f800,$3e00f800,$3e00f800
  593.     dc.l    $3e00f800,$3e00f800,$3e00f800,$3e00f800
  594.     dc.l    $3e00f800,$1f01f000,$1f01f000,$f01e000
  595.     dc.l    $fc7e000,$3ff8000,$fe0000,$0
  596.     dc.l    $0,$0,$0,$0
  597.     dc.l    $0,$0,$0
  598.     dc.l    0
  599. *** [0|15]
  600.     dc.l    $0,$0,$1ffc0000,$1fff0000
  601.     dc.l    $1fff8000,$1f0f8000,$1f07c000,$1f07c000
  602.     dc.l    $1f07c000,$1f07c000,$1f07c000,$1f0f8000
  603.     dc.l    $1fff8000,$1fff0000,$1f000000,$1f000000
  604.     dc.l    $1f000000,$1f000000,$1f000000,$1f000000
  605.     dc.l    $1f000000,$1f000000,$1f000000,$0
  606.     dc.l    $0,$0,$0,$0
  607.     dc.l    $0,$0,$0
  608.     dc.l    0
  609. *** [0|16]
  610.     dc.l    $0,$0,$fe0000,$3ff8000
  611.     dc.l    $7c7c000,$f01e000,$1f01f000,$1e00f000
  612.     dc.l    $3e00f800,$3e00f800,$3e00f800,$3e00f800
  613.     dc.l    $3e00f800,$3e00f800,$3e00f800,$3e00f800
  614.     dc.l    $3e00f800,$1e3cf000,$1f3ff000,$f3fe000
  615.     dc.l    $fdfe000,$3ff8000,$ffc000,$7c000
  616.     dc.l    $7e000,$3e000,$0,$0
  617.     dc.l    $0,$0,$0
  618.     dc.l    0
  619. *** [0|17]
  620.     dc.l    $0,$0,$1ffc0000,$1fff0000
  621.     dc.l    $1fff8000,$1f0fc000,$1f07c000,$1f07c000
  622.     dc.l    $1f07c000,$1f07c000,$1f0f8000,$1fff0000
  623.     dc.l    $1ffe0000,$1f3c0000,$1f3e0000,$1f1e0000
  624.     dc.l    $1f1f0000,$1f1f0000,$1f0f8000,$1f0f8000
  625.     dc.l    $1f07c000,$1f07c000,$1f03e000,$0
  626.     dc.l    $0,$0,$0,$0
  627.     dc.l    $0,$0,$0
  628.     dc.l    0
  629. *** [0|18]
  630.     dc.l    $0,$0,$7f00000,$ffc0000
  631.     dc.l    $1ffc0000,$3c1c0000,$3c000000,$3c000000
  632.     dc.l    $3c000000,$3f000000,$1fe00000,$1ff80000
  633.     dc.l    $ffc0000,$7fc0000,$fe0000,$3e0000
  634.     dc.l    $1e0000,$1e0000,$601e0000,$783c0000
  635.     dc.l    $7ffc0000,$3ff80000,$7e00000,$0
  636.     dc.l    $0,$0,$0,$0
  637.     dc.l    $0,$0,$0
  638.     dc.l    0
  639. *** [0|19]
  640.     dc.l    $0,$0,$7fffe000,$7fffe000
  641.     dc.l    $7fffe000,$f80000,$f80000,$f80000
  642.     dc.l    $f80000,$f80000,$f80000,$f80000
  643.     dc.l    $f80000,$f80000,$f80000,$f80000
  644.     dc.l    $f80000,$f80000,$f80000,$f80000
  645.     dc.l    $f80000,$f80000,$f80000,$0
  646.     dc.l    $0,$0,$0,$0
  647.     dc.l    $0,$0,$0
  648.     dc.l    0
  649. *** [1|0]
  650.     dc.l    $0,$0,$1f01e000,$1f01e000
  651.     dc.l    $1f01e000,$1f01e000,$1f01e000,$1f01e000
  652.     dc.l    $1f01e000,$1f01e000,$1f01e000,$1f01e000
  653.     dc.l    $1f01e000,$1f01e000,$1f01e000,$1f01e000
  654.     dc.l    $1f01e000,$1f01e000,$1f03e000,$f83c000
  655.     dc.l    $fffc000,$3ff8000,$fe0000,$0
  656.     dc.l    $0,$0,$0,$0
  657.     dc.l    $0,$0,$0
  658.     dc.l    0
  659. *** [1|1]
  660.     dc.l    $0,$0,$7c00f000,$7c00f000
  661.     dc.l    $7e00f000,$3e01e000,$3e01e000,$3f01e000
  662.     dc.l    $1f03c000,$1f03c000,$1f83c000,$f878000
  663.     dc.l    $f878000,$f878000,$7cf0000,$7cf0000
  664.     dc.l    $7cf0000,$3ce0000,$3ee0000,$1fc0000
  665.     dc.l    $1fc0000,$1fc0000,$f80000,$0
  666.     dc.l    $0,$0,$0,$0
  667.     dc.l    $0,$0,$0
  668.     dc.l    0
  669. *** [1|2]
  670.     dc.l    $0,$0,$701fc038,$781fe078
  671.     dc.l    $781fe078,$781de078,$7c3ce078,$3c3cf0f0
  672.     dc.l    $3c3cf0f0,$3c3cf0f0,$3c3870f0,$1e7878e0
  673.     dc.l    $1e7879e0,$1e7879e0,$1e7079e0,$e7039c0
  674.     dc.l    $e7039c0,$e7039c0,$ef03dc0,$fe01fc0
  675.     dc.l    $7e01f80,$7e01f80,$7c01f80,$0
  676.     dc.l    $0,$0,$0,$0
  677.     dc.l    $0,$0,$0
  678.     dc.l    0
  679. *** [1|3]
  680.     dc.l    $0,$0,$3e03e000,$3f07c000
  681.     dc.l    $1f078000,$1f8f8000,$f9f0000,$7de0000
  682.     dc.l    $3fe0000,$3fc0000,$1f80000,$f80000
  683.     dc.l    $f80000,$1fc0000,$3fc0000,$3de0000
  684.     dc.l    $79f0000,$f8f8000,$f0f8000,$1e07c000
  685.     dc.l    $3e07e000,$7c03e000,$7c03f000,$0
  686.     dc.l    $0,$0,$0,$0
  687.     dc.l    $0,$0,$0
  688.     dc.l    0
  689. *** [1|4]
  690.     dc.l    $0,$0,$7c00f000,$7e01f000
  691.     dc.l    $3e01e000,$3f03e000,$1f83c000,$f878000
  692.     dc.l    $fcf8000,$7cf0000,$7ef0000,$3fe0000
  693.     dc.l    $1fc0000,$1fc0000,$f80000,$f80000
  694.     dc.l    $f80000,$f80000,$f80000,$f80000
  695.     dc.l    $f80000,$f80000,$f80000,$0
  696.     dc.l    $0,$0,$0,$0
  697.     dc.l    $0,$0,$0
  698.     dc.l    0
  699. *** [1|5]
  700.     dc.l    $0,$0,$3fff8000,$3fff8000
  701.     dc.l    $3fff8000,$1f0000,$3f0000,$3e0000
  702.     dc.l    $7e0000,$7c0000,$f80000,$1f80000
  703.     dc.l    $1f00000,$3f00000,$3e00000,$7c00000
  704.     dc.l    $fc00000,$f800000,$1f800000,$1f000000
  705.     dc.l    $3fff8000,$3fff8000,$3fff8000,$0
  706.     dc.l    $0,$0,$0,$0
  707.     dc.l    $0,$0,$0
  708.     dc.l    0
  709. *** [1|6]
  710.     dc.l    $0,$0,$7fffc0,$7fffc0
  711.     dc.l    $3f03c0,$3f00c0,$3f00c0,$770000
  712.     dc.l    $770000,$770000,$f70700,$c70700
  713.     dc.l    $c7ff00,$1c70700,$1ff0700,$1ff0700
  714.     dc.l    $1870000,$3870000,$3070060,$3070060
  715.     dc.l    $f0700e0,$7f9fffe0,$7f9fffe0,$0
  716.     dc.l    $0,$0,$0,$0
  717.     dc.l    $0,$0,$0
  718.     dc.l    0
  719. *** [1|7]
  720.     dc.l    $0,$700,$fe0e00,$3ff9c00
  721.     dc.l    $7c7f800,$f01f000,$1f01f000,$1e00f000
  722.     dc.l    $3e01f800,$3e03f800,$3e07f800,$3e0ef800
  723.     dc.l    $3e1cf800,$3e38f800,$3e70f800,$3ee0f800
  724.     dc.l    $3fc0f800,$1f81f000,$1f81f000,$f01e000
  725.     dc.l    $fc7e000,$1fff8000,$38fe0000,$70000000
  726.     dc.l    $0,$0,$0,$0
  727.     dc.l    $0,$0,$0
  728.     dc.l    0
  729. *** [1|8]
  730.     dc.l    $0,$f00000,$1980000,$1980000
  731.     dc.l    $f00000,$f80000,$1fc0000,$1fc0000
  732.     dc.l    $1fc0000,$3be0000,$39e0000,$79f0000
  733.     dc.l    $79f0000,$71f0000,$f0f8000,$f0f8000
  734.     dc.l    $1e07c000,$1fffc000,$1fffc000,$3fffe000
  735.     dc.l    $3c03e000,$7803f000,$7801f000,$0
  736.     dc.l    $0,$0,$0,$0
  737.     dc.l    $0,$0,$0
  738.     dc.l    0
  739. *** [1|9]
  740.     dc.l    $0,$0,$0,$0
  741.     dc.l    $0,$0,$0,$0
  742.     dc.l    $0,$0,$0,$0
  743.     dc.l    $0,$0,$0,$0
  744.     dc.l    $0,$0,$0,$0
  745.     dc.l    $0,$0,$0,$0
  746.     dc.l    $0,$0,$0,$0
  747.     dc.l    $0,$0,$0
  748.     dc.l    0
  749. *** [1|10]
  750.     dc.l    $0,$0,$0,$0
  751.     dc.l    $0,$0,$0,$0
  752.     dc.l    $0,$0,$0,$0
  753.     dc.l    $0,$0,$0,$0
  754.     dc.l    $0,$0,$0,$0
  755.     dc.l    $0,$0,$0,$0
  756.     dc.l    $0,$0,$0,$0
  757.     dc.l    $0,$0,$0
  758.     dc.l    0
  759. *** [1|11]
  760.     dc.l    $0,$0,$0,$0
  761.     dc.l    $0,$0,$0,$0
  762.     dc.l    $0,$0,$0,$0
  763.     dc.l    $0,$0,$0,$0
  764.     dc.l    $0,$0,$0,$0
  765.     dc.l    $0,$0,$0,$0
  766.     dc.l    $0,$0,$0,$0
  767.     dc.l    $0,$0,$0
  768.     dc.l    0
  769. *** [1|12]
  770.     dc.l    $0,$0,$0,$0
  771.     dc.l    $0,$0,$0,$0
  772.     dc.l    $0,$0,$0,$0
  773.     dc.l    $0,$0,$0,$0
  774.     dc.l    $0,$0,$0,$0
  775.     dc.l    $0,$0,$0,$0
  776.     dc.l    $0,$0,$0,$0
  777.     dc.l    $0,$0,$0
  778.     dc.l    0
  779. *** [1|13]
  780.     dc.l    $0,$0,$0,$0
  781.     dc.l    $0,$0,$0,$0
  782.     dc.l    $0,$0,$0,$0
  783.     dc.l    $0,$0,$0,$0
  784.     dc.l    $0,$0,$0,$0
  785.     dc.l    $0,$0,$0,$0
  786.     dc.l    $0,$0,$0,$0
  787.     dc.l    $0,$0,$0
  788.     dc.l    0
  789. *** [1|14]
  790.     dc.l    $0,$0,$0,$0
  791.     dc.l    $0,$0,$0,$0
  792.     dc.l    $0,$0,$0,$0
  793.     dc.l    $0,$0,$0,$0
  794.     dc.l    $0,$0,$0,$0
  795.     dc.l    $0,$0,$0,$0
  796.     dc.l    $0,$0,$0,$0
  797.     dc.l    $0,$0,$0
  798.     dc.l    0
  799. *** [1|15]
  800.     dc.l    $0,$0,$0,$0
  801.     dc.l    $0,$0,$0,$0
  802.     dc.l    $0,$0,$0,$0
  803.     dc.l    $0,$0,$0,$0
  804.     dc.l    $0,$0,$0,$0
  805.     dc.l    $0,$0,$0,$0
  806.     dc.l    $0,$0,$0,$0
  807.     dc.l    $0,$0,$0
  808.     dc.l    0
  809. *** [1|16]
  810.     dc.l    $0,$0,$0,$0
  811.     dc.l    $0,$0,$0,$0
  812.     dc.l    $0,$0,$0,$0
  813.     dc.l    $0,$0,$0,$0
  814.     dc.l    $0,$0,$0,$0
  815.     dc.l    $0,$0,$0,$0
  816.     dc.l    $0,$0,$0,$0
  817.     dc.l    $0,$0,$0
  818.     dc.l    0
  819. *** [1|17]
  820.     dc.l    $0,$0,$0,$0
  821.     dc.l    $0,$0,$0,$0
  822.     dc.l    $0,$0,$0,$0
  823.     dc.l    $0,$0,$0,$0
  824.     dc.l    $0,$0,$0,$0
  825.     dc.l    $0,$0,$0,$0
  826.     dc.l    $0,$0,$0,$0
  827.     dc.l    $0,$0,$0
  828.     dc.l    0
  829. *** [1|18]
  830.     dc.l    $0,$0,$0,$0
  831.     dc.l    $0,$0,$0,$0
  832.     dc.l    $0,$0,$0,$0
  833.     dc.l    $0,$0,$0,$0
  834.     dc.l    $0,$0,$0,$0
  835.     dc.l    $0,$0,$0,$0
  836.     dc.l    $0,$0,$0,$0
  837.     dc.l    $0,$0,$0
  838.     dc.l    0
  839. *** [1|19]
  840.     dc.l    $0,$0,$0,$0
  841.     dc.l    $0,$0,$0,$0
  842.     dc.l    $0,$0,$0,$0
  843.     dc.l    $0,$0,$0,$0
  844.     dc.l    $0,$0,$0,$0
  845.     dc.l    $0,$0,$0,$0
  846.     dc.l    $0,$0,$0,$0
  847.     dc.l    $0,$0,$0
  848.     dc.l    0
  849. *** [2|0]
  850.     dc.l    $0,$0,$0,$0
  851.     dc.l    $0,$0,$0,$0
  852.     dc.l    $0,$fe00000,$3ff00000,$30780000
  853.     dc.l    $20780000,$780000,$1f80000,$1ff80000
  854.     dc.l    $3c780000,$78780000,$78780000,$78780000
  855.     dc.l    $78f80000,$3ff80000,$f780000,$0
  856.     dc.l    $0,$0,$0,$0
  857.     dc.l    $0,$0,$0
  858.     dc.l    0
  859. *** [2|1]
  860.     dc.l    $0,$0,$3c000000,$3c000000
  861.     dc.l    $3c000000,$3c000000,$3c000000,$3c000000
  862.     dc.l    $3c000000,$3df00000,$3ff80000,$3c3c0000
  863.     dc.l    $3c1c0000,$3c1e0000,$3c1e0000,$3c1e0000
  864.     dc.l    $3c1e0000,$3c1e0000,$3c1e0000,$3c1c0000
  865.     dc.l    $3c3c0000,$3ff80000,$3de00000,$0
  866.     dc.l    $0,$0,$0,$0
  867.     dc.l    $0,$0,$0
  868.     dc.l    0
  869. *** [2|2]
  870.     dc.l    $0,$0,$0,$0
  871.     dc.l    $0,$0,$0,$0
  872.     dc.l    $0,$7e00000,$1ff80000,$3c180000
  873.     dc.l    $38000000,$78000000,$78000000,$78000000
  874.     dc.l    $78000000,$78000000,$78000000,$38080000
  875.     dc.l    $3c380000,$1ff80000,$7e00000,$0
  876.     dc.l    $0,$0,$0,$0
  877.     dc.l    $0,$0,$0
  878.     dc.l    0
  879. *** [2|3]
  880.     dc.l    $0,$0,$3c0000,$3c0000
  881.     dc.l    $3c0000,$3c0000,$3c0000,$3c0000
  882.     dc.l    $3c0000,$7bc0000,$1ffc0000,$3c3c0000
  883.     dc.l    $383c0000,$783c0000,$783c0000,$783c0000
  884.     dc.l    $783c0000,$783c0000,$783c0000,$383c0000
  885.     dc.l    $3c3c0000,$1ffc0000,$7bc0000,$0
  886.     dc.l    $0,$0,$0,$0
  887.     dc.l    $0,$0,$0
  888.     dc.l    0
  889. *** [2|4]
  890.     dc.l    $0,$0,$0,$0
  891.     dc.l    $0,$0,$0,$0
  892.     dc.l    $0,$7c00000,$1ff00000,$3c700000
  893.     dc.l    $78780000,$78380000,$78380000,$7ff80000
  894.     dc.l    $7ff80000,$78000000,$78000000,$38000000
  895.     dc.l    $3c180000,$1ff80000,$7e00000,$0
  896.     dc.l    $0,$0,$0,$0
  897.     dc.l    $0,$0,$0
  898.     dc.l    0
  899. *** [2|5]
  900.     dc.l    $0,$0,$7c00000,$fc00000
  901.     dc.l    $1e400000,$1e000000,$1e000000,$1e000000
  902.     dc.l    $1e000000,$ff000000,$ff000000,$1e000000
  903.     dc.l    $1e000000,$1e000000,$1e000000,$1e000000
  904.     dc.l    $1e000000,$1e000000,$1e000000,$1e000000
  905.     dc.l    $1e000000,$1e000000,$1e000000,$0
  906.     dc.l    $0,$0,$0,$0
  907.     dc.l    $0,$0,$0
  908.     dc.l    0
  909. *** [2|6]
  910.     dc.l    $0,$0,$0,$0
  911.     dc.l    $0,$0,$0,$0
  912.     dc.l    $0,$f8e0000,$3ffe0000,$38e00000
  913.     dc.l    $78f00000,$78f00000,$78f00000,$78f00000
  914.     dc.l    $38e00000,$3fe00000,$2f800000,$30000000
  915.     dc.l    $3fe00000,$3ff80000,$3ff80000,$3ffc0000
  916.     dc.l    $701c0000,$701c0000,$701c0000,$38380000
  917.     dc.l    $3ff80000,$fe00000,$0
  918.     dc.l    0
  919. *** [2|7]
  920.     dc.l    $0,$0,$3c000000,$3c000000
  921.     dc.l    $3c000000,$3c000000,$3c000000,$3c000000
  922.     dc.l    $3c000000,$3cf00000,$3df80000,$3e3c0000
  923.     dc.l    $3e3c0000,$3c3c0000,$3c3c0000,$3c3c0000
  924.     dc.l    $3c3c0000,$3c3c0000,$3c3c0000,$3c3c0000
  925.     dc.l    $3c3c0000,$3c3c0000,$3c3c0000,$0
  926.     dc.l    $0,$0,$0,$0
  927.     dc.l    $0,$0,$0
  928.     dc.l    0
  929. *** [2|8]
  930.     dc.l    $0,$f8000000,$f8000000,$f8000000
  931.     dc.l    $f8000000,$f8000000,$0,$0
  932.     dc.l    $0,$78000000,$78000000,$78000000
  933.     dc.l    $78000000,$78000000,$78000000,$78000000
  934.     dc.l    $78000000,$78000000,$78000000,$78000000
  935.     dc.l    $78000000,$78000000,$78000000,$0
  936.     dc.l    $0,$0,$0,$0
  937.     dc.l    $0,$0,$0
  938.     dc.l    0
  939. *** [2|9]
  940.     dc.l    $0,$1f000000,$1f000000,$1f000000
  941.     dc.l    $1f000000,$1f000000,$0,$0
  942.     dc.l    $0,$f000000,$f000000,$f000000
  943.     dc.l    $f000000,$f000000,$f000000,$f000000
  944.     dc.l    $f000000,$f000000,$f000000,$f000000
  945.     dc.l    $f000000,$f000000,$f000000,$f000000
  946.     dc.l    $f000000,$f000000,$df000000,$fe000000
  947.     dc.l    $7c000000,$0,$0
  948.     dc.l    0
  949. *** [2|10]
  950.     dc.l    $0,$0,$3c000000,$3c000000
  951.     dc.l    $3c000000,$3c000000,$3c000000,$3c000000
  952.     dc.l    $3c000000,$3cfc0000,$3cf80000,$3df00000
  953.     dc.l    $3fe00000,$3fc00000,$3fc00000,$3fc00000
  954.     dc.l    $3fe00000,$3fe00000,$3df00000,$3cf80000
  955.     dc.l    $3cf80000,$3c7c0000,$3c3c0000,$0
  956.     dc.l    $0,$0,$0,$0
  957.     dc.l    $0,$0,$0
  958.     dc.l    0
  959. *** [2|11]
  960.     dc.l    $0,$0,$78000000,$78000000
  961.     dc.l    $78000000,$78000000,$78000000,$78000000
  962.     dc.l    $78000000,$78000000,$78000000,$78000000
  963.     dc.l    $78000000,$78000000,$78000000,$78000000
  964.     dc.l    $78000000,$78000000,$78000000,$78000000
  965.     dc.l    $78000000,$78000000,$78000000,$0
  966.     dc.l    $0,$0,$0,$0
  967.     dc.l    $0,$0,$0
  968.     dc.l    0
  969. *** [2|12]
  970.     dc.l    $0,$0,$0,$0
  971.     dc.l    $0,$0,$0,$0
  972.     dc.l    $0,$3cf87c00,$3dfcfe00,$3f1f8f00
  973.     dc.l    $3e1f0f00,$3c1e0f00,$3c1e0f00,$3c1e0f00
  974.     dc.l    $3c1e0f00,$3c1e0f00,$3c1e0f00,$3c1e0f00
  975.     dc.l    $3c1e0f00,$3c1e0f00,$3c1e0f00,$0
  976.     dc.l    $0,$0,$0,$0
  977.     dc.l    $0,$0,$0
  978.     dc.l    0
  979. *** [2|13]
  980.     dc.l    $0,$0,$0,$0
  981.     dc.l    $0,$0,$0,$0
  982.     dc.l    $0,$3cf00000,$3df80000,$3e3c0000
  983.     dc.l    $3e3c0000,$3c3c0000,$3c3c0000,$3c3c0000
  984.     dc.l    $3c3c0000,$3c3c0000,$3c3c0000,$3c3c0000
  985.     dc.l    $3c3c0000,$3c3c0000,$3c3c0000,$0
  986.     dc.l    $0,$0,$0,$0
  987.     dc.l    $0,$0,$0
  988.     dc.l    0
  989. *** [2|14]
  990.     dc.l    $0,$0,$0,$0
  991.     dc.l    $0,$0,$0,$0
  992.     dc.l    $0,$7c00000,$1ff00000,$3c780000
  993.     dc.l    $38380000,$783c0000,$783c0000,$783c0000
  994.     dc.l    $783c0000,$783c0000,$783c0000,$38380000
  995.     dc.l    $3c780000,$1ff00000,$fe00000,$0
  996.     dc.l    $0,$0,$0,$0
  997.     dc.l    $0,$0,$0
  998.     dc.l    0
  999. *** [2|15]
  1000.     dc.l    $0,$0,$0,$0
  1001.     dc.l    $0,$0,$0,$0
  1002.     dc.l    $0,$3df00000,$3ff80000,$3c3c0000
  1003.     dc.l    $3c3c0000,$3c1e0000,$3c1e0000,$3c1e0000
  1004.     dc.l    $3c1e0000,$3c1e0000,$3c1e0000,$3c3c0000
  1005.     dc.l    $3c3c0000,$3ff80000,$3de00000,$3c000000
  1006.     dc.l    $3c000000,$3c000000,$3c000000,$3c000000
  1007.     dc.l    $3c000000,$0,$0
  1008.     dc.l    0
  1009. *** [2|16]
  1010.     dc.l    $0,$0,$0,$0
  1011.     dc.l    $0,$0,$0,$0
  1012.     dc.l    $0,$7bc0000,$1ffc0000,$3c3c0000
  1013.     dc.l    $3c3c0000,$783c0000,$783c0000,$783c0000
  1014.     dc.l    $783c0000,$783c0000,$783c0000,$3c3c0000
  1015.     dc.l    $3c3c0000,$1ffc0000,$7bc0000,$3c0000
  1016.     dc.l    $3c0000,$3c0000,$3c0000,$3c0000
  1017.     dc.l    $3c0000,$0,$0
  1018.     dc.l    0
  1019. *** [2|17]
  1020.     dc.l    $0,$0,$0,$0
  1021.     dc.l    $0,$0,$0,$0
  1022.     dc.l    $0,$3cc00000,$3dc00000,$3fc00000
  1023.     dc.l    $3f000000,$3e000000,$3c000000,$3c000000
  1024.     dc.l    $3c000000,$3c000000,$3c000000,$3c000000
  1025.     dc.l    $3c000000,$3c000000,$3c000000,$0
  1026.     dc.l    $0,$0,$0,$0
  1027.     dc.l    $0,$0,$0
  1028.     dc.l    0
  1029. *** [2|18]
  1030.     dc.l    $0,$0,$0,$0
  1031.     dc.l    $0,$0,$0,$0
  1032.     dc.l    $0,$1f800000,$3fc00000,$70c00000
  1033.     dc.l    $70000000,$70000000,$7f000000,$3f800000
  1034.     dc.l    $1fc00000,$7e00000,$e00000,$40e00000
  1035.     dc.l    $70e00000,$7fc00000,$1f800000,$0
  1036.     dc.l    $0,$0,$0,$0
  1037.     dc.l    $0,$0,$0
  1038.     dc.l    0
  1039. *** [2|19]
  1040.     dc.l    $0,$0,$0,$0
  1041.     dc.l    $0,$1e000000,$1e000000,$1e000000
  1042.     dc.l    $1e000000,$7fc00000,$7fc00000,$1e000000
  1043.     dc.l    $1e000000,$1e000000,$1e000000,$1e000000
  1044.     dc.l    $1e000000,$1e000000,$1e000000,$1e000000
  1045.     dc.l    $1e400000,$1fc00000,$f000000,$0
  1046.     dc.l    $0,$0,$0,$0
  1047.     dc.l    $0,$0,$0
  1048.     dc.l    0
  1049. *** [3|0]
  1050.     dc.l    $0,$0,$0,$0
  1051.     dc.l    $0,$0,$0,$0
  1052.     dc.l    $0,$3c3c0000,$3c3c0000,$3c3c0000
  1053.     dc.l    $3c3c0000,$3c3c0000,$3c3c0000,$3c3c0000
  1054.     dc.l    $3c3c0000,$3c3c0000,$3c3c0000,$3c3c0000
  1055.     dc.l    $3c7c0000,$1ffc0000,$f3c0000,$0
  1056.     dc.l    $0,$0,$0,$0
  1057.     dc.l    $0,$0,$0
  1058.     dc.l    0
  1059. *** [3|1]
  1060.     dc.l    $0,$0,$0,$0
  1061.     dc.l    $0,$0,$0,$0
  1062.     dc.l    $0,$78380000,$78780000,$78780000
  1063.     dc.l    $78780000,$3cf00000,$3cf00000,$3cf00000
  1064.     dc.l    $3cf00000,$1ce00000,$1ee00000,$1fe00000
  1065.     dc.l    $fc00000,$fc00000,$fc00000,$0
  1066.     dc.l    $0,$0,$0,$0
  1067.     dc.l    $0,$0,$0
  1068.     dc.l    0
  1069. *** [3|2]
  1070.     dc.l    $0,$0,$0,$0
  1071.     dc.l    $0,$0,$0,$0
  1072.     dc.l    $0,$70f07000,$78f8f000,$78f8f000
  1073.     dc.l    $78f8f000,$39b8e000,$3dbde000,$3dbde000
  1074.     dc.l    $3dbde000,$3d9de000,$1d1dc000,$1f1fc000
  1075.     dc.l    $1f1fc000,$1f1fc000,$e0f8000,$0
  1076.     dc.l    $0,$0,$0,$0
  1077.     dc.l    $0,$0,$0
  1078.     dc.l    0
  1079. *** [3|3]
  1080.     dc.l    $0,$0,$0,$0
  1081.     dc.l    $0,$0,$0,$0
  1082.     dc.l    $0,$78780000,$7cf00000,$3df00000
  1083.     dc.l    $1fe00000,$fc00000,$fc00000,$7800000
  1084.     dc.l    $7800000,$fc00000,$1fe00000,$3ce00000
  1085.     dc.l    $3cf00000,$78780000,$78780000,$0
  1086.     dc.l    $0,$0,$0,$0
  1087.     dc.l    $0,$0,$0
  1088.     dc.l    0
  1089. *** [3|4]
  1090.     dc.l    $0,$0,$0,$0
  1091.     dc.l    $0,$0,$0,$0
  1092.     dc.l    $0,$78380000,$78780000,$7c780000
  1093.     dc.l    $3c780000,$3c700000,$1cf00000,$1ef00000
  1094.     dc.l    $1ee00000,$ee00000,$ee00000,$7c00000
  1095.     dc.l    $7c00000,$7c00000,$3c00000,$3800000
  1096.     dc.l    $3800000,$7800000,$7f000000,$7e000000
  1097.     dc.l    $7c000000,$0,$0
  1098.     dc.l    0
  1099. *** [3|5]
  1100.     dc.l    $0,$0,$0,$0
  1101.     dc.l    $0,$0,$0,$0
  1102.     dc.l    $0,$7ff00000,$7ff00000,$1f00000
  1103.     dc.l    $1e00000,$3c00000,$7c00000,$7800000
  1104.     dc.l    $f000000,$1f000000,$1e000000,$3c000000
  1105.     dc.l    $7c000000,$7ff00000,$7ff00000,$0
  1106.     dc.l    $0,$0,$0,$0
  1107.     dc.l    $0,$0,$0
  1108.     dc.l    0
  1109. *** [3|6]
  1110.     dc.l    $0,$0,$0,$0
  1111.     dc.l    $0,$0,$0,$0
  1112.     dc.l    $0,$1f9f0000,$39fb8000,$38f1c000
  1113.     dc.l    $38f1c000,$f1c000,$7ffc000,$1ff00000
  1114.     dc.l    $38f00000,$70f00000,$70f00000,$71f8c000
  1115.     dc.l    $7fff8000,$7fff8000,$3e1f0000,$0
  1116.     dc.l    $0,$0,$0,$0
  1117.     dc.l    $0,$0,$0
  1118.     dc.l    0
  1119. *** [3|7]
  1120.     dc.l    $0,$0,$0,$0
  1121.     dc.l    $0,$0,$0,$30000
  1122.     dc.l    $60000,$7cc0000,$1ff80000,$3c780000
  1123.     dc.l    $38380000,$787c0000,$78fc0000,$79bc0000
  1124.     dc.l    $7b3c0000,$7e3c0000,$7c3c0000,$38380000
  1125.     dc.l    $3c780000,$3ff00000,$6fe00000,$c0000000
  1126.     dc.l    $0,$0,$0,$0
  1127.     dc.l    $0,$0,$0
  1128.     dc.l    0
  1129. *** [3|8]
  1130.     dc.l    $0,$0,$0,$0
  1131.     dc.l    $3c00000,$6600000,$6600000,$6600000
  1132.     dc.l    $3c00000,$fe00000,$3ff00000,$30780000
  1133.     dc.l    $20780000,$780000,$1f80000,$1ff80000
  1134.     dc.l    $3c780000,$78780000,$78780000,$78780000
  1135.     dc.l    $78f80000,$3ff80000,$f780000,$0
  1136.     dc.l    $0,$0,$0,$0
  1137.     dc.l    $0,$0,$0
  1138.     dc.l    0
  1139. *** [3|9]
  1140.     dc.l    $0,$0,$fc0000,$7038000
  1141.     dc.l    $8004000,$8784000,$10842000,$11002000
  1142.     dc.l    $11002000,$11002000,$10842000,$8784000
  1143.     dc.l    $8004000,$7038000,$fc0000,$0
  1144.     dc.l    $0,$0,$0,$0
  1145.     dc.l    $0,$0,$0,$0
  1146.     dc.l    $0,$0,$0,$0
  1147.     dc.l    $0,$0,$0
  1148.     dc.l    0
  1149. *** [3|10]
  1150.     dc.l    $0,$0,$fc0000,$7038000
  1151.     dc.l    $8004000,$8f84000,$10842000,$10842000
  1152.     dc.l    $10f82000,$10882000,$10842000,$8844000
  1153.     dc.l    $8004000,$7038000,$fc0000,$0
  1154.     dc.l    $0,$0,$0,$0
  1155.     dc.l    $0,$0,$0,$0
  1156.     dc.l    $0,$0,$0,$0
  1157.     dc.l    $0,$0,$0
  1158.     dc.l    0
  1159. *** [3|11]
  1160.     dc.l    $0,$0,$0,$0
  1161.     dc.l    $0,$0,$0,$0
  1162.     dc.l    $0,$0,$0,$0
  1163.     dc.l    $0,$0,$0,$0
  1164.     dc.l    $0,$0,$0,$0
  1165.     dc.l    $0,$0,$0,$0
  1166.     dc.l    $0,$0,$0,$0
  1167.     dc.l    $0,$0,$0
  1168.     dc.l    0
  1169. *** [3|12]
  1170.     dc.l    $0,$0,$0,$0
  1171.     dc.l    $0,$0,$0,$0
  1172.     dc.l    $0,$0,$0,$0
  1173.     dc.l    $0,$0,$0,$0
  1174.     dc.l    $0,$0,$0,$0
  1175.     dc.l    $0,$0,$0,$0
  1176.     dc.l    $0,$0,$0,$0
  1177.     dc.l    $0,$0,$0
  1178.     dc.l    0
  1179. *** [3|13]
  1180.     dc.l    $0,$0,$0,$0
  1181.     dc.l    $0,$0,$0,$0
  1182.     dc.l    $0,$0,$0,$0
  1183.     dc.l    $0,$0,$0,$0
  1184.     dc.l    $0,$0,$0,$0
  1185.     dc.l    $0,$0,$0,$0
  1186.     dc.l    $0,$0,$0,$0
  1187.     dc.l    $0,$0,$0
  1188.     dc.l    0
  1189. *** [3|14]
  1190.     dc.l    $0,$0,$0,$0
  1191.     dc.l    $0,$0,$0,$0
  1192.     dc.l    $0,$0,$0,$0
  1193.     dc.l    $0,$0,$0,$0
  1194.     dc.l    $0,$0,$0,$0
  1195.     dc.l    $0,$0,$0,$0
  1196.     dc.l    $0,$0,$0,$0
  1197.     dc.l    $0,$0,$0
  1198.     dc.l    0
  1199. *** [3|15]
  1200.     dc.l    $0,$0,$0,$0
  1201.     dc.l    $0,$0,$0,$0
  1202.     dc.l    $0,$0,$0,$0
  1203.     dc.l    $0,$0,$0,$0
  1204.     dc.l    $0,$0,$0,$0
  1205.     dc.l    $0,$0,$0,$0
  1206.     dc.l    $0,$0,$0,$0
  1207.     dc.l    $0,$0,$0
  1208.     dc.l    0
  1209. *** [3|16]
  1210.     dc.l    $0,$0,$0,$0
  1211.     dc.l    $0,$0,$0,$0
  1212.     dc.l    $0,$0,$0,$0
  1213.     dc.l    $0,$0,$0,$0
  1214.     dc.l    $0,$0,$0,$0
  1215.     dc.l    $0,$0,$0,$0
  1216.     dc.l    $0,$0,$0,$0
  1217.     dc.l    $0,$0,$0
  1218.     dc.l    0
  1219. *** [3|17]
  1220.     dc.l    $0,$0,$0,$0
  1221.     dc.l    $0,$0,$0,$0
  1222.     dc.l    $0,$0,$0,$0
  1223.     dc.l    $0,$0,$0,$0
  1224.     dc.l    $0,$0,$0,$0
  1225.     dc.l    $0,$0,$0,$0
  1226.     dc.l    $0,$0,$0,$0
  1227.     dc.l    $0,$0,$0
  1228.     dc.l    0
  1229. *** [3|18]
  1230.     dc.l    $0,$0,$0,$0
  1231.     dc.l    $0,$0,$0,$0
  1232.     dc.l    $0,$0,$0,$0
  1233.     dc.l    $0,$0,$0,$0
  1234.     dc.l    $0,$0,$0,$0
  1235.     dc.l    $0,$0,$0,$0
  1236.     dc.l    $0,$0,$0,$0
  1237.     dc.l    $0,$0,$0
  1238.     dc.l    0
  1239. *** [3|19]
  1240.     dc.l    $0,$0,$0,$0
  1241.     dc.l    $0,$0,$0,$0
  1242.     dc.l    $0,$0,$0,$0
  1243.     dc.l    $0,$0,$0,$0
  1244.     dc.l    $0,$0,$0,$0
  1245.     dc.l    $0,$0,$0,$0
  1246.     dc.l    $0,$0,$0,$0
  1247.     dc.l    $0,$0,$0
  1248.     dc.l    0
  1249. *** [4|0]
  1250.     dc.l    $0,$0,$1800000,$3800000
  1251.     dc.l    $3f800000,$3f800000,$7800000,$7800000
  1252.     dc.l    $7800000,$7800000,$7800000,$7800000
  1253.     dc.l    $7800000,$7800000,$7800000,$7800000
  1254.     dc.l    $7800000,$7800000,$7800000,$7800000
  1255.     dc.l    $7800000,$1ff80000,$1ff80000,$0
  1256.     dc.l    $0,$0,$0,$0
  1257.     dc.l    $0,$0,$0
  1258.     dc.l    0
  1259. *** [4|1]
  1260.     dc.l    $0,$0,$f800000,$1fe00000
  1261.     dc.l    $3ff00000,$70f00000,$20f80000,$20780000
  1262.     dc.l    $780000,$780000,$f80000,$f00000
  1263.     dc.l    $f00000,$1e00000,$3c00000,$3800000
  1264.     dc.l    $7000000,$e000000,$c000000,$1c000000
  1265.     dc.l    $3ff80000,$3ff80000,$3ff80000,$0
  1266.     dc.l    $0,$0,$0,$0
  1267.     dc.l    $0,$0,$0
  1268.     dc.l    0
  1269. *** [4|2]
  1270.     dc.l    $0,$0,$7c00000,$fe00000
  1271.     dc.l    $1ff00000,$38f80000,$10f80000,$f80000
  1272.     dc.l    $f80000,$f00000,$f00000,$7e00000
  1273.     dc.l    $7e00000,$f80000,$780000,$7c0000
  1274.     dc.l    $7c0000,$7c0000,$407c0000,$70780000
  1275.     dc.l    $7ff80000,$3ff00000,$fc00000,$0
  1276.     dc.l    $0,$0,$0,$0
  1277.     dc.l    $0,$0,$0
  1278.     dc.l    0
  1279. *** [4|3]
  1280.     dc.l    $0,$0,$1f00000,$1f00000
  1281.     dc.l    $3f00000,$2f00000,$6f00000,$6f00000
  1282.     dc.l    $ef00000,$cf00000,$cf00000,$1cf00000
  1283.     dc.l    $1cf00000,$38f00000,$38f00000,$70f00000
  1284.     dc.l    $7ffc0000,$7ffc0000,$7ffc0000,$f00000
  1285.     dc.l    $f00000,$f00000,$f00000,$0
  1286.     dc.l    $0,$0,$0,$0
  1287.     dc.l    $0,$0,$0
  1288.     dc.l    0
  1289. *** [4|4]
  1290.     dc.l    $0,$0,$3ff00000,$3ff00000
  1291.     dc.l    $3ff00000,$3c000000,$3c000000,$3c000000
  1292.     dc.l    $3c000000,$3c000000,$3fc00000,$3fe00000
  1293.     dc.l    $3cf00000,$38f80000,$f80000,$f80000
  1294.     dc.l    $f80000,$20f80000,$20f80000,$70f00000
  1295.     dc.l    $3ff00000,$1fe00000,$f800000,$0
  1296.     dc.l    $0,$0,$0,$0
  1297.     dc.l    $0,$0,$0
  1298.     dc.l    0
  1299. *** [4|5]
  1300.     dc.l    $0,$0,$3c00000,$fe00000
  1301.     dc.l    $1fe00000,$1e200000,$3c000000,$3c000000
  1302.     dc.l    $78000000,$78000000,$7bf00000,$7ff80000
  1303.     dc.l    $7c380000,$783c0000,$783c0000,$783c0000
  1304.     dc.l    $783c0000,$783c0000,$383c0000,$3c780000
  1305.     dc.l    $1ff80000,$ff00000,$7c00000,$0
  1306.     dc.l    $0,$0,$0,$0
  1307.     dc.l    $0,$0,$0
  1308.     dc.l    0
  1309. *** [4|6]
  1310.     dc.l    $0,$0,$7ffc0000,$7ffc0000
  1311.     dc.l    $7ffc0000,$380000,$780000,$f00000
  1312.     dc.l    $f00000,$1f00000,$3e00000,$3e00000
  1313.     dc.l    $3c00000,$7c00000,$7c00000,$7c00000
  1314.     dc.l    $fc00000,$f800000,$f800000,$f800000
  1315.     dc.l    $f800000,$f800000,$f800000,$0
  1316.     dc.l    $0,$0,$0,$0
  1317.     dc.l    $0,$0,$0
  1318.     dc.l    0
  1319. *** [4|7]
  1320.     dc.l    $0,$0,$7c00000,$1ff00000
  1321.     dc.l    $1ff00000,$3c780000,$3c780000,$3c780000
  1322.     dc.l    $3c780000,$3c780000,$1ef00000,$7c00000
  1323.     dc.l    $1ff00000,$38380000,$783c0000,$783c0000
  1324.     dc.l    $783c0000,$783c0000,$783c0000,$7c7c0000
  1325.     dc.l    $3ff80000,$1ff00000,$fe00000,$0
  1326.     dc.l    $0,$0,$0,$0
  1327.     dc.l    $0,$0,$0
  1328.     dc.l    0
  1329. *** [4|8]
  1330.     dc.l    $0,$0,$7c00000,$1fe00000
  1331.     dc.l    $3ff00000,$3c780000,$78380000,$783c0000
  1332.     dc.l    $783c0000,$783c0000,$783c0000,$783c0000
  1333.     dc.l    $387c0000,$3ffc0000,$1fbc0000,$3c0000
  1334.     dc.l    $3c0000,$380000,$780000,$10f00000
  1335.     dc.l    $1ff00000,$3fe00000,$1f800000,$0
  1336.     dc.l    $0,$0,$0,$0
  1337.     dc.l    $0,$0,$0
  1338.     dc.l    0
  1339. *** [4|9]
  1340.     dc.l    $0,$0,$7c00000,$1ff00000
  1341.     dc.l    $3c780000,$3c780000,$38380000,$783c0000
  1342.     dc.l    $783c0000,$783c0000,$783c0000,$783c0000
  1343.     dc.l    $783c0000,$783c0000,$783c0000,$783c0000
  1344.     dc.l    $783c0000,$783c0000,$38380000,$3c780000
  1345.     dc.l    $3c780000,$1ff00000,$7c00000,$0
  1346.     dc.l    $0,$0,$0,$0
  1347.     dc.l    $0,$0,$0
  1348.     dc.l    0
  1349. *** [4|10]
  1350.     dc.l    $0,$0,$0,$0
  1351.     dc.l    $0,$0,$0,$0
  1352.     dc.l    $0,$3c000000,$3c000000,$3c000000
  1353.     dc.l    $3c000000,$0,$0,$0
  1354.     dc.l    $0,$0,$0,$3c000000
  1355.     dc.l    $3c000000,$3c000000,$3c000000,$0
  1356.     dc.l    $0,$0,$0,$0
  1357.     dc.l    $0,$0,$0
  1358.     dc.l    0
  1359. *** [4|11]
  1360.     dc.l    $0,$0,$0,$0
  1361.     dc.l    $0,$0,$0,$0
  1362.     dc.l    $0,$3c000000,$3c000000,$3c000000
  1363.     dc.l    $3c000000,$0,$0,$0
  1364.     dc.l    $0,$0,$0,$3c000000
  1365.     dc.l    $3c000000,$3c000000,$3c000000,$18000000
  1366.     dc.l    $30000000,$70000000,$0,$0
  1367.     dc.l    $0,$0,$0
  1368.     dc.l    0
  1369. *** [4|12]
  1370.     dc.l    $0,$0,$0,$0
  1371.     dc.l    $0,$0,$0,$0
  1372.     dc.l    $0,$0,$0,$0
  1373.     dc.l    $0,$0,$0,$0
  1374.     dc.l    $0,$0,$0,$0
  1375.     dc.l    $0,$0,$0,$0
  1376.     dc.l    $0,$0,$0,$0
  1377.     dc.l    $0,$0,$0
  1378.     dc.l    0
  1379. *** [4|13]
  1380.     dc.l    $0,$0,$0,$0
  1381.     dc.l    $0,$0,$0,$0
  1382.     dc.l    $0,$0,$0,$0
  1383.     dc.l    $0,$0,$0,$0
  1384.     dc.l    $0,$0,$0,$0
  1385.     dc.l    $0,$0,$0,$0
  1386.     dc.l    $0,$0,$0,$0
  1387.     dc.l    $0,$0,$0
  1388.     dc.l    0
  1389. *** [4|14]
  1390.     dc.l    $0,$0,$0,$0
  1391.     dc.l    $0,$0,$0,$0
  1392.     dc.l    $0,$0,$0,$0
  1393.     dc.l    $0,$0,$0,$0
  1394.     dc.l    $0,$0,$0,$0
  1395.     dc.l    $0,$0,$0,$0
  1396.     dc.l    $0,$0,$0,$0
  1397.     dc.l    $0,$0,$0
  1398.     dc.l    0
  1399. *** [4|15]
  1400.     dc.l    $0,$0,$0,$0
  1401.     dc.l    $0,$0,$0,$0
  1402.     dc.l    $0,$0,$0,$0
  1403.     dc.l    $0,$0,$0,$0
  1404.     dc.l    $0,$0,$0,$0
  1405.     dc.l    $0,$0,$0,$0
  1406.     dc.l    $0,$0,$0,$0
  1407.     dc.l    $0,$0,$0
  1408.     dc.l    0
  1409. *** [4|16]
  1410.     dc.l    $0,$0,$0,$0
  1411.     dc.l    $0,$0,$0,$0
  1412.     dc.l    $0,$0,$0,$0
  1413.     dc.l    $0,$0,$0,$0
  1414.     dc.l    $0,$0,$0,$0
  1415.     dc.l    $0,$0,$0,$0
  1416.     dc.l    $0,$0,$0,$0
  1417.     dc.l    $0,$0,$0
  1418.     dc.l    0
  1419. *** [4|17]
  1420.     dc.l    $0,$0,$0,$0
  1421.     dc.l    $0,$0,$0,$0
  1422.     dc.l    $0,$0,$0,$0
  1423.     dc.l    $0,$0,$0,$0
  1424.     dc.l    $0,$0,$0,$0
  1425.     dc.l    $0,$0,$0,$0
  1426.     dc.l    $0,$0,$0,$0
  1427.     dc.l    $0,$0,$0
  1428.     dc.l    0
  1429. *** [4|18]
  1430.     dc.l    $0,$0,$0,$0
  1431.     dc.l    $0,$0,$0,$0
  1432.     dc.l    $0,$0,$0,$0
  1433.     dc.l    $0,$0,$0,$0
  1434.     dc.l    $0,$0,$0,$0
  1435.     dc.l    $0,$0,$0,$0
  1436.     dc.l    $0,$0,$0,$0
  1437.     dc.l    $0,$0,$0
  1438.     dc.l    0
  1439. *** [4|19]
  1440.     dc.l    $0,$0,$0,$0
  1441.     dc.l    $0,$0,$0,$0
  1442.     dc.l    $0,$0,$0,$0
  1443.     dc.l    $0,$0,$0,$0
  1444.     dc.l    $0,$0,$0,$0
  1445.     dc.l    $0,$0,$0,$0
  1446.     dc.l    $0,$0,$0,$0
  1447.     dc.l    $0,$0,$0
  1448.     dc.l    0
  1449. *** [5|0]
  1450.     dc.l    $0,$0,$1e000000,$1e000000
  1451.     dc.l    $1e000000,$1e000000,$1e000000,$1e000000
  1452.     dc.l    $1e000000,$1e000000,$1e000000,$1e000000
  1453.     dc.l    $1e000000,$1e000000,$1e000000,$c000000
  1454.     dc.l    $0,$0,$0,$1e000000
  1455.     dc.l    $1e000000,$1e000000,$1e000000,$0
  1456.     dc.l    $0,$0,$0,$0
  1457.     dc.l    $0,$0,$0
  1458.     dc.l    0
  1459. *** [5|1]
  1460.     dc.l    $0,$0,$7f0000,$3ff8000
  1461.     dc.l    $7c3c000,$f01e000,$1e1fe000,$1e7ff000
  1462.     dc.l    $1cf1f000,$3ce0f000,$3de0f000,$3de0f000
  1463.     dc.l    $3de0f000,$3de0f000,$3de0f000,$3ce0e000
  1464.     dc.l    $1cf1e000,$1e7fc000,$1e1f0000,$f000000
  1465.     dc.l    $7c0f000,$3ffe000,$7f0000,$0
  1466.     dc.l    $0,$0,$0,$0
  1467.     dc.l    $0,$0,$0
  1468.     dc.l    0
  1469. *** [5|2]
  1470.     dc.l    $0,$0,$1c3800,$1c3800
  1471.     dc.l    $1c3800,$3c7800,$387000,$387000
  1472.     dc.l    $387000,$78f000,$1ffffe00,$3fffff00
  1473.     dc.l    $3fffff00,$e1c000,$e1c000,$e1c000
  1474.     dc.l    $e1c000,$e1c000,$3fffff00,$3fffff00
  1475.     dc.l    $1ffffe00,$3c78000,$3870000,$3870000
  1476.     dc.l    $3870000,$78f0000,$70e0000,$70e0000
  1477.     dc.l    $70e0000,$0,$0
  1478.     dc.l    0
  1479. *** [5|3]
  1480.     dc.l    $0,$1800000,$7c00000,$ff00000
  1481.     dc.l    $1ff80000,$3db80000,$3d880000,$3d800000
  1482.     dc.l    $3d800000,$3f800000,$3fc00000,$1fe00000
  1483.     dc.l    $ff00000,$7f00000,$1f80000,$1f80000
  1484.     dc.l    $1f80000,$1f80000,$41f80000,$79f80000
  1485.     dc.l    $7ff00000,$3fe00000,$fc00000,$1800000
  1486.     dc.l    $1800000,$0,$0,$0
  1487.     dc.l    $0,$0,$0
  1488.     dc.l    0
  1489. *** [5|4]
  1490.     dc.l    $0,$7800000,$1fe00300,$1fe00700
  1491.     dc.l    $3cf00f00,$3cf01e00,$3cf03c00,$3cf07c00
  1492.     dc.l    $3cf0f800,$3cf0f000,$3cf1e000,$1fe3e000
  1493.     dc.l    $1fe3c000,$7878780,$f8fc0,$1f3ce0
  1494.     dc.l    $1e3cf0,$3c3cf0,$7c3cf0,$783cf0
  1495.     dc.l    $f03cf0,$1f03cf0,$3e03cf0,$3c01ce0
  1496.     dc.l    $3800fc0,$1800780,$0,$0
  1497.     dc.l    $0,$0,$0
  1498.     dc.l    0
  1499. *** [5|5]
  1500.     dc.l    $0,$0,$3800000,$7c00000
  1501.     dc.l    $6c00000,$c600000,$18300000,$0
  1502.     dc.l    $0,$0,$0,$0
  1503.     dc.l    $0,$0,$0,$0
  1504.     dc.l    $0,$0,$0,$0
  1505.     dc.l    $0,$0,$0,$0
  1506.     dc.l    $0,$0,$0,$0
  1507.     dc.l    $0,$0,$0
  1508.     dc.l    0
  1509. *** [5|6]
  1510.     dc.l    $0,$0,$f80000,$1fe0000
  1511.     dc.l    $3df0000,$78f0000,$78f0000,$78f0000
  1512.     dc.l    $79e0000,$7bc2000,$7f82000,$7f06000
  1513.     dc.l    $3c06000,$7e06000,$ff0e000,$1df1e000
  1514.     dc.l    $38f9c000,$787f8000,$783f8000,$7c3f0000
  1515.     dc.l    $7fffe000,$3fffe000,$fe0e000,$0
  1516.     dc.l    $0,$0,$0,$0
  1517.     dc.l    $0,$0,$0
  1518.     dc.l    0
  1519. *** [5|7]
  1520.     dc.l    $0,$3800000,$3800000,$3800000
  1521.     dc.l    $33980000,$793c0000,$3ff80000,$7c00000
  1522.     dc.l    $7c00000,$3ff80000,$793c0000,$33980000
  1523.     dc.l    $3800000,$3800000,$3800000,$0
  1524.     dc.l    $0,$0,$0,$0
  1525.     dc.l    $0,$0,$0,$0
  1526.     dc.l    $0,$0,$0,$0
  1527.     dc.l    $0,$0,$0
  1528.     dc.l    0
  1529. *** [5|8]
  1530.     dc.l    $0,$c00000,$1800000,$3800000
  1531.     dc.l    $7000000,$7000000,$e000000,$e000000
  1532.     dc.l    $1e000000,$1c000000,$1c000000,$3c000000
  1533.     dc.l    $3c000000,$3c000000,$3c000000,$3c000000
  1534.     dc.l    $3c000000,$3c000000,$3c000000,$3c000000
  1535.     dc.l    $1c000000,$1c000000,$1e000000,$e000000
  1536.     dc.l    $e000000,$7000000,$7000000,$3800000
  1537.     dc.l    $1800000,$c00000,$0
  1538.     dc.l    0
  1539. *** [5|9]
  1540.     dc.l    $0,$30000000,$18000000,$1c000000
  1541.     dc.l    $e000000,$e000000,$7000000,$7000000
  1542.     dc.l    $7800000,$3800000,$3800000,$3c00000
  1543.     dc.l    $3c00000,$3c00000,$3c00000,$3c00000
  1544.     dc.l    $3c00000,$3c00000,$3c00000,$3c00000
  1545.     dc.l    $3800000,$3800000,$7800000,$7000000
  1546.     dc.l    $7000000,$e000000,$e000000,$1c000000
  1547.     dc.l    $18000000,$30000000,$0
  1548.     dc.l    0
  1549. *** [5|10]
  1550.     dc.l    $0,$7e000000,$7e000000,$7e000000
  1551.     dc.l    $7e000000,$3c000000,$0,$0
  1552.     dc.l    $0,$0,$0,$0
  1553.     dc.l    $0,$0,$0,$0
  1554.     dc.l    $0,$0,$0,$0
  1555.     dc.l    $0,$0,$0,$0
  1556.     dc.l    $0,$0,$0,$0
  1557.     dc.l    $0,$0,$0
  1558.     dc.l    0
  1559. *** [5|11]
  1560.     dc.l    $0,$0,$0,$0
  1561.     dc.l    $0,$1c0000,$1c0000,$1c0000
  1562.     dc.l    $1c0000,$1c0000,$1c0000,$1c0000
  1563.     dc.l    $1c0000,$1c0000,$3ffffe00,$3ffffe00
  1564.     dc.l    $3ffffe00,$1c0000,$1c0000,$1c0000
  1565.     dc.l    $1c0000,$1c0000,$1c0000,$1c0000
  1566.     dc.l    $1c0000,$1c0000,$0,$0
  1567.     dc.l    $0,$0,$0
  1568.     dc.l    0
  1569. *** [5|12]
  1570.     dc.l    $0,$0,$0,$0
  1571.     dc.l    $0,$0,$0,$0
  1572.     dc.l    $0,$0,$0,$0
  1573.     dc.l    $0,$0,$0,$ff000000
  1574.     dc.l    $ff000000,$0,$0,$0
  1575.     dc.l    $0,$0,$0,$0
  1576.     dc.l    $0,$0,$0,$0
  1577.     dc.l    $0,$0,$0
  1578.     dc.l    0
  1579. *** [5|13]
  1580.     dc.l    $0,$0,$0,$0
  1581.     dc.l    $0,$0,$0,$0
  1582.     dc.l    $0,$0,$1fffe000,$3fffe000
  1583.     dc.l    $3fffe000,$0,$0,$0
  1584.     dc.l    $0,$0,$3fffe000,$3fffe000
  1585.     dc.l    $1fffe000,$0,$0,$0
  1586.     dc.l    $0,$0,$0,$0
  1587.     dc.l    $0,$0,$0
  1588.     dc.l    0
  1589. *** [5|14]
  1590.     dc.l    $0,$0,$0,$0
  1591.     dc.l    $0,$0,$0,$0
  1592.     dc.l    $0,$0,$0,$0
  1593.     dc.l    $0,$ffffe000,$ffffe000,$0
  1594.     dc.l    $0,$0,$0,$0
  1595.     dc.l    $0,$0,$0,$0
  1596.     dc.l    $0,$0,$0,$0
  1597.     dc.l    $0,$0,$0
  1598.     dc.l    0
  1599. *** [5|15]
  1600.     dc.l    $0,$3f800000,$3f800000,$3c000000
  1601.     dc.l    $3c000000,$3c000000,$3c000000,$3c000000
  1602.     dc.l    $3c000000,$3c000000,$3c000000,$3c000000
  1603.     dc.l    $3c000000,$3c000000,$3c000000,$3c000000
  1604.     dc.l    $3c000000,$3c000000,$3c000000,$3c000000
  1605.     dc.l    $3c000000,$3c000000,$3c000000,$3c000000
  1606.     dc.l    $3c000000,$3c000000,$3c000000,$3c000000
  1607.     dc.l    $3f800000,$3f800000,$0
  1608.     dc.l    0
  1609. *** [5|16]
  1610.     dc.l    $0,$fe000000,$fe000000,$1e000000
  1611.     dc.l    $1e000000,$1e000000,$1e000000,$1e000000
  1612.     dc.l    $1e000000,$1e000000,$1e000000,$1e000000
  1613.     dc.l    $1e000000,$1e000000,$1e000000,$1e000000
  1614.     dc.l    $1e000000,$1e000000,$1e000000,$1e000000
  1615.     dc.l    $1e000000,$1e000000,$1e000000,$1e000000
  1616.     dc.l    $1e000000,$1e000000,$1e000000,$1e000000
  1617.     dc.l    $fe000000,$fe000000,$0
  1618.     dc.l    0
  1619. *** [5|17]
  1620.     dc.l    $0,$0,$fc00000,$3ff00000
  1621.     dc.l    $38780000,$10780000,$780000,$780000
  1622.     dc.l    $f00000,$1e00000,$1c00000,$3800000
  1623.     dc.l    $3800000,$3800000,$3800000,$3000000
  1624.     dc.l    $0,$0,$0,$7800000
  1625.     dc.l    $7800000,$7800000,$7800000,$0
  1626.     dc.l    $0,$0,$0,$0
  1627.     dc.l    $0,$0,$0
  1628.     dc.l    0
  1629. *** [5|18]
  1630.     dc.l    $0,$0,$0,$0
  1631.     dc.l    $0,$0,$0,$0
  1632.     dc.l    $0,$0,$0,$0
  1633.     dc.l    $0,$0,$0,$0
  1634.     dc.l    $0,$0,$0,$3c000000
  1635.     dc.l    $3c000000,$3c000000,$3c000000,$18000000
  1636.     dc.l    $30000000,$70000000,$0,$0
  1637.     dc.l    $0,$0,$0
  1638.     dc.l    0
  1639. *** [5|19]
  1640.     dc.l    $0,$0,$0,$0
  1641.     dc.l    $0,$0,$0,$0
  1642.     dc.l    $0,$0,$0,$0
  1643.     dc.l    $0,$0,$0,$0
  1644.     dc.l    $0,$0,$0,$3c000000
  1645.     dc.l    $3c000000,$3c000000,$3c000000,$0
  1646.     dc.l    $0,$0,$0,$0
  1647.     dc.l    $0,$0,$0
  1648.     dc.l    0
  1649.  
  1650. *******************************************************
  1651. ******* end if text font data *************************
  1652. *******************************************************
  1653.  
  1654. copptr:    dc.l 0,0,0,0
  1655.  
  1656. bars:    movem.l    d0-d7/a0-a6,-(sp)
  1657.     move.l    copptr(pc),a0    ;erase all bars
  1658.     moveq.l    #0,d1
  1659.     move.w    d1,2+8*0(a0)
  1660.     move.w    d1,2+8*1(a0)
  1661.     move.w    d1,2+8*2(a0)
  1662.     move.w    d1,2+8*3(a0)
  1663.     move.w    d1,2+8*4(a0)
  1664.     move.w    d1,2+8*5(a0)
  1665.     move.w    d1,2+8*6(a0)
  1666.     move.w    d1,2+8*7(a0)
  1667.     move.w    d1,2+8*8(a0)
  1668.     move.w    d1,2+8*9(a0)
  1669.     move.w    d1,2+8*10(a0)
  1670.     move.w    d1,2+8*11(a0)
  1671.     move.w    d1,2+8*12(a0)
  1672.     move.w    d1,2+8*13(a0)
  1673.     move.w    d1,2+8*14(a0)
  1674.     move.w    d1,2+8*15(a0)
  1675.     move.w    d1,2+8*16(a0)
  1676.     move.w    d1,2+8*17(a0)
  1677.     move.w    d1,2+8*18(a0)
  1678.     move.w    d1,2+8*19(a0)
  1679.     move.w    d1,2+8*20(a0)
  1680.     move.w    d1,2+8*21(a0)
  1681.     move.w    d1,2+8*22(a0)
  1682.     move.w    d1,2+8*23(a0)
  1683.     move.w    d1,2+8*24(a0)
  1684.     move.w    d1,2+8*25(a0)
  1685.     move.w    d1,2+8*26(a0)
  1686.     move.w    d1,2+8*27(a0)
  1687.     move.w    d1,2+8*28(a0)
  1688.     move.w    d1,2+8*29(a0)
  1689.     move.w    d1,2+8*30(a0)
  1690.     move.w    d1,2+8*31(a0)
  1691.     move.w    d1,2+8*32(a0)
  1692.     move.w    d1,2+8*33(a0)
  1693.     move.w    d1,2+8*34(a0)
  1694.     move.w    d1,2+8*35(a0)
  1695.     move.w    d1,2+8*36(a0)
  1696.     move.w    d1,2+8*37(a0)
  1697.     move.w    d1,2+8*38(a0)
  1698.     move.w    d1,2+8*39(a0)
  1699.     move.w    d1,2+8*40(a0)
  1700.     move.w    d1,2+8*41(a0)
  1701.     move.w    d1,2+8*42(a0)
  1702.     move.w    d1,2+8*43(a0)
  1703.     move.w    d1,2+8*44(a0)
  1704.     move.w    d1,2+8*45(a0)
  1705.     move.w    d1,2+8*46(a0)
  1706.     move.w    d1,2+8*47(a0)
  1707.     move.w    d1,2+8*48(a0)
  1708.     move.w    d1,2+8*49(a0)
  1709.     move.w    d1,2+8*50(a0)
  1710.     move.w    d1,2+8*51(a0)
  1711.     move.w    d1,2+8*52(a0)
  1712.     move.w    d1,2+8*53(a0)
  1713.     move.w    d1,2+8*54(a0)
  1714.     move.w    d1,2+8*55(a0)
  1715.     move.w    d1,2+8*56(a0)
  1716.     move.w    d1,2+8*57(a0)
  1717.     move.w    d1,2+8*58(a0)
  1718.     move.w    d1,2+8*59(a0)
  1719.     move.w    d1,2+8*60(a0)
  1720.     move.w    d1,2+8*61(a0)
  1721.     move.w    d1,2+8*62(a0)
  1722.     move.w    d1,2+8*63(a0)
  1723.     move.w    d1,2+8*64(a0)
  1724.     move.w    d1,2+8*65(a0)
  1725.     move.w    d1,2+8*66(a0)
  1726.     move.w    d1,2+8*67(a0)
  1727.     move.w    d1,2+8*68(a0)
  1728.     move.w    d1,2+8*69(a0)
  1729.     move.w    d1,2+8*70(a0)
  1730.     move.w    d1,2+8*71(a0)
  1731.     move.w    d1,2+8*72(a0)
  1732.     move.w    d1,2+8*73(a0)
  1733.     move.w    d1,2+8*74(a0)
  1734.     move.w    d1,2+8*75(a0)
  1735.     move.w    d1,2+8*76(a0)
  1736.     move.w    d1,2+8*77(a0)
  1737.     move.w    d1,2+8*78(a0)
  1738.     move.w    d1,2+8*79(a0)
  1739.     move.w    d1,2+8*80(a0)
  1740.     move.w    d1,2+8*81(a0)
  1741.     move.w    d1,2+8*82(a0)
  1742.     move.w    d1,2+8*83(a0)
  1743.     move.w    d1,2+8*84(a0)
  1744.     move.w    d1,2+8*85(a0)
  1745.     move.w    d1,2+8*86(a0)
  1746.     move.w    d1,2+8*87(a0)
  1747.     move.w    d1,2+8*88(a0)
  1748.     move.w    d1,2+8*89(a0)
  1749.     move.w    d1,2+8*90(a0)
  1750.     move.w    d1,2+8*91(a0)
  1751.     move.w    d1,2+8*92(a0)
  1752.     move.w    d1,2+8*93(a0)
  1753.     move.w    d1,2+8*94(a0)
  1754.     move.w    d1,2+8*95(a0)
  1755.     move.w    d1,2+8*96(a0)
  1756.     move.w    d1,2+8*97(a0)
  1757.     move.w    d1,2+8*98(a0)
  1758.     move.w    d1,2+8*99(a0)
  1759.     move.w    d1,2+8*100(a0)
  1760.     move.w    d1,2+8*101(a0)
  1761.     move.w    d1,2+8*102(a0)
  1762.     move.w    d1,2+8*103(a0)
  1763.     move.w    d1,2+8*104(a0)
  1764.     move.w    d1,2+8*105(a0)
  1765.     move.w    d1,2+8*106(a0)
  1766.     move.w    d1,2+8*107(a0)
  1767.     move.w    d1,2+8*108(a0)
  1768.     move.w    d1,2+8*109(a0)
  1769.     move.w    d1,2+8*110(a0)
  1770.     move.w    d1,2+8*111(a0)
  1771.     move.w    d1,2+8*112(a0)
  1772.     move.w    d1,2+8*113(a0)
  1773.     move.w    d1,2+8*114(a0)
  1774.     move.w    d1,2+8*115(a0)
  1775.     move.w    d1,2+8*116(a0)
  1776.     move.w    d1,2+8*117(a0)
  1777.     move.w    d1,2+8*118(a0)
  1778.     move.w    d1,2+8*119(a0)
  1779.     move.w    d1,2+8*120(a0)
  1780.     move.w    d1,2+8*121(a0)
  1781.     move.w    d1,2+8*122(a0)
  1782.     move.w    d1,2+8*123(a0)
  1783.     move.w    d1,2+8*124(a0)
  1784.     move.w    d1,2+8*125(a0)
  1785.     move.w    d1,2+8*126(a0)
  1786.     move.w    d1,2+8*127(a0)
  1787.     move.w    d1,2+8*128(a0)
  1788.     move.w    d1,2+8*129(a0)
  1789.     move.w    d1,2+8*130(a0)
  1790.     move.w    d1,2+8*131(a0)
  1791.     move.w    d1,2+8*132(a0)
  1792.     move.w    d1,2+8*133(a0)
  1793.     move.w    d1,2+8*134(a0)
  1794.     move.w    d1,2+8*135(a0)
  1795.     move.w    d1,2+8*136(a0)
  1796.     move.w    d1,2+8*137(a0)
  1797.     move.w    d1,2+8*138(a0)
  1798.     move.w    d1,2+8*139(a0)
  1799.     move.w    d1,2+8*140(a0)
  1800.     move.w    d1,2+8*141(a0)
  1801.     move.w    d1,2+8*142(a0)
  1802.     move.w    d1,2+8*143(a0)
  1803.     move.w    d1,2+8*144(a0)
  1804.     move.w    d1,2+8*145(a0)
  1805.     move.w    d1,2+8*146(a0)
  1806.     move.w    d1,2+8*147(a0)
  1807.     move.w    d1,2+8*148(a0)
  1808.     move.w    d1,2+8*149(a0)
  1809.     move.w    d1,2+8*150(a0)
  1810.     move.w    d1,2+8*151(a0)
  1811.     move.w    d1,2+8*152(a0)
  1812.     move.w    d1,2+8*153(a0)
  1813.     move.w    d1,2+8*154(a0)
  1814.     move.w    d1,2+8*155(a0)
  1815.     move.w    d1,2+8*156(a0)
  1816.     move.w    d1,2+8*157(a0)
  1817.     move.w    d1,2+8*158(a0)
  1818.     move.w    d1,2+8*159(a0)
  1819.     move.w    d1,2+8*160(a0)
  1820.     move.w    d1,2+8*161(a0)
  1821.     move.w    d1,2+8*162(a0)
  1822.     move.w    d1,2+8*163(a0)
  1823.     move.w    d1,2+8*164(a0)
  1824.     move.w    d1,2+8*165(a0)
  1825.     move.w    d1,2+8*166(a0)
  1826.     move.w    d1,2+8*167(a0)
  1827.     move.w    d1,2+8*168(a0)
  1828.     move.w    d1,2+8*169(a0)
  1829.     move.w    d1,2+8*170(a0)
  1830.     move.w    d1,2+8*171(a0)
  1831.     move.w    d1,2+8*172(a0)
  1832.     move.w    d1,2+8*173(a0)
  1833.     move.w    d1,2+8*174(a0)
  1834.     move.w    d1,2+8*175(a0)
  1835.     move.w    d1,2+8*176(a0)
  1836.     move.w    d1,2+8*177(a0)
  1837.     move.w    d1,2+8*178(a0)
  1838.     move.w    d1,2+8*179(a0)
  1839.     move.w    d1,2+8*180(a0)
  1840.     move.w    d1,2+8*181(a0)
  1841.     move.w    d1,2+8*182(a0)
  1842.     move.w    d1,2+8*183(a0)
  1843.     move.w    d1,2+8*184(a0)
  1844.     move.w    d1,2+8*185(a0)
  1845.     move.w    d1,2+8*186(a0)
  1846.     move.w    d1,2+8*187(a0)
  1847.     move.w    d1,2+8*188(a0)
  1848.     move.w    d1,2+8*189(a0)
  1849.     move.w    d1,2+8*190(a0)
  1850.     move.w    d1,2+8*191(a0)
  1851.     move.w    d1,2+8*192(a0)
  1852.     move.w    d1,2+8*193(a0)
  1853.     move.w    d1,2+8*194(a0)
  1854.     move.w    d1,2+8*195(a0)
  1855.     move.w    d1,2+8*196(a0)
  1856.     move.w    d1,2+8*197(a0)
  1857.     move.w    d1,2+8*198(a0)
  1858.     move.w    d1,2+8*199(a0)
  1859.     move.w    d1,2+8*200(a0)
  1860.     move.w    d1,2+8*201(a0)
  1861.     move.w    d1,2+8*202(a0)
  1862.     move.w    d1,2+8*203(a0)
  1863.     move.w    d1,2+8*204(a0)
  1864.     move.w    d1,2+8*205(a0)
  1865.     move.w    d1,2+8*206(a0)
  1866.     move.w    d1,2+8*207(a0)
  1867.     move.w    d1,2+8*208(a0)
  1868.     move.w    d1,2+8*209(a0)
  1869.  
  1870.     lea.l    intable(pc),a5
  1871.     lea.l    thycols(pc),a4
  1872.     lea.l    sine(pc),a3
  1873.     moveq    #0,d0                ; First bar
  1874.  
  1875. 2$:    move.l    copptr(pc),a2
  1876.     move.w    (a5)+,d7
  1877.     addq.b    #1,-1(a5)
  1878.     move.b    (a3,d7.w),d1            ; Y Position
  1879.     and.w    #$ff,d1
  1880.     asl.w    #3,d1                ;*8(each coplist entry=8bytes)
  1881.     move.w    d0,d6
  1882.     asl.w    #5,d6                ; *16 each colorlist e = 16
  1883.     moveq.l    #15,d5
  1884. 3$:    move.w    (a4,d6.w),2(a2,d1.w)
  1885.     addq.l    #8,a2
  1886.     addq.l    #2,d6
  1887.     dbf    d5,3$
  1888.     addq.l    #1,d0
  1889.     cmpi.b    #8,d0
  1890.     bne.s    2$
  1891.     lea.l    intable(pc),a5
  1892.     lea.l    thycols(pc),a4
  1893.     lea.l    sine(pc),a3
  1894.     moveq    #0,d0                ; First bar
  1895. 4$:    move.l    copptr(pc),a2
  1896.     move.w    (a5)+,d7
  1897.     addq.l    #1,d0
  1898.     cmpi.b    #8,d0
  1899.     bne.s    4$
  1900. 0$:    movem.l    (sp)+,d0-d7/a0-a6
  1901.     rts
  1902.  
  1903.  
  1904. intable:
  1905.     dc.w 0,8,16,24,32,40,48,56
  1906.     dc.w 0,15,30,45,60,75,90,105
  1907. thycols:
  1908.     dc.w $0111,$0333,$0555,$0777,$0999,$0bbb,$0ddd,$0fff
  1909.     dc.w $0fff,$0ddd,$0bbb,$0999,$0777,$0555,$0333,$0111
  1910.     dc.w $0101,$0303,$0505,$0707,$0909,$0b0b,$0d0d,$0f0f
  1911.     dc.w $0f0f,$0d0d,$0b0b,$0909,$0707,$0505,$0303,$0101
  1912.     dc.w $0011,$0033,$0055,$0077,$0099,$00bb,$00dd,$00ff
  1913.     dc.w $00ff,$00dd,$00bb,$0099,$0077,$0055,$0033,$0011
  1914.     dc.w $0101,$0330,$0550,$0770,$0990,$0bb0,$0dd0,$0ff0
  1915.     dc.w $0ff0,$0dd0,$0bb0,$0990,$0770,$0550,$0330,$0110
  1916.     dc.w $0100,$0300,$0500,$0700,$0900,$0b00,$0d00,$0f00
  1917.     dc.w $0f00,$0d00,$0b00,$0900,$0700,$0500,$0300,$0100
  1918.     dc.w $0001,$0003,$0005,$0007,$0009,$000b,$000d,$000f
  1919.     dc.w $000f,$000d,$000b,$0009,$0007,$0005,$0003,$0001
  1920.     dc.w $0010,$0030,$0050,$0070,$0090,$00b0,$00d0,$00f0
  1921.     dc.w $00f0,$00d0,$00b0,$0090,$0070,$0050,$0030,$0010
  1922.     dc.w $0101,$0303,$0505,$0707,$0909,$0b0b,$0d0d,$0f0f
  1923.     dc.w $0f0f,$0d0d,$0b0b,$0909,$0707,$0505,$0303,$0101
  1924.  
  1925. sine:
  1926.     dc.b 95,97,99,101,104,106,108,111,113,115,118,120,122,124,127
  1927.     dc.b 129,131,133,135,137,139,141,143,145,147,149,151,153,155,157
  1928.     dc.b 158,160,162,163,165,166,168,169,171,172,173,175,176,177,178
  1929.     dc.b 179,180,181,182,183,184,185,185,186,187,187,188,188,188,189
  1930.     dc.b 189,189,189,189,190,189,189,189,189,189,188,188,188,187,187
  1931.     dc.b 186,185,185,184,183,182,181,180,179,178,177,176,175,173,172
  1932.     dc.b 171,169,168,166,165,163,162,160,158,157,155,153,151,149,147
  1933.     dc.b 145,143,141,139,137,135,133,131,129,127,124,122,120,118,115
  1934.     dc.b 113,111,108,106,104,101,99,97,94,92,90,88,85,83,81
  1935.     dc.b 78,76,74,71,69,67,65,62,60,58,56,54,52,50,48
  1936.     dc.b 46,44,42,40,38,36,34,32,31,29,27,26,24,23,21
  1937.     dc.b 20,18,17,16,14,13,12,11,10,9,8,7,6,5,4
  1938.     dc.b 4,3,2,2,1,1,1,0,0,0,0,0,0,0,0
  1939.     dc.b 0,0,0,1,1,1,2,2,3,4,4,5,6,7,8
  1940.     dc.b 9,10,11,12,13,14,16,17,18,20,21,23,24,26,27
  1941.     dc.b 29,31,32,34,36,38,40,42,44,46,48,50,52,54,56
  1942.     dc.b 58,60,62,65,67,69,71,74,76,78,81,83,85,88,90
  1943.     dc.b 92,95
  1944.  
  1945.     even
  1946.  
  1947.  
  1948.  
  1949.  
  1950. ************system return*****************
  1951.  
  1952. system_push:    movea.l    ($4).l,a6
  1953.         lea.l    GfxName(pc),a1
  1954.         clr.l    d0
  1955.         jsr    -$228(a6)    * OpenLibrary
  1956.         move.l    d0,a1
  1957.         move.l    38(a1),d7    * Find current copperlist
  1958.         jsr    -$19e(a6)    * CloseLibrary
  1959.         lea.l    copy_register(pc),a0
  1960.         move.l    d7,4(a0)    * save copperlist
  1961.                 move.w    ($dff002).l,0(a0)    * save dma
  1962.         or.w    #$8000,0(a0)
  1963.                 move.w    ($dff01c).l,2(a0)    * save interrupt
  1964.         or.w    #$8000,2(a0)
  1965.                 move.w    #$7fff,($dff09a).l    * no interrupt
  1966.         move.w    #$07ff,($dff096).l    * no dma
  1967.         bsr    backup_vektor
  1968.                 rts
  1969.  
  1970. system_pop:    move.w    #$7fff,($dff09a).l    * no interrupt
  1971.         move.w    #$07ff,($dff096).l    * no dma
  1972.         bsr    restore_vektor
  1973.         lea.l    copy_register(pc),a0
  1974.         move.l    4(a0),($dff080).l    * restore system copper list
  1975.         clr.w    ($dff088).l
  1976.         move.w    0(a0),($dff096).l    * restore dma
  1977.                 move.w    2(a0),($dff09a).l    * restore interrupt
  1978.                 rts
  1979.  
  1980. copy_register:    dc.w    0,0
  1981.         dc.l    0
  1982.  
  1983. GfxName:    dc.b    "graphics.library",0
  1984.         even
  1985.  
  1986. backup_vektor:    movem.l    d0/a0-a1,-(sp)
  1987.         move.l  #254,d0
  1988.         move.l  #$000000,a0
  1989.         lea.l    copy_vektor(pc),a1
  1990. 1$:        move.l    (a0)+,(a1)+
  1991.         dbra    d0,1$
  1992.         movem.l    (sp)+,d0/a0-a1
  1993.         rts
  1994.  
  1995. restore_vektor:    movem.l    d0/a0-a1,-(sp)
  1996.         move.l  #254,d0
  1997.         move.l  #$000000,a0
  1998.         lea.l    copy_vektor(pc),a1
  1999. 1$:        move.l    (a1)+,(a0)+
  2000.         dbra    d0,1$
  2001.         movem.l    (sp)+,d0/a0-a1
  2002.         rts
  2003.  
  2004. copy_vektor:    ds.l    256
  2005.  
  2006. ******************************************
  2007.  
  2008.  
  2009.  
  2010.