;*; Updated on 13-Jul-90 at 2:25 PM by Matt Badger; edit time: 0:00:32
;*************************** AMUS Program Label ******************************
; Filename: DIARY.*                                         Date: 7/13/90
; Category: UTIL         Hash Code: 722-167-222-272      Version: 1.2A           
; Initials: AMUS         Name: AMUS
; Company: AMUS                                    Telephone #: 3034496917
; Related Files: DIARY.*  STSLST.*
; Min. Op. Sys.: 1.3                           Expertise Level: INT
; Special: 
; Description: Keep a log file of all activity for specified jobs
; 
; 
;*****************************************************************************
;
;	DISM68 version 1.3
;	Disassembly of DIARY.NOP
;

	SEARCH	SYS
	SEARCH	SYSSYM

	RADIX	16.

VMAJOR=1.
VMINOR=2.
VSUB=1.
VEDIT=0.
VWHO=0.
L0:	PHDR	-1,0,PH$REE!PH$REU
	PUSH	#024D4
	PUSH
	GETMEM	@SP
	BEQ	L01A
	EXIT
L01A:	POP	A3
	POP
	LEA	A6,@A3
	MOV	#0935,D7
L026:	CLR	(A6)+
	DEC	D7
	BNE	L026
	MOV	#1,D0
	CALL	L0424
	LEA	A5,@A3
	CALL	L0416
	FILINB	@A5
	SUBB	#030,D1
	LEA	A1,0D1(A3)
	MOVB	D1,@A1
	FILINB	@A5
	CMPB	D1,#0D
	BEQ	L090
	MOVB	@A1,D2
	MULS	D2,#0A
	SUBB	#030,D1
	ADDB	D2,D1
	MOVB	D1,@A1
	CMPB	@A1,#032
	JLOS	L07A
	LEA	A2,L07C2
	JMP	L0758
L07A:	FILINB	@A5
	CMPB	D1,#0D
	JEQ	L090
	LEA	A2,L07EA
	JMP	L0758
L090:	CALL	L0416
	CLR	D1
	CLR	D2
	FILINB	@A5
	SUBB	#030,D1
	LEA	A1,0D3(A3)
	MOVB	D1,@A1
	FILINB	@A5
	CMPB	D1,#0D
	JEQ	L0104
	MOVB	@A1,D2
	MULS	D2,#0A
	SUBB	#030,D1
	ADDB	D2,D1
	MOVB	D1,@A1
	FILINB	@A5
	CMPB	D1,#0D
	BEQ	L0104
	MOVB	@A1,D2
	MULS	D2,#0A
	CMP	D2,#0FF
	BLOS	L0E6
	LEA	A2,L09B8
	JMP	L0758
L0E6:	SUBB	#030,D1
	ADDB	D2,D1
	MOVB	D1,@A1
	FILINB	@A5
	CMPB	D1,#0D
	JEQ	L0104
	LEA	A2,L09EC
	JMP	L0758
L0104:	CALL	L0416
	CLR	D1
	CLR	D2
	FILINB	@A5
	SUBB	#030,D1
	LEA	A1,0D4(A3)
	MOVB	D1,@A1
	FILINB	@A5
	CMPB	D1,#0D
	JEQ	L0178
	MOVB	@A1,D2
	MULS	D2,#0A
	SUBB	#030,D1
	ADDB	D2,D1
	MOVB	D1,@A1
	FILINB	@A5
	CMPB	D1,#0D
	BEQ	L0178
	MOVB	@A1,D2
	MULS	D2,#0A
	CMP	D2,#0FF
	BLOS	L015A
	LEA	A2,L0958
	JMP	L0758
L015A:	SUBB	#030,D1
	ADDB	D2,D1
	MOVB	D1,@A1
	FILINB	@A5
	CMPB	D1,#0D
	JEQ	L0178
	LEA	A2,L098A
	JMP	L0758
