Google
 
Trailing-Edge - PDP-10 Archives - bb-h137f-bm - new-subsys/cmd.unv
There are 22 other files named cmd.unv in the archive. Click here to see a list.
x
,S@P B@ D@ F@ GL[A  GL[Gn-A  Gn-G6$\HA  G6$\HG6$\YA  G6$\YG6%TA  G6%TG6&= uQOc
CMDBLN==uq:<^D80*6>/5+1		;RvOOM FOR SIX LINE v0COMMAND
CMDBUF::vPBLOCK CMDBLN
CMDvpACS::BLOCK 20		;SwAVED AC'S FROM BEw0GINNING OF COMMANwPD LINE
ATMBLN==:wpCMDBLN
ATMBUF::BxLOCK ATMBLN		;HOLx0DS LAST PARSED FIxPELD
SBK::	BLOCK xp20		;COMND JSYS SyTATE BLOCK
CJFNLy0N==:20
CJFNBK::ByPLOCK CJFNLN		;GTJypFN BLOCK FOR COMNzD JSYS
REPARA::0z0			;REPARSE ADDREzPSS FOR COMND
CMDzpFRM::0			;MARKS B{OTTOM OF STACK
C{0MDPLN==:200			;AM{POUNT OF STACK WE {pCAN SAVE
CMDPDL:|:BLOCK CMDPLN		;R|0OOM TO SAVE PDL
   O SAVE PDL
G>tlV sqO
	CALL CFMRTN

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

	C`@ `D@ `H@ `L@ `P@ aJ}\ r1O
	HRROI ArQ,[ASCIZ A]
	CALL DPROMPT
	Ce`P eYA  eYeL[A  eL[edI A  edI h t1O)
IFB <B>tQ,<	[ASCIZ /A/],,tp.A>
IFNB <B>,<u	[ASCIZ /A/],,B>
IZ /A/],,BS@P >}{woP