Trailing-Edge
-
PDP-10 Archives
-
BB-4172H-BM
-
new-subsys/phypar.unv
There are 46 other files named phypar.unv in the archive. Click here to see a list.
x
,5@P GP G8hP G8iP G8vP G; P G;TP GyP GZQ }G7PG)7PGX[PGnPGyPuG{YPtG}YPG9P G,zPtvQ @GLtzQ 0GLt\QQ GLuX4Q GLu\XQ GLuyVQ @GLv=Q GO
0P GON8P GO
0P GON8P I6= "0"!
A==<-1"PB<C>+1B<C-D>> "p
IF1,<IFDEF %A#,<PRINTX ?A ALRE#0ADY DEFINED>>
D#PEFINE %A (OP,AC,#pY,MSK)<
$A==<Z$ B>
OP (<AC>,B'Y,MSK)><AC>S7[rP S7[rP S?s &z1w
CHNOFF PHYCHN
CHNOFF S?w &:1{
CHNON PHYCHN
CHNON PSJP SJ;ZP SJK Q 8SJK@P SJ P'SJPP SJI7P SJKUP SJ[rP SJ9P SJ
TP pSJ9P SJ=P SJKQ xSJ VP SJ4,qP SJ4\SP SJ4lqP SJ6(yP SJ6)P SJ6)P SJ6)2P SJ6);P SJ6-7P SJ695P SJ6|ZP SJ6}P SJ6}P SJej`P'SJjhZP SJjxZP SJkZP SJm
2P SJmX<P SJn|RP SLtQ SLt+zQ SLtKwQ SLtMQ SLtMRQ SLt[zQ SLt\YQ SLu6Q SLu9Q SLulZQ SLv-Q SLv:Q @SLvLQ SLvyzQ SLv{Q @SN.,@Q SN4;@Q xSOhwP SOhwP SO& Q W=7P WIP WLxP W7P W=P WYP WLtzQ WLuQ YBEP YBGP [F*P [N^= Q!
A==C p
IF1,<IFDEF %A,<PRINTX ?A ALR0EADY DEFINED>>
PDEFINE %A (OP,ACp,Y,MSK)<
$A==<Z B>
OP (<AC>,B'Y,MSK)><AC]VM|QP a#L:P ak:=P g'Qm:P idtN P idv%sP idv%vP idv+)P
idv,
P idv,
P idv,P idv,P idv,P idv,jP idvDTP idvDVP idvDtP idvDvP idvEkP idvElP k
rHQ k
r$Q k
rU+Q k
rdJQ k
rh@Q @k
r}Q @k
sQ k
t Q k
t9Q k
u Q k
u`QPkPkkpPkk9Pkk:P k:P kIP kLwP kLxP k\QP
P k
RP
k
k9P kX[P kyP k{YP
hP k
iP k
k(zP k)2P k95P k:=P k;P k<P k<RP k=P k=P k=rP kMxP
kYP kj2P kxzP k|ZP kP k;[P k\YP k^P kSP kTP kZP kMP kyP k
XP k:7P k=P k&}I7P kLtzQ kLt(:Q kLt+Q kLt+zQ kLt:Q kLuX4Q @kLuX6Q kLu\XQ kLuyYQ @kLuz9Q kLu{9Q @kLv vQ kLvyQ kLv
XQ kLv
tQ kLv);Q kLvH8Q kLv{Q kN|kQ @kON8P kON8P kO'P qON8P qON8P ') &&R29
$IRBDM=&&r=<Z IRBMOD>
&'A (<B>,IRBMODC,D)B>,IRBMODC,') &'R2A
$IRBDN=&'r=<Z IRBMOD>
&(A (<B>,IRBMODC,D)B>,IRBMODC,'* &#:2
$IRBHD=&#Z=<Z IRBXFL>

 (<B>,IRBXFLC,D)B>,IRBXFLC,', &(R2I
$IRBPAR&(r==<Z IRBMOD>
&)A (<B>,IRBMODC,D)B>,IRBMODC', &)R2Q
$IRBPRI&)r==<Z IRBMOD>
&*A (<B>,IRBMODC,D)B>,IRBMODC'- &$B2(
$IRBTL=&$b=<Z IRBXFL>
&%A (<B>,IRBXFLC,D)B>,IRBXFLC,'KU &":2
$IRLNK=&"Z=<Z IRBLNK>
&"xA (<B>,IRBLNKC,D)B>,IRBLNKC,'\Y &"2_
$ISERR=&+R=<Z IRBSTS>
&+pA (<B>,IRBSTSC,D)B>,IRBSTSC,'hw &%J20
$ISFCN=&%j=<Z IRBSTS>
&&A (<B>,IRBSTSC,D)B>,IRBSTSC,'L &,:2g
$ISTPM=&,Z=<Z IRBSTS>
&,xA (<B>,IRBSTSC,D)B>,IRBSTSC,WyV &Z2
$USOFL=& b=<Z UDBSTS>
&!A (<B>,UDBSTSC,D)B>,UDBSTSC,WN8 &Z2
$USTYP=&z=<Z UDBSTS>
& A (<B>,UDBSTSC,D)B>,UDBSTSC,$9P %9P &YP S@P &*P &* P &* P W$N P W&+)P W&,
P W&,
P W&,P W&,P W&,
P W&,jP W&E
P W&EhP W&EhP W&EiP W&EiP W&EkP W&ElP W&K)P W&K)P W&K+P >}{woP