;CHAR BEING USED FOR END OF LINE ON ;TTY INPUT ECHOCH = 40 ;ECHO CHAR  &  ).     [qj2.OVERLAY OPTION (1 = OVERLAY) ;0 = NO OVERLAY, 1 = OVERLAY .IFNZ OVRLAY ; ..&  å$ נA  @.  e`   <   . -- CHAR OUTPUT FOR NO ECHO MRCH = 25 ;MESSAGE RESTART CHAR (CONTROL U) LINELN = 72.  5L  .& wwh  MAXOVR = 140 ; MAX # OF OVERLAY TASKS IN SYSTEM .ENDC ;(NOT USED IF OVRLAY = 0 .L.r Ëנe ee e ѐ   @(}  .  ;LINE LENGTH: NO. OF CHARS TO BE ;TYPED IN A LINE .PAGE ;******************** 9mH},.ŀ E.47 [@) .IFZ OVRLAY ; MAXOVR = 0 ;SET TO ZERO ONLY IF NO OVERLAYS .ENDC TASM' _ "$&>.6  ODT-11R V003A B BE H .H *;/\ $G _<^,OWEBP@>SRC-FI!XASPM*************************************************** ;* ** ! .Zt4e 4.1 AX = MXTASK+MAXOVR ;MAXIMUM NUMBER OF TASKS (INCL OVERLAYS .IFLE MXTASK ; XXXXXXXX .9:;@4@{7@H.M:@}@""@:_@:<}@._MQn CFRBQ | b | h . ;* SEGMENT REGISTER ADDRESSES REQUIRED BY THE PROGRAMS WHEN ** ;* IMPLEMENTED ON AN 11/45 OR 11/25, EITHER WI  +5% z2 .lm l m 44&. e   ;MXTASK MUST BE GREATER THAN ZERO .ENDC .IFL NLTASK ; @ee;@Ye@hfp@fSz@.fTz@[g4@9mQ@imR@m@.Tq@[qj@v@@<TH SEGMENTATION. ** ;* ** .IFNZ $KT11C ;* ;o.$& e&f  2fTz$@z(d.w fWt5?  QTAB XXXXXXXX ;NTASK CANNOT BE NEGATIVE .ENDC .IFG NLTASK-MXTASK ; !@z(d@4f@.LC @(E:hf:h\)h.)bh9p:h9ah4(^)Xh"#* K E R N E L S E G M E N T R E G I S T E R S ;* $KPAR0 = 772340 ; $KPAR1 = 772342 $ @w :_"v@.>Ew) Cy, [q% QTAB XXXXXXXX ;NTASK MUST BE <= MXTASK .ENDC .IFN&p- t( ; $KPAR2 = 772344 ;KERNEL $KPAR3 = 772346 ; PAGE $KPAR4 = 772350 ;)j ) $(&d AD w"w$5X.   " $*Z OVRLAY ; ; STATE SIZE OF DYNAMIC CORE STORAGE IN ROS ; $DYNSZ = 54000 ; RESERVE DYNAMIC CORE+  r v, ..  _..- ADDRESS $KPAR5 = 772352 ; REGISTERS $KPAR6 = 772354 ; $KPAR7 = 772356 ..wV@qwWf  .& @DC `` / POOL .ENDC ; ; THE FOLLOWING IS A LIST OF PRIORITY PROPERTIES ; +1 = TIME SLICE PRIORITY (0 &0DXl*0DXl 1.$.J2 ; ; $KPDR0 = 772300 ; $KPDR1 = 772302 ; $KPDR2 =34f  .K $   4CORE OR OVERLAY) ; 0 = FIXED OVERLAY TASK (MAY BE CORE) ; -1 = FREE TASKS (CORE OR DYNAMIC OVE50DXl*0DX l DXlzm.p].7 772304 ;KERNEL $KPDR3 = 772306 ; PAGE $KPDR4 = 772310 ; DESCRIPTOR $8.(B  Wf (:<}Tq.ff  @ 9RLAY) ; PRIP01 = -1 ; PRIORITY PROPERTY LEVEL 1 PRIP02 = -1 ; PRIORITY PROPERTY :*DXl  0XX00=sL"^< ;E:_^< B`m'-^ m '5 u~#"^< e[g4^< w|hfp^< zy:^ z  <KPDR5 = 772312 ; REGISTERS $KPDR6 = 772314 ; $KPDR7 = 772316 ; ;* ;= $ :_   $.@)  w5 wTE>LEVEL 2 PRIP03 = 1 ; PRIORITY PROPERTY LEVEL 3 PRIP04 = 1 ; PRIORITY PROPERTY LE?0XXD{D0XjXXgX@.=sL"m@[qj@v@@|.(N4h4_MQhYeh=sL"hA* U S E R S E G M E N T R E G I S T E R S ;* $UPAR0 = 777640 ; $UPAR1 = 777642 J$ ) [qj M.fwD@BEp Bm"., $ CVEL 4 PRIP05 = -1 ; PRIORITY PROPERTY LEVEL 5 PRIP06 = -1 ; PRIORITY PROPERTY LEVED0XUXlSl0X@X?0E.w & & w @@v@m[qjF ; $UPAR2 = 777644 ;USER $UPAR3 = 777646 ; PAGE $UPAR4 = 777650 ; ADG.:_2@fTz@ gp@V. ` @K"@LC @d@(2=:_HL 6 PRIP07 = -1 ; PRIORITY PROPERTY LEVEL 7 PRIP08 = -1 ; PRIORITY PROPERTY LEVEL IX+X+0XX0X.&l LKDRESS $UPAR5 = 777652 ; REGISTERS $UPAR6 = 777654 ; $UPAR7 = 777656 ;Lh:|h.  y & 5 M8 PRIP09 = -1 ; PRIORITY PROPERTY LEVEL 9 PRIP10 = -1 ; PRIORITY PROPERTY LEVEL 10NX000Z ZDD0ZOb@ u(wXw , (Y.w ff w ( P ; $UPDR0 = 777600 ; $UPDR1 = 777602 ; $UPDR2 = Q2$fTz.& U0  d.LffffffR PRIP11 = 0 ; PRIORITY PROPERTY LEVEL 11 PRIP12 = 1 ; PRIORITY PROPERTY LEVEL 12 SZXX0ZZll0ZT[g4:_ $(hfp.?@ 525*    "*ZU 777604 ;USER $UPDR3 = 777606 ; PAGE $UPDR4 = 777610 ; DESCRIPTOR $UPDR5 =VffF "1.reo.EWPRIP13 = -1 ; PRIORITY PROPERTY LEVEL 13 PRIP14 = -1 ; PRIORITY PROPERTY LEVEL 14 PRXZ0ZZ0ZY.B& E w B2B&  &  $].$r2Z 777612 ; REGISTERS $UPDR6 = 777614 ; $UPDR7 = 777616 ; .ENDC[ `  ` . f f $*f77 &LC . \IP15 = -1 ; PRIORITY PROPERTY LEVEL 15 PRIP16 = 0 ; PRIORITY PROPERTY LEVEL 16 ]Z0ZZ0Zy^r r  ttM$   "" $.Jw> T) w@_ .PAGE ;********************************************************************** ;* `  e K"d. w 0a .IFNZ OVRLAY ; .IFL 16.-NPRIOR XXXXXXXX TABLES AND PARAMETERS CURRENTLY CODED bZDD0\*\X%X0\cH   )}(pB@ )AD w".  )  d ** ;* IN THE FOLLOWING EQUATES, A ZERO MEANS DO NOT INCLUDE ** ;* THE  gpLf XXXXXXXX FOR MAXIMUM OF 16 PRIORITY LEVEL .ENDC ; ; THE FOLLOWING SYSGEN PARAMg\ll0\\0\h ""b$w$+  G. $ + (i OPTION. ** ;* j.u~#"q@}@:<}@S.;K}@eS@fSz@fTz@9mQ@#.mkETERS SPECIFY THE NUMBER OF ; ENTRY'S IN A PRIORITY'S QPART TABLE. IF ZERO, THAT ; PRIORITY WILL NOT BE ALLOWEDl\0\\0\  1E imRn ** ;* C A R D R E A D E R E Q U A T E S ** ;* o@Tq@[qj@v@@@w@p.yx@@z(d@u~!"@@ @.LC @(M:hp OVERLAY TASKS. A MAXIMUM ; OF 127 ENTRYS PER QPART WILL BE ALLOWED. ; ****NOTE: BE SURE PRIORITIES GREATER THAq\0\\0\r9...s ** ;********************************************************************** NCR = 1 teBkhimRh.[qh[qhu~hu~"hsh.L h h$;hp{huN NPRIOR HAVE ; TABLE SIZES OF 0 ; NEQP01 = 10. ; NO. OF ENTRYS QPART LEVEL 1 NEQP02v\X%X __ `...Tx ;NUMBER OF CARD READERS IN SYSTEM BIN = 0 ; DON'T INCLUDE BINARY MODE BCD = y.* z = 10. ; NO. OF ENTRYS QPART LEVEL 2 NEQP03 = 10. ; NO. OF ENTRYS QPART LEVEL 3 {` aa bb c|.[g4( [g4h&f&M } 1 ;1 = INCLUDE ALPHANUMERIC MODE, 0 = DONT TTYSW = 1 ;1 = SWITCH INPUT TO TTY ON COMMAND~"&`"& `&      .NEQP04 = 10. ; NO. OF ENTRYS QPART LEVEL 4 NEQP05 = 10. ; NO. OF ENTRYS QPART LEVEL c dd ee f INEBC = 0 ; 1=PROVIDE OFR INTERNAL EBCDIC CODE EXEBC = 0 ; 1=PROVIDE FOR EXTER"  5 5 NEQP06 = 10. ; NO. OF ENTRYS QPART LEVEL 6 NEQP07 = 10. ; NO. OF ENTRYS QPART f gg hh i.hfp(hfph NAL EBCDIC CODE ; (029 CARD CODE) $RES = 1 ; TIMER RES. FOR CREAD 5.5f& m&5. %  LEVEL 7 NEQP08 = 10. ; NO. OF ENTRYS QPART LEVEL 8 NEQP09 = 10. ; NO. OF ENTRYS QPi jjz l}lx(=10.0 MSEC.) $100MS = 10. ;MULTIPLE USING $RES FOR 100 MS $500MS = 50. ;MULTIPLE USIa0 @z(d LC u. a ^  ^r@fTz $ART LEVEL 9 NEQP10 = 10. ; NO. OF ENTRYS QPART LEVEL 10 NEQP11 = 0. ; NO. OF ENTRYS  n{nv pypt rwz.zR.>2p*hNG $RES FOR 1/2 SECOND $1SEC = 100. ;MULTIPLE USING $RES FOR 1 SECOND MXTIME = 180. ;@o.FrBr@  &0 GB @ :<}.l ?ߐ6 eQPART LEVEL 11 NEQP12 = 0. ; NO. OF ENTRYS QPART LEVEL 12 NEQP13 = 0. ; NO. OF Err tutp vsv.  >2p*he -8 #MAX SECONDS TO WAIT FOR OPR RESPONSE ; ; NOTE: THE ABOVE TIMES DO NOT NEED TO BE EXACT. SELECT THE ;   yxyx. e @f w@f 6 9mQ}NTRYS QPART LEVEL 13 NEQP14 = 0. ; NO. OF ENTRYS QPART LEVEL 14 NEQP15 = 0. ; NOn xqxl zozj |m 6x. @7  Q PROPER VALUES TO GET AS CLOSE AS POSSIBLE TO THE ; TIMES STATES. ; ; ; C / R V E C T O R I.ߐ F.  &f.%. OF ENTRYS QPART LEVEL 15 NEQP16 = 0. ; NO. OF ENTRYS QPART LEVEL 16 ; ; ; THE FOLLOWING .| !"w   $ !"[g4 .. &_&Bxpp ,8^u& pQ" N F O R M A T I O N ; ; CR1 = 2 ;LOGICAL UNIT NO. FOR CR # 1 CR2 = 2 ;V  G  .* & zf errB  fTzfTz"&BASSIGNS THE START BLOCK IN THE CORE POOL ; FOR A SPECIFIC PRIORITY. ; $SB001 = 0. $SB002 = 4. $SB003w D _"&hfp., w    LOGICAL UNIT NO. FOR CR # 2 CR3 = 0 ;LOGICAL UNIT NO. FOR C/R # 3 CR4 = 0 ;.P2@2&  2 e  @ fTz .v  = 4. $SB004 = 4. $SB005 = 4. $SB006 = 4. $SB007 = 12. $SB008 = 12. $SB009  $hfp.& w_5lp^Ѐ^}* 9mQ}_lp ^(^ ,,_.6   LOGICAL UNIT NO. FOR C/R # 4 ; ; C / R D E V I C E I / O A D D R E S S E S ; CRS.1 = 777160  6 v:<} Tq. _. = 12. $SB010 = 12. $SB011 = 0. $SB012 = 0. $SB013 = 0. $SB014 = 0. $SB015 = . w    [g4*:``5nr^&_8.&wRBw we=f .L  ;CARD READER STATUS - C/R # 1 CRB1.1 = 777162 ;CARD READER BINARY DATA BUFFER CRB2.1 = 777164 E@f&fP~ .7 7  f&f.& 0. $SB016 = 0. ; $NBLKS = $DYNSZ/2-1/256.+1 ; NO. OF BLOCKS IN DYNAMIC CORE ; ; THE FO1^*``nr^"^4,w   wHe |,[gu ; ^< r,^< u~!"^7 9W""^ , 8}^< _ :@^2  1:`^7 L ;CARD READER COMPRESSED DATA ADDRESS ; CRS.2 = 777160 ;CARD READER STATUS - C/O # 2 CRB1.2 = & &  B 0e19.4W @w   $ LLOWING ASSIGNS STORAGE BLOCK SIZES FOR EACH PRIORITY. ; A) IF DYNAMIC-CONTAINS THE LARGEST ALLOWABLE BSIZE ; 4  P,$X^ z^ _ . X ^ z . ; hfp@[g4@(^ ; h  777162 ;CARD READER BINARY DATA CRB2.2 = 777164 ;CARD READER COMPRESSED DATA ; CRS.3 = fSz#.Z   &fM.w 5 82 . VALUE ; ; B) IF FIXED OR TIME SLICED-CONTAINS ASSIGNED BSIZE ; VALUE FOR THAT P^ _KHajP lw f, a j lhfp\.\w .'d w  Օ+ [g4.& d 0B` e0  0 ;CAR READER STATUS - C/R # 3 CRB1.3 = 0 ;CARD READER BINARY DATA BUFFER CRB2.3 =  & e 5S  @z(d.5 5@  &  RIORITY ; .IFL PRIP01 $PS001 = $NBLKS-$SB001 .ENDC .IFGE PRIP01 $PS001 = EE gD Cv@g O.aDf |1gwJ0U w L%Օ- ҋ hfp) 0 ;CARD READER COMPRESSED DATA BUFFER ; CRS.4 = 0 ;CARD READER STATUS - C/R # 4 C $qi.]<] e5   Z  5.  4. ; ASSIGN 4 BLOCKS - 1024 WORDS .IFL $NBLKS-$SB001-$PS001 XXXXXXXX ; PRI 1. afg "$&(0&BP^rzbWbH@!.BP^.r,;@fSz@LC @&(,2hhr,hRB1.4 = 0 ;CARD READER BINARY DATA BUFFER CRB2.4 = 0 ;CARD READER COMPRESSED DATA &f m.>   d ^.dw    TOO LARGE .ENDC .ENDC .IFL PRIP02 $PS002 = $NBLKS-$SB002 .ENDC .I r zbb.lwpDtwx  -m="lp tx(. 0&  ELC ;fSz.&UBUFFER ; CRVC.1 = 230 ; C/R # 1 INTERRUPT VECTOR CRVC.2 = 230 ;C/R # 2 INTERRUPT VE .u~!";K}fSz eS$eS&;K}5.7 ,w "wD FGE PRIP02 $PS002 = 4. ; ASSIGN 4 BLOCKS - 1024 WORDS .IFL $NBLKS-$SB002-$PS002 XX.   fwf =f $M:.=^ UU ,\ .L.0&zCTOR CRVC.3 = 0 ;C/R # 3 INTERRUPT VECTOR CRVC.4 = 0 ;C/R # 4 INTERRUPT VECTOR  @w.w #c# R@w[qj.w XXXXXX ; PRI 2 TOO LARGE .ENDC .ENDC .IFL PRIP03 $PS003 = $NBLKS-$SB00 ^f.8w && w @lwp $ [g4:_hfp&.r *!"; fSz" .PAGE ;********************************************************************** ;* Mv@3 .ENDC .IFGE PRIP03 $PS003 = 4. ; ASSIGN 4 BLOCKS - 1024 WORDS .IFL $Nl p".^&   1^ Rx e:<}Tq^$x.x@6   ** ;* L I N E P R I N T E R E Q U A T E C A R D S ** ;* . !TM:@ #}@eBk@.fSz@m@s@L @ @>.$;BLKS-$SB003-$PS003 XXXXXXXX ; PRI 3 TOO LARGE .ENDC .ENDC .IFL PRIP04 x^& /xx^"fSz(u.p5l1_ex&  pp wq.r  pw ** ;****************************************************************@4f@(eShu~!"hBLmh$.f $PS004 = $NBLKS-$SB004 .ENDC .IFGE PRIP04 $PS004 = 4. ; ASSIGN 4 BLOCKS -  pl_x"fSz(.r5n ^w1`^bf $rn[qj`& pp$p(p.  m  T p ,8^****** NLP = 1 ;NUMBER OF LINE PRINTERS IN SYSTEM NLPRTY = 3 ;NUMBER OF L/P PR2@I (@&1 E.21024 WORDS .IFL $NBLKS-$SB004-$PS004 XXXXXXXX ; PRI 4 TOO LARGE .ENDC ^"b&p. f1b fi M:fb f&iS. &p.E5& T:Y" f  fSz.IORITY LEVELS LPBACK = 1 ;1 = BACKUP L/P WITH TTY BY OPER COMMAND LPVC.1 = 200 ;L/P L &   s #}&fSz&. @   < e.ENDC .IFL PRIP05 $PS005 = $NBLKS-$SB005 .ENDC .IFGE PRIP05 $PS005 = 4. f1iUfbfi"f&b.B^f}dfb C4  e0)  _. e  t043e&ʋw# 1 INTERRUPT VECTOR ADDRESS LPVC.2 = 200 ;L/P # 2 INTERRUPT VECTOR ADDRESS LPVC.3 = 000 .  @   $.   & & &&  _m ; ASSIGN 4 BLOCKS - 1024 WORDS .IFL $NBLKS-$SB005-$PS005 XXXXXXXX ; PRI 5 TOO Lfdf"b.h f1fwJ 1b f ffb49s.0     we{7 ` .V ;L/P # 3 INTERRUPT VECTOR ADDRESS LPVC.4 = 000 ;L/P # 4 INTERRUPT VECTOR ADDRESS LPDT.1 = 7$4f.<L   &  $M:k b 7 6ARGE .ENDC .ENDC .IFL PRIP06 $PS006 = $NBLKS-$SB006 .ENDC .IFGE $f.  f1b@nwrwZjw" fbnr$jF.  1 e8f D  `  _o.|wB2+ U65010 ;L/P # 1 DATA BUFFER I/O ADDRESS LPDT.2 = 765010 ;L/P # 2 DATA BUFFER I/O ADDRESS LPDT.3 = *s eBkL s$; z B  #}@PRIP06 $PS006 = 4. ; ASSIGN 4 BLOCKS - 1024 WORDS .IFL $NBLKS-$SB006-$PS006 XXXXXXXXjww EE Dg jv@(. @nwrBvwz f,_   &pb.  B p 0 ;L/P # 3 DATA BUFFER I/O ADDRESS LPDT.4 = 0 ;L/P # 4 DATA BUFFER I/O ADDRESS LFRG. .8};@}@""@p.:_@:<}@_MQ@Ye@hfp@.fSz ; PRI 6 TOO LARGE .ENDC .ENDC .IFL PRIP07 $PS007 = $NBLKS-$SB007  " nrvz$. D+ŀ| n *imR   wq_.wʕ& wB( fSz!. wbe 1 = 765012 ;L/P # 1 LINE FEED REGISTER LFRG.2 = 765012 ;L/P # 2 LINE FEED REGISTER LFRG.3  @fTz@[g4@9mQ@m@F.Tq@[qj@v@@@z(d@@.4f@LC @( .ENDC .IFGE PRIP07 $PS007 = 4. ; ASSIGN 4 BLOCKS - 1024 WORDS .IFL $NBLKS-$ .&-el.cBE,I _ cu.L 5@ =C 5@@ .w(   A ff (.: E = 0 ;L/P # 3 LINE FEED REGISTER LFRG.4 = 0 ;L/P # 4 LINE FEED REGISTER CNT.1 = *)](8}hq)Zh|a. SB007-$PS007 XXXXXXXX ; PRI 7 TOO LARGE .ENDC .ENDC .IFL PRIP08 $PS0 .rwĕ f^f2  [qjff . EWe  C (HJ.` E f EŠpʋx2 765014 ;L/P # 1 WORD COUNT REGISTER CNT.2 = 765014 ;L/P # 2 WORD COUNT REGISTER CNT.3 =  EMS  &)].w  K D 08 = $NBLKS-$SB008 .ENDC .IFGE PRIP08 $PS008 = 4. ; ASSIGN 4 BLOCKS - 1024 W  ށ c cĕ\fdccc"f&d.Ē1c  1dĕ\fe _ "f.wEWE Tf :<} _T*. / 0 ;L/P # 3 WORD COUNT REGISTER CNT.4 = 0 ;L/P # 4 WORD COUNT REGISTER CMD.1 =  [g4 ;.&7!F BEW<q B_MQYe.L ORDS .IFL $NBLKS-$SB008-$PS008 XXXXXXXX ; PRI 8 TOO LARGE .ENDC .ENDC   cdf$e.ef = ff *e M: f$  3ef `  ` .e33e  765016 ;L/P # 1 COMMAND REGISTER CMD.2 = 765016 ;L/P # 2 COMMAND REGISTER CMD.3 = 0  5 2 - Dw W ".r A!1 f  7 -"@z .IFL PRIP09 $PS009 = $NBLKS-$SB009 .ENDC .IFGE PRIP09 $PS009 = 4.  (M:V.  ĕ=f  /kf].0w / W<.56 _.e  w. e= we wA ~wP) ;L/P # 3 COMMAND REGISTER CMD.4 = 0 ;L/P # 4 COMMAND REGISTER STAT.1 = 765016  (dfTz$F.  G F$ LC :<}$ ; ASSIGN 4 BLOCKS - 1024 WORDS .IFL $NBLKS-$SB009-$PS009 XXXXXXXX ; PRI 9 TOO LARGE Ap)_MQYeYe Ye.V&" !0 CLC &! _~_P_. ~1 1 ^7&_~ ` 2" ;L/P # 1 STATUS REGISTER STAT.2 = 765016 ;L/P # 2 STATUS REGISTER STAT.3 = 0 ;L/# ,E7  Dww,  fSz $z.  $ .ENDC .ENDC .IFL PRIP10 $PS010 = $NBLKS-$SB010 .ENDC .IFGE PRIP10% :<}.| `0  .5@A& &  f(p.&   K p 4[M pp.L' P # 3 STATUS REGISTER STAT.4 = 0 ;L/P # 4 STATUS REGISTER ; (  CPC* &"77 7C^) $PS010 = 4. ; ASSIGN 4 BLOCKS - 1024 WORDS .IFL $NBLKS-$SB010-$PS010 XXXXXXXX * Ye"4.& N & &z 4f@z(dz"fTzY.z+ B   Ee  f.rʋ  wLEq, ; LPSIZE = 132. ;NUMBER OF CHARACTERS IN L/P BUFFER LPMXTM = 180. - .  "7  I*. ; PRI 10 TOO LARGE .ENDC .ENDC .IFL PRIP11 $PS011 = $NBLKS-$SB011 /  ( 4x xa  zxxB.zf `D` % 0 _L0.    _pp wq1 ;MAX NO SECONDS LPRNTR WAITS FOR OPER ACTION LPINH = 4 ;INTERRUPT LEVEL OF L/P $NLINE = 56.2 O.6 wW w " [qj"&hfp.\3 .ENDC .IFGE PRIP11 $PS011 = 4. ; ASSIGN 4 BLOCKS - 1024 WORDS .IFL $NBLKS-$SB011-4 zp.:ajYD 1h^(1f@a jh ^&f>.`lwp75 . ΁w B(p pf_ (. 46 ; MAX LINES/PAGE (=CONTROL TAPE. $LPERR = 10. .PAGE ;****************************************7 w & ww C&hfp9mQ"}&v@,,  I8 $PS011 XXXXXXXX ; PRI 11 TOO LARGE .ENDC .ENDC .IFL PRIP12 $PS012 = 9 5tx4 "lp tx.  f=f@ J@%: & _4 fSzF.  w%e  ; ******************************* ;* ** ;* MACROS TO S< 5G.   %.-56  = $NBLKS-$SB012 .ENDC .IFGE PRIP12 $PS012 = 4. ; ASSIGN 4 BLOCKS - 1024 WORDS >  f"imR.nwr7vz3 1e1Y&nr v? _M:)$0U 22 wA&fSzpp4[M_7.@ ATISFY THE DIRECTIVES PRESENT IN PALRES ** ;* (OUR VERSION OF PAL11R) BUT NOT PRESENT IN MACRO-11R. *A "  l&ewX-w-*B .IFL $NBLKS-$SB012-$PS012 XXXXXXXX ; PRI 12 TOO LARGE .ENDC .ENDC C z&eR.cfDA5@ =fPc f".j fD ~4 3 0  $ LC _~  &.& 4 fע׬E * ;* ** .MACRO .REF A,B,C,D,E,F,G,H,I,J F  . * G .IFL PRIP13 $PS013 = $NBLKS-$SB013 .ENDC .IFGE PRIP13 $PS013 = 4. ; H fÝBgjjf&g. A72aw0^@lwpI 4t$_4 _ ` (_4].L Ce w A_&J .IRP X, .GLOBL X .ENDM .ENDM .REF .MACRO .DEF A,B,C,D,E,F,K  vtE0P( @z(d". EP Q WL ASSIGN 4 BLOCKS - 1024 WORDS .IFL $NBLKS-$SB013-$PS013 XXXXXXXX ; PRI 13 TOO LARGE M a^ l$p&.D@nwr7  5n r N _""r4 ~ wL*_4 LC _~ ` _L_O G,H,I,J .REF A,B,C,D,E,F,G,H,I,J .ENDM .DEF ; ; ; ; MACRO DEF. FOR QUEUES ; .P fA.F & K  4f  Q .ENDC .ENDC .IFL PRIP14 $PS014 = $NBLKS-$SB014 .ENDC .IFGE PRIP14 $PS0R .j@w 5|5x5 $Ye4Ye Ye(YeP.US . 5-1 n; LC LC $9mH.&& & T MACRO .QUE A,B,C .BOUND .LIST ME A = .-4 B = .-2 .REPT C U .lB  1 W :<}Tq.f wwV 14 = 4. ; ASSIGN 4 BLOCKS - 1024 WORDS .IFL $NBLKS-$SB014-$PS014 XXXXXXXX W ==pw` BYeYe.tez @exez :7X ~ ~ʕ( ` }_~f"_~.L pp Y .WORD 0 .IFZ $KT11C .WORD .-2 ; NOTE: PPA WHEN RESOLVED BY IPL .ENDC Z 5- :_&. w 058g [ ; PRI 14 TOO LARGE .ENDC .ENDC .IFL PRIP15 $PS015 = $NBLKS-$SB015 .ENDC \  zxz@.J   ^3^^__^ ^"^&_(_Z] . ` &y2;K}2 &y&K.rC  B  [f^ .IFNZ $KT11C .PACK .-2 .ENDC .ENDR .NLIST ME .ENDM ; ; MACRO T_ &.57 "w" w6,"" $""6` .IFGE PRIP15 $PS015 = 4. ; ASSIGN 4 BLOCKS - 1024 WORDS .IFL $NBLKS-$SB015-$PS015a .`` E llnnpprr.``llnn p"p&r(r.(b  "l.Ee  A ͕\.AwFEAECc O SET PRIORITY LEVEL 7 ; .MACRO .LOCK PSR = 177776 .IFZ $1145 MOVB #340,@#PS1X  e XXXXXXXX ; PRI 15 TOO LARGE .ENDC .ENDC .IFL PRIP16 $PS016 = f xxzzttvv p&xx zzttvv.N^3_3` }fg  _F H.  A T  _T.h R .ENDC .IFNZ $1145 SPL 7 .ENDC ; ; SET INTERRUPTi .my@K@ 0. XXXXXX ; *2qs'D~ p2 \M2:D~N *y:u~!"2 2 2 E!ʕwLʕ D3_Lf(2b.L& w w  .@R& 'e^@ 'e^ 'e^ 'e^( j [  j.ߐW  ! ABRT .ENDC ; PSTP ; THE 2@. 222p 2 .>  . __f "[g4&Z.r  w &W @'e^G.w w  w w [g4 .6Q r B f j fSz $fTz(jp.\1j 42  SYSGEN PARAMETER '$PST CONTROLS THE EXECUTION PATH*PSTP ; DURING A TASK ERROR. >2r &kK> `  $;}GL(d   re /  ` hfp. T 6  `  ` $_J  [g4[g4"[g4g.&f 1 F %h  @z(d.L?%;  77)j"}. ߐw e PSTP ; = -1 ROS + USER ROUTINES PSTP ; = 0 ROS ;}G2s' ee; ?_.e8f D b __K.& 5 E o 's.r * -% &YeL hfp*.e Hwv Q. 6 &&f   PSTP ; = +1 USER PSTP ; ."" ; @:<}@hfp@I.fSz@fTz@[g4@Tq@@z(d@.9a  e e.LwE4  f& 4i$_f  C :<}&'s.^w w & .fTz 's'shfp"9mQ&}  lAK'. l7 .fv j PSTP $PST = 0 ; @LC @( [hfZhj""htKhV. (_47.r -Ct _F.# & & . w  s$ 's's"'s&fSz-.w  &jo.@ 6 6U fSz3.f×7 PSTP ; PSTP .PAGE $CLOCK = N) ERROR XXXXX N%& XXXXXX XXXXXX XXXXXX XXXXXX 0ʕ@z(d;K}fSz$;K}a. 1 ,t& wLʕ( `   Հ@ ('s  'sR8x 's. x$&  & w 7  7 ~$. !!ߐ&& u". 0 ; INTERRUPTS SOURCE OFR MAINTAINING ; ; TIMERS AND DECKS ;  D.D ,3:Aw ( ,3 : A [g4$( 2 ,"""&_L z f _.e8f L( 's2fTz 's$:_;.0wfw^ t7$'s  J1jGmy "(j;.1jߐH& ; 0=DEC LINE FREQUENCY(KW11-2) ; ; 1=DDS CLOCKSX ;FOLLOWING ARE SYSGE .j w f [g4&@z(d. h 7^ @  Bl _ ".&KG :ff t ('sK$V@ ~7*~'s's's's.r j 5.w4—!& 17 sfSz$.$7 N PARAMETERS FOR THE TIMER AND CALENDAR ROUTINES ; NORMALLY THE BASE PERIOD FOR THE TIMERS IS THE INTERRUPT PERIOD, AND ;  fTzLC $:<}. w  7 |( f  ` @z(d|.L `$ G  ʋ & 2.r  12     @ }{$'s 's {7's,@` 4  o72`  7 7 0 W    &.Jf ww P7 M IF THAT PERIOD IS DESIRED FOR USE BY ANY TIMER MODULE, "RESO" MUST BE ; SET TO 1, AND THAT RESOLUTION (ZERO) SPECIFIED BY T' hfp(fSzK.=w 7 7 Df&Dq.& C V   .M(; Mhl.  ʕ;K}fSz;K}& ` .wL  5f !._L  lT[[g4$p y. HOSE MODULES. ; IF IT IS DESIRED TO MAKE THE BASE PERIOD COARSER THAN THE INTERRUPT ; PERIOD, "$TMBAS" MUST BE SET TO THE !. 's 's4 's 's "'s 7  , 's 's 's !"$.&'(+-.03569:W"1f  >z N ; THE FOLLOWING PARAMETERS SPECIFY THE MULTIPLIERS THAT WILL BE LOADED ; INTO THE RESOLUTION COUNTER TABLES FOR DETERM   | 8 ('s 's ee;'s& . r ~ `   . x L;@e X@i N@.&@@&`;@a'y@' @_MQ@Y.Ye ` _ ` _L_e. CafQr H w KhfpQck    INING THE PERIOD OF EACH ; RESOULTION. THE PERIOD OF A GIVEN RESOLUTION LEVEL DEPENDS ON ALL ; THE PRECEDING LEVELS (WIT t$'s's $'s(ee;.,1ŀ@&& w6$'s ' @(Xy:hy:}h̫Ih$w.J2 .&rC DEr r .LɕE c[ 0.0c 0Uw   0 [g4$( H LOWER NUMBERS), WHICH ACT AS SUCCESSIVE ; MULTIPLIERS IN COUNTING TO THE GIVEN RESOLUTION LEVEL. ; THUS, FOR "RES4", I s4f('sJ.R 7 7 & , 's 's's's:<} @ (@& E.v,,,, , ,, f   ` &2.rn5 f Z  l5 22 -.V Ew  !7 |.| &j    k D g+j TS PERIOD WOULD BE: ; RES4*RES3*RES2*RES1*RES0 --- IN UNITS OF THE BASE PERIOD RES0 = 1 ; 0.01 *x 7 w>wH 7 7,Tq 's's's"'s"   1(@N .    r  e  i.    fSz.HdB X ,j (j. MW" SEC RES1 = 1 ; 0.01 SEC RES2 = 2 ; 0.02 SEC RES3 = 5 .%f L;@K@i N@.@%le@R8x@p @\@.s  X.X*ROS DISC SYSTEM .~INITIALIZED .  pp@z(dfTz$  I r fTz$.`2 2 & Lr   ; 0.1 SEC RES4 = 2 ; 0.2 SEC RES5 = 5 ; 1.0 SEC RES6 = @L @&@@&`;@'@.'s@'L @' @(` @2@.4!;@:<}@0Xs@ W ' $&`;(a'yy,lxelxU .a'y' a'y 7*'s's's's(7    x|  fTz/.2 2  1  n.:& 5 ; 5.0 SEC RES7 = 2 ; 10.0 SEC RES8 = 3 ; 30.0 SEC RE YYq@Y!T@].ee;H/Ye@(@qh(f%fh`8 &`;" L;x( /%E   . L;  L; L; &@e X ,'s's 's{7 's [. ` ŜE Z-&'s &  0v y".`w  w  S9 = 2 ; 60.0 SEC RES10 = 5 ; 5 MIN RES11 = 2 ; 10 . `K$A ` (c& .%0 e B"E i N i N Ye.w w  's 's&'s&e  0. 's's's's's  hfp"([g4.×& K7!HE (.!ߐ MIN RES12 = 3 ; 30 MIN RES13 = 2 ; 60 MIN RES14 = 2 1 q Q&@ 7 x/% Ye,4 %  _    _MQ b -  4.'s's 's's 's4.0  1 &&  +Ia$.- j  A f  ; 2 HRS RES15 = 6 ; 12 HRS ; IN SYSTEMS WHERE THE BASE PERIOD IS GREATER THAN ONE MI  8.8#COMPRESSION COMP^LETE-FILE TYPE XXX t r wj 8p* 's  's's$p&'sV #. jfSz $fSz. ߐw   hfp.  LLISECOND, ; "MSECR" WILL NECESSARILY HAVE A PERIOD GREATER THAN ONE MILLISECOND. MSECR = 0 ;MAX RES v+rCOMPRS-FILE TYPE XXX NOT VALID  R-!COMPRS NOT ALLOWED-FILE TYPE XXX & .i'y\@(` @Ye@v.(@s'D~h(*i'yh 's 's's's 's(,l  m,ee;'s's w 6  =.D `` !!  y.j  OLUTION: #0 AT 10 MILLISECONDS SECR = 5 ;"RES5" IS THE ONE-SECOND RESOLUTION TRES = SECR   ,.#COMPRS-DIRECTORY SEARCH DISC ERRORu   .% . 2$F  (& 's"'s.   w$3 7*'s's$'s('s   J BI fSz!. wtCe  ; FOR TIME-SLICE WATCH-DOG IN RPOM $NRES = 16. ;USE MAX # OF RESOLUTIONS .IFLE $NRES COMPRS-FILE XFER ERROR-FILE TYPE X}  XX ( .#COMPRS-DIRECTORY UPDATE DISC ERR  r d(dv@ *wPn.'s'sP'sn 's(v@  . : Ap. @Cf U0 f . XXXXXXXX ;$NRES MUST BE FROM 1 TO 16 .ENDC .IFG $NRES-16. XXXXXXXX  OR 4  8.8w  vY.OBJECT LOAD SYMBOLICAS<.*M SYM FOR SYM DATA JANFEBMARAPR   .v's 's's 's, r ~   jww A jW.( BCD fEeU0 fU ;COME ON! MUST BE LESS THAN 17 .ENDC ; THE BASE PERIOD FOR THE TIME-OF-DAY CLOCK, ABORT, AND TIME-SL .^.37 5 E  &(` 1.A ߕ d  MAYJ.PUNJULAUGSEPOCTNOVDECFREE READ WR.vITE DELETED HFI . H m,'s's 'see; 's( @  @('s .N EfEEw$UC @  t u E " ICE IS ; NORMALLY THE INTERRUPT PERIOD, AS SPECIFIED BY "TICRES". ; IF A MULTIPLIER FOR THIS INTERRUPT IS DESIRED TO PRODUC wYeYYqf.hwt0 (` R8x LE ID START FILE LOGICAL FILE .CKSAVE PROTECT CORE DIR. IFD > . SECTOR TY 's 'see;"@.< < H *w œE@g's &'sj. 7 7 7 7 7 7 B.  +. p E A COARSER ; BASE PERIOD, USE THE PARAMETER "$ABMPL" TO SPECIFY THE RATIO DESIRED. TICRES = 10. ;T-O-D 0 @. w wr wn1 1%le(&`;. F7 >7 PE DEVICE LENGTH a.0=NONE Y/N Y/N I************.4**********************************! bl3 Հŀ 1.w   1 w hfp's" 0 j&  $jV*<0 7#> # CLOCK TICKS-PER-SECOND $ABMPL = 0 ;NO T-O-D CLOCK BASE MULTIPLIER TODINT = 320 ;I$ 87./% v px`Oy.BE e % ****\Z**********************  rur ) zm.zFXX& .1  * EWq  's. Ca 3  e  Ŝ&  # >( NTERRUPT VECTOR FOR T-O-D INTERRUPT TIMINT = TODINT+4 ;INTERRUPT VECTOR FOR INTERVAL TIMER STLINT = TI)  Xww .h$  肷 U.l@lw* XXX XXXXXX XXX XXX XXXl.XXX XXXXXX X X XXXX u. > ELE+ Eq  \ \.e 7  r p e I&\'s', A  ; .(f  z:<}Tq 9a\- MINT+4 ;VECTOR FOR STALL ALARM INTERRUPT STLREG = 167000 ;ADDRESS FOR STALL ALARM RESET .IFN. H(` 1./ S <. v/ MENT . CREATED START I d. NAME TYPE STATUS DATE 0 s &'s ^( C K,'s 'sYe's's..N  պt0 E 2 Z $CLOCK CLKENB = 167002 ;ADDRESS FOR ENABLE OF CLOCKS TODBIT = 4 ;BIT TO ENABLE TIM3 w" d2  /  .www> 0Z27 7".&/4 )8 TIME SECTOR LENGTH  Z.ZH .NAME. OBJECT FREE 05 @s Հs @'s ('s.flBEZ}~Ь7 E-OF-DAY INTERRUPT TIMBIT = 10 ;BIT TO ENABLE INTERVAL TIMER INTERRUPT STLBIT = 0 8 nFqwj/ X; .Ld-`?l:7:G lh9 .2-JAN-72 23:17:59 005466 000100 K.-DISC ERROR-BATCH FILE ELEMENT DIRECT"'s 's$'s&~H< ;BIT TO ENABLE STALL ALARM INTERRUPT .ENDC .IFZ $CLOCK CLKENB = 777546 ;ADDRESS OF DEC = .r787 /  %2 F.   /Bw> ORY READ @ .DISC DIRECTORY READ ERROR 7 .J. 2 >BE. x2@49@:<}@._MQ@Ye@;}G@@ ` @%.~A LINE CLOCK TODBIT = 0 ; TIMBIT = 100 ;CLOCK ENABLE BIT STLBIT = 0 B  "i N.wxw p/ŕ&'  L; R8x(:<}C HwT7 \.$Zd% : 4"x` :d.J(:D~h:`h6yh$Q.R2@~8F ; .ENDC $TMSLC = 1 ;SYSTEM OPTION FOR INCLUDING TIME-SLICING $SWATZ = 20. ;NUMBER G .f@ P>:ff ezL 0. DEU@f 4 Bw H -E 'e  w ?.pe W" Ew (` 7T (@&1 E.~K OF ENTRIES IN SCHEDULER "WAIT" TABLE $TWATZ = 20. ;WORDS IN TIMER'S "WAIT" TABLE .PAGE ; $DTAPE = L 8J (8.07 7 ߕ `4!;"4!;Y.V M .  D 7wzNN 0 Ye.  .$ #~(P 1 ; DECTAPE OPTION ; NDISCS = 1 ;NO. OF DISC CONTROLLERS (0 = NO DISCS) ; $DDSDCQ v  ߕYYqW.| 4 ff R (. !f&f&E. l Y# AC: 5  ? m  IL~U = 1 ; USE DDS DICS ; ACTSIZ = 20. ; MAXIMUM NO. OF ENTRIES IN AUTH. CODE V YYqK.w <7 7 ߕ | <&'L . W :..E dYfE &.T L CMD!  && ILL PAR!  4.4NON-QUIESCENT ENDSQUXX2~Z .IFL 20.-ACTSIZ XXXXXXXX ; ERROR-ALLOCATE MORE LOCATIONS XXXXXXXX ; [ ߕ  * 'L Y!T'"Y!T( .& 5m NJ88 \ H 8 ,z $z.zw ~ t ( \XT.ZTMDTRECMAS0LD6IDBFLPTC<_.BR|XBPTEX. 2? ~_ FOR AUTHORIZATION CODES .ENDC ; .IFNZ NDISCS DRESDI = 1 ; DISC RESIDENT DIRECTOR` :<}mJ$8_. 8r" ( nr&ga   _. d0 E 8D/.   $ .&7 . D T.S#     .A~d Y OPTION .IFL 3-NDISCS XXXXXXXX ; PRESENTLY CODED FOR MAX. OF 3 DISCS .ENDC ; e .:  XН $X3.`НН 0 f )"$/.r 8  x nr". ! EW,  _MQYew.!    ! d~i NDPRT1 = 5 ; NO. OF PRIORITY LEVELS IN DISC 1 QUEUES .IFL NDPRT1-3 XXXXXXXX j   "%le.& 7 &  .Er@lrk  x d$n Zrd Pf  $r( .8ӝӝ (7 (d'.> 7xtx* & 492\.d&&  P~n ; MUST BE AT LEAST THREE .ENDC MAXID1 = 500. ; MAXIMUM ID ON DISC 1 ; .IFG o  @A(` (s.A&& ee `` L >p  &df.^  e   % <.  0.&W,WB  n ! 6 ` o. j ~ps NDISCS-1 NDPRT2 = 7 ; NO. OF PRIORITY LEVELS IN DISC 2 QUEUES .IFL NDPRT2-3 XXXXt . e  ?0Xs$4!;. ff ^u b'E b.A`w w w w  N.x*7 7 7 ajc .d   8l| _~x XXXX ; MUST BE AT LEAST THREE .ENDC MAXID2 = 500. ; MAXIMUM ID ON DISC 2 y _ !"'s('s.D   v 1'L  'L z M. A`wd wd wd wddd d(d.  . C `."W,5 3!0 ,!.H)!& %! yߕ;}} .ENDC ; .IFG NDISCS-2 NDPRT3 = 3 ; NO. OF PRIORITY LEVELS IN DISC 3 QUEUES .IFL~ 'L .j*3 ց e  ŜہEq\ց\ہ.eց&t7 w=nыw=gr =&=.ыw=`   =ZG2& ` t.n4ߕ  `  `  ` 7. . d{7@a,}@.R@.hfp@[g4@(s kMhJt 4!h@&u Z NDPRT3-3 XXXXXXXX ; MUST BE AT LEAST THREE .ENDC MAXID3 = 500. ; MAXI &t\ց&. EU 6&t.7 .B    >(".h 2Z w *3 :  && & &   ` _.& HH:MM:SS MM/DD/YY  hy Xh2 dh5  ( MUM ID ON DISC 3 .ENDC $SYSFL = NDISCS+5 ; NO. OF SYSTEM FILE ID'S IN ROS ; z( E-.U@6&fWtEAWte ց e  Z\ց$ ŜہEqeց\ہ\ց. &e I. W, ! 1 ., @ E@ 2.2w  1 ; COMPID,FTDIR,CDIMGE,CDIHDR,TTFILE .IFZ DRESDI NCFILE = $SYSFL+40. ; NO. OF CORE RESIDE .( E`v( (#N cw(W, !G.R 0E7P?(xdDԝ&ԝ#  ! %$[g4 $&.X $%    NT FILE ID'S .ENDC .IFNZ DRESDI NCFILE = NDISCS+$SYSFL+40. ; NO. OF CORE RESIDENT ID'S ; @ MZ^< # : ^<  ^<  ,8^^  oQ8}^5 G ^<  r\M^< ;u @  .~$R  $V܅w,Q  $.w8w8w  xai\  ȋ ; INCLUDING DOD'S AND SYSTEM FILES NCRWDS = NCFILE*5 ; NO. OF CORE RESIDENT .MZ;@4@; M@.}@:_@:mm@: @:<}@._MQ .: imR@(B:mmh0: h .\!ps@; @s kM@.t 4!@u Z@y X@ d@ @". l  [g4.ȕË $B7$(. WORDS NEEDED ; ; FOR CORE DIRECTORY NCRLOC = NCRWDS+NCRWDS ; NO. OF LOCATIONS @Ye@fSz@fTz@9mQ@`.m@Tq@[qj@v@@@z(d@.@9a@4f@ .% f 6 H$&we&6  imR&n @ @ q@ ; @}@.@8}@u:@e"@w @.{7@E@M:@ lEWt` .D%  F.R"a,} IN CORE RESIDENT ; ; DIRECTORY .ENDC ERRPRT = 1 ; PRIN LC @(D}.Mp&h8MWh>MZhMh:(MXh \!y:@""@. #}@m'N@U(@a,}@,@i.,2@.@.R@A<@MZ@ d.<e Հ O 6A (.b 56w\wZw  T-OUT DISC ERROR MESSAGES OPTION CHKPTC = 1 ;1 = CHECKPOINTING ALLOWED .IFZ $KT11C  2 .(b; h. 12345678 &=':>@9 .oQ8}@{QD@Q\!H;YTG@Zp@W.Zd'@ee;@f@ gp@\g@A.Cm a$[g4. & 6ȋȕË  [.^\[  .IFNZ CHKPTC XXXXXXXX .ENDC .ENDC FXPART = 1 ; FIXED PARTITION OPTION $S 29"  0/STUV.&WXY _,(%\"Z -JKLMNOPQ $.L*];^R ! @imR@m@r,@v3d@.v@9wW@aw}@w]@yx@.yR@z4f@9p:@  . w 7w  hfp"[g4%.4 GMNT = 1 ; SEGMENT LOAD OPTION $FTMAX = 10. ; LARGEST FILE TYPE IN SYSTEM $IDMAX = . L/P 1 PARITY ERROR L/P 1 NOT READY  L/P 1 AB .r +ABCDEFGH .)[<#I . ? . 9a@@o.}C @s@4f@K"@}H.LC @(x\!phETXhjh   ȕe5 5 y. Ë } d Li. 500. ; LARGEST FILE ID IN SYSTEM-- ; ; MUST BE >= MAXID1,2,3,..,N $FT ORTED &.&  ..&f&f P$ t .\}(x\!h (</}(<~(<\}  Fw   lȥȥp  [g4.l wm ŀ  DRL = $FTMAX*3/64.+1 ; NO. OF SECTORS IN FILE TYPE DIRECTORY $ROSFW = NDISCS+$SYSFL*5 ; NO. OF WORDS IN ROS F   7k.8.^     hR \}$ $"" B /}    /} ~6  . u  R (.VT 4 5$ 5$  ILES $CDISZ = NCRWDS-$ROSFW/64.+1 ; NO. OF SECTORS IN CORES ; ; DIREC . :&   %a  @z(dfTz(.0 A ~$ \}& &{7   \} m   .TITLE $$TEST (DISCIO TEST) .GLOBL HED4,STK04 ; HED4: .WORD 1,4 .BYTE 20,2 .WOR TORY IMAGE $TKFL1 = TASMAX*5 ; # BYTES IN REG TASK TABLES $TKFL2 = TASMAX-MXTASK*3 ; # $   LC :<}. e& w0X 9mQ 4.5  e  0 V"&0.  /} ~5 \} D START-STACK+100. .WORD 0,0,50.,0,0,0 .WORD 7006 ;PDR'S .WORD 77406 BYTES IN EXT OF TASK TABLES $TKFLN = $TKFL1+$TKFL2+2+3/4*2 ; # WORDS IN ALL TASK TABLES $}.  s3 3 0 &v.s3    j}.* w '7 Hw  z4f  /} ~4 .WORD 0,0,0,0,0 .WORD 77406 ; STK04: .WORD STACK .WORD 0,0,0,0,0,0 .WORD ; + 'TASKS' + EVEN NUMBER OF ; WORDS FOR DISCIO $TKFNS = $TKFL   ; M..Bw0w   M @$ v@ .PP77 2%,V,.v܅  wB wJ " \} 4f k /} 7600 .=.+12. .=.+100. STACK: SP = %6 ; ; START: MOV #MODULE-STACK+100.,-(SP) EMT N/64.+1 ; NO. OF SECTORS IN TASK TABLE FILE ; ; THE FOLLOWING IS FOR DISC RESIDENT DIRECTORIES ; DIRAD1 = [qj"&fSz.h    M ; M.2&{7n] ~3 \}  #} c  19. EMT 4 ; .BOUND MODULE: .WORD 1 .BYTE 1,3 .WORD TSK4X-STAC 320. ; DISC RESIDENT DIRECTORY ADDRESS DISC 1 ; ; LEAVES ROOM FOR 20K ROS B  e  2["m.&  & 1 . L"(2hyh$ . /} ~2 \}   K+100. .BYTE 0,1 .WORD 0,0,DATA-STACK+100.,0,0 DATA: .WORD 3 ;FILE ID .BYT OOT .IFZ DRESDI DIRLN1 = 0 ; ZERO LENGTH .ENDC .IFNZ DRESDI DIRLN1 = :<}Tq$. f&  h4f:_ . d2_ ($&1 E,l U(   /} ~1 E 1,0 .WORD 0,0,0 . = .+500. ; TSK4X: NOP RTS PC .END MAXID1-1/12.+1 ; DISC DIRECTORY 1 LENGTH .IFG NDISCS-1 DIRAD2 = 0 ; DISC RESIDENT D  e( ^ fSz.&  wVs3 3 |~ +   \}   s R /}  .r\MH@2@49@.:<}@ee;@f@;}G@@. ` IRECTORY ADDRESS DISC 2 DIRLN2 = MAXID2-1/12.+1 ; DISC DIRECTORY 2 LENGTH .ENDC .IFG NDISCS-2  $(; M.Ls3   M 3  i  $(:mm   .< $7B 7@ 7 7 < 7 .b   p( F& ~0 \} imR   @s'@(@\M2hr\M(. d DIRAD3 = 0 ; DISC RESIDNET DIRECTORY ADDRESS DISC 3 DIRLN3 = MAXID3-1/12.+1 ; DISC DIRECTORY 3 .r M % X z M t &.`w N V3  p $F.B .7`w w    B.   /} ~/  \}   r\M (r\M&r\M 1 LENGTH .ENDC .ENDC ; ; THE FOLLOWING CONTAINS THE FILE TYPE STATUS DESCRIPTORS ; FOR EAC &"(.d MC f ! : "& ] >`p . &    z  M:  /} ~.   !.t  n F&B! F$BG.   H FILE TYPE. ; $FD000 = 41 ; FILE TYPE 0, LOG UNIT 1, NO COMPRESSION $FD001 = 1 fSz.    , $D. d  w  ".< 4 9@BE . ` < BECB m\ D & \} Cm X  /}    H  K: H K  .H   , G) ; FILE TYPE 1, LOG UNIT 1 $FD002 = 1 ; FILE TYPE 2, LOG UNIT 1 $FD003 = 1 ; FIL f&ff& B  : r.0Aaes!B3  D! !  T .F!  ! |^*J^&^ "$*&J(^.l ~ -  \} E _   H"G.:Bf&CCTQ$ w7 SB.` 7 E TYPE 3, LOG UNIT 1 $FD004 = 1 ; FILE TYPE 4, LOG UNIT 1 $FD005 = 101 ; FILE TYPE .V3   % !3   ^ĕ ~.| R  s!5Еs *J^w  ee&  *J^. 񆗢    /}   ~ ,  \}  7 B     B. LL 6  L 5, LOG UNIT 1, CKSAVE REQUIRED $FD006 = 1 ; FILE TYPE 6, LOG UNIT 1 $FD007 = 1 ;  "c. 3   5. 7.  R7 6wJ.  w DDDm x. 9a   /}   ~ +  ` L2. 3   "  H.P)eD z6$ FILE TYPE 7, LOG UNIT 1 $FD008 = 1 ; FILE TYPE 8, LOG UNIT 1 $FD009 = 1 ; FILE  6 & `3   . @& . DQ$  fw  Dd R.* DQ$ pD & 2D X.PQ$Dd   \} 9p:   /}    &(6+.z 2  *  " w Mz.j`   TYPE 9, LOG UNIT 1 .IFL 10.-$FTMAX XXXXXXXX ; ONLY SET UP FOR 10. FILE TYPES .EN 5 55 3s $.:     D >Q$DdD C.v DQ$ 37 7 W-. DDdm 7 7 ɥ ~ *  _\} 8} j      .D  D@: | 7(1-$.jt    DC $OVTYP = 5. ; FILE TYPE FOR OVERLAY TASKS ; ; FILE TYPE SIZE TABLE - IN SECTORS ;   .`&d fB :  . e0 .ɥDD]F  e .  @ 8@bS '. /}   ~ )  ^\}  . D P  X.Le e  `7 L .IFNZ DRESDI $FS000 = DIRAD1+DIRLN1+$FTDRL+$CDISZ+$TKFNS .ENDC .IFZ DRESDI $FS000 =  0& D #.wwwZ9a  \ e= &":7/ \6.4 e@ r@L~  X.Z  ;   /} ~(  ..e 7!#"",.eHx'  x $FTDRL+$CDISZ+$TKFNS .ENDC $FS001 = 300. $FS002 = 300. $FS003 = 300. $FS004 = 300.  .@aAa !B@w q  y.f CqBa f 4W p;W 8 2 h "f;.+ 5  E#_  \} ;   /} !! I.( 2x 7 F L7: . x"L.N-.@7 &7e 7 $/" $FS005 = 2500. $FS006 = 300. $FS007 = 2500. $FS008 = 300. $FS009 = 300. ; $ALOD1 #  "*.  5 f ! 9a01 $  . W!W! wEW!,.  Xr7pP*Ý % ~' \}   {QD 0 & .tW µ 0 0  eE.`7µ 0l.' = $FS000+$FS001+$FS002+$FS003+$FS004 $ALOD2 = $FS005+$FS006+$FS007+$FS008+$FS009 .IFL 8192.-$ALOD1-7 ;:  F  F FH) $Pn.^% P)Lw < @7x P. E7H8 hw:,+ X* /} ~& \}" "+ 0  F! F [.B a( B7 B7 \, $ALOD2 XXXXXXXX ; ONLY 8192 SECTORS AVAIL.- 1/2 MEGAWORDS .ENDC ; .IFNZ $BATC- e . e !&9. e  4w  R. 7 D2.> w w 11 F ` :<}H.d U1 }C   /} ~% 0 BBB(\.  L7 j -Z@7 R  L.27e 1 H $BCHID = NDISCS+$SYSFL+1 ; FILE ID FOR BATCH FILE $BCHTP = 7. ; BATCH FILE TYPE $RASIZ = 2 .  w  @w e . 7!  #2-7!`e ., X3 1 w w R*492;}G ;}G$s'(ee;. B!7 wwQ$ w4 . v5pЋ#Bw>` .6 70@5"0 @ e.\ 5 7 PN 'W (&' $(.X6  M   6&G6 200. ; NO. OF ENTRIES IN USERS SYMBOL TABLE ; ; IN RASM ; 7 &fhe  e Be N.R !!!!!w j @` 7 .BF.x w X  8 ,* B. ((( ,,,&f,. &M  9      .    m2 . : .~ &' |&'l  .  nD `B A w`; ; NOTE: 4 WORDS/ENTRY $LSDSZ = 1000. ; NO. OF WORDS RESERVED FOR LOADERS ; < 7 7. 7 ee MI . - = mvm. - &&L7 re3 L5." e #0-> #e#!  . E mf|7q . 7?   . J> 87  N6$  &63. ; SYMBOL DIRECTORY (LSD) ; ; NOTE: $LSDSZ MUST BE >/= TO /  >   ". | 7f?| { 0( &o.H ]L,7 B#0- L.n  E7eC ejj$. #0 E w Z (Z]( \ `&' e 7 0 \`&0. d e E T}^5 4T}^5 &; ^  eTzK7 \[K2 2 6J]F /} ~# X\}( (G 5 &     HN ѕ,# ѕ@ e7 ÃD,ӷ &f  H @  J w w*J     I ڦ :** J .oQ,XZ02468,& x7x7EK  l /} ~" WL wmn5,&|%% fef P w,L  *m, ҕ- aM jajE \N ,w,@M0. /* ~\*-O  e,LjUwNWtEw5*,rDF5  ^P \}* *MZ  /} Q rm  $ D J,P Ӏ c' f|, R G\0,.0x xXVS r*B^'  &f"eѕ O.f  ѕ ѕ w*T ,@dEt j 7 jf, @X D5 H,>U ~! V\}, ,.  V  %- &;*77tԆ7 7  $ &f ,Өd ҕ ҕ :W t jpj xax@ X * @X*EEEE*Y *, ,  e 7 w]%,0  bd~×bwhZ /} ~  \}. .[ 2, x8 p7rwb CREF V0(B04B CROSS REFERENCE TABLE PAGE S-k,tSMP\ . ROSLOD IIA # ROSLOD PASS #1 .,END  ROSLOD PASS #2 BEGIN ERRVROR] MM* LP^ 7 ,V ?վ f`_d5,|ߋb5bߋc7e~,_ }  /} ~ ` CE 4 L f&fp < w  4 ,Ԗ7 7 a # w \|.\P **** ROSLOD LOAD MAP **** **** LOAD ELEMENT [%b !OCTAL DUMP V001A # ܄ړc x   v,5LU@7 8Ì, 8 d \}0 0YTG ) /} e ,LZ! ! fL f&ZLQ]6  |p,>0Z f  J.LODTMP] **** / / : C.********** ELEMENT TITLE: [] SECg h b  b5gb,5 x-5 f,: w>i ~ \}2 2.R  j   C ,> (  2 < B  "d,dP<06 @,0`k %TION ENTRY OFFSET SIZE TOTALm .<> l m ,`&BE x,x ~@0& y(@wn /} 0~ \}4 4o " P)w @ LI 4NL28 - H\p . "**********.D UNRESOLVED REFERENCES K.jr x& Awr V Ra.s a,} $ /} 0~ t gf ($ # EE(   D73u `)@ BB v .oQ,XZ02468,& x7x7Ew x \}6 69wW n /} 3y ,Պ#   ҕ ҕ # ,5  N޷{  e,LdUw8WtEw5F,rDF5  | } ~  \}8 8Zd' : ~ , f e0R&|,.@ ( @ ! ,T  .v@s@g'@;@#.-Z@}@2@fSz@9mQ@.yx ,@dEt h 7 j7h, RV 5 J@, /} 3~ \}: : e ee e L|,zք N ! ! -- @ , ` &   @ ` @}@K"@LC @c.f@R:@d@([qjhv@h > *. ,  e 7 w] ,0 bd~×bwT7 Zp s /} ~ ֈ j a, & e ^@4 $ 3,A @& l . &B& LC ( ` e  K,V? f`_d5-,|ߋb5bߋc7e~ ~, .,8^hfp@[g4@({.,8^hB \}hph$ph&ph"F4[M \}< <y X  /} ԍ , @    &   -,8`@   2w A @z,^ 5 .& & 7 503" ` 2fSzLC .L     v",5RU@7 >Ì R,; "b h\wqh(..& ~ \}> >u Z c  -  w u,LA  p,   ayx.rf&&&&&&   b5g5, 6 x-5 f*,: wB EU0~E|UvEjUP6.LdEbU\ EPU@JEHU.rBw 7 7М /} ~ \}@ @  m, |, "ؘ R: . M) F L  &. F ,`& xfxE,@0& @w& Aw= l    D [g4".  5q W !5  x   d *  /}   ~   ˜   ş ,8ş C @ @   #,^1- ` EQ$'  d".P50 =CDww LC h. . ^V NNEJ  5qw U.s hfp \}B Bs kM ! !/}! !ѡ ,(``B  #`B  h,s  #1-` wc, . F 3 ($5$LC  g' ` "R:$f.00  ~! !\}D Dt 4! " "  7sْ$s h7  ^" `޵ ",B w R  F  F U ('.V w9mQ" ~` /}" "~" "\}F F ,8ك   u5߇7V fp,^JABC| f6,  },|7  w #*g' ` yxLC s}$e n~س   # #/}# #~# #Ȱ  RRRRRRR    ,   R⋇5 R,F ހe-w  }~P \}H H q $ $/}$ $ε 7* 4,& e 7 1G,e@7 * L v̔du~#"~      .; hfp@[g4@(r; h}~ȴ ~$ $\}J J l % %κ *Bڲ,ee 7f7 4@7!.|rw w w ~x . w    & D ĥ+ ĥ [g4.&-ĥ   D0 ~@ /}% %~% %\}L L `1 އ455f&R~ m& %L   a0 a ^ Wq8.L a   vw X  hfp ~ v3d & &/}& &~& &  v^r@rBr@  &!0 ~h  ? ߐ6 e e   e& tw0  \s\3 \3 \\s\3 \ D\  T~0 \}N Nv 'X '/}' ' @f w@f 6 ߐ s~  &f%V~_ w0w ڼ  \M\\ ^\  D\  M\2\ e\  2~ ~' '\}P P  ( (  G  & |zf perrB2@2U~X& N 2 e  \~x_\!& l \& f&\ Ӄ\  \e(\ #~ /}( (~( (\}R} R̔du~#"~      ! dB6   E@~f&fP~7 7  v~_ wVs\\3 \3 \D\s\3 \  M 3 \|]  M \%\ X z~ u: )Q )/}) )~)  )~x f&f&& &  B 0eW @w B~H   M] `w~h`] N V3 \|]&`d | MC f\\\ ⼀  \ 2~ \}T{ Te" *r */}* *55f&R~ m& %L   a0 a ^    &fw 5 82  && e ~5 \,\d 2 ~` wf&ff& ]\Aaes!\B3 \ D! ! 3 ] \ % !3 ~ ~*  *\}Vy Vf + +  v^r@rBr@  &!0 ~h  ? ߐ6 e e 5 5@  & 5  ]<] e5   Z  &f s~8 ]  ^ĕ  R  s!\5Е~Xas\]  3 ] \ 5  6 & A~ /}+ +~+  +\}Xw X@f w@f 6 ߐ s~  &f%V   d ^w   " 7 ,{  "`3 ]  @~a& 5 55 ] 3\  ~x s , ,/}, ,~,  ,  G  & |zf perrB2@2U~X& N 2 e  ~q w #c# w   _ H I@u~  \|]`&d f]$~HbB ezb00& Dž]wP~ \}Zu Zw] -? -/}- - ! dB6   E@~f&fP~7 7 ~( t:Z2.!r"    r]@aAa !B@\\w f CqBa ~bfh] 5 f NDž ~-  -\}\s \r, . . f&f&& &  B 0eW @w B~H  eh ~0 @7II I   I7 H7 F7 D7 F7 >7 <> p0!1 7 % f 6 w~8ce.c6 ~h /}. .~. .\}^q ^   &fw 5 82  && e ~5 .!0" ~ 7#^& w )  )w`)He )* **EU0~E|UvEjUPdEbU\ EPU~c@JEHUBw P7 7М_~ ee; / //}/ /~/ /<5 5@  & 5  ]<] e5   Z  &f s~8  * **P *w h~` .3h-lwj+fwd>|   DLc   5qLc W !5  ^V NNEJ~(d  5qLcw чU~X \}`o `aw} 0 0/}0 0   d ^w   " 7 ,{  "HqB~K8~4J40  ~ 7 7?)\DnD0) ,%)#)7.mmmm X3pKN@uooooooooo~dn~л ~0 0\}bm byR 1# 1~q w #c# w   _ H I@u~E %)7zh %~      ߕw ~e 4>, 7 ww 7^dyoow  7xw w XĝZL~e7ޚ~H /}1 1~1 1\}dk dj#~( t:Z2.!r"    r~ ٟ zX &~&B&.!.! & p7 5037J F ޚk֚!:e0w & ܚ֚@ D A  &DCc  w @w  w ~e}~  j 2f 2/}2 2~2 2eh ~0 @7II I   I7 H7 F7 D7 F7 >7 <> p0! ؄ f&"&&&&&~p M) F LR  F ' 7  &w \w wXw w  fw  w 7 wtwhw o %oE~8 \}fi f,2 31 3/}3 3 .!0" ~ 7#^& w )  )w`)He )* **,:ط4ط.؀PP50 =CDwwFg~4 <3.! (*$50~f e^d whoD uo =w TD = w H6 w @/ w 8 w 0w 8 7 w *7 w "7 7 ~ ~3 3\}hg hw  4< 4 * **P *w h~` .3h-lwj+fwd>|F  F Un w 7 ~`.! w  #(houo ~fXw7  ww (b ww w A B` % w| ~(" /}4 4~4 4\}je jHqB~K~J40  ~ 7 7?)\DnD0) ,%)#)7e&t7T׀ EU6&t70׀ EU6&f~WtEAWt7wrxw%~fhu E 7|d~wh^ E t|dP |dIw ,-% w  ~' m'N 5 5/}5 5~5 5E %)7zh %~      ߕw ~e E`v&f# & lWtE@`$Wtր E`v~P x=w $7 ~pg |d=w e0w ,w %@w ke=w @w f#~, \}lc l, 65 6/}6 6~ ٟ zX &~&B&.!.! & p7 503&f& & WtE@`7$\րEt7`LֶEU&f~& &www=w  w *~g rw 8Ae0w ,w |VPTw D- <@7|d: ~1 ~6 6\}na n\g 79 7 ؄ f&"&&&&&~p M) F LR  F WtE@`7$րEt7`նEU ~@(6 4,*w  ?w ~`h"7 w 777    w %0 %7E `  1o 2~6 /}7 7~7 7\}p_ p,:ط4ط.؀PP50 =CDwwFg~4 <3.! (*$50z>W ֆ m7 yhiiipiek~hif|iifJjjjitkfffggg4hRhgfbeFeh7cJ~; A< 8n 8/}8 8~8 8F  F Un w 7 ~`.! w  #(~D @ 7<76%.* "w %~Pi=w (w  w w ww  A~@ \}r] roQ8} 9b 9/}9 9e&t7T׀ EU6&t70׀ EU6&f~WtEAWt~0  7mw w %M~i/w \  j~~o  L E ~9 92\}t[ t~yR : : E`v&f# & lWtE@`$Wtր E`v~P x1~ ed  !dB !d=L !64d4 d o!4d~@jd4 d % w *  @~pJ /}: :~: :\}vY v|&f& & WtE@`7$\րEt7`LֶEU&f~& &~ !w @ % % w  ww  D  <~j&C@AEPA&fw w P~O aw} ; ;/}; ;~; ; WtE@`7$րEt7`նEU ~@@~!/w w Hw   ` E ` V F A~0kw8Ĕw 7-U&~`T .wNwT 5f&F Uv LC .,a z>~""Ew b7DE  pdjw V׭~kRU_~Y  ;EyK" $ .R7 7z@WtEEP /}~O~"7w @ŝŝw vt wjt!d w w Joi~ low @~P^ ~ \}.x ~hf yx.`\E~0 w ,×& u6 ^~#7!p.! .!k!g  [.!ߐe>%ĕtd72 ddw Bw .e` w ;w ĝdw wjdf&f~ln~c atE.Et`EU֋ t.E Et` 1~ "W  !Q *r B f> 6~x#1> .!4!2 7"7"  4ddd 77w r~5rlgdbs~@h E.U &&77  yx.60C~eE&U0 ~ !ߐ<ѷ6w h ee Hwv ~#6 &&f F- ~mbV  <dd !%& &e N @ e0w &  |d}~ F$\w  ^\ gpLC 6@~! l7 fv  & @~h$6 6U I~m7葅ܑؑE w   w ׭ ^w Uw ^dwr~0  lP  P  r  e  ;~0\ ~"×7 7  7 ~ .!!!.!ߐ && 2~$.! J<1 nj{~n  7,|dXR|d-P Dw@ 78 %(!  %??~!"$'(+-.03569:1<ߐH& w4—!& R1.!7 7 7 7 0 !~X%W  ! .!ooow N_~xn%w 77w Z e0w ,w w p~ 234~ ]w ,×& u6 ^~#7!p.! .!k!g  [.!ߐf /w.!w P7 M.! y%"&"&"&"&"&%"&%%"&"&"&%& . 7^)S~%  Cå å$ נ~nA   e` \o  Ëנe~b` L/}~]P 1 PARITY ERROR"W  !Q *r B f> 6~x#1> .!4!2 7"7" !.!.!&& 2.!^&W"1f w cc~H& ee e ѐ  @(  ~ho$@ ODT-11R V003ABE@@ *;/\ $G _<^,OWEBP@>SRC-FI!#~ L/P 1 NOT READY L/P 1 ABORTED\f]&f&f  7p~^ߐ<ѷ6w h ee Hwv ~#6 &&f F- c0&@&P&Uw xv Ew  !7 | &  .!  k D AXASPMCFRB@rFrJrrr6sXs~oss@rFr^rrsTszsst<qqw ŀ~     h :& \ T\ %L!0 \$<~^ l7 fv  & @~h$6 6U~&gHd.!B <X , MW"I <r<<>`>2 >2 >& L d0 \ XW UPW +~XpMHD W  @0 W ;0 & F2~  e& tw0  \s\3 \3 \\s\3 \ D\  T×7 7  7 ~ .!!!.!ߐ && 2~$.! J<1r>~8'2 >2 > 1 !.!&& 1 0.!vfͷ`w   .!8 ,-Lp!  -7x~pR o,   0P~_ w0w ڼ  \M\\ ^\  D\  M\2\ e\  2>1<ߐH& w4—!& R1.!7 7 7 7 0 !~X%W  ! .!w n@×& a~'K7!H.!E.!!ߐ&& 0 -   A f>w Ŏofo  ew & w~Hqw zxo   o~x\~x_\!& l \& f&\ Ӄ\  \e(\ f /w.!w P7 M.! y%"&"&"&"&"&%"&%%"&"&"&%& . 7^)S~%  t> .!ߐ~((w  w 6   <`` !!P ( L& &  && *  o,~q ofo  ww A~ v~_ wVs\\3 \3 \D\s\3 \  M 3 \|]  M \%\ X z!.!.!&& 2.!^&W"1f w cc~H&  ~(J B.!wtCe2 ,  " o Ģ & & | && ~8rw Ç  ~h M] `w~h`] N V3 \|]&`d | MC f\\\ ⼀  \ c0&@&P&Uw xv Ew  !7 | &  .!  k D A: A@Cf U0 f~).! ww ABCD fEeU0 4UR  7P9T p`   TU R  P~r Pt P~ \,\d 2 ~` wf&ff& ]\Aaes!\B3 \ D! ! 3 ] \ % !3 ~&gHd.!B <X , MW"I <r<<>`>2 >2 >& L fUEfEEw$`UC ~)@ u E ptrv)))0) EUUR  7P9T p` P  Pt  UR  1~(s7P~X]  ^ĕ  R  s!\5Е~Xas\]  3 ] \ 5  6 & r>~8'2 >2 > 1 !.!&& 1 0.!vfͷ`w   .!@20)00*~27~* w  9 7PUR0   U_TRU A gTp  PWt o~s_~`3 ]  @~a& 5 55 ] 3\  w n@×& a~'K7!H.!E.!!ߐ&& 0 -   A f> . &*&ʷw , Z~*fʷ`w & w*5*@**T   U  U R      fE  PE@UR ~H  \|]`&d f]$~HbB ezb00& Dž]w t> .!ߐ~((w  w 6   <`` !!Ѐ* w N     **5***O~*1*w EE  *D)~t  E ER@R5P e   xRtRUA 0 ,PWt  n~]@aAa !B@\\w f CqBa ~bfh] 5 f NDž  ~(J B.!wtCe *D * |@+1 *wJ\+,,,,,,,---0->-P-*W*H@*w*~p+xD*w*pɴ  -m=)&~t > wuQ EQ_Vp E _T0 P7 o7 7 ~81 7 % f 6 w~8ce.c6 : A@Cf U0 f~).! ww ABCD fEeU0  ) *wf) > =)=)*  w 0 &&~~+ jw . @*w*  !~u @!}~EU0~E|UvEjUPdEbU\ EPU~c@JEHUBw P7 7М fUEfEEw$`UC ~)@ u E ptrv)))0)!& ,  1* R* e* **& @*5*1*e~`,*& ~u~(   DLc   5qLc W !5  ^V NNEJ~(d  5qLcw чU@20)00*~27~* w  v*5* ^w1***f) T  *1* ) * * ) *1 *U~,) *~u~.mmmm X3pKN@uooooooooo~d . &*&ʷw , Z~*fʷ`w & w*5*@***^) *}*) ** ) *1 *wJ )1* * ) *1*@*w*wZ~P-~pv" BE 7*7Z8&9 w~ 4>, 7 ww 7^dyoow  7xw w XĝZL~e7ޚЀ* w N     **5***O~*1*w EE  *D)*w )*ww |ҜEE D) @*w*\B*w*T f) 4 D)+ŀ| n *@hl&9 ~vwxh&9 wB~7J F ޚk֚!:e0w & ܚ֚@ D A  &DCc  w @w  w ~e *D * |@+1 *wJ\+,,,,,,,---0->-P-*W*H@*w*~p+xD*w*pɴ  -m=)~--el.*BE,I  5@ =)C) 5@@wĕ  *^) *2 h&9W  w~`wh&9 w#~ ' 7  &w \w wXw w  fw  w 7 wtwhw o %oE  ) *wf) > =)=)*  w 0 &&~~+ jw . @*w*  ~@. ށ * *ĕ\ **Ē1*  1*ĕ\ * * *f) ^ )=) *fhP&9W  w~wh&9 w`~f e^d whoD uo =w TD = w H6 w @/ w 8 w 0w 8 7 w *7 w "7 7 !& ,  1* R* e* **& @*5*1*e~`,*& ) B ĕ=1~.) *  /w F/ W<"3.5"36A"3p&" ! 0 h&9W  w$h~Px&9W  ~houo ~fXw7  ww (b ww w A B` % w| v*5* ^w1***f) T  *1* ) * * ) *1 *U~,) *!C `0  ~~0/5@"3A<3& & 0 N & P&*wh0&9 wh~xd&9 w2~7wrxw%~fhu E 7|d~wh^ E t|dP |dIw ,-% w  *^) *}*) ** ) *1 *wJ )1* * ) *1*@*w*wZ~P- "* ( 4*A~/ *a  *f `D` %**YD) 1 *h&9 wLh&A~@y9W  w~p=w $7 ~pg |d=w e0w ,w %@w ke=w @w f*w )*ww |ҜEE D) @*w*\B*w*T f) 4 D)+ŀ| n *@*(1 *@*w*75**4~ 04   *=)f)@) J@*w*7*h&9W  wh)D&~y9 wA~www=w  w *~g rw 8Ae0w ,w |VPTw D- <@7|d: ~--el.*BE,I  5@ =)C) 5@@wĕ  *^) *2 *3 1 *1* *D)A5@ =)f)~0* *)f)ÝB * A)72*w0hx&9 wlh&9W  ~0zw0~`(6 4,*w  ?w ~`h"7 w 777    w %0 %7E `  1o  ~@. ށ * *ĕ\ **Ē1*  1*ĕ\ * * *f) ^ )=) *f*@*w*@*w*7  5@*~1"3w<3 5"3|5"3x5 "3U"3=)=)h&9   w7 hD&9 5~zP~W ֆ m7 yhiiipiek~hif|iifJjjjitkfffggg4hRhgfbeFeh7cJ) B ĕ=1~.) *  /w F/ W<"3.5"36A"3p&" ! 0 "3pw` Bte* @e*e* :J  ~1  *3****** E *  w7 >h&9   w^7 h~PD @ 7<76%.* "w %~Pi=w (w  w w ww  !C `0  ~~0/5@"3A<3& & 0 N & P&**************** *3*3* ~2})f) 3 * * *~ {&9 w$h THIS BUFFER OF DATA WILL BE USED TO TE_~ 7mw w %M~i/w \  j~~o  L "* ( 4*A~/ *a  *f `D` %**YD) 1 * -z) E =) *7@*w*^) *~x2f&z * w ST THE M3~{AGNETIC TAPE 62CSECOND LINE OF THE WRITE, REWIND, AND READ TEST 62 CHARACTERS.INPUT BUFFER~@ed  !dB !d=L !64d4 d o!4d~@jd4 d % w *  @*(1 *@*w*75**4~ 04   *=)f)@) J@*w*7*z   & D ĥ+ ĥ-ĥ   D0 Wq a  h~2 vw " k~|n~w @ % % w  ww  D  <~j&C@AEPA&fw w *3 1 *1* *D)A5@ =)f)~0* *)f)ÝB * A)72*w0w & & w| @@  ~h3y & ~|~0/w w Hw   ` E ` V F A~0kw8Ĕw 7-U&*@*w*@*w*7  5@*~1"3w<3 5"3|5"3x5 "3U"3=)=)45 U0 ffffffffF "e{~3}~}}~"Ew b7DE  pdjw V׭~kRU"3pw` Bte* @e*e* :J  ~1  *3****** E *.!.!E f f $*f77  e ~X4~x}~ 7w @ŝŝw vt wjt!d w w Joi~ low @*************** *3*3* ~2})f) 3 * * *V+# 544) ERROR XXXXX XXXXXX XXXXXX XXXXXX XXXXXX R~}f2~e>%ĕtd72 ddw Bw .e` w ;w ĝdw wjdf&f~l -z) E =) *7@*w*^) *~x2f&z * w ~444444w & w ࿅f  h 7^! F~h~~ 4ddd 77w r~5rlgdbsz   & D ĥ+ ĥ-ĥ   D0 Wq a  h~2 vw "  ~H5w  7 |( =w 47 7 4f& C V   2~L $%&  @  ~~ <   @   ~mbV  <dd !%& &e N @ e0w &  |dw & & w| @@  ~h3y & A!2~5f 2#4 ^   0 E &f&M$   & & "&& ' L   ~X&   bd7 b $% ~ I~m7葅ܑؑE w   w ׭ ^w Uw ^dwr45 U0 ffffffffF "e{~3 'd ~86w 06 Օ+  d 0B` e0  w %Օ- ҋR2D~#~ nj{~n  7,|dXR|d-P Dw@ 78 %(!  %??.!.!E f f $*f77  e ~X4 0&  ~6 UUU ȷȷ,.0ȷȷȘ&%~H~xooow N_~xn%w 77w Z e0w ,w w pV+# 544) ERROR XXXXX XXXXXX XXXXXX XXXXXX XXXXXX R ~tνȽ*~(7@6 87:7f7 AC:  ? ILL CMD! ILL PAR! NON-QUIE~SCENT ENDS2~ Cå å$ נ~nA   e` \o  Ëנe~444444w & w ࿅f  h 7^! d~7QUXXXTTMDTRECMAS0LD6IDBFLPTC<BR|XBPTEX@. 2&7 . ~8D~h ee e ѐ  @($~$~~ho$@ ODT-11R V003ABE@@ *;/\ $G _<^,OWEBP@>SRC-FI! ~H5w  7 |( =w 47 7 4f& C V   @*jko~8 S#      !  E"W,  !   ~A~XASPMCFRB@rFrJrrr6sXs~~oss@rFr^rrsTszsst<qqw ŀA!2~5f 2#4 ^   0 E &f&M1~8  ! 7Lxtx* & &&  0.&W,WB  n !~X d0 \ XW UPW +~XpMHD W  @0 W ;0 & F 'd ~86w 06 Օ+  d 0B` e0  w %Օ- ҋ~9~(  j x*7 7 7 ajc d   8l|P~8 ,-Lp!  -7x~pR o,   0P 0&  ~6 UUU ȷȷ,.0ȷȷȘ&@~9 k~W,5 3!0 ,!)!& %! yߕ.4.ߕ..~Hw Ŏofo  ew & w~Hqw zxo   o ~tνȽ*~(7@6 87:7f7~9 :~  .&& & &  & HH:MM:SS MM/DD/YY  _~P ( L& &  && *  o,~q ofo  ww d~77,:@d<:&@&& ~p:vtf&&e I s~W, ! 1 w(W, ! 0E~82 ,  " o Ģ & & | && ~8rw Ç  @*jko~8fnş x1D7!vk "3Ŋe B` ] BY87V Dw N~:E /7PdDԝ&ԝ# ^~ @ n~ 4UR  7P9T p`   TU R  P~r Pt 1~8H BW>1 4 @ R7ğ`7`7 `f  t  -L ! T75a7~`;~~( EUUR  7P9T p` P  Pt  UR  1~(s7P~9T: @ f ^ wtwxwwP7$f pV7Dw:0X70Z7,\7 K*2 9+e^}~}~9 7PUR0   U_TRU A gTp  PWt o~s@~9~;  B:   e 1 ltd7 <@ -ww9Ee9 @ ~p~T   U  U R      fE  PE@UR ~9 ~P<Հ E ``e7  b7 c7 =$:= $:& 4 vt^7E~~t  E ER@R5P e   xRtRUA 0 ,PWt  7,:@d<:&@&& ~p:vtf&P&:=(:%~<:UAP^7CT:v ß}^7": a7 w߉    ķ~P~&~t > wuQ EQ_Vp E _T0 P7 o7 7 fnş x1D7!vk "3Ŋe B` ] BY87V Dw N~:E / 5V:~@=& wwŀ EjŸ7 ~Ȗ~ !~u @!H BW>1 4 @ R7ğ`7`7 `f  t  -L ! T75a7~`;[@!$~=t4e 41   +5% z2 #~~uT: @ f ^ wtwxwwP7$f pV7Dw:0X70Z7,\7 K*2 9+e^lm l m 44 e~0>  $& P߀e&f d߄ w~@#~t q>@q)eJ x~u~;  B:   e 1 ltd7 <@ -ww9Ee9 @  fWt5? @w TEV:~>wa7 CT: AV7DX7wZ7w\75":wV~   N Ê <~p%! ,c ѐjˋÜ`E &  P ~pv" BE 7*7Z8&9 w ~P<Հ E ``e7  b7 c7 =$:= $:& 4 vt^7E@qwWf & @P7DR7C ~ ?`` K $  87`7B 2~0  cL|wZ ɋr߷ pKhl&9 ~vwxh&9 wBP&:=(:%~<:UAP^7CT:v ß}^7": a7 w߉    ķ! Wfff  @ T7T:R:"~? a7  T7wܟ5V: wTw~~`h&9W  w~`wh&9 w 5V:~@=& wwŀ EjŸ7 D@BEp Bmd7 $ b@ u`7wXw~@w дδff 0w A~ ~؆hP&9W  w~wh&9 w`[@!$~=t4e 41   +5% z2 ?@ 52":5*:b7 ":B^7 E :w B::2r2~@r": r*:  bt":t*:~#~Ph&9W  w$h~Px&9W  lm l m 44 e~0>  $& P߀e&f d߄ w":w> Ta7 w@B@ V:a7AV7DX7wZ7w\7c7 ":~AJ  1P~~ȇwh0&9 wh*~xd&9 w fWt5? @w TEV:~>wa7 CT: AV7DX7wZ7w\75":wVGEMw  K D7!F ~xA"3BEW~2~@h&9 wLh&A~@y9W  w@qwWf & @P7DR7C ~ ?`` K $  87`7B <q B5 2 - Dw8 A!1 f ܄L 7B -L6 ~A! (_~~h&9W  wh)D&~y9 w! Wfff  @ T7T:R:"~? a7  T7wܟ5V: wTwG FE7 pہDwȲw  CPC6A77 7~hB~xAhx&9 wlh&9W  ~0zw0D@BEp Bmd7 $ b@ u`7wXw~@w дδff 0w C7 fwW RLw ~:4w f& fww ٞTLJ n~~0h&9   w7 hD&9 5~z?@ 52":5*:b7 ":B^7 E :w B::2r2~@r": r*:  bt":t*:~BHI 52-:56  ewX-ƻw- ~h~  w7 >h&9   w^7 h":w> Ta7 w@B@ V:a7AV7DX7wZ7w\7c7 ":~AJ  1 v~XCtE0PEPr hQ ^Wf & AAK B !}~P~ ~ {&9 w$h THIS BUFFER OF DATA WILL BE USED TO TEGEMw  K D7!F ~xA"3BEW: .01"~C Wf v 8ww 꺂5ܺw 0585~X~ST THE M3~{AGNETIC TAPE 62CSECOND LINE OF THE WRITE, REWIND, AND READ TEST 62 CHARACTERS.INPUT BUFFER<q B5 2 - Dw8 A!1 f ܄L 7B -L6 ~A! (7 w8A ~HDw61nD~Н_~k~|G FE7 pہDwȲw  CPC6A77 7~hBu~Dd~~|C7 fwW RLw ~:4w f& fww ٞTLJ 88!A$GIII>~8EVEVE@~Hn~}~}~BHI 52-:56  ewX-ƻw- ~Ew , w $~~x~x} v~XCtE0PEPr hQ ^Wf & AAK B ! w w f ׅ1 F~(F %?%;  5 EE "3* #~8}~~}f2: .01"~C Wf v 8ww 꺂5ܺw 0585-L%س! 0^w w & X(&~F vw f ցwt~~hF~h~7 w8A ~HDw61nDp  | ՀE@ x"E$& ր &L HwL[~Gwfw^ t7@ 2~(~2~L $%&  @  ~~ <   @   u~DdbG7DE     @ }@E` DxD~G o72`xD \DnD7 ~~X$   & & "&& ' L   ~X&   bd7 b $% 88!A$GIII>~8EVEVE@GtDE   |Z 8G\ r ~ ` ( ~HE T1ŀEA~~ЎR2D~~Ew , w $@&& vw" XD7 7 !&  7 w>wH 7 7 ~H H~#~H%~H w w f ׅ1 F~(F %?%;  5 EE "3* 77 DE  dExz `r ŜE `Z-\RHr@e <~H b-P~~ AC:  ? ILL CMD! ILL PAR! NON-QUIE~SCENT ENDS-L%س! 0^w w & X(&~F vw f ցwt^: , DxD 1 wj 8TI DE   m~pI~2QUXXXTTMDTRECMAS0LD6IDBFLPTC<BR|XBPTEX@. 2&7 . ~8Dp  | ՀE@ x"E$& ր &L HwL[~Gwfw^ t7@ zI   w$3 7w4JRJxZJp@ Izw\DE |1_~~8 S#      !  E"W,  !   ~bG7DE     @ }@E` DxD~G o72`xD \DnD7 ~I r ~B H . @ E H$J& < H *w œE@El3 Հ~p~  ! 7Lxtx* & &&  0.&W,WB  n !GtDE   |Z 8G\ r ~ ` ( ~HE T1ŀEŀ~`J 1w   1 w 1J  * EWq Ca 3 9 en~A~(~(  j x*7 7 7 ajc d   8l|@&& vw" XD7 7 !&  7 w>wH 7 7 ~H H  Ŝ9E ~Jq e9 7 L r @p edE6C 8 "3@ <K s ~`~ k~W,5 3!0 ,!)!& %! yߕ.4.ߕ..77 DE  dExz `r ŜE `Z-\RHr@e <~H b-Հs @E~PKlBE|wNwT 5f&F Ua }~ؤP~ :~  .&& & &  & HH:MM:SS MM/DD/YY  ^: , DxD 1 wj 8TI DE   m~pI ;pE`MM7M~K 7Lz@WtEE ~,hf`~&e I s~W, ! 1 w(W, ! 0EzI   w$3 7w4JRJxZJp@ Izw\DE |1\EatEEti~@L`EU֋ tE Et` EU~P_~7PdDԝ&ԝ# ^~ @ ~I r ~B H . @ E H$J& < H *w œE@El3 Հ &&77 0C~eE&~LU0    BҦ |^"%'$%j&|%~ȥ~~ŀ~`J 1w   1 w 1J  * EWq Ca 3 9 epp0**HA:62pp5l:p]pXV`Wppppppppppp~0MpppppEEEpp6d:ppL6d;Fpppppp~@n~}~  Ŝ9E ~Jq e9 7 L r @p edE6C 8 "3@ <K s ~~M!0033~~p~pՀs @E~PKlBE|wNwT 5f&F Ua  #~ N#~0}~~ ;pE`MM7M~K 7Lz@WtEE ~,hf`~N[NNNN ~~`~`\EatEEti~@L`EU֋ tE Et` EU[OOBOO ~O2~ ~ؕ~؆ &&77 0C~eE&~LU0    BҦ |^"%'$%j&|%&~O~~P#~Ppp0**HA:62pp5l:p]pXV`Wppppppppppp~0MpppppEEEpp6d:ppL6d;Fpppppp~PA~~Ȗ~ȇ~~M!00333~xP~#2~@  #~ NNRNNOFOOOP>P|P8N P~~@~~N[NNNN ~P~x~A[OOBOO ~O6 ~hQ  3wRBPw we  P _~2~0~0&~O pw2~Q  m  fT3EP5P& ^˄T:CP~h~~~P4LZ  e0~XRe  tL 043e&ʋ   .!  1n~A~ P~ 3~xP.! e8f \ D w*~RBP2P+P ~U| z dB wʕ~~NRNNOFOOOP>P|P8N & \ʄwB wb~HSew(3  3 AP E ~XP~_~~PEWe  Cq" E f ~~SEŠpPʋwEWE! f f }~Ь~~6 ~hQ  3wRBPw we  P  /.! .!3TY~8Te33e e   w. e ~H_~n~ pw2~Q  m  fT3EP5P& ^˄T:CPwA `w& L1.! 1 3^7 ~T P  KPBP3 ~~x~x4LZ  e0~XRe  tL 043e&ʋ   .!  1  Eeʋ  wE 4~(UB@ >  0 *~8n~}~.! e8f \ D w*~RBP2P+P ~U| z dB wʕ3΁w BP (& Ȅ w%e ~UN  Ƿ U ~~h~h& \ʄwB wb~HSew(3  3 AP E 22 wL 4 P3 0 P  rfע׬.! xi~V RCe#~(}~~EWe  Cq" E f ~~SEŠpPʋwEWE! f f w P  .!wD 5-1 .!X(& & 1~V F3 <~~X~X /.! .!3TY~8Te33e e   w. e ʕ.! <p>p< 6C3  BP  Ee  Z~WA 2~~Н~ЎwA `w& L1.! 1 3^7 ~T P  KPBP3 ͕AwEAq"ECP  A d w W   \ʕ~W~#~H  Eeʋ  wE 4~(UB@ >  0 *w އ < ʕ3w Pe3  .! wʕ36 @A~~H~3΁w BP (& Ȅ w%e ~UN  Ƿ U ~W"  3Pe   & D2  .! & . > $3~~222 wL 4 P3 0 P  rfע׬.! xi~V RCe>b~pX  C & fPw"2 @" Z PE!ʕw3ʕ P~#~8~8 w P  .!wD 5-1 .!X(& & 1~V F3 <D& Zw~X3 Pw 蛀 .! ֛Лw ݎ&W.! T.! ~p~~ʕ.! <p>p< 6C3  BP  Ee  Z~WA 66 e8f ~`YD vb  e ewE43 _~2~(A~( ͕AwEAq"ECP  A d w W   \ʕ~WP f&  - ~YCt # & Ä&> 0>ʕ.! 1 @Q~~w އ < ʕ3w Pe3  .! wʕ36 @t& wfʕ3 Pi~PZe8f @  BlP K.!G :ff FÃt~`A~P~~W"  3Pe   & D2  .! & . > $3 `$ G  ʋ &> ~Z> 12 .!ʕw <>< Q5f n~س~~>b~pX  C & fPw"2 @" Z PE!ʕw3ʕ .! Dwx B 0Quf ٟ~@[!.!wD.!wB q"PCaf~PP~_~D& Zw~X3 Pw 蛀 .! ֛Лw ݎ&W.! T.! Qr rPC DEr rPɕ!~[E.! f n5  f Z}~ȴ~~66 e8f ~`YD vb  e ewE43   lP  P  r  e  ;~0\ ~@_~n~P f&  - ~YCt # & Ä&> 0>ʕ.! 1 @Q!"$'(+-.03569: ~Z> 12 .!ʕw <>< Q5f b` L/}~]P 1 PARITY ERROR~~`~`.! Dwx B 0Quf ٟ~@[!.!wD.!wB q"PCaf L/P 1 NOT READY L/P 1 ABORTED\f]&f&f  7p~^#~ }~ؤ~ؕQr rPC DEr rPɕ!~[E.! f n5  f Z     h :& \ T\ %L!0 \$<~^~~_~A~2~~~P~X~`~#~~ȥn~лP~A~~@~H~P~x~~}~_~P~2~#~0~8~@~p~~n~~hA~2~ ~(~0_~~`~~}~~XP~A~#~~ n~л~P~~~~H_~P~2~~}~~@~x~~8n~_~A~~~~0~h#~~(}~n~~p~x~~ P~2~#~~~X~`~h~~}~Ь_~A~2~~H~P~X~~~n~P~A~#~~8~@~H~x~}~_~~p2~#~(~0~8P~~h~~n~~`A~2~~ ~(_~~X~~}~~PP~A~#~~n~~H~~~@_~P~2~~}~~8~p~~0n~_~~x~~~(A~#~t q>@q)eJ x~ }~~`~h   N Ê <~p%! ,c ѐjˋÜ`E &  P ~~n~سP~  cL|wZ ɋr߷ pK#~~P~XV~~~}~ȴ_~~@2~~~@~He~~~n~~0~x#~t q>@q)eJ x~0~8t~A~   N Ê <~p%! ,c ѐjˋÜ`E &  P ~}~~h  cL|wZ ɋr߷ pK#~ ~(~ P~G~~~~~X~x2~~ ~ q>@q)eJ x   N Ê <_~V~~%! ,c  ~ѐjˋÜ`E &  P   cL|~H~A~#~wZ ɋr߷ p n~~h~x~@U~8e~P~~$bUUUU ~U}~~X2~$bVVJVV ~0V~(t~е~h~p~V~  <<{9sc1c1c1c1c1c1c1c1c1c1c1s9s<{s9s9{{<オ#B!B!B!B<R4,#MAXCC ;IS IT A CONTROL CHARACTER? BLE LPCA05 ;BRANCH IF NO CMP R0,LPBUFR(R3) ;IF WE'RE AT THE BEGINNING OF THE BUFFER BNE LPCA10 ;AND THE CHARACTER IS NOT CONTROL, THEN INC LPMODE(R3) ;ASSUME AUTO LINE FEED MODE BR LPCA10 ; LPCA05: CMP #HT,R4 ;SEE IF CHARACTER IS A TAB BEQ LPCA60 ;BRANCH IF 'TIS CMP R0,LPBUFR(R3) ;OTHERWISE, IF WE'RE AT TH(S,-R0 V MO E BLDAEAHR TSTLIE AK;M ) R0,(#1 V MO 0 Y ITORRI;P ) R0L(VELE RBCL 3 = E YP T0,= E ICEV DET;S 0)(RCEVIDE.,56*2#3 V MO S ESDRADE ETPLOM C/O IRETO;S 0)(RITEX,$R4 V MO R4E,ONPD#L D AD C ND.E ,3R4 H AS 5 14$1 Z FN.I C ND.E R4 L AS R4 L AS R4 L AS 5 14$1 FZ.I E USY TTR FOT IS LUPT SEN HE;T 4 ,RR3 V MO ****;* E AG.P PC S RT T XI END AERETAMAR PORRR EFF OOP;P + P)(S T TS : 00QALP ; K AS TORRR EHE TUEUE;Q UEUE,QPC R JS ) SP-( R CL ) SP-( R CL ) SP-( R CL D IEIFECSPT NOS ISKTAR ROERN AIFH NCRA;B 00QALP Q BE P)(S T TS ERMBNUK AS TORRR EET;G) SP,(0)(RSKRTER VBMO ) SP-( R CL : RRQELP ; ; * **********************************************************PLETE SUBROUTINE RTS PC ;SET LIST NOT BUSY AND EXIT .PAGE ;********************************************************************** ;* ** ;* C R S I O ** ;* ** ;* CARD READER START I/O SUBROUTINE. CRSIO SETS UP ALL ** ;* COUNTERS, INITIATES A C/R READ REQUEE BEGINNING BNE LPCA20 ;OF THE L/P BUFFER, WE'LL CONTINUE JSR PC,LPSTOR ;FIRST WORD IS CONTROL, TOP BYTE (LEFT) MOVB #' ,R4 ;IS IGNORED BY PER DATA CONTROLLER SUB #2,(SP) ;CONTROL CHARS DON'T COUNT FOR TAB POSIT ; LPCA10: JSR PC,LPSTOR ;CONVERT CHARACTER TO L/P ASCII AND BNE LPCA40 ;BRANCH IF L/P BUFFER IF FULL ; LPCA15: INC R5 ;STORE IN L/P BUFF 0 ,R4.#1 B SU C ND.E 0 B1PO,LR5 B SO 5 14$1 Z FN.I C ND.E 10OBLP T BG R5 C DE 5 14$1 FZ.I + 4)(R+,0)(R V MO : 10OBLP ; 5 ,R#7 V MO UFPB LINT IS LVESA, STIR;F 4 ,R3)(RFRBULP V MO R5E AV;S P)(S,-R5 V MO : 00OBLP ; ; CKBALP Z FN.I ; ; E?ER H ; G INDON VE EOU YRE AATWH, SECAH ICWHN I. EMSTSYE THO NT I ; D TERANEGET N'AS WONTIOPS HI**********;* * * ;* * * T.IS L/O IHE TOFS ESDRADE THN AINTCOT US MR0, RYNT EON ;* * *. ONTICUXE EOR FSKTAR ROERE THS UEUE QNETIOUBRSUE TLIT LISTH ;* * * R R E Q P L ;* * * ;* * ********************************************************************;* E AG.P C ND.E PC S RT ST, AND STARTS ** ;* UP A TIMER (100 MS DELAY) TO MAKE SURE WE DON'T HANG ** ;* IF AN INTERRUPT ISN'T RECEIVED. CRDQTM, A SECOND ** ;* ENTRY, WILL DEQUEUE (STOP) THIS TIMER REQUEST BY USING ** ;* SUBROUTINE DQTIME. USAGE IS: ** ;* ** ;* R1 = ADDR(LIST) ** ;* MOV #CRINDX,R3 ;SET ER ; LPCA16: CMP R5,LPMAX(R3) ;IF WE HAVEN'T EXCEEDED MAXIMUM SIZE, BLT LPCA00 ;WE'LL GO BACK FOR MORE ; LPCA20: BIT #1,R0 ;CHECK TO SEE IF THE RIGHTMOST BYTE BEQ LPCA30 ;NEEDS A BLANK MOVB #LPBLNK,(R0)+ ;YES - STORE IT ; LPCA30: ; LPCA40: MOV R5,LPCNT(R3) ;STORE CALLER'S BUFFER POINTER SUB LPBUFR(R3),R0 ;DETERMINE NO. WORDS IN L/P BUFFER MOV R0,R TE,RSOU COF, SSLEUN E.YPETEL T ; M TEYS SHE TTOT PUUT OERNTRI PNELIE THS RTVEDIN IOCTSES HI T ; ; ; . RRHEN EI ME,OM HGO ND;U PC S RT + P)(S T TS R METIT ARSTO ;G E TMOQ,IPC R JS D ONEC SNE OAYEL;D P)(S,-EC1S#$ V MO P)(S,-R4 V MO 4)(RUBRSJSE,IMPT#L V MO ; C ND.E 4 ,R3)(RADMDLP V MO S RMFOER PDECOE THF ORTPAS HI;T 1 P-NL Z FN.I C ND.E Y TTLP R CL 1 P-NL FZ.I : ONLP ; C ND.E PC S RT : 10DFLP ; ; C ND.E Y TTLP C IN 1 P-NL FZ.I ; ; C ND.E ) R3Y(TTLP C IN R3 L AS R3 C DE 10DFLP T BG = R ;O P NL,#R3 P CM 10DFLP E BL 0<=E B'TAN CO. N/P;L R3 T TS 1 P-NL FG.I CKBALP Z FN.I F:OFLP ; ; * ****************************** R3 = C/R INDEX ** ;* JSR PC,CRSIO ** ;* ** ;* REGISTERS R0, R1, R2 AND R4 ARE DESTROYED. ** ;* ** ;********************************************************************** ; ; CRSIO: CLR COUNT(R3) ;SET COUNT = 0 CLR IGNORE(R3) MO4 ASR R4 ;AND LEAVE IT IN R4 ; LPCA50: TST (SP)+ ;POP OFF TAB COUNTER MOV (SP)+,R5 ;RESTORE REGISTERS MOV (SP)+,R1 MOV (SP)+,R0 TST (SP)+ ;POP OFF FLAG, WHICH SETS THE CONDITION RTS PC ;CODE: ZERO = DATA STORED ; NON-ZERO = NO DATA STORED ; ; LPCA60: ;CHARACTER IS A TAB, FILL IN BLANKS 4 ,RODPM#L V MO E ULOD MERIM TOFS ESDRADT GE, OW;N 1 P-NL FZ.I C ND.E YSBO, NEGIENE OLE THP UEV;R 3)(RMDPC@LE,!IIDB!#S V MO SSREDD ARYMOMER FEUF BRETO;S 3)(RDRADLP,@3)(RFRBULP V MO : 10OALP ; E OD MOLTRON CGEIARRCAO TET;S ) R3D(EEPF@L R CL : 00OALP ; 10OALP BR EDFEE IN LTOAUE SUIS, SEWIERTH;O ) R3D(EEPF@LF,OLUT#A V MO L RONTCOE AGRIAR CIFH NCRA;B 00OALP Q BE**************************************;* * * ;* * * . 1)> P NLF (IN URET ROND YEROSTDES IR3 ;* * * ;* * )*LP N.,.., 32,, (1R BEUM NERNTRI PNELIE THS INTAON CR3E ERWH ;* * * ;* * * F)OFLPR (ON PO,LPC R JS ;* * * V SYSTEM(R1),CRTASK(R3) ;STORE TASK NUMBER .IFNZ BIN CLR BYTE(R3) .ENDC .IFNZ TTYSW TST CRBKUP(R3) ;SEE IF THIS READ IS TO BE DIRECTED BNE CRSB00 ;TO THE TTY - BRANCH IF YES (OR SI) ; CRSA05: .ENDC MOV CRDATA(R3),R0 ;GET DATA ADDRESS .IFNZ BIN CLR R1 ;DETERMINE MODE OF INPUT .ENDC MOV (R0),R2 .IFNZ BIN  CMP R0,LPBUFR(R3) ;IS THIS THE FIRST CHARACTER OF THE LINE BNE LPCA65 ;BRANCH IF NO INC LPMODE(R3) ;OTHERWISE, FORCE TO AUTO-INCREMENT MODE ; LPCA65: MOV #40,R4 ;KEEP STORING BLANKS JSR PC,LPSTOR ;UNTIL WE GET TO A TAB POSITION BNE LPCA40 ;OR UNTIL THE L/P BUFFER IS FULL BIT #7,(SP) BNE LPCA65 ;KEEP GOING 'TIL WE HIT A MULTIPLE BR LPCA INE 'RWEE OD MCHHI WEE;S 3)(RDEMOLP T TS T UNCOD OR WRETO;S 3)(RCTWDLP,@R4 V MO M TEYS SINP L/1 > R FOE OD CHE TOR FOW NND;A 1 P-NL FG.I ; ; C ND.E UPR 'ERTTA;S 1 D.CM@#D,!IIEB!#S V MO SSREDD AERFFBUY OREM MRETO;S1 T.PD#L,@UFPB#L V MO : 10OALP E OD MOLTRON CGEIARRCAO TET;S .1RGLF@# R CL : 00OALP ; 10OALP BR EDFEE IN LTOAUE SUIS, SEWIERTH;O .1RGLF@#F,OL ;* * * : S IGEKAIN LHE T).ONLP (/P LHE TTOT PUUT OTETANSEI ROR ;* * * ) FFPO(LE YPETEL THE TTOT PUUT O/P LHE TCHITSWO TEDUS ;* * * RE AND AUTNP IORATEROPY BEDLLCAE ARS NETIOUBRSUE ESTH ;* * * ;* * * F F O P L / N O P L ;* * * ;* * ************** BGE CRSA10 ;NWORD < 0 ======> BINARY INC R1 ;SET R1 = 1 (BINARY) NEG R2 .ENDC ; CRSA10: .IFNZ BIN MOV R1,CRMODE(R3) ;STORE MODE CODE .ENDC CLR ERRCR(R3) ;CLEAR ERROR STATUS MOV PC,CRBUSY(R3) ;SET C/R BUSY .IFZ NCR-1 ;NOW WE GOT'S TA GET THE ADDRESS OF MOV #CRMOD,R1 ;THE TIMER MODULE FOR THIS C/R .ENDC .IFG15 ;OF 8 (PLUS ONE) = 1, 9, 17 ; ; LPCA70: TST R5 ;WE GET HERE IF: BNE LPCA50 ; 1. THERE IS NO MORE TO PRINT MOV #SKIP1,R4 ; 2. USER HAS NWORD = 0 BR LPCA10 ;IF (2) IS TRUE, THEN STORE A SINGLE ;LINE SKIP AND PRINT IT .PAGE ;********************************************************************** ;* UT#A V MO L RONTCOE AGRIAR CIFH NCRA;B 00OALP Q BE INE 'RWEE OD MCHHI WEE;S DEMOLP T TS NTOU CRDWOR TEINPRE IN LRETO;S .1NT#C,@R4 V MO EMSTSYN I/P LLYONR FOS IDECOS HI;T 1 P-NL FZ.I : 00O0LP ; NTOU CRDWOE IVATEG NDSEE N/P;L R4 G NE ) R3D(ORPW,LR4 V MO C ND.E ES YIFH NCRA;B 00OBLP E BN D SE UBEO TISY TTF IEE;S ) R3Y(TTLP T TS ******************************************************;* E AG.P PC S RT E BLLAAIAVT IS L/O IET;S 1)(RTADA R CL : NEDOTY ; R LEAL CTOT XI;E PC S RT ONTIDION CORRR EET;S Z SE R DEORN ICKTA SUT;P P)(S+,P)(S V MO 5 RRETOES;R R5+,P)(S V MO TSUPRRTEINE BLNA;E R PS@#+,P)(S V MO : 00SXLP ; ; PC S RT N IOITNDCOR ROERO- NET;S Z CL  NCR-1 MOV CRMDAD(R3),R1 ;GET ADDRESS OF TIMER MODULE .ENDC MOV R1,-(SP) ; MOV #$1SEC,-(SP) ;SET UP FOR 1 SECOND DELAY JSR PC,IOQTME ;REV UP THE OLE TIMER MOV #CRTIME,8.(R1) ;AND STORE TIMEOUT ADDRESS TST (SP)+ ; ; CRSA20: MOV R2,MXCNT(R3) ;STORE MAXIMUM NUMBER WORDS (CHARACTERS) ;NOW, WE CAN FINALLY START THE I/O MOV  ** ;* L P S T O R ** ;* ** ;* CONVERT THE CHARACTER IN REGISTER R4 TO EVEN PARITY, ** ;* LINE PRINTER ASCII, THEN STORE IT IN THE LINE PRINTER ** ;* BUFFER. THE L/P READS CHARACTERS FROM INCREASING ** ;* MEMORY LOCATIONS, AND FROM LEFT (TOP BYTE) TO RIGHT ** ;* (BOTTOM BYTE). THUS, CKBALP Z FN.I O:SILP ; ; * ********************************************************************;* * * ;* * * D.TEARSTE BOT NLLWIR METI ;* * * E TH, SECAS HI TIN T.OUTY TIA VPETYLETEE THO TEDCTREDI ;* * * E BLLWIT PUUT O/P LHE TD,IEIFOT NSOS HAR TORAPE OHE TIF ;* * * S ESDRADT IS L =R0 ;* * * R DEORN ICKTA SUT;P P)(S+,P)(S V MO 5 RRETOES;R R5+,P)(S V MO E AGSSMET INPRO TUTYOTTL AL;C T OUTY,TPC R JS SSREDD ASTLIH US;P P)(S,-R5 V MO REWEY HE TREHE WTOK AC BTSUPRRTEINE BLNA;E R PS@#+,P)(S V MO T IABGRO SE,BLLAAIAVS T';I ) R5A(AT,DR4 V MO Y US BIFH NCRA;B 00SXLP E BN E BLLAAIAVS ISTLIE THF IEE;S 5)(RTADA T TS C ND.E NGHI TMESAE THR FO#ENABLE!START,@CRS(R3) ; RTS PC ;RETURN TO HE WHO CALLS ;* ;* ;* THIS SECTION RE-DIRECTS THE C/R INPUT TO THE SYSTEM TELETYPE. ;* THE TELETYPE USER MAY REINSTATE THE C/R INPUT BY TYPING THE ;* CHARACTER 'BELL', FOLLOWED BY A ;* ;* NOTE: THE SYSTEM OPERATOR CAN ALSO SWITCH INPUT BY THE ;* COMMANDS: ;* CR,K SWITCH TO C/R : K ;* TY,K SWITCH C/R : K TO TTY ;* ;* WH LPSTOR CANNOT PERFORM A SIMPLE ** ;* INDEXED STORE. ON ENTRY, THE REGISTERS ARE EXPECTED ** ;* TO CONTAIN: ** ;* ** ;* R0 = ADDRESS OF L/P BUFFER ** ;* R2 = ADDRESS OF CONVERSION TABLE ** ;* ** ;* R4 IS DESTROYE EXND I/P L =R3 ;* * * T UNCOD OR W/P L =R4 ;* * * ;* * * Y:TRENN OTSENEMIRQURE ;* * * T. ITHWIE ON DTSGEO SILPN HE WBEL IL WIT, EDEUQUT N'IS ;* * * LEDUMOE THF I. UTEOIM TNDCOSEE ONA R FOD TEUSDJ AIS ;* * * E ULOD MERIM THE TS,RDWAERFT A. ERNTRI PNELIE THT ARST ;* * * TON IOCTE OD C451/;1 7 L SP 5 14$1 Z FN.I C ND.E S PTRUERNT IITIBNH ITOE OD C201/;1 SR#P,@40#3 V MO 5 14$1 FZ.I L VELEU CPT ENRRCUE AV;S ) SP-(R,PS@# V MO ;* C ND.E STLIO I/ ;* 5 ,R3)(RLSIOLP V MO ;* 1 P-NL FG.I R TEINPRE IN LOF ;* C ND.E ;* R5T,ISPL#L V MO SSREDD AET G;* 1 P-NL FZ.I R5E AV;S #ERE K = 1 FOR C/R : 1, ETC. ;* ;* ; .IFNZ TTYSW ; CRSB00: .IFNZ BIN TST @CRDATA(R3) ;CAN'T SWITCH IF IT'S BINARY BNE CRSA05 .ENDC .IFZ NCR-1 ;GET THE TTY I/O LIST ADDRESS MOV #CRLIST,R0 .ENDC .IFG NCR-1 MOV CRIOLS(R3),R0 .ENDC CMP (R0),#1 ;IS IT IN USE? BNE CRSA05 ;BRACH AND USE C/R IF IT'S BUSY MOV $D, R0 IS UPDATED, AND ALL OTHER REGISTERS ** ;* ARE SAVED. ** ;* ** ;********************************************************************** ; ; LPSTOR: INC 2(SP) ;INCREMENT TAB COUNTER CLR 10.(SP) ;SET 'DATA STORED' FLAG CLR -(SP) ;SET 'L/P BUFFER NOT FULL' FLAG ADD R2,R4 ;ADD TUN FUTTPOUL UACT AHE TMSORRFPEE INUTROUB SISTH ;* * * ;* * * O I S P L ;* * * ;* * ********************************************************************;* E AG.P T XI END;A PC S RT R TOCADIINR ROERY ITAR PET;S + P)(S C DE : 20SALP ; T XI;E PC P)(S,-R5 V MO C ND.E 4 ,R4)(R V MO P L/S HI TOR FERFFBUF OSSREDD AET;G 4 ,RR3 D AD 1 P-NL FG.I K ACSTM RO FSSREDD AERFFBUA AT DET;G R4),SP2( V MO : GEMSLP ; ; * ********************************************************************;* * * ;* * * . EDOYTRES DIS4 RERSTGIRE ;* * * ' #CRSB50,$EXIT(R0) ;NOT BUSY. SET I/O COMPLETE ADDR MOV DATA(R1),DATA(R0) ;MOVE ADDR(DATA) INTO TTY LIST MOV R0,-(SP) MOV CRMDAD(R3),-(SP) JSR PC,IODQTM ;STOP THE TIMER TST (SP)+ JSR PC,TTYIN ;CALL TTYIN TO READ DATA RTS PC ;* ;* ;* ENTRY HERE WHEN INPUT REQUEST IS COMPLETE (TTY I/O COMPLETE ;* SUBROUTINE). ON ENTRY, R1 POINTS TO TTY LIST. ;* ;* ; CRSB50: (ABLE BASE ADDRESS TO ASCII CODE MOVB (R4),(R0)+ ;CONVERT BYT' STORE IN LPBUF ; LPST00: CMP R0,LPBUFR+2(R3) ;IS BUFFER FILLED UP TO HERE? BLT LPST10 INC (SP) ; LPST10: TST (SP)+ ;POP 'BUFFER FILLED' FLAG TO SET RTS PC ;CONDITION CODE, THEN EXIT. .PAGE ;********************************************************************** ;* S RT D REUIEQ RONTIACR TORAPE;O + P)(S C IN : 10SALP ; ITEXN HE;T PC S RT OK= E OD CONTIDION CET;S + P)(S T TS : 00SALP ; E INNL OIFH NCRA;B 10SALP Q BE R4E,INNL#O T BI OW LERAP PIFH NCRA;B 10SALP E BN ; R4W,LO#P T BI NTSERE PIFH NCRA;B 20SALP E BN ORRR ETYRIPAR FOT ES;T R4Y,ITAR#P T BI N IOITNDCO' OK 'ET;S ;* * * LEABILVA A'TSNWAT IS LIFH NCRA;B E BN ;* * * E SGPM,LPC R JS ;* * * S ESDRADR FEUF BTADAH US;P ) SP-(A,AT#D V MO ;* * * X DEINP L/= 3 RET;S ;* * * ;* * * S: IGEKAIN L. EDIRQURES IONTIACR TORAPE OOR ;* * *D TEECET DENBES HAR +.IFZ NCR-1 ;FIRST, WE NEED THE C/R INDEX CLR R3 ;FOR ONE C/R, IT'S SIMPLE! .ENDC .IFG NCR-1 ;FOR MORE THAN TWO, IT AIN'T SO EASY MOV R1,R3 ;(UNLESS, OF COURSE, WE'RE ON THE 11/45) SUB #CRLIST,R3 ;GET DISPLACEMENT OF THIS LIST FROM BEZ CRSB80 ;THE FIRST LIST .IFZ $1145 CLR R4 ;THE C/R INDEX IS = DISP/7 ; CRSB60: SUB , ** ;* L P C H E K ** ;* ** ;* THIS SUBROUTINE PERFORMS CHECKS ON THE I/O LIST AND DATA ** ;* BUFFER THAT COULD BOMB LPRNTR. THESE TESTS ARE PERFORMED ** ;* WHEN THE REQUEST IS QUEUED AND WHEN ITS I/O IS STARTED. ** ;* THE REGISTERS MUST CONTAIN: ** ;* ) SP-( R CL C ND.E S TUTA SET;G 4 ,R3)(RTSPS@L V MO 1 P-NL FG.I C ND.E 4 ,R.1ATST@# V MO 1 P-NL FZ.I : ATSTLP ; ; * ********************************************************************;* * * ;* * * D YEROSTDES IR4 X.DEINP L/N AINTCOT US MR3, RYNT EON ;* * * ;* * * ROERN AENWHD LEAL CISE SGPM L. PETYLETE ;* * *M TEYS SHE TTOE AGSSMED TECADIINE THS UTTPOUE INUTROUB SISTH ;* * * ;* * * E G S M P L ;* * * ;* * ********************************************************************;* E AG.P PC S RT C ND.E O WHW-NO-KOU YRETOES;R R5+,P)(S/#7,R3 BLT CRSB70 TST (R4)+ BR CRSB60 ; CRSB70: MOV R4,R3 .ENDC .IFNZ $1145 DIV #7,R3 .ENDC .ENDC ; CRSB80: MOV #CRTTY,$EXIT(R1) ;SET TTY LIST BACK TO ORIGINAL FORM MOV CRDATA(R3),R4 ;GET DATA ADDRRESS AND CHECK FOR THE CMPB #BELL,4(R4) ;RETURN TO C/R CHARACTER BEQ CRSC00 ;AND BRANCH IF WE FOUND IT TST 0 ** ;* R0 = ADDRESS OF I/O LIST ** ;* R1 = ADDRESS OF DATA BUFFER ** ;* ** ;* ON RETURN, R4 CONTAINS: ** ;* ** ;* 0 = VALID REQUEST ** ;* 2 = ILLEGAL LIST OR DATA A D REUIEQ RONTIACR TORAPE O= ROZE> ;* * * ORRR EALAT F= ROZE< ;* * * T GHRIALS G'INTHRYVE E= O ER Z ;* * * ;* * * : LYNGDIORCC AESOD CONTIDION CHE TTSSEN HE TR,TEINPR ;* * * NELID TECADIINE THF OUSATSTE THS ADREE INUTROUB SISTH ;* * * ;* * V MO : 20LALP ; ) 1 -R2*( 2IND ADN HE;T 2 ,RR5 D AD C ND.E ? CKUI QATTHT N'AS;W 5 ,RR3 L MU ITS OE D451/ 1HE TOW HISS HI TND;A 5 14$1 Z FN.I C ND.E : 10LALP ; 00LALP BR 2 ,RR3 D AD 3 *RTYPRNL ; 20LALP T BL S OE D201/ 1HE TAY WHE TISS HI;T R5 C DE : 00LALP ; 5 14$1 FZ.I ; TYRIIOPR= 3ERROR(R1) ;THEN CHECK FOR AN ERROR BEQ CRSB90 ;BRANCH IF NONE MOV CRFRST(R3),R0 ;OOPS - SET ERROR FLAG MOV #7,ERROR(R0) ; CRSB90: MOV (SP)+,R5 ;SET FOR FOR TTYIN RETURN BY JMP (R5) MOV NREAD(R4),COUNT(R3) JMP CRCLOS ;GO CLOSE OUT THIS REQUEST ; ; ; THIS SECTION SETS UP THE LOGIC TO SWITCH BACK TO THE CARD ; READER. ENTERED WHEN THE OPERATOR ENTERS A 'BELL' CHARACTER. 4DDRESS ** ;* 4 = ILLEGAL RETURN TYPE ** ;* 5 = ILLEGAL I/O COMPLETE ADDRESS ** ;* ** ;********************************************************************** ; ; LPCHEK: CMP R0,#ROSTOP ;TEST LIST ADDRESS BLOS LPKE02 ;CAN'T BE IN ROS CMP R1,#ROSTOP ;TEST DATA ADDRESS BL * T A T S P L ;* * * ;* * ********************************************************************;* E AG.P ! KSOL FL,ALS T'HA;T PC S RT C ND.E T IARLE;C ) R3D(CMLP,@ARLE#C V MO 1 P-NL FG.I C ND.E .1MD#C,@ARLE#C V MO 1 P-NL FZ.I : ETRSLP ; ; * ****************************7; ; CRSC00: CLR CRBKUP(R3) ;CLEAR C/R BACKUP FLAG INC REPEAT(R3) ;SET 'READ ANOTHER CARD' FLAG MOV (SP)+,R5 ;SET R5 FOR TTYIN RETURN BY JMP (R5) JMP CRIC00 ;AND GO START ANOTHER CARD .ENDC .PAGE ;********************************************************************** ;* ** ;* C R D O N / C R D O F F 8OS LPKE02 ;CAN'T BE IN ROS EITHER CMP R0,#HICORE ;NOR CAN EITHER BE IN NON-EXISTENT BHIS LPKE02 ;MEMORY CMP R1,#HICORE BHIS LPKE02 BIT #1,R0 ;AND, FINALLY, THE ADDRESSES MUST BNE LPKE02 ;BE EVEN (WORD BOUNDARIES) BIT #1,R1 BNE LPKE02 MOV (R1),R4 ;AND, FINALLY (DID I ALREADY SAY THAT?), BLT LPKA00 ;GET NWORD AND MAK****************************************;* * * ;* * * R.BEUM NEXND I/P L =R3 S. IATTH, EDARLE CBE ;* * * TOS EDNET INTVE EHE TIN T; IARLE CLDOUSHE OSPPSUI H ICWH ;* * *, ERNTRI PNELIE THO TNDMAOM CETES R AESSUISE INUTROUB SISTH ;* * * ;* * * T E S R P L ;* * * ND.E T ENEMATSTR NCZ FN.IG INNNGIBEE THR FOC ND;E C ND.E CTSE.C PC S RT C ND.E C ND.E 0 A2RN,CR0 B SO 5 14$1 Z FN.I C ND.E N AIAGY TR, RY TND;A 20NACR E BN ERNTOU CNTMEREEC;D R0 C DE 5 14$1 FZ.I 0 = T RSRF CET;S + 1)(R R CL T)RSRF(CDRAD= T ASRL CET;S )+R2,(R1 V MO : 20NACR ; R2; ** ;* ** ;* THESE SUBROUTINES ARE CALLED BY OPERATOR INPUT AND ARE ** ;* USED TO SWITCH THE C/R INPUT TO THE TELETYPE (CRDOFF) ** ;* OR REINSTATE INPUT FROM THE C/R (CRDON). THE LINKAGE IS: ** ;* ** ;* JSR PC,CRDON (OR CRDOFF) ** ;* <E SURE IT'S REASONABLE NEG R4 ;WITHIN AVAILABLE CORE. ; LPKA00: INC R4 ;CONVERT # CHARACTERS ASR R4 ;TO # WORDS ADD #HICORE,R4 CMP R1,R4 ;CHECK DATA BUFFER TO BE GREATER THAN BHI LPKE02 ;NWORD/2 WORDS FROM TOP OF CORE CMP R0,#HICORE-7-7 ;AND THAT LIST IS MORE THAN SEVEN BHI LPKE02 ;WORDS FROM TOP OF CORE ; ; NOW WE'LL C ;* * ********************************************************************;* E AG.P PC S RT S ESDRADE ETPLOM C/O IALEGLL;I 4 ,R#5 V MO : 05KELP ; PC S RT S ESDRADA AT DORT IS LALEGLL;I 4 ,R#2 V MO : 02KELP ; PC S RT PETYN URET RALEGLL;I 4 ,R#4 V MO : 04KELP ; 10KBLP E BL ) R0E(YP,T#1 PBCM E YP TITEXD LIVAR FOT ES;T T,ASRL#C V MO R1T,RSRF#C V MO 0 ,RCR#N V MO 1 R-NC FG.I C ND.E STLACRT,RSRF#C V MO STFRCR R CL 1 R-NC FZ.I ; T OUS UEUE QHE TARLE C'SET LW,NO ; ; C ND.E ; C ND.E 0 A1RN,CR2 B SO 5 14$1 Z FN.I ; C ND.E 10NACR E BN R2 C DE ; 5 14$1 FZ.I R1.,#8 D AD O ER ZTOL VELEY IT? ** ;* WHERE R3 CONTAINS THE CARD READER NUMBER (1, 2, 3, ..., NCR) ;* ** ;* R3 IS DESTROYED ON RETURN. ** ;* ** ;********************************************************************** ; ; CRDOFF: .IFNZ TTYSW .IFG NCR-1 TST R3 ;C/R NO. CAN'T BE <= 0 HECK FOR I/O COMPLETE ADDRESS ; CMPB #3,TYPE(R0) ;IS IT EXIT 3? BNE LPKB20 ;BRANCH IF NO MOV $EXIT(R0),R4 ;OTHERWISE, TEST THE ADDRESS CMP R4,#ROSTOP BLOS LPKE05 CMP R4,#HICORE-10. BHIS LPKE05 BIT #1,R4 BNE LPKE05 ; LPKB10: CLR R4 ;SET 'NO ERRORS' RTS PC ;AND EXIT TO CALLER ; LPKB20: BLT LPKE04 ORRI PET;S )+R3,(R4 V MO ORCTVEN IT)INCRR(DD ARETO;S )+R3,(R1 V MO SSREDD AORCTVED OA;L 3 ,R0)(R V MO : 10NACR ; 2 ,RCR#N V MO 4 ,R40#3 V MO R11,NTRI#C V MO R0T,ECRV#C V MO 1 R-NC FG.I C ND.E 2 T+ECRV#C,@40#3 V MO SSREDD APTRUERNT I/R CRETO;S CTVECR@#1,NTRI#C V MO RSTOEC VPTRUERNT IHE TUPT SES T'LE, STIR;F 1 R-NC BLE CRDF10 CMP R3,#NCR ;OR > NCR BGT CRDF10 DEC R3 ASL R3 INC CRBKUP(R3) .ENDC ; ; .IFZ NCR-1 INC CRBKUP .ENDC ; ; CRDF10: RTS PC .ENDC ; CRDON: .IFZ NCR-1 CLR CRBKUP RTS PC .ENDC .PAGE ; ; ; I N I T I A L I Z A T I O N ; .CSECT .CRINT CRINIT: .IFZ