Google
 

Trailing-Edge - PDP-10 Archives - CFS_TSU04_19910205_1of1 - update/ftnosr/forprm.unv
There are 32 other files named forprm.unv in the archive. Click here to see a list.
x
,UM@P C
tP C
u9<P C
um6P C
v*7P C
v*7P C
v:7P C
v:7P C
v;zPCQ !CmP KC;P CZ P DG<,Q JDG<,Q bDM4kP E0um6P E0w)9P E2]`P E2^>@Q   E2u0Q E>69:P EC8P ENO Q SEV4P EV4=Q !EV5k P Eg%`P Eg&
G
P 
yP 
G
}P G
Q G
tI;P G
tkyP G
uLzP G
ukwP G
vLWP G"n:=P @G;D P G;D@P GJ,0P HP HL@Q 8H-iQ HM`Q Hf9Q HmyQ Hu[Q H~	7Q @H~]Q HKvQ Hz Q H[vQ  HHyQ  H>-Q @IP I[TQ |I4.: !)^

  IFG A<$P+^D<B>-^D35>,`<
	$P==-1
	$LOC==$LOC+1
	>
  $ P==$P+^D<B>		;Fi@nd end position i`n word

	DFN (A,$LOC)	;Plain A  is offset
	%A=@=$P	;RH (%NAME) =` rightmost bit

  %%DONE==0
  I FE <B - ^D18>,<	@;Halfword
	IFE <`$P - ^D35>,<	;Right halfword

		 A==A+1B0
		%%D@ONE==1
	>
	IFE `<$P - ^D17>,<	;Left halfword

		 A==A+1B1
		%%D@ONE==1
	>
  >
`  IFE %%DONE,<			;Not a halfword
 
		A==A+1B2
	@	%A==%A+ <<B>_`^D30>	;Byte size in LH
  >
ze I6;W !)j

	DFN	AA,B	;Check for n`ame conflict
				; and define it  the same
	%A==%B


	%A==%I6= 1)
	$LOC==0
	$P==-1
	==0I6y 1)&Q0

IFGE $aP,<
	$P==-1
	$LOC==$LOC+1	;Jump  to next word
	>@

	DFN (A,$LOC)`
	%A==^D35

	$LOC==$LOC+B
-)1B

IpQ !I0P %Ip q)

	IF1,<
	IFDEF A, PRIN0TX ?A ALREADY DEPFINED
	>;END IF1

	A==B

I$tLuP I$u]P I$u}P I$v+9P I$v,sP I$vMP I'h6P -I'Q !I2-`P TI6
,`P SI6|I Q SI8rHP I8r$P I8rU+P I8rdJP I8sP I8tI3P I8v>9P IJ&i@Q #ILtI6P ILt^P ILuJ9P ILukzP ILvP ILvQP ILv
WP ILv8;P ILv=1P IN.NV |q'g
	SETZM	A
	SETZM	1+AIPtLuPPIPtMPQIPuLPIIPu]PIPum6PQIPvPIIPv #IZL9 P IZMpQ #IZUj`Q #IZlIQ #IZmmQ #I['Q #KF:=P K7p ~1(

	ENTRY~Q	E.B
E.B:				;~pDEFINE THE ERROR IF NOT NULL
		"0A"			;ERROR CHARAPCTER
		SIXBIT	/pB/		;ERROR PREFIX
		EXP	C,D		;E0RROR NUMBERS
		PPOINT 7,[ASCIZ \Ep\]	;POINTER TO MESSAGE
		EXP	G		0;ATTRIBUTE G
IRPP F,	<F>			;ARGpUMENTS, IF ANY

