Program Logic Manual - All about the IBM 1130 Computing System

SNOFF SubroutineFixed Area is the buffer specified by SDBUF. It isone sector long if the core size is 4K; otherwise,This subroutine is executed by all STORE operations. it is seven sectors long.It terminates the STORE function as follows. LET/FLET sectors are read and written one ata time, using the buffer specified by LETAR.• Moves the cartridge ID of the TO drive into the When STORE reads binary records, it reads themSTORE terminal message. into the area specified by THIS and NEXT. If storingfrom cards, double buffering is used; THIS and NEXT• Moves the disk block address where the data or are each considered to be 80 words long. If .storingprogram was stored into the STORE terminal from paper tape, double buffering is not used; THISmessage.and NEXT are considered to be an extended buffer,large enough to contain the maximum length record• Moves the disk block count of the program or data (108 words).into the STORE terminal message.• Uses the PRINT subroutine in DUPCO to printthe terminal message.Errors Detected• Exits to the REST subroutine in DUPCO to clearthe CATCO switches and restore DCTL if it is not The following DUP errors are detected in STORE:in core storage. D30, D31, D33, D90, and D93.ST700 SubroutineThis subroutine is executed when performing aSTOREMOD operation. It performs the followingfunctions:• Computes the location within the User Area orFixed Area sector at which the old version of theprogram begins.• Moves the new version of the program into thebuffer to replace the old version, one word at atime.When an output sector is completed, it is writtento the User Area or Fixed Area. The next User orFixed Area sector is then read into the buffer toallow the word by word replacement to continue.The entire STOREMOD process is under controlof the disk block count. The number of disk blocksreplaced by the new version is determined by thedisk block count of the old version, as found in LET/FLET. STOREMOD does not alter this count.Buffers Used By STOREThe disk buffer used for moving data or programsbetween Working Storage and the User Area or theFILEQThis phase of DUP is read into core storage by DCTLwhen the Count field (27-30) of the STORECI controlrecord is non-zero. The function of FILEQ is toprocess the records following the STORECI controlrecord and place the processed records into theSCRA for use by the Core Load Builder. Four typesof STORECI control records are processed by thisphase; *LOCAL, *NOCAL, *FILES, and G2250.FILEQ consists of the subroutines LC000, FR000,GR200, and LF200.LC000This subroutine processes *LOCAL and *NOCALcontrol records. A mainline name is not specifiedon these records when they follow the STORE CIcontrol record; an error is indicated if one is specified.Thus, the mainline name is set to blanks. Allsubroutine names specified in *LOCAL or *NOCALcontrol records are converted to name code.LOCAL/NOCAL information for the core loadto be built is stored in the SCRA.The format of LOCAL/NOCAL information in theSCRA is shown on page 22.54