Google
 
Trailing-Edge - PDP-10 Archives - BB-J710A-BM - tools/nrt20/cmd.unv
There are 22 other files named cmd.unv in the archive. Click here to see a list.
x
,$@P B@ D@ F@ GL[A  GL[Gn-A  Gn-G6$\HA  G6$\HG6$\YA  G6$\YG6%TA  G6%TG6&= %Yc
CMDBLN==%y:<^D80*6>/5+1		;R&OOM FOR SIX LINE &8COMMAND
CMDBUF::&XBLOCK CMDBLN
CMD&xACS::BLOCK 20		;S'AVED AC'S FROM BE'8GINNING OF COMMAN'XD LINE
ATMBLN==:'xCMDBLN
ATMBUF::B(LOCK ATMBLN		;HOL(8DS LAST PARSED FI(XELD
SBK::	BLOCK (x20		;COMND JSYS S)TATE BLOCK
CJFNL)8N==:20
CJFNBK::B)XLOCK CJFNLN		;GTJ)xFN BLOCK FOR COMN*D JSYS
REPARA::0*8			;REPARSE ADDRE*XSS FOR COMND
CMD*xFRM::0			;MARKS B+OTTOM OF STACK
C+8MDPLN==:200			;AM+XOUNT OF STACK WE +xCAN SAVE
CMDPDL:,:BLOCK CMDPLN		;R,8OOM TO SAVE PDL
   O SAVE PDL
G>tlV #y
	CALL CFMRTN

	CALL CFG`@ H@ IC{8A  IC{8]>N-A  ]>N-]>N9  #
	HRROI C#9X,[ASCIZ\A\]
	CALL NOIRTN

	C`@ `D@ `H@ `L@ `P@ aJ}\ "9
	HRROI A"Y,[ASCIZ A]
	CALL DPROMPT
	Ce`P eL[A  eL[edI A  edI h $9)
IFB <B>$Y,<	[ASCIZ /A/],,$x.A>
IFNB <B>,<%	[ASCIZ /A/],,B>
IZ /A/],,BS@P >}{woP