* dRE!ADVERTISE - By Dr.dRE/TRSi
* ReSourced & Cracked by - The Welder/SpearHead
* 03.11.97

* To contact me email : welder@dcandy.demon.co.uk

 SECTION DreAdvertise,code_p

Start:
		movem.l	d1-d6/a0-a6,-(sp)
		move.l	a0,a2
		move.l	d0,d2
		lea	lbL004994,a4
		move.l	4.w,a6
		lea	lbL004C8C,a3
		moveq	#0,d1
		move.l	#$7AF,d0
		bra.b	lbC000024
lbC000022:
		move.l	d1,(a3)+
lbC000024:
		dbf	d0,lbC000022
		move.l	sp,$2090(a4)
		move.l	a6,$300(a4)
		move.l	$114(a6),a3
		move.l	$AC(a3),d0
		beq.b	lbC000046
		lsl.l	#2,d0
		move.l	d0,a0
		move.l	$34(a0),d0
		lsl.l	#2,d0
		bra.b	lbC00004C
lbC000046:
		move.l	sp,d0
		sub.l	$3A(a3),d0
lbC00004C:
		move.l	sp,d1
		sub.l	d0,d1
		addi.l	#$80,d1
		move.l	d1,$208C(a4)
		cmp.l	$20C(a4),d0
		bcc.b	lbC0000B4
		move.l	$20C(a4),d0
		addi.l	#$80,d0
		move.l	d0,$31C(a4)
		move.l	#$10001,d1
		jsr	-$C6(a6)
		tst.l	d0
		beq.w	lbC00024E
		move.l	d0,$318(a4)
		addi.l	#$80,d0
		move.l	d0,$208C(a4)
		add.l	$20C(a4),d0
		move.l	d0,d1
		cmpi.w	#$24,$14(a6)
		blt.b	lbC0000B2
		move.l	d0,$314(a4)
		move.l	d1,$310(a4)
		sub.l	$31C(a4),d1
		lea	$30C(a4),a0
		move.l	d1,(a0)
		jsr	-$2DC(a6)
		bra.b	lbC0000B4
lbC0000B2:
		move.l	d0,sp
lbC0000B4:
		clr.l	$20A4(a4)
		moveq	#0,d0
		move.l	#$3000,d1
		jsr	-$132(a6)
		move.l	$114(a6),a3
		lea	doslibrary.MSG(pc),a1
		moveq	#0,d0
		jsr	-$228(a6)
		move.l	d0,$2FC(a4)
		bne.b	lbC0000DE
		moveq	#$64,d0
		bra.w	lbC0001C6
lbC0000DE:
		move.l	$98(a3),$20A0(a4)
		tst.l	$AC(a3)
		beq.w	lbC000168
		move.l	$AC(a3),a0
		adda.l	a0,a0
		adda.l	a0,a0
		move.l	16(a0),a1
		adda.l	a1,a1
		adda.l	a1,a1
		move.l	d2,d0
		moveq	#0,d1
		move.b	(a1)+,d1
		move.l	a1,$2094(a4)
		add.l	d1,d0
		addq.l	#7,d0
		andi.w	#-4,d0
		move.l	d0,$308(a4)
		movem.l	d1/a1,-(sp)
		move.l	#$10001,d1
		jsr	-$C6(a6)
		movem.l	(sp)+,d1/a1
		tst.l	d0
		bne.b	lbC000130
		moveq	#$14,d0
		move.l	d0,-(sp)
		beq.w	lbC000244
lbC000130:
		move.l	d0,a0
		move.l	d0,$304(a4)
		move.l	d2,d0
		subq.l	#1,d0
		add.l	d1,d2
lbC00013C:
		move.b	(a2,d0.w),2(a0,d2.w)
		subq.l	#1,d2
		dbf	d0,lbC00013C
		move.b	#32,2(a0,d2.w)
		subq.l	#1,d2
		move.b	#$22,2(a0,d2.w)
lbC000156:
		move.b	(a1,d2.w),1(a0,d2.w)
		dbf	d2,lbC000156
		move.b	#$22,(a0)
		move.l	a0,-(sp)
		bra.b	lbC0001B2
lbC000168:
		lea	$5C(a3),a0
		jsr	-$180(a6)
		lea	$5C(a3),a0
		jsr	-$174(a6)
		move.l	d0,$20A4(a4)
		move.l	d0,-(sp)
		move.l	d0,a2
		move.l	$24(a2),d0
		beq.b	lbC00019E
		move.l	$2FC(a4),a6
		move.l	d0,a0
		move.l	0(a0),d1
		jsr	-$60(a6)
		move.l	d0,$20A0(a4)
		move.l	d0,d1
		jsr	-$7E(a6)
lbC00019E:
		move.l	$20A4(a4),a0
		move.l	a0,-(sp)
		pea	$2F8(a4)
		move.l	$24(a0),a0
		move.l	4(a0),$2094(a4)
lbC0001B2:
		jsr	lbC002624(pc)
		tst.l	d0
		bne.b	lbC0001C6
		jsr	lbC0031BC(pc)
		moveq	#0,d0
		bra.b	lbC0001C6
lbC0001C2:
		move.l	4(sp),d0
lbC0001C6:
		move.l	$2090(a4),a2
		move.l	d0,-(a2)
		move.l	4.w,a6
		cmpi.w	#$24,$14(a6)
		blt.b	lbC0001EA
		tst.l	$30C(a4)
		beq.b	lbC0001EA
		lea	$30C(a4),a0
		subq.l	#4,$314(a4)
		jsr	-$2DC(a6)
lbC0001EA:
		move.l	a2,sp
		move.l	$2098(a4),d0
		beq.b	lbC0001F6
		move.l	d0,a0
		jsr	(a0)
lbC0001F6:
		jsr	lbC002646(pc)
		move.l	$31C(a4),d0
		beq.b	lbC00020C
		move.l	$318(a4),a1
		move.l	4.w,a6
		jsr	-$D2(a6)
lbC00020C:
		tst.l	$20A4(a4)
		beq.b	lbC000232
		move.l	$2FC(a4),a6
		move.l	$20A0(a4),d1
		beq.b	lbC000220
		jsr	-$5A(a6)
lbC000220:
		move.l	4.w,a6
		jsr	-$84(a6)
		move.l	$20A4(a4),a1
		jsr	-$17A(a6)
		bra.b	lbC000244
lbC000232:
		move.l	4.w,a6
		move.l	$308(a4),d0
		beq.b	lbC000244
		move.l	$304(a4),a1
		jsr	-$D2(a6)
lbC000244:
		move.l	$2FC(a4),a1
		jsr	-$19E(a6)
		move.l	(sp)+,d0
lbC00024E:
		movem.l	(sp)+,d1-d6/a0-a6
		rts

	 ********************************

doslibrary.MSG:
		dc.b	"dos.library",0

	 ********************************

lbC000260:
		movem.l	d6/d7/a6,-(sp)
		move.l	16(sp),d7
		moveq	#$40,d0
		lsl.l	#2,d0
		move.l	#$10001,d1
		move.l	4.w,a6
		jsr	-$C6(a6)
		move.l	d0,$328(a4)
		tst.l	d0
		bne.b	lbC000294
		pea	NotenoughMemo.MSG(pc)
		bsr.w	lbC002660
		pea	$1E
		bsr.w	lbC003B50
		addq.w	#8,sp
lbC000294:
		clr.l	-(sp)
		clr.l	-(sp)
		bsr.w	lbC0024EC
		move.l	d0,$324(a4)
		addq.w	#8,sp
		bne.b	lbC0002C2
		pea	Couldntcreate.MSG(pc)
		bsr.w	lbC002660
		move.l	$328(a4),a1
		moveq	#$40,d0
		lsl.l	#2,d0
		jsr	-$D2(a6)
		pea	$1E
		bsr.w	lbC003B50
		addq.w	#8,sp
lbC0002C2:
		move.l	$328(a4),a0
		move.b	#5,8(a0)
		move.l	$328(a4),a0
		move.w	#$100,$12(a0)
		move.l	$328(a4),a0
		move.l	$324(a4),14(a0)
		move.l	$328(a4),a0
		adda.w	#$14,a0
		lea	lbW0003B8(pc),a1
lbC0002EC:
		move.b	(a1)+,(a0)+
		bne.b	lbC0002EC
		moveq	#1,d0
		move.l	$328(a4),a0
		move.l	d0,$E0(a0)
		moveq	#2,d0
		move.l	$328(a4),a0
		move.l	d0,$DC(a0)
		moveq	#-1,d0
		move.l	$328(a4),a0
		move.l	d0,$E4(a0)
		move.l	$328(a4),a0
		clr.l	$E8(a0)
		move.l	d7,-(sp)
		pea	AEDoorPortd.MSG(pc)
		pea	$330(a4)
		bsr.w	lbC003B8C
		lea	12(sp),sp
lbC000328:
		lea	$330(a4),a1
		move.l	4.w,a6
		jsr	-$186(a6)
		move.l	d0,$320(a4)
		beq.b	lbC000328
		move.l	$320(a4),a0
		move.l	$328(a4),a1
		move.l	4.w,a6
		jsr	-$16E(a6)
		moveq	#0,d0
		move.l	$324(a4),a0
		move.b	15(a0),d0
		moveq	#0,d1
		bset	d0,d1
		move.l	d1,d6
		move.l	d6,d0
		jsr	-$13E(a6)
		move.l	$324(a4),a0
		jsr	-$174(a6)
		move.l	d0,$32C(a4)
		movem.l	(sp)+,d6/d7/a6
		rts

	 ********************************

NotenoughMemo.MSG:
		dc.b	"Not enough Memory for message structure",10,0,0
Couldntcreate.MSG:
		dc.b	"Couldn't create reply port",10,0
lbW0003B8:
		dc.w	0
AEDoorPortd.MSG:
		dc.b	"AEDoorPort%d",0,0
s.MSG:
		dc.b	"%.79s",0
ascii.MSG:
		dc.b	"   ",0

	 ********************************

lbL0003D2:
		dc.l	$8080808
		dc.l	$8080808
		dc.l	$8080808
		dc.l	$8080808
		dc.l	$8080808
		dc.l	$8080808
		dc.l	$8080000

	 ********************************

ascii.MSG0:
		dc.b	"                          ",0,0
sss.MSG:
		dc.b	"%s %s %s",10,0
DREADVERTISE.MSG:
		dc.b	"DRE!ADVERTISE",0
v2o.MSG:
		dc.b	"v2.o",0,0
RELEASE2.MSG:
		dc.b	"[RELEASE 2]",0
DOORSDREDREAD.MSG:
		dc.b	"DOORS:DRE/DRE!ADVERT/DRE!ADVERTISE",0,0
C36mdRE0m36mA.MSG:
		dc.b	12,10,13,27,"[5C ",27,"[36mdRE",27,"[0m!"
		dc.b	27,"[36mAdVERTiSE",27,"[0m v",27,"[33m2",27,"[0m."
		dc.b	27,"[33mo ",27,"[34m[",27,"[32mRELEASE 2",27,"[34m] "
		dc.b	27,"[36m(",27,"[0mc",27,"[36m)",27,"[33m 1994 "
		dc.b	27,"[36mDR.DRE!",27,"[0m·",27,"[36mTRSi",27,"[0m/"
		dc.b	27,"[36mX",27,"[0m-",27,"[36miNNOVATION"
		dc.b	27,"[0m",10,10,13,0,0

	 ********************************

		dc.b	"Cracked by - The Welder/SpearHead",0

	 ********************************

;mSORRYBUTTHIS.MSG:
;		dc.b	10,13
;		dc.b	27,"[33m        SORRY BUT THIS IS AN UNREGISTERED "
;		dc.b	"VERSION, WITH TIMELIMIT!",27,"[0m",10,13,0
;mPLEASEREGIST.MSG:
;		dc.b	"              ***"
;		dc.b	27,"[32m PLEASE REGISTER TO GET THE FULL VERSION"
;		dc.b	27,"[0m ***",10,13,0,0

	 ********************************

ascii.MSG1:
		dc.b	10,10,13,0
H3443mThankyo.MSG:
		dc.b	27,"[14H   "
		dc.b	27,"[34;43mThank you for using dRE!AdVERTiSE v2."
		dc.b	"o   **  REGISTERED VERSION  **"
		dc.b	27,"[0m",10,10,13,0,0
ADDSNDsLHA.MSG:
		dc.b	"ADDSND%s.LHA",0,0
ss.MSG:
		dc.b	"%s%s",0,0
LHAasDOORSDRE.MSG:
		dc.b	"LHA a %s DOORS:DRE/DRE!ADVERT/ADVERTS/* >NIL:",0
mVIEW34m33mRE.MSG:
		dc.b	"                          "
		dc.b	27,"[33;1mVIEW",27,"[34m/",27,"[33mREMOVE BBS ADVERTS"
		dc.b	27,"[0m",10,13,0,0
m0m.MSG2:
		dc.b	27,"[34;1m-=------------------------------------"
		dc.b	"=------------------------------------=-"
		dc.b	27,"[0m",10,13,0,0
DOORSDREDREAD.MSG0:
		dc.b	"DOORS:DRE/DRE!ADVERT/ADVERT.DATA",0,0
r.MSG:
		dc.b	"r",0
NoAdvertsAvai.MSG:
		dc.b	10,13,"No Adverts Available",10,13,0,0
s.MSG0:
		dc.b	"%s",0,0
d2H2ds.MSG:
		dc.b	27,"[%d;2H%2d) %s",0,0
d39H2ds.MSG:
		dc.b	27,"[%d;39H%2d) %s",10,13,0
mWichAdvertdo.MSG0:
		dc.b	10,10,13
		dc.b	27,"[36mWich Advert do you like to view "
		dc.b	27,"[0m(",27,"[33m#",27,"[0m), (",27,"[33mA"
		dc.b	27,"[0m)",27,"[36mbort",27,"[0m: ",0
DOORSDREDREAD.MSG1:
		dc.b	"DOORS:DRE/DRE!ADVERT/ADVERTS/%s",0
mPressanyKeyt.MSG:
		dc.b	10,13,27,"[36mPress any Key to Continue"
		dc.b	27,"[0m...",0
mWichAdvertdo.MSG:
		dc.b	10,10,13
		dc.b	27,"[36mWich Advert do you wish to delete "
		dc.b	27,"[0m(",27,"[33m#",27,"[0m), (",27,"[33mA"
		dc.b	27,"[0m)",27,"[36mbort",27,"[0m: ",0
DOORSDREDREAD.MSG2:
		dc.b	"DOORS:DRE/DRE!ADVERT/ADD.TEMP",0
w.MSG:
		dc.b	"w+",0,0
mENTERBBSADVE.MSG:
		dc.b	"                          "
		dc.b	27,"[33;1mENTER BBS ADVERTISMENT",27,"[0m",10,13,0
m0m.MSG:
		dc.b	"                        "
		dc.b	27,"[34m- ---------------------- -"
		dc.b	27,"[0m",10,13,0
mDONTUSEANYSP.MSG:
		dc.b	"            !!! "
		dc.b	27,"[32mDON`T USE ANY SPECIAL SIGNS LIKE "
		dc.b	27,"[35m/*#[] ",27,"[32mECT",27,"[0m !!!",10,10,13,0,0
mEnterBBSName.MSG:
		dc.b	27,"[33mEnter BBS Name"
		dc.b	27,"[0m: (                                ) ("
		dc.b	27,"[36mmax ",27,"[33m30 ",27,"[36mCHARS",27,"[0m)",0
H36m.MSG:
		dc.b	27,"[8;19H",27,"[36m",0,0
H0m33mE0m36mD.MSG:
		dc.b	27,"[10;1H",27,"[0m(",27,"[33mE",27,"[0m)"
		dc.b	27,"[36mDITOR",27,"[34m/",27,"[0m(",27,"[33mZ"
		dc.b	27,"[0m)",27,"[36mMODEM",27,"[0m_",27,"[36mUPLOAD"
		dc.b	27,"[34m/",27,"[0m(",27,"[33mA",27,"[0m)"
		dc.b	27,"[36mBORT",27,"[0m:",0
DOORSDREDREAD.MSG3:
		dc.b	"DOORS:DRE/DRE!ADVERT/UPLOAD/",0,0
TRANSFERABORT.MSG:
		dc.b	10,13
		dc.b	"TRANSFER ABORTET OR ADDNAME INCLUDES ANY SPE"
		dc.b	"CIAL SIGNS!",10,13,0
CANTFINDUPLOA.MSG:
		dc.b	10,13,"CANT FIND UPLOADET FILE !!!",10,13,0
DOORSDREDREAD.MSG4:
		dc.b	"DOORS:DRE/DRE!ADVERT/UPLOAD/%s",0,0
DOORSDREDREAD.MSG5:
		dc.b	"DOORS:DRE/DRE!ADVERT/ADVERTS/",0
CARRIERLOST.MSG:
		dc.b	10,13,"*** CARRIER LOST ***",10,13,0,0
a.MSG:
		dc.b	"a",0
s.MSG1:
		dc.b	"%s",10,0
mVIEWBBSADVER.MSG:
		dc.b	" "
		dc.b	27,"[33mVIEW BBS ADVERT",27,"[31m(",27,"[33mS"
		dc.b	27,"[31m)   ",27,"[0;34m|",27,"[32m%3d",27,"[34m|"
		dc.b	27,"[0m",0,0
mENTERBBSADVE.MSG0:
		dc.b	" "
		dc.b	27,"[33mENTER BBS ADVERT",27,"[31m(",27,"[33mS"
		dc.b	27,"[31m)  ",27,"[0;34m|",27,"[32m%3d",27,"[34m|"
		dc.b	27,"[0m",0,0
mDOWNLOADADVE.MSG:
		dc.b	" "
		dc.b	27,"[33mDOWNLOAD ADVERT",27,"[31m(",27,"[33mS"
		dc.b	27,"[31m)   ",27,"[0;34m|",27,"[32m%3d",27,"[34m|"
		dc.b	27,"[0m",0,0
mREMOVEBBSADV.MSG:
		dc.b	" "
		dc.b	27,"[33mREMOVE BBS ADVERT",27,"[31m(",27,"[33mS"
		dc.b	27,"[31m) ",27,"[0;34m|",27,"[32m%3d",27,"[34m|"
		dc.b	27,"[0m",0,0
mQUIT36mDRE31.MSG:
		dc.b	" "
		dc.b	27,"[33mQUIT ",27,"[36mDRE",27,"[31m!"
		dc.b	27,"[36mADVERTISE   ",27,"[0;34m|",27,"[32mALL"
		dc.b	27,"[34m|",27,"[0m",0,0
H4B.MSG:
		dc.b	27,"[H",27,"[4B",13,0,0
m0m.MSG0:
		dc.b	"                 "
		dc.b	27,"[34m.---.---.----------------------.---."
		dc.b	27,"[0m",10,13,0,0
m35m2d0m34m34.MSG:
		dc.b	"                 "
		dc.b	27,"[34m|",27,"[35m%2d",27,"[0m.",27,"[34m|   "
		dc.b	27,"[34m|",27,"[0m%s",10,13,0
m0m.MSG1:
		dc.b	"                 "
		dc.b	27,"[34m`---^---^----------------------^---"""
		dc.b	27,"[0m",10,13,0,0
p3344mENTERPO.MSG:
		dc.b	10,10,13,"     "
		dc.b	27,"[0 p"
		dc.b	27,"[33;44mENTER POSITION (#) OR CRSR UP/DOWN TO "
		dc.b	"SELECT - ENTER TO ACTIVATE"
		dc.b	27,"[H",27,"[5B",27,"[40m",0
m35m2d0m34mOO.MSG:
		dc.b	"                 "
		dc.b	27,"[34m|",27,"[35m%2d",27,"[0m.",27,"[34m|OO>"
		dc.b	27,"[34m|%s",13,0,0
m35m2d0m34m36.MSG:
		dc.b	"                 "
		dc.b	27,"[34m|",27,"[35m%2d",27,"[0m.",27,"[34m|"
		dc.b	27,"[36;1mOO>",27,"[0;34m|",27,"[44;33m%s"
		dc.b	27,"[0m",13,0
m35m2d0m34m34.MSG0:
		dc.b	"                 "
		dc.b	27,"[34m|",27,"[35m%2d",27,"[0m.",27,"[34m|   "
		dc.b	27,"[34m|%s",13,0,0
H5B.MSG:
		dc.b	27,"[H",27,"[5B",13,0,0
B.MSG0:
		dc.b	27,"[1B",13,0
B.MSG:
		dc.b	27,"[4B",13,0
A.MSG1:
		dc.b	27,"[1A",13,0
pH16B0m.MSG:
		dc.b	27,"[1 p",27,"[H",27,"[16B",27,"[0m",13,0,0

	 ********************************

ascii.MSG2:
		dc.b	8," ",8,0
c.MSG:
		dc.b	"%c",0,0
d02d02d.MSG:
		dc.b	"%02d%02d%02d",0,0

	 ********************************

iconlibrary.MSG:
		dc.b	"icon.library",0,0

	 ********************************

VIEW_ADD.MSG:
		dc.b	"VIEW_ADD",0,0
ENTER_ADD.MSG:
		dc.b	"ENTER_ADD",0
REMOVE_ADD.MSG:
		dc.b	"REMOVE_ADD",0,0
DL_ADDS.MSG:
		dc.b	"DL_ADDS",0
PACK_PATH.MSG:
		dc.b	"PACK_PATH",0
RAM.MSG:
		dc.b	"RAM:",0,0
Errorcantfoun.MSG:
		dc.b	10,13,"Error! can't found DOORS:DRE/DRE!ADVERTS/DRE"
		dc.b	"!ADVERTISE.INFO!",10,10,13,0
Errornotenoug.MSG:
		dc.b	10,13,"Error not enough Memory for getting "
		dc.b	"Icon! ",10,10,13,0

	 ********************************

lbC000F92:
		movem.l	d6/d7/a6,-(sp)
		moveq	#0,d0
		move.l	$324(a4),a0
		move.b	15(a0),d0
		moveq	#0,d1
		bset	d0,d1
		move.l	d1,d7
		moveq	#2,d0
		move.l	$328(a4),a0
		move.l	d0,$E0(a0)
		move.l	$320(a4),a0
		move.l	$328(a4),a1
		move.l	4.w,a6
		jsr	-$16E(a6)
		move.l	d7,d0
		jsr	-$13E(a6)
		move.l	d0,d6
		bsr.w	lbC000FDA
		clr.l	-(sp)
		bsr.w	lbC003B50
		addq.w	#4,sp
		movem.l	(sp)+,d6/d7/a6
		rts

	 ********************************

lbC000FDA:
		move.l	a6,-(sp)
lbC000FDC:
		move.l	$324(a4),a0
		move.l	4.w,a6
		jsr	-$174(a6)
		move.l	d0,$32C(a4)
		bne.b	lbC000FDC
		move.l	$324(a4),-(sp)
		bsr.w	lbC002564
		addq.w	#4,sp
		move.l	$328(a4),a1
		moveq	#$40,d0
		lsl.l	#2,d0
		move.l	4.w,a6
		jsr	-$D2(a6)
		move.l	(sp)+,a6
		rts

	 ********************************

lbC00100C:
		suba.w	#$50,sp
		movem.l	d6/d7/a5,-(sp)
		move.l	$64(sp),d7
		move.l	$60(sp),a5
		move.l	a5,a0
lbC00101E:
		tst.b	(a0)+
		bne.b	lbC00101E
		subq.l	#1,a0
		suba.l	a5,a0
		move.l	a0,d0
		moveq	#$50,d1
		cmp.l	d1,d0
		bcc.b	lbC00103A
		clr.l	-(sp)
		move.l	a5,-(sp)
		bsr.w	lbC0011A4
		addq.w	#8,sp
		bra.b	lbC001074
lbC00103A:
		moveq	#0,d6
lbC00103C:
		move.l	a5,a0
		adda.l	d6,a0
		move.l	a0,-(sp)
		pea	s.MSG(pc)
		pea	$14(sp)
		bsr.w	lbC003B8C
		clr.l	(sp)
		pea	$18(sp)
		bsr.w	lbC0011A4
		lea	16(sp),sp
		moveq	#$4F,d0
		add.l	d0,d6
		lea	12(sp),a0
		move.l	a0,a1
lbC001066:
		tst.b	(a1)+
		bne.b	lbC001066
		subq.l	#1,a1
		suba.l	a0,a1
		cmp.w	#$4F,a1
		beq.b	lbC00103C
lbC001074:
		move.l	d7,d0
		subq.l	#1,d0
		bne.b	lbC001090
		pea	1
		pea	lbW0003B8(pc)
		bsr.w	lbC0011A4
		addq.w	#8,sp
		move.l	$328(a4),a0
		addq.l	#1,$E8(a0)
lbC001090:
		moveq	#$16,d0
		move.l	$328(a4),a0
		cmp.l	$E8(a0),d0
		bne.b	lbC0010CA
		pea	12(sp)
		pea	ascii.MSG(pc)
		bsr.w	lbC0011F4
		clr.l	(sp)
		pea	lbL0003D2(pc)
		bsr.w	lbC00100C
		clr.l	(sp)
		pea	ascii.MSG0(pc)
		bsr.w	lbC00100C
		clr.l	(sp)
		pea	lbL0003D2(pc)
		bsr.w	lbC00100C
		lea	$14(sp),sp
