home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / intro5.s < prev    next >
Text File  |  1995-03-17  |  25KB  |  1,180 lines
  1.     opt    c-,d+
  2.     incdir    "df0:include/"
  3.     include graphics/gfx.i
  4.     include    graphics/rastport.i
  5.     include graphics/graphics_lib.i
  6.     include exec/memory.i
  7.     include    exec/exec_lib.i
  8.     include    hardware/custom.i
  9.  
  10. custom    equ    $dff000
  11.  
  12. memory    equ    MEMF_CHIP+MEMF_CLEAR
  13.     
  14.     lea    GFXLIB,a1
  15.     MOVEQ    #0,D0
  16.     CALLEXEC OPENLIBRARY
  17.     TST    D0
  18.     BEQ    ERROR
  19.     MOVE.L    D0,_GFXBASE
  20.     
  21.     MOVE.L    #MYPICCY,MEMORY_POINTER
  22.     LEA MYBITMAP,A0
  23.     MOVE.L    #$05,D0
  24.     MOVE.L    #368,D1
  25.     MOVE.L    #256,D2
  26.     CALLGRAF INITBITMAP
  27.     LEA    MYRASTPORT,A1
  28.     CALLGRAF INITRASTPORT
  29.     LEA    MYRASTPORT,A1
  30.     MOVE.L    #MYBITMAP,RP_BITMAP(A1)
  31.     MOVE.L    MEMORY_POINTER,D0
  32.     MOVE.L    D0,D1
  33.     ADD.L    #11776,D1
  34.     MOVE.L    D1,D2
  35.     ADD.L    #11776,D2
  36.     MOVE.L    D2,D3
  37.     add.l    #11776,D3
  38.     move.l    d3,d4
  39.     add.l    #11776,d4
  40.  
  41.  
  42.     
  43.  
  44.     LEA     MYBITMAP,A0
  45.     MOVE.L    D0,BM_PLANES(a0)
  46.     MOVE.L    D1,BM_PLANES+4(a0)
  47.     MOVE.L     D2,BM_PLANES+8(a0)
  48.     MOVE.L    D3,BM_PLANES+12(A0)
  49.     move.l    d4,BM_PLANES+16(a0)
  50.     MOVE.W    D0,PL0L
  51.     MOVE.W    D1,PL1L
  52.     MOVE.W    D2,PL2L
  53.     MOVE.W    D3,PL3L
  54.     move.w    d4,pl4l
  55.     SWAP    D0
  56.     SWAP    D1
  57.     SWAP    D2
  58.     SWAP    D3
  59.     swap    d4
  60.     MOVE.W    D0,PL0H
  61.     MOVE.W    D1,PL1H
  62.     MOVE.W    D2,PL2H
  63.     MOVE.W    D3,PL3H
  64.     move.w    d4,pl4h
  65.     
  66.  
  67.     bsr    mt_init
  68.     move.l #mytext,read
  69.     move.l #wavedata,wavepos
  70.  
  71.  
  72.     MOVE.L    _GFXBASE,A6
  73.     ADD.L    #$32,A6
  74.     MOVE.W    #$80,DMACON
  75.     MOVE.L    (A6),OLDCOPPER
  76.     MOVE.L    #NEWCOPPER,(A6)
  77.     MOVE.W    #$8080,DMACON
  78.  
  79.     callexec forbid
  80.  
  81.     jsr    copsetup
  82.     
  83.     
  84.     
  85.     
  86.     
  87.     
  88.     move.w     #$8010,$dff09a
  89.     move.l    $6c,old
  90.     move.l  #new,$6c
  91.     
  92.     
  93.     
  94.     
  95.  
  96.  
  97. WAIT    ANDI.B    #$40,$BFE001
  98.     BNE    WAIT
  99.     move.l    old,$6c
  100.  
  101.     callexec permit
  102.  
  103.     MOVE.L    _GFXBASE,A6
  104.     ADD.L    #$32,A6
  105.     MOVE.W    #$80,DMACON
  106.     MOVE.L    OLDCOPPER,(A6)
  107.     MOVE.W    #$8080,DMACON
  108.     move.w    #$8020,$dff096
  109. ERROR    clr.l    d0
  110.     move.w    #$f,$dff096
  111.     move.w    #$0,$dff0a8
  112.     move.w    #$0,$dff0b8
  113.     move.w    #$0,$dff0c8
  114.     move.w    #$0,$dff0d8
  115.     RTS
  116.  
  117.  
  118.  
  119.  
  120. new:    movem.l d0-d7/a0-a6,-(sp)
  121.     and #$10,$dff01e        
  122.     beq out
  123.     move.w    #$10,$dff09c
  124.  
  125.     
  126.     
  127.     bsr    colcop1
  128.     bsr    mt_music
  129.     bsr     textit
  130.     
  131.  
  132.     
  133.     BSR     WAVEIT
  134.     
  135.     
  136.     
  137.     
  138.  
  139. out movem.l (sp)+,d0-d7/a0-a6
  140.     dc.w $4ef9
  141. old dc.l 0
  142.  
  143.  
  144. copsetup    move.l #mypiccy,d1
  145.         move.l #cblock2,a1
  146.         move.l #15,d0
  147.         add.l  #14,a1
  148.         add.l  #8556,d1
  149.         move.l    d1,d2
  150.         add.l     #952,d2
  151. russloop    swap    d1
  152.         move.w    d1,(a1)
  153.         add.l     #4,a1
  154.         swap     d1
  155.         move.w    d1,(a1)
  156.         add.l   #20,a1
  157.         swap    d2
  158.         move.w    d2,(a1)
  159.         add.l    #4,a1
  160.         swap     d2
  161.         move.w    d2,(a1)
  162.         add.l    #20,a1
  163.         add.l    #46,d1
  164.         subi.w    #1,d0
  165.         cmp.w     #0,d0
  166.         bne    russloop
  167.         rts
  168.     
  169. waveit        move.l    #cblock2,a0
  170.         add.l    #23,a0
  171.         moveq    #23,d0
  172.         move.l    wavepos,a1
  173. waveloop    move.b    24(a0),(a0)
  174.         add.l    #24,a0
  175.         subi.w    #1,d0
  176.         cmp.w    #0,d0
  177.         bne    waveloop
  178.         move.b    (a1),(a0)
  179.         add.l #1,WAvepos
  180.         
  181.         move.l wavepos,a5
  182.         cmp.b    #$fe,(a5)
  183.         
  184.         
  185.         
  186.         bne waveok
  187.         move.l    #wavedata,wavepos
  188. waveok        rts
  189.  
  190.  
  191.  
  192. colcop1:    move.l    #90,d0
  193.         lea    cblock1,a0
  194.         add.l     #6,a0
  195.         
  196.         
  197. scrollc        move.w     24(a0),(a0)
  198.         add.l    #24,a0
  199.         
  200.         subi.l    #1,d0
  201.         cmp #0,d0
  202.         bne scrollc
  203. cjin1        clr.l    d0
  204.         move.l    coppos,a2
  205.         
  206.         move.w    (a2),d0
  207.         add.l    #2,coppos
  208.         cmp.w #$ffff,d0
  209.         bne cok
  210.         move.l    #copdata,coppos
  211.         bra cjin1
  212. cok        
  213.         move.w d0,(a0)
  214.         rts
  215.  
  216. textit    lea    myrastport,a1
  217.     MOVEQ    #1,d0
  218.     callgraf setapen
  219.  
  220.  
  221.     
  222.     lea myrastport,a1
  223.     move.l #0,d1
  224.     move.l #2,d0
  225.     move.l #0,d2
  226.     move.l #186,d3
  227.     move.l #368,d4
  228.     move.l #199,d5
  229.     callgraf scrollraster
  230.  
  231. ;    store bit of screen to be zapped
  232. ;    lets say 16 rows starting at 185
  233. ;    = mypiccy+185*46
  234.     move.l #mypiccy,a0
  235.     add.l #185*46,a0
  236.     moveq    #16,d0
  237.     move.l    #buffy,a1
  238. inbuff    move.w    (a0),(a1)+
  239.     add.l    #46,a0
  240.     subi.w    #1,d0
  241.     cmp.w    #0,d0
  242.     bne    inbuff
  243.  
  244.     move.b count,d0
  245.     addi.b #1,d0
  246.     move.b d0,count
  247.     cmpi.b #4,d0
  248.     bne EEE
  249.     move.b #0,count
  250. EEE    lea myrastport,a1
  251.      move.l #366,d0
  252.     clr.l d3
  253.     move.b count,d3
  254.     sub.l d3,d0
  255.     sub.l d3,d0
  256.       move.l #196,d1
  257.     callgraf move
  258.  
  259.     move.l read,a0
  260.     lea myrastport,a1
  261.     move.l #1,d0
  262.     callgraf text
  263.  
  264.     move.l #mypiccy,a0
  265.     add.l #185*46,a0
  266.     moveq    #16,d0
  267.     move.l    #buffy,a1
  268. oubuff    move.w    (a1)+,(a0)
  269.     add.l    #46,a0
  270.     subi.w    #1,d0
  271.     cmp.w    #0,d0
  272.     bne    oubuff
  273.  
  274.     cmp.b    #0,count
  275.     bne    zzz
  276.     move.l read,d0
  277.     addi.l #1,d0
  278.     move.l d0,read
  279.     moveq #0,d4
  280.     move.l read,a5
  281.     
  282.     
  283.     cmp.b    #255,(a5)
  284.     bne zzz
  285.     move.l #mytext,read
  286. on1    
  287. zzz    rts
  288. count    dc.b 0
  289. read    dc.l 0
  290. buffy    ds.w 30
  291. falagz    dc.b 0
  292. coppos    dc.l    copdata
  293. copdata
  294.  dc.w $000,$010,$020,$030,$040,$050,$060,$070,$080,$090,$0a0,$0b0,$0c0,$0d0,$0e0
  295.  dc.w $0f0,$1f0,$2f0,$3f0,$4f0,$5f0,$6f0,$7f0,$8f0,$9f0,$af0,$bf0,$cf0,$df0,$ef0
  296.  dc.w $ff0,$ee0,$dd0,$cc0,$bb0,$aa0,$990,$880,$770,$660,$550,$440,$330,$220,$110
  297.  dc.w $000,$110,$220,$330,$440,$550,$660,$770,$880,$990,$aa0,$bb0,$cc0,$dd0,$ee0
  298.  dc.w $ff0,$fe0,$fd0,$fc0,$fb0,$fa0,$f90,$f80,$f70,$f60,$f50,$f40,$f30,$f20,$f10
  299.  dc.w $f00,$e00,$d00,$c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100
  300.  dc.w $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00,$c00,$d00,$e00
  301.  dc.w $f00,$f01,$f02,$f03,$f04,$f05,$f06,$f07,$f08,$f09,$f0a,$f0b,$f0c,$f0d,$f0e
  302.  dc.w $f0f,$e0e,$d0d,$c0c,$b0b,$a0a,$909,$808,$707,$606,$505,$404,$303,$202,$101
  303.  dc.w 0,$101,$202,$303,$404,$505,$606,$707,$808,$909,$a0a,$b0b,$c0c,$d0d,$e0e
  304.  dc.w $f0f,$e0f,$d0f,$c0f,$b0f,$a0f,$90f,$80f,$70f,$60f,$50f,$40f,$30f,$20f,$10f
  305.  dc.w $f,$e,$d,$c,$b,$a,$9,$8,$7,$6,$5,$4,$3,$2,$1,$0
  306.  dc.w 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
  307.  dc.w $00f,$01f,$02f,$03f,$04f,$05f,$06f,$07f,$08f,$09f,$0af,$0bf,$0cf,$0df,$0ef
  308.  dc.w $ff,$ee,$dd,$cc,$bb,$aa,$99,$88,$77,$66,$55,$44,$33,$22,$11
  309.  dc.w 0,$11,$22,$33,$44,$55,$66,$77,$88,$99,$aa,$bb,$cc,$dd,$ee
  310.  dc.w $0ff,$0fe,$0fd,$0fc,$0fb,$0fa,$0f9,$0f8,$0f7,$0f6,$0f5,$0f4,$0f3,$0f2,$0f1
  311.  dc.w $f0,$e0,$d0,$c0,$b0,$a0,$90,$80,$70,$60,$50,$40,$30,$20,$10
  312.     dc.w     $ffff
  313.  
  314. OLDCOPPER    DC.L    0
  315. NEWCOPPER    DC.W    $0100,$5200,$0102,$0000,$0104,$000A
  316.         DC.W    $0108,$0000,$010A,$0000
  317.         DC.W    $0092,$0028,$0094,$00e0
  318.         DC.W    $008E,$2c69,$0090,$2cd9
  319.         dc.w    $0096,$0020
  320.         DC.W    $00E0
  321. PL0H        DC.W    $0000,$00E2
  322. PL0L        DC.W    $0000,$00E4
  323. PL1H        DC.W    $0000,$00E6
  324. PL1L        DC.W    $0000,$00E8
  325. PL2H        DC.W    $0000,$00EA
  326. PL2L        DC.W    $0000,$00EC
  327. PL3H        DC.W    $0000,$00EE
  328. PL3L        DC.W    $0000,$00F0
  329. PL4H        DC.W    $0000,$00F2
  330. PL4L        DC.W    $0000
  331.         DC.W    $009c,$8010
  332.         DC.W    $0180
  333. topcol        dc.w    $0000,$0182,$0eca
  334.         DC.W    $0184,$0fff,$0186,$0eee
  335.         DC.W    $0188,$0ddd,$018A,$0bbb
  336.         DC.W    $018C,$0aaa,$018E,$0999
  337.         DC.W    $0190,$0888,$0192,$0777
  338.         DC.W    $0194,$0666,$0196,$0555
  339.         DC.W    $0198,$0333,$019A,$0222
  340.         DC.W    $019C,$0111,$019E,$0000
  341. cblock1:
  342.  dc.w 11273,$fffe,$180,0,$102,0
  343.  dc.w 11529,$fffe,$180,0,$102,0
  344.  dc.w 11785,$fffe,$180,0,$102,0
  345.  dc.w 12041,$fffe,$180,0,$102,0
  346.  dc.w 12297,$fffe,$180,0,$102,0
  347.  dc.w 12553,$fffe,$180,0,$102,0
  348.  dc.w 12809,$fffe,$180,0,$102,0
  349.  dc.w 13065,$fffe,$180,0,$102,0
  350.  dc.w 13321,$fffe,$180,0,$102,0
  351.  dc.w 13577,$fffe,$180,0,$102,0
  352.  dc.w 13833,$fffe,$180,0,$102,0
  353.  dc.w 14089,$fffe,$180,0,$102,0
  354.  dc.w 14345,$fffe,$180,0,$102,0
  355.  dc.w 14601,$fffe,$180,0,$102,0
  356.  dc.w 14857,$fffe,$180,0,$102,0
  357.  dc.w 15113,$fffe,$180,0,$102,0
  358.  dc.w 15369,$fffe,$180,0,$102,0
  359.  dc.w 15625,$fffe,$180,0,$102,0
  360.  dc.w 15881,$fffe,$180,0,$102,0
  361.  dc.w 16137,$fffe,$180,0,$102,0
  362.  dc.w 16393,$fffe,$180,0,$102,0
  363.  dc.w 16649,$fffe,$180,0,$102,0
  364.  dc.w 16905,$fffe,$180,0,$102,0
  365.  dc.w 17161,$fffe,$180,0,$102,0
  366.  dc.w 17417,$fffe,$180,0,$102,0
  367.  dc.w 17673,$fffe,$180,0,$102,0
  368.  dc.w 17929,$fffe,$180,0,$102,0
  369.  dc.w 18185,$fffe,$180,0,$102,0
  370.  dc.w 18441,$fffe,$180,0,$102,0
  371.  dc.w 18697,$fffe,$180,0,$102,0
  372.  dc.w 18953,$fffe,$180,0,$102,0
  373.  dc.w 19209,$fffe,$180,0,$102,0
  374.  dc.w 19465,$fffe,$180,0,$102,0
  375.  dc.w 19721,$fffe,$180,0,$102,0
  376.  dc.w 19977,$fffe,$180,0,$102,0
  377.  dc.w 20233,$fffe,$180,0,$102,0
  378.  dc.w 20489,$fffe,$180,0,$102,0
  379.  dc.w 20745,$fffe,$180,0,$102,0
  380.  dc.w 21001,$fffe,$180,0,$102,0
  381.  dc.w 21257,$fffe,$180,0,$102,0
  382.  dc.w 21513,$fffe,$180,0,$102,0
  383.  dc.w 21769,$fffe,$180,0,$102,0
  384.  dc.w 22025,$fffe,$180,0,$102,0
  385.  dc.w 22281,$fffe,$180,0,$102,0
  386.  dc.w 22537,$fffe,$180,0,$102,0
  387.  dc.w 22793,$fffe,$180,0,$102,0
  388.  dc.w 23049,$fffe,$180,0,$102,0
  389.  dc.w 23305,$fffe,$180,0,$102,0
  390.  dc.w 23561,$fffe,$180,0,$102,0
  391.  dc.w 23817,$fffe,$180,0,$102,0
  392.  dc.w 24073,$fffe,$180,0,$102,0
  393.  dc.w 24329,$fffe,$180,0,$102,0
  394.  dc.w 24585,$fffe,$180,0,$102,0
  395.  dc.w 24841,$fffe,$180,0,$102,0
  396.  dc.w 25097,$fffe,$180,0,$102,0
  397.  dc.w 25353,$fffe,$180,0,$102,0
  398.  dc.w 25609,$fffe,$180,0,$102,0
  399.  dc.w 25865,$fffe,$180,0,$102,0
  400.  dc.w 26121,$fffe,$180,0,$102,0
  401.  dc.w 26377,$fffe,$180,0,$102,0
  402.  dc.w 26633,$fffe,$180,0,$102,0
  403.  dc.w 26889,$fffe,$180,0,$102,0
  404.  dc.w 27145,$fffe,$180,0,$102,0
  405.  dc.w 27401,$fffe,$180,0,$102,0
  406.  dc.w 27657,$fffe,$180,0,$102,0
  407.  dc.w 27913,$fffe,$180,0,$102,0
  408.  dc.w 28169,$fffe,$180,0,$102,0
  409.  dc.w 28425,$fffe,$180,0,$102,0
  410.  dc.w 28681,$fffe,$180,0,$102,0
  411.  dc.w 28937,$fffe,$180,0,$102,0
  412.  dc.w 29193,$fffe,$180,0,$102,0
  413.  dc.w 29449,$fffe,$180,0,$102,0
  414.  dc.w 29705,$fffe,$180,0,$102,0
  415.  dc.w 29961,$fffe,$180,0,$102,0
  416.  dc.w 30217,$fffe,$180,0,$102,0
  417.  dc.w 30473,$fffe,$180,0,$102,0
  418.  dc.w 30729,$fffe,$180,0,$102,0
  419.  dc.w 30985,$fffe,$180,0,$102,0
  420.  dc.w 31241,$fffe,$180,0,$102,0
  421.  dc.w 31497,$fffe,$180,0,$102,0
  422.  dc.w 31753,$fffe,$180,0,$102,0
  423.  dc.w 32009,$fffe,$180,0,$102,0
  424.  dc.w 32265,$fffe,$180,0,$102,0
  425.  dc.w 32521,$fffe,$180,0,$102,0
  426.  dc.w 32777,$fffe,$180,0,$102,0
  427.  dc.w 33033,$fffe,$180,0,$102,0
  428.  dc.w 33289,$fffe,$180,0,$102,0
  429.  dc.w 33545,$fffe,$180,0,$102,0
  430.  dc.w 33801,$fffe,$180,0,$102,0
  431.  dc.w 34057,$fffe,$180,0,$102,0
  432.  dc.w 34313,$fffe,$180,0,$102,0
  433.  dc.w 34569,$fffe,$180,0,$102,0
  434.  dc.w 34825,$fffe,$180,0,$102,0
  435.  dc.w 35081,$fffe,$180,0,$102,0
  436.  dc.w 35337,$fffe,$180,0,$102,0
  437.  dc.w 35593,$fffe,$180,0,$102,0
  438.  dc.w 35849,$fffe,$180,0,$102,0
  439.  dc.w 36105,$fffe,$180,0,$102,0
  440.  dc.w 36361,$fffe,$180,0,$102,0
  441.  dc.w 36617,$fffe,$180,0,$102,0
  442.  dc.w 36873,$fffe,$180,0,$102,0
  443.  dc.w 37129,$fffe,$180,0,$102,0
  444.  dc.w 37385,$fffe,$180,0,$102,0
  445.  dc.w 37641,$fffe,$180,0,$102,0
  446.  dc.w 37897,$fffe,$180,0,$102,0
  447.  dc.w 38153,$fffe,$180,0,$102,0
  448.  dc.w 38409,$fffe,$180,0,$102,0
  449.  dc.w 38665,$fffe,$180,0,$102,0
  450.  dc.w 38921,$fffe,$180,0,$102,0
  451.  dc.w 39177,$fffe,$180,0,$102,0
  452.  dc.w 39433,$fffe,$180,0,$102,0
  453.  dc.w 39689,$fffe,$180,0,$102,0
  454.  dc.w 39945,$fffe,$180,0,$102,0
  455.  dc.w 40201,$fffe,$180,0,$102,0
  456.  dc.w 40457,$fffe,$180,0,$102,0
  457.  dc.w 40713,$fffe,$180,0,$102,0
  458.  dc.w 40969,$fffe,$180,0,$102,0
  459.  dc.w 41225,$fffe,$180,0,$102,0
  460.  dc.w 41481,$fffe,$180,0,$102,0
  461.  dc.w 41737,$fffe,$180,0,$102,0
  462.  dc.w 41993,$fffe,$180,0,$102,0
  463.  dc.w 42249,$fffe,$180,0,$102,0
  464.  dc.w 42505,$fffe,$180,0,$102,0
  465.  dc.w 42761,$fffe,$180,0,$102,0
  466.  dc.w 43017,$fffe,$180,0,$102,0
  467.  dc.w 43273,$fffe,$180,0,$102,0
  468.  dc.w 43529,$fffe,$180,0,$102,0
  469.  dc.w 43785,$fffe,$180,0,$102,0
  470.  dc.w 44041,$fffe,$180,0,$102,0
  471.  dc.w 44297,$fffe,$180,0,$102,0
  472.  dc.w 44553,$fffe,$180,0,$102,0
  473.  dc.w 44809,$fffe,$180,0,$102,0
  474.  dc.w 45065,$fffe,$180,0,$102,0
  475.  dc.w 45321,$fffe,$180,0,$102,0
  476.  dc.w 45577,$fffe,$180,0,$102,0
  477.  dc.w 45833,$fffe,$180,0,$102,0
  478.  dc.w 46089,$fffe,$180,0,$102,0
  479.  dc.w 46345,$fffe,$180,0,$102,0
  480.  dc.w 46601,$fffe,$180,0,$102,0
  481.  dc.w 46857,$fffe,$180,0,$102,0
  482.  dc.w 47113,$fffe,$180,0,$102,0
  483.  dc.w 47369,$fffe,$180,0,$102,0
  484.  dc.w 47625,$fffe,$180,0,$102,0
  485.  dc.w 47881,$fffe,$180,0,$102,0
  486.  dc.w 48137,$fffe,$180,0,$102,0
  487.  dc.w 48393,$fffe,$180,0,$102,0
  488.  dc.w 48649,$fffe,$180,0,$102,0
  489.  dc.w 48905,$fffe,$180,0,$102,0
  490.  dc.w 49161,$fffe,$180,0,$102,0
  491.  dc.w 49417,$fffe,$180,0,$102,0
  492.  dc.w 49673,$fffe,$180,0,$102,0
  493.  dc.w 49929,$fffe,$180,0,$102,0
  494.  dc.w 50185,$fffe,$180,0,$102,0
  495.  dc.w 50441,$fffe,$180,0,$102,0
  496.  dc.w 50697,$fffe,$180,0,$102,0
  497.  dc.w 50953,$fffe,$180,0,$102,0
  498.  dc.w 51209,$fffe,$180,0,$102,0
  499.  dc.w 51465,$fffe,$180,0,$102,0
  500.  dc.w 51721,$fffe,$180,0,$102,0
  501.  dc.w 51977,$fffe,$180,0,$102,0
  502.  dc.w 52233,$fffe,$180,0,$102,0
  503.  dc.w 52489,$fffe,$180,0,$102,0
  504.  dc.w 52745,$fffe,$180,0,$102,0
  505.  dc.w 53001,$fffe,$180,0,$102,0
  506.  dc.w 53257,$fffe,$180,0,$102,0
  507.  dc.w 53513,$fffe,$180,0,$102,0
  508.  dc.w 53769,$fffe,$180,0,$102,0
  509.  dc.w 54025,$fffe,$180,0,$102,0
  510.  dc.w 54281,$fffe,$180,0,$102,0
  511.  dc.w 54537,$fffe,$180,0,$102,0
  512.  dc.w 54793,$fffe,$180,0,$102,0
  513.  dc.w 55049,$fffe,$180,0,$102,0
  514.  dc.w 55305,$fffe,$180,0,$102,0
  515.  dc.w 55561,$fffe,$180,0,$102,0
  516.  dc.w 55817,$fffe,$180,0,$102,0
  517.  dc.w 56073,$fffe,$180,0,$102,0
  518.  dc.w 56329,$fffe,$180,0,$102,0
  519.  dc.w 56585,$fffe,$180,0,$102,0
  520.  dc.w 56841,$fffe,$180,0,$102,0
  521.  dc.w 57097,$fffe,$180,0,$102,0
  522.  dc.w 57353,$fffe,$180,0,$102,0,$182,$200
  523. cblock2:
  524.  dc.w $e109,$fffe,$180,$000,$102,$ff,$e0,0,$e2,0,386,$f00
  525.  dc.w $e209,$fffe,$180,$111,$102,$ff,$e0,0,$e2,0,386,$e00
  526.  dc.w $e309,$fffe,$180,$222,$102,$ee,$e0,0,$e2,0,386,$d00
  527.  dc.w $e409,$fffe,$180,$333,$102,$ee,$e0,0,$e2,0,386,$c01
  528.  dc.w $e509,$fffe,$180,$444,$102,$dd,$e0,0,$e2,0,386,$b02
  529.  dc.w $e609,$fffe,$180,$555,$102,$dd,224,0,226,0,386,$a03
  530.  dc.w $e709,$fffe,$180,$666,$102,$cc,224,0,226,0,386,$904
  531.  dc.w $e809,$fffe,$180,$777,$102,$cc,224,0,226,0,386,$805
  532.  dc.w $e909,$fffe,$180,$888,$102,$bb,224,0,226,0,386,$706
  533.  dc.w $ea09,$fffe,$180,$999,$102,$bb,224,0,226,0,386,$607
  534.  dc.w $eb09,$fffe,$180,$aaa,$102,$aa,224,0,226,0,386,$508
  535.  dc.w $ec09,$fffe,$180,$bbb,$102,$aa,224,0,226,0,386,$409
  536.  dc.w $ed09,$fffe,$180,$ccc,$102,$99,224,0,226,0,386,$30a
  537.  dc.w $ee09,$fffe,$180,$ddd,$102,$99,224,0,226,0,386,$20b
  538.  dc.w $ef09,$fffe,$180,$eee,$102,$88,224,0,226,0,386,$10c
  539.  dc.w $f009,$fffe,$180,$fff,$102,$88,224,0,226,0,386,$00d
  540.  dc.w $f109,$fffe,$180,$eee,$102,$77,224,0,226,0,386,$10e
  541.  dc.w $f209,$fffe,$180,$ddd,$102,$77,224,0,226,0,386,$20f
  542.  dc.w $f309,$fffe,$180,$ccc,$102,$66,224,0,226,0,386,$30e
  543.  dc.w $f409,$fffe,$180,$bbb,$102,$66,224,0,226,0,386,$40d
  544.  dc.w $f509,$fffe,$180,$aaa,$102,$55,224,0,226,0,386,$50c
  545.  dc.w $f609,$fffe,$180,$999,$102,$55,224,0,226,0,386,$60b
  546.  dc.w $f709,$fffe,$180,$888,$102,$44,224,0,226,0,386,$70a
  547.  dc.w $f809,$fffe,$180,$777,$102,$44,224,0,226,0,386,$809
  548.  dc.w $f909,$fffe,$180,$666,$102,$33,224,0,226,0,386,$908
  549.  dc.w $fa09,$fffe,$180,$555,$102,$33,224,0,226,0,386,$a07
  550.  dc.w $fb09,$fffe,$180,$444,$102,$22,224,0,226,0,386,$b06
  551.  dc.w $fc09,$fffe,$180,$333,$102,$22,224,0,226,0,386,$c05
  552.  dc.w $fd09,$fffe,$180,$222,$102,$11,224,0,226,0,386,$d04
  553.  dc.w $fe09,$fffe,$180,$111,$102,$11,224,0,226,0,386,$e03
  554.  dc.w $ff09,$fffe,$180
  555. botcol dc.w 0
  556.  
  557.  
  558.  
  559.  
  560.  
  561.         DC.W    $FFFF,$FFFE
  562.     ds.w    20
  563.  
  564. wavedata
  565.  dc.b 0,0,0,0,1,1,1,1,2,2,2,3,3,3,4,4,5,5,6,7
  566.  dc.b 8,9,$a,$a,$b,$b,$c,$c,$c,$d,$d,$d,$e,$e,$e,$e,$f,$f
  567.  dc.b $f,$f
  568.  dc.b $e,$e,$e,$e,$d,$d,$d,$c,$c,$c,$b,$b,$a,$a,9,8,7,6
  569.  dc.b 5,5,4,4,3,3,3,2,2,2,1,1,1
  570.  dc.b 1
  571.  dc.b $fe
  572. wavepos    dc.l    wavedata
  573. gfxlib    dc.b    "graphics.library",0
  574.     EVEN
  575. _gfxbase    dc.l    0
  576. MEMORY_POINTER    dc.l    0
  577. MYRASTPORT    ds.b    RP_Sizeof
  578. MYBITMAP    ds.b    BM_Sizeof
  579. colour    dc.w    0
  580. flagz    dc.b    0
  581.  
  582.  
  583.  
  584.  
  585. mytext dc.b    "Hello  Leyla!!! Hi it's Comrade J here. We're listening to some"
  586.  dc.b     " really COOOOOOOL muzaxs at da momento. (well pretty old"
  587.  dc.b    "stuff really, such as HISTORY by MAI TAI and AXEL F by old HAROLD F. "
  588.  dc.b     "Yep, it's really COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOL (Totaly frozen)."
  589.  dc.b     "All about 2000 million years old, the tapes are fossilised! "
  590.  dc.b     "TIW is sitting next to me at the moment. He is eating a pizza and"
  591.     dc.b " watchi...."
  592.  dc.b    "sorry boring scrolltexts strike again! Yeah, wat's next. it's a"
  593.  dc.b " record called "
  594.  dc.b      "OBSESSION by someone we can't remember (lamers no doubt). Let's"
  595.  dc.b " fast forward this one, TIW"
  596.  dc.b      " Yeah, now we have: Crazy for U by Mad Donna. It's shit so we"
  597.  dc.b " swap the tapes. OK It's TIW"
  598.  dc.b    " here. Now I want to listen to Public Enemy,but Comrade J"
  599.  dc.b " doesn't want me to. Oh well.       "
  600.  
  601.  dc.b    255
  602.  
  603.  dc.l    0
  604.  
  605. ;***********************************
  606. ;***********************************
  607. ;**                               **
  608. ;** SoundTracker V4.0 Playroutine **
  609. ;**                               **
  610. ;**   Coder 1 : Karsten Obarski   **
  611. ;**                               **
  612. ;**   Coder 2 : The Exterminator  **
  613. ;**                               **
  614. ;**   Coder 3 : Il Scuro          **
  615. ;**                               **
  616. ;**   Coder 4 : AFL 1970          **
  617. ;**                               **
  618. ;**   Translator (to DEVPAC)      **
  619. ;**        Comrade J  of          **
  620. ;**       Share and Enjoy         **
  621. ;***********************************
  622. ;***********************************
  623.  
  624.  
  625.  
  626. mt_speed    equ    $1f4
  627.  
  628.  
  629.  
  630.  
  631. mt_init:
  632.  move.l        #s1,mt_sample1
  633.  move.l        #s2,mt_sample2
  634.  move.l        #s3,mt_sample3
  635.  move.l        #s4,mt_sample4
  636.  move.l        #s5,mt_sample5
  637.  move.l        #s6,mt_sample6
  638.  move.l        #s7,mt_sample7
  639.  move.l        #s8,mt_sample8
  640.  move.l        #s9,mt_sample9
  641.  move.l        #sa,mt_sample10
  642.  move.l        #sb,mt_sample11
  643.  move.l        #sc,mt_sample12
  644.  move.l        #sd,mt_sample13
  645.  move.l        #se,mt_sample14
  646.  move.l        #sf,mt_sample15
  647.  
  648.  move.l        #mt_sample1,a0
  649.  clr.l        d0
  650. mt_clear:
  651.  move.l        (a0,d0),a1
  652.  clr.l        (a1)
  653.  addq        #4,d0
  654.  cmp.l        #$3c,d0
  655.  bne.s        mt_clear
  656.  
  657.  move.w        #0,$dff0a8
  658.  move.w        #0,$dff0b8
  659.  move.w        #0,$dff0c8
  660.  move.w        #0,$dff0d8
  661.  eor.w        #$c000,mt_voice0+12
  662.  clr.l        mt_partnrplay
  663.  clr.l        mt_partnote
  664.  clr.l        mt_partpoint
  665.  
  666.  move.b        mt_sampleinfo+$1d6,mt_maxpart+1
  667.  move.b        mt_sampleinfo+$1d7,mt_kn1+1
  668.  rts
  669.  
  670.  
  671. mt_newirq:
  672.  movem.l        d0-d7/a0-a6,-(a7)
  673.  bsr        mt_music
  674.  movem.l        (a7)+,d0-d7/a0-a6
  675.  
  676.  dc.w        $4ef9
  677. mt_oldirq:
  678.  dc.l        0
  679.  
  680.  
  681. mt_music:
  682.  addq.l        #1,mt_counter
  683.  move.l        mt_tempo,d0
  684.  cmp.l        mt_counter,d0
  685.  bne.s        mt_notsix
  686.  clr.l        mt_counter
  687.  bra        mt_rout2
  688.  
  689. mt_notsix:
  690.  lea        mt_aud1temp,a6
  691.  tst.b        3(a6)
  692.  beq.s        mt_arp1
  693.  move.l        #$dff0a0,a5        
  694.  bsr.s        mt_arprout
  695.  
  696. mt_arp1:
  697.  lea        mt_aud2temp,a6
  698.  tst.b        3(a6)
  699.  beq.s        mt_arp2
  700.  move.l        #$dff0b0,a5
  701.  bsr.s        mt_arprout
  702.  
  703. mt_arp2:
  704.  lea        mt_aud3temp,a6
  705.  tst.b        3(a6)
  706.  beq.s        mt_arp3
  707.  move.l        #$dff0c0,a5
  708.  bsr.s        mt_arprout
  709.  
  710. mt_arp3:
  711.  lea        mt_aud4temp,a6
  712.  tst.b        3(a6)
  713.  beq.s        mt_arp4
  714.  move.l        #$dff0d0,a5
  715.  bsr.s        mt_arprout
  716. mt_arp4:
  717.  bra        mt_stop
  718.  
  719.  
  720. mt_arprout:
  721.  tst.w    24(a6)
  722.  beq.s    mt_noslide
  723.  
  724.  clr.w    d0
  725.  move.b    25(a6),d0
  726.  lsr.b    #4,d0
  727.  tst.b    d0
  728.  beq.s    mt_voldwn2
  729.  bsr    mt_pushvol1
  730.  bra.s    mt_noslide
  731.  
  732. mt_voldwn2:
  733.  clr.w    d0
  734.  move.b    25(a6),d0
  735.  bsr    mt_pushvol2
  736.  
  737. mt_noslide:
  738.  move.b    2(a6),d0
  739.  and.b    #$0f,d0
  740.  tst.b    d0
  741.  beq.L    mt_arpegrt
  742.  cmp.b    #3,d0
  743.  beq.L    mt_arpegrt
  744.  cmp.b    #4,d0
  745.  beq.L    mt_arpegrt
  746.  cmp.b    #5,d0
  747.  beq.L    mt_arpegrt
  748.  cmp.b    #1,d0
  749.  beq.s    mt_portup
  750.  cmp.b    #6,d0
  751.  beq.s    mt_portup
  752.  cmp.b    #7,d0
  753.  beq.s    mt_portup
  754.  cmp.b    #8,d0
  755.  beq.s    mt_portup
  756.  cmp.b    #2,d0
  757.  beq.s    mt_portdwn
  758.  cmp.b    #9,d0
  759.  beq.s    mt_portdwn
  760.  cmp.b    #10,d0
  761.  beq.s    mt_portdwn
  762.  cmp.b    #11,d0
  763.  beq.s    mt_portdwn
  764.  cmp.b    #13,d0
  765.  beq.s    mt_volup
  766.  rts
  767.  
  768. mt_portup:
  769.  clr.w    d0
  770.  move.b    3(a6),d0
  771.  sub.w    d0,22(a6)
  772.  cmp.w    #$71,22(a6)
  773.  bpl.s    mt_ok1
  774.  move.w    #$71,22(a6)
  775. mt_ok1:
  776.  move.w    22(a6),6(a5)
  777.  rts
  778.  
  779. mt_portdwn:
  780.  clr.w    d0
  781.  move.b    3(a6),d0
  782.  add.w    d0,22(a6)
  783.  cmp.w    #$358,22(a6)
  784.  bmi.s    mt_ok2
  785.  move.w    #$358,22(a6)
  786. mt_ok2:
  787.  move.w    22(a6),6(a5)
  788.  rts
  789.  
  790. mt_volup:
  791.  clr.w    d0
  792.  move.b    3(a6),d0
  793.  lsr.b    #4,d0
  794.  tst.b    d0
  795.  beq.s    mt_voldwn
  796. mt_pushvol1:
  797.  add.w    d0,$12(a6)
  798.  cmp.w    #$40,$12(a6)
  799.  bmi.s    mt_ok3
  800.  move.w    #$40,$12(a6)
  801. mt_ok3:
  802.  move.w    $12(a6),8(a5)
  803.  move.w $12(a6),botcol
  804.  rts
  805.  
  806. mt_voldwn:
  807.  clr.w    d0
  808.  move.b    3(a6),d0
  809. mt_pushvol2:
  810.  and.b    #$0f,d0
  811.  sub.w    d0,$12(a6)
  812.  bpl.s    mt_ok4
  813.  clr.w    $12(a6)
  814. mt_ok4:
  815.  move.w    $12(a6),8(a5)
  816.  move.w $12(a6),topcol
  817.  rts
  818.  
  819. mt_arpegrt:
  820.  cmp.l        #1,mt_counter
  821.  beq.s        mt_loop2
  822.  cmp.l        #2,mt_counter
  823.  beq.s        mt_loop3
  824.  cmp.l        #3,mt_counter
  825.  beq.s        mt_loop4
  826.  cmp.l        #4,mt_counter
  827.  beq.s        mt_loop2
  828.  cmp.l        #5,mt_counter
  829.  beq.s        mt_loop3
  830.  rts
  831.  
  832. mt_loop2:
  833.  clr.l        d0
  834.  move.b        3(a6),d0
  835.  lsr.b        #4,d0
  836.  bra.s        mt_cont
  837.  
  838. mt_loop3:
  839.  clr.l        d0
  840.  move.b        3(a6),d0
  841.  and.b        #$0f,d0
  842.  bra.s        mt_cont
  843.  
  844. mt_loop4:
  845.  move.w        16(a6),d2
  846.  bra.s        mt_endpart
  847.  
  848. mt_cont:
  849.  lsl.w        #1,d0
  850.  clr.l        d1
  851.  move.w        16(a6),d1
  852.  lea        mt_arpeggio,a0
  853. mt_loop5:
  854.  move.w        (a0,d0),d2
  855.  cmp.w        (a0),d1
  856.  beq.s        mt_endpart
  857.  addq.l        #2,a0
  858.  bra.s        mt_loop5
  859.  
  860. mt_endpart:
  861.  move.w        d2,6(a5)
  862.  rts
  863.  
  864. mt_rout2:
  865.  lea        mt_sampleinfo,a0
  866.  move.l        a0,a3
  867.  add.l        #$0c,a3
  868.  move.l        a0,a2
  869.  add.l        #$1d8,a2
  870.  add.l        #$258,a0
  871.  move.l        mt_partnrplay,d0
  872.  clr.l        d1
  873.  move.b        (a2,d0),d1
  874.  mulu        #$0400,d1
  875.  add.l        mt_partnote,d1
  876.  move.l        d1,mt_partpoint
  877.  clr.w        mt_dmacon
  878.  
  879.  move.l        #$dff0a0,a5
  880.  lea        mt_aud1temp,a6
  881.  bsr        mt_playit
  882.  
  883.  move.l        #$dff0b0,a5
  884.  lea        mt_aud2temp,a6
  885.  bsr        mt_playit
  886.  
  887.  move.l        #$dff0c0,a5
  888.  lea        mt_aud3temp,a6
  889.  bsr        mt_playit
  890.  
  891.  move.l        #$dff0d0,a5
  892.  lea        mt_aud4temp,a6
  893.  bsr        mt_playit
  894.  
  895.  move.l        #mt_speed,d0
  896. mt_rls:
  897.  dbf        d0,mt_rls
  898.  
  899.  move.l        #$8000,d0
  900.  add.w        mt_dmacon,d0
  901.  move.w        d0,$dff096
  902.  
  903.  move.l        #mt_aud4temp,a6
  904.  cmp.w        #1,14(a6)
  905.  bne.s        mt_voice3
  906.  move.l        10(a6),$dff0d0
  907.  move.w        #1,$dff0d4
  908. mt_voice3:
  909.  move.l        #mt_aud3temp,a6
  910.  cmp.w        #1,14(a6)
  911.  bne.s        mt_voice2
  912.  move.l        10(a6),$dff0c0
  913.  move.w        #1,$dff0c4
  914. mt_voice2:
  915.  move.l        #mt_aud2temp,a6
  916.  cmp.w        #1,14(a6)
  917.  bne.s        mt_voice1
  918.  move.l        10(a6),$dff0b0
  919.  move.w        #1,$dff0b4
  920. mt_voice1:
  921.  move.l        #mt_aud1temp,a6
  922.  cmp.w        #1,14(a6)
  923.  bne.s        mt_voice0
  924.  move.l        10(a6),$dff0a0
  925.  move.w        #1,$dff0a4
  926.  
  927. mt_voice0:
  928.  lea        mt_modulate,a0
  929.  move.l        mt_partnote,d0
  930.  lsl.b        #7,d0
  931.  add.l        #$10,d0
  932.  move.l        d0,mt_partnote
  933.  cmp.l        #$400,d0
  934.  bne.s        mt_stop
  935.  clr.l        mt_partnote
  936.  addq.l        #1,mt_partnrplay
  937.  clr.l        d0
  938.  move.w        mt_maxpart,d0
  939.  move.l        mt_partnrplay,d1
  940.  cmp.l        d0,d1
  941.  bne.s        mt_stop
  942.  clr.l        mt_partnrplay
  943. mt_stop:
  944.  rts
  945.  
  946.  
  947. mt_playit:
  948.  move.l        (a0,d1),(a6)
  949.  addq.l        #4,d1
  950.  clr.l        d2
  951.  move.b        2(a6),d2
  952.  and.b        #$f0,d2
  953.  lsr.b        #4,d2
  954.  tst.b        d2
  955.  beq.s        mt_nosamplechange
  956.  
  957.  clr.l        d3
  958.  lea        mt_samples,a1
  959.  move.l        d2,d4
  960.  mulu        #4,d2
  961.  mulu        #$1e,d4
  962.  move.l        (a1,d2),4(a6)
  963.  move.w        (a3,d4),8(a6)
  964.  move.w        2(a3,d4),18(a6)
  965.  move.w        4(a3,d4),d3
  966.  tst.w        d3
  967.  beq.s        mt_displace
  968.  move.l        4(a6),d2
  969.  add.l        d3,d2
  970.  move.l        d2,4(a6)
  971.  move.l        d2,10(a6)
  972.  move.w        6(a3,d4),8(a6)
  973.  move.w        6(a3,d4),14(a6)
  974.  move.w        18(a6),8(a5)
  975.  move.w     18(a6),botcol
  976.  bra.s        mt_nosamplechange
  977. mt_displace:
  978.  move.l        4(a6),d2
  979.  add.l        d3,d2
  980.  move.l        d2,10(a6)
  981.  move.w        6(a3,d4),14(a6)
  982.  move.w        18(a6),8(a5)
  983.  move.w     18(a6),topcol
  984. mt_nosamplechange:
  985.  tst.w        (a6)
  986.  beq.s        mt_retrout
  987.  move.w        (a6),16(a6)
  988.  move.w        20(a6),$dff096
  989.  move.l        4(a6),(a5)
  990.  move.w        8(a6),4(a5)
  991.  move.w        (a6),6(a5)
  992.  move.w        20(a6),d0
  993.  or.w        d0,mt_dmacon
  994.  
  995. mt_retrout:
  996.  move.w    20(a6),d0
  997.  lsl.w    #4,d0
  998.  add.w    20(a6),d0
  999.  move.w    d0,$dff09e
  1000.  
  1001.  tst.w    (a6)
  1002.  beq.s    mt_nonewper
  1003.  move.w    (a6),22(a6)
  1004. mt_nonewper:
  1005.  
  1006.  move.b    2(a6),d0
  1007.  and.b    #$0f,d0
  1008.  cmp.b    #14,d0
  1009.  beq.s    mt_zx1
  1010.  cmp.b    #15,d0
  1011.  bne.s    mt_noset
  1012.  
  1013.  move.w    2(a6),d0
  1014.  and.l    #$f,d0
  1015.  move.l    d0,mt_tempo
  1016.  rts
  1017.  
  1018. mt_zx1:
  1019.  move.w    2(a6),24(a6)
  1020.  rts
  1021. mt_noset:
  1022.  tst.b    3(a6)
  1023.  bne.s    mt_noclr
  1024.  clr.w    24(a6)
  1025. mt_noclr:
  1026.  cmp.b    #3,d0
  1027.  beq.s    mt_modvol
  1028.  cmp.b    #6,d0
  1029.  beq.s    mt_modvol
  1030.  cmp.b    #9,d0
  1031.  beq.s    mt_modvol
  1032.  cmp.b    #4,d0
  1033.  beq.s    mt_modper
  1034.  cmp.b    #7,d0
  1035.  beq.s    mt_modper
  1036.  cmp.b    #10,d0
  1037.  beq.s    mt_modper
  1038.  cmp.b    #5,d0
  1039.  beq.s    mt_modvolper
  1040.  cmp.b    #8,d0
  1041.  beq.s    mt_modvolper
  1042.  cmp.b    #11,d0
  1043.  beq.s    mt_modvolper
  1044.  cmp.b    #12,d0
  1045.  bne.s    mt_nochnge
  1046.  move.b    3(a6),8(a5)
  1047.  move.b 3(a6),topcol+1
  1048.  mt_nochnge:
  1049.  rts
  1050.  
  1051. mt_modvol:
  1052.  move.w    20(a6),d0
  1053.  bra.s    mt_push
  1054.  
  1055. mt_modper:
  1056.  move.w    20(a6),d0
  1057.  lsl.w    #4,d0
  1058.  bra.s    mt_push
  1059.  
  1060. mt_modvolper:
  1061.  move.w    20(a6),d0
  1062.  lsl.w    #4,d0
  1063.  add.w    20(a6),d0
  1064.  
  1065. mt_push:
  1066.  add.w    #$8000,d0
  1067.  move.w    d0,$dff09e
  1068.  rts
  1069.  dc.l 0
  1070.  dc.b "fofg"
  1071. mt_aud1temp:
  1072.  dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1073.  dc.w $0000,$0000,$0001,$0000,$0000
  1074. mt_aud2temp:
  1075.  dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1076.  dc.w $0000,$0000,$0002,$0000,$0000
  1077. mt_aud3temp:
  1078.  dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1079.  dc.w $0000,$0000,$0004,$0000,$0000
  1080. mt_aud4temp:
  1081.  dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1082.  dc.w $0000,$0000,$0008,$0000,$0000
  1083. mt_partnote:
  1084.  dc.l 0
  1085. mt_partnrplay:
  1086.  dc.l 0
  1087. mt_counter:
  1088.  dc.l 0
  1089. mt_tempo:
  1090.  dc.l 6
  1091. mt_partpoint:
  1092.  dc.l 0
  1093. mt_samples:
  1094.  dc.w $0000,$0000
  1095. mt_sample1:
  1096.  dc.l 0
  1097. mt_sample2:
  1098.  dc.l 0
  1099. mt_sample3:
  1100.  dc.l 0
  1101. mt_sample4:
  1102.  dc.l 0
  1103. mt_sample5:
  1104.  dc.l 0
  1105. mt_sample6:
  1106.  dc.l 0
  1107. mt_sample7:
  1108.  dc.l 0
  1109. mt_sample8:
  1110.  dc.l 0
  1111. mt_sample9:
  1112.  dc.l 0
  1113. mt_sample10:
  1114.  dc.l 0
  1115. mt_sample11:
  1116.  dc.l 0
  1117. mt_sample12:
  1118.  dc.l 0
  1119. mt_sample13:
  1120.  dc.l 0
  1121. mt_sample14:
  1122.  dc.l 0
  1123. mt_sample15:
  1124.  dc.l 0
  1125. mt_maxpart:
  1126.  dc.w $0000
  1127. mt_kn1:
  1128.  dc.w $0000
  1129. mt_dmacon:
  1130.  dc.w $0000
  1131.  
  1132. mt_modulate:
  1133.  dc.w $0c39,$0039,$00bf,$ec01,$6630,$0839,$0007,$00bf
  1134.  dc.w $e001,$6626,$2c79,$0000,$0004,$43fa,$0020,$4eae
  1135.  dc.w $fe68,$2c40,$4280,$41fa,$0026,$223c,$0000,$0032
  1136.  dc.w $4eae,$ffa6,$60ee,$0000,$0000,$4e75,$696e,$7475
  1137.  dc.w $6974,$696f,$6e2e,$6c69,$6272,$6172,$7900,$0104
  1138.  dc.w $1753,$6f75,$6e64,$5472,$6163,$6b65,$7220,$5632
  1139.  dc.w $0063,$00f0,$20a9,$2054,$6865,$204a,$756e,$676c
  1140.  dc.w $6520,$436f,$6d6d,$616e,$6400,$0000
  1141.  
  1142. mt_arpeggio:
  1143.  dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c
  1144.  dc.w $023a,$021a,$01fc,$01e0,$01c5,$01ac,$0194,$017d
  1145.  dc.w $0168,$0153,$0140,$012e,$011d,$010d,$00fe,$00f0
  1146.  dc.w $00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097
  1147.  dc.w $008f,$0087,$007f,$0078,$0071,$0000,$0000,$0000
  1148.  
  1149. mt_sampleinfo:    dc.b    "gof "
  1150.         ds.b    5716
  1151. s1:        ds.b    1300
  1152. s2:        ds.b    4000
  1153. s3:        ds.b    9000
  1154. s4:        ds.b    8800
  1155. s5:        ds.b    2000
  1156. s6:        ds.b    2700
  1157. s7:        ds.b    3400
  1158. s8:        ds.b    6200
  1159. s9:        ds.b    0
  1160. sa:        ds.b    0
  1161. sb:        ds.b    0
  1162. sc:        ds.b    0
  1163. sd:        ds.b    0
  1164. se:        ds.b    0
  1165. sf:        ds.b    0
  1166.  
  1167.  
  1168. mypiccy    dc.b    "fog "
  1169.     ds.b     58876
  1170. endmess    dc.b   "Yupp, its over. Do not try and newzap"
  1171.      dc.b   "this message, cause it does nothing anyway."
  1172.      dc.b   "it's just the hidden message."
  1173.     dc.b  "You seem to be pretty cool at getting into demos."
  1174.     dc.b  "there's a prize to the first person who writes to us"
  1175.     dc.b "and says - Big Al is a total lamer mateys -"
  1176.     dc.b "See you soon!"
  1177.  
  1178.  
  1179.  
  1180.