Almathera Ten Pack 4: Demo 1/almathera_demo1.bin/sourcecode/text8.s

Text File | 1995-03-17 | 37KB | 1,426 lines

    opt    c-
    incdir    "df0:include/"
    include graphics/gfx.i
    include    graphics/rastport.i
    include graphics/graphics_lib.i
    include exec/memory.i
    include    exec/exec_lib.i
    include    hardware/custom.i

custom    equ    $dff000

memory    equ    MEMF_CHIP+MEMF_CLEAR

    lea    GFXLIB,a1
    MOVEQ    #0,D0
    CALLEXEC OPENLIBRARY
    TST    D0
    BEQ    ERROR
    MOVE.L    D0,_GFXBASE

    MOVE.L    #MYPICCY,MEMORY_POINTER
    LEA MYBITMAP,A0
    MOVE.L    #$05,D0
    MOVE.L    #352,D1
    MOVE.L    #256,D2
    CALLGRAF INITBITMAP
    LEA    MYRASTPORT,A1
    CALLGRAF INITRASTPORT
    LEA    MYRASTPORT,A1
    MOVE.L    #MYBITMAP,RP_BITMAP(A1)
    MOVE.L    MEMORY_POINTER,D0
    MOVE.L    D0,D1
    ADD.L    #11264,D1
    MOVE.L    D1,D2
    ADD.L    #11264,D2
    MOVE.L    D2,D3
    add.l    #11264,D3
    move.l    d3,d4
    add.l    #11264,d4




    LEA     MYBITMAP,A0
    MOVE.L    D0,BM_PLANES(a0)
    MOVE.L    D1,BM_PLANES+4(a0)
    MOVE.L     D2,BM_PLANES+8(a0)
    MOVE.L    D3,BM_PLANES+12(A0)
    move.l    d4,BM_PLANES+16(a0)
    MOVE.W    D0,PL0L
    MOVE.W    D1,PL1L
    MOVE.W    D2,PL2L
    MOVE.W    D3,PL3L
    move.w    d4,pl4l
    SWAP    D0
    SWAP    D1
    SWAP    D2
    SWAP    D3
    swap    d4
    MOVE.W    D0,PL0H
    MOVE.W    D1,PL1H
    MOVE.W    D2,PL2H
    MOVE.W    D3,PL3H
    move.w    d4,pl4h
    swap    d0
    swap    d1
    swap    d2
    swap    d3
        swap    d4
    move.l    #9240,d5
    add.l    d5,d0
    add.l    d5,d1
    add.l    d5,d2
    add.l    d5,d3
    aDD.L    d5,d4
    MOVE.W    D0,zPL0L
    MOVE.W    D1,zPL1L
    MOVE.W    D2,zPL2L
    MOVE.W    D3,zPL3L
    move.w    d4,zpl4l
    SWAP    D0
    SWAP    D1
    SWAP    D2
    SWAP    D3
    swap    d4
    MOVE.W    D0,zPL0H
    MOVE.W    D1,zPL1H
    MOVE.W    D2,zPL2H
    MOVE.W    D3,zPL3H
    move.w    d4,zpl4h

    MOVE.L    _GFXBASE,A6
    ADD.L    #$32,A6
    MOVE.W    #$80,DMACON
    MOVE.L    (A6),OLDCOPPER
    MOVE.L    #NEWCOPPER,(A6)
    MOVE.W    #$8080,DMACON

    jsr    mt_init

    move.l    #woblist,wobpoint
        move.l    #string,spoint
    callexec forbid


    move.b    #0,cdown












    move.w     #$8010,$dff09a
    move.l    $6c,old
    move.l  #new,$6c







WAIT    ANDI.B    #$40,$BFE001
    BNE    WAIT
    move.l    old,$6c

    callexec permit

    MOVE.L    _GFXBASE,A6
    ADD.L    #$32,A6
    MOVE.W    #$80,DMACON
    MOVE.L    OLDCOPPER,(A6)
    MOVE.W    #$8080,DMACON
    move.w    #$8020,$dff096
ERROR    clr.l    d0
    move.w    #$f,$dff096
    move.w    #$0,$dff0a8
    move.w    #$0,$dff0b8
    move.w    #$0,$dff0c8
    move.w    #$0,$dff0d8
    RTS



subrt    lea    myfont,a1
    clr.l    d0
    move.l    spoint,a2
    move.b    (a2),d0            ; now has 33
    cmp.b    #254,d0
    beq    part2y
    add.l    #1,spoint
    sub.b    #32,d0            ; now =1
zza    mulu    #512,d0            ; now =512
    add.l    d0,a1


    moveq    #4,d0
    lea    mypiccy,a0
    lea    mypiccy,a2
    ADD.l    #9324,a0
    add.l    #9324,a2

outloop    moveq    #32,d1
inloop    move.l    (a1)+,(a0)
    add.l    #44,a0
    sub.b    #1,d1
    cmp.b    #0,d1
    bne    inloop
    add.l    #11264,a2
    move.l    a2,a0
    sub.b    #1,d0
    cmp.b    #0,d0
    bne outloop
    rts
part2y    add.l #1,spoint
    move.b    #$3a,pauser
    moveq    #0,d0

    bra    zza


new:    movem.l d0-d7/a0-a6,-(sp)
    and #$10,$dff01e
    beq out
    move.w    #$10,$dff09c

    ;    woplist

    jsr    mt_music

    lea    depmode+3620,a0
    move.l    #180,d0
    move.w    38(a0),tempy
fred2    move.w    18(a0),38(a0)
    sub.l    #20,a0
    dbf    d0,fred2
    move.w    tempy,38(a0)

    lea    depmode+40,a0
    move.l    #180,d0
    move.w    14(a0),tempz
wpit    move.w    34(a0),14(a0)

    add.l    #20,a0


    dbf    d0,wpit

    move.w tempz,14(a0)

 lea    depmode+40,a0
    move.l    #192,d0

wpit2    move.w    26(a0),6(a0)
    move.w    30(a0),10(a0)
    add.l    #20,a0


    dbf    d0,wpit2




    move.l    wobpoint,a1
    moveq    #0,d0
    move.w    (a1),d0
    add.l    #2,a1
    cmp.w    #$1234,(a1)
    bne wwww
    move.l    #woblist,a1
wwww    move.l    a1,wobpoint
    move.w    d0,6(a0)
    move.w    d0,10(a0)



    cmp.b    #0,pauser
    beq    zxcv
    sub.b    #1,pauser
    bra    out

zxcv    cmp.b    #0,cdown
    bne bypass
    btst    #2,$dff016
    bne aada
    move.l    #string2,spoint
aada    move.b    #6,cdown
    bsr    subrt
    move.l    spoint,a6
    cmp.b    #$ff,(a6)
    bne    bypass
    move.l    #string,spoint
bypass    sub.b    #1,cdown



      moveq #4,d0
      lea mypiccy+9324,a0
      lea mypiccy+9326,a1
lp80: btst #14,$dff002            ; Thank's to TBY of FREESTYLE
                    ; for the blitter info.
      bne lp80
      move.l a0,$dff054 ;dest
      move.l a1,$dff050 ;source
      move.w #$ffff,$dff044
      move.w #$ffff,$dff046
      move.w #0,$dff064
      move.w #0,$dff066
      move.w #%1100100111110000,$dff040
      move.w #%0000000000000000,$dff042
      move.w #%0000101000010111,$dff058 ; was 0000101100010111
      adda.l #11264,a0
      adda.l #11264,a1
      dbf d0,lp80









out movem.l (sp)+,d0-d7/a0-a6
    dc.w $4ef9
