;CONTACT PAPILLON OF PANTIES FOR HOTTEST SOURCES !!!


>extern "accu.font",cop1,cop1-cop1end

LAB1:
 bsr.l   LAB2
 lea     $06fe00,A0
 clr.l   DAT2
LAB3:
 move.w  D0,D1
 addq.w  #1,D0
 mulu    #$002a,D1
 move.w  D1,(A0)+
 cmpa.l  #$00070000,A0
 bne.s   LAB3
 lea     COP1(PC),A0
 lea     $070000,A1
LAB4:
 move.w  (A0)+,(A1)+
 cmpa.l  #SCHROTT,A0
 bne.s   LAB4
 lea     COP2(PC),A0
 lea     $06b000,A1
 move.l  A1,DAT3
 lea     $06b168,A2
LAB5:
 move.b  (A0),(A1)+
 move.b  (A0)+,(A2)+
 cmpa.l  #DAT4,A0
 bne.s   LAB5
 lea     $071000,A2
 lea     $076000,A3
LAB6:
 clr.l   (A2)+
 clr.l   (A3)+
 cmpa.l  #$00074000,A2
 bne.s   LAB6
 move.l  #LAB5,LAB6
 lea     $dff000,A6
 clr.w   66(A6)
 bsr.l   LAB7
 bsr.l   LAB8
LAB9:
 tst.b   6(A6)
 bne.s   LAB9
 btst    #0,5(A6)
 bne.s   LAB9
 move.w  #$7fff,D0
 move.w  D0,150(A6)
 move.w  D0,154(A6)
 move.w  D0,156(A6)
 move.w  #$83c0,150(A6)
 move.w  #$c010,154(A6)
 move.l  $006c,DAT7
 move.l  #DAT8,$006c
 move.l  #$0006c000,132(A6)
 clr.w   138(A6)
MAUSL:
 btst    #6,$bfe001
 beq.s   BRANCH1
 btst    #2,22(A6)
 bne.s   MAUSL
 move.w  #$6030,$05f094
BRANCH1:
 bsr.l   BRANCH2
 move.l  DAT7,$006c
 move.w  #$e03c,154(A6)
 move.w  #$83f0,150(A6)
LAB2:
 lea     SCHROTT(PC),A0
BRANCH3:
 clr.l   (A0)+
 cmpa.l  #$00079000,A0
 blt.s   BRANCH3
 moveq   #$00,D0
 rts
DAT8:
 btst    #4,31(A0)
 bne.s   BRANCH14
 movem.l A0-A6/D0-D7,-(A7)
 btst    #10,22(A6)
 beq.s   LEV4
 addq.w  #1,MIST2
 cmpi.w  #$00c8,MIST2
 bne.s   LEV4
 bsr.s   BRANCH8
 subq.w  #1,MIST2
LEV4:
 bsr.l   LEV5
 bchg    #2,MIST3
 bne.s   BRANCH10
 bchg    #3,MIST3
 bne.s   BRANCH10
 addq.l  #2,DAT6
 cmpi.l  #COP1,DAT6
 bne.s   BRANCH10
 move.l  #DAT5,DAT6
BRANCH10:
 move.l  DAT6,A0
 move.l  MIST6,A1
 move.w  (A0),D0
 move.w  D0,(A1)
 movem.l (A7)+,A0-A6/D0-D7
BRANCH14:
 move.w  #$0010,156(A6)
 rte
BRANCH8:
 bsr.l   BRANCH2
 move.l  #$00071002,80(A6)
 move.l  #$00071000,84(A6)
 move.l  #$e9f00000,64(A6)
 move.l  #$ffffffff,68(A6)
 clr.l   100(A6)
 move.w  #$03d6,88(A6)
LEV3:
 addq.b  #1,DAT9
 cmpi.b  #$02,DAT9
 beq.s   BRANCH9
 cmpi.b  #$03,DAT9
 beq.l   LEV1
 cmpi.b  #$09,DAT9
 beq.s   LEV2
 rts