L0178:	CLR	D4
L017A:	PUSH	D4
	CALL	L0416
	LEA	A2,058A(A3)
	LEA	A1,0590(A3)
L0188:	FILINB	@A5
	CMPB	D1,#0D
	BEQ	L0198
	MOVB	D1,(A2)+
	BR	L0188
L0198:	MOV	A1,D7
	CMP	D7,A2
	BEQ	L01A4
	MOVB	#020,(A2)+
	BR	L0198
L01A4:	LEA	A2,058A(A3)
	LEA	A1,0590(A3)
	PACK
	PACK
	LEA	A1,0590(A3)
	CALL	L0458
	LEA	A4,0DA(A3)
	ADD	#8,A4
	CLR	D3
	MOVB	D4,D3
	MULS	D3,#0E
	ADD	D3,A4
	MOV	A6,@A4
	CALL	L0416
	CLR	D1
	FILINB	@A5
	SUBB	#030,D1
	PUSH	D1
	FILINB	@A5
	CMPB	D1,#0D
	BEQ	L021A
	POP	D2
	MULS	D2,#0A
	SUBB	#030,D1
	ADDB	D2,D1
	PUSH	D1
	CMPB	D1,#018
	BLOS	L0204
	LEA	A2,L0812
	JMP	L0758
L0204:	FILINB	@A5
	CMPB	D1,#0D
	JEQ	L021A
	LEA	A2,L0832
	JMP	L0758
L021A:	POP	D1
	LEA	A4,0D6(A3)
	MOVB	D1,@A4
	CLR	D2
	COM	D2
	LSL	D2,D1
	AND	#0FFFFFF,D2
	PUSH	D2
	CALL	L0416
	CLR	D1
	FILINB	@A5
	SUBB	#030,D1
	PUSH	D1
	FILINB	@A5
	CMPB	D1,#0D
	BEQ	L0280
	POP	D2
	MULS	D2,#0A
	SUBB	#030,D1
	ADDB	D2,D1
	PUSH	D1
	CMPB	D1,#018
	BLOS	L026A
	LEA	A2,L0858
	JMP	L0758
L026A:	FILINB	@A5
	CMPB	D1,#0D
	JEQ	L0280
	LEA	A2,L0878
	JMP	L0758
L0280:	POP	D1
	LEA	A4,0D8(A3)
	MOVB	D1,@A4
	CLR	D2
	COM	D2
	MOV	#020,D3
	SUBB	D1,D3
	LSR	D2,D3
	LEA	A1,0D6(A3)
	CLR	D6
	CLR	D5
	MOVB	@A1,D6
	MOVB	@A4,D5
	SUBB	D6,D5
	BMI	L02A8
	POP	D3
	AND	D3,D2
	BR	L02AC
L02A8:	POP	D3
	OR	D3,D2
L02AC:	LEA	A4,0DA(A3)
	CLR	D3
	MOVB	D4,D3
	MULS	D3,#0E
	ADD	D3,A4
	MOV	D2,@A4
	CLR	D3
	CLR	D2
	CALL	L0416
	LEA	A4,0DA(A3)
	ADD	#4,A4
	MOVB	D4,D3
	MULS	D3,#0E
	ADD	D3,A4
	FILINB	@A5
	SUBB	#030,D1
	MOVB	D1,@A4
	FILINB	@A5
	CMPB	D1,#0D
	BEQ	L0338
	MOVB	@A4,D2
	MULS	D2,#0A
	SUBB	#030,D1
	ADDB	D2,D1
	MOVB	D1,@A4
	FILINB	@A5
	CMPB	D1,#0D
	BEQ	L0338
	MOVB	@A4,D2
	MULS	D2,#0A
	CMP	D2,#0FF
	BLOS	L031A
	LEA	A2,L089C
	JMP	L0758