old dc.l 0
tempy    dc.w    0
wobpoint    dc.l    woblist
woblist
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2



  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,2,2,2,2,2,2,2
  dc.w 2,2,2,2,2,$2,$2E,$2E,$2E,$2E,$2,$2
  dc.w $FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E,$2E,$2E,$2E,$2,$2
  dc.w $FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2,$2E,$2E,$2E,$2E,$2
  dc.w $2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E,$2E,$2E,$2E,$2
  dc.w $2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2,$2E,$2E,$2E,$2E
  dc.w $2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E,$2E,$2E,$2E
  dc.w $2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2,$2E,$2E,$2E
  dc.w $2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E,$2E,$2E
  dc.w $2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E,$2E
  dc.w $2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E,$2E
  dc.w $2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E
  dc.w $2E,$2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2,$2E
  dc.w $2E,$2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2
  dc.w $2E,$2E,$2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$2,$2
  dc.w $2E,$2E,$2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,$FFD6,$2
  dc.w $2,$2E,$2E,$2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6,2,2,$2e
 dc.w $2E,$2E,$2E,$2,$2,$FFD6,$FFD6,$FFD6,$FFD6

 dc.w    -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42
 dc.w    -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42
 dc.w    -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42
 dc.w    -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42  dc.w $1234
 dc.w    -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42
 dc.w    -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42
 dc.w    -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42
 dc.w    -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42
 dc.w    -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42
 dc.w    -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42
 dc.w    -42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42,-42

 dc.w    $1234







count    dc.b 0
read    dc.l 0
falagz    dc.b 0
cdown    dc.b 0
pauser    dc.b 0
tempz    dc.w 0

OLDCOPPER    DC.L    0
NEWCOPPER    DC.W    $0100,$5200,$0102,$0000,$0104,$000A
        DC.W    $0108
topmod        dc.w    $0002,$010A,$0002
        DC.W    $0092,$0038,$0094,$00D4
        DC.W    $008E,$2C81,$0090,$2cC1
        dc.w    $0096,$0020
        DC.W    $00E0
PL0H        DC.W    $0000,$00E2
PL0L        DC.W    $0000,$00E4
PL1H        DC.W    $0000,$00E6
PL1L        DC.W    $0000,$00E8
PL2H        DC.W    $0000,$00EA
PL2L        DC.W    $0000,$00EC
PL3H        DC.W    $0000,$00EE
PL3L        DC.W    $0000,$00F0
PL4H        DC.W    $0000,$00F2
PL4L        DC.W    $0000


        DC.W    $0180,$0000,$0182,$0fdb
        DC.W    $0184,$0131,$0186,$0c30
        DC.W    $0188,$0eee,$018A,$0121
        DC.W    $018C,$0447,$018E,$0740
        DC.W    $0190,$0db0,$0192,$04a2
        DC.W    $0194,$0242,$0196,$0372
        DC.W    $0198,$0252,$019A,$0444
        DC.W    $019C,$0333,$019E,$04b2

        DC.W    $01a0,$0392,$01a2,$05c5
        DC.W    $01a4,$0ccc,$01a6,$0d70
        DC.W    $01a8,$0382,$01aA,$08c8
        DC.W    $01aC,$04d2,$01aE,$06c6
        DC.W    $01b0,$0bcb,$01b2,$0362
        DC.W    $01b4,$0aca,$01b6,$0a50
        DC.W    $01b8,$0f5f,$01bA,$0252
        DC.W    $01bC,$04a2,$01bE,$0210