LEV2:
 clr.b   DAT9
 bsr.s   BRANCH7
 bra.s   LEV3
BRANCH7:
 bsr.l   BRANCH2
 move.l  MIST1,80(A6)
 move.l  #$0007102a,84(A6)
 move.w  #$09f0,64(A6)
 move.l  #$00760028,100(A6)
 move.w  #$03c1,88(A6)
 rts
BRANCH9:
 moveq   #$00,D7
 move.l  #MIST7,A5
 adda.w  DAT2,A5
 addq.w  #1,DAT2
 move.b  (A5),DAT10
 beq.s   LEV6
 cmpi.b  #$61,DAT10
 beq.s   LEV7
 move.b  DAT10,D7
 move.l  D7,DAT10
 rts
LEV6:
 clr.w   DAT2
 bra.s   BRANCH9
LEV7:
 clr.w   MIST2
 bra.s   BRANCH9
LEV1:
 subi.l  #$00000020,DAT10
 move.l  DAT10,D6
 rol.w   #1,D6
 move.l  #$00070078,MIST1
 add.l   D6,MIST1
 rts
BRANCH2:
 btst    #14,2(A6)
 bne.s   BRANCH2
 rts
LEV5:
 move.l  DAT4,A0
 bchg    #1,MIST3
 bne.s   LEV8
 move.l  #$00074000,MIST4
 move.w  #$2002,(A0)
 bra.s   ZWEIG2
LEV8:
 move.l  #$00072000,MIST4
 move.w  #$4002,(A0)
ZWEIG2:
 bsr.s   BRANCH2
 move.l  MIST4,84(A6)
 move.w  #$0100,64(A6)
 clr.w   102(A6)
 move.w  #$30d4,88(A6)
 move.l  DAT3,D1
 move.l  #$00000014,D3
 move.l  #$00071000,MIST5
 move.l  MIST4,A1
 move.l  DAT3,A2
 bsr.s   BRANCH2
 move.w  #$0dfc,64(A6)
 move.w  #$0028,102(A6)
 move.l  #$00280028,98(A6)
 move.w  #$8400,150(A6)
LEV10:
 move.w  #$8000,D0
 moveq   #$0f,D5
LEV9:
 addq.l  #1,A2
 moveq   #$00,D4
 move.b  (A2),D4
 lea     $06fe00,A0
 adda.w  D4,A0
 adda.w  D4,A0
 move.w  (A0),D4
 adda.l  D4,A1
 move.l  MIST5,80(A6)
 move.l  A1,76(A6)
 move.l  A1,84(A6)
 suba.l  D4,A1
 move.w  D0,70(A6)
 move.w  #$03c1,88(A6)
 ror.w   #1,D0
 dbf     D5,LEV9
 addq.l  #2,MIST5
 addq.l  #2,A1
 dbf     D3,LEV10
 move.w  #$0400,150(A6)
 cmpi.l  #$0006b000,D1
 beq.s   ZWEIG1
 subq.l  #1,D1
 move.l  D1,DAT3
 rts
ZWEIG1:
 addi.l  #$00000167,D1
 move.l  D1,DAT3
 rts
LAB7:
 move.l  #MIST8,A0
 move.l  #$000769ae,D1
 moveq   #$00,D0
 moveq   #$00,D2
BRANCH6:
 addq.w  #1,D2
 move.b  (A0),D0
 subi.l  #$00000020,D0
 mulu    #$0002,D0
 addi.l  #$00070078,D0
 bsr.s   BRANCH4
 addq.l  #2,D1
 addq.l  #1,A0
 cmpi.l  #$00000014,D2
 beq.s   BRANCH5
 cmpi.l  #$00000028,D2
 beq.s   BRANCH5
 cmpi.l  #$0000003c,D2
 bne.s   BRANCH6
 rts
BRANCH5:
 addi.l  #$000003f2,D1
 bra.s   BRANCH6
