Program Logic Manual - All about the IBM 1130 Computing System

the disk area reserved for DUP phase 16 atSystem generation time.• Construction of the DUP principal I/0 phase(without Keyboard). This phase is written to thedisk area reserved for DUP phase 15 at Systemgeneration time.• Construction of the DUP principal I/O phase.This phase is written to the disk area reservedfor DUP phase 14. This phase is left in corestorage at IOADR.• Initialization of all I/O-dependent switches inCATCO.• Incorporation of DCOM from the master cartridgeinto CATCO.• Incorporation of IOAR headers (word counts andsector addresses) of other DUP phases intoCATCO. This information is supplied to CCATby the System Loader.• Initialization of DUP's page heading buffer withthe heading contained in sector @HDNG.• Fetching the System device subroutine for theprincipal print device. This subroutine overlaysall but a few words of CCAT. These lastwords are cleared to zero just before branchingto REST.The functions that are common to all DUP phasesare included in the non-overlaid section of DUPCO.These functions are provided by the following subroutines:WRTDC -- This subroutine is used by STORE,DELETE, and DEFINE when it is necessary toupdate DCOM. This includes the updating ofDCOM on any affected satellite cartridge as wellas on the master cartridge.PHIDM -- This subroutine is used to modify thenext-to-high-order hexadecimal digit of $PHSEin COMMA. It is used primarily by DUP's I/Ofunctions to illustrate in a core dump the I/Ooperation last performed. The modifications are:1 Read from disk2 Write to disk4 Convert binary to EBCDIC5 Print terminal messages8 Read cards9 Read paper tapeARead KeyboardPHID -- This subroutine is used to record the phaseID of the phase in execution in $PHSE of COMMA.It is also used by some DUP phases to illustratethe progress of execution from one section of thephase to the next. When used for this purpose,the high-order digit of $PHSE is changed to theappropriate phase section modifier. A core dumpindicates the last section of the phase that wasexecuted.MASK -- This subroutine is used to prevent recognitionof the INTERRUPT REQUEST key. The functionof this key is to terminate the current job,but DUP must not allow this termination to takeplace while in a critical operation. Therefore,functions that affect LET/FLET, the User or FixedArea, the CIB, and DCOM delay its recognition(STORE, DELETE, DEFINE).LEAVE -- This subroutine is used to fetch DUP'sexit phase (DEXIT) to print an error message orservice a special exit, such as an exit to the CoreLoad Builder (STORE CI function), an exit to theADRWS program (DWADR function), or an exit tothe Supervisor following the trapping of a monitorcontrol record.MDUMP -- This subroutine makes selective calls tothe System Core Dump program. See DUI) DiagnosticAids.BINEB -- This subroutine is used to convert binarynumbers to EBCDIC hexadecimal characters. Itis used primarily to convert a number for insertioninto a phase termination message, e. g. ,a cartridge ID, a disk block count.PRINT -- This subroutine is used to print a line onthe principal print device. It interfaces with theSystem principal print device subroutine.PAGE -- This subroutine is used to skip to channel 1and print a page heading if the principal print deviceis the 1132 or 1403 Printer. If the ConsolePrinter is the principal print device, five carriagereturns are executed before the page heading isprinted.SO