NTS, IF ANY
K:[TQ {K:&P K>5`P $KR:=P Kc P =LP L&LQ  L.LQ @L>LQ MP 	M,kyP!M0P MvL\ uQ'5	ENTRY	A.uq
	SIXBIT	/A./
vA.:

IFNB <B>v0,
<	ENTRY	B.
vPB.:
> ;END IFNB B

END IFNB M&eh6P 5M&f
YP M&f<P $M2
|`P M2  }q'o<A>B<POS(B)><A>B<POS(M28 aq&
 %F==%F_-1
 A==%F_1F_M2:u`P M2>nP M3RP M4tkyP M4v[SP M7%`P M<$P M<$:P M<$;P M<$I3P M<$J;P M<$K6P 
M<$\YP M<$hvP M<$l{P M<$xPP M<$xtP M<$yP M<$yQP M<$yZP M<${P M<%
xP M<%P M<%Y6P M<%kyP M<%lsP M<&:P 
M<&:P M<&<ZP 	M<&=SP 
M<&YP 	M?PQ !M?
S D	,_

	PURGECI	ERJMP,ERCAL,GJFXD)3,GJFX18,GJFX19,GCiJFX24,GJFX27
	PUJQRGE	IOX4
	PURGE	JpIPCFX6,IPCFX8
	PKURGE	LNGFX1
	PURK0GE	NPXAMB,NPXNC,NKPPXNOM
	PURGE	OPNKpX2,OPNX9
	PURGE	JS%DEV

URGE	M?i1 b9')

X	INITe1		;FOROTS INITIALePIZATION
X	FORER	ep	;ERROR PROCESSORf
X	OPEN		;DEVICEf0 OPEN
X	CLOSE		;fPDEVICE CLOSE
X	EfpXIT1		;CLOSE ALL gFILES
X	IN		;FORg0MATTED INPUT
X	OgPUT		;FORMATTED OUgpTPUT
X	RTB		;UNFhORMATTED BINARY Ih0NPUT
X	WTB		;UNFhPORMATTED BINARY OhpUTPUT
X	ENC		;ENiCODE
X	DEC		;DECi0ODE
X	NLI		;NAMEiPLIST INPUT
X	NLOip		;NAMELIST OUTPUjT
X	IOLST		;INPUj0T/OUTPUT LIST ITEjPM PROCESSING
X	FjpIN		;INPUT/OUTPUTk LIST TERMINATIONk0
X	MTOP		;DEVICEkP POSITIONING/UTILkpITY FUNCTIONS
X	lFIND		;RANDOM ACCl0ESS RECORD FIND
lPX	EXIT		;PROGRAM lpTERMINATION
X	ALmCOR		;DYNAMIC CORm0E ALLOCATION
X	DmPECOR		;DYNAMIC COmpRE DEALLOCATION
nX	ALCHN		;ALLOCATn0E AN I/O CHANNEL
X	DECHN		;DEALLOnpCATE AN I/O CHANNoEL
X	TRACE		;TRAo0CEBACK OF ROUTINEoP CALLS
X	FUNCT		op;GENERAL OTS INTEpRFACE
X	INQU		;Ip0NQUIRE BY UNIT
XpP	FOROP		;MISCELLAppNEOUS LIBRARY UTIqLITIES
X	IFI		;Iq0NTERNAL FILE INPUqPT
X	IFO		;INTERNqpAL FILE OUTPUT
Xr	MTHER		;MATH LIBr0RARY ERROR
X	ABOrPRT		;ABORT WITH TrpRACE
X	INQF		;INsQUIRE BY FILE
IFs020,<
X	DELTR		;DsPELETE [5000]
X	RspEWRF		;REWRITE (FtORMATTED) [5000]
X	REWRU		;REWRITtPE (UNFORMATTED) [tp5000]
X	UNLOC		;uUNLOCK [5014]
> ;End IF20

> MJ,X1P MKQP MK[P MO$P MQ
PMQQMR=QHMR&:`PMR/P OpP FOP,SP  OP,(9Q Qb` 2!+<

	IFNB 2A<C>,< PRINTX ?HX2`L used with more 3than 2 args - A,3  B >

	%%BTS==3@<B> & 7B2
	%%ID3`X==<<B>_-^D18> &4 77	;Get index fi4 eld if any
	%%LF4@T==<B> & ^O777774`7
	IFE <%%IDX>,<5PRINTX %Index is 5 zero for HXL A,5@B >

  IFE <%%B5`TS & 3B1>,<
	PRI6NTX ?HXL ERROR - 6 B
  >
  IFN <%6@%BTS & 1B0>,<
	H6`RL	A,%%LFT(%%IDX7)
  >
  IFN <%%7 BTS & 1B1>,<
	HL7@L	A,%%LFT(%%IDX)
  >
T(%%IDX)Qbg  8+j

	IFNB 8!<C>,< PRINTX ?HX8@LZ used with more8` than 2 args - A9, B >

	%%BTS=9 =<B> & 7B2
	%%I9@DX==<<B>_-^D18> 9`& 77	;Get index f:ield if any
	%%L: FT==<B> & ^O7777:@77
	IFE <%%IDX>,:`<PRINTX %Index is; zero for HXLZ A; ,B >

  IFE <%;@%BTS & 3B1>,<
	P;`RINTX ?HXLZ ERROR< - B
  >
<IFN<  <%%BTS & 1B0>,<
	HRLZ	A,%%LFT(%<`%IDX)
  >
=IFN= <%%BTS & 1B1>,<
	HLLZ	A,%%LFT(%%IDX)
  >
T(%Qc =a,

	IFNB ><C>,< PRINTX ?HX> R used with more >@than 2 args - A,>` B >

	%%BTS==?<B> & 7B2
	%%ID? X==<<B>_-^D18> &?@ 77	;Get index fi?`eld if any
	%%LF@T==<B> & ^O77777@ 7
	IFE <%%IDX>,<@@PRINTX %Index is @`zero for HXR A,AB >

  IFE <%%BA TS & 3B1>,<
	PRIA@NTX ?HXR ERROR - A`B
  >
  IFN <%B%BTS & 1B0>,<
	HB RR	A,%%LFT(%%IDXB@)
  >
  IFN <%%B`BTS & 1B1>,<
	HLCR	A,%%LFT(%%IDX)
  >
T(%%IDX)QcP ,A+

	IFNB ,a<C>,< PRINTX ?HX-RE used with more-  than 2 args - A-@, B >

	%%BTS=-`=<B> & 7B2
	%%I.DX==<<B>_-^D18> . & 77	;Get index f.@ield if any
	%%L.`FT==<B> & ^O7777/77
	IFE <%%IDX>,/ <PRINTX %Index is/@ zero for HXRE A/`,B >

  IFE <%0%BTS & 3B1>,<
	P0 RINTX ?HXRE ERROR0@ - B
  >
1IFN0` <%%BTS & 1B0>,<
	HRRE	A,%%LFT(%1 %IDX)
  >
1IFN1@ <%%BTS & 1B1>,<
	HLRE	A,%%LFT(%%IDX)
  >
T(%R5]Q RT\YQ RX`Q @RXhQ  R-y@Q SpP S P SF,}P Sv@P S
 IFN FT10S IFN FT20SQ HSN[TQ zSnL}P @S~[TQ {S~y`Q bS*5`P S,t[RP S,t\YP S,tk9P S,tk:P S,u
pP S,u
vP S,uwP S,uyP S,u]P S,uk6P S,v)1P S,v[TP S6<kP S:'Q #S;[ZQ zS>5@P S>^yQ `S?X`P S?X@P SC& P SJY`P SJK@P SJY@P SJmP SJd[@P SKL@P SK@P UL-krQ @UND w'=
  IF2,<Iw1FNDEF E.IJE,<EXTEwPRN E.IJE>>
	ERCAL	E.IJE
 	ERCAWOI7P YH`P YM`P Y%{1P PY%{;P Y
xP Y.h`P (Y.m`P YN(`P (YN-`P YFH`P (YFM`P YMH`P (YMM`P Y-h`P Y-m`P YePQ #Y&mQ @ Y:|H`P Y:|M`P Y>
@ a*&
	IFNB <C>,< PRINTX ?LOAD  used with more t@han 2 args - A, `B >

	%%BTS==<B> & 7B2
	%%IDX ==<<B>_-^D18> & @^O77	;Get index f`ield if any
	%%L FT==<B> & ^O7777  77
	IFE <%%IDX>, @<PRINTX %Index is ` zero for LOAD A!,B >

  IFE %%! BTS,<
	MOVE	A,!@B
  >
 IFN <%%B!`TS & 1B0>,<
	HRR"Z	A,%%LFT(%%IDX)" 
  >
  IFN <%%B"@TS & 1B1>,<
	HLR"`Z	A,%%LFT(%%IDX)#
  >
  IFN <%%B# TS & 1B2>,<
	%%%#@S==<%B>_-^D30	;S#`ize of field
	%%$%P==<%B> & ^O77	$ ;"P"
	LDB	A,[PO$@INT %%%S,%%LFT(%%$`IDX),%%%P]
  >
X),%%%P]
  >
YB%@PRYC}PYC}PYC<H`PYC<M`PYJ,8SP(YNv[	PYPv[VPYR/F91P [F[TP 1[tlP [tqP [tvP [t*7P [tK8P [u3P [&v[TQ |[>$PQ ![?,}P [KRP ]2%SP F]>%h6P $ukzP vP v
TP v=1P N<Q !*5`P ,tqP ,t{P 	,t)QP ,t+P ,t+P 
_,t.:P 
_,t8`P _,tI7P 
_,tI8P _,tI;P _,tIZP _,tJ0P _,tJ9P _,tJ9P _,t\YP _,tj6P _,tkP _,tkyP _,tlVP _,uwP _,uyP _,u9<P _,u>2P _,uJ6P _,u[rP _,u\WP _,uh6P _,uhYP _,uk2P _,ulQP _,u|P _,u|SP _,v2P 
_,v9P 	_,v
WP9,v)1P:,v+`P<,v-P=P ,vi9P ,w
zP _HuP _Hv)6P _Hv98P _Hv[UP _JY`P _JK@P _JY@P _JmP _J<@Q !_Jd[@P _K|`P _KL@P _K@P _LtI6P _Lt^P _Lv8;P _Lv[UP _O$Q "_O'P 
a$:Q a&<Q aQ !a|RP Ga5| Aa$@P a2-`P a>Mm }1'kPOINT WID(B),A,POS(B)(aBv=P aHt]RP aHuyP aJ~@P EaK$J3P c}Q @cv@Q c;}Q eP 	eLP et Q !eP e<Q !e>69:P eK-j:Q }eNO) P ePtI6P ePtj<P ePv8yP ePv93P ePv;P ePv[RP ePv[YP e^^yQ `fDP fHP fLP fPP guQ guj`P gum`P gux P guz`P gu|@P gu|[P gu}`P gv:`P gv=`P gvX P gvZ`P gv\@P gv\[P gv]`P gLNQ !guQ gukrP gukyP gukzP guk|P gvP 	gvP gvP gvP 	gv
RP gv
YP gv
ZP gv
\Pgv=2PBgv=9PPgv=:Pgv=<Pg")QP!gBPtJ9P gPt^P gPui;P gPum6P gPu{P gPv8;P gPv8yP gPv[UP gR-P ?gR@Q "gR<kP gR\I3 |1'cDEFINE A <-B(P)>INE A gR^h9 x'
 .L==0
x1 IRP A,<.L==.L+1xP>		;COUNT ARGS
 xp.N==0

 IRP A,y<
yIFNB <A>,<
   STKDEF (A,\<yP.L-.N-1>)	;DEFINEyp NAMED ARG
  > ;zEND IFNB
  .N==.z0N+1
>P;END IRP

	ADJSP	P,.L		;zpALLOCATE STACK SP{ACE
	DEFINE	UNST{0K <	ADJSP P,-.L >{P	;DEFINE DEALLOCA{pTOR
 PURGE .N
OR
 PURGE .N
gR~)  %!*`
	IFNB <%AC>,<PRINTX ?STORE%` with more than 2& args - A, B >

	%%BTS==<B> &&@ 7B2
	%%IDX==<<&`B>_-^D18> & 77	;G'et index field if'  any
	%%LFT==<B'@> & ^O777777
	IF'`E <%%IDX>,<PRINTX( %Index is zero f( or STORE A,B >

(IFE %%BTS,<
	MOVEM	A,B
  )>
 IFN <%%BTS & ) 1B0>,<
	HRRM	A,)@%%LFT(%%IDX)
  >)`
  IFN <%%BTS & *1B1>,<
	HRLM	A,* %%LFT(%%IDX)
  >*@
  IFN <%%BTS & *`1B2>,<
	%%%S==<%+B>_-^D30	;Size o+ f field
	%%%P==<+@%B> & ^O77	;"P"
	DPB	A,[POINT %,%%S,%%LFT(%%IDX),%%%P]
  >
X),gSP 
gS0P iPQ "i4tYP i4tK8P i4u	P i4uRP i4v:<P i4v>9P i7j6P iSNpQ  jP k
xPPk@QP!k,hzQk!k2-`PPk;-PQPk?`Po& P oC& P oJt;ZP oNO P oR
 P qP 
q4Xb CqO4Xb C	
d, ]y&	;[5011]Ne^w for sixbit stri^8ngs
		TLNE	A,-1^X	;Skip if local a^xddress
		 TXOA	_A,B1WBP6 ;Global _8address, make BP _Xand skip
		HRLI	_xA,(POINT 6,) ;Lo`cal address, make BP
	ess, make	
dHX [Y%k
		TLNE	[yA,-1	;Skip if loc\al address
		 TX\8OA	A,B1WBP7 ;Glo\Xbal address, make\x BP and skip
		H]RLI	A,(POINT 7,)]8 ;Local address, make BP
	ess, 	 
q(a
IFNB <B>,<PRINTX ?DCALL 0CONTINUATION ADDRPESS SPECIFIED - IpGNORED>
	EXTERN	
D.A
	JRST	D.A
A
	JRST	D.A
Q(o
IFNB <B
q>,<PRINTXI?DJCALR
	EXTERN	
	ERJMP	D.A

	ERJMP	D.A	 1({
	EXTERN	QF.A
IFB <B>,<	pPUSHJ	P,F.A >
IFNB <B>,<JRST	[P0USHJ P,F.A
			JRST B] >
			J	.,@ (S

	ENTRY1	F.B
F.B:
		PPUSHJ	P,FORER.##
p		"A"			;ERROR CHARACTER
		SIXBI0T	/B/		;ERROR PRPEFIX
		EXP	C,Dp		;ERROR NUMBERS
		POINT 7,[ASCIZ	0 \E\]	;POINTER T	PO MESSAGE
		EXP		pG		;ATTRIBUTE G

IRP F,	<F>			
0;ARGUMENTS, IF ANY

NTS, IF AN	T86 q)
	EXTERN	F.A
IFB <B>,<	0ERCAL	F.A >
IFNPB <B>,<ERJMP	[PUpSHJ P,F.A
			JRST B] >
			JR	&|\Y q(5

	INTERN	E.B
E.B:

0 IF2,<IFNDEF %IOEPRR,<EXTERN %IOERRp>>
		PUSHJ	P,%IOERR
		"A"			;ER0ROR CHARACTER
		PSIXBIT	/B/		;ERRpOR PREFIX
		EXP	C,D		;ERROR NUM0BERS
		POINT 7,[PASCIZ \E\]	;POINpTER TO MESSAGE
		EXP	G		;ATTRIBU0TE G
IRP F,	<PF>			;ARGUMENTS, IF ANY

NTS, 	Nu 1(
	$ECALL	SNH

	$ECALL	0Q ;ZP 4@P 	iVP 
e;@P 
e<}P 
ej`Q 	
|lrP pP @Q 
,h2P ,hzQ 
NK@P NLP 
:P 
:P Q 
v;P v;	P X`P $(2P -`Q .`P N+PP N<Q d[@P lYP myQ MSQ 4`Q 4wQ 4@Q 4-P 5rP 5`Q 5+UQ 5YQ 5[ZQ 6N8Q |i@P |k@P F@P 
PMKPPMLPMLxPZdyPm~+Q:=P -^P -`P &mP &Tk@P &lyVP &tNQ &|j7P &~)1P &~=1P 'L@P ')3P '+P '-3P ';ZP 'I7P '
6
RP 6|I=Q 7:=P:|KPP >%xQ >Tk@P ?)3P ?+P ?-3P ?;ZP ?x7Q ?I7P ?yP ?
HtQ B
LxQ B Q B=yP B6H1P ClzP C}P F=zP FmQ Fv=zQ J
P=J,=PDJ-h6QJ4PJxQ J|lrPKRP N&0P O&`P R Q Rn	TP S'`Q 
VYQQ 

Vd[@P Vv[ P V~@P W:=P W;ZP W\TP Z.+@P ^
L@P _L@P _@P _$@P b
PEH1PF(1PS@P4LuP4MP5LP5]P 5m6P 6P 6
 P BmK{P Bn)9P B|P B|P B|=P B|=	P B|H:P B|y:P B~
P C4;ZP C5Y6P C5h6P C6>6P I*	P NTIP NTK+P NTK,P NTK0P NTK1P NTK4P O$H:P O%I7P O&