BRANCH4:
 btst    #14,2(A6)
 bne.l   BRANCH7
 move.l  D0,80(A6)
 move.l  D1,84(A6)
 move.w  #$09f0,64(A6)
 move.l  #$ffffffff,68(A6)
 move.l  #$00760028,100(A6)
 move.w  #$03c1,88(A6)
 rts
LAB8:
 lea     $06c000,A0
 move.l  #$01800000,(A0)+
 move.l  #$009c8010,(A0)+
 move.l  #$008e2c71,(A0)+
 move.l  #$0090ffe0,(A0)+
 move.l  #$00920038,(A0)+
 move.l  #$009400d0,(A0)+
 move.l  #$00960020,(A0)+
 move.l  #$01000000,(A0)+
 move.l  #$01020000,(A0)+
 move.w  #$0192,(A0)+
 move.l  A0,MIST6
 clr.w   (A0)+
 move.l  #$4309fffe,(A0)+
 move.l  #$0180044f,(A0)+
 move.l  #$4409fffe,(A0)+
 move.l  #$01800000,(A0)+
 move.l  #$4609fffe,(A0)+
 move.l  #$01002600,(A0)+
 move.l  #$01080002,(A0)+
 move.l  #$010a0002,(A0)+
 move.l  #$00e00007,(A0)+
 move.w  #$00e2,(A0)+
 move.l  A0,DAT4
 move.w  #$0002,(A0)+
 move.l  #$00e40007,(A0)+
 move.l  #$00e66000,(A0)+
 move.l  #$4609fffe,A1
 lea     COP3(PC),A2
ZWEIG3:
 move.l  A1,(A0)+
 move.w  #$0182,(A0)+
 move.w  (A2)+,(A0)+
 adda.l  #$02000000,A1
 cmpa.l  #$fe09fffe,A1
 bne.s   ZWEIG3
 move.l  #$ff09fffe,(A0)+
 move.l  #$01000000,(A0)+
 move.l  #$ffe1fffe,(A0)+
 move.l  #$0209fffe,(A0)+
 move.l  #$0180044f,(A0)+
 move.l  #$0309fffe,(A0)+
 move.l  #$01800000,(A0)+
 move.l  #$fffffffe,(A0)+
 rts

MIST8:
DC.B "  THE ACCUMULATORS       "
DC.B " PRESENT        "
DC.B "NEW ZEALAND STORY+ ",00


MIST7:
DC.B "* THE PANTIES * "
DC.B $61
DC.B " ARE BACK WITH A NEW RELEASE CALLED "
DC.B "  NEW STUFF      CONTACT THE PANTIES "
DC.B " FOR HOTTEST SOURCES   ...... PLK  056071 B "
DC.B "      D-8100  GARMISCH-PART.          ",00 

DAT3: DC.L $0006b043 
DAT6: DC.L $00060aac
MIST2: dc.w    $00c7
MIST5: DC.L $00071006
MIST3: DC.W $0c00   
MIST4: DC.L $00072000 
MIST1: DC.L $000700de


DAT2: dc.l $021d0600

DAT9: dc.b $06

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

DAT10: DC.L $00000033
DAT7: DC.L $00fc0cd8

