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