Date Monday Feb 15, 1982 09:27:00 AM
Loaded from MAINT(294)
R15080DK: ./ R 6000 7000 $ 6100 100 00001000
R15080DK: LCLA &LN,&LEN,&A,&CNT,&X,&Y,&B,&D @VA15080 00002000
R15080DK: LCLC &XX,&YY,&C @VA15080 00003000
R15080DK: ./ I 57000 $ 57100 00004000
R15080DK: &D SETA 0 @VA15080 00005000
R15080DK: ./ I 64000 $ 64050 50 00006000
R15080DK: &B SETA &A+2 NEXT LINE VALUE INDEX @VA15080 00007000
R15080DK: .DUP ANOP 00008000
R15080DK: AIF (&D EQ 1).CONT2 ALREADY GAVE ERR7 MNOTE @VA15080 00009000
R15080DK: AIF (&B GT &CNT).CONT2 PAST LAST LINE VALUE @VA15080 00010000
R15080DK: &C SETC '&LINE(&B)' NEXT LINE VALUE @VA15080 00011000
R15080DK: AIF (&XX EQ &C).SETFLG FOUND DUP @VA15080 00012000
R15080DK: &B SETA &B+2 INDEX TO NEXT LINE VALUE @VA15080 00013000
R15080DK: AGO .DUP @VA15080 00014000
R15080DK: .SETFLG ANOP 00015000
R15080DK: &D SETA 1 INDICATE DUP LINE FOUND @VA15080 00016000
R15080DK: AGO .ERR7 GIVE INFORMATIONAL MNOTE @VA15080 00017000
R15080DK: .CONT2 ANOP 00018000
R15080DK: ./ R 76000 $ 76100 00019000
R15080DK: &LEN SETA 16+&Y SET UP END OF FORMS @VA15080 00020000
R15080DK: * @VA15080 00021000
R15080DK: ./ I 129000 $ 129100 100 00022000
R15080DK: .ERR7 ANOP 00023000
R15080DK: SPACE 3 00024000
R15080DK: MNOTE 2,'***SAME PRINT LINE SPECIFIED MORE THAN ONCE' @VA15080 00025000
R15080DK: AGO .CONT2 @VA15080 00026000
R15080DK: ./ I 211000 $ 211100 100 00027000
R15080DK: * IF A LINE NUMBER IS ENTERED MORE THAN ONCE, THE LAST 00028000
R15080DK: * (LINE,CHANNEL) PAIR OF THE DUPLICATE LINE WILL BE INCLUDED IN 00029000
R15080DK: * THE BUFFER LOAD IMAGE, AND AN INFORMATIONAL MNOTE WILL BE 00030000
R15080DK: * ISSUED. 00031000
BEGIN APPLY >>> ./ R 6000 7000 $ 6100 100 00001000
END APPLY >>> ./ R 6000 7000 $ 6100 100 00001000
BEGIN APPLY >>> ./ I 57000 $ 57100 00004000
END APPLY >>> ./ I 57000 $ 57100 00004000
BEGIN APPLY >>> ./ I 64000 $ 64050 50 00006000
END APPLY >>> ./ I 64000 $ 64050 50 00006000
BEGIN APPLY >>> ./ R 76000 $ 76100 00019000
END APPLY >>> ./ R 76000 $ 76100 00019000
BEGIN APPLY >>> ./ I 129000 $ 129100 100 00022000
END APPLY >>> ./ I 129000 $ 129100 100 00022000
BEGIN APPLY >>> ./ I 211000 $ 211100 100 00027000
END APPLY >>> ./ I 211000 $ 211100 100 00027000
Update Succeeded
Update Execution Time 16 milliseconds.