.TITLE GCCIDF - GCCI$ MACRO DEFINITION .IDENT /010285/ ;+ ;***** ; ; GCCI$ defines parameter list and local offsets for the ; "GET-COMMAND-LINE-FOR-COMMAND-INTERPRETER" subroutine "$GCCI$ ; As with DEC directives, defining "$$$GLB" suppresses allocation ; of this psuedo-DPB to allow definition of symbolic offsets. ; ;***** ;- ; .MACRO GCCI$ CBUF,CBFL,IBUF,IBFL,ADDR,NCP .IF NDF $$$GLB .WORD 0 ; FORCE ILLEGAL RSX DIC/DPB .WORD $GCCI$ ; ROUTINE TO EXECUTE .WORD CBUF ; COMMAND BUFFER ADDRESS .WORD CBFL ; COMMAND BUFFER LENGTH .WORD IBUF ; INFO BUFFER ADDRESS .WORD IBFL ; INFO BUFFER LENGTH .WORD NCP ; CONTROL FLAGS .WORD ADDR ; SPECIFIC COMMAND'S POOL ADDRESS .ENDC ;$$$GLB BASE=4 ; MARK START OF ARGUMENTS ; *** DEFINE OFFSETS WITHIN "DPB" G.CCBA=BASE G.CCBL=2+BASE ; DEFINE OFFSETS WITHIN THE COMMAND BUFFER G.CCDV=0 ; ASCII device name of issuing terminal G.CCUN=2 ; Octal unit number of issuing terminal G.CCCT=3 ; Number of characters returned in buffer ;