Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50362/io.unv
Click 43,50362/io.unv to
see without markup as text/plain
There are no other files named io.unv in the archive.
x @ P C5 b Sp%!
FW$$ ADVTIS,ADV,A,B,C, D C2exb p!o MM$$ $ALLC CB&} 0" MR$$ A,AP DWT,APDW0 CB-i p!O MM$$ APEND E$: EP$- MM$$ BATCH E=B TP%] ;
IFE FTpT$DBG,<SALL>
IFEU FT$ALC,<
$$ALLU0C==$CRGET##
$$DUPALC==$CRREL##> ;SUpTATIC CORE ALLOCAVTION
IFN FT$DBG,V0<EXTERN $DEBUG> VP;LOAD PATCH AREA
IFE FT$DBG,<EXTEWRN $UNDBG> ;LOAD W0NON-DEBUG CODE
WPPORTAL .+2 ;XCT WpONLY ENTRY
PORTXAL .+2 ;XCT ONLYX0 CCL ENTRY
TDZAXP T1,T1 ;FLAG NORXpMAL ENTRY
IFNB <YA>,<
MOVEI T1,Y0(SIXBIT \A\) ;>
IFB <A>,<
HLRYpZ T1,.SGNAM ;>
IZFE FT$CCL,<
JSPZ0 T0,$BEGIN## ;iniZPtialise code>
IFZpN FT$CCL,<
JSP [T0,$BEGCC## ;init[0ialise code + CCL[P stuff>;FT$CCL
$ $BEG::
$OG;5m"G"ukb zP'W
LDB A,zp[POINTR ($FDCHN(D ),FC$CHN)] &N8G.-{ 4p#' MM$$ CKEOL qR$; !=qS.[bG2YB Bp$ MM$$ CLBUF G2eB B0$ MM$$ CLLIN G2~9" P!#
IFNB <Ap>,<
MOVEI T1,<A>
MM$$ CLOS0>
IFB <A>,<
MM$ $ CLOSE> G3i p!w MR$$A,CL RFD,CLRF0 G6$i p G:u}b IP$M MM$$ CNNOW G;$M HP$E MM$$ CNTDT G;4M JP$U MM$$ CNVDT G;5 " J$Q MM$$ CNVIU $ G;5m" I$I MM$$ CNVNU G;6Z" H$A MM$$ CNVUI H @ I
ND MX${PA,B
ND AD$A, C
ND PD$A,DK
$kQ | K
%RQ @ K
&N8Q x K
&]7Q M $ K;$\B R P! KJ=Q KJ$\BQ ~KJ&I"Q ~KJ-yBQ KJM\Q }KJthbQ |KKH"Q }KKi p KK9Q |KK-jbQ {L @ M$ R0%
FW$$ FATRPAL,FTL,A,B,C, D M
$:P pM
$<qQ M
$[ZQ M
%M5Q M
%|Q @ M
&HtQ M.8b *I
; DEF0INE A LENGTH SYMBPOL FOR THIS FDB, pWHICH MAY BE LONGER
; THEN $LNFD0B, AND REMEMBER WPHERE THE START ISp ($$$LEN AND
; $$$LOC)
IFL <<0F>-$LNFDB>,<$$$LPEN==$LNFDB> ;DEFIpNE A LENGTH SYMBOL
IFGE <<F>-$LN0FDB>,<$$$LEN==<FP>> ;
$$$LOC==. p ;REMEMBER WHERE WE ARE
; MAK0E ZEROED WORDS FRPOM THE START DOWNp TO $FDSTS
REPEAT $FDSTS,<
EX0P 0 ;ZEROS TILLP STATUS WORD
>
p
; SET THE FILE IO MODE TO .IOAS0C OR THE GIVEN MOPDE
IFNB <E>,<pEXP <E>> ;SET MODE
IFB <E>,<E0XP .IOASC> ;DEFAPULT
SIXBIT `A`p ;DEVICE
; CLEAR DOWN TO D I0N PATH SPEC BLOCKP
REPEAT <$FDPPpP-$FDBHD>,<
EXP 0 ;BUFFER HEAD0ERS AND MODE
>
P
; IF NO PATH GpIVEN, MAKE ZEROED PATH BLOCK
;I0F PATH SUPPLIED, PSET THIS PATH INTpO THE PATH BLOCK
IFB <D>,< ;Z0ERO PATH SPEC
PREPEAT <FT$SFD>,<p
EXP 0
>;REPEAT
>;IFB
I0FNB <D>,< ;CRPEATE PATH SPEC
p$$$N==0 ;D PARTS SEEN SO FAR
0 IRP <D>,<
P IFE <$$$N>,<$$$PpPN==D,,0> ;PRJ
IFE <$$$N-1> 0,<$$$PPN==$$$PPN+ PD ;PRG
EXP $$$ pPPN ;SET D
>;IFE
IFG 0<$$$N-1>,< ;THE PREFORE AN SFD
p IFG <$$$N-FT$ SFD>,<PRINTX TOO 0MANY SFDS IN FDES PC$ CALL
p STOPI>
SIXBI T @D@ ;SET SFD 0
>;IFG
P$$$N==$$$N+1
> p;IRP
IFLE <$$$ N-FT$SFD>,<
0REPEAT <FT$SFD+1- P$$$N>,<
EXP 0 p ;FILL IN PATH BL!OCK
>;REPEAT!0
>;IFLE
>;IFN!PB
EXP 0 ;END !pPATH SPEC
; C"LEAR DOWN TO RIB "0BLOCK
REPEAT <"P$FDCNT-$FDOBH>,<
EXP 0
>
; #.RBCNT - COUNT #0OF WORDS REMAININ#PG IN FDB
; .RBP#pPN - POINT TO P$ATH SPEC.
; .RB$0NAM - GIVEN FIL$PENAME
; .RBEXT $p - GIVEN EXTENSI%ON
; .RBPRV-.RB%0VER - EMPTY
%P EXP $$$LEN-$FDCN%pT-1 ;RIB WORD CO&UNT
EXP $$$LOC+&0$FDPTH ;ADDRESS &POF PATH SPEC
<S&pIXBIT `B`> ;NAM'E
<SIXBIT `C`>'0&<-1,,0> ;EXTENSI'PON
REPEAT <$$$LE'pN-$FDPRV>,<
EXP( 0 ;ZERO REST O(0F FDB
>
; CL(PEAN UP TEMPORARY (pVARIABLES
PUR)GE $$$LEN,$$$N,$$ $PPN,$$$LOC
KM&N" p! MM$$ FDTTY M%m6Q @ M&{Q M4$Q M4$I7P M4$I\Q M4$J9Q M4%iQ @ M4%kvQ M4%m6Q M4&9P M4&
Q M4&
WP M4&=Q M4&LVQ ` MJ B 0!+ MM$$ FRCHN MP",sP MP$Q MP$8vP MP$HSP MP&9RP M\ @ K%
IFB <CK0D>,<
PUSHJ P,$KPBIO##>
IFNB <CKpD>,<
IFB <C>,<
EXTERN $BD
L0PUSHJ P,$BD>
ILPFNB <C>,<
IFB <LpDFE>,<
PUSHJM P,[MOVEI T1,[ASCM0IZ \C\]
PJMPRST $A##]>
IFNBMp <DFE>,<
IFNBN <E>,<
FW$$S==N0EC$IND+[<SIXBIT `NPE`>+[ASCIZ `C`]Np]>
IFB <E>,<
OFW$$S==[ASCIZ `CO0`]>
IFNB <F>,<
FW$$S==FW$$S+ECOp$UUO>
IFNB <D>,P<
FW$$S==FW$$S+P0<<$ECTD>B17>>
PPPUSHJ P,[MOVE T1,Pp[FW$$S]
IFNB <FQ>,<
MOVE T3Q0,[SIXBIT `F`]> ;QP[137]
JRST Qp$A##]
PURGE FW $$S>
>> ND @ NH @ NL @ NP @ NT @ NX @ N\ @ O&= y MM$$ GETST Q' Yb op'#
IF1,<
pIFDEF SEG$1,<
p0IFE SEG$1,<
IpPFE FT$DBG,<XLIST>pp
LIT
RELOqC
IFE FT$DBG,q0<LIST>>>
IFNDEFqP SEG$1,<
TWOSEqpG
RELOC 400000r>
SEG$1==-1>
Ir0F2,<
IFDEF SEG$rP2,<
IFE SEG$2,rp<
IFE FT$DBG,s<XLIST>
LIT
s0 RELOC
IFE sPFT$DBG,<LIST>>>
sp IFNDEF SEG$2,<
t TWOSEG
RELOCt0 400000>
SEG$2= =-1> !EqR MBR @ S;]
P e MM$$ INPUT >}{woP S; Jb xP'I
GLOB <$xpSTACK,$LNSTK,$PTSyTK>
MOVE P,$PTS TK%h6` %hUU [B yP'Q
.JBREN=yp=124
MOVEI A,zB
HRRM A,.JBRE N&
.JBVER=c=137
LOC .JBVERc0
BYTE (3)$VCOD(cP9)$VMAJ(6)$VMIN(1cp8)$VEDT
RELOC
YV^\ ![$:WNy
P(m
A$L==0
p
A$T:
IRP (B) ,<EXP SIXBIT `B` 0
A$L== PA$L+1
pTMP$$==0
IRPC (B),<IFID
0N <B><*>,<TMP$$=
P=1>
p STOPI>
<AB==IFELTMP$
>
PURGE TMP$$ X @ Y4A Y4J" : Y? Yb tp'A
IF1,<
uIFDEF SEG$1,<
u0IFN SEG$1,<
IuPFE FT$DBG,<XLIST>up
LIT
RELOvC
SEG$1==0
v0 IFE FT$DBG,<LISvPT>>>>
IF2,<
IFvpDEF SEG$2,<
IFwN SEG$2,<
IFEw0 FT$DBG,<XLIST>
wP LIT
RELOC
SEG$2==0
xIFE FT$DBG,<LIST> >>>;Z` $I;Y? i 0!{ MM$$ LOSFD YV^\ ! MM$$ LUKUP [\i )P,
; DEF)pINE SYMBOL, $$$LE*N, FOR LENGTH OF *0THIS FDB, WHICH M*PAY BE
; LONGER *pTHAN $LNFDB
IF+L <<F>-$LNFDB>,<+0$$$LEN==$LNFDB> ;+PLENGTH OF FDB
IF+pGE <<F>-$LNFDB>,,<$$$LEN==<F>> ;
; CREATE INST,PRUCTION TO MOVE $,pCLRFD ARGUMENT IN-TO AC(T1)
; THE-0 ARG IS [LENGTH,-P,ADDRESS] WITH AD-pDRESS ZERO FOR A .NEW
; FDB TO BE.0 ALLOCATED
IFN.PB <G>,<
MOVE T.p1,[$$$LEN,,<G>] /;ARGUMENTS FOR $C/0LRFD
>
IFB <G>/P,<
MOVSI T1,$$$/pLEN ;FIND SPACE
>
; S/R CALL00 TO CREATE (OR CL0PEAR) FDB. ERRORS0p ARE FATAL
CL1RFD$ T1 ;
F10ATAL$ ;
MOVE 1PD,T1 ;SETUP D
1p
; IF THE FILE 2IO MODE IS GIVEN,20 SET IT INTO $FDM2POD
IFNB <E>,<2p
MOVX T1,<E> 3;SET MODE
MOVEM30 T1,$FDSTS(D) ;
>
; IF THE D3pEVICE SPEC. IS GI4VEN, SET IT INTO 40$FDDEV
IFNB <4PA>,<
MOVX T1,<S4pIXBIT `A`> ;SET 5DEVICE NAME
MOV50EM T1,$FDDEV(D) 5P;
>
; IF THE5p PATH SPEC IS GIV6EN, SET IT WORD B60Y WORD INTO THE
6P; PATH SPEC. BLO6pCK
$$$N==0 7 ;IRP COUNT
IFNB70 <D>,<
IRP D7P,<
IFE <$$$N7p>,<$$$PPN==D,,0>8 ;PRJ
IFE <80$$$N-1>,<$$$PPN==8P$$$PPN+D ;PRG
8pMOVE T1,[$$$PPN] 9;SET D
MOVEM T901,$FDPPP(D) ;IN 9PPATH SPEC.
>9p;IFE
IFG <$$:$N-1>,<
IF:0G <$$$N-FT$SFD>,<:PPRINTX TOO MANY S:pFDS IN MAKFD$ CAL;L
STOPI>
M;0OVX T1,<SIXBIT `;PD`> ;
MOVEM T1,;p$FDPTH+1+$$$N(D) <;
>;IFG
<0 $$$N==$$$N+1 <P;INCREMENT IRP CO<pUNT
>;IRP
>;I=FNB
; INSERT =0FILE NAME INTO FD=PB IF GIVEN
IFN=pB <B>,<
MOVX T>1,<SIXBIT `B`> ;>0
MOVEM T1,$FDNA>PM(D) ;
>
; >pINSERT FILE EXTEN?SION INTO FDB IF ?0GIVEN
IFNB <C?P>,<
MOVX T1,<SI?pXBIT `C`> ;
HL@LZM T1,$FDEXT(D) @0 ;
>
; CLEAN@P UP TEMPORARY VAR@pIABLES
PURGE A$$$LEN,$$$N,$$$PP N
[$: DP$% MM$$ MATCH [.YB P! MM$$ MKBUF [4 @ ~p
IF2,<IFNpDEF $A,<EXTERN $A>>
PUSHJ P,$ A O%|P [>v- Ap$ MM$$ MONRT [H @ P
IFB <A>p,<
MM$$ B>
IFNB <A>,<
IFN <0<A>-T1>,<
MOVEP T1,<A>>
MM$$ C> R -sP [N<i p [P @ !0"
PUSHJ P ,$MTA## [RJb " MT$$OBLK[R9B " MT$$SBSF[R<B E " MT$$ BSR[R$Xb "! MT$$ DEC[R-yB " MT$$ EOF[R-} " MT$$ EOT[RMi "# MT$$ IND[S]b " MT$$ REW[S 9B " MT$$ SKF[S <B " MT$$ SKR[S-k " MT$$ UNL[S< "
IFNB <pA>,<
MOVX T1,< A>>
MM$$ B ] J@
T
IFNDEF A,<A==B>
B-a $ ! MM$$ OPEN W%B `L @ `P @ a$: aP&
IFNB <Aap><$VMIN==$VMIN+1>b
IRP A<$VEDT==$b0VEDT+1
$A==-1>
P a+-\ + et: 6p#7 MR$$[A,RA NCH,RANC0 Mwe NI" 3p# MM$$K$RBYT o> K CoC=|Be
B 50#+ MM$$ RCCHR
4;ZP
5 eD B 40## MM$$ $RCHR o^~) OqR eI" =0#k MR$$ A,RD ATE,RDAT0 &%ne,; 9p#O MR$$ A,RD ECL,RDEC0 &
[e,;" :0#S MR$$ A,RD ECM,RDCM0 &9Re5b ?0#{ MR$$ A,RD VIC,RDVI0v
: e
A v 30# MM$$ READ kW.[bP oD Be$: 70#; MR$$ A,RE DCH,REDC0 $ wet" P! MM$$ RENAM e M 0!k MM$$ RESTT eMI" >p#w MR$$ A,RF ILE,RFIL0 O%X<e/>) ;p# MR$$ A,RK WRD,RKWR0 &$<e2, b p!' MR$$ A,RL EAS,RLEA0 e:= A0$ MM$$ RSWIT eR$ " <p#g MR$$ A,RT DAY,RTDA0 &%,eRMY" =p#o MR$$ A,RT IME,RTIM0 && VeV : 60#3 MR$$ A,RU CCH,RUCC0 ITe^t" 8p#G MR$$ A,RW NAM,RWNA0
%xTe^~) 7p#? MR$$ A,RW ORD,RWOR0 $:g4T" p!W MM$$ SAVE1 g4TB 0![ MM$$ SAVE2 g4Tb p!_ MM$$ SAVE3 g4U 0!c MM$$ SAVE4 g4] p!g MM$$ SAVET g&= P } MM$$ SETST g0 |p'i
X A,C}$T-1,<B>,D,-C$ L,E`
&%H1g2,\ C0$!
IFNB <ACP>,<
MOVEI T1,ACp
MM$$ SLEE0>
IDFB <A>,<
MM$$ SLEEP> g@ |'c
X A,C|0,<B>,PD$D,MX$D ,EXr` &$YRgL }P'm
X A,0, <B>,C,0,D& g_$B ~(Q
XALL
~0
;TABLE OF POINTE~PRS TO THE OTHER T~pABLES
IOWD A$$L,A$$N ;[127]0 IOWD TO NAME TABPLE
XWD P1,A$$Pp ;[127] POINT TO BYTE POINT TABLE 0
XWD P1,A$$M P;[127] POINT TO M pAXIMA TABLE
XWD P1,A$$D ;[127]0 POINT TO DEFAULTP TABLE
;
DEpFINE X(A,B,C,D,E,F),<
EXP SIXBIT0 `A`>
A$$N: ;[1P27] TABLE OF SIXBpIT SWITCH NAMES
SWIT$$
A$$L==.0-A$$N
;
IFP2,<
DEFINE X(A,Bp,C,D,E,F),<
TMP$$==0
IFB <C>,<
Z ;A
TMP$$=P=1>
IFN <C>_-^D2p4,<
TMP$$==C
TMP$$ ;A
>
IF0E TMP$$,<
POINTP 36,C,35 ;A
>
p>>
A$$P: ;[127] TABLE OF POINTER0S TO VALUE WORDS
SWIT$$
;
;p
MX$==0
DEFINE X(A,B,C,D,E,F),0<
XWD E,B ;A
P>
A$$M: ;[127] pTABLE OF MAXIMA OR IOWDS
SWIT$$
;
PD$==0
PDEFINE X(A,B,C,D,pE,F),<
XWD 0,D ;A
>
A$$D: ;[ 0127] TABLE OF FLA PGS AND DEFAULTS
p SWIT$$
PURGE M
X$,PD$,TMP$$
SA LL h@ @ hD @ hH @ hL @ hP @ i7K GP$= MM$$ TMPDL i7i F$1 MM$$ TMPFD i7B FP$5 MM$$ TMPIN i7}" G$9 MM$$ TMPOU iJli : kB$ 0!S MM$$ UPDAT kB&} p" MR$$ A,UP DWT,UPDW0 kN.J" q MM$$ USETI kN.Kb P u MM$$ USETO kV KbP kV-mP kV<]P kVMlP kVfZbP kV~ BP kV~]P kW[BP kW[BP kW%\P kW.[bP m;B \&
$VMAJ==\0<A> ;
$VMIN==\P0 ;
$VEDT==<B\p> ;
$VCOD==<C]> ;
;
V1$]0$==<<%%C&<77700,,]P000000>>_-^D24>
]p V2$$==<%%C&77777^7>
V3$$==<<$$IO^0&<77700,,000000>>^P_-^D24>
V4$$==<^p$$IO&777777>
DEF_INE V$$(V1,V2,V3,_0V4),<
IF1,<
PRI_PNTX %Assembled us_ping C version V1(`V2) and IO versio`0n V3(V4)
>>;DEFI`PNE
V$$ \V1$$,\V`p2$$,\V3$$,\V4$$
a PURGE V1$$,V2$$, V3$$,V4$$
J BmR/&{
DEFINdPE VTEXT$(VMJ,VMI,dpVED,VCD),<
DEFIeNE ..NUM(..N),<
e0IFN ..N<IRPC ..N<eP..T==..T_7+..N+"0ep"
..WRD>>>;..NUMf
DEFINE ..ABC(.f0.A),<
IFN ..A<..fPT==..T_7+"A"+..A-fp1
..WRD>>;..ABC
DEFINE ..CHR(..g0C),<
..T==..T_7+gP"..C"
..WRD>;..CgpHR
DEFINE ..WRDh,<
IFN <..T&..M>h0,<..DEP
..T==0>>hP;..WRD
DEFINE .hp.DEP,<
BYTE(7) <i..T&<376000,,0>>i0-^D28,<..T&<1770,iP,0>>-^D21, <..T&ip<7,,740000>>-^D1j4,<..T&37600>-^Dj07,..T&177>;..DEP
..T==0
..M==3jp76000,,0
..NUM kVMJ
..ABC VMI
k0IFN VED<..CHR <(>kP
..NUM VED
..kpCHR <)>>
IFN VCDl<..CHR <->
..NUl0M VCD>
IFE ..T<DlPEFINE ..WRD,<..DElpP>>
IFN ..T<
DmEFINE ..WRD,<
..m0T==..T_7
IFE <..mPT&..M>,<..WRD>
ImpFN ..T<..DEP
..Tn==0>>>;..WRD
..n0WRD
PURGE ..NUMnP,..ABC,..CHR,..WRnpD,..DEP,..T,..M>;oVERSION
VTEXT$ o0\$VMAJ,$VMIN,\$VE DT,\$VCODkW.[bnJ5 )p"O MM$$ W2FIL M4&LVQ MJ BnJ5D *0"S MM$$ W2FL0 MP$8vP MP$HSnJ5HB *p"W MM$$ W2FLB NH @ NL o$LB +p"_ MM$$ WADDR S;] cX oa S%
FW$$ WARS0N,WRN,A,B,C,D o >) 0p# mm$$ wbwrd h@ @ hD o NI" %0"+ MM$$ $WBYT K
$kQ
K
%Ro: +0"[ MM$$ WCASH NX @ N\ oD B )
IFNB <B0>,<
MOVEI T1,",P">
IFB <B>,<
pIFNB <A>,<
MOVEI T1,A>>
MM$$ $WCHRR|LrP oIB %p"/ MM$$ WCRLF K;$\B ! KJ=o>) 10# mm$$ wcwrd hP @ iJlioI" ,0"c MM$$ WDATE Y? i !yYV^\o,; P A
IFNB <Ap>,<
MOVEI T1,^DA>
MM$$ WDECL R~,xP
R~-ou}b ,p"g MM$$ WDNOW [H @ [N<io5b (0"C MM$$ WDVIC M&{Q M4$o " )0"K MM$$ WFCHA M4&9P M4&
oMI" '0"; MM$$ WFILE M
$:P pM
$<qo"-L 00# MM$$ WHELP g4Tb !]g4Uo/>) 20# MM$$ WKWRD kV<]P kVMlo2Mi" P 9
IFNB <Ap>,<
MOVEI T1,[ASCIZ `A
`]>
M M$$ WTEXT R}}1o:AME M
%|Q {M
&Hto> K P G
IFNB <Ap>,<
MOVEI T1,A >
MM$$ WOCTLoBJ (p"G MM$$ WPATH M4$J9Q M4%ioC=|B a
IFNB <A 0>,<
MOVEI T1,A P>
IFNB <B>,<
pMOVX T2,<SIXBIT `
B`>>
MM$$ WPWO RSNM P WD:oC>) 2p# MM$$ WPWRD kV~]P kW[BoJ
N &0"3 MM$$ WRADX KJ-yBQ KJM\oJ, 0 M
IFNB <A P>,<
MOVE T1,[A ]>
MM$$ WREALoJNI" $p"' MM$$`WRITE H @ I /p" MM$$ WTDNW e M !ie2, boR/
IFNB <Ap>,<
MOVEI T1,[ASCIZ `A`]>
MM$ $ WTEXT}1P oRMY" -0"k MM$$ WTIME [R<B "[R-yBoRM\b -p"o MM$$ WTIMS [S 9B " [S <BoRnLb .0"s MM$$ WTMTS [` @ !-] oRu}b .p"w MM$$ WTNOW W&
U
IFNB <A
0>,<
MOVX T1,<SI
PXBIT `A`>>
MM$ $ WWORD SMLoM>) A 1p# mm$$ wwwrd kN.J" 0okN.Kboc<A &p"7 MM$$ WXWD KKi 0!K XTCAL$ A qR$; p!? MX$$ A,XT DCL qS.[b 0!; MX$$ A,XT UUO uq E$) MM$$ ZERO Mp Q 5M{5P
4;ZP
5 P
6=Q ` D P D[sQ D[vQ HtP IP I9P ITP KWP KqP MP MwP tiP uP $S` $ w` $)Y` $*` $-3` $:` $;Z` $I;` $^` $l` %T` %{` %[r`
%xT` %|` &
` &
` &
[` &*1` &9R` &:=` &;Q` &=` &N8` &i9` nLPP nLQP nLWP nLWP &$8v` &$<` &$<` &$IR` &$N1` &$Xr` &$YR` &% V` &%R` &%+W` &%,`
&%,`
&%H1` &%Lq` &%n` &%yR` && ` && <` && V` &&
` &&-7` &&=z` &&Kx` 2tiP 2uP O$IZP O%X<P O%h6P O& ZP S@P >}{woP