perm filename PRM11.PAL[KL,SYS]8 blob
sn#299821 filedate 1977-08-16 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00043 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00005 00002 .SBTTL *PRM11* DECSYSTEM10 PDP-11 PROGRAM/SUBROUTINE PARAMETERS, 4-AUG-75
C00007 00@`f∩]M¬))_% ≠(A⊃
∪≥%)∪∨≥L~∃ε`@`b`@@```h%) → Q3!
A=+)!+PA
%≥∪)∪=≥&~∃ ```bL@```@j∪≠∪Mπ →→¬≥ ∨+LA
+≥
)∪∨≥L~∃ε`@`bl@@```l%π∨≠≠U≥∪πβQ∪∨≤AI∨+)∪9 &~∃ ```bd@```@n∪
aπ(z∪∃≠(BbDh∪ ∪¬∂≥∨'Q∪εA
U≥π)∪=≤A 1∃π+)
4∃ε``@db@`@``p∩9'¬))0∪≠βπI≡A →∪≥∪)%∨≥&~)ε```Hf@``@`r∪¬¬'∪εA5βπ%∨L~∃ε`@`dh@@``b`$]≠βπI≡∪'_%% ∞Y9)≤∧4T→AAA∪)↓AAβ D&N$
:∩ε∀!αBJ|:Jε5∧
NN&<r6⊗:%_4*
εββ∪tεβββ⊗!∀∀MDλ∃≥≤_ydl,jJ0hT6 εεNλ εε ,b(9⊂4P(:⊃4Td
4q1↓QPl_ →X⊂_ __Z∧K)a**∪⊂∧b*⊃Y_⊂"⊃jαICE REGISTER AND BIT DEFINITIONS, 4-JUNE-75
C0@`ff@@``bj%¬∪(A¬''∪∂9≠ ≥)LAλ
>∩↓EA= α&:$*J~ε≤)αJ⊗<JNR⊗∃_4*
εββ≠dεβββ⊗a∀∀MDλ∃≥≤_ydl,jJ2∧ RtHλI01lD¬∃tR*HTFE⊂X__38 00@bh &∀JQαε≥~&≡:l(8¬%4λd⎇∩
:D
%Z4αE=)~D*HQ(3ββεF∩ββεε∪@L9It≤Zλ9tp
∀Ss∧λU3PjI3sTaQPl_ ~→P_ __\DPi fP⊃*g!j∩gg)FB!X_045 0@`d`∪⊃β)αAAβ)⊂A
∨≥)%=_A
+9π)∪∨9&~∃ε@``hl```dD∩]'¬Q)_∪↔0b`A ∨0A≠¬π%≡A⊃
∪≥%)∪∨≥LX@h[)+≥
Z\j~∃ε@``hp```dH∪≠βπI≡@A)<A∂ ≥∃%β)
↓αA%∪≥⊃(A∃U')∪
% λ@f5¬3)
↓-β→+∀~∃ε`@`j`@@``df%)⊃∪&↓∪&Aα↓≠βπ%<A)≡A]β∪(A→∨$Aα↓ ∨≥
↓
→β∞4∃ε``β↓UI↓εββ∪A∃e≤∃JI@JT((BPLJHS∪αλHU4L8T¬∀,y~5$-$λ∀t"λ)∃"∧HXdLt~I∀|u5Dβ∩l(→bk;QQ$≠βε
&T ε&"(∃ λ(⊃SiI∪ur)hh∪0(:Sh
λJ⊃5Q(5(⊃⊗)h320iK(⊂siZ∃5⊃*4∃∩⊃$ 3U⊃**U4∃↓QPl εε.λ εε MB()5λ⊂*:r1sIX3U∀dλStHλI01l$¬∃tR*H*#"H6
F∧ ε&b0R*D⊂4ti_sS1)j∀h⊃IzH∀uλ~∃4h¬
tR5λU#"Pfε
LDε G↓(⊃U)hu∩3id∀q3λXuλ⊂ix⊃4c!(l _
4 0@`dr∪I βλ`$zbb`$A!∩@@@Q%∃βλA'Qβ)+&`R~∃ ```lT@```L`∩]' ))_∩)¬¬λT%↔_b`↓ ¬∨0↓≠βπ%<A
%≥∪)∪=≥&X@P[≠β$4nj~∃ ```l\@```Lb∪≠β
%≡@AQ≡A∂ 9 %β)∀AαA%%∂⊃(A)+')∪→∪ λ@L[¬0ε$)αZεe*∀4*≠↓AAY↓∀βββε6 M$ ~2∧M4λ∩∧l_:$z¬It¬< ~D∧4⎇$λ∩∧$xhR∧ S⊂1aQPl_ ≠XP_ _→YDK)a**∪∧b"k∩abP)Vfa'fλ""c$S$j$gS)V⊂~ e*g"K[ZFE⊂X__74 00034 .SB↓))_%↔.bb↓ -∪
A% ≥∪') I&Aβ≥⊂A¬∪(↓
∪9⊃(α&|rM1↓"j*V:*i]T4T→AAA;)↓AAβ→T%:≤∩RR0L"1EE∧"⊗P∀_8R¬∀Xy∃≥$Z*2∧ hD∧∀MDλD,4→i∃$Lyj2bβEY%,tUVs(h(6βββw∧βββε6`Ju8*E$`_Iβ
λHU4L8T¬∀,y~5$-*4∧ tDλ$M"λHT4Li~DL|j5Bβ"Y*Tt*VvPhT6 επ ( εε mb$λR5λλH1R3I
$gg∀P#'iλ⊃"$&∀)⊃⊗P∪$g"P∀ i fQj"i⊂∀"cdiU"i↔εB!X_083 0@`fp∩9'¬))0∪)αbD@QπβM' ))∀RA Y∪π
AI ∂∪'Q $Aβ9λA¬∪PA
%≥∪)∪=≥&X@P[∃+≥∀Znj~)ε```βAU↓Aβ↓Md%u~λ¬%IA∃∃C⊗∃u∃Cε∀αD S∪t
*(∀HXr4uλZTh⊂)hλ⊂R*D⊃⊃1I→R5∩)yTkλε&K2U)K+-m!QPl_ ≤≠P_ _~_∧K)a**∪∧j!XLP∀""Pj h"JP""k∩abP)⊃cdij⊃i)P S"⊂!$U⊂""c∩g$j$Sg)V⊂
⊗e*g⊃V[ZFB!X_089 0@`hb∩9'¬))0∪%⊂bD←% `β!αJ⊗<JNR⊗∩αε:⊃∧∩&Qα$*~&:M"&>:~a↓Q6U*:∃5;(4*
εββK$εβββF!∩u≤*JD`LJε#α¬(XtM≥HZ"∧ hD∧∀MDλD,4→i∃$Lyj2bβ&uTU,hUS;(Q(3ββπ⊗RββεεC_LJ94$m∧λ$|⎇J:E∀
∧
∧
∀→XU$-*1PT≠εεβK2λYd$l1Q$→31Q bu8*E$`∃*¬∀k⊗∃"∧$X:5M≥HYS α
λEαk⊗∀¬¬∀xz$ jz:T∃∀zZDLtT
∧
∀→XU$-*5Bβ"X~T:kvQPPh':¬∀|z(∀j∧9ye%∀yD¬≥<~H4D-1Q hT_)u∃#Q⊗∪ββεεHK8_$⎇∃Dλ∃"¬
)t=∀→T¬∧
:4∧≤|Z D%$→y`hPQ*%≥$~*ChKFεββ⊃↔5∀-:H**λ∃⊃*:β"U z⊂3∀gQ,L εεα".j
R3U∧
⊃4u∧
∪u⊂)Jc"SIz∪U∂!⊗, _ ∧D↓;INHIBIT ALL PRINT H∂+P@Q 1
!(A→∨%π ⊂R~∀~)!≥)→A(z∩h@``∩∩m!%∪≥PA∨≤A1∪≥
[A%∪≥)∃$~∃ %≥∞z∩H```∩$w%∪≥≤A))2↓¬ →_↓∨≤A H%∨$~)→∨∨!∃$z∩b@``∩∩m→∨∨ ↓∨≤A H%∨$~(~∃ %M)∨ zh``∩$w⊃β→PA∨≤A∃%%∨$4∃!β→∃%&z∩H``∩∩m!%∪≥PAβ→_↓ %%∨I&~∃%∃→∪β∧t∩b``$∩w% 1∪β¬∪1∪)2AI+≤A≠=
~∀4∃)1)%≥⊂z∩P`∩∩wQ 1(A%≥⊃∪¬%(~∃∪9⊃!β∞t∩d`∩$w∪≥⊃%¬∪(AAβ∂∪≥≤@Q! @Zb`R4∃≠∨ ⊃-εz∩D`∩∩w5∨ ∪
dA -%∧ε∃α≤z∩∃↓Eα∩A5 ↓$4(hR&:"≥~!t% H%n&tB&
&"α∞ε∞D)↓"B%↓5EAHh*>B∃~⊗1tK⊂$%n⎇α⊗Jε$zIαN,b⊗∞RLz84*≤Bε&9hID$%\~"ε&rα∞>:%∩>1α≥:&R∞@h(1:N∃"R0&,jQα∩,2&:&$J>:LhQn>B-∩εR>∩α∩⊗~Lr&P∧→ybαj
:T∃∀zZDLtTλ4 dJ1PPh(h∃$ GQ∀,mD⊗K\h~D b
$p_tP3)Y3QhλZTStEa"Q4J)∪∃∂!_35λ&⊃.t∀I`ci fH$ f* ⊂'g&⊗P$c⊂λ"i)j∪h⊃⊂)Udj!dλ)bjεB()#d∪*≡DbSj⊂Y∧Nh)'cT fP$⊂f*⊗⊂⊃'g∪jλ!d"aRP)kdU!dεE∀*g&(∂DbfjλXD]aSg)gf⊃P$b&⊃P)*gλ&'ghβE"#&⊃c`f≡Qfj⊂Y ≠∧]b∩`cg'Tj$aP⊃*g!j∩gg⊂&⊃c`f$U,P!d⊃aeFEβD≥j"S"j,h⊃P$g(∃j⊂""Q$g$j∩gg)FB≥P∃∃
⊂!`f∪⊂)bhUbg!bH∃∃∃εB≥P⊂*∃⊗VVVCE≥P⊂∀"j*iβ, C BIT SET FOR NO/ERROR RESPONSE
TTILIN= EMT!4 ;READ TTY LINE INPUT INTO BUFFER
TTILN↓.z∪∃≠(BdHh∩w%∃βλA)Q2A→∪9
A∪≥A)(XA]β∪(A→∨% -∃$~⊂
%"&∞∞ch&⊗6" IITKZBJ>≤*NMα%"eα&uαVQα5∩8 j →d$M(X5"∧89B∧∃Xhd-⊂Q*E$L9
#hLYZB (↔9∀u¬ZD∧
∧9λ∃∀ :HU∩∧j)tj∧*Xd4-!Q%%$(_4[h_YU" ⊗F@K\(_4]-∧ ∀u¬ZD¬∧|→jD-⊂Q*E$dyy3hLYZB 0↔9D||4λd⎇∩λ∀¬%%∀ ∀u¬ZAPU%I→t≥#Q_Tm"⊗q∪\Lj
U"∧→d∧|≥H→B∧uYX$-∩λj$|jλ*T44Z!PU%H9t≥#Q_Tm"⊗⊗K\→j¬-"∧d∧≤DX92∧|:H∀bb
*Dr∧_d∧|XQ*E$|:HShLYZB ∪ε↓∪\Lj
U"∧ZhTr∧x:D b jTl∀Z!PU%I_D,≠Q_Tm"⊗⊗⊂K\→j¬-"λ∀∧$,9→T b jTl∀Z$∧5∀yT∧∃,hhU⊂hU∃ ≠14↓↑Bbfj⊂LX∧]`TeP,bTVg'Vλ'⊂!$U⊂'g⊂∪'V⊂!H!$j⊂∀bj⊂'S⊂"i)∪iεE*∃ f*&ODbfjλXYD]Pf*⊗fS↓DE CHECK, C BIT SET IF NON-ALT-MODE
TTI36= EMT!14 ;READ 36 DIGIT NUMBER FROM BUFFER
TTIBRK= EMT!15 ;GET NUMBER INPUT BREAK CHARACTER
TTISDL= EMT!16 ;SPACE DELETE, C BIT SET ON NON-NUMBER
TTISDO= EMT!17 ;SPACE DELETE & OCTAL INPUT, RTN IF OK
TTIS36= EMT!20 ;SPACE DELETE & 36BIT INPUT, RTN IF OK
TTICRA= EMT!21 ;INPUT C-RAM ADDRESS
TTITRM= EMT!22 ;CHECK INPUT TERMINATOR, RTN IF OK
TTBTRM= EMT!23 ;BACKUP, THEN "
TTERM= EMT!201 ;NUMBER TERMINATION CHECK, C BIT SET IF ERROR
TTPINI= EMT!217 ;INITIALIZE INPUT & OUTPUT BUFFER POINTERS
;TELDTYPE OUTPUT DEFINITIONS
; *** CALL SEQUENCE ***
; MOV ARG,R0 ;IF CALL REQUIRES AN ARGUMENT
; P-----
PNTAL= EMT!24 ;PRINT ASCII LINE, ADDRESS IN R0
$PMSG= EMT!25 ;PRINT MESSAGE, TRAILING PARAMETER
$PMSGR= EMT!26 ;PRINT MESSAGE, CONDITIONAL ON "RPTFLG"
PNTCHR= EMT!27 ;PRINT ASCII CHARACTER IN R0
PNTCI= EMT!214 ;PRINT CHAR IMMEDIATE, TRAILING CHARS
PNTNBR= EMT!30 ;PRINT NUMBER
PCRLF= EMT!31 ;PRINT CR-LF
PSPACE= EMT!32 ;PRINT A SPACE
PSLASH= EMT!33 ;PRINT A SLASH
PCOMMA=
PNTOCT= EMT!35 ;PRINT OCTAL NUMBER IN R0
PNTOCS= EMT!36 ;PRINT OCTAL IN R0, SUPPRESS LE@DING ZEROS
PNTDEC= EMT!37 ;PRINT DECIMAL NUMBER IN R0
PNT18= EMT!40 ;PRINT LOVβ $@DpA∨ flA¬%(A≥+5¬ $~)!≥(dLz∪ ≠PBhb∩m!%∪≥PA→∨/∃$@df↓¬∪)&↓≤ε→↓6b∧∀~D∧u,X(U⊂h* e#∪'Q∀,mD⊗CλK4∧"∧|HD¬∧uF&2α⊂Q*∧u#6gPL,ZD∪#⊂↔:¬∀LjDβ≠2λ)∃"∧jYT∀-%D∧ $J(U≥~ →b¬∪↓Q%∧uF6d∪h_YU" ⊗6@K]
)∀u"ε6b∧∀~D∧u,X(U∩∧→d∧∀Lh~%Hh* e$ J'PL,ZD∪ ≠q↔5¬∀→jB¬∧J¬S αλ_D%∀Z:0hUλiu∀≤WQ∀,mD⊗C_K:8U"∧iz$⊂_1λ∀
)3U∪jZλ⊃Sλ_c"T itS3πQ135∧⊗
α.h9⊃04DλStPhXλ∀∀I→U∪u*D⊃S⊂(q"T⊂HY∪∂"(Y5λ-εQ.q∩)hh∃∩λT∃∃⊗$λQ3∪↓QT∪U x⊂o"(Y5λ-εa.t∀I→Uλ∀jλ0r1I_1λ∪h:⊂3λλI1r5
1"T∪JIq∃∂!_35λ&Fb.t
)3Uλ
:⊃0r(i11λλI1r5
5λ∃∀H→3∩3Ht∀⊂4H→15⊃*!"C"J
R3U
G"13*D,-,!↔t∀R)j λ∃
K(∪u*J∃5β!*∃∃⊗'Q135∧⊗-,B':∀R3JEλ∃∃ ∀⊃∀R*h4C"J ∀∃∂!_35λ&⊗,b.j
R3U¬D∪∀∃∧λ∀R5HZC"T H⊂U1GQ135∧⊗--α':∀R3JEλ∪∪h_λ⊂U(hQ4C!!"T∪JHP2o!_35λ&⊗mb.j
R3U¬D⊂P0i:4λ∪jZ∀∃5∧ 3Tq**∩3sD
∪r3JH4C"AQT∪U
*u∂"(Y5λ,F⊗".t
)3U ∧ u5∀
Zλ∀∪i→U⊃4J4∀Q4hZεEβ≥fdiPbf& S"gjiH#*g!U$gg)CEεE)⊃ci`k∂DbfjλZX∧]T`k"P∀_⊂*$∀*P)~CE)"cT)j≡DQfj⊂ZLD]i"Tj$πRE R0 THRU R5
SHIFTR= EMT!51 ;SHIFT R0 RIGHT, TRAILING PARAMETER
SHIFTL= EMT!54 ;SHIFT R0 LEFT, TRAILING PARAMETER
PROL36= EMT!146 ;ROTATE LEFT 36 BITS
SETFLG= EMT!55 ;SET -1 TO FLAG, TRAILING PARAMETER
↓≠+→Q!2z∪∃≠(BnH∩w≠+1)∪!→d~∃) ∃→β0¬hJ⊗6Q )X%n≤jα21∧"⊗2εHh*N↑M"∞!tL*6Q¬+8%nJ,
⊃αRD)αN↑M"∞!α∀*≡&N$*I1α∀*RVJt*⊃α&rαI@4U~↑RN it&⊗m!¬Y@KZJ⊗R-∩9αB∀*N⊗:"αNR>∀*⊃αN<JR∞"-→α&9¬⊃@4(hR⊗>AhJ⊗6Q 1D%n,r⊃α>2αBεN~αJ>V$J:∃1¬∩⊗RV∀rMα&2α:>Q∧~>6Bd*R⊗⊂hR⊗JJ,zAt&,jQ¬Y⊂In⊗J∀zIα⊗t!α>→¬αεNLhR⊗>B≤*Qt&,jQ¬Y_InN⊗"α⊗:⊃∧z→αB
~MαB∀J:R>-!α&:$*JZε`h(4)\"⊗P∀_8R¬∀zZDLtZ1PPh)h∀l-
GPL,ZD∪∪βa↔44LHT∧t XUd-ED
¬∀|8Z5_h(JD 4→HSl,ZD∪∪βq↔4$,:H∃∧*λi∀d*
8Td,:I∀|pQ*%∧4→HShLYZB ∪⊗↓∪]∃ε
∧λ↓$f"H)bf"Pj$ggβE)~X∃h%↑DQfj⊂XMZD]i⊂b~X TO ASCII UNPACK
ASCR50= EMT!165 ;ASCII TO RAD50 CNβ≥- I'∪∨≤4∃ )∪9⊃(↓tL*6Q¬ )X%n$*∞Rε∧)α&:M"&ε2MRεR&|p4*J∧J:&QhJ⊗6Q U\%]∩AAQ∧J:&RL
2&j
"&>8hRJB2|
⊃pλ_YU" ⊗f`K]*εβ"∧Ix∀"¬λ_4Xh(Jd$
H↔PL,ZD∪ 3↓↔4$-i_4*∧H~D
∧)It≤Z
(T∧0β"Q
JQ⊃SπQ135∧⊗L,"' b"aj⊂h"P)⊃`b⊂#∩f"FE⊃*+j#∪≡↓ EMT!212 ;DECTAPE WRITE D¬∪→∀~∃ ) β'
z% ≠(BHbb_¬]∩⊗RV∀qα∩⊗≥"εB∃¬αεJεl*R⊗I∧∩εN∃∧
∩∩J-~L4*% L∧,_GPL,ZD∪ 3⊃↔4$,:H∃∧*
(T∧ Q(E%=*GPL,ZD∪∪βQ↔4$,:H∃∧*
z$M$QQ%∃∧i→d#`"13*D,-Ma↔tT εD⊃R3HD⊃R3λQ"TT It6≡Bbfj⊂L[X∧]T(_~⊂⊃$f"P⊃$i"aU'i,P∪'gejTεE)(∧@DFL= EMT!171 ;RP04 READ FILE
RPWRFL= EMT!172 ;RP04 WRITE FILE
RPREAD<α∪ 5(BblH∩w% @hA% ¬λ_∧*∃α↑J&#h&⊗6" E]LKZJAA"α↑J&$(4*J∧
∩∩IhJ⊗6Q ]P%]∩AAQ∧
∩∩J-~Mα∞ b∞V2
"&>8hRJB
~∃t&,jQ¬E;(%nJ-"VJ9¬∩AAQ¬αεJεl*R⊗I∧∩2>∞Zα
εN*αε∩∩∀*NL4U∩B⊗J∀zIv⊗m!¬IM8InJAεB∧-*)u∩¬(Z∧⎇∃HZ hTJhe∀ WQ∀,mD⊗∪3_↔8D-4_8R∧$~H∩∧5(→T*¬(X∀ `"Q∃JzQ∂"(Y5λ,&fα.qλZR0q$
stQ∧
Q01↓QTV⊃I→⊃/"(Y5λ,F6α.tKε,+tKε (⊃IIt∀⊗$λ↓$f"H)bf"Pj$ggβE),$S$j≡DQfj⊂Y XD]Pλ#&'h∀,P$g∩jIALIZATION
RXRDFL= EMT!232 ; FLOPPY READ FILE
RXWTFL= EMT!233 ; FLOPPY WRITE FILE
RXBASE= EMT!234 ; FLOPPP∩↓!β%β5 ) $↓¬→∨π,A¬β'∀Aβ I '&~)%1% ¬λz∪ 5(BdfT∩v@A→→∨!!dA% β⊂~∃%1]%(z∪∃≠(BdLl∩v@↓
→∨!A2A/%%)
~∀_wπ∨5≠+≥∪
β)∪∨8A%∨+Q∪≥ &4∀~∀]% A ↓≠∨≥βM∧~∃π=≠π≠λt∪ ≠(∧dd`∩mπ∨≠≠U≥∪πβQ∪∨≥&↓π∨≠≠¬≥λ~∃
∨≠%)I2{ ≠PBddb$wπ∨≠5+≥∪π¬)∪∨≥LAπ∨≠5β≥λAI )%24∃π∨≠∃≥"z∪∃≠(BdHd∩wπ=≠≠+≥%πβ)∪=≥&A 9#+∪%d~∃π∨5 ∨(z% ≠(BHdf∩w
∨≠≠+9∪πβ)%∨≥&A∃≥λA∨_A)%β9'≠∪'M∪∨≤~)π∨≠→%≤z∪ 5(Blh$wπ∨≠5+≥∪π¬)∪∨≥LA→∪≥∀A∪≥!U(~∃π=≠'≥λt∪ ≠(∧lj∩w
∨≠≠+9∪πβ)%∨≥&A1∪≥
A=+)!+P~∃π∨5βπ⊗z% ≠(BXl∩wπ=≠≠+≥%πβ)∪=≥&Aβ
↔≥∨/1 ∂
4∃π∨≠9β⊗z∪∃≠(Bl\∩wπ∨5≠+≥∪
β)∪∨9&A≥ ≥β)∪-∀Aβπ↔9∨/→ ⊃∂
~∃
∨≠π→Hz∪ ≠PBn`∩mπ∨≠≠U≥∪πβQ∪∨≥&↓π→ βH~∃π∨5π)_z% ≠(B\b∩wπ=≠≠+≥%πβ)∪=≥&Aπ=≥)%∨0A' #U ≥π
4∀] ≥⊃ε~∀~(w↔_b@A%∨+Q∪≥ &4∀~∃/
%β~z% ≠(B\f∩w/I∪)
A%≤A)≡↓ε[%β4~∃%πIβ~z∪∃≠(BnP∩w% ¬λA)⊃∀Aε[%¬~~∃/]β $z% ≠(B\j∩w/I∪)
A [%β~↓β %∃'&~∃5∪π≥+0z∪ ≠PBd`f$wε[%¬~A
∪1_A/∪Q⊂@`OL~∃≠∪
∪_z% ≠(BH`h∩w [%β~↓
∪→_↓/∪)⊂bO&~(~∃≠%∃' (z% ≠(B\l∩w≠¬') $↓% ' P~∀~∃Q ≥'.t∪ ≠(∧bhj∩m! ZD`A'/%)π⊃ L~∀~∃Q ≥' t∪ ≠(∧nn∩wQ+%≤A=
A)∃≤A%+9≥∪≥∞4∀~∃)∃≥π⊃$t∪ ≠(∧bnl∩m! ZD`A→βM(A)3A λAπ!β%βπQ $~∀4∃'~z% ≠(BD``∩wM)β%(↓≠βπ⊃%≥
~∃∃1π(z% ≠(BD`b∩w∃1 π+Q
A! @b`A∪9')$X↓% #+%% &AM~~∃→= β$z% ≠(BD`d∩wM! π∪¬_Aβ$↓→∨βλ↓
∨$A∃1π(A¬≥λA≠ ∨0A)∃'(~∃M )≠! z∪ ≠PBbhn$w' (↓~[¬∨`A!⊃βM
~∀~) π→∨,z∪ ≠PBbfj$w
A¬=0Aπ→=π⊗~∃∃'3≥εt∪ ≠(∧bfl∩m
A¬∨`A'3≥ ~∀~∃∃1β~z% ≠(BD`f∩w∃1β≠∪9
@b`↓→ ε6⎇∩d4*-Bε6QhJ⊗6Q AP%\*bε6Lr∃↓Eαα2⊗6⎇∩e1α%∩ε&2Lr≥αB
∩ε6⊗$*JL4T"B>MhJ⊗6Q AT%\"⊗B>≤JQα&u"=↓Eαα2⊗6⎇∩d4*%α>NQhJ⊗6Q AX%\"⊗B>≤JQα&u"=↓Eαα6⊗6⎇∩e1α%∩ε&2Lr≥αB
∩ε6⊗$*JL4T"B>N5⊃t&⊗m!¬EA8In∩⊗∧zN&Q∧
:⊃α4*J&~J↓EAαl*6>JHh*∩B⎇~ZQtL*6Q¬ @%n$*B>NM!αε:"αZ⊗JL2e↓Eαα6⊗6⎇∩e1α%∩ε&2Lr≥αB
∩ε6⊗$*JL4T!EB6|qt&⊗m!¬EEλIh $Z u≤MD¬S
∧→jDzβ⊗∧∧4d_t¬<⎇(APT#⊗ %∀{Q_Tm"⊗⊗∪⊂K:λEαk⊗∧∧d,Yz%J¬(Z$xh!Q$≤m
&33h_YU" V!∪\≤yZ∧
∀TεR∧∃~HRβ≠eX$M"
yu∀ Q!PT%HX$
≠Q_Tm"⊗⊗∪_K:(U%-)d∧%$V&α∧∀~8R∧ HJ$-≥1Q d$kλ5#h_YU" ⊗⊗@K\I_∀<tz:DL~λjTt≥I→tr∧[λT≥-HQPT$kλ5%#Q_Tm"⊗⊗∪(K8Hb∧-λX5-$UD¬%∀→→DLtt
∧
∀→XU$-!Q hTHj$#h_YU" ⊗⊗`K\I_∀<tz:DL~λjTt≥I→tr¬(X∀ h(He∀%GQ∀,mD⊗∪#↔8D2¬(X∀"b
J$ LI→d:¬λ~$ lZHU⊂h(He∀$ZgPL,ZD∪ q↔4$L_yd⎇≥I_2∧5Yh5$Lyd¬∀,_Dα2∧Yzd(h!Q$$5z*ChLYZB &↓∪\$__tt⎇:I∀~∧jYd≥$→yb¬=)~D(h(He=∃JGPL,ZD∪ #⊃↔4$2
z$M$UD¬%∀→→DLtt
∧
∀→XU$-*1PT$jy∃∪h_YU" ⊗&⊂K\I_∀<tz:DL~λjTt≥I→tr¬z)∃$* ~ hPQ(D5≤9I3hLYZB &!∪\$__tt⎇:I∀~∧jYd≥$→ybb¬9→d<dT
5$-∧λ4d|91PPh(He∧≠Q_Tm"⊗⊗#_K8I∀ <iz5$L4λe,t:I∀|r
(T "
λ0hTHjdl Q_Tm"⊗⊗# K8I∀ <iz5$L4λe,t:I∀|r
(T "
iTh(Hd $'Q∀,mD⊗∪∪(↔8DL yiu≥$_4∧5,h:DL|d
$, Dλ∀$%(Z5~∧*(T XQ(D54X→βhLYZB V↓∪\$__tt⎇:I∀~∧jYd≥$→yb¬∀X_B¬4X∀∧D,HAPPh*(E∀ WQ∀,mD⊗∪∪0↔:$, DλBm∀→QPU<J(∀kh_YU" ⊗&pK]z)∃$*λEU∀ QQ$%∀→X∀#h_YU" ⊗6K]8YD,≥DλBm∀→T∧ $J(U≥_Q!PT≤I:¬∀kQ_Tm"⊗&β⊂K:(U%-)d∧ $J(U≥~ xbα∀9I4$ SλH
ytQβ!!"PU**u∂"(Y5λ,&6".pJZTuλ U0Sv∧λs∪pi1"C"J U⊂t
W"13*D,,lA↔t∀R)jλ⊂t
Uλ⊂k*(3( D
Q1r*:⊃4TaQC"T j⊂tS'Q135∧⊗- B':∀R3JD⊂k4H→+λ∪ xr0p)D⊃R1)Hλ⊃Sj)05β!!"T∪JH∀S/!_35λ&⊗ b.j
R3U∧λ 4P)Uλ∪∪hy0p3∧λR13λD⊃StIX5β"AQT∀Qh91∂"(Y5λ,&6b.t
)qtP)T⊂ss)X3Qβ!!"T∀HyT∃∂!_35λ&&-B.j
SqtH→(⊂siY03Q¬D∪Sh
R3U↓Q@ .SBTTL MACRO DEFINITIONS
.IIF P2, $$CLIT==$$LITT ;LITERAL STORAGE ASSIGNMENT
.IELSE $$CLIT==2000
.MACRO PMSG $ARG
$PMSG
$$CLIT
.NLIST SRC
$$CLC=.
.=$$CLIT
.ASCIZ ↔$ARG↔
$$CLHTz\4∀∩∩\tHIπ→ ~∀∩∩9→∪'(%'%ε~(] ≥ 4~∀~∀9≠βπ%<∪!≠'≥$∩IβI∞~∀∩@I!≠M∂$~∀$@@HI
→∪(~(∩∩]≥1∪'(∪M%ε~∀$∩HIπ1εz\~(∩∩\z⊂Iπ→∪P~∀∩∩9β'π∪h∩.IβI∞.~∀$∩HIπ1⊃(↓uph($%si⊃∩∞d_4($Jr2&N JNJ hQ:⊗:$h4(4Rr6ε∞∀x&B:$jN≤%$
J≤4PI↓α6⎇0%
⊃$~2&Qe⊃@4(J↓αB:$
04(HI::2M~P&N∀_4($J!∩∞2≠i84(HI9u⊃$~2&PhP$%:
~∞&hI9∩εJ984($Jr⊗Z⊗ph($%""∞2&#i84(HI9u⊃$~2 4PH%0∀I~5 M:(0hRhYd$hQ!PP¬S00j)b16
εE∧H⊂%&hαR"l$UεE↔"S"&FEβE↔&`Pi'DbV$j)eTεE∧Pλ%&h∧I"l$j∀FE↔"S"&FEβE↔&`Pi'DbV$j"i∧εE∧Pλ%&h∧I"l$j⊃εE↔"S"&FEβ≥a `∪IC MACROS
.MACRO PUSH A
.NLIST SRC
.IRP B,<A>
MOV B,-(SP) ;PUSH B ON STACK
.ENDM
.LIST SRBα~∀]∃≥ ~~(~∀]≠¬π%≡∪A∨ ∪α4∀∩∩]9→∪'(%'%ε~(∩@@]%% ∪∧0yα|~(∩@A≠=,∩Q'@RVY∧$w!∨ ↓')βπ,A∪≥)<A∧~∀$@@] 9 ~~∀$∩]→∪M(∪'% ~∀] 9 ~~∀4∀]≠β
%≡∪≠U→(∪'=+%π
1% ∞~(∩@A!U'⊂∪'=+%π
4∀∩@AA+'⊂∪I ∞~∀$@A≠+1)!2~(∩@A!= ∪% ≤~∀∩∩9≥)3!∀∪0Y%∃∞~∀∩$]∪ ∪∃"A0LD~∀∩∩9∪
(~(∩@A!= ∪% ≤Vb~∀$∩]∪
_~∀∩@↓∪≥ε∪M ~∀∩A∪≥ε%' ~∀$∩] ≥⊃ε~∀]∃≥ ~~(~∀]≠¬π%≡∩9→∪(∩⊃→)β∞0I→β%≤~∀∩∩⊂Iπ→εt\~∀∩$\zHI
→∪(~(∩∩] Y ≤~∀$@@I→Qβ∞z\4∀∩@@9∪∪ ∪λ@xI→¬%∞|X@~∀∩@]∪∪ %≥∧@x⊃→β%∞xXI→βI∞~∀∩$] - 8~∀∩∩⊂Iπ→∪Pz\~∀$∩\zH⊃π→ε~(] ≥ 4~∀_]≠β
%≡∪'0∪% ∞1≥+~~(∩∩]≥1∪'(∪M%ε~∀$∩]∪ %∂(A≥U~Zn~(∩∩]∪→(~∀∩A'/βλ∪% ∞4∀∩∩]I !(∪9+~Zp8~∀∩@↓β'_∪I ∞~∀$∩] ≥⊃$~∀∩$]∪
4∀∩∩]I !(∪9+~~∀$@Aβ'0∪% ∞4∀∩∩]∃≥ $~(∩∩] 9 ε~∀$∩]→∪M(∪'% ~∀] 9 ~~∀4∀]≠β
%≡∪'H∪% ∞1≥+~~(∩∩]≥1∪'(∪M%ε~∀$∩]∪ %∂(A≥U~Zn~(∩∩]∪→(~∀∩A'/βλ∪% ∞4∀∩∩]I !(∪9+~Zp4∀∩@A¬'$∪%∃∞~∀∩$] ≥ H~∀∩∩9∪
~(∩∩]%∃!(∪≥U~~∀∩Aβ'$%% ∞~(∩∩] 9 $~∀$∩] ≥⊃ε~∀∩$]→∪'P∪'%ε4∀] ≥⊃~~∀~(]≠βπI≡∪ 1=$∪% ≤Y 'Q∪≤Y'
%)π⊂4∀∩∩]% ∪≥∧↓'π%)
⊂~∀∩$]∪
(4∀∩@A5∨,∪%∃∞Y'πI)π⊂~(∩@A¬%ε∪ M)∪≤YMπ%)π ~∀∩@↓¬∪ε∪I ∞Y ∃')∪≤4∀∩@A ∪&∪'
%)π⊂1 ')%≤~∀∩$]∪
4∀∩@A5∨,∪%∃∞XZQM R~∀$@A¬∪ ∪ 'Q∪≤XQM R~∀$@A¬∪ ∪% ∞1 ')%≤~∀∩A¬∪&$Q' R,Y 'Q∪≤~∀$∩] ≥⊃ε~∀]∃≥ ~~(_w')¬≥ β%⊂A!%∨≥%β~A¬''∪∂9≠ ≥)L~∀~∀9∪∪ A9 A'Qβπ⊗X%')βπ,zzbj\nnl∩$w∪≥∪Q∪β_AM)βπ⊗↓!∨∪≥Q $~∀9∪∪ A9 Aπ=≥'∨_1π∨≥'=_zzb@````$∩wπ∨9'∨→
↓')β%PAβ I '&~(~∃π¬%(z∩b$∩wπβI%2A¬%(~∃≥ ∪(z∩D`∩∩w9 ∂β)%-
A¬%(~∃5 ∪(z∩P∩∩w5∃%≡A¬%(~∃- ∪(z∩H∩∩w∨Y %
→=.A¬∪P~∃)¬%(z∩d@∩∩w)Iβ A¬%(~∀~(w% ∂%') $↓
∪9∪)∪∨9&~∀~)$`z∩∀`∩∩w≥ ≥ %¬_A% ≥∪') I&~∃$Dz∩Jb4∃$dz$Jd~∃Hfz∩JL~∃$ht∩Jh~)$jz∩∀j~∃$Xz∩Jl4∃' z$Jl∩∩m')βπ,A!∨∪9) $~)!εz∩∀n∩∩wA%∨∂%¬~Aπ∨U≥) $4∀~∀wA bb<h`A'Qβ≥ βIλA)%¬ A-
)∨$A¬''∪∂9≠ ≥)L~∀~∃I '- ⊂z∩`∩$w% '∃%- λ4∃ %%Y εz∩P∩∩w)%≠
A∨U(XA¬U&A %I∨$~∃I '- z∩b`$∩w% M %- ⊂A∪≥'Q%+π)%∨≤~∃Q%)- z∩bh$∩w¬%∃β⊗A!=∪≥(AY π)∨H~∃)¬%)- εtbh~∃ !)- z@bh4∃∪∨)Y εz∩H`∩∩w%∨(A)Iβ A-∃π)∨$4∃!/%Y εz∩Hh∩∩wA∨/ $↓
β∪_↓)%β ↓- π)=$~∃ 5)- εt∩f`∩$w ≠(↓)%β ↓- π)=$~∃)Iβ!- zfh∩$vE)%¬ DA)Iβ A-∃π)∨$4∃)↔-∃εz∩l@∩∩w)Q2A↔ e¬∨β%⊂A- πQ∨$~∃Q!- εt∩lh∩$w))2↓!%∪≥Q $A-∃π)⊂≡⊂h*R¬ t%I3$%n≤
NN⊗%"∃αR
α∃αJ,
∩⊗HhRR
E h%IE H%n∩,~RεB*αZ⊗∞$zH4(hQnB∩β E=QααNRεt"εJ⊃∧
∩∩J-~Mαε≥~&≡:l*:RLhP4*B≠h%E];9]X$KZ∞BU¬~RεR-_4*N$Z26QhIE]];9P$%]~Rε∞Zα2&6M 4*N=⊃t%E;9U]@HIn∞>u~>2∃¬~↑&R≤AαJ⊗<JNR⊗⊂h*RR|"
ItK ]]U30$%n%"eα zZB∧$*!PU%Ix5≥∪Q⊗∪;;Vf@HK:JEJ∧↓u5∧λttC!!"U∃ _⊂TO!⊗-mm&fB".jJ⊗(∩)d⊃⊂TAQU∃∩(:tO"&⊗mm-F↓"]j∃,P$gλ!iiεBεE,'T!i≡DL[Z→_ εE,'T)i≡DL[Z→_ εEβ≥a$jλ iidQg&bg∃)FEεB!$j_ ≡DXFB!$j_∂Da$j _εE!∩j__↑BYεE!∩j_↑DP$j__CE!$j →≡DZβE!$j ≡Da$U_→εE⊂$j_→ODXXεB!$j→ODa$j →FE!∩j_~≡BY_εE⊂$j~≡Ba$j_
εE!$U_~↑DM_εE!∩j~↑DP$j_~CEεE!∩j__ε= 100
BIT6= BIT06
BIT07= 200
BIT7= BIT07
BIT08= 400
BIT8= BKT08
BIT09= 1000
BITrz%¬∪(`d~∃¬∪Pb`z∩H```~)¬∪(bDz∩h`@`~∀~)¬∪(bHz∩b`@``~∃ ∪(bft∩d``β↓@4*∀JQEQhIQAAεhPQ($M#⊗WPK ε εεβ"C!'t∀R)zR5⊗$λ4tr(yS13JJc"C!*∀L∂$ε β!*∀L/$ε
β!*∀LO$ε, β!*∀Lo$ε- β!*∀M∂$εL β!*∀M/$εM β!*∀MO$εl β!*∀Mo$εm β!!"KR)_H⊃⊃D
p23
jKλ⊂j
4∀O'Z∀Lb'8s∪pi4⊂3Q∧λ∪ ,(T∩3UλZTU4
Jh⊂4HT∀⊃4IY5∃⊃(A"KR)_H∪Qλd∀p2)JTKλλ:∃4∀GW4∀MaQ@↓Gpr⊂*(0u⊃**h∃4hXβ"C!)4upi
O",ε6α".d 3sR*ItH∃ tλRsλHtλH
:r5⊂i∧⊂r⊂*%λ⊂si`*)'fλ,εE*⊃l*"i∪↑X∧DNP*"i∪dg j⊃iP*"V*εE*⊂a≡DXLDD]P∃ aεE⊂g*)&∩↑DXXBD]P!Sg*)'S⊗dP∀∃ a∀FB&#≡DLY∧D]H&$g"H#"bbβE+*≡BXYDDNP+"i∃$a`fλ* aεB##≡DLZ∧D]H#'i&H#"bbβE!i≡BXZDDNP!`i∀$`cbH)"j*T'εE!⊃f&≡DMDD]P⊂"f&εB!& g∩↑DZ_αD]P!∪ g%P
)h aQTFE)T ab↑BZ_∧DNP)h PbFE!Sff`↑BZZ∧DNP!gfS`FE)S id≡BZ[DDNP)f TdεE!∩if$≡BXYZ∧B]P! PeP)f⊂idεE⊂%`i+ODXY[BD]P!⊂aeP T)'kFB,'c#∂DX→→BD]P, gc#∧BT!gg∃)'f⊂∀TFE,∪g≡DX _DD]H,⊗ggαDT!gS*)'fλ(TFE⊂g*)&∪↑DX_MDD]P⊂gg*)∪f⊂'FB!g*)∪*↑DX ~DD]H!gg*∀'f⊂*CE!g*∀& ↑DL__DDNP!gg∃)'f⊂⊂FE!g∃)&!↑BX_→DB]P!gS*)'fλ!FE!S*)&"∂DX_~αD]P!Sg*)'S⊂"εE⊂g*)&∩↑DX_LDD]P⊂gg*)∪f⊂%FB!g*)∪&≡DXM∧D]P⊂gg*)∪f⊂&εB!g*)∪)≡DX →∧D]H!gg*∀'f⊂)βE!g*∀&*≡DL→~∧DNP!gg∃)'f⊂∃εE!g∃)&,≡BX→X∧B]P!gS*)'fλ,εE!S*)&-∂DX→YαD]P!Sg*)'S⊂-εE∀*a'jU≡DX[MDD]P∀*a⊂'U*εE S*&gb∂DYYDB]P f∃&gb"CE"j!∂DY≠DB]P"g⊃⊂'c⊂∃) g)SdiidSg⊂!&∪aeDT⊂gg*)∪f⊂+TCE↔$cλ'"#⊂∀`df+∀εE'*S&≡DX ≠∧D]H'*f&λ"αILLER CHAR
.IFF
NULL= 000
.ENDC
SYN= 001 ; COMMUNICATIONS SYNC CHAR (CONTROL A)
;.NLIST
.IF DF DTEASB
;.LIST
.SBTTL DTE20 DEVICE REGISTER AND BIT DEFINITIONS, 4-JUNE-75
DTEADR= 174400 ;ADDRESPε↓≤ε→↓D2&JN"Iα∩R+⊃Aα∩-2&∞∃¬∩⊗≡&≥"⊗Iα∀b>∞,hR∩R⊗≤Jit%β↓AAQH%nN∧
∞&::α
⊗R<*⊗9α≤z:N⊗≥*R&Z*α∩R∃∪↓≡L4T"R⊂ X≠βhKA⊃∪\l≠ ∀m 3(∪JY0Q4D qH⊃
H,L j4∪sH yQ(∀λJ ,,!QQ∃⊃*;To"&Q"]iR$c*⊂∃'P!gSVERT DTE ADDRESS TO DTE #
.IF DF DTEDEF
;OFFSETS FROM THE BASE OF THE DTE20 DEVICE REGISTER BLOCK
;TO SPECIFIC 10/11 INTERFACE RAM LOC@TIONS AND REGISTERS.
; THE FIRST 12 REGISTERS ARE NOT INIT↓∪β1∪5 λ↓¬2@E%≥∪(DQ¬ π¬+'
AQ⊃ 2A¬%
A∪8A%β≠LAY COUNT (ADDRESS XXXX00)
DEXWD3= 02 ;DEPOSIT OR EXAMINE WORD 3 (ADDRESS XXXX00∧$~∃ a,ε⊃IhIAP$KZ∩⊗B⎇~&Qα⎇⊃α⊗b j&:∃¬:>J⊃β⊂%"ε$"J⊗N~αbbbC↓Q$4T"⊗b↑# t%A0H%n∩-α>N&"α>Iα-Bε0 →hR¬<z(Bβλ∃λ∀$%(Z5~¬ ¬Cβe⊃PP
⊃3P(F/",&↓".l&∧⊂1⊃
(4th
ytQλε∀⊃StDλ⊃6α%λ1⊃∀HZth⊗ ⊗ ,¬⊃"U⊃)h1 O!⊗,B"'6,λ⊂(H∀Q4j4∃stHD H⊃IzH⊃⊃+↓*⊂1λJQ4td ⊗⊗⊗ε⊗J#"JIl,⊂H7",-↓⊃.↓j'LX⊂!,U"P!gUg*∧DJ b")⊃iiP,⊗,,_Z
FE*'LXa!↑BX[∧DNj'XXH!,j"H!gjg∃∧DT Q")"iTP,,,⊗_[∀FB*'XX⊂b≡DY ∧D]j∪XX⊂(⊃(_XP∪"fgi⊗P b"∀"iiDJ b")⊃iiP,⊗,,→_
FE*'LX`b≡BY→∧DNj'XXH("(_LP&bfSi,P Q")"iTDT b⊃)"iiH,,,, →∀FE∃'XX"∃≡DY~αD\βTO10 PDP11 DATA WORD (ADDRESS XXXX24)
TO11@T= 26 ;TO11 PDP11 DATA WORD (ADDRESS XXXX26)
; THE LAST 4 REGISTERS ARE INITIALHβ5∃λA¬2E∪≥∪PD@Q¬∃πβ+'∀A)⊃ dAβ%
↓∪≤A
1∪ [
1∨!&R4∀~∃ %β∞bz$f`∩∩m ∪β∂9∨')∪ A/∨%⊂@b∩∩!β %∃'&A1a10f`αH4*∩L
≥ItK→H$%\"&ε≡tzNR&~α↑>J"↓H$%D
∩∩J-~MαbEBaMIHh*NR
"VMtK→P$%[ A=E
α&:R-∩~ε∞*αNRε%*Mα↑⎇∩⊂%" "∩J⊗≥→αbbEAMQ$hR∩&ε;→t%M0H%n∩L
≡:>≥"&
α<zJ⊃↓_H%"ε$"J⊗N~αbbbC→Y$4Rr⊗:∩_h(4)Z↓αR"*α~>2dz↑&::αεJ∃¬""∃α "∩J⊗≥~⊗Mα|1αR"*α∩R∃∪↓α&:$*JJV¬!αZ⊗≥">JLhP4*∩$*&YAhI]]PHIn&:$*JJV¬!αZ⊗≥">Iα4zIα∩$)IA↓≠4*∩$*&YEhI]]@HIn&:$*JJV¬!αZ⊗≥">Iα4zIα∩$)IA↓≠λ4*∩$*&YIhI]YPHIn&:$*JJV¬!αZ⊗≥">Iα4zIα∩$)IA↓≠⊂4*∩$*&YMhI]Y@HIn&:$*JJV¬!αZ⊗≥">Iα4zIα∩$)IA↓≠_4(1n
M!αεN≤J≡:6,rRMα4zI↓EαyEEαLrR⊗J4
∞∃α∀*≡&N$*JL4Ph)n
M!αεN≤J≡:6,rRMα4zIαR,rε⊃DhP4*BEJMt&∀JQETHIn⊗b j&:∃|"⊗Aα∧BfN&≤
1αε$"J⊗N_h*VN-2&ItL∩&QE"
&Q _%n⊗Bz∩Aα-~⊗Iα4JJRV aαε∩%∩⊗NLhRbVB#h&
&# P$%\*a>∩ααZ&¬¬*N⊗I¬αJ>∞-~MαR ∩2∀4T*bZ&∃!t&
M!EL$KZ⊗a>%↓α⊗b,→αZ&∃"Vε1∧
∩∩J-~L4*$*At&∀JQEHHIn6>$)α
&"α~>I∧"⊗B>≤JQ↓!βj⊗bεlJ:∃$hRBJR|2→t&∀JQEDHInBJ⎇"⊗∞Q∧z~_4UB⊗BQhI@$%\*a>∩ααZ&¬∧*b⊗
¬αJ>∞-~MαR ∩2∀4Ph)n
M!αεN≤J≡:6,rRMα4zIαR{ F
hP4*&u!EAtL∩&QE(H%nN-!α∩>t)αε:"α&:R-∩JVB"α
>RB↓EAα r⊃↓Eλh*jN$zAt&∀JQEPHInNR⎇↓α>9∧rV21αBj⊗JzIα∞"
∩ε∞R-⊂4*
M"∃ItL∩&QE_H%nR<yα⊗&<BQα
M!α
f$*MαB-⊃α↑>∀ 4*R{ F
5hJ
&Q _$%n$y5EE∧∩fR∃∧j>∩∀hP4)n∀JQαε≥~&≡:l*:RM∧2>Iα$Jε≥EαB↑J&$)$4(hR∩MAβh&
&# T$ ↔8DL yiu≥$_4¬≥$~JU_h(J3β Q_$M#⊗A⊂KZ∧!PT%6ε#hL)~C _⊃↔2α⊂Q(E≠β7Q∀∀MF⊗ HK4∧ hTJ6β#h_)∃# ⊃⊃∪Zα!Q$%≠εWPL∀~F∪H↔4α⊂h(J3β3Q_$M#⊃⊃∪Zα!Q$$5Yh3hL)~C8H↔8D|Lht∧$L_yd⎇≥I_2∧5Yh5$LydαD$j(Bd$jz%"dHk∧≥"⊃Q%¬,J8ShL)~C" )~C(K:9∀t<HT¬¬,J8R¬$λTβ αv⊗∩∧≤Ix4Zαλ→E≤z
8U%_Q!⊂HK6⊗α{ ∀λDL yiu≥$_4∧l|HU⊂hTH9tm≥GQ∀∀MF↓⊂K\I_∀<tz:DL~λ9tll→hB¬≥H~% h(H5≥∃GQ∀∀MF↓⊂K\I_∀<tz:DL~λ9tll→hB¬≥H~%"α hU:∧h→T*∧iz"∧$9yU≥"⊃Q$%≤YhChL)~C⊂H↔:4,tD
DD*λX%-~λJU∀Lht∧$L_yd⎇≥I_2∧5Yh5$LyaPT$→9C βQ_$M#1⊃∪\\F⊗α∧$__tt⎇:I∀~∧YxD(h(F∪β ↔Q∀∀MFQ⊂K[⊗¬s
→e$-(h∀≤*λI∀ <iz5$L4 T|$QQ hS8)∃"∧~:4L<iXTu%4λd⎇∩λI∀ ;∀¬¬∀,_E⊂hPQ*D{ πQ∀∀MFq⊂K\→jD-∀h_4*∧X→$⎇∩
:D
$TπR¬$v⊗α¬%(→e≤4Z!PT$[πPL∀~GHK4∧ααα$∧ααα∧∧α∩α∧∧αα∩∧∧βj∧HZ∧⎇≤~D∧⎇∩λ[∧ l→hPhUIv∪ h_)∃#0⊃↔2αα∧∧"αα∧∧ααα$∧ααα∧$ααβT
D{ ∀
E∀ j8d-⊂Q*d,≠εGPL∀~F@HK:hT≥$z$∧LuHZ%∃-
D∧ $J(U≥~λ)∃"βAQ%4,6ε3hL)~C_H↔4αα∩∧∧ααα∧∧α∩α∧∧ααα∧∧"αα∧∧α∩αε1PU4X6β∪h_)∃#⊂⊃↔2αα$∧ααα∧∧αα∩∧∧ααα∧∧α∩α∧∧αα∩∧ε hTλ→E$eπQ∀∀MG⊃⊂K\X)uB∧~4∧Lr λ∀e" It⎇Q)4e∃YgPL∀~F∪H↔:%,rλiD⎇αD 4b∧~4∧-DX:U$Lht∧Lu:J%,≥I→tu_Q(U∃∃:JβhL)~C λ⊃↔4,∀{∧∧≤dx92¬≥Iz¬∧,DλE,*
Ir∧-*)u⊂h c\)~B∧
:9∀<tXYe%~λiu∩∧I_∀;∩¬
u∀MHU⊂hPQ(T$|hZ3hL)~C ⊃↔5≤-DλT∃-4λD|tQQ$%∀Z8U#h_)∃#0⊃↔5∧-(iu∀jλI∀ <iz5$L4λ4d,~!PPh'8$M"λ~5≤LyiT,uJ4∧4⎇$λDL v$αE∀X_BHh!Q#\∀~D∧
≥9_ttlYjE~∧iz"∧$__s~α
z$M$U⊃PPh*84#h_)∃#(⊃↔5≤D_jB∧≤~
E-∀XD∧$
H∀αE∧~)∃%JλZ%∀⎇$λD
$∃⊃PT≤HGPL∀~F@HK89D,
$λE-∧T∧b∧%Z(R∧-*)u∩∧iH∀=_Q*t-βQ_$M#1⊃∪]=)~D*∧ZhTrαλ(∀"J
λ∃∀MK⊃PT≤jZ∧+h_)∃#λ⊃↔4≤dX~"∧uZλPhUIv∪∧∀WQ∀∀MF↓⊂K]IuS α
J$ u8hU∩∧+~D-~λj$|j
I∧*β⊗⊃PPh'8$M"λ~5≤LyiT,uJ4∧4⎇$λDL v4αE∀X_BHh!Q%∀4X_Cβh_)∃# Q⊃∪]∀iT∧ $J(U≥~λ)∃"β↓Q%∀4X_C h_)∃# A⊃∪Zα$∧ααα∧$ααα∧∧"αβ⊃Q%∀4X_C∪h_)∃# 1⊃∪Zα$∧ααα∧$ααα∧∧"αβ!Q%∀4X_C≠h_)∃# !⊃∪Zα$∧ααα∧$ααα∧∧"αβ1Q hS8)∃"∧~:4L<iXTu%4λd⎇∩λI∀ ;4¬¬∀,_E⊂hPQ*5=≤HjChL)~C (⊃↔5≥<~∧¬≤,HX5"∧HXe h(8∀∪βπQ∀∀MF⊗@HK88∃¬%Z(T"¬Yi∀∃-4λ∀$%(Z5~∧)~Bββ↓Q$%-λWPL∀~F@HK8H∃$z
YdL∃Z4¬∧
)~EJ∧Z*$⎇⊂Q(E-∀WQ∀∀MF!⊂K\H~Dz¬Yi∀∃-4
$,≤_Zd-∩λZ%∀⎇!Q$p
4⊃/!_R5 !⊃.sT
$∃3R(*4h∀λ~R5⊗$λ4TSj!"U4λXq∂"()5 ,d_R5 &$0R5ε⊗(0R*F,λ0I~∞".jY↓$a*TP( i∩j,P"T)⊗⊂!Ph**i⊃b⊂" U FEβ≥a$jλ iidQg&bg∃)P#'T⊂)j U*iP∀∃i$j"JFEεE⊃'g_X∀↑Da$U_ZDDNibj⊂∃'XX⊂⊃'g"FB"'g_L!↑Da∩j_Z∧B]af"Pi⊂*'LX⊂"'S"FE"T)_X)ODa$j YDD]Tbj⊂*∪XX⊂"T)'iεB"i)_L!↑Da∩j_Y∧B]af"Pi⊂*'LX⊂"i∧'iεE∩g*_XT↑Da$U_XDDNibj⊂ X⊂)"TP$g*⊃i)*h∃⊂∀$g∃"i)*T*)P_LTFE$S*_XaODa$j X∧D]P↓LEAR 10 REQ INTERRUPT (REMOVES INTERRUPT TO 11)
PERCLR= BIT9 ;CLEAR -11 LFβ≠∨I2A!βI∪(αe∧*JJ>⊂h*&:# BMtL∩&Pβ↓⊃∪]≤ZD¬∀-~XU≥"ε⊗α∧LjHU∃∃Z
BαD→jD-∃*Z¬%~ε⊗αHh(Its ~7PL∀~FpHK:8U"¬Iv∪
∧Iyd(h(Its _7PL∀~F`HK89D,
$
D{ ∀λD|tQQ$LuJ)tsh_)∃#(⊃↔4,t_)D*∧JHS∪α
Ir∧LjHU∃∃Z
B¬$λTβ λQ(T∃-:λ3hL)~C H↔84d,~$∧,∃~4¬∧
)~EJ∧Z*$⎇⊂Q)∀p
∀SqGQ0R5ε1".q ~p0SλT∃∩⊃$λ∃⊃,F∧ ,+)→U⊃4J*4∃∀aQQ0U*:∀o"()5 B!↔tq5∧λ0U4d
⊂4R*K(⊃4J)tC"HZTL,*7"0R*F"".j85λ∃ v,(⊃**StC!(4TL&_o"0I~ α"'8s⊃0*$∃∪l&∀⊃4TIzC"C!'pR5∧λ4tr(yS13JJh⊃Sj$∀u⊂*J4h
(01
!QC"U v,⊃∪GQ0R5ε⊗"".jIl,λλIsQ#!*∪l,λZO"0I~ ,b!↔u∪hε⊗λ⊃4B)tH
j∀H∃ →13u*D∪tHλ*4h⊃**StJ!QTP3)~l∂"()5 ,A⊃.q⊂*H(∪u*D∪qHλJ⊃(∀H→(∩4dλ3∪λε
h
∀Hi/,
!QU∪l&_⊂O"()5 ,!⊃.l,∧
Q45(Zu∩3Ht ,( →U⊃4B*4∃λ¬λ∪stH(3∪λλjSs(ε⊗
#"HK∃tQε↔"0R*F,α"'8⊃4∪j95λ∪j$⊃6⊂)Y3Q(
ytQλ yQ#"HF,34λW"0R*G"".eV,(∪(Y3tV$
⊂4R*K(⊃4B)tC"JIl,⊃λ'"0R*Gα".j(451*:λ ,∧ 3U⊃**U4∃∧¬⊃∪sj(Q3∪∧λTSs$ε,*#!*∪l,(IO"0I~
b"':∪l,$λ∪sQ!QQ0ThY∂"0I~
B"'8(⊂U(hQ4H
83⊃0jA"SU)Ju∀∂!_R5
!⊃.sU)Iλ∀u zβ"PJλ4Q4GQ0R5εA".q(*4h∀λ~R5⊗$λ4TSj!"↓)&ODa$j DD]j∩$iP"∃"Y_⊂∩g⊂)"Tj)$aU"b⊂&Sb"FE⊃"l"'S≡Da$U→∧D]Q"h'iRj⊂'iλ"l fRg"P"∪g"FE∃'XXbT≡Da$U_DD]U'P_XH"i)'T⊂∀'(∀⊂*$fQgjj⊂∪i⊂!*TP"i)∪i∀FE∩g*)gS≡Da$U_∧D]Rg*"i∀*h*)H'g⊗⊂⊃*"Y_λ"g a∪"b⊂*∪P$g*⊃i)*h∃⊂_XFB ;CLOCK CONTROL FUNCTIONS
STPCLK= 000 ; STOP CLOCK
STRCLK= 001 ; START CLOCK
SSCLK= 002 ; SINGLE STEP THE MBOX CLOCK
SECLK= 003 ; SINGLE STEP EBOX CLOCK
CECLK= 004 ; CONDITIONAL EBOX CLOCK
CLRMR= 006 ; CLEAR MR RESET
SETMR= 007 ; SET MR RESET
BRCLK= 005 ; BURST THE CLOCK
;CLOCK LOAD FUNCTIONS
LDBRR= 42 ; LOAD BURST REGISTER RIGHT HALF
LDBRL= 43 ; LOAD BURST REGISTER LEFT HALF
LDSEL= 44 ; LOAD SOURCE AND RATE SELECTS
LDDIS= 45 ; LOAD EBOX CLOCK DISTRIBUTION REGISTER
LDCHK1= 46 ; LOAD PARITY CHECK REGISTER (ENABLE BAD PARITY STOP)
LDCHK2= 47 ; LOAD EBOX IN↓) %9β_Aπ! π⊗AI ∂∪'Q $~∀4∀w %¬~A
+9π)∪∨9&~∀~)→ %β4bz∩l@∩vA→=βλAαLA∧A→⊃ ε2%→α⊗Z,p4*2%∩ε5IhIYD%Zα2>ε"α¬↓→∧⊃α⊂∀_YD%~ xD `"S⊃
(3,o!⊗LB.d ∪p1∧λss3)yH∩L%YMβ"IH∀RQ*g"-La↔h∪∪h_λ∀⊂*)5⊗(∧d∩N )&,λ⊃*h3C"IH∀RShG"-M↓↔h∪∪h_λ∀⊂*)5⊗(∧d∩N )&,λ∪hHβ"Q
(300GQ,,la↔h∀Q(_λ⊃ *(3(⊂$∧H⊂C!(∀RMf⊗∂",&6".h
(01λλE4P3$ Mk2F⊗β"Q
)L+MπQ,,m↓↔h∀Q(_λ⊃ *(3(∩F∃2Mβ!!"Nr*$⊃∀P)T⊂ssJJSsβ!!"Q∩*93rO!⊗M".dλ∩4p()⊃(
k λ H *Tu∂&&-β"HI4p0hg"-MA↔h⊃∩*80S⊃$
∩⊃( ~H⊂0dxc"Q)i3rP'Q-Mb'4⊃3P( &"P≠V,⊗⊂%∀)j≡Y
Z⊂∪⊂∩i⊂ aIiFEβ≥ai SP#*g⊂j$gg∀FEεE∪!i fL↑DZ[B]P&'Pb⊂!VT fP"⊂j FE∪!i fL≡DZ[βE&!i⊂fY↑DMZFE&⊂i fZ∂DZZεB&!i S~↑DZLFE&!T" f≡BZY∧]H&'`bλ!i fH b")⊃iiP&⊃c*⊂∀ _⊗X~
FE&!T" i≡BZXD]H&'`bλ!i fH b")⊃iiP)∩cd*⊂
_~VXL∀FE)⊂i fXODXZ≠B]P)"Pb⊂!VT fP"⊂j FE∀!i fL≡DXZ
εE)!T fY↑BXZ~FB)!i SZ≡DXM~εE)⊂ih"aODXZ_B]P)"Pb⊂!VT fP)T"aFEβE≥fdTaP!gSTROL FUNCTIONS
IRLOAD= 14 ; LOAD THE IR FROM AD α∃ I→)π⊂t∩bj∩lA→∨β⊂Aλ[%¬~A→βQπ⊃ &4∃π→%I+≤z∩D`∩vA
→ β$↓%+≤A→→∪ [→→∨ ~)' )%U≤z∩bD∩vA'∃(A%+8A
→∪@[
→∨@~∃π∨9¬+(z$bd∩v↓)⊃
A
∨≥)∪9+
A¬U))∨≤4∀α2∩
⊃t%]8Imα2|
⊃αRD)αεHhP4)nl∩>aα≤z8¬%)yB∧5Yh5$Lyj0hPQ)D$l+λ∪hKv⊃∪Z∧Ix∀"∧XYT⎇∃∀
Dz∧8_4D*
8Td,:Iu⊂h)HD≤D→gPK;↓↔2∧dx_B∧≤λ→dt,DλDL yiu≥$_4∧≤|hI∃$Lyj0hPQ'5∧Jλ9tp
∀Ss∧λU3PjI3sTaQC"THX1 ∂!⊗, α'4∀∩(∧∧λ
∀HX1λ∀jH5∃4dε
#"J(01 'Q,, !↔h∀∩!∃∀Q0(D∀u⊂*J4h %⊃"TQ(_ O"&⊗ B.d
∩"*
(01λ
:⊂5∃*4 J#!*Q01ε7",,ε1.h∀ ⊃*∀Q(_λ∀uλ~∃4hε5#"@↓Gq⊂5λ∀∀⊂5 ∧⊂ssJJSsλλj3Pu →sTc!!"Q∀λ~B/,&&α.hλ~C"Q
λTB/&⊗L".dλTC"HJ∪4"'V,LB'4∪4#!(∀⊃S!↔,,La↔h⊃S!QQ∀⊃IX"/,&⊗α.hλi(⊂1
!"Q∀λ*Vα/&⊗Mα.dλTVβ!(∀⊂4K↓/,,FQ.h⊂*+β"Q
λ1⊗α'V,MB'4⊂1⊗↓QQ∀⊂(A/,,Fq.h⊂(A"Q∀
λb/,&Vb.h
λc"Q
S0"'V--b'4∃S0!QQ∀∃IY⊃α/&⊗-b.d
S0( λ3⊃β!(∀⊂1λ!/,-&1.h⊂(H∀Q4j4⊂TQ(→c"Q
λ4Qb'V-Mb'4⊃+0JZh∀Q(y4u⊃*!"Q∀λh"/,&6B.hλh(
%V∞#"HJ⊃Q,!↔,,la↔h⊃Q$ε ,εA"Q∀
8b/,&6α.h
8h
%V∞#"HJ∀pl!↔,,l!↔h∀pdε ,εA"@↓ETpU
Iα2sε⊗λ⊃0I{λ∪0(:Sh⊃λXR3R*I3sTeD
2JYQ+-fQ"C"G900tIt∃∪h
J4SHε6H⊂R*D∃stHJh∩3JIh
(
Z∀r1λT⊃∪uid⊂V5λZc"C!%S00j)b5qε6B0+λ%⊂c"A∃↓'&$Tj∧ii⊂↓
.BYTE <376αMε|0xxyε_nh``x↑h``xBxy∧_bn|TH`||Xpy∧Ln\l`|↑H`|~∀$@@]¬e)
∩y∧LfnnxXxyα_nh``x↑h``x~∀∩]1∪'(∪M%ε~∀9 ≥ ≡4∀~∀wA b`↓π!*A%≥')%Uπ)∪∨8A≠βπI≡\A)¬↔ &@TAβ%∂U≠ ≥)↓→αεM∧J9α:⎇∩6ε0hQmEA∧~8 $Udβ*∧i_Td%4 U-≥Dλ$*¬
(U≤,jDαC"λi∀,dD
4-∧~(∃$⎇*5⊂hS8*U"¬IλR∧ EH∀~d∃D∧ tD ¬∩∧i_Td%4 T
Jλ(R∧dXjB∧∀H→dZ∧→hB∧Ld
4z`Q'5<LID∧
≥8YT⊂ ⊃(⊂*4⊗Q4A`W⊂⊂*∩"P'hλ"αIELD MUST NOT BE LEFT BLANK.
.MACRO I10 OP,CAC,CI,CAD,CXR
ADH=0
ADL=0
.IF NB CAD
.IRPC AD1,CAD
.IIF GE <ADL-100@`x 2 "!vε$a=EAεβh!∀α∧ IGS αO⊂(I MmfvoJp(F#"B$∧ Q3HI#"B$∧ Q3HHc"B$∧ R2(d⊂H⊂h_k⊂0gVβ"B$∧ R2(d∪PHλ80k⊂( ↑a`aCE∧P⊂ $dc⊂⊂⊂!dV∩↑XεEαP⊂↔$Rc⊂'!λ!dV$OadFEαP⊂↔$Rc⊂!⊂⊂l)⊗,∀≡XεEαP⊂↔$Rc⊂'!λ!l)⊗⊗)≡al∀εE∧W∪&$↓ST SRC
.BYTE <ADL&377>,<<ADL/400>!<ADH*200_fnn|xXyβε_bTd`@Vy∩TD``Vya$Th|xVyβ ↑d||4∀∩@@9¬3)
$y∨ LLnTb`,yβε↑H||Xy= ↑h`x~∀∩]1∪'(∪M%ε~∀9 ≥ ~%∩b`~(_w≠β
%≡@AQ≡A∂ 9 %β)∀AαA%%∂⊃(A)+')∪→∪ λ@L[↓0ε$)αZεe*∀4)\2>Iα
↓II6∀JQαε∀:V6⊗u 4(4Rr6ε∞∀x&↑⊃∪⊂&ε⊂hP%↓α "!u@hP%↓α "1u@hP%↓↓tJJB L
⊃E2 4(%α↓:&&0J≡∃↓d
∩15 ↓AAArbε∩!kaEA* "!y-d
∩1= ↓AAAph(%↓∧
∩1u ↓)rε$a→]];9y.ε#λ4(%t*:∩4hP%0∀iI∃≥ ~:$_h!∃d∃MHQ∪d IDc≠;weCcd_IB{#επb d_IαS∪ε∧c≠;wgbcd_Iα{∪aQ JtI~5 M:(0hRhYd$h~xC∪⊂Q!PS]λJβ α ∃tz∧→j5%∃X:DL|d T ≥)ub¬$→8U~βTλ∃∀=YXTu"λ~2∧tzHT"∧_)u4(Q'4Lr
I∧*∧HZ4≥∀~
DL|d t2¬IλR∧K⊗∧∧l :)rr¬IλRβB ∃tz∧z∧∧≤|HZ2∧
(QPS\HXdLtXD∧
~λ~$*∧HZdL≤Tλ4p_⊃4hλ~∀Kλ
+λ∀λ_kλ⊂)hλ⊂ph∃C"C!%S00j)b23f⊗α3t¬H∃K⊂i∃⊂1 λ;∀C"A∀λ R)_H⊂Hλ9+∩/&↓"B(∧¬R21D PH⊂i∃∩/0i⊃"B(∧¬R21DλH⊂v
%⊗∀O&↓"B(∧¬R21D PH⊂k
K⊗∀GXv∀C!!"0S 9o,C!!"1⊂*H3o,aQB"0IIr/,↓QB"1λ~⊂2/&⊃"B"(9sSo&A"B"(9sR/&Q"B"(9sTvGVC"B!_ssTiw-c"A⊃04∀GVβ"B!~∩/-↓QB"4λ_o,,↓QB"0h8/,-↓QB"0(I∂,β!!"01 G,β"A∀λ R**⊂h⊂(F+⊂1↓QB(λ¬i21Hλx(∂⊂(I ,,εε ∂Kλ_∩∂0(I l,εε β"A∀λ⊂1 G,,
GH1∪ FvmmoE81 #!!(λ HYQ∪#!!+SS ~uα4j(c"B$∧ PV*H"/⊂(I LmfwK∂∂λ_∪ mεε∂H/λ_∩
LFε LmfwOK∂ z L*F&
o ∃L, ¬7⊗∀JFGOJoλ_∩ lGgC"B$∧ PV*H"/⊃
dLmm¬7∪t f'OK∂λJKm ε¬l-OAQB+S ~uα4j(c"KHYQ∪")→l,β! ↓Gu∩∩*4∩4hλ∀∪00j)h∃∪d
p25∧λStHλ∀⊃∪sHT⊃S⊂(q"C"Ei00tIq5qVHZSh⊂I~∀q3↓QB(λ YuB(f&, EE*∀t¬⊃.tq*D∃∩3(Yu5λλ9Uβ"D∧∞,)π!(λ⊂I~α(pI~∀q3¬H Q∩(_l".jH4uλλ)5β"A∀λ⊂Q*⊃.,I↓⊃.s⊃(~Q(∩(d⊂R5∧ Q4Se rj#!!(λ⊃λXb*∀j¬"".hH0tQ)X3Uλλ9Uβ"A∀λ⊂SHQ.,)↓⊃.psij∩3U(T∪∪sj↓"B(∧
∀uα**∃⊃Sλq".sjI⊃4Ui~q(∃ →1(∪jZβ"B$∧⊂SQ!↔,Iβ!!(λ∩J:B4L%D⊃⊃U →#"H∧π,I∞A∀λ∃∀jA*∀t¬∃b".j(4q5∧
u⊂0i4 H⊂iyU∩3JX#"KHYQ∪#!!"C"G:∩∩4d 00tIt∩4hλ∀∃p2*D⊃StDλS⊂1d 00tIuC"Ni~λ∃p)~∀h⊃IzH⊂(
H4uλλ)5λ∃ t⊃sh
Ih∪sHQ"NqJ)s(⊂$ Q4SaQC"KIX0tSa~qSsHT⊂R5
83β"A∀λ∪3jaUT CNT
93$: BIT #BITSEL,@.STDTE ;TEST BIT
BNE 94$ ;LEAVE IF NOW A ONE(OK)
DEC (SP) ;DECREMENT CNT
BNE 93$ ;CONTINUE LOOP
TST RPTFLG ;OTHERWISE TIME OUT
BNE 94$
JSR R1,$DFTIM
94$: TST (SP)+ λαwI ' (↓')βπ,~∀] 9 ~~∀4∀v]≥1∪'(~(] ≥ ∩vA Q β'∧4∀v]→%'(~∀l]≥→∪M(~∀]% ∪ ↓ ) ¬ λ~∀v9→∪'(4∀_]'¬Q)_∩U ¬λT∪⊃)
d`↓ -∪
A% ≥∪') HAβ≥λ↓¬∪(A⊃
∪≥%)∪∨≥LX@d[)β_ 5;(4(4T"R⊗ε%⊃t%E3!AA@HInε∩%∩⊗NM∧z→↓"4JJNQJα∩R∃∪↓α∩⊗4Jλ *
(T<M:HU∩∧)It≤XQ(E$-9≠#hKεεββ#↓⊃∪]≥λ_4Lttλ$-%xXTr∧9ye≤,:ZDM4TλE$+&∧u_h(JD,l≠πPK ⊃↔4l
→U,j jTl∀Z$∧|2λJD+∪∧z2∧|d tt*
λEαk⊗⊃PT%HZ5U≠Q⊗PHK:9∧L5D
Dz∧9ye4-*D∧%$Tλ∀$%(Z5~¬It∧%$T∧0hPQ%dL0_Hb∧%HXD,0Q'4|4j8U%~λj$|j
I∧*∧(~4*∧xd¬$DTλE$+&∧∧$-i_4*¬(XtM≥HZ"∧∀Ix4Xh':Dz¬:λT≤Li_2β ¬v∪
∧→jD-∀h_4*¬(→R∧dx8∃$Lyj2∧ hD¬∀,y~5$-*5`hPQ'2¬$λT∧4M*:Bβ $
$,<~:D-∃4λ∃∀* iu"∧→i∃$L→I∃T,Dλ%Jα)→dM"$¬∧∀,8~U≤*
I∧-Jλ~$*∧→d¬∀ Z5⊂hPQ(DeL9jChKε↓⊂K\HYD
Jλ9u,uA⊃⊂JD_HE∀-:4¬EE εβαHQ(D-ExF∪hKε!⊂K\HZ∧⎇≤~D∧⎇∩λ[∧ l→hR¬<z(Bβλ∃λ∀$%(Z5~¬ ¬Cβ%⊃PT$[
t#∪Q⊗β H↔8D-∧z9∃"∧z$∧-D→Y∀t*
yu∀"ε!∩D HJ$-≥4 ¬EEεεBHh(HUE<F7PKβa⊃∪\$Z u≤MD u∩∧[λ∀lLhT¬<⎇(Dβ_Jλ_D%∀Z:2¬E ββ2⊃Q%$,h_C h⊗⊗HK6⊗α∧ HJ$-≥4
t⎇∀Dε∩∧4z$∧$-↓∃∧ $J(U≥~ ¬EC⊗¬⊂hUHYd #'Q∪ ⊂⊃↔3 αλ_D%∀Z:2¬<z(Bβ∩λiu∩∧H[JD_HE∀-:4¬EE ε∪∩HQ*D{ λ(3hK⊗A⊂K]Iv∪α∧+~D*∧9zTu ⊃∃∧ $J(U≥~ ¬EC⊗E⊂hUIv∪ ∀7Q∪ 0⊃↔5${⊗∀∧∃MHT∧≤⎇Yj@HJλ_D%∀Z:2¬E β 2⊃Q%${⊗λ∀#h⊗&HK:Is α
λEβ ∀ T,lz+∩∧ HJ$-≥1∃∧ $J(U≥~ ¬EC&¬⊂hUIv∪ GQ∪∪⊂⊃↔5${⊗∀¬∧%ε⊗∩∧lYYu∃Jλ_D%∀Z:0JD_HE∀-:4¬EE ε#∩HQ*D{ λJChK&A⊂K]Iv∪α¬λJβ
λH∃$
yu∀ ⊃∃∧ $J(U≥~ ¬EC&E⊂hUIv∪ %GQ∪∪0⊃↔5${⊗∀¬∧%ε⊗∩∧$~H∩¬<z(@HJλ_D%∀Z:2¬E β∪2⊃Q hS4
DD* H∃≥"εD¬∀,y~5$-*4∧
∀T ∀tMI_∀dM(XB∧∃∀∧$Lt~D"αD(X4
-8T¬$D[∀∧
∀T ∀r∧iI∃αliIu¬~⊃Q hTI_∀; Q⊗3H↔8DL yiu≥$_4¬<⎇(DβλH∃λ∀$%(Z5~¬ ¬C≠¬⊃PT$__s∪h⊗6 HK8I∀ <iz5$L4
t⎇∀Dε HJλ_D%∀Z:2¬E β≠∩⊃Q%≥$~JU≠h⊗6@HK6⊗α{ ∀ ∀u$Z(d ≤T
5$
JZ2¬<z(@JD_HE∀-:4¬EE ε3"HQ(DL v7PK≠a⊃∪\$__tt⎇:I∀~¬yz$"β1⊃∩D HJ$-≥4 ¬EEε6bHh%hTt$1Q hS4∧¬$DTλd|dIztLttλ∃∀*
I∧*∧_HE∀-:8U~∧xd¬$DTλE$+&∧∧LuHZ%∃-
D¬4,:Iu∃_Q!PT%HY∃3βQ⊗∪;⊃↔4LuHZ%∃-
D¬4,:Iu∩∧iz"∧%HV#αα6↓PT%HY∃3 Q⊗∪; ⊃↔4LuHZ%∃-
D¬4,:Iu∩∧iz"∧%HV#αα6⊃PT%HY∃3∪Q⊗#;⊃↔4LuHZ%∃-
D¬4,:Iu∩∧iz"∧%HV#αα6!PT%HY∃3≠Q⊗#; ⊃↔4LuHZ%∃-
D¬4,:Iu∩∧iz"∧%HV#αα61PPcZ
I∧*∧iyDd⎇y→d:∧X_5∀z¬λE$-hX2J∧K→d l_9EJ∧9yU¬-HZ2¬$λT∧LuHZ%∃-
APSZ
hT≥$z$∧ $J(U≥~λ~5≤|9_∃$,D
tM$∧λ∩¬∧~*DL≥YH∃∩∧JHS∪αaQ#Z¬IλR∧4~*5"∧~(u,lYjBαDJHT%∀%∀∧M~λ∀¬∀,y~5$-$ u∩∧XYT⎇∃∀ D|≤~I∀|pQ'2¬< _4B∧9ye$ →h∧d
∩⊃(λ(4q(λ_⊃∀Q*:h∪qD
∩⊃(λH5R0hT∀Q1i~u⊃4DλS∪pi1"NhλitH⊂$
⊂4U _u3⊂*$⊃∃⊃&& C"G4∃∩⊃$
q0sihλ⊂4Hz313JD
⊃∃λY5PJ$ 4h⊂$
Q1r*:⊃4H zH∪1)YtV( Ipp5 →sC"G4∩3U t∃r∩(9λ∃∩ ~h∪0(:Sh∃i→∪λ∀jItQ(
I⊃(⊂H~q(⊂(H∀Q4j4∪qH
I⊃(∩)`*"i)∃h*εE∞P+"aU'i⊂ TigadPj"b⊂∃dj$⊂∃$"P)PfbP"∃"Y_↔βEεE↔∪`ai'Bb*"k⊃aDb*⊃b)!⊗⊃*"dk⊂⊗∨f P"fεEαP⊂&gU!∧b*⊃b)!⊗⊃*"dk⊂εE∧Pλ↔'*,T"Db*⊃R*_⊗⊃*"dk⊂εE∧Pλ↔$c∧S"Db*⊃R*_∪
X∧]dTP⊃"*⊃dk!⊃λ P)"Qdij"T∨FE∧H⊂↔$c∃εE∧Pλ!f)!αb*"dU!∃XFB∧P⊂↔⊃g"!FB∧P⊂ Q" #DTEIV0,DTEIVB ;THIS MACRO DEPENDS ON THE BIT
BIT #DTESIZ,DTEIVB ;PATTERNS IN THE DET¬∪π∀A% ∂%') $4∀∩@A ≥
∪→¬¬ _∩$wβ I '' LAβ≥λ↓∪≥) I%+!(↓- π)=$~∀∩A'+∧$Dε∩R-~&i.%"⊗&Yαj∩R⊗M1E2∩$*&ZλKZε∩∩∀*NN⊗~p4)↓∧bε
⊗cP4):,r∩4&%"⊗Z⊗_h(4)\∩&Qα
~N&≡tj⊗:R~α~>Iβ A=E
α&:R-∩~ε∞*αJ⊗≡M~R⊗J_h(4)\∩&Qα
~N&≡tj⊗:R~α~>I¬"⊗:ε#λ4(4T"⊗Av∀JQETHIn6>$)α
&"α~>I∧"⊗B>≤JQ↓!βj⊗bεlJ:∃$hR→Ev∀JQ\$HIn"&<Aα>J$*Iα
M!α>→∧2εNQ∧
α
dz∞,4T1Iv
M!X$$KZ2>]α↓↓↓ α↓↓↓ α↓ ↓↓α⊃↓↓↓∩↓↓↓↓⊂h(4)\∩&Qα
~N&≡tj⊗:R~α~>I¬"=EB∀_4(4TJ:QE j
&Q ($%n≤*Qα∩|r∃αεt!α&:$*JJV¬!α
>$A↓EA∧
:⊃↓ λ4(4SZ
&Q∧
NN&<r6⊗:%→α~>∩αR=E ∩ 4(hR&:Q ↓v
&# T$ ↔:4-"λItt*λ→d"∧→jD-∃*Z¬"∧)zDBβ⊗∧∧ tDε∪λh+*5$⎇πX$M#⊗A⊂K]:Iuα∧yd∧u,IDαETZ)rJ∧9λ∃∀ :HU⊂h!Q#\∀~D∧
≥9_ttlYjE~∧iz"¬$v⊗∧ "λ→d"¬Iv∪ AQ hT+~D+∪X)∃#⊃↔5%<tλTL<
ET∀MDλ%M$Z4¬∧-$
t⎇∀AQ c\)~B∧
:9∀<tXYe%~λiu∩∧I_∀;
¬
u∀MHU⊂hPQ(E¬,J8Sl∀~FpHK:
Te≤T
DD* 9C αλ9D|≤1Q%¬,J8Sl∀~FB ∀~FHK:9∀t<HT¬¬,J8R¬$λTβ αv⊗∩∧≤Ix4Zαλ→E≤z
8U%_Q!⊂HK6⊗α{ ∀λDL yiu≥$_4∧l|HU⊂hTH*U≤,gX$M#1⊃∪\$__tt⎇:I∀~∧*Z2∧,h_$d(Q(D≥≥*GT∀MF1⊂K\I_∀<tz:DL~λ9tll→hB¬≥H~%"α hU:∧h→T*∧iz"∧$*Z4,r⊃Q$%≤YhCl∀~F HK:8Tt"
I∧*∧X*U~∧JZ$LttλDL yiu≥$_4∧5,h:DL|aQ$$L9F∪βl)~CλH↔94c ∧λDL yiu≥$_4∧l|HQPT#⊗ε∪ l)~CH↔6∪α{⊗∀∧LuHZ$4 8T∧$L_yd⎇≥I_2∧lxHPhPQ'4∀MDλ∃≥≤_ydl,jJ2∧4z$∧$L_v∩αE(X∀"HQ!PU$v⊗βl∀~FpHK9→e$-(h∀≤* X∀T⎇$
5$
HTβj¬Iv∪α¬J(∀u≤hZ hTH[βl∀~F`HK4∧ααα$∧ααα∧∧α∩α∧∧αα∩∧∧βj∧HZ∧⎇≤~D∧⎇∩λ[∧ `23Q!QU∪l&↔0R5εQ".h∧∧λλH∧∧λλλ∧∧Hλλ∧∧λHλ∧π(∃∪f⊗(∃∀H→TqQ*!"UQ(6
∂0I~
α"':Q0u zH∩3JH4TU*
λ⊂1λJQ4tdλR5λεA"UQ(6 o0I~ b"'4λλH∧∧λλλ∧∧λHλ∧∧λλλ∧∧Hλλ∧∧λHλε1"UQ(6 O0I~ B"'4λλH∧∧λλλ∧∧λHλ∧∧λλλ∧∧Hλλ∧∧λHλε!"C"G8R5λλ~tr1ii13U
4⊃StDλ∩01f$
∃tI~⊃*#!!"Q1 yQ4o()5 -↓⊃.tq*D⊃0U*4⊃∪sHQ"Tu s⊃∂()5
b!↔tu⊂+∀∩3Hλ:4TQ)jλ∪0))tH∀jH5⊃#!(s⊃0*'0R5εa".tλZQStIT⊃∩0(yStu _h⊂sλX4C"AQNpR*D⊂4ti_sS1)j∀h⊃IzH⊃∩(_lH
(01
!QC"Nh)5λ⊂*:r1sIX3U∀dλStHλI01ld¬∀Q0(E#"C!*P32*6∂0R*Fb".j(S/,∧¬⊂3∪∧ Q4ShZh⊂siY3Qh z5λ∪hd∀P3%⊃"TQIX1 ∂()5 "!↔tQS$λ1⊃∀HZth⊂I~λ β!*QS0(F/0R*Gα".d∧Hλλ∧∧λHλ∧∧λλH∧ε#"THi01 GXR5∞!⊃.hλD∧λλλ∧$λλλ∧∧Hλ AQTQS(_ o0I~ ,α!↔hλH∧∧λλλD∧λλλ∧$λ c!!"@↓GpR5∧λ4tr(yS13JJh⊃Sj$∀u⊂*J4h
zR5⊃%⊃"C"HIsL,
70R5ε⊗"".j85λ∃ v,λ⊃ yQ#"HIsL,λ70R5ε⊗α".h9⊃04D
∪l,∧λ∪sQ!QQ4TF⊗∀o0I~ ,b!↔tq5∧
∪l,∧λ4TSj!"Q4J&,⊂o()5 ,A⊃.psλX4H∃ v,λ⊃**StC!)3U &~o0R*F,""':q5λε⊗λ∀Q*∀∩3UλZTU4
D
∩3JH4TU*
∀h &∃#"R)j ,0gXR5 &↓".piH04Hε⊗λ∀Q*∀∩3UλZTU4
D
∀Q)YuQ4d 3U⊃**U4∃∧
∪h &∃#"TλZPs∀GXR5∞!⊃.psλX4H &⊗(∪1)YtV(
λ4R5 ∀⊃4TIzC"R)j ,∀gXR5∞↓⊃.tq*D∀Q4*X4uλε⊗λ∩3JH4TU*
λ
∩)j⊃4TJZ∃∀hε⊗
#"HIsL,*70R5εq".thZλ∃∪f⊗(⊃∪ih#"Q yL,0gXR5
A⊃.psλX4H∃ v,(⊃ yQ#"HZTL,*70R5ε⊃".thZλ∃∪f⊗(⊃4J)tC"HZTL,(70R5ε↓TO11 ERROR
;BIT ASSIGNLENT@LAλ
.@$¬≥$~JU~α∀Q(λ@∀FEβE*'XL"'≡a∩j_ZDB]j'XL⊂"'g⊃FE($LX'c≡P$j_ZαD\βTHIS DTE20 IS NOT TRYING TO INTERRUPT THE -10
TO10ER=BIT13 ;TO 10 ERROR (NPR TIMEOUT OR BUS ERROR)
INTR11=BIT12 ;11 INTERRUPT PENDING
DOOR10=BIT11 ;10 REQUESTING 11 IN↓) %I+!(@! ∨∨% →_A→%∨~@D`R~∃⊃1/%λD{¬∪(D`∩∩w⊃ !⊂≡≤JQα>∩α⊗bεlJ:∃α<zJ⊃α|r∀4*∧
J⊗J∪j
&QHH%m5 α6⊗lzJeα∧
J&RJα⊗JJ⎇⊂4*∩|zIEEl∩&Q`HInJ⊗
*⊗NQβ Aα&u"⊗JJ-αQ↓"$z>J
,b1α~∀z5↓E
H4*R{ F∩9l∩&Q\HInR= α∩>t(4*⊗∃~⊗0βX)∃#0⊃↔4*∧*Xd4-$
4,dX:@hTjYE≥%πX$M#Q⊃∪\uYIB¬≥IzhTHX∀# πX$M#A⊃∪\\F⊗α¬≥Iz¬∧,AQ$$∃Z9tsl)~C_H↔8DL yiu≥$_4∧∃-4λTt )HT h(HUD$ygT∀MF!⊂K\HZ∧⎇≤~D∧⎇∩λ[∧ l→hR∧$yhPhUIv∪ -'X$M#⊃⊃∪]$tε∪
∧Z*$⎇∩¬ e¬∩
I∀l,zZB∧⎇$λ%-~λZ%∀⎇%⊃PPcZλjTt≥I→tr¬8YD,≥Dλ4|$Z1PPh*:E∧≤I1∪kβ⊗↓∪Z¬:Iuα∧9It≤XQ*5%∀9I0Kkε⊗⊂KZ
:D
∃Dλ4d|91PU≥89DXKVε∪ K4
4LtyHR¬≥HZα¬$λT∧≤dx90hT9J$m⊂↔Vβ 0↔4∧≤dX~"∧m$
$-≤ZAPU≤ZIU⊂KVε∪8K4
4-" Z"¬∀Z8U h(*$≤d1↔Sβ Q↔2∧∃Z*5"¬IλR∧≤Ix4Xh)HD≤d1↔Sβ !↔2∧dx_B∧≤Ix4Z∧*Z%≥"λ9u,uHZ"α2
(∃$(Q(4d\9h@Kk⊗ε⊂KZ
(T "λ9D|≤4λ4|tI~DL|aQ hTHJ$ k⊃↔Sβ≠↓↔2∧dx_B∧"Z(∀j∧H~Dλh)HE∀ V!∪kβ6⊃PTdJ(∀k_↔Vβ≠⊂Q*$%∀→X⊂Kk⊗6⊂KZ
(T "λEU∀ Tλ∀$%(Z5_h*(E∀ V⊃∪k 6!∪Z¬(X∀"∧EZ$ jλH∃$λQ*$%∀→V Kk⊗60hTJ(∀l !↔S ≠!↔2∧"Z(∀j∧∀∧b∧⊂Q(E∀ Y!∪k 61∪Z∧EZ$ j !PPh)H5∀ V⊃∪kβF↓∪Z∧Ix∀"∧5Z$ jλH∃$λQ)D≥∀→V KkεF⊂hTH:$ k1↔Sβ#!Q$d≥(→S KVεC_h)H5∀ VQ∪kβFAPTd:(∀lλ↔Vβ#8↔4∧d|_D∧~m(→R∧ HJ$-≥1Q%∀≥(→SλKV⊗CK4
$, Dλ2m∀→T∧$
H∀∧ tDλ∀$%(Z5_h*(5∀ V!∪k F⊃∪Z¬(X∀"∧5Z$ jλH∃$λQ*$≥∀→V0Kk⊗F hU(:$ kA↔S #1Q hU(YD≥%!↔Sββ↓↔2¬∀YI∀u
Y~4B∧9ye%∀yD∧|2
I∧*¬J(∀u≤H~D⎇⊂Q(DL z(@Kkεε⊂KZ
8U"¬J(∀u≤H~D⎇∩ →bβ ∧
Dzβ⊗∀∧$M(X5$LyaPT$__td ↔Vββ⊂↔4¬≤-D
E∀ j9D
$z$∧Lrε⊗∩¬$tε∪α∧I~$,≥I→tph)~$d|_A∪kβε1∪Z∧Yh∀∀dT D| I→d:∧xd¬$DTλ∃∩αd ∃∩¬(XtM≥HZ%_h(J$e$9↓∪kβεQ∪Z∧Ix∀"∧EZ$ j H∃$≤λZ0hT9J%∃,a↔Sββq↔2∧≤HX∃∩¬*Yb∧4I~αl4IzhU8ZE∃,a↔Sββa↔2¬≤ZD¬∃,dλddM¬Xdd⎇↓Q$≤|h*U KVεβ K4
DD*λ9tu$→jT*∧*ZE$|aQ hPe∀X_CKV⊗∪K4
∧Jα∧∧αE∀X_B¬≥H~E-~ε
!QTQ0(F"/,&⊗".h
"*∀HX1λ∀jH5∃4dε*#"J(01 A↔,,,A↔h∀∩!∃∀Q0(D∀u⊂*J4h E⊃"TQ(_ b/&⊗,b.d
∩"*
(01λ
:⊂5∃*4 j#!!"Q∀λ~B/,&&α.hλ~B*⊃λ~⊂(∀λ~∩
#!(∀⊂TA↔,,L!↔h⊂TAQQ∀∪*⊃/,,F!.h∪*↓@E"(⊃&D↑XL→D]P⊃&FE"∀!),∧OXY~∧NP!),βE"( T,∧↑XL~D]P⊂i,εE⊃( b,α↑XY≠α]P b⊗εE"(⊂b∧↑XL≠D]P⊂"εE"∀#"D↑LYYD]H#"FE⊃()aDOXYXDNP)aFBDPERG =157 ; E-BUPε↓% ∂∪M) $~(~∃% Aπ⊂∩zDf`∩v↓% βλ↓!ε@b`Zdl~)% !π0∩zbfD∩vA%∃βλA! @dnZLj~∃%⊃,α6ε@IuEM⊂ImαJ,
⊃αZl ↓Eak⊃X4*∀"X∧l→A∪k 61∪Z¬(X∀"¬iX∩β∪uV3(h!Q$l≤ JDe↔VC⊂K4
R∧≤xHR∧D→JB∧dyzα∧ HJ$-≥1Q bu8*E$`∃($∀"!→4c ∧λT∀⎇∧ T ≥)t∧$,i→dE0∩3sJ5λ
)X4K-fQ"C"G f`ai∪P*'P∃*i'⊂ [⊂!$U⊂+gi⊃)P$g∃'P~P∃h)db⊃P"'kS⊂!,j⊃iFEεB↔&`aT'Dkb [∧`V⊂⊗!FEαVαNLIST SRC
.BYTE <376αMε|0xxyε_nh``x↑h``xBxy∧_bn|TH`||Xpy∧Ln\l`|↑H`|~∀$@@]¬e)
∩y∧LfnnxXxyα_nh``x↑h``x~∀∩]1∪'(∪M%ε~∀9 ≥ ~4∀~∀wA b`↓π!*A%≥')%Uπ)∪∨8A≠βπI≡\A)¬↔ &@TAβ%∂U≠ ≥)↓→αεM∧J9α:⎇∩6ε0hQmEA∧~8 $Udβ*∧i_Td%4 U-≥Dλ$*¬
(U≤,jDαC"λi∀,dD
4-∧~(∃$⎇*5⊂hS8*U"¬IλR∧ EH∀~d∃D∧ tD ¬∩∧i_Td%4 T
Jλ(R∧dXjB∧∀H→dZ∧→hB∧Ld
4z`Q'5<LID∧
≥8YT∀dTλ∃~¬(Z$zr∧
DD* zα∧4_YD"∧ZZ5"∧izB∧∀T D,5Dλ$d i5`hPQ%dl :)pLK⊗↓∀⎇αH8∀~d9∃D≤ EH5E⊂Q!⊂L IπSh!⊃∀ $GVhP∀∧αtLa→d∩∧8_@hP∀∧αtM*λ0L F∃D≤ AQ Jα¬i∀L0_xRβd_IBk εεββrH_DCl_IB{ εεβh!∀α∧ IGS α'H∀$bfvs;;e8∀#λQ!∩ααhYd$hQ!∩ααhYd$_Q!∩ααi→∀2∧$λ4 ~H_3kQ!∩ααi→∀2∧h$∧≤ 5H∀≠l8_0hP∀∧αtL_d∧∩∧9∃DKk↓Q Jα¬i∀L2 h"∧≤∃I∪l≤⊃Q Jα¬i∀L2λ$∧≥E%K¬∪k↓Q Jα¬i∀L2 h"∧≥
%EE∪X;¬⊂h!∃dtd~:@M≥(1PPJ∧¬d∃MHQ∪d IDc≠;weCcd_IB{#επb d_IαS∪ε∧c≠;wgbcd_4c
S&εα[d∃&∪βα7K¬∩SGgb[d_Iα{∪gaPPJ∧¬d∃MHQ∪d⎇∧f3:S⊗¬3d 5v#srGIuα{Fπ`hP∃iDM≥A~5∀_Q%d,tIQ∀K ↓Q c\X_5∀z∧
Dz∧xYd-∀~HR∧
)∀<ED %-≥I_dL,Dε2l∃~HR¬4→JT(h'8d⎇∩λ∀β∪∩X)∃"∧~(u,lYj@hPQ%dl :)pM<F& L AQ Jαλ_DCk↓Q Jαλ_Dck↓Q Jα¬i∃∃∧1_∀#
H_@hP∀∧αtL_a∀<*πH∀$bV⊗βββπeD $πWC α(_DCr7H∀$bv⊗βββπaPPJ∧λ∀$cV⊗αSd_IB3;vvsr\_F⊂hP∃hTt$QQ JtiI∃≥ ~:$_h!∃d∃MHQ∪d IDc≠;weCcd_IB{#επb d_IαS∪ε∧c≠;wgbcd_Iα{∪aQ JtI~5 M:(0hRhYd$h~xC∪⊂Q!PS]λJβ α ∃tz∧→j5%∃X:DL|d T ≥)ub¬$→8U~βTλ∃∀=YXTu"λ~2∧tzHT"∧_)u4(Q'4Lr
I∧*∧HZ4≥∀~
DL|d t2¬IλR∧K⊗∧∧l :)rr¬IλRβB ∃tz∧z∧∧≤|HZ2∧
(QPS\HXdLtXD∧
~λ~$*∧HZdL≤Tλ4p_⊃4hλ~∀Kλ
+λ∀λ_kλ⊂)hλ⊂ph∃C"C!%S00j)b23f⊗α3t¬H∃K⊂i∃⊂1 λ;∀C"A∀λ R)_H⊂Hλ9+∩/&↓"B(∧¬R21D PH⊂i∃∩/0i⊃"B(∧¬R21DλH⊂v
%⊗∀O&↓"B(∧¬R21D PH⊂k
K⊗∀GXv∀C!!"0S 9o,C!!"1⊂*H3o,aQB"0IIr/,↓QB"1λ~⊂2/&⊃"B"(9sSo&A"B"(9sR/&Q"B"(9sTvGVC"B!_ssTiw-c"A⊃04∀GVβ"B!~∩/-↓QB"4λ_o,,↓QB"0h8/,-↓QB"0(I∂,β!!"01 G,β"A∀λ R**⊂h⊂(F+⊂1↓QB(λ¬i21Hλx(∂⊂(I ,,εε ∂Kλ_∩∂0(I l,εε β"A∀λ⊂1 G,,
GH1∪ FvmmoE81 #!!(λ HYQ∪#!!+SS ~uα4j(c"B$∧ PV*H"/⊂(I LmfwK∂∂λ_∪ mεε∂H/λ_∩
LFε LmfwOK∂ z L*F&
o ∃L, ¬7⊗∀JFGOJoλ_∩ lGgC"B$∧ PV*H2/⊃
dLmm¬7∪t f'OK∂λJKm ε¬l-OAQB+S ~uα4j(c"KHYQ∪")→l,β! ↓Gu∩∩*4∩4hλ∀∪00j)h∃∪d
p25∧λStHλ∀⊃∪sHT⊃S⊂(q"C"Ei00tIq5qVHZSh⊂I~∀q3↓QB(λ YuB(f&, EE*∀t¬⊃.tq*D∃∩3(Yu5λλ9Uβ"D∧∞,)π!(λ⊂I
α(pI~∀q3¬H Q∩(_l".jH4uλλ)5β"A∀λ⊂Q*⊃.,I↓⊃.s⊃(~Q(∩(d⊂R5∧ Q4Se rj#!!(λ⊃λXb*∀j¬"".hH0tQ)X3Uλλ9Uβ"A∀λ⊂SHQ.,)↓⊃.psij∩3U(T∪∪sj↓"B(∧
∀uα**∃⊃Sλq".sjI⊃4Ui~q(∃ →1(∪jZβ"B$∧⊂SQ!↔,Iβ!!(λ∩J:B4L%D⊃⊃U →#"H∧π,I∞A∀λ∃∀jA*∀t¬∃b".j(4q5∧
u⊂0i4 H⊂iyU∩3JX#"KHYQ∪#!!"C"G:∩∩4d 00tIt∩4hλ∀∃p2*D⊃StDλS⊂1d 00tIuC"Ni~λ∃p)~∀h⊃IzH⊂(
H4uλλ)5λ∃ t⊃sh
Ih∪sHQ"NqJ)s(⊂$ Q4SaQC"KIX0tSa~qSsHT⊂R5
83β"A∀λ∪3ja(lM&ε K %
t
"':q5λ
I313jZλ⊂sJA"Hλπ⊗i∞B$∧⊂R5↓∀pR5
83 ⊂¬ju⊃∃λQ.u⊃*:λ⊂R*A"B(∧λSQ"'⊗ α"'9⊃05HT∩1H iuh⊂$ sQ* yj#"A∀λ⊃⊃(1*∀t¬⊃".qλXtQ3(YUλ⊂ijβ"B$∧⊂SQ!↔,iα!↔pssJI3U1$ ∪st↓QB(λ
Juα4J
⊃S⊃a⊃.su λ4Ur*8(∃∩)X(∪u*A"B(∧λSQ"'⊗ β"A∀λ∩Tj!4L+∧H⊃U∩)Q"Hλπ⊗ ∞B$∧∃∀u↓∃∀t
%1".tHZq5λ
:⊂0raQKQ3HI#"C!'kSS ~uβ"Eh3Q⊂a↔h⊃∃λXPQβ!'kS∩*:β"NeiS∩4jA"KR(a1⊃HλJP4pAQNkS ~uβ"@ .SBTTL DEVICE SYMBOL DEFINITIONS, 4-JUNE-75
; PRIORITY LEVELS FOR SERVICE ROUTINES.
TPILEV= PR6 ; TERMINAL PRIORITY LEVEL
NXMPIL= PR7 ; "NON-X-MEM" PRIORITY LEVEL~∃⊃⊃%!&t∪)!∪1 ,∩∩lA ⊂bDA% π∃∪- $↓!%∪∨I∪)2~) ⊃)!Lz∪ ⊃I!&∩∩lA ⊂bDA)%β9'≠∪)Q $~∃⊃→%!&t∪ ⊃%A&∩∩v↓ _bb4∃ →)A&z∪ 1%!&~)↔/→!Lz∪ ⊃I!&∩∩lA↔.bDA!%∪=%∪)2↓→ - 0~∃≥15!&z∪91≠!∪0∩∩v@ ≥∨≤[`[≠ ~λA!%∪=%∪)2↓→ - 0~∀~∀lA¬∪(↓
∪9∪)∪∨9&A
∨HA)⊃
↓!β%β5 ) $↓/∨%λ8~∀~∃A ⊃ ≥Lz∩bb$∩vA bbA ∃-∪π
↓≥+≠¬∃$A'⊃%
(~∃A ⊃ ≥4z∩n`@`∩∩v↓ ⊂bb↓ -∪
A≥+5¬ $A5β'⊗~)! ⊃→9&z∩h$∩vA bbA→%≥
A≥U≠¬ $↓'⊃∪
P~∃! !→≥~z$fl`∩$vA ⊂DbA→∪9
A≥+5¬ $A5β'⊗~)! ⊃→M&z∩`$∩vA bbA→%≥
A'A λAM⊃∪
(4∃! ⊃1'~z∩Dn∩∩v↓ ⊂bb↓→∪≥
↓'! ⊂A≠β',~∃! 1
π&z%! ⊃→9&∩∩v↓ _bb↓
∪→→∃$Aπ→¬'&A'!∪
(~)! →
~z∪!⊃⊃→≥&$∩vA 0bbA
%→→ $↓π→β'LA≠β',~∀~∀lA∨)⊃∃$A Y∪π &8~∀~∃⊃ bc¬∧z∩bnPnn`∩$vA DbA Y∪π
AI ∂∪'Q %&A β'
A¬ % M&~∃ @bc%&t∩b`∩$vA DbA Y∪π
AI ∂∪'Q $A'%5
~∃⊃ bc-Lz∩b`$∩vA @bbA∪9) %%U!(A-∃π)∨$↓'∪5
4∃ ~bE¬αz∩Dn`j`@∩∩vA⊃~bbA⊃ -∪π∀A% ∂%') $↓¬β'
↓β %∃'&~∃⊃~bc%Lz∩b`$∩vA 4bbA ∃-∪π
↓% ∂∪M) $AM∪5
~) ~bcY&z∩h$∩vA 4bbA∪9) %%U!(A-∃π)∨$↓'∪5
4∃ $bE¬αz∩Dlnnn@∩∩vA⊃$bbA⊃ (
&≤)αJ⊗<JNR⊗∩α
εN*αε∩∩∀*NL4T"IEF∃→t%EH%mα%⊃EEα$*Z&∞*αJ⊗≡M~R⊗I¬~&j∀hR∩IE
2Mt% $%m∧"IEE∧J:R⊗∃∩VBQ¬2⊗∞R⎇⊃αN&T(4(4SY::2M~P4)t*:∩ KZ∩Zε≤⊂4)mtb&NPhQm::dJNP4Rr&_&$1α.↑
~λ4)Zr2&N h(1:N∃"R0&]9EEα$*Z&∞*αJ⊗≡M~R⊗J~αε:⊃∧∩&Qα$*~&:M"&>:~a↓Q6U*:∃5;(4(4TZ↑2&3h%EAH%mα4*∞R>∩αε∩∩∀*NL4Ph*.↑dZMt% 9]UQ0H%mαdJ:∃α≤b>∞-¬~RεR-→α∩⊗4Jλ *λ_D%∀Z:0hPQ)5<d8WPK ε↓⊂KZ I∀t*λ9D|≤4 ∀p
⊃4TJZ∃λ⊃)h0S⊃$λR5β!!"KTh **&∧SfXXP⊃"k$aQP)"cRij"i∀P g"λ!$j⊂⊂iidcS&bg*∀V⊂~⊗R*g"VMZFEεB&ff(∩k≡DXLZ∧D]U"aj'T⊂ b"∀"iiFBεE&fS(! ↑BX[Y_L_∧D]Lij⊂&SXXVf∀⊂""k∩abP Q")"iTFE&fS("`↑BX[Y_L[∧D]S ij⊂∪fXXVS(⊂""U$abP⊂b")"TiFEεB&fbi∀#≡Da∩j_ZDB]bi)∪i⊂#&⊂cFEεB&f`b⊃&↑D[MZ_∧DN`b")⊃iiP&PieFE∪f`b"∀↑DZDB]`b"∀"iiP∀d$c*βEεE&Skkh≡Ba$j→αD]ki∩j"P+T'g#P∀ i$j⊗FE&fT$b↑DP$j_∧B]h i∩j,P$S*"i)∃h*⊂"S a&"CEεE≥K'&$iUεE↔"S"!D]Rk`iaβE≥W&∩ijεE∞W'&$TjεE↔∩c∧b#λ"& iPεE≥W∪$ijεBβ↔)a*∃&∧b& XP""U$abP∀"cdiU"i)P⊂g"⊂!∩j⊂""Q$g$j∩gg)Vλ~⊗e*S"V[ZCEεE"∪)$k≡B[_∧DNP)"aQdk"iλ+"aj∪i⊂ b⊃)"iiCE"&*∩k≡Db∪)$k∃M∧D]P∃) g)Sdj*"T⊂+"aU'i⊂ Q")"iTFE"&⊂ ↑DXM[Z[_αD]P!⊂ibP#∪i⊂""U$abP⊂b")"TibiFB"&)!Ti≡DXαD]P)⊃abdk⊃i⊂)j⊂j*iP∀"cdiU"iεE⊃&)!*Q≡D↓2 ; RECEIVER BUFFER REGISTER
DLXCSR= 4 ; TRANSMITTER STATUS REGISTER
DLXBUF= 6 ; TRANSMITTER BUFFER REGISTER
; BIT DEFINITIONS FOR "DLRCSR"- RECEIVER CONTROL STATUS REGISTER.
DLDSC= BIT15 ; DATA STATUS CHANGE
DLRI= BIT14 ; RING INDICATOR
DLCTS= BIT13 ; CLEAR TO SEND
DLCD= BIT12 ; CARRIER DETECT
DLRA= BIT11 ; RECEIVER ACTIVE
DLSRD= BIT10 ; SECONDARY RECEIVED DATA
DLRD= BIT7 ; RECEIVER DONE
DLRIE= BIT6 ; RECEIVER IN↓) %I+!(A∃≥β¬→∀~∃ →⊃∪
z∪ ∪(j∩$vA βQαA' PA∪≥)∃%%+!PA ≥β →
~∃⊃→')λt∪¬∪(L∩∩vAM π∨≥⊃β%2AQ%β≥'5∪)) ⊂A β)∧~∃ →I)&z∪ ∪(d∩$vA% E+ '(↓)≡A'∃≥λ~∃⊃→ )$t∪¬∪(D∩∩vA⊃β)αAQ %≠∪9β_A%∃β 2~) →%
t∪¬∪(@∩∩vAI β HA ≥β →
~∀4∀vA¬%(A →∪≥∪)%∨≥&A→∨$@E⊃→%¬+_DZA%∃π ∪-∃$A¬+→
$\4∀~∃ 1 %$z%¬∪(bT∩∩vA∃%%∨$4∃ →∨I
z∪¬%(bh∩$vA∨-∃%%+≤↓ %%∨H~∃ →→
z∪¬%(bf∩$vA
%¬≠∪≥∞↓ %%∨H~∃ →I !
z%¬∪(bH∩∩vAI π ∪Y λA ¬)αA!¬%∪)2↓ %%∨H~∃ →I &z∩@∩∩vAI π ∪Y λA ¬)αA'!∪
(~) →% 4z∩fn\∩∩vAI π ∪Y λA ¬)αA≠¬'⊗~∀4∀vA¬%(A →∪≥∪)%∨≥&A→∨$@E⊃→1π'HDZA)Iβ≥'≠%)) $↓π∨≥)I∨_A'Qβ)+&↓% ∂∪M) $\4∀~∃ 1)$z∪ ∪(n∩$vA)%¬≥'≠∪Q) $AI β 24∃ →)%
z∪¬%(l∩∩lA)%β9'≠∪)Q $A∪9) %%U!(A 9β¬→
4∃ →≠¬∪≤z∪ ∪(d∩$vA≠β%≥) ≥¬≥π
~) →¬%,z∪¬∪P`∩∩v↓¬% β,~∀~∀lA¬∪(↓
∪9⊃)∪∨9&A
∨H@E →a¬+ D4A)%β9'≠∪)Q $A¬U
β$8~∀~∃⊃→) &t∩`∩∩lA)%β9'≠∪)Q $A ¬)αA'!∪
(~) →) 4z∩fn\∩∩vAQ%β≥'5∪)) HA β)∧A≠β',~∀~∀l]≥→∪M(~∀]∃≥ ε∩m →β'λ~∀v]1∪'(~(v]≥→%'(~∀9∪ ∪ _A ⊃βM∧~∀v9→∪'(4∀_]'¬Q)_∪ bbA ∃-∪π
↓% ∂∪M) %&↓β≥λA ∪(A ∃
∪≥∪Q∪∨≥&0@h[∃U≥
ZnT~∀~∃⊃⊃∪-¬∧z∩f`@∩∩vA%≥) %I+!(AY π)∨HA¬β'∀Aβ I '&~) ⊃%∪Xz∩`∩$vA%
∪- HA- πQ∨$Aβ⊃ % 'L~∃ ⊃Q∪,z∪⊃⊃%∪,,h∩∩v↓)%β≥M≠∪))∃$A-
)∨$A¬ % M&~∃ !¬αz∩Dl``d@∩∩vA β'
A→∨$A ∃-∪π
↓β %∃'' &4∃ ⊃'
$z∩`$∩vA'e') ~↓π∨≥)I∨_A%∃∂∪')∃$~∃ !≥%π$t∩d∩∩lA≥ 1PA% π∃∪- $↓π⊃β%¬π) $↓% ∂∪M) $~) ⊃→!Hz∩h∩$vA→∪9
A!βIβ≠ )∃$A% ≥∪') H~∃ ⊃
β$z∩X∩∩vA
+%% 9(Aβ ⊃% '&↓% ∂∪M) $~) ⊃¬πHz∩b`$∩vA¬e)
Aπ=+≥(AI ∂∪'Q $~∃⊃⊃¬β$t∩bd∩$vA)%¬≥'≠∪PA¬+
→ $Aβ
)∪-
↓% ∂∪M) $~) ⊃)¬Hz∩bh$∩vA)Iβ≥'≠%(A¬%∃β⊗A%∃∂∪')∃$~∃ !''$z$bl∩∩lA'∪→<A')βQ+&A%∃∂∪')∃$~∀~(vA¬∪PA
%≥∪)∪=≥&A
=$@E !'π$D4A')βQ+&Aπ=≥)%∨0A% ∂%') $8~∀~∃⊃⊃)∩z%¬∪(bT∩∩vAQ%β≥'5∪)) HA∪≥)∃%%+!P~∃ ⊃M∩z∪¬%(bh∩$vA')=%β∂
↓∪≥) I%+!(4∃ ⊃)9∪
z∪ ∪(bf$∩vA)Iβ≥'≠%)) $↓β≥λA9∨≤[05≠ ~A%≥) %I+!(A∃≥β¬→∀~∃ ⊃M∪
z∪ ∪(bd$∩vA'Q∨%β∂∀A∪≥)∃%%+!PA ≥β →
~∃⊃⊃≠εz%¬∪(bD∩∩vA5β') HAπ→ ¬$~∃ !≥1~z%¬∪(b@∩∩vA9∨≤[05≠ ~~) ⊃≠β%≤z∪¬%(r∩∩lA≠β∪9) ≥β9π
~∃⊃⊃π≥14z∪¬∪Pp∩∩v↓π→ βHA≥∨≤50[≠ 4A¬∪(4∃ ⊃%$z∪¬∪Pn∩∩v↓% π %- $A%≥) %I+!(~) ⊃%∪∀z∪¬∪Pl∩∩v↓% π %- $A%≥) %I+!(A∃≥β¬→∀~∃ ⊃5 &z∩P∩∩vA5 ≠∨%dA 1)∃≥'∪∨8A'⊃∪→(~∃ !≠ ~z$l`∩∩lA≠ ≠=%2A a) ≥'%∨≤A≠¬'⊗~∃⊃⊃→'&t∩`∩∩lA→∪≥∀A' →∃π)∪∨8A'⊃∪→(~∃ !→'~z$bn∩∩lA→∪≥∀A' →∃π)∪∨8A≠β',~∀~∀lA¬∪(↓
∪9∪)∪∨9&A
∨H@E ⊃9%π$D4A≥ 1PA% π∃∪- $↓π⊃β%¬π) $↓% ∂∪M) $\4∀~∃ ! z∪ ∪(bj$∩vA ¬)αA!I ' ≥P~∃ ⊃=%
z∪ ∪(bh$∩vA∨Y %%+8A %%=$~∃ !
z∪ ∪(bf$∩vA
Iβ≠∪≥≤A %%=$~∃ !% !
t∪¬∪(Dd∩∩v↓% π %- $A⊃β)αAAβ%∪)dA %%=$~∃ !%→≥&t∩b`∩$vA%
∪- HA→∪≥∀A≥+≠ $A'!∪
(~) ⊃%→9~z∩nP``∩∩lA% π∃∪- $↓→∪≥
↓≥+≠¬∃$A≠βM⊗~∃ !% &z$`∩∩v↓% π %- $A⊃β)αAM⊃∪
(4∃ ⊃%⊃~z∩f\n∩∩v↓% π %- $A⊃β)αA5β'⊗~( ; BIT DEFINITIONS FOR "DHLPR"- LINE PARAMETER REGISTER.
DHAEE= BIT15 ; AUTO-ECHO ENABLE
DHHD= BIT14 ; HALF-DUPLEX
DHTSS= 12 ; TRANSMITTER SPEED SHIFT
DHTSM= 30 @``∩∩lA)%β9'≠∪)Q $A'A λA5β'⊗~) ⊃%'Lz∩l∩$vA%
∪- HA'! ∃λA'⊃%
(~∃⊃⊃%'~t∩bn`@∩∩vAI π ∪Y $A'A λA5β'⊗~) ⊃ t∪¬∪(T∩∩vA∃- ≤AAβ%∪)d~∃ ⊃A
z∪¬%(h∩∩lA!β%%)2A 9β¬→
4∃ ⊃)M∧z∪¬%(d∩∩lA)/≡↓')∨ ↓¬∪)&4∃ ⊃π1&z⊂¬H%mα≤BεJε≥"⊗Iαd*:≡RBαN"&5 4*∩D~25tK_$%m∧~"εJ ~R⊗I∧b⊗:≡$Aα6ε≤X4*∩D~1UtK$%m∧~"εJ ~R⊗I∧b⊗:≡$A↓5↓*α
&R_h*∩"≤aYt%λH%mα≤BεJε≥"⊗Iαd*:≡RB↓5↓Y∧∩&RLhR∩"∞c9t%HHImα∞D
Jε∞$*Iα2,r≡R!αi↓]α∀JRL4T""∞1Ch%L$KYα∞"
∩ε∞R-⊃α2⊗t:R!↓j↓aα
M"L4(hQmα
M!α∩⊗4J:&RLz:Mα4zI↓
$BNNI∩iαN&dyαNR
"VMα∀*≡&N$*I84Ph*∩"≤22MtK @$%ZαN&2zα~&2bα2⊗Z,aαN"L2P4*$BN~2kh%M]#↓@$%ZαN&2zα~&2bα2⊗Z,aα6ε≤X4*∩E∩⊗6MhIX$%ZαJ⊗ε"α⊗bR,r∩⊗⊃∧j⊗6>∃IαN"L2P4*$BJ⊗6kh%MAH%mα∀*ε⊃α-BR⊂ hHT"∧XYT⎇∃∀ T
≤1Q$$E8→E≠h⊗↓⊂KZ
9∀dzλ→D
∀T D-4YD¬≤D_j@hTI
4 dWQ∪;8⊃↔2¬≤→Ir∧ H~$j∧HZd,b X∃≤XQ!PSZiiDM≥AQ"t,hH0K\Iλ∃≤⊂Q'2td~:@hS5iddM:APRt_a∀$2
H∀
≤!Q#ZtI~5 h bu8*E$`~H∪
¬λ4
≥8ZE$*∀λD- R0q$
Q1r*:⊃4Hλ→Qλ⊂I~λ⊃⊃(i3R5 →sTk∧ε 2U)h+-m!QC"Uλ_to"&⊗mm,ε↓".piyU∀SiD⊂3Q∧
u⊂5
Zh∀Q(y4u⊃*!"U⊂(HO"5λ_tjlA⊃.q⊂*H(⊂U(hQ4H
(1r4jH4C"AQU⊂2*g",MF↓".r)j⊃4TJZ∃λ∃HXu∪tAQC"NdλR5λλ~tr1ii13U
4∃r5 3H∃ λ(⊂sij∀Ss∧λ3Qλ
:⊂5∃*4∀Q1i~u⊃4AQC"Uλ_so"&⊃".qit∂(∀jH4Uλ z⊃4P*I3sC!*⊂1U)ho",&a".hHj3Pu →sH∃ t⊂Q(
λ4QSj)11λDλR13λA"U⊂*xQo"&¬LB"'4UtR*H(⊃R)H(⊃p*∧H⊃U)hu∩3ia"U⊂*zR5∂!⊗*LB!↔hUtI~⊃(⊃λ~⊂(Hλj3Pu →sC"JH4Q0(G",JF!".hJ(01λλH5⊂(DλU3PjI3sC!*⊂4tHg",jF!".hJ:⊂0q$
Q5Q**q(⊃I→⊃(Hλj3Pu →sC"JH4tPGQ-
LA⊃.hTjλ0q(
(5Q4J8(⊂S xrh
(0stHE(H⊃JYPu∩)yC"Uλ~qQO!⊗*LB!↔hTtλ_q(⊃IzUp4HD⊃R3λTH⊃U)hu∩3ia"U⊂*8PO"&eLB"'4Tt⊂(8(∀Q*h4Tq$λS∪pi4
∀Q(9tQ
$$⊃U3H:∩3sAQU⊂4HZq∂"&uLB"'4TQ5i→QλHλj3Pu →sC"JH23⊂J7",L↓⊃.r3I~∩05λT∪⊂4jD⊂V5λT∀q4*X3Pq!QU⊂4HX⊗/"&Fα".j(01⊗!QU⊂2)j⊃/"&⊗ α"'93U⊃**U4∃∧λ3P0IH#"Uλ~T4uπQ,L ↓⊃.u∀H→TqQ*$∀Q4*X4uβ!*⊂53I~∂"-εεα".jYR5λ
83⊃0jI3sC!*⊂3qHi∂",&ε α"':3R5∧ qQH I3Q#!*⊂5⊃**O",Fε α"':∩32)hh⊃4J)tH
ItuλλH5⊂*!QU⊂1Hx4∂"&F α!↔qR3λT⊃p4↓QU⊂3 xro"&⊗ _αD]ki∩j"P&∪aebbβE* f⊃`b≡DL____αD]af⊃`i⊂&⊃`b"iβE* a⊂d%↑DM____αD]a&∪aeP!R"aeP
! b⊂⊂i!P Q*"i⊂∀"`b∀CE* bT'i≡DLX__00 ;ERROR (ERROR SUMMARY BIT)
;.NLIST
.ENDC ;TAASB
;.LIST
;.NLIST
.IF DF RXASB
;.LIST
.SBTTL RX11/RX01 (FLOPPY) REGISTERS AND BIT DEFINITIONS, 22-JULY-75
;RX11 STANDARD DEVICE ADDRESSES
RXCS= 177170 ;COMMAND STATUS REGISTER
RXDB= 177172 ;DATA BUFFER REGISTER
RXSA= 177172 ;SECTOR ADDRESS REGISTER
RXTA= 177172 ;TRACK ADDRESS REGISTER
RXES= 177172 ;ERROR STATUS REGISTER
RXIV= 264 ;INTERRUPT VECTOR ADDRESS
;RX11 FUNCTION CODES
RXFBUF= 0 ;FILL BUFFER
RXEBUF= 2 ;EMPTY B↓+
∃$~∃%a/' εt∩h∩∩m/%∪)∀A' πQ∨$~∃I1%' z∩l∩$w% β⊂A' πQ∨$~∃I1%')¬(zbd$∩w% ¬λA')¬)+&~)%1/ ⊃&z∩bP∩∩w/I∪)
A⊃ → )∃λA βQαA'
)∨$~)%1% I$z∩bX∩∩w%∃βλA H&α>I¬∩⊗≡&≥"⊗H4Ph)nJC Eα∞|j6ε:"αε:⊃¬~RεR-→αJ⊗<JNR⊗∩α
&Q∧"⊗~&tJR&>u_4(4U∩b≡=hID$ ↔8txhTV
V/",F↓"]i⊗__P*S$j⊂⊃H_FE)⊗"'g"ODZ_∧B]b'g⊃FE),∩b↑DXL_∧D]Rg*"i∧*h*⊂⊃g a&⊃FE),∃) h↑BY__∧B]j) S)c"iλ)"hjQijεE∀,$g$ODZ__ _∧D]Rg$j$Pf$m"CE),"T)'i≡LX__00 ;ERROR
;RX11 ERROR STATUS REGISTER BIT DEFINHV↓∪∨9&~∀~)%1π%
z∩b$∩wπ% A %%=$~⊂
∃BBεJ+h%H$KZBεJM"eα⊗∃∩>H4U∩b&∩|r∃uPHIn&:M"&ε2MR∃α∩|r∀4*∃B∩∩⊃hIEA@HIh $YHU$,DλD
$∀λD-$X:D, Q*%D%(K⊂Kk&εHK8J$M4T
$, K⊃PPh'5dtd~:@hRhYd$_↔:%D
8!PSZiI∃≥ Q'2ttI~5 h%i∀0LHd¬$≤~8 hS5iDM≥AQ bu8*E$`~H3
¬λD,≥H~∧*JλHU4L8T¬∀,y~5$-*4∧ tDλ$M"λHT4Li~DL|j5Bβ"Y*Tt*VvPhPQ'4$,:H∃∧*
λ∃∀ XZD-∃1Q hUH9∀d{Q_$M#⊗!⊂K\→ID,<→D∧⎇∧Z(∃$LyaPU$:8Td+Q_$M#⊗⊃⊂K]8YD,≥I→tr∧Z*$⎇⊂Q*D≤LWQ∀∀MFa⊂K\→jD-∃*Z¬"∧Yh∀⊂ ⊃#"JHq∪o!_R5 ↓⊃.q∪d t⊃4H~∩3sAQU⊂tHH5⊂/()5 B!↔tQ0(D⊃⊂5λ⊃"U⊂jx⊂5⊂'XR5 e8R5 A↔utR*H(⊃⊂*H#"Uλ:SU3'Q0R5ε⊃".tHX1λ⊂IIprh j30Q*!"U⊂j(5O"()5 ,!⊃.tQ*h4Tq$λ∩4Q(:∩3sAQU⊂tλ~O"0I~ -α!↔t⊂4I~⊗(⊃**StC!*⊂pS 9/"0I~ ,α!↔pS∪h9h∪2*:q1β!*⊂q⊂*I/"0I~≤DDNb j H&diiQbεE*⊂fj"↑Ba$j_LDD]fPi%P*∀ aeP⊃i)'iβE*!bT)≡Da∩j_ZDB]b"aU h"P⊃i)'iβE*!i⊃,↑Da∩j≠DDNi"`b⊗FEεE∃!igc∃≡Dj!T i∃j⊂a&%fJj!b U&Uj!Sj"FEβE*!iU≡DX[MYZ_∧B]ij U*iP)⊃cdij⊃iεE*⊂af↑DL[[YZ ∧D]aSff`g⊃⊂)"cRij"iβE*!aSX↑DXM[YZ→BD]agSf`g"λ*h("T⊂!,j⊃FE*!Ua↑DXM[YZ~αD]kgT"⊂!gUg*⊂)⊃cdij⊃iεE*⊂a ↑DL[[YZ
∧D]a∃iP&bSgi,P⊂b")"TiFE*⊂b*≡DL[[YZL∧D]b⊂j P)⊃cdij⊃iεEεB≥W'&∩ijεE "g"!B]j!`TaεE≥K&$ijβE≥W'∪$ijεB↔$c∧Q#⊂)(⊂iaεE∞W&$iUεEβ↔)a*∃&∧i$ XWi( ~⊂)"Qdij"T⊂ g"λ!$j⊂⊃"c$g∩j$gg∀V⊂~⊗R*g"VMZFEεB!&%iRm≡DY
[↔∧]Q$ieP⊂&'aeH)d↓ZE (IN 16-BIT WORDS)
IFESIZ= 3 ;INDEX FILE ENTRY SIZE (IN 16-BIT WORDS)
FDESIZ= 16. ;FILE DIRECTORY ENTRY SIZE (IN 16-BIT WORDS)
RPCS1= 0 ;OFFSET TO RH11/RP04 CONTROL & STATUS REGISTER 1
RPTRE= BIT14 ;"TRANSFER ERROR" BIT IN RPCS1
RPMCPE= BIT13 ;"MASSBUS CONTROL BUS PARITY ERROR" BIT IN RPCS1
RPDVA= BIT11 ;"DRIVE AVAILABLE" BIT IN RPCS1
RPRDY= BIT7 ;"CONTROLLER READY" BIT IN RPCS1
RPPRST= 21 ;READ-IN PRESET FUNCTION IN RPCS1
RPPACK= 23 ;PACK ACKNOWLEDGE (SET VV) FUNCTION IN RPCS1
RPWTFN= 61 ;WRITE DATA FUNCTION IN RPCS1
RPRDFN= 71 ;READ DATA FUNCTION IN RPCS1
RPWC= 2 ;OFFSET TO RH11/RP04 WORD COUNT REGISTER
RPBA= 4 ;OFFSET TO RH11/RP04 UNIBUS ADDRESS REGISTER
RPDA= 6 ;OFFSET TO RH11/RP04 TRACK & SECTOR ADDRESS REGISTER
RPCS2= 10 ;OFFSET TO RH11/RP04 CON↓)%∨0@LA'Qβ)+&↓% ∂∪M) $@H~∃%!
→$z∪ ∪(j∩lEπ∨≥Q%∨→→∃$@Qβ9λA≠βM'¬+&$Aπ→ ¬$DA¬%(A∪≤↓%!π&H~∀~∃I! &z$bd∩w=
' PA)≡AI⊂bb←I `hA⊃%∪-
↓')β)U&A% ≥∪') H~∃%!¬)αz∪ ∪(bj$vEβ)Q ≥)∪=≤AβπQ∪-
D↓¬∪(A%≤A%!⊃&~∃%A %$z%¬∪(bP∩vEπ=≠!∨'%)
A S
RPMOL= BIT12 ;"MEDIUM ON-LINE" BIT IN RPDS
RPDPR= BITp∩lE %∪Y
A!%∃' ≥(λA¬∪(↓∪≤A%A &~∃I! %2t∪¬∪(\∩vE I∪-
AI β 2λA¬∪(↓∪≤A%A &~∃I!-,z%¬∪(l$vE-∨1+≠
AYβ→∪λλA¬∪(↓∪≤A%A &~∀4∃%!∨_z∩fd$w∨
M (A)<A%⊂bD←% `PA∨
M (↓α∀*≡&N$*I↓"≤z8¬$→→dLttλdm#&%⊂hU*λde#Q_$M#⊗!∪Z∀iZC∪∩$¬β K0R*D∃stHJj(⊂I~λ∩3D
T∪qAQTT⊃(9/"0I~ ,"'4Q4TIzH⊂sj*Q0u →sH⊂i`b"P$S$$a$U⊃⊂!$U⊂$g⊂∀('cεBεE)(⊃!↑DYM∧]gc⊃)bj⊂∃'P)$ XWi( ~⊂""Tdi"bλ!lf$S""i⊂∀"cdiU"iεEβE≥W'∪$ijεB↔"g"⊂D]i(⊂iaεE∞W&$iUεE≥W∪&$ijβE↔$cαb#⊂&∀ iaεB≥W&$TjεEβ↔)a*∃&∧f( _⊂)"Qdij"T⊂ g"λ!$j⊂⊃"c$g∩j$gg∀V⊂→≠Ke*g"K[ZFEβE&(→ ↑DXM[Z~_α]f(→ ⊂_ijλ!gg*∀'f&"T⊂ b"∀"iiFB&(→_⊂≡DX[MZ≠_∧Nf(→_λ→'"⊂⊂gg*)∪f&"iλ b")⊃iiFE∪( k"P↑DY_L∧]f( _ P$S*"i)∃h*⊂+⊃aj'iβE&(!∃"a↑DL__∧]S(→_!λ$g*"T)*h*λ+"aj∪iεEεB&(!iT ↑DXα]gc#∀bj⊂*∪P&(→ ⊂()$S`i,P∀j j*TP)"cRij"iβE&("T)≡Da∩j_ZDNQ"i)∪i⊃⊂!∩j⊂$gλ&(!iT FE&∀(-)'ODa$j Z∧]Q∀ cm)∪Q⊂!$U⊂$g⊂∪(!ii⊂FE&(∃ad)≡Ba$j_LD]Q*S"!d)λ⊂!$jλ$g⊂&∀!ii CE&(+∀",↑DP$j_Yα]Q*g⊃!d)⊃λ!$j⊂∩g⊂&(⊂ii FB&('g∪'≡Da∩j_XDNQ'g&∩g"Q⊂⊂$j⊂$S⊂&(!Ti FE∪(""f∩≡Da$U_X∧]H""f$∪"⊃⊂!∩j⊂$gλ&(!iT FE&∀&$g$ODa$j∞D]Q&∪dg$jλ⊂!$jλ$g⊂&∀!ii CE&()⊃i)≡DP$j≤∧NQ))j⊃i)⊃⊂⊂$j⊂$S⊂&(!Ti FE∪("'g⊃↑Da$U≠D]Q⊃'g"Qλ!$j⊂∩g⊂&(⊂ii FB&($bS!≡Da∩j≠∧]H$g*"S!⊃⊂!∩j⊂$gλ&(!iT FE&∀! X[ODa$j
D]Q!∃i`X[H⊂!$jλ$g⊂&∀!ii CE&(!⊂X[≡DP$j~∧NQ!*iPX[⊃⊂⊂$j⊂$S⊂&(!Ti FE∪(+&'Q≡Da$U→D]Q∃#*f'Q⊃⊂!$U⊂$g⊂∪(!ii⊂FE&(∃&gb≡Ba$j→α]Q*)U&gb⊃λ!$j⊂∩g⊂&(⊂ii FB&(("S!≡Da∩j_D]H( i"S!⊃⊂!∩j⊂$gλ&(!iT FE&∀#g↑DP$j_∧NQ#gQλ!$j⊂∩g⊂&(⊂ii FBεE&(⊂ii!≡BY∧]gQ#)bjλ*'P&∀→_⊂"T)'i⊂⊂g"⊂*⊃ij⊂)⊃cdij⊃iεE&∀*(!*∂Da$j Y∧]Q∪(*(!∃⊃⊂!$U⊂$g⊂∪(!ii⊂εE&(∃_→≡DP$j_Xα]Q*"Tj_→⊃λ!$j⊂∩g⊂&(⊂ii!εB&(*_ ↑Da$U≤D]Q∃"ij_ Q⊂!$U⊂$g⊂∪(!ii⊂εE&(∃__≡DP$j≤∧NQ*"iU__⊃⊂⊂$j⊂$S⊂&(!Ti!εE∪('c#∪≡Da$U≠D]Q∪c#&$S⊃⊂!$U⊂$g⊂∪(!ii⊂εE&(∃"i)≡Ba$j≠α]Q+#∃bi)⊃λ!$j⊂∩g⊂&(⊂ii!εB&(*(⊂i≡Da∩j~D]H&(*(⊂i⊃⊂!∩j⊂$gλ&(!iT!εE&∀&h i∂Da$j
∧]Q&Qfh iλ⊂!$jλ$g⊂&∀!ii!βE&()∀ i≡DP$j→DNQ) fT i⊃⊂⊂$j⊂$S⊂&(!Ti!εE∪()lg∃≡Da$U→∧]Q∀lg*$SQ⊂!$U⊂$g⊂∪(!ii⊂εE&(⊃"↓MT= BIT1 ;"DEMTIM" BIT IN LPCSRB
LPGOER= BIT0 ;"GOERR" BIT IN LPCSRB
LPBSAD= 4 ;OFFSET TO LP20 DMA BUS ADDRESS REGISTER
LPBCTR= 6 ;OFFSET TO LP20 DMA BYTE COUNTER REGISTER
LPPCTR= 10 ;OFFSET TO LP20 PAGE CH∂+9) $AI ∂∪'Q $~∀4∃→!%¬≠λz∩Dd∩w∨→
' (↓)≡A→@d`A%¬~A βQαA% ≥∪') H~∀~∃1!π¬+_z∩bh$w∨
M (↓α$yα2A∪↓α∞"
⊃α
V42⊗Iα∀*≡&N$*I↓"∃JR⊂
⊃Q$e∧8:A_π",-!↔sqQJ85λ∃ t∪∀ F∧⊂ss
Ig⊂!Sjg*"T⊂)"cRij"iλ∀!,j⊃↓)
↓→!π-%~z∩Dl∩w∨→
' (↓)≡A→@d`Aπ! π↔'U~A% ≥∪') H@Q¬3Qλ¬$4TbBB∩
!t%E8In>~5~⊗Pα
Ir∧eε&ᬬ)→e$-$λD
$∀
$,<~:D-∩¬λ%M$U⊃PSZiiDM≥AQ"t,hH0K\↓∀⊂*8C"Ne`&$↓ST
;DSKDMP BOOTSTRAP PARAMETERS
BOOTWD==400.+3008~∃¬∨=)'4zu¬∨⊂≡%:⊃)LHIh uYX$-∩ xb¬∧
¬S
yu∀%4
DD
Dλ$|⎇D t≤≥Z ∀-_Q