depmode

 dc.w $2D09,$FFFE,$0108,2,$10a,2,$1ba,$00f,$1b8,$00f
 dc.w $2E09,$FFFE,$0108,2,$10a,2,$1ba,$01f,$1b8,$01f
 dc.w $2F09,$FFFE,$0108,2,$10a,2,$1ba,$02f,$1b8,$02f
 dc.w $3009,$FFFE,$0108,2,$10a,2,$1ba,$03f,$1b8,$03f
 dc.w $3109,$FFFE,$0108,2,$10a,2,$1ba,$04f,$1b8,$04f
 dc.w $3209,$FFFE,$0108,2,$10a,2,$1ba,$05f,$1b8,$05f
 dc.w $3309,$FFFE,$0108,2,$10a,2,$1ba,$06f,$1b8,$06f
 dc.w $3409,$FFFE,$0108,2,$10a,2,$1ba,$07f,$1b8,$07f
 dc.w $3509,$FFFE,$0108,2,$10a,2,$1ba,$08f,$1b8,$08f
 dc.w $3609,$FFFE,$0108,2,$10a,2,$1ba,$09f,$1b8,$09f
 dc.w $3709,$FFFE,$0108,2,$10a,2,$1ba,$0af,$1b8,$0af
 dc.w $3809,$FFFE,$0108,2,$10a,2,$1ba,$0bf,$1b8,$0bf
 dc.w $3909,$FFFE,$0108,2,$10a,2,$1ba,$0cf,$1b8,$0cf
 dc.w $3A09,$FFFE,$0108,2,$10a,2,$1ba,$0df,$1b8,$0df
 dc.w $3B09,$FFFE,$0108,2,$10a,2,$1ba,$0ef,$1b8,$0ef
 dc.w $3C09,$FFFE,$0108,2,$10a,2,$1ba,$0ff,$1b8,$0ff
 dc.w $3D09,$FFFE,$0108,2,$10a,2,$1ba,$0fe,$1b8,$0fe
 dc.w $3E09,$FFFE,$0108,2,$10a,2,$1ba,$0fd,$1b8,$0fd
 dc.w $3F09,$FFFE,$0108,2,$10a,2,$1ba,$0fc,$1b8,$0fc
 dc.w $4009,$FFFE,$0108,2,$10a,2,$1ba,$0fb,$1b8,$0fb
 dc.w $4109,$FFFE,$0108,2,$10a,2,$1ba,$0fa,$1b8,$0fa
 dc.w $4209,$FFFE,$0108,2,$10a,2,$1ba,$0f9,$1b8,$0f9
 dc.w $4309,$FFFE,$0108,2,$10a,2,$1ba,$0f8,$1b8,$0f8
 dc.w $4409,$FFFE,$0108,2,$10a,2,$1ba,$0f7,$1b8,$0f7
 dc.w $4509,$FFFE,$0108,2,$10a,2,$1ba,$0f6,$1b8,$0f6
 dc.w $4609,$FFFE,$0108,2,$10a,2,$1ba,$0f5,$1b8,$0f5
 dc.w $4709,$FFFE,$0108,2,$10a,2,$1ba,$0f4,$1b8,$0f4
 dc.w $4809,$FFFE,$0108,2,$10a,2,$1ba,$0f3,$1b8,$0f3
 dc.w $4909,$FFFE,$0108,2,$10a,2,$1ba,$0f2,$1b8,$0f2
 dc.w $4A09,$FFFE,$0108,2,$10a,2,$1ba,$0f1,$1b8,$0f1
 dc.w $4B09,$FFFE,$0108,2,$10a,2,$1ba,$0f0,$1b8,$0f0
 dc.w $4C09,$FFFE,$0108,2,$10a,2,$1ba,$1f0,$1b8,$1f0
 dc.w $4D09,$FFFE,$0108,2,$10a,2,$1ba,$2f0,$1b8,$2f0
 dc.w $4E09,$FFFE,$0108,2,$10a,2,$1ba,$3f0,$1b8,$3f0
 dc.w $4F09,$FFFE,$0108,2,$10a,2,$1ba,$4f0,$1b8,$4f0
 dc.w $5009,$FFFE,$0108,2,$10a,2,$1ba,$5f0,$1b8,$5f0
 dc.w $5109,$FFFE,$0108,2,$10a,2,$1ba,$6f0,$1b8,$6f0
 dc.w $5209,$FFFE,$0108,2,$10a,2,$1ba,$7f0,$1b8,$7f0
 dc.w $5309,$FFFE,$0108,2,$10a,2,$1ba,$8f0,$1b8,$8f0
 dc.w $5409,$FFFE,$0108,2,$10a,2,$1ba,$9f0,$1b8,$9f0
 dc.w $5509,$FFFE,$0108,2,$10a,2,$1ba,$af0,$1b8,$af0
 dc.w $5609,$FFFE,$0108,2,$10a,2,$1ba,$bf0,$1b8,$bf0
 dc.w $5709,$FFFE,$0108,2,$10a,2,$1ba,$cf0,$1b8,$cf0
 dc.w $5809,$FFFE,$0108,2,$10a,2,$1ba,$df0,$1b8,$df0
 dc.w $5909,$FFFE,$0108,2,$10a,2,$1ba,$ef0,$1b8,$ef0
 dc.w $5A09,$FFFE,$0108,2,$10a,2,$1ba,$ff0,$1b8,$ff0
 dc.w $5B09,$FFFE,$0108,2,$10a,2,$1ba,$fe0,$1b8,$fe0
 dc.w $5C09,$FFFE,$0108,2,$10a,2,$1ba,$fd0,$1b8,$fd0
 dc.w $5D09,$FFFE,$0108,2,$10a,2,$1ba,$fc0,$1b8,$fc0
 dc.w $5E09,$FFFE,$0108,2,$10a,2,$1ba,$fb0,$1b8,$fb0
 dc.w $5F09,$FFFE,$0108,2,$10a,2,$1ba,$fa0,$1b8,$fa0
 dc.w $6009,$FFFE,$0108,2,$10a,2,$1ba,$f90,$1b8,$f90
 dc.w $6109,$FFFE,$0108,2,$10a,2,$1ba,$f80,$1b8,$f80
 dc.w $6209,$FFFE,$0108,2,$10a,2,$1ba,$f70,$1b8,$f70
 dc.w $6309,$FFFE,$0108,2,$10a,2,$1ba,$f60,$1b8,$f60
 dc.w $6409,$FFFE,$0108,2,$10a,2,$1ba,$f50,$1b8,$f50
 dc.w $6509,$FFFE,$0108,2,$10a,2,$1ba,$f40,$1b8,$f40
 dc.w $6609,$FFFE,$0108,2,$10a,2,$1ba,$f30,$1b8,$f30
 dc.w $6709,$FFFE,$0108,2,$10a,2,$1ba,$f20,$1b8,$f20
 dc.w $6809,$FFFE,$0108,2,$10a,2,$1ba,$f10,$1b8,$f10
 dc.w $6909,$FFFE,$0108,2,$10a,2,$1ba,$f00,$1b8,$f00
 dc.w $6A09,$FFFE,$0108,2,$10a,2,$1ba,$f01,$1b8,$f01
 dc.w $6B09,$FFFE,$0108,2,$10a,2,$1ba,$f02,$1b8,$f02
 dc.w $6C09,$FFFE,$0108,2,$10a,2,$1ba,$f03,$1b8,$f03
 dc.w $6D09,$FFFE,$0108,2,$10a,2,$1ba,$f04,$1b8,$f04
 dc.w $6E09,$FFFE,$0108,2,$10a,2,$1ba,$f05,$1b8,$f05
 dc.w $6F09,$FFFE,$0108,2,$10a,2,$1ba,$f06,$1b8,$f06
 dc.w $7009,$FFFE,$0108,2,$10a,2,$1ba,$f07,$1b8,$f07
 dc.w $7109,$FFFE,$0108,2,$10a,2,$1ba,$f08,$1b8,$f08
 dc.w $7209,$FFFE,$0108,2,$10a,2,$1ba,$f09,$1b8,$f09
 dc.w $7309,$FFFE,$0108,2,$10a,2,$1ba,$f0a,$1b8,$f0a
 dc.w $7409,$FFFE,$0108,2,$10a,2,$1ba,$f0b,$1b8,$f0b
 dc.w $7509,$FFFE,$0108,2,$10a,2,$1ba,$f0c,$1b8,$f0c
 dc.w $7609,$FFFE,$0108,2,$10a,2,$1ba,$f0d,$1b8,$f0d
 dc.w $7709,$FFFE,$0108,2,$10a,2,$1ba,$f0e,$1b8,$f0e
 dc.w $7809,$FFFE,$0108,2,$10a,2,$1ba,$f0f,$1b8,$f0f
 dc.w $7909,$FFFE,$0108,2,$10a,2,$1ba,$e0f,$1b8,$e0f
 dc.w $7A09,$FFFE,$0108,2,$10a,2,$1ba,$d0f,$1b8,$d0f
 dc.w $7B09,$FFFE,$0108,2,$10a,2,$1ba,$c0f,$1b8,$c0f
 dc.w $7C09,$FFFE,$0108,2,$10a,2,$1ba,$b0f,$1b8,$b0f
 dc.w $7D09,$FFFE,$0108,2,$10a,2,$1ba,$a0f,$1b8,$a0f
 dc.w $7E09,$FFFE,$0108,2,$10a,2,$1ba,$90f,$1b8,$90f
 dc.w $7F09,$FFFE,$0108,2,$10a,2,$1ba,$80f,$1b8,$80f
 dc.w $8009,$FFFE,$0108,2,$10a,2,$1ba,$70f,$1b8,$70f
 dc.w $8109,$FFFE,$0108,2,$10a,2,$1ba,$60f,$1b8,$60f
 dc.w $8209,$FFFE,$0108,2,$10a,2,$1ba,$50f,$1b8,$50f
 dc.w $8309,$FFFE,$0108,2,$10a,2,$1ba,$40f,$1b8,$40f
 dc.w $8409,$FFFE,$0108,2,$10a,2,$1ba,$30f,$1b8,$30f
 dc.w $8509,$FFFE,$0108,2,$10a,2,$1ba,$20f,$1b8,$20f
 dc.w $8609,$FFFE,$0108,2,$10a,2,$1ba,$10f,$1b8,$10f
 dc.w $8709,$FFFE,$0108,2,$10a,2,$1ba,$00f,$1b8,$00f
 dc.w $8809,$FFFE,$0108,2,$10a,2,$1ba,$01f,$1b8,$01f
 dc.w $8909,$FFFE,$0108,2,$10a,2,$1ba,$02f,$1b8,$02f
 dc.w $8A09,$FFFE,$0108,2,$10a,2,$1ba,$03f,$1b8,$03f
 dc.w $8B09,$FFFE,$0108,2,$10a,2,$1ba,$04f,$1b8,$04f
 dc.w $8C09,$FFFE,$0108,2,$10a,2,$1ba,$05f,$1b8,$05f
 dc.w $8D09,$FFFE,$0108,2,$10a,2,$1ba,$06f,$1b8,$06f
 dc.w $8E09,$FFFE,$0108,2,$10a,2,$1ba,$07f,$1b8,$07f
 dc.w $8F09,$FFFE,$0108,2,$10a,2,$1ba,$08f,$1b8,$08f
 dc.w $9009,$FFFE,$0108,2,$10a,2,$1ba,$09f,$1b8,$09f
 dc.w $9109,$FFFE,$0108,2,$10a,2,$1ba,$0af,$1b8,$0af
 dc.w $9209,$FFFE,$0108,2,$10a,2,$1ba,$0bf,$1b8,$0bf
 dc.w $9309,$FFFE,$0108,2,$10a,2,$1ba,$0cf,$1b8,$0cf
 dc.w $9409,$FFFE,$0108,2,$10a,2,$1ba,$0df,$1b8,$0df
 dc.w $9509,$FFFE,$0108,2,$10a,2,$1ba,$0ef,$1b8,$0ef
 dc.w $9609,$FFFE,$0108,2,$10a,2,$1ba,$0ff,$1b8,$0ff
 dc.w $9709,$FFFE,$0108,2,$10a,2,$1ba,$0fe,$1b8,$0fe
 dc.w $9809,$FFFE,$0108,2,$10a,2,$1ba,$0fd,$1b8,$0fd
 dc.w $9909,$FFFE,$0108,2,$10a,2,$1ba,$0fc,$1b8,$0fc
 dc.w $9A09,$FFFE,$0108,2,$10a,2,$1ba,$0fb,$1b8,$0fb
 dc.w $9B09,$FFFE,$0108,2,$10a,2,$1ba,$0fa,$1b8,$0fa
 dc.w $9C09,$FFFE,$0108,2,$10a,2,$1ba,$0f9,$1b8,$0f9
 dc.w $9D09,$FFFE,$0108,2,$10a,2,$1ba,$0f8,$1b8,$0f8
 dc.w $9E09,$FFFE,$0108,2,$10a,2,$1ba,$0f7,$1b8,$0f7
 dc.w $9F09,$FFFE,$0108,2,$10a,2,$1ba,$0f6,$1b8,$0f6
 dc.w $A009,$FFFE,$0108,2,$10a,2,$1ba,$0f5,$1b8,$0f5
 dc.w $A109,$FFFE,$0108,2,$10a,2,$1ba,$0f4,$1b8,$0f4
 dc.w $A209,$FFFE,$0108,2,$10a,2,$1ba,$0f3,$1b8,$0f3
 dc.w $A309,$FFFE,$0108,2,$10a,2,$1ba,$0f2,$1b8,$0f2
 dc.w $A409,$FFFE,$0108,2,$10a,2,$1ba,$0f1,$1b8,$0f1
 dc.w $A509,$FFFE,$0108,2,$10a,2,$1ba,$0f0,$1b8,$0f0
 dc.w $A609,$FFFE,$0108,2,$10a,2,$1ba,$1f0,$1b8,$1f0
 dc.w $A709,$FFFE,$0108,2,$10a,2,$1ba,$2f0,$1b8,$2f0
 dc.w $A809,$FFFE,$0108,2,$10a,2,$1ba,$3f0,$1b8,$3f0
 dc.w $A909,$FFFE,$0108,2,$10a,2,$1ba,$4f0,$1b8,$4f0
 dc.w $AA09,$FFFE,$0108,2,$10a,2,$1ba,$5f0,$1b8,$5f0
 dc.w $AB09,$FFFE,$0108,2,$10a,2,$1ba,$6f0,$1b8,$6f0
 dc.w $AC09,$FFFE,$0108,2,$10a,2,$1ba,$7f0,$1b8,$7f0
 dc.w $AD09,$FFFE,$0108,2,$10a,2,$1ba,$8f0,$1b8,$8f0
 dc.w $AE09,$FFFE,$0108,2,$10a,2,$1ba,$9f0,$1b8,$9f0
 dc.w $AF09,$FFFE,$0108,2,$10a,2,$1ba,$af0,$1b8,$af0
 dc.w $B009,$FFFE,$0108,2,$10a,2,$1ba,$bf0,$1b8,$bf0
 dc.w $B109,$FFFE,$0108,2,$10a,2,$1ba,$cf0,$1b8,$cf0
 dc.w $B209,$FFFE,$0108,2,$10a,2,$1ba,$df0,$1b8,$df0
 dc.w $B309,$FFFE,$0108,2,$10a,2,$1ba,$ef0,$1b8,$ef0
 dc.w $B409,$FFFE,$0108,2,$10a,2,$1ba,$ff0,$1b8,$ff0
 dc.w $B509,$FFFE,$0108,2,$10a,2,$1ba,$fe0,$1b8,$fe0
 dc.w $B609,$FFFE,$0108,2,$10a,2,$1ba,$fd0,$1b8,$fd0
 dc.w $B709,$FFFE,$0108,2,$10a,2,$1ba,$fc0,$1b8,$fc0
 dc.w $B809,$FFFE,$0108,2,$10a,2,$1ba,$fb0,$1b8,$fb0
 dc.w $B909,$FFFE,$0108,2,$10a,2,$1ba,$fa0,$1b8,$fa0
 dc.w $BA09,$FFFE,$0108,2,$10a,2,$1ba,$f90,$1b8,$f90
 dc.w $BB09,$FFFE,$0108,2,$10a,2,$1ba,$f80,$1b8,$f80
 dc.w $BC09,$FFFE,$0108,2,$10a,2,$1ba,$f70,$1b8,$f70
 dc.w $BD09,$FFFE,$0108,2,$10a,2,$1ba,$f60,$1b8,$f60
 dc.w $BE09,$FFFE,$0108,2,$10a,2,$1ba,$f50,$1b8,$f50
 dc.w $BF09,$FFFE,$0108,2,$10a,2,$1ba,$f40,$1b8,$f40
 dc.w $C009,$FFFE,$0108,2,$10a,2,$1ba,$f30,$1b8,$f30
 dc.w $C109,$FFFE,$0108,2,$10a,2,$1ba,$f20,$1b8,$f20
 dc.w $C209,$FFFE,$0108,2,$10a,2,$1ba,$f10,$1b8,$f10
 dc.w $C309,$FFFE,$0108,2,$10a,2,$1ba,$f00,$1b8,$f00
 dc.w $C409,$FFFE,$0108,2,$10a,2,$1ba,$f01,$1b8,$f01
 dc.w $C509,$FFFE,$0108,2,$10a,2,$1ba,$f02,$1b8,$f02
 dc.w $C609,$FFFE,$0108,2,$10a,2,$1ba,$f03,$1b8,$f03
 dc.w $C709,$FFFE,$0108,2,$10a,2,$1ba,$f04,$1b8,$f04
 dc.w $C809,$FFFE,$0108,2,$10a,2,$1ba,$f05,$1b8,$f05
 dc.w $C909,$FFFE,$0108,2,$10a,2,$1ba,$f06,$1b8,$f06
 dc.w $CA09,$FFFE,$0108,2,$10a,2,$1ba,$f07,$1b8,$f07
 dc.w $CB09,$FFFE,$0108,2,$10a,2,$1ba,$f08,$1b8,$f08
 dc.w $CC09,$FFFE,$0108,2,$10a,2,$1ba,$f09,$1b8,$f09
 dc.w $CD09,$FFFE,$0108,2,$10a,2,$1ba,$f0a,$1b8,$f0a
 dc.w $CE09,$FFFE,$0108,2,$10a,2,$1ba,$f0b,$1b8,$f0b
 dc.w $CF09,$FFFE,$0108,2,$10a,2,$1ba,$f0c,$1b8,$f0c
 dc.w $D009,$FFFE,$0108,2,$10a,2,$1ba,$f0d,$1b8,$f0d
 dc.w $D109,$FFFE,$0108,2,$10a,2,$1ba,$f0e,$1b8,$f0e
 dc.w $D209,$FFFE,$0108,2,$10a,2,$1ba,$f0f,$1b8,$f0f
 dc.w $D309,$FFFE,$0108,2,$10a,2,$1ba,$e0f,$1b8,$e0f
 dc.w $D409,$FFFE,$0108,2,$10a,2,$1ba,$d0f,$1b8,$d0f
 dc.w $D509,$FFFE,$0108,2,$10a,2,$1ba,$c0f,$1b8,$c0f
 dc.w $D609,$FFFE,$0108,2,$10a,2,$1ba,$b0f,$1b8,$b0f
 dc.w $D709,$FFFE,$0108,2,$10a,2,$1ba,$a0f,$1b8,$a0f
 dc.w $D809,$FFFE,$0108,2,$10a,2,$1ba,$90f,$1b8,$90f
 dc.w $D909,$FFFE,$0108,2,$10a,2,$1ba,$80f,$1b8,$80f
 dc.w $DA09,$FFFE,$0108,2,$10a,2,$1ba,$70f,$1b8,$70f
 dc.w $DB09,$FFFE,$0108,2,$10a,2,$1ba,$60f,$1b8,$60f
 dc.w $DC09,$FFFE,$0108,2,$10a,2,$1ba,$50f,$1b8,$50f
 dc.w $DD09,$FFFE,$0108,2,$10a,2,$1ba,$40f,$1b8,$40f
 dc.w $DE09,$FFFE,$0108,2,$10a,2,$1ba,$30f,$1b8,$30f
 dc.w $DF09,$FFFE,$0108,2,$10a,2,$1ba,$20f,$1b8,$20f
 dc.w $E009,$FFFE,$0108,2,$10a,2,$1ba,$10f,$1b8,$10f
 dc.w $E109,$FFFE,$0108,2,$10a,2,$1ba,$00f,$1b8,$00f
 dc.w $E209,$FFFE,$0108,2,$10a,2,$1ba,$01f,$1b8,$01f
 dc.w $E309,$FFFE,$0108,2,$10a,2,$1ba,$02f,$1b8,$02f
 dc.w $E409,$FFFE,$0108,2,$10a,2,$1ba,$03f,$1b8,$03f
 dc.w $E509,$FFFE,$0108,2,$10a,2,$1ba,$04f,$1b8,$04f
 dc.w $E609,$FFFE,$0108,2,$10a,2,$1ba,$05f,$1b8,$05f
 dc.w $E709,$FFFE,$0108,2,$10a,2,$1ba,$06f,$1b8,$06f
 dc.w $E809,$FFFE,$0108,2,$10a,2,$1ba,$07f,$1b8,$07f
 dc.w $E909,$FFFE,$0108,2,$10a,2,$1ba,$08f,$1b8,$08f
 dc.w $EA09,$FFFE,$0108,2,$10a,2,$1ba,$09f,$1b8,$09f
 dc.w $EB09,$FFFE,$0108,2,$10a,2,$1ba,$0af,$1b8,$0af
 dc.w $EC09,$FFFE,$0108,2,$10a,2,$1ba,$0bf,$1b8,$0bf
 dc.w $ED09,$FFFE,$0108,2,$10a,2,$1ba,$0cf,$1b8,$0cf
 dc.w $EE09,$FFFE,$0108,2,$10a,2,$1ba,$0df,$1b8,$0df
 dc.w $EF09,$FFFE,$0108,2,$10a,2,$1ba,$0ef,$1b8,$0ef
 dc.w $F009,$FFFE,$0108,2,$10a,2,$1ba,$0ff,$1b8,$0ff
 dc.w $F109,$FFFE,$0108,-42,$10a,-42,$1ba,$0fe,$1b8,$0fe
 dc.w $F209,$FFFE,$0108,-42,$10a,-42,$1ba,$0fd,$1b8,$0fd
 dc.w $F309,$FFFE,$0108,-42,$10a,-42,$1ba,$0fc,$1b8,$0fc
 dc.w $F409,$FFFE,$0108,-42,$10a,-42,$1ba,$0fb,$1b8,$0fb
 dc.w $F509,$FFFE,$0108,-42,$10a,-42,$1ba,$0fa,$1b8,$0fa
 dc.w $F609,$FFFE,$0108,-42,$10a,-42,$1ba,$0f9,$1b8,$0f9
 dc.w $F709,$FFFE,$0108,-42,$10a,-42,$1ba,$0f8,$1b8,$0f8
 dc.w $F809,$FFFE,$0108,-42,$10a,-42,$1ba,$0f7,$1b8,$0f7
 dc.w $F909,$FFFE,$0108,-42,$10a,-42,$1ba,$0f6,$1b8,$0f6
 dc.w $FA09,$FFFE,$0108,-42,$10a,-42,$1ba,$0f5,$1b8,$0f5
 dc.w $FB09,$FFFE,$0108,-42,$10a,-42,$1ba,$0f4,$1b8,$0f4
 dc.w $FC09,$FFFE,$0108,-42,$10a,-42,$1ba,$0f3,$1b8,$0f3
 dc.w $FD09,$FFFE,$0108,-42,$10a,-42,$1ba,$0f2,$1b8,$0f2
 dc.w $FE09,$FFFE,$0108,-42,$10a,-42,$1ba,$0f1,$1b8,$0f1


 dc.w    $ff09,$fffe,$ffdd,$fffe

 dc.w    $0009,$fffe

    DC.W    $00E0
