Program Logic Manual - All about the IBM 1130 Computing System

IITo delete the FORTRAN Compiler, the RPGCompiler and/or the Assembler Program from asystem cartridge, all succeeding programs andspecial purpose areas on the disk are moved awayfrom Working Storage toward the voided area.Working Storage is increased by the size of thevoided program(s).Once a program has been eliminated, it cannotbe restored without an initial load of the disk cartridge,including all the programs in the User orFixed Area.DEFINE determines if a system or non-systemcartridge is being processed by testing DCOM forthe presence of the version and modification levelnumber, which is zero on non-system cartridges.If the FORTRAN Compiler and/or the AssemblerProgram or the RPG Compiler is deleted, all SLETentries for that program(s) are cleared to zero.SLET is also revised to reflect the new sector ad-•dresses of those programs that are shifted.All entries in the Reload Table indicating SLETlookups requested by the deleted program(s) areremoved and the remaining Reload Table entriesare packed together. The revised Reload Table isthen reprocessed to generate new sector addresseswhere necessary in the monitor system programs.Buffers Used By DEFINELETAR -- a disk I/O buffer.SDBUF --- a disk I/O buffer.Switches and IndicatorsFORSW -- non-zero when the FORTRAN Compileris to be deleted.ASMSW -- non-zero when the Assembler Programis to be deleted.FXSW -- non-zero when the Fixed Area is to bedefined or modified.DATSW -- indicates the disk block adjustment ofthe Fixed Area.NEGSW -- non-zero when the Fixed Area is to bedecreased.1 RPGSW — non-zero when the RPG Compileris to be deletedErrors DetectedThe following DUP errors are detected in DEFINE:D15, D70, D80, D81, D82, D83, D84, D85, D86and D87.DEXITThis phase is brought into core storage and executedby the LEAVE subroutine in DUPCO. DEXIT performsthe following functions:• Prints DUP error messages• Traps monitor control records and exits to theSupervisor• Links to the System Library program ADRWSfor DWADR• Passes control to the Core Load Builder forSTORECI• Returns control to MODIF when a modificationincludes changes to the System Library.• Exits to the Supervisor upon recognition of theINTERRUPT REQUEST key interrupt.DEXIT is called with an indirect branch viaLEAVE. Following the branch instruction is aparameter that specifies the function to be performedby DEXIT.If the parameter is a positive integer, DEXITprints a DUP error message. The message printedcorresponds to the integer parameter.If the parameter is zero, DEXIT moves a trappedmonitor control record from the buffer CRBUF tothe Supervisor buffer @SBFR. $CTSW in COMMAis Set to minus one (/FFFF) to indicate to the Supervisorthat the next monitor control record has alreadybeen read.DEXIT checks to see if control should be returnedto the System Maintenance program, MODIF. If#MDF2 in DCOM is non-zero, DEXIT reads DUPphase 18 into core storage and transfers to it. Thisphase contains part of MODIF, written on this sectorwhen MODIF was last in control. In this mannerMODIF is able to use DUP to delete an old versionof a program or subroutine from the System Library,and then use DUP to store the new version.58