lbC0010CA:
		movem.l	(sp)+,d6/d7/a5
		adda.w	#$50,sp
		rts

	 ********************************

		movem.l	a5/a6,-(sp)
		move.l	12(sp),a5
		move.l	$328(a4),a0
		adda.w	#$14,a0
		move.l	a5,a1
lbC0010E6:
		move.b	(a1)+,(a0)+
		bne.b	lbC0010E6
		move.l	$328(a4),a0
		move.l	#$89,$E0(a0)
		move.l	$320(a4),a0
		move.l	$328(a4),a1
		move.l	4.w,a6
		jsr	-$16E(a6)
		move.l	$324(a4),a0
		jsr	-$180(a6)
		move.l	$324(a4),a0
		jsr	-$174(a6)
		move.l	$328(a4),a0
		move.l	$DC(a0),d0
		beq.b	lbC001136
		moveq	#1,d1
		cmp.l	d1,d0
		bne.b	lbC00112A
		move.l	d1,d0
		bra.b	lbC001136
lbC00112A:
		moveq	#-2,d0
		cmp.l	$DC(a0),d0
		bne.b	lbC001136
		bsr.w	lbC0013E4
lbC001136:
		movem.l	(sp)+,a5/a6
		rts
lbC00113C:
		movem.l	a5/a6,-(sp)
		move.l	12(sp),a5
		move.l	$328(a4),a0
		adda.w	#$14,a0
		move.l	a5,a1
lbC00114E:
		move.b	(a1)+,(a0)+
		bne.b	lbC00114E
		move.l	$328(a4),a0
		move.l	#$8A,$E0(a0)
		move.l	$320(a4),a0
		move.l	$328(a4),a1
		move.l	4.w,a6
		jsr	-$16E(a6)
		move.l	$324(a4),a0
		jsr	-$180(a6)
		move.l	$324(a4),a0
		jsr	-$174(a6)
		move.l	$328(a4),a0
		move.l	$DC(a0),d0
		beq.b	lbC00119E
		moveq	#1,d1
		cmp.l	d1,d0
		bne.b	lbC001192
		move.l	d1,d0
		bra.b	lbC00119E
lbC001192:
		moveq	#-2,d0
		cmp.l	$DC(a0),d0
		bne.b	lbC00119E
		bsr.w	lbC0013E4
lbC00119E:
		movem.l	(sp)+,a5/a6
		rts

	 ********************************

lbC0011A4:
		movem.l	d7/a5/a6,-(sp)
		move.l	$14(sp),d7
		move.l	16(sp),a5
		move.l	$328(a4),a0
		clr.l	$DC(a0)
		move.l	$328(a4),a0
		move.l	d7,$E0(a0)
		move.l	$328(a4),a0
		adda.w	#$14,a0
		move.l	a5,a1
lbC0011CA:
		move.b	(a1)+,(a0)+
		bne.b	lbC0011CA
		move.l	$320(a4),a0
		move.l	$328(a4),a1
		move.l	4.w,a6
		jsr	-$16E(a6)
		move.l	$324(a4),a0
		jsr	-$180(a6)
		move.l	$324(a4),a0
		jsr	-$174(a6)
		movem.l	(sp)+,d7/a5/a6
		rts

	 ********************************

lbC0011F4:
		movem.l	a3/a5/a6,-(sp)
		move.l	$14(sp),a3
		move.l	16(sp),a5
		move.l	$328(a4),a0
		clr.l	$E8(a0)
		move.l	$328(a4),a0
		adda.w	#$14,a0
		move.l	a5,a1
lbC001212:
		move.b	(a1)+,(a0)+
		bne.b	lbC001212
		moveq	#6,d0
		move.l	$328(a4),a0
		move.l	d0,$E0(a0)
		move.l	$320(a4),a0
		move.l	$328(a4),a1
		move.l	4.w,a6
		jsr	-$16E(a6)
		move.l	$324(a4),a0
		jsr	-$180(a6)
		move.l	$324(a4),a0
		jsr	-$174(a6)
		move.l	$328(a4),a0
		adda.w	#$14,a0
		move.l	a3,a1
lbC00124A:
		move.b	(a0)+,(a1)+
		bne.b	lbC00124A
		moveq	#-1,d0
		move.l	$328(a4),a0
		cmp.l	$DC(a0),d0
		bne.b	lbC00125E
		bsr.w	lbC0013E4
lbC00125E:
		movem.l	(sp)+,a3/a5/a6
		rts

	 ********************************

lbC001264:
		move.l	a6,-(sp)
		move.l	$328(a4),a0
		clr.l	$E8(a0)
		moveq	#6,d0
		move.l	$328(a4),a0
		move.l	d0,$E0(a0)
		move.l	$328(a4),a0
		adda.w	#$14,a0
		lea	lbW0003B8(pc),a1
lbC001284:
		move.b	(a1)+,(a0)+
		bne.b	lbC001284
		move.l	$320(a4),a0
		move.l	$328(a4),a1
		move.l	4.w,a6
		jsr	-$16E(a6)
		move.l	$324(a4),a0
		jsr	-$180(a6)
		move.l	$324(a4),a0
		jsr	-$174(a6)
		moveq	#-1,d0
		move.l	$328(a4),a0
		cmp.l	$DC(a0),d0
		bne.b	lbC0012B8
		bsr.w	lbC0013E4
lbC0012B8:
		move.l	$328(a4),a0
		move.b	$14(a0),d0
		move.l	(sp)+,a6
		rts

	 ********************************

lbC0012C4:
		movem.l	d7/a3/a5/a6,-(sp)
		move.l	$1C(sp),d7
		move.l	$18(sp),a3
		move.l	$14(sp),a5
		addq.l	#1,d7
		move.l	$328(a4),a0
		clr.l	$E8(a0)
		move.l	$328(a4),a0
		adda.w	#$14,a0
		move.l	a5,a1
lbC0012E8:
		move.b	(a1)+,(a0)+
		bne.b	lbC0012E8
		move.l	$328(a4),a0
		move.l	d7,$DC(a0)
		moveq	#5,d0
		move.l	$328(a4),a0
		move.l	d0,$E0(a0)
		move.l	$320(a4),a0
		move.l	$328(a4),a1
		move.l	4.w,a6
		jsr	-$16E(a6)
		move.l	$324(a4),a0
		jsr	-$180(a6)
		move.l	$324(a4),a0
		jsr	-$174(a6)
		move.l	$328(a4),a0
		adda.w	#$14,a0
		move.l	a3,a1
lbC001328:
		move.b	(a0)+,(a1)+
		bne.b	lbC001328
		moveq	#-1,d0
		move.l	$328(a4),a0
		cmp.l	$DC(a0),d0
		bne.b	lbC00133C
		bsr.w	lbC0013E4
lbC00133C:
		movem.l	(sp)+,d7/a3/a5/a6
		rts

	 ********************************

lbC001342:
		movem.l	d7/a5/a6,-(sp)
		move.l	$14(sp),d7
		move.l	16(sp),a5
		move.l	$328(a4),a0
		move.l	d7,$E0(a0)
		moveq	#1,d0
		move.l	$328(a4),a0
		move.l	d0,$DC(a0)
		move.l	$320(a4),a0
		move.l	$328(a4),a1
		move.l	4.w,a6
		jsr	-$16E(a6)
		move.l	$324(a4),a0
		jsr	-$180(a6)
		move.l	$324(a4),a0
		jsr	-$174(a6)
		move.l	$328(a4),a0
		adda.w	#$14,a0
		move.l	a5,a1
lbC00138A:
		move.b	(a0)+,(a1)+
		bne.b	lbC00138A
		movem.l	(sp)+,d7/a5/a6
		rts

	 ********************************

lbC001394:
		movem.l	d7/a5/a6,-(sp)
		move.l	$14(sp),d7
		move.l	16(sp),a5
		move.l	$328(a4),a0
		move.l	d7,$E0(a0)
		move.l	$328(a4),a0
		clr.l	$DC(a0)
		move.l	$328(a4),a0
		adda.w	#$14,a0
		move.l	a5,a1
lbC0013BA:
		move.b	(a1)+,(a0)+
		bne.b	lbC0013BA
		move.l	$320(a4),a0
		move.l	$328(a4),a1
		move.l	4.w,a6
		jsr	-$16E(a6)
		move.l	$324(a4),a0
		jsr	-$180(a6)
		move.l	$324(a4),a0
		jsr	-$174(a6)
		movem.l	(sp)+,d7/a5/a6
		rts
lbC0013E4:
		bsr.w	lbC000F92
		clr.l	-(sp)
		bsr.w	lbC003B50
		addq.w	#4,sp
		rts

	 ********************************

lbC0013F2:
		movem.l	d2/d6/d7/a3/a5/a6,-(sp)
		move.l	$1C(sp),a5
		moveq	#0,d6
		move.l	$2FC(a4),a6
		moveq	#2,d1
		moveq	#0,d2
		jsr	-$E4(a6)
		move.l	d0,a3
		move.l	a3,a0
		move.l	a0,d0
		beq.b	lbC00143C
		move.l	a5,d1
		moveq	#-2,d2
		jsr	-$54(a6)
		move.l	d0,d7
		tst.l	d7
		beq.b	lbC001434
		move.l	d7,d1
		move.l	a3,d2
		jsr	-$66(a6)
		moveq	#$64,d6
		add.l	d6,d6
		add.l	$7C(a3),d6
		move.l	d7,d1
		jsr	-$5A(a6)
lbC001434:
		move.l	a3,d2
		moveq	#2,d1
		jsr	-$EA(a6)
lbC00143C:
		move.l	d6,d0
		movem.l	(sp)+,d2/d6/d7/a3/a5/a6
		rts

	 ********************************

lbC001444:
		movem.l	d7/a5,-(sp)
		move.l	12(sp),d7
		move.l	16(sp),a5
		moveq	#2,d0
		cmp.l	d0,d7
		bge.b	lbC001474
		pea	RELEASE2.MSG(pc)
		pea	v2o.MSG(pc)
		pea	DREADVERTISE.MSG(pc)
		pea	sss.MSG(pc)
		bsr.w	lbC002690
		clr.l	(sp)
		bsr.w	lbC003B50
		lea	16(sp),sp
lbC001474:
		move.l	4(a5),-(sp)
		bsr.w	lbC003B1C
		move.l	d0,(sp)
		bsr.w	lbC000260
		pea	$69
		pea	$420(a4)
		bsr.w	lbC001342
		pea	$420(a4)
		bsr.w	lbC003B1C
		move.l	d0,$350(a4)
		pea	DOORSDREDREAD.MSG(pc)
		bsr.w	lbC0023B4
		lea	$14(sp),sp
		tst.l	d0
		pea	$55
		bsr.w	lbC00235C
		pea	16(a4)
		pea	$5B(a4)
		bsr.w	lbC002320
		pea	$5B(a4)
		bsr.w	lbC003B1C
		move.l	d0,$348(a4)
		pea	$2086(a4)
		bsr.w	lbC003B1C
		move.l	d0,$34C(a4)
		lea	$14(sp),sp

	 ********************************

;		cmp.l	$348(a4),d0
;		ble.b	lbC001504
;		pea	3
;		pea	C36mdRE0m36mA.MSG(pc)
;		bsr.w	lbC0011A4
;		pea	3
;		pea	mSORRYBUTTHIS.MSG(pc)
;		bsr.w	lbC0011A4
;		pea	mPLEASEREGIST.MSG(pc)
;		bsr.w	lbC001F70
;		lea	$14(sp),sp
;		bra.b	lbC001508

	 ********************************

lbC001504:
		clr.l	$344(a4)
lbC001508:
		bsr.w	lbC001C86
		move.l	d0,$344(a4)
		bne.b	lbC001536
		move.l	$350(a4),d0
		cmp.l	0(a4),d0
		bge.b	lbC00151E
		bra.b	lbC001504
lbC00151E:
		pea	$28
		bsr.w	lbC001664
		move.l	d0,$354(a4)
		addq.w	#4,sp
		moveq	#15,d0
		cmp.l	$354(a4),d0
		bne.b	lbC001504
		bra.b	lbC001504
lbC001536:
		moveq	#1,d0
		cmp.l	$344(a4),d0
		bne.b	lbC00155C
		move.l	$350(a4),d0
		cmp.l	4(a4),d0
		bge.b	lbC00154A
		bra.b	lbC001504
lbC00154A:
		bsr.w	lbC001A3E
		move.l	d0,$354(a4)
		moveq	#10,d0
		cmp.l	$354(a4),d0
		bne.b	lbC001504
		bra.b	lbC001504
lbC00155C:
		moveq	#2,d0
		cmp.l	$344(a4),d0
		bne.b	lbC00158C
		move.l	$350(a4),d0
		cmp.l	12(a4),d0
		bge.b	lbC001570
		bra.b	lbC001504
lbC001570:
		pea	$358(a4)
		bsr.w	lbC0015F2
		move.l	d0,$354(a4)
		addq.w	#4,sp
		moveq	#15,d0
		cmp.l	$354(a4),d0
		bne.w	lbC001504
		bra.w	lbC001504
lbC00158C:
		moveq	#3,d0
		cmp.l	$344(a4),d0
		bne.b	lbC0015BE
		move.l	$350(a4),d0
		cmp.l	8(a4),d0
		bge.b	lbC0015A2
		bra.w	lbC001504
lbC0015A2:
		pea	50
		bsr.w	lbC001664
		move.l	d0,$354(a4)
		addq.w	#4,sp
		moveq	#15,d0
		cmp.l	$354(a4),d0
		bne.w	lbC001504
		bra.w	lbC001504
lbC0015BE:
		moveq	#4,d0
		cmp.l	$344(a4),d0
		bne.b	lbC0015E0
		pea	3
		pea	H3443mThankyo.MSG(pc)
		bsr.w	lbC0011A4
		pea	ascii.MSG1(pc)
		bsr.w	lbC001F70
		lea	12(sp),sp
		bra.b	lbC0015EA
lbC0015E0:
		pea	H3443mThankyo.MSG(pc)
		bsr.w	lbC001F70
		addq.w	#4,sp
lbC0015EA:
		movem.l	(sp)+,d7/a5
		moveq	#0,d0
		rts

	 ********************************

lbC0015F2:
		suba.w	#$74,sp
		move.l	a5,-(sp)
		move.l	$7C(sp),a5
		pea	$95
		pea	$78(sp)
		bsr.w	lbC001342
		pea	$7C(sp)
		pea	ADDSNDsLHA.MSG(pc)
		pea	$78(sp)
		bsr.w	lbC003B8C
		pea	$7C(sp)
		move.l	a5,-(sp)
		pea	ss.MSG(pc)
		pea	$24(sp)
		bsr.w	lbC003B8C
		pea	$28(sp)
		pea	LHAasDOORSDRE.MSG(pc)
		pea	$420(a4)
		bsr.w	lbC003B8C
		pea	$420(a4)
		bsr.w	lbC003954
		pea	$89
		pea	$3C(sp)
		bsr.w	lbC001394
		pea	$40(sp)
		bsr.w	lbC0048F4
		lea	$40(sp),sp
		moveq	#15,d0
		move.l	(sp)+,a5
		adda.w	#$74,sp
		rts

	 ********************************

lbC001664:
		suba.w	#$1B84,sp
		movem.l	d2/d4-d7/a3/a5,-(sp)
		move.l	$1BA4(sp),d7
lbC001670:
		pea	3
		pea	C36mdRE0m36mA.MSG(pc)
		bsr.w	lbC0011A4
		pea	3
		pea	mVIEW34m33mRE.MSG(pc)
		bsr.w	lbC0011A4
		pea	3
		pea	m0m.MSG2(pc)
		bsr.w	lbC0011A4
		pea	r.MSG(pc)
		pea	DOORSDREDREAD.MSG0(pc)
		bsr.w	lbC004364
		move.l	d0,a5
		lea	32(sp),sp
		move.l	a5,d0
		bne.b	lbC0016BE
		pea	3
		pea	NoAdvertsAvai.MSG(pc)
		bsr.w	lbC0011A4
		addq.w	#8,sp
		moveq	#15,d0
		bra.w	lbC001A34
lbC0016BE:
		moveq	#0,d6
		clr.l	$40(sp)
lbC0016C4:
		btst	#4,27(a5)
		bne.b	lbC0016F6
		move.l	d6,d0
		asl.l	#3,d0
		sub.l	d6,d0
		move.l	d0,d1
		asl.l	#2,d1
		add.l	d0,d1
		lea	$48(sp),a0
		adda.l	d1,a0
		move.l	a5,-(sp)
		pea	$23
		move.l	a0,-(sp)
		bsr.w	lbC003DD0
		lea	12(sp),sp
		addq.l	#1,d6
		addq.l	#1,$40(sp)
		bra.b	lbC0016C4
lbC0016F6:
		move.l	a5,-(sp)
		bsr.w	lbC0041CC
		addq.w	#4,sp
		moveq	#0,d6
		moveq	#6,d4
		moveq	#0,d5
		moveq	#1,d0
		subq.l	#1,$40(sp)
		movem.l	d0,$44(sp)
		bne.b	lbC001718
		moveq	#15,d0
		bra.w	lbC001A34
lbC001718:
		moveq	#-1,d0
		cmp.l	$40(sp),d0
		bne.b	lbC001726
		moveq	#15,d0
		bra.w	lbC001A34
lbC001726:
		moveq	#1,d0
		cmp.l	$44(sp),d0
		bne.b	lbC0017A2
		cmp.l	$40(sp),d6
		bge.b	lbC0017A2
		move.l	d6,d0
		asl.l	#3,d0
		sub.l	d6,d0
		move.l	d0,d1
		asl.l	#2,d1
		add.l	d0,d1
		lea	$48(sp),a0
		adda.l	d1,a0
		move.l	a0,-(sp)
		pea	s.MSG0(pc)
		pea	$25(sp)
		bsr.w	lbC003B8C
		lea	$29(sp),a0
		move.l	a0,a1
lbC00175A:
		tst.b	(a1)+
		bne.b	lbC00175A
		subq.l	#1,a1
		suba.l	a0,a1
		move.l	a1,d0
		subq.l	#1,d0
		move.l	a0,a1
		adda.l	d0,a1
		clr.b	(a1)
		move.l	d5,d0
		addq.l	#1,d5
		move.l	a0,(sp)
		move.l	d0,-(sp)
		move.l	d4,-(sp)
		pea	d2H2ds.MSG(pc)
		pea	$420(a4)
		bsr.w	lbC003B8C
		pea	3
		pea	$420(a4)
		bsr.w	lbC0011A4
		lea	$24(sp),sp
		addq.l	#1,d6
		addq.l	#1,$44(sp)
		move.l	$40(sp),d0
		cmp.l	d0,d6
		beq.w	lbC001826
lbC0017A2:
		moveq	#2,d0
		cmp.l	$44(sp),d0
		bne.b	lbC00181C
		cmp.l	$40(sp),d6
		bge.b	lbC00181C
		move.l	d6,d0
		asl.l	#3,d0
		sub.l	d6,d0
		move.l	d0,d1
		asl.l	#2,d1
		add.l	d0,d1
		lea	$48(sp),a0
		adda.l	d1,a0
		move.l	a0,-(sp)
		pea	s.MSG0(pc)
		pea	$25(sp)
		bsr.w	lbC003B8C
		lea	$29(sp),a0
		move.l	a0,a1
lbC0017D6:
		tst.b	(a1)+
		bne.b	lbC0017D6
		subq.l	#1,a1
		suba.l	a0,a1
		move.l	a1,d0
		subq.l	#1,d0
		move.l	a0,a1
		adda.l	d0,a1
		clr.b	(a1)
		move.l	d5,d0
		addq.l	#1,d5
		move.l	a0,(sp)
		move.l	d0,-(sp)
		move.l	d4,-(sp)
		pea	d39H2ds.MSG(pc)
		pea	$420(a4)
		bsr.w	lbC003B8C
		pea	3
		pea	$420(a4)
		bsr.w	lbC0011A4
		lea	$24(sp),sp
		addq.l	#1,d6
		moveq	#1,d0
		move.l	d0,$44(sp)
		cmp.l	$40(sp),d6
		beq.b	lbC001826
lbC00181C:
		addq.l	#1,d4
		cmp.l	$40(sp),d6
		ble.w	lbC001726
lbC001826:
		moveq	#$28,d0
		cmp.l	d0,d7
		bne.w	lbC0018DA
		pea	3
		pea	mWichAdvertdo.MSG0(pc)
		bsr.w	lbC0011A4
		addq.w	#8,sp
lbC00183C:
		clr.l	$44(sp)
		pea	3
		bsr.w	lbC002238
		addq.w	#4,sp
		move.l	d0,$44(sp)
		moveq	#-3,d1
		cmp.l	d1,d0
		bne.b	lbC00185A
		moveq	#15,d0
		bra.w	lbC001A34
lbC00185A:
		move.l	$40(sp),d0
		subq.l	#1,d0
		move.l	$44(sp),d1
		cmp.l	d0,d1
		bgt.b	lbC00183C
		move.l	d1,d0
		asl.l	#3,d0
		sub.l	d1,d0
		move.l	d0,d2
		asl.l	#2,d2
		add.l	d0,d2
		lea	$48(sp),a0
		adda.l	d2,a0
		lea	$4E8(a4),a1
lbC00187E:
		move.b	(a0)+,(a1)+
		bne.b	lbC00187E
		pea	$4E8(a4)
		bsr.w	lbC001F8A
		lea	$4E8(a4),a0
		move.l	a0,a1
lbC001890:
		tst.b	(a1)+
		bne.b	lbC001890
		subq.l	#1,a1
		suba.l	a0,a1
		move.l	a1,d0
		subq.l	#1,d0
		clr.b	(a0,d0.l)
		move.l	a0,(sp)
		pea	DOORSDREDREAD.MSG1(pc)
		pea	$420(a4)
		bsr.w	lbC003B8C
		pea	3
		pea	C36mdRE0m36mA.MSG(pc)
		bsr.w	lbC0011A4
		pea	8
		pea	$420(a4)
		bsr.w	lbC001394
		pea	$420(a4)
		pea	mPressanyKeyt.MSG(pc)
		bsr.w	lbC0011F4
		lea	$24(sp),sp
		bra.w	lbC001670
lbC0018DA:
		moveq	#50,d0
		cmp.l	d0,d7
		bne.w	lbC001A32
		pea	3
		pea	mWichAdvertdo.MSG(pc)
		bsr.w	lbC0011A4
		addq.w	#8,sp
lbC0018F0:
		clr.l	$44(sp)
		pea	3
		bsr.w	lbC002238
		addq.w	#4,sp
		move.l	d0,$44(sp)
		moveq	#-3,d1
		cmp.l	d1,d0
		bne.b	lbC00190E
		moveq	#15,d0
		bra.w	lbC001A34
lbC00190E:
		move.l	$40(sp),d0
		subq.l	#1,d0
		move.l	$44(sp),d1
		cmp.l	d0,d1
		bgt.b	lbC0018F0
		move.l	d1,d0
		asl.l	#3,d0
		sub.l	d1,d0
		move.l	d0,d2
		asl.l	#2,d2
		add.l	d0,d2
		lea	$48(sp),a0
		adda.l	d2,a0
		lea	$4E8(a4),a1
lbC001932:
		move.b	(a0)+,(a1)+
		bne.b	lbC001932
		pea	$4E8(a4)
		bsr.w	lbC001F8A
		lea	$4E8(a4),a0
		move.l	a0,a1
lbC001944:
		tst.b	(a1)+
		bne.b	lbC001944
		subq.l	#1,a1
		suba.l	a0,a1
		move.l	a1,d0
		subq.l	#1,d0
		clr.b	(a0,d0.l)
		move.l	a0,(sp)
		pea	DOORSDREDREAD.MSG1(pc)
		pea	$420(a4)
		bsr.w	lbC003B8C
		pea	$420(a4)
		bsr.w	lbC0048F4
		pea	r.MSG(pc)
		pea	DOORSDREDREAD.MSG0(pc)
		bsr.w	lbC004364
		move.l	d0,a5
		pea	w.MSG(pc)
		pea	DOORSDREDREAD.MSG2(pc)
		bsr.w	lbC004364
		move.l	d0,a3
		lea	32(sp),sp
		moveq	#0,d4
lbC00198C:
		move.l	d4,d0
		asl.l	#3,d0
		sub.l	d4,d0
		move.l	d0,d1
		asl.l	#2,d1
		add.l	d0,d1
		lea	$52E(a4),a0
		adda.l	d1,a0
		move.l	a5,-(sp)
		pea	$23
		move.l	a0,-(sp)
		bsr.w	lbC003DD0
		move.l	d4,d0
		asl.l	#3,d0
		sub.l	d4,d0
		move.l	d0,d1
		asl.l	#2,d1
		add.l	d0,d1
		lea	$52E(a4),a0
		adda.l	d1,a0
		move.l	$50(sp),d0
		move.l	d0,d1
		asl.l	#3,d1
		sub.l	d0,d1
		move.l	d1,d2
		asl.l	#2,d2
		add.l	d1,d2
		lea	$54(sp),a1
		adda.l	d2,a1
		move.l	a1,(sp)
		move.l	a0,-(sp)
		bsr.w	lbC002774
		lea	16(sp),sp
		tst.l	d0
		bne.b	lbC0019E4
		bra.b	lbC001A00
