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