;GCC INC. 88
STARTUP:
	MOVEM.L	 D0-D7/A0-A6,-(A7)	
	LEA	$50000,A0
	MOVE.W	#5800,D0
CL:	
	MOVE.W #0,(A0)+ 
	DBRA D0,CL
	MOVE.L	 $4,A6		
	LEA	 GFXNAME,A1		 	
	JSR	 -408(A6)		
	MOVE.L	 D0,GFXBASE		
	MOVE.L	 $4,A6		
	MOVE.L	 GFXBASE,A0		
	ADD.L	 #$32,A0			
	MOVE.L	 (A0),OLDCOPPER		
	MOVE.L	 #LISTE,(A0)
	MOVE.W	 #$0020,$DFF096 
	MOVE.L	 #$8010,$DFF09A
	MOVE.L	 $4,A6
	LEA	 GFXNAME,A1
	JSR	 -408(A6)
	MOVE.L	 D0,GFXBASE
	MOVE.L	 $4,A6
	JSR	 -132(A6)
	MOVE.W	 #$0020,$DFF09A
	MOVE.L	 $6C,OLDIRQ
	MOVE.L   $68,OLDTASTIRQ
	MOVE.L   #NEWTASTIRQ,$68
	MOVE.L	 #IRQNEW,$6C
	MOVE.W	 #$8020,$DFF09A
	BRA	 MOUSE

IRQNEW:
	MOVEM.L	D0-D7/A0-A6,-(SP)
	JSR	BIG
	BSR.W	ROUT
	MOVEM.L	(SP)+,D0-D7/A0-A6
	DC.W		$4EF9
	OLDIRQ:
	DC.L	0

NEWTASTIRQ:
	MOVEM.L	D0-D7/A0-A6,-(SP)

	MOVEM.L	(SP)+,D0-D7/A0-A6
	DC.W		$4EF9
OLDTASTIRQ:
	DC.L	0

MOUSE:
	CMP.B	 #$7F,$BFEC01
	BNE.S	 MOUSE
	MOVE.L	 $4,A6
	MOVE.L	 GFXBASE,A1
	JSR	 -414(A6)
	MOVE.L	 GFXBASE,A0	
	ADD.L    #$32,A0		
	MOVE.W	 #$0080,$DFF096	
	MOVE.L	 OLDCOPPER,(A0)	
	MOVE.W	 #$8080,$DFF096	
	MOVE.L	 OLDIRQ,$6C
	MOVE.L   OLDTASTIRQ,$68
	MOVEM.L	 (A7)+,D0-D7/A0-A6
	RTS
LISTE:
	DC.W $0180,0
	DC.W $2B01,$FFFE
	DC.W $008E,$2C71,$0090,$30C1    
	DC.W $0092,$0038,$0094,$00D0	 
	DC.W $0102,$0000,$0180,$0000
	DC.W $0100,$1100,$0108,$0000
	DC.W $010A,$0000,$00E0,$0005
	DC.W $00E2,$0000,$0182,$0FFF
	DC.W $FFFF,$FFFE 
OLDCOPPER: DC.L 0
GFXNAME: DC.B "graphics.library",0
	EVEN
GFXBASE: DC.L 0
BIG: 	LEA CHAR1,A0
	MOVE.L POS,A1
	MOVE.W #9,D0
WRITE2:	MOVE.W ANZAHL,D1
WRITE:	MOVE.W (A0),(A1)+
	ADD.L	#40-2,A1
	DBRA 	D1,WRITE
	ADD.L	#2,A0
	DBRA	D0,WRITE2
CLEARREST:
	MOVE.W	#$0000,D0
	MOVE.W	#40*5,D1
DOCL:	MOVE.W	D0,(A1)+
	DBRA	D1,DOCL	
	RTS
CHAR1: 
	DC.W %1111111111111111
	DC.W %1111111111111111
	DC.W %1111111000000000
	DC.W %1111111000000000
	DC.W %1111111000000000
	DC.W %1111111001111111
	DC.W %1111111001111111
	DC.W %1111111000011111
	DC.W %1111111111111111
	DC.W %1111111111111111
ROUT: 
	CMP.W 	#0,DEL
	BEQ.S	UP
	CMP.W	#1,DEL
	BEQ.S	DWN
	
UP:	ADD.W	#1,ANZAHL
	CMP.W	#25,ANZAHL
	BNE	BYE
	MOVE.W	#1,DEL
BYE:	RTS
DWN:	SUB.W	#1,ANZAHL
	CMP.W	#0,ANZAHL
	BNE	BYE
	MOVE.W	#0,DEL
	RTS

DEL:	DC.W 0
ANZAHL: DC.W 0	
POS: DC.L $50000