Trailing-Edge
-
PDP-10 Archives
-
cuspbinsrc_1of2_bb-x128c-sb
-
10,7/decmai/mx/msunv.unv
There are 35 other files named msunv.unv in the archive. Click here to see a list.
x
,Sz@P C-[Q @CtP Ct;rP CtkP CuI7P CuKUP C,I6Q C,KwQ C. \Q @C.
WQ C.9\Q C$P Cf::P C9P C}P CC2P 'EA: +pg
LDB ,C,[POINT 6,A,5]
,0 MOVEI V,1(A)
I,PMULI V,5
IDIVI ,pC,7
SUBI V,(C)
SUBIV,(C)JH]v
W0.==A
W1.==B ;InitK0ialize break maskKP
W2.==C
W3.==D
==C
W3.==2J060TAL\ 0,0H:pEJZ E(> ..V22==aEH
..V1==a
IFNEhB <B>,<..V22==BF>
REPEAT ..V22-<F(a>+1,<
%%W==.FH.V1/^D32
%%X==Fh..V1-%%W*^D32
GIFE C,BRKC1 \"<%G(%W+"0">
IFN CGH,BRKC2 \"<%%W+"0"Gh>
..V1==..V1+1
>
.V1+1 H(B WA.==WA.!<1B<%%X>>
AEJ\4@ HhH WA.==WAI.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: 7(8
%%FOO==7a
BRK0 (%%FOO,B,0)
(%%FOO,EJn:g Lk
BRINI. AL0,B,C,D
IRPCLP E,< UNBRK. "E"Lp>
IRPC F,< BRMKCH. "F">
EXPM0 W0.,W1.,W2.,W3.
W1.,W2.,W3. EV4[RP jF<]Q @Ge@ ,GeLR +G ;(b
IFIDN ;H<A>,<>,<UERR 10,;h 0>
IFDIF <A><,<>,<UERR 10, [AS<(CIZ /A/]>
IZ /A/]>
G' 3h
UETYPE 410, [ASCIZ \A\]
G#SCIZ\A\]
MOVE-P A,V
ADJBP A,[POINT 7,0]
A,[PG&.N8 4H&
UETYPE 4h1, [ASCIZ \A\]
SCIZ \A\]
G'' 2(
UTYPE 12H, [ASCIZ \A\]
SCIZ \A\]
G*5kP G6 gXU
IFIDgxN <C>,<>,<
IFIhDN <B>,<>,<[ASCIh8Z \A\],,.A>
IhXFDIF <B>,<>,<[AShxCIZ \A\],,B>
i >
IFDIF <i8C>,<>,<
IFIDN iX<B>,<>,<[C
ix ASCIZ \A\],,.Aj>
IFDIF <B>,<>j8,<[C
ASCIZ jX\A\],,B>
>
],,B>
>G6" kY CMD (A,B,<CM%FW!C>) G6&@ lm}x
IFDIF <lPB>,<>,< CMD (A,lp<[D!B]>,<CM%FW!mC>) >
IFIDN <m0B>,<>,< CMD (A,<mP[D!.A]>,<CM%FW!C>) >
<CM%FW!p[0C>) 70[N>,YG6.,@ >(z
IFIDN >H<A>,<>,<UERR 13,>h 0>
IFDIF <A>?,<>,<UERR 13, [AS?(CIZ /A/]>
IZ /A/]>
G>tlV fX9
XLIST
fx MOVEI A,[FLDDB. g(.CMCFM)]
CALL RFIELD
LIST
GCN.: { f
LOC 0
{@ ASCIZ /
COPYRIG{`HT (C) BY DIGITAL| EQUIPMENT CORPOR| ATION, MAYNARD, M|@ASS. 1986
ALL RI|`GHTS RESERVED.
/
RELOCVED.
/GSN 1H
UTYPE 11h0, [ASCIZ \A\]
SCIZ \A\]
G^+@ 7HB
IFIDN 7h<A>,<>,<UERR 0, 80>
IFDIF <A>,8(<>,<UERR 0, [ASCIZ /A/]>
II4\Y 5(4
DEFINE 5HA (Z) <
IFIDN5h <Z>,<>,<UERR B,6 0>
IFDIF <Z>,6(<>,<UERR B, [ASC6HIZ /Z/]>
>
/]>
>
I63 & H
TOPS2&@0<
.PSECT DATAP&`
>
TOPS10'<
IMPUR0
' >
A: IFIDN <B>,<'@>,<BLOCK 1000>
'`IFDIF <B>,<>,<BL(OCK 1000*B>
( TOPS20<
TOPPAG=(@=.
.ENDPS DATAP(`
>
TOPS10)<
PURE
>
PURE
>
KSN 3
UETYPE 3([ASCIZ \A\]
SCIZ \A\]
[rPLL,P L@Q L)3P @L0Q L[sQ LX Q L{QQ LKQ L$XwP L%kVP L.;RQ @L2Q @L2 Q L20Q L4J9P LELP LV>9P$Ld;Q LeywQ LmyP LoQ Lv=6Q L,wP L
XP @L
I1P L6P LYP L6Q L
7Q L8wQ LY\P!L.[`P L4-Q @LE[P LE]P LF
8P"LH-iQ @LH-lxQ LH-l{Q M$ A(
IFIDN AH<A>,<>,<UERR 12,Ah 0>
IFDIF <A>B,<>,<UERR 12, [ASB(CIZ /A/]>
IZ /A/]>
M2$$Q xM2$$'Q ~`xM2$$GQ @xM2$$gQ @xM2$*g Yxu
..XX==<ZFLD(A,CM%FNC)>+Z8B+<Z G>
IFNBZX <D>,<..XX=CM%HPZxP!..XX>
IFNB [<E>,<..XX=CM%DPP[8!..XX>
IFNB <[XF>,<..XX=CM%BRK![x..XX>
..XX
\IFNB <C>,<C>
\8 IFB <C>,<0>
\X IFNB <D>,<POIN\xT 7,[ASCIZ D]>]
IFB <D>,<IF]8NB <EF>,<0>>
]X IFB <E>,<IFNB ]x<F>,<0>>
IFN^B <E>,<POINT 7,[^8ASCIZ \E\]>
^XIFNB <F>,<F>
<F>,<F>
M2$*h _
..XX==<_8FLD(A,CM%FNC)>+_XB+<Z G>
IFNB_x <D>,<..XX=CM%HP`P!..XX>
IFNB `8<E>,<..XX=CM%DPP`X!..XX>
IFNB <`xF>,<..XX=CM%BRK!a..XX>
..XX
a8IFNB <C>,<C>
aX IFB <C>,<0>
ax IFNB <D>,<D>
IFB <D>,<IFNb8B <EF>,<0>>
bX IFB <E>,<IFNB <bxF>,<0>>
IFNBc <E>,<POINT 7,[Ac8SCIZ \E\]>
IcXFNB <F>,<F>
<F>,<F>
M2$HG UxK
XLIST
V ..XX==<FLD(A,CMV8%FNC)>+B+<Z F>
IFNB <D>,<..XXVx==CM%HPP!..XX>
WIFNB <E>,<..XX==W8CM%DPP!..XX>
WX ..XX
IFNB <CWx>,<C>
IFB <C>X,<0>
IFNB <D>,X8<POINT 7,[ASCIZ \XXD\]>
IFB <D>,Xx<IFNB <E>,<0>>
Y IFNB <E>,<POINTY8 7,[ASCIZ \E\]>
LIST
M2$H]>Mp
XLIST
NP ..XX==<FLD(A,CMN0%FNC)>+B+<Z F>
IFNB <D>,<..XXNp==CM%HPP!..XX>
OIFNB <E>,<..XX==O0CM%DPP!..XX>
OP ..XX
IFNB <COp>,<C>
IFB <C>P,<0>
IFNB <D>,P0<D>
IFB <D>,<PPIFNB <E>,<0>>
PpIFNB <E>,<POINT Q7,[ASCIZ \E\]>
LIST
]>
O2|,Y
QEXT <DFSQNW,DFSQTH>
QEXT <FNDHDR,FN`DSB1,FNDTO0,FNDTO1>
TOPS20< QEXT <GETTYM> >
QEXT@ <GETUNM>
QEXTN` <KBFTOR>
QEXT <MOVMID,MOVOPT,MO VSB2,MOVTO,MOVCC>@
QEXT <MOVSUB>
QEXT <NXTNEW,NX TSEQ>
QEXT <PRS MS0,PRSMSG,PRTSEQ @,PRTSQS>
QEXTN `<R,RSKP>
QEXT <!RDTEXT,RELSEQ>
! QEXT <SPCCHK>
TO!@PS20< QEXT <SETTY!`M> >
QEXT <STQD"L2,STRBUF>
QEXT" <TRANSH>
QEXT <YESNO>
QEXT O2|,` @d
TOPS1`0< QEXT <APPBLK> >
QEXT <CLZTXT, CNCLHD>
;**;[307@4][3075] Add EMXG`JB in global list MDR 14-AUG-86
T OPS20< QEXT <EDFO@RK,EDTGJB,EMXGJB,`EV,EXECFK> >
QEXT <RESMSQ,SAVMSQ ,MSGQLN>
QEXT <@FILCOL>
QEXT <H`DRPAG,HSTHLP>
QEXT <KWDTBL>
QE XT <LASTM,LCNT,LH@OSTN,LINEW>
QEX`T <LSTCHR,LSTMSG>
QEXT <MSGIDX,M SGJFN,MSGSEQ,MYDI@R,MYDIRS>
QEXT `<MYHDEC,MYHNAM>
QEXT <NXTMSG,OBP TR,OHSN,OHSPTR,OU@TIFN>
QEXT <REP`LIN>
TOPS20< QEXT <SAVMOD> >
TOP S10< QEXT <SAVPSZ@> >
QEXT <SVMIF`N>
QEXT <TAKPTR,TCPAG,TOPTRS,TRA ILR>
TOPS10< QEX@T <TTYUDX> >
QE`XT <TXTCNT,TXTFPG,TXTMS2,TXTPTR,TX TTOT>
QEXT <UPD@PTR,UPDX>
QEXT <VERSN.>
QEXT ORl+ .
IF2 <IF.0NDEF GTMIND, <EXT.PERNAL GTMIND>>
.pPUSH P,F ;SAVE F/LAGS
JSP F,GTMI/0ND ;CALL ROUTINE/P
A,,B
POP P/p,F ;RESTORE FLAGS
RESTORE FLAQ-|P$Q. P"Q.
YP @Q.,2P!Q.N8P QtH:P QtkP QuI7P Qv:=P QO&:2P S7\H "`
TOPS2#0<
.ENDPS
.PS# ECT .LOW.
>;E#@nd TOPS20
TOP#`S10<
IFGE .-400$000,<RELOC>
>;End TOPS10
>U.,@ <hn
IFIDN =<A>,<>,<UERR 14,=( 0>
IFDIF <A>=H,<>,<UERR 14, [AS=hCIZ /A/]>
IZ /A/]>
UH6 Bh
IFIDN C<A>,<>,<UERR 16,C( 0>
IFDIF <A>CH,<>,<UERR 16, [ASChCIZ /A/]>
IZ /A/]>
UJ.I9 ?h
IFIDN @<A>,<>,<UERR 17,@( 0>
IFDIF <A>@H,<>,<UERR 17, [AS@hCIZ /A/]>
IZ /A/]>
U^+@ :V
IFIDN :(<A>,<>,<UERR 7, :H0>
IFDIF <A>,:h<>,<UERR 7, [ASCIZ /A/]>
IZMP Z$[P ZP Z;ZP ZY7P Z$[8Q Z4Q @[FL\P
[L-pP [N<p [N<p [N<+rp [N<+wp [N<-p [N<8`p [N<8wp [N<H:p [N<lVp [N<lWp [N= p [N=p
[N=Z2p [N=Z7p [N=m6p
[N>)3p [N>)Wp
[N>,Wp [N>,Yp
[N>;Rp [N>;Wp [N>=1p [N>=7p [N>K`p [N>Kup [N>Kwp [NMj: }
TOP}@S10<
IFNDEF .GT}`LPN,<.GTLPN==-10>~ ; Original logge~ d-in PPN
TWOSEG~@
RELOC 400000
~` >;End TOPS10
TOPS20<
.P SECT .HIGH.
BY@2PAG==5000 ; [J`CR]Bytes to a page
WD2PAG==1000
CTCCHN==0 ; ^@C ON CHAN 0
TMRC`HN==5 ; TIMER ON CHAN 5
>
TOPS10<
BY@2PAG==1200 ; By`tes to a "page" (TOPS10 disk block )
WD2PAG==200 @; Words to a "pag`e" (TOPS10 disk block)
NQBFSZ==20 0 ; Words in di@sk buffer
>;E`nd TOPS10
WRDPAG==1000 ; [JCR ]Words to a page
BY2WRD==5 ; [J`CR]Bytes to a word
TAKPTN==3*20 ; Length of ta@ke IFN stack (FOB` size, addr, IFN)
; AC's
O =0 ; CAUTION -@- Clobbered by al`l GLXLIB stuff!!
A=1 ; Temp an d JSYS
B=2 ; @Ditto
C=3 ; D`itto
D=4 ; Ditto
E=5 ; Tem p & local to rout@ine
T=6 ; Dit`to
U=7 ; Ditt o
V=10 ; Ditt o - frequently is @ a character poin `ter
W=11 ; Di
tto
L=12 ; By
te pointer to lis
@t of message numb
`ers
M=13 ; Current message if any (message numb@er)
MX=M ; M,` when pointing to
current msg bloc
k
F=14 ; Flag
@s
X=15 ; Ofte
`nrhorizontal curs
CX=1 ; Used by ma
P=17
IFNF>,<PRINTX ?WARNING -- GLXLIB A C conventions hav@e changed - TF>
`IFN <A-S1>,<PRINTX ?WARNING -- GLX LIB AC convention@s have changed - `S1>
IFN <B-S2>,<PRINTX ?WARNING - - GLXLIB AC conve@ntions have changed - S2>
ang[bm}@ n{
XLIST
n0 IRP C,<
GTnPMBL (M,A)
GTMBnpL (X,B)
MOVE oA,MSGC(A)
MOVo0EM A,MSGC(B)
>
LIST
B)
[c<}P\:5Iyp\:d[@P\:t2pe\:t^p \;p \;X6p \;p \;Rp \;.J6p ]n
XLIST
e8 MOVEI A,[FLDDB. eX(.CMNOI,,<POINT 7ex,[ASCIZ /A/]>)]
CALL RFIELD
LIST
RFIELD
L]B%@P ]FL@P r]P,SP ]P,XP ]P,HwP ]P,KwP ]P-=vP @]P-HvP ]P-k(P ]P-nP ]P.>7P ]R[ZP ]R3P ]Reh6P ]S6P ]SH1P aD;rP'~aJt;rP'}aJ}\ d%
XLIST
d8 HRROI A,[ASCIZ dXA]
CALL DPROMPT
LIST
PROMaWP $@.
TOPS2$`0<
.ENDPS
.PS%ECT .HIGH.
>;% End TOPS20
TO%@PS10<
IFL .-400%`000,<RELOC>
>;End TOPS10
>cF@
IF2<
IRP A,<
IFDEF @A,<INTERNAL A>
IFNDEF A,<EXTERNAL A>
>
>
L A>
>
>FK@ @
IF2<
`IRP A,<
IFNDEF A,<EXTERNAL A>
>
>
L A>e\| q
SKIPN Rq0EDLVL
JRST .+qP4
MOVEM F,SAVF
JSP F,RESMSQ
MOVE F,SAVF
e ,~e&:x )pOJRST RSKPQJRST RSKPe^TkWQ @g5\| op
SKIPN RpEDLVL
JRST .+p04
MOVEM F,SAVF
JSP F,SAVMSQ
MOVE F,SAVF
guI7P
gD;rP'~g'& gSP gg;rP'it(5P it;ZP itkyP ivNP ic&:=P xigP 0h
UTYPE [1ASCIZ \A\]
SCIZ \A\]
kuI7P kv
P kv=P k k' `k:*g DH&
%%FOO==Dha
BRK0 (%%FOO,B,1)
(%%FOO,kSN @n@pQ xnDpQ ~`xnHpQ @xnLpQ @xo` 8hL
IFIDN 9<A>,<>,<UERR 3, 9(0>
IFDIF <A>,9H<>,<UERR 3, [ASCIZ /A/]>
I}mP S@P .=P }i P f<P "&,}p 6~) P B]p B^(zp B^98p B^=p B^N8p B~=P J,:p J,;p J,;7p J,;Vp J,=p J,=p N-iP NV=P O$RP O$2P O$uP O$vP >}{woP