* ByteLog - By ByteAndi X-Innovation
* ReSourced and Text Removed by - The Welder/SpearHead
* 12.01.98

Execbase = 4

 SECTION ByteLog,code_p

Start:
		movem.l	d1-d6/a0-a6,-(sp)
		move.l	a0,a2
		move.l	d0,d2
		lea	Main_Text,a4
		move.l	(Execbase).w,a6
		lea	lbL002BC8,a3
		moveq	#0,d1
		move.l	#$95,d0
		bra.b	lbC000024
lbC000022:
		move.l	d1,(a3)+
lbC000024:
		dbf	d0,lbC000022
		move.l	sp,$4B0(a4)
		move.l	a6,$4A8(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,$484(a4)
		cmp.l	$2C4(a4),d0
		bcc.b	lbC000092
		move.l	$2C4(a4),d0
		addi.l	#$80,d0
		move.l	d0,$4C4(a4)
		move.l	#$10001,d1
		jsr	-$C6(a6)
		tst.l	d0
		beq.w	lbC00020C
		move.l	d0,$4C0(a4)
		addi.l	#$80,d0
		move.l	d0,$484(a4)
		add.l	$2C4(a4),d0
		move.l	d0,sp
lbC000092:
		clr.l	$4AC(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,$5DC(a4)
		bne.b	lbC0000BC
		moveq	#$64,d0
		bra.w	lbC0001A0
lbC0000BC:
		move.l	$98(a3),$4A4(a4)
		tst.l	$AC(a3)
		beq.b	lbC000146
		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,$4B4(a4)
		add.l	d1,d0
		addq.l	#7,d0
		andi.w	#-4,d0
		move.l	d0,$4BC(a4)
		movem.l	d1/a1,-(sp)
		move.l	#$10001,d1
		jsr	-$C6(a6)
		movem.l	(sp)+,d1/a1
		tst.l	d0
		bne.b	lbC00010E
		moveq	#$14,d0
		move.l	d0,-(sp)
		beq.w	lbC000202
lbC00010E:
		move.l	d0,a0
		move.l	d0,$4B8(a4)
		move.l	d2,d0
		subq.l	#1,d0
		add.l	d1,d2
lbC00011A:
		move.b	(a2,d0.w),2(a0,d2.w)
		subq.l	#1,d2
		dbf	d0,lbC00011A
		move.b	#$20,2(a0,d2.w)
		subq.l	#1,d2
		move.b	#$22,2(a0,d2.w)
lbC000134:
		move.b	(a1,d2.w),1(a0,d2.w)
		dbf	d2,lbC000134
		move.b	#$22,(a0)
		move.l	a0,-(sp)
		bra.b	lbC000190
lbC000146:
		lea	$5C(a3),a0
		jsr	-$180(a6)
		lea	$5C(a3),a0
		jsr	-$174(a6)
		move.l	d0,$4AC(a4)
		move.l	d0,-(sp)
		move.l	d0,a2
		move.l	$24(a2),d0
		beq.b	lbC00017C
		move.l	$5DC(a4),a6
		move.l	d0,a0
		move.l	(a0),d1
		jsr	-$60(a6)
		move.l	d0,$4A4(a4)
		move.l	d0,d1
		jsr	-$7E(a6)
lbC00017C:
		move.l	$4AC(a4),a0
		move.l	a0,-(sp)
		pea	$480(a4)
		move.l	$24(a0),a0
		move.l	4(a0),$4B4(a4)
lbC000190:
		jsr	lbC000BD0(pc)
		jsr	lbC001164(pc)
		moveq	#0,d0
		bra.b	lbC0001A0
lbC00019C:
		move.l	4(sp),d0
lbC0001A0:
		move.l	$4B0(a4),sp
		move.l	d0,-(sp)
		move.l	$49C(a4),d0
		beq.b	lbC0001B0
		move.l	d0,a0
		jsr	(a0)
lbC0001B0:
		jsr	lbC000BE8(pc)
		jsr	lbC000C38(pc)
		move.l	$4C4(a4),d0
		beq.b	lbC0001CA
		move.l	$4C0(a4),a1
		move.l	(Execbase).w,a6
		jsr	-$D2(a6)
lbC0001CA:
		tst.l	$4AC(a4)
		beq.b	lbC0001F0
		move.l	$5DC(a4),a6
		move.l	$4A4(a4),d1
		beq.b	lbC0001DE
		jsr	-$5A(a6)
lbC0001DE:
		move.l	(Execbase).w,a6
		jsr	-$84(a6)
		move.l	$4AC(a4),a1
		jsr	-$17A(a6)
		bra.b	lbC000202
lbC0001F0:
		move.l	(Execbase).w,a6
		move.l	$4BC(a4),d0
		beq.b	lbC000202
		move.l	$4B8(a4),a1
		jsr	-$D2(a6)
lbC000202:
		move.l	$5DC(a4),a1
		jsr	-$19E(a6)
		move.l	(sp)+,d0
lbC00020C:
		movem.l	(sp)+,d1-d6/a0-a6
		rts

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

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

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

lbC000220:
		move.l	sp,d0
		subi.l	#12,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		subq.w	#8,sp
		movem.l	d2/d4-d7/a5,-(sp)
		subi.l	#$5460,$24(sp)
		subi.l	#$5460,$28(sp)
		move.l	$590(a4),d0
		move.l	d0,d1
		asl.l	#4,d1
		sub.l	d0,d1
		move.l	d1,d2
		asl.l	#3,d2
		add.l	d1,d2
		move.l	d2,d1
		asl.l	#2,d1
		add.l	d2,d1
		asl.l	#7,d1
		add.l	d1,$24(sp)
		pea	$24(sp)
		bsr.w	lbC00165C
		move.l	d0,a5
		move.l	12(a5),d6
		move.l	16(a5),d7
		addq.l	#1,d7
		move.l	$14(a5),d5
		pea	$2C(sp)
		bsr.w	lbC00165C
		move.l	d0,a5
		addq.w	#8,sp
		move.l	12(a5),d0
		move.l	16(a5),d4
		addq.l	#1,d4
		move.l	$14(a5),d1
		movem.l	d0,$1C(sp)
		movem.l	d1,$18(sp)
		cmp.l	d5,d1
		ble.b	lbC0002A8
		moveq	#1,d0
		bra.b	lbC0002CE
lbC0002A8:
		cmp.l	d5,d1
		bge.b	lbC0002B0
		moveq	#0,d0
		bra.b	lbC0002CE
lbC0002B0:
		cmp.l	d7,d4
		ble.b	lbC0002B8
		moveq	#1,d0
		bra.b	lbC0002CE
lbC0002B8:
		cmp.l	d7,d4
		bge.b	lbC0002C0
		moveq	#0,d0
		bra.b	lbC0002CE
lbC0002C0:
		move.l	$1C(sp),d0
		cmp.l	d6,d0
		ble.b	lbC0002CC
		moveq	#1,d0
		bra.b	lbC0002CE
lbC0002CC:
		moveq	#0,d0
lbC0002CE:
		movem.l	(sp)+,d2/d4-d7/a5
		addq.w	#8,sp
		rts
lbC0002D6:
		move.l	sp,d0
		subq.l	#8,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		pea	3.w
		pea	$74(a4)
		bsr.w	lbC00091E
		bsr.w	lbC000672
		clr.l	(sp)
		bsr.w	lbC001D2C
		addq.w	#8,sp
		rts
lbC0002FC:
		move.l	sp,d0
		subi.l	#$19C,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		suba.w	#$190,sp
		movem.l	d7/a6,-(sp)
		pea	$83.w
		pea	$D4(sp)
		bsr.w	lbC0008DC
		bsr.w	lbC002600
		addq.w	#8,sp
		tst.w	d0
		beq.b	lbC00033C
		clr.l	-(sp)
		pea	$78(a4)
		bsr.w	lbC00264E
		addq.w	#8,sp
		tst.w	d0
		bne.b	lbC00033C
		bsr.b	lbC0002D6
lbC00033C:
		bsr.w	lbC00262A
		lea	$D0(sp),a0
		move.l	a0,d1
		move.l	$5DC(a4),a6
		jsr	-$366(a6)
		move.l	d0,a0
		lea	$D0(sp),a1
lbC000354:
		move.b	(a0)+,(a1)+
		bne.b	lbC000354
		pea	$68.w
		pea	$4C8(a4)
		bsr.w	lbC0008DC
		pea	$4C8(a4)
		bsr.w	lbC001CF4
		move.l	d0,d7
		pea	$7F.w
		pea	$4C8(a4)
		bsr.w	lbC0008DC
		pea	$E4(sp)
		pea	$94(a4)
		pea	$24(sp)
		bsr.w	lbC001D94
		pea	3.w
		pea	$2C(sp)

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

;		bsr.w	lbC00091E		; Remove file log name

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

		move.l	d7,(sp)
		pea	$F8(sp)
		pea	$4C8(a4)
		bsr.b	lbC0003B2
		lea	$30(sp),sp
		movem.l	(sp)+,d7/a6
		adda.w	#$190,sp
		rts

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

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

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

lbC0003B2:
		move.l	sp,d0
		subi.l	#$78,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		suba.w	#$6C,sp
		movem.l	d2/d3/d5-d7/a2/a3/a5/a6,-(sp)
		move.l	$9C(sp),d7
		move.l	$98(sp),a3
		move.l	$94(sp),a5
		pea	$88(sp)
		bsr.w	lbC001794
		moveq	#$16,d0
		move.l	#$10001,d1
		move.l	(Execbase).w,a6
		jsr	-$C6(a6)
		move.l	d0,a2
		moveq	#$16,d0
		move.l	#$10001,d1
		jsr	-$C6(a6)
		move.l	d0,$90(sp)
		move.l	a3,a0
		move.l	d0,a1
lbC000404:
		move.b	(a0)+,(a1)+
		bne.b	lbC000404
		move.l	d0,a0
		move.l	d7,$12(a0)
		move.l	$8C(sp),14(a0)
		move.l	a5,(sp)
		pea	$BA(a4)
		pea	$2C(sp)
		bsr.w	lbC001D94
		lea	12(sp),sp
		lea	$24(sp),a0
		move.l	a0,d1
		move.l	$5DC(a4),a6
		move.l	#$3ED,d2
		jsr	-$1E(a6)
		move.l	d0,d6
		tst.l	d6
		bne.b	lbC000468
		lea	$24(sp),a0
		move.l	a0,d1
		move.l	#$3EE,d2
		jsr	-$1E(a6)
		move.l	d0,d6
		tst.l	d6
		bne.b	lbC000468
		pea	3.w
		pea	$C2(a4)
		bsr.w	lbC00091E
		bsr.w	lbC0002D6
		addq.w	#8,sp
lbC000468:
		move.l	d6,d1
		move.l	a2,d2
		move.l	$5DC(a4),a6
		moveq	#$16,d3
		jsr	-$2A(a6)
		move.l	d0,d5
		cmp.l	d3,d5
		bne.b	lbC0004C4
		move.l	$88(sp),-(sp)
		move.l	14(a2),-(sp)
		bsr.w	lbC000220
		addq.w	#8,sp
		tst.w	d0
		beq.b	lbC000468
		move.l	d6,d1
		moveq	#-$16,d2
		moveq	#0,d3
		jsr	-$42(a6)
		move.l	d6,d1
		move.l	$8C(sp),d2
		moveq	#$16,d3
		jsr	-$30(a6)
		move.l	d6,d1
		jsr	-$24(a6)
		move.l	d3,d0
		move.l	a2,a1
		move.l	(Execbase).w,a6
		jsr	-$D2(a6)
		move.l	d2,a1
		move.l	d3,d0
		jsr	-$D2(a6)
		bsr.w	lbC0002D6
		bra.b	lbC000468
lbC0004C4:
		move.l	d6,d1
		move.l	$8C(sp),d2
		move.l	$5DC(a4),a6
		moveq	#$16,d3
		jsr	-$30(a6)
		move.l	d6,d1
		jsr	-$24(a6)
		move.l	d3,d0
		move.l	a2,a1
		move.l	(Execbase).w,a6
		jsr	-$D2(a6)
		move.l	d2,a1
		move.l	d3,d0
		jsr	-$D2(a6)
		bsr.w	lbC0002D6
		movem.l	(sp)+,d2/d3/d5-d7/a2/a3/a5/a6
		adda.w	#$6C,sp
		rts
lbC0004FC:
		move.l	sp,d0
		subq.l	#8,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		move.l	a5,-(sp)
		move.l	12(sp),a5
		move.l	4(a5),-(sp)
		bsr.w	lbC001CF4
		move.l	d0,(sp)
		bsr.b	lbC00053C
		pea	3.w
		pea	5(a4)

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

;		bsr.w	lbC00091E		; Remove Title text

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

		bsr.w	lbC0002FC
		bsr.w	lbC0002D6
		lea	12(sp),sp
		move.l	(sp)+,a5
		moveq	#0,d0
		rts
lbC00053C:
		move.l	sp,d0
		subi.l	#$1C,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		suba.w	#16,sp
		movem.l	d6/d7/a6,-(sp)
		move.l	$20(sp),d7
		clr.l	12(sp)
		moveq	#$42,d0
		lsl.l	#2,d0
		move.l	#$10001,d1
		move.l	(Execbase).w,a6
		jsr	-$C6(a6)
		move.l	d0,$59C(a4)
		tst.l	d0
		bne.b	lbC000588
		pea	$DC(a4)
		bsr.w	lbC000C00
		pea	$1E.w
		bsr.w	lbC001D2C
		addq.w	#8,sp
lbC000588:
		clr.l	-(sp)
		clr.l	-(sp)
		bsr.w	lbC002500
		move.l	d0,$598(a4)
		addq.w	#8,sp
		bne.b	lbC0005B6
		pea	$106(a4)
		bsr.w	lbC000C00
		move.l	$59C(a4),a1
		moveq	#$42,d0
		lsl.l	#2,d0
		jsr	-$D2(a6)
		pea	$1E.w
		bsr.w	lbC001D2C
		addq.w	#8,sp
lbC0005B6:
		move.l	$59C(a4),a0
		move.b	#5,8(a0)
		move.l	$59C(a4),a0
		move.w	#$108,$12(a0)
		move.l	$59C(a4),a0
		move.l	$598(a4),14(a0)
		move.l	$59C(a4),a0
		adda.w	#$14,a0
		lea	$122(a4),a1
lbC0005E0:
		move.b	(a1)+,(a0)+
		bne.b	lbC0005E0
		moveq	#1,d0
		move.l	$59C(a4),a0
		move.l	d0,$E0(a0)
		moveq	#2,d0
		move.l	$59C(a4),a0
		move.l	d0,$DC(a0)
		moveq	#-1,d0
		move.l	$59C(a4),a0
		move.l	d0,$E4(a0)
		move.l	$59C(a4),a0
		clr.l	$E8(a0)
		move.l	d7,-(sp)
		pea	$124(a4)
		pea	$5A4(a4)
		bsr.w	lbC001D94
		lea	12(sp),sp
lbC00061C:
		lea	$5A4(a4),a1
		move.l	(Execbase).w,a6
		jsr	-$186(a6)
		move.l	d0,$594(a4)
		beq.b	lbC00061C
		move.l	$594(a4),a0
		move.l	$59C(a4),a1
		move.l	(Execbase).w,a6
		jsr	-$16E(a6)
		moveq	#0,d0
		move.l	$598(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	$598(a4),a0
		jsr	-$174(a6)
		move.l	d0,$5A0(a4)
		move.l	d0,a0
		move.l	$E0(a0),$5B8(a4)
		movem.l	(sp)+,d6/d7/a6
		adda.w	#16,sp
		rts
lbC000672:
		move.l	sp,d0
		subq.l	#8,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		movem.l	d6/d7/a6,-(sp)
		moveq	#0,d0
		move.l	$598(a4),a0
		move.b	15(a0),d0
		moveq	#0,d1
		bset	d0,d1
		move.l	d1,d7
		moveq	#2,d0
		move.l	$59C(a4),a0
		move.l	d0,$E0(a0)
		move.l	$594(a4),a0
		move.l	$59C(a4),a1
		move.l	(Execbase).w,a6
		jsr	-$16E(a6)
		move.l	d7,d0
		jsr	-$13E(a6)
		move.l	d0,d6
		bsr.b	lbC0006C6
		clr.l	-(sp)
		bsr.w	lbC001D2C
		addq.w	#4,sp
		movem.l	(sp)+,d6/d7/a6
		rts
lbC0006C6:
		move.l	sp,d0
		subq.l	#8,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		move.l	a6,-(sp)
lbC0006D4:
		move.l	$598(a4),a0
		move.l	(Execbase).w,a6
		jsr	-$174(a6)
		move.l	d0,$5A0(a4)
		bne.b	lbC0006D4
		move.l	$598(a4),-(sp)
		bsr.w	lbC0024BC
		addq.w	#4,sp
		move.l	$59C(a4),a1
		moveq	#$42,d0
		lsl.l	#2,d0
		move.l	(Execbase).w,a6
		jsr	-$D2(a6)
		move.l	(sp)+,a6
		rts
lbC000704:
		move.l	sp,d0
		subq.l	#8,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		move.l	a6,-(sp)
		move.l	$594(a4),a0
		move.l	$59C(a4),a1
		move.l	(Execbase).w,a6
		jsr	-$16E(a6)
		move.l	$598(a4),a0
		jsr	-$180(a6)
		move.l	$598(a4),a0
		jsr	-$174(a6)
		move.l	(sp)+,a6
		rts
lbC000736:
		move.l	sp,d0
		subq.l	#8,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		move.l	a6,-(sp)
		move.l	$594(a4),a0
		move.l	$59C(a4),a1
		move.l	(Execbase).w,a6
		jsr	-$16E(a6)
		move.l	$598(a4),a0
		jsr	-$180(a6)
		move.l	$598(a4),a0
		jsr	-$174(a6)
		move.l	(sp)+,a6
		rts

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

;		move.l	sp,d0
;		subq.l	#8,d0
;		cmp.l	$484(a4),d0
;		bcs.w	lbC0010FC
;		movem.l	d7/a5,-(sp)
;		move.l	16(sp),d7
;		move.l	12(sp),a5
;		move.l	$59C(a4),a0
;		move.l	d7,$DC(a0)
;		moveq	#4,d0
;		move.l	$59C(a4),a0
;		move.l	d0,$E0(a0)
;		move.l	$59C(a4),a0
;		adda.w	#$14,a0
;		move.l	a5,a1
;lbC00079C:
;		move.b	(a1)+,(a0)+
;		bne.b	lbC00079C
;		bsr.b	lbC000736
;		movem.l	(sp)+,d7/a5
;		rts

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

;		move.l	sp,d0
;		subq.l	#8,d0
;		cmp.l	$484(a4),d0
;		bcs.w	lbC0010FC
;		movem.l	d7/a5,-(sp)
;		move.l	16(sp),d7
;		move.l	12(sp),a5
;		move.l	$59C(a4),a0
;		move.l	d7,$DC(a0)
;		moveq	#9,d0
;		move.l	$59C(a4),a0
;		move.l	d0,$E0(a0)
;		move.l	$59C(a4),a0
;		adda.w	#$14,a0
;		move.l	a5,a1
;lbC0007DC:
;		move.b	(a1)+,(a0)+
;		bne.b	lbC0007DC
;		bsr.w	lbC000704
;		move.l	$59C(a4),a0
;		move.l	$DC(a0),d0
;		movem.l	(sp)+,d7/a5
;		rts

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

;		move.l	sp,d0
;		subq.l	#8,d0
;		cmp.l	$484(a4),d0
;		bcs.w	lbC0010FC
;		move.l	a5,-(sp)
;		move.l	8(sp),a5
;		move.l	$59C(a4),a0
;		clr.l	$E8(a0)
;		move.l	$59C(a4),a0
;		clr.b	$14(a0)
;		moveq	#6,d0
;		move.l	$59C(a4),a0
;		move.l	d0,$E0(a0)
;		bsr.w	lbC000736
;		move.l	$59C(a4),a0
;		adda.w	#$14,a0
;		move.l	a5,a1
;lbC00082C:
;		move.b	(a0)+,(a1)+
;		bne.b	lbC00082C
;		move.l	$59C(a4),a0
;		move.l	$DC(a0),d0
;		move.l	(sp)+,a5
;		rts

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

;		move.l	sp,d0
;		subq.l	#8,d0
;		cmp.l	$484(a4),d0
;		bcs.w	lbC0010FC
;		move.l	$59C(a4),a0
;		clr.l	$E8(a0)
;		moveq	#6,d0
;		move.l	$59C(a4),a0
;		move.l	d0,$E0(a0)
;		move.l	$59C(a4),a0
;		adda.w	#$14,a0
;		lea	$132(a4),a1
;lbC000866:
;		move.b	(a1)+,(a0)+
;		bne.b	lbC000866
;		bsr.w	lbC000736
;		moveq	#-1,d0
;		move.l	$59C(a4),a0
;		cmp.l	$DC(a0),d0
;		bne.b	lbC00087E
;		moveq	#-1,d0
;		bra.b	lbC000882
;lbC00087E:
;		move.b	$14(a0),d0
;lbC000882:
;		rts

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

;		move.l	sp,d0
;		subq.l	#8,d0
;		cmp.l	$484(a4),d0
;		bcs.w	lbC0010FC
;		movem.l	d7/a5,-(sp)
;		move.l	16(sp),d7
;		move.l	12(sp),a5
;		move.l	$59C(a4),a0
;		clr.l	$E8(a0)
;		move.l	$59C(a4),a0
;		clr.b	$14(a0)
;		move.l	$59C(a4),a0
;		move.l	d7,$DC(a0)
;		move.l	$59C(a4),a0
;		clr.l	$E0(a0)
;		bsr.w	lbC000736
;		move.l	$59C(a4),a0
;		adda.w	#$14,a0
;		move.l	a5,a1
;lbC0008CA:
;		move.b	(a0)+,(a1)+
;		bne.b	lbC0008CA
;		move.l	$59C(a4),a0
;		move.l	$DC(a0),d0
;		movem.l	(sp)+,d7/a5
;		rts

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

lbC0008DC:
		move.l	sp,d0
		subq.l	#8,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		movem.l	d7/a5,-(sp)
		move.l	16(sp),d7
		move.l	12(sp),a5
		move.l	$59C(a4),a0
		move.l	d7,$E0(a0)
		moveq	#1,d0
		move.l	$59C(a4),a0
		move.l	d0,$DC(a0)
		bsr.b	lbC000736
		move.l	$59C(a4),a0
		adda.w	#$14,a0
		move.l	a5,a1
lbC000914:
		move.b	(a0)+,(a1)+
		bne.b	lbC000914
		movem.l	(sp)+,d7/a5
		rts
lbC00091E:
		move.l	sp,d0
		subq.l	#8,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		movem.l	d7/a5,-(sp)
		move.l	16(sp),d7
		move.l	12(sp),a5
		move.l	$59C(a4),a0
		move.l	d7,$E0(a0)
		move.l	$59C(a4),a0
		clr.l	$DC(a0)
		move.l	$59C(a4),a0
		adda.w	#$14,a0
		move.l	a5,a1
lbC000950:
		move.b	(a1)+,(a0)+
		bne.b	lbC000950
		bsr.w	lbC000736
		movem.l	(sp)+,d7/a5
		rts

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

;		cmp.l	$484(a4),sp
;		bcs.w	lbC0010FC
;		moveq	#16,d0
;		move.l	$59C(a4),a0
;		move.l	d0,$E0(a0)
;		bsr.w	lbC000736
;		move.l	$59C(a4),a0
;		move.l	$DC(a0),d0
;		rts

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

;		cmp.l	$484(a4),sp
;		bcs.w	lbC0010FC
;		movem.l	d7/a2/a3/a5,-(sp)
;		move.l	$14(sp),d7
;		move.l	$20(sp),a2
;		move.l	$1C(sp),a3
;		move.l	$18(sp),a5
;		move.l	$59C(a4),a0
;		move.l	#$279,$E0(a0)
;		move.l	$59C(a4),a0
;		move.l	d7,$DC(a0)
;		move.l	$59C(a4),a0
;		move.l	a5,$F8(a0)
;		move.l	$59C(a4),a0
;		move.l	a3,$FC(a0)
;		move.l	$59C(a4),a0
;		move.l	a2,$104(a0)
;		bsr.w	lbC000736
;		move.l	$59C(a4),a0
;		move.l	$DC(a0),d0
;		movem.l	(sp)+,d7/a2/a3/a5
;		rts

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

;		cmp.l	$484(a4),sp
;		bcs.w	lbC0010FC
;		movem.l	d7/a2/a3/a5,-(sp)
;		move.l	$14(sp),d7
;		move.l	$20(sp),a2
;		move.l	$1C(sp),a3
;		move.l	$18(sp),a5
;		move.l	$59C(a4),a0
;		move.l	#$27A,$E0(a0)
;		move.l	$59C(a4),a0
;		move.l	d7,$DC(a0)
;		move.l	$59C(a4),a0
;		move.l	a5,$F8(a0)
;		move.l	$59C(a4),a0
;		move.l	a3,$FC(a0)
;		move.l	$59C(a4),a0
;		move.l	a2,$104(a0)
;		bsr.w	lbC000736
;		movem.l	(sp)+,d7/a2/a3/a5
;		rts

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

;		cmp.l	$484(a4),sp
;		bcs.w	lbC0010FC
;		movem.l	d6/d7/a5,-(sp)
;		move.l	$14(sp),d6
;		move.l	16(sp),d7
;		move.l	$18(sp),a5
;		move.l	$59C(a4),a0
;		move.l	#$216,$E0(a0)
;		move.l	$59C(a4),a0
;		move.l	d7,$DC(a0)
;		move.l	$59C(a4),a0
;		move.l	d6,$E4(a0)
;		move.l	$59C(a4),a0
;		move.l	a5,$F8(a0)
;		bsr.w	lbC000736
;		movem.l	(sp)+,d6/d7/a5
;		rts

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

;		cmp.l	$484(a4),sp
;		bcs.w	lbC0010FC
;		movem.l	d6/d7/a5,-(sp)
;		move.l	$14(sp),d6
;		move.l	16(sp),d7
;		move.l	$18(sp),a5
;		move.l	$59C(a4),a0
;		move.l	#$217,$E0(a0)
;		move.l	$59C(a4),a0
;		move.l	d7,$DC(a0)
;		move.l	$59C(a4),a0
;		move.l	d6,$E4(a0)
;		move.l	$59C(a4),a0
;		move.l	a5,$F8(a0)
;		bsr.w	lbC000736
;		movem.l	(sp)+,d6/d7/a5
;		rts

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

;		move.l	sp,d0
;		subq.l	#8,d0
;		cmp.l	$484(a4),d0
;		bcs.w	lbC0010FC
;		movem.l	d7/a2/a3/a5,-(sp)
;		move.l	$1C(sp),d7
;		move.l	$18(sp),a3
;		move.l	$14(sp),a5
;		lea	$134(a4),a0
;		move.l	a5,a1
;lbC000AD8:
;		move.b	(a0)+,(a1)+
;		bne.b	lbC000AD8
;		move.l	$59C(a4),a0
;		move.l	#$218,$E0(a0)
;		move.l	$59C(a4),a0
;		move.l	d7,$DC(a0)
;		move.l	$59C(a4),a0
;		move.l	a5,$F8(a0)
;		move.l	$59C(a4),a0
;		move.l	a3,$FC(a0)
;		bsr.w	lbC000736
;		move.l	a5,a2
;		tst.b	(a2)
;		bne.b	lbC000B0E
;		moveq	#0,d0
;		bra.b	lbC000B10
;lbC000B0E:
;		moveq	#1,d0
;lbC000B10:
;		movem.l	(sp)+,d7/a2/a3/a5
;		rts

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

;		cmp.l	$484(a4),sp
;		bcs.w	lbC0010FC
;		movem.l	d7/a5,-(sp)
;		move.l	16(sp),d7
;		move.l	12(sp),a5
;		move.l	$59C(a4),a0
;		move.l	d7,$E0(a0)
;		move.l	$59C(a4),a0
;		clr.l	$DC(a0)
;		move.l	$59C(a4),a0
;		move.l	a5,$F8(a0)
;		bsr.w	lbC000704
;		movem.l	(sp)+,d7/a5
;		rts

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

;		cmp.l	$484(a4),sp
;		bcs.w	lbC0010FC
;		movem.l	d7/a5,-(sp)
;		move.l	16(sp),d7
;		move.l	12(sp),a5
;		move.l	$59C(a4),a0
;		move.l	d7,$E0(a0)
;		moveq	#1,d0
;		move.l	$59C(a4),a0
;		move.l	d0,$DC(a0)
;		move.l	$59C(a4),a0
;		move.l	a5,$F8(a0)
;		bsr.w	lbC000704
;		movem.l	(sp)+,d7/a5
;		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

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

lbC000BD0:
		subq.w	#4,sp
		lea	0.w,a0
		move.l	a0,(sp)
		beq.b	lbC000BE4
		move.l	-4.w,a0
		jsr	(a0)
lbC000BE4:
		addq.w	#4,sp
		rts
lbC000BE8:
		subq.w	#4,sp
		lea	0.w,a0
		move.l	a0,(sp)
		beq.b	lbC000BFC
		move.l	-4.w,a0
		jsr	(a0)
lbC000BFC:
		addq.w	#4,sp
		rts

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

lbC000C00:
		movem.l	d6/d7/a5,-(sp)
		move.l	16(sp),a5
		move.l	a5,a0
lbC000C0A:
		tst.b	(a0)+
		bne.b	lbC000C0A
		subq.l	#1,a0
		suba.l	a5,a0
		move.l	a0,d7
		bra.b	lbC000C20
lbC000C16:
		move.l	d6,d0
		lea	$2EA(a4),a0
		jsr	lbC001DCC(pc)
lbC000C20:
		moveq	#0,d6
		move.b	(a5)+,d6
		tst.l	d6
		bne.b	lbC000C16
		lea	$2EA(a4),a0
		jsr	lbC001F38(pc)
		move.l	d7,d0
		movem.l	(sp)+,d6/d7/a5
		rts
lbC000C38:
		movem.l	a3/a5/a6,-(sp)
		move.l	$5C0(a4),a5
		bra.b	lbC000C56
lbC000C42:
		move.l	(a5),a3
		moveq	#$14,d0
		add.l	4(a5),d0
		move.l	a5,a1
		move.l	(Execbase).w,a6
		jsr	-$D2(a6)
		move.l	a3,a5
lbC000C56:
		move.l	a5,d0
		bne.b	lbC000C42
		clr.l	$5C0(a4)
		bra.b	lbC000C84
lbC000C60:
		moveq	#-$70,d0
		add.l	$484(a4),d0
		move.l	$5E0(a4),a0
		move.l	8(a0),$5E0(a4)
		move.l	4(a0),$484(a4)
		move.l	d0,a1
		move.l	12(a0),d0
		move.l	(Execbase).w,a6
		jsr	-$D2(a6)
lbC000C84:
		tst.l	$5E0(a4)
		bne.b	lbC000C60
		movem.l	(sp)+,a3/a5/a6
		rts

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

lbC000C98:
		link	a5,#-12
		move.l	sp,a1
lbC000C9E:
		moveq	#10,d1
		jsr	lbC00106A(pc)
		addi.w	#$30,d1
		move.b	d1,(a1)+
		tst.l	d0
		bne.b	lbC000C9E
		move.l	a1,d0
lbC000CB0:
		move.b	-(a1),(a0)+
		cmp.l	a1,sp
		bne.b	lbC000CB0
		clr.b	(a0)
		sub.l	sp,d0
		unlk	a5
		rts

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

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

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

abcdef.MSG:
		dc.b	"0123456789abcdef"

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

lbC000D08:
		subq.w	#8,sp
		move.l	sp,a1
lbC000D0C:
		move.w	d0,d1
		andi.w	#15,d1
		move.b	abcdef.MSG(pc,d1.w),(a1)+
		lsr.l	#4,d0
		bne.b	lbC000D0C
		move.l	a1,d0
lbC000D1C:
		move.b	-(a1),(a0)+
		cmp.l	a1,sp
		bne.b	lbC000D1C
		clr.b	(a0)
		sub.l	a1,d0
		addq.w	#8,sp
		rts

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

lbC000D34:
		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	lbC000D4E
		cmpi.b	#$2D,(a0)
		bne.b	lbC000D50
		moveq	#1,d3
lbC000D4E:
		addq.w	#1,a0
lbC000D50:
		move.b	(a0)+,d0
		subi.b	#$30,d0
		blt.b	lbC000D72
		cmpi.b	#9,d0
		bgt.b	lbC000D72
		move.l	d1,d2
		asl.l	#2,d1
		add.l	d2,d1
		add.l	d1,d1
		tst.b	d3
		bne.b	lbC000D6E
		add.l	d0,d1
		bra.b	lbC000D50
lbC000D6E:
		sub.l	d0,d1
		bra.b	lbC000D50
lbC000D72:
		move.l	d1,(a1)
		move.l	a0,d0
		sub.l	a2,d0
		subq.l	#1,d0
		movem.l	(sp)+,d2/d3/a2
		rts

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

lbC000D84:
		move.l	a5,-(sp)
		move.l	a0,a5
		btst	#3,$1B(a5)
		bne.b	lbC000DC0
		move.l	$330(a4),d0
		jsr	lbC001A6C(pc)
		move.l	d0,4(a5)
		move.l	d0,16(a5)
		bne.b	lbC000DAC
		moveq	#12,d0
		move.l	d0,$5BC(a4)
		moveq	#-1,d0
		bra.b	lbC000DC2
lbC000DAC:
		move.l	$330(a4),$14(a5)
		moveq	#-13,d0
		and.l	d0,$18(a5)
		clr.l	12(a5)
		clr.l	8(a5)
lbC000DC0:
		moveq	#0,d0
lbC000DC2:
		move.l	(sp)+,a5
		rts

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

lbC000DCC:
		movem.l	d2/a3/a5,-(sp)
		move.l	a0,a5
		move.l	a5,a3
		bra.b	lbC000DF6
lbC000DD6:
		moveq	#0,d0
		move.b	(a3),d0
		lea	$1C1(a4),a0
		btst	#1,(a0,d0.l)
		beq.b	lbC000DF0
		moveq	#0,d1
		move.b	d0,d1
		moveq	#$20,d2
		sub.l	d2,d1
		bra.b	lbC000DF4
lbC000DF0:
		moveq	#0,d1
		move.b	d0,d1
lbC000DF4:
		move.b	d1,(a3)+
lbC000DF6:
		tst.b	(a3)
		bne.b	lbC000DD6
		move.l	a5,d0
		movem.l	(sp)+,d2/a3/a5
		rts

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

lbC000E10:
		movem.l	d2/d3/d5/d6/a2/a3/a5/a6,-(sp)
		move.l	d1,d6
		move.l	d0,d5
		move.l	a0,a5
		jsr	lbC001570(pc)
		move.l	d5,d0
		jsr	lbC001528(pc)
		move.l	d0,a3
		tst.l	d0
		bne.b	lbC000E30
		moveq	#$16,d0
		bra.w	lbC000EF6
lbC000E30:
		btst	#1,7(a3)
		bne.b	lbC000E46
		move.l	#$DF,$488(a4)
		moveq	#5,d0
		bra.w	lbC000EF6
lbC000E46:
		btst	#5,7(a3)
		beq.b	lbC000E5C
		pea	2.w
		move.l	d5,d0
		moveq	#0,d1
		jsr	lbC000F12(pc)
		addq.w	#4,sp
lbC000E5C:
		btst	#6,7(a3)
		beq.b	lbC000E74
		moveq	#10,d0
		move.l	d6,d1
		move.l	a5,a0
		jsr	lbC00182C(pc)
		move.l	d0,a2
		tst.l	d0
		bne.b	lbC000E8E
lbC000E74:
		move.l	8(a3),d1
		move.l	a5,d2
		move.l	d6,d3
		move.l	$5DC(a4),a6
		jsr	-$30(a6)
		move.l	d0,d5
		addq.l	#1,d0
		beq.b	lbC000EE6
		move.l	d5,d0
		bra.b	lbC000EFC
lbC000E8E:
		move.l	a2,d3
		move.l	a5,d2
		sub.l	d2,d3
		move.l	8(a3),d1
		move.l	$5DC(a4),a6
		jsr	-$30(a6)
		addq.l	#1,d0
		beq.b	lbC000EE6
		sub.l	d3,d6
		move.l	a2,a5
		move.l	8(a3),d1
		lea	lbW000F02(pc),a0
		move.l	a0,d2
		moveq	#1,d3
		jsr	-$30(a6)
		addq.l	#1,d0
		beq.b	lbC000EE6
		lea	1(a5),a0
		moveq	#10,d0
		move.l	d6,d1
		jsr	lbC00182C(pc)
		move.l	d0,a2
		move.l	a2,d0
		bne.b	lbC000E8E
		move.l	8(a3),d1
		move.l	a5,d2
		move.l	d6,d3
		move.l	$5DC(a4),a6
		jsr	-$30(a6)
		addq.l	#1,d0
		beq.b	lbC000EE6
		move.l	d3,d0
		bra.b	lbC000EFC
lbC000EE6:
		move.l	$5DC(a4),a6
		jsr	-$84(a6)
		move.l	d0,$488(a4)
		jsr	lbC002594(pc)
lbC000EF6:
		move.l	d0,$5BC(a4)
		moveq	#-1,d0
lbC000EFC:
		movem.l	(sp)+,d2/d3/d5/d6/a2/a3/a5/a6
		rts

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

lbW000F02:
		dc.w	$D00
lbC000F12:
		movem.l	d2/d3/d5-d7/a5/a6,-(sp)
		move.l	$20(sp),d5
		move.l	d1,d6
		move.l	d0,d7
		jsr	lbC001570(pc)
		move.l	d7,d0
		jsr	lbC001528(pc)
		move.l	d0,a5
		tst.l	d0
		bne.b	lbC000F38
		moveq	#$16,d0
		move.l	d0,$5BC(a4)
		moveq	#-1,d0
		bra.b	lbC000F90
lbC000F38:
		clr.l	$488(a4)
		move.l	d5,d3
		subq.l	#1,d3
		move.l	8(a5),d1
		move.l	d6,d2
		move.l	$5DC(a4),a6
		jsr	-$42(a6)
		move.l	d0,d1
		addq.l	#1,d0
		bne.b	lbC000F66
		jsr	-$84(a6)
		move.l	d0,$488(a4)
		moveq	#5,d0
		move.l	d0,$5BC(a4)
		moveq	#-1,d0
		bra.b	lbC000F90
lbC000F66:
		move.l	d5,d0
		tst.l	d0
		beq.b	lbC000F76
		subq.l	#1,d0
		beq.b	lbC000F7A
		subq.l	#1,d0
		beq.b	lbC000F80
		bra.b	lbC000F90
lbC000F76:
		move.l	d6,d0
		bra.b	lbC000F90
lbC000F7A:
		move.l	d1,d0
		add.l	d6,d0
		bra.b	lbC000F90
lbC000F80:
		move.l	8(a5),d1
		moveq	#0,d2
		move.l	d2,d3
		move.l	$5DC(a4),a6
		jsr	-$42(a6)
lbC000F90:
		movem.l	(sp)+,d2/d3/d5-d7/a5/a6
		rts

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

lbC000F98:
		suba.w	#$50,sp
		movem.l	d2/d3/d7/a2/a3/a5/a6,-(sp)
		lea	intuitionlibr.MSG(pc),a1
		moveq	#0,d0
		move.l	(Execbase).w,a6
		jsr	-$228(a6)
		move.l	d0,a5
		tst.l	d0
		bne.b	lbC000FBA
		moveq	#$14,d0
		jsr	lbC001110(pc)
lbC000FBA:
		moveq	#0,d7
		move.l	$4B4(a4),a0
		move.b	-1(a0),d7
		move.l	d7,d0
		lea	$1C(sp),a1
		bra.b	lbC000FCE
lbC000FCC:
		move.b	(a0)+,(a1)+
lbC000FCE:
		subq.l	#1,d0
		bcc.b	lbC000FCC
		clr.b	$1C(sp,d7.l)
		lea	$1C(sp),a0
		move.l	a0,$350(a4)
		suba.l	a0,a0
		lea	$358(a4),a1
		suba.l	a2,a2
		lea	$36C(a4),a3
		moveq	#0,d0
		move.l	d0,d1
		moveq	#$7D,d2
		add.l	d2,d2
		moveq	#$28,d3
		move.l	a5,a6
		jsr	-$15C(a6)
		moveq	#$14,d0
		jsr	lbC001110(pc)
		movem.l	(sp)+,d2/d3/d7/a2/a3/a5/a6
		adda.w	#$50,sp
		rts

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

StackOverflow.MSG:
		dc.b	"** Stack Overflow **",0,0
EXIT.MSG:
		dc.b	"EXIT",0,0
intuitionlibr.MSG:
		dc.b	"intuition.library",0

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

lbC001038:
		tst.l	d0
		bpl.b	lbC00105A
		neg.l	d0
		tst.l	d1
		bpl.b	lbC001050
		neg.l	d1
		bsr.b	lbC00106A
		neg.l	d1
		rts
lbC001050:
		bsr.b	lbC00106A
		neg.l	d0
		neg.l	d1
		rts
lbC00105A:
		tst.l	d1
		bpl.b	lbC00106A
		neg.l	d1
		bsr.b	lbC00106A
		neg.l	d0
		rts
lbC00106A:
		move.l	d2,-(sp)
		swap.w	d1
		move.w	d1,d2
		bne.b	lbC001094
		swap.w	d0
		swap.w	d1
		swap.w	d2
		move.w	d0,d2
		beq.b	lbC001084
		divu.w	d1,d2
		move.w	d2,d0
lbC001084:
		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
lbC001094:
		move.l	d3,-(sp)
		moveq	#16,d3
		cmpi.w	#$80,d1
		bcc.b	lbC0010A4
		rol.l	#8,d1
		subq.w	#8,d3
lbC0010A4:
		cmpi.w	#$800,d1
		bcc.b	lbC0010B0
		rol.l	#4,d1
		subq.w	#4,d3
lbC0010B0:
		cmpi.w	#$2000,d1
		bcc.b	lbC0010BC
		rol.l	#2,d1
		subq.w	#2,d3
lbC0010BC:
		tst.w	d1
		bmi.b	lbC0010C6
		rol.l	#1,d1
		subq.w	#1,d3
lbC0010C6:
		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.b	lbC0010E8
		subq.w	#1,d3
		add.l	d1,d0
lbC0010E8:
		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

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

lbC0010FC:
		move.l	$4B0(a4),d0
		subi.w	#$1F4,d0
		move.l	d0,sp
		jmp	lbC000F98(pc)

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

lbC001110:
		movem.l	d6/d7/a5/a6,-(sp)
		move.l	d0,d7
		move.l	$338(a4),a5
		moveq	#0,d6
		bra.b	lbC001150
lbC00111E:
		move.l	4(a5),d0
		tst.b	d0
		beq.b	lbC00113A
		btst	#4,d0
		bne.b	lbC00113A
		move.w	d6,d1
		ext.l	d1
		move.l	d1,d0
		move.l	$5E4(a4),a0
		jsr	(a0)
		bra.b	lbC00114C
lbC00113A:
		btst	#2,d0
		beq.b	lbC00114C
		move.l	8(a5),d1
		move.l	$5DC(a4),a6
		jsr	-$24(a6)
lbC00114C:
		move.l	(a5),a5
		addq.w	#1,d6
lbC001150:
		move.l	a5,d0
		bne.b	lbC00111E
		move.l	d7,-(sp)
		jsr	lbC00019C(pc)
		addq.w	#4,sp
		movem.l	(sp)+,d6/d7/a5/a6
		rts

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

lbC001164:
		suba.w	#$34,sp
		movem.l	d2/a2/a3/a5/a6,-(sp)
		move.l	$4C(sp),a3
		move.l	$622(a4),d0
		move.l	d0,d1
		asl.l	#2,d1
		lea	$62A(a4),a5
		adda.l	d1,a5
		bra.w	lbC001222
lbC001182:
		addq.l	#1,a3
lbC001184:
		move.b	(a3),d0
		moveq	#$20,d1
		cmp.b	d1,d0
		beq.b	lbC001182
		moveq	#9,d1
		cmp.b	d1,d0
		beq.b	lbC001182
		moveq	#10,d1
		cmp.b	d1,d0
		beq.b	lbC001182
		move.b	(a3),d0
		beq.w	lbC00122E
		addq.l	#1,$622(a4)
		move.l	a5,a2
		addq.l	#4,a5
		moveq	#$22,d1
		cmp.b	d1,d0
		bne.b	lbC001200
		addq.l	#1,a3
		move.l	a3,a0
		move.l	a0,(a2)
		move.l	a0,a2
		bra.b	lbC0011EE
lbC0011B6:
		move.b	(a3),d0
		moveq	#$2A,d1
		cmp.b	d1,d0
		bne.b	lbC0011EC
		addq.l	#1,a3
		moveq	#0,d0
		move.b	(a3),d0
		tst.l	d0
		beq.b	lbC0011D6
		moveq	#$45,d1
		sub.l	d1,d0
		beq.b	lbC0011DA
		moveq	#9,d1
		sub.l	d1,d0
		beq.b	lbC0011E0
		bra.b	lbC0011E6
lbC0011D6:
		clr.b	(a2)
		bra.b	lbC00122E
lbC0011DA:
		move.b	#$17,(a2)+
		bra.b	lbC0011E8
lbC0011E0:
		move.b	#10,(a2)+
		bra.b	lbC0011E8
lbC0011E6:
		move.b	(a3),(a2)+
lbC0011E8:
		addq.l	#1,a3
		bra.b	lbC0011EE
lbC0011EC:
		move.b	(a3)+,(a2)+
lbC0011EE:
		move.b	(a3),d0
		moveq	#$22,d1
		cmp.b	d1,d0
		beq.b	lbC0011FA
		tst.b	d0
		bne.b	lbC0011B6
lbC0011FA:
		addq.l	#1,a3
		clr.b	(a2)
		bra.b	lbC001222
lbC001200:
		move.l	a3,(a2)
		bra.b	lbC001206
lbC001204:
		addq.l	#1,a3
lbC001206:
		move.b	(a3),d0
		beq.b	lbC00121C
		moveq	#$20,d1
		cmp.b	d1,d0
		beq.b	lbC00121C
		moveq	#9,d1
		cmp.b	d1,d0
		beq.b	lbC00121C
		moveq	#10,d1
		cmp.b	d1,d0
		bne.b	lbC001204
lbC00121C:
		tst.b	(a3)
		beq.b	lbC00122E
		clr.b	(a3)+
lbC001222:
		cmpi.l	#$20,$622(a4)
		blt.w	lbC001184
lbC00122E:
		move.l	$622(a4),d0
		bne.b	lbC00123A
		move.l	$4AC(a4),a0
		bra.b	lbC00123E
lbC00123A:
		lea	$62A(a4),a0
lbC00123E:
		lea	$28(sp),a1
		move.l	a1,$18(sp)
		lea	$38(sp),a1
		move.l	a1,$28(sp)
		clr.l	$38(sp)
		lea	$18(sp),a1
		move.l	a1,$338(a4)
		clr.l	$24(sp)
		clr.l	$34(sp)
		clr.l	$44(sp)
		move.l	#$8011,$1C(sp)
		move.l	#$8012,$2C(sp)
		move.l	#$8016,$3C(sp)
		move.l	a0,$626(a4)
		tst.l	d0
		bne.w	lbC001346
		move.l	$4AC(a4),a0
		move.l	$20(a0),d0
		beq.b	lbC001296
		move.l	d0,d1
		bra.b	lbC0012EE
lbC001296:
		lea	$3E8(a4),a1
		lea	$5E8(a4),a6
lbC00129E:
		move.b	(a1)+,(a6)+
		bne.b	lbC00129E
		move.l	$4AC(a4),a1
		move.l	$24(a1),a0
		move.l	a0,$14(sp)
		moveq	#$28,d0
		lea	$5E8(a4),a0
		move.l	$14(sp),a1
		move.l	4(a1),a1
		jsr	lbC001850(pc)
		move.l	$4A8(a4),a0
		cmpi.w	#$24,$14(a0)
		bcs.b	lbC0012E8
		lea	$5E8(a4),a0
		move.l	a0,a1
lbC0012D2:
		tst.b	(a1)+
		bne.b	lbC0012D2
		subq.l	#1,a1
		suba.l	a0,a1
		moveq	#$39,d1
		sub.l	a1,d1
		move.l	d1,d0
		lea	$3D4(a4),a1
		jsr	lbC001850(pc)
lbC0012E8:
		lea	$5E8(a4),a0
		move.l	a0,d1
lbC0012EE:
		move.l	#$3EE,d2
		move.l	$5DC(a4),a6
		jsr	-$1E(a6)
		move.l	d0,$20(sp)
		bset	#2,$1F(sp)
		asl.l	#2,d0
		move.l	d0,a3
		suba.l	a1,a1
		move.l	(Execbase).w,a6
		jsr	-$126(a6)
		move.l	d0,a0
		move.l	8(a3),$A4(a0)
		lea	ascii.MSG(pc),a0
		move.l	a0,d1
		move.l	#$3ED,d2
		move.l	$5DC(a4),a6
		jsr	-$1E(a6)
		move.l	d0,$30(sp)
		bne.b	lbC00137A
		lea	NIL.MSG(pc),a0
		move.l	a0,d1
		jsr	-$1E(a6)
		move.l	d0,$30(sp)
		bra.b	lbC00137A
lbC001346:
		move.l	$5DC(a4),a6
		jsr	-$36(a6)
		move.l	d0,$20(sp)
		jsr	-$3C(a6)
		move.l	d0,$30(sp)
		lea	ascii.MSG(pc),a0
		move.l	a0,d1
		move.l	#$3ED,d2
		jsr	-$1E(a6)
		move.l	d0,$40(sp)
		bne.b	lbC00137E
		lea	NIL.MSG(pc),a0
		move.l	a0,d1
		jsr	-$1E(a6)
lbC00137A:
		move.l	d0,$40(sp)
lbC00137E:
		addq.l	#3,$334(a4)
		moveq	#0,d0
		tst.l	$33C(a4)
		bne.b	lbC001390
		move.l	#$8000,d0
lbC001390:
		clr.l	$2E4(a4)
		move.l	d0,d1
		or.w	#1,d1
		move.l	d1,$2E0(a4)
		moveq	#1,d1
		move.l	d1,$306(a4)
		or.w	#$42,d0
		move.l	d0,$302(a4)
		moveq	#2,d1
		move.l	d1,$328(a4)
		move.l	d0,$324(a4)
		move.l	$622(a4),d0
		move.l	$626(a4),a0
		jsr	lbC0025F0(pc)
		jsr	lbC001D30(pc)
		movem.l	(sp)+,d2/a2/a3/a5/a6
		adda.w	#$34,sp
		rts

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

ascii.MSG:
		dc.b	"*",0
NIL.MSG:
		dc.b	"NIL:",0,0

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

lbC0013DC:
		suba.w	#$54,sp
		movem.l	d2/d3/d5-d7/a2/a3/a5/a6,-(sp)
		move.l	d0,d7
		moveq	#0,d6
		move.l	$4B4(a4),a0
		move.b	-1(a0),d6
		moveq	#$4F,d0
		cmp.l	d0,d6
		ble.b	lbC0013F8
		move.l	d0,d6
lbC0013F8:
		move.l	d6,d0
		lea	$27(sp),a1
		bra.b	lbC001402
lbC001400:
		move.b	(a0)+,(a1)+
lbC001402:
		subq.l	#1,d0
		bcc.b	lbC001400
		clr.b	$27(sp,d6.l)
		suba.l	a1,a1
		move.l	(Execbase).w,a6
		jsr	-$126(a6)
		move.l	d0,a5
		move.l	d0,a0
		tst.l	$AC(a0)
		beq.b	lbC00146C
		move.l	$AC(a5),d0
		asl.l	#2,d0
		move.l	d0,a0
		move.l	$38(a0),d5
		bne.b	lbC001430
		move.l	$A0(a5),d5
lbC001430:
		tst.l	d5
		beq.b	lbC00146C
		move.l	d5,d1
		lea	Break.MSG(pc),a0
		move.l	a0,d2
		moveq	#11,d3
		move.l	$5DC(a4),a6
		jsr	-$30(a6)
		move.l	d6,d3
		addq.l	#1,d3
		move.b	#10,$27(sp,d6.l)
		move.l	d5,d1
		lea	$27(sp),a0
		move.l	a0,d2
		move.l	$5DC(a4),a6
		jsr	-$30(a6)
		moveq	#1,d0
		move.l	d0,$1AC(a4)
		moveq	#$14,d0
		jsr	lbC001110(pc)
lbC00146C:
		lea	intuitionlibr.MSG0(pc),a1
		moveq	#0,d0
		move.l	(Execbase).w,a6
		jsr	-$228(a6)
		move.l	d0,a5
		tst.l	d0
		bne.b	lbC00148C
		moveq	#1,d0
		move.l	d0,$1AC(a4)
		moveq	#$14,d0
		jsr	lbC001110(pc)
lbC00148C:
		lea	$27(sp),a0
		move.l	a0,$3A0(a4)
		suba.l	a0,a0
		lea	$394(a4),a1
		lea	$3A8(a4),a2
		lea	$3BC(a4),a3
		moveq	#0,d0
		move.l	d0,d1
		moveq	#$7D,d2
		add.l	d2,d2
		moveq	#$3C,d3
		move.l	a5,a6
		jsr	-$15C(a6)
		subq.w	#1,d0
		beq.b	lbC0014C2
		moveq	#1,d0
		move.l	d0,$1AC(a4)
		moveq	#$14,d0
		jsr	lbC001110(pc)
lbC0014C2:
		asl.l	#2,d7
		lea	lbC0013DC(pc),a0
		lea	$19C(a4),a1
		move.l	a0,(a1,d7.l)
		movem.l	(sp)+,d2/d3/d5-d7/a2/a3/a5/a6
		adda.w	#$54,sp
		rts

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

UserAbortRequ.MSG:
		dc.b	"** User Abort Requested **",0,0
CONTINUE.MSG:
		dc.b	"CONTINUE",0,0
ABORT.MSG:
		dc.b	"ABORT",0
Break.MSG:
		dc.b	"*** Break: ",0
intuitionlibr.MSG0:
		dc.b	"intuition.library",0

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

lbC001528:
		movem.l	d7/a5,-(sp)
		move.l	d0,d7
		clr.l	$488(a4)
		tst.l	d7
		bmi.b	lbC00153C
		cmp.l	$334(a4),d7
		blt.b	lbC001546
lbC00153C:
		moveq	#9,d0
		move.l	d0,$5BC(a4)
		moveq	#0,d0
		bra.b	lbC001568
lbC001546:
		move.l	$338(a4),a5
		bra.b	lbC001550
lbC00154C:
		move.l	(a5),a5
		subq.l	#1,d7
lbC001550:
		tst.l	d7
		ble.b	lbC001558
		move.l	a5,d0
		bne.b	lbC00154C
lbC001558:
		move.l	a5,d0
		bne.b	lbC001566
		moveq	#5,d0
		move.l	d0,$5BC(a4)
		moveq	#0,d0
		bra.b	lbC001568
lbC001566:
		move.l	a5,d0
lbC001568:
		movem.l	(sp)+,d7/a5
		rts

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

lbC001570:
		subq.w	#4,sp
		move.l	a6,-(sp)
		moveq	#0,d0
		moveq	#$60,d1
		lsl.l	#7,d1
		move.l	(Execbase).w,a6
		jsr	-$132(a6)
		andi.l	#$3000,d0
		beq.b	lbC0015B8
		move.w	#1,a0
		move.l	$1AC(a4),a1
		cmp.l	a1,a0
		beq.b	lbC0015B8
		move.l	a1,d0
		bne.b	lbC0015A4
		moveq	#4,d0
		move.l	(sp)+,a6
		addq.l	#4,sp
		jmp	lbC0013DC(pc)
lbC0015A4:
		move.l	$1AC(a4),a0
		clr.l	$1AC(a4)
		move.l	a0,4(sp)
		moveq	#4,d0
		move.l	4(sp),a0
		jsr	(a0)
lbC0015B8:
		move.l	(sp)+,a6
		addq.w	#4,sp
		rts

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

lbC0015C0:
		subq.w	#4,sp
		movem.l	d2/d3/a5,-(sp)
		lea	TZ.MSG(pc),a0
		jsr	lbC001BE0(pc)
		move.l	d0,a5
		tst.l	d0
		bne.b	lbC0015D8
		move.l	$5D8(a4),a5
lbC0015D8:
		move.l	a5,d0
		bne.b	lbC0015E0
		lea	CST6.MSG(pc),a5
lbC0015E0:
		lea	(a5),a1
		lea	$140(a4),a0
		move.b	(a1)+,(a0)+
		move.b	(a1)+,(a0)+
		move.b	(a1)+,(a0)+
		clr.b	(a0)+
		lea	$140(a4),a0
		move.l	a0,$5CC(a4)
		lea	3(a5),a0
		lea	12(sp),a1
		jsr	lbC000D34(pc)
		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,$13C(a4)
		move.b	(a5,d0.l),d1
		beq.b	lbC001638
		lea	$5D4(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,$5C8(a4)
		bra.b	lbC001640
lbC001638:
		clr.b	$5D4(a4)
		clr.l	$5C8(a4)
lbC001640:
		lea	$5D4(a4),a0
		move.l	a0,$5D0(a4)
		movem.l	(sp)+,d2/d3/a5
		addq.w	#4,sp
		rts

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

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

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

lbC00165C:
		move.l	4(sp),a0
		subq.w	#4,sp
		movem.l	d2/d6/d7,-(sp)
		move.l	(a0),d0
		move.l	#$15180,d1
		jsr	lbC001038(pc)
		move.l	d0,d7
		move.l	(a0),d0
		move.l	#$15180,d1
		jsr	lbC001038(pc)
		move.l	d1,d0
		move.l	d1,12(sp)
		move.l	#$E10,d1
		jsr	lbC001038(pc)
		move.l	d0,$6B8(a4)
		move.l	12(sp),d0
		move.l	#$E10,d1
		jsr	lbC001038(pc)
		move.l	d1,d0
		move.l	d1,12(sp)
		moveq	#$3C,d1
		jsr	lbC001038(pc)
		move.l	d0,$6B4(a4)
		move.l	12(sp),d0
		moveq	#$3C,d1
		jsr	lbC001038(pc)
		move.l	d1,$6B0(a4)
		move.l	d7,d0
		addq.l	#4,d0
		moveq	#7,d1
		jsr	lbC001038(pc)
		move.l	d1,$6C8(a4)
		move.l	#$7B2,d6
		bra.b	lbC0016FA
lbC0016D6:
		move.l	d6,d0
		moveq	#3,d1
		and.l	d1,d0
		bne.b	lbC0016F2
		move.l	d6,d0
		moveq	#$64,d1
		jsr	lbC001038(pc)
		tst.l	d1
		beq.b	lbC0016F2
		subi.l	#$16E,d7
		bra.b	lbC0016F8
lbC0016F2:
		subi.l	#$16D,d7
lbC0016F8:
		addq.l	#1,d6
lbC0016FA:
		cmpi.l	#$16D,d7
		bgt.b	lbC0016D6
		cmpi.l	#$16D,d7
		bne.b	lbC001722
		move.l	d6,d0
		moveq	#3,d1
		and.l	d1,d0
		bne.b	lbC00171E
		move.l	d6,d0
		moveq	#$64,d1
		jsr	lbC001038(pc)
		tst.l	d1
		bne.b	lbC001722
lbC00171E:
		addq.l	#1,d6
		moveq	#0,d7
lbC001722:
		move.l	d6,d0
		subi.l	#$76C,d0
		move.l	d0,$6C4(a4)
		move.l	d7,$6CC(a4)
		move.l	d6,d0
		moveq	#3,d1
		and.l	d1,d0
		bne.b	lbC00174E
		move.l	d6,d0
		moveq	#$64,d1
		jsr	lbC001038(pc)
		tst.l	d1
		beq.b	lbC00174E
		move.b	#$1D,$145(a4)
		bra.b	lbC001754
lbC00174E:
		move.b	#$1C,$145(a4)
lbC001754:
		clr.l	$6C0(a4)
lbC001758:
		move.l	$6C0(a4),a0
		moveq	#0,d0
		lea	$144(a4),a1
		move.l	a0,d1
		move.b	(a1,d1.l),d0
		cmp.l	d7,d0
		bgt.b	lbC001780
		moveq	#0,d2
		move.b	d0,d2
		sub.l	d2,d7
		addq.l	#1,$6C0(a4)
		cmpi.l	#12,$6C0(a4)
		blt.b	lbC001758
lbC001780:
		addq.l	#1,d7
		move.l	d7,$6BC(a4)
		lea	$6B0(a4),a0
		move.l	a0,d0
		movem.l	(sp)+,d2/d6/d7
		addq.w	#4,sp
		rts
lbC001794:
		move.l	4(sp),a0
		suba.w	#12,sp
		movem.l	d2/d3/d7/a5/a6,-(sp)
		move.l	a0,a5
		jsr	lbC0015C0(pc)
		lea	$14(sp),a0
		move.l	a0,d1
		move.l	$5DC(a4),a6
		jsr	-$C0(a6)
		move.l	$1C(sp),d0
		moveq	#$32,d1
		jsr	lbC001038(pc)
		move.l	#$B6A,d1
		add.l	$14(sp),d1
		move.l	d1,d2
		asl.l	#4,d2
		sub.l	d1,d2
		move.l	d2,d3
		asl.l	#2,d3
		sub.l	d2,d3
		asl.l	#5,d3
		add.l	$18(sp),d3
		move.l	d3,d7
		asl.l	#4,d7
		sub.l	d3,d7
		asl.l	#2,d7
		add.l	d0,d7
		add.l	$13C(a4),d7
		tst.l	$5C8(a4)
		beq.b	lbC0017F4
		addi.l	#$E10,d7
lbC0017F4:
		move.l	a5,d0
		beq.b	lbC0017FA
		move.l	d7,(a5)
lbC0017FA:
		move.l	d7,d0
		movem.l	(sp)+,d2/d3/d7/a5/a6
		adda.w	#12,sp
		rts

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

lbC001810:
		cmp.b	(a0),d0
		beq.b	lbC00181C
		tst.b	(a0)+
		bne.b	lbC001810
		moveq	#0,d0
		rts
lbC00181C:
		move.l	a0,d0
		rts

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

lbC00182C:
		subq.l	#1,d1
		bmi.b	lbC001834
		cmp.b	(a0)+,d0
		bne.b	lbC00182C
lbC001834:
		subq.w	#1,a0
		addq.l	#1,d1
		tst.l	d1
		bne.b	lbC001840
		suba.l	a0,a0
lbC001840:
		move.l	a0,d0
		rts

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

lbC001850:
		move.l	a0,d1
lbC001852:
		tst.b	(a0)+
		bne.b	lbC001852
		subq.l	#1,a0
		bra.b	lbC00185E
lbC00185A:
		move.b	(a1)+,(a0)+
		beq.b	lbC001862
lbC00185E:
		subq.l	#1,d0
		bcc.b	lbC00185A
lbC001862:
		clr.b	(a0)+
		move.l	d1,d0
		rts

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

lbC001874:
		move.l	a0,d1
		tst.l	d0
		ble.b	lbC001890
		cmp.l	a1,a0
		bcs.b	lbC00188A
		adda.l	d0,a1
		adda.l	d0,a0
lbC001882:
		move.b	-(a1),-(a0)
		subq.l	#1,d0
		bne.b	lbC001882
		bra.b	lbC001890
lbC00188A:
		move.b	(a1)+,(a0)+
		subq.l	#1,d0
		bne.b	lbC00188A
lbC001890:
		move.l	d1,d0
		rts

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

lbC00189C:
		movem.l	d6/d7/a3/a5,-(sp)
		move.l	d0,d7
		move.l	a0,a5
		bne.b	lbC0018B8
		move.l	a5,d0
		bne.b	lbC0018AE
		moveq	#0,d0
		bra.b	lbC001902
lbC0018AE:
		move.l	a5,a0
		jsr	lbC00190C(pc)
		moveq	#0,d0
		bra.b	lbC001902
lbC0018B8:
		move.l	a5,d0
		bne.b	lbC0018C6
		move.l	d7,d0
		movem.l	(sp)+,d6/d7/a3/a5
		jmp	lbC001A6C(pc)
lbC0018C6:
		move.w	#$7FFF,d0
		and.w	-2(a5),d0
		ext.l	d0
		asl.l	#2,d0
		move.l	d0,d6
		move.l	d7,d0
		jsr	lbC001A6C(pc)
		move.l	d0,a3
		tst.l	d0
		bne.b	lbC0018E4
		moveq	#0,d0
		bra.b	lbC001902
lbC0018E4:
		cmp.l	d7,d6
		bls.b	lbC0018EC
		move.l	d7,d0
		bra.b	lbC0018EE
lbC0018EC:
		move.l	d6,d0
lbC0018EE:
		move.l	a5,a0
		move.l	a3,a1
		bra.b	lbC0018F6
lbC0018F4:
		move.b	(a0)+,(a1)+
lbC0018F6:
		subq.l	#1,d0
		bcc.b	lbC0018F4
		move.l	a5,a0
		jsr	lbC00190C(pc)
		move.l	a3,d0
lbC001902:
		movem.l	(sp)+,d6/d7/a3/a5
		rts

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

lbC00190C:
		move.l	a0,d0
		bne.b	lbC001912
		rts
lbC001912:
		subq.l	#4,d0
		movem.l	d2-d5/a2/a3/a6,-(sp)
		move.l	$5C0(a4),d1
		bne.b	lbC00192C
lbC00191E:
		move.l	#$16,$5BC(a4)
		movem.l	(sp)+,d2-d5/a2/a3/a6
		rts
lbC00192C:
		move.l	d1,a1
		cmp.l	d1,d0
		ble.b	lbC001944
		move.l	d1,d2
		add.l	4(a1),d2
		addi.l	#$14,d2
		cmp.l	d2,d0
		bge.b	lbC001944
		bra.b	lbC00194C
lbC001944:
		move.l	(a1),d1
		beq.b	lbC00191E
		bra.b	lbC00192C
lbC00194C:
		move.l	d1,d3
		addi.l	#16,d3
lbC001954:
		cmp.l	d3,d0
		blt.b	lbC00191E
		beq.b	lbC00196C
		move.l	d3,a2
		clr.l	d2
		move.w	2(a2),d2
		bmi.b	lbC00191E
		lsl.l	#2,d2
		add.l	d2,d3
		addq.l	#4,d3
		bra.b	lbC001954
lbC00196C:
		move.l	d0,a2
		move.w	(a2),d2
		bpl.b	lbC00191E
		bclr	#7,(a2)
		clr.l	d3
		move.w	2(a2),d3
		andi.w	#$7FFF,d3
		lsl.l	#2,d3
		tst.w	2(a2)
		bmi.b	lbC0019CC
		lea	4(a2,d3.l),a3
		tst.w	(a3)
		bmi.b	lbC0019CC
		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	lbC0019B4
		or.w	#$8000,d4
lbC0019B4:
		move.w	d4,2(a2)
		bmi.b	lbC0019CC
		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)
lbC0019CC:
		clr.l	d4
		move.w	(a2),d4
		beq.b	lbC001A20
		lsl.l	#2,d4
		neg.l	d4
		lea	-4(a2,d4.l),a3
		tst.w	(a3)
		bmi.b	lbC001A20
		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	lbC001A08
		or.w	#$8000,d4
lbC001A08:
		move.w	d4,2(a3)
		bmi.b	lbC001A20
		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)
lbC001A20:
		add.l	d3,8(a1)
		move.l	4(a1),d3
		cmp.l	8(a1),d3
		bne.b	lbC001A62
		move.l	$5C0(a4),d0
		move.l	d0,a0
		cmp.l	d0,d1
		bne.b	lbC001A44
		move.l	(a1),$5C0(a4)
		bra.b	lbC001A50
lbC001A40:
		move.l	(a0),a0
lbC001A44:
		cmp.l	(a0),d1
		bne.b	lbC001A40
		move.l	(a1),(a0)
lbC001A50:
		move.l	4(a1),d0
		addi.l	#$14,d0
		move.l	(Execbase).w,a6
		jsr	-$D2(a6)
lbC001A62:
		movem.l	(sp)+,d2-d5/a2/a3/a6
		rts

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

lbC001A6C:
		tst.l	d0
		bne.b	lbC001A7C
		move.l	#$16,$5BC(a4)
		moveq	#0,d0
		rts
lbC001A7C:
		movem.l	d2-d6/a2/a3/a6,-(sp)
		addq.l	#3,d0
		andi.l	#-4,d0
		cmpi.l	#$1FFFC,d0
		bgt.w	lbC001B48
		cmp.l	$138(a4),d0
		bgt.w	lbC001B48
		move.l	$5C0(a4),d3
		beq.w	lbC001B48
		move.l	d3,a1
lbC001AA4:
		cmp.l	8(a1),d0
		bgt.b	lbC001ADC
		move.l	$5C4(a4),d1
		cmp.l	12(a1),d1
		bne.b	lbC001ADC
		lea	16(a1),a2
lbC001AB8:
		tst.w	(a2)
		bmi.b	lbC001ACC
		clr.l	d4
		move.w	2(a2),d4
		andi.w	#$7FFF,d4
		lsl.l	#2,d4
		cmp.l	d4,d0
		ble.b	lbC001AE6
lbC001ACC:
		clr.l	d4
		move.w	2(a2),d4
		bmi.b	lbC001ADC
		lsl.l	#2,d4
		lea	4(a2,d4.l),a2
		bra.b	lbC001AB8
lbC001ADC:
		move.l	(a1),d3
		beq.b	lbC001B48
		move.l	d3,a1
		bra.b	lbC001AA4
lbC001AE6:
		bset	#7,(a2)
		lea	4(a2,d0.l),a3
		clr.l	d5
		cmp.l	d4,d0
		beq.b	lbC001B32
		move.l	d4,d6
		sub.l	d0,d6
		subq.l	#4,d6
		bne.b	lbC001B02
		move.l	d4,d0
		bra.b	lbC001B32
lbC001B02:
		lsr.l	#2,d6
		tst.w	2(a2)
		bpl.b	lbC001B0E
		or.w	#$8000,d6
lbC001B0E:
		move.l	d0,d5
		lsr.l	#2,d5
		move.w	d6,2(a3)
		move.w	d5,(a3)
		move.w	d5,2(a2)
		moveq	#4,d5
		tst.w	d6
		bmi.b	lbC001B32
		move.w	4(a2,d4.l),d2
		andi.w	#$8000,d2
		or.w	d2,d6
		move.w	d6,4(a2,d4.l)
lbC001B32:
		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
lbC001B42:
		movem.l	(sp)+,d2-d6/a2/a3/a6
		rts
lbC001B48:
		move.l	d0,d5
		cmp.l	$138(a4),d0
		bpl.b	lbC001B54
		move.l	$138(a4),d0
lbC001B54:
		move.l	d0,d4
		addi.l	#$14,d0
		move.l	$5C4(a4),d1
		move.l	(Execbase).w,a6
		jsr	-$C6(a6)
		tst.l	d0
		bne.b	lbC001B76
		move.l	#12,$5BC(a4)
		bra.b	lbC001B42
lbC001B76:
		move.l	d0,a1
		lea	16(a1),a2
		move.l	$5C0(a4),(a1)
		move.l	a1,$5C0(a4)
		move.l	d4,4(a1)
		move.l	$5C4(a4),12(a1)
		move.l	d4,d3
		sub.l	d5,d3
		beq.b	lbC001BBE
		subq.l	#4,d3
		beq.b	lbC001BBE
		move.l	d3,8(a1)
		lea	4(a2,d5.l),a3
		move.w	#$8000,(a2)
		lsr.l	#2,d5
		move.w	d5,2(a2)
		move.w	d5,(a3)
		lsr.l	#2,d3
		or.w	#$8000,d3
		move.w	d3,2(a3)
		bra.b	lbC001BD2
lbC001BBE:
		clr.l	8(a1)
		move.w	#$8000,(a2)
		lsr.l	#2,d4
		or.w	#$8000,d4
		move.w	d4,2(a2)
lbC001BD2:
		move.l	a2,d0
		addq.l	#4,d0
		movem.l	(sp)+,d2-d6/a2/a3/a6
		rts

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

lbC001BE0:
		suba.w	#16,sp
		movem.l	d2/d3/d5-d7/a2/a3/a5/a6,-(sp)
		move.l	a0,a5
		suba.l	a3,a3
		suba.l	a1,a1
		move.l	(Execbase).w,a6
		jsr	-$126(a6)
		move.l	d0,a1
		move.l	$B8(a1),a0
		moveq	#-1,d1
		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	$5DC(a4),a6
		jsr	-$54(a6)
		tst.l	d0
		beq.w	lbC001CD8
		move.l	d0,d1
		jsr	-$7E(a6)
		move.l	d0,d7
		move.l	a5,d1
		jsr	-$54(a6)
		move.l	d0,d6
		beq.w	lbC001CCC
		moveq	#$7F,d5
		add.l	d5,d5
		moveq	#$41,d0
		lsl.l	#2,d0
		jsr	lbC001A6C(pc)
		move.l	d0,a2
		tst.l	d0
		beq.b	lbC001C5C
		move.l	d6,d1
		move.l	a2,d2
		jsr	-$66(a6)
		tst.l	d0
		beq.b	lbC001C56
		move.l	$7C(a2),d5
lbC001C56:
		move.l	d2,a0
		jsr	lbC00190C(pc)
lbC001C5C:
		move.l	d6,d1
		jsr	-$5A(a6)
		move.l	a5,d1
		move.l	#$3ED,d2
		jsr	-$1E(a6)
		move.l	d0,d6
		beq.b	lbC001CCC
		move.l	d5,d0
		addq.l	#1,d0
		jsr	lbC001A6C(pc)
		move.l	d0,a3
		tst.l	d0
		beq.b	lbC001CBC
		move.l	d6,d1
		move.l	a3,d2
		move.l	d5,d3
		jsr	-$2A(a6)
		tst.l	d0
		ble.b	lbC001CB8
		clr.b	(a3,d0.l)
		move.l	d2,a0
		moveq	#10,d0
		jsr	lbC001810(pc)
		tst.l	d0
		beq.b	lbC001CC2
		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	lbC001CC2
		addq.l	#1,d0
		move.l	d2,a0
		jsr	lbC00189C(pc)
		move.l	d0,a3
		bra.b	lbC001CC2
lbC001CB8:
		clr.b	(a3)
		bra.b	lbC001CC2
lbC001CBC:
		moveq	#12,d0
		move.l	d0,$5BC(a4)
lbC001CC2:
		move.l	d6,d1
		move.l	$5DC(a4),a6
		jsr	-$24(a6)
lbC001CCC:
		move.l	d7,d1
		jsr	-$7E(a6)
		move.l	d0,d1
		jsr	-$5A(a6)
lbC001CD8:
		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

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

lbC001CF4:
		move.l	4(sp),a0
		subq.w	#4,sp
		move.l	a3,-(sp)
		move.l	a0,d0
		beq.b	lbC001D24
		move.l	d0,a3
		bra.b	lbC001D06
lbC001D04:
		addq.l	#1,a3
lbC001D06:
		moveq	#0,d0
		move.b	(a3),d0
		lea	$1C1(a4),a0
		btst	#3,(a0,d0.l)
		bne.b	lbC001D04
		move.l	a3,a0
		lea	4(sp),a1
		jsr	lbC000D34(pc)
		move.l	4(sp),d0
lbC001D24:
		move.l	(sp)+,a3
		addq.w	#4,sp
		rts

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

lbC001D2C:
		move.l	4(sp),d0
lbC001D30:
		movem.l	d7/a5,-(sp)
		move.l	d0,d7
		move.l	$3D0(a4),a5
		bra.b	lbC001D44
lbC001D3C:
		move.l	4(a5),a0
		jsr	(a0)
		move.l	(a5),a5
lbC001D44:
		move.l	a5,d0
		bne.b	lbC001D3C
		lea	$2C8(a4),a5
lbC001D4C:
		moveq	#6,d0
		and.l	$18(a5),d0
		subq.l	#2,d0
		bne.b	lbC001D6E
		move.l	4(a5),d0
		sub.l	16(a5),d0
		beq.b	lbC001D6E
		move.l	$1C(a5),d1
		move.l	16(a5),a0
		exg.l	d0,d1
		jsr	lbC000E10(pc)
lbC001D6E:
		move.l	a5,a0
		move.l	(a0),a5
		move.l	a5,d0
		bne.b	lbC001D4C
		move.l	d7,d0
		movem.l	(sp)+,d7/a5
		jmp	lbC001110(pc)

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

lbC001D88:
		lea	(a0),a1
		addq.l	#1,(a1)+
		move.l	(a1),a0
		addq.l	#1,(a1)+
		move.b	d0,(a0)
		rts
lbC001D94:
		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	lbC001D88(pc),a0
		lea	8(sp),a1
		jsr	lbC002454(pc)
		move.l	12(sp),a0
		clr.b	(a0)
		addq.w	#8,sp
		move.l	(sp),d0
		addq.w	#8,sp
		rts

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

lbC001DCC:
		subq.w	#4,sp
		movem.l	d6/d7/a5,-(sp)
		move.l	d0,d7
		move.l	a0,a5
		moveq	#0,d6
		move.b	d0,15(sp)
		moveq	#$41,d1
		add.l	d1,d1
		and.l	$18(a5),d1
		bne.b	lbC001DF2
		bset	#5,$1B(a5)
		moveq	#-1,d0
		bra.w	lbC001F2C
lbC001DF2:
		moveq	#$33,d0
		and.l	$18(a5),d0
		subq.l	#2,d0
		beq.b	lbC001E4C
		moveq	#$4C,d0
		not.b	d0
		and.l	$18(a5),d0
		moveq	#$40,d1
		add.l	d1,d1
		cmp.l	d1,d0
		bne.b	lbC001E18
		bset	#1,$1B(a5)
		clr.l	12(a5)
		bra.b	lbC001E4C
lbC001E18:
		btst	#5,$1B(a5)
		beq.b	lbC001E26
		moveq	#-1,d0
		bra.w	lbC001F2C
lbC001E26:
		moveq	#$6E,d0
		not.b	d0
		and.l	$18(a5),d0
		moveq	#$6E,d1
		not.b	d1
		cmp.l	d1,d0
		bne.b	lbC001E42
		bset	#1,$1B(a5)
		clr.l	12(a5)
		bra.b	lbC001E4C
lbC001E42:
		moveq	#0,d0
		move.l	d0,12(a5)
		bra.w	lbC001F2C
lbC001E4C:
		move.l	12(a5),d0
		cmp.l	$14(a5),d0
		bge.b	lbC001E88
		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,$1B(a5)
		beq.b	lbC001E7C
		moveq	#10,d1
		cmp.l	d1,d7
		bne.b	lbC001E7C
		move.l	a5,a0
		jsr	lbC001F38(pc)
		move.l	d0,d6
lbC001E7C:
		tst.l	d6
		beq.w	lbC001F2A
		move.l	d6,d0
		bra.w	lbC001F2C
lbC001E88:
		btst	#2,$1B(a5)
		beq.b	lbC001EBE
		clr.l	12(a5)
		move.l	$1C(a5),d0
		moveq	#1,d1
		lea	15(sp),a0
		jsr	lbC000E10(pc)
		move.l	d0,d6
		addq.l	#1,d0
		bne.b	lbC001EB0
		bset	#5,$1B(a5)
		bra.b	lbC001F22
lbC001EB0:
		move.l	d6,d0
		subq.l	#1,d0
		beq.b	lbC001F22
		bset	#4,$1B(a5)
		bra.b	lbC001F22
lbC001EBE:
		tst.l	$14(a5)
		bne.b	lbC001EE4
		move.l	a5,a0
		jsr	lbC000D84(pc)
		tst.l	d0
		beq.b	lbC001ED8
		bset	#5,$1B(a5)
		moveq	#-1,d0
		bra.b	lbC001F2C
lbC001ED8:
		moveq	#0,d0
		move.l	d0,12(a5)
		move.l	16(a5),4(a5)
lbC001EE4:
		move.l	12(a5),d0
		cmp.l	$14(a5),d0
		blt.b	lbC001EF6
		move.l	a5,a0
		jsr	lbC001F38(pc)
		move.l	d0,d6
lbC001EF6:
		bset	#1,$1B(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,$1B(a5)
		beq.b	lbC001F22
		moveq	#10,d1
		cmp.l	d1,d7
		bne.b	lbC001F22
		move.l	a5,a0
		jsr	lbC001F38(pc)
		move.l	d0,d6
lbC001F22:
		tst.l	d6
		beq.b	lbC001F2A
		move.l	d6,d0
		bra.b	lbC001F2C
lbC001F2A:
		move.l	d7,d0
lbC001F2C:
		movem.l	(sp)+,d6/d7/a5
		addq.w	#4,sp
		rts

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

lbC001F38:
		movem.l	d7/a5,-(sp)
		move.l	a0,a5
		move.l	a5,d0
		beq.w	lbC001FE2
		moveq	#$41,d0
		add.l	d0,d0
		and.l	$18(a5),d0
		bne.b	lbC001F7A
		move.l	16(a5),a0
		lea	4(a5),a1
		move.l	a0,(a1)+
		clr.l	(a1)+
		clr.b	$20(a5)
		moveq	#0,d0
		move.l	d0,(a1)+
		btst	#7,$1B(a5)
		beq.b	lbC001F70
		bclr	#0,$1B(a5)
lbC001F70:
		bclr	#4,$1B(a5)
		bra.w	lbC002002
lbC001F7A:
		tst.l	$14(a5)
		beq.b	lbC001FC4
		move.l	12(a5),d0
		bpl.b	lbC001F8C
		moveq	#0,d1
		move.l	d1,12(a5)
lbC001F8C:
		move.l	12(a5),d0
		beq.b	lbC001FBA
		move.l	$1C(a5),d1
		move.l	16(a5),a0
		exg.l	d0,d1
		jsr	lbC000E10(pc)
		move.l	d0,d7
		addq.l	#1,d0
		bne.b	lbC001FAE
		bset	#5,$1B(a5)
		bra.b	lbC001FBA
lbC001FAE:
		cmp.l	12(a5),d7
		beq.b	lbC001FBA
		bset	#4,$1B(a5)
lbC001FBA:
		move.l	16(a5),4(a5)
		clr.l	12(a5)
lbC001FC4:
		moveq	#$30,d0
		and.l	$18(a5),d0
		bne.b	lbC001FDE
		btst	#7,$1B(a5)
		beq.b	lbC001FDA
		moveq	#-4,d0
		and.l	d0,$18(a5)
lbC001FDA:
		moveq	#0,d0
		bra.b	lbC002002
lbC001FDE:
		moveq	#-1,d0
		bra.b	lbC002002
lbC001FE2:
		moveq	#0,d7
		lea	$2C8(a4),a5
lbC001FE8:
		tst.l	$18(a5)
		beq.b	lbC001FFA
		move.l	a5,a0
		bsr.w	lbC001F38
		tst.l	d0
		beq.b	lbC001FFA
		moveq	#-1,d7
lbC001FFA:
		move.l	(a5),a5
		move.l	a5,d0
		bne.b	lbC001FE8
		move.l	d7,d0
lbC002002:
		movem.l	(sp)+,d7/a5
		rts

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

lbC00201C:
		suba.w	#$34,sp
		movem.l	d2/d4-d7/a2/a3/a5/a6,-(sp)
		move.l	$60(sp),a3
		move.l	$5C(sp),a5
		movem.l	a0/a1,$2C(sp)
		clr.b	$3B(sp)
		clr.b	$3A(sp)
		clr.b	$39(sp)
		clr.b	$38(sp)
		move.b	#$20,$37(sp)
		clr.l	$54(sp)
		moveq	#-1,d0
		move.l	d0,$50(sp)
		clr.b	$36(sp)
		moveq	#0,d7
		moveq	#0,d6
		lea	$3C(sp),a2
		bra.b	lbC0020AA
lbC002060:
		moveq	#0,d0
		move.l	$2C(sp),a0
		move.b	(a0),d0
		moveq	#$20,d1
		sub.l	d1,d0
		beq.b	lbC002090
		subq.l	#3,d0
		beq.b	lbC002098
		subq.l	#8,d0
		beq.b	lbC002088
		subq.l	#2,d0
		beq.b	lbC002080
		subq.l	#3,d0
		beq.b	lbC0020A0
		bra.b	lbC0020B2
lbC002080:
		move.b	#1,$3B(sp)
		bra.b	lbC0020A6
lbC002088:
		move.b	#1,$3A(sp)
		bra.b	lbC0020A6
lbC002090:
		move.b	#1,$39(sp)
		bra.b	lbC0020A6
lbC002098:
		move.b	#1,$38(sp)
		bra.b	lbC0020A6
lbC0020A0:
		move.b	#$30,$37(sp)
lbC0020A6:
		addq.l	#1,$2C(sp)
lbC0020AA:
		move.l	$2C(sp),a0
		tst.b	(a0)
		bne.b	lbC002060
lbC0020B2:
		moveq	#1,d0
		cmp.b	$3B(sp),d0
		bne.b	lbC0020C0
		move.b	#$20,$37(sp)
lbC0020C0:
		moveq	#$2A,d1
		move.l	$2C(sp),a0
		cmp.b	(a0),d1
		bne.b	lbC0020E8
		move.l	$30(sp),a6
		move.l	(a6),a1
		addq.l	#4,(a6)
		move.l	(a1),d1
		move.l	d1,$54(sp)
		bge.b	lbC0020E2
		neg.l	$54(sp)
		move.b	d0,$3B(sp)
lbC0020E2:
		addq.l	#1,$2C(sp)
		bra.b	lbC0020F4
lbC0020E8:
		lea	$54(sp),a1
		jsr	lbC000D34(pc)
		add.l	d0,$2C(sp)
lbC0020F4:
		move.l	$2C(sp),a0
		move.b	(a0),d0
		moveq	#$2E,d1
		cmp.b	d1,d0
		bne.b	lbC002146
		addq.l	#1,$2C(sp)
		moveq	#$2A,d0
		move.l	$2C(sp),a0
		cmp.b	(a0),d0
		bne.b	lbC00212A
		move.l	$30(sp),a1
		move.l	(a1),a0
		addq.l	#4,(a1)
		move.l	(a0),d0
		move.l	d0,$50(sp)
		bge.b	lbC002124
		moveq	#-1,d0
		move.l	d0,$50(sp)
lbC002124:
		addq.l	#1,$2C(sp)
		bra.b	lbC002140
lbC00212A:
		lea	$50(sp),a1
		jsr	lbC000D34(pc)
		move.l	d0,d5
		bne.b	lbC00213C
		clr.l	$50(sp)
		bra.b	lbC002140
lbC00213C:
		add.l	d5,$2C(sp)
lbC002140:
		move.b	#$20,$37(sp)
lbC002146:
		moveq	#0,d0
		move.l	$2C(sp),a0
		move.b	(a0),d0
		moveq	#$4C,d1
		sub.l	d1,d0
		beq.b	lbC002168
		moveq	#$1C,d1
		sub.l	d1,d0
		beq.b	lbC002160
		subq.l	#4,d0
		beq.b	lbC002168
		bra.b	lbC002172
lbC002160:
		move.b	#2,$36(sp)
		bra.b	lbC00216E
lbC002168:
		move.b	#1,$36(sp)
lbC00216E:
		addq.l	#1,$2C(sp)
lbC002172:
		move.l	$2C(sp),a0
		addq.l	#1,a0
		move.l	$2C(sp),a1
		move.b	(a1),d0
		moveq	#0,d1
		move.b	d0,d1
		move.b	d0,$24(sp)
		move.l	a0,$26(sp)
		moveq	#$50,d0
		sub.l	d0,d1
		beq.w	lbC0022A0
		subq.l	#8,d1
		beq.w	lbC0022B2
		moveq	#11,d0
		sub.l	d0,d1
		beq.w	lbC00236E
		subq.l	#1,d1
		beq.b	lbC0021F4
		subq.l	#5,d1
		beq.b	lbC0021F4
		subq.l	#5,d1
		beq.b	lbC0021CE
		subq.l	#1,d1
		beq.w	lbC0022B2
		subq.l	#1,d1
		beq.w	lbC0022A0
		subq.l	#3,d1
		beq.w	lbC00233C
		subq.l	#2,d1
		beq.w	lbC0022B2
		subq.l	#3,d1
		beq.w	lbC0022B2
		bra.w	lbC002384
lbC0021CE:
		move.l	$30(sp),a1
		moveq	#2,d0
		cmp.b	$36(sp),d0
		bne.b	lbC0021E8
		move.l	(a1),a0
		addq.l	#4,(a1)
		move.l	(a0),a1
		move.l	(a3),d0
		move.w	d0,(a1)
		bra.w	lbC002430
lbC0021E8:
		move.l	(a1),a0
		addq.l	#4,(a1)
		move.l	(a0),a1
		move.l	(a3),(a1)
		bra.w	lbC002430
lbC0021F4:
		move.l	$30(sp),a1
		move.l	(a1),a0
		addq.l	#4,(a1)
		move.l	(a0),d4
		bpl.b	lbC002204
		moveq	#1,d7
		neg.l	d4
lbC002204:
		tst.l	d7
		beq.b	lbC002214
		lea	$3D(sp),a2
		move.b	#$2D,$3C(sp)
		bra.b	lbC002236
lbC002214:
		tst.b	$3A(sp)
		beq.b	lbC002226
		lea	$3D(sp),a2
		move.b	#$2B,$3C(sp)
		bra.b	lbC002236
lbC002226:
		tst.b	$39(sp)
		beq.b	lbC002238
		lea	$3D(sp),a2
		move.b	#$20,$3C(sp)
lbC002236:
		moveq	#1,d6
lbC002238:
		move.l	d4,d0
		move.l	a2,a0
		jsr	lbC000C98(pc)
lbC002240:
		move.l	d0,d5
lbC002242:
		move.l	$50(sp),d0
		bne.b	lbC00224E
		tst.l	d4
		beq.w	lbC002430
lbC00224E:
		move.l	$50(sp),d0
		bpl.b	lbC00225A
		moveq	#1,d1
		move.l	d1,$50(sp)
lbC00225A:
		move.l	$50(sp),d4
		sub.l	d5,d4
		ble.b	lbC00227E
		move.l	a2,a0
		adda.l	d4,a0
		move.l	d5,d0
		move.l	a2,a1
		jsr	lbC001874(pc)
		moveq	#$30,d1
		move.l	a2,a0
		bra.b	lbC002276
lbC002274:
		move.b	d1,(a0)+
lbC002276:
		subq.l	#1,d4
		bcc.b	lbC002274
		move.l	$50(sp),d5
lbC00227E:
		add.l	d5,d6
		move.l	d5,d0
		subq.l	#1,d0
		bne.w	lbC00238A
		move.b	(a2),d0
		cmp.b	$37(sp),d0
		bne.w	lbC00238A
		tst.l	$50(sp)
		bne.w	lbC00238A
		clr.b	(a2)
		bra.w	lbC00238A
lbC0022A0:
		move.l	$50(sp),d0
		bpl.b	lbC0022AC
		moveq	#8,d0
		move.l	d0,$50(sp)
lbC0022AC:
		move.b	#1,$36(sp)
lbC0022B2:
		moveq	#2,d0
		cmp.b	$36(sp),d0
		bne.b	lbC0022CA
		move.l	$30(sp),a1
		move.l	(a1),a0
		addq.l	#4,(a1)
		move.l	(a0),d0
		moveq	#0,d4
		move.w	d0,d4
		bra.b	lbC0022D4
lbC0022CA:
		move.l	$30(sp),a1
		move.l	(a1),a0
		addq.l	#4,(a1)
		move.l	(a0),d4
lbC0022D4:
		move.b	$24(sp),d0
		moveq	#$75,d1
		cmp.b	d1,d0
		beq.w	lbC002238
		moveq	#$6F,d1
		cmp.b	d1,d0
		bne.b	lbC002304
		tst.b	$38(sp)
		beq.b	lbC0022F8
		lea	$3D(sp),a2
		move.b	#$30,$3C(sp)
		moveq	#1,d6
lbC0022F8:
		move.l	d4,d0
		move.l	a2,a0
		jsr	lbC000CC8(pc)
		bra.w	lbC002240
lbC002304:
		tst.b	$38(sp)
		beq.b	lbC00231C
		move.b	#$30,$3C(sp)
		lea	$3E(sp),a2
		move.b	#$78,$3D(sp)
		moveq	#2,d6
lbC00231C:
		move.l	d4,d0
		move.l	a2,a0
		jsr	lbC000D08(pc)
		move.l	d0,d5
		btst	#5,$24(sp)
		bne.w	lbC002242
		lea	$3C(sp),a0
		jsr	lbC000DCC(pc)
		bra.w	lbC002242
lbC00233C:
		move.l	$30(sp),a1
		move.l	(a1),a0
		addq.l	#4,(a1)
		move.l	(a0),a2
		move.l	a2,d0
		bne.b	lbC00234E
		lea	lbW00243E(pc),a2
lbC00234E:
		move.l	a2,a0
lbC002350:
		tst.b	(a0)+
		bne.b	lbC002350
		subq.l	#1,a0
		suba.l	a2,a0
		move.l	a0,d5
		move.l	$50(sp),d0
		bmi.b	lbC002364
		cmp.l	d5,d0
		ble.b	lbC002368
lbC002364:
		move.l	d5,$50(sp)
lbC002368:
		move.l	$50(sp),d6
		bra.b	lbC00238E
lbC00236E:
		moveq	#1,d6
		move.l	$30(sp),a1
		move.l	(a1),a0
		addq.l	#4,(a1)
		move.l	(a0),d0
		move.b	d0,$3C(sp)
		clr.b	$3D(sp)
		bra.b	lbC00238A
lbC002384:
		moveq	#0,d0
		bra.w	lbC002434
lbC00238A:
		lea	$3C(sp),a2
lbC00238E:
		move.l	$54(sp),d0
		cmp.l	d6,d0
		bge.b	lbC00239E
		moveq	#0,d1
		move.l	d1,$54(sp)
		bra.b	lbC0023A2
lbC00239E:
		sub.l	d6,$54(sp)
lbC0023A2:
		tst.b	$3B(sp)
		beq.b	lbC0023C6
		bra.b	lbC0023B2
lbC0023AA:
		moveq	#0,d0
		move.b	(a2)+,d0
		move.l	a3,a0
		jsr	(a5)
lbC0023B2:
		subq.l	#1,d6
		bge.b	lbC0023AA
		bra.b	lbC0023BE
lbC0023B8:
		moveq	#$20,d0
		move.l	a3,a0
		jsr	(a5)
lbC0023BE:
		subq.l	#1,$54(sp)
		bge.b	lbC0023B8
		bra.b	lbC002430
lbC0023C6:
		tst.l	d7
		bne.b	lbC0023D6
		tst.b	$39(sp)
		bne.b	lbC0023D6
		tst.b	$3A(sp)
		beq.b	lbC00241C
lbC0023D6:
		move.b	(a2),d0
		moveq	#$20,d1
		cmp.b	d1,d0
		beq.b	lbC0023EA
		moveq	#$2B,d2
		cmp.b	d2,d0
		beq.b	lbC0023EA
		moveq	#$2D,d2
		cmp.b	d2,d0
		bne.b	lbC00241C
lbC0023EA:
		tst.l	d6
		bmi.b	lbC00241C
		cmp.b	$37(sp),d1
		bne.b	lbC002406
		bra.b	lbC002400
lbC0023F6:
		moveq	#0,d0
		move.b	$37(sp),d0
		move.l	a3,a0
		jsr	(a5)
lbC002400:
		subq.l	#1,$54(sp)
		bge.b	lbC0023F6
lbC002406:
		moveq	#0,d0
		move.b	(a2)+,d0
		move.l	a3,a0
		jsr	(a5)
		subq.l	#1,d6
		bra.b	lbC00241C
lbC002412:
		moveq	#0,d0
		move.b	$37(sp),d0
		move.l	a3,a0
		jsr	(a5)
lbC00241C:
		subq.l	#1,$54(sp)
		bge.b	lbC002412
		bra.b	lbC00242C
lbC002424:
		moveq	#0,d0
		move.b	(a2)+,d0
		move.l	a3,a0
		jsr	(a5)
lbC00242C:
		subq.l	#1,d6
		bge.b	lbC002424
lbC002430:
		move.l	$26(sp),d0
lbC002434:
		movem.l	(sp)+,d2/d4-d7/a2/a3/a5/a6
		adda.w	#$34,sp
		rts

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

lbW00243E:
		dc.w	0
lbC002454:
		suba.w	#12,sp
		movem.l	a3/a5,-(sp)
		move.l	a1,a3
		move.l	a0,a5
		move.l	$1C(sp),16(sp)
		bra.b	lbC0024A0
lbC002468:
		moveq	#$25,d0
		cmp.b	12(sp),d0
		bne.b	lbC002496
		move.l	$18(sp),a0
		cmp.b	(a0),d0
		bne.b	lbC00247E
		addq.l	#1,$18(sp)
		bra.b	lbC002496
lbC00247E:
		move.l	a3,-(sp)
		move.l	a5,-(sp)
		lea	$18(sp),a1
		jsr	lbC00201C(pc)
		addq.w	#8,sp
		tst.l	d0
		beq.b	lbC002496
		move.l	d0,$18(sp)
		bra.b	lbC0024A0
lbC002496:
		moveq	#0,d0
		move.b	12(sp),d0
		move.l	a3,a0
		jsr	(a5)
lbC0024A0:
		move.l	$18(sp),a0
		move.b	(a0)+,d0
		move.b	d0,12(sp)
		move.l	a0,$18(sp)
		tst.b	d0
		bne.b	lbC002468
		movem.l	(sp)+,a3/a5
		adda.w	#12,sp
		rts
lbC0024BC:
		move.l	4(sp),a0
		movem.l	a5/a6,-(sp)
		move.l	a0,a5
		tst.l	10(a5)
		beq.b	lbC0024D6
		move.l	a5,a1
		move.l	(Execbase).w,a6
		jsr	-$168(a6)
lbC0024D6:
		move.b	#$FF,8(a5)
		moveq	#-1,d0
		move.l	d0,$14(a5)
		moveq	#0,d0
		move.b	15(a5),d0
		move.l	(Execbase).w,a6
		jsr	-$150(a6)
		move.l	a5,a1
		moveq	#$22,d0
		jsr	-$D2(a6)
		movem.l	(sp)+,a5/a6
		rts

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

lbC002500:
		move.l	4(sp),a0
		move.l	8(sp),d0
		movem.l	d6/d7/a3/a5/a6,-(sp)
		move.l	d0,d7
		move.l	a0,a5
		moveq	#-1,d0
		move.l	(Execbase).w,a6
		jsr	-$14A(a6)
		move.b	d0,d6
		ext.w	d6
		ext.l	d6
		move.l	d6,d0
		addq.l	#1,d0
		bne.b	lbC00252A
		moveq	#0,d0
		bra.b	lbC00258A
lbC00252A:
		moveq	#$22,d0
		move.l	#$10001,d1
		jsr	-$C6(a6)
		move.l	d0,a3
		tst.l	d0
		bne.b	lbC002544
		move.l	d6,d0
		jsr	-$150(a6)
		bra.b	lbC002588
lbC002544:
		lea	10(a3),a0
		move.l	a5,(a0)+
		move.b	d7,9(a3)
		move.b	#4,8(a3)
		clr.b	(a0)+
		move.b	d6,(a0)+
		suba.l	a1,a1
		jsr	-$126(a6)
		move.l	d0,16(a3)
		move.l	a5,d0
		beq.b	lbC00256E
		move.l	a3,a1
		jsr	-$162(a6)
		bra.b	lbC002588
lbC00256E:
		lea	$18(a3),a0
		move.l	a0,$14(a3)
		lea	$14(a3),a0
		move.l	a0,$1C(a3)
		clr.l	$18(a3)
		move.b	#2,$20(a3)
lbC002588:
		move.l	a3,d0
lbC00258A:
		movem.l	(sp)+,d6/d7/a3/a5/a6
		rts

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

lbC002594:
		move.l	d7,-(sp)
		move.l	d0,d7
		beq.b	lbC0025EC
		moveq	#$67,d1
		cmp.l	d1,d7
		blt.b	lbC0025EA
		moveq	#$7A,d0
		cmp.l	d0,d7
		bgt.b	lbC0025B2
		moveq	#0,d0
		lea	$395(a4),a0
		move.b	(a0,d7.l),d0
		bra.b	lbC0025EC
lbC0025B2:
		moveq	#$36,d0
		not.b	d0
		cmp.l	d0,d7
		blt.b	lbC0025EA
		moveq	#12,d0
		not.b	d0
		cmp.l	d0,d7
		bgt.b	lbC0025CE
		moveq	#0,d0
		lea	$333(a4),a0
		move.b	(a0,d7.l),d0
		bra.b	lbC0025EC
lbC0025CE:
		cmpi.l	#$12F,d7
		blt.b	lbC0025EA
		cmpi.l	#$131,d7
		bge.b	lbC0025EA
		moveq	#0,d0
		lea	$2CD(a4),a0
		move.b	(a0,d7.l),d0
		bra.b	lbC0025EC
lbC0025EA:
		moveq	#5,d0
lbC0025EC:
		move.l	(sp)+,d7
		rts
lbC0025F0:
		move.l	a0,-(sp)
		move.l	d0,-(sp)
		jsr	lbC0004FC
		addq.w	#8,sp
		rts

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

lbC002600:
		move.l	sp,d0
		subq.l	#8,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		move.l	a6,-(sp)
		lea	$448(a4),a1
		moveq	#0,d0
		move.l	(Execbase).w,a6
		jsr	-$228(a6)
		move.l	d0,$43C(a4)
		bne.b	lbC002624
		bra.b	lbC002626
lbC002624:
		moveq	#1,d0
lbC002626:
		move.l	(sp)+,a6
		rts
lbC00262A:
		move.l	sp,d0
		subq.l	#4,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		move.l	a6,-(sp)
		move.l	$43C(a4),d0
		beq.b	lbC002648
		move.l	d0,a1
		move.l	(Execbase).w,a6
		jsr	-$19E(a6)
lbC002648:
		moveq	#1,d0
		move.l	(sp)+,a6
		rts
lbC00264E:
		move.l	sp,d0
		subi.l	#$D4,d0
		cmp.l	$484(a4),d0
		bcs.w	lbC0010FC
		suba.w	#$C8,sp
		movem.l	d7/a5/a6,-(sp)
		move.w	$DE(sp),d7
		move.l	$D8(sp),a5
		move.l	a5,a0
		move.l	$43C(a4),a6
		jsr	-$4E(a6)
		move.l	d0,$440(a4)
		beq.b	lbC00268A
		move.l	d0,a0
		move.l	$36(a0),$444(a4)
		moveq	#1,d0
		bra.b	lbC0026AE
lbC00268A:
		tst.w	d7
		beq.b	lbC0026AC
		move.l	a5,-(sp)
		pea	$456(a4)
		pea	$14(sp)
		bsr.w	lbC001D94
		pea	3.w
		pea	$1C(sp)
		bsr.w	lbC00091E
		lea	$14(sp),sp
lbC0026AC:
		moveq	#0,d0
lbC0026AE:
		movem.l	(sp)+,d7/a5/a6
		adda.w	#$C8,sp
		rts

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

;lbC0026B8:
;		move.l	sp,d0
;		subq.l	#4,d0
;		cmp.l	$484(a4),d0
;		bcs.w	lbC0010FC
;		move.l	a6,-(sp)
;		move.l	$440(a4),a0
;		move.l	$43C(a4),a6
;		jsr	-$5A(a6)
;		clr.l	$440(a4)
;		moveq	#1,d0
;		move.l	(sp)+,a6
;		rts

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

;		move.l	sp,d0
;		subi.l	#12,d0
;		cmp.l	$484(a4),d0
;		bcs.w	lbC0010FC
;		subq.w	#4,sp
;		movem.l	a3/a5/a6,-(sp)
;		move.l	$14(sp),a5
;		clr.l	12(sp)
;		pea	1.w
;		move.l	a5,-(sp)
;		bsr.w	lbC00264E
;		addq.w	#8,sp
;		tst.w	d0
;		bne.b	lbC00270E
;		moveq	#0,d0
;		bra.b	lbC00273E
;lbC00270E:
;		move.l	$444(a4),a0
;		lea	$474(a4),a1
;		move.l	$43C(a4),a6
;		jsr	-$60(a6)
;		move.l	d0,a3
;		move.l	a3,d0
;		beq.b	lbC002732
;		move.l	a3,-(sp)
;		bsr.w	lbC001CF4
;		move.l	d0,$590(a4)
;		addq.w	#4,sp
;		bra.b	lbC002738
;lbC002732:
;		moveq	#7,d0
;		move.l	d0,$590(a4)
;lbC002738:
;		bsr.w	lbC0026B8
;		moveq	#1,d0
;lbC00273E:
;		movem.l	(sp)+,a3/a5/a6
;		addq.w	#4,sp
;		rts
;		nop

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

 SECTION ByteLog2,data_p

Main_Text:
		dc.b	"$VER:",10,13,"               "
		dc.b	27,"[36mByteLog "
		dc.b	27,"[0mV1.0 "
		dc.b	27,"[36mby Byteandi "
		dc.b	27,"[0m("
		dc.b	27,"[36mtRSi"
		dc.b	27,"[0m/"
		dc.b	27,"[36mX"
		dc.b	27,"[0m-"
		dc.b	27,"[36miNNOVATiON"
		dc.b	27,"[0m)",10,10,13,0,0
		dc.b	10,13,0,0

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

		dc.b	"Doors:Bytekiller/bytekiller",0

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

		dc.b	27,"[36mAdd "
		dc.b	27,"[0m%s "
		dc.b	27,"[36mto UdLog..."
		dc.b	27,"[0m",0,0

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

		dc.b	"%sUdLog",0
		dc.b	"error can't Open UdLog",10,13,0,0
		dc.b	"Not enough Memory for message structure",10,0,0
		dc.b	"Couldn't create reply port",10,0,0,0
		dc.b	"AEDoorPort%d",0,0

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

		dc.l	0,0
		dc.l	$40000000
		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,0,0,1,0,1,1,1,1
		dc.l	$00202020
		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	$01010101
		dc.l	$01010101
		dc.l	$01010101
		dc.l	$01010101
		dc.l	$01010101
		dc.l	$10101010
		dc.l	$10108282
		dc.l	$82828282
		dc.l	$02020202
		dc.l	$02020202
		dc.l	$02020202
		dc.l	$02020202
		dc.l	$02020202
		dc.l	$10101010
		dc.l	$20000000

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

		dcb.l	$20,0
		dc.l	$00000FA0
		dc.l	lbL002A32
		dcb.l	7,0
		dc.w	0
lbL002A32:
		dc.l	lbL002A54
		dcb.l	7,0
		dc.w	0
lbL002A54:
		dcb.l	9,0
		dc.l	$00000200
		dc.l	0,0
		dc.l	$00008000
		dc.l	13
lbL002A8C:
		dc.l	$FFFF0000
		dc.l	$000E000E
		dc.l	0,0,0
		dc.l	$FFFF0000
		dc.l	$00040004
		dc.l	0
		dc.l	StackOverflow.MSG
		dc.l	lbL002A8C
		dc.l	$FFFF0000
		dc.l	$00040004
		dc.l	0
		dc.l	EXIT.MSG
		dc.l	0
lbL002AC8:
		dc.l	$FFFF0000
		dc.l	$000E000E
		dc.l	0
		dc.l	UserAbortRequ.MSG
		dc.l	0
		dc.l	$FFFF0000
		dc.l	$00040004
		dc.l	0,0
		dc.l	lbL002AC8
		dc.l	$FFFF0000
		dc.l	$00040004
		dc.l	0
		dc.l	CONTINUE.MSG
		dc.l	0
		dc.l	$FFFF0000
		dc.l	$00040004
		dc.l	0
		dc.l	ABORT.MSG
		dc.l	0,0

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

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

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

		dc.l	$00000505
		dc.l	$05050505
		dc.l	$05050505
		dc.l	$05050505
		dc.l	$05050505
		dc.l	$0D051011
		dc.l	$02020505
		dc.l	$05050205
		dc.l	$16051E13
		dc.l	$05050505
		dc.l	$05050D0D
		dc.l	$0D131305
		dc.l	$05050505
		dc.l	$05050505
		dc.l	$05050505
		dc.l	$05050505
		dc.l	0,0,0
		dc.w	0

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

		dc.b	"icon.library",0,0

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

		dc.b	27,"[31mCan`t find %s.Icon",10,13
		dc.b	27,"[0m",0
		dc.b	"LOG_DAYS",0,0,0,0

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

lbL002BC8:
		ds.l	$95

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