External MAC_INFO : Block[20,Quad]; ! B. INPUT STACK FIELDS (INP) Bind INPBUF = MAC_INFO[ 0, 0,32,1] : Vector, INPUTTYPE = MAC_INFO[ 2, 0, 8,0] : Byte, ATOMISSYM = MAC_INFO[ 2, 8, 8,0] : Byte, STRMEOF = MAC_INFO[ 2,16, 8,0] : Byte, STREAMIN = MAC_INFO[ 2,24, 8,0] : Byte, PEEKBIT = MAC_INFO[ 2,32, 8,0] : Byte, ACTUALEXP = MAC_INFO[ 2,40, 8,0] : Byte, TRACEBIT = MAC_INFO[ 2,48, 8,0] : Byte, STRUEXPAND = MAC_INFO[ 2,56, 8,0] : Byte, FUTWINDOW = MAC_INFO[ 3, 0,64,0] : Integer, TMS = MAC_INFO[ 4, 0,64,0] : Ref Vector, ITMS = MAC_INFO[ 5, 0,64,0] : Ref Vector, MACRITCOUNT = MAC_INFO[ 6, 0,64,0] : Integer, MACRLENGTH = MAC_INFO[ 7, 0,64,0] : Integer, STRMTOP = MAC_INFO[ 8, 0,64,0] : Ref Vector, STRMBEG = MAC_INFO[ 9, 0,64,0] : Ref Vector, STRMPOS = MAC_INFO[10, 0,64,0] : Ref Vector, MACRSUBTYPE = MAC_INFO[11, 0,64,0] : Integer, STRUNAME = MAC_INFO[12, 0,64,0] : Ref ST, MACRNAME = MAC_INFO[13, 0,64,0] : Ref ST, STRUACT = MAC_INFO[14, 0,64,0] : Ref Vector, REMBEG = MAC_INFO[12, 0,64,0] : Ref Vector, REMTOP = MAC_INFO[13, 0,64,0] : Ref Vector, REMLEN = MAC_INFO[14, 0,64,0] : Integer, REMPOS = MAC_INFO[15, 0,64,0] : Integer, MACRNACTS = MAC_INFO[16, 0,64,0] : Integer, MACRACT = MAC_INFO[17,0,64,0] : Ref Vector, MACRSEP = MAC_INFO[18, 0,64,0] : Vector[4,Byte], MACRNF = MAC_INFO[19, 0,64,0] : Integer, MACRNI = MAC_INFO[20, 0,64,0] : Integer, INPMAX = 21; ! C. ACTUAL PARAMETER MECHANISM (APM) External ARG_INFO : Block[70,Quad]; Bind APMBUF = ARG_INFO[ 0, 0,64,0] : Vector, ! D. ACTUAL PARAMETER LIST MECHANISM (APL) APLBUF = ARG_INFO[ 2, 0,64,0] : Vector, APLMAX = 33+1, ! E. STREAM CREATION MECHANISM (WST). WSTBUF = ARG_INFO[36, 0,64,0] : Vector, WSTMAX = 20+1, ! E.1. TRACING STACK (MTBUF): MTBUF = ARG_INFO[58, 0,64,0] : Vector, MTMAX = 10+1;