******  Equates and publics     ***************************************

MIN_LIB set     $1f                     ; Library minimum rev level!

xlib    macro
        xref    _LVO\1
        endm

        xlib    OpenLibrary
        xlib    CloseLibrary

        xlib    Output
        xlib    Write
        xlib    ClearScreen

******  The Program             ***************************************

Start:

*       D0,D1,A0,A1     used as scratch
*       ( D0, A0 is the command line leng$00000001,(a0)
   move.l   (a0),a1
   cmpi.b   #$00,(a1)
   beq.l   PlaceIII
   bra.l   PlaceIIII
PlaceI:
   move.w   #$c000,$dff09a
   move.l   38(a6),$dff080
   rts
PlaceII:
   lea   $046000,a0
   move.l   #$01200000,(a0)+
   move.l   #$01220000,(a0)+
         move.l   #$01800000,(a0)+
   move.l   #$01840000,(a0)+
   move.l   #$01860000,(a0)+
   move.l   #$01880000,(a0)+
   move.l   #$00e00004,(a0)+
   move.l   #$00e20000,(a0)+
   move.l   #$01001200,(a0)+
   move.l   #$00920038,(a {   |   }   ~        	 	                                                 P      P      P      P      P                  graphics.library                    j   \                      
  < <    <<<<xxxx????    q  < <    <<<<xxxx????       "     $  "0)+
   move.l   #$009400d0,(a0)+
   move.l   #$008e2981,(a0)+
   move.l   #$009029c1,(a0)+   
   move.l   #$2021fffe,d0
   move.l   #$0021fffe,d2
   bsr.l   PlaceIIIIIII
   move.l   #$ffdffffe,(a0)+
   move.l   #$2b21fffe,d2
   move.l   #$0021fffe,d0
   bsr.l   PlaceIIIIIIII
   move.l   #$00046000,$dff080
   lea   $dff000,a0
   move.w   #$9471,142(a0)
   move.w   #$9ce1,144(a0)
   move.w   #$0024,260(a0)
   move.w   #$0028,146(a0)
   move.w   #$00d8,148(a0)
   clr.w   258(a0)
   clr.1
   move.w #0,d2
   move.w #0,d3
   move.w #320,d4
   move.w #200,d5
   move.w #100,d6

   jsr    _LVOScrollRaster(a6)
   subq.b #1,d6
   cmp.w  #0,d6
   bne kloo
WaitMouseButton:
   btst   #6,$bfe001
   bne   WaitMouseButton

Exit:
   move.l   a4,(a3)
   rts

;---------------------------------------------------------------------------

CopperList:
   dc.w   $00e0,$0007
   dc.w   $00e2,$0000
   dc.w   $0100,%0001000000000000
   dc.w   $0180,$0000
   dc.w   $0182,$00ff
   dc.w   $0092,$0038
   dc.w   $0094,$00d0
   dc.w   $008e,$2c81
   dc.w   $0090,$f4c1
   dc.w   $ffff,$fffe

BitMap:
   dc.w   $0000,$0000
   dc.w   $0001,$0000
   dc.w   $0007,$0000
   dc.w   $0000