home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src2.dms / in.adf / Source / fintro1.S < prev    next >
Encoding:
Text File  |  1978-10-09  |  39.4 KB  |  1,636 lines
  1.  
  2. ; this intro was made by Sharp of Abstract
  3.  
  4. org $30000
  5. load $30000
  6.  
  7. ;      main prog
  8.  
  9. o:    jsr    picinit
  10.         jsr     mt_init
  11.     clr.l    0
  12.     movem.l    D0-D7/A0-A6,-(SP)
  13.     move.l  #text2,son
  14.         bsr    systeminit
  15.         bsr     barsinst
  16.     bsr    clrmem         
  17.     bsr    setcopper
  18.     bsr    scrdefine
  19.     bsr     vscr
  20.         bsr     setspr
  21.         bsr    irq     
  22. out:    bsr    clrsystem
  23.     movem.l    (SP)+,D0-D7/A0-A6
  24.     RTS    
  25.     
  26. ;      install picture1 in bitplane
  27.  
  28. picinit:
  29.     move.l    #logo,d0
  30.     move.w    d0,blt1l
  31.     swap    d0
  32.     move.w    d0,blt1h
  33.         swap    d0
  34.     add.l    #$0c08,d0
  35.     move.w    d0,blt2l
  36.     swap    d0
  37.     move.w    d0,blt2h
  38.         swap    d0 
  39.     add.l    #$0c08,d0
  40.     move.w    d0,blt3l
  41.     swap    d0
  42.     move.w    d0,blt3h
  43.         swap    d0
  44.     add.l    #$0c08,d0
  45.     move.w    d0,blt4l
  46.     swap    d0
  47.     move.w    d0,blt4h
  48.         swap    d0
  49.     add.l    #$0c08,d0
  50.         move.w  d0,blt5l
  51.         swap    d0
  52.         move.w  d0,blt5h
  53.         swap    d0
  54.     rts    
  55.      
  56. l58:    DC.W    $0000
  57. l5a:    DC.W    $0003
  58. l5c:    DC.W    $0000
  59. l5e:    DC.W    $00FF
  60. l60:    DC.W    $0003
  61. l62:    DC.W    $0000
  62.  
  63. ;       set color in tom
  64.  
  65. setlog:    lea    col,a0
  66.     lea    tom+2,a1
  67.     moveq    #$1f,d0
  68. add:    move.w    (a1)+,(a0)
  69.     addq.w    #4,a0
  70.     dbra    d0,add
  71.     rts    
  72.     
  73. foss01: dc.w 0
  74.  
  75. ;      set tom to colorplane
  76.  
  77. login:  cmp.w   #$0f00,foss01
  78.         beq     log
  79.         add.w   #1,foss01  
  80.  
  81. log:    move.w  #2,158
  82.         addq.w    #1,l5c
  83.     lea    plane,a0    ;colorplane
  84.     lea    tom+2,a1    ;blank
  85.     moveq    #$1f,d0     ;32 color
  86. ret:    moveq    #0,d2       ;o to d2 d3 d4 d5 d6 d7
  87.     moveq    #0,d3
  88.     moveq    #0,d4
  89.     moveq    #0,d5
  90.     moveq    #0,d6
  91.     moveq    #0,d7
  92.     move.w    (a0)+,d5    
  93.     move.w    (a1),d2
  94.     move.w    d5,d6
  95.     move.w    d5,d7
  96.     move.w    d2,d3
  97.     move.w    d2,d4
  98.     and.w    #$0f00,d2
  99.     and.w    #$00F0,d3
  100.     and.w    #15,d4
  101.     and.w    #$0f00,d5
  102.     and.w    #$00f0,d6
  103.     and.w    #15,d7
  104.     cmp.w    d2,d5
  105.     beq.s    rol1
  106.     add.w    #$0100,d2
  107. rol1:    cmp.w    d3,d6
  108.     beq.s    rol2
  109.     add.w    #$0010,d3
  110. rol2:    cmp.w    d4,d7
  111.     beq.s    rol3
  112.     add.w    #1,d4
  113. rol3:    add.w    d2,d4
  114.     add.w    d3,d4
  115.     move.w    d4,(a1)+
  116.     dbra    d0,ret
  117.     rts    
  118.       
  119. ;       clr 60000 to 64500 not necessary
  120.  
  121. clrmem:    move.l    #$00060000,a0
  122.     move.l    #$00004500,d7
  123. clron:    clr.l    (a0)
  124.     add.l    #4,a0
  125.     dbra    d7,clron
  126.     RTS    
  127.     
  128. ;     set dna channel and blitter
  129.  
  130. systeminit:
  131.     moveq    #0,D0
  132.     move.w    $dff002,D0
  133.     or.w    #$8000,D0
  134.     move.w    d0,dma
  135.     move.w    #$4000,$dff09A
  136.     move.w    $dff01E,base
  137.     RTS    
  138.     
  139. ;     do normal plane and get out of it
  140.  
  141. clrsystem:
  142.  
  143.     move.l    #gfxname,A1
  144.     moveq    #0,d0
  145.     move.l    4,a6
  146.     jsr    -$0198(a6)
  147.     move.l    d0,a1
  148.     move.l    $0026(a1),$dff080
  149.     tst.w    $dff088
  150.     jsr    -$019e(a6)
  151.         bsr     mt_end
  152.     move.w    dma,$dff096
  153.     move.w    base,$dff09a
  154.     rts    
  155.     
  156. ;       set copperlist
  157.  
  158. setcopper:
  159.     move.l    #copper,$dff080
  160.     tst.w    $dff088
  161.     move.w    #$85e0,$dff096
  162.     rts    
  163.     
  164. ;     set textpoint and fontpoint for scroll 
  165.  
  166. scrdefine:
  167.         move.l #text,point2
  168.         move.l #font,point3
  169.         move.l #$714e2,point4
  170.         rts
  171.  
  172. dma:  dc.w 0
  173. base: dc.w 0
  174. some: dc.w 0
  175. gfxname: dc.b 'graphics.library',0
  176. even
  177.  
  178. ;       the mainloop
  179.  
  180. irq:    cmp.b    #$ff,$dff006
  181.     bne.s    irq
  182. irq2:    cmp.b    #$26,$dff006
  183.     bne.s    irq2
  184.     bsr    pause
  185.         bsr     login        
  186.         jsr     mt_music
  187.         bsr     setlog
  188.         bsr     star
  189.         bsr     raster
  190.         bsr     nothing
  191.         btst    #6,$bfe001    ; push the mouse
  192.     bne.s    irq    
  193.     rts    
  194.     
  195. ;    check foss to Vscroll or write
  196.  
  197. nothing: 
  198.          cmp.w #$0000,foss         
  199.          bne.s cont2 
  200.          bsr   write                    
  201.          rts
  202. cont2:   cmp.w #$0001,foss
  203.          bne.s cont3
  204.          bsr   Vscroll
  205.          rts
  206. cont3:   cmp.w #$0002,foss
  207.          bne.s cont4
  208.          bsr   write 
  209.          rts         
  210.  
  211. cont4:   bra   out
  212.          rts
  213.  
  214. ;  install colorlist for bars in the middle
  215.  
  216. barsinst:
  217.      lea    col2,a0
  218.      move.l #$a101fffe,d2
  219.      move.l #$01800000,d3
  220.      move.l #$00000036,d1
  221. ad1: move.l d2,(a0)+     
  222.      move.l d3,(a0)+ 
  223.  
  224.      move.l #$01800000,d3
  225.      add.l  #$00520000,d2
  226.      move.l d2,(a0)+
  227.      move.l d3,(a0)+ 
  228.  
  229.      move.l #$01800000,d3 
  230.      add.l  #$00100000,d2
  231.      move.l d2,(a0)+
  232.      move.l d3,(a0)+     
  233.  
  234.      move.l #$01800000,d3 
  235.      add.l  #$00100000,d2 
  236.      move.l d2,(a0)+
  237.      move.l d3,(a0)+
  238.  
  239.      move.l #$01800000,d3
  240.      add.l  #$00100000,d2
  241.      move.l d2,(a0)+
  242.      move.l d3,(a0)+
  243.  
  244.      move.l #$01800000,d3
  245.      add.l  #$00100000,d2
  246.      move.l d2,(a0)+
  247.      move.l d3,(a0)+       
  248.  
  249.      move.l #$01800000,d3 
  250.      add.l  #$00100000,d2
  251.      move.l d2,(a0)+
  252.      move.l d3,(a0)+
  253.  
  254.      move.l #$01800000,d3
  255.      add.l  #$00100000,d2
  256.      move.l d2,(a0)+ 
  257.      move.l d3,(a0)+ 
  258.  
  259.      move.l #$01800000,d3
  260.      add.l  #$00100000,d2
  261.      move.l d2,(a0)+      
  262.      move.l d3,(a0)+ 
  263.  
  264.      move.l #$01800000,d3
  265.      sub.l  #$00c20000,d2 
  266.      add.l  #$01000000,d2     
  267.      dbra   d1,ad1
  268. rts
  269.  
  270. ;    move the bars 
  271.  
  272. raster:    addq.w    #8,some
  273.     and.w    #$03fe,some
  274.     move.w    some,d0
  275.     lea    posi(PC),a0
  276.     lea    col2+6(PC),a2
  277.     moveq    #8,d7
  278. rfgf:    move.w    d0,d1
  279.     cmp.w    #$0200,d1
  280.     blt.s    rfor
  281.     eor.w    #$03fe,d1
  282. rfor:    move.w    0(a0,d1.W),d1
  283.     and.w    #$01fe,d1
  284.     lea    data,a1
  285.     lea    0(A1,D1.W),a1
  286. rwat:    btst    #14,$dff002
  287.     bne.s    rwat
  288.     move.l    #$ffffffff,$dff044 ; blitter mask
  289.     move.l    #$09f00000,$dff040 ; con0
  290.     move.l    a2,$dff054 ; dest. data d
  291.     move.l    a1,$dff050 ; source data a
  292.     move.l    #$00000046,$dff064 ; module a
  293.     move.w    #$0dc1,$dff058 ; start bit and size of the bwindow
  294.     addq.l    #8,a2
  295.     add.w    #$0004,d0
  296.     and.w    #$03fe,d0
  297.     dbra    d7,rfgf
  298.     rts    
  299.     
  300. ;      setsprites
  301.  
  302. setspr:    move.l    #sprites,d0
  303.     swap    d0
  304.     move.w    d0,sp1
  305.     swap    d0
  306.     move.w    d0,sp2
  307.  
  308.     move.l    #sp0,d0
  309.     swap    d0
  310.     move.w    d0,sp3
  311.     move.w    d0,sp5
  312.     move.w    d0,sp7
  313.     swap    d0
  314.     move.w    d0,sp4
  315.     move.w    d0,sp6
  316.     move.w    d0,sp8
  317.         rts
  318.  
  319. ;    add sprite with 1
  320.  
  321. star:    move.w    #82,d0
  322.     move.l    #sprites+1,a0 
  323. LL:    move.b    #01,d1
  324. L:    add.b    d1,(a0)
  325.     add.l    #8,a0
  326.     add.b    #1,d1
  327.     cmp.b    #4,d1
  328.     beq.s    LL
  329.     dbf    d0,L
  330.     rts
  331.  
  332. ; the scroll routine
  333.  
  334. pause:  cmp.w #0,pause1
  335.         beq   scroll
  336.         sub.w #1,pause1    
  337.         rts
  338.  
  339. Scroll:    cmp.b    #0,point+1
  340.     bne.s    con
  341.     bsr    Sinst
  342.     move.b    point,point+1
  343. con:    bsr    sec
  344.     sub.b    #1,point+1
  345.     rts    
  346.  
  347. Sinst:    move.l    point2,a2
  348.     move.l    #ctab,a0
  349.     move.l    #vague,a1
  350.     move.b    (a2),d0
  351. right2:    cmp.b    #'@',d0
  352.     bne.s    con2
  353.     move.l    #text-1,point2
  354.      
  355. con2:    cmp.b    (a0),d0
  356.     beq    con3
  357.     add.l    #1,a0
  358.     add.l    #2,a1
  359.     bra.s    right2
  360.  
  361. con3:    add.l    #1,point2
  362.     moveq    #0,d0
  363.     moveq    #0,d1
  364.     move.l    point3,d0
  365.     move.w    (a1),d1
  366.     add.l    d1,d0
  367.     move.l    #$7102e,d1
  368.     moveq    #0,d7
  369.     moveq    #2,d7
  370. wblitt:    btst    #14,$dff002
  371.     bne.s    wblitt
  372.     move.l    #$ffffffff,$dff044 ; blitter mask a
  373.     move.w    #0,$dff042 ; con1
  374.     move.w    #$09f0,$dff040 ;con0
  375.     move.w    #$0024,$dff064 ; module a
  376.     move.w    #$002e,$dff066 ; dest. d
  377.     move.l    D0,$dff050 ; source data a
  378.     move.l    D1,$dff054 ; dest. data d
  379.     move.w    #$0642,$dff058 ; start bit and size of the window
  380.     add.l    #$00001950,d0 
  381.     add.l    #$000004e2,d1 
  382.     DBRA    d7,wblitt
  383.     rts    
  384.  
  385. sec:    btst    #14,$dff002
  386.     bne.s    sec
  387.     move.w    before,d0
  388.     move.l    point4,d1
  389.     or.w    #$09F0,d0
  390.     moveq    #0,d7
  391.     move.b    #2,d7
  392. ablitt:    move.l    #$ffffffff,$00DFF044 ; blitter mask
  393.     move.w    #2,$dff042 ; control 1
  394.     move.w    D0,$dff040 ; control 0
  395.     move.w    #0,$dff064 ; module a
  396.     move.w    #0,$dff066 ; module d
  397.     move.l    d1,$dff050 ; source data a
  398.     move.l    d1,$dff054 ; dest. data d
  399.     move.w    #$0659,$dff058 ; start bit and size of the window
  400.     add.l    #$000004e2,d1
  401.     dbra    d7,ablitt
  402.     rts    
  403.     
  404. blank2:  dc.w 0
  405. blank3:  dc.w 0    
  406.  
  407. ;  hor. scrll routine
  408.  
  409. Vscroll:
  410.     lea    $dff000,a5
  411.     lea    $60000,a0
  412.     lea    setone,a1
  413.     cmp.w    #$1f40,blank3
  414.     ble.s    cn
  415.     bsr    cc2
  416. cn:    add.w    #$0028,blank3
  417.     move.w    blank3,d0
  418.     move.w    d0,2(a1)
  419.     subq.w    #1,blank2
  420.     bgt.l    retur
  421.     move.w    #8,blank2
  422.     add.l    #$00000140,com
  423.     bsr    Vscr
  424. retur:    rts    
  425.  
  426. cc2:    move.w    #0,blank3
  427.     move.l    #$00061f68,d0
  428.     move.l    #$00060000,d1
  429. wblit:    btst    #14,2(a5)
  430.     bne.s    wblit
  431.     move.l    #$09f00000,$0040(a5) ; con0
  432.     move.l    #$ffffffff,$0044(a5) ; blitter mask
  433.     move.l    #0,$0064(a5) ; module a
  434.     move.l    D0,$0050(a5) ; source data a
  435.     move.l    D1,$0054(a5) ; dest. data d
  436.     move.w    #$4814,$0058(a5) ; start bit and size of the bwindow
  437.     move.l    #$00060f00,com
  438.     rts    
  439.  
  440. wblit2:
  441.     btst    #14,2(a5)
  442.     bne.s    wblit2
  443.     move.l    #$09000000,$0040(a5) ; con0
  444.     move.l    #$00060f00,$0054(a5) ; dest. data d
  445.     move.w    #$4014,$0058(a5) ; start bit and size of the bwindow
  446.     RTS    
  447.  
  448. com:    dc.l $60f00    
  449.  
  450. vscr:    bsr    goon
  451.     rts    
  452.  
  453. goon:    move.w    #$0046,d6
  454.     move.l    com,a1
  455. retur2:    move.l    txt,a2
  456.     move.b    (a2),d0
  457.     cmp.b    #0,d0
  458.     bne.s    forts
  459.     addq.l    #1,txt
  460.     rts    
  461.  
  462. forts:    cmp.b    #$FF,D0
  463.     bne.s    for2              
  464.     move.l    #Vtext,txt        
  465.         cmp.w   #$0001,foss        
  466.         beq     foss1 
  467.         cmp.w   #$0002,foss
  468.         beq     foss2
  469.     rts    
  470.  
  471. for2:    lea    charpos,a0
  472.     moveq    #-1,d1
  473. calc:    addq.l    #1,d1
  474.     cmp.b    (a0)+,d0
  475.     bne.s    calc
  476.     divu    #$28,d1
  477.     move.w    #$0140,d2
  478.     mulu    d1,d2
  479.     swap    d1
  480.     mulu    #1,d1
  481.     add.l    d2,d1
  482.     lea    Vfont,a0
  483.     add.l    d1,a0
  484.     move.b    (a0),(a1)
  485.     move.b    $0028(a0),$0028(a1)
  486.     move.b    $0050(a0),$0050(a1)
  487.     move.b    $0078(a0),$0078(a1)
  488.     move.b    $00A0(a0),$00A0(a1)
  489.     move.b    $00C8(a0),$00C8(a1)
  490.     move.b    #0,$00F0(a1)
  491.     move.b    #0,$0118(a1)
  492.     move.b    #0,$0140(a1)
  493.     move.b    #0,$0168(a1)
  494.     move.b    #0,$0190(a1)
  495.     move.b    #0,$01B8(a1)
  496.     move.b    #0,$01E0(a1)
  497.     move.b    #0,-$0028(a1)
  498.     addq.l    #1,A1
  499.     addq.l    #1,txt
  500.     dbra    d6,retur2
  501.     rts    
  502.     
  503. pause1: DC.W    0
  504. point:    DC.W    $0800
  505. point2: DC.W    $0000,$0000
  506. point3: DC.W    $0000,$0000
  507. point4: DC.W    $0000,$0000
  508. before: DC.W    $2000
  509. foss: dc.w 0     
  510.  
  511. ;   write routine
  512.  
  513. write:    sub.w    #1,sub
  514.     beq    fort11
  515.     rts    
  516.  
  517. fort11:    move.w    #1,sub
  518.     cmp.b    #0,rap
  519.     beq    nextchar
  520.     move.l    pon,a0
  521.     move.w    #80,d0
  522. tr:    move.b    #0,(a0)
  523.     lea    $0028(a0),a0
  524.     dbra    d0,tr
  525.     sub.l    #1,pon
  526.     cmp.l    #$64000,pon
  527.     BPL    home
  528.     MOVE.L    #$64027,pon
  529.     MOVE.B    #0,rap
  530. home:    RTS    
  531.  
  532. nextchar:
  533.     lea    emp,a4
  534.     lea    qfont,a2
  535.     move.l    pil,a3
  536.     moveq    #0,d0
  537. back:    move.l    son,a1
  538.     move.b    (a1),d0
  539.     cmp.b    #$FF,d0
  540.     bne    fort12
  541.         cmp     #$0002,foss
  542.         beq     foss2
  543.         move.w  #$0001,foss
  544.         move.w  #$0006,blk1
  545.         move.w  #$0000,blk2
  546.         move.w  #$0000,mod1 
  547.         move.w  #$0000,mod2                  
  548.         rts
  549.   
  550. fort12:    and.b    #$3f,d0
  551.     cmp.b    #$27,d0
  552.     bmi    fort13
  553.     add.b    #1,d0
  554. fort13:    add.l    d0,a2
  555.     asl.w    #1,d0
  556.     move.w    0(a4,d0.W),d0
  557.     add.l    d0,a2
  558.     move.w    #7,d1
  559. tr2:    move.b    (a2),(a3)
  560.     lea    $0028(a2),a2
  561.     lea    $0028(a3),a3
  562.     dbra    d1,tr2
  563.     add.l    #1,pil
  564.     add.b    #1,sil
  565.     cmp.b    #$14,sil
  566.     bne    while
  567.     move.b    #0,sil
  568.     add.l    #$00000154,pil
  569.     add.b    #1,pap
  570.     cmp.b    #8,pap
  571.     bne    while
  572.     move.w    #$0050,sub
  573.     move.l    #$6400a,pil
  574.     move.b    #0,pap
  575.     move.b    #1,rap
  576. while:    add.l    #1,son
  577.     rts    
  578.     
  579. foss1:  move.w  #$0002,foss
  580.         move.l  #text3,son  
  581.         move.w  #$0006,blk1
  582.         move.w  #$400a,blk2 
  583.         move.w  #$0046,mod1
  584.         move.w  #$0046,mod2         
  585.         rts 
  586.  
  587. foss2:  move.w  #$0000,foss
  588.         move.l  #text2,son
  589.         move.w  #$0006,blk1
  590.         move.w  #$400a,blk2
  591.         move.w  #$0046,mod1
  592.         move.w  #$0046,mod2
  593.         rts
  594.  
  595. ;  noiseroutine
  596.  
  597. mt_init:lea    mt_data,a0
  598.     move.l    a0,a1
  599.     add.l    #$3b8,a1
  600.     moveq    #$7f,d0
  601.     moveq    #0,d1
  602. mt_loop:move.l    d1,d2
  603.     subq.w    #1,d0
  604. mt_lop2:move.b    (a1)+,d1
  605.     cmp.b    d2,d1
  606.     bgt.s    mt_loop
  607.     dbf    d0,mt_lop2
  608.     addq.b    #1,d2
  609.  
  610.     lea    mt_samplestarts(pc),a1
  611.     asl.l    #8,d2
  612.     asl.l    #2,d2
  613.     add.l    #$43c,d2
  614.     add.l    a0,d2
  615.     move.l    d2,a2
  616.     moveq    #$1e,d0
  617. mt_lop3:clr.l    (a2)
  618.     move.l    a2,(a1)+
  619.     moveq    #0,d1
  620.     move.w    42(a0),d1
  621.     asl.l    #1,d1
  622.     add.l    d1,a2
  623.     add.l    #$1e,a0
  624.     dbf    d0,mt_lop3
  625.  
  626.     or.b    #$2,$bfe001
  627.     move.b    #$6,mt_speed
  628.     clr.w    $dff0a8
  629.     clr.w    $dff0b8
  630.     clr.w    $dff0c8
  631.     clr.w    $dff0d8
  632.     clr.b    mt_songpos
  633.     clr.b    mt_counter
  634.     clr.w    mt_pattpos
  635.     rts
  636.  
  637. mt_end:    clr.w    $dff0a8
  638.     clr.w    $dff0b8
  639.     clr.w    $dff0c8
  640.     clr.w    $dff0d8
  641.     move.w    #$f,$dff096
  642.     rts
  643.  
  644. mt_music:
  645.     movem.l    d0-d4/a0-a3/a5-a6,-(a7)
  646.     lea    mt_data,a0
  647.     addq.b    #$1,mt_counter
  648.     move.b    mt_counter,D0
  649.     cmp.b    mt_speed,D0
  650.     blt.s    mt_nonew
  651.     clr.b    mt_counter
  652.     bra    mt_getnew
  653.  
  654. mt_nonew:
  655.     lea    mt_voice1(pc),a6
  656.     lea    $dff0a0,a5
  657.     bsr    mt_checkcom
  658.     lea    mt_voice2(pc),a6
  659.     lea    $dff0b0,a5
  660.     bsr    mt_checkcom
  661.     lea    mt_voice3(pc),a6
  662.     lea    $dff0c0,a5
  663.     bsr    mt_checkcom
  664.     lea    mt_voice4(pc),a6
  665.     lea    $dff0d0,a5
  666.     bsr    mt_checkcom
  667.     bra    mt_endr
  668.  
  669. mt_arpeggio:
  670.     moveq    #0,d0
  671.     move.b    mt_counter,d0
  672.     divs    #$3,d0
  673.     swap    d0
  674.     cmp.w    #$0,d0
  675.     beq.s    mt_arp2
  676.     cmp.w    #$2,d0
  677.     beq.s    mt_arp1
  678.  
  679.     moveq    #0,d0
  680.     move.b    $3(a6),d0
  681.     lsr.b    #4,d0
  682.     bra.s    mt_arp3
  683. mt_arp1:moveq    #0,d0
  684.     move.b    $3(a6),d0
  685.     and.b    #$f,d0
  686.     bra.s    mt_arp3
  687. mt_arp2:move.w    $10(a6),d2
  688.     bra.s    mt_arp4
  689. mt_arp3:asl.w    #1,d0
  690.     moveq    #0,d1
  691.     move.w    $10(a6),d1
  692.     lea    mt_periods(pc),a0
  693.     moveq    #$24,d7
  694. mt_arploop:
  695.     move.w    (a0,d0.w),d2
  696.     cmp.w    (a0),d1
  697.     bge.s    mt_arp4
  698.     addq.l    #2,a0
  699.     dbf    d7,mt_arploop
  700.     rts
  701. mt_arp4:move.w    d2,$6(a5)
  702.     rts
  703.  
  704. mt_getnew:
  705.     lea    mt_data,a0
  706.     move.l    a0,a3
  707.     move.l    a0,a2
  708.     add.l    #$c,a3
  709.     add.l    #$3b8,a2
  710.     add.l    #$43c,a0
  711.  
  712.     moveq    #0,d0
  713.     move.l    d0,d1
  714.     move.b    mt_songpos,d0
  715.     move.b    (a2,d0.w),d1
  716.     asl.l    #8,d1
  717.     asl.l    #2,d1
  718.     add.w    mt_pattpos,d1
  719.     clr.w    mt_dmacon
  720.  
  721.     lea    $dff0a0,a5
  722.     lea    mt_voice1(pc),a6
  723.     bsr.s    mt_playvoice
  724.     lea    $dff0b0,a5
  725.     lea    mt_voice2(pc),a6
  726.     bsr.s    mt_playvoice
  727.     lea    $dff0c0,a5
  728.     lea    mt_voice3(pc),a6
  729.     bsr.s    mt_playvoice
  730.     lea    $dff0d0,a5
  731.     lea    mt_voice4(pc),a6
  732.     bsr.s    mt_playvoice
  733.     bra    mt_setdma
  734.  
  735. mt_playvoice:
  736.     move.l    (a0,d1.l),(a6)
  737.     addq.l    #4,d1
  738.     moveq    #0,d2
  739.     move.b    $2(a6),d2
  740.     and.b    #$f0,d2
  741.     lsr.b    #4,d2
  742.     move.b    (a6),d0
  743.     and.b    #$f0,d0
  744.     or.b    d0,d2
  745.     tst.b    d2
  746.     beq.s    mt_setregs
  747.     moveq    #0,d3
  748.     lea    mt_samplestarts(pc),a1
  749.     move.l    d2,d4
  750.     subq.l    #$1,d2
  751.     asl.l    #2,d2
  752.     mulu    #$1e,d4
  753.     move.l    (a1,d2.l),$4(a6)
  754.     move.w    (a3,d4.l),$8(a6)
  755.     move.w    $2(a3,d4.l),$12(a6)
  756.     move.w    $4(a3,d4.l),d3
  757.     tst.w    d3
  758.     beq.s    mt_noloop
  759.     move.l    $4(a6),d2
  760.     asl.w    #1,d3
  761.     add.l    d3,d2
  762.     move.l    d2,$a(a6)
  763.     move.w    $4(a3,d4.l),d0
  764.     add.w    $6(a3,d4.l),d0
  765.     move.w    d0,8(a6)
  766.     move.w    $6(a3,d4.l),$e(a6)
  767.     move.w    $12(a6),$8(a5)
  768.     bra.s    mt_setregs
  769. mt_noloop:
  770.     move.l    $4(a6),d2
  771.     add.l    d3,d2
  772.     move.l    d2,$a(a6)
  773.     move.w    $6(a3,d4.l),$e(a6)
  774.     move.w    $12(a6),$8(a5)
  775. mt_setregs:
  776.     move.w    (a6),d0
  777.     and.w    #$fff,d0
  778.     beq    mt_checkcom2
  779.     move.b    $2(a6),d0
  780.     and.b    #$F,d0
  781.     cmp.b    #$3,d0
  782.     bne.s    mt_setperiod
  783.     bsr    mt_setmyport
  784.     bra    mt_checkcom2
  785. mt_setperiod:
  786.     move.w    (a6),$10(a6)
  787.     and.w    #$fff,$10(a6)
  788.     move.w    $14(a6),d0
  789.     move.w    d0,$dff096
  790.     clr.b    $1b(a6)
  791.  
  792.     move.l    $4(a6),(a5)
  793.     move.w    $8(a6),$4(a5)
  794.     move.w    $10(a6),d0
  795.     and.w    #$fff,d0
  796.     move.w    d0,$6(a5)
  797.     move.w    $14(a6),d0
  798.     or.w    d0,mt_dmacon
  799.     bra    mt_checkcom2
  800.  
  801. mt_setdma:
  802.     move.w    #$12c,d0
  803. mt_wait:dbf    d0,mt_wait
  804.     move.w    mt_dmacon,d0
  805.     or.w    #$8000,d0
  806.     move.w    d0,$dff096
  807.     move.w    #$12c,d0
  808. mt_wai2:dbf    d0,mt_wai2
  809.     lea    $dff000,a5
  810.     lea    mt_voice4(pc),a6
  811.     move.l    $a(a6),$d0(a5)
  812.     move.w    $e(a6),$d4(a5)
  813.     lea    mt_voice3(pc),a6
  814.     move.l    $a(a6),$c0(a5)
  815.     move.w    $e(a6),$c4(a5)
  816.     lea    mt_voice2(pc),a6
  817.     move.l    $a(a6),$b0(a5)
  818.     move.w    $e(a6),$b4(a5)
  819.     lea    mt_voice1(pc),a6
  820.     move.l    $a(a6),$a0(a5)
  821.     move.w    $e(a6),$a4(a5)
  822.  
  823.     add.w    #$10,mt_pattpos
  824.     cmp.w    #$400,mt_pattpos
  825.     bne.s    mt_endr
  826. mt_nex:    clr.w    mt_pattpos
  827.     clr.b    mt_break
  828.     addq.b    #1,mt_songpos
  829.     and.b    #$7f,mt_songpos
  830.     move.b    mt_songpos,d1
  831.     cmp.b    mt_data+$3b6,d1
  832.     bne.s    mt_endr
  833.     clr.b    mt_songpos
  834. mt_endr:tst.b    mt_break
  835.     bne.s    mt_nex
  836.     movem.l    (a7)+,d0-d4/a0-a3/a5-a6
  837.     rts
  838.  
  839. mt_setmyport:
  840.     move.w    (a6),d2
  841.     and.w    #$fff,d2
  842.     move.w    d2,$18(a6)
  843.     move.w    $10(a6),d0
  844.     clr.b    $16(a6)
  845.     cmp.w    d0,d2
  846.     beq.s    mt_clrport
  847.     bge.s    mt_rt
  848.     move.b    #$1,$16(a6)
  849.     rts
  850. mt_clrport:
  851.     clr.w    $18(a6)
  852. mt_rt:    rts
  853.  
  854. mt_myport:
  855.     move.b    $3(a6),d0
  856.     beq.s    mt_myslide
  857.     move.b    d0,$17(a6)
  858.     clr.b    $3(a6)
  859. mt_myslide:
  860.     tst.w    $18(a6)
  861.     beq.s    mt_rt
  862.     moveq    #0,d0
  863.     move.b    $17(a6),d0
  864.     tst.b    $16(a6)
  865.     bne.s    mt_mysub
  866.     add.w    d0,$10(a6)
  867.     move.w    $18(a6),d0
  868.     cmp.w    $10(a6),d0
  869.     bgt.s    mt_myok
  870.     move.w    $18(a6),$10(a6)
  871.     clr.w    $18(a6)
  872. mt_myok:move.w    $10(a6),$6(a5)
  873.     rts
  874. mt_mysub:
  875.     sub.w    d0,$10(a6)
  876.     move.w    $18(a6),d0
  877.     cmp.w    $10(a6),d0
  878.     blt.s    mt_myok
  879.     move.w    $18(a6),$10(a6)
  880.     clr.w    $18(a6)
  881.     move.w    $10(a6),$6(a5)
  882.     rts
  883.  
  884. mt_vib:    move.b    $3(a6),d0
  885.     beq.s    mt_vi
  886.     move.b    d0,$1a(a6)
  887.  
  888. mt_vi:    move.b    $1b(a6),d0
  889.     lea    mt_sin(pc),a4
  890.     lsr.w    #$2,d0
  891.     and.w    #$1f,d0
  892.     moveq    #0,d2
  893.     move.b    (a4,d0.w),d2
  894.     move.b    $1a(a6),d0
  895.     and.w    #$f,d0
  896.     mulu    d0,d2
  897.     lsr.w    #$6,d2
  898.     move.w    $10(a6),d0
  899.     tst.b    $1b(a6)
  900.     bmi.s    mt_vibmin
  901.     add.w    d2,d0
  902.     bra.s    mt_vib2
  903. mt_vibmin:
  904.     sub.w    d2,d0
  905. mt_vib2:move.w    d0,$6(a5)
  906.     move.b    $1a(a6),d0
  907.     lsr.w    #$2,d0
  908.     and.w    #$3c,d0
  909.     add.b    d0,$1b(a6)
  910.     rts
  911.  
  912. mt_nop:    move.w    $10(a6),$6(a5)
  913.     rts
  914.  
  915. mt_checkcom:
  916.     move.w    $2(a6),d0
  917.     and.w    #$fff,d0
  918.     beq.s    mt_nop
  919.     move.b    $2(a6),d0
  920.     and.b    #$f,d0
  921.     tst.b    d0
  922.     beq    mt_arpeggio
  923.     cmp.b    #$1,d0
  924.     beq.s    mt_portup
  925.     cmp.b    #$2,d0
  926.     beq    mt_portdown
  927.     cmp.b    #$3,d0
  928.     beq    mt_myport
  929.     cmp.b    #$4,d0
  930.     beq    mt_vib
  931.     move.w    $10(a6),$6(a5)
  932.     cmp.b    #$a,d0
  933.     beq.s    mt_volslide
  934.     rts
  935.  
  936. mt_volslide:
  937.     moveq    #0,d0
  938.     move.b    $3(a6),d0
  939.     lsr.b    #4,d0
  940.     tst.b    d0
  941.     beq.s    mt_voldown
  942.     add.w    d0,$12(a6)
  943.     cmp.w    #$40,$12(a6)
  944.     bmi.s    mt_vol2
  945.     move.w    #$40,$12(a6)
  946. mt_vol2:move.w    $12(a6),$8(a5)
  947.     rts
  948.  
  949. mt_voldown:
  950.     moveq    #0,d0
  951.     move.b    $3(a6),d0
  952.     and.b    #$f,d0
  953.     sub.w    d0,$12(a6)
  954.     bpl.s    mt_vol3
  955.     clr.w    $12(a6)
  956. mt_vol3:move.w    $12(a6),$8(a5)
  957.     rts
  958.  
  959. mt_portup:
  960.     moveq    #0,d0
  961.     move.b    $3(a6),d0
  962.     sub.w    d0,$10(a6)
  963.     move.w    $10(a6),d0
  964.     and.w    #$fff,d0
  965.     cmp.w    #$71,d0
  966.     bpl.s    mt_por2
  967.     and.w    #$f000,$10(a6)
  968.     or.w    #$71,$10(a6)
  969. mt_por2:move.w    $10(a6),d0
  970.     and.w    #$fff,d0
  971.     move.w    d0,$6(a5)
  972.     rts
  973.  
  974. mt_portdown:
  975.     clr.w    d0
  976.     move.b    $3(a6),d0
  977.     add.w    d0,$10(a6)
  978.     move.w    $10(a6),d0
  979.     and.w    #$fff,d0
  980.     cmp.w    #$358,d0
  981.     bmi.s    mt_por3
  982.     and.w    #$f000,$10(a6)
  983.     or.w    #$358,$10(a6)
  984. mt_por3:move.w    $10(a6),d0
  985.     and.w    #$fff,d0
  986.     move.w    d0,$6(a5)
  987.     rts
  988.  
  989. mt_checkcom2:
  990.     move.b    $2(a6),d0
  991.     and.b    #$f,d0
  992.     cmp.b    #$e,d0
  993.     beq.s    mt_setfilt
  994.     cmp.b    #$d,d0
  995.     beq.s    mt_pattbreak
  996.     cmp.b    #$b,d0
  997.     beq.s    mt_posjmp
  998.     cmp.b    #$c,d0
  999.     beq.s    mt_setvol
  1000.     cmp.b    #$f,d0
  1001.     beq.s    mt_setspeed
  1002.     rts
  1003.  
  1004. mt_setfilt:
  1005.     move.b    $3(a6),d0
  1006.     and.b    #$1,d0
  1007.     asl.b    #$1,d0
  1008.     and.b    #$fd,$bfe001
  1009.     or.b    d0,$bfe001
  1010.     rts
  1011. mt_pattbreak:
  1012.     not.b    mt_break
  1013.     rts
  1014. mt_posjmp:
  1015.     move.b    $3(a6),d0
  1016.     subq.b    #$1,d0
  1017.     move.b    d0,mt_songpos
  1018.     not.b    mt_break
  1019.     rts
  1020. mt_setvol:
  1021.     cmp.b    #$40,$3(a6)
  1022.     ble.s    mt_vol4
  1023.     move.b    #$40,$3(a6)
  1024. mt_vol4:move.b    $3(a6),$8(a5)
  1025.     rts
  1026. mt_setspeed:
  1027.     move.b    $3(a6),d0
  1028.     and.w    #$1f,d0
  1029.     beq.s    mt_rts2
  1030.     clr.b    mt_counter
  1031.     move.b    d0,mt_speed
  1032. mt_rts2:rts
  1033.  
  1034. mt_sin:
  1035. dc.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
  1036. dc.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
  1037.  
  1038. mt_periods:
  1039. dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
  1040. dc.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
  1041. dc.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
  1042. dc.w $007f,$0078,$0071,$0000,$0000
  1043.  
  1044. mt_speed:    dc.b    $6
  1045. mt_songpos:    dc.b    $0
  1046. mt_pattpos:    dc.w    $0
  1047. mt_counter:    dc.b    $0
  1048.  
  1049. mt_break:    dc.b    $0
  1050. mt_dmacon:    dc.w    $0
  1051. mt_samplestarts:blk.l    $1f,0
  1052. mt_voice1:    blk.w    10,0
  1053.         dc.w    $1
  1054.         blk.w    3,0
  1055. mt_voice2:    blk.w    10,0
  1056.         dc.w    $2
  1057.         blk.w    3,0
  1058. mt_voice3:    blk.w    10,0
  1059.         dc.w    $4
  1060.         blk.w    3,0
  1061. mt_voice4:    blk.w    10,0
  1062.         dc.w    $8
  1063.         blk.w    3,0
  1064.  
  1065.  dc.w $0004,$c76c,$0400,$0005,$0000
  1066.  
  1067.  son:  dc.l 0
  1068.  pil:  dc.l $6400a
  1069.  pon:  dc.l $64027
  1070.  sub:  dc.w $0001,$0000,$0100,$0100,$0000
  1071.  sil:  dc.w $0000
  1072.  pap:  dc.w $0000
  1073.  rap:  dc.w $0000
  1074.  
  1075. ; set char in the right place
  1076.  
  1077. ctab:    DC.B    ' !"#$% @()*+,-./0123'
  1078.         DC.B    '456789:;<=>_ ABCDEFG'
  1079.         DC.B    'HIJKLMNOPQRSTUVWXYZ '
  1080.                
  1081. ;   define Twizz chars
  1082.  
  1083. vague:  
  1084.     DC.W    $0000,$0002,$0004,$0006,$0008,$000A,$000C,$000E
  1085.     DC.W    $0010,$0012,$0014,$0016,$0018,$001a,$001c,$001e
  1086.     DC.W    $0020,$0022,$0024,$0026,$0280,$0282,$0284,$0286
  1087.     DC.W    $0288,$028a,$028c,$028e,$0290,$0292,$0294,$0296
  1088.     DC.W    $0298,$029a,$029c,$029e,$02a0,$02a2,$02a4,$02a6
  1089.         DC.W    $0500,$0502,$0504,$0506,$0508,$050a,$050c,$050e
  1090.     DC.W    $0510,$0512,$0514,$0516,$0518,$051a,$051c,$051e
  1091.         DC.W    $0520,$0522,$0524,$0526
  1092.  
  1093. ;  the mainscroll text
  1094.  
  1095. text:   
  1096.  
  1097. DC.B 'WELCOME THIS IS PARALAX SYSTEMS WITH A NEW INTRO. '
  1098. DC.B ' FIRST OF ALL'         
  1099. DC.B ' SOME FAST CREDITS FOR THIS INTRO.    '
  1100. DC.B '       CODE AND MUSIC BY SHARP       '
  1101. DC.B '   GFX BY TWIZZ      '
  1102. DC.B ' I WANT YOU TO KNOW THAT IM NOT VERY PROUD OF THIS'
  1103. DC.B ' INTRO EVEN THOUGH ITS MY FIRST FOR '
  1104. DC.B ' PARALAX SYSTEMS '
  1105. DC.B '. WE HAD JUST JOINED US WITH ENATOR IN THE HORIZON' 
  1106. DC.B ' PARTY AND WE HAD A BIG'
  1107. DC.B ' DISCUSSION ABOUT THE NEW NAME OF THE GROUP. '
  1108. DC.B ' FINNALLY, AFTER MANY VOTINGS WE CAME TO THE '
  1109. DC.B 'CONCLUSION THAT "ABSTRACT" WAS GOOD ENOUGH FOR'
  1110. DC.B ' THE MOMENT.  BUT I THINK IT IS TOO'
  1111. DC.B ' ANONYMOUS TO GET ATTENTION BUT I HAVE NO'
  1112. DC.B 'BETTER SUGGESTIONS OF MY OWN.       THIS SCROLL'
  1113. DC.B ' WOULDNT BE SO MUSH LONGER. MY HEAD IS EMPTY AND '
  1114. DC.B 'I HAD NOTHING TO WRITE ABOUT. USEUFULLY I COULD WRITE '
  1115. DC.B 'GREETINGS AND MEMBERLIST AND SO ON...    BUT IF YOU LOOK '
  1116. DC.B 'IN THE MIDDLE OF THE DEMO COULD YOU FIND SOME CRAP' 
  1117. DC.B ' LIKE THAT AND I THINK IT IS UNNECESSARY TO WRITE THIS' 
  1118. DC.B ' TWICE.        THE SCROLL WILL BE STOP HERE.          '
  1119. DC.B '       @'
  1120.  
  1121. ;  copperlist
  1122.  
  1123. copper:    
  1124.         DC.W    $0180,$0000,$0120
  1125. sp1:    DC.W    $0000
  1126.         DC.W    $0122
  1127. sp2:    DC.W    $0000
  1128.         DC.W    $0124
  1129. sp3:    DC.W    $0000
  1130.     DC.W    $0126
  1131. sp4:    DC.W    $0000
  1132.         DC.W    $0128
  1133. sp5:    DC.W    $0000
  1134.         DC.W    $012A
  1135. sp6:    DC.W    $0000
  1136.         DC.W    $012C
  1137. sp7:    DC.W    $0000
  1138.     DC.W    $012E
  1139. sp8:    DC.W    $0000
  1140.         DC.W    $008E,$2051,$0090,$25C1,$0092,$0038
  1141.     DC.W    $0094,$00D0,$0108,$0000,$010A,$0000,$2F01,$FFFE
  1142.     DC.W    $0100,$5000,$00E0
  1143. blt1h:  DC.W    $0000,$00E2
  1144. blt1l:  DC.W    $0000,$00E4
  1145. blt2h:  DC.W    $0000,$00E6    
  1146. blt2l:  DC.W    $0000,$00E8
  1147. blt3h:  DC.W    $0000,$00EA
  1148. blt3l:  DC.W    $0000,$00EC
  1149. blt4h:  DC.W    $0000,$00EE    
  1150. blt4l:  DC.W    $0000,$00F0
  1151. blt5h:  DC.W    $0000,$00F2
  1152. blt5l:  DC.W    $0000
  1153.  
  1154.     dc.w    $0180
  1155. col:     dc.w    $0000 ,$0182,$0000 ,$0184,$0000 ,$0186,$0000
  1156.     dc.w    $0188,$0000 ,$018a,$0000 ,$018c,$0000 ,$018e,$0000
  1157.     dc.w    $0190,$0000 ,$0192,$0000 ,$0194,$0000 ,$0196,$0000
  1158.     dc.w    $0198,$0000 ,$019a,$0000 ,$019c,$0000 ,$019e,$0000
  1159.     dc.w    $01a0,$0000 ,$01a2,$0000 ,$01a4,$0000 ,$01a6,$0000
  1160.     dc.w    $01a8,$0000 ,$01aa,$0000 ,$01ac,$0000 ,$01ae,$0000
  1161.     dc.w    $01b0,$0000 ,$01b2,$0000 ,$01b4,$0000 ,$01b6,$0000
  1162.     dc.w    $01b8,$0000 ,$01ba,$0000 ,$01bc,$0000 ,$01be,$0000
  1163.  
  1164.     DC.W    $7b01,$FFFE,$0100,$0000,$0180,$0000
  1165.  
  1166.     dc.w $0180,$0100,$7c01,$fffe,$0180,$0200,$7d01,$fffe         
  1167.     dc.w $0180,$0300,$7e01,$fffe,$0180,$0400,$7f01,$fffe
  1168.     dc.w $0180,$0500,$8001,$fffe,$0180,$0400,$8201,$fffe
  1169.     dc.w $0180,$0300,$8301,$fffe,$0180,$0200,$8401,$fffe
  1170.     dc.w $0180,$0100,$8501,$fffe,$0180,$0000,$8601,$fffe 
  1171.  
  1172.     DC.W    $0092,$0028,$0094,$00D0
  1173.     DC.W    $008E,$1C51,$0090,$77D1
  1174.     DC.W    $0108
  1175. mod1:   DC.W    $0046
  1176.         DC.W    $010A
  1177. mod2:   DC.W    $0046
  1178.     DC.W    $0180,$0000,$0182,$0100
  1179.     DC.W    $0092,$0038,$0094,$00D0,$0102,$0000
  1180.     DC.W    $00E0
  1181. blk1:   DC.W    $0006
  1182. setone: DC.W    $00E2
  1183. blk2:   DC.W    $400a
  1184.         DC.W    $8b01,$FFFE,$0100,$1600
  1185.  
  1186.         DC.W    $0120,$0000,$0122,$0000,$0124,$0000
  1187.         DC.W    $0126,$0000,$0128,$0000,$012a,$0000
  1188.         DC.W    $012c,$0000,$012e,$0000,$0130,$0000
  1189.         DC.W    $0132,$0000,$0134,$0000,$0136,$0000
  1190.         DC.W    $0138,$0000,$013a,$0000,$013c,$0000
  1191.         DC.W    $013e,$0000
  1192.  
  1193.     DC.W    $8c01,$FFFE,$0108,$0000,$0182,$0020
  1194.         DC.W    $8d01,$fffe,$0108,$0000,$0182,$0030       
  1195.         DC.W    $8e01,$fffe,$0108,$0000,$0182,$0040
  1196.         DC.W    $8f01,$fffe,$0108,$0000,$0182,$0050
  1197.         DC.W    $9001,$fffe,$0108,$0000,$0182,$0060
  1198.         DC.W    $9101,$fffe,$0108,$0000,$0182,$0070
  1199.         DC.W    $9201,$fffe,$0108,$0000,$0182,$0080
  1200.         DC.W    $9301,$fffe,$0108,$0000,$0182,$0090
  1201.         DC.W    $9401,$fffe,$0108,$0000,$0182,$00a0
  1202.         DC.W    $9501,$fffe,$0108,$0000,$0182,$00b0
  1203.         DC.W    $9601,$fffe,$0108,$0000,$0182,$00c0
  1204.         DC.W    $9701,$fffe,$0108,$0000,$0182,$00d0
  1205.         DC.W    $9801,$fffe,$0108,$0000,$0182,$00e0
  1206.         DC.W    $9901,$fffe,$0108,$0000,$0182,$00f0
  1207.                 
  1208. col2:   blk.b   3960
  1209.  
  1210.         DC.W    $d801,$fffe,$0108,$0000,$0180,$0000 
  1211.  
  1212.         DC.W    $df01,$fffe,$0108,$0000,$0182,$00e0
  1213.         DC.W    $e001,$fffe,$0108,$0000,$0182,$00d0
  1214.         DC.W    $e101,$fffe,$0108,$0000,$0182,$00c0
  1215.         DC.W    $e201,$fffe,$0108,$0000,$0182,$00b0
  1216.         DC.W    $e301,$fffe,$0108,$0000,$0182,$00a0
  1217.         DC.W    $e401,$fffe,$0108,$0000,$0182,$0090
  1218.         DC.W    $e501,$fffe,$0108,$0000,$0182,$0080
  1219.         DC.W    $e601,$fffe,$0108,$0000,$0182,$0070    
  1220.         DC.W    $e701,$fffe,$0108,$0000,$0182,$0060
  1221.         DC.W    $e801,$fffe,$0108,$0000,$0182,$0050
  1222.         DC.W    $e901,$fffe,$0108,$0000,$0182,$0040
  1223.         DC.W    $ea01,$fffe,$0108,$0000,$0182,$0030
  1224.         DC.W    $eb01,$fffe,$0108,$0000,$0182,$0020
  1225.         DC.W    $ec01,$fffe,$0108,$0000,$0182,$0010  
  1226.  
  1227.         DC.W    $ed01,$FFFE
  1228.  
  1229.         DC.W    $0100,$0000        
  1230.  
  1231.     dc.w $0180,$0100,$f401,$fffe,$0180,$0200,$f501,$fffe
  1232.     dc.w $0180,$0300,$f601,$fffe,$0180,$0400,$f701,$fffe
  1233.     dc.w $0180,$0500,$f801,$fffe,$0180,$0400,$fa01,$fffe
  1234.     dc.w $0180,$0300,$fb01,$fffe,$0180,$0200,$fc01,$fffe
  1235.     dc.w $0180,$0100,$fd01,$fffe,$0180,$0000,$fe01,$fffe
  1236.  
  1237.         DC.W    $FF01,$FFFE
  1238.     DC.W    $00E0,$0007,$00E2,$1000
  1239.     DC.W    $008E,$FF64,$0090,$38D1
  1240.     DC.W    $0092,$0028,$0094,$00D8,$0108,$0004,$010A,$0004
  1241.     DC.W    $0180,$0000,$0182,$0368,$0184,$0200    
  1242.     DC.W    $0102,$0033,$FFDD,$FFFE
  1243.         dc.w    $0501,$fffe,$0100,$1000
  1244.  
  1245.         dc.w    $0182,$0468,$0601,$fffe,$0182,$0579,$0701,$fffe
  1246.         dc.w    $0182,$068b,$0801,$fffe,$0182,$079c,$0901,$fffe
  1247.         dc.w    $0182,$08ae,$0a01,$fffe,$0182,$098f,$0b01,$fffe
  1248.         dc.w    $0182,$0acf,$0c01,$fffe,$0182,$0bdf,$0d01,$fffe
  1249.         dc.w    $0182,$0cef,$0e01,$fffe,$0182,$0dff,$0f01,$fffe
  1250.  
  1251.         dc.w    $1301,$FFFE,$0100,$0000
  1252.     DC.W    $1B01,$FFFE,$0180,$0100,$1D01,$FFFE,$0180,$0200
  1253.     DC.W    $1F01,$FFFE,$0180,$0300,$2101,$FFFE,$0180,$0400
  1254.     DC.W    $2301,$FFFE,$0180,$0500,$2501,$FFFE,$0180,$0600
  1255.     DC.W    $2701,$FFFE,$0180,$0700,$2901,$FFFE,$0180,$0800
  1256.     DC.W    $2B01,$FFFE,$0180,$0900,$2D01,$FFFE,$0180,$0A00
  1257.     DC.W    $2F01,$FFFE,$0180,$0B00,$FFFF,$FFFE,$0000,$0000
  1258.  
  1259. ;   logo color
  1260. plane:    
  1261.  
  1262. dc.w    $0000 ,$0eca ,$0f26 ,$0e26 ,$0d15 ,$0d15 ,$0c05 ,$0b04
  1263. dc.w    $0fff ,$0ccc ,$0aaa ,$0666 ,$0555 ,$0333 ,$0444 ,$0777
  1264. dc.w    $0620 ,$0e52 ,$0a52 ,$0fca ,$0333 ,$0444 ,$0555 ,$0666
  1265. dc.w    $0777 ,$0888 ,$0999 ,$0aaa ,$0ccc ,$0ddd ,$0eee ,$0fff
  1266.  
  1267. ;   adds plane for plane
  1268.  
  1269. tom:    dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1270.         dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1271.         dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1272.         dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1273.         dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 
  1274.     
  1275. ;   sorry!!!!
  1276.  
  1277. charpos:
  1278.     DC.W    $4142,$4344,$4546,$4748,$494A,$4B4C,$4D4E,$4F50
  1279.     DC.W    $5152,$5354,$5556,$5758,$595A,$3031,$3233,$3435
  1280.     DC.W    $3637,$3839,$2E21,$3F2C,$2829,$2D3B,$3A20,$0000
  1281.     DC.W    $0000,$0000
  1282. txt:    DC.L    Vtext
  1283.  
  1284. ; text for hori.scroll (Vscroll)
  1285.  
  1286. Vtext:  
  1287.  dc.b '                                         ',$00    
  1288.  dc.b '                                         ',$00  
  1289.  dc.b '                                         ',$00  
  1290.  dc.b '                                         ',$00
  1291.  dc.b '                                         ',$00
  1292.  dc.b '                                         ',$00
  1293.  dc.b '                                         ',$00
  1294.  dc.b '                                         ',$00
  1295.  dc.b '                                         ',$00
  1296.  dc.b '                                         ',$00
  1297.  dc.b '                                         ',$00
  1298.  dc.b '                                         ',$00
  1299.  dc.b '                                         ',$00
  1300.  dc.b '                                         ',$00
  1301.  dc.b '                                         ',$00
  1302.  dc.b '                                         ',$00
  1303.  dc.b '                                         ',$00
  1304.  dc.b '                                         ',$00
  1305.  dc.b '                                         ',$00
  1306.  dc.b '                                         ',$00
  1307.  dc.b '                                         ',$00
  1308.  dc.b '                                         ',$00
  1309.  dc.b '---------------------------------------- ',$00
  1310.  dc.b '            GREETING GOES TO             ',$00
  1311.  dc.b '---------------------------------------- ',$00
  1312.  dc.b '                                         ',$00
  1313.  dc.b '                ADEPT                    ',$00 
  1314.  dc.b '                ARGON                    ',$00
  1315.  dc.b '                AURORA                   ',$00
  1316.  dc.b '                 BAT                     ',$00
  1317.  dc.b '                BRONX                    ',$00 
  1318.  dc.b '                CHASM                    ',$00
  1319.  dc.b '                CENSOR                   ',$00
  1320.  dc.b '               CRYSTAL                   ',$00
  1321.  dc.b '            DELICIUS DREAMS              ',$00
  1322.  dc.b '               HYPNOSIS                  ',$00
  1323.  dc.b '               HORIZON                   ',$00
  1324.  dc.b '             HELLION CREW                ',$00
  1325.  dc.b '                 KAAN                    ',$00
  1326.  dc.b '                 LINK                    ',$00
  1327.  dc.b '                MANIAC                   ',$00   
  1328.  dc.b '                  MAX                    ',$00 
  1329.  dc.b '                  MIC                    ',$00
  1330.  dc.b '                OMICROM                  ',$00 
  1331.  dc.b '                OXYGENE                  ',$00
  1332.  dc.b '               RED SECTOR                ',$00
  1333.  dc.b '                SANXION                  ',$00
  1334.  dc.b '               SCIENCE451                ',$00
  1335.  dc.b '                SKYRIDERS                ',$00
  1336.  dc.b '                SARUMAN                  ',$00
  1337.  dc.b '                TELLADON                 ',$00
  1338.  dc.b '                 TRACE                   ',$00
  1339.  dc.b '                TRISTAR                  ',$00
  1340.  dc.b '                 VOICE                   ',$00
  1341.  dc.b '                 ZHARK                   ',$00
  1342.  dc.b '                ZEN666                   ',$00
  1343.  dc.b '              WORLD VISION               ',$00   
  1344.  dc.b '                                         ',$00
  1345.  dc.b '        END OF THE GREETING LIST         ',$00
  1346.  dc.b '                                         ',$00
  1347.  dc.b '                                         ',$00
  1348.  dc.b '                                         ',$00
  1349.  dc.b '                                         ',$00
  1350.  dc.b '                                         ',$00
  1351.  dc.b '                                         ',$00
  1352.  dc.b '                                         ',$00
  1353.  dc.b '                                         ',$00
  1354.  dc.b '                                         ',$00
  1355.  dc.b '                                         ',$00
  1356.  dc.b '                                         ',$00
  1357.  dc.b '                                         ',$00
  1358.  dc.b '                                         ',$00
  1359.  dc.b '                                         ',$00
  1360.  dc.b '                                         ',$00
  1361.  dc.b '                                         ',$00
  1362.  dc.b '                                         ',$00
  1363.  dc.b '                                         ',$00
  1364.  dc.b '                                         ',$00
  1365.  dc.b '                                         ',$00
  1366.  dc.b '                                         ',$00
  1367.  dc.b '                                         ',$00 
  1368.  dc.b '                                         ',$00
  1369.  dc.b '                                         ',$00
  1370.  dc.b '                                         ',$00
  1371.  dc.b '                                         ',$00
  1372.  dc.b '                                         ',$00
  1373.  dc.b '                                         ',$ff
  1374.  
  1375. ; set horizon scrollplane
  1376.  
  1377. emp:    DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1378.     DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1379.     DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1380.     DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1381.     DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1382.     DC.W    $0118,$0118,$0118,$0118,$0118,$0118,$0118,$0118
  1383.     DC.W    $0118,$0118,$0118,$0118,$0118,$0118,$0118,$0118
  1384.     DC.W    $0118,$0118,$0118,$0118,$0118,$0118,$0118,$0118
  1385.     DC.W    $0118,$0118,$0118,$0118,$0118,$0118,$0118,$0118
  1386.     DC.W    $0118,$0118,$0118,$0118,$0118,$0118,$0118,$0118
  1387.  
  1388.  
  1389. ;   for the first text to routine 'write' 
  1390.  
  1391. text2: 
  1392.  dc.b '                    '
  1393.  dc.b '                    '
  1394.  dc.b '                    '
  1395.  dc.b '     ABSTRACT       ' 
  1396.  dc.b '     PRESENTS       '
  1397.  dc.b '                    '
  1398.  dc.b '    A NEW INTRO     '
  1399.  dc.b '------------------  '
  1400.  
  1401.  dc.b '                    ' 
  1402.  dc.b '                    '
  1403.  dc.b '                    '
  1404.  dc.b '      CREDITS       '
  1405.  dc.b '                    '      
  1406.  dc.b '    CODE    SHARP   '
  1407.  dc.b '    GFX     TWIZZ   '
  1408.  dc.b '    MUSIC   SHARP   '  
  1409.  
  1410.  dc.b '                    '
  1411.  dc.b '                    '
  1412.  dc.b '                    '
  1413.  dc.b 'ABSTRACT MEMBER LIST' 
  1414.  dc.b '                    '
  1415.  dc.b ' DROID TWIZZ JAC64  '     
  1416.  dc.b 'ALE PACO BANEX SHARP' 
  1417.  dc.b ' CICERO TIX SPECTER '  
  1418.  
  1419.  dc.b '                    '
  1420.  dc.b '                    '
  1421.  dc.b '                    '
  1422.  dc.b 'MAXTER CROSSFOG MR.B'
  1423.  dc.b ' RAINMAN PUKE KRYPT '
  1424.  dc.b '   MAESTRO SPOLIX   '
  1425.  dc.b '   JMH JAC MERLIN   ' 
  1426.  dc.b '   CYGNUS XANNOR    '
  1427.  
  1428.  dc.b '                    '
  1429.  dc.b '                    '
  1430.  dc.b '                    '
  1431.  dc.b '                    '
  1432.  dc.b ' WELL I THINK IT IS '
  1433.  dc.b '                    '
  1434.  dc.b ' TIME FOR THE GREETS'
  1435.  dc.b '                    ',$ff
  1436.  
  1437. ;  the second text 
  1438.  
  1439. text3: 
  1440.  dc.b '                    '
  1441.  dc.b '                    '
  1442.  dc.b '                    '
  1443.  dc.b 'FOR SWAPPING        '
  1444.  dc.b ' PACO/PARALAX       '
  1445.  dc.b ' KENNETH LJUNGGREN  '
  1446.  dc.b ' VAARUDSRINGEN 172  '
  1447.  dc.b ' 127 41 SKAERHOLMEN '
  1448.  
  1449.  dc.b '                    ' 
  1450.  dc.b '                    '
  1451.  dc.b '                    '
  1452.  dc.b 'OR                  '
  1453.  dc.b ' KRYPT/ENATOR       '
  1454.  dc.b ' MYRSTIGEN 5        '
  1455.  dc.b ' 151 60 SODERTAELJE '
  1456.  dc.b '                    '
  1457.  
  1458.  dc.b '                    '
  1459.  dc.b '                    '
  1460.  dc.b '                    '
  1461.  dc.b '                    '
  1462.  dc.b ' THAT WAS ALL.....  '
  1463.  dc.b '                    '
  1464.  dc.b ' GOODBYE FOLKS      '
  1465.  dc.b '                    ' 
  1466.  
  1467.  dc.b '                    '
  1468.  dc.b '                    '
  1469.  dc.b '                    ' 
  1470.  dc.b '                    '
  1471.  dc.b '                    '
  1472.  dc.b '                    '
  1473.  dc.b '                    ' 
  1474.  dc.b '                    ',$ff
  1475.  
  1476. text4: dc.l 0
  1477.  
  1478. ;   the sinus bars
  1479.  
  1480. posi:    DC.W    $0140,$0140,$0140,$0140,$0140,$0140,$0140,$013F
  1481.     DC.W    $013F,$013F,$013F,$013F,$013E,$013E,$013E,$013D
  1482.     DC.W    $013D,$013D,$013C,$013C,$013B,$013B,$013A,$013A
  1483.     DC.W    $0139,$0139,$0138,$0137,$0137,$0136,$0135,$0135
  1484.     DC.W    $0134,$0133,$0132,$0131,$0131,$0130,$012F,$012E
  1485.     DC.W    $012D,$012C,$012B,$012A,$0129,$0128,$0127,$0126
  1486.     DC.W    $0125,$0124,$0123,$0122,$0121,$011F,$011E,$011D
  1487.     DC.W    $011C,$011A,$0119,$0118,$0117,$0115,$0114,$0113
  1488.     DC.W    $0111,$0110,$010E,$010D,$010B,$010A,$0109,$0107
  1489.     DC.W    $0106,$0104,$0102,$0101,$00FF,$00FE,$00FC,$00FB
  1490.     DC.W    $00F9,$00F7,$00F6,$00F4,$00F2,$00F1,$00EF,$00ED
  1491.     DC.W    $00EB,$00EA,$00E8,$00E6,$00E4,$00E3,$00E1,$00DF
  1492.     DC.W    $00DD,$00DB,$00DA,$00D8,$00D6,$00D4,$00D2,$00D0
  1493.     DC.W    $00CE,$00CD,$00CB,$00C9,$00C7,$00C5,$00C3,$00C1
  1494.     DC.W    $00BF,$00BD,$00BB,$00B9,$00B7,$00B6,$00B4,$00B2
  1495.     DC.W    $00B0,$00AE,$00AC,$00AA,$00A8,$00A6,$00A4,$00A2
  1496.     DC.W    $00A0,$009E,$009C,$009A,$0098,$0096,$0094,$0092
  1497.     DC.W    $0090,$008E,$008C,$008A,$0089,$0087,$0085,$0083
  1498.     DC.W    $0081,$007F,$007D,$007B,$0079,$0077,$0075,$0073
  1499.     DC.W    $0072,$0070,$006E,$006C,$006A,$0068,$0066,$0065
  1500.     DC.W    $0063,$0061,$005F,$005D,$005C,$005A,$0058,$0056
  1501.     DC.W    $0055,$0053,$0051,$004F,$004E,$004C,$004A,$0049
  1502.     DC.W    $0047,$0045,$0044,$0042,$0041,$003F,$003E,$003C
  1503.     DC.W    $003A,$0039,$0037,$0036,$0035,$0033,$0032,$0030
  1504.     DC.W    $002F,$002D,$002C,$002B,$0029,$0028,$0027,$0026
  1505.     DC.W    $0024,$0023,$0022,$0021,$001F,$001E,$001D,$001C
  1506.     DC.W    $001B,$001A,$0019,$0018,$0017,$0016,$0015,$0014
  1507.     DC.W    $0013,$0012,$0011,$0010,$000F,$000F,$000E,$000D
  1508.     DC.W    $000C,$000B,$000B,$000A,$0009,$0009,$0008,$0007
  1509.     DC.W    $0007,$0006,$0006,$0005,$0005,$0004,$0004,$0003
  1510.     DC.W    $0003,$0003,$0002,$0002,$0002,$0001,$0001,$0001
  1511.     DC.W    $0001,$0001,$0000,$0000,$0000,$0000,$0000,$0000
  1512.  
  1513. ;   colorlist for bars
  1514.  
  1515. data:    DC.W    $0001,$0002,$0003,$0004,$0005,$0006,$0007,$0008
  1516.     DC.W    $0009,$000a,$000b,$000c,$000d,$000e,$000f,$000f
  1517.     DC.W    $000e,$000d,$000c,$000b,$000a,$0009,$0008,$0007
  1518.     DC.W    $0006,$0005,$0004,$0003,$0002,$0001,$0000,$0000
  1519.     DC.W    $0100,$0200,$0300,$0400,$0500,$0600,$0700,$0800
  1520.     DC.W    $0900,$0a00,$0b00,$0c00,$0d00,$0e00,$0f00,$0f00
  1521.     DC.W    $0f00,$0f00,$0f00,$0f00,$0e00,$0d00,$0c00,$0b00
  1522.     DC.W    $0a00,$0900,$0800,$0700,$0600,$0500,$0400,$0300
  1523.     DC.W    $0200,$0100,$0000,$0000,$0001,$0002,$0003,$0004
  1524.     DC.W    $0005,$0006,$0007,$0008,$0009,$000a,$000b,$000c
  1525.     DC.W    $000d,$000e,$000f,$000f,$000e,$000d,$000c,$000b
  1526.     DC.W    $000a,$0009,$0008,$0007,$0006,$0005,$0004,$0003
  1527.     DC.W    $0002,$0001,$0000,$0000,$0100,$0200,$0300,$0400
  1528.     DC.W    $0500,$0600,$0700,$0800,$0900,$0a00,$0b00,$0c00
  1529.     DC.W    $0d00,$0e00,$0f00,$0f00,$0f00,$0f00,$0f00,$0f00
  1530.     DC.W    $0e00,$0d00,$0c00,$0b00,$0a00,$0900,$0800,$0700
  1531.     DC.W    $0600,$0500,$0400,$0300,$0200,$0100,$0000,$0000
  1532.     DC.W    $0001,$0002,$0003,$0004,$0005,$0006,$0007,$0008
  1533.     DC.W    $0008,$0007,$0006,$0005,$0004,$0003,$0002,$0001
  1534.     DC.W    $0000,$0000,$0100,$0200,$0300,$0400,$0500,$0600
  1535.     DC.W    $0700,$0800,$0900,$0a00,$0b00,$0c00,$0d00,$0e00
  1536.     DC.W    $0f00,$0f00,$0f00,$0f00,$0f00,$0f00,$0e00,$0d00
  1537.     DC.W    $0c00,$0b00,$0a00,$0900,$0800,$0700,$0600,$0500
  1538.     DC.W    $0400,$0300,$0200,$0100,$0000,$0000,$0001,$0002
  1539.     DC.W    $0003,$0004,$0005,$0006,$0007,$0008,$0009,$000a
  1540.     DC.W    $000b,$000c,$000d,$000e,$000f,$000f,$000e,$000d
  1541.     DC.W    $000c,$000b,$000a,$0009,$0008,$0007,$0006,$0005
  1542.     DC.W    $0004,$0003,$0002,$0001,$0000,$0000,$0100,$0200
  1543.     DC.W    $0300,$0400,$0500,$0600,$0700,$0800,$0900,$0a00
  1544.     DC.W    $0b00,$0c00,$0d00,$0e00,$0f00,$0f00,$0f00,$0f00
  1545.     DC.W    $0f00,$0f00,$0e00,$0d00,$0c00,$0b00,$0a00,$0900
  1546.     DC.W    $0800,$0700,$0600,$0500,$0400,$0300,$0200,$0100
  1547.     DC.W    $0000,$0000,$0001,$0002,$0003,$0004,$0005,$0006
  1548.     DC.W    $0007,$0008,$0009,$000a,$000b,$000c,$000d,$000e
  1549.     DC.W    $000f,$000f,$000e,$000d,$000c,$000b,$000a,$0009
  1550.     DC.W    $0008,$0007,$0006,$0005,$0004,$0003,$0002,$0001
  1551.  
  1552.  
  1553. SPRITES:
  1554.  
  1555.     dc.l    $2ACF2B00,$80000000,$2C572D00,$00008000
  1556.     dc.l    $2E322F00,$80008000,$30513100,$80000000
  1557.     dc.l    $36533700,$80000000,$38363900,$00008000
  1558.     dc.l    $3A283B00,$80008000,$3C993D00,$80000000
  1559.     dc.l    $3EA53F00,$00008000,$40884100,$80008000
  1560.     dc.l    $42844300,$80000000,$444A4500,$00008000
  1561.     dc.l    $468D4700,$80008000,$48B34900,$80000000
  1562.     dc.l    $4A6C4B00,$00008000,$4C254D00,$80008000
  1563.     dc.l    $4EAE4F00,$80000000,$50065100,$00008000
  1564.     dc.l    $52EF5300,$80008000,$54A05500,$80000000
  1565.     dc.l    $565A5700,$00008000,$58195900,$80008000
  1566.     dc.l    $5A725B00,$80000000,$5CF45D00,$00008000
  1567.     dc.l    $5E615F00,$80008000,$60C96100,$80000000
  1568.     dc.l    $62D36300,$00008000,$64776500,$80008000
  1569.     dc.l    $66AA6700,$80000000,$68C76900,$00008000
  1570.     dc.l    $6A486B00,$80008000,$6CCD6D00,$80000000
  1571.     dc.l    $6EF06F00,$00008000,$70D77100,$80008000
  1572.     dc.l    $724E7300,$80000000,$74C47500,$00008000
  1573.     dc.l    $76E77700,$80008000,$78957900,$80000000
  1574.     dc.l    $7A0A7B00,$00008000,$7C457D00,$80008000
  1575.     dc.l    $7E4C7F00,$80000000,$80528100,$00008000
  1576.     dc.l    $820D8300,$80008000,$84468500,$80000000
  1577.     dc.l    $86CD8700,$00008000,$881D8900,$80008000
  1578.     dc.l    $8A908B00,$80000000,$8CB38D00,$00008000
  1579.     dc.l    $8E4C8F00,$80008000,$90BA9100,$80000000
  1580.     dc.l    $92639300,$00008000,$94449500,$80008000
  1581.     dc.l    $96B09700,$80000000,$98DA9900,$00008000
  1582.     dc.l    $9A199B00,$80008000,$9CAF9D00,$80000000
  1583.     dc.l    $9E1A9F00,$00008000,$A08CA100,$80008000
  1584.     dc.l    $A28BA300,$80000000,$A460A500,$00008000
  1585.     dc.l    $A632A700,$80008000,$A859A900,$80000000
  1586.     dc.l    $AA59AB00,$00008000,$AC90AD00,$80008000
  1587.     dc.l    $AEC5AF00,$80000000,$B0DCB100,$00008000
  1588.     dc.l    $B2DCB300,$80008000,$B4BDB500,$80000000
  1589.     dc.l    $B689B700,$00008000,$B883B900,$80008000
  1590.     dc.l    $BA4BBB00,$80000000,$BC35BD00,$00008000
  1591.     dc.l    $BE36BF00,$80008000,$C061C100,$80000000
  1592.     dc.l    $C29AC300,$00008000,$C49DC500,$80008000
  1593.     dc.l    $C6CFC700,$80000000,$C8F3C900,$00008000
  1594.     dc.l    $CACDCB00,$80008000,$CCC6CD00,$80000000
  1595.     dc.l    $CE84CF00,$00008000,$D07DD100,$80008000
  1596.     dc.l    $D247D300,$80000000,$D440D500,$00008000
  1597.     dc.l    $D657D700,$80008000,$D861D900,$80000000
  1598.     dc.l    $DA6CDB00,$00008000,$DC6FDD00,$80008000
  1599.     dc.l    $DE71DF00,$80000000,$E0A4E100,$00008000
  1600.     dc.l    $E2D8E300,$80008000,$E4DCE500,$80000000
  1601.     dc.l    $E6F0E700,$00008000,$E8F0E900,$80008000
  1602.     dc.l    $EAEEEB00,$80000000,$ECBFED00,$00008000
  1603.     dc.l    $EEBAEF00,$80008000,$F0A0F100,$80000000
  1604.     dc.l    $F281F300,$00008000,$F451F500,$80008000
  1605.     dc.l    $F647F700,$80000000,$F874F900,$00008000
  1606.     dc.l    $FA94FB00,$80008000,$FC93FD00,$80000000
  1607.     dc.l    $FE8FFF00,$00008000,$00670106,$80008000
  1608.     dc.l    $02650306,$80000000,$04780506,$00008000
  1609.     dc.l    $067D0706,$80008000,$08C70906,$80000000
  1610.     dc.l    $0AC80B06,$00008000,$0CCD0D06,$80008000
  1611.     dc.l    $0ECD0F06,$80000000,$10D11106,$00008000
  1612.     dc.l    $12CF1306,$80008000,$14BF1506,$80000000
  1613.     dc.l    $168C1706,$00008000,$18801906,$80008000
  1614.     dc.l    $1A591B06,$80000000,$1C4D1D06,$00008000
  1615.     dc.l    $1E431F06,$80008000,$20432106,$80000000
  1616.     dc.l    $22432306,$00008000,$24572506,$80008000
  1617. sp0:    dc.l    $00000000
  1618.  
  1619. font:   blk.b 1920,0   
  1620. logo:   blk.b 17600,0  
  1621.  
  1622. vfont:  blk.b 512,0
  1623. blk.b 200,0
  1624.   
  1625. qfont:  blk.b 592,0 
  1626. blk.b 200,0
  1627.  
  1628. mt_data: blk.b 26348,0
  1629.  
  1630. >extern "asmdisk2:logo/rawfitta",logo
  1631. >extern "asmdisk2:font/TWIZZ.font",font
  1632. >extern "asmdisk2:font/Vfont",vfont
  1633. >extern "asmdisk2:font/qfont",qfont
  1634. >extern "asmdisk2:module/mod.fireballs",mt_data
  1635.  
  1636.