File XQUAD.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

v|HH@PH@@0@`p@0
-8 m?9HB@&I92I>/F-=A= -@3I;J?Q06 '4/-V02.: 02.
 02. .6.> .>".02.98 -9;$9892 0S FOR EACH USER ARE HERE. / THE SWAPPING BUFFERS FOLLOW. /8. DISK LIBRARY MONITOR--THESE ROUTINES ARE / DESCRIBED WITH THEIR CODE. /9. THE REMAINING CORE OF FIELD 0 IS / RESERVEDTA r<ap*dD(0pTapg9tv*yG*s
u }I_72\&tTTP p~! N{&=sl6xp)Af:x q%b|3$o&u#"@Ldsq`^Xf^@m,/ / /NOTES: / /ALL PROGRAMMED HALTS ARE CODED WITH THE SYMBOL /"HALT". LOCATIONS OF THESE HALTS WILL SHOW UP IN /THE CROSS-REFERENCE LISTING. ALL OTHER HALTS /ARE MODIFIED LOCATIONS O5e- /&w)|(_v*6w(*"Xn*ubtb"c!*b(!z"J@/vs2""rq)w|p("(?o$>nrnA&!'&!,2 ZzwPo{m`70G)2PDK1zBp0= 0 B3)x2]1
V4O }2G |2R L0r[# L0g@! )0q_ 2> 2d/ 2V ^2=O# =2gQ! 1 *4 })4 (4 '4 3 p2E A d2 S27J 701uN 30k32Q3)?725(2m "(2d%23;2ru3<>`1d8+R0 t462p26;2F
M0JB~[1"~0p } 2Jp|03b|E0M2|<0{m22 {d2{82z0-y0cy0\#y]0
y0.x0R k0;gL0+1gL0k7!ea19b2? TH14/<1x3N2<u2E90>K0w"K0 K070:0z0 30925U0/P} 1B}U"{;"MF{+"Q x-#9fx#Nwp"br)wk"*s)w} 9w| )w{ wz w^ !
v sv rv) {u#d"to $ p?"& p`!4p`!3p`!d#m" "l`!; l`!Jl_!/k+" i #]@ i #P i #oAi #% i
# /4/$$n] /B`(/\"$ fn p /0/["/nh/qJk/&Z$)/&J[/&n/ql"/Yb Xb2 c(?z$2p /5X"1"K(HzZ$)K(nn0mbnfnfU&Bn@?S.nB(azW$)XdQ"W$)K`>/ n,z/Hs{\6N"tm WCTnX
(fFOR THAT USER TO THE CHANNEL X 10 /THAT HIS TTY IS ASSIGNED TO. THIS CHANGES /HIS ENTRY IN THE DATA LIST AREA. ALL IOT'S FOR I/O /ARE GENERATED FROM THIS TABLE. / / U1IOD=030 /USER#1, CO%(z 'Kd2*`H
l & 6 d)=6Q b=6R c/ ?7(c&H?'R)"./ 6m "@ {003p<5100@51(]5bJ n1\61(`6bJ n1_6D.n1^70 AT LINE N%&fkb$^iK 0mTuR |YUlNFE4<k`
K bl K"lK +6R1 >2  .CFn-9&d9a9g L~31.24 +)!f` +&H.&%b%f<J$&&'f^h?uL)H/Y&&X$&!.%^iG] 
q}"Gw%BHuzq .9\i}L)HonIW)oIAVifx6K;O8UtXjDLpZK m KFK.Kd K7VK):U%K)9v)K)8v)K)7v)K<KK89Ij+I71uCI7HIgH?GZGe  G(]G n)GM#G\EQs#C<dB+Oc_^@?VD?1lC?c?;.<7OS D BY THE LIBRARY CALL PROCESSORS. / XR14, 0 XR15, 0 XR16, 0 XR17, 0 / /INSTRUCTIONS / ACTIONQ=JMS I. /PRINT CHAR XACT ONDECK=JMS I. /USER STATE ON DECK XDECK OFFDECK=JMS I .{S9b`8bt r /#xi?mopwpp`~zp
sp^G_!|OAlgm/s 8L>R MO Q^&MF.O`P_&H.,G0tP-L20 "&;q"M/g%[q)!v6fBJMFG&&{fOM!NyMMy _N_MNy!MMy)_N6-8/#3&3$O$BHbK123w45w#O,Ml>k>L : !GlO=)VM`M:b^a"^]*1G= U@ *M /T**M T*!0UPUUU0UU8U8-UUUUbUfUUU0UU***0-dN&VNbNb+o2p(+z9&)"(<z\ 0z5 "&6? j>MM/M 8zL(?M`(?zjM`MLb!Kbh/r]@/Jj.MML ?V"LLr-`/J"L*j$D. #`#*j`xGG1b nJ & tfJ"HJbIJb/L&LK&!. /_<. /_G2f_T3!b({ t"kFwFn !& &0 t&0(rGIb-`J&I3(#tI ?#V>M AN"E;&G/fM`FM&#G2IrI#kfMMNE"RHc(_zf~MFMHgH.-JHiGN2Fb&Mr)M] .(/th2ggc #`gO<#tk-(B]"~[Jybi1  KUgiK(?-&KKr-`/J"Ki E*&,J+,&dMM5|/|j~M'3)"M'M l <GieB,e& B?h/G. fbeec( :, <"c(gz lrs3 Oc2Fnd&Za(:zc 2~3e24&6 / lK@5[\];^["ElmDn;U[J;L0 +76"<&'|D &C& & -8;" n+b""-h!$+A"@b",B0cf le6f'eBt-K--KB&f' 7&16EL(?{SLM/b n ]h](S0>(]=2HHr<v(]0S(S(S((/g;2]Sg Q.!xJ&N:w&v4;p3"4c!!bJ9(r##&! J#F.(b Iy ( ,y3"ix> Poernhq6XcpqbXoYp"2 Ye( pbDqbXoHp"<X*p!&q!.1X.pnhZqfp0 !!b@/rpnh40Zp  . =G.0jeKppe+ Ay p)rr&n>9AER0```"pp"
33  3003@@@3PP3"xnX/ < =& :1xfy I 
->9a8!T&r(@yK>]bUrmcLtEJ+M,qjU]"k!|QT+ois\idi[6m9e["w]]idM ,lr@YS+LIST <J n `Hnw0tPwj|poxNr~H`A- hM"t!!bt@/+."(/7W"
!rW 's '& <r<q(p <l ?Pc"bGtbVDG,o& L(ih{\zUn'mp{e$p8pp8CBLV% ~x/O!0#/pvp OIPJ}F%pxq]CLINKS AND ADDRESS CONSTANTS / MNUSRS, -MXUSE /MINUS # OF USERS DECKPO, BASES-BETA+6 /OFFSET TO DECKP + USER NO X10 SETWI, SETW /BUFFER OFLO IN ECHO / /USER DATA BLOCK "ON DECK" / y<bf?b;b+b >b 6 C GJ Jf f&&%&t $+y_`"z)f| |vu33e)oRbl!l (z{ryb9 0fH/2x(/Nw"(v{Xj|0]"gi
&&&& "!b(Tzed " u C`(/t3|isZ6fg6oT,qYz\}>p, WRAP AROUND IBUFO, 0 /INPUT, NEXT CHAR POINTER FOR INPUT TO FOCAL. IBUFI, 0 /INPUT, NEXT AVAILABLE SPACE IN BUFFER. DECKP, 0 /STATUS BITS FOR THIS USER IOTX, 0 /IOT BASE FOR THISb 0b@zep0J3'BHzes@/2x /v9H/*2 {,bfc:zb 0Zn(6"(,t,,&v!*e"*j,f)X<j,f)ui,666,b}(M"l(_e)z"l(_!.l (\z~)Ab6Pbn",bp(m"P(je)im*P"b~@k"} n,|(/rK{#8q*{'Z"bF(/(E"('zT(/&"(%z~(/$}"(#z|(/"{)3"(@{ 3 @knnn|iz2`A- > M xr ~(w{?(/vu2(Zz(oft%sW&'h/OX$S .Xtc Wb Y4WY'O -sh(/ch&F'`/]\WMjhwKrH7v+7e.gek%
C*t.f{>pCpvu'(/H/56'_&)~2m}} b++& $)} $ b!f@./' $!. |+t&|!,J` /*b2+\"*+-{k`A- hMA~'B`KzH/|9Ff(`z)R*&Y &X*$X .*Zj ' f|@Sz]'h/:9v9G"(f{@/ffKpp<v!.y7qy'@p_X"D / / *Y0END /NEXT AVAIL LOC IN PAGE 0
/INTERRUPT ROUTINE AND START-UP *177 INITL /ADDRESS OF INITILIZE ROUTINE JMP I .-1 /STARTING ADDRESS INTRPM, DCA SAC /SAVE AC AN Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search