COP2:
dc.w $5556, $5859, $5b5c, $5e5f, $6162, $6465, $6768 
dc.w $6a6b, $6c6e, $6f71, $7273, $7576, $7879, $7a7c, $7d7e 
dc.w $8081, $8283, $8586, $8788, $898a, $8c8d, $8e8f, $9091 
dc.w $9293, $9495, $9697, $9899, $9a9b, $9b9c, $9d9e, $9f9f 
dc.w $a0a1, $a1a2, $a3a3, $a4a4, $a5a5, $a6a6, $a7a7, $a7a8 
dc.w $a8a8, $a9a9, $a9a9, $aaaa, $aaaa, $aaaa, $aaaa, $aaaa 
dc.w $aaaa, $aaa9, $a9a9, $a9a8, $a8a8, $a7a7, $a7a6, $a6a5 
dc.w $a5a4, $a4a3, $a3a2, $a1a1, $a09f, $9f9e, $9d9c, $9b9b 
dc.w $9a99, $9897, $9695, $9493, $9291, $908f, $8e8d, $8c8a 
dc.w $8988, $8786, $8583, $8281, $807e, $7d7c, $7a79, $7876 
dc.w $7573, $7271, $6f6e, $6c6b, $6a68, $6765, $6462, $615f 
dc.w $5e5c, $5b59, $5856, $5554, $5251, $4f4e, $4c4b, $4948 
dc.w $4645, $4342, $403f, $3e3c, $3b39, $3837, $3534, $3231 
dc.w $302e, $2d2c, $2b29, $2827, $2524, $2322, $2120, $1e1d 
dc.w $1c1b, $1a19, $1817, $1615, $1413, $1211, $100f, $0f0e 
dc.w $0d0c, $0b0b, $0a09, $0908, $0707, $0606, $0505, $0404 
dc.w $0303, $0302, $0202, $0101, $0101, $0000, $0000, $0000 
dc.w $0000, $0000, $0000, $0001, $0101, $0102, $0202, $0303 
dc.w $0304, $0405, $0506, $0607, $0708, $0909, $0a0b, $0b0c 
dc.w $0d0e, $0f0f, $1011, $1213, $1415, $1617, $1819, $1a1b 
dc.w $1c1d, $1e20, $2122, $2324, $2527, $2829, $2a2c, $2d2e 
dc.w $3031, $3234, $3537, $3839, $3b3c, $3e3f, $4042, $4345 
dc.w $4648, $494b, $4c4e, $4f51, $5254 

DAT4: DC.L $0006c04e   
MIST6: DC.L $0006c026

COP3:
dc.w $0a00, $0c00, $0d00, $0e00, $0f00, $0f10, $0f20  
dc.w $0f30, $0f40, $0f50, $0f60, $0f70, $0f80, $0f90, $0fa0 
dc.w $0fb0, $0fc0, $0fd0, $0fe0, $0ff0, $0ef0, $0df0, $0cf0 
dc.w $0bf0, $0af0, $09f0, $08f0, $07f0, $06f0, $05f0, $04f0 
dc.w $03f0, $02f0, $01f0, $00f0, $00f1, $00f2, $00f3, $00f4 
dc.w $00f5, $00f6, $00f7, $00f8, $00f9, $00fa, $00fb, $00fc 
dc.w $00fd, $00fe, $00ff, $00ef, $00df, $00cf, $00bf, $00af 
dc.w $009f, $008f, $007f, $006f, $005f, $004f, $003f, $002f 
dc.w $001f, $000f, $010f, $020f, $030f, $040f, $050f, $060f 
dc.w $070f, $080f, $090f, $0a0f, $0b0f, $0c0f, $0d0f, $0e0f 
dc.w $0f0f, $0f0e, $0f0d, $0f0c, $0f0b, $0f0a, $0f09, $0f08 
dc.w $0f07, $0f06, $0f05, $0f04, $0f03 

DAT5:
dc.w $0000, $0000, $0000 
dc.w $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000 
dc.w $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000 
dc.w $0000, $0000, $0000, $0000, $0000, $0000, $0000 ,$0000 
dc.w $0000, $0000, $0000, $0000, $0000, $0000, $0001, $0002 
dc.w $0003, $0004, $0005, $0006, $0007, $0008, $0009, $000a 
dc.w $000b, $000c, $000c, $000c, $000c, $000c, $000c, $000c 
dc.w $000c, $000c, $000c, $000c, $000c, $000c, $000c, $000b 
dc.w $000a, $0009, $0008, $0007, $0006, $0005, $0004, $0003 
dc.w $0002, $0001

COP1: BLK.b $800

COP1END:

SCHROTT: dc.l $00000000