L031A:	SUBB	#030,D1
	ADDB	D2,D1
	MOVB	D1,@A4
	FILINB	@A5
	CMPB	D1,#0D
	JEQ	L0338
	LEA	A2,L08D0
	JMP	L0758
L0338:	MOVB	@A4,D1
	CLR	D2
	MOV	#8,D3
	CLR	D0
L0340:	BTST	#0,D1
	BEQ	L0348
	ADD	D3,D2
L0348:	LSRB	D1,#1
	LSL	D3,#1
	INC	D0
	CMP	D0,#8
	BNE	L0340
	MOV	D2,@A4
	CLR	D2
	CALL	L0416
	FILINB	@A5
	CMPB	D1,#059
	BNE	L036E
	ORB	#020,D2
L036E:	CALL	L0416
	FILINB	@A5
	CMPB	D1,#059
	BNE	L0382
	ORB	#010,D2
L0382:	CALL	L0416
	FILINB	@A5
	CMPB	D1,#059
	BNE	L0396
	ORB	#8,D2
L0396:	CALL	L0416
	FILINB	@A5
	CMPB	D1,#059
	BNE	L03AA
	ORB	#4,D2
L03AA:	CALL	L0416
	FILINB	@A5
	CMPB	D1,#059
	BNE	L03BE
	ORB	#2,D2
L03BE:	CALL	L0416
	FILINB	@A5
	CMPB	D1,#059
	BNE	L03D2
	ORB	#1,D2
L03D2:	FILINB	@A5
	CMPB	D1,#0D
	LEA	A4,L0900
	JNE	L0758
	LEA	A4,0DA(A3)
	ADD	#0C,A4
	MOV	D4,D3
	MULS	D3,#0E
	ADD	D3,A4
	MOVW	D2,@A4
	POP	D4
	INC	D4
	LEA	A1,0D1(A3)
	CMPB	D4,@A1
	JNE	L017A
	CLOSE	@A5
	JMP	L0480
L0416:	FILINB	@A5
	CMPB	D1,#03D
	BNE	L0416
	RTN
L0424:	LEA	A2,L0476
	LEA	A5,@A3
	FSPEC	@A5
	INIT	@A5
	LOOKUP	@A5
	LEA	A2,L0A1C
	JNE	L0758
	OPENI	@A5
	RTN
L0458:	MOV	JOBTBL,A0
L045C:	MOV	(A0)+,A6
	MOV	A6,D1
	LEA	A2,L0938
	JMI	L0758
	BEQ	L045C
	LEA	A4,8(A6)
	MOV	@A1,D7
	CMP	D7,@A4
	BNE	L045C
	RTN
L0476:	WORD	04944
	INCW	D1
	MOV	(A1)+,SP
	WORD	04E49
	WORD	049,041EB
.=.-2
L0480:
.=.+2
	BCLR	D2,@A4
L0484:	CLR	D4
	PUSH	A6
	CTRLC	L07B6
	POP	A6
L0490:	GTIMES	D2
	AND	#0FF0000,D2
	MOV	#010,D3
	LSR	D2,D3
	CLR	D3
	LEA	A4,0DA(A3)
	CLR	D5
	MOVB	D4,D5
	MULS	D5,#0E
	ADD	D5,A4
	MOV	@A4,D3
	BTST	D2,D3
	JEQ	L0566
	PUSH	A4
	LEA	A2,04C2(A3)
	CLR	D5
	MOV	D4,D5
	MULS	D5,#4
	ADD	D5,A2
	ADD	#8,A4
	MOV	@A4,A6
	MOV	01C(A6),D7
	CMP	D7,@A2
	BEQ	L04DC
	MOV	01C(A6),@A2
	POP	A4
	BR	L04E2
L04DC:	POP	A4
	JMP	L0566
