;*; 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

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.