; dc.w    $444f
; subq.b  #1,D0

; sbcd    -(A2),-(A0)
GEIL: 
move.l  0(A0,D0.W),112(A1,D0.W)
 bsr.l   START
 move.l  $000004,A6
 lea     DOSNAME(PC),A1
 jsr     -96(A6)  ;duplock
 move.l  D0,A0
 move.l  22(A0),A0
 moveq   #$00,D0
 rts

DOSNAME: dc.b "dos.library",0

START:
move.l  #$00010002,D1
 move.l  #$000206f8,D0
 move.l  $0004,A6
jsr     -198(A6)  ;delay
 tst.l   D0
 beq.l   NICKI
move.l  A5,D1
 move.l  D0,A5
move.l  D1,16(A5)
 move.l  D0,(A5)
 move.l  D0,4(A5)
 move.l  D0,8(A5)
 move.l  D0,12(A5)
addi.l  #$00000028,(A5)
addi.l  #$00000410,4(A5)
 addi.l  #$00003210,8(A5)
 addi.l  #$000206d0,12(A5)
 lea     COPPER(PC),A1
 move.l  12(A5),8(A1)
 lea     TANJA(PC),A1
 move.w  4(A5),4(A1)
move.w  6(A5),10(A1)
 move.w  $dff002,20(A5)
 move.w  #$8380,$dff096
move.w  #$0020,$dff096
move.w  #$4000,$dff09a
 bsr.l   SEPP
move.l  $000004,A6
 lea     GFXNAME(PC),A1
 jsr     -408(A6) ;oldopenlibrary
 move.l  D0,A6
 move.l  (A5),A1
 jsr     -198(A6) ;initrastport
lea     COPPER(PC),A0
 move.l  (A5),A1
 move.l  A0,4(A1)
STOP:          
lea     COPPER1(PC),A0
 clr.w   (A0)
 lea     TEXT(PC),A0
 lea     COPPER5(PC),A1
 move.l  A0,(A1)
 move.l  (A5),A1
 move.l  #$00000001,D0
 jsr     -354(A6)  ;setdrmd
TTTT:
 move.l  (A5),A1
 clr.l   D0
 move.l  #$00000006,D1
 jsr     -240(A6)  ;move
 move.l  (A5),A1
 lea     COPPER5(PC),A2
 move.l  (A2),A0
 move.l  #$00000002,D0
 jsr     -60(A6)  ;text
MIST:
 btst    #6,$bfe001
 beq.l   SONJA
 move.w  $dff004,D0
swap    D0
move.w  $dff006,D0
 asr.l   #8,D0
 andi.w  #$01ff,D0
 cmp.w   #$00ce,D0
 bne.l   MIST
 move.l  4(A5),A0
 adda.l  #$0000178a,A0
 move.l  12(A5),A1
 move.l  #$00000007,D0
FUCK:
 roxl.w  (A1)+
 bcc.l   ROT
 ori.w   #$000f,-2(A0)
 ori.w   #$000f,44(A0)
ori.w   #$000f,90(A0)
 ori.w   #$000f,136(A0)
 bra.l   TOP
ROT:
 andi.w  #$fff0,-2(A0)
 andi.w  #$fff0,44(A0)
 andi.w  #$fff0,90(A0)
andi.w  #$fff0,136(A0)
TOP:
adda.l  #$000000b8,A0
 dbf     D0,FUCK
 move.l  A0,A1
 move.l  #$00000003,D0
PIS:
move.l  A1,A0
move.l  #$000002df,D1
addi.l  #$00000000,D1
WEIS:
 roxl.w  -(A0)
 dbf     D1,WEIS
 dbf     D0,PIS
lea     COPPER1(PC),A0
addi.w  #$0001,(A0)
cmpi.w  #$0009,(A0)
bne.l   MIST
clr.w   (A0)
lea     COPPER5(PC),A0
addi.l  #$00000001,(A0)
move.l  (A0),A1
 cmpi.b  #$00,(A1)
 beq.l   STOP
bra.l   TTTT
SONJA:
 move.w  #$c000,$dff09a
move.w  #$7fff,$dff096
 move.l  #$ffffffff,D0
ANJA:
 dbf     D0,ANJA
 move.l  38(A6),$dff080
 ori.w   #$8000,20(A5)
 move.w  20(A5),$dff096
 move.l  A5,A1
 move.l  16(A5),A5
 move.l  #$000206f8,D0
 move.l  $0004,A6
jsr     -210(A6)  ;freemem
 rts
SEPP:
 move.l  8(A5),A0
 move.l  #$0000001f,D6
MOOS:
 bsr.l   TANJA
move.l  A0,D5
 addi.l  #$0000000c,D5
 move.w  #$0082,(A0)+
 move.w  D5,(A0)+
 swap    D5
 move.w  #$0080,(A0)+
 move.w  D5,(A0)+
 move.l  #$fffffffe,(A0)+
 dbf     D6,MOOS
move.w  8(A5),-6(A0)
 move.w  10(A5),-10(A0)
 move.l  8(A5),$dff080
 lea     $dff000,A0
move.w  #$2c71,142(A0)
 move.w  #$2ce1,144(A0)
 move.w  #$0024,260(A0)
 move.w  #$0028,146(A0)
 move.w  #$00d8,148(A0)
clr.w   258(A0)
 clr.l   264(A0)
 rts
TANJA:
 move.l  #$00e00003,(A0)+
 move.l  #$00e28730,(A0)+
 move.l  #$01001200,(A0)+
move.l  #$2021fffe,D0
 move.l  #$0021fffe,D2
bsr.l   KIES
 move.l  #$ffdffffe,(A0)+
move.l  #$2b21fffe,D2
 move.l  #$0021fffe,D0
bsr.l   RRRR
lea     COP6(PC),A3
 lea     COPPER(PC),A1
 move.w  -2(A1),D2
 move.w  #$001f,D7
SHIT:
 move.w  -4(A1),-(A1)
 dbf     D7,SHIT
 move.w  D2,(A3)
 rts
KIES:
 lea     COP6(PC),A1
 lea     COPPER(PC),A2
RRRR:
cmp.l   D2,D0
 beq.l   NICKI
 move.w  #$0180,D1
 move.w  #$0182,D4
swap    D4
 swap    D1
 move.w  (A1),D4
 not.w   D4
move.w  (A1)+,D1
 move.l  D0,(A0)+
move.l  D1,(A0)+
 move.l  D4,(A0)+
addi.l  #$01000000,D0
 cmpa.l  A2,A1
 beq.l   KIES
 bra.l   RRRR
NICKI:
 rts

COP6:
dc.l $fffffff1, $fff1fff3 
dc.l $fff3fff5, $fff5fff7, $fff8fff8, $fff9fff9 
dc.l $fffbfffb, $fffcfffe, $fffffffd, $fffcfff9 
dc.l $fff7fff5, $fff4fff3, $fff3fff2, $fff2fff1 
dc.l $fff1fff0, $fff0fff0  

COPPER: dc.w $0002,$000a,$0001,$0000,$0005,$89f0


GFXNAME: dc.b "graphics.library",0

even
COPPER1: dc.w $0000,$0003

COPPER5: dc.w $0001,$f42c 

TEXT:
dc.b "Contact <THE SLEDGE>  FOR BRANDNEW STUFF IN PLK056056"
dc.b "B  8100 GARMISCH-PART.       ",0