zPL0H        DC.W    $0000,$00E2
zPL0L        DC.W    $0000,$00E4
zPL1H        DC.W    $0000,$00E6
zPL1L        DC.W    $0000,$00E8
zPL2H        DC.W    $0000,$00EA
zPL2L        DC.W    $0000,$00EC
zPL3H        DC.W    $0000,$00EE
zPL3L        DC.W    $0000,$00F0
zPL4H        DC.W    $0000,$00F2
zPL4L        DC.W    $0000
        DC.W    $0180,$0000,$0182,$0000
        DC.W    $0184,$0fff,$0186,$0000
        DC.W    $0188,$0ddd,$018A,$0bbb
        DC.W    $018C,$0aaa,$018E,$0999
        DC.W    $0190,$0888,$0192,$0777
        DC.W    $0194,$0666,$0196,$0555
        DC.W    $0198,$0333,$019A,$0222
        DC.W    $019C,$0111,$019E,$0000
         dc.w    $108,2,$10a,2
 dc.w      $0109,$fffe,$186,$000
 dc.w     $0209,$fffe,$186,$000
 dc.w     $0309,$fffe,$186,$11
 dc.w    $0409,$fffe,$186,$22
 dc.w    $0509,$fffe,$186,$33
 dc.w    $0609,$fffe,$186,$044
 dc.w     $0709,$fffe,$186,$055
 dc.w    $0809,$fffe,$186,$066
 dc.w    $0909,$fffe,$186,$077
 dc.w    $0a09,$fffe,$186,$088
 dc.w     $0b09,$fffe,$186,$099
 dc.w    $0c09,$fffe,$186,$0aa
 dc.w    $0d09,$fffe,$186,$0bb
 dc.w    $0e09,$fffe,$186,$0cc
 dc.w    $0f09,$fffe,$186,$0dd
 dc.w    $1009,$fffe,$186,$0ee
 dc.w    $1109,$fffe,$186,$1ee
 dc.w    $1209,$fffe,$186,$2ee
 dc.w    $1309,$fffe,$186,$3ee
 dc.w    $1409,$fffe,$186,$4ee
 dc.w    $1509,$fffe,$186,$5ee
 dc.w    $1609,$fffe,$186,$6ee
 dc.w    $1709,$fffe,$186,$7Ee
 DC.W   $1809,$fffe,$186,$8ee,$180,$1,$182,$1
 dc.w    $1909,$fffe,$186,$9ee,$180,$3,$182,$3
 dc.w    $1a09,$fffe,$186,$aee,$180,$5,$182,$5
 dc.w    $1b,$fffe,$186,$bee,$180,$7,$182,$7
 dc.w    $1c09,$fffe,$186,$cee,$180,$9,$182,$9
 dc.w    $1d09,$fffe,$186,$dee,$180,$b,$182,$b
 dc.w    $1e09,$fffe,$186,$eee,$180,$d,$182,$d
 dc.w    $1f09,$fffe,$186,$0f0,$180,$e,$182,$e

 dc.w    $2109,$fffe,$108,$ff7e,$10a,$ff7e

 dc.w    $2309,$fffe,$186,$ccc