lbC0019E4:
		move.l	d4,d0
		asl.l	#3,d0
		sub.l	d4,d0
		move.l	d0,d1
		asl.l	#2,d1
		add.l	d0,d1
		lea	$52E(a4),a0
		adda.l	d1,a0
		move.l	a0,-(sp)
		move.l	a3,-(sp)
		bsr.w	lbC003BFA
		addq.w	#8,sp
lbC001A00:
		addq.l	#1,d4
		btst	#4,27(a5)
		beq.b	lbC00198C
		move.l	a5,-(sp)
		bsr.w	lbC0041CC
		move.l	a3,(sp)
		bsr.w	lbC0041CC
		pea	DOORSDREDREAD.MSG0(pc)
		bsr.w	lbC0048F4
		pea	DOORSDREDREAD.MSG0(pc)
		pea	DOORSDREDREAD.MSG2(pc)
		bsr.w	lbC0048BC
		lea	16(sp),sp
		moveq	#15,d0
		bra.b	lbC001A34
lbC001A32:
		moveq	#15,d0
lbC001A34:
		movem.l	(sp)+,d2/d4-d7/a3/a5
		adda.w	#$1B84,sp
		rts

	 ********************************

lbC001A3E:
		suba.w	#$88,sp
		movem.l	d7/a5,-(sp)
		pea	3
		pea	C36mdRE0m36mA.MSG(pc)
		bsr.w	lbC0011A4
		pea	3
		pea	mENTERBBSADVE.MSG(pc)
		bsr.w	lbC0011A4
		pea	3
		pea	m0m.MSG(pc)
		bsr.w	lbC0011A4
		pea	3
		pea	mDONTUSEANYSP.MSG(pc)
		bsr.w	lbC0011A4
		pea	3
		pea	mEnterBBSName.MSG(pc)
		bsr.w	lbC0011A4
		pea	$1D
		pea	$99(sp)
		pea	H36m.MSG(pc)
		bsr.w	lbC0012C4
		pea	lbW0003B8(pc)
		pea	$A5(sp)
		bsr.w	lbC002774
		lea	$3C(sp),sp
		tst.l	d0
		bne.b	lbC001AAC
		moveq	#15,d0
		bra.w	lbC001C7C
lbC001AAC:
		pea	$420(a4)
		pea	H0m33mE0m36mD.MSG(pc)
		bsr.w	lbC0011F4
		addq.w	#8,sp
		move.b	$420(a4),d0
		ext.w	d0
		ext.l	d0
		lea	$105(a4),a0
		btst	#0,(a0,d0.l)
		beq.b	lbC001ADC
		move.b	$420(a4),d0
		ext.w	d0
		ext.l	d0
		moveq	#32,d1
		add.l	d1,d0
		bra.b	lbC001AE4
lbC001ADC:
		move.b	$420(a4),d0
		ext.w	d0
		ext.l	d0
lbC001AE4:
		moveq	#$61,d1
		cmp.l	d1,d0
		bne.b	lbC001AF0
		moveq	#15,d0
		bra.w	lbC001C7C
lbC001AF0:
		lea	$6D(sp),a0
		lea	$4E8(a4),a1
lbC001AF8:
		move.b	(a0)+,(a1)+
		bne.b	lbC001AF8
		move.b	$420(a4),d0
		ext.w	d0
		ext.l	d0
		lea	$105(a4),a0
		btst	#0,(a0,d0.l)
		beq.b	lbC001B1E
		move.b	$420(a4),d0
		ext.w	d0
		ext.l	d0
		moveq	#32,d1
		add.l	d1,d0
		bra.b	lbC001B26
lbC001B1E:
		move.b	$420(a4),d0
		ext.w	d0
		ext.l	d0
lbC001B26:
		moveq	#$65,d1
		cmp.l	d1,d0
		bne.b	lbC001B58
		pea	$4E8(a4)
		bsr.w	lbC001F8A
		pea	$4E8(a4)
		pea	DOORSDREDREAD.MSG1(pc)
		pea	$420(a4)
		bsr.w	lbC003B8C
		pea	9
		pea	$420(a4)
		bsr.w	lbC001394
		lea	$18(sp),sp
		bra.w	lbC001C3E
lbC001B58:
		move.b	$420(a4),d0
		ext.w	d0
		ext.l	d0
		lea	$105(a4),a0
		btst	#0,(a0,d0.l)
		beq.b	lbC001B7A
		move.b	$420(a4),d0
		ext.w	d0
		ext.l	d0
		moveq	#32,d1
		add.l	d1,d0
		bra.b	lbC001B82
lbC001B7A:
		move.b	$420(a4),d0
		ext.w	d0
		ext.l	d0
lbC001B82:
		moveq	#$7A,d1
		cmp.l	d1,d0
		bne.w	lbC001AAC
		pea	$4E8(a4)
		bsr.w	lbC001F8A
		moveq	#0,d7
		pea	DOORSDREDREAD.MSG3(pc)
		bsr.w	lbC00113C
		move.l	d0,d7
		addq.w	#8,sp
		tst.l	d7
		bne.b	lbC001BAE
		pea	TRANSFERABORT.MSG(pc)
		bsr.w	lbC001F70
		addq.w	#4,sp
lbC001BAE:
		move.l	d7,d0
		subq.l	#1,d0
		bne.b	lbC001C2E
		clr.l	$344(a4)
		pea	DOORSDREDREAD.MSG3(pc)
		bsr.w	lbC002042
		move.l	d0,$344(a4)
		addq.w	#4,sp
		moveq	#-15,d1
		cmp.l	d1,d0
		bne.b	lbC001BD8
		pea	CANTFINDUPLOA.MSG(pc)
		bsr.w	lbC001F70
		addq.w	#4,sp
		bra.b	lbC001BEC
lbC001BD8:
		pea	$50B(a4)
		pea	DOORSDREDREAD.MSG4(pc)
		pea	$420(a4)
		bsr.w	lbC003B8C
		lea	12(sp),sp
lbC001BEC:
		pea	10
		pea	DOORSDREDREAD.MSG5(pc)
		pea	$420(a4)
		bsr.w	lbC0020A6
		pea	$50B(a4)
		pea	DOORSDREDREAD.MSG1(pc)
		pea	$1C(sp)
		bsr.w	lbC003B8C
		pea	$4E8(a4)
		pea	DOORSDREDREAD.MSG1(pc)
		pea	$5A(sp)
		bsr.w	lbC003B8C
		pea	$5E(sp)
		pea	$30(sp)
		bsr.w	lbC0048BC
		lea	$2C(sp),sp
		bra.b	lbC001C3E
lbC001C2E:
		move.l	d7,d0
		addq.l	#2,d0
		bne.b	lbC001C3E
		pea	CARRIERLOST.MSG(pc)
		bsr.w	lbC001F70
		addq.w	#4,sp
lbC001C3E:
		pea	a.MSG(pc)
		pea	DOORSDREDREAD.MSG0(pc)
		bsr.w	lbC004364
		move.l	d0,a5
		addq.w	#8,sp
		move.l	a5,d0
		bne.b	lbC001C62
		pea	w.MSG(pc)
		pea	DOORSDREDREAD.MSG0(pc)
		bsr.w	lbC004364
		move.l	d0,a5
		addq.w	#8,sp
lbC001C62:
		pea	$6D(sp)
		pea	s.MSG1(pc)
		move.l	a5,-(sp)
		bsr.w	lbC003BFA
		move.l	a5,(sp)
		bsr.w	lbC0041CC
		lea	12(sp),sp
		moveq	#15,d0
lbC001C7C:
		movem.l	(sp)+,d7/a5
		adda.w	#$88,sp
		rts

	 ********************************

lbC001C86:
		suba.w	#$3B8,sp
		movem.l	d5-d7,-(sp)
		moveq	#0,d6
		moveq	#0,d5
		pea	3
		pea	C36mdRE0m36mA.MSG(pc)
		bsr.w	lbC0011A4
		move.l	0(a4),(sp)
		pea	mVIEWBBSADVER.MSG(pc)
		pea	$1A(sp)
		bsr.w	lbC003B8C
		move.l	4(a4),(sp)
		pea	mENTERBBSADVE.MSG0(pc)
		pea	$B8(sp)
		bsr.w	lbC003B8C
		move.l	12(a4),(sp)
		pea	mDOWNLOADADVE.MSG(pc)
		pea	$156(sp)
		bsr.w	lbC003B8C
		move.l	8(a4),(sp)
		pea	mREMOVEBBSADV.MSG(pc)
		pea	$1F4(sp)
		bsr.w	lbC003B8C
		lea	mQUIT36mDRE31.MSG(pc),a0
		lea	$28E(sp),a1
		moveq	#16,d0
lbC001CE8:
		move.l	(a0)+,(a1)+
		dbf	d0,lbC001CE8
		clr.b	(a1)
		pea	3
		pea	H4B.MSG(pc)
		bsr.w	lbC0011A4
		pea	3
		pea	m0m.MSG0(pc)
		bsr.w	lbC0011A4
		lea	$38(sp),sp
		moveq	#0,d6
lbC001D0E:
		moveq	#5,d0
		cmp.l	d0,d6
		bge.b	lbC001D4C
		move.l	d6,d0
		asl.l	#4,d0
		sub.l	d6,d0
		move.l	d0,d1
		asl.l	#2,d1
		add.l	d0,d1
		add.l	d1,d1
		lea	14(sp),a0
		adda.l	d1,a0
		move.l	a0,-(sp)
		move.l	d6,-(sp)
		pea	m35m2d0m34m34.MSG(pc)
		pea	$308(sp)
		bsr.w	lbC003B8C
		pea	3
		pea	$310(sp)
		bsr.w	lbC0011A4
		lea	$18(sp),sp
		addq.l	#1,d6
		bra.b	lbC001D0E
lbC001D4C:
		pea	3
		pea	m0m.MSG1(pc)
		bsr.w	lbC0011A4
		pea	3
		pea	p3344mENTERPO.MSG(pc)
		bsr.w	lbC0011A4
		pea	$1F5
		pea	lbW0003B8(pc)
		bsr.w	lbC001394
		lea	$18(sp),sp
		moveq	#0,d7
		moveq	#0,d6
lbC001D78:
		moveq	#27,d0
		cmp.b	d0,d7
		beq.w	lbC001F48
		moveq	#5,d0
		cmp.l	d0,d6
		bne.b	lbC001DB0
		move.l	d6,d0
		asl.l	#4,d0
		sub.l	d6,d0
		move.l	d0,d1
		asl.l	#2,d1
		add.l	d0,d1
		add.l	d1,d1
		lea	14(sp),a0
		adda.l	d1,a0
		move.l	a0,-(sp)
		move.l	d6,-(sp)
		pea	m35m2d0m34mOO.MSG(pc)
		pea	$308(sp)
		bsr.w	lbC003B8C
		lea	16(sp),sp
		bra.b	lbC001DD8
lbC001DB0:
		move.l	d6,d0
		asl.l	#4,d0
		sub.l	d6,d0
		move.l	d0,d1
		asl.l	#2,d1
		add.l	d0,d1
		add.l	d1,d1
		lea	14(sp),a0
		adda.l	d1,a0
		move.l	a0,-(sp)
		move.l	d6,-(sp)
		pea	m35m2d0m34m36.MSG(pc)
		pea	$308(sp)
		bsr.w	lbC003B8C
		lea	16(sp),sp
lbC001DD8:
		pea	3
		pea	$300(sp)
		bsr.w	lbC0011A4
		bsr.w	lbC001264
		move.l	d0,d7
		addq.w	#8,sp
		moveq	#3,d0
		cmp.b	d0,d7
		bne.b	lbC001DF8
		moveq	#5,d6
		bra.w	lbC001F48
lbC001DF8:
		moveq	#$30,d0
		cmp.b	d0,d7
		bne.b	lbC001E04
		moveq	#0,d6
		bra.w	lbC001F48
lbC001E04:
		moveq	#$31,d0
		cmp.b	d0,d7
		bne.b	lbC001E10
		moveq	#1,d6
		bra.w	lbC001F48
lbC001E10:
		moveq	#50,d0
		cmp.b	d0,d7
		bne.b	lbC001E1C
		moveq	#2,d6
		bra.w	lbC001F48
lbC001E1C:
		moveq	#$33,d0
		cmp.b	d0,d7
		bne.b	lbC001E28
		moveq	#3,d6
		bra.w	lbC001F48
lbC001E28:
		moveq	#$34,d0
		cmp.b	d0,d7
		bne.b	lbC001E34
		moveq	#4,d6
		bra.w	lbC001F48
lbC001E34:
		move.b	d7,d0
		ext.w	d0
		ext.l	d0
		addq.l	#1,d0
		beq.w	lbC001F3C
		subq.l	#5,d0
		beq.w	lbC001ECC
		subq.l	#1,d0
		beq.b	lbC001E6C
		subq.l	#8,d0
		beq.w	lbC001F26
		moveq	#14,d1
		sub.l	d1,d0
		beq.w	lbC001F2A
		moveq	#$36,d1
		sub.l	d1,d0
		beq.w	lbC001F30
		moveq	#32,d1
		sub.l	d1,d0
		beq.w	lbC001F36
		bra.w	lbC001F40
lbC001E6C:
		move.l	d6,d0
		asl.l	#4,d0
		sub.l	d6,d0
		move.l	d0,d1
		asl.l	#2,d1
		add.l	d0,d1
		add.l	d1,d1
		lea	14(sp),a0
		adda.l	d1,a0
		move.l	a0,-(sp)
		move.l	d6,-(sp)
		pea	m35m2d0m34m34.MSG0(pc)
		pea	$308(sp)
		bsr.w	lbC003B8C
		pea	3
		pea	$310(sp)
		bsr.w	lbC0011A4
		lea	$18(sp),sp
		addq.l	#1,d6
		moveq	#4,d0
		cmp.l	d0,d6
		ble.b	lbC001EBC
		moveq	#0,d6
		pea	3
		pea	H5B.MSG(pc)
		bsr.w	lbC0011A4
		addq.w	#8,sp
		bra.w	lbC001F40
lbC001EBC:
		pea	3
		pea	B.MSG0(pc)
		bsr.w	lbC0011A4
		addq.w	#8,sp
		bra.b	lbC001F40
lbC001ECC:
		move.l	d6,d0
		asl.l	#4,d0
		sub.l	d6,d0
		move.l	d0,d1
		asl.l	#2,d1
		add.l	d0,d1
		add.l	d1,d1
		lea	14(sp),a0
		adda.l	d1,a0
		move.l	a0,-(sp)
		move.l	d6,-(sp)
		pea	m35m2d0m34m34.MSG0(pc)
		pea	$308(sp)
		bsr.w	lbC003B8C
		pea	3
		pea	$310(sp)
		bsr.w	lbC0011A4
		lea	$18(sp),sp
		subq.l	#1,d6
		bge.b	lbC001F16
		moveq	#4,d6
		pea	3
		pea	B.MSG(pc)
		bsr.w	lbC0011A4
		addq.w	#8,sp
		bra.b	lbC001F40
lbC001F16:
		pea	3
		pea	A.MSG1(pc)
		bsr.w	lbC0011A4
		addq.w	#8,sp
		bra.b	lbC001F40
lbC001F26:
		moveq	#1,d5
		bra.b	lbC001F40
lbC001F2A:
		moveq	#1,d5
		moveq	#-1,d6
		bra.b	lbC001F40
lbC001F30:
		moveq	#1,d5
		moveq	#-1,d6
		bra.b	lbC001F40
lbC001F36:
		moveq	#1,d5
		moveq	#-1,d6
		bra.b	lbC001F40
lbC001F3C:
		moveq	#1,d5
		moveq	#-1,d6
lbC001F40:
		move.l	d5,d0
		subq.w	#1,d0
		bne.w	lbC001D78
lbC001F48:
		pea	$1F5
		pea	lbW0003B8(pc)
		bsr.w	lbC001394
		pea	3
		pea	pH16B0m.MSG(pc)
		bsr.w	lbC0011A4
		lea	16(sp),sp
		move.l	d6,d0
		movem.l	(sp)+,d5-d7
		adda.w	#$3B8,sp
		rts

	 ********************************

lbC001F70:
		move.l	a5,-(sp)
		move.l	8(sp),a5
		pea	3
		move.l	a5,-(sp)
		bsr.w	lbC0011A4
		bsr.w	lbC000F92
		addq.w	#8,sp
		move.l	(sp)+,a5
		rts
lbC001F8A:
		subq.w	#4,sp
		movem.l	d4-d7,-(sp)
		moveq	#0,d7
		moveq	#0,d6
		moveq	#0,d5
		moveq	#0,d4
		clr.l	16(sp)
lbC001F9C:
		lea	$4E8(a4),a0
		move.l	a0,a1
		adda.l	d7,a1
		addq.l	#1,d7
		tst.b	(a1)
		beq.b	lbC001FBA
		moveq	#$2F,d0
		cmp.b	(a0,d7.l),d0
		bne.b	lbC001F9C
		move.b	#$5F,(a0,d7.l)
		bra.b	lbC001F9C
lbC001FBA:
		lea	$4E8(a4),a0
		move.l	a0,a1
		adda.l	d6,a1
		addq.l	#1,d6
		tst.b	(a1)
		beq.b	lbC001FD8
		moveq	#32,d0
		cmp.b	(a0,d6.l),d0
		bne.b	lbC001FBA
		move.b	#$5F,(a0,d6.l)
		bra.b	lbC001FBA
lbC001FD8:
		lea	$4E8(a4),a0
		move.l	a0,a1
		adda.l	d5,a1
		addq.l	#1,d5
		tst.b	(a1)
		beq.b	lbC001FF6
		moveq	#$2A,d0
		cmp.b	(a0,d5.l),d0
		bne.b	lbC001FD8
		move.b	#$5F,(a0,d5.l)
		bra.b	lbC001FD8
lbC001FF6:
		lea	$4E8(a4),a0
		move.l	a0,a1
		adda.l	d4,a1
		addq.l	#1,d4
		tst.b	(a1)
		beq.b	lbC002014
		moveq	#$23,d0
		cmp.b	(a0,d4.l),d0
		bne.b	lbC001FF6
		move.b	#$5F,(a0,d4.l)
		bra.b	lbC001FF6
lbC002014:
		lea	$4E8(a4),a0
		move.l	a0,a1
		adda.l	16(sp),a1
		addq.l	#1,16(sp)
		tst.b	(a1)
		beq.b	lbC00203A
		moveq	#$7C,d0
		move.l	16(sp),d1
		cmp.b	(a0,d1.l),d0
		bne.b	lbC002014
		move.b	#$5F,(a0,d1.l)
		bra.b	lbC002014
lbC00203A:
		movem.l	(sp)+,d4-d7
		addq.w	#4,sp
		rts

	 ********************************

lbC002042:
		suba.w	#$104,sp
		movem.l	d2/d7/a5/a6,-(sp)
		move.l	$118(sp),a5
		move.l	a5,d1
		move.l	$2FC(a4),a6
		moveq	#-2,d2
		jsr	-$54(a6)
		move.l	d0,d7
		move.l	d7,d1
		lea	16(sp),a0
		move.l	a0,d2
		jsr	-$66(a6)
		tst.l	d0
		beq.b	lbC00209A
		move.l	d7,d1
		jsr	-$6C(a6)
		tst.l	d0
		beq.b	lbC002094
		pea	$18(sp)
		pea	s.MSG0(pc)
		pea	$50B(a4)
		bsr.w	lbC003B8C
		move.l	d7,d1
		jsr	-$5A(a6)
		lea	12(sp),sp
		moveq	#15,d0
		bra.b	lbC00209C
lbC002094:
		move.l	d7,d1
		jsr	-$5A(a6)
lbC00209A:
		moveq	#-15,d0
lbC00209C:
		movem.l	(sp)+,d2/d7/a5/a6
		adda.w	#$104,sp
		rts

	 ********************************

lbC0020A6:
		suba.w	#$19C,sp
		movem.l	d2/d3/d5-d7/a2/a3/a5/a6,-(sp)
		move.l	$1CC(sp),d7
		move.l	$1C8(sp),a3
		move.l	$1C4(sp),a5
		moveq	#0,d6
		moveq	#0,d5
		clr.w	$1BC(sp)
		move.l	a5,a0
		lea	$24(sp),a1
lbC0020C8:
		move.b	(a0)+,(a1)+
		bne.b	lbC0020C8
		move.l	a3,a0
		lea	$F4(sp),a1
lbC0020D2:
		move.b	(a0)+,(a1)+
		bne.b	lbC0020D2
		lea	$F4(sp),a0
		move.l	a0,a1
lbC0020DC:
		tst.b	(a1)+
		bne.b	lbC0020DC
		subq.l	#1,a1
		suba.l	a0,a1
		move.l	a1,d0
		subq.l	#1,d0
		move.l	a0,a1
		adda.l	d0,a1
		movem.l	d0,$F0(sp)
		moveq	#$3A,d1
		cmp.b	(a1),d1
		beq.b	lbC002100
		adda.l	d0,a0
		moveq	#$2F,d0
		cmp.b	(a0),d0
		bne.b	lbC002140
lbC002100:
		clr.l	$F0(sp)
lbC002104:
		move.l	$F0(sp),d0
		tst.b	$24(sp,d0.l)
		beq.b	lbC00212C
		moveq	#$3A,d1
		cmp.b	$24(sp,d0.l),d1
		beq.b	lbC00211E
		moveq	#$2F,d1
		cmp.b	$24(sp,d0.l),d1
		bne.b	lbC002126
lbC00211E:
		move.l	d0,d1
		addq.l	#1,d1
		move.l	d1,$EC(sp)
lbC002126:
		addq.l	#1,$F0(sp)
		bra.b	lbC002104
lbC00212C:
		lea	$24(sp),a0
		adda.l	$EC(sp),a0
		move.l	a0,-(sp)
		pea	$F8(sp)
		bsr.w	lbC0035A8
		addq.w	#8,sp
lbC002140:
		pea	$24(sp)
		bsr.w	lbC0013F2
		addq.w	#4,sp
		move.l	d0,$EC(sp)
		tst.l	d0
		beq.w	lbC00222A
lbC002154:
		move.l	$EC(sp),d0
		addq.l	#2,d0
		move.l	d0,-(sp)
		bsr.w	lbC0037E0
		move.l	d0,a2
		addq.w	#4,sp
		move.l	a2,d0
		bne.b	lbC002182
		move.l	$EC(sp),d0
		moveq	#$64,d1
		add.l	d1,d1
		cmp.l	d1,d0
		ble.b	lbC002182
		tst.l	d0
		bpl.b	lbC00217A
		addq.l	#1,d0
lbC00217A:
		asr.l	#1,d0
		move.l	d0,$EC(sp)
		bra.b	lbC002154
lbC002182:
		move.l	a2,d0
		beq.w	lbC00222A
		lea	$24(sp),a0
		move.l	a0,d1
		move.l	$2FC(a4),a6
		move.l	#$3ED,d2
		jsr	-$1E(a6)
		move.l	d0,d6
		tst.l	d6
		beq.w	lbC002222
		lea	$F4(sp),a0
		move.l	a0,d1
		move.l	#$3EE,d2
		jsr	-$1E(a6)
		move.l	d0,d5
		tst.l	d5
		beq.b	lbC0021F0
lbC0021BA:
		move.l	d6,d1
		move.l	a2,d2
		move.l	$EC(sp),d3
		move.l	$2FC(a4),a6
		jsr	-$2A(a6)
		move.l	d0,$F0(sp)
		move.l	d0,d3
		move.l	d5,d1
		jsr	-$30(a6)
		move.l	$F0(sp),d0
		cmp.l	$EC(sp),d0
		beq.b	lbC0021BA
		move.w	#1,$1BC(sp)
		move.l	d5,d1
		move.l	$2FC(a4),a6
		jsr	-$24(a6)
lbC0021F0:
		move.l	d6,d1
		move.l	$2FC(a4),a6
		jsr	-$24(a6)
		moveq	#1,d0
		cmp.w	$1BC(sp),d0
		bne.b	lbC002222
		moveq	#10,d0
		cmp.l	d0,d7
		bne.b	lbC002222
		lea	$24(sp),a0
		move.l	a0,d1
		jsr	-$48(a6)
		tst.l	d0
		beq.b	lbC00221E
		move.w	#1,$1BC(sp)
		bra.b	lbC002222
lbC00221E:
		clr.w	$1BC(sp)
lbC002222:
		move.l	a2,-(sp)
		bsr.w	lbC003674
		addq.w	#4,sp
lbC00222A:
		move.w	$1BC(sp),d0
		movem.l	(sp)+,d2/d3/d5-d7/a2/a3/a5/a6
		adda.w	#$19C,sp
		rts

	 ********************************