L04E2:	PUSH	A4
	ADD	#8,A4
	MOV	(A4)+,A6
	MOV	094(A6),D2
	POP	A4
	ADD	#4,A4
	MOV	@A4,D1
	LEA	A2,03FA(A3)
	CLR	D5
	MOV	D4,D5
	MULS	D5,#4
	ADD	D5,A2
	MOV	@A2,D3
	MOV	D2,@A2
	SUB	D3,D2
	SUB	D1,D2
	JLE	L0566
	MOV	D4,D2
	INCB	D2
	MOVW	D2,(A0)+
	ADD	#8,A4
	MOVW	@A4,(A0)+
	CLR	D2
	MOVW	@A4,D2
	BTST	#5,D2
	BEQ	L052C
	PUSH	A6
	GTIMES	D3
	POP	A6
	MOV	D3,(A0)+
L052C:	BTST	#4,D2
	BEQ	L053E
	MOVW	034(A6),(A0)+
	MOVW	036(A6),(A0)+
	MOVW	014(A6),(A0)+
L053E:	BTST	#3,D2
	BEQ	L0548
	MOV	01C(A6),(A0)+
L0548:	BTST	#2,D2
	BEQ	L0552
	MOV	09C(A6),(A0)+
L0552:	BTST	#1,D2
	BEQ	L055C
	MOV	0A0(A6),(A0)+
L055C:	BTST	#0,D2
	BEQ	L0566
	MOV	094(A6),(A0)+
L0566:	INC	D4
	LEA	A4,0D1(A3)
	CMPB	D4,@A4
	JNE	L0490
	LEA	A4,0D0(A3)
	LEA	A2,0D3(A3)
	CLR	D7
	MOVB	@A4,D7
	CMPB	D7,@A2
	BEQ	L05A6
	CMPB	0D4(A3),#0
	LEA	A2,L0A34
	JEQ	L0758
	CLR	D3
	MOV	#01388,D6
	MOVB	0D4(A3),D3
	MULS	D6,D3
	SLEEP
	INCB	@A4
	JMP	L0484
L05A6:	CLR	D4
	CLR	D3
L05AA:	MOVW	D4,D3
	INCW	D3
	LEA	A0,0594(A3)
	CMPW	D3,(A0)+
	JNE	L06D0
L05B8:	LEA	A2,0D2(A3)
	CMPB	@A2,#1
	JEQ	L0664
	LEA	A4,0DA(A3)
	CLR	D2
	MOVB	D4,D2
	MULS	D2,#0E
	ADD	D2,A4
	ADD	#8,A4
	MOV	@A4,A2
	MOV	8(A2),06E(A3)
	LEA	A2,L0754
	MOVW	@A2,072(A3)
	LEA	A5,068(A3)
	INIT	@A5
	LEA	A2,0D2(A3)
	MOVB	#1,@A2
	LOOKUP	@A5
	BNE	L0608
	JMP	L0656
L0608:	OPENO	@A5
	PUSH	A5
	GDATES	D1
	POP	A5
	FILOTL	@A5
	PUSH	A5
	GTIMES	D1
	POP	A5
	FILOTL	@A5
	LEA	A4,0DA(A3)
	MOV	D4,D2
	MULS	D2,#0E
	ADD	D2,A4
	ADD	#8,A4
	MOV	(A4)+,D1
	FILOTL	@A5
	MOVW	@A4,D1
	FILOTW	@A5
	BR	L0664
L0656:	OPENA	@A5
L0664:	CLR	D2
	MOVW	(A0)+,D2
	BTST	#5,D2
	BEQ	L0676
	MOV	(A0)+,D1
	FILOTL	@A5
L0676:	BTST	#4,D2
	BEQ	L0694
	MOVW	(A0)+,D1
	FILOTW	@A5
	MOVW	(A0)+,D1
	FILOTW	@A5
	MOVW	(A0)+,D1
	FILOTW	@A5
L0694:	BTST	#3,D2
	BEQ	L06A2
	MOV	(A0)+,D1
	FILOTL	@A5