woplist
 dc.w    $2409,$fffe,$186,$bcc
 dc.w    $2509,$fffe,$186,$acc
 dc.w    $2609,$fffe,$186,$9cc
 dc.w    $2709,$fffe,$186,$8bb
 dc.w    $2809,$fffe,$186,$7bb
 dc.w    $2909,$fffe,$186,$6bb
 dc.w    $2a09,$fffe,$186,$5aa
 dc.w    $2b09,$fffe,$186,$4aa
 dc.w    $2c09,$fffe,$186,$3aa
 dc.w    $2d09,$fffe,$186,$299
 dc.w    $2e09,$fffe,$186,$199
 dc.w    $2f09,$fffe,$186,$099
 dc.w    $3009,$fffe,$186,$088
 dc.w    $3109,$fffe,$108,$8c6,$10a,$8c6
 dc.w    $3209,$fffe,$108,$2,$10a,$2
 dc.w   $3309,$fffe,$180,$0,$182,$0,$184,$e00,$186,$f60,$188,$d60
 dc.w    $18a,$b50,$18c,$a50,$18e,$840
 dc.w    $9c,$8010






        DC.W    $FFFF,$FFFE
gfxlib    dc.b    "graphics.library",0
    EVEN
_gfxbase    dc.l    0
MEMORY_POINTER    dc.l    0
MYRASTPORT    ds.b    RP_Sizeof
MYBITMAP    ds.b    BM_Sizeof
colour    dc.w    0
flagz    dc.b    0
wopptr    dc.l    wopdata
wopdata    dc.w    0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,14,13,12,11,10,9,8
    dc.w    7,6,5,4,3,2,1,$ffff