lbC002238:
		suba.w	#$14,sp
		movem.l	d5-d7,-(sp)
		move.l	$24(sp),d7
		clr.l	$344(a4)
		moveq	#0,d6
lbC00224A:
		moveq	#13,d0
		cmp.b	d0,d6
		beq.w	lbC00230C
		move.l	$344(a4),d0
		cmp.l	d7,d0
		bgt.w	lbC00230C
		bsr.w	lbC001264
		move.l	d0,d6
		move.b	d6,d0
		ext.w	d0
		ext.l	d0
		lea	$105(a4),a0
		btst	#0,(a0,d0.l)
		beq.b	lbC002280
		move.b	d6,d0
		ext.w	d0
		ext.l	d0
		moveq	#32,d1
		add.l	d1,d0
		bra.b	lbC002286
lbC002280:
		move.b	d6,d0
		ext.w	d0
		ext.l	d0
lbC002286:
		moveq	#$61,d1
		cmp.l	d1,d0
		bne.b	lbC002292
		move.l	$344(a4),d0
		beq.b	lbC002298
lbC002292:
		moveq	#-1,d0
		cmp.b	d0,d6
		bne.b	lbC00229C
lbC002298:
		moveq	#-3,d0
		bra.b	lbC002316
lbC00229C:
		move.l	d6,d0
		subq.b	#8,d0
		bne.b	lbC0022BE
		move.l	$344(a4),d0
		tst.l	d0
		ble.b	lbC0022BE
		pea	3
		pea	ascii.MSG2(pc)
		bsr.w	lbC0011A4
		addq.w	#8,sp
		subq.l	#1,$344(a4)
		bra.b	lbC0022FE
lbC0022BE:
		move.b	d6,d5
		ext.w	d5
		ext.l	d5
		btst	#2,(a0,d5.l)
		beq.b	lbC0022FE
		move.l	$344(a4),a0
		move.l	a0,d0
		move.b	d6,12(sp,d0.l)
		move.b	d6,d0
		ext.w	d0
		ext.l	d0
		move.l	d0,-(sp)
		pea	c.MSG(pc)
		pea	$1E(sp)
		bsr.w	lbC003B8C
		pea	3
		pea	$26(sp)
		bsr.w	lbC0011A4
		lea	$14(sp),sp
		addq.l	#1,$344(a4)
lbC0022FE:
		move.l	$344(a4),a0
		move.l	a0,d0
		clr.b	12(sp,d0.l)
		bra.w	lbC00224A
lbC00230C:
		pea	12(sp)
		bsr.w	lbC003B1C
		addq.w	#4,sp
lbC002316:
		movem.l	(sp)+,d5-d7
		adda.w	#$14,sp
		rts

	 ********************************

lbC002320:
		subq.w	#4,sp
		movem.l	a2/a3/a5,-(sp)
		move.l	$18(sp),a3
		move.l	$14(sp),a5
		move.l	a5,a2
		move.l	a3,12(sp)
lbC002334:
		move.b	(a2),d0
		beq.b	lbC002354
		move.l	12(sp),a0
		move.b	(a0),d1
		sub.b	d1,(a2)
		addq.l	#1,a2
		addq.l	#1,12(sp)
		move.l	12(sp),a0
		tst.b	(a0)
		bne.b	lbC002334
		move.l	a3,12(sp)
		bra.b	lbC002334
lbC002354:
		movem.l	(sp)+,a2/a3/a5
		addq.w	#4,sp
		rts

	 ********************************

lbC00235C:
		suba.w	#$28,sp
		move.l	d7,-(sp)
		move.b	$33(sp),d7
		pea	4(sp)
		bsr.w	lbC0034F8
		pea	8(sp)
		bsr.w	lbC003384
		addq.w	#8,sp
		move.l	d0,a0
		lea	8(sp),a1
		moveq	#8,d1
lbC002380:
		move.l	(a0)+,(a1)+
		dbf	d1,lbC002380
		moveq	#$55,d0
		cmp.b	d0,d7
		bne.b	lbC0023AC
		move.l	$18(sp),d0
		addq.l	#1,d0
		move.l	$1C(sp),-(sp)
		move.l	$18(sp),-(sp)
		move.l	d0,-(sp)
		pea	d02d02d.MSG(pc)
		pea	$2086(a4)
		bsr.w	lbC003B8C
		lea	$14(sp),sp
lbC0023AC:
		move.l	(sp)+,d7
		adda.w	#$28,sp
		rts

	 ********************************

lbC0023B4:
		subq.w	#8,sp
		movem.l	a2/a3/a5/a6,-(sp)
		move.l	$1C(sp),a5
		lea	iconlibrary.MSG(pc),a1
		moveq	#0,d0
		move.l	4.w,a6
		jsr	-$228(a6)
		move.l	d0,a3
		move.l	a3,d0
		beq.w	lbC0024A8
		move.l	a5,a0
		move.l	a3,a6
		jsr	-$4E(a6)
		move.l	d0,a2
		move.l	a2,d0
		beq.w	lbC00249C
		move.l	$36(a2),a0
		move.l	a0,$14(sp)
		lea	VIEW_ADD.MSG(pc),a1
		jsr	-$60(a6)
		move.l	d0,16(sp)
		beq.b	lbC002406
		move.l	d0,-(sp)
		bsr.w	lbC003B1C
		move.l	d0,0(a4)
		addq.w	#4,sp
lbC002406:
		move.l	$14(sp),a0
		lea	ENTER_ADD.MSG(pc),a1
		jsr	-$60(a6)
		move.l	d0,16(sp)
		beq.b	lbC002424
		move.l	d0,-(sp)
		bsr.w	lbC003B1C
		move.l	d0,4(a4)
		addq.w	#4,sp
lbC002424:
		move.l	$14(sp),a0
		lea	REMOVE_ADD.MSG(pc),a1
		jsr	-$60(a6)
		move.l	d0,16(sp)
		beq.b	lbC002442
		move.l	d0,-(sp)
		bsr.w	lbC003B1C
		move.l	d0,8(a4)
		addq.w	#4,sp
lbC002442:
		move.l	$14(sp),a0
		lea	DL_ADDS.MSG(pc),a1
		jsr	-$60(a6)
		move.l	d0,16(sp)
		beq.b	lbC002460
		move.l	d0,-(sp)
		bsr.w	lbC003B1C
		move.l	d0,12(a4)
		addq.w	#4,sp
lbC002460:
		move.l	$14(sp),a0
		lea	PACK_PATH.MSG(pc),a1
		jsr	-$60(a6)
		move.l	d0,16(sp)
		beq.b	lbC00247C
		move.l	d0,a0
		lea	$358(a4),a1
lbC002478:
		move.b	(a0)+,(a1)+
		bne.b	lbC002478
lbC00247C:
		pea	lbW0003B8(pc)
		pea	$358(a4)
		bsr.w	lbC002774
		addq.w	#8,sp
		tst.l	d0
		bne.b	lbC0024B2
		lea	RAM.MSG(pc),a0
		lea	$358(a4),a1
		move.l	(a0)+,(a1)+
		clr.b	(a1)
		bra.b	lbC0024B2
lbC00249C:
		pea	Errorcantfoun.MSG(pc)
		bsr.w	lbC001F70
		addq.w	#4,sp
		bra.b	lbC0024B2
lbC0024A8:
		pea	Errornotenoug.MSG(pc)
		bsr.w	lbC001F70
		addq.w	#4,sp
lbC0024B2:
		move.l	a2,d0
		beq.b	lbC0024BE
		move.l	a2,a0
		move.l	a3,a6
		jsr	-$5A(a6)
lbC0024BE:
		move.l	a3,d0
		beq.b	lbC0024CC
		move.l	a3,a1
		move.l	4.w,a6
		jsr	-$19E(a6)
lbC0024CC:
		moveq	#0,d0
		movem.l	(sp)+,a2/a3/a5/a6
		addq.w	#8,sp
		rts

	 ********************************

		nop
		move.l	4(sp),a0
lbC0024DC:
		clr.l	4(a0)
		move.l	a0,8(a0)
		addq.l	#4,a0
		move.l	a0,-(a0)
		rts

	 ********************************

		dc.w	0
lbC0024EC:
		move.l	4(sp),a0
		move.l	8(sp),d0
		movem.l	d6/d7/a3/a5/a6,-(sp)
		move.l	d0,d7
		moveq	#-1,d0
		move.l	4.w,a6
		move.l	a0,a5
		jsr	-$14A(a6)
		moveq	#0,d6
		move.b	d0,d6
		tst.l	d6
		ble.b	lbC00255C
		moveq	#$22,d0
		move.l	#$10001,d1
		jsr	-$C6(a6)
		move.l	d0,a3
		tst.l	d0
		beq.b	lbC002556
		lea	10(a3),a0
		move.l	a5,(a0)+
		move.b	d7,9(a3)
		move.b	#4,8(a3)
		clr.b	(a0)+
		suba.l	a1,a1
		move.b	d6,(a0)+
		jsr	-$126(a6)
		move.l	d0,16(a3)
		move.l	a5,d0
		beq.b	lbC00254A
		move.l	a3,a1
		jsr	-$162(a6)
		bra.b	lbC002552
lbC00254A:
		lea	$14(a3),a0
		bsr.w	lbC0024DC
lbC002552:
		move.l	a3,d0
		bra.b	lbC00255E
lbC002556:
		move.l	d6,d0
		jsr	-$150(a6)
lbC00255C:
		moveq	#0,d0
lbC00255E:
		movem.l	(sp)+,d6/d7/a3/a5/a6
		rts

	 ********************************

lbC002564:
		move.l	4(sp),a0
		movem.l	a5/a6,-(sp)
		move.l	a0,a5
		tst.l	10(a5)
		beq.b	lbC00257E
		move.l	a5,a1
		move.l	4.w,a6
		jsr	-$168(a6)
lbC00257E:
		st.b	8(a5)
		moveq	#-1,d0
		move.l	d0,$14(a5)
		moveq	#0,d0
		move.b	15(a5),d0
		move.l	4.w,a6
		jsr	-$150(a6)
		move.l	a5,a1
		moveq	#$22,d0
		jsr	-$D2(a6)
		movem.l	(sp)+,a5/a6
		rts

	 ********************************

Jan.MSG:
		dc.b	"Jan",0
Feb.MSG:
		dc.b	"Feb",0
Mar.MSG:
		dc.b	"Mar",0
Apr.MSG:
		dc.b	"Apr",0
May.MSG:
		dc.b	"May",0
Jun.MSG:
		dc.b	"Jun",0
Jul.MSG:
		dc.b	"Jul",0
Aug.MSG:
		dc.b	"Aug",0
Sep.MSG:
		dc.b	"Sep",0
Oct.MSG:
		dc.b	"Oct",0
Nov.MSG:
		dc.b	"Nov",0
Dec.MSG:
		dc.b	"Dec",0
Sun.MSG:
		dc.b	"Sun",0
Mon.MSG:
		dc.b	"Mon",0
Tue.MSG:
		dc.b	"Tue",0
Wed.MSG:
		dc.b	"Wed",0
Thu.MSG:
		dc.b	"Thu",0
Fri.MSG:
		dc.b	"Fri",0
Sat.MSG:
		dc.b	"Sat",0

	 ********************************

lbC0025F0:
		move.l	d7,-(sp)
		moveq	#0,d7
		bra.b	lbC00260A
lbC0025F6:
		tst.b	$20C4(a4)
		bne.b	lbC002600
		tst.l	d7
		bne.b	lbC00260A
lbC002600:
		move.l	$208(a4),a1
		move.l	(a1),a0
		jsr	(a0)
		move.l	d0,d7
lbC00260A:
		addq.l	#4,$208(a4)
		move.l	$208(a4),a0
		tst.l	(a0)
		bne.b	lbC0025F6
		move.b	#1,$20C4(a4)
		move.l	d7,d0
		move.l	(sp)+,d7
		rts

	 ********************************

		nop
lbC002624:
		subq.w	#4,sp
		lea	lbL0049FC,a0
		move.l	a0,(sp)
		beq.b	lbC002640
		move.l	lbL0049F8,a0
		jsr	(a0)
		tst.l	d0
		beq.b	lbC002640
		moveq	#1,d0
		cmpi.w	#$7000,d0
lbC002640:	EQU	*-2
		addq.w	#4,sp
		rts

	 ********************************

lbC002646:
		subq.w	#4,sp
		lea	lbL004A04,a0
		move.l	a0,(sp)
		beq.b	lbC00265A
		move.l	lbL0049F8,a0
		jsr	(a0)
lbC00265A:
		addq.w	#4,sp
		rts

	 ********************************

		nop
lbC002660:
		movem.l	d7/a5,-(sp)
		move.l	12(sp),a5
		move.l	a5,a0
lbC00266A:
		tst.b	(a0)+
		bne.b	lbC00266A
		subq.l	#1,a0
		suba.l	a5,a0
		move.l	a0,d7
		bra.b	lbC00267E
lbC002676:
		lea	$232(a4),a0
		bsr.w	lbC003C64
lbC00267E:
		moveq	#0,d0
		move.b	(a5)+,d0
		tst.l	d0
		bne.b	lbC002676
		move.l	d7,d0
		movem.l	(sp)+,d7/a5
		rts

	 ********************************

		nop
lbC002690:
		suba.w	#16,sp
		movem.l	d4-d7/a3/a5,-(sp)
		lea	$30(sp),a5
		moveq	#0,d7
		bra.b	lbC00271A
lbC0026A0:
		moveq	#$25,d0
		cmp.b	d0,d4
		bne.b	lbC00270C
		move.l	$2C(sp),a0
		addq.l	#1,$2C(sp)
		move.b	(a0),d4
		moveq	#0,d0
		move.b	d4,d0
		moveq	#$64,d1
		sub.l	d1,d0
		beq.b	lbC0026F2
		moveq	#12,d1
		sub.l	d1,d0
		beq.b	lbC0026CE
		subq.l	#3,d0
		beq.b	lbC0026CA
		subq.l	#5,d0
		beq.b	lbC0026CE
		bra.b	lbC00270C
lbC0026CA:
		move.l	(a5)+,a3
		bra.b	lbC002700
lbC0026CE:
		move.l	(a5)+,d6
		moveq	#7,d5
		lea	$22(sp),a3
lbC0026D6:
		move.l	d6,d0
		moveq	#15,d1
		and.l	d1,d0
		lea	ABCDEF.MSG(pc),a0
		adda.l	d0,a0
		move.b	(a0),(a3)
		asr.l	#4,d6
		subq.l	#1,d5
		subq.l	#1,a3
		bpl.b	lbC0026D6
		clr.b	$23(sp)
		bra.b	lbC0026FC
lbC0026F2:
		move.l	(a5)+,d0
		lea	27(sp),a0
		bsr.w	lbC002854
lbC0026FC:
		lea	27(sp),a3
lbC002700:
		move.l	a3,-(sp)
		bsr.w	lbC002660
		addq.w	#4,sp
		add.l	d0,d7
		bra.b	lbC00271A
lbC00270C:
		addq.l	#1,d7
		moveq	#0,d0
		move.b	d4,d0
		lea	$232(a4),a0
		bsr.w	lbC003C64
lbC00271A:
		move.l	$2C(sp),a0
		addq.l	#1,$2C(sp)
		move.b	(a0),d4
		bne.w	lbC0026A0
		move.l	d7,d0
		movem.l	(sp)+,d4-d7/a3/a5
		adda.w	#16,sp
		rts

	 ********************************

ABCDEF.MSG:
		dc.b	"0123456789ABCDEF",0,0

	 ********************************

		nop
lbC002748:
		movem.l	a3/a5/a6,-(sp)
		move.l	$20C8(a4),a5
		bra.b	lbC002766
lbC002752:
		moveq	#$14,d0
		add.l	4(a5),d0
		move.l	a5,a1
		move.l	4.w,a6
		move.l	(a5),a3
		jsr	-$D2(a6)
		move.l	a3,a5
lbC002766:
		move.l	a5,d0
		bne.b	lbC002752
		clr.l	$20C8(a4)
		movem.l	(sp)+,a3/a5/a6
		rts

	 ********************************

lbC002774:
		move.l	4(sp),a0
		move.l	8(sp),a1
		moveq	#0,d0
		moveq	#0,d1
lbC002780:
		move.b	(a0)+,d0
		move.b	(a1)+,d1
		cmpi.b	#$61,d0
		blt.b	lbC002794
		cmpi.b	#$7A,d0
		bgt.b	lbC002794
		subi.b	#32,d0
lbC002794:
		cmpi.b	#$61,d1
		blt.b	lbC0027A4
		cmpi.b	#$7A,d1
		bgt.b	lbC0027A4
		subi.b	#32,d1
lbC0027A4:
		sub.l	d1,d0
		bne.b	lbC0027AC
		tst.b	d1
		bne.b	lbC002780
lbC0027AC:
		rts

	 ********************************

		dc.w	0

	 ********************************

		move.l	8(sp),d0
		move.l	4(sp),a0
lbC0027B8:
		link	a5,#-12
		move.l	sp,a1
lbC0027BE:
		moveq	#10,d1
		jsr	lbC0030EA(pc)
		addi.w	#$30,d1
		move.b	d1,(a1)+
		tst.l	d0
		bne.b	lbC0027BE
		move.l	a1,d0
lbC0027D0:
		move.b	-(a1),(a0)+
		cmp.l	a1,sp
		bne.b	lbC0027D0
		clr.b	(a0)
		sub.l	sp,d0
		unlk	a5
		rts

	 ********************************

		dc.w	0

	 ********************************

		move.l	8(sp),d0
		move.l	4(sp),a0
lbC0027E8:
		link	a5,#-12
		move.l	sp,a1
lbC0027EE:
		move.l	d0,d1
		andi.w	#7,d1
		addi.w	#$30,d1
		move.b	d1,(a1)+
		lsr.l	#3,d0
		bne.b	lbC0027EE
		move.l	a1,d0
lbC002800:
		move.b	-(a1),(a0)+
		cmp.l	a1,sp
		bne.b	lbC002800
		clr.b	(a0)
		sub.l	sp,d0
		unlk	a5
		rts

	 ********************************

		dc.w	0

	 ********************************

abcdef.MSG1:
		dc.b	"0123456789abcdef"

	 ********************************

		move.l	8(sp),d0
		move.l	4(sp),a0
lbC002828:
		subq.w	#8,sp
		move.l	sp,a1
lbC00282C:
		move.w	d0,d1
		andi.w	#15,d1
		move.b	abcdef.MSG1(pc,d1.w),(a1)+
		lsr.l	#4,d0
		bne.b	lbC00282C
		move.l	a1,d0
lbC00283C:
		move.b	-(a1),(a0)+
		cmp.l	a1,sp
		bne.b	lbC00283C
		clr.b	(a0)
		sub.l	a1,d0
		addq.w	#8,sp
		rts

	 ********************************

		dc.w	0

	 ********************************

		move.l	8(sp),d0
		move.l	4(sp),a0
lbC002854:
		move.l	a0,-(sp)
		tst.l	d0
		link	a5,#-12
		move.l	sp,a1
		bge.b	lbC002866
		move.b	#$2D,(a0)+
		neg.l	d0
lbC002866:
		moveq	#10,d1
		jsr	lbC0030EA(pc)
		addi.w	#$30,d1
		move.b	d1,(a1)+
		tst.l	d0
		bne.b	lbC002866
lbC002876:
		move.b	-(a1),(a0)+
		cmp.l	a1,sp
		bne.b	lbC002876
		clr.b	(a0)
		move.l	a0,d0
		unlk	a5
		sub.l	(sp)+,d0
		rts

	 ********************************

		dc.w	0

	 ********************************

		move.l	4(sp),a0
		move.l	8(sp),a1
lbC002890:
		movem.l	d2/d3/a2,-(sp)
		move.l	a0,a2
		moveq	#0,d1
		move.l	d1,d0
		move.l	d1,d3
		cmpi.b	#$2B,(a0)
		beq.b	lbC0028AA
		cmpi.b	#$2D,(a0)
		bne.b	lbC0028AC
		moveq	#1,d3
lbC0028AA:
		addq.w	#1,a0
lbC0028AC:
		move.b	(a0)+,d0
		subi.b	#$30,d0
		blt.b	lbC0028CE
		cmpi.b	#9,d0
		bgt.b	lbC0028CE
		move.l	d1,d2
		asl.l	#2,d1
		add.l	d2,d1
		add.l	d1,d1
		tst.b	d3
		bne.b	lbC0028CA
		add.l	d0,d1
		bra.b	lbC0028AC
lbC0028CA:
		sub.l	d0,d1
		bra.b	lbC0028AC
lbC0028CE:
		move.l	d1,(a1)
		move.l	a0,d0
		sub.l	a2,d0
		subq.l	#1,d0
		movem.l	(sp)+,d2/d3/a2
		rts

	 ********************************

lbC0028DC:
		rts
		nop

	 ********************************

lbC0028E0:
		suba.w	#$3C,sp
		movem.l	d2/a5/a6,-(sp)
		lea	$210(a4),a0
		move.l	a0,$20FC(a4)
		lea	$20DC(a4),a0
		move.l	a0,$20CC(a4)
		lea	$20EC(a4),a0
		move.l	a0,$20DC(a4)
		clr.l	$20EC(a4)
		lea	$20CC(a4),a0
		move.l	a0,$280(a4)
		clr.l	$20D8(a4)
		clr.l	$20E8(a4)
		clr.l	$20F8(a4)
		move.l	#$8011,$20D0(a4)
		move.l	#$8012,$20E0(a4)
		move.l	#$8016,$20F0(a4)
		move.l	$2FC(a4),a6
		jsr	-$3C(a6)
		tst.l	d0
		bne.w	lbC002A42
		tst.l	$20A4(a4)
		beq.b	lbC002954
		move.l	$20A4(a4),a0
		tst.l	32(a0)
		beq.b	lbC002954
		move.l	32(a0),d1
		bra.b	lbC0029CC
lbC002954:
		lea	$2A4(a4),a5
		moveq	#0,d1
		bra.b	lbC002962
lbC00295C:
		move.b	(a5)+,14(sp,d1.l)
		addq.l	#1,d1
lbC002962:
		tst.b	(a5)
		beq.b	lbC00296C
		moveq	#$27,d0
		cmp.l	d0,d1
		blt.b	lbC00295C
lbC00296C:
		moveq	#$2F,d0
		cmp.b	13(sp,d1.l),d0
		bne.b	lbC00299C
		lea	Output.MSG(pc),a5
		tst.l	$20A4(a4)
		beq.b	lbC002992
		move.l	$20A4(a4),a1
		move.l	$24(a1),a0
		move.l	4(a0),a5
		bra.b	lbC002992
lbC00298C:
		move.b	(a5)+,14(sp,d1.l)
		addq.l	#1,d1
lbC002992:
		tst.b	(a5)
		beq.b	lbC00299C
		moveq	#$27,d0
		cmp.l	d0,d1
		blt.b	lbC00298C
lbC00299C:
		move.l	$300(a4),a0
		cmpi.w	#$24,$14(a0)
		bcs.b	lbC0029BE
		lea	$290(a4),a5
		bra.b	lbC0029B4
lbC0029AE:
		move.b	(a5)+,14(sp,d1.l)
		addq.l	#1,d1
lbC0029B4:
		tst.b	(a5)
		beq.b	lbC0029BE
		moveq	#$27,d0
		cmp.l	d0,d1
		blt.b	lbC0029AE
lbC0029BE:
		clr.b	14(sp,d1.l)
		lea	14(sp),a0
		move.l	a0,d1
		move.l	$2FC(a4),a6
lbC0029CC:
		move.l	#$3EE,d2
		jsr	-$1E(a6)
		move.l	d0,$20D4(a4)
		tst.l	$20D4(a4)
		bne.b	lbC0029F8
		lea	NIL.MSG(pc),a0
		move.l	a0,d1
		move.l	#$3EE,d2
		move.l	$2FC(a4),a6
		jsr	-$1E(a6)
		move.l	d0,$20D4(a4)
lbC0029F8:
		bset	#2,$20D3(a4)
		suba.l	a1,a1
		move.l	$20D4(a4),d0
		asl.l	#2,d0
		move.l	4.w,a6
		move.l	d0,a5
		jsr	-$126(a6)
		move.l	d0,a0
		move.l	8(a5),$A4(a0)
		lea	lbC002ACC(pc),a0
		move.l	a0,d1
		move.l	#$3ED,d2
		move.l	$2FC(a4),a6
		jsr	-$1E(a6)
		move.l	d0,$20E4(a4)
		bne.b	lbC002A76
		lea	NIL.MSG(pc),a0
		move.l	a0,d1
		jsr	-$1E(a6)
		move.l	d0,$20E4(a4)
		bra.b	lbC002A76
lbC002A42:
		move.l	$2FC(a4),a6
		jsr	-$36(a6)
		move.l	d0,$20D4(a4)
		jsr	-$3C(a6)
		move.l	d0,$20E4(a4)
		lea	lbC002ACC(pc),a0
		move.l	a0,d1
		move.l	#$3ED,d2
		jsr	-$1E(a6)
		move.l	d0,$20F4(a4)
		bne.b	lbC002A7A
		lea	NIL.MSG(pc),a0
		move.l	a0,d1
		jsr	-$1E(a6)
