Google
 
Trailing-Edge - PDP-10 Archives - bb-d868e-bm_tops20_v41_2020_dist_1of2 - new-subsys/cmd.unv
There are 22 other files named cmd.unv in the archive. Click here to see a list.
x
,5@P B@ D@ F@ GL[A  GL[Gn-A  Gn-G6$\HA  G6$\HG6$\YA  G6$\YG6%TA  G6%TG6&= [!
CMDBLN==[A:<^D80*6>/5+1		;R[`OOM FOR SIX LINE \COMMAND
CMDBUF::\ BLOCK CMDBLN
CMD\@ACS::BLOCK 20		;S\`AVED AC'S FROM BE]GINNING OF COMMAN] D LINE
ATMBLN==:]@CMDBLN
ATMBUF::B]`LOCK ATMBLN		;HOL^DS LAST PARSED FI^ ELD
SBK::	BLOCK ^@20		;COMND JSYS S^`TATE BLOCK
CJFNL_N==:20
CJFNBK::B_ LOCK CJFNLN		;GTJ_@FN BLOCK FOR COMN_`D JSYS
REPARA::0`			;REPARSE ADDRE` SS FOR COMND
CMD`@FRM::0			;MARKS B``OTTOM OF STACK
CaMDPLN==:200			;AMa OUNT OF STACK WE a@CAN SAVE
CMDPDL:a`:BLOCK CMDPLN		;RbOOM TO SAVE PDL
   O SAVE PDL
G>tlV YAL
	CALL CFMRTN

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

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