string            ;     *
    dc.b    "                                    "
    dc.b    "   GENERATE DON'T MEDITATE........            "

    dc.b    "   COMRADE J  ",254
    dc.b    "OF SHARE&ENJOY PROUDLY PRESENTS THE "
    DC.B     "LATEST "
    Dc.b    " a SAE DEMO a",254

    DC.B    "RELEASED ON THE SHARE&ENJOY/ALPHA FLIGHT (FREESTYLE U.K.) "


    DC.B    "COPY PARTY (NOVEMBER 19TH)."
    dc.b    " ALL CODING BY COMRADE J, GRAPHICS BY OZONE, FONT BY TIW, AND TUNE "
    dc.b    "BY WILD COPPER FROM THEIR MEGA DEMO DISK (RIPPED BY "
    dc.b    "COMRADE J, OF COURSE. NORTHSTAR SOUNDTRACKER RIPPER COULDN'T FIND IT, "
    dc.b    "BUT THEN COOOOL PEOPLE DON'T NEED THE RIPPER ANYWAY!) "
    DC.B    " SORRY ABOUT THIS DEMO NOT BEING TOTALLY BRILLIANT, BUT UNIVERSITY IS TAKING UP "
    DC.B    "A LOT OF MY TIME AT THE MOMENT, AND I'M ALWAYS AWAY. SORRY IF YOU PHONE ME AND I'M "
    DC.B    "NEVER IN.       >< >< >< >< ><  "
    DC.B    " THIS DEMO WAS ORIGINALY CODED ON THE SINCLAIR QL IN FORTH (PORTED FROM AN EARLIER "
    dc.b    "ROUTINE I WROTE ON THE COMMODORE PET). THE GRAPHICS WERE DRAWN USING GRAPHICRAFT, "
    dc.b    "THE TUNE USES THE INSTANT MUSIC PLAY ROUTINE, AND THE DEMO WAS COMPILED USING PUBLIC DOMAIN PROLOG. "
    dc.b    "   WOT A LOAD OF BOLLOKZ! (TRY CONVERTING [phone] INTO HEX).    "

    dc.b    "           DEVPAC USERS RULE THE WORLD, SEKA LOVERS ROT IN HELL!!!!!     "

    dc.b    "SHARE&ENJOY ARE....."
    dc.b    "  COMRADE J  ",254
    dc.b    "    T.I.W.   ",254
    dc.b    "  OVERLORD X ",254
    dc.b    "    OZONE    ",254
    dc.b    "    KRS 1    ",254
    dc.b    "   ANARCKY   ",254
    DC.B    "  MR KIPLING ",254
    dc.b    "  EKO RANGER ",254
    dc.b    "  SCOOBY DOO ",254
    dc.b    "     ZIT     ",254
    dc.b    "    ROMEO    ",254
    dc.b    "   DOUBLE M  ",254
    dc.b    "    RATH. . .",254
    dc.b    ". .THE DRUID!  "
    dc.b    "  ALSO, OUR AFFILIATED GROUPS ARE: "
    DC.B    " THE B.S.S:  ",254
    dc.b    " BRITISH SWAPPING SYNDICATE (GREY AND PHIL), "
    DC.B    " THE N.C.B:  ",254
    dc.b    " THE NATIONAL CRACKING BOARD (CHRIS, ETC).   "

    dc.b    "        IT'S COMRADE J HERE (AND WHY NOT, I WROTE THIS!), "
    dc.b    " AND WHAT A LOVELY NIGHT IT IS AT THE MOMENT. IT'S THURSDAY AT THE MOMENT (I'M WRITING THIS "
    dc.b    "BEFORE THE COPY PARTY), SORRY, IT'S FRIDAY. I FORGOT. IT'S NOW 04:19AM ON MY BEDSIDE CLOCK AND 04:22AM ON "
    dc.b    "MY WATCH.  YEAH, SLEEP IS FOR LAMERS ONLY!!!    "




    DC.B    " OH YEAH, IF YOU WANT TO CONTACT SHARE&ENJOY, PRESS THE RIGHT "
    DC.B    "MOUSE BUTTON! (DON'T HESITIATE, DO IT NOW!).        COMRADE J SENDS HIS GREETS TO (IN NO PARTICULAR ORDER) "
    dc.b    "ALL SAE MEMBERS (INCLUDING BSS AND NCB), "
    DC.B    " CRACK FORCE FIVE, ASS (PREDATOR), PUBLIC ENEMY (MARIDIAN), ACCUMULATORS (CITYHUNTER + CO.), "
    dc.b    "THE ARCADE MASTER, THE TOP BOYS (VICTORY), THE CULPRITS (XTRO, HYDROS AND ZIGOR), "
    DC.B    "L'DISQUE (SHADOW WARRIOR), THE LOST BOYS (MARKER), CYRUS (R.I.P. PERCEPOLIS!), FREESTYLE U.K./AFL (HAWKY, FROSTY, BIG AL, PARALLAX AND "
    DC.B    "ALL OUR OTHER FRIENDS), STUPID NAME TEAM (YIDDO, SORRY YOU COULDN'T COME TODAY), "
    dc.b    "TC, TBY (WHY DO YOU ALWAYS COME DOWN WHILE I'M AWAY?), CBB (MAZE CHAMPION - SORRY"
    DC.B    " I HAVEN'T WRITTEN FOR FOUR MONTHS!!!), ACES HIGH, NILRAC ENTERPRISES (NEW ZEALAND), SLAC (PHANTOM&MAVERICK), "
    dc.b    "TRICKY, JAY-II (KEEP ON LARFIN'), THE COLONEL(a) (GET A JOB AND BUY ANOTHER AMIGA, THEN YOU CAN JOIN SAE AGAIN!!! [FOR THOSE WHO DON'T KNOW, "
    dc.b    "THE COLONEL FOUNDED SAE WITH ME, COMRADE J]), "
    DC.B    "AND LAST AND aDEFINATELYa LEAST, LIGOTARGE (BUY YOUR OWN OUTRUN!)  "
    DC.B    " MEGA HELLOS TO TWO FREAKY PEOPLE, THE MAD DIGGER AND ARMAGEDDON (THE ORGANISERS OF "
    dc.b    "THE SHARE&ENJOY FAN CLUB!!!).  SORRY IF I FORGOT YOU, LOOK FURTHER ON! "
    dc.b    "  THIS TIME THE MEGA ATARI'S GO TO THE BaSTARD WHO RELEASED ""EDDIE EDWARDS STUPID SKI-ING"" WITH "
    dc.b    "'WORLD OF WANaERS' ON THE LOADER, ALSO TO THE ARSEHOLES WHO HAVE BEEN ANNOYING OUR FRIENDS FREESTYLE U.K. ON THE PHONE (CONTRARY TO RUMOUR SAE AND FUK ARE STILL GOOD FRIENDS). "
    dc.b    "  ONE MORE THING, THERE IS A PERSON CALLED 'MORPH' WHO KEEPS ON SAYING HE KNOWS ME, BUT I CAN'T REMEBER EVER MEETING HIM! "
    dc.b    "IF YOU REALLY HAVE MET ME, MEET ME AGAIN. IF YOU ARE SPREADING BULLSHIT, STOP! "


    dc.b    "   MY NEXT DEMO WILL BE A MEGADEMO, BUT WON'T BE AVAILABLE UNTIL AFTER XMAS, THIS IS BECAUSE I'M NOT GOING TO RUSH IT (THIS DEMO TOOK 1 WEEK). "
    dc.b    "   LET'S HIDE IT HERE WHERE NO-ONE WILL SEE IT!    "
    dc.b    " THERE IS A COMPUTER SHOP........."
    dc.b    " IT IS RUN BY WANaERS........."
    dc.b    " IT IS CALLED ",254
    dc.b    "  Ha-VaLaAaE! ",254
    dc.b    " (I CHICKENED OUT AT THE LAST MOMENT!, HENCE THE aaaa's) "
    dc.b    " BY THE WAY, THE a SYMBOL IS THE OFFICIAL SAE SYMBOL, TAKEN FROM THE "
    dc.b    "'CONCERTS IN CHINA' ALBUM BY JEAN MICHEL JARRE, IT WAS ORIGINALY DRAWN BY "
    dc.b    "THE CO-FOUNDER, THE COLONEL, WHO HAS NOW GOT NO AMIGA DUE TO FINANCIAL NEEDS (HE NEEDED TO EAT) "

    DC.B    "  OH WELL, ENOUGH FROM ME, LISTEN TO THIS BORING PERSON INSTEAD......"

     dc.b    255
    ds.b    15000
    dc.b    255

string2    dc.b    "------  IF U WANT TO CONTACT SHARE&ENJOY, GRAB A WRITING IMPLEMENT "
     DC.B    "AND MAKE CAREFUL NOTE OF THE FOLLOWING ADDRESS.       "
    DC.B    " SHARE&ENJOY ",254
    DC.B    " 26 SOUTHWAY ",254
    DC.B    "   CROYDON   ",254
    DC.B    "   SURREY    ",254
    DC.B    "  CR0, 8RP   ",254
    DC.B    "   ENGLAND   ",254
    DC.B    "      NO LAMERS PLEASE!"
    dc.b    " ------"
    dc.b    255