L06A2:	BTST	#2,D2
	BEQ	L06B0
	MOV	(A0)+,D1
	FILOTL	@A5
L06B0:	BTST	#1,D2
	BEQ	L06BE
	MOV	(A0)+,D1
	FILOTL	@A5
L06BE:	BTST	#0,D2
	BEQ	L0702
	MOV	(A0)+,D1
	FILOTL	@A5
	JMP	L0702
L06D0:	MOVW	(A0)+,D2
	BTST	#5,D2
	BEQ	L06DA
	ADD	#4,A0
L06DA:	BTST	#4,D2
	BEQ	L06E2
	ADD	#6,A0
L06E2:	BTST	#3,D2
	BEQ	L06EA
	ADD	#4,A0
L06EA:	BTST	#2,D2
	BEQ	L06F2
	ADD	#4,A0
L06F2:	BTST	#1,D2
	BEQ	L06FA
	ADD	#4,A0
L06FA:	BTST	#0,D2
	BEQ	L0702
	ADD	#4,A0
L0702:	CMPW	@A0,#0
	BEQ	L0712
	CMPW	D3,(A0)+
	JEQ	L05B8
	JMP	L06D0
L0712:	LEA	A2,0D2(A3)
	CMPB	@A2,#1
	BNE	L072A
	CLOSE	@A5
	CLRB	@A2
L072A:	LEA	A1,0D1(A3)
	CMPB	D3,@A1
	BNE	L074E
	LEA	A1,0594(A3)
	LEA	A6,@A1
	MOV	#07D0,D7
L073E:	CLR	(A6)+
	DEC	D7
	BNE	L073E
	LEA	A1,0D0(A3)
	CLRB	@A1
	JMP	L0480
L074E:	INC	D4
	JMP	L05AA
L0754:	WORD	079F3
	ORB	#02F0A,D0
.=.-2
L0758:
.=.+2
L075A:	LEA	A2,L07B8
	LEA	A4,068(A3)
	FSPEC	@A4
	INIT	@A4
	LOOKUP	@A4
	LEA	A2,L0A1C
	BNE	L078C
	DSKDEL	@A4
	BR	L075A
L078C:	OPENO	@A4
	POP	A2
L079C:	MOVB	(A2)+,D1
	FILOTB	@A4
	CMPB	@A2,#0
	BNE	L079C
	CLOSE	@A4
L07B6:	EXIT
L07B8:	WORD	04944
	INCW	D1
	MOV	(A1)+,SP
	INCW	D5
	ORW	#03F09,@A2
.=.-2
L07C2:
.=.+2
	WORD	0616D
	BVS	L0840
	WORD	0756D
	MOV	06C61(A5),A0
	BLE	L083C
	WORD	06177
	BGE	L0836
	MOV	-(A5),A0
	WORD	04F4A
	DECW	D2
	MOV	#020,D3
	WORD	06C61
	WORD	06575
	BVS	L0802
	MOV	035(A3)[~D3],A0
	WORD	0A0D,0
L07EA:	PUSHW	A1
	WORD	07973
	MOV	#06E,D2
	MOV	#061,D4
	BCS	L0814
	MOV	#072,D1
	MOV	#06F,D1
	BLE	L081A
	MOV	0554E(A6),A0
	WORD	0424D
	INCW	D5
L0802:	WORD	04F20
	MOV	D6,A0
	WORD	04F4A
	DECW	D2
	BGE	L082C
	WORD	06E69
	BCHG	D6,-(A5)
	WORD	0A,03F09
.=.-2
L0812:
.=.+2
L0814:	ADDW	#2,@A3
	INCW	D1
	MOV	@A4,A0
L081A:	BCALL	L0892
	WORD	0756C
	MOV	-(A5),A0
	MOV	#067,D1
	WORD	06165
	BCS	L089A
	MOV	074(A2)[D6],A0
	WORD	06E61
L082C:	MOVW	-(A0),D1
	BTST	D6,0A(A4)[~D0]
