Trailing-Edge
-
PDP-10 Archives
-
PCL_FOR_701
-
s.unv
There are 3 other files named s.unv in the archive. Click here to see a list.
x,?K@P BP CH1P#qCHVP C&=A C&=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 CC pCO;wP$CO
SP"CW%xZP DP EMp s EMx@ u E$\YP E,\YP E<.: @XLIST
IF`B <B>,<$XBYP==<A>-1>
IFNB <B >,<$XBYP==<B>>
@ $XBYS==<A>
$XBYT==0
LIST$XE3&^QXEXCTUX(<AE3'CTXU(<AE:4\YP ENMp sENMx@ uESyS
IFE FTMP8,<
CONO PI,PI.OXFF
>
IFN FTMP,<x
IFNDEF LOKBTI,<EXTERNAL LOKBTI>
PUSHJ P,LOKBTI
>SHJ P,LOKBTI
IFE FTMP,<
CONO PI,PI.O8N
>
IFN FTMP,<
IFNDEF UNLBTI,<ExXTERNAL UNLBTI>
PUSHJ P,UNLBTI
>SHJ P,UNLBTI
Eg%[rP F
HuQ |F
LQQ vF
QQ zF*:Q |F]7Q ~FKQ ~F$Q wF&9:Q xFM\@Q }FN`Q vFN]7Q }FT* Q tF^>9Q xFm@Q tFvH`Q tFw Q zFK{Q {FY Q uF%I Q F,Z5Q yF<rQ wFDZ5Q yF([w EX5
DEFExINE C.A(TEXT)< F
C%%%ON <F8A>,<BC>,<TEXT> FX
>
DEFINE A<BC>
EF:xQ8 1P#
30C%%%ON <O%%P>,<OP3%%%D (.SOSLE )>,<A>
G 7Q GD[<P GdX9 Bx)
DECFINE C.A(FTXT)< C8
DEFINE CCX.A(TEXT)<
Cx C%%%ON <A>,<DFTXT>,<TEXT>
D8 >
DEFINEDX A<FTXT>
Dx>
.XCREF C.AE
DEFINE A<>
INE AG
PQ ~8GZP LG"t8VP G2\HKP G2\^P$G2^ P$G3 z g8
SALL
g(ZZ==0 ;SET TO 1 gHIF A VALID ARG ISgh SEEN
IFN FTKIh10,<
IFIDN <A>h( <P4><
ZZ==1
IFNDEF .CPEBRhh,<EXTERN .CPEBR>
DATAO PAG,.CPi(EBR
>
IFIDNiH <A> <0><
ZZih==1
IFNDEF .CjPEBR,<EXTERN .CPEj(BR>
DATAO PAGjH,.CPEBR
>
IjhFIDN <A> <1><
k ZZ==1
IFNDEk(F .CPEBR,<EXTERN kH.CPEBR>
DATAOkh PAG,.CPEBR
>l
>;END IFN FTKIl(10
IFN FTKL10,lH<
IFB <B> <
IlhFIDN <A> <P4><
m ZZ==1
IFNDm(EF .CPEBR,<EXTERNmH .CPEBR>
CONOmh PAG,@.CPEBR
n>
IFIDN <A> <0n(><
ZZ==1
nHIFNDEF .CPEBR,<EXnhTERN .CPEBR>
oCONO PAG,@.CPEBR
>
IFIDN <AoH> <1><
ZZ==1
IFNDEF .CPEBRp,<EXTERN .CPEBR>
CONO PAG,@.CPpHEBR
>
>
phIFNB <B> <
ZqZ==1 ;FLAG THAT q(CPU ARG IS OK
qH CLRPT B
>
>qh;END IFN FTKL10
r
IFN FTKS10 <
Ir(FB <B> <
IFIDNrH <A> <P4><
ZrhZ==1
IFNDEF .sCPEBR,<EXTERN .CPs(EBR>
WREBR @.sHCPEBR
>
IFIshDN <A> <0><
tZZ==1
IFNDEF t(.CPEBR,<EXTERN .CtHPEBR>
WREBR @th.CPEBR
>
>
IFNB <B> <
u( ZZ==1 ;FLAG THuHAT CPU ARG IS OK
CLRPT B
>
>;END IFN FTKS1v(0
IFE ZZ,<PRINvHTX ? BAD CPU ARGUvhMENT A TO CLRPGTw MACRO>
PURGE ZZ
O>
PURGEpZG3G3qP G3H:P G3KP G3@P G3k1P G3}:P G3,zP G7< P"G:|\YP G;&+P G>$\` )p"a X IOW,,SJ*,
X TIOW,,SJ, *0
X DIOW,,DJ,
*P
X PIOW,,DJ,
*p
X SLP,,SJ,
+X EW,,SJ,
X N+0AP,,SJ,
X NUL,+P,SJ,
IFN FTDAEM+p,<
X JDC,,SJ,
>
X STOP,,SJ,
X STOP,,SJ, G>t0 ;ABCDG>t8: G9C.A <B>;C.A <B>G>t@ 0x
XP C$MI`N,C$MIN-1 ;DECREMENT MINIMUM CODE
IFNB <A>,<XP @A,C$MIN> ;SET NEW CODE = NEW MIN
ODEP= NEW@MINQ @G@t<hQ G@t<iQ G@t<iQ G@t<jQ G@t<jQ G@t<kQ G@t<kQ @G@t<|Q @G@v
hQ G@v
hQ G@v
iQ G@v
iQ G@v
jQ G@v
jQ G@v
|Qx?G@vQ@GBexueOD$t\GC-kVgdS$uGJn9QGN$\YPGPu8P\GPu:IPGPu;P`GPu<`PGPv@PGSMtPGSMVPGSMrPP"I7P$I<P 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 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<PtI6=PI6=P I6N8PtI7Iuh9Q Iv)Q Iv*RQ Iv,1Q Iv,5Q Iv8RQ @IvyVQ I0P I"tpQ I&pP I&uQ I':=P I2XP I2l uhL XLIST
vDEFINE WORD(SYMBOv(L)<SYMBOL==.I
vH .I==.I+1>
DEvhFINE DATA(SYMBOL,wDATUM)<SYMBOL==.Iw(
.I==.I+1>
wH
DEFINE PNTR(SYMBwhOL,WORD),<.I==.I+x1>
DEFINE BLK(x(SYMBOL,SIZE),<IFDxHEF SIZE,<.I==.I+SxhIZE>
IFNDEFy SIZE,<PURGE .I>>y(
.I==0
MAP7yH6 ;DEFINE PARAMETERS
LIST
MEI3Ahu ;h
XLIST<
DLX.44=0
D<(LX.76=0
DLX.75=0<H
DLX.60=0
PDP11<hN=0
ZZ=0
REPEA=T 10,<
.DLTYP(\=(ZZ,ZZZ,A)
ZZ=ZZ=H+1
>
;
; DEFIN=hE FOR PDP11'S ON >DTE20'S SO WE GET>( SYMBOLS DEFINED.>H
;
DL10XI==PDP1>h1N
.DLTYP(8,Z?ZZ,A)
.DLTYP(9?(,ZZZ,A)
.DLTYP?H(A,ZZZ,A)
.DLT?hYP(B,ZZZ,A)
LI@ST
XP DLX.44,DL@(X.44
XP DLX.76@H,DLX.76
XP DLX@h.75,DLX.75
XP DLX.60,DLX.60
I6
;P!I7 P I7-@ @I:
\YP I:,\YP I>5@Q }I?(P IHP IJ`P IJn9Q IJpP INHP IN]yS p!
IFE FTMP,<
IF2,<IFNDEF D0SKPIF,<EXTERN DSKPPIF>>
CONO PI,DpSKPIF
>
IFN FTMP,<
IF2,<IFNDEF 0DSKLOK,<EXTERN DSPKLOK>>
PUSHJ P,DSKLOK
>
J P,IN]{@ P!
IFE FTMPp,<
IF2,<IFNDEF DSKPIN,<EXTERN DSK0PIN>>
CONO PI,DPSKPIN
>
IFN FTMpP,<
IF2,<IFNDEF DSKULK,<EXTERN DS0KULK>>
PUSHJ P,DSKULK
>
J P,IN^+P INxP IO,Y SIOPQ~IR\YPuIR,PIR,;"P IR,HbP IR,IP!IR,I"P"IR,hBP"IR,i"P IR-BP IR-BP IR-hbP$IR-iBP IR-j"P"IR-lP IR.`P IZei`P IZf
PQ `Ii
;PYpJ&=`(Kt:Q8KtH:Q Kv<QQ Kv=xQ Kv|ZQ K%X<P
IF@N $XBYP-$XBYS+1,<`EXP <$XBYT>>
PURGE $XBYT,$XBYP,$XBYS
LISTYP,$K;
\YP@ KJ
P _
.N==0
R
pEPEAT A,<ERRJSP (\.N)
.N=.N+1>
0ECOD: SUBI T1,ECOPD0+1
HRRZS T1
p JUMPL M,CPOPJ
JRST STOTAC##
KJy p 5
.DIRECTIVE .XTABM
ERRC0OD (A,B,\B)
P.DIRECTIVE .ITABMIRECTIVE .ITABMKJU\ 4KK;r ?
IFG <B0+1-ECDMAX>,<GENECPD(A,B,C)>
IFpNDEF A,<A==ECODC##>,<A==ECODKK,x
0 c
ECODA::JSP T1,ECODA::KNfXP
KNf
}PKXtEHPKXti4PKXti7P KXuP KXuHVP KXui:P KXumP KXv);P KXv=P KXvJ{P K^
X EV.TK W,SJ ;TAPE KONTRO#HLLER WAIT
X EV.$0REW,SJ ;REWIND WA`IT
X EV.LBL,SJ &h;LABEL PROCESSING' WAIT
X EV.NET,'(SJ ;NETWORK DEVIC'HE WAIT
X EV.NTC'h,DJ ;NETWORK TERM(INAL CONNECT WAIT((
X EV.STC,DJ ;N(HETWORK STATION CO(hNTROL WAIT
X EV).IPC,SJ ;IPCF SYS)(TEM PROCESS RECEI)HVE WAIT
X EV.FE)hI,SJ ;FRONT END D*EVICE INPUT WAIT
X EV.FEO,SJ ;FR*HONT END DEVICE OU*hTPUT WAIT
X EV.+D60,DJ ;DN60 DEVI+(CE WAIT (WAITING +HFOR THE PDP11)
OR THE PDP11)
KbM: SX-
SALL
SxGINST==<PXCT PX.MTEM,[A]>
PXT8GEN(<A>,<DPB,IDPTXB>,<PX.SRC>)
Tx
PXGEN(<A>,U<BLT,PUSH,POP>,<PU8X.SRC!PX.MEM>)
UXGINST
PURGE GINST
PURGE GINKbM< V;
SALL
V8GINST==<PXCT PX.MVXEM,[A]>
PXGEN(Vx<A>,<LDB,ILDB,POWP,BLT>,<PX.SRC>)
GINST
PURGE GINST
PURGE GKbN WxM
SALL
XGINST==<PXCT PX.MX8EM,[A]>
PXGEN(XX<A>,<IDPB,DPB,PUXxSH>,<PX.SRC>)
PYXGEN(<A>,<POP,BLY8T>,<PX.MEM>)
GIYXNST
PURGE GINST
PURGE GINSTKb,81 `H"
IFN FTKL`h10,<
SALL
IFB a<A>,<
DATAO PAa(G,[LG.LAB+01B11]
>
IFNB <A>,<
ah DATAO PAG,[LG.LAbB+<<A3>+1>B11]
>
LIST
>;IFN bHFTKL10
IFN FTKS1bh0,<
SALL
IFB <cA>,<
WRUBR [SGc(.LAB+01B11]
>
IcHFNB <A>,<
WRUBchR [SG.LAB+<<A_3>d+1>B11]
>
LISTd(
>;IFN FTKS10
>;IFN FTKS10
Kb.:=P L@ M
l\YP M,\YP
Mt80Q@Mt;qQMt;|QMv8xQM\*WPM\+PM\,tPM\,wPM\LxPM] Mt<YP MtMwP Mu{QP Mv)P Mv91P Mv=P Mv\P Mv|ZP M$tMwP M$uyP M$v)P M$v=P M,t<P M,u1P M,uM1P M,uj2P"M,um6P M,ux1P M,u{VP$M,v=P!M,v=P @M:4\YP M?)6P MJ
%%%N==0; ;ARGUMENT COUN;8T
IRP A,<
%FR;XAM1(A,\<%%%N+1>);x ;DEFINE MACRO
<%%%N==%%%N+1 ;BU<8MP COUNT
>
IFE <XFTKL10!FTKS10,<
<x ADD P,[%%%N,,%%%=N] ;ALLOCATE THE =8SPACE
JUMPGE P,=XS..EPO## ;SHOULD =xNEVER HAPPEN
>
>IFN FTKL10!FTKS10>8,<
ADJSP P,%%%N>X
>
PUSHJ P,b >x ;DO THE SUBROUTI?NE
?XJRST .+2 ?8;NON-SKIP RETURN
AOS -%%%N(P) ;P?xASS ON THE SKIP R@ETURN
SUB P,[%%@8%N,,%%%N] ;DEALLO@XCATE SPACE
POPJ@x P,0 ;RETURN
bA: ;SUBROUTINE WITA8H LOCAL STORAGE
LOCAL STORAGE
MJ.3P$MJ>93P$MLt+5P `MLu\uP MLuhyP @MLuk5P MLv{P MR
8zQ MR/ Q MR4H2Q MR](P MR]D(P MR^4(Q MRnP MSQ MSHuP MS%H1Q MS5PQ OtXr 0 Q
PRINTX %PECODC IS UNDEFINpED, DEFINE ECDMAX IN S.MAC TO BE 0C+1
A==[MOVEI T P1,B
JUMPL M,CP pOPJ##
JRST STOT
AC##]
IF1,<A==0>]
IF1,<A==Ov<QP$O?I3 HXG
O%%Hx%PD(INTERNAL,A)
INTERNAL,A)
O%%IX%PD(<.NODDT,INTERNAL>,A)
NTEROPt;rQ OPuPtOPu+qPOPv POPv+SP,OPv93P 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 SrTP$St:P!St<tP"Sv
wP SvDXQ @Sv]WQ xSw2Q Sw
vP @SwS$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 S6XP S:h@P S:NH@P$S; P S<P S>
=PS>Y`P8S>=P<@S>}PS>}PS>8P<iS>\PS>{@PS>$T"P<S>$TBPS>$XbPS>$[RP=S>$\BP=S>$\YP"S>&I9P!S>,8|P*S>-iP\S>6=PS>DI9PIS>EI"PKS>L(`P"S>M\P$S>M|PS>NbPS>fI"PyS>t\@P'S>uiP}S>v(uP PS?@PS?BP*S?I"P\S? "P S?K9P=PS?@P!S?HVPS?$[RPS?%I"P9S?-hbP9S?.9UP$S?4i"PLS?5I"PHS?6-7PS?8PS?<0PLS?=I"PLS@rTQS@tUPS@tRPS@t81PS@t82P S@t:2P S@t:7P @S@t;Q S@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 U,wP`p0#yp0#v$Pp0#ycp0#vB%xTUhyP U|P`p0#rp0#o>
Pp0#rcp0#oB%xTU{P$U}P`p0#kp0#hDPp0#kcp0#hB%xTU:=P UP!U{@P U P U,t7Q U,tQ `U,t]PQ U,v\Q U,v|ZQ @U.%h"P U.LP U.M+BP U.v
WP#qSU@t8qP U@tLP#U@t[XP U@uP$U@uY:P @U@u|Q U@vuP UHv(yQ @UHv*9Q UHv+yQ UHv,YQ UHv.Q UHv.Q |UKP ULtXP"ULtpP ULt(UQ ULt,Q ULt9\Q @ULt;Q xULt<xQ ULtI1Q 0ULtI6P!ULtI8P ULtLP ULt^Q ULtlQ ULtnQ ULu
1Q ULuSQ ULuyQ ULuQ @ULuZ3P$ULu\P ULu\uP |ULuhyQ ULukXQ @ULumP ULunP ULu{Q ULu{wP ULvyP ULv
)Q @ULv,P ULv,9P ULv-:P ULv8wP ULv9RP$ULv9VP ULv:8Q ULv:=P ULvIWP ULvN8P ULw`P ULwyP ULwP ULw<P @U\vyP U\vyP U\vyP"U\vyVP 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:'@P V;"vP V;$4 P V;%T@P V;%TTP V;%X P V;%X@P V;' P Wh6P W2
=QW2L89PW2L:PW2MW2MrP W2MxtP W2M}VP W2M}rP W2|:P W6PQ a0W6;P 0WB
=Q WB WOIQ Y
` "
IFNDEF 0CK.BDY,<EXTERNAL PCK.BDY>
IFNDEF pNEWCKS,<EXTERNAL NEWCKS>
SKIPA T02,[770000,,CK.BDYP]
JRST .+4
TDpNN T2,B
PUSHJ P,NEWCKS
ILDB A,B
ILDB Y
y P"
IFNDEF pCK.BDY,<EXTERNAL !CK.BDY>
IFNDEF !0NEWCKI,<EXTERNAL !PNEWCKI>
SKIPA T!p2,[770000,,CK.BDY"]
JRST .+4
TD"0NN T2,B
PUSHJ "PP,NEWCKI
ILDB A,B
ILDB 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 YA
pQ {YA
;P vYBYP 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 YPukP YPulvP YPv;P YPv=6P YZd\YP
Z@ [u@ A(*
AH
Ah
B
B(
.BH.P==B
Bh DATA KII,<JSR D7C0BKI>
C(
WORD ESA,
WORD WNUCh,
WORD NAMD,
DATA EPD(N,<..P>
DH
WORD OK,
Dh
WORD HELT,
WORE(D DWN,
EH
PNTR UPEhT,.C0UPT,
IFDEF MABD85,F(<
IFE MABD85+FHMABD60,<
WOFhRD TTP,
G WORD TTG,
WORD TEP,
GH
WORD TEG,Gh
DATA EHBS,<TEBSB>
H(DATA TBS,<TTBSB>HH
DATA LTO,<DHh7BOFS>
I DATA DTO,<D7BDSI(O>
PNTR STS,STIHATES,
IhPNTR FRN,TTFREN, J
J(DATA AOM,<M7BKIIJH>
Jh DATA TEA,<M7BTEKQ>
DATAK( TTA,<M7BTTQ>
KH
DATA MAX,<M.D7KhBN+TYPNUB>
DALTA NTT,<M.D7BN> L(
DATA PIO,<M7BLHNIP>
BLKLh TTQ,<TTBSB>,
M
BLK TEQ,<TEBSBM(>,
BLK NIP,<TMHYPNUB>
>
IFMhN MABD85+MABDN60,<
WORD SWDN(, ;GLOBAL STATUS NHWORD
;1=DEPOSNhIT
;2=EXAMINEO
;4=ADDRESS IO(S GARBAGE
;10OH=HOLD EVERYTHING
WORD ADR, ;EXAMPINE/DEPOSIT ADDREP(SS
WORD DAT, ;EPHXAMINE/DEPOSIT DAPhTA
WORD REC, ;MQAXIMUM RECORD LENQ(GTH
WORD MOD, ;QHVERSION OF SOFTWAQhRE
WORD TA, ;10R ALIVE IF .LE. 1 R((11 INCREMENTS, 1RH0 SETS TO -1)
WRhORD TS, ;10 STATUSS (0=INITIAL,1=STS(ARTED INIT,-1=RUNSHNING)
WORD ES, Sh;11 STATUS (0=INITTIAL,1=STARTED INT(IT,-1=RUNNING)
ITHFN MABD60,<
ThXP D60WVR,3 ;DN60U WINDOW VERSON
U(WORD MXL, ;MAX LIUHNES ON THIS A
UhWORD LT1, ;FIRST VLIGHTS WORD
WORV(D LT2, ;SECOND LIVHGHTS WORD
WORD VhOPE, ;11-OPERATIOWN:
; 0 = IDLEW(
; 1 = REQUESWHT TO READ DATA
Wh ; 2 = REQUEST TXO WRITE DATA
X(; 3 = REQUEST TO XHREAD DEVICE STATUXhS
; 4 = REQUEYST TO WRITE DEVICY(E STATUS
; 5 YH= REQUEST TO READYh LINE STATUS
Z; 6 = REQUEST TO Z(WRITE LINE STATUSZH
WORD LNE, ;LINZhE NUMBER OF ABOVE[ OPERATION
WORD[( DVE, ;DEVICE NUM[HBER OF ABOVE OPER[hATION
WORD OPX\, ;10-OPERATION C\(ODE
; 0 = IDL\HE
; 1 = READ \hDATA INTO 10
]; 2 = WRITE DATA ](FROM 10
; 3 =]H READ DEVICE STAT]hUS
; 4 = WRIT^E DEVICE STATUS
^( ; 5 = READ LIN^HE STATUS
; 6 ^h= WRITE LINE STAT_US
WORD LNX, ;L_(INE NUMBER OF ABO_HVE OPERATION
WO_hRD DVX, ;DEVICE N`UMBER OF ABOVE OP`(ERATION (1-4)
W`HORD RST, ;RESULT `hCODE
WORD XFR, a;NUMBER OF BYTES a(TRANSFERRED
BLKaH CBP,40, ;COUNTS ahAND BYTE POINTERSb (16 OF EACH)
> b(;IFN MABD60
IFbHE MABD60,<
bhWORD IFL, ;INPUT cFLAGS
WORD IC1,c( ;INPUT COUNT (PAcHRT 1)
WORD ID1,ch ;INPTA POINTER (dPART 1)
WORD ICd(2, ;INPUT COUNT
dH WORD ID2, ;INPUTdh DATA BYTE POINTEeR
WORD OFL, ;OUe(TPUT FLAGS
;1eH=HEADER THERE
eh ;2=FIRST HALF THfERE
;4=SECONDf( HALF THERE
WORfHD OC1, ;OUTPUT HEfhADER COUNT
WORDg OD1, ;OUTPUT HEAg(DER POINTER
WORgHD OC2, ;OUTPUT DAghTA COUNT
WORD OhD2, ;OUTPUT DATA h(POINTER
WORD OChH3, ;OUTPUT DATA ChhOUNT (PART 2)
WiORD OD3, ;OUTPUT i(DATA POINTER (PARiHT 2)
> ;IFE MAihBD60
> ;IFN MAjBD85+MABD60
> j(
IFNDEF MABD8jH5,<
WORD TTP,
WORD TTGk,
WORD k(TEP,
WkHORD TEG,
kh
DATA EBS,<TEBSlB>
DATA TBS,l(<TTBSB>
DATlHA LTO,<D7BOFS>
DATA DTmO,<D7BDSO>
PNm(TR STS,STATES,
mH
PNTR FRNmh,TTFREN,
n
DATA AOMn(,<M7BKII>
DATA TEnhA,<M7BTEQ>
o
DATA TTA,<M7o(BTTQ>
DATA MoHAX,<M.D7BN+TYPNUohB>
DATA NTT,<pM.D7BN>
IFNp(B <B>,<ZZZZ==PARpHBN>
IFB <B>,<phZZZZ==0>
DATA PqAR,<ZZZZ>
IFNBq( <B>,<ZZZZ==ZZZZqH+PCRBN>
DATAqh PCR,<ZZZZ>
IFrNB <B>,<ZZZZ==ZZr(ZZ+PAPBN>
DATArH PAP,<ZZZZ>
IFrhNB <B>,<ZZZZ==ZZsZZ+LPCBN>
DATAs( LPC,<ZZZZ>
IFsHNB <B>,<ZZZZ==ZZshZZ+PCPBN>
DATAt PCP,<ZZZZ>
DAt(TA PIO,<M7BNIP> tH
BLK TTQ,th<TTBSB>,
BLKu TEQ,<TEBSB>,
u(
BLK NIP,<TYPNUB>
>
TYPNU[,P [;ZQ [:=P [$KP @[nH1P$6[nHV@ [$t7@ [$t8P @[$t`P [$uP [$vKwP [&f97Q [&tLP [<t7P [<t8P @[<t`P [<t=P [<uP [<uH1P$[<vKsP [<vKwP [>u|SP$V[>vLQP [B}Z PIFN FTMETRP8,<
SKIPGE T2,MEPXPA##
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 [cXtP [c,-wP ],\YP ]\uP ]P ] XIFNDEF A,<XP <A>,<B>>,]` @\IFNDEF A,<A==B>DEF A,]\YP ]\YP ]$HU XA
IFNDEF xNTLCKJ,<EXTERNAL NTLCKJ>
PUSHJ P,NTLCKJ
USHJ P]$HV X1
IFNDEF xNTLCLK,<EXTERNAL NTLCLK>
PUSHJ P,NTLCLK
USHJ P]$HZ X9
IFNDEF xNTUNLK,<EXTERNAL NTUNLK>
PUSHJ P,NTUNLK
USHJ P]$\YP ]%yS p!m
IF2,<IFNDEF NETPIF,<EXTER0N NETPIF>
IFPN FTMP,<IFNDEF LOpKNPI,<EXTERN LOKNPI>>
>
IFE FTMP0,<CONO PI,NETPIF>P
IFN FTMP,<PUSHJ P,LOKNPI>
SHJ]%{@ P![
IF2,<IFNpDEF NETPIN,<EXTERN NETPIN>
IF0N FTMP,<IFNDEF UNPLNPI,<EXTERN UNLNpPI>>
>
IFE FTMP,<CONO PI,NETPIN>0
IFN FTMP,<PUSHJ P,UNLNPI>
SHJ]2L\YP?T* Q]?
]Jl\YP ]N$\YP ]N4\YP ]ND`P ]O*:P$]O>P ]R$+ XI
IFNDEF xNTLCKI,<EXTERNAL NTLCKI>
PUSHJ P,NTLCKI
USHJ P]R$-3 X3
IFNDEF xNTCHCK,<EXTERNAL NTCHCK>
IFNDEF 8NTDSTP,<EXTERNAL XNTDSTP>
IFNDEF xUUOLVL,<EXTERNAL UUOLVL>
IFNDEF 8INTLVL,<EXTERNAL XINTLVL>
ZZZ==0x
IFB <B>,<ZZZ==1>
IFNB 8<B>,<
IFIDXN <B><EITHER>,<ZxZZ==1>
IFIDN < B><UUO>,<ZZZ==1 8
PUSHJ P,UUOLVL X
PUSHJ P,NTDS xTP>
IFIDN <B!><INT>,<ZZZ==1
!8 PUSHJ P,INTLVL
PUSHJ P,NTDSTP!x>>
IFE ZZZ,<P"RINTX ?BAD SECOND"8 ARG (= B ) TO N"XTDBUG MACRO?>
"xZZZ==0
IFB <A#>,<ZZZ==2>
IFI#8DN <A><EITHER>,<#XZZZ==1>
IFIDN <#xA><YES>,<ZZZ==2>$
IFIDN <A><NO>$8,<ZZZ==3>
IFE$X ZZZ,<PRINTX ?BAD$x FIRST ARG (= A %) TO NTDBUG MACRO%8?>
IFGE ZZZ-2,< %X
PUSHJ P,NTCH%xCK
IFE ZZZ-3,&<JRST .+2>
P&8USHJ P,NTDSTP>
ZZZ==0
]R$-4 XQ
IFNDEF xNTULKI,<EXTERNAL NTULKI>
PUSHJ P,NTULKI
USHJ P]R=R Xa
IFNDExF NTLERR,<EXTERNAL NTLERR>
PUSHJ P,NTLERR PUSHJ]S}P ]SR XY
IFNDEF xNTSAV,<EXTERNAL NTSAV>
PUSHJ P,NTSAV
PUSHJ P,N]^l<P 0]_=P ]bl*:P ^(\ Ju
.XCREJ8F
CCLEAR(O%%PJX)
KCONCAT(OJx%%P,<OP%%%D (>)
IRPC B,<
K8 IFIDN <B><[>,KX<
STOPI Kx
>
ILFDIF <B><[>,<
L8 CONCAT(O%%PLX,B)
>
Lx >
CONCAT(O%M%P,<)>)
O%%M8P
.CREF MX
OPDEF B Mx
.XCREF
N IRP A,<
N8 O%%P%D(A)
NX >
.CREF
>
.CREF
^. 2p#OP%%%D (.SOSLE )P%%%D (.S^.2 /0"{
A .SOSLE
A _,h@P!_
tRQ _
t(rQ _
t(tQ @_
t(vQ _
t({Q _
t,zQ @_
ti8Q _
tm8Q _e|qP _@(Q2 O}
DEFINO8E O%%P%D(OP)<
OX OP A
>
OP A
>
_W$)QP @_W&@P `@ `D@ `H@ `L@ `P@ at Q at<Q atzQ @at|tQ at|xQ auP auHuQ auhyQ aunQ @au}:Q avrP avtP av2P av4P av)2Q av|ZQ aw)9Q a<9"P a<:"P a="P a=P a=bP a=P a=I"P a=Y"P a=Z"P a=lP a=lbP a=m6P'~a=mBP a>:P a>H1P$a>HVP a>YBP a|\YP a[@Q @a
tVP a
tZP a
t*9Q a
t>(Q a
t>(Q a
vPP a
vQP a
vJ6P a
v]7P a
vzQ @a
v|yQ ad)Q 'h@ad*;P <atH2Q atLQ atlxQ auQ avP$avYQ 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
P$av
P"av
P!av
P @av
P av
P av
P av
P av
P'~av
TQ av
VQ av=qQ avXtQ auxP aunP av9P av
av\yQ @a HP$a HP"a IP!a IP @a JP a JP athP athQ atiQ atiQ 0atrQ atLuQ atX:P at\P auI1P$auM1Q @av;Q av\Q xa"}kP$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$v8kP a$v8kP a$vIXP a$vKXP a&m[rP a&|i@
IFE FTMP
IFNDEFESYSOFFFF>
CONO PI,SYSOFF
>
IFN FTMP,<
I8FNDEF LOKDPI,<EXTXERN LOKDPI>
PUSHJ P,LOKDPI
>Sa&}`
IFE FTMP8,<
IFNDEF SYSON,X<EXTERN SYSON>
xCONO PI,SYSON
>
IFN FTMP,<
IFND8EF UNLDPI,<EXTERNX UNLDPI>
PUSHJ P,UNLDPI
>SHJ a*n r@5va*n\4`a+=+a+=+a+-ta+-\4@a+-\5`a+-\4ua+-\5@a4tqP$a4t<tP a4v
P aZexuP aZv<P @a[MP a[0P a[6P a[&,P a_h6P a`t.:P a`tX1P a`uY6P a`v<QP ab@ +@abM: S
EXCTUU(<A>)
EXCTUU(abM< R
EXCTUX(<A>)
EXCTUX(abN RX
EXCTXU(<A>)
EXCTXU(ab<[@ Z(n
ZZ==0
ZH IRPC A,<
ZZ1=Zh=0
IFIDN < > <[A>,<ZZ1==1>
IFI[(DN < > <A>,<ZZ1=[H=1>
IFN ZZ1,<ST[hOPI>
IFE ZZ1,<
ZZ==ZZ_6
ZZ==\(ZZ+'A'
>;END IF\HE ZZ1
>;END IRPC\h A
IRP B,<
]IFE <ZZ^!'B'>,<G](INST==<PXCT C,[]HA]>>
>;END IRP ]hB
PURGE OPCOD,ZZ1
RGE OPCODac=LtP cV,tP cV,vP`p0#|jp0#|C&=cV,yP cV,QP cV,htP`p0#p0#|p0#jp0#|C&=cV,hvP cV,hwP`p0$p0#p0$p0#|p0#jp0#|C&=cV,kP cV-vP cV-+qP cV-KTP cV-X]P cV-{TP cV-{VP cV-{WP cV.9P`p0$p0$p0$p0#|p0$jp0#|C&=cV.Y9 %P"3 X RN,7,DJ%p,
X WS,6,SJ,
X TS,6,SJ,
X&0 DS,6,DJ,
X PS,6,DJ,
X PScV.[TP cV.[VP cV.\wP d@ etzP 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 @evvP!ev,P ev,8P ev,9P ev88P 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
@ p
e8@ pBe= pFe,,@ p*eF8@ pLeMm pJeMp r@eMx@ t@e pe\@ pDe@ p@e%2 pHe,,@ p"e%{8P euX@P e]P eKy _h
EXECAC `(A)
MOVSI 17,B
BLT 17,17
e&:x z(=
IFNDEF zCPOPJ1,<EXTERNAL XCPOPJ1>
JRST CPOPJ1
JRST CPe!
pQ }`e!
;P Ve!pQ ue!;P Je#<]VP e3=|RP
eVpP$eVtVP$@eVu\uP e^
X AU,4,'DJ,
X DA,4,DJ,'0
X CB,4,DJ,
'P X D1,4,SJ,
X 'pD2,4,SJ,
X DC,(4,SJ,
IFN FTLOC(0K,<
X CA,4,SJ, (P>
IFN FTMP,<
X(p MM,4,DJ, >
X E)V,4,SJ,
IFN FTE)0QDQ,<
X EQ,4,DJ,
>
EQ,4,DJf@ g4P ^(z
EXECAC ^H(A)
MOVEM 17,^hB+17
MOVEI 17,_B
BLT 17,B+16
MOVE 17,B+17
MOVE 17,B+17
gt;P g
ez` i S$u gDbP gDXBP gDY Am@QgDkBP gEZ"P gEhbP gEjP gElP gFXbP gFYBP gFZBP gF\"P guyS 0!I
IF2,<IFNPDEF SCNPIF,<EXTERpN SCNPIF>
IFN FTMP,<IFNDEF LO0KSCI,<EXTERN LOKSPCI>>
>
IFE FTMPp,<CONO PI,SCNPIF>
IFN FTMP,<PUSHJ P,LOKSCI>
SHJgu{@ !7
IF2,<IFN0DEF SCNPIN,<EXTERPN SCNPIN>
IFpN FTMP,<IFNDEF UNLSCI,<EXTERN UNLS0CI>>
>
IFE FTMPP,<CONO PI,SCNPIN>p
IFN FTMP,<PUSHJ P,UNLSCI>
SHJgP g=X@P g P gt81Q `gt\P gu:8P guH1Q @guM1Q gv1Q gvI7P gv\P g"0P g#93P"g#,iV 7t<hQg$twP ?g$t;hP g$t;iP g$t;iP g$t;jP g$t;jP g$t;kP g$t;kP g$t<P g$tHUQ g$uP @g$u P g$u P g$u
P g$u
P g$uP g$uP g$uP g$u{@Q @g$v
0P @g$v
HQ g$v
IQ g$v
IQ g$v
JQ @g$v
JA g$v
KQ g$v
KQ g&=h6 wPi
IF2,<IFwpNDEF PSICND,<EXTExRNAL PSICND>>
x0IFNDEF A,<
xPPRINTX ? A IS NxpOT DEFINED IN FILyE S.MAC!
XP y0A,C$MIN-1 ;CONDIyPTION YOU CAN NOT ypENABLE
>
zIFGE <A><
Pz0RINTX ? A IS NOzP A NEGATIVE NUMBEzpR!
XP A,C$M{IN-1 ;CONDITION Y{0OU CAN NOT ENABLE{P
>
HRROI T{p1,A ;SETUP COND|ITION
XCT NOPIS|0K## ;SKIP IS USER|P IS NOT ENABLED
|p PUSHJ P,PSICND ;}ENABLED, CALL SIGNALLER
LLSIGg',\YP g+ - g/<
IF2,< IFSKA,<EXTERNAL .CPSKA>>
XCT .CPSKA
g0t:Qg0t:Q g0tJ7Q g0t\YQ g0tlSQ @g0urQ g0uxQ g0uQ g0v:7Q g2
BE GBYT(.FSSIZ)
$S@LALL==.FSMIN
RE`PEAT .SLMAX,<
XBYT($SLALL)
$ SLALL==$SLALL+1
@ >
XBYT(.FSFNC`)
XBYT(.FSSTP)
ENDBYT;
LIST ENDBYT;
LISTg29Y :ST5[rg2;5 <I5h6g2< >I6
g2,\YP
g2-\ |XLIST
BE
GBYT(.FSSIZ)
XB
YT(.FSFNC)
XBYT
h(.FSEND)
REPEAT A-1,<XBYT(0)>
@ XBYT(.FSSTP)
ENDBYT;
LIST Eg2.i6P g2L9 P g2d\YP g:P$g:4\YP g;\YP g?I3 GxA
O%%H%PD(.NODDT,A)
D(.NODDT,A)
g@t8hQ @g@t:HQ g@t:HQ g@t:PQ |g@t<P g@t<P g@t<HP g@t<HP g@t<PP g@t<sP g@tLsP @g@t\sP!g@ti4P g@u8P @g@u
Q g@uRP g@uZP g@uyP"g@uQ g@uP g@ui2Q g@ulHQ g@ulHQ g@ulPQ ~g@unP g@v RQ g@v
0P g@v+xQ g@v8hP g@v8hP @g@v8pP `g@v;8P g@v<Q g@v<sP gCN93P$gCNH1P#qqgCNHVP gHtvP gHt<qP gHtJ2P gHtLqP gHv=P gLv>9P @gP,{Q @gP,[9P!gP-Q gP-LqQ gP-YQ gP-hyQ gP-i9Q 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- '8A
CONO PI'X,PI.OFF
CONO A'x,(T1)
HLRM T1,(ACON
CONO PI,PI.ON
CONO PI,PIgR
` #")
IFNDEF #0CK.BDY,<EXTERNAL #PCK.BDY>
IFNDEF #pNEWCKO,<EXTERNAL $NEWCKO>
SKIPA T$02,[770000,,CK.BDY$P]
JRST .+4
TD$pNN T2,B
PUSHJ %P,NEWCKO
IDPB A,B
IDPB gR~r (XS
SALL
CONTYP==^O17 )
IFIDN <A><.>)8< CONTYP==0>
IFI)XDN <A><.+1>< CON)xTYP==1>
IFIDN <*A><CPOPJ>< CONTYP*8==2>
IFIDN <A><*XCPOPJ##>< CONTYP=*x=2>
IFIDN <A><C+POPJ1>< CONTYP==3+8>
IFIDN <A><CPO+XPJ1##>< CONTYP==3+x>
ACTTYP,==-1
IF2 <
IF,8B <B>< PRINTX ?M,XISSING STOPCD ACT,xION - SEE %%.C I-N CREF>>
IFIDN-8 <B><HALT>< ACTT-XYP==0>
IFIDN <-xB><STOP>< ACTTYP=.=1>
IFIDN <B><.8JOB>< ACTTYP==2> .X
IFIDN <B><DEBU.xG>< ACTTYP==3>
/IFIDN <B><CPU>< /8ACTTYP==4>
IF/XL ACTTYP,<
IF2 </x
PRINTX ?STOPCD0 C IS IN ERROR -08- SEE %%.C IN CR0XEF
>
%%.C::
0x ACTTYP==0
>
I1FB <C>< PRINTX ?18STOPCD WITHOUT A 1XNAME. -- SEE S.. 1xIN CREF>
IFE A2CTTYP,<
S..C::!28JRST 4,A ;ERROR2X C
>
IFN ACTTY2xP,<
IFNB <D>,<A3CTTYP==ACTTYP+10>38
IF2 ,<IFNDEF DI3XE,< EXTERNAL DIE>3x>
S..C::!PUSHJ 4P,DIE ;****** C48 STOP ******
SI4XXNAM==<SIXBIT /C4x/>
SIXNAM=SIXNA5M_<-^D18>
IFN <C58ONTYP-17>,<
IFB 5X<D>,<
BYTE (9)5x^O300(4)ACTTYP(1)60(4)CONTYP(18)SIX68NAM
>
IFNB <D>6X,<
BYTE (9)^O306x0(4)ACTTYP(1)0(4)7CONTYP(18)[D,,SI78XNAM]
>
>
IFE 7X<CONTYP-17>,<
IF7xB <D>,<
BYTE (89)^O304(4)ACTTYP(881)0(4)CONTYP(18)S8XIXNAM
>
IFNB <8xD>,<
BYTE (9)^O9304(4)ACTTYP(1)0(984)CONTYP(18)[D,,9XSIXNAM]
>
JRST9x A ;RECOVER FRO:M C STOP
>>
P:8URGE CONTYP,ACTTYP,SIXNAM
ACTTYgR~
7P"
gS'HP gS'SP gX,]P gX,;wP @gX-
9P$gX.:P"gX.>6P gX.|ZP!gXtJ9P gXt[RP g_P ggI;P gg
3 XM
IFE FTMPx,<
CONO PI,PI.O FF
>
IFN FTMP,< 8IFNDEF LOKSPI,<EX XTERN LOKSPI>
PUSHJ P,LOKSPI
>gg
7
e
IFN FTMP
8,<IFNDEF UNLSPI,<
XEXTERN UNLSPI,UNL
xSPT>
IFB <A><PUSHJ P,UNLSPI>
IF8NB <A><PUSHJ P,UXNLSPT
CONO PI,PxI.ON+A>
>
IFE
FTMP,<
IFB <A><
8CONO PI,PI.ON>
I
XFNB <A><CONO PI,PI.ON+A>
>PI,hD@ hH@ hL@ hP@ iyS !%
IF2,<IFN0DEF TPIOFF,<EXTERPN TPIOFF>>
CONO PI,TPIOFF
ONOi{@ !
IF2,<IFN0DEF TPION,<EXTERNP 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&|P ri&|X@ ti&}` r i&}h@ t i7L\YP i:
\YP i::P i<t::P$i<t=P i<v
SP i<v
XP i<v
YP i<v::P @i@tE
P i@tEP i@tEHP i@tEjP i@tEkP 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 idty7P iduKP @iduYP idu\P igX<P j@ k
^P'fk
]6P k
yP k
Mj:P krzP ktzP kunP kv P kv 3P kv ZP k$rzP k$tzP k$v P k$v ZP k&}[rP k6~i qk6~i6 q k:5QP!k:vP k:+2P"k:,P!k:D,P"k:MP @k:[TP k:i2P @k:9Q k:,[P$k:=P k:=P'f k:K7P$k:hZP @k:t\YP k@rzP k@tzP k@t<xQ k@ty:Q k@uYxQ k@u[P k@u[7Q @k@u\Q k@v P k@v WQ k@v ZP k@v qQ k@v80Q k@vzQ k@v|yQ kBEkP"kN.(1 dh4
IFN FTKLe10,<
SALL
DATe(AO PAG,[LG.LAB+11eHB11]
LIST
>;IFehN FTKL10
IFN FTKfS10,<
SALL
WRf(UBR [SG.LAB+11B11fH]
LIST
>;IFN FTKS10
>;IFN FkO[rP kSP @kTt81P @kTt90P kTt<P$kTtX P kTuI0P `kTuI9P kTuIZP kTuY0P
`kTu[YP kTu\uP kTuh6P kTuhvP @kTvxqP kVtP kVt^P kVuh6P kVv
P kV}Ku '5x2PkV}k )6
tPkWDzPmkWDPHkWD: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 oJ
@ poJ8@ pRoJ= pVoJ,,@ p(oJF8@ p\oJMm pZoJMp r`oJMx@ t`oK poK\@ pToK@ pPoK%2 pXoK,,@ p&oNH1P#qoNHVP oPukyQ oPul[P oPv-zP$oPv}Q @oRluP |ocLtQ {p +hf
IFN-hB <A>,<A==:%%%O,FF>
IFNB <B,(>,<%%%OFF==%%%OFF,H+B>
IFB <B,h>,<%%%OFF==%%%OFF+1>
TATE CODEqN@ .XLIST
$X BYT==$XBYT+<A>B<@$XBYP>
$XBYP==$`XBYP+$XBYS
IFG $XBYP-^D35,<
E XP <$XBYT>
$XB@YP==$XBYS-1
$X`BYT==0
>
LIST==0
>
LISq
tk{Q q
tm3Q q
uiQ q
u}SQ @q
vLXQ q
vZ7Q q
v\yQ q$t<P"q@ TA==:B@q@t8sP q@t;P q@tIP$q@uMP$qB` RA=BqC "gA=:BHxq`P ut)P ut,P utkP uu P 0 P '
IFL LOCpFLG,<HILOC==.
LOCFLG==1
LOC 0ABSLOC>
IFE LOCPFLG,<LOLOC==.
pLOCFLG==1
LOC ABSLOC>
LOC "Lz p
IFE LOCFLG,<LOLOC==.
0LOCFLG==-1
RELPOC HILOC>
IFG LpOCFLG,<ABSLOC==.
LOCFLG==-1
RELOC HILOC>
2N@ 0 +
$HIGH
LIT
$HIGH
2~p
IFL LOC0FLG,<HILOC==.
PLOCFLG==0
RELOpC LOLOC>
IFG LOCFLG,<ABSLOC==.
0 LOCFLG==0
RELOC LOLOC>
RE J-Kq }P}
SALL
}pTWOSEG HIORG
RE~LOC HIORG
LOCFL~0G==-1 ;0=LOW SEG~P
;-1=HIGH SE~pG
;+1=ABSOLUTE LOW SEGMENT
0HILOC==HIORG
LOPLOC==0
ABSLOC==0
0
ABSLOC==
-ySP ( Ax
DEFINE BA,<-B(P)>
IFE FB8TKL10!FTKS10,<
>L10!FTKS10,<
>$@`.$K.@t86B@~0:D=iP DLP DMhP DMhP DMiP Dh{P E{P EIP EM2P E\P EnP F>9P FH{P nNP S@P 8:P 8sP 8wP 9P ;3P ;7P ;SP ;WP <P =P >P fN8 -HZ IFNDEF M0.AD85,<M0AD85==0.(>
IFNDEF M0AD.H60,<M0AD60==0>
IFNDEF TYPNUA,/H<TYPNUA==0>
I/hFNDEF M.D7AN,<M.0D7AN==0>
B=TY0(PNUA+M.D7AN+M00HAD85
IFN C,< I0hFN B,<XXICHN==SC1NCHN>>
TP.DLA=1(=0
B==0
IFN1H TYPNUA,<B==B+1h1>
IFE TYPNUA,<2IFN M.D7AN,<B==2(B+1>>
IFN M0AD2H85,<B==B+1>
IF2hN M0AD60,<B==B3+1>
IFG B,<
B3(=B-1
IFG B,<
3H IF1, <
PRINTX 3hWARNING: DL10 PDP4-11 NUMBER A HAS4(
PRINTX MORE TH4HAN ONE OPTION
P4hRINTX FROM THE SE5T: DC44, DC76, DA5(S85(OR DC75)
PR5HINTX AND DN60.
>5h
> ;END OF IFG6 B
IFN M0AD85,6(<
TP.DLA==TP.D86H5
DLX.75==DLX.756h+1>
IFE TP.DLA,7<
IFN TYPNUA,<7(TP.DLA==TP.DLA+7HTP.D44
DLX.44=D7hLX.44+1>
IFN M.8D7AN,<TP.DLA==T8(P.DLA+TP.D76
DL8HX.76=DLX.76+1>
I8hFE TP.DLA,<IFN F9TDN60,<
IFN M09(AD60,<
TP.DLA==9HTP.D60
DLX.60=9hDLX.60+1
>
> :;END OF FTDN60
>:( ;END OF IFE TP.D:HLA
> ;END OF IF:hE TP.DLA
IFN TP;.DLA,<PDP11N=PDP;(11N+1>
> ;END OF IFG B
END OF `<P <vP$9P$<P <qP <qP KP LP LqP LqP MP NP Z5P m6P qP qP P 9P :8P ;P
;P <P <wP LP X3P \P \qP \rP \sP$nP yVP
6P$<P ;\P <P =rP H8P KP LP zP <P$.8P$D: *$81P $82P $;P $;P $<P '
:P X`P#@[RP kQP lwP X<P Z7P :=P =P K8P P "eK P@"eN@ R#+ X@#+y \`#.Y Z`&~+ G@*
`P#x*
hP#z*
iP#|*$P#r2$ 2lXTP "2lXVP "2mXTP #2mXVP #2n WP !2n XP 2n [P 3X`P#p6<P 6m@Q 6,:yP @6.,P @6., P @6., P A6.,
P A6.,
P A6.,P A6.,P B6.,P @6.-6P B6.\P @6T,P 6T, P 6T,P 6TH:P 6~i 6~i6 @6~k@ "7<P B7$[8P 7.8P 7.\P 75)P >luP'?7P @?P'|?*XP!?I6P"?I9P!?K9P!?lxP"?QP ?HSP ? P$?,QP ?:2P B
x0P B
xpP B
xrP B
y6P B
ypP B
z7P B
|VP B
}yP B%xTA B%xTBmY9P NkQP Nk1P N%X<P N.NV @@N] 7N] 6@N] 7`N] 6 N^ r 7 N^ 6`NeP NeX<P Ne^P Ne^P Nf
qP Nf
rP NfyP NfyP N~0 >N~;=>`OP O9P O9P OLP OP O
R"+1P
R"+9PR-\P#vSLVPSL9P SL9PSLElPSLJ9PSLLPPSLLuP SLMP SL\zP SM@P SMZP SMLP SMLP SMX7P$SMXyP SM\P
SN)P SN<P SNLuP SNMP SNh9P SN}P SO
WzP WPP oWzP W-P nW=P {W[RP |W\P WhqP yWhrP zWhzP zWiZP hWkxP pW
rP mW
yP mWzP oW+qP lWIZP iWKVP {WLP \WLzP yWY6P lW\P#pW]P W]P
W]7P
W]8P
W]XQ 0WnP kW P W TP pW ZP W)6P jW;P ]W=tP zWK1P kWK4P jWK8P ]WMQP WX1P `W\P WhzP iWlZP nW.8P#pWD:P WFLVP"ZTMP#t_$zP _$I9P
_%h6P _%|YP"_&NP _&YQP
>}{woP