lbC002A76:
		move.l	d0,$20F4(a4)
lbC002A7A:
		addq.l	#3,$27C(a4)
		moveq	#0,d0
		tst.l	$284(a4)
		bne.b	lbC002A8C
		move.l	#$8000,d0
lbC002A8C:
		clr.l	$22C(a4)
		move.l	d0,d1
		ori.w	#1,d1
		move.l	d1,$228(a4)
		moveq	#1,d1
		move.l	d1,$24E(a4)
		ori.w	#$42,d0
		move.l	d0,$24A(a4)
		moveq	#2,d1
		move.l	d1,$270(a4)
		move.l	d0,$26C(a4)
		moveq	#0,d0
		movem.l	(sp)+,d2/a5/a6
		adda.w	#$3C,sp
		rts

	 ********************************

Output.MSG:
		dc.b	"Output",0,0
NIL.MSG:
		dc.b	"NIL:",0,0

	 ********************************

lbC002ACC:
		move.l	d0,d5
		nop
		move.l	4(sp),a0
lbC002AD4:
		move.l	a5,-(sp)
		move.l	a0,a5
		btst	#3,27(a5)
		bne.b	lbC002B10
		move.l	$278(a4),d0
		bsr.w	lbC0037E4
		move.l	d0,4(a5)
		move.l	d0,16(a5)
		bne.b	lbC002AFC
		moveq	#12,d0
		move.l	d0,$20A8(a4)
		moveq	#-1,d0
		bra.b	lbC002B12
lbC002AFC:
		move.l	$278(a4),$14(a5)
		moveq	#-13,d0
		and.l	d0,$18(a5)
		clr.l	12(a5)
		clr.l	8(a5)
lbC002B10:
		moveq	#0,d0
lbC002B12:
		move.l	(sp)+,a5
		rts

	 ********************************

		nop
		move.l	4(sp),a0
lbC002B1C:
		move.l	a3,-(sp)
		move.l	a0,a1
		move.l	a1,a3
		bra.b	lbC002B44
lbC002B24:
		lea	$105(a4),a0
		moveq	#0,d0
		move.b	(a3),d0
		btst	#1,(a0,d0.l)
		beq.b	lbC002B3E
		moveq	#0,d1
		move.b	d0,d1
		moveq	#32,d0
		sub.l	d0,d1
		bra.b	lbC002B42
lbC002B3E:
		moveq	#0,d1
		move.b	d0,d1
lbC002B42:
		move.b	d1,(a3)+
lbC002B44:
		tst.b	(a3)
		bne.b	lbC002B24
		move.l	a1,d0
		move.l	(sp)+,a3
		rts

	 ********************************

		nop
lbC002B50:
		movem.l	d6/d7/a5/a6,-(sp)
		moveq	#1,d0
		move.l	d0,$F0(a4)
		move.l	$20FC(a4),a5
		bra.b	lbC002B84
lbC002B60:
		moveq	#6,d0
		and.l	$18(a5),d0
		subq.l	#2,d0
		bne.b	lbC002B82
		move.l	4(a5),d0
		sub.l	16(a5),d0
		beq.b	lbC002B82
		move.l	$1C(a5),d1
		exg.l	d0,d1
		move.l	16(a5),a0
		bsr.w	lbC002BD8
lbC002B82:
		move.l	(a5),a5
lbC002B84:
		move.l	a5,d0
		bne.b	lbC002B60
		move.l	$280(a4),a5
		moveq	#0,d7
		bra.b	lbC002BC0
lbC002B90:
		move.l	4(a5),d6
		tst.b	d6
		beq.b	lbC002BAA
		btst	#4,d6
		bne.b	lbC002BAA
		move.w	d7,d0
		ext.l	d0
		move.l	$2100(a4),a0
		jsr	(a0)
		bra.b	lbC002BBC
lbC002BAA:
		btst	#2,d6
		beq.b	lbC002BBC
		move.l	8(a5),d1
		move.l	$2FC(a4),a6
		jsr	-$24(a6)
lbC002BBC:
		addq.w	#1,d7
		move.l	(a5),a5
lbC002BC0:
		move.l	a5,d0
		bne.b	lbC002B90
		movem.l	(sp)+,d6/d7/a5/a6
		rts

	 ********************************

		nop
		move.l	4(sp),d0
		move.l	12(sp),d1
		move.l	8(sp),a0
lbC002BD8:
		subq.w	#4,sp
		movem.l	d2/d3/d7/a2/a3/a5/a6,-(sp)
		move.l	d1,d7
		move.l	d0,d2
		move.l	d0,$1C(sp)
		move.l	a0,a5
		bsr.w	lbC0028DC
		move.l	d2,d0
		bsr.w	lbC0032A4
		move.l	d0,a3
		tst.l	d0
		bne.b	lbC002BFE
		moveq	#$16,d0
		bra.w	lbC002CC4
lbC002BFE:
		btst	#1,7(a3)
		bne.b	lbC002C14
		move.l	#$DF,$209C(a4)
		moveq	#5,d0
		bra.w	lbC002CC4
lbC002C14:
		btst	#5,7(a3)
		beq.b	lbC002C2A
		pea	2
		move.l	d2,d0
		moveq	#0,d1
		bsr.w	lbC002DDE
		addq.w	#4,sp
lbC002C2A:
		btst	#6,7(a3)
		beq.b	lbC002C42
		move.l	d7,d1
		moveq	#10,d0
		move.l	a5,a0
		bsr.w	lbC003590
		move.l	d0,a2
		tst.l	d0
		bne.b	lbC002C5C
lbC002C42:
		move.l	8(a3),d1
		move.l	a5,d2
		move.l	d7,d3
		move.l	$2FC(a4),a6
		jsr	-$30(a6)
		move.l	d0,d1
		addq.l	#1,d0
		beq.b	lbC002CB4
		move.l	d1,d0
		bra.b	lbC002CCA
lbC002C5C:
		move.l	a2,d3
		move.l	a5,d2
		sub.l	d2,d3
		move.l	8(a3),d1
		move.l	$2FC(a4),a6
		jsr	-$30(a6)
		addq.l	#1,d0
		beq.b	lbC002CB4
		lea	lbC002CD2(pc),a0
		sub.l	d3,d7
		move.l	8(a3),d1
		move.l	a0,d2
		moveq	#1,d3
		jsr	-$30(a6)
		move.l	a2,a5
		addq.l	#1,d0
		beq.b	lbC002CB4
		lea	1(a5),a0
		move.l	d7,d1
		moveq	#10,d0
		bsr.w	lbC003590
		move.l	d0,a2
		move.l	a2,d0
		bne.b	lbC002C5C
		move.l	8(a3),d1
		move.l	a5,d2
		move.l	d7,d3
		move.l	$2FC(a4),a6
		jsr	-$30(a6)
		addq.l	#1,d0
		beq.b	lbC002CB4
		move.l	d3,d0
		bra.b	lbC002CCA
lbC002CB4:
		move.l	$2FC(a4),a6
		jsr	-$84(a6)
		move.l	d0,$209C(a4)
		bsr.w	lbC004928
lbC002CC4:
		move.l	d0,$20A8(a4)
		moveq	#-1,d0
lbC002CCA:
		movem.l	(sp)+,d2/d3/d7/a2/a3/a5/a6
		addq.w	#4,sp
		rts

	 ********************************

lbC002CD2:
		btst	d6,d0
		move.l	4(sp),d0
		move.l	12(sp),d1
		move.l	8(sp),a0
lbC002CE0:
		subq.w	#8,sp
		movem.l	d2/d3/d6/a2/a3/a5/a6,-(sp)
		move.l	d1,d3
		move.l	d0,d6
		move.l	d0,$1C(sp)
		move.l	a0,32(sp)
		bsr.w	lbC0028DC
		move.l	d6,d0
		bsr.w	lbC0032A4
		move.l	d0,a5
		tst.l	d0
		bne.b	lbC002D0E
		moveq	#$16,d0
		move.l	d0,$20A8(a4)
		moveq	#-1,d0
		bra.w	lbC002DC6
lbC002D0E:
		btst	#0,7(a5)
		bne.b	lbC002D2A
		move.l	#$E0,$209C(a4)
		moveq	#5,d0
		move.l	d0,$20A8(a4)
		moveq	#-1,d0
		bra.w	lbC002DC6
lbC002D2A:
		clr.l	$209C(a4)
		move.l	32(sp),a3
		move.l	8(a5),d1
		move.l	a3,d2
		move.l	$2FC(a4),a6
		jsr	-$2A(a6)
		move.l	d0,d6
		addq.l	#1,d0
		bne.b	lbC002D5A
		jsr	-$84(a6)
		move.l	d0,$209C(a4)
		bsr.w	lbC004928
		move.l	d0,$20A8(a4)
		moveq	#-1,d0
		bra.b	lbC002DC6
lbC002D5A:
		tst.l	d6
		beq.b	lbC002D66
		btst	#6,7(a5)
		bne.b	lbC002D6A
lbC002D66:
		move.l	d6,d0
		bra.b	lbC002DC6
lbC002D6A:
		move.l	a3,a2
		adda.l	d6,a2
		moveq	#13,d0
		cmp.b	-1(a2),d0
		bne.b	lbC002D80
		move.l	8(a5),d1
		moveq	#1,d3
		jsr	-$2A(a6)
lbC002D80:
		move.l	d2,a0
		move.l	d6,d1
		moveq	#13,d0
		bsr.w	lbC003590
		move.l	d0,a0
		tst.l	d0
		beq.b	lbC002DAE
		lea	1(a0),a3
		bra.b	lbC002DA2
lbC002D96:
		move.b	(a3),d0
		moveq	#13,d1
		cmp.b	d1,d0
		beq.b	lbC002DA0
		move.b	d0,(a0)+
lbC002DA0:
		addq.l	#1,a3
lbC002DA2:
		cmp.l	a2,a3
		bcs.b	lbC002D96
		move.l	32(sp),a3
		move.l	a0,d6
		sub.l	a3,d6
lbC002DAE:
		move.l	d6,d1
		moveq	#$1A,d0
		move.l	a3,a0
		bsr.w	lbC003590
		move.l	d0,a0
		tst.l	d0
		bne.b	lbC002DC2
		move.l	d6,d0
		bra.b	lbC002DC6
lbC002DC2:
		move.l	a0,d0
		sub.l	a3,d0
lbC002DC6:
		movem.l	(sp)+,d2/d3/d6/a2/a3/a5/a6
		addq.w	#8,sp
		rts

	 ********************************

		nop
		move.l	4(sp),d0
		move.l	8(sp),d1
		move.l	12(sp),4(sp)
lbC002DDE:
		subq.w	#4,sp
		movem.l	d2/d3/d6/d7/a5/a6,-(sp)
		move.l	32(sp),d6
		move.l	d1,d7
		move.l	d0,d2
		move.l	d0,$18(sp)
		bsr.w	lbC0028DC
		move.l	d2,d0
		bsr.w	lbC0032A4
		move.l	d0,a5
		tst.l	d0
		bne.b	lbC002E0A
		moveq	#$16,d0
		move.l	d0,$20A8(a4)
		moveq	#-1,d0
		bra.b	lbC002E60
lbC002E0A:
		clr.l	$209C(a4)
		move.l	d6,d3
		subq.l	#1,d3
		move.l	8(a5),d1
		move.l	d7,d2
		move.l	$2FC(a4),a6
		jsr	-$42(a6)
		move.l	d0,d1
		addq.l	#1,d0
		bne.b	lbC002E38
		jsr	-$84(a6)
		move.l	d0,$209C(a4)
		moveq	#5,d0
		move.l	d0,$20A8(a4)
		moveq	#-1,d0
		bra.b	lbC002E60
lbC002E38:
		move.l	d6,d0
		beq.b	lbC002E46
		subq.l	#1,d0
		beq.b	lbC002E4A
		subq.l	#1,d0
		beq.b	lbC002E50
		bra.b	lbC002E60
lbC002E46:
		move.l	d7,d0
		bra.b	lbC002E60
lbC002E4A:
		move.l	d1,d0
		add.l	d7,d0
		bra.b	lbC002E60
lbC002E50:
		move.l	8(a5),d1
		moveq	#0,d2
		move.l	d2,d3
		move.l	$2FC(a4),a6
		jsr	-$42(a6)
lbC002E60:
		movem.l	(sp)+,d2/d3/d6/d7/a5/a6
		addq.w	#4,sp
		rts

	 ********************************

		move.l	4(sp),d0
lbC002E6C:
		movem.l	d7/a5/a6,-(sp)
		move.l	d0,d7
		bsr.w	lbC0028DC
		move.l	d7,d0
		bsr.w	lbC0032A4
		move.l	d0,a5
		tst.l	d0
		bne.b	lbC002E86
		moveq	#-1,d0
		bra.b	lbC002ED2
lbC002E86:
		moveq	#$14,d0
		and.l	4(a5),d0
		moveq	#16,d1
		cmp.l	d1,d0
		bne.b	lbC002E9A
		moveq	#0,d0
		move.l	d0,4(a5)
		bra.b	lbC002ED2
lbC002E9A:
		tst.l	4(a5)
		bne.b	lbC002EA4
		moveq	#-1,d0
		bra.b	lbC002ED2
lbC002EA4:
		move.l	8(a5),d1
		move.l	$2FC(a4),a6
		jsr	-$24(a6)
		btst	#7,7(a5)
		beq.b	lbC002EC0
		move.l	12(a5),a0
		bsr.w	lbC0048F8
lbC002EC0:
		move.l	12(a5),d0
		beq.b	lbC002ECC
		move.l	d0,a0
		bsr.w	lbC003678
lbC002ECC:
		clr.l	4(a5)
		moveq	#0,d0
lbC002ED2:
		movem.l	(sp)+,d7/a5/a6
		rts

	 ********************************

lbC002ED8:
		subq.w	#4,sp
		movem.l	d2/d4-d7/a2/a3/a5/a6,-(sp)
		move.l	$2C(sp),a5
		moveq	#0,d7
		move.b	#1,$27(sp)
		lea	lbC002E6C(pc),a0
		move.l	a0,$2100(a4)
		bsr.w	lbC0028DC
		move.l	$280(a4),a3
		move.l	a3,a2
		moveq	#0,d1
		bra.b	lbC002F06
lbC002F00:
		move.l	a3,a2
		addq.l	#1,d1
		move.l	(a2),a3
lbC002F06:
		move.l	a3,d0
		beq.b	lbC002F10
		tst.l	4(a3)
		bne.b	lbC002F00
lbC002F10:
		move.l	a3,d0
		bne.b	lbC002F42
		moveq	#16,d0
		bsr.w	lbC0037E4
		move.l	d0,a3
		tst.l	d0
		bne.b	lbC002F26
		moveq	#12,d0
		bra.w	lbC0030AA
lbC002F26:
		clr.l	(a3)
		clr.l	4(a3)
		move.l	a2,d0
		bne.b	lbC002F36
		move.l	a3,$280(a4)
		cmpi.w	#$248B,d0
lbC002F36:	EQU	*-2
		move.l	$27C(a4),d5
		addq.l	#1,$27C(a4)
		cmpi.w	#$2A01,d0
lbC002F42:	EQU	*-2
		move.l	a5,a0
lbC002F46:
		tst.b	(a0)+
		bne.b	lbC002F46
		subq.l	#1,a0
		suba.l	a5,a0
		move.l	a0,d0
		addq.l	#1,d0
		bsr.w	lbC0037E4
		move.l	d0,12(a3)
		bne.b	lbC002F6C
		moveq	#12,d1
		move.l	d1,$20A8(a4)
		moveq	#$67,d0
		move.l	d0,$209C(a4)
		bra.w	lbC0030AE
lbC002F6C:
		move.l	a5,a0
		move.l	12(a3),a1
lbC002F72:
		move.b	(a0)+,(a1)+
		bne.b	lbC002F72
		moveq	#3,d0
		and.l	$30(sp),d0
		beq.b	lbC002F8C
		subq.l	#1,d0
		beq.b	lbC002FA2
		subq.l	#1,d0
		beq.b	lbC002FA6
		subq.l	#1,d0
		beq.b	lbC002F98
		bra.b	lbC002FA8
lbC002F8C:
		move.l	#$708,d0
		and.l	$30(sp),d0
		beq.b	lbC002F9E
lbC002F98:
		moveq	#$16,d0
		bra.w	lbC0030AA
lbC002F9E:
		moveq	#1,d7
		bra.b	lbC002FA8
lbC002FA2:
		moveq	#2,d7
		cmpi.w	#$7E03,d0
lbC002FA6:	EQU	*-2
lbC002FA8:
		btst	#3,$33(sp)
		beq.b	lbC002FB4
		bset	#5,d7
lbC002FB4:
		btst	#6,50(sp)
		beq.b	lbC002FC0
		bset	#6,d7
lbC002FC0:
		btst	#5,50(sp)
		beq.b	lbC002FCC
		bset	#7,d7
lbC002FCC:
		btst	#0,50(sp)
		beq.b	lbC00301E
		move.l	a5,d1
		moveq	#-2,d2
		move.l	$2FC(a4),a6
		jsr	-$54(a6)
		move.l	d0,d6
		beq.b	lbC00301E
		btst	#2,50(sp)
		beq.b	lbC003004
		move.l	d6,d1
		jsr	-$5A(a6)
		moveq	#$11,d0
		move.l	d0,$20A8(a4)
		move.l	12(a3),a0
		bsr.w	lbC003678
		bra.w	lbC0030AE
lbC003004:
		btst	#1,50(sp)
		beq.b	lbC003012
		clr.b	$27(sp)
		bra.b	lbC003018
lbC003012:
		bclr	#0,50(sp)
lbC003018:
		move.l	d6,d1
		jsr	-$5A(a6)
lbC00301E:
		btst	#0,50(sp)
		beq.b	lbC003054
		move.l	a5,d1
		move.l	#$3EE,d2
		move.l	$2FC(a4),a6
		jsr	-$1E(a6)
		move.l	d0,d4
		beq.b	lbC00308A
		move.l	$288(a4),d0
		not.l	d0
		moveq	#-16,d1
		eor.l	d1,d0
		tst.b	$27(sp)
		beq.b	lbC00307E
		move.l	a5,d1
		move.l	d0,d2
		jsr	-$BA(a6)
		bra.b	lbC00307E
lbC003054:
		move.l	#$3ED,d6
		btst	#1,d7
		beq.b	lbC00306E
		btst	#4,50(sp)
		beq.b	lbC00306E
		move.l	#$3EC,d6
lbC00306E:
		move.l	a5,d1
		move.l	d6,d2
		move.l	$2FC(a4),a6
		jsr	-$1E(a6)
		move.l	d0,d4
		beq.b	lbC00308A
lbC00307E:
		move.l	d7,4(a3)
		move.l	d4,8(a3)
		move.l	d5,d0
		bra.b	lbC0030B0
lbC00308A:
		move.l	$2FC(a4),a6
		jsr	-$84(a6)
		move.l	d0,$209C(a4)
		move.l	12(a3),d0
		beq.b	lbC0030A2
		move.l	d0,a0
		bsr.w	lbC003678
lbC0030A2:
		move.l	$209C(a4),d0
		bsr.w	lbC004928
lbC0030AA:
		move.l	d0,$20A8(a4)
lbC0030AE:
		moveq	#-1,d0
lbC0030B0:
		movem.l	(sp)+,d2/d4-d7/a2/a3/a5/a6
		addq.w	#4,sp
		rts

	 ********************************

lbC0030B8:
		tst.l	d0
		bpl.w	lbC0030DA
		neg.l	d0
		tst.l	d1
		bpl.w	lbC0030D0
		neg.l	d1
		bsr.w	lbC0030EA
		neg.l	d1
		rts
lbC0030D0:
		bsr.w	lbC0030EA
		neg.l	d0
		neg.l	d1
		rts
lbC0030DA:
		tst.l	d1
		bpl.w	lbC0030EA
		neg.l	d1
		bsr.w	lbC0030EA
		neg.l	d0
		rts
lbC0030EA:
		move.l	d2,-(sp)
		swap.w	d1
		move.w	d1,d2
		bne.w	lbC003114
		swap.w	d0
		swap.w	d1
		swap.w	d2
		move.w	d0,d2
		beq.w	lbC003104
		divu.w	d1,d2
		move.w	d2,d0
lbC003104:
		swap.w	d0
		move.w	d0,d2
		divu.w	d1,d2
		move.w	d2,d0
		swap.w	d2
		move.w	d2,d1
		move.l	(sp)+,d2
		rts
lbC003114:
		move.l	d3,-(sp)
		moveq	#16,d3
		cmpi.w	#$80,d1
		bcc.w	lbC003124
		rol.l	#8,d1
		subq.w	#8,d3
lbC003124:
		cmpi.w	#$800,d1
		bcc.w	lbC003130
		rol.l	#4,d1
		subq.w	#4,d3
lbC003130:
		cmpi.w	#$2000,d1
		bcc.w	lbC00313C
		rol.l	#2,d1
		subq.w	#2,d3
lbC00313C:
		tst.w	d1
		bmi.w	lbC003146
		rol.l	#1,d1
		subq.w	#1,d3
lbC003146:
		move.w	d0,d2
		lsr.l	d3,d0
		swap.w	d2
		clr.w	d2
		lsr.l	d3,d2
		swap.w	d3
		divu.w	d1,d0
		move.w	d0,d3
		move.w	d2,d0
		move.w	d3,d2
		swap.w	d1
		mulu.w	d1,d2
		sub.l	d2,d0
		bcc.w	lbC003168
		subq.w	#1,d3
		add.l	d1,d0
lbC003168:
		moveq	#0,d1
		move.w	d3,d1
		swap.w	d3
		rol.l	d3,d0
		swap.w	d0
		exg.l	d0,d1
		move.l	(sp)+,d3
		move.l	(sp)+,d2
		rts

	 ********************************

		dc.w	0

	 ********************************

lbC00317C:
		movem.l	d1-d3,-(sp)
		move.l	d0,d2
		beq.b	lbC0031A4
		tst.l	d1
		bne.b	lbC00318C
		clr.l	d0
		bra.b	lbC0031A4
lbC00318C:
		move.l	d0,d3
		mulu.w	d1,d3
		swap.w	d2
		mulu.w	d1,d2
		swap.w	d2
		clr.w	d2
		add.l	d2,d3
		swap.w	d1
		mulu.w	d1,d0
		swap.w	d0
		clr.w	d0
		add.l	d3,d0
lbC0031A4:
		movem.l	(sp)+,d1-d3
		rts

	 ********************************

		dc.w	0

	 ********************************

		move.l	4(sp),d0
lbC0031B0:
		move.l	d0,-(sp)
		bsr.w	lbC0001C2
		addq.w	#4,sp
		rts

	 ********************************

		nop

	 ********************************

lbC0031BC:
		movem.l	a2/a3/a5,-(sp)
		move.l	$2104(a4),d0
		move.l	d0,d1
		asl.l	#2,d1
		lea	$210C(a4),a5
		adda.l	d1,a5
		move.l	16(sp),a3
		bra.w	lbC003274
lbC0031D6:
		addq.l	#1,a3
lbC0031D8:
		move.b	(a3),d0
		moveq	#32,d1
		cmp.b	d1,d0
		beq.b	lbC0031D6
		moveq	#9,d1
		cmp.b	d1,d0
		beq.b	lbC0031D6
		moveq	#10,d1
		cmp.b	d1,d0
		beq.b	lbC0031D6
		move.b	(a3),d0
		beq.w	lbC003280
		addq.l	#1,$2104(a4)
		moveq	#$22,d1
		move.l	a5,a2
		addq.l	#4,a5
		cmp.b	d1,d0
		bne.b	lbC003252
		addq.l	#1,a3
		move.l	a3,a0
		move.l	a0,(a2)
		bra.b	lbC003240
lbC003208:
		move.b	(a3),d0
		moveq	#$2A,d1
		cmp.b	d1,d0
		bne.b	lbC00323E
		addq.l	#1,a3
		moveq	#0,d0
		move.b	(a3),d0
		tst.l	d0
		beq.b	lbC003228
		moveq	#$45,d1
		sub.l	d1,d0
		beq.b	lbC00322C
		moveq	#9,d1
		sub.l	d1,d0
		beq.b	lbC003232
		bra.b	lbC003238
lbC003228:
		clr.b	(a0)
		bra.b	lbC003280
lbC00322C:
		move.b	#$17,(a0)+
		bra.b	lbC00323A
lbC003232:
		move.b	#10,(a0)+
		cmpi.w	#$10D3,d0
lbC003238:	EQU	*-2
lbC00323A:
		addq.l	#1,a3
		cmpi.w	#$10DB,d0
lbC00323E:	EQU	*-2
lbC003240:
		move.b	(a3),d0
		moveq	#$22,d1
		cmp.b	d1,d0
		beq.b	lbC00324C
		tst.b	d0
		bne.b	lbC003208
lbC00324C:
		addq.l	#1,a3
		clr.b	(a0)
		bra.b	lbC003274
lbC003252:
		move.l	a3,(a2)
		cmpi.w	#$528B,d0