L0832:	PUSHW	A1
	WORD	07973
L0836:	MOV	#06E,D2
	MOV	#061,D4
	BCS	L085C
L083C:	MOV	#072,D1
	MOV	#06F,D1
L0840:	BLE	L0862
	MOV	05453(A6),A0
	INCW	D1
	MOV	@A4,A0
	BCS	L08B0
	BVS	L08B4
	BVS	L08BE
	BVS	L08C6
	WORD	06E6F
	WORD	0A0D,0
L0858:	PUSHW	A1
	ADDW	#2,@A3
L085C:	ADDW	#8,SP
	MOV	#020,D3
	WORD	06C61
L0862:	WORD	06575
	BEQ	L0886
	BCS	L08DA
	MOV	#061,D2
	MOV	#065,D1
	MOV	#020,D2
	BCALL	L08D8
	MOV	03432(A6),A0
	WORD	0A0D,0
L0878:	PUSHW	A1
	WORD	07973
	MOV	#06E,D2
	MOV	#061,D4
	BCS	L08A2
	MOV	#072,D1
	MOV	#06F,D1
L0886:	BLE	L08A8
	MOV	05453(A6),A0
	ADDW	#8,SP
	BCC	L08B0
	WORD	06665
L0892:	WORD	06E69
	MOV	#069,D2
	WORD	06F69
	BCHG	D6,0A(A6)
.=.-2
L089A:
.=.+2
L089C:	PUSHW	A1
	ADDW	#8,D3
	MOV	@A5,A0
L08A2:	WORD	04553
	DECW	A6
	ADDW	#2,A1
L08A8:	ADDW	#3,A1
	ADDW	#2,A1
	MOV	(A1)+,A0
	BCALL	L0926
L08B0:	WORD	0756C
	MOV	-(A5),A0
L08B4:	MOV	#067,D1
	WORD	06165
	BCS	L092E
	MOV	074(A2)[D6],A0
L08BE:	WORD	06E61
	BCALL	L08E2
	BGE	L0930
	WORD	0776F
L08C6:	WORD	06465
	MOVW	-(A0),D1
	WORD	03535,0A0D
	ORB	#03F09,D0
.=.-2
L08D0:
.=.+2
	WORD	07973
	MOV	#06E,D2
	MOV	#061,D4
L08D8:	BCS	L08FA
L08DA:	MOV	#072,D1
	MOV	#06F,D1
	BLE	L0900
	MOV	05043(A6),A0
.=.-2
L08E2:
.=.+2
	MOV	@A5,A0
	WORD	04553
	DECW	A6
	ADDW	#2,A1
	ADDW	#3,A1
	ADDW	#2,A1
	MOV	(A1)+,A0
	BCS	L0958
	BVS	L095C
	BVS	L0966
	BVS	L096E
L08FA:	WORD	06E6F
	WORD	0A0D,0
L0900:	PUSHW	A1
	BVC	L0978
	MOV	#065,D1
	MOV	-(A5),A0
	MOV	#061,D1
	MOV	-(A5),A0
	BLE	L097C
	MOV	036(A4)[~D2],A0
	BGE	L097A
	WORD	06761
	WORD	02073,06564
	BVS	L0982
	BCS	L098C
	MOV	-(A4),A0
	BLE	L0988
	MOV	061(A2)[~D2],A0
L0926:	BCALL	L0998
	MOV	#072,D2
	WORD	06369
	WORD	06C75
L092E:	MOV	#061,D1
L0930:	TSTB	-(A0)
	WORD	0424F
	WORD	0A0D,0
L0938:	PUSHW	A1
	WORD	04F4A
	MOV	D2,A0
	BLE	L09AE
	WORD	02074,06F66
	WORD	06E75
	MOV	-(A4),A0
	WORD	06E69
	TSTB	-(A0)
	WORD	0424F
	ADDB	#2,-(A0)
	CLRW	D1
	WORD	0454C
	WORD	0A0D,0
