; MESSG.SUB - COMMAND FILE TO CATALOG MESSG SUBROUTINE.
.SETF TSTP
.OPEN MESSG.MAC
.ENABLE DATA ! ADD SOURCE FOR SUBROUTINE AFTER THIS CARD
        .TITLE  MESSG
; @SD@ MESSG
;
; SUBPRGM ID:  MESSG
; PROGRAMMER:  TSGT MARVIN L FREIMUND / ADC
; CREATED ON:  24 JUL 79 FOR PROJECT 050540
;
; DESCRIPTION: MESSG IS A MACRO-11 LANGUAGE SUBROUTINE USED ON THE
;   PDP-11 TO WRITE SHORT MESSAGES ON THE TERMINAL.  IT USES THE
;   RSX $ERRLG MODULE.
;
; CALL FORMAT: CALL MESSG(TEXT)
;   WHERE   TEXT IS A LITERAL STRING OR THE NAME OF AN ARRAY WHICH
;           ENDS IN NULL(S).
;
; INPUT/OUTPUT: ERRLUN (TASK BUILDER ASSIGNED) IS USED TO PRINT THE
;   MESSAGE ON THE TERMINAL.
;
; @ED@
;
MESSG:: CLR     -(SP)
        MOV     2(R5),-(SP)
        MOV     SP,R0
        CLR     R1
        JSR     PC,$ERRLG
        CMP     (SP)+,(SP)+
        RTS     PC
        .END
.DISABLE DATA
.CLOSE
MAC MESSG,ADSMESSG.DMP/-SP=MESSG
PIP MESSG.MAC;*/DE
.ASK ANSA DID IT ASSEMBLE OK
.IFF ANSA .GOTO 500
.ASK TSTP DO YOU HAVE A TEST PROGRAM
.IFF TSTP .GOTO 500
.OPEN TSTMESSG.FTN
.ENABLE DATA  ! ADD TEST PROGRAM SOURCE AFTER THIS CARD
.DISABLE DATA
.CLOSE
F4P TSTMESSG,TSTMESSG/-SP=TSTMESSG
PIP ADSMESSG.DMP=TSTMESSG.LST/AP
PIP TSTMESSG.FTN;*/DE,TSTMESSG.LST;*
.ASK ANST DO YOU WANT TO TASK BUILD
.IFF ANST .GOTO 500
.OPEN TSTMESSG.CMD
.ENABLE DATA
TSTMESSG,TSTMESSG/-SP=TSTMESSG,MESSG
/
LIBR=F4PRES:RO
//
.DISABLE DATA
.CLOSE
TKB @TSTMESSG
PIP ADSMESSG.DMP=TSTMESSG.MAP/AP,TSTMESSG.CMD/AP
PIP TSTMESSG.CMD;*/DE,TSTMESSG.MAP;*
.SETS USER <UIC>
.SETS COMA USER[3:3]
.IF COMA NE "," .GOTO 500
.ASK ANSC DO YOU WANT THIS INSERTED IN SYSLIB.OLB
.IFF ANSC .GOTO 500
.ASK ANSL DO YOU WANT A LISTING OF NEW SYSLIB.OLB
.IFNINS LBR INS $LBR
.IFF ANSL LBR [1,1]SYSLIB/RP=MESSG
.IFT ANSL LBR [1,1]SYSLIB/RP,ADSSYSLIB.DMP/SP/FU=MESSG
.IFINS LBR REM LBR
PIP MESSG.OBJ;*/DE
.500: PIP ADSMESSG.DMP/SP
.IFT TSTP PIP TSTMESSG.OBJ;*/DE
; MESSG.SUB - FINISHED.