lbC003256:	EQU	*-2
		move.b	(a3),d0
		beq.b	lbC00326E
		moveq	#32,d1
		cmp.b	d1,d0
		beq.b	lbC00326E
		moveq	#9,d1
		cmp.b	d1,d0
		beq.b	lbC00326E
		moveq	#10,d1
		cmp.b	d1,d0
		bne.b	lbC003256
lbC00326E:
		tst.b	(a3)
		beq.b	lbC003280
		clr.b	(a3)+
lbC003274:
		cmpi.l	#32,$2104(a4)
		blt.w	lbC0031D8
lbC003280:
		move.l	$2104(a4),d0
		bne.b	lbC00328C
		move.l	$20A4(a4),a0
		bra.b	lbC003290
lbC00328C:
		lea	$210C(a4),a0
lbC003290:
		move.l	a0,$2108(a4)
		bsr.w	lbC004984
		movem.l	(sp)+,a2/a3/a5
		bra.w	lbC003B54
		move.l	4(sp),d0
lbC0032A4:
		move.l	a5,-(sp)
		move.l	d0,d1
		clr.l	$209C(a4)
		tst.l	d1
		bmi.b	lbC0032B6
		cmp.l	$27C(a4),d1
		blt.b	lbC0032C0
lbC0032B6:
		moveq	#9,d0
		move.l	d0,$20A8(a4)
		moveq	#0,d0
		bra.b	lbC0032E2
lbC0032C0:
		move.l	$280(a4),a5
		bra.b	lbC0032CA
lbC0032C6:
		subq.l	#1,d1
		move.l	(a5),a5
lbC0032CA:
		tst.l	d1
		ble.b	lbC0032D2
		move.l	a5,d0
		bne.b	lbC0032C6
lbC0032D2:
		move.l	a5,d0
		bne.b	lbC0032E0
		moveq	#5,d0
		move.l	d0,$20A8(a4)
		moveq	#0,d0
		cmpi.w	#$200D,d0
lbC0032E0:	EQU	*-2
lbC0032E2:
		move.l	(sp)+,a5
		rts

	 ********************************

		nop

	 ********************************

lbC0032E8:
		subq.w	#4,sp
		movem.l	d2/d3/a5,-(sp)
		lea	TZ.MSG(pc),a0
		bsr.w	lbC003A08
		move.l	d0,a5
		tst.l	d0
		bne.b	lbC003300
		move.l	$20C0(a4),a5
lbC003300:
		move.l	a5,d0
		bne.b	lbC003308
		lea	CST6.MSG(pc),a5
lbC003308:
		lea	(a5),a1
		lea	$84(a4),a0
		move.b	(a1)+,(a0)+
		move.b	(a1)+,(a0)+
		move.b	(a1)+,(a0)+
		clr.b	(a0)+
		lea	$84(a4),a0
		move.l	a0,$20B4(a4)
		lea	3(a5),a0
		lea	12(sp),a1
		bsr.w	lbC002890
		addq.l	#3,d0
		move.l	12(sp),d1
		move.l	d1,d2
		asl.l	#4,d2
		sub.l	d1,d2
		move.l	d2,d3
		asl.l	#4,d3
		sub.l	d2,d3
		asl.l	#4,d3
		move.l	d3,$80(a4)
		move.b	(a5,d0.l),d1
		beq.b	lbC003360
		lea	$20BC(a4),a1
		move.b	d1,(a1)+
		move.b	1(a5,d0.l),(a1)+
		move.b	2(a5,d0.l),(a1)+
		clr.b	(a1)+
		moveq	#1,d0
		move.l	d0,$20B0(a4)
		bra.b	lbC003368
lbC003360:
		clr.b	$20BC(a4)
		clr.l	$20B0(a4)
lbC003368:
		lea	$20BC(a4),a0
		move.l	a0,$20B8(a4)
		movem.l	(sp)+,d2/d3/a5
		addq.w	#4,sp
		rts

	 ********************************

TZ.MSG:
		dc.b	"TZ",0,0
CST6.MSG:
		dc.b	"CST6",0,0

	 ********************************

		nop
lbC003384:
		move.l	4(sp),a0
		subq.w	#4,sp
		move.l	a5,-(sp)
		move.l	a0,a5
		bsr.w	lbC0032E8
		move.l	(a5),d0
		sub.l	$80(a4),d0
		move.l	d0,4(sp)
		tst.l	$20B0(a4)
		beq.b	lbC0033AA
		subi.l	#$E10,4(sp)
lbC0033AA:
		lea	4(sp),a0
		bsr.w	lbC0033C4
		move.l	d0,a0
		move.l	$20B0(a4),32(a0)
		move.l	(sp)+,a5
		addq.w	#4,sp
		rts

	 ********************************

		move.l	4(sp),a0
lbC0033C4:
		subq.w	#4,sp
		movem.l	d2/d7,-(sp)
		move.l	(a0),d0
		move.l	#$15180,d1
		bsr.w	lbC0030B8
		move.l	d0,d7
		move.l	(a0),d0
		move.l	#$15180,d1
		bsr.w	lbC0030B8
		move.l	d1,d0
		move.l	d1,8(sp)
		move.l	#$E10,d1
		bsr.w	lbC0030B8
		move.l	d0,$2198(a4)
		move.l	8(sp),d0
		move.l	#$E10,d1
		bsr.w	lbC0030B8
		move.l	d1,d0
		move.l	d1,8(sp)
		moveq	#$3C,d1
		bsr.w	lbC0030B8
		move.l	d0,$2194(a4)
		move.l	8(sp),d0
		moveq	#$3C,d1
		bsr.w	lbC0030B8
		move.l	d1,$2190(a4)
		move.l	d7,d0
		addq.l	#4,d0
		moveq	#7,d1
		bsr.w	lbC0030B8
		move.l	d1,$21A8(a4)
		move.l	#$7B2,d2
		bra.b	lbC00345E
lbC00343A:
		move.l	d2,d0
		moveq	#3,d1
		and.l	d1,d0
		bne.b	lbC003456
		move.l	d2,d0
		moveq	#$64,d1
		bsr.w	lbC0030B8
		tst.l	d1
		beq.b	lbC003456
		subi.l	#$16E,d7
		bra.b	lbC00345C
lbC003456:
		subi.l	#$16D,d7
lbC00345C:
		addq.l	#1,d2
lbC00345E:
		cmpi.l	#$16D,d7
		bgt.b	lbC00343A
		cmpi.l	#$16D,d7
		bne.b	lbC003486
		move.l	d2,d0
		moveq	#3,d1
		and.l	d1,d0
		bne.b	lbC003482
		move.l	d2,d0
		moveq	#$64,d1
		bsr.w	lbC0030B8
		tst.l	d1
		bne.b	lbC003486
lbC003482:
		addq.l	#1,d2
		moveq	#0,d7
lbC003486:
		move.l	d2,d0
		subi.l	#$76C,d0
		move.l	d0,$21A4(a4)
		move.l	d7,$21AC(a4)
		move.l	d2,d0
		moveq	#3,d1
		and.l	d1,d0
		bne.b	lbC0034B2
		move.l	d2,d0
		moveq	#$64,d1
		bsr.w	lbC0030B8
		tst.l	d1
		beq.b	lbC0034B2
		move.b	#$1D,$89(a4)
		bra.b	lbC0034B8
lbC0034B2:
		move.b	#$1C,$89(a4)
lbC0034B8:
		clr.l	$21A0(a4)
lbC0034BC:
		move.l	$21A0(a4),a0
		lea	$88(a4),a1
		moveq	#0,d0
		move.l	a0,d1
		move.b	(a1,d1.l),d0
		cmp.l	d7,d0
		bgt.b	lbC0034E4
		moveq	#0,d1
		move.b	d0,d1
		sub.l	d1,d7
		addq.l	#1,$21A0(a4)
		cmpi.l	#12,$21A0(a4)
		blt.b	lbC0034BC
lbC0034E4:
		addq.l	#1,d7
		move.l	d7,$219C(a4)
		lea	$2190(a4),a0
		move.l	a0,d0
		movem.l	(sp)+,d2/d7
		addq.w	#4,sp
		rts

	 ********************************

lbC0034F8:
		move.l	4(sp),a0
		suba.w	#12,sp
		movem.l	d2/a5/a6,-(sp)
		move.l	a0,a5
		bsr.w	lbC0032E8
		lea	12(sp),a0
		move.l	a0,d1
		move.l	$2FC(a4),a6
		jsr	-$C0(a6)
		move.l	$14(sp),d0
		moveq	#50,d1
		bsr.w	lbC0030B8
		move.l	#$B6A,d1
		add.l	12(sp),d1
		move.l	d1,d2
		asl.l	#4,d2
		sub.l	d1,d2
		move.l	d2,d1
		asl.l	#2,d1
		sub.l	d2,d1
		asl.l	#5,d1
		add.l	16(sp),d1
		move.l	d1,d2
		asl.l	#4,d2
		sub.l	d1,d2
		asl.l	#2,d2
		add.l	d0,d2
		add.l	$80(a4),d2
		tst.l	$20B0(a4)
		beq.b	lbC003558
		addi.l	#$E10,d2
lbC003558:
		move.l	a5,d0
		beq.b	lbC00355E
		move.l	d2,(a5)
lbC00355E:
		move.l	d2,d0
		movem.l	(sp)+,d2/a5/a6
		adda.w	#12,sp
		rts

	 ********************************

		nop
		move.l	4(sp),a0
		move.l	8(sp),d0
lbC003574:
		cmp.b	(a0),d0
		beq.b	lbC003580
		tst.b	(a0)+
		bne.b	lbC003574
		moveq	#0,d0
		rts
lbC003580:
		move.l	a0,d0
		rts

	 ********************************

		move.l	4(sp),a0
		move.l	8(sp),d0
		move.l	12(sp),d1
lbC003590:
		subq.l	#1,d1
		bmi.b	lbC003598
		cmp.b	(a0)+,d0
		bne.b	lbC003590
lbC003598:
		subq.w	#1,a0
		addq.l	#1,d1
		tst.l	d1
		bne.w	lbC0035A4
		suba.l	a0,a0
lbC0035A4:
		move.l	a0,d0
		rts
lbC0035A8:
		move.l	8(sp),a1
		move.l	4(sp),a0
		move.l	a0,d0
lbC0035B2:
		tst.b	(a0)+
		bne.b	lbC0035B2
		subq.l	#1,a0
lbC0035B8:
		move.b	(a1)+,(a0)+
		bne.b	lbC0035B8
		rts

	 ********************************

		dc.w	0

	 ********************************

		move.l	8(sp),a1
		move.l	4(sp),a0
		move.l	12(sp),d0
lbC0035CC:
		move.l	a0,d1
		tst.l	d0
		ble.b	lbC0035E8
		cmp.l	a1,a0
		bcs.b	lbC0035E2
		adda.l	d0,a1
		adda.l	d0,a0
lbC0035DA:
		move.b	-(a1),-(a0)
		subq.l	#1,d0
		bne.b	lbC0035DA
		bra.b	lbC0035E8
lbC0035E2:
		move.b	(a1)+,(a0)+
		subq.l	#1,d0
		bne.b	lbC0035E2
lbC0035E8:
		move.l	d1,d0
		rts

	 ********************************

		move.l	4(sp),a0
		move.l	8(sp),d0
lbC0035F4:
		movem.l	d6/d7/a3/a5,-(sp)
		move.l	d0,d7
		move.l	a0,a5
		bne.b	lbC003610
		move.l	a5,d0
		bne.b	lbC003606
		moveq	#0,d0
		bra.b	lbC00366E
lbC003606:
		move.l	a5,a0
		bsr.w	lbC003678
		moveq	#0,d0
		bra.b	lbC00366E
lbC003610:
		move.l	a5,d0
		bne.b	lbC00361E
		move.l	d7,d0
		movem.l	(sp)+,d6/d7/a3/a5
		bra.w	lbC0037E4
lbC00361E:
		move.l	a5,a0
		subq.l	#2,a0
		move.w	#$7FFF,d0
		and.w	(a0),d0
		ext.l	d0
		asl.l	#2,d0
		move.l	d0,d6
		btst	#7,(a0)
		beq.b	lbC003640
		cmpi.w	#$8000,-2(a0)
		bne.b	lbC003640
		move.l	-14(a0),d6
lbC003640:
		move.l	d7,d0
		bsr.w	lbC0037E4
		move.l	d0,a3
		tst.l	d0
		bne.b	lbC003650
		moveq	#0,d0
		bra.b	lbC00366E
lbC003650:
		cmp.l	d7,d6
		bls.b	lbC003658
		move.l	d7,d0
		cmpi.w	#$2006,d0
lbC003658:	EQU	*-2
		move.l	a5,a0
		move.l	a3,a1
		cmpi.w	#$12D8,d0
lbC003660:	EQU	*-2
		subq.l	#1,d0
		bcc.b	lbC003660
		move.l	a5,a0
		bsr.w	lbC003678
		move.l	a3,d0
lbC00366E:
		movem.l	(sp)+,d6/d7/a3/a5
		rts

	 ********************************

lbC003674:
		move.l	4(sp),a0
lbC003678:
		move.l	a0,d0
		bne.b	lbC00367E
		rts

	 ********************************

lbC00367E:
		subq.l	#4,d0
		movem.l	d2-d5/a2/a3/a6,-(sp)
		move.l	$20C8(a4),d1
		bne.b	lbC003698
lbC00368A:
		move.l	#$16,$20A8(a4)
		movem.l	(sp)+,d2-d5/a2/a3/a6
		rts
lbC003698:
		move.l	d1,a1
		cmp.l	d1,d0
		ble.b	lbC0036B0
		move.l	d1,d2
		add.l	4(a1),d2
		addi.l	#$14,d2
		cmp.l	d2,d0
		bge.b	lbC0036B0
		bra.b	lbC0036B8
lbC0036B0:
		move.l	0(a1),d1
		beq.b	lbC00368A
		bra.b	lbC003698
lbC0036B8:
		move.l	d1,d3
		addi.l	#16,d3
lbC0036C0:
		cmp.l	d3,d0
		blt.b	lbC00368A
		beq.b	lbC0036D8
		move.l	d3,a2
		clr.l	d2
		move.w	2(a2),d2
		bmi.b	lbC00368A
		lsl.l	#2,d2
		add.l	d2,d3
		addq.l	#4,d3
		bra.b	lbC0036C0
lbC0036D8:
		move.l	d0,a2
		move.w	0(a2),d2
		bpl.b	lbC00368A
		bclr	#7,0(a2)
		clr.l	d3
		move.w	2(a2),d3
		andi.w	#$7FFF,d3
		lsl.l	#2,d3
		tst.w	2(a2)
		bmi.b	lbC003738
		lea	4(a2,d3.l),a3
		tst.w	0(a3)
		bmi.b	lbC003738
		clr.l	d4
		move.w	2(a3),d4
		andi.w	#$7FFF,d4
		lsl.l	#2,d4
		add.l	d3,d4
		addq.l	#4,d4
		lsr.l	#2,d4
		addq.l	#4,d3
		tst.w	2(a3)
		bpl.b	lbC003720
		ori.w	#$8000,d4
lbC003720:
		move.w	d4,2(a2)
		bmi.b	lbC003738
		move.l	d4,d5
		lsl.l	#2,d4
		move.w	4(a2,d4.l),d2
		andi.w	#$8000,d2
		or.w	d2,d5
		move.w	d5,4(a2,d4.l)
lbC003738:
		clr.l	d4
		move.w	0(a2),d4
		beq.b	lbC00378C
		lsl.l	#2,d4
		neg.l	d4
		lea	-4(a2,d4.l),a3
		tst.w	0(a3)
		bmi.b	lbC00378C
		clr.l	d4
		move.w	2(a3),d4
		lsl.l	#2,d4
		clr.l	d5
		move.w	2(a2),d5
		andi.w	#$7FFF,d5
		lsl.l	#2,d5
		add.l	d5,d4
		addq.l	#4,d4
		addq.l	#4,d3
		lsr.l	#2,d4
		tst.w	2(a2)
		bpl.b	lbC003774
		ori.w	#$8000,d4
lbC003774:
		move.w	d4,2(a3)
		bmi.b	lbC00378C
		move.l	d4,d5
		lsl.l	#2,d4
		move.w	4(a3,d4.l),d2
		andi.w	#$8000,d2
		or.w	d2,d5
		move.w	d5,4(a3,d4.l)
lbC00378C:
		add.l	d3,8(a1)
		move.l	4(a1),d3
		cmp.l	$7C(a4),d3
		bgt.b	lbC0037A6
		cmp.l	8(a1),d3
		bne.b	lbC0037DA
		tst.l	0(a1)
		beq.b	lbC0037DA
lbC0037A6:
		move.l	$20C8(a4),d0
		move.l	d0,a0
		cmp.l	d0,d1
		bne.b	lbC0037BC
		move.l	0(a1),$20C8(a4)
		bra.b	lbC0037C8
lbC0037B8:
		move.l	0(a0),a0
lbC0037BC:
		cmp.l	0(a0),d1
		bne.b	lbC0037B8
		move.l	0(a1),0(a0)
lbC0037C8:
		move.l	4(a1),d0
		addi.l	#$14,d0
		move.l	4.w,a6
		jsr	-$D2(a6)
lbC0037DA:
		movem.l	(sp)+,d2-d5/a2/a3/a6
		rts

	 ********************************

lbC0037E0:
		move.l	4(sp),d0
lbC0037E4:
		tst.l	d0
		bne.b	lbC0037F4
		move.l	#$16,$20A8(a4)
		moveq	#0,d0
		rts

	 ********************************

lbC0037F4:
		movem.l	d2-d6/a2/a3/a6,-(sp)
		addq.l	#3,d0
		andi.l	#-4,d0
		cmpi.l	#$1FFFC,d0
		bgt.w	lbC0038C0
		cmp.l	$7C(a4),d0
		bgt.w	lbC0038C0
		move.l	$20C8(a4),d3
		beq.w	lbC0038C0
		move.l	d3,a1
lbC00381C:
		cmp.l	8(a1),d0
		bgt.b	lbC003854
		move.l	$20AC(a4),d1
		cmp.l	12(a1),d1
		bne.b	lbC003854
		lea	16(a1),a2
lbC003830:
		tst.w	(a2)
		bmi.b	lbC003844
		clr.l	d4
		move.w	2(a2),d4
		andi.w	#$7FFF,d4
		lsl.l	#2,d4
		cmp.l	d4,d0
		ble.b	lbC00385E
lbC003844:
		clr.l	d4
		move.w	2(a2),d4
		bmi.b	lbC003854
		lsl.l	#2,d4
		lea	4(a2,d4.l),a2
		bra.b	lbC003830
lbC003854:
		move.l	0(a1),d3
		beq.b	lbC0038C0
		move.l	d3,a1
		bra.b	lbC00381C
lbC00385E:
		bset	#7,0(a2)
		lea	4(a2,d0.l),a3
		clr.l	d5
		cmp.l	d4,d0
		beq.b	lbC0038AA
		move.l	d4,d6
		sub.l	d0,d6
		subq.l	#4,d6
		bne.b	lbC00387A
		move.l	d4,d0
		bra.b	lbC0038AA
lbC00387A:
		lsr.l	#2,d6
		tst.w	2(a2)
		bpl.b	lbC003886
		ori.w	#$8000,d6
lbC003886:
		move.l	d0,d5
		lsr.l	#2,d5
		move.w	d6,2(a3)
		move.w	d5,0(a3)
		move.w	d5,2(a2)
		moveq	#4,d5
		tst.w	d6
		bmi.b	lbC0038AA
		move.w	4(a2,d4.l),d2
		andi.w	#$8000,d2
		or.w	d2,d6
		move.w	d6,4(a2,d4.l)
lbC0038AA:
		move.l	8(a1),d3
		sub.l	d0,d3
		sub.l	d5,d3
		move.l	d3,8(a1)
		move.l	a2,d0
		addq.l	#4,d0
lbC0038BA:
		movem.l	(sp)+,d2-d6/a2/a3/a6
		rts

	 ********************************

lbC0038C0:
		move.l	d0,d5
		cmp.l	$7C(a4),d0
		bpl.b	lbC0038CC
		move.l	$7C(a4),d0
lbC0038CC:
		move.l	d0,d4
		addi.l	#$14,d0
		move.l	$20AC(a4),d1
		move.l	4.w,a6
		jsr	-$C6(a6)
		tst.l	d0
		bne.b	lbC0038EE
		move.l	#12,$20A8(a4)
		bra.b	lbC0038BA
lbC0038EE:
		move.l	d0,a1
		lea	16(a1),a2
		move.l	$20C8(a4),0(a1)
		move.l	a1,$20C8(a4)
		move.l	d4,4(a1)
		move.l	$20AC(a4),12(a1)
		move.l	d4,d3
		sub.l	d5,d3
		beq.b	lbC003936
		subq.l	#4,d3
		beq.b	lbC003936
		move.l	d3,8(a1)
		lea	4(a2,d5.l),a3
		move.w	#$8000,0(a2)
		lsr.l	#2,d5
		move.w	d5,2(a2)
		move.w	d5,0(a3)
		lsr.l	#2,d3
		ori.w	#$8000,d3
		move.w	d3,2(a3)
		bra.b	lbC00394A
lbC003936:
		clr.l	8(a1)
		move.w	#$8000,0(a2)
		lsr.l	#2,d4
		ori.w	#$8000,d4
		move.w	d4,2(a2)
lbC00394A:
		move.l	a2,d0
		addq.l	#4,d0
		movem.l	(sp)+,d2-d6/a2/a3/a6
		rts

	 ********************************

lbC003954:
		move.l	4(sp),a0
		suba.w	#$18,sp
		movem.l	d2/d3/d5-d7/a3/a5/a6,-(sp)
		move.l	a0,a5
		move.l	4.w,a3
		moveq	#0,d7
		move.l	a5,d0
		bne.b	lbC003972
		moveq	#1,d0
		bra.w	lbC0039F4
lbC003972:
		move.l	$2FC(a4),a6
		jsr	-$3C(a6)
		move.l	d0,d6
		bne.b	lbC003992
		lea	NIL.MSG0(pc),a0
		move.l	a0,d1
		move.l	#$3EE,d2
		jsr	-$1E(a6)
		move.l	d0,d6
		moveq	#1,d7
lbC003992:
		cmpi.w	#$24,$14(a3)
		bcs.b	lbC0039C6
		move.l	#$80000021,32(sp)
		jsr	-$36(a6)
		lea	$24(sp),a3
		move.l	d0,(a3)+
		move.l	#$80000022,(a3)+
		move.l	d6,(a3)+
		clr.l	(a3)+
		lea	32(sp),a0
		move.l	a5,d1
		move.l	a0,d2
		jsr	-$25E(a6)
		move.l	d0,d5
		bra.b	lbC0039E8
lbC0039C6:
		move.l	a5,d1
		move.l	d6,d3
		moveq	#0,d2
		jsr	-$DE(a6)
		tst.l	d0
		bne.b	lbC0039E6
		jsr	-$84(a6)
		move.l	d0,$209C(a4)
		moveq	#-1,d1
		move.l	d1,$20A8(a4)
		move.l	d0,d5
		cmpi.w	#$2A02,d0
lbC0039E6:	EQU	*-2
lbC0039E8:
		tst.l	d7
		beq.b	lbC0039F2
		move.l	d6,d1
		jsr	-$24(a6)
lbC0039F2:
		move.l	d5,d0
lbC0039F4:
		movem.l	(sp)+,d2/d3/d5-d7/a3/a5/a6
		adda.w	#$18,sp
		rts

	 ********************************

NIL.MSG0:
		dc.b	"NIL:",0,0

	 ********************************

		move.l	4(sp),a0
lbC003A08:
		suba.w	#16,sp
		movem.l	d2/d3/d5-d7/a2/a3/a5/a6,-(sp)
		suba.l	a1,a1
		move.l	4.w,a6
		move.l	a0,a5
		jsr	-$126(a6)
		moveq	#-1,d1
		move.l	d0,a1
		move.l	$B8(a1),a0
		move.l	d1,$B8(a1)
		move.l	d0,$30(sp)
		move.l	a0,$2C(sp)
		lea	ENV.MSG(pc),a0
		move.l	a0,d1
		moveq	#-2,d2
		move.l	$2FC(a4),a6
		jsr	-$54(a6)
		suba.l	a3,a3
		tst.l	d0
		beq.w	lbC003B00
		move.l	d0,d1
		jsr	-$7E(a6)
		move.l	d0,d7
		move.l	a5,d1
		jsr	-$54(a6)
		move.l	d0,d6
		beq.w	lbC003AF4
		moveq	#$7F,d5
		add.l	d5,d5
		moveq	#$41,d0
		lsl.l	#2,d0
		bsr.w	lbC0037E4
		move.l	d0,a2
		tst.l	d0
		beq.b	lbC003A84
		move.l	d6,d1
		move.l	a2,d2
		jsr	-$66(a6)
		tst.l	d0
		beq.b	lbC003A7E
		move.l	$7C(a2),d5
lbC003A7E:
		move.l	d2,a0
		bsr.w	lbC003678
