Type ASSEMBLE
Source Lines : 1,008
Fixes Applied : 0
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [Unmodified]
Module
DMSARN (ASM3705)
Function
ASM3705 COMMAND. TO PROVIDE THE INTERFACE BETWEEN
THE USER AND THE 370X ASSEMBLER.
Attributes
DISK RESIDENT
Operation
ASM3705 FIRST SETS A BIT (COMPSWT,X'80') IN
OSSFLAGS TO INDICATE THE 370X ASSEMBLER IS RUNNING.
ASM3705 NEXT SCANS THE OPTIONS SPECIFIED AND USES
THE INFORMATION THEREBY OBTAINED TO SET UP THE OPTION
LIST FOR THE 370X ASSEMBLER AND THE FILEDEF PLISTS FOR THE
CALLS TO FILEDEF. IF A PARTICULAR OPTION IS NOT
SELECTED, THE CORRESPONDING DEFAULT VALUE APPEARS IN
THE LIST, WHICH IS COMPACTED TO ELIMINATE BLANKS
BEFORE PASSING IT TO THE ASSEMBLER.
IF RUNNING UNDER THE BATCH MONITOR,
ASM3705 TYPES A MESSAGE AT THE TERMINAL GIVING THE
NAME OF THE FILE ABOUT TO BE ASSEMBLED. IT THEN
CALLS STATE TO VERIFY THE EXISTENCE OF THIS FILE. IF
IT DOES NOT EXIST, ASSEMBLE ISSUES AN ERROR MESSAGE
AND RETURNS TO THE CALLER. IF IT DOES EXIST,
ASM3705 CHECKS THE ITEM LENGTH, ISSUES AN ERROR
MESSAGE IF ITEM LENGTH IS INCORRECT AND RETURNS TO
THE CALLER.
IF THE LENGTH IS CORRECT, ASM3705 CALLS ERASE TO
DELETE ANY EXISTING TEXT, LISTING, AND UTILITY FILES
FOR THE CURRENT ASM3705 FILE, AND SETS UP STORAGE BY
CALLS TO STRINIT AND GETMAIN.
IT THEN CALLS ADTLKW TO OBTAIN THE MODE OF THE
READ-WRITE DISK WITH MOST AVAILABLE SPACE AND USES IT
TO SET UP THE FILEDEF PLIST FOR THE SYSUT FILES AND
CHECKS TO SEE IF THE DISK WITH THE MOST SPACE IS THE SOURCE
DISK. IF IT IS DIFFERENT, THE SYSUT FILES ARE ERASED
FROM IT (SYSUT FILES ALREADY ERASED FROM SOURCE). IF
NOT SPECIFIED BY THE USER, THE TEXT AND LISTING FILES
ARE WRITTEN ON THE 1) DISK FROM WHICH THE ASM3705
SOURCE IS READ; 2) ON THE "PARENT" DISK, IF THE
FIRST DISK IS A READ-ONLY EXTENSION; OR 3) THE
PRIMARY A-DISK. IF NONE OF THESE CHOICES IS
AVAILABLE, THE COMMAND WILL BE TERMINATED. CMS
CONTROL BLOCKS (CMSCB'S), WHICH REFLECT THE SELECTED
OPTION, ARE SET UP FOR THE TEXT, LISTING, ASM3705 AND
UTILITY FILES. AFTER EACH SUCCESSFUL RETURN FROM
FILEDEF, ASM3705 SETS A CLEAR SWITCH TO INDICATE
WHICH CMSCB'S ARE TO BE CLEARED AT THE END OF
THE ASSEMBLY. ASM3705 FINALLY BRANCHES TO THE 370X ASSEMBLER.
ON RETURN FROM THE 370X ASSEMBLER, ASM3705 ERASES THE
UTILITY FILES AND CLEARS THE CMSCBS WHICH IT HAD SET UP.
AFTER ANY NECESSARY ERROR MESSAGES, ASM3705 FINALLY
SETS THE RELEASE PAGE BIT, CLEARS THE SSTATEXT
EXTENSION, CLEAR OSSFLAGS, PLACES THE ERROR CODE IN
REGISTER 15 AND RETURNS TO THE USER.
SPECIAL OUTPUT HANDLING ROUTINE: ASMHAND
THE SYSTEM ROUTINE SOEOB INTERFACES WITH ASMHAND
WHENEVER ANY I/O ACTIVITY PERTAINS TO THE
SYSUT2 FILE DURING THE ASSEMBLY.
SYSUT2 - IF THE FILE IS BEING READ IN ASSEMBLER PHASE
1, ASMHAND ACCESSES THE UTILITY CONTROL TABLE TO
ASCERTAIN THE LENGTH AND LOCATION OF THE RECORDS TO
BE MOVED AND MOVES IT TO THE SPECIFIED INPUT BUFFER.
IF THE FILE IS BEING READ, BUT NOT IN PHASE 1, FIXED
LENGTH IS FORCED AND ASMHAND RETURNS TO SOEOB.
IF THE FILE IS BEING WRITTEN IN PHASE 1, THE UTILITY
CONTROL TABLE IS FIRST SET UP BY A CALL TO GETMAIN
AND THEN UPDATED TO REFLECT THE NUMBERS OF RECORDS TO
BE WRITTEN. IF THE FILE IS BEING WRITTEN BUT IS NOT
IN PHASE 1, ASMHAND FORCES A WRITE OF 4000 BYTES AND
RETURNS TO THE CALLER.
Calls to Other Routines
DMSERSA - ERASE OLD FILES
DMSSMNE - INITIALIZE STORAGE POINTERS
DMSSTTA - LOCATE THE FILE
IFKASM - 370X ASSEMBLER ROOT SEGMENT