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

Text File | 1995-03-17 | 23KB | 769 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



    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



    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,$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

 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    $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    "  aa SAE aa  ",254
    dc.b     " (SHARE&ENJOY) PRESENTS THE WALKER DEMO, "
    dc.b    "FOR ALL YOU LUCKY PEOPLE (UNLIKE ME!) WHO HAVE "
    dc.b    "AT LEAST 2 MEGABYTES OF MEMORY! IF YOU DON'T, THEN "
    dc.b    "FORGET IT!  THANK'S TO L'DISQUE FOR SUPPLYING IT, AND "
    dc.b    "GREETS TO THE ARCADE MASTER, THE ONLY OTHER PERSON I KNOW WHO CAN RUN IT! "
    dc.b    "SHORT OF SPACE TODAY (THAT'S WHY NO TUNE ON THIS INTRO), SO BYEEEE!"
    dc.b    "   ",255

string2    dc.b    "------  IF YOU WANT TO CONTACT SHARE AND ENJOY, GRAB A WRITING IMPLEMENT "
     DC.B    "AND MAKE CAREFUL NOTE OF THE FOLLOWING ADDRESS.       "
    DC.B    " SHARE&ENJOY ",254
    DC.B    "  ROSEMOUNT  ",254
    DC.B    "  48 MOUNTPLEASANT RD,"
    DC.B    "   LEWISHAM  ",254
    DC.B    "    LONDON   ",254
    DC.B    "  SE13, 6RE  ",254
    DC.B    "   ENGLAND   ",254
    DC.B    "      NO LAMERS PLEASE!, AND NOW BACK TO THE MAIN TEXT ------"
    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