Date Tuesday Dec 19, 1978 12:11:00 PM
Loaded from MAINT(193)
R08978DS: ./ R 204000 208000 $ 203600 600
R08978DS: OPTSOK CLI SSW,ZERO ANY OPTIONS SPECIFIED? @VA08978
R08978DS: BNE READDIR NOT DEFAULT - GO CHECK DIRECTORY @VA08978
R08978DS: OI SSW,DISK TURN ON DISK OPTION @VA08978
R08978DS: B READDIR GO CHECK DIRECTORY @VA08978
R08978DS: CHKDSK EQU * @VA08978
R08978DS: TM SSW,DISK WAS DISK SPECIFIED? @VA08978
R08978DS: BZ FNDMOD NOT DISK - DON'T BOTHER TO ERASE @VA08978
R08978DS: ERSOLD MVC FNAME,MDNAME SET UP FILE NAME @VA08978
R08978DS: ./ R 213000 215000 $ 212800 800
R08978DS: BE ERR006 YES,GIVE ERROR @VA08978
R08978DS: B FNDMOD CONTINUE @VA08978
R08978DS: EJECT
R08978DS: * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
R08978DS: ./ R 247000 249000 $ 247000 1000
R08978DS: CLC MDNAME,0(R2) MODULE NAME MATCH? @VA08978
R08978DS: BE CHKDSK FOUND - GO CHECK FOR ERASE @VA08978
R08978DS: LA R2,16(,R2) BUMP TO NEXT ENTRY @VA08978
R08978DS: ./ R 281000 282000 $ 280500 500
R08978DS: NOEND EQU * @VA08978
R08978DS: LA R4,OUTBUF POINT TO CARD COLUMN 1 @VA08978
R08978DS: MVI OUTBUF,BLANK PUT BLANK IN FIRST BYTE @VA08978
R08978DS: MVC 1(79,R4),0(R4) BLANK 80 BYTES FOR RECORD @VA08978
R08978DS: BCTR R4,0 ADJUST POINTER TO BUFFER @VA08978
BEGIN APPLY >>> ./ R 204000 208000 $ 203600 600
END APPLY >>> ./ R 204000 208000 $ 203600 600
BEGIN APPLY >>> ./ R 213000 215000 $ 212800 800
END APPLY >>> ./ R 213000 215000 $ 212800 800
BEGIN APPLY >>> ./ R 247000 249000 $ 247000 1000
END APPLY >>> ./ R 247000 249000 $ 247000 1000
BEGIN APPLY >>> ./ R 281000 282000 $ 280500 500
END APPLY >>> ./ R 281000 282000 $ 280500 500
Update Succeeded
Update Execution Time 23 milliseconds.