Google
 
Trailing-Edge - PDP-10 Archives - bb-kl11m-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&= iQ|
CMDBLN==	:<^D80*6>/5+1		;R(OOM FOR SIX LINE HCOMMAND
CMDBUF::hBLOCK CMDBLN
CMDACS::BLOCK 20		;S(AVED AC'S FROM BEHGINNING OF COMMANhD LINE
ATMBLN==:CMDBLN
ATMBUF::B(LOCK ATMBLN		;HOLHDS LAST PARSED FIhELD
SBK::	BLOCK 20		;COMND JSYS S(TATE BLOCK
CJFNLHN==:20
CJFNBK::BhLOCK CJFNLN		;GTJFN BLOCK FOR COMN(D JSYS
REPARA::0H			;REPARSE ADDREhSS FOR COMND
CMDFRM::0			;MARKS B(OTTOM OF STACK
CHMDPLN==:200			;AMhOUNT OF STACK WE CAN SAVE
CMDPDL:(:BLOCK CMDPLN		;RHOOM TO SAVE PDL
   O SAVE PDL
G>tlV 	Q8
	CALL CFMRTN

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

	C`@ `D@ `H@ `L@ `P@ aJ}\ IQ.
	HRROI Ai,[ASCIZ A]
	CALL DPROMPT
	Ce`P eYA  eYeL[A  eL[edI A  edI h IQB
IFB <B>i,<	[ASCIZ /A/],,.A>
IFNB <B>,<(	[ASCIZ /A/],,B>
IZ /A/],,BS@P >}{woP