home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / intro.s < prev    next >
Text File  |  1995-03-17  |  16KB  |  615 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    #320,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    #10240,D1
  34.     MOVE.L    D1,D2
  35.     ADD.L    #10240,D2
  36.     MOVE.L    D2,D3
  37.     add.l    #10240,D3
  38.     move.l    d3,d4
  39.     add.l    #10240,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.     move.l #mytext,read
  68.     move.l #wavedata,wavepos
  69.  
  70.  
  71.     MOVE.L    _GFXBASE,A6
  72.     ADD.L    #$32,A6
  73.     MOVE.W    #$80,DMACON
  74.     MOVE.L    (A6),OLDCOPPER
  75.     MOVE.L    #NEWCOPPER,(A6)
  76.     MOVE.W    #$8080,DMACON
  77.  
  78.     callexec forbid
  79.  
  80.     jsr    copsetup
  81.     
  82.     
  83.     
  84.     
  85.     
  86.     
  87.     move.w     #$8010,$dff09a
  88.     move.l    $6c,old
  89.     move.l  #new,$6c
  90.     
  91.     
  92.     
  93.     
  94.  
  95.  
  96. WAIT    ANDI.B    #$40,$BFE001
  97.     BNE    WAIT
  98.     move.l    old,$6c
  99.  
  100.     callexec permit
  101.  
  102.     MOVE.L    _GFXBASE,A6
  103.     ADD.L    #$32,A6
  104.     MOVE.W    #$80,DMACON
  105.     MOVE.L    OLDCOPPER,(A6)
  106.     MOVE.W    #$8080,DMACON
  107.     move.w    #$8020,$dff096
  108. ERROR    clr.l    d0
  109.     move.w    #$f,$dff096
  110.     move.w    #$0,$dff0a8
  111.     move.w    #$0,$dff0b8
  112.     move.w    #$0,$dff0c8
  113.     move.w    #$0,$dff0d8
  114.     RTS
  115.  
  116.  
  117.  
  118.  
  119. new:    movem.l d0-d7/a0-a6,-(sp)
  120.     and #$10,$dff01e        
  121.     beq out
  122.     move.w    #$10,$dff09c
  123.  
  124.     
  125.     
  126.     bsr    colcop1
  127.  
  128.     bsr     textit
  129.     
  130.  
  131.     
  132.     BSR     WAVEIT
  133.     
  134.     
  135.     
  136.     
  137.  
  138. out movem.l (sp)+,d0-d7/a0-a6
  139.     dc.w $4ef9
  140. old dc.l 0
  141.  
  142.  
  143. copsetup    move.l #mypiccy,d1
  144.         move.l #cblock2,a1
  145.         move.l #15,d0
  146.         add.l  #14,a1
  147.         add.l  #7440,d1
  148.         move.l    d1,d2
  149.         add.l     #680,d2
  150. russloop    swap    d1
  151.         move.w    d1,(a1)
  152.         add.l     #4,a1
  153.         swap     d1
  154.         move.w    d1,(a1)
  155.         add.l   #20,a1
  156.         swap    d2
  157.         move.w    d2,(a1)
  158.         add.l    #4,a1
  159.         swap     d2
  160.         move.w    d2,(a1)
  161.         add.l    #20,a1
  162.         add.l    #40,d1
  163.         subi.w    #1,d0
  164.         cmp.w     #0,d0
  165.         bne    russloop
  166.         rts
  167.     
  168. waveit        move.l    #cblock2,a0
  169.         add.l    #23,a0
  170.         moveq    #23,d0
  171.         move.l    wavepos,a1
  172. waveloop    move.b    24(a0),(a0)
  173.         add.l    #24,a0
  174.         subi.w    #1,d0
  175.         cmp.w    #0,d0
  176.         bne    waveloop
  177.         move.b    (a1),(a0)
  178.         add.l #1,WAvepos
  179.         
  180.         move.l wavepos,a5
  181.         cmp.b    #$fe,(a5)
  182.         
  183.         
  184.         
  185.         bne waveok
  186.         move.l    #wavedata,wavepos
  187. waveok        rts
  188.  
  189.  
  190.  
  191. colcop1:    move.l    #90,d0
  192.         lea    cblock1,a0
  193.         add.l     #6,a0
  194.         
  195.         
  196. scrollc        move.w     24(a0),(a0)
  197.         add.l    #24,a0
  198.         
  199.         subi.l    #1,d0
  200.         cmp #0,d0
  201.         bne scrollc
  202. cjin1        clr.l    d0
  203.         move.l    coppos,a2
  204.         
  205.         move.w    (a2),d0
  206.         add.l    #2,coppos
  207.         cmp.w #$ffff,d0
  208.         bne cok
  209.         move.l    #copdata,coppos
  210.         bra cjin1
  211. cok        
  212.         move.w d0,(a0)
  213.         rts
  214.  
  215. textit    lea    myrastport,a1
  216.     MOVEQ    #1,d0
  217.     callgraf setapen
  218.  
  219.  
  220.     
  221.     lea myrastport,a1
  222.     move.l #0,d1
  223.     move.l #2,d0
  224.     move.l #0,d2
  225.     move.l #186,d3
  226.     move.l #320,d4
  227.     move.l #199,d5
  228.     callgraf scrollraster
  229.  
  230. ;    store bit of screen to be zapped
  231. ;    lets say 16 rows starting at 185
  232. ;    = mypiccy+185*40
  233.     move.l #mypiccy,a0
  234.     add.l #185*40,a0
  235.     moveq    #16,d0
  236.     move.l    #buffy,a1
  237. inbuff    move.w    (a0),(a1)+
  238.     add.l    #40,a0
  239.     subi.w    #1,d0
  240.     cmp.w    #0,d0
  241.     bne    inbuff
  242.  
  243.     move.b count,d0
  244.     addi.b #1,d0
  245.     move.b d0,count
  246.     cmpi.b #4,d0
  247.     bne EEE
  248.     move.b #0,count
  249. EEE    lea myrastport,a1
  250.      move.l #318,d0
  251.     clr.l d3
  252.     move.b count,d3
  253.     sub.l d3,d0
  254.     sub.l d3,d0
  255.       move.l #196,d1
  256.     callgraf move
  257.  
  258.     move.l read,a0
  259.     lea myrastport,a1
  260.     move.l #1,d0
  261.     callgraf text
  262.  
  263.     move.l #mypiccy,a0
  264.     add.l #185*40,a0
  265.     moveq    #16,d0
  266.     move.l    #buffy,a1
  267. oubuff    move.w    (a1)+,(a0)
  268.     add.l    #40,a0
  269.     subi.w    #1,d0
  270.     cmp.w    #0,d0
  271.     bne    oubuff
  272.  
  273.     cmp.b    #0,count
  274.     bne    zzz
  275.     move.l read,d0
  276.     addi.l #1,d0
  277.     move.l d0,read
  278.     moveq #0,d4
  279.     move.l read,a5
  280.     
  281.     
  282.     cmp.b    #255,(a5)
  283.     bne zzz
  284.     move.l #mytext,read
  285. on1    
  286. zzz    rts
  287. count    dc.b 0
  288. read    dc.l 0
  289. buffy    ds.w 30
  290. falagz    dc.b 0
  291. coppos    dc.l    copdata
  292. copdata
  293.  dc.w $000,$010,$020,$030,$040,$050,$060,$070,$080,$090,$0a0,$0b0,$0c0,$0d0,$0e0
  294.  dc.w $0f0,$1f0,$2f0,$3f0,$4f0,$5f0,$6f0,$7f0,$8f0,$9f0,$af0,$bf0,$cf0,$df0,$ef0
  295.  dc.w $ff0,$ee0,$dd0,$cc0,$bb0,$aa0,$990,$880,$770,$660,$550,$440,$330,$220,$110
  296.  dc.w $000,$110,$220,$330,$440,$550,$660,$770,$880,$990,$aa0,$bb0,$cc0,$dd0,$ee0
  297.  dc.w $ff0,$fe0,$fd0,$fc0,$fb0,$fa0,$f90,$f80,$f70,$f60,$f50,$f40,$f30,$f20,$f10
  298.  dc.w $f00,$e00,$d00,$c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100
  299.  dc.w $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00,$c00,$d00,$e00
  300.  dc.w $f00,$f01,$f02,$f03,$f04,$f05,$f06,$f07,$f08,$f09,$f0a,$f0b,$f0c,$f0d,$f0e
  301.  dc.w $f0f,$e0e,$d0d,$c0c,$b0b,$a0a,$909,$808,$707,$606,$505,$404,$303,$202,$101
  302.  dc.w 0,$101,$202,$303,$404,$505,$606,$707,$808,$909,$a0a,$b0b,$c0c,$d0d,$e0e
  303.  dc.w $f0f,$e0f,$d0f,$c0f,$b0f,$a0f,$90f,$80f,$70f,$60f,$50f,$40f,$30f,$20f,$10f
  304.  dc.w $f,$e,$d,$c,$b,$a,$9,$8,$7,$6,$5,$4,$3,$2,$1,$0
  305.  dc.w 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
  306.  dc.w $00f,$01f,$02f,$03f,$04f,$05f,$06f,$07f,$08f,$09f,$0af,$0bf,$0cf,$0df,$0ef
  307.  dc.w $ff,$ee,$dd,$cc,$bb,$aa,$99,$88,$77,$66,$55,$44,$33,$22,$11
  308.  dc.w 0,$11,$22,$33,$44,$55,$66,$77,$88,$99,$aa,$bb,$cc,$dd,$ee
  309.  dc.w $0ff,$0fe,$0fd,$0fc,$0fb,$0fa,$0f9,$0f8,$0f7,$0f6,$0f5,$0f4,$0f3,$0f2,$0f1
  310.  dc.w $f0,$e0,$d0,$c0,$b0,$a0,$90,$80,$70,$60,$50,$40,$30,$20,$10
  311.     dc.w     $ffff
  312.  
  313. OLDCOPPER    DC.L    0
  314. NEWCOPPER    DC.W    $0100,$5200,$0102,$0000,$0104,$000A
  315.         DC.W    $0108,$0000,$010A,$0000
  316.         DC.W    $0092,$0038,$0094,$00D0
  317.         DC.W    $008E,$2C81,$0090,$2cC1
  318.         dc.w    $0096,$0020
  319.         DC.W    $00E0
  320. PL0H        DC.W    $0000,$00E2
  321. PL0L        DC.W    $0000,$00E4
  322. PL1H        DC.W    $0000,$00E6
  323. PL1L        DC.W    $0000,$00E8
  324. PL2H        DC.W    $0000,$00EA
  325. PL2L        DC.W    $0000,$00EC
  326. PL3H        DC.W    $0000,$00EE
  327. PL3L        DC.W    $0000,$00F0
  328. PL4H        DC.W    $0000,$00F2
  329. PL4L        DC.W    $0000
  330.         DC.W    $009c,$8010
  331.         DC.W    $0180,$0000,$0182,$0eca
  332.         DC.W    $0184,$0fff,$0186,$0eee
  333.         DC.W    $0188,$0ddd,$018A,$0bbb
  334.         DC.W    $018C,$0aaa,$018E,$0999
  335.         DC.W    $0190,$0888,$0192,$0777
  336.         DC.W    $0194,$0666,$0196,$0555
  337.         DC.W    $0198,$0333,$019A,$0222
  338.         DC.W    $019C,$0111,$019E,$0000
  339. cblock1:
  340.  dc.w 11273,$fffe,$180,0,$102,0
  341.  dc.w 11529,$fffe,$180,0,$102,0
  342.  dc.w 11785,$fffe,$180,0,$102,0
  343.  dc.w 12041,$fffe,$180,0,$102,0
  344.  dc.w 12297,$fffe,$180,0,$102,0
  345.  dc.w 12553,$fffe,$180,0,$102,0
  346.  dc.w 12809,$fffe,$180,0,$102,0
  347.  dc.w 13065,$fffe,$180,0,$102,0
  348.  dc.w 13321,$fffe,$180,0,$102,0
  349.  dc.w 13577,$fffe,$180,0,$102,0
  350.  dc.w 13833,$fffe,$180,0,$102,0
  351.  dc.w 14089,$fffe,$180,0,$102,0
  352.  dc.w 14345,$fffe,$180,0,$102,0
  353.  dc.w 14601,$fffe,$180,0,$102,0
  354.  dc.w 14857,$fffe,$180,0,$102,0
  355.  dc.w 15113,$fffe,$180,0,$102,0
  356.  dc.w 15369,$fffe,$180,0,$102,0
  357.  dc.w 15625,$fffe,$180,0,$102,0
  358.  dc.w 15881,$fffe,$180,0,$102,0
  359.  dc.w 16137,$fffe,$180,0,$102,0
  360.  dc.w 16393,$fffe,$180,0,$102,0
  361.  dc.w 16649,$fffe,$180,0,$102,0
  362.  dc.w 16905,$fffe,$180,0,$102,0
  363.  dc.w 17161,$fffe,$180,0,$102,0
  364.  dc.w 17417,$fffe,$180,0,$102,0
  365.  dc.w 17673,$fffe,$180,0,$102,0
  366.  dc.w 17929,$fffe,$180,0,$102,0
  367.  dc.w 18185,$fffe,$180,0,$102,0
  368.  dc.w 18441,$fffe,$180,0,$102,0
  369.  dc.w 18697,$fffe,$180,0,$102,0
  370.  dc.w 18953,$fffe,$180,0,$102,0
  371.  dc.w 19209,$fffe,$180,0,$102,0
  372.  dc.w 19465,$fffe,$180,0,$102,0
  373.  dc.w 19721,$fffe,$180,0,$102,0
  374.  dc.w 19977,$fffe,$180,0,$102,0
  375.  dc.w 20233,$fffe,$180,0,$102,0
  376.  dc.w 20489,$fffe,$180,0,$102,0
  377.  dc.w 20745,$fffe,$180,0,$102,0
  378.  dc.w 21001,$fffe,$180,0,$102,0
  379.  dc.w 21257,$fffe,$180,0,$102,0
  380.  dc.w 21513,$fffe,$180,0,$102,0
  381.  dc.w 21769,$fffe,$180,0,$102,0
  382.  dc.w 22025,$fffe,$180,0,$102,0
  383.  dc.w 22281,$fffe,$180,0,$102,0
  384.  dc.w 22537,$fffe,$180,0,$102,0
  385.  dc.w 22793,$fffe,$180,0,$102,0
  386.  dc.w 23049,$fffe,$180,0,$102,0
  387.  dc.w 23305,$fffe,$180,0,$102,0
  388.  dc.w 23561,$fffe,$180,0,$102,0
  389.  dc.w 23817,$fffe,$180,0,$102,0
  390.  dc.w 24073,$fffe,$180,0,$102,0
  391.  dc.w 24329,$fffe,$180,0,$102,0
  392.  dc.w 24585,$fffe,$180,0,$102,0
  393.  dc.w 24841,$fffe,$180,0,$102,0
  394.  dc.w 25097,$fffe,$180,0,$102,0
  395.  dc.w 25353,$fffe,$180,0,$102,0
  396.  dc.w 25609,$fffe,$180,0,$102,0
  397.  dc.w 25865,$fffe,$180,0,$102,0
  398.  dc.w 26121,$fffe,$180,0,$102,0
  399.  dc.w 26377,$fffe,$180,0,$102,0
  400.  dc.w 26633,$fffe,$180,0,$102,0
  401.  dc.w 26889,$fffe,$180,0,$102,0
  402.  dc.w 27145,$fffe,$180,0,$102,0
  403.  dc.w 27401,$fffe,$180,0,$102,0
  404.  dc.w 27657,$fffe,$180,0,$102,0
  405.  dc.w 27913,$fffe,$180,0,$102,0
  406.  dc.w 28169,$fffe,$180,0,$102,0
  407.  dc.w 28425,$fffe,$180,0,$102,0
  408.  dc.w 28681,$fffe,$180,0,$102,0
  409.  dc.w 28937,$fffe,$180,0,$102,0
  410.  dc.w 29193,$fffe,$180,0,$102,0
  411.  dc.w 29449,$fffe,$180,0,$102,0
  412.  dc.w 29705,$fffe,$180,0,$102,0
  413.  dc.w 29961,$fffe,$180,0,$102,0
  414.  dc.w 30217,$fffe,$180,0,$102,0
  415.  dc.w 30473,$fffe,$180,0,$102,0
  416.  dc.w 30729,$fffe,$180,0,$102,0
  417.  dc.w 30985,$fffe,$180,0,$102,0
  418.  dc.w 31241,$fffe,$180,0,$102,0
  419.  dc.w 31497,$fffe,$180,0,$102,0
  420.  dc.w 31753,$fffe,$180,0,$102,0
  421.  dc.w 32009,$fffe,$180,0,$102,0
  422.  dc.w 32265,$fffe,$180,0,$102,0
  423.  dc.w 32521,$fffe,$180,0,$102,0
  424.  dc.w 32777,$fffe,$180,0,$102,0
  425.  dc.w 33033,$fffe,$180,0,$102,0
  426.  dc.w 33289,$fffe,$180,0,$102,0
  427.  dc.w 33545,$fffe,$180,0,$102,0
  428.  dc.w 33801,$fffe,$180,0,$102,0
  429.  dc.w 34057,$fffe,$180,0,$102,0
  430.  dc.w 34313,$fffe,$180,0,$102,0
  431.  dc.w 34569,$fffe,$180,0,$102,0
  432.  dc.w 34825,$fffe,$180,0,$102,0
  433.  dc.w 35081,$fffe,$180,0,$102,0
  434.  dc.w 35337,$fffe,$180,0,$102,0
  435.  dc.w 35593,$fffe,$180,0,$102,0
  436.  dc.w 35849,$fffe,$180,0,$102,0
  437.  dc.w 36105,$fffe,$180,0,$102,0
  438.  dc.w 36361,$fffe,$180,0,$102,0
  439.  dc.w 36617,$fffe,$180,0,$102,0
  440.  dc.w 36873,$fffe,$180,0,$102,0
  441.  dc.w 37129,$fffe,$180,0,$102,0
  442.  dc.w 37385,$fffe,$180,0,$102,0
  443.  dc.w 37641,$fffe,$180,0,$102,0
  444.  dc.w 37897,$fffe,$180,0,$102,0
  445.  dc.w 38153,$fffe,$180,0,$102,0
  446.  dc.w 38409,$fffe,$180,0,$102,0
  447.  dc.w 38665,$fffe,$180,0,$102,0
  448.  dc.w 38921,$fffe,$180,0,$102,0
  449.  dc.w 39177,$fffe,$180,0,$102,0
  450.  dc.w 39433,$fffe,$180,0,$102,0
  451.  dc.w 39689,$fffe,$180,0,$102,0
  452.  dc.w 39945,$fffe,$180,0,$102,0
  453.  dc.w 40201,$fffe,$180,0,$102,0
  454.  dc.w 40457,$fffe,$180,0,$102,0
  455.  dc.w 40713,$fffe,$180,0,$102,0
  456.  dc.w 40969,$fffe,$180,0,$102,0
  457.  dc.w 41225,$fffe,$180,0,$102,0
  458.  dc.w 41481,$fffe,$180,0,$102,0
  459.  dc.w 41737,$fffe,$180,0,$102,0
  460.  dc.w 41993,$fffe,$180,0,$102,0
  461.  dc.w 42249,$fffe,$180,0,$102,0
  462.  dc.w 42505,$fffe,$180,0,$102,0
  463.  dc.w 42761,$fffe,$180,0,$102,0
  464.  dc.w 43017,$fffe,$180,0,$102,0
  465.  dc.w 43273,$fffe,$180,0,$102,0
  466.  dc.w 43529,$fffe,$180,0,$102,0
  467.  dc.w 43785,$fffe,$180,0,$102,0
  468.  dc.w 44041,$fffe,$180,0,$102,0
  469.  dc.w 44297,$fffe,$180,0,$102,0
  470.  dc.w 44553,$fffe,$180,0,$102,0
  471.  dc.w 44809,$fffe,$180,0,$102,0
  472.  dc.w 45065,$fffe,$180,0,$102,0
  473.  dc.w 45321,$fffe,$180,0,$102,0
  474.  dc.w 45577,$fffe,$180,0,$102,0
  475.  dc.w 45833,$fffe,$180,0,$102,0
  476.  dc.w 46089,$fffe,$180,0,$102,0
  477.  dc.w 46345,$fffe,$180,0,$102,0
  478.  dc.w 46601,$fffe,$180,0,$102,0
  479.  dc.w 46857,$fffe,$180,0,$102,0
  480.  dc.w 47113,$fffe,$180,0,$102,0
  481.  dc.w 47369,$fffe,$180,0,$102,0
  482.  dc.w 47625,$fffe,$180,0,$102,0
  483.  dc.w 47881,$fffe,$180,0,$102,0
  484.  dc.w 48137,$fffe,$180,0,$102,0
  485.  dc.w 48393,$fffe,$180,0,$102,0
  486.  dc.w 48649,$fffe,$180,0,$102,0
  487.  dc.w 48905,$fffe,$180,0,$102,0
  488.  dc.w 49161,$fffe,$180,0,$102,0
  489.  dc.w 49417,$fffe,$180,0,$102,0
  490.  dc.w 49673,$fffe,$180,0,$102,0
  491.  dc.w 49929,$fffe,$180,0,$102,0
  492.  dc.w 50185,$fffe,$180,0,$102,0
  493.  dc.w 50441,$fffe,$180,0,$102,0
  494.  dc.w 50697,$fffe,$180,0,$102,0
  495.  dc.w 50953,$fffe,$180,0,$102,0
  496.  dc.w 51209,$fffe,$180,0,$102,0
  497.  dc.w 51465,$fffe,$180,0,$102,0
  498.  dc.w 51721,$fffe,$180,0,$102,0
  499.  dc.w 51977,$fffe,$180,0,$102,0
  500.  dc.w 52233,$fffe,$180,0,$102,0
  501.  dc.w 52489,$fffe,$180,0,$102,0
  502.  dc.w 52745,$fffe,$180,0,$102,0
  503.  dc.w 53001,$fffe,$180,0,$102,0
  504.  dc.w 53257,$fffe,$180,0,$102,0
  505.  dc.w 53513,$fffe,$180,0,$102,0
  506.  dc.w 53769,$fffe,$180,0,$102,0
  507.  dc.w 54025,$fffe,$180,0,$102,0
  508.  dc.w 54281,$fffe,$180,0,$102,0
  509.  dc.w 54537,$fffe,$180,0,$102,0
  510.  dc.w 54793,$fffe,$180,0,$102,0
  511.  dc.w 55049,$fffe,$180,0,$102,0
  512.  dc.w 55305,$fffe,$180,0,$102,0
  513.  dc.w 55561,$fffe,$180,0,$102,0
  514.  dc.w 55817,$fffe,$180,0,$102,0
  515.  dc.w 56073,$fffe,$180,0,$102,0
  516.  dc.w 56329,$fffe,$180,0,$102,0
  517.  dc.w 56585,$fffe,$180,0,$102,0
  518.  dc.w 56841,$fffe,$180,0,$102,0
  519.  dc.w 57097,$fffe,$180,0,$102,0
  520.  dc.w 57353,$fffe,$180,0,$102,0,$182,$200
  521. cblock2:
  522.  dc.w $e109,$fffe,$180,$000,$102,$ff,$e0,0,$e2,0,386,4
  523.  dc.w $e209,$fffe,$180,$111,$102,$ff,$e0,0,$e2,0,386,4
  524.  dc.w $e309,$fffe,$180,$222,$102,$ee,$e0,0,$e2,0,386,4
  525.  dc.w $e409,$fffe,$180,$333,$102,$ee,$e0,0,$e2,0,386,$501
  526.  dc.w $e509,$fffe,$180,$444,$102,$dd,$e0,0,$e2,0,386,$502
  527.  dc.w $e609,$fffe,$180,$555,$102,$dd,224,0,226,0,386,$503
  528.  dc.w $e709,$fffe,$180,$666,$102,$cc,224,0,226,0,386,$604
  529.  dc.w $e809,$fffe,$180,$777,$102,$cc,224,0,226,0,386,$605
  530.  dc.w $e909,$fffe,$180,$888,$102,$bb,224,0,226,0,386,$606
  531.  dc.w $ea09,$fffe,$180,$999,$102,$bb,224,0,226,0,386,$707
  532.  dc.w $eb09,$fffe,$180,$aaa,$102,$aa,224,0,226,0,386,$708
  533.  dc.w $ec09,$fffe,$180,$bbb,$102,$aa,224,0,226,0,386,$709
  534.  dc.w $ed09,$fffe,$180,$ccc,$102,$99,224,0,226,0,386,$80a
  535.  dc.w $ee09,$fffe,$180,$ddd,$102,$99,224,0,226,0,386,$80b
  536.  dc.w $ef09,$fffe,$180,$eee,$102,$88,224,0,226,0,386,$80c
  537.  dc.w $f009,$fffe,$180,$fff,$102,$88,224,0,226,0,386,$90d
  538.  dc.w $f109,$fffe,$180,$eee,$102,$77,224,0,226,0,386,$90e
  539.  dc.w $f209,$fffe,$180,$ddd,$102,$77,224,0,226,0,386,$90f
  540.  dc.w $f309,$fffe,$180,$ccc,$102,$66,224,0,226,0,386,$a0e
  541.  dc.w $f409,$fffe,$180,$bbb,$102,$66,224,0,226,0,386,$a0d
  542.  dc.w $f509,$fffe,$180,$aaa,$102,$55,224,0,226,0,386,$a0c
  543.  dc.w $f609,$fffe,$180,$999,$102,$55,224,0,226,0,386,$b0b
  544.  dc.w $f709,$fffe,$180,$888,$102,$44,224,0,226,0,386,$b0a
  545.  dc.w $f809,$fffe,$180,$777,$102,$44,224,0,226,0,386,$b09
  546.  dc.w $f909,$fffe,$180,$666,$102,$33,224,0,226,0,386,$c08
  547.  dc.w $fa09,$fffe,$180,$555,$102,$33,224,0,226,0,386,$c07
  548.  dc.w $fb09,$fffe,$180,$444,$102,$22,224,0,226,0,386,$c06
  549.  dc.w $fc09,$fffe,$180,$333,$102,$22,224,0,226,0,386,$d05
  550.  dc.w $fd09,$fffe,$180,$222,$102,$11,224,0,226,0,386,$d04
  551.  dc.w $fe09,$fffe,$180,$111,$102,$11,224,0,226,0,386,$d03
  552.  dc.w $ff09,$fffe,$180,0
  553.  
  554.  
  555.  
  556.  
  557.  
  558.         DC.W    $FFFF,$FFFE
  559.     ds.w    20
  560.  
  561. wavedata
  562.  dc.b 0,0,0,0,$10,$10,$10,$10,$20,$20,$20,$30,$30,$30,$40,$40,$50,$50,$60,$70
  563.  dc.b $80,$90,$a0,$a0,$b0,$b0,$c0,$c0,$c0,$d0,$d0,$d0,$e0,$e0,$e0,$e0,$f0,$f0
  564.  dc.b $f0,$f0
  565.  dc.b $e0,$e0,$e0,$e0,$d0,$d0,$d0,$c0,$c0,$c0,$b0,$b0,$a0,$a0,$90,$80,$70,$60
  566.  dc.b $50,$50,$40,$40,$30,$30,$30,$20,$20,$20,$10,$10,$10
  567.  dc.b $10
  568.  dc.b 0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,14,13,12,11,10,9,8,7
  569.  dc.b 6,5,4,3,2,1,$fe
  570. wavepos    dc.l    wavedata
  571. gfxlib    dc.b    "graphics.library",0
  572.     EVEN
  573. _gfxbase    dc.l    0
  574. MEMORY_POINTER    dc.l    0
  575. MYRASTPORT    ds.b    RP_Sizeof
  576. MYBITMAP    ds.b    BM_Sizeof
  577. colour    dc.w    0
  578. flagz    dc.b    0
  579.  
  580.  
  581.  
  582.  
  583. mytext dc.b    "Hello  Leyla!!! Hi it's Comrade J here. We're listening to some"
  584.  dc.b     " really COOOOOOOL muzaxs at da momento. (well pretty old"
  585.  dc.b    "stuff really, such as HISTORY by MAI TAI and AXEL F by old HAROLD F. "
  586.  dc.b     "Yep, it's really COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOL (Totaly frozen)."
  587.  dc.b     "All about 2000 million years old, the tapes are fossilised! "
  588.  dc.b     "TIW is sitting next to me at the moment. He is eating a pizza and"
  589.     dc.b " watchi...."
  590.  dc.b    "sorry boring scrolltexts strike again! Yeah, wat's next. it's a"
  591.  dc.b " record called "
  592.  dc.b      "OBSESSION by someone we can't remember (lamers no doubt). Let's"
  593.  dc.b " fast forward this one, TIW"
  594.  dc.b      " Yeah, now we have: Crazy for U by Mad Donna. It's shit so we"
  595.  dc.b " swap the tapes. OK It's TIW"
  596.  dc.b    " here. Now I want to listen to Public Enemy,but Comrade J"
  597.  dc.b " doesn't want me to. Oh well.       "
  598.  
  599.  dc.b    255
  600.  
  601.  dc.l    0
  602.  
  603. mypiccy    dc.b    "fog "
  604.     ds.b     51200-4
  605. endmess    dc.b   "Yupp, its over. Do not try and newzap"
  606.      dc.b   "this message, cause it does nothing anyway."
  607.      dc.b   "it's just the hidden message."
  608.     dc.b  "You seem to be pretty cool at getting into demos."
  609.     dc.b  "there's a prize to the first person who writes to us"
  610.     dc.b "and says - Big Al is a total lamer mateys -"
  611.     dc.b "See you soon!"
  612.  
  613.  
  614.  
  615.