Trailing-Edge
-
PDP-10 Archives
-
dec-10-omona-u-mc9
-
s.unv
There are 3 other files named s.unv in the archive. Click here to see a list.
xh@P BP CH1P#ACHVP CT, `CV< C4\YP C0P C@tUP @C@trP C@t{P C@t81P @C@t87P C@t9WP C@t:2P C@t;8P C@t;VP C@t<P$C@tH7P C@tHtP C@tIWP C@tX7P C@tXtP C@tYWP @C@tkrP @C@tk{P C@uP C@uyP"C@unP C@v{P"C@v
P C@vKyP C@vZ7P!C@v]xQ CCP CC pCO;wP$CO
SP"DP E$\YP E,\YP E<.: X=XLIST
IFxB <B>,<$XBYP==<A>-1>
IFNB <B8>,<$XBYP==<B>>
X $XBYS==<A>
$XBYT==0
LIST$XE3&^EhEXCTUX(<A>)EXCTUX(<AE3' F
HuQ |F
LQQ vF
QQ zF*:Q |F]7Q ~FKQ FKQ ~F$Q wF&9:Q xFM\@Q }FN`Q vFN]7Q }F^>9Q xFm@Q tFvH`Q tFw Q zFK{Q {FY Q uFX`Q uF%I Q F&, Q {F,Z5Q yF<rQ wFDZ5Q yGP GD[<P G"t8VP G2\HKP G2\^P$G2^ P$G3 z `d
SALL
ZZ==0 ;SET TO 1 IF A VALID ARG IS@ SEEN
IFN FTKI`10,<
IFIDN <A> <P4><
ZZ==1
IFNDEF .CPEBR@,<EXTERN .CPEBR>
DATAO PAG,.CPEBR(P4)
>
I FIDN <A> <0><
@ ZZ==1
IFNDE`F .C0EBR,<EXTERN .C0EBR>
DATAO PAG,.C0EBR
>@
IFIDN <A> <1>`<
ZZ==1
IFNDEF .C1EBR,<EXT ERN .C1EBR>
D@ATAO PAG,.C1EBR
` >
>;END IFN FTKI10
IFN FT KL10,<
IFB <B> @<
IFIDN <A> <P`4><
ZZ==1
IFNDEF .CPEBR,<E XTERN .CPEBR>
@ CONO PAG,@.CPEBR`(P4)
>
IFIDN <A> <0><
Z Z==1
IFNDEF .@C0EBR,<EXTERN .C0`EBR>
CONO PAG,@.C0EBR
>
IFIDN <A> <1><
@ ZZ==1
IFND`EF .C1EBR,<EXTERN .C1EBR>
CONO PAG,@.C1EBR
@>
>
IFNB <B`> <
ZZ==1 ;FLAG THAT CPU ARG IS OK
CLRPT @B
>
IFE ZZ,<PR`INTX ? BAD CPU ARGUMENT A TO CLRP GT MACRO>
PURGE@ ZZ
>;END IFN FTKL10
NDIFNFG3qP G3H:P G3KP G3@P G3k1P G3}:P G3,zP G7< P"G;&+P G>$\` HXY X IOW,,SJHx,
X TIOW,,SJ, I
IFN FTDISK,<
I8 X DIOW,,DJ,
>IX
IFN FTVM,<
X IxPIOW,,DJ,
>
XJ SLP,,SJ,
X EWJ8,,SJ,
X NAP,,JXSJ,
X NUL,,SJ,Jx
IFN FTDAEM,<
K X JDC,,SJ,
>
X STOP,,SJ,
G>t@
xi
XP C$MI`N,C$MIN-1 ;DECREM
XENT MINIMUM CODE
8
XP A,C$MIN ;SE MIN
ODE = NEW G?;ZP G@t<hQ G@t<hQ G@t<iQ @G@t<iQ G@t<jQ G@t<jQ G@t<|Q xG@v
Q G@v
Q G@v
Q G@v
Q G@v
Q G@v
Q >G@v
hQ G@v
hQ @G@v
iQ G@v
iQ G@v
jQ G@v
jQ G@v
|Q |G@vQ @GBexu 28
PUSHJ P2X,LOKA ;ENTER CPU2x INTER-LOCKED REG3ION ON A
EXTERN LOKA
EXTERGC-k 3X#
PUSHJ P3x,ULKA ;EXIT CPU 4INTER-LOCKED REGI48ON ON A
EXTERN ULKA
EXTERNGN$\YP GPu8 P GPu: P GPu;P GPv@P HP I$@ I`P IeP IepP If P IHP IN` `IxP I5pQ ~IpP IP"I7P$II6P II9P IXyP @I]VP IiPP"IkxP$IQP @IRP"II7P!I\sP I{RP!I(9P @I:2P @I:6P!I<P$I]7P II7P @I(9P I4P I4P I47P I4-3P I4:P I4:2P I4=P I4LP I4\rP I4]VP I4^P I4j6P I5{P I52P I5yP I5+qP I5KP I5KsP I5LrP I5[rP I5\sP I5h6P I5x2P I6
P I6
tP I699P I6<PuI6=PI6=P I6N8PvI7Iv8RQ @I0P I"tpQ I&pP I&uQ I':=P I'V e(.EXTERNAL CeHHNOFF
CONI PI,ehA
CONO PI,CHNOFF CONO PI,CHNOFI2XP I2l S 8 XLIST
S@DEFINE WORD(SYMBOS`L)<SYMBOL==.I
T .I==.I+1>
DET FINE DATA(SYMBOL,T@DATUM)<SYMBOL==.IT`
.I==.I+1>
U
DEFINE PNTR(SYMBU OL,WORD),<.I==.I+U@1>
DEFINE BLK(U`SYMBOL,SIZE),<IFDVEF SIZE,<.I==.I+SV IZE>
IFNDEFV@ SIZE,<PURGE .I>>V`
.I==0
MAP7W6 ;DEFINE PARAMETERS
LIST
MEI3Ahu %>
XLIST%
DLX.44=0
D%@LX.76=0
DLX.75=0%`
DLX.78=0
PDP11&N=0
ZZ=0
REPEA& T 10,<
.DLTYP(\&@ZZ,ZZZ,A)
ZZ=ZZ&`+1
>
LIST
XP' DLX.44,DLX.44
' XP DLX.76,DLX.76'@
XP DLX.75,DLX'`.75
XP DLX.78,DLX.78
LX.78,DI6
;P!I7 P I7-@ @I:
\YP I:,\YP I>5@Q }I?(P IHP IJ`P IJpP INHP IN]yS 8xc
IF2,<IFN9DEF DSKPIF,<EXTER98N DSKPIF>>
IFN F9XTKL10,<
IF2,<IFN9xDEF PIOFF,<EXTERN: PIOFF>>
CONO P:8I,PIOFF ;FOR BUG :XIN .LT. LEVEL 8 K:xL10 PI SYSTEM
C;ONO PI,DSKPIF+PI.;8ON
>;END IFN FTK;XL10
IFN FTKA10!F;xTKI10,<
CONO PI<,DSKPIF
>;END IF<8N FTKA10!FTKI10
FTKA10!FTKI10
IN]{@ 7xC
IF2,<IFN8DEF DSKPIN,<EXTER88N DSKPIN>>
CONO PI,DSKPIN
ONOIN^+PINxPIO,.IIOPQZ~IR\YPIR,PIR,;"P IR,HbPIR,IPIR,I"PIR,hBPIR,i"PIR-BPIR-BPIR-hbPIR-iBPIR-j"P IR-lP IR.
+ f(>EXTERNAL CfHHNON
ANDCMI A,fhCHNOFF ;DO NOT TOgUCH DC CHANNELS
g( TRO A,2000 ;SEgHT TO TURN SELECTEghD CHANNEL ON
CONO PI,(A)
COK:\YP K:$.:
8YXLIST
IF
XN $XBYP-$XBYS+1,<
xEXP <$XBYT>>
PURGE $XBYT,$XBYP,$XBYS
LISTYP,$K;
\YP@ KJ 0
.N==0
R00EPEAT A,<ERRJSP 0P(\.N)
.N=.N+1>
0pECOD: SUBI T1,ECO1D0+1
HRRZS T1
10 JUMPL M,CPOPJ
JRST STOTAC##
KJy +0a
.DIRECT+PIVE .XTABM
ERRC+pOD (A,B,\B)
,.DIRECTIVE .ITABMIRECTIVE .ITABMKK;r ,Pk
IFG <B,p+1-ECDMAX>,<GENEC-D(A,B,C)>
IF-0NDEF A,<A==ECODC##>,<A==ECODKK,x 1p
ECODA::JSP T1,ECODA::KNfXP
KNf
}PKXti4PKXti7PKXuP KXuHVP KXui:P KXv);P KXvJ{P K^
SALL
@GINST==<PXCT PX.M`EM,[A]>
PXGEN(<A>,<DPB,IDP B>,<PX.SRC>)
@
PXGEN(<A>,`<BLT,PUSH,POP>,<PX.SRC!PX.MEM>)
GINST
PURGE GINST
PURGE GINKbM< `P
SALL
GINST==<PXCT PX.M EM,[A]>
PXGEN( @<A>,<LDB,ILDB,PO `P,BLT>,<PX.SRC>)
GINST
PURGE GINST
PURGE GKbN
@b
SALL
`GINST==<PXCT PX.MEM,[A]>
PXGEN( <A>,<IDPB,DPB,PU@SH>,<PX.SRC>)
P`XGEN(<A>,<POP,BL
T>,<PX.MEM>)
GI
NST
PURGE GINST
PURGE GINSTKb,81 W@{
IFN FTKLW`10,<
SALL
IFB ^0<A>,<
DATAO PA^PG,[LG.LAB+01B11]
>
IFNB <A>,<
DATAO PAG,[LG.LA0B+<<A3>+1>B11]
>
LIST
>1]P L@ M
l\YP M,\YP
Mt80Q@Mt;qQ Mt;|Q Mv8xQ M]KUP M:4\YP MJ
%%%N==0y ;ARGUMENT COUNy(T
IRP A,<
%FRyHAM1(A,\<%%%N+1>)yh ;DEFINE MACRO
z%%%N==%%%N+1 ;BUz(MP COUNT
>
IFE zHFTKL10,<
IFN FTVzhM,<
ADD P,[%%%N{,,%%%N] ;ALLOCATE{( THE SPACE
JUMP{HGE P,S..EPO## ;SH{hOULD NEVER HAPPEN|
>>
IFN FTKL10,|(<
ADJSP P,%%%N
>
PUSHJ P,b |h;DO THE SUBROUTIN}E
JRST .+2 ;}(NON-SKIP RETURN
}H AOS -%%%N(P) ;PA}hSS ON THE SKIP RE~TURN
SUB P,[%%%~(N,,%%%N] ;DEALLOC~HATE SPACE
POPJ ~hP,0 ;RETURN
b: ;SUBROUTINE WITH( LOCAL STORAGE
LOCAL STORAGE
MJ.3P$MJ>93P$MLt+5P `MLu\uP MLuhyP @MLuk5P MLv{P MQ93Q MR;Q MR%uQ MR/ Q MR4H2Q MR\(P MR](P MR]D(Q MReytQ MRn0Q MSQ MSHuP MSx8Q MS%H1Q MS5PQ OtXr -p}
PRINTX %.ECODC IS UNDEFIN.0ED, DEFINE ECDMAX.P IN S.MAC TO BE .pC+1
A==[MOVEI T/1,B
JUMPL M,CP/0OPJ##
JRST STOT/PAC##]
IF1,<A==0>]
IF1,<A==Ov<QP$OPt;rQQOPuPPOPu+qPPOPv PPOPv93P OPv[RP OS93P @Qf@ +Q&~)`P$Q2>WP QN
rQ @S
tTQ S
tQ S
t*9Q S
t>(Q S
t>(Q S
uJ8Q @S
vKHQ S
vKHQ S
v[zQ S\uP SyP S:=P Se|qP S$tYQ S$t[Q S$twP ?S$tQ S$t3Q @S$tyQ S$t;hP S$t;iP S$t;iP S$t;jP S$t;jP S$t;kP S$t;kP S$t<P$S$t<P S$t\P @S$t\Q S$uP @S$u P S$u P S$u
P S$u
P S$uP S$uP S$uP S$ulyQ S$v
0P @S$v
HQ S$v
IQ S$v
IQ S$v
JQ @S$v
JQ S$v
KQ S$v
KQ S$v
yQ @S$v\Q S2hP S3,\YP S:h@P S:NH@P$S; P S<P S>
=PS>Y`P8S>=P<@S>}PS>8PS>\P<S>{@PS>$[RPS>$\BP<S>$\YP"S>&I9P!S>,8|P=S>-iP=S>6=PKS>DI9PMS>EI"P*S>L(`P"S>M\P$S>NbPIS>fI"PKS>v(uP[PS?@PS?BPS?I"PS?HVPyS?$[RP{S?%I"P}S?.9SP$S?4i"P\S?5I"PS?6-7P=S?8P9S?<0P9S?=I"PIS@rTQLS@tUPS@tRPHS@t81PS@t82PS@t:2PS@t:7PM@S@t;QS@t;VP S@t<WQ S@t=P!S@tHtP S@tXtP S@tk9Q S@usP @S@uyP"S@uXvQ S@uZ2Q S@u[VQ @S@u[ZQ S@u[rQ S@unP S@v9P"S@v 2P!S@v
4P U
4=P U
6P U
6YP U
ehyP U
f{P UhyP U{P$U:=P UP!U{@P U P U2|pP U:P @U> P#A$U>
WP#APU@t8qP U@tLP#U@t[XP U@uP$U@uY:P @U@vuP UHv(yQ @UHv*9Q UHv+yQ UHv,YQ UHv.Q UHv.Q |UKP ULtXP"ULtP ULtpP ULt,Q ULt9\Q @ULt;Q xULtI6P!ULtI8P ULtLP ULt^Q ULtnQ @ULtnQ ULuSP ULu)P @ULuZ3P$ULu\P ULu\uP |ULuhyQ ULumP ULunP ULu{wP ULvyP ULv,P ULv,9P ULv-:P ULv8wP ULv9RP$ULv9VP ULv:=P ULv;Q ULvIWP ULvN8P ULw`P ULwyP U\vyP U\vyP U\vyP"U\v{P U\v{:P U\v{VP @U\v|P U\v|WP!U\v}YP U\v}zP @U_|`P U_@P Uc`P!V;$4 P V;%T@P V;%X P V;%X@P V;' P Yt+zP Yt;wP YtI9P YtMP Yt[sP Yu P YuxP YuMP Yv
rP YvLRP YvkP Yv{P Yt81Q `Yt<vP$Yt<{P"Yt<|Q Yt\P Yu6P$Yu:8P YuH1Q @YuLQ YuM1Q Yv1Q YvyQ xYvI7P Yv\P Y$twP ?Y$t;hP Y$t;iP Y$t;iP Y$t;jP Y$t;jP Y$t;kP Y$t;kP Y$t<P Y$t\P$Y$t\P"Y$uP @Y$u P Y$u P Y$u
P Y$u
P Y$uP Y$uP Y$uP Y$v
0P @Y$v
HQ Y$v
IQ Y$v
IQ Y$v
JQ @Y$v
JA Y$v
KQ Y$v
KQ Y.P#pY8t[RP Y>D\YP
Y>XP"Y>\]QP!Y>]P @Y>^
P"Y>^93P Y>}8@P @Y@tP Y@t9Q Y@t9P @Y@t<qP"Y@t<rP Y@t<sP Y@tLsP @Y@t\sP!Y@uRQ Y@uZP Y@usP Y@uyP"Y@ui2Q @Y@unP Y@v9P Y@v Q Y@v 2Q Y@v RQ Y@v
0P Y@v8RP Y@v9Q Y@v92Q Y@v<sP YBYP YBP YB[P YB-QP YB<P YBIP YBZqP YHt;P YHt;P YHt[zP YHt[{P YHtj7P YHtkzP YHvyP YHvK P YHv\XP YPt+P YPt8PP YPt8YP YPuP YPu6P YPuMP YPuX<P YPukP YPulvP YPv;P YPv=6P YZd\YP
Z@ [u@ (
(@
(`
)
)
.)@.P==A
)`IFN <FTKI10!FTKL*10>,<
DATA KII,* <JSR D70AKI>
*@
> ;EN*`D IFN <FTKI10!FTK+L10>
IFN FTKA10,+ <
DATA KII,<Z> +@
> ;END IFN FTKA+`10
WORD ESA,
,
WORD WNU,,
WORD NAM,,@
DATA EPN,`,<..P>
WORD OK,
-
WORD H-@LT,
WOR-`D DWN,
.
PNTR UP. T,.C0UPT,
IFDEF M.AD85,<.`
IFE M.AD85,<
WORD TTP,
/
WORD TTG,
/@
WORD TEP,/`
WORD 0TEG,
DA0 TA EBS,<TEBSA>
DATA TBS,<TTB0`SA>
DATA LT1O,<D7AOFS>
1
DATA DTO,<D71@ADSO>
PNTR ST1`S,STATES,
PNTR FRN,TTFR2 EN,
DATA AOM,<M72`AKII>
3
DATA TEA,<M73 ATEQ>
3@DATA TTA,<M7ATTQ3`>
DATA MAX,<M4.D7AN+TYPNUA>
DATA NTT,<M.D74@AN>
IFNB <A4`>,<ZZZZ==PARAN>
IFB <A>,<ZZZZ=5 =0>
DATA PAR,<Z5@ZZZ>
IFNB <A>5`,<ZZZZ==ZZZZ+PCR6AN>
DATA PCR,6 <ZZZZ>
IFNB <6@A>,<ZZZZ==ZZZZ+PA6`PAN>
DATA PAP,7<ZZZZ>
IFNB <7 A>,<ZZZZ==ZZZZ+LP7@CAN>
DATA LPC,7`<ZZZZ>
IFNB <8A>,<ZZZZ==ZZZZ+PC8 PAN>
DATA PCP,8@<ZZZZ>
DATA PI8`O,<M7ANIP>
9
BLK TTQ,<TTBS9 A>,
BLK TEQ,9@<TEBSA>,
BLK9` NIP,<TYPNUA>
:>
IFN M.AD85,: <
WORD SWD, ;G:@LOBAL STATUS WORD:`
;1=DEPOSIT
; ;2=EXAMINE
; ;4=ADDRESS IS GA;@RBAGE
;10=HOL;`D EVERYTHING
WO<RD ADR, ;EXAMINE/< DEPOSIT ADDRESS
<@ WORD DAT, ;EXAMI<`NE/DEPOSIT DATA
= WORD REC, ;MAXIM= UM RECORD LENGTH
WORD MOD, ;VERS=`ION OF SOFTWARE
> WORD TA, ;10 ALI> VE IF .LE. 1 (11 >@INCREMENTS, 10 SE>`TS TO -1)
WORD ?TS, ;10 STATUS (0? =INITIAL,1=STARTE?@D INIT,-1=RUNNING?`)
WORD ES, ;11 @STATUS (0=INITIAL@ ,1=STARTED INIT,-@@1=RUNNING)
WORD@` IFL, ;INPUT FLAGAS
WORD IC1, ;INA PUT COUNT (PART 1A@)
WORD ID1, ;INA`PTA POINTER (PARTB 1)
WORD IC2, ;B INPUT COUNT
WORB@D ID2, ;INPUT DATB`A BYTE POINTER
CWORD OFL, ;OUTPUTC FLAGS
;1=HEAC@DER THERE
;2=C`FIRST HALF THERE
;4=SECOND HALD F THERE
WORD OCD@1, ;OUTPUT HEADERD` COUNT
WORD OD1E, ;OUTPUT HEADER E POINTER
WORD OCE@2, ;OUTPUT DATA CE`OUNT
WORD OD2, F;OUTPUT DATA POINF TER
WORD OC3, ;F@OUTPUT DATA COUNTF` (PART 2)
WORD GOD3, ;OUTPUT DATAG POINTER (PART 2)G@
> ;IFN M.AD85
>
IFNDEF M.AHD85,<
WORD TTP,H
WORD TH@TG,
WORH`D TEP,
I WORD TEG,
DATA EBS,<TEBI@SA>
DATA TBI`S,<TTBSA>
DJATA LTO,<D7AOFS>J
DATA DJ@TO,<D7ADSO>
PJ`NTR STS,STATES,
PNTR FRK N,TTFREN,
DATA AOK`M,<M7AKII>
L
DATA TL EA,<M7ATEQ>
L@
DATA TTA,<ML`7ATTQ>
DATA MMAX,<M.D7AN+TYPNM UA>
DATA NTT,M@<M.D7AN>
IFM`NB <A>,<ZZZZ==PANRAN>
IFB <A>,N <ZZZZ==0>
DATA N@PAR,<ZZZZ>
IFNN`B <A>,<ZZZZ==ZZZOZ+PCRAN>
DATO A PCR,<ZZZZ>
IO@FNB <A>,<ZZZZ==ZO`ZZZ+PAPAN>
DATPA PAP,<ZZZZ>
IP FNB <A>,<ZZZZ==ZP@ZZZ+LPCAN>
DATP`A LPC,<ZZZZ>
IQFNB <A>,<ZZZZ==ZQ ZZZ+PCPAN>
DATQ@A PCP,<ZZZZ>
DQ`ATA PIO,<M7ANIP>R
BLK TTQR ,<TTBSA>,
BLR@K TEQ,<TEBSA>,
R`
BLK NIP,<TYPNUA>
>
TYPNU[$KP @[nH1P$4[nHV@ [$t7@ [$t8P @[$t`P [$uP [$vKwP [&tLP [<t7P [<t8P @[<t`P [<t=P [<uP [<uH1P$[<vKsP [<vKwP [>u|SP$T[>vLQP [B}Z (IFN FTMETRH,<
SKIPGE T2,MEhPA##
PUSHJ P,(T2)
>PUSHJ P,([Pt,sP [Pt,yP [PtI1P [PtlsP [PtlyP [PuRP [PuI3Q @[PuX<P [Pv);P [Pv9:P [Pv=P @[Pv[VP [Pvx:P [Pv{P [Pv}P [SP
],\YP]\uP]P]HIFNDEF]A,<XP]<A>,<B>>,]`SIFNDEF]A,<A==B>DEF A,]\YP ]$\YP ]2L\YP
tRQ _
t(rQ _
t(tQ @_
t(vQ _
t({Q _
t,zQ @_
ti8Q _
tm8Q _e|qP _W$)QP @_W&@P `@ `D@ `H@ `L@ `P@ at Q at<Q auP aunQ @au}:Q avrP avtP av2P av4P av)2Q av|ZQ aw)9Q a8P a<9"P a<:"P a="P a=P a=bP a=P a=I"P a=Y"P a=Z"P a=lbP a=m6P'~a=mBP a>:P a>H1P$a>HVP a>YBP a|\YP a
tVP a
tZP a
t*9Q a
t>(Q a
t>(Q a
vPP a
vQP a
vJ6P a
v]7P atLQ atlxQ auQ avP$aeI7P ,anZP an=xP$auP avZP aP aZP at8sQ at8tQ at8yQ at;P at<Q @at<Q at< Q at< Q at<
Q at<
Q at<Q at<Q @at<Q at]VP at]qQ @aulP avtP @avzP av
7P'~av
P$av
P"av
P!av
P @av
P av
P av
P av
P av
TQ av
VQ av=qQ avXtQ atSP atXP atP av
SP av
[P av
av=;P av\yQ @a HP$a HP"a IP!a IP @a JP athP athQ atiQ atiQ 0atrQ atLuQ atX:P auI1P$auM1Q @av;Q a"}kP$a$P a$t;hP a$t;iP a$t;iP a$t;jP a$t;jP a$t;kP a$t;kP a$t<P"a$t<P$a$t<P a$tLP!a$t\P @a$u7P a$uP @a$u P a$u P a$u
P a$u
P a$uP a$uP a$uP a$uySP a$u{@P @a$v9P"a$v 2P!a$v
0P$@a$v8hP a$v8iP!a$v8iP a$v8jP a$v8jP a$v8kPta$v8kPa$vIXP a$vKXPta&m[rPa*n r 5a*n 4`a+= +a+= +a+ - a+-\ 4@a+-\ 5`a+-\ 4 a+-\ 5@a4tqP$a4t<tP a4v
P aZexuP aZv<P @a[MP a[0P a[6P a[&,P a`t.:P a`tX1P a`uY6P a`v<QP ab@ +@abM: ("
EXCTUU(<A>)
EXCTUU(abM< (
EXCTUX(<A>)
EXCTUX(abN h
EXCTXU(<A>)
EXCTXU(ab<[@
`
ZZ==0
IRPC A,<
ZZ1=
IFIDNZ<=>1<
IFI > <A>,<ZZ1==1>
IFN ZZ1,<ST OPI>
IFE ZZ1,<
ZZ==ZZ_6
ZZ==`ZZ+'A'
>;END IFE ZZ1
>;END IRPC A
IRP B,<
@IFE <ZZ^!'B'>,<G`INST==<PXCT C,[A]>>
>;END IRP B
PURGE OPCOD,ZZ1
RGE OPCODac=LtP cV.Y9 Ax X RN,7,DJB,
X WS,6,SJ,
X TS,6,SJ,
IFBXN FTDISK,<
X DSBx,6,DJ,
IFN FTVMC,<
X PS,6,DJ,
>>X PS,6,DJ, P et7P"et.8P et.9P etD+P etD@P etE P etEIP etFP etKXP etKYP etM7P et^P$ethSP ethYP ethyP etkP etkXP etkYP etlQP etlRP etlVP etlZP etl[P etlrP etlsP etlyP etmP etmzP etn1P euUQP euUqP euUzP euX\P euXrP euYP euYP ev9P!ev,P ev,8P ev,9P ev8ZP ev9P"ev92P!ev97P ev99P$ev9:P ev:6P ev;P ev;7P ev;VP ev;vP ev<RP ev<[P @ev=P ev=P @e,z pRe.( pelz pPe\S p@e%2 pBe%{8P euX@P e]P e#<]VP eVpP$eVtVP$@eVu\uP e^
IFN FTDICxSK,<
X AU,4,DJ,D
X MQ,4,DJ,
D8 X DA,4,DJ,
X DXCB,4,DJ,
>
IFEDx FTDISK,<
X ST,E6,SJ,
>
X D1,E84,SJ,
X D2,4,SEXJ,
X DC,4,SJ, Ex
IFN FTPDBS,< ;IFF WE SWAP PDB'S WF8E NEED THIS QUEUEFX FOR GETTAB'S ETCFx.
X SC,7,DJ,
G
> ;END FTPDG8BS
IFN FTLOCK,<
X CA,4,SJ, >
IGxFN FTKI10!FTKL10,H<
X EV,4,SJ, >
X EV,4,SJ, >
%3 pg
ez` 4x-
PUSHJ P5,SBA ;INTERLOCK 58THIS SUBROUTINE O5XN A
EXTERN SBAA
EXTERN SBgDbPZgDXBPhgDYlgElbP gFXbP gFYBP gFZBP gF\"P gP g=X@P g P g"0P g#93P"g#,iV &<.:5g$u{@Q @g&=h6
IFDIF (<A><@T1>,<
IHFNDEF A,<
PRhINTX ? A IS NOT DEFINED IN FILE S(.MAC!
XP A,CH$MIN-1 ;CONDITIONh YOU CAN NOT ENABLE
>
IFL (<A><
HRROI T1,HA ;SETUP CONDIThION
>
IF GE <A><
MOVE T (1,[A] ;SETUP CON HDITION
>
> h
XCT OKSGNL## ;!SKIP IF USER ENAB!(LED FOR TRAPS
I!HF2,<
IFNDEF PS!hISIG,<
EXTERN"AL PSISIG
>
"( >
JRST .+3 ;"HCHARGE AHEAD IF N"hO TRAPS ALLOWED
# PUSHJ P,PSISIG ;#(ELSE CALL SIGNALER
ALL SIGNALEg+ - g/< 6;
IF2,< IF68NDEF $SCPA,<EXTE6XRNAL $SCPA>>
IF6xIDN <A><I>,< PRI7NTX %SKPCPU (I) U78SED>
XCT $SCPA
XCT $SCPAg0t:QLg0t:Q g0tJ7Q g0t\YQ g0tlSQ @g0urQ g0uxQ g0uQ g0v:7Q g2
BE8GBYT(.FSSIZ)
$SXLALL==.FSMIN
RExPEAT .SLMAX,<
XBYT($SLALL)
$8SLALL==$SLALL+1
X >
XBYT(.FSFNCx)
XBYT(.FSSTP)
ENDBYT;
LIST ENDBYT;
LISTg29Y [STg2;5 ]g2< _g2,\YP
g2-\ XLIST
BE0GBYT(.FSSIZ)
XBhYT(.FSFNC)
XBYTH(.FSEND)
REPEAT8 A-1,<XBYT(0)>
X XBYT(.FSSTP)
ENDBYT;
LIST Eg2.i6P g2L9 P g:P$g:4\YP g;\YP g@t8hQ @g@t:HQ g@t:HQ g@t<HP g@t<HP g@ulHQ g@ulHQ g@v8hP g@v8hP @g@vKQ gCN93P$gLv>9P @gP,[9P!gP-Q gP-hyQ gP/
P"gPtyP gPt+wP gPt>1Q gPtIP gPtLuQ @gPtM6Q gPt[7Q gPtmQ gPu
Q @gPu3Q gPuRQ gPuKsQ gPuXSQ gPu\QQ gPukP gPukxP gPulVP gPulZP gPulxP @gPv
[Q gPv-Q gPv=xQ gPvIQ pgPvMyQ gR- h(JEXTERNAL PhHIOFF,PION
CONO hhPI,PIOFF
CONO iA,(T1)
HLRM T1,i(ACON
CONO PI,PION
CONO PI,PgR~r ihB
SALL
CONTYP==^O17 j(
IFIDN <A><.>jH< CONTYP==0>
IFIjhDN <A><.+1>< CONkTYP==1>
IFIDN <k(A><CPOPJ>< CONTYPkH==2>
IFIDN <A><khCPOPJ##>< CONTYP=l=2>
IFIDN <A><Cl(POPJ1>< CONTYP==3lH>
IFIDN <A><CPOlhPJ1##>< CONTYP==3m>
ACTTYP=m(=-1
IF2 <
IFBmH <B>< PRINTX ?MImhSSING STOPCD ACTInON - SEE %%.C INn( CREF>>
IFIDN nH<B><HALT>< ACTTYnhP==0>
IFIDN <Bo><STOP>< ACTTYP==o(1>
IFIDN <B><JoHOB>< ACTTYP==2>
IFIDN <B><DEBUGp>< ACTTYP==3>
p(
IFL ACTTYP,<
IFpH2 <
PRINTX ?STOphPCD C IS IN ERROqR -- SEE %%.C INq( CREF
>
%%.C::qH
ACTTYP==0
>qh
IFB <C>< PRINTrX ?STOPCD WITHOUTr( A NAME. -- SEE SrH.. IN CREF>
IFrhE ACTTYP,<
S..Cs::!JRST 4,A ;ERs(ROR C
>
IFN ACsHTTYP,<
IF2 ,<IFNshDEF DIE,< EXTERNAtL DIE>>
S..C::!t(PUSHJ P,DIE ;***tH*** C STOP *****th*
SIXNAM==<SIXBuIT /C/>
SIXNAMu(=SIXNAM_<-^D18>
uHIFN <CONTYP-17>,<uh
BYTE (9)^O300(v4)ACTTYP(1)0(4)COv(NTYP(18)SIXNAM
>vH
IFE <CONTYP-17>vh,<
BYTE (9)^O30w4(4)ACTTYP(1)0(4)w(CONTYP(18)SIXNAM
JRST A ;RECOVwhER FROM C STOP
x>>
PURGE CONTYPx(,ACTTYP,SIXNAM
XALL
XNAM
gR~
7P"
gS'HP gS'SP gX,]P gX,;wP @gX-
9P$gX.:P"gX.>6P gX.|ZP!gXtJ9P gXt[RP g_P g_ p2g_` p:g_X p6g_[` p>g_h p4g_k` p<ggI;P hD@ hH@ hL@ hP@ iyS =x
IF2,<IFN>DEF TPIOFF,<EXTER>8N TPIOFF>>
IFN F>XTKL10,<
IF2,<IFN>xDEF PIOFF,<EXTERN? PIOFF>>
CONO P?8I,PIOFF ;FOR BUG ?XIN .LT. LEVEL 8 K?xL10 PI SYSTEM
C@ONO PI,TPIOFF+PI.@8ON
>;END IFN FTK@XL10
IFN FTKA10!F@xTKI10,<
CONO PIA,TPIOFF
>;END IFA8N FTKA10!FTKI10
FTKA10!FTKI10
i{@ <xk
IF2,<IFN=DEF TPION,<EXTERN=8 TPION>>
CONO PI,TPION
CONO PiuMP i$uSQ xi$uXQ i$uYP i$uP i$v
SP i$v
XP i$v
YP i$vJ7P @i$vK{P i&hP i7+P i:
\YP i<t::P$i<t=P i<v
SP i<v
XP i<v
YP i<v::P @i@tE
P i@tEP i@tEjP i@tEkP i@tElP i@tF
P iJ^P iJPP iJKUP iJ(zP iJ=P iJ{P iJl,BP iJl9P iJlKbP iJm"P iJmiP iJmlP iJt\YP iKL\P iSLP iSL*:P iSN\rP iduKP @iduYP idu\P igX<P j@ kunP kv 3P k&}[rP k:t\YP k@ty:Q k@uYxQ k@v80Q k@vzQ kBEkP"kN.(1 _p
IFN FTKL`10,<
SALL
DAT`0AO PAG,[LG.LAB+11B11]
LIST
>1kO[rP kSP @kTt81P @kTt90P kTt<P$kTtX P kTuI0P `kTuI9P kTuIZP kTuY0P
`kTu[YP kTu\uP kTuh6P kTvxqP kVtP kVt^P kVuh6P kVv
PmkWDzPmkWDPHkWD:PKkWDI2P]kWDI;PhkWD[PhkWD[ZPmkWD[\PnkWD\zPkWD]7P kWD^P kWDkP
kWFyP kWF
P kWF
RP
kWF
[P kWFP kWFP kWFP
kWF:=P kWF=P kWFJ6P kWFYRP
kWFi9P kWG
PP k_P k_ySP!n@ oDP#|o2\\YP oJ5 poK pDoNH1P#AoNHVP oRluP |ocLtQ {qN@ OXLIST
$X8BYT==$XBYT+<A>B<X$XBYP>
$XBYP==$xXBYP+$XBYS
IFG $XBYP-^D35,<
E 8XP <$XBYT>
$XB XYP==$XBYS-1
$X xBYT==0
>
LIST==0
>
LISq
tk{Q q
tm3Q q
uiQ q
u}SQ @q
vQ @q
vLXQ q
vZ7Q q
v\yQ q$t<P"q@ A==:Bq@t8sP q@t;P q@tIP$qB` ~A=BqC _A=:But)P ut,P utkP uu P 0 )S
IFL LOC)0FLG,<HILOC==.
)PLOCFLG==1
LOC )pABSLOC>
IFE LOC*FLG,<LOLOC==.
*0LOCFLG==1
LOC ABSLOC>
LOC "Lz &-
IFE LOC$PFLG,<LOLOC==.
$pLOCFLG==-1
REL%OC HILOC>
IFG L%0OCFLG,<ABSLOC==.
LOCFLG==-1
RELOC HILOC>
= 2N@ *pW
$HIGH
LIT
$HIGH
2~p #p!
IFL LOC&pFLG,<HILOC==.
'LOCFLG==0
RELO'0C LOLOC>
IFG LOhCFLG,<ABSLOC==.
$ LOCFLG==0
RELOC LOLOC>
CFL J-Kq
3
SALL
'pTWOSEG HIORG
RE'PLOC HIORG
LOCFL(G==-1 ;0=LOW SEG(0
;-1=HIGH SE(PG
;+1=ABSOLU(pTE LOW SEGMENT
HILOC==HIORG
LO&0LOC==0
ABSLOC==0
G==0
RELO( h
DEFINE A,<-B(P)>
IFE F(TKL10,<
IFE FTVMH,<
PUSH P,1(P) h ;ADJUST STACK POINTER
>>ACK3PO$@P.$K .@t86PB@~0:DLP DMhP DMhP DMiP Dh{P E{P EIP EM2P E\P EnP F>9P FH{P S@P fN8 8$ IFNDEF M.XAD85,<M.AD85==0(>
B=TYPNUA+M.@D7AN+M.AD85
I`FN C,< IFN B,<XXICHN==SCNCHN>>
TP.DLA==0
@IFN B,<
IFN M.`AD78,<
IF1, <
PRINTX WARNING DL-10 A A IS D@EFINED AS A DAS78` A AND
PRINTX EITHER A DC44 DC7 6 OR DC75,THE DAS@78 DEFINITION
P`RINTX HAS BEEN OVERRIDDEN.
>
M .AD78==0
M.DA@S78==M.DAS78-1
`>
IFN M.AD85,<
IFN <TYPNU A+M.D7AN>,<
I@F1, <
PRINTX WA`RNING DL-10 A A HAS MORE THAN ON E OPTION
PRINT@X FROM THE SET: D`C44 DC76 & DC75 THE DC75 HAS BEEN
PRINTX CHOSEN. @IGNORE THIS WARNI`NG WHEN THIS WAS DONE ON PURPOSE
>
>
TP.DLA @==TP.D85
DLX.7 `5=DLX.75+1
>
! IFE M.AD85,<
! IFN TYPNUA,<TP.!@DLA==TP.DLA+TP.!`D44
DLX.44=DLX."44+1>
IFN M.D7" AN,<TP.DLA==TP.D"@LA+TP.D76
DLX.7"`6=DLX.76+1>
> > #
IFN FTDAS78,<#
IFN M.AD78,<
TP.DLA==TP.D78 #`
DLX.78=DLX.78+$1
>
> ;END OF$ FTDAS78
IFN TP.$@DLA,<PDP11N=PDP11N+1>
11N=PDP1 `<P <vP$<P <qP KP LP MP Z5P m6P qP P 9P ;P
LP X3P \P \qP \rP \sP$nP yVP
6P$<P H8P KP LP zP <P$.8P$D: *$81P $82P $;P $;P $<P '
:P [RP kQP lwP X<P Z7P :=P =P K8P P "eK P@"eN@ R#+ X@#+y \`#.Y Z`&~+ G@*
`P#H*
hP#J*
iP#L*$P#B2$ 2lXTP "2lXVP "2mXTP #2mXVP #2n WP !2n XP 2n [P 6<P 6,:yP @6.,P @6., P @6., P A6.,
P A6.,
P A6.,P A6.,P B6.,P @6.\P @6T,P 6T, P 6T,P 6TH:P 6~i 6~i6 @6~k@ "7<P B7$[8P 7.8P 75)P ?7P @?P'p?*XP!?I6P"?I9P!?QP ? P$?:2P B
x0P B
xpP B
xrP B
y6P B
ypP B
z7P B
|VP B
}yP N.NV @@N] 7N] 6@N] 7`N] 6 N^ r 7 N^ 6`NeP NeX<P Ne^P Ne^P Nf
qP Nf
rPMNfyPMNfyP#N~0N>N~;L>`OPNO9PNO9P OLP OP O@P SMZP SMLP SMLP SMX7P$SMXyP SM\P
SN)P SN<P SNLuP SNMP SNh9P SN}P SO
WzP WPP kWzP W-P kW\P WiZP eWkxP mW
rP iW
yP jWzP lW+qP hWIZP eWLP YWY6P iW\P#@W]7P
W]8P
W P W TP lW ZP W qP hW)6P fWK1P gWK4P gWK8P ZWX1P ]W\P WhzP fWlZP jWD:P WFLVP"ZTMP#D>}{woP