Type ASSEMBLE
Source Lines : 1,067
Fixes Applied : 1
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [R09080DS]

Module

       DMSERR

Function

       HANDLE CALLS PRODUCED BY 'DMSERR' AND 'LINEDIT'
       MACROS.

Attributes

       NUCLEUS RESIDENT, RE-ENTRANT

Operation

       AT ENTRY, THE PLIST IS DECODED AND EXPANDED INSIDE THE WORK
       AREA, SO THAT IT WILL BE POSSIBLE TO EASILY ACCESS ALL ITS
       FIELDS.

       NEXT, THE MESSAGE HEADER IS CONSTRUCTED, IF 'DMSERR' (RATHER
       THAN 'LINEDIT') WAS SPECIFIED.

       THEN, THE MESSAGE TEXT IS SCANNED, BYTE BY BYTE. WHENEVER TWO
       OR MORE CONSECUTIVE DOTS ARE FOUND IN THE MESSAGE TEXT, AN
       ARGUMENT IS TAKEN FROM THE 'SUBS' PARAMETER LIST, THE
       APPROPRIATE CONVERSION IS PERFORMED, AND THE RESULT IS
       SUBSTITUTED FOR THE DOTS INTO THE MESSAGE TEXT.

       NEXT, IF A 'BUFFA' BUFFER ADDRESS WAS SPECIFIED, THEN THE
       RESULTING MESSAGE TEXT IS COPIED INTO THE SPECIFIED BUFFER.

       NEXT, THE 'DISP' FIELD IS EXAMINED, AND APPROPRIATE ACTION
       IS TAKEN.  FOR DISP=TYPE, DMSCWR IS CALLED. FOR 'DISP=PRINT',
       PRINTR IS CALLED.  FOR 'DISP=SIO', THE ROUTINE DOES ITS
       OWN SIO TO THE CONSOLE.  FOR 'DISP=CPCOMM', DMSCPF IS
       CALLED.  FOR 'DISP=NONE', NO ACTION IS PERFORMED.

       FINALLY, THE 'DIE' OPTION IS EXAMINED.  IF 'DIE=YES' WAS
       SPECIFIED, THEN A DISABLED WAIT STATE PSW IS CREATED, CON-
       TAINING THE RETURN ADDRESS TO THE POINT WHERE DMSERR WAS
       CALLED.  ALL REGISTERS ARE RESTORED, AND THE DISABLED WAIT
       STATE PSW IS LOADED.

       IF 'DIE=NO' (THE DEFAULT) WAS SPECIFIED,
       THEN A NORMAL RETURN IS MADE.
                                                               P3071

Calls to Other Routines

       DMSCWR (TYPLIN) -- TO TYPE OUT THE MESSAGE.

       DMSCPF (CPFUNC) -- TO PERFORM PROCESSING ASSOCIATED WITH
             'DISP=CPCOMM' OPTION

       DMSCWT (CONWAIT) -- TO WAIT FOR CONSOLE OUTPUT TO BE
             COMPLETED, IN CASE 'DIE=YES' WAS SPECIFIED.

       PRINTR -- TO PRINT A LINE, IN CASE
             'DISP=PRINT' WAS SPECIFIED.