lbC003A84:
		move.l	d6,d1
		jsr	-$5A(a6)
		move.l	a5,d1
		move.l	#$3ED,d2
		jsr	-$1E(a6)
		move.l	d0,d6
		beq.b	lbC003AF4
		move.l	d5,d0
		addq.l	#1,d0
		bsr.w	lbC0037E4
		move.l	d0,a3
		tst.l	d0
		beq.b	lbC003AE4
		move.l	d6,d1
		move.l	a3,d2
		move.l	d5,d3
		jsr	-$2A(a6)
		tst.l	d0
		ble.b	lbC003AE0
		clr.b	(a3,d0.l)
		moveq	#10,d0
		move.l	d2,a0
		bsr.w	lbC003574
		tst.l	d0
		beq.b	lbC003AEA
		move.l	d0,a0
		clr.b	(a0)
		sub.l	d2,d0
		move.l	d0,d1
		addq.l	#4,d1
		cmp.l	d3,d1
		bge.b	lbC003AEA
		addq.l	#1,d0
		move.l	d2,a0
		bsr.w	lbC0035F4
		move.l	d0,a3
		bra.b	lbC003AEA
lbC003AE0:
		clr.b	(a3)
		bra.b	lbC003AEA
lbC003AE4:
		moveq	#12,d0
		move.l	d0,$20A8(a4)
lbC003AEA:
		move.l	d6,d1
		move.l	$2FC(a4),a6
		jsr	-$24(a6)
lbC003AF4:
		move.l	d7,d1
		jsr	-$7E(a6)
		move.l	d0,d1
		jsr	-$5A(a6)
lbC003B00:
		move.l	$30(sp),a0
		move.l	$2C(sp),$B8(a0)
		move.l	a3,d0
		movem.l	(sp)+,d2/d3/d5-d7/a2/a3/a5/a6
		adda.w	#16,sp
		rts

	 ********************************

ENV.MSG:
		dc.b	"ENV:",0,0

	 ********************************

lbC003B1C:
		move.l	4(sp),a0
		subq.w	#8,sp
		move.l	a0,d0
		beq.b	lbC003B4C
		move.l	a0,(sp)
		cmpi.w	#$5297,d0
lbC003B2A:	EQU	*-2
		move.l	(sp),a0
		moveq	#0,d0
		move.b	(a0),d0
		lea	$105(a4),a0
		btst	#3,(a0,d0.l)
		bne.b	lbC003B2A
		move.l	(sp),a0
		lea	4(sp),a1
		bsr.w	lbC002890
		move.l	4(sp),d0
lbC003B4C:
		addq.w	#8,sp
		rts

	 ********************************

lbC003B50:
		move.l	4(sp),d0
lbC003B54:
		movem.l	d7/a5,-(sp)
		move.l	d0,d7
		move.l	$28C(a4),a5
		bra.b	lbC003B68
lbC003B60:
		move.l	4(a5),a0
		jsr	(a0)
		move.l	(a5),a5
lbC003B68:
		move.l	a5,d0
		bne.b	lbC003B60
		move.l	d7,d0
		movem.l	(sp)+,d7/a5
		bra.w	lbC0031B0

	 ********************************

		nop
		move.l	4(sp),d0
		move.l	8(sp),a0
lbC003B80:
		lea	(a0),a1
		addq.l	#1,(a1)+
		move.l	(a1),a0
		addq.l	#1,(a1)+
		move.b	d0,(a0)
		rts
lbC003B8C:
		subq.w	#8,sp
		move.l	12(sp),a0
		clr.l	(sp)
		move.l	a0,4(sp)
		pea	$14(sp)
		move.l	$14(sp),-(sp)
		lea	lbC003B80(pc),a0
		lea	8(sp),a1
		bsr.w	lbC004860
		move.l	12(sp),a0
		addq.w	#8,sp
		clr.b	(a0)
		move.l	(sp),d0
		addq.w	#8,sp
		rts

	 ********************************

		nop
		move.l	4(sp),d0
		move.l	8(sp),a0
lbC003BC4:
		move.l	a5,-(sp)
		move.l	a0,a5
		move.l	d0,d1
		addq.l	#1,(a5)
		lea	8(a5),a1
		move.l	(a1),d0
		addq.l	#1,(a1)
		move.b	d1,12(a5,d0.l)
		move.l	(a1)+,d0
		cmpi.l	#$200,d0
		blt.b	lbC003BF6
		moveq	#1,d1
		exg.l	d0,d1
		lea	12(a5),a0
		move.l	4(a5),a1
		bsr.w	lbC003FC8
		clr.l	8(a5)
lbC003BF6:
		move.l	(sp)+,a5
		rts

	 ********************************

lbC003BFA:
		suba.w	#$20C,sp
		move.l	a5,-(sp)
		move.l	$214(sp),a5
		clr.l	12(sp)
		clr.l	4(sp)
		move.l	a5,8(sp)
		pea	$21C(sp)
		move.l	$21C(sp),-(sp)
		lea	lbC003BC4(pc),a0
		lea	12(sp),a1
		bsr.w	lbC004860
		addq.w	#8,sp
		move.l	12(sp),d0
		beq.b	lbC003C3C
		moveq	#1,d1
		exg.l	d0,d1
		lea	16(sp),a0
		move.l	8(sp),a1
		bsr.w	lbC003FC8
lbC003C3C:
		btst	#5,27(a5)
		bne.b	lbC003C4C
		btst	#4,27(a5)
		beq.b	lbC003C50
lbC003C4C:
		moveq	#-1,d0
		bra.b	lbC003C54
lbC003C50:
		move.l	4(sp),d0
lbC003C54:
		move.l	(sp)+,a5
		adda.w	#$20C,sp
		rts

	 ********************************

		move.l	4(sp),d0
		move.l	8(sp),a0
lbC003C64:
		subq.w	#4,sp
		movem.l	d6/d7/a5,-(sp)
		move.l	d0,d7
		moveq	#0,d6
		move.b	d7,15(sp)
		moveq	#$41,d1
		add.l	d1,d1
		move.l	a0,a5
		and.l	$18(a5),d1
		bne.b	lbC003C8A
		bset	#5,27(a5)
		moveq	#-1,d0
		bra.w	lbC003DC8
lbC003C8A:
		moveq	#$33,d0
		and.l	$18(a5),d0
		subq.l	#2,d0
		beq.b	lbC003CE4
		moveq	#$4C,d0
		not.b	d0
		and.l	$18(a5),d0
		moveq	#$40,d1
		add.l	d1,d1
		cmp.l	d1,d0
		bne.b	lbC003CB0
		bset	#1,27(a5)
		clr.l	12(a5)
		bra.b	lbC003CE4
lbC003CB0:
		btst	#5,27(a5)
		beq.b	lbC003CBE
		moveq	#-1,d0
		bra.w	lbC003DC8
lbC003CBE:
		moveq	#$6E,d0
		not.b	d0
		and.l	$18(a5),d0
		moveq	#$6E,d1
		not.b	d1
		cmp.l	d1,d0
		bne.b	lbC003CDA
		bset	#1,27(a5)
		clr.l	12(a5)
		bra.b	lbC003CE4
lbC003CDA:
		moveq	#0,d0
		move.l	d0,12(a5)
		bra.w	lbC003DC8
lbC003CE4:
		move.l	12(a5),d0
		cmp.l	$14(a5),d0
		bge.b	lbC003D20
		move.l	4(a5),a0
		addq.l	#1,4(a5)
		move.l	d7,d0
		move.b	d0,(a0)
		addq.l	#1,12(a5)
		btst	#6,27(a5)
		beq.b	lbC003D14
		moveq	#10,d1
		cmp.l	d1,d7
		bne.b	lbC003D14
		move.l	a5,a0
		bsr.w	lbC0040F8
		move.l	d0,d6
lbC003D14:
		tst.l	d6
		beq.w	lbC003DC2
		move.l	d6,d0
		bra.w	lbC003DC8
lbC003D20:
		btst	#2,27(a5)
		beq.b	lbC003D56
		clr.l	12(a5)
		move.l	$1C(a5),d0
		moveq	#1,d1
		lea	15(sp),a0
		bsr.w	lbC002BD8
		move.l	d0,d6
		addq.l	#1,d0
		bne.b	lbC003D48
		bset	#5,27(a5)
		bra.b	lbC003DBA
lbC003D48:
		move.l	d6,d0
		subq.l	#1,d0
		beq.b	lbC003DBA
		bset	#4,27(a5)
		bra.b	lbC003DBA
lbC003D56:
		tst.l	$14(a5)
		bne.b	lbC003D7C
		move.l	a5,a0
		bsr.w	lbC002AD4
		tst.l	d0
		beq.b	lbC003D70
		bset	#5,27(a5)
		moveq	#-1,d0
		bra.b	lbC003DC8
lbC003D70:
		moveq	#0,d0
		move.l	d0,12(a5)
		move.l	16(a5),4(a5)
lbC003D7C:
		move.l	12(a5),d0
		cmp.l	$14(a5),d0
		blt.b	lbC003D8E
		move.l	a5,a0
		bsr.w	lbC0040F8
		move.l	d0,d6
lbC003D8E:
		bset	#1,27(a5)
		move.l	4(a5),a0
		addq.l	#1,4(a5)
		move.l	d7,d0
		move.b	d0,(a0)
		addq.l	#1,12(a5)
		btst	#6,27(a5)
		beq.b	lbC003DBA
		moveq	#10,d1
		cmp.l	d1,d7
		bne.b	lbC003DBA
		move.l	a5,a0
		bsr.w	lbC0040F8
		move.l	d0,d6
lbC003DBA:
		tst.l	d6
		beq.b	lbC003DC2
		move.l	d6,d0
		bra.b	lbC003DC8
lbC003DC2:
		moveq	#0,d1
		move.b	d7,d1
		move.l	d1,d0
lbC003DC8:
		movem.l	(sp)+,d6/d7/a5
		addq.w	#4,sp
		rts

	 ********************************

lbC003DD0:
		move.l	4(sp),a0
		move.l	8(sp),d0
		move.l	12(sp),a1
		subq.w	#4,sp
		movem.l	d6/d7/a2/a3/a5,-(sp)
		move.l	d0,d7
		subq.l	#1,d7
		move.l	a0,a5
		move.l	a5,a2
		move.l	a1,a3
		bra.b	lbC003E30
lbC003DEE:
		btst	#0,27(a3)
		beq.b	lbC003E1A
		subq.l	#1,8(a3)
		blt.b	lbC003E12
		btst	#5,$1E(a3)
		bne.b	lbC003E12
		move.l	4(a3),a0
		addq.l	#1,4(a3)
		moveq	#0,d0
		move.b	(a0),d0
		bra.b	lbC003E20
lbC003E12:
		move.l	a3,a0
		bsr.w	lbC003E4C
		bra.b	lbC003E20
lbC003E1A:
		move.l	a3,a0
		bsr.w	lbC003E4C
lbC003E20:
		move.l	d0,d6
		addq.l	#1,d0
		beq.b	lbC003E34
		subq.l	#1,d7
		move.b	d6,(a2)+
		moveq	#10,d1
		cmp.l	d1,d6
		beq.b	lbC003E34
lbC003E30:
		tst.l	d7
		bgt.b	lbC003DEE
lbC003E34:
		cmp.l	a5,a2
		bne.b	lbC003E3C
		moveq	#0,d0
		bra.b	lbC003E40
lbC003E3C:
		clr.b	(a2)
		move.l	a5,d0
lbC003E40:
		movem.l	(sp)+,d6/d7/a2/a3/a5
		addq.w	#4,sp
		rts

	 ********************************

		move.l	4(sp),a0
lbC003E4C:
		subq.w	#4,sp
		movem.l	d7/a5,-(sp)
		move.l	a0,a5
		lea	$210(a4),a0
		cmp.l	a0,a5
		bne.b	lbC003EA0
		lea	$232(a4),a0
		bsr.w	lbC0040F8
		btst	#5,$1A(a5)
		beq.b	lbC003EA0
		move.l	$1C(a5),d0
		moveq	#1,d1
		lea	11(sp),a0
		bsr.w	lbC002CE0
		move.l	d0,d7
		ble.b	lbC003E88
		moveq	#0,d7
		move.b	11(sp),d7
		bra.w	lbC003FAC
lbC003E88:
		tst.l	d7
		bne.b	lbC003E94
		bset	#4,27(a5)
		bra.b	lbC003E9A
lbC003E94:
		bset	#5,27(a5)
lbC003E9A:
		moveq	#-1,d7
		bra.w	lbC003FAC
lbC003EA0:
		subq.l	#1,8(a5)
		blt.b	lbC003EB6
		move.l	4(a5),a0
		addq.l	#1,4(a5)
		moveq	#0,d0
		move.b	(a0),d0
		bra.w	lbC003FAE
lbC003EB6:
		moveq	#$33,d7
		and.l	$18(a5),d7
		moveq	#1,d0
		cmp.l	d0,d7
		beq.b	lbC003EFC
		moveq	#$5C,d1
		not.b	d1
		and.l	$18(a5),d1
		moveq	#$40,d0
		add.l	d0,d0
		cmp.l	d0,d1
		bne.b	lbC003EE6
		bset	#0,27(a5)
		btst	#4,27(a5)
		beq.b	lbC003EFC
		moveq	#-1,d0
		bra.w	lbC003FAE
lbC003EE6:
		clr.l	8(a5)
		moveq	#$11,d1
		cmp.l	d1,d7
		beq.b	lbC003EF6
		bset	#5,27(a5)
lbC003EF6:
		moveq	#-1,d0
		bra.w	lbC003FAE
lbC003EFC:
		btst	#2,27(a5)
		beq.b	lbC003F48
		clr.l	8(a5)
		moveq	#0,d7
		move.b	32(a5),d7
		tst.l	d7
		beq.b	lbC003F1A
		clr.b	32(a5)
		bra.w	lbC003FAC
lbC003F1A:
		move.l	$1C(a5),d0
		moveq	#1,d1
		lea	11(sp),a0
		bsr.w	lbC002CE0
		move.l	d0,d7
		ble.b	lbC003F34
		moveq	#0,d7
		move.b	11(sp),d7
		bra.b	lbC003FAC
lbC003F34:
		tst.l	d7
		bne.b	lbC003F40
		bset	#4,27(a5)
		bra.b	lbC003FAA
lbC003F40:
		bset	#5,27(a5)
		bra.b	lbC003FAA
lbC003F48:
		tst.l	$14(a5)
		bne.b	lbC003F62
		move.l	a5,a0
		bsr.w	lbC002AD4
		tst.l	d0
		beq.b	lbC003F62
		bset	#5,27(a5)
		moveq	#-1,d0
		bra.b	lbC003FAE
lbC003F62:
		move.l	16(a5),a0
		move.l	a0,4(a5)
		move.l	$1C(a5),d0
		move.l	$14(a5),d1
		move.l	16(a5),a0
		bsr.w	lbC002CE0
		move.l	d0,8(a5)
		move.l	d0,d7
		ble.b	lbC003F94
		subq.l	#1,8(a5)
		move.l	4(a5),a0
		addq.l	#1,4(a5)
		moveq	#0,d7
		move.b	(a0),d7
		bra.b	lbC003FAC
lbC003F94:
		tst.l	d7
		bne.b	lbC003FA0
		bset	#4,27(a5)
		bra.b	lbC003FAA
lbC003FA0:
		bset	#5,27(a5)
		clr.l	8(a5)
lbC003FAA:
		moveq	#-1,d7
lbC003FAC:
		move.l	d7,d0
lbC003FAE:
		movem.l	(sp)+,d7/a5
		addq.w	#4,sp
		rts

	 ********************************

		nop
		move.l	4(sp),a0
		move.l	8(sp),d0
		move.l	12(sp),d1
		move.l	16(sp),a1
lbC003FC8:
		subq.w	#4,sp
		movem.l	d4-d7/a3,-(sp)
		move.l	d1,d6
		move.l	d0,d7
		move.l	a0,$14(sp)
		move.l	d6,d0
		move.l	d7,d1
		bsr.w	lbC00317C
		move.l	a1,a3
		move.l	d0,d5
		moveq	#0,d4
		tst.l	d7
		beq.b	lbC003FEC
		tst.l	d6
		bne.b	lbC003FF2
lbC003FEC:
		moveq	#0,d0
		bra.w	lbC0040EC
lbC003FF2:
		moveq	#$30,d0
		and.l	$18(a3),d0
		bne.b	lbC004004
		moveq	#$41,d0
		add.l	d0,d0
		and.l	$18(a3),d0
		bne.b	lbC004010
lbC004004:
		bset	#5,27(a3)
		moveq	#0,d0
		bra.w	lbC0040EC
lbC004010:
		moveq	#$33,d0
		and.l	$18(a3),d0
		subq.l	#2,d0
		beq.b	lbC00406A
		moveq	#$4C,d0
		not.b	d0
		and.l	$18(a3),d0
		moveq	#$40,d1
		add.l	d1,d1
		cmp.l	d1,d0
		bne.b	lbC004036
		bset	#1,27(a3)
		clr.l	12(a3)
		bra.b	lbC00406A
lbC004036:
		btst	#5,27(a3)
		beq.b	lbC004044
		moveq	#0,d0
		bra.w	lbC0040EC
lbC004044:
		moveq	#$6E,d0
		not.b	d0
		and.l	$18(a3),d0
		moveq	#$6E,d1
		not.b	d1
		cmp.l	d1,d0
		bne.b	lbC004060
		bset	#1,27(a3)
		clr.l	12(a3)
		bra.b	lbC00406A
lbC004060:
		clr.l	12(a3)
		moveq	#0,d0
		bra.w	lbC0040EC
lbC00406A:
		tst.l	$14(a3)
		bne.b	lbC0040BC
		btst	#2,27(a3)
		bne.b	lbC0040BC
		move.l	a3,a0
		bsr.w	lbC002AD4
		tst.l	d0
		beq.b	lbC0040BC
		bset	#5,27(a3)
		moveq	#0,d0
		bra.b	lbC0040EC
lbC00408C:
		move.l	$14(sp),a0
		move.b	(a0)+,d0
		move.l	4(a3),a1
		move.b	d0,(a1)
		addq.l	#1,4(a3)
		addq.l	#1,12(a3)
		subq.l	#1,d5
		addq.l	#1,d4
		move.l	a0,$14(sp)
		moveq	#10,d1
		cmp.b	d1,d0
		bne.b	lbC0040BC
		btst	#6,27(a3)
		beq.b	lbC0040BC
		move.l	a3,a0
		bsr.w	lbC0040F8
lbC0040BC:
		move.l	12(a3),d0
		cmp.l	$14(a3),d0
		bge.b	lbC0040CA
		tst.l	d5
		bgt.b	lbC00408C
lbC0040CA:
		tst.l	d5
		ble.b	lbC0040E4
		move.l	a3,a0
		bsr.w	lbC0040F8
		move.l	$1C(a3),d0
		move.l	d5,d1
		move.l	$14(sp),a0
		bsr.w	lbC002BD8
		add.l	d0,d4
lbC0040E4:
		move.l	d4,d0
		move.l	d7,d1
		bsr.w	lbC0030EA
lbC0040EC:
		movem.l	(sp)+,d4-d7/a3
		addq.w	#4,sp
		rts

	 ********************************

		move.l	4(sp),a0
lbC0040F8:
		movem.l	d7/a5,-(sp)
		move.l	a0,a5
		move.l	a5,d0
		beq.w	lbC0041A2
		moveq	#$41,d0
		add.l	d0,d0
		and.l	$18(a5),d0
		bne.b	lbC00413A
		move.l	16(a5),a0
		lea	4(a5),a1
		move.l	a0,(a1)+
		clr.l	(a1)+
		clr.b	32(a5)
		moveq	#0,d0
		move.l	d0,(a1)+
		btst	#7,27(a5)
		beq.b	lbC004130
		bclr	#0,27(a5)
lbC004130:
		bclr	#4,27(a5)
		bra.w	lbC0041C4
lbC00413A:
		tst.l	$14(a5)
		beq.b	lbC004184
		move.l	12(a5),d0
		bpl.b	lbC00414C
		moveq	#0,d1
		move.l	d1,12(a5)
lbC00414C:
		move.l	12(a5),d0
		beq.b	lbC00417A
		move.l	$1C(a5),d1
		exg.l	d0,d1
		move.l	16(a5),a0
		bsr.w	lbC002BD8
		move.l	d0,d1
		addq.l	#1,d0
		bne.b	lbC00416E
		bset	#5,27(a5)
		bra.b	lbC00417A
lbC00416E:
		cmp.l	12(a5),d1
		beq.b	lbC00417A
		bset	#4,27(a5)
lbC00417A:
		move.l	16(a5),4(a5)
		clr.l	12(a5)
lbC004184:
		moveq	#$30,d0
		and.l	$18(a5),d0
		bne.b	lbC00419E
		btst	#7,27(a5)
		beq.b	lbC00419A
		moveq	#-4,d0
		and.l	d0,$18(a5)
lbC00419A:
		moveq	#0,d0
		bra.b	lbC0041C4
lbC00419E:
		moveq	#-1,d0
		bra.b	lbC0041C4
lbC0041A2:
		move.l	$20FC(a4),a5
		moveq	#0,d7
		bra.b	lbC0041BE
lbC0041AA:
		tst.l	$18(a5)
		beq.b	lbC0041BC
		move.l	a5,a0
		bsr.w	lbC0040F8
		tst.l	d0
		beq.b	lbC0041BC
		moveq	#-1,d7
lbC0041BC:
		move.l	(a5),a5
lbC0041BE:
		move.l	a5,d0
		bne.b	lbC0041AA
		move.l	d7,d0
lbC0041C4:
		movem.l	(sp)+,d7/a5
		rts

	 ********************************

		nop
lbC0041CC:
		move.l	4(sp),a0
lbC0041D0:
		movem.l	d7/a5,-(sp)
		move.l	a0,a5
		moveq	#0,d7
		move.l	a5,d0
		beq.b	lbC0041E2
		move.l	$18(a5),d0
		bne.b	lbC0041E6
lbC0041E2:
		moveq	#-1,d0
		bra.b	lbC004226
lbC0041E6:
		btst	#1,27(a5)
		beq.b	lbC0041F6
		move.l	a5,a0
		bsr.w	lbC0040F8
		move.l	d0,d7
lbC0041F6:
		moveq	#12,d0
		and.l	$18(a5),d0
		bne.b	lbC00420C
		tst.l	$14(a5)
		beq.b	lbC00420C
		move.l	16(a5),a0
		bsr.w	lbC003678
lbC00420C:
		clr.l	$18(a5)
		move.l	$1C(a5),d0
		bsr.w	lbC002E6C
		addq.l	#1,d7
		beq.b	lbC004220
		tst.l	d0
		beq.b	lbC004224
lbC004220:
		moveq	#-1,d0
		cmpi.w	#$7000,d0
lbC004224:	EQU	*-2
lbC004226:
		movem.l	(sp)+,d7/a5
		rts

	 ********************************

		move.l	4(sp),a0
		move.l	8(sp),a1
		move.l	12(sp),4(sp)
lbC00423A:
		movem.l	d4-d7/a2/a3/a5,-(sp)
		move.l	32(sp),a2
		move.l	a1,a3
		move.l	a0,a5
		moveq	#0,d7
		move.l	$284(a4),d6
		moveq	#0,d5
		tst.l	$18(a2)
		beq.b	lbC00425A
		move.l	a2,a0
		bsr.w	lbC0041D0
lbC00425A:
		moveq	#0,d0
		move.b	1(a3),d0
		moveq	#$2B,d1
		sub.l	d1,d0
		beq.b	lbC004286
		moveq	#$36,d1
		sub.l	d1,d0
		beq.b	lbC004272
		subq.l	#1,d0
		beq.b	lbC004274
		bra.b	lbC004292
lbC004272:
		moveq	#0,d6
lbC004274:
		moveq	#$2B,d1
		cmp.b	2(a3),d1
		seq.b	d0
		neg.b	d0
		ext.w	d0
		ext.l	d0
		move.l	d0,d5
		bra.b	lbC004292
lbC004286:
		moveq	#1,d5
		moveq	#$61,d0
		cmp.b	2(a3),d0
		bne.b	lbC004292
		moveq	#0,d6
lbC004292:
		moveq	#0,d0
		move.b	(a3),d0
		moveq	#$61,d1
		sub.l	d1,d0
		beq.b	lbC0042A8
		moveq	#$11,d1
		sub.l	d1,d0
		beq.b	lbC0042BC
		subq.l	#5,d0
		beq.b	lbC0042CA
		bra.b	lbC0042DE
lbC0042A8:
		tst.l	d5
		sne.b	d0
		moveq	#1,d1
		sub.b	d0,d1
		ori.w	#$108,d1
		or.l	d1,d6
		moveq	#$40,d7
		lsl.l	#8,d7
		bra.b	lbC0042E2
lbC0042BC:
		tst.l	d5
		sne.b	d0
		moveq	#0,d1
		sub.b	d0,d1
		sub.b	d0,d1
		or.l	d1,d6
		bra.b	lbC0042E2
