Google
 

Trailing-Edge - PDP-10 Archives - bb-h137e-bm_tops20_v6_1_instl - new-subsys/cmd.unv
There are 22 other files named cmd.unv in the archive. Click here to see a list.
x
,Q@P B@ D@ F@ GL[A  GL[Gn-A  Gn-G6$\HA  G6$\HG6$\YA  G6$\YG6%TA  G6%TG6&= iJ
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
CJFNL HN==:20
CJFNBK::B hLOCK CJFNLN		;GTJ!FN BLOCK FOR COMN!(D JSYS
REPARA::0!H			;REPARSE ADDRE!hSS FOR COMND
CMD"FRM::0			;MARKS B"(OTTOM OF STACK
C"HMDPLN==:200			;AM"hOUNT OF STACK WE #CAN SAVE
CMDPDL:#(:BLOCK CMDPLN		;R#HOOM TO SAVE PDL
   O SAVE PDL
G>tlV 	IX
	CALL CFMRTN

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

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