L0958:	PUSHW	A1
	WORD	04C53
L095C:	WORD	04545
	MOV	@A0,A0
	WORD	04E49
	WORD	04554
	ADDW	#3,@A2
L0966:	WORD	04C41
	MOV	#020,D3
	WORD	06C61
	WORD	06575
L096E:	BEQ	L0990
	BCS	L09E4
	MOV	#061,D2
	MOV	#065,D1
	MOV	#020,D2
L0978:	BCALL	L09E2
L097A:	MOV	06C61(A6),A0
.=.-2
L097C:
.=.+2
	BLE	L09EC
	WORD	06577
L0982:	MOV	-(A4),A0
	WORD	03532,0D35
L0988:	WORD	0A,03F09
.=.-2
L098A:
.=.+2
L098C:	WORD	07973
	MOV	#06E,D2
L0990:	MOV	#061,D4
	BCS	L09B4
	MOV	#072,D1
	MOV	#06F,D1
L0998:	BLE	L09BA
	MOV	04C53(A6),A0
	WORD	04545
	MOV	@A0,A0
	WORD	04E49
	WORD	04554
	ADDW	#3,@A2
	WORD	04C41
	BCC	L09CC
	WORD	06665
L09AE:	WORD	06E69
	MOV	#069,D2
	WORD	06F69
L09B4:	BCHG	D6,0A(A6)
L09B8:	PUSHW	A1
L09BA:	WORD	04353
	TRAP1
	MOV	@A3,A0
	WORD	04550
	MOV	@A2,A0
	INCW	@SP
	ADDW	#2,A1
	MOV	D5,A0
	BCALL	L0A42
L09CC:	WORD	0756C
	MOV	-(A5),A0
	MOV	#067,D1
	WORD	06165
	BCS	L0A4A
	MOV	074(A2)[D6],A0
	WORD	06E61
	BCALL	L09FE
	BGE	L0A4C
	WORD	0776F
L09E2:	WORD	06465
L09E4:	MOVW	-(A0),D1
	WORD	03535,0A0D
	ORB	#03F09,D0
.=.-2
L09EC:
.=.+2
	WORD	07973
	MOV	#06E,D2
	MOV	#061,D4
	BCS	L0A16
	MOV	#072,D1
	MOV	#06F,D1
	BLE	L0A1C
	MOV	04353(A6),A0
.=.-2
L09FE:
.=.+2
	TRAP1
	MOV	@A3,A0
	WORD	04550
	MOV	@A2,A0
	INCW	@SP
	ADDW	#2,A1
	MOV	D5,A0
	BCS	L0A74
	BVS	L0A78
	BVS	L0A82
	BVS	L0A8A
L0A16:	WORD	06E6F
	WORD	0A0D,0
L0A1C:	PUSHW	A1
	WORD	04944
	INCW	D1
	MOV	(A1)+,SP
	WORD	04E49
	MOV	A1,A0
	BLE	L0A98
	WORD	02074,06F66
	WORD	06E75
	BCHG	D6,-(A4)
	WORD	0A,03F09
.=.-2
L0A34:
.=.+2
	WORD	02030,06F6E
	WORD	02074,06C61
	BLE	L0AAC
	WORD	06577
L0A42:	MOV	-(A4),A0
	BLE	L0AAC
	WORD	02072,04C53
L0A4A:	WORD	04545
L0A4C:	MOV	@A0,A0
	WORD	04E49
	WORD	04554
	ADDW	#3,@A2
	WORD	04C41
	BLOS	L0A78
	WORD	0756F
	MOV	#06E,D2
	WORD	0A0D,0
L0A60:	RTN
L0A74:	NOP
L0A78:	NOP
L0A82:	NOP
L0A8A:	NOP
L0A98:	NOP
L0AAC:	NOP
	END

.