lbC0042CA:
		tst.l	d5
		sne.b	d0
		moveq	#1,d1
		sub.b	d0,d1
		ori.w	#$100,d1
		ori.w	#$200,d1
		or.l	d1,d6
		bra.b	lbC0042E2
lbC0042DE:
		moveq	#0,d0
		bra.b	lbC00435E
lbC0042E2:
		move.l	$288(a4),-(sp)
		move.l	d6,-(sp)
		move.l	a5,-(sp)
		bsr.w	lbC002ED8
		move.l	d0,d4
		addq.l	#1,d0
		lea	12(sp),sp
		bne.b	lbC0042FC
		moveq	#0,d0
		bra.b	lbC00435E
lbC0042FC:
		tst.l	d5
		beq.b	lbC004306
		bset	#7,d7
		bra.b	lbC004336
lbC004306:
		moveq	#0,d0
		move.b	(a3),d0
		moveq	#$61,d1
		sub.l	d1,d0
		beq.b	lbC00431C
		moveq	#$11,d1
		sub.l	d1,d0
		beq.b	lbC004330
		subq.l	#5,d0
		beq.b	lbC004334
		bra.b	lbC004336
lbC00431C:
		pea	2
		bset	#1,d7
		move.l	d4,d0
		moveq	#0,d1
		bsr.w	lbC002DDE
		addq.w	#4,sp
		bra.b	lbC004336
lbC004330:
		moveq	#1,d7
		cmpi.w	#$7E02,d0
lbC004334:	EQU	*-2
lbC004336:
		btst	#15,d6
		bne.b	lbC004340
		bset	#15,d7
lbC004340:
		suba.l	a0,a0
		lea	16(a2),a5
		move.l	a0,(a5)+
		move.l	a0,(a5)+
		move.l	d4,$1C(a2)
		move.l	a0,4(a2)
		move.l	a0,12(a2)
		move.l	a0,8(a2)
		move.l	d7,(a5)+
		move.l	a2,d0
lbC00435E:
		movem.l	(sp)+,d4-d7/a2/a3/a5
		rts

	 ********************************

lbC004364:
		move.l	4(sp),a0
		move.l	8(sp),a1
		subq.w	#4,sp
		movem.l	a2/a3/a5,-(sp)
		move.l	a1,12(sp)
		move.l	$20FC(a4),a3
		move.l	a0,a5
		bra.b	lbC004382
lbC00437E:
		move.l	a3,a2
		move.l	(a2),a3
lbC004382:
		move.l	a3,d0
		beq.b	lbC00438C
		tst.l	$18(a3)
		bne.b	lbC00437E
lbC00438C:
		move.l	a3,d0
		bne.b	lbC0043BA
		moveq	#$22,d0
		bsr.w	lbC0037E4
		move.l	d0,a3
		tst.l	d0
		bne.b	lbC0043A0
		moveq	#0,d0
		bra.b	lbC0043C8
lbC0043A0:
		tst.l	$20FC(a4)
		bne.b	lbC0043AC
		move.l	a3,$20FC(a4)
		cmpi.w	#$248B,d0
lbC0043AC:	EQU	*-2
		move.l	a3,a0
		moveq	#$21,d0
		moveq	#0,d1
lbC0043B4:
		move.b	d1,(a0)+
		dbf	d0,lbC0043B4
lbC0043BA:
		move.l	a3,-(sp)
		move.l	16(sp),a1
		move.l	a5,a0
		bsr.w	lbC00423A
		addq.w	#4,sp
lbC0043C8:
		movem.l	(sp)+,a2/a3/a5
		addq.w	#4,sp
		rts

	 ********************************

		move.l	4(sp),a0
		move.l	8(sp),a1
		move.l	12(sp),4(sp)
		move.l	16(sp),8(sp)
lbC0043E4:
		suba.w	#$48,sp
		movem.l	d2/d4-d7/a2/a3/a5,-(sp)
		move.l	$70(sp),a5
		move.l	a0,$28(sp)
		clr.b	$5B(sp)
		clr.b	$46(sp)
		clr.b	$47(sp)
		clr.b	$64(sp)
		move.b	#32,$5A(sp)
		clr.l	$4C(sp)
		moveq	#-1,d0
		move.l	d0,$60(sp)
		clr.b	$5C(sp)
		moveq	#0,d7
		moveq	#0,d6
		lea	50(sp),a2
		move.l	a1,a3
		bra.b	lbC004490
lbC004424:
		move.l	$28(sp),a0
		moveq	#0,d0
		move.b	(a0),d0
		moveq	#32,d1
		sub.l	d1,d0
		blt.b	lbC004498
		cmpi.l	#$11,d0
		bge.b	lbC004498
		add.w	d0,d0
		move.w	lbW004444(pc,d0.w),d0
		jmp	lbW004446(pc,d0.w)

	 ********************************

lbW004444:
		dc.w	lbC004476-lbW004446
lbW004446:
		dc.w	lbC004498-lbW004446
		dc.w	lbC004498-lbW004446
		dc.w	lbC00446C-lbW004446
		dc.w	lbC004498-lbW004446
		dc.w	lbC004498-lbW004446
		dc.w	lbC004498-lbW004446
		dc.w	lbC004498-lbW004446
		dc.w	lbC004498-lbW004446
		dc.w	lbC004498-lbW004446
		dc.w	lbC004498-lbW004446
		dc.w	lbC00446E-lbW004446
		dc.w	lbC004498-lbW004446
		dc.w	lbC004466-lbW004446
		dc.w	lbC004498-lbW004446
		dc.w	lbC004498-lbW004446
		dc.w	lbC004486-lbW004446

	 ********************************

lbC004466:
		move.b	#1,$5B(sp)
		bra.b	lbC00448C
lbC00446E:
		move.b	#1,$46(sp)
		bra.b	lbC00448C
lbC004476:
		move.b	#1,$47(sp)
		bra.b	lbC00448C
lbC00446C:
		move.b	#1,$64(sp)
		bra.b	lbC00448C
lbC004486:
		move.b	#$30,$5A(sp)
lbC00448C:
		addq.l	#1,$28(sp)
lbC004490:
		move.l	$28(sp),a0
		tst.b	(a0)
		bne.b	lbC004424
lbC004498:
		moveq	#1,d0
		cmp.b	$5B(sp),d0
		bne.b	lbC0044A6
		move.b	#32,$5A(sp)
lbC0044A6:
		moveq	#$2A,d1
		move.l	$28(sp),a0
		cmp.b	(a0),d1
		bne.b	lbC0044CA
		move.l	(a3),a1
		addq.l	#4,(a3)
		move.l	(a1),d1
		move.l	d1,$4C(sp)
		bge.b	lbC0044C4
		neg.l	$4C(sp)
		move.b	d0,$5B(sp)
lbC0044C4:
		addq.l	#1,$28(sp)
		bra.b	lbC0044D6
lbC0044CA:
		lea	$4C(sp),a1
		bsr.w	lbC002890
		add.l	d0,$28(sp)
lbC0044D6:
		move.l	$28(sp),a0
		move.b	(a0),d0
		moveq	#$2E,d1
		cmp.b	d1,d0
		bne.b	lbC004524
		addq.l	#1,$28(sp)
		moveq	#$2A,d0
		move.l	$28(sp),a0
		cmp.b	(a0),d0
		bne.b	lbC004508
		move.l	(a3),a0
		addq.l	#4,(a3)
		move.l	(a0),d0
		move.l	d0,$60(sp)
		bge.b	lbC004502
		moveq	#-1,d0
		move.l	d0,$60(sp)
lbC004502:
		addq.l	#1,$28(sp)
		bra.b	lbC00451E
lbC004508:
		lea	$60(sp),a1
		bsr.w	lbC002890
		move.l	d0,d5
		bne.b	lbC00451A
		clr.l	$60(sp)
		bra.b	lbC00451E
lbC00451A:
		add.l	d5,$28(sp)
lbC00451E:
		move.b	#32,$5A(sp)
lbC004524:
		move.l	$28(sp),a0
		moveq	#0,d0
		move.b	(a0),d0
		moveq	#$4C,d1
		sub.l	d1,d0
		beq.b	lbC004546
		moveq	#$1C,d1
		sub.l	d1,d0
		beq.b	lbC00453E
		subq.l	#4,d0
		beq.b	lbC004546
		bra.b	lbC004550
lbC00453E:
		move.b	#2,$5C(sp)
		bra.b	lbC00454C
lbC004546:
		move.b	#1,$5C(sp)
lbC00454C:
		addq.l	#1,$28(sp)
lbC004550:
		move.l	$28(sp),a0
		addq.l	#1,a0
		move.l	$28(sp),a1
		move.b	(a1),d0
		moveq	#0,d1
		move.b	d0,d1
		move.b	d0,32(sp)
		move.l	a0,$22(sp)
		moveq	#$50,d0
		sub.l	d0,d1
		blt.w	lbC004778
		cmpi.l	#$29,d1
		bge.w	lbC004778
		add.w	d1,d1
		move.w	lbW004584(pc,d1.w),d1
		jmp	lbW004586(pc,d1.w)

	 ********************************

lbW004584:
		dc.w	lbC00469E-lbW004586
lbW004586:
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC0046B0-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004766-lbW004586
		dc.w	lbC0045F8-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC0045F8-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC0045D6-lbW004586
		dc.w	lbC0046B0-lbW004586
		dc.w	lbC00469E-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004732-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC0046B0-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC004778-lbW004586
		dc.w	lbC0046B0-lbW004586

	 ********************************

lbC0045D6:
		moveq	#2,d0
		cmp.b	$5C(sp),d0
		bne.b	lbC0045EC
		move.l	(a3),a0
		addq.l	#4,(a3)
		move.l	(a0),a1
		move.l	(a5),d0
		move.w	d0,(a1)
		bra.w	lbC004828
lbC0045EC:
		move.l	(a3),a0
		addq.l	#4,(a3)
		move.l	(a0),a1
		move.l	(a5),(a1)
		bra.w	lbC004828
lbC0045F8:
		move.l	(a3),a0
		addq.l	#4,(a3)
		move.l	(a0),d4
		bpl.b	lbC004604
		moveq	#1,d7
		neg.l	d4
lbC004604:
		tst.l	d7
		beq.b	lbC004614
		lea	$33(sp),a2
		move.b	#$2D,50(sp)
		bra.b	lbC004636
lbC004614:
		tst.b	$46(sp)
		beq.b	lbC004626
		lea	$33(sp),a2
		move.b	#$2B,50(sp)
		bra.b	lbC004636
lbC004626:
		tst.b	$47(sp)
		beq.b	lbC004638
		lea	$33(sp),a2
		move.b	#32,50(sp)
lbC004636:
		moveq	#1,d6
lbC004638:
		move.l	d4,d0
		move.l	a2,a0
		bsr.w	lbC0027B8
lbC004640:
		move.l	d0,d5
lbC004642:
		move.l	$60(sp),d0
		bne.b	lbC00464E
		tst.l	d4
		beq.w	lbC004828
lbC00464E:
		move.l	$60(sp),d0
		bpl.b	lbC00465A
		moveq	#1,d1
		move.l	d1,$60(sp)
lbC00465A:
		move.l	$60(sp),d4
		sub.l	d5,d4
		ble.b	lbC00467E
		move.l	a2,a0
		adda.l	d4,a0
		move.l	d5,d0
		move.l	a2,a1
		bsr.w	lbC0035CC
		moveq	#$30,d1
		move.l	a2,a0
		cmpi.w	#$10C1,d0
lbC004674:	EQU	*-2
		subq.l	#1,d4
		bcc.b	lbC004674
		move.l	$60(sp),d5
lbC00467E:
		add.l	d5,d6
		subq.l	#1,d5
		bne.w	lbC00477E
		move.b	(a2),d5
		cmp.b	$5A(sp),d5
		bne.w	lbC00477E
		tst.l	$60(sp)
		bne.w	lbC00477E
		clr.b	(a2)
		bra.w	lbC00477E
lbC00469E:
		move.l	$60(sp),d0
		bpl.b	lbC0046AA
		moveq	#8,d0
		move.l	d0,$60(sp)
lbC0046AA:
		move.b	#1,$5C(sp)
lbC0046B0:
		moveq	#2,d0
		cmp.b	$5C(sp),d0
		bne.b	lbC0046C4
		move.l	(a3),a0
		addq.l	#4,(a3)
		move.l	(a0),d0
		moveq	#0,d4
		move.w	d0,d4
		bra.b	lbC0046CA
lbC0046C4:
		move.l	(a3),a0
		addq.l	#4,(a3)
		move.l	(a0),d4
lbC0046CA:
		move.b	32(sp),d0
		moveq	#$75,d1
		cmp.b	d1,d0
		beq.w	lbC004638
		moveq	#$6F,d1
		cmp.b	d1,d0
		bne.b	lbC0046FA
		tst.b	$64(sp)
		beq.b	lbC0046EE
		lea	$33(sp),a2
		move.b	#$30,50(sp)
		moveq	#1,d6
lbC0046EE:
		move.l	d4,d0
		move.l	a2,a0
		bsr.w	lbC0027E8
		bra.w	lbC004640
lbC0046FA:
		tst.b	$64(sp)
		beq.b	lbC004712
		move.b	#$30,50(sp)
		lea	$34(sp),a2
		move.b	#$78,$33(sp)
		moveq	#2,d6
lbC004712:
		move.l	d4,d0
		move.l	a2,a0
		bsr.w	lbC002828
		move.l	d0,d5
		btst	#5,32(sp)
		bne.w	lbC004642
		lea	50(sp),a0
		bsr.w	lbC002B1C
		bra.w	lbC004642
lbC004732:
		move.l	(a3),a0
		addq.l	#4,(a3)
		move.l	(a0),a3
		move.l	a3,d0
		bne.b	lbC004746
		moveq	#-1,d0
		lea	NULLPOINTER.MSG(pc),a3
		move.l	d0,$60(sp)
lbC004746:
		move.l	a3,a0
lbC004748:
		tst.b	(a0)+
		bne.b	lbC004748
		subq.l	#1,a0
		suba.l	a3,a0
		move.l	a0,d5
		move.l	$60(sp),d0
		bmi.b	lbC00475C
		cmp.l	d5,d0
		ble.b	lbC004760
lbC00475C:
		move.l	d5,$60(sp)
lbC004760:
		move.l	$60(sp),d6
		bra.b	lbC004782
lbC004766:
		move.l	(a3),a0
		moveq	#1,d6
		addq.l	#4,(a3)
		move.l	(a0),d0
		move.b	d0,50(sp)
		clr.b	$33(sp)
		bra.b	lbC00477E
lbC004778:
		moveq	#0,d0
		bra.w	lbC00482C
lbC00477E:
		lea	50(sp),a3
lbC004782:
		move.l	$4C(sp),d0
		cmp.l	d6,d0
		bge.b	lbC004792
		moveq	#0,d1
		move.l	d1,$4C(sp)
		bra.b	lbC004796
lbC004792:
		sub.l	d6,$4C(sp)
lbC004796:
		move.l	$6C(sp),a2
		tst.b	$5B(sp)
		beq.b	lbC0047BE
		bra.b	lbC0047AA
lbC0047A2:
		move.l	a5,a0
		moveq	#0,d0
		move.b	(a3)+,d0
		jsr	(a2)
lbC0047AA:
		subq.l	#1,d6
		bge.b	lbC0047A2
		bra.b	lbC0047B6
lbC0047B0:
		move.l	a5,a0
		moveq	#32,d0
		jsr	(a2)
lbC0047B6:
		subq.l	#1,$4C(sp)
		bge.b	lbC0047B0
		bra.b	lbC004828
lbC0047BE:
		tst.l	d7
		bne.b	lbC0047CE
		tst.b	$47(sp)
		bne.b	lbC0047CE
		tst.b	$46(sp)
		beq.b	lbC004814
lbC0047CE:
		move.b	(a3),d0
		moveq	#32,d1
		cmp.b	d1,d0
		beq.b	lbC0047E2
		moveq	#$2B,d2
		cmp.b	d2,d0
		beq.b	lbC0047E2
		moveq	#$2D,d2
		cmp.b	d2,d0
		bne.b	lbC004814
lbC0047E2:
		tst.l	d6
		bmi.b	lbC004814
		cmp.b	$5A(sp),d1
		bne.b	lbC0047FE
		bra.b	lbC0047F8
lbC0047EE:
		move.l	a5,a0
		moveq	#0,d0
		move.b	$5A(sp),d0
		jsr	(a2)
lbC0047F8:
		subq.l	#1,$4C(sp)
		bge.b	lbC0047EE
lbC0047FE:
		move.l	a5,a0
		moveq	#0,d0
		move.b	(a3)+,d0
		jsr	(a2)
		subq.l	#1,d6
		bra.b	lbC004814
lbC00480A:
		move.l	a5,a0
		moveq	#0,d0
		move.b	$5A(sp),d0
		jsr	(a2)
lbC004814:
		subq.l	#1,$4C(sp)
		bge.b	lbC00480A
		bra.b	lbC004824
lbC00481C:
		move.l	a5,a0
		moveq	#0,d0
		move.b	(a3)+,d0
		jsr	(a2)
lbC004824:
		subq.l	#1,d6
		bge.b	lbC00481C
lbC004828:
		move.l	$22(sp),d0
lbC00482C:
		movem.l	(sp)+,d2/d4-d7/a2/a3/a5
		adda.w	#$48,sp
		rts

	 ********************************

NULLPOINTER.MSG:
		dc.b	"***NULL POINTER***",0,0

	 ********************************

		nop
		move.l	4(sp),a0
		move.l	8(sp),a1
		move.l	12(sp),4(sp)
		move.l	16(sp),8(sp)
lbC004860:
		subq.w	#4,sp
		movem.l	d7/a3/a5,-(sp)
		move.l	$18(sp),12(sp)
		move.l	a1,a3
		move.l	a0,a5
		bra.b	lbC0048A6
lbC004872:
		moveq	#$25,d0
		cmp.b	d0,d7
		bne.b	lbC00489E
		move.l	$14(sp),a0
		cmp.b	(a0),d0
		bne.b	lbC004886
		addq.l	#1,$14(sp)
		bra.b	lbC00489E
lbC004886:
		move.l	a3,-(sp)
		move.l	a5,-(sp)
		lea	$14(sp),a1
		bsr.w	lbC0043E4
		addq.w	#8,sp
		tst.l	d0
		beq.b	lbC00489E
		move.l	d0,$14(sp)
		bra.b	lbC0048A6
lbC00489E:
		move.l	a3,a0
		moveq	#0,d0
		move.b	d7,d0
		jsr	(a5)
lbC0048A6:
		move.l	$14(sp),a0
		move.b	(a0)+,d7
		move.l	a0,$14(sp)
		tst.b	d7
		bne.b	lbC004872
		movem.l	(sp)+,d7/a3/a5
		addq.w	#4,sp
		rts

	 ********************************

lbC0048BC:
		move.l	4(sp),a0
		move.l	8(sp),a1
		movem.l	d2/a6,-(sp)
		move.l	a0,d1
		move.l	a1,d2
		move.l	$2FC(a4),a6
		jsr	-$4E(a6)
		tst.l	d0
		bne.b	lbC0048EC
		jsr	-$84(a6)
		move.l	d0,$209C(a4)
		bsr.w	lbC004928
		move.l	d0,$20A8(a4)
		moveq	#1,d0
		cmpi.w	#$7000,d0
lbC0048EC:	EQU	*-2
		movem.l	(sp)+,d2/a6
		rts

	 ********************************

lbC0048F4:
		move.l	4(sp),a0
lbC0048F8:
		move.l	a6,-(sp)
		move.l	a0,d1
		move.l	$2FC(a4),a6
		jsr	-$48(a6)
		tst.l	d0
		bne.b	lbC00491C
		jsr	-$84(a6)
		move.l	d0,$209C(a4)
		bsr.w	lbC004928
		move.l	d0,$20A8(a4)
		moveq	#1,d0
		cmpi.w	#$7000,d0
lbC00491C:	EQU	*-2
		move.l	(sp)+,a6
		rts

	 ********************************

		nop
		move.l	4(sp),d0
lbC004928:
		move.l	d7,-(sp)
		move.l	d0,d7
		beq.b	lbC004980
		moveq	#$67,d1
		cmp.l	d1,d7
		blt.b	lbC00497E
		moveq	#$7A,d0
		cmp.l	d0,d7
		bgt.b	lbC004946
		lea	$250(a4),a0
		moveq	#0,d0
		move.b	(a0,d7.l),d0
		bra.b	lbC004980
lbC004946:
		moveq	#$36,d0
		not.b	d0
		cmp.l	d0,d7
		blt.b	lbC00497E
		moveq	#12,d0
		not.b	d0
		cmp.l	d0,d7
		bgt.b	lbC004962
		lea	$202(a4),a0
		moveq	#0,d0
		move.b	(a0,d7.l),d0
		bra.b	lbC004980
lbC004962:
		cmpi.l	#$12F,d7
		blt.b	lbC00497E
		cmpi.l	#$131,d7
		bge.b	lbC00497E
		lea	$1C4(a4),a0
		moveq	#0,d0
		move.b	(a0,d7.l),d0
		cmpi.w	#$7005,d0
lbC00497E:	EQU	*-2
lbC004980:
		move.l	(sp)+,d7
		rts

	 ********************************

lbC004984:
		move.l	a0,-(sp)
		move.l	d0,-(sp)
		jsr	lbC001444
		addq.w	#8,sp
		rts

	 ********************************

		dc.w	0

	 ********************************

 SECTION DreAdvertise_2,data_p

lbL004994:
		dc.l	$32
		dc.l	$32
		dc.l	$FD
		dc.l	$32
		dc.b	"Nu"

	 ********************************

		dc.b	"dos.library",0

	 ********************************

		dc.b	"$VER: DRE!ADVERTISE v2.o [RELEASE 2] (Sep 12"
		dc.b	" 1994 23:24:21)",10,0

	 ********************************

		dc.b	"~®"
		dc.b	$95
		dc.b	"¨¬b",0,0
		dc.b	0
lbL0049F8:
		dc.l	lbC0025F0
lbL0049FC:
		dc.l	lbC0028E0
		dc.l	0
lbL004A04:
		dc.l	lbC002B50
		dc.l	lbC002748
		dc.l	0
		dc.l	$1000
		dc.w	0

	 ********************************

		dc.b	"T`CST",0

	 ********************************

		dc.l	$1F1C1F1E
		dc.l	$1F1E1F1F
		dc.l	$1E1F1E1F
		dc.l	Jan.MSG
		dc.l	Feb.MSG
		dc.l	Mar.MSG
		dc.l	Apr.MSG
		dc.l	May.MSG
		dc.l	Jun.MSG
		dc.l	Jul.MSG
		dc.l	Aug.MSG
		dc.l	Sep.MSG
		dc.l	Oct.MSG
		dc.l	Nov.MSG
		dc.l	Dec.MSG
		dc.l	Sun.MSG
		dc.l	Mon.MSG
		dc.l	Tue.MSG
		dc.l	Wed.MSG
		dc.l	Thu.MSG
		dc.l	Fri.MSG
		dc.l	Sat.MSG
		dc.l	1
		dc.l	0
		dc.l	0
		dc.l	1
		dc.l	0
		dc.l	1
		dc.l	1
		dc.l	1
		dc.l	1
		dc.l	$202020
		dc.l	$20202020
		dc.l	$20202828
		dc.l	$28282820
		dc.l	$20202020
		dc.l	$20202020
		dc.l	$20202020
		dc.l	$20202020
		dc.l	$20481010
		dc.l	$10101010
		dc.l	$10101010
		dc.l	$10101010
		dc.l	$10848484
		dc.l	$84848484
		dc.l	$84848410
		dc.l	$10101010
		dc.l	$10108181
		dc.l	$81818181
		dc.l	$1010101
		dc.l	$1010101
		dc.l	$1010101
		dc.l	$1010101
		dc.l	$1010101
		dc.l	$10101010
		dc.l	$10108282
		dc.l	$82828282
		dc.l	$2020202
		dc.l	$2020202
		dc.l	$2020202
		dc.l	$2020202
		dc.l	$2020202
		dc.l	$10101010
		dc.l	$20000000
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	lbL0049F8
		dc.l	$FA0
		dc.l	lbL004BC6
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.w	0
lbL004BC6:
		dc.l	lbL004BE8
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.w	0
lbL004BE8:
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	$200
		dc.l	0
		dc.l	0
		dc.l	$8000
		dc.l	13
		dc.l	0

	 ********************************

		dc.b	"/auto/close/wait",0,0
		dc.w	0
		dc.b	"con:10/10/320/80/",0

	 ********************************

		dc.l	$505
		dc.l	$5050505
		dc.l	$5050505
		dc.l	$5050505
		dc.l	$5050505
		dc.l	$D051011
		dc.l	$2020505
		dc.l	$5050205
		dc.l	$16051E13
		dc.l	$5050505
		dc.l	$5050D0D
		dc.l	$D131305
		dc.l	$5050505
		dc.l	$5050505
		dc.l	$5050505
		dc.l	$5050505
		dc.w	0

	 ********************************

lbL004C8C:
		ds.l	$7AF

	 ********************************
		end