spoint    dc.l    string
myfont    dc.b    "fog "
    ds.b     33788
    dc.l    0
mypiccy    dc.b    "fog "
    ds.b     56316+100

;***********************************
;***********************************
;**                               **
;** SoundTracker V4.0 Playroutine **
;**                               **
;**   Coder 1 : Karsten Obarski   **
;**                               **
;**   Coder 2 : The Exterminator  **
;**                               **
;**   Coder 3 : Il Scuro          **
;**                               **
;**   Coder 4 : AFL 1970          **
;**                               **
;**   Translator (to DEVPAC)      **
;**   Comrade J of Share and      **
;**   Enjoy                   **
;***********************************
;***********************************


    dc.l    0

mt_speed    equ    $1f4


 bsr        mt_init
 move.w        #$4000,$dff09a
 move.l        $00006c,mt_oldirq
 move.l        #mt_newirq,$00006c
 move.w        #$c000,$dff09a

mt_wait:
 btst        #6,$bfe001
 bne.s        mt_wait

 move.w        #$000f,$dff096
 move.w        #$4000,$dff09a
 move.l        mt_oldirq,$00006c
 move.w        #$c000,$dff09a
 clr.l        d0
 rts

mt_init:
 move.l        #s1,mt_sample1
 move.l        #s2,mt_sample2
 move.l        #s3,mt_sample3
 move.l        #s4,mt_sample4
 move.l        #s5,mt_sample5
 move.l        #s6,mt_sample6
 move.l        #s7,mt_sample7
 move.l        #s8,mt_sample8
 move.l        #s9,mt_sample9
 move.l        #sa,mt_sample10
 move.l        #sb,mt_sample11
 move.l        #sc,mt_sample12
 move.l        #sd,mt_sample13
 move.l        #se,mt_sample14
 move.l        #sf,mt_sample15

 move.l        #mt_sample1,a0
 clr.l        d0
mt_clear:
 move.l        (a0,d0),a1
 clr.l        (a1)
 addq        #4,d0
 cmp.l        #$3c,d0
 bne.s        mt_clear

 move.w        #0,$dff0a8
 move.w        #0,$dff0b8
 move.w        #0,$dff0c8
 move.w        #0,$dff0d8
 eor.w        #$c000,mt_voice0+12
 clr.l        mt_partnrplay
 clr.l        mt_partnote
 clr.l        mt_partpoint

 move.b        mt_sampleinfo+$1d6,mt_maxpart+1
 move.b        mt_sampleinfo+$1d7,mt_kn1+1
 rts


mt_newirq:
 movem.l        d0-d7/a0-a6,-(a7)
 bsr        mt_music
 movem.l        (a7)+,d0-d7/a0-a6

 dc.w        $4ef9
mt_oldirq:
 dc.l        0


mt_music:
 addq.l        #1,mt_counter
 move.l        mt_tempo,d0
 cmp.l        mt_counter,d0
 bne.s        mt_notsix
 clr.l        mt_counter
 bra        mt_rout2

mt_notsix:
 lea        mt_aud1temp,a6
 tst.b        3(a6)
 beq.s        mt_arp1
 move.l        #$dff0a0,a5
 bsr.s        mt_arprout

mt_arp1:
 lea        mt_aud2temp,a6
 tst.b        3(a6)
 beq.s        mt_arp2
 move.l        #$dff0b0,a5
 bsr.s        mt_arprout

mt_arp2:
 lea        mt_aud3temp,a6
 tst.b        3(a6)
 beq.s        mt_arp3
 move.l        #$dff0c0,a5
 bsr.s        mt_arprout

mt_arp3:
 lea        mt_aud4temp,a6
 tst.b        3(a6)
 beq.s        mt_arp4
 move.l        #$dff0d0,a5
 bsr.s        mt_arprout
mt_arp4:
 bra        mt_stop


mt_arprout:
 tst.w    24(a6)
 beq.s    mt_noslide

 clr.w    d0
 move.b    25(a6),d0
 lsr.b    #4,d0
 tst.b    d0
 beq.s    mt_voldwn2
 bsr    mt_pushvol1
 bra.s    mt_noslide

mt_voldwn2:
 clr.w    d0
 move.b    25(a6),d0
 bsr    mt_pushvol2

mt_noslide:
 move.b    2(a6),d0
 and.b    #$0f,d0
 tst.b    d0
 beq.L    mt_arpegrt
 cmp.b    #3,d0
 beq.L    mt_arpegrt
 cmp.b    #4,d0
 beq.L    mt_arpegrt
 cmp.b    #5,d0
 beq.L    mt_arpegrt
 cmp.b    #1,d0
 beq.s    mt_portup
 cmp.b    #6,d0
 beq.s    mt_portup
 cmp.b    #7,d0
 beq.s    mt_portup
 cmp.b    #8,d0
 beq.s    mt_portup
 cmp.b    #2,d0
 beq.s    mt_portdwn
 cmp.b    #9,d0
 beq.s    mt_portdwn
 cmp.b    #10,d0
 beq.s    mt_portdwn
 cmp.b    #11,d0
 beq.s    mt_portdwn
 cmp.b    #13,d0
 beq.s    mt_volup
 rts

mt_portup:
 clr.w    d0
 move.b    3(a6),d0
 sub.w    d0,22(a6)
 cmp.w    #$71,22(a6)
 bpl.s    mt_ok1
 move.w    #$71,22(a6)
mt_ok1:
 move.w    22(a6),6(a5)
 rts

mt_portdwn:
 clr.w    d0
 move.b    3(a6),d0
 add.w    d0,22(a6)
 cmp.w    #$358,22(a6)
 bmi.s    mt_ok2
 move.w    #$358,22(a6)
mt_ok2:
 move.w    22(a6),6(a5)
 rts

mt_volup:
 clr.w    d0
 move.b    3(a6),d0
 lsr.b    #4,d0
 tst.b    d0
 beq.s    mt_voldwn
mt_pushvol1:
 add.w    d0,$12(a6)
 cmp.w    #$40,$12(a6)
 bmi.s    mt_ok3
 move.w    #$40,$12(a6)
mt_ok3:
 move.w    $12(a6),8(a5)
 rts

mt_voldwn:
 clr.w    d0
 move.b    3(a6),d0
mt_pushvol2:
 and.b    #$0f,d0
 sub.w    d0,$12(a6)
 bpl.s    mt_ok4
 clr.w    $12(a6)
mt_ok4:
 move.w    $12(a6),8(a5)
 rts

mt_arpegrt:
 cmp.l        #1,mt_counter
 beq.s        mt_loop2
 cmp.l        #2,mt_counter
 beq.s        mt_loop3
 cmp.l        #3,mt_counter
 beq.s        mt_loop4
 cmp.l        #4,mt_counter
 beq.s        mt_loop2
 cmp.l        #5,mt_counter
 beq.s        mt_loop3
 rts

mt_loop2:
 clr.l        d0
 move.b        3(a6),d0
 lsr.b        #4,d0
 bra.s        mt_cont

mt_loop3:
 clr.l        d0
 move.b        3(a6),d0
 and.b        #$0f,d0
 bra.s        mt_cont

mt_loop4:
 move.w        16(a6),d2
 bra.s        mt_endpart

mt_cont:
 lsl.w        #1,d0
 clr.l        d1
 move.w        16(a6),d1
 lea        mt_arpeggio,a0
mt_loop5:
 move.w        (a0,d0),d2
 cmp.w        (a0),d1
 beq.s        mt_endpart
 addq.l        #2,a0
 bra.s        mt_loop5

mt_endpart:
 move.w        d2,6(a5)
 rts

mt_rout2:
 lea        mt_sampleinfo,a0
 move.l        a0,a3
 add.l        #$0c,a3
 move.l        a0,a2
 add.l        #$1d8,a2
 add.l        #$258,a0
 move.l        mt_partnrplay,d0
 clr.l        d1
 move.b        (a2,d0),d1
 mulu        #$0400,d1
 add.l        mt_partnote,d1
 move.l        d1,mt_partpoint
 clr.w        mt_dmacon

 move.l        #$dff0a0,a5
 lea        mt_aud1temp,a6
 bsr        mt_playit

 move.l        #$dff0b0,a5
 lea        mt_aud2temp,a6
 bsr        mt_playit

 move.l        #$dff0c0,a5
 lea        mt_aud3temp,a6
 bsr        mt_playit

 move.l        #$dff0d0,a5
 lea        mt_aud4temp,a6
 bsr        mt_playit

 move.l        #mt_speed,d0
