;STERN.U NACH $50280
STARTUP:
MOVEM.L	 D0-D7/A0-A6,-(A7)	
LEA	 $60000,A0
MOVE.W	 #$3000,D1
CLEAR:	 MOVE.W #$FFFF,(A0)+
	 DBRA D1,CLEAR
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)
BSR.L		BLITOBJECT
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
MOD: 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,$0126
R1:  DC.W $2B01,$FFFE
DC.W $008E,$2C81,$0090,$24C1,    
DC.W $0092,$0038,$0094,$00D0	 
DC.W $0102,$0000,$0180,$0126
DC.W $0100,$2200
DC.W $00E0,$0006,$00E2,$0000
DC.W $00E4,$0006,$00E6,$0028
DC.W $0182,$0FFF,$0184,$0FFF,$0186,$0F00
DC.W $0108,$0028,$010A,$0028
DC.W $FFFF,$FFFE 
OLDCOPPER: DC.L 0
GFXNAME: DC.B "graphics.library",0
EVEN
GFXBASE: DC.L 0
POSX:   DC.L 0
ADDIT:  DC.L 0
CHANGEPOS:
	MOVE.L	ZEIGER,$DFF050
	MOVE.L	D1,$DFF054 
	MOVE.L	#$FFFFFFFF,$DFF044	 
	MOVE.L	#$09F00000,$DFF040
	MOVE.L	#$00200020,$DFF064
                     	   ;123456
	MOVE.W	#%0001111100000100,$DFF058
BLT4:	BTST	#$06,$DFF002
	BNE.S	BLT4
	RTS
	CMP.W	#$FFFF,MODE
	BEQ     DOWN
	ADD.L	#[16*80],ZEIGER
	ADD.B	#1,COUNT
	CMP.B	#10,COUNT
	BNE.S	EXIT199
	MOVE.W	#$FFFF,MODE
	MOVE.B	#0,COUNT
	RTS
DOWN:	
	SUB.L	#[16*80],ZEIGER
	MOVE.L  #$50000,D1
	CMP.L	ZEIGER,D1
	BNE.S	EXIT199
	MOVE.W	#$0000,MODE
EXIT199:RTS
ZEIGER:	DC.L	$50000
MODE:	DC.W	0
COUNT:	DC.B	0
EVEN
DELAY:	DC.W	0
POS:	DC.L	0
POSX2:	DC.L 	0
BLITOBJECT:
	LEA	$60000+[10*80],A0
	CLR.L	D0
	CLR.L	D1
	CLR.L	D2
	MOVE.L  A0,D1
	LEA	SINTAB,A1
	ADD.L	POS,A1
	MOVE.B	(A1),D0
	MOVE.B	#80,D2
	MULU	D0,D2
	MOVE.L  #[80*100],D4
	SUB.L	D2,D4
	ADD.L	D4,D1
NOCONT:	BSR.L	CHANGEPOS
	ADD.L	#8,D1
	ADD.L	#8,POSX2
	CMP.L	#[1*8],POSX2
	BNE.S	NOCONT
	MOVE.L	#0,POSX2
CONT2:	CMP.W	#0,UPN
	BEQ.S	PP1
	CMP.W	#1,UPN
	BEQ.S	PP2
PP1:	ADD.L	#2,POS
	CMP.L	#60,POS
	BEQ	PP1C
	RTS
PP1C:	MOVE.W	#1,UPN
	RTS
PP2:	SUB.L	#2,POS
	CMP.L	#2,POS
	BEQ	PP2C
	RTS
PP2C:	MOVE.W  #0,UPN
	RTS
UPN:	DC.W 0

SINTAB: 
DC.B $68,$68,$68,$68,$68,$68,$67,$67,$66,$66
DC.B $65,$64,$64,$63,$62,$61,$60,$5F,$5E,$5D
DC.B $5B,$5A,$59,$57,$56,$54,$53,$51,$4F,$4E
DC.B $4C,$4A,$48,$46,$45,$43,$41,$3E,$3C,$3A
DC.B $38,$36,$34,$31,$2F,$2D,$2A,$28
DC.B $26,$23,$21,$1E,$1C,$19,$14,$12,$0F,$0C
DC.B $0A,$07,$05,$02,$00,