Google
 
Trailing-Edge - PDP-10 Archives - BB-Y390U-BM - t20sub/cmd.unv
There are 22 other files named cmd.unv in the archive. Click here to see a list.
x
,U@P B@ D@ F@ GL[A  GL[Gn-A  Gn-G6$\HA  G6$\HG6$\YA  G6$\YG6%TA  G6%TG6&= W
CMDBLN==9:<^D80*6>/5+1		;RXOOM FOR SIX LINE xCOMMAND
CMDBUF::BLOCK CMDBLN
CMD8ACS::BLOCK 20		;SXAVED AC'S FROM BExGINNING OF COMMAND LINE
ATMBLN==:8CMDBLN
ATMBUF::BXLOCK ATMBLN		;HOLxDS LAST PARSED FIELD
SBK::	BLOCK 820		;COMND JSYS SXTATE BLOCK
CJFNLxN==:20
CJFNBK::BLOCK CJFNLN		;GTJ8FN BLOCK FOR COMNXD JSYS
REPARA::0x			;REPARSE ADDRE	SS FOR COMND
CMD	8FRM::0			;MARKS B	XOTTOM OF STACK
C	xMDPLN==:200			;AM
OUNT OF STACK WE 
8CAN SAVE
CMDPDL:
X:BLOCK CMDPLN		;R
xOOM TO SAVE PDL
   O SAVE PDL
G>tlV 9
	CALL CFMRTN

	CALL CFG`@ H@ IC{8A  IC{8]>N-A  ]>N-]>N9  Y
	HRROI CyX,[ASCIZ\A\]
	CALL NOIRTN

	C`@ `D@ `H@ `L@ `P@ aJ}\ y	
	HRROI A,[ASCIZ A]
	CALL DPROMPT
	Ce`P eL[A  eL[edI A  edI h y
IFB <B>,<	[ASCIZ /A/],,8.A>
IFNB <B>,<X	[ASCIZ /A/],,B>
IZ /A/],,BS@P >}{woP