mt_rls:
 dbf        d0,mt_rls

 move.l        #$8000,d0
 add.w        mt_dmacon,d0
 move.w        d0,$dff096

 move.l        #mt_aud4temp,a6
 cmp.w        #1,14(a6)
 bne.s        mt_voice3
 move.l        10(a6),$dff0d0
 move.w        #1,$dff0d4
mt_voice3:
 move.l        #mt_aud3temp,a6
 cmp.w        #1,14(a6)
 bne.s        mt_voice2
 move.l        10(a6),$dff0c0
 move.w        #1,$dff0c4
mt_voice2:
 move.l        #mt_aud2temp,a6
 cmp.w        #1,14(a6)
 bne.s        mt_voice1
 move.l        10(a6),$dff0b0
 move.w        #1,$dff0b4
mt_voice1:
 move.l        #mt_aud1temp,a6
 cmp.w        #1,14(a6)
 bne.s        mt_voice0
 move.l        10(a6),$dff0a0
 move.w        #1,$dff0a4

mt_voice0:
 lea        mt_modulate,a0
 move.l        mt_partnote,d0
 lsl.b        #7,d0
 add.l        #$10,d0
 move.l        d0,mt_partnote
 cmp.l        #$400,d0
 bne.s        mt_stop
 clr.l        mt_partnote
 addq.l        #1,mt_partnrplay
 clr.l        d0
 move.w        mt_maxpart,d0
 move.l        mt_partnrplay,d1
 cmp.l        d0,d1
 bne.s        mt_stop
 clr.l        mt_partnrplay
mt_stop:
 rts


mt_playit:
 move.l        (a0,d1),(a6)
 addq.l        #4,d1
 clr.l        d2
 move.b        2(a6),d2
 and.b        #$f0,d2
 lsr.b        #4,d2
 tst.b        d2
 beq.s        mt_nosamplechange

 clr.l        d3
 lea        mt_samples,a1
 move.l        d2,d4
 mulu        #4,d2
 mulu        #$1e,d4
 move.l        (a1,d2),4(a6)
 move.w        (a3,d4),8(a6)
 move.w        2(a3,d4),18(a6)
 move.w        4(a3,d4),d3
 tst.w        d3
 beq.s        mt_displace
 move.l        4(a6),d2
 add.l        d3,d2
 move.l        d2,4(a6)
 move.l        d2,10(a6)
 move.w        6(a3,d4),8(a6)
 move.w        6(a3,d4),14(a6)
 move.w        18(a6),8(a5)
 bra.s        mt_nosamplechange
mt_displace:
 move.l        4(a6),d2
 add.l        d3,d2
 move.l        d2,10(a6)
 move.w        6(a3,d4),14(a6)
 move.w        18(a6),8(a5)
mt_nosamplechange:
 tst.w        (a6)
 beq.s        mt_retrout
 move.w        (a6),16(a6)
 move.w        20(a6),$dff096
 move.l        4(a6),(a5)
 move.w        8(a6),4(a5)
 move.w        (a6),6(a5)
 move.w        20(a6),d0
 or.w        d0,mt_dmacon

mt_retrout:
 move.w    20(a6),d0
 lsl.w    #4,d0
 add.w    20(a6),d0
 move.w    d0,$dff09e

 tst.w    (a6)
 beq.s    mt_nonewper
 move.w    (a6),22(a6)
mt_nonewper:

 move.b    2(a6),d0
 and.b    #$0f,d0
 cmp.b    #14,d0
 beq.s    mt_zx1
 cmp.b    #15,d0
 bne.s    mt_noset

 move.w    2(a6),d0
 and.l    #$f,d0
 move.l    d0,mt_tempo
 rts

mt_zx1:
 move.w    2(a6),24(a6)
 rts
mt_noset:
 tst.b    3(a6)
 bne.s    mt_noclr
 clr.w    24(a6)
mt_noclr:
 cmp.b    #3,d0
 beq.s    mt_modvol
 cmp.b    #6,d0
 beq.s    mt_modvol
 cmp.b    #9,d0
 beq.s    mt_modvol
 cmp.b    #4,d0
 beq.s    mt_modper
 cmp.b    #7,d0
 beq.s    mt_modper
 cmp.b    #10,d0
 beq.s    mt_modper
 cmp.b    #5,d0
 beq.s    mt_modvolper
 cmp.b    #8,d0
 beq.s    mt_modvolper
 cmp.b    #11,d0
 beq.s    mt_modvolper
 cmp.b    #12,d0
 bne.s    mt_nochnge
 move.b    3(a6),8(a5)
 mt_nochnge:
 rts

mt_modvol:
 move.w    20(a6),d0
 bra.s    mt_push

mt_modper:
 move.w    20(a6),d0
 lsl.w    #4,d0
 bra.s    mt_push

mt_modvolper:
 move.w    20(a6),d0
 lsl.w    #4,d0
 add.w    20(a6),d0

mt_push:
 add.w    #$8000,d0
 move.w    d0,$dff09e
 rts


mt_aud1temp:
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0001,$0000,$0000
mt_aud2temp:
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0002,$0000,$0000
mt_aud3temp:
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0004,$0000,$0000
mt_aud4temp:
 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
 dc.w $0000,$0000,$0008,$0000,$0000
mt_partnote:
 dc.l 0
mt_partnrplay:
 dc.l 0
mt_counter:
 dc.l 0
mt_tempo:
 dc.l 6
mt_partpoint:
 dc.l 0
mt_samples:
 dc.w $0000,$0000
mt_sample1:
 dc.l 0
mt_sample2:
 dc.l 0
mt_sample3:
 dc.l 0
mt_sample4:
 dc.l 0
mt_sample5:
 dc.l 0
mt_sample6:
 dc.l 0
mt_sample7:
 dc.l 0
mt_sample8:
 dc.l 0
mt_sample9:
 dc.l 0
mt_sample10:
 dc.l 0
mt_sample11:
 dc.l 0
mt_sample12:
 dc.l 0
mt_sample13:
 dc.l 0
mt_sample14:
 dc.l 0
mt_sample15:
 dc.l 0
mt_maxpart:
 dc.w $0000
mt_kn1:
 dc.w $0000
mt_dmacon:
 dc.w $0000

mt_modulate:
 dc.w $0c39,$0039,$00bf,$ec01,$6630,$0839,$0007,$00bf
 dc.w $e001,$6626,$2c79,$0000,$0004,$43fa,$0020,$4eae
 dc.w $fe68,$2c40,$4280,$41fa,$0026,$223c,$0000,$0032
 dc.w $4eae,$ffa6,$60ee,$0000,$0000,$4e75,$696e,$7475
 dc.w $6974,$696f,$6e2e,$6c69,$6272,$6172,$7900,$0104
 dc.w $1753,$6f75,$6e64,$5472,$6163,$6b65,$7220,$5632
 dc.w $0063,$00f0,$20a9,$2054,$6865,$204a,$756e,$676c
 dc.w $6520,$436f,$6d6d,$616e,$6400,$0000

mt_arpeggio:
 dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c
 dc.w $023a,$021a,$01fc,$01e0,$01c5,$01ac,$0194,$017d
 dc.w $0168,$0153,$0140,$012e,$011d,$010d,$00fe,$00f0
 dc.w $00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097
 dc.w $008f,$0087,$007f,$0078,$0071,$0000,$0000,$0000

    dc.l    0
mt_sampleinfo:    dc.b    "fog "
        ds.b    16972
s1:        ds.b    4000
s2:        ds.b    4500
s3:        ds.b    3000
s4:
        ds.b    1900
s5:        ds.b    9800
s6:        ds.b    2300
s7:        ds.b    2300
s8:        ds.b    3000
s9:        ds.b    8900
sa:        ds.b    9800
sb:        ds.b    9900
sc:        ds.b    0
sd:        ds.b    0
se:        ds.b    0
sf:        ds.b    0