section lame,code_c

execbase=6

begin:
	MOVEM.L	D0-D7/A0-A6,-(SP)
	MOVE.L	execbase,A6

	MOVE.L	#$000086F0/4,D2
	LEA	FIELD,A3
	MOVE.L	#$30000,D0
	MOVE.L	D0,A6
	MOVE.L  D0,A0
LOOP:   MOVE.L  #0,(A0)+
	DBF	D2,LOOP

	ADD.L	#$00003064,D0
	MOVE.L	D0,D3
	MOVE.L	D0,A0
	ADD.L	#$00000100,D0
	MOVE.L	D0,D4
	MOVE.L	#$3F,D1
	LEA	DAT,A1
	LEA	$0080(A0),A2

	MOVE.L	A2,A4
	LEA	$0080(A2),A5
S3C:	MOVE.B	(A1)+,D0
	MOVE.B	D0,(A0)+
	MOVE.B	D0,-(A4)
	NOT.B	D0
	MOVE.B	D0,(A2)+
	MOVE.B	D0,-(A5)
	DBRA	D1,S3C
	MOVE.L	D3,$0012(A3)
	MOVE.L	D4,6(A3)
	LEA	$00DFF000,A5
	MOVE.W	#$8000,D1
	MOVE.W	2(A5),D0
	OR.W	D1,D0
	MOVE.W	D0,$0010(A3)
	MOVE.W	$001C(A5),D0
	OR.W	D1,D0
	MOVE.W	D0,14(A3)
	MOVE.W	#$7FFF,$0096(A5)
	MOVE.W	#$7FFF,$009A(A5)
	MOVE.W	#$2C71,$008E(A5)
	MOVE.W	#$2CD1,$0090(A5)
	MOVE.W	#$0030,$0092(A5)
	MOVE.W	#$00D8,$0094(A5)
	MOVE.W	#$1200,$0100(A5)
	MOVE.W	#4,$0108(A5)
	CLR.W	$0102(A5)
	MOVE.W	#$8300,$0096(A5)
	MOVE.L	$0000006C,10(A3)
	LEA	S22E,A0
	MOVE.L	A0,$0000006C
	CLR.W	$0180(A5)
	MOVE.W	#$0AAA,$0182(A5)
	MOVE.B	#$FF,$00BFD400
	MOVE.B	#$11,$00BFDE00
	MOVE.L	$0012(A3),A4
	MOVE.L	#$16,D6
	MOVE.W	#$C020,$009A(A5)

GOON:
	MOVEM.L	D0-D7/A0-A6,-(A7)
	bsr	textausgabe
	MOVEM.L	(A7)+,D0-D7/A0-A6

	LEA	COVER,A0
	MOVE.L	6(A3),A2
	MOVE.W	#$03E8,D7
SEC:	MOVE.L	#0,D2
	MOVE.L	#$4,D3
	MOVE.L	#$71,D1
SF2:	MOVE.L	#$15f,D4
	MOVE.W	#$0000,A1
SF8:	MOVE.W	D2,D5
	MOVE.W	D2,D0
	AND.W	#7,D5
	EOR.W	#7,D5
	LSR.W	#3,D0
	BTST	D5,0(A0,D0.W)
	BEQ.S	S14E
	MOVE.B	$00BFD400,D5
	AND.W	#$00FF,D5
	MOVE.B	0(A4,D5.W),D0
	LSL.W	#8,D0
	EXT.L	D0
	LSL.L	#2,D0
	MOVE.L	D0,12(A2)
	MOVE.W	D1,8(A2)
	MOVE.W	A1,4(A2)
	ADD.W	6(A5),D5
	AND.W	#$00FF,D5
	MOVE.B	0(A4,D5.W),D0
	LSL.W	#8,D0
	EXT.L	D0
	LSL.L	#2,D0
	MOVE.L	D0,$0010(A2)
	MOVE.W	#$0032,$0014(A2)
	ADD.L	D6,A2
	SUBQ.W	#1,D7
	BEQ.S	S15E
S14E:	ADDQ.W	#1,A1
	ADDQ.W	#1,D2
	DBRA	D4,SF8
	ADDQ.W	#1,D1
	DBRA	D3,SF2
	BRA.L	SEC
 
S15E:	MOVE.L	#7,D3
	CLR.W	(A3)
	MOVE.W	#$01F4,2(A3)
S168:	MOVE.L	6(A3),A2
	MOVE.W	#$03E7,D7
S170:	MOVE.W	(A2),D4
	MOVE.W	2(A2),D5
	MOVE.L	4(A2),D0
	MOVE.L	8(A2),D1
	TST.W	$0014(A2)
	BNE.S	S1A0
	ADD.L	12(A2),D0
	ADD.L	$0010(A2),D1
	ADD.L   #316*6,$0010(A2)
	BCLR	D4,0(A6,D5.W)
	CMP.L	#$01600000,D0
	BCC.S	S1A0
	CMP.L	#$01000000,D1
	BCS.S	S1A4
S1A0:	SUBQ.W	#1,$0014(A2)
S1A4:	MOVE.L	D0,4(A2)
	MOVE.L	D1,8(A2)
	SWAP	D0
	SWAP	D1
	TST.W	$0014(A2)
	BMI.S	S1D2
	MOVE.W	D1,D2
	ADD.W	D1,D1
	ADD.W	D2,D1
	LSL.W	#4,D1
	MOVE.W	D0,D2
	LSR.W	#3,D2
	ADD.W	D2,D1
	AND.W	D3,D0
	EOR.W	D3,D0
	MOVE.W	D0,(A2)
	MOVE.W	D1,2(A2)
	BSET	D0,0(A6,D1.W)
S1D2:	ADD.L	D6,A2
	TST.W	(A3)
	DBNE	D7,S170
	BEQ.S	S168

	SUB.W	#1,counter
	BNE.L	GOON
	MOVE.W	#$7FFF,D0
	MOVE.W	D0,$0096(A5)
	MOVE.W	$0010(A3),$0096(A5)
	MOVE.W	D0,$009A(A5)
	MOVE.W	D0,$009C(A5)
	MOVE.L	10(A3),$0000006C
	MOVE.W	14(A3),$009A(A5)
	MOVEM.L	(SP)+,D0-D7/A0-A6

	MOVE.L	#0,D0
	RTS	
 
S22E:	MOVE.L	A6,$00E0(A5)
	SUBQ.W	#1,2(A3)
	BEQ.S	S242
	CMP.W	#1,counter
	BNE	S244
	BTST	#6,$00BFE001
	BNE.S	S244
S242:	ADDQ.W	#1,(A3)
S244:	MOVE.W	#$0020,$009C(A5)
	RTE	

textausgabe:
              move.l     textpointer,a0
              lea     cover+1,a1
              move.l #0,d6
text1:        move.l #42,d0
text2:        move.b  (a0)+,d1
              bsr     letter
              addq.l  #1,a1
              dbra    d0,text2
              add.l   #$000000DC+24,a1
              dbra    d6,text1
	      move.l  a0,textpointer
              rts     
letter: 
              move.l #-5,d2
              lea     chars,a2
              lea     font,a3
letterloop:
              addq.l  #5,d2
              cmp.b   (a2)+,d1
              bne     letterloop
              add.l   d2,a3
              move.l #4,d2
letterloop2:
              move.b  (a3)+,(a1)
              add.l   #$00000028+4,a1
              dbra    d2,letterloop2
              sub.l   #$000000DC,a1
              rts     

counter:      dc.w 4
dma:	      dc.w 0
intena:	      dc.w 0 
textpointer:  dc.l text
grafname:     dc.b "graphics.library",0
dosname:      dc.b "dos.library",0
chars:	      dc.b "abcdefghijklmnopqrstuvwxyz0123456789!: -'.<>",0

text:
	dc.b    "          b l a c k   p o i n t            "
	dc.b	"            we hate piranhas               "
	dc.b	"            trax in 17.9.1990              "
	dc.b	" greetings to <no order>:   all contacts   "
	dc.b	0
	even


font:
	DC.W	$7F03,$7F63,$637F,$037E,$637F,$7F00,$6060,$7F7E
	DC.W	$0363,$637E,$7F00,$7860,$7F7F,$0078,$6060,$7F00
	DC.W	$6361,$7F63,$637F,$6363,$7E18,$1818,$7E1F,$0606
	DC.W	$667E,$6366,$7C66,$6360,$6060,$637F,$6377,$7F6B
	DC.W	$6373,$7B6F,$6763,$7F03,$6363,$7F7E,$067E,$6060
	DC.W	$7F03,$6367,$7F7F,$037F,$6663,$7F00,$7F03,$7FFF
	DC.W	$1818,$1818,$6363,$6363,$7F63,$6363,$361C,$636B
	DC.W	$7F77,$6363,$3E1C,$3E63,$6363,$7F03,$7F7F,$071C
	DC.W	$707F,$7F67,$6B73,$7F38,$1818,$187E,$7F03,$7F60
	DC.W	$7F7F,$030F,$037F,$6066,$7F06,$067F,$607F,$037F
	DC.W	$7F60,$7F63,$7F7F,$060C,$0C0C,$7F63,$7F63,$7F7F
	DC.W	$607F,$0303,$3838,$3800,$3800,$3800,$3800,$0000
	DC.W	$0000,$0000,$00FF,$0000,$2020,$0000,$0000,$0000
	DC.W    $0606,$1830,$6030,$1818,$0C06,$0C18



FIELD:	blk.l 8

DAT:

	DC.W	$2030,$7A14,$F234,$E0AC,$2CD8,$E02C,$A7F0,$8064
	DC.W	$F134,$3639,$3B3E,$4143,$4649,$4B4E,$5052,$5557
	DC.W	$595B,$5E60,$6264,$6667,$696B,$6C6E,$7071,$7274
	DC.W	$7576,$7778,$797A,$7B7B,$7C7D,$7D7E,$7E7E,$7E7E

COVER:	
	DC.W	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DC.W	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DC.W	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DC.W	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DC.W	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DC.W	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DC.W	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DC.W	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DC.W	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DC.W	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DC.W	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DC.W	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
END: