.TITLE EMSTDF - EMST$ MACRO DEFINITION .IDENT /010285/ ; ;+ ;***** ; ; EMST$ defines parameter list and local offsets for the ; "EMIT-STATUS" subroutine "$EMST$". ; ;***** ;- .MACRO EMST$ TN,ST .MCALL R50$ .IF NDF $$$GLB .WORD 0 ; FORCE ILLEGAL RSX DIC/DPB CODE .WORD $EMST$ ; ROUTINE TO EXECUTE R50$ TN ; NAME OF TASK TO EMIT STATUS TO .WORD ST ; 16 BIT STATUS .ENDC BASE = 4 ; MARK START OF ARGUMENTS E.MSTN=BASE E.MSST=BASE+4 .ENDM ;EMST$ ;