IMD 1.17: 21/02/2009 18:51:18 BOOT MINIMINC RT-11 V3B  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RT11A ߋtv ?BOOT-F-No boot on volume    @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  ::97tww8@?8ANA.G@G   @5  5f@f 9a  aW,d`p. % <; l9ae9 w<`X0  % % x1  "`0  0 ڇ@STARTSw 0  7 ׭`j  $, DU  @U8F8n8 A Eppp w7 ?BOOT-F-I/O error vߋtȋ | xE  e pEE e B E  `e  ,7z1 l9``  74  ?BOOT-F-Memory error,04@<^888E>>>>>>>@@AAAA"9&9I8IIHHHHHHHHH: ;6;L;C:9FD<< ~>l??6C"DZDRE|En e  @B5 %z%d %Z7 }%Yz %d %\7 m5lem `7 ?BOOT-F-No swap file on volume 7p ?BOOT-F-No monitor file on volume  P72 ? RT-11SJ (S)V03B-00C ?BOOT-F-Insufficient memory 7 ?BOOT-F-Swap file is too small  ee |e TYzdz f dZz< f z fpS? !dS !d?Tv!xev!Udv!z jEe`\"C N4 r<4 Ca a a( *e 5a ,0p`Vp`Xp]]5 v!}v!d^ys%'dv4 Xv . 8v8 "xx< xx xxb'  xxvNMz              HHHHHHFF@GQ$W ',$)  a E 6Q$E , `6`? W,͋ww> L w8e,͋(W    Ce<%R V `H͋*p5E   e  eH w Z T b””#e,e V5 2r2"e6 ͋*W  $ & Ĕ!6S͋2 eA ĒB `A `, eA p`7 Z<@&7 L<  ":  % ee/ e0w`  A @  -Jan-Feb-Mar-Apr-May-Jun-J,e:E: e" Ad  @b <J$H7 : n"Je" zul-Aug-Sep-Oct-Nov-Dec-:<:<.< e>(,e(Ċ͋#! C͋ͥ ͥ,u W- !k$,1!"c  &e V f/ND`? # e(e & / & &$ &   eHf  f % w͋\  ,ep*Eg,el eE  & &+3O& ㈅ e W!·  ?  x N`? lXA.e - W -4     %  L , ^  &  <ߋ*ww }w  w }w  e0   7 I G&DDeed$  872?*7& j6&(7n a e,ew  2 Vw Nߋ*w$ebZ U   e<_e,}e"  RHHHw ? `W,͋w4  "JeL H f, " W-p~;7 4D)  !',  device for command fileIllegal option for programIllegal optionConflicting optionsAmbiguous optionIllegal NO on optionCommand string too complicatedIllegal value on optionError in file specToo many filesCommand file nesting too deepCommand file not at end of lineNo dateIllegal dateIllegal timeNo clockParametersMust 'R BATCH', type '/U'No roomAlready installed/asswww wF }w  " V" SP   F &m ignedNo handler file on SY:Handler file I/O errorConflicting SYSGEN optionsDevice loaded or not removableAddressLogical naeg z3" ?  & &+e_,00#`0.z 0 l? ~͋/W,wwme not foundNo roomCommand file I/O errorCommand file not found  : Q hB[e e eeB    }w  "zL" I" F"  n  %z #0 `,,,#  , e .2  ! 1 1 0? n͋w w n    Hw  en@׭jW,w &" e#e"  ͋WE E ͋ ͥ-H ͋DA e B @} aw_  O` .e ez}]vUHUHͥ: & @ ց   @eEW=͋P,e( <  \ W,w(vlW ͋H.TECeBP ͥ: ' ''PPw PYHXZHK@IMZeDPP PzW2 ? $ & &Ne@@ONU T : b$C;$"A 2 $ 7 .=E@ :@! 2, " eEO e>   5 7 EBc  O e @ "W. B` 7 ,-  & &wZww,E]Yzd m`" Gwd \d4 E*P& e鈇 ae ,e." n    D e e @aew?KMON-F-?KMON-W-Line too longIllegal continuationAmbiguous commande& w W  %W  }' '* 4 X:#"""" wYIllegal commandFile not foundNot enough memorySystem I/O errorNo fileSave file I/O errorIllegal deviceBad fetchIllegal  Z $ Ow  w V w   fw   | W  j " " !elC   weh "    t  eZ  : 4ex,͋E EXOAL  www ` @ : 3 g *RGWWQYCTNw  w@ u >>>>>>@@AAAA"9&9I8IIHHHHHHHHH: ;6;L;C:9FD<<az  7 & ~鈷6 fW@CUT&F f6f W@f ~>l??6C"DZDRE|En e  @B5 %z%d %Z7 }%Yz %d %\7 m5lem `7 ?BOOT-F-No swap file on volume 7p ?BOOT-F-No monitor file on volume  P72 ? RT-11SJ (S)V03B-00C ?BOOT-F-Insufficient memory 7 ?BOOT-F-Swap file is too small  ee |e T & dG F  `$) `e.e.5h)DbAb?`)7`& (e  ee.!!2)5?`V)7`f jEe`\"C N4 r<4 Ca a a( *e 5a ,0p`Vp`Xp]]5 `B!? 5CT,r " %"">"f$#$*r++$(b+ `a `7`j``爇& TG C A.G@G   @5  5f@f 9a  aW,d`p. % `w  ? ? ",3 x zEP$Ej(7 )7  3 3 3 3 35@(3 3 e  l9ae9 w<`X0  % % x1  "`0  0 ڇ5$UB(  ( E$ %e\eC 5$wd'E,+.5@++5E ( &׭`j  $, DU  @U8F8n8 A Eppp'I5= $0$$ 36Ew( 5 7 < ̋? ( ? E*'+7   ~'((U  EE ` ف E6%^CC^!C%גע!EfE%  ҋʵ@AwmE 77P|   hœ  ¥  a " C!$ @@   #   W: ee. `? h! C! פ ר-efbL= K3 aezН/P h 0˵@-•:) N N Zͥ-,B 4 H•.˵  B 3@ _7 ^ & r. J 4U $- # 3c  ֆ 2ae  0 Oͥ: ͥ- ]eЕ[ P ͥ.    ""H7C  ,&5P &E faWWV <7  ww7?Mͥ:  f 7  77e eRe L eze.8 $"  &@ E &E 7 g7z~ ? Xfͥ:  77e~ 2eef ,e    v - D @&c%Lbtt&b%0c0jW""f&e j ppU%pppͥ:!fefe * nee( ~e~e.# 5o%% EP4H@ J`  NK5$ef <"  Е Pee  `ͥ[R  ͥ- g z R ͥ]R Еrnv e aew B I$QIeU@W@aDaWw w eD w4 el ! s @r  wJ|*W Е:ͥ: ( ͥ.* wJ  @ʕ*  #ͥ.P K ( +U@z$鈇  2 Ez %z ͋ ( > d  5D\f`|dP|D.8eAbw   Da(D`D` $f :,( ""@"5@  e  %@AeFuu  ( T X \E $ H Rvpbdͥ,͋jg,E  7 7| lwr  wa PO e.4  ?  cef `%Ԃ  f W +,e( (wv,&@7$ @e`  e ͇  @  7we %  I hww% ? & f F,e $&EΔNIQ%Ό%@ 2EQ r`waw~ͥ  ͥ+ͥ,ͥ 7,7xwre7_77 U E`H#HeeNb,e( 0e,& & e&w e !"rͥ/I7PNO<e p SW B#B ԁ`C  emDHa ҋ 3  e ы wae  8 $ w=u  V7fe eU LMG,7 0w:, F f ÝeL aedw/   @wwwz `        x g l~[WWQUY QOGAB I RESORCPIPDIRDUPLINKBASICFORTRAMACRODUMPLIBRSRCCOMFILEXF4PDICOMPFOCALAPL     Pb M P SCTYUI STUN  w E7  Dw  ~  u%m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[ LB:b B R J  H z LF FB BENc CC!SC"S P#A$ODc%Dc&Jc'K(MUST )K*F+V,Q-R.G  \z | \ f P X DK:DK:SY:.SYS.LST.BOTkQ\w ]  wͥ:[ B T ¥]wDwb RE P IA B I P P   S  N SSBD ODTIAL B  B FF P T:TT:PL:KDT OS   OSAL ODS BEFB  F    D BE @ vAeVDOFrom? To ? File? Files? Device? Device or file? File 1? File 2? Library? Files ? File ? Physical device name? C X DEBN!!  N! 6 N! *ͥ/͜AN ww2wͥ) ͥ, ͥ ͥ+͋Logical device name? AW[ 0W:&&&f  * ,e @2`,|02." *2*/,$,"h*.E.*... .f 5  (e    W ͋"w : 44,,,, &&2RCODE DIDE T LI ERECO  RESLC BSA RE SS MfeBfeX, e_ l_? bBaJarH^\`Zbdv|FJ VV> GDE FO  AB DIFOSSTIN   DID IN RE LI "X   \0p`Xr2^ 2$ eJe" aa C @ @J  v%* @.*   @P  .ͥ*ͥ%  ee@a ȕa P  w7  n7 E  2wwR  UUUUUUUUUUUU   ,0*5 # #e`#w f %     `C KSdKU b$`C͋X7xIllegal commandͥ/N : U@ Rͥ.   6 7Illegal devicE($U@ ?MON-F-Illegal call to USRNo deviceDirectory I/O errorBad FetchOverlay errorDirectory overflowIllegalg, _#" F ? B 7 R 63 f7 Kaes S w ^ addressIllegal channelIllegal EMTTrap to 4Trap to 10FP trapMemory errorStack overflowSystem write error@T^r| 5Sw 4I3W2Wl Ew C $ A!EE P &EΒE? *# ?2$D DeC B`  ew> w2  NK5$ew D%7 Еȕ e 0FHE & &8&& <.ee?  "  B I$QIeU@ @FD$CeK    baba& Nw  U<wfw &fmw   E ŧ8ŭ^ f eg: BBE/w Daw "Ba5lafw nCRC!  BC 5aW $*Z Q!El(A W   v`Be 7pEez5d3 w w @w w B xPPN? WWW B ab 2.` "8w? ? H@w J !7w #  ePH (a(fECew EN  b FEUw 5@!eBB ` ? .wElme& NSS t_v cw U 7   7 7 w w Fw?  w -7 ,w  Q$ 7 &w 8w  Be$B  wdQ$mw    & ^7 \w >& 7` w @%.@% @#eee%7` 7 z   e# ' w ~7f@Ŋ5$ߋr7 x:$* @5@+> עGE:5$E EK]w  ۇf< P NW 1xELW! 5 b1   R$ & w ӋU@UӋˋ5Q E %=%< D  "% % 5(ŀ   . \  T5!f w \f $PPw Nw Fw 4 w 4  tw E׭9Q *"CИBw( @'  7 e  O  $  NW2 \ 7 J3zN " Q f *8,QF7 2#@SD Og,e &r77  : `97Device full D ,   &` 7File not found W,W=  XU D   &7   $uD*eaU6  + 6:$w_ Mf  A0A A Aw :w r `'+ ( %-"&7@% *%e: *^%R;w 5@~R;^ j?f ac~,6 "0E  ~ ^  V5 Ea5' +7 5%5 E Ea @(F*&  @6 5 @ < P b52g,.7+5$ ͋*el B55 M  E E 7  s!5s  ENEae E > q"R@  "͊  UU@X   w U$7  7 N  7 > 5@ % Άe`B`N ˋ  w  5E e* 7?CSI-F-鈀 U@tUf Lw0& fć W[ W] 07 ^E$(7( L7 ĥ  *U5$9>E[=5@$az 2W:  eJW.  $  $  7%%**09AZaz&   NlE e  `NE|p         ɥ W#Q u#R < 5$ b e &N W-e E  C0Π a `  6 " 4   ^ w 5$ B UUH 7 (  8  ~7 ? @    D VUjV T  x ?  T5 L@fFDwBe)U%Me. u#eR 7 >>>???:?(EprtvpD<?30(   D \$bE>% * "F8$98zz dM  @<w `>? A &$ 4 u# W%*L E  ?#  4tHEw   D eEE e NQ@N  7:D% 4  .? $ ̗/ ? % fNe  &LE 0f& 7 & ť+;  fe  amag|tvr~> & " t ne   7 & @ 7 &fAX $0 w X`w < A@ u#  L$   (  wߋ$ۀw E % * * e 'C& eK# c# w V f/ND`? # e(e & / & &$ &  mc VAB " s & 8w@CCe & SSvw Nwv n eHf  f % w͋\  ,ep*Eg,el eE  f& w .8,Hb` Hh$OQ7"M e h w E  XA.e -& &+3O& ㈅ e W!·  ?  x N`? l <ߋ*ww W -4     %  L , ^  & &DDeed$  }w  w }w  e0   7 I G j6 872?*7&$eb&(7n a e,ew  2 Vw Nߋ*ww ? `W,͋w4Z U   e<_e,}e"  RHHHHHHHHH  "JeL H f, " W-p~;7 4D)  !', Q$W ',$)  a FF@GE 6Q$E , `6`? W,͋ww> L  $ &77  wzC 7?MON-F-System read failure halt   < . $7 V7  ( " JĔ Ĕ &f&I e`  w8e,͋(W    Ce<%R V `H͋*p5E &e@^w83 D w7 dHD&DD&   &7& p  e  eH w Z T b””#e,e V5 2r2"e6 ͋*W   TT L4Lf 6 && $ &  V%&f& $ & Ĕ!6S͋2 eA ĒB `A `, eA p`7 Z<@&7 L<  ":  U$E$w w N-Z7 Re(F7 7 b7 e:9J&\ %J $ v E@ % ee/ e0w`  A @  -Jan-Feb-Mar-Apr-May-Jun-Jul-Aug-Sep-Oct-Nov-Dec-'( EM( U%| (r w 5(wbB V  e  :<:<.< e>(,e(Ċ͋#! C͋ͥ ͥ,u W- !k$,1!"c  &e  #e"  ͋WE E ͋ ͥ-H ͋DA e B @ @ ց ,e:E: e" Ad  @b <J$H7 : n"Je" zzW2 ? $ &    @eEW=͋P,e( <  \ W,w(vlW ͋ 2, " eE&Ne@@ONU T : b$C;$"A 2 $ 7 .=E@ :@!"W. B` O e>   5 7 EBc  O e @ 7 ,-  & &wZww,E]Yzd m`" Gwd \d4 E*P&  e鈇 ae ,e." n    D e& w W  e e @aew?KMON-F-?KMON-W-Line too longIllegal continuationAmbiguous commandIllegal commandFile not fo%W  }' '* 4 X:#"""" wYundNot enough memorySystem I/O errorNo fileSave file I/O errorIllegal deviceBad fetchIllegal device for command fileIllegal option for programIllegal optionConflicting optionsAmbiguous optionIllegal NO on optionCommand string too complicatedIllegal value on optionError in file specToo many filesCommand file nesting too deepCommand file not at end of lineNo dateIllegal dateIllegal timeNo clockParametersMust 'R BATCH', type '/U'No roomAlready installed/assignedNo handler file on SY:www wF }w  " V" SP   F &m eg zHandler file I/O errorConflicting SYSGEN optionsDevice loaded or not removableAddressLogical name not foundNo roomCommand3" ?  & &+e_,00#`0.z 0 l? ~͋/W,ww  : Q hB[e e eeB    }w  "zL" I" F"  n  %z #0 `,,,#  , e .2  ! 1 1 0? n͋W,w &" e  file I/O errorCommand file not found w*ͥ: V }  S Yw b Xwͥ:  3 -  W B XIOISIE G N w $ wx < 6   'BF` LCSw w n    Hw  en@׭j} aw_  w 3 w u D < 5DQQ QWYC!Pb"M S U# w l O` .e ez}]vUHUHͥ: &H.TECeB w RE SN S D D   DI   B  OA P ͥ: ' ''PPw PYHXZHK@IMZeDPP PJ`@ePPPP5O IT P AL       P  F P Bz2dv@^UA!!@:ER#SY:HELP.TEC#"F@^A#?HELP-F-File not found HELP.TEC #HKEX'YHXZHKGAMZ $ Ow wwwww D  u  18  (/ HL HEHDHCMhP HN w V w   fw   | W  j " " !elC  NwJw . @wN Fw B  u  / '  A DC WO  weh "    t  eZ  : 4ex,͋E EXOww  w wv {  u  h `  GP W DEA`NAL  OGBGI`R T@LMS CmFmO SUVGM ww H0 8﷊w w   u    !SOWW @L GP   HEHD@C A DEA`NOGIGwww ` @ : 3 g *RGWWQYCTNw  w@ u   @KNILm 舕w ե/@ ;ae6  <@ /  ,+wr  evf D!%  R`W!+&&   e f >  & f&SLIN SO W RF4FMADIO LIE ww7 m eB`  DZT͋D ,̕/w B wJ7z7 DI CAL OEXS   CODIR CW  CO  LIz A Def  e_!,ee   e%  Deae8 PAL P W BOLIN DEXMAb"&e2  e%  (Loaded) (Resident) , =   P7 z   <7  www Y u  M EI@R@ Z W S L@ M@B@T@E@U@Y/   W"zW"  B 2e   7 eweP % b w < 8?w "feHB¥[ e ы ^e wRUN %e ee e  e鈁(@      e&c 7 |e&,^% & h  7 z .IF DF $RKSYS .TITLE RKBOOT V03-0'... FOR RT-11 V03 .SBTTL * for RK11/RK05 disk  FURNISHED UNDER A LICENSE FOR USE ONLY ; ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH ; THE INCLUSION OF THE ABOVE * .ENDC .IF DF $RFSYS .TITLE RFBOOT V03-0'... FOR RT-11 V03 .SBTTL * for RF11 disk *  COPYRIGHT NOTICE. THIS SOFTWARE, ; OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE ; AVAILABLE TO ANY OTHE.ENDC .IF DF $DTSYS .TITLE DTBOOT V03-0'... FOR RT-11 V03 .SBTTL * for TC11 DECtape * .ENDC .IF DF $E!wW7 Հ 5 E!z7 7? Q w* HwT0>Z5>  e R PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ; ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE ; SOFTWAV̟Ԋ  ?? UHAw PRE SHALL AT ALL TIMES REMAIN IN DEC. ; ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO ; CHANGE WITHOUT NOTICE AND SHOULD NOttT BE CONSTRUED ; AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. .ENABL LC .NLIST BEX .SBTTL ******************************************** .IIF NDF BF BF=0 .IIF NDF MMG$T, MMG$T=0 .IF NE BF .IF EQ MMG$T MONTYP =^R FB .SBTTL * Foreground/Background Bootstrap * .IFF MONTYP =^R XM .SBTTL * Extended Memory Bootstrap * .ENDC .IFF MONTYP =^R SJ .F6e<&  ( c    e2  ec 4 SBTTL * Single/Job Bootstrap * .ENDC .IF NDF $RFSYS .IF NDF $DTSYS .IF NDF $DPSYS .IF NDF $DSSYS .IF N 1 DISK * .ENDC .IF DF $DYSYS .TITLE DYBOOT V03-0'... FOR RT-11 V03 .SBTTL * FOR RX02 FLOPPY DISK * .ENDC .IF Z .GLOBL LSI11$,$MFPS,$INTEN,GETPSW,PUTPSW .GLOBL KT11$, KW11P$, LKCS$, LKCS, LKVEC, LKPB, LKSTAT .GLOBL TKS, TKB, TPS, TPB, DF $PDSYS .TITLE PDBOOT V03-0'... FOR RT-11 V03 .SBTTL * FOR ROM DEVICE DRIVERS * .ENDC .ENDR .RADIX 8. .SBTTL ***V.TKB, V.TPS .GLOBL $DATE,$TIME,$RMON .GLOBL KMSIZE, KMLEN, KMONIN, KMLOC .GLOBL $RMEND, LOCATE, LOCAT1, USRBUF, LK4DEV .IF ***************************************** .SBTTL SYSGEN OPTIONS AND DEFAULTS .IIF NDF DYT$O, DYT$O=0 .IIF NDF DY$CV2, DY$CV2=NE BF! .GLOBL TTIBUF, TTOBUF .ENDC .GLOBL RELLST, SILNT$ .GLOBL CACHE$, MPTY$, SWREG$, LIGHT$, EIS$, PDP60$, PDP70$270 .IIF NDF DXT$O, DXT$O=0 .IIF NDF DX$CV2, DX$CV2=270 .IIF NDF VT11$, VT11$=0 .IIF NDF VS60$, VS60$=0 .IIF NDF GT40, GT40 .GLOBL VS6$0 .IF NE BF .GLOBL BCNTXT, BKGND1, BKGND2, BKGND3, CNTXT, FUDGE1, FUDGE2 .GLOBL MSGENT, SWIPTR, SWOPTR, TTIUSR, =172000 .IIF NDF KW11$P, KW11$P=0 .IIF NDF MPT$Y, MPT$Y=0 .IIF NDF PWF$L, PWF$L=0 .IIF NDF ERL$G, ERL$G=0 .IIF NDF MTT$Y, MTTOUSR, .$CRTN .GLOBL IMPLOC, RMONPS .IF EQ MMG$T .GLOBL RMONSP .IFF .GLOBL BGFPPT, RMSTAK, BGWPTR, $MPPTR, $GTBYT, $PTBYT,TT$Y=0 .IIF NDF TIME$R, TIME$R=0 .IIF NDF ESC$P, ESC$P=0 .IIF NDF TIM$IT, TIM$IT=0 .IIF NDF STAR$T, STAR$T=0 .IIF NDF PANI$ $PTWRD .GLOBL $RLPTR, TRPLST .ENDC .IFF .GLOBL AVAIL, I.CSW, FPPADD, FPPIGN, MONLOC, TRAPLC, TRAPER .GLOBL PAVAIL, PMONLC,C, PANI$C=0 .IIF NDF CONT$N, CONT$N=0 .IIF NDF SILN$T, SILN$T=0 .IIF NDF MTS$J, MTS$J = 0 .IIF EQ BF!MTS$J, MTT$Y = 0 .IF P$SYSC .GLOBL PQCNT, PI.CSW, P$SWPB .IF EQ MTT$Y .GLOBL PTIBF4, PTTPRE, PTOBF2, PTOBF4, PTIBF6 .ENDC .IF NE PANI$C . NE MTT$Y .IIF NDF MTI$M, MTI$M = 0 .IIF NDF DZ11$N, DZ11$N = 0 .IIF NDF DZ11$L, DZ11$L = 0 .IIF NDF DZ11$M, DZ11$M = 0 .GLOBL PSPTR .ENDC .IF NE ESC$P .GLOBL ESCPTG, ESCPTO, ESCPTI, ESCPTT PESCRT .ENDC .IF NE TIME$R .GLOBL PLKQUE, P$TIMIF NE DZ11$N .IIF NDF DZSP$D, DZSP$D = 2400 .IIF NDF DZLE$N, DZLE$N = 30 .IIF NDF DZST$P, DZST$P = 00 .IIF EQ DZSP$D-1000, D2, PLKQU2 .IF EQ MTT$Y .GLOBL PTBCNT .ENDC .ENDC .ENDC .IF NE BF+TIME$R .GLOBL GTM.HI, GTM.LO .ENDC .IF NE MMG$T$DPSYS .TITLE DPBOOT V03-0'... FOR RT-11 V03 .SBTTL * for RP11/RP02/RPR02/RP03 disks * .ENDC .IF DF $DSSYS .TITLEZST$P = 40 .ENDC .ENDC .IIF NDF HSR$B, HSR$B = 0 .SBTTL MACROS, GLOBALS .MCALL ..V2.. ..V2.. .MCALL .EXIT, .LOOKUP, .PRI DSBOOT V03-0'... FOR RT-11 V03 .SBTTL * for RJS03/04 disks * .ENDC .IF DF $DXSYS .TITLE DXBOOT V03-0'NT, .SAVES, .READW .MCALL .CLOSE, .SETTOP .ENABL GBL .MACRO .ASTX EMT ^O356 .ENDM .GLOBL $DVREC, $ENTRY, $INPTR, $KMLOC, ... FOR RT-11 V03 .SBTTL * for RX11/RX01 Floppy disk * .ENDC .IF DF $DMSYS .TITLE DMBOOT V03-0'... FOR RT-11 $MONBL, $PNAME, $SLOT .GLOBL $SWPBL, $USRLC, $FKPTR, SYSOP$, $STAT .GLOBL BSTRNG, CORPTR, DKASSG, HWFPU$, HWDSP$, KMLOC .GLOBV03 .SBTTL * for RK06/07 disk * .ENDC .IF DF $DLSYS .TITLE DLBOOT V03-0'... FOR RT-11 V03 .SBTTL * FOR RL0L KMON, KMONSZ, CLOCK$, MAPOFF, QCOMP, CLK50$ .GLOBL SWAPSZ, SYINDO, SYNCH, SYASSG, SYDVSZ .GLOBL SYSLOW, USRLOC, USRSZ, $SYHS $> & ^CMTT$Y .GLOBL SCLNK2 .ENDC .IF NE ERL$G .GLOBL $ELPTR, $ERLOG .IF NE MPT$Y .GLOBL PARTBL .ENDC .ENDC PERM = 2000  BTUNIT: .WORD 0 MOV #TRWAIT,@#20 JMP BOOT .DSABL LSB .ENDC .IIF NDF $DXSYS, .LIST .IIF NDF $PDSYS, .NLIST .IF DF $PD ENDBLK = 4000 PARMS = 40 JSW = 44 USERTOP = 50 SYSPTR = 54 SR = 177570 PS = 177776 PR0 = 0 PR4 = 200 PR7 = 340 CONFIGSYS . = 34 BOOT1: MOV R0,BTUNIT JMP BOOT . = 224 BTUNIT: .WORD 0 .ENDC .IIF NDF $PDSYS, .LIST .MACRO SYSDEV NAME,VEC = 300 CONFG2 = 370 SYUNIT = 274 STATWD = 366 IFEKO$ = 2000 IFCTNU = 20 V.TR4 = 4 V.TR10 = 10 V.BPT = 14 V.IOT = 20 TOR .GLOBL NAME'INT SYNAME = 0 .IRPC X, SYNAME = *50 .ENDR .IF B VECTOR SYBITO = 0 SYBITS = 0 .IFV.PWFL = 24 V.EMT = 30 V.TRAP = 34 V.FPU = 244 .IF NE MMG$T KISAR0 = 172340 KISAR6 = 172354 KISDR0 = 172300 UISAR0 = 177F SYVEC = VECTOR . = SYVEC .WORD NAME'INT,340 SYBITO = VECTOR / 20 SYBITS = ^B11000000 .REPT / 4 SYBITS = 640 UISDR0 = 177600 SR0 = 177572 PMODE = 30000 CMODE = 140000 LOWCOR = 1600 .ENDC .SBTTL ASECT .ASECT . = 0 240 SYBITS / 4 .ENDR .ENDC . = 522 .ENDM SYSDEV UPDATE = 0 . = 4740 BSTRNG:: .ASCII <15><12>"RT-11" .RADIX 10. .IRP ...,<\BR BOOT1 .IF NDF $DXSYS & $PDSYS . = 40 BOOT1: JMP BOOT .ENDC .IIF NDF $DXSYS, .NLIST .IF DF $DXSYS CSGO= 1 CSEBUF= 2UPDATE> .IF DF SYSG$N .IF NE BF .IF EQ MMG$T .ASCIZ "FB (S)V03B-0'...'C" .IFF .ASCIZ "XM (S)V03B-0'...'E" .ENDC .IFF  CSRD= 6 CSUNIT= 20 CSDONE= 40 CSTR= 200 CSERR= 100000 .IIF NDF DX$CSR, DX$CSR == 177170 . = 14 .WORD READS .WO .ASCIZ "SJ (S)V03B-0'...'C" .ENDC .IFF .IF NE BF .IF EQ MMG$T .ASCIZ "FB V03B-0'..." .IFF .ASCIZ "XM V03B-0'..."RD 340 .WORD WAIT .WORD 340 . = 34 BOOT1: MOVB UNITRD(R0),RDCMD;SET READ FUNCTION FOR CORRECT UNIT RETRY: MOV @PC,SP M .ENDC .IFF .ASCIZ "SJ V03B-0'..." .ENDC .ENDC .ENDR .RADIX 8. .EVEN .SBTTL START UP COMMAND FILE SPECIFICATION .OV #200,R2 CLR R0 BR 2$ . = 70 2$: MOV SP,R1 INC R0 BR 3$ . = 104 3$: MOV @PC,R3 BPT BR BOOT2 UNITRD: .BYTE C = 500 .WORD BOOTIN . = 510 .WORD 10 .IF EQ BF .ASCIZ /@STARTS/ .IFF .IF EQ MMG$T .ASCIZ /@STARTF/ .IFF .ASCIZ /@SGO+CSRD .BYTE CSGO+CSRD+CSUNIT;READ FROM UNIT 1 . = 120 READS: MOV #DX$CSR,R4 MOV R4,R5 MOV (PC)+,(R5)+ RDCMD: .WORD STARTX/ .ENDC .ENDC .IIF NDF $DYSYS, .NLIST .IF DF $DYSYS .SBTTL BOOTSTRAP I/O DRIVER - RX02 .IIF EQ DYT$O, .NLIST .MA0 IOT MOV R3,@R5 IOT MOV R0,@R5 IOT MOV #CSGO+CSEBUF,@R4;LOAD EMPTY BUFFER FUNCTION INTO RXCS BROFFS = READF-. RDXCRO MULTDEV NAME,VECTOR SYVEC2 = VECTOR .=VECTOR .WORD NAME'INT,340 .= 522 BITO.2 = VECTOR/20 BITS.2 = ^B11000000 : IOT TSTB @R4 BPL RTIRET MOVB @R5,(R2)+ DEC R1 BGT RDX CLR R2 BR RDX WAIT: TST @R4 BEQ WAIT BMI RETRY RTIRE.REPT /4 BITS.2 = BITS.2/4 .ENDR .ENDM MULTDEV .IIF NE DYT$O, MULTDEV DY,DY$CV2 .IIF EQ DYT$O, .LIST .IIF  .GLOBL $XMSIZ,V.MMU,$SYSCH .ENDC .IF NE MPT$Y .GLOBL V.MPTY .ENDC .IF NE TIM$IT .GLOBL $TIMIT .ENDC .IF NE <12>\?BOOT-F-I/O error\<15><12><12> .EVEN .=N..XT .ENDC .IIF NDF $DYSYS, .LIST .IIF NDF $DR5,R4 CLRB R5 MOV R5,(R3)+ BIC #177740,R4 MOV R4,(R3) TST -(R3) .ENDC .IF DF $RKSYS .SBTTL BOOTSTRAP I/O DRIVER - RSSYS, .NLIST .IF DF $DSSYS .SBTTL BOOTSTRAP I/O DRIVER - RS11 .IIF NDF DS$CSR, DS$CSR == 172040 .IIF NDF DS$VEC, DS$VEC == 2K05 .IIF NDF RK$CSR, RK$CSR == 177400 .IIF NDF RK$VEC, RK$VEC == 220 SYSDEV RK,RK$VEC RKDA = RK$CSR+12 READ: MOV #14,R3 NDF DY$CSR, DY$CSR == 177164 .IIF NDF DY$VEC, DY$VEC == 264 SYSDEV DY,DY$VEC CSGO = 1 CSEBUF = 2 CSRD = 6 CSUNIT = 20 CS04 SYSDEV DS,DS$VEC RSCS2 = DS$CSR+10 READ: MOV R0,R4 MOV #RSCS2,R5 MOV (R5),-(SP) MOV #40,@R5 BIT #2,16(R5) BNE 1DONE = 40 CSTR = 200 CSDN = 400 CSERR = 100000 DNERR = 20 DBDN = 40 .=120 UNTRED: .WORD CSGO+CSRD+CSDN .WORD CSGO+CSRD+$ ASL R4 1$: ASL R4 BIC #^C7,(SP) MOV (SP)+,(R5) MOV R4,-(R5) MOV R2,-(R5) MOV R1,-(R5) NEG @R5 MOV #71,-(R5) CSDN+CSUNIT .ENABL LSB READ: MOV BTUNIT,R3 ASL R3 MOV UNTRED(R3),REDCMD BR LSN NXT..=. .=400 LSN: ASL R0 1$: MOV #DY2$: BIT #100200,@R5 BEQ 2$ BMI BIOERR RTS PC .ENDC .IIF NDF $DSSYS, .LIST .IIF NDF $DPSYS, .NLIST .IF DF $DPSYS .SBT$CSR,R5 MOV (PC)+,(R5)+ REDCMD: .WORD 0 MOV R0,-(SP) MOV R0,R3 MOV R0,R4 CLR R0 BR 3$ 2$: SUB #23.,R3 3$: INC R0 TL BOOTSTRAP I/O DRIVER - RP11 .IIF NDF DP$CSR, DP$CSR == 176710 .IIF NDF DP$VEC, DP$VEC == 254 SYSDEV DP,DP$VEC RPCS= DP$C SUB #26.,R4 BPL 2$ CMP #-14.,R4 ROL R3 BR CONRD ..NXT=. .=522 CONRD: 4$: SUB #26.,R3 BPL 4$ ADD #27.,R3 MOV SR+4 RPDA= DP$CSR+14 CS.GO= 000001 CS.RD= 000004 CS.DRV= 003400 DS.ATT= 000377 READ: MOV R0,R3 JSR R2,DIV .WORD 10. #DY$CSR,R4 JSR PC,WAIT MOV R3,@R5 JSR PC,WAIT MOV R0,@R5 5$: BIT #CSDONE,@R4 BEQ 5$ TST @R4 BPL 14$ JMP RETRY MOV R4,-(SP) MOV R5,R3 JSR R2,DIV .WORD 20. SWAB R4 BIS (SP)+,R4 MOV #RPDA,R3 MOV R4,@R3 MOV R5,-(R3) MOV R2,-14$: MOV (PC)+,(R4) EMTCMD: .WORD CSEBUF+CSGO+CSDN;STORE EMTY BUFFER COMMAND HERE MOV #64.,R3 BIT #CSDN,EMTCMD BEQ 6$ A(R3) MOV R1,-(R3) NEG @R3 BIC #^C,-(R3) BIS #CS.RD+CS.GO,@R3 1$: TSTB @R3 BPL 1$ TST @R3 BMI BIOERR MOVSL R3 6$: CMP R1,R3 BHIS 7$ MOV R1,R3 7$: JSR PC,WAIT MOV R3,@R5 JSR PC,WAIT MOV R2,@R5 10$: BIT #CSDONE,@R4 BEQ B #DS.ATT,@#DP$CSR CLRB @#DP$CSR RTS PC DIV: CLR R5 CLR R4 TST R3 BEQ 4$ COM R5 1$: ROL R3 BCC 1$ 2$: ROL R4 10$ TST @R4 BPL 15$ JMP RETRY 15$: MOV (SP)+,R0 SUB R3,R1 BGT 11$ RTS PC 11$: ADD R3,R2 ADD R3,R2 INC R0 JMPCMP R4,@R2 BLO 3$ SUB @R2,R4 3$: ROL R5 ASL R3 BNE 2$ COM R5 4$: TST (R2)+ RTS R2 .ENDC .IIF NDF $DPSYS, .LIST  1$ N..XT=. .=..NXT WAIT: BITB #CSTR!CSDONE,@R4;TRANSFER OR DONE? BMI RTNINT BEQ WAIT BR RETRY RTNINT: RTS PC .=NXT.. .IIF NDF $RKSYS&$RFSYS, .NLIST .IF DF $RKSYS!$RFSYS .IF DF $RFSYS .SBTTL BOOTSTRAP I/O DRIVER - RF11 .IIF NDF RF$CSR, RF$CS RETRY: MOV (SP)+,R0 BITB #DNERR,@R5 BNE 16$ JMP BIOERR 16$: BIC #CSDN,REDCMD BIC #CSDN,EMTCMD ASL R0 BR 1$ BIOERR == 177460 .IIF NDF RF$VEC, RF$VEC == 204 SYSDEV RF,RF$VEC RFDA = RF$CSR+6 READ: MOV #RFDA,R3 MOV R0,R5 SWAB R5 MOV  DM$VEC, DM$VEC == 210 SYSDEV DM,DM$VEC RKCS2= DM$CSR+10 RKDS= DM$CSR+12 RKDC= DM$CSR+20 READ: MOV #<3.*22.>,R3 MOV #-VUNT+2 DEVR50 = DEVASC+2 DEVIMSZ = DEVR50+2 DEVDST = DEVIMSZ+2 DEVLOSZ = DEVDST+2 DEVHISZ = DEVLOSZ+2 DEVPAG = DEVHISZ+2 1,R4 MOV R4,R5 1$: INC R4 SUB R3,R0 BCC 1$ ADD R3,R0 MOV #22.,R3 2$: INC R5 SUB R3,R0 BCC 2$ ADD R3,R0 SWAB DEVVEC = DEVPAG+2 DEVISR = DEVVEC+2 DEVPS = DEVISR+2 DEVPRI = DEVPS+2 .IIF NDF ROMS$T, ROMS$T = 173000 ROMID = ROMS$T+6 ROR5 BIS R5,R0 MOV #RKCS2,R5 BIT #400,RKDS-RKCS2(R5) BEQ 3$ BIS #2000,RDFCN 3$: MOV R4,RKDC-RKCS2(R5) MOV R0,-(R5) MTP = ROMID+2 ROMDT = ROMTP+2 ROMNDP = 0 ROMNT = ROMNDP+2 ROMASC = ROMNT+2 ROMIMP = ROMASC+2 ROMBST = ROMIMP+2 ROMBSR = RMOV R2,-(R5) MOV R1,-(R5) NEG @R5 MOV (PC)+,-(R5) RDFCN: .WORD 21 1$: BIT #100200,@R5 BEQ 1$ BMI BIOERR RTS PC .EOMBST+2 ROMDID = ROMBSR+2 ROMSIO = ROMDID+2 ROMABT = ROMSIO+2 ROMPUP = ROMABT+2 ROMISR = ROMPUP+2 BIMPUR = 10000 SYSDEV NDC .IIF NDF $DMSYS, .LIST .IIF NDF $DLSYS, .NLIST .IF DF $DLSYS .SBTTL BOOTSTRAP I/O DRIVER - RL01 .IIF NDF DL$CSR, DL$PD READ: MOV ROMDT,R5 MOV ROMBSR(R5),BSTPRD MOV #BIMPUR+2,R5 MOV BTUNIT,R3 JSR PC,@(PC)+ BSTPRD: .WORD 0 BCS BIOERR BR 2$ 1$: ADD #20,R3 2$: SUB #14,R0 BPL 1$ ADD R3,R0 5$: MOV #RKDA,R3 BIC #17777,@R3 BIS R0,(R3) .ENDC MOV R2,-(R3CSR == 174400 .IIF NDF DL$VEC, DL$VEC == 160 SYSDEV DL,DL$VEC RLCS= DL$CSR RLBA= 2 RLDA= 4 RLMP= 6 READ: CLR R4 MOV ) MOV R1,-(R3) NEG (R3) MOV #5,-(R3) 3$: TSTB (R3) BPL 3$ TST (R3) BMI BIOERR RTS PC .ENDC .IIF NDF $RKSYS&$RFS#20.,R3 2$: CMP R0,R3 BLT 3$ ADD #100,R4 SUB R3,R0 BGT 2$ 3$: ASL R0 BIS R4,R0 MOV #RLCS,R5 MOV (R5),DLCS BIC YS, .LIST .IIF NDF $DTSYS, .NLIST .IF DF $DTSYS .SBTTL BOOTSTRAP I/O DRIVER - DECTAPE .IIF NDF DT$CSR, DT$CSR == 177340 .I#^C<1400>,DLCS CMP #4,R0 BEQ 10$ JSR PC,DLSEEK 10$: NEG R1 MOV R2,RLBA(R5) DLREAD: MOV R1,RLMP(R5) MOV R0,RLDA(R5) IF NDF DT$VEC, DT$VEC == 214 SYSDEV DT,DT$VEC TCCM = DT$CSR+2 TCDT = DT$CSR+10 READ: MOV #TCCM,R4 MOV #TCDT,R3 1$: MOV R MOV #14,R3 JSR PC,DLXCT BMI DLERR RTS PC DLERR: MOV RLDA(R5),R3 BIC #177700,R3 CMP #50,R3 BNE BIOERR JSR PC,DLNE0,R5 SUB #2,R5 MOV #4003,@R4 2$: BIT #100200,@R4 BEQ 2$ BMI 6$ CMP R5,@R3 BLT 1$ 3$: MOV #3,@R4 4$: BIT #100200,@XT BR DLREAD DLXCT: BIS (PC)+,R3 DLCS: .WORD 0 MOV R3,(R5) 100$: TSTB (R5) BPL 100$ TST (R5) RTS PC .ENDC .IIF NDR4 BEQ 4$ BMI 6$ CMP R0,@R3 BGT 3$ BLT 1$ MOV R2,-(R3) NEG R1 MOV R1,-(R3) MOV #5,@R4 5$: BIT #100200,@R4 BF $DLSYS, .LIST .IIF NDF $PDSYS, .NLIST .IF DF $PDSYS .SBTTL BOOTSTRAP I/O DRIVER - ROM DRIVERS .IIF NDF PD$CSR, PD$CSR==0EQ 5$ BMI BIOERR CLR @R4 RTS PC 6$: TST @#DT$CSR BPL BIOERR BIT #4000,@R4 BNE 3$ BR 1$ .ENDC .IIF NDF $DTSYS, . .IIF NDF PD$VEC, PC$VEC==0 .GLOBL PDSTRT, PDINT, .STARIO, .INTRPT, .ABORT .GLOBL .DDL, .DDLCPL, .DDLFRK, .DDLSYN, .DDLELG,LIST .IIF NDF $DMSYS, .NLIST .IF DF $DMSYS .SBTTL BOOTSTRAP I/O DRIVER - RK06 .IIF NDF DM$CSR, DM$CSR == 177440 .IIF NDF  .DDLTMO .GLOBL .DDLXPL, .DDLERP, .DDLOPL .IF NE ERL$G .GLOBL .SKIDS .ENDC DEVIDT = 12000 DEVUNT = DEVIDT+2 DEVASC = DE $VEC, DX$VEC == 264 SYSDEV DX,DX$VEC READ: ASL R0 ASL R0 ASL R1 1$: MOV R0,-(SP) MOV R0,R3 MOV R0,R4 CLR R0 BR 3VT11$!VS60$ TST @#GT40 BIS (R1)+,@R0 .ENDC .IF NDF $PDSYS .IF EQ KW11$P TST @#172540 BIS (R1)+,@R0 .ENDC .ENDC .IF$ 2$: SUB #23.,R3 3$: INC R0 SUB #26.,R4 BPL 2$ CMP #-14.,R4 ROL R3 4$: SUB #26.,R3 BPL 4$ ADD #27.,R3 BPT MO NE MMG$T TST @#SR0 BIS (R1)+,@R0 BIT #KT11$,@R0 BNE 7$ JSR R0,REPORT .ASCIZ <15><12>\?BOOT-F-No memory management hV (SP)+,R0 INC R0 TST R1 BGT 1$ RTS PC READF: TST @R4 BEQ READF BMI BIOERR TSTB @R4 BPL READFX MOVB @R5,(R2)+ardware\<15><12><12> .EVEN 7$: .ENDC CFCC BIS (R1)+,@R0 TST -(R0) .IF NE VT11$!VS60$ CLR @#172032 BIS (R1)+,@R0  DEC R1 BGT READF MOV #1,R2 BR READF READFX: RTI TRWAIT: TST @R4 BEQ TRWAIT BPL READFX .ENDC .IIF NDF $DXSYS, .L.ENDC CLR @#177746 BIS (R1)+,@R0 TST @#177760 BIS (R1)+,@R0 MOV #3,R3 MUL R3,R3 BIS (R1)+,@R0 CMP #9.,R3 BEQ 2IST .IF NDF $DYSYS BIOERR: JSR R0,REPORT .ASCIZ <15><12>\?BOOT-F-I/O error\<15><12><12> .EVEN .ENDC .SBTTL BOOTSTRAP CO0$ BIC -2(R1),@R0 20$: TST @#177570 BIS (R1)+,@R0 CLR @#177570 BIS (R1)+,@R0 BIT #LSI11$,BCNFG BEQ 25$ TST (R1)+ RE DETERMINATION REPOR1: MOVB (R0)+,@#TPB REPORT: TSTB @#TPS BPL REPORT TSTB @R0 BNE REPOR1 RESET HALT BR .-2 BOO BR 30$ 25$: MOV R0,-(SP) .WORD 76600,100 MOV (SP)+,R0 BIS (R1)+,@R0 30$: .IF NE MPT$Y MOV #BSEC,@#V.TR4 .IF NE ERT: .IF DF $DXSYS MOV (PC)+,@(PC)+ .WORD 167 .WORD RDX MOV (PC)+,@(PC)+ .WORD READF-RDX-4 .WORD RDX+2 .ENDC .IF DFL$G MOV #PARTB,R2 .IFTF MOV #172076,R3 35$: ADD #2,R3 MOV #1,@R3 BCS 40$ .IFT MOV R3,(R2)+ .IFTF BIS @R1,@R0 40 $DYSYS MOV R0,(PC)+ BTUNIT: .WORD 0 101$: BIT #CSDONE,@#DY$CSR BEQ 101$ .ENDC MOV #10000,SP MOV #2,R0 MOV #*400,R1 MOV #1000,R2 JSR PC,READ .IIF GT .-1000, .ERROR BOOTIN: .IF DF $PDSYS JSR PC,DUPNTRY .ENDC MOV #V.TR4,R3 DEVPRI+2-DEVIDT>/2,(R4) JSR PC,@(PC)+ DEVID: .WORD 0 BCS NOROOM RDRTS: RTS PC NOROOM: JMP TSMSG .ENDC .IIF NDF $PDSYS,  MOV @R3,R5 .ENABL LSB .IF EQ MMG$T MOV #NXM,@R3 BHALT:: BR 1$ MOV @#SR,R2 BIC #3777,R2 CMP R2,#160000 BLO NXM 1$.LIST .IIF NDF $DXSYS, .NLIST .IF DF $DXSYS .IIF EQ DXT$O, .NLIST .MACRO MULTDEV NAME,VECTOR SYVEC2 = VECTOR . = VECTOR: CLR R2 2$: ADD #4000,R2 CMP R2,#170000 BEQ NXM TST @R2 BR 2$ NXM: MOV R2,-(SP) .IF NE BF CMP R2,#160000 BLOS 3$ .WORD NAME'INT,340 . = 522 BITO.2 = VECTOR / 20 BITS.2 = ^B11000000 .REPT / 4 BITS.2 = BITS.2 / 4 . MOV R2,MSV11 .ENDC .ENDC 3$: MOV #BCLR,@R3 MOV @R3,@#V.TR10 .SBTTL SET BITS IN CONFIG AND CONFIG2 MOV #TSLIST,R1 MENDR .ENDM MULTDEV .IIF NE DXT$O, MULTDEV DX,DX$CV2 .IIF EQ DXT$O, .LIST .SBTTL BOOTSTRAP I/O DRIVER - FLOPPY .IIF NDF DXOV R1,R0 TST @#PS BIC (R1)+,-(R0) BNE 5$ TST @#LKCS 5$: BIS (R1)+,@R0 TST @#LKCS BIS (R1)+,@R0 .DSABL LSB .IF NE  00,-(R0) MOV @R0,-(R2) INC SR0 MOV @#V.TR4,R5 MOV #BSEC,@#V.TR4 MOV #400,@#KISAR6 MOV #400,R2 20$: MOV #140000,R0 E MONFND BR 1$ 3$: CMP #^RSWA,(R1)+ BNE 1$ CMP #^RP ,(R1)+ BNE 1$ CMP #SWAPSZ,2(R1) BHI NOSWAP MOV R0,SWPBLK T CLC MOV #0,776(R0) BCS 30$ 25$: MOV #0,(R0)+ CMP #144000,R0 BHI 25$ ADD #40,R2 ADD #40,@#KISAR6 .IF DF MEX$T CMST MONBLK BNE MONFND 1$: BIT #ENDBLK,(R2) BNE 2$ ADD 10(R2),R0 ADD #16,R2 ADD BUFFB+6,R2 MOV R2,R1 BR MONF 2$: MP @#KISAR6,#170000 .IFF CMP @#KISAR6,#7600 .ENDC BLO 20$ 30$: MOV #1400,@#KISAR6 MOV R2,R0 SUB #1600,R0 BGE 35$ COV BUFFB+2,R0 BNE DFND TST MONBLK BEQ 4$ JSR R0,REPORT .ASCIZ <15><12>/?BOOT-F-No swap file on volume/<15><12><12> .LR R0 35$: MOV R0,(PC)+ MEMSIZ: .WORD 0 MOV R5,@#V.TR4 CMP R2,#LOWCOR BLO 4$ MOV #LOWCOR,R2 4$: ASL R2 ASL R2 ASLEVEN 4$: JSR R0,REPORT .ASCIZ <15><12>\?BOOT-F-No monitor file on volume\<15><12><12> .EVEN TOOSML: .IF EQ BF TST (PC)+ R2 ASL R2 ASL R2 ASL R2 .IFF MOV (SP)+,R2 .IF DF,$PDSYS MOV DEVIMSZ,-(SP) ASL (SP) SUB (SP)+,R2 CLR @R2 .END TSMLF: 0 BNE TSMSG INC TSMLF MOV #1000,BSZCK BR RTRY .ENDC TSMSG: JSR R0,REPORT .ASCIZ <15><12>\?BOOT-F-InsufficieC .ENDC .DSABL LSB .IIF NDF $DLSYS, .NLIST .IF DF $DLSYS BR AROUND .SBTTL SEEK ROUTINE FOR RL01 DLSEEK: MOV #10,R3 nt memory\<15><12><12> .EVEN NOSWAP: JSR R0,REPORT .ASCIZ <15><12>/?BOOT-F-Swap file is too small/<15><12><12> .even BSZ JSR PC,DLXCT MOV RLMP(R5),R3 MOV R0,R4 BIC #77,R4 BIC #177,R3 MOV R4,-(SP) BIC #^C<100>,(SP) ASR (SP) ASR (SP) CK: 10000 LDLOC: 0 .SBTTL READ MONITOR MONFND: MOV @SP,R2 MOV R2,LDLOC MOV MONBLK,R0 .IF EQ BF TST TSMLF BEQ 5$ A BIC #100,R4 SUB R4,R3 BCC 200$ NEG R3 BIS #4,R3 200$: INC R3 BIS (SP)+,R3 MOV R3,RLDA(R5) MOV #6,R3 JSR PC,DLDD #KMSIZE,R2 .ENDC 5$: ADD #BOOTSZ,R0 MOV $RMSIZ,R1 ASR R1 .IF EQ BF TST TSMLF BEQ 6$ SUB #KMLEN,R1 ADD #KMONSZ,XCT BPL 300$ JMP BIOERR 300$: MOV R0,RLDA(R5) RTS PC DLNEXT: MOV RLDA(R5),R3 SUB R0,R3 SWAB R3 ASR R3 ADD R3,R1 R0 .ENDC 6$: JSR PC,READ MOV #RELLST,R0 MOV (SP)+,R4 SUB #KMON,R4 MOV SWPBLK,$SWPBL(R4);R4 = BIAS. SET UP SWAP BLOCK # MOV RLDA(R5),R0 ADD #30,R0 JSR PC,DLSEEK RTS PC AROUND: .ENDC .IIF NDF $DLSYS, .LIST .SBTTL LOOKUP MONITOR FILE AN;SL18 ADD #,MONBLK MOV MONBLK,$MONBL(R4);SET USR BLOCK # .IF EQ BF TST TSMLF BEQ 1$ CLR KMLOC(R4) CLD SWAP FILE SUB $RMSIZ,R2 BLO TSMSG RTRY: CMP R2,BSZCK BLO TOOSML MOV R2,-(SP) MOV #1,R0 DFND: ASL R0 ADD #4,R0 R KMONIN(R4) .ENDC 1$: ADD R4,@(R0)+ CMP R0,#RELST2 BLO 1$ MOV (R0)+,R5 2$: ADD R4,R5 ADD R4,@R5 MOV (R0)+,R5 BNETERS AND ENABLE MEMORY MAPPING MOV #PMODE+PR7,@#PS MOV #KISAR0,R0 MOV #KISDR0,R1 MOV #UISAR0,R2 MOV #UISDR0,R3 MOV #MOV #1000,R1 MOV #BUFFB,R2 JSR PC,READ MOV #BUFFB+10,R1 MOV (R1)+,R0 MONF: MOV R1,R2 BIT #PERM,(R1)+ BEQ 1$ CMP #8.,R4 CLR R5 10$: MOV R5,(R0)+ MOV R5,(R2)+ MOV #77406,@R1 MOV (R1)+,(R3)+ ADD #200,R5 DEC R4 BNE 10$ MOV #1776^RSYS,4(R1) BNE 1$ CMP #,(R1) BNE 3$ CMP #,2(R1) BNE 3$ MOV R0,MONBLK TST SWPBLK BN SE$+DZRCV$+DZTIE$,(R3) 55$: MOV (R0),R1 BIC #^C,R1 CMP R1,#1000 BNE 57$ BIS #40,R1 57$: BISB T.PUN(R0),R1 BI165400,@(PC)+ PG.LO: GTM.LO .ENDC 2$: TST @#0 BNE 21$ MOV #BTIME,R3 MOV (R3)+,$TIME-$RMON(R0) MOV (R3)+,$TIME+2-$RMON 2$ MOV (PC)+,-(SP) PLOCAT: LOCATE .IF EQ BF TST TSMLF BEQ 82$ ADD #LOCAT1-LOCATE,(SP) .ENDC 82$: JSR PC,@(SP)+ .IFS #DZRCO$+DZLE$N,R1 MOV T.CSR(R0),R3 MOV R1,DZ.LPR(R3) BR 70$ .ENDC 60$: MOV @#V.TKB,(R1)+ MOV T.PRI(R0),(R1)+ MOV @ NE MMG$T MOV #V.BPT,R3 MOV -4(R0),R5 ADD R4,R5 MOV (R5)+,(R3)+ MOV (R5)+,(R3)+ MOV (R5)+,(R3)+ MOV (R5)+,(R3)+ #V.TPS,(R1)+ MOV T.PRI(R0),(R1)+ MOV #IENABL,@T.CSR(R0) .IF NE DL11$M BIT #REMOT$,(R0) BEQ 61$ BIS #DL.DIE,@T.CSR(R0)MOV (R5)+,10(R3) MOV (R5)+,12(R3) .ENDC .IF NE MTT$Y .ENABL LSB MOV R0,-(SP) .SBTTL RELOCATE TABLE OF POINTERS TO TCBs 61$: .ENDC 70$: ADD #TCBSZ,R0 BR 30$ 80$: MOV (SP)+,@#V.TR4 MOV (SP)+,R0 .DSABL LSB .ENDC .IF NE MMG$T MOV MEMSI MOV @#V.TR4,-(SP) MOV #BSEC,@#V.TR4 MOV (PC)+,R0 PTCBLST:.WORD TCBLST 10$: CMP R0,(PC)+ PTCBEND:.WORD TCBPEND BHIS 2Z,@(PC)+ XMPTR: .WORD $XMSIZ MOV #RMSTAK,R5 ADD R4,R5 MOV R5,SP MOV #10000,-(SP) MTPI SP .ENDC BIT #LSI11$,BCNFG 0$ TST (R0)+ BEQ 10$ ADD R4,-2(R0) BR 10$ 20$: MOV (PC)+,R0 PTCBBLK:.WORD DLTCB CLR R5 30$: INC R5 CMP R5,#TCBMAX BEQ 4$ MOV (R0)+,R5 3$: ADD R4,R5 MOV (R0)+,@R5 MOV (R0)+,R5 BNE 3$ 4$: MOV @#SYSPTR,R0 .IF DF $RKSYS!$DXSYS!$DPSYS BHI 80$ MOV R0,R3 TST T.CSR(R3) BEQ 70$ TST @T.CSR(R3) BCC 35$ CLR T.CSR(R3) .IF NE DZ11$N BIT #DZ11$,T.STAT(R!$DSSYS!$DMSYS!$DLSYS!$DYSYS!$PDSYS .IF DF $RKSYS MOV @#RKDA,R1 ROL R1 ROL R1 ROL R1 ROL R1 BIC #^C7,R1 .ENDC .IF0) BEQ 70$ MOV T.VEC(R0),R3 BIC #^C3,R3 ASL R3 ADD (PC)+,R3 PDZCS3: .WORD DZCSR CLR (R3) .ENDC BR 70$ 35$: ADD DF $DSSYS MOV @#RSCS2,R1 BIC #^C7,R1 .ENDC .IF DF $DMSYS MOV @#RKCS2,R1 BIC #^C7,R1 .ENDC .IF DF $DLSYS MOV @#RLC #T.IRNG,R3 ADD R4,(R3)+ ADD R4,(R3)+ TST (R3)+ ADD R4,(R3)+ ADD R4,(R3)+ ADD #TTYIN,R3 ADD R4,(R3)+ TST (R3)+ S,R1 BIC #^C1400,R1 SWAB R1 .ENDC .IF DF $DPSYS MOV @#RPCS,R1 BIC #^C,R1 SWAB R1 .ENDC .IF DF $DXSYS!$DYSY ADD R4,(R3)+ ADD R4,(R3)+ .SBTTL PROTECT AND INITIALIZE INTERRUPT VECTORS .IF NE DZ11$N TSTB T.PUN(R0) BNE 55$ .ENDC S!$PDSYS MOV BTUNIT,R1 .ENDC ADD R1,DKASSG-$RMON(R0) ADD R1,SYASSG-$RMON(R0) MOVB R1,SYUNIT+1(R0) .IF NE MMG$T MOVB  MOV T.VEC(R0),R1 MOV R1,R3 ASR R3 ASR R3 ASR R3 MOV R3,R2 ASR R3 MOV #^B11110000,-(SP) ROR R2 BCC 40$ COMBR1,$SYSCH+11-$RMON(R0) .ENDC .ENDC .ENABL LSB BIS BCNFG,CONFIG(R0) BIS BCNFG2,CONFG2(R0) .IF NE MPT$Y&ERL$G MOV R0,R3  (SP) 40$: ADD @#SYSPTR,R3 BISB (SP)+,MAPOFF(R3) .IF NE DZ11$N BIT #DZ11$,T.STAT(R0) BEQ 60$ MOV (PC)+,(R1)+ PDZIINT: ADD #PARTBL-$RMON,R3 MOV #PARTB,R1 MOV #16.,-(SP) 20$: MOV (R1)+,(R3)+ DEC (SP) BNE 20$ TST (SP)+ .ENDC .IF NE KW .WORD DZIINT MOV T.PRI(R0),(R1)+ MOV (PC)+,(R1)+ PDZOINT: .WORD DZOINT MOV T.PRI(R0),(R1)+ MOV T.CSR(R0),R3 MOV #DZM11$P BISB #60,MAPOFF+4(R0) .ENDC .IF NE BF+TIME$R BIT #CLK50$,CONFIG(R0) BEQ 2$ MOV #101,@(PC)+ PG.HI: GTM.HI MOV #  7$ 65$: TST $ENTRY-$DVREC(R4) BNE 70$ CMP #^RBA,-2(R1) BEQ 70$ .IF EQ BF CMP #^RTT,-2(R1) BNE 67$ .PRINT #TTMSG + PDSUB1: MOV @#SYSPTR,R0 JSR R0,1$ .RAD50 /SY / 1$: MOV (PC)+,-(SP) PLK4DV: LK4DEV JSR R4,@(SP)+ BR RERROR MOV #$ BR 70$ .ENDC 67$: CLR -2(R1) 70$: CLR (R4)+ .CLOSE #0 BR 8$ 7$: .READW #LKAREA,#0,#BUFFB,#256.,#0 BCS 65$ CMPB BUFFPNAME,R0 ADD R3,R0 ADD R3,R0 PD$NAM:: BR 2$ MOV DEVR50,-(R0) 2$: MOV (SP)+,R0 MOV DEVDST,(R2) .IF NE ERL$G MOVB (R2B+60,#SYSOP$ BNE 65$ MOV BUFFB+56,$STAT-$DVREC(R4) .SAVEST #LKAREA,#0,#CBLOK MOV CBLOK+2,@R4 INC (R4)+ 8$: DEC R3 B),.SKIDS+1-$RMON(R0) .ENDC RTS PC RERROR: JSR R0,REPORT .ASCIZ <15><12>\?BOOT-F-Memory error\ .EVEN .ENDC .IIF NDF $PDNE 6$ .IF DF $PDSYS JSR PC,PDSUB1 .ENDC .IF NE STAR$T MOV #104000,@#JSW .IFF MOV #100000,@#JSW .ENDC MOV @#SYSPTR,RSYS, .LIST .SBTTL RELOCATION LIST RELLST: V.TR4 V.TR10 .IF NE PWF$L V.PWFL .ENDC V.EMT SYSPTR V.TKB V.TPS LKV(R0) MOV @R3,$DATE-$RMON(R0) 21$: CLR R3 MOV (PC)+,(R3)+ BIC R0,R0 .IF EQ MMG$T MOV (PC)+,(R3)+ .EXIT .IFF MOV 3 .IF NE CONT$N BIS #IFCTNU+IFEKO$,STATWD(R3);SET CONTINUE @FILE BIT .ENDC TST SILNT$ BEQ 9$ BIS #IFEKO$,STATWD(R3) 9(PC)+,(R3)+ .ASTX BISB #14,MAPOFF+12(R0) .ENDC BIT #LKCS$,BCNFG BEQ 10$ BIT #CLOCK$,BCNFG BEQ 10$ MOV #1,@#LKPB $: .IF NE MTT$Y .IF NE DZ11$M+MTI$M MOV @#SYSPTR,R3 TOUT$:: .IF NE DZ11$M JSR PC,DZMCTL-$RMON(R3) .ENDC .IF NE MTI$M  MOV #LKSTAT,@#LKCS 10$: .SBTTL LOOKUP AND READ HANDLERS CLR R3 MOV #$ENTRY,R1 ADD R4,R1 4$: TST @R1 BEQ 5$ ADD R JSR PC,DLMPOL-$RMON(R3) .ENDC .ENDC .ENDC CLR R0 .EXIT .DSABL LSB BCLR: CLR @R1 RTI .IF NE MMG$T+MPT$Y+MTT$Y BSEC:4,@R1 CMP $PNAME-$ENTRY(R1),#SYNAME BNE 5$ MOV R3,SYINDO(R0) ADD R3,SYINDO(R0) .IF NE MMG$T MOV R3,-(SP) ADD #40000 BIS #1,2(SP) RTI .ENDC .IIF NDF $PDSYS, .NLIST .IF DF $PDSYS .SBTTL ROM SPECIFIC FUNCTIONS PDSUB: TST DEVHISZ BNE RE,(SP) ASL (SP) MOV (SP)+,$SYSCH-$RMON(R0) CLR $SYSCH+2-$RMON(R0) .ENDC MOV @R1,SYENTR-$RMON(R0) 5$: INC R3 TST (R1)+RROR MOV DEVLOSZ,SYDVSZ-$RMON(R0) MOV DEVVEC,PDSTRT-$RMON(R0) MOV DEVPRI,R1 SWAB R1 ASR R1 ASR R1 ASR R1 COM R1  CMP #-1,@R1 BNE 4$ .IF DF $PDSYS JSR PC,PDSUB .IFF BISB #SYBITS,SYBITO+MAPOFF(R0) .ENDC .IF DF $DYSYS .IF NE DYT$O BIC #^C340,R1 MOV R1,PDINT+4-$RMON(R0) MOV ROMDT,R1 MOV ROMSIO(R1),.STARIO-$RMON(R0) MOV ROMABT(R1),.ABORT-$RMON(R0)  BISB #BITS.2,BITO.2+MAPOFF(R0);PROTECT 2ND VECTOR .ENDC .ENDC .IF DF $DXSYS .IF NE DXT$O BISB #BITS.2,BITO.2+MAPOFF(R0) MOV ROMISR(R1),.INTRPT-$RMON(R0) MOV DEVVEC,-(SP) BIC #3,DEVVEC BIC #^C3,@SP 3$: MOV DEVVEC,R1 MOV R0,(R1) ADD #PD .ENDC .ENDC TST (PC)+ SILNT$: .WORD SILN$T BNE 55$ .PRINT #BSTRNG 55$: MOV #$PNAME,R1 ADD R4,R1 ADD #$DVREC,R4 INT-$RMON,(R1)+ MOV #340,(R1) ASR R1 ASR R1 MOV R1,R2 ASR R1 ASR R1 BIC #177774,R2 MOV #^B11000000,-(SP) 1$: DEMOV #$SLOT,R3 CLR R0 .SETTOP 6$: MOV (R1)+,FNAME .IF NE MMG$T ADD #'X-100,FNAME .ENDC .LOOKUP #LKAREA,#0,#BLOOK BCCC R2 BMI 2$ ASR (SP) ASR (SP) BR 1$ 2$: ADD R0,R1 BISB (SP)+,MAPOFF(R1) ADD #4,DEVVEC DEC @SP BGT 3$ TST (SP) PESCRT .ENDC .IF NE TIM$IT $TIMIT .ENDC .IF DF $PDSYS .DDL .DDLCPL .DDLFRK .DDLSYN .DDLELG .DDLTMO .DDLXPL RD KW11P$ .ENDC .IF NE MMG$T .WORD KT11$ .ENDC .WORD HWFPU$ .IF NE VT11$!VS60$ .WORD VS6$0 .ENDC .WORD CACHE$ .WO .DDLERP .DDLOPL .ENDC .IF NE & ^CMTT$Y SCLNK2 .ENDC .IF NE BF MSGENT IMPLOC TTIUSR TTOUSR FUDGRD PDP70$ .WORD EIS$ .WORD SWREG$ .WORD LIGHT$ .WORD PDP60$ .IF NE MPT$Y .WORD MPTY$ .ENDC BLOOK: .RAD50 /SY / FNAE1 FUDGE2 BKGND1 BKGND2 BKGND3 CNTXT BCNTXT .IF EQ MMG$T RMONSP .IFF BGFPPT BGWPTR TRPLST+4 TRPLST+10 ME: .WORD 0,0 .RAD50 /SYS/ LKAREA: .BLKW 5 CBLOK: .BLKW 5 MONBLK: .WORD 0 SWPBLK: .WORD 0 .IF NE MPT$Y&ERL$G PARTB: .RE TRPLST+14 $RLPTR $MPPTR $GTBYT $PTBYT $PTWRD .ENDC SWIPTR SWOPTR .$CRTN .IFTF .IF NE MTT$Y .IF NE BF BKCPT 16. .WORD 0 .ENDR .ENDC .IF EQ BF TTMSG: .ASCIZ /?BOOT-W-Invalid or missing TT.SYS/ .ENDC .IIF LE 4736-., .ERROR . NSL .ENDC PDLTBL .IF NE DL11$M DLCRP1 DLCRP2 .ENDC .IF NE MTI$M PDLCS1 DLTMCP .ENDC .IF GT DZ11$N-1 PDZTB1 = 4736 $RMSIZ::.WORD $RMEND-KMON . = 4740 . = 4776 .WORD 0 BOOTSZ = . + 777 / 1000 . = BOOTSZ * 1000 BTIME = . BDATE = PDZCS1 .ENDC .IF NE DZ11$N PBMSK1 PBMSK2 PBMSK3 .IF NE DZ11$M PBMSK4 PBMSK5 PDZCS2 PDZTB2 DZTMCP .ENDC .ENDBTIME + 4 BUFFB = BDATE + 2 .END C .ENDC .IFF TRAPLC TRAPER FPPADD FPPIGN MONLOC I.CSW AVAIL .IF EQ MTT$Y PTIBF4 PTTPRE .IFF PMTCBB PBCEC .IF NE MPT$Y V.MPTY .ENDC .IF NE MMG$T V.BPT V.IOT V.TRAP V.MMU XMPTR .ENDC .IF NDF $PDSYS SYVEC .ENDC .TCB I.CNSL .IFTF PAVAIL .IFT PTOBF2 PTOBF4 .IFTF PMONLC P$SYSC PQCNT PI.CSW P$SWPB .IFT PTIBF6 .IFTF IF DF $DXSYS .IF NE DXT$O SYVEC2 .ENDC .ENDC .IF DF $DYSYS .IF NE DYT$O SYVEC2 .ENDC .ENDC V.FPU .IF NE BF+TIME$R .IF NE PANI$C PSPTR .ENDC .IF NE TIME$R PLKQUE P$TIM2 PLKQU2 .IF EQ MTT$Y PTBCNT .ENDC .ENDC .ENDC .ENDC PG.HI PG.LO .ENDC PLOCAT .IF DF $PDSYS PLK4DV .ENDC .IF NE MTT$Y PTCBLST PTCBEND PTCBBLK .IF NE DZ11$N PDZI .IF NE MMG$T TRPLST .ENDC 0 .IF NE BF M$SV11 MSV11: .WORD 160000 .ENDC GETPSW MFPS -(SP) GETPSW+2 NOP PUINT PDZOINT PDZCS3 .ENDC .ENDC RELST2: USRLOC $USRLC QCOMP $KMLOC .IF NE BF! TTIBUF TTIBUF+2 TTIBUFTPSW MTPS 2(SP) . = . - 2 PUTPSW+2 2 PUTPSW+4 NOP .IF EQ BF $INTEN+2 MFPS R4 $INTEN+4 BIC (R5)+,R4 $+6 TTIBUF+10 TTOBUF TTOBUF+4 TTOBUF+6 .ENDC .IF NE HSR$B PHSRRT PHSRRB HSRB HSRB+2 HSRB+4 HSRB+10 .ENDC INTEN+6 MTPS R4 .IFF RMONPS MFPS R4 RMONPS+2 BIC (R5)+,R4 RMONPS+4 MTPS R4 .ENDC 0 BCNFG2: .WORD 0 BCNFG SYSLOW CORPTR+2 $INPTR SYNCH $FKPTR .IF NE ERL$G $ELPTR .ENDC .IF NE ESC$P ESCPTG ESCPTO ESCPTI ESCPTT : .WORD LSI11$ TSLIST: .WORD LSI11$ .WORD CLOCK$ .WORD LKCS$ .IF NE VT11$!VS60$ .WORD HWDSP$ .ENDC .IF EQ KW11$P .WO ATION, MAYNARD, MASSACHUSSETTS 01754 ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ; ON A SINGLE COMPUTER SYSTSKIDS: .BYTE -1,0 MOV PDCQE,R5 JSR PC,@$ELPTR .ENDC PDEXIT: .DRFIN PD PDABRT: MOV PC,R5 ADD #.DDL-.,R5 JSR PC,@(PC)+ EM AND MAY BE COPIED ONLY WITH ; THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, ; OR ANY OTHER COPIES THEREOF, MA .ABORT: .WORD 0 BR PDEXIT .PAGE .SBTTL .FORK ROUTINE FORK: MOV (SP)+,FKFLG .FORK PDFBLK JMP @FKFLG PDFBLK: .BLKW 4. Y NOT BE PROVIDED OR OTHERWISE MADE ; AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ; ONE WHO AGREES TO TERLOG: .IF NE ERL$G MOV R5,-(SP) MOV PDCQE,R5 JSR PC,@$ELPTR MOV (SP)+,R5 .ENDC SYNCH: TIMOUT: XPGLNK: ERRPT: RTS PHESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE ; SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. ; ; THE INFORMATION IN THIS SC .PAGE .SBTTL DEVICE DRIVER LIST .DDL: .WORD IMPUR .DDLQ: .WORD 0 .DDLCPL:.WORD COMPLT .DDLFRK:.WORD FORK .DDLSYN:.WORD OFTWARE IS SUBJECT TO ; CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED ; AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. SYNCH .DDLELG:.WORD ERLOG .DDLTMO:.WORD TIMOUT .DDLXPL:.WORD XPGLNK .DDLERP:.WORD ERRPT .DDLOPL:.WORD OPTLST OPTLST: .WORD ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE ; OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT ; WHICH IS NOT SUPPLIED BY DEC.  0 IMPUR: .BLKW 20. .DREND PD .END  .SBTTL SKELETON DRIVER .GLOBL .STARIO, .INTRPT, .ABORT .GLOBL .DDL, .DDLCPL, .DDLFRK, .DDLSYN, .DDLELG, .DDLTMO .GLOBL .DDLXPL, .DDLERP, .DDLOPL .IF NE ERL$G .GLOBL $ERLOG, .SKIDS .ENDC .MCALL .DRBEG,.FORK,.DREND,.DRAST,.DRFIN .IIF NDF TIM$IT,TIM$IT=0 .IIF NDF MMG$T, MMG$T=0 .IIF NDF ERL$G, ERL$G=0 DTSYS==0 DLSYS==0 RFSYS==0 RKSYS==0 DSSYS==0 DPSYS==0 DMSYS==0 DYSYS==0 DXSYS==0 PDSIZ = 0 PDSTS = 0 PDVEC = 0 PDPRI = 0 .PAGE .SBTTL START OF DRIVER .DRBEG PD,PDVEC,PDSIZ,PDSTS MOV PC,R5 ADD #.DDL-.,R5 MOV PDCQE,.DDLQ JSR PC,@(PC)+ .STARIO:.WORD 0 ERROR: MOV PDCQE,R4 BIS #1,@-(R4) BR PDEXIT .SBTTL INTERRUPT ENTRY .DRAST PD,PDPRI,PDABRT CLR (PC)+ FKFLG: .WORD 0 MOV PC,R5 ADD #.DDL-.,R5 JMP @(PC)+ .TITLE ROM SKELETON DRIVER .IDENT /V03.01/ ; RT-11 ROM SKELETON DRIVER ; ; COPYRIGHT (C) 1978 ; ; DIGITAL EQUIPMENT CORPOR .INTRPT:.WORD 0 .SBTTL I/O COMPLETION COMPLT: BCS ERROR .IF NE ERL$G TST FKFLG BNE 1$ JSR PC,FORK 1$: MOV (PC)+,R4 .  Welcome to RT2/PDT for the PDT11/150. The RT-11 monitors contained on this distribution kit have been pre-SYSGENed M &,4: to span the full range of PDT11/150 hardware configurations. You should be able to base any PDT11/150 application on one of these monitors. Notice that there are no system utility programs (PIP,DUP,DIR) contained on this diskette. You will not be ab'F+U oCP2w_ZPIP V06.00Adeleted:copied/le to issue any of the keyboard monitor commands like DIRECTORY, or COPY until you build a runtime system diskette for your PDdeleted:renamed:copied: Files to ? ?PIP-F-Check sum error Device full Device in use Error reading directoryLibrary fT11/150 which includes these utilities. The instructions for building such a diskette are in the documentation supplied with tile not copied Too many output filesFile not found Illegal output file File sequence number not foundIllegal deviceIllegalhis kit.  commandIllegal delete Illegal directoryIllegal option combinationIllegal optionIllegal use of wildcards Illegal rename Illegal option valueInput error Insufficient memoryNo .SYS actionOutput file found, no operation performed Output error Output file full RebootSystem errorUse DIRn F.(2FPZdxW  F@   U $  w | 7hZ @& e W x W @   Z& , 7 0   Z e  x   .& U%U%@M  CD5DSELw Pw Hw Bx @ J5AB CD@GIK 6  xeW Z $5 !    -{∇&  2w \MN(O PQRp@STUHWXY +  z f   @    eW!] w D w > w 8Z   Pe~e RRRR ^  w07 L 7 F nwF  ߋ* R&w w ww  v @`7x@E  w ` F. @`7H   z x R e)@ 'f !f P%P%P% 7 < ` -<W,*ъ  w|wwmr @7` x  (w w   ww 2$\@ *JHex  ee w  eee f   j4 'V! ׭ f L   w Bw <w 6w "5Z T׭  @ @&m &׭ ]H]De xڃ  ]7&]]vf<W4 T wNW#% > f v ww r 8 ee ^e6]<e-w  e|  e0??  e   G`5 7 47 *7 *    Lx  4 w  X]^ v $ lC5;ff X $ ee    w- nUw @ U  pw- JUe e ee f p R *W  B w׭  hmD  &Z  -| 1 .  ]    <xw   .   ewj      鈇PPPPw (eW!we 5 55 @ x -~|  W- RRRRemh   hg  E.]4E `7` ?w p w e 07 t7n'fZ n   e 6 xw> <& f& 2DT  ' n  ~    DW-   w#@SS%#@SZ &f & R V@!   >B7 t6  wwe Re      7 &f  | F 7 7 ^0  0  j  ׭ w7 ׭ ׭w 2 wR 4   @ ׭ w n b p4w N .e j- x Z =w (  * w  +w  w  w w "w $  @ f w $7 xdp p@ 6 &f   Rf  7 ,  w w j|w  & . Pw ewe V7 Pw  77  T!0  j(]  &  4 0 @ \$ Z@&  ~5 & e $g,fE @r  r`be\bL 40 &  7` 0 f&0e$e"0 p0 ͋   Nw .چew e w " |&  PWW*  d׭p U%@.-N  :e e    c ` ׭ w Nf&&  PW#w 2ߋ* wF5 p0 @ 8 wg&  D ! !e  ! &ҕ:  ,eee ҕ ҕ @f( @ %ee0f:e.    W.  & & ? , ɕe b  & ̇/ 5b * ɋwW: B ѕ ɕ鈇'& %Y&f   Cנ/D נ/ נB `ыB ɋɋB  ewL !w(Q NKC4wr l  ȝz0 `ߋ*w  w  "`]f w  .!  f  f & `ע.פ/ L    ע  *׬   ( 7 ( 5 wb,z, *& x"", 0 ,7e  LL W#G W#> z;b r7f&  r-XR " 7 \ h Lw 07 @@ X   @ eT efe N   鈂 n( \&0  *w P+舀w < Np0 W- @ W w X2w R4׭ 5 p0 wf &0 ߋ*F b 5 W N+͋+*@E@E f& A ww  f&  ·w  w    W#EOW#HDj 5^N  #5 n뗢.ʕ%/ҕ*ҋ  鈅 bw7 F5  D Xw w H-" w 8w *-w  X (W#EOw 5 pߋ*  -(w lwxDee fe rp @` f w& ߥ*w0w2ew ! *  % - (?a ? 0a w?a mz ?v t  4%  bU$T& & E$Y>wZ  n lwTm@ < `V0  8 -$ `     w` @mPf 5Dww *&w ? ѭы @w 7 e7% m@"m47 Be B!  w jw  ( m 7!:?h p@e-X  Bw,<@ >  e  e  ?  H]ՋCwvDխ5a P ?aD BwwFw . -w  p  h 7 b      f RH  ` A vC5   1   w 6^hvw  w r  Օ UU   % (՝՝՝%Օ.e  @   7  j (    ii2ew N RT11̕AeeDECRT11A t j#wHARDSOFTBAD BLOCKS TYPE FILENAME REL BLK w w  = * %CR%T16w ЭЋ  w w 7   0׭ wxw w'$ X n 0: P7<e72 "w =e #m#Y7-whw = ~ e ew 0ȕ &  @ w h w   0 wN w4w    E>w!wZ wR : w : %  AeB`w 8w . Е=eAeB`w X $  BP  w yw     ` w  w @`7 4 .w w %v  2 aa&   @m7 @e Pw w :9w _ -( ~ & e7j -lrw @t7 `: M-w6 w  e  7`     r   wz w   ~ Z w w `-B@47 . e 0 4  *%>wPe  @n7 7   & Ε6  @ r 6 (0 b$  z wD   B Ȃ     6 ,e  ĥ%,_hjXX   @p Ie L( B$w w @e E7 w    n   w w w 7P  Z  < < @ : 7 ؁ 5wJww@, ɋwe    w JR ww8 e2 w. BC e " wz@3  @"? `7 VwF 7 N  m @ A  @ A @ A @ A    e0U %  Օ0N UUU  mnw:d2 `&`  N "  8 | 2  w  w ~| w  w^ @m\ 7 j b T P 7,*L"w fl`X fTL B e7:417 w w F e N V @ w   e ee # e7hcE `7! w^v#www ~Fw v=P 6 ׭!7w eA# # #e  6 v w ~ &f^ @`"7.737 ( '7 && w>  ( e@W  B %w~7 . zB oD e *7  ͋wxw  B w$7ŝ[eW $e c    7 x D7,55Ep 5wԋwD   @ f`B   7   ͋w    Ww   z5mf A N  % &f&f~ w   1,w8  De 7B5-Pmh&m% b`mR @wP7Nv =      ee @  w t%w  -    F>r;852/,)&#  +:L^v .鈀+w\6@鈅 are you sure?/Init/Copy/Squeeze/Vol id changecontinue?Foreground job loaded, OWNER NAME VOL ID? DUP V03.01 ?DUP-F-?DUP-W-RebootError writing directoryBad directory blockIllegal commandInsufficient memoryError reading directoryError in system areaDirectory not zeroedDevice fullRead errorWrite errorDirectory fullCannot write SY: while FG loadedIllegal deviceDevice not activeIllegal directoryIllegal contiguous fileToo many bad blocksIllegal optionCannot /s sy: if indirect file openUnmarked bad blockFile not foundDevice in useNo RT-11 vol idFile existsOutput is the default device ZNRBVKHFSICTUOYLXW ( <V" %: X!}<}; z : , ! B` P2 5@5   5  נ " נ me W!wW!cW!Hewz  S! ! !7| b&  Ve `0 T 7  H 6zveW <   @   @  P$ @  <  H!( J R w HB  e   "f@ :,B D     f b7 @7 L P@$7 B   `B   ~ @@eW F   f7EeH 7zEt 7n A   & ^ +?DIR-F-&, 7 7  20  20   RE  D b ʕD鈀 &w   & > P \ p  Cנ*D  נ* נ. f   X Octal&  JOҕ ҕ DB 7   ` f e F7 7 7 7 f  H  W   eB`  &  ѕ  ѕ C@  (7 w w w -VO $ - -HDw. 4: 6e02$0   7 www wwW- e aA 7D ҕ ҕ , >J&7  [D6 Files in segment [D//&&t DB , mT8 2w,w @ j hwmwzQQAA wL^Y W<Bxkf@zDIR V03.00 ABCDEFGHIJKLMNOPQRSTUVWXYZ$.*0123456789Illegal directoryIllegal optihmb. Lw 8 " 8 . t wmS   K@a$ b 6 0 $ onIllegal commandDevice not activeError reading directoryOutput file fullWrite errorInsufficient memoryIllegal device&  `e$ &   7  e    >   B wm.em$ rwU $  njf &7^ @& e W  W @ W 6 fwwF T  >)[D6 Available segments, [D in use//&$D DB D ҕt  7 D($ & V]p& LTD ^JV  .* Z ҕ  [D Files,&v   [** Blocks/&J&     [** Free blocks/    w *A W  v f &22Db22**  2222222e ($$ & & V DB h w   D  W!W!  w <     & " 1,Շ‚1,Ї1,ˇ1,Ƃ1,1,w21,w$w`w81, w- v w&f#2 0 ߋ*  wl P  Е7 @/#[P   a \a P `a :H `@$ 5' @DgOUwSwNw2* ҕ ҕ W*ы > ʕ@ Rʕ Jre5+ 5f0f e `0@4/e, Ve* HH   : C"C e lzW*ы&Cנ0נ9 ы0@09዇0 e `W*ы ӕ0f   ` `u t @ 5@5 @20 00   @> fe0㋓ w@ R  wC0@070 ` $W:ы@ wtҕ 5@5 @ 7 vw w$ a ѕ  ɕ ׭P*5  25 x vw xw rfb0  e0cwBwPta$ X 7 w Fw$3 ?.  .Ћe$ B ѕ . $ e B ѕ a4# nj  w w r-HDw w -EO55  B W 4<6a w B -4w20 & 2p@  S -.  e  xW e   @mf jW &  2 Pp0 wXD7 h  &f8W    e  ~m  m &ffa$ t55 -~EG0[D1-&f P#W &f@ z  B-[D&&L  "H [N9: E Pu 7  e - 6 7$  zppppp &z  -BAD- & w\ < UNUSED >&D .<[S& $  -A EAAB E BPhf  @e C- -- 1,!1, 1,D ^ :. [** &f 4  [N9: &J @ "&  [**1, 7 A1,1, E  w D ->-:&-0)-,01,Ȃه&z  vwmt-l ҕ ҕ 7 \~ [N*: &f 7 PDB  # f  7 #  bf & f p  b.wJ Pf KfwXT pp p rr lwewZwX f,5f 8  ( " * $V @ 7 7 ? E ,we5 5  5 UEA f   eww,^ ` 7 (J%P?:r %rr$D?w %^%w? #TTA  rlr   0 ,,^ `,} 爃E    ; 7 7P!7 wH)( H)zz $  WE<4 !J!G(!B!<  !:  5^m \mmm     m |v (neB xJ !UWM LKeB   J w"lgc  TLHWaWz B.7<7) WD#Dh %(L<6#77,7*77(7a V } U]!  . w7u7p !X !Z\xV w׭$    ˋ  & : ~K \7 hwl\NX7+w 7 HH @* 7 7 w &\ r7 D}    X$ *$   ,-( ^U@ A~>7 R  ƒ     ! ł S ?EDIT-W-Command buffer almost full d  (:EVet"<>" errorIllegal argumentIllegal commandCommand buffer fullInsuffic  B<# `^N - N ! w:w7 0w  \ n h wient memorySearch failedIllegal macroEnd of input fileRead errorOutput file fullIllegal deviceFile not foundNo file open L w  m W W} W~ы 77q- -`mz7! n7! for outputDirectory fullIllegal file nameSystem I/O errorNot enough free blocksNo file open for inputWrite errorCommand N V \w; wH,J(& 7!4  7!(   7! aborted in macro?EDIT-F-;No command(s) executedRBVI>UMNSGFP   m7! e77 { E  bX "PBnP">Xhz"f!!""e7 7^  (  D 퀕 B  F   rmp7 @7 :7:79 <w7ɋw!B7"wɋ W! w7W EWBW ?W  h7 b 7 2 ,-&7 .m @7f! <W+ j6W- ^.W/ N&W= >򷊌W0W9{xDE  ea 5eT z w."* 7!NF@!   7 & 4  $ -% 7 7 v B  lh`@\<TP-@(?8 45, - ( e e"#  2 w  TR! $ T : S R r E `= 7a7a7a7a7ap7a7a7au7a `w `w  22-2∷ "$7 & "7 &  B  K ; :  *# * v 2W!0W! wU%- j  N  777 - - 7z -   *-  wd   Ҕ  psw7me   ^   Z  $7 7    &x  P (7' %   7awj &   0  7 677 p h~  D " 0 7a7a  X7 J7 CeC  ы       IV"  x0  ׭ 7 㷊7 ?EDIT-W-Superseding existing file  c pn$jb 7Z&> ^-4.m0 "ӕ=:  $   7 \  7 :爇  ]w 8鈇V03.38 U@$E@$- L  |,  H *?EDIT-F- @MF&C# '#5 e #   &~t  7$ X2-h@ V    |  U0$@-wRw^   L  F 7` ""# 7  6 # * "#TP2.27緊 #@% @P@" X& .rQϳL8H8H.8H 8H38H8H8H.q8HKr8H(*` p b? d V X J L >d @ (| 4 &X (      r    h2KhHY.KhLKhRKhXLhNhMhZ].NhP-NhTNhVvh&  h0         +          z` |s.eF> U e(_z  &e 4 F  p b d V X J L > @ 2 4 w $   \  we hF^(6FFFFF\*^ ( 6FFFFF\ w    W n   ~ rH tSET TT SCOPE SET USR NOSWAP  f h P X w Hq < w  (\! ! w $! O! 鈇#3[5CDIGITAL EQUIPMENT CORPORATION #4[5CDIGITAL EQUIPMENT CORPORATION [34CPRESENTS THE #3[6CPDT-11 Intelligent Terminals #4[6CPDT-11 Intelligent Terminals [36CWITH THE #6[1CVT100 High Performance Video Terminal [16;24r[24;1H#3[13C67E$ H#ߋH ߋ`ЕEЕW 8ЕЕEЕR .7pn^ЕEЕBЕEЕW`JɋP   ;            C    p | n ' [24;1H[16;24r[24;1H #3[6CPDT-11 Intelligent Terminals #4[6CPDT-11 Intelligent Terminals #3[15Call have: #4[154r[24;1H[8;24r[24;1H #6[9CSupports Execution of #6[13CRT-11 Programs [23;24r[24;1H[8;24r[24;1HCall have: [8;24r[24;1H#6[8CPDP11/03 Instruction Set #6[9CUp to 60K Bytes of RAM #6[6CAll VT100 Terminal Features #6[8CSingle Package Enclosure [23;24r[24;1H[8;24r[24;1H #3[15CPDT-11/150 #4[15CPDT-11/15 [23;24r[24;1H[8;24r[24;1H #6[2CAsync and Synch Host Communications #6[7CEIA Port for Local Printer 0 #3[10CDual Diskette Drives #4[10CDual Diskette Drives [8;24r[24;1H#3[8C512K Bytes Total Storage #4[8C512K By #6[4CUp to Three Additional Terminals [23;24r[24;1H[8;24r[24;1H #6[9CAutomatic Program Load #6[9Ctes Total Storage [23;24r[24;1H[8;24r[24;1H #6[9CSupports Execution of #6[13CRT-11 Programs Self Test Diagnostics #6[8CEase of Service Features [23;24r[24;1H[8;24r[24;1H #3[15CPDT-11/110 #4 [23;24r[24;1H[8;24r[24;1H #6[2CCompact Two Enclosure Configuration [23;24r[24;1H[8;24r[24;1H [15CPDT-11/110 #3[8CDownline or ROM Loadable #4[8CDownline or ROM Loadable [8;24r[24;1H#3[8CPDP11/03 Instruction  #3[17CVT100 #4[17CVT100 #6[4CHigh Performance Video Terminal [8;24r[24;1H[0m#6[16C24 Lines #6[11C8Set #4[8CPDP11/03 Instruction Set [23;24r[24;1H[8;24r[24;1H #6[1CTerminal or Message Oriented Proto0 or 132 Columns [23;24r[24;1H[8;24r[24;1H #6[10CVT52 Compatible Mode #6[9Cfor Existing Software cols #6[10Cfor Downline Loading [23;24r[24;1H[8;24r[24;1H #6[4CCluster Configuration With Up to  #6[10CANSI Compatible Mode #6[12Cfor New Features [23;24r[24;1H[8;24r[24;1H #3[12CDOUBLE SIZE and ##6[7CThree Additional Terminals [23;24r[24;1H[8;24r[24;1H #6[7COptional Hardcopy Printer [4[12CDOUBLE SIZE and #6[9CDOUBLE WIDE Characters [15CAs Well As Standard Size Characters for Normal Use [23;23;24r[24;1H[8;24r[24;1H #6[6CSingle Package Configuration [23;24r[24;1H[8;24r[24;1H #324r[24;1H[8;24r[24;1H #6[1CSmooth Scrolling to Reduce Eye Fatigue [23;24r[24;1H[8;24r[24;1H Three Members #4[13CThree Members [23;24r[24;1H[16;24r[24;1H #3[15CPDT-11/110 #4[15CPDT-11/110 #6[8CD[15CPDT-11/130 #4[15CPDT-11/130 #3[7CDual Mini- Cartridge Tapes #4[7CDual Mini- Cartridge Tapes [8;24r[24;1H#3ownline or ROM Loadable [23;24r[24;1H[16;24r[24;1H #3[15CPDT-11/130 #4[15CPDT-11/130 #6[7CDual Mini-Cartri[8C512K Bytes Total Storage #4[8C512K Bytes Total Storage [23;24r[24;1H[8;24r[24;1H #6[3CBlock Repldge Tapes [23;24r[24;1H[16;24r[24;1H #3[15CPDT-11/150 #4[15CPDT-11/150 #6[13CDual Diskettes [23;24raceable Cartridge Tapes [23;24r[24;1H[8;24r[24;1H #6[5C10 Second Average Access Time [23;2( #6[9CGraphics Character Set (0#3[4C`\abcdefghijklmnopqrstuvwxyz{|}~ #4[4C`\abcdefghijklmnopqrstuvwxyz{|}~ #6[4C7890[0m[6;20r[20;1H#6[8CSETUP Mode Uses Firmware #6[2Cto Help Select 16 Optional Features [19;20r[20;1H[`\abcdefghijklmnopqrstuvwxyz{|}~ [8C` \ a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ [23;24r[24;1H6;20r[20;1H #6[5CSet Tab Stops and Screen Width #6[1CEven Set Screen Intensity By Firmware [19;20r[20;1[8;24r[24;1H #6[9Clqqqqqqqqqqqqqqqqqqqqk #6[9Cx x #6[9Cx FULL LINE x #6[9Cx DRAWIH[6;20r[20;1H #6[3CNon - Volatile RAM Holds Selected #6[7COptions While Power is Off [19;20r[20;1H[NG SET x #6[9Cx x #6[9Ctqqqqqqqqqwqqqqqqqqqqu #6[9Cx x x #6[9Cx x 6;20r[20;1H #6[3CSecond SETUP Frame Selects Options [19;20r[20;1H[6;20r[20;1H [0m[5m[1m#3SET x #6[9Cx x x #6[9Cmqqqqqqqqqvqqqqqqqqqqj (B [23;24r[24;1H[8;24r[24;1H #6[9CFour V-UP B #4SET-UP B #6[0m[4mTO EXIT PRESS "SET-UP" [0m[24;1H1 [7m0000[0m 2 [7m0000[0m 3 [7m0000[0m 4 [7m0000[0mideo Attributes [0m[7m#6[16CReverse [0m[1m#6[18CBold [0m[5m#6[17CBlink [0m[4m#6[15CUnderline [0m  T SPEED 19200 R SPEED 19200[6;20r[20;1H#6[7CScroll Mode (Smooth,Jump) #6[10CAuto Repeat Keyboard  [23;24r[24;1H[8;24r[24;1H #6[7CAttributes May Be Combined [0m[5m[1m#6[15CBold Blink [0m[5m[4m#6[1 #6[11CScreen Background #6[4CCursor Type (Reverse, Underline) 7[24;3H[7m[5m[1m11118 [19;20r[20;1H[6;20r2CBlink Underline [0m[1m[7m#6[14CReverse Bold [23;24r[24;1H[8;24r[24;1H [0m[5m[7m#6[13CReverse Bl[20;1H #6[11CRight Margin Bell #6[9CKeyclick, ANSI - VT52 #6[8CXON - XOFF Line Control 7[24;3H[7m0000[24;1ink [0m[1m[4m#6[13CBold Underline [0m[4m[7m#6[11CReverse Underline [0m[5m[1m[4m#6[10CBold Blink Underli1H[7m[5m[1m11118 [19;20r[20;1H[6;20r[20;1H #6[8CCharacter Set (US or UK) #6[7CAuto Newline for Line Fne [23;24r[24;1H[8;24r[24;1H [0m[5m[1m[7m#6[11CBold Blink Reverse [0m[5m[4m[7m#6[8CBlink Underleed #6[7CAuto Wrap on Right Margin #6[11CInterlace Display 7[24;11H[7m0000[24;19H[7m[5m[1m11118 [19;20rine Reverse [0m[1m[4m[7m#6[9CBold Underline Reverse [0m[5m[1m[4m[7m#6[6CBold Blink Underline Reverse [20;1H[6;20r[20;1H #6[7CLine Frequency (50 or 60) #6[6CBits per Character (7 or 8) #6[8CParity Sense and Ena[23;24r[24;1H[8;24r[24;1H [0m#6[8CLight or Dark Background [?5h [23;24r[24;1H[8;24r[24;1H ble 7[24;19H[7m0000[24;27H[7m[5m[1m11118 [19;20r[20;1H[6;20r[20;1H #6[7CTransmit and Receive Speed [?5l[0m[5m[1m#3SET-UP A #4SET-UP A #6[0m[4mTO EXIT PRESS "SET-UP" [0m[23;1H T [0m1234567890[7m1234567[24;27H[7m0000[24;58H[7m[5m[1m19200[24;74H[7m[5m[1m192008 [19;20r[20;1H[6;20r[20;1H ..... Spli)  21 006246 001527 BEQ 13$ ;NOPE ERROR 22 006250 005065 000112 CLR UN$BLK(R5) ;DO NOT CAPTURE FOR UNDELETE 2765 000630 TST SAVQ(R5) ;SAVE TEXT?? 50 006370 001401 BEQ 5$ ;NOPE 51 006372 110023 MOVB R0,(R3)+ ;NOPE3 006254 016501 000000G MOV SLCTC(R5),R1 ;SELECT COUNT TO R1-R2 24 006260 016502 000002G MOV SLCTC+2(R5),R2 ;  52 006374 162701 000001 5$: SUB #1,R1 ;DECREMENT DOUBLE PREC COUNT 53 006400 005602 SBC R2 ;TOP PART 25 006264 004767 177444 CALL CANSLC ;CANCEL SELECT RANGE NOW IN CASE ERROR 26 006270 005702 TST R2 ;CHECK FOR NO 54 006402 001354 BNE 2$ ;LOTS MORE TO GO 55 006404 005701 TST R1 ;ANY MORE? 56 006406 001352 BNE 2$ t Screen Scrolling .....[32D[8;15r[15;1H #6[2C..... Bidirectional Scrolling ..... [8;1HM[15;1H [8;1HN NULL RANGE 27 006272 001002 BNE 1$ ;A LARGE COUNT 28 006274 005701 TST R1 ;NONZERO COUNT? 29 00627MMMMMMM[15;1H[?3h[?5h#3[14C132 Column Mode is Useful for Listings #4[14C132 Column Mode is Useful for Listings 6 001513 BEQ 13$ ;NO- ISSUE ERROR 30 006300 016503 000624 1$: MOV PASPTR(R5),R3 ;NEXT FREE PASTEBUFFER BYTE [4;24r[24;1H <[?3l[2J[H[?5l[0m[0q(B[?4h[1;24r KED52- VT52 KEYPAD EDITOR MACRO V031 006304 005765 000000G TST INSPCT(R5) ;INSPECT MODE?? 32 006310 001402 BEQ 6$ ;NOPE 33 006312 005065 00063.02B14-MAY-78 16:46:14 PAGE 67 CUTRNG - CUT SELECT RANGE 1 .SBTTL CUTRNG - CUT SELECT RANGE 2 ;+ 26 CLR CUTQ(R5) ;YES- DO NOT DELETE 34 006316 005702 6$: TST R2 ;WHICH WAY DID HE SAY?? 35 006320 100034  3 ; CUTRNG -- CUT SELECT RANGE TO PASTE BUFFER 4 ; SELECT RANGE IS CUT (IF CUTQ IS NONZERO) AND PLACED IN PABPL 7$ ;RIGHT 36 006322 005402 NEG R2 ;MAKE + DOUBLE PREC COUNT 37 006324 005401 NEG R1 ;BY NEG THE WHOLESTE 5 ; BUFFER (IF SAVQ IS NONZERO). 6 ; 7 ; INPUT: SLCTQ SELECT FLAG 8 ; SLCTC(+2) THING 38 006326 005602 SBC R2 ;CARRY TO FIX HIGH WORD 39 006330 004767 000212 CALL CHPAST ;CHECK PASTE BU SELECT COUNT (DOUBLE PRECISION) 9 ; PASPTR PASTE DATA END 10 ; PASSIZ PASTE SPACE LEFT 11 ; CFFER SIZE 40 006334 005765 000626 2$: TST CUTQ(R5) ;DELETE THE TEXT? 41 006340 001403 BEQ 3$ ;NOPE 42 UTQ NONZERO FOR DELETE 12 ; SAVQ NONZERO FOR ADD TO PASTE BUFFER 13 ; 14 ; OUTPUT: SELECT RANGE S006342 004767 000000G CALL DLCHR ;DELETE A SINGLE CHAR 43 006346 000405 BR 4$ ;CARRY ON 44 45 006350 AVED IN PASTE BUFFER AND DELETED 15 ; PASTE BUFFER DATA UPDATED 16 ; R0-R4 DESTROYED 17 ; C SET117546 000000G 3$: MOVB @FCP(R5),-(SP) ;SAVE CHAR AT FCP 46 006354 004767 000000G CALL MVFWD ;A SINGLE CHAR 47 ON ERROR 18 ;- 19 .ENABL LSB 20 006242 005765 000000G CUTRNG: TST SLCTQ(R5) ;SELECT RANGE ON?  006360 112600 MOVB (SP)+,R0 ;RESTORE IT 48 006362 103464 4$: BCS 15$ ;ERROR IN MOVE OR DELETE 49 006364 005* 06446 112600 10$: MOVB (SP)+,R0 ;CHAR BACK FROM LIMBO 15 006450 103431 BCS 15$ ;ERROR 16 006452 005765 0006. 47 ;- 48 49 .DSABL LSB 30 TST SAVQ(R5) ;SAVE IT?? 17 006456 001401 BEQ 11$ ;NOPE 18 006460 110043 MOVB R0,-(R3) ;STUFF IN BUFFER BACKWARD 19 006462 162701 000001 11$: SUB #1,R1 ;DOUBLE PRECISION CHECK 20 006466 005602 SBC R2 ;TOP HALF" 21 006470 001354 BNE 9$ ;LOTS MORE TO GO 22 006472 005701 TST R1 ;ANY MORE 23 006474 001352 BNE 9$ ;NOT MUCH NOW 24 006476 010403 MOV R4,R3 ;GET NEXT FREE BYTE TO USE 25 26 006500 005765 000630 12$: TST SAVQ(R5) ;DID WE SAVE TEXT? 27 006504 001406 BEQ 14$ ;NO- DO NOT UPDATE DATA 28 006506 010365 000624 > w;NOT MANY MORE (<65565) 57 006410 000433 BR 12$ ;R3 IS NEXT FREE BYTE KED52- VT52 KEYPAD EDITOR MACRO V03.02B14- MOV R3,PASPTR(R5) ;SAVE END POINTER 29 006512 166503 000620 SUB PASBUF(R5),R3 ;MAKE COUNT OF FREE SPACE 30 0065MAY-78 16:46:14 PAGE 68 CUTRNG - CUT SELECT RANGE 1 ; TAKE CARE OF A RIGHT RANGE 2 ; WHICH IS TO OUR 16 160365 000622 SUB R3,PASSPC(R5) ;SAVE THE SIZE 31 006522 000241 14$: CLC ;RETURN NO ERROR 32 006524 0002LEFT, THAT IS BEHIND US 3 4 006412 004767 000130 7$: CALL CHPAST ;CHECK SIZE OF PASTE BUFFER 5 006416 007 RETURN 33 ;+ 34 ;ERROR 35 006526 13$: HELPER 36 ;60103 ADD R1,R3 ;POINT TO NEXT FREE BYTE AFTER CUT 6 006420 010304 MOV R3,R4 ;SAVE POINTER TO END 7 0064 THE SELECT RANGE WAS NOT DEFINED ON ENTRY TO CUTRNG 37 ; WHICH IS CALLED BY CUT, REPLACE, APPEND. 38 ;- 22 117546 000000G 9$: MOVB @BCP(R5),-(SP) ;SAVE THE BYTE FOR LATER 8 006426 005765 000626 TST CUTQ(R5) ;DELETE IT?  39 ;+ 40 ;ERROR 41 006534 005065 000000G 15$: CLR CTRLC(R5) ;SO WE USE THE FOLLOWING MESSAGE 42  9 006432 001403 BEQ 91$ ;NO 10 006434 004767 000000G CALL RBCHR ;DELETE A SINGLE CHAR 11 006440 0004 ;FOR HELP 43 006540 HELPER 44 ; Cut, replace or append was stopped by ctrl/c.02 BR 10$ ;CARRY ON 12 13 006442 004767 000000G 91$: CALL MVBKW ;MOVE BACK OVER ONE PHYSICAL CHAR 14 0 45 ; A logic error in dealing with select counts internally by the 46 ; program could also cause this error+ ЋЋe 7ZAIN @ 7  w @` R f ~w 7  ww *(    w   wf Dw P Е= n AeB`w 86w . Е=eAeB`w :t  w ߥ*w w em>fm."m"7 Be 4  BP   @: Ie 8 ( . $ F   (  (  ,  &  7  B! f  X   E>w!w@w8  w b %   w w@ ؁ 5 www@ ɋwe  @  @ A  @ A @ A @ A    e0U % `7  w w  %  b aa&  8 F@mB7 `T@ M-w\ w ,e Օ0N UUU  m r w: 2r 7,* "| w|    7`  7`D   T  w  @e E7w   fl `X fT L B e7: p #w8wFw vw  w w   !7e7b mZ waV 7T w :J fw" 7.w Bww=L P$  6 ׭!7J w7.737 ( '7 &ew BC e wW"4@  @"? ~7 tw 7 l  m  `&`   & w~ V!( e@W [eW $e c    "7 x  N z  8 2 hw 8w Vw 8wD ( @m67 VN .*17 >7,5/Ep 5wDw   Fz5wp w 8e N   w l eee # e7lcE `7!w emf A N  %  ѥ YnMw>w? +&fe>B @& fE@@ B @ @@D_ B_ $_ _  B_  _ A# #p #e6 v N&fH @`" B ,%w& 7 . _  _  _ B_ B,e`eTeN( "2. & t&   &B o D e 7 , ͋w w>   : B w7 ŝ ԋn l wj D ` ? ɕe & tp& ˇ/ 5&ɋw*B `ыB ɋɋB  h  zZ R P P C hf`B   : 7 0   W ͋wn  d WWw 7 v  ew Qw&E B?7(w0-!< #HЋI    ee   fw %w f > - 6 . w w0  w%%VO, %@ KrGo%@%@<7 9 65; (4$ #  %@w.~7 xHFSICTUOYLXWV( ~vn $  `X7 t7 L<X7 2 ~  D ,p t   %: X!}5*p   wh0 wj wVewPewJewDew><}; z@:&f&f~  f NPxȋ ȝp0 &De"$& &e\7 e" #" #" L 52ww &w 6?K ѭы @gw 7 e7Hv% p , v?<9630-*'+$:![j| < w:\@ D 6 e e| j$ ?  "w ͋w>w>  x^鈀+wf@鈅 are you sure?/Init/Copy/Squeeze/Vol id changeForeground job ew4Dw`m7  A w   " w 8 ` loaded,continue?Insert system disc,Are you ready? Owner name Vol id? DUP V03.04A ?DUP-F-?DUP-W-RebootError writxrRjh" ww^ w@ w  " wd   R wing directoryBad directory blockIllegal commandInsufficient memoryError reading directoryError in system areaDirectory notD ew  RT11̕AeeDECRT11A #  ȭew R zeroedDevice fullRead errorWrite errorDirectory fullCannot write SY: while FG loadedIllegal deviceDevice not activeIllew 7 ^ X׭8w.wrwVw "h wV  h w 2w wgal directoryIllegal contiguous fileToo many bad blocksIllegal optionCannot /s sy: if indirect file openUnmarked bad block w  w  $e!ԕD%B1 3)w w |% 7 w Z t~w ~File not foundInput truncated at six charactersInput truncated at ten charactersInput truncated at twelve charactersDevice i'w vw <w 6w 0Xw X4w w w w w w7z%l@ 8w @ '$t X  00ȕ @ \ pPw *8n useNo RT-11 vol idFile existsOutput device not specified; DK: is defaultNo swap file on boot volume, ZNRBVK- XHardSoftBad Blocks Type Filename Rel Blk ?DUP-I-No bad blocks found 2 |w yw |~   &t    ĥ%,_hjXX w  >Yzdz-@, e ww"w"A +U@$U$DNA 8w 8ADe6N w 1E$E@$e R& & zȋ  5w S 2VOL1RT11A HDR1ZEROED.ZZZ RT11A 00010000000100 00000 00000 000000DECRT11AEOF1DRT11A ߋtv ?BOOT-F-No boot on volume  Hw Nw = %CR%T1fw 67ze7p w p=e #mV Hw jw HN mD |7!?N B@e->5a  ~?a* wpw * w b#Y7-(wdw B= & xRe N:ew $0@ $  !@w T:w Lw tw LD d:w02m07 vw ! * % -?a 66@w hw Z:@ P  ` sw 68  ? ~ 户n h  ?0a pw?ahmb?^  %   b > wmt($` - \w 6le e ^wwba%>w w t6$\`1,w4  r` vV & w*D $ F w    dww ~-Jf De 7B5-m&m% 8`m @ *`@ `  nC``B7r% @ 2   wB Ȃ     n w w` 7vw e T% 8@ "@4 @w w z6tw $ fnw\ww ^-w  ^" FD *[B&B\T7 N   Օ  Lw 9w L_ , 6-2((  & e7p -w Bx7 v7 UU  % B՝՝՝%Օ.e  @ 0 7 Bwe 0 4  %nw$ex r N@n7 d7 ^\ 4P& Ε,e.   3@      e    3 # 6 4  7 & BHAuH  JuJ  Ԃc 0 Cm      ܇ قe K cE 7 AA- ,  5, A- 8   e > >WWQ  Q+    e0 e: &     0 yEU  3@  e z  @ыC ʥee e@0A2B4C6f850u2468 \  @m5 J5T 7     #P @>&   Ee0E & e7 ^7 T>*>>  n5 4BD5 "5 $@ 5 @5 e u+u*u-u,&& e7 0 *e*  , 5 , H*-W l & F> 0 6  > . f> eL e  L  4  5 T(&ua&f&& W ы WWW W eQQe WWWы   B B5Bm =< < :&dEP+P*P-P,5 *5 ,v,v**,e&5+5*5-5,&5*5,&P*P,IA!h ,f* /W-, W-, 0N-**5 , /  @7 N  *K e,/5 ,K e6 /6   j0  .%7  Je #P4  h&f 6Au J& 5N Ru  5f    `  ʵʵ  De* 0dE9#   & 0eL  . _ n.V09   E u E e 8 6 3 +-  09  m Ee& 0e  E ewe / EU  %   &f\ a@ ` C f Uf ON @@7 A=ee\>:L]L?ƪ@D g C_  fW & @&&&& b     z e\  ! C DZ DDC D@ C @ %d ` ` D@ B \7 >  \;@\ \N @   =@f&ysE[\pCf&f&\% a @ 7 7  7 2CBf @ E  E `7 7   @5e  &  @ D& &&@ ,D& && 6  A ~Z ~Z ~~    p e  @ CaB a@ CaB a   C B 5CA aC`B \C %    \ \S\ e& @ Te\f& \:יc&>X4%]@fE@7  @ f&\    \B` 7       C 5UA B C C   2  бC  B e@&  Aaa C C Aa@ aA B   C A   A @  5 \7  &&f   <  N  \ \   \e  U@$E@$ f&7 f C3  v   B K툇爎D f&&  \7 * \ &  . & @  $<     w$x` N,w" w w w & w w w w w www~wꈇ@ % 6 @ ,%\%7 x &ff& #"   6f& R TNa B,f .  = H@ %u@  W 4eXAa 6W-: @    j. 0 f>0 # .   V `   @% %v\@7   f %&f3 4 567/8& D7 4  @ %   `&\&  f 6A  v  6N\e&f .r)&&\   5@5@  r|||      f& 1fABAD5 a C%!e e B V  B\E CP \  \& \\r1@\[?\ e7   ?U?*@ڪA& & & & & D&&ee7 0 *e*  , 5 , H*-W l & F> 0 6  > . f>  #@  @6  >6 6 #?%-0 @ ׳f&&   \ w& @\f,\ ,wtN,\&ff@ 6 %5*u,\\C*"D,&  @׳@f&   f&f&       `   \f& \ 0  Jw f@ @ f& b :# J D .# ,  P  5 X7 &B  $B E5 5@  ve  e7 ! @a  e   & # AZa"z @# & eD`0 :@Aa." 09A Z az     ѕ 9.: R L E5`Ff& AR@5 E U  NONAME& &@ 6  & &&f@ e  w e  & eU&)f@ 5E1 6 6(@@$@0 6 46Je e & eJߋ*U@e 0 e ߋ*wU0, D  5E 7 DB R     .  h wp    ʕ  ݆?@ fTf& &T @  bVA:  >U U@ & 戀e 6N:6 6  J5@ >W-: -   5  >#%> @:  x ߇@: U@x <wu B!E z" w (w >w.w>":":":":":"l60B5BmwlD ! :U @: |+ Ce 5@ N 5  R  8  : 3 (3e e !TBD*2DwE  e=  = =w *.x u r96  BV % : %  <v<6 6   WoWwBBmʵ 5Jww 6ʵ C,@*"W% ` *WWf, އ @    &7 5`F5` = & &AT Pu/&P& = & B, *WC," @,ʵwD V 4D ޵.5 *. e,Cנ"נננeN105  &  p&@@5  vW-: B J :&)f@  5E"  1U e   z 5:7  &BE& 5  !  ߋ* f5 e * <֋;weBa&7 f@   @@@u@: 1 EU@$E@$ 1 BC W1 AmW$ n XW ^Ww @ @R   ע ע,ˋe ӒW W $C" Cm  "KAmwV$ V(Cנננ   ננננ Bzv$B&$$$$$$ !f. w& *e*5 ,5 $ WC"  " Cm &f BBBc55 W XՇ n W Bʇ f/5 ,  7 7 8, 7 7 8, ^ & w w e  5 *,W W ״We f lBQWWW BOBBm u '( B @B W 9 !& Β #WW  e5 .Jf ڇ#%  $ Bm e fe | fe  fe | fN ve f. V r u  %1҃!& Β`# e f `e e e  W 7 > 1w(  w BB qnC lC CmR cR `]fe   *5 ,.w  *> ,e @*7 ^& e . * 7 6ް & J7 $ް D , , ..    fe  f.    11e ewJfv  7 &,. ^࿇ 7 D N K BBWBm <&! 2Bmʵ -ʵʵZ w)zH-001..V-. RW   W WwWHWHWEWpf@ @5 :<  f,  Bm5 5  &f&&6Bm5nC: (ewN ' zֵ@  e  T  P  @&`5 P | w W `$W @&5     e     ॴu  Wu & T fP% 8  w W W 6w*  w & u *5>5 RW>6Bm55 & ee   e e &B  Bm$   F0BBBmf@ @ע ˋ> "C ˋ/CӤˋӤפ ר f C = + ww6 % 6 Hw>   *z()*>)*J,*BaBBm V WX NWR dw6W> w? f & &wC Ww 6ע,4 v - *& ע ˋע,K  .JWBW?!hf e&&  eeҤ%  פ   ҥ   B WwW = R5 (ע w|  R0,1 WW & פ % &  GDAT+ WW! f.f z B) Bע"ע'ΔΤ׬  2   F    e  `   wDwפ ׬2  ^    `  j55P5P55j55555    *zB"6%6%%X"b"0#$p"""# ɥA- w n 5 W BW ^w t | Puˋ ʤ #.*$'\ LERC#-^,.#-^w ʵ 4 3Bʵ u,u*"B  B *, 5 W W 8 ,u, 4 6< ѥwd  <ѥ <   u,B   * u,W" *!7 Z#*-, *7  #H#7 b ,<@@  @#W @, 5:f P]v WfU a@, 4E &  "   ʵ ,,"42 > 2 8 6 & mD % >U  >U ʵ ,*7  , ,5 *  7 f,*E&7 * ,  ,WW   נ p%  t& WWWi& 7V eW  wʵ` ʵʵ ``D ʵ !"  *7 b ,. *7 & W  & 7% D4   f&  & e  )Ԓh I4 8& W N. @ , 6#5JeӤ   ## @Jme5 Bʵ+@C   Q 4       @  *E* , 5@  4  J,UBʵ@ C 2   B e5 ,4> &  & $  >0 8 `& - `Kf f>5@ Q& R "   fA> Be @ҁe U>5*,f:%  *U*5 , w` & & &  & 6 &N  - C @& ',5 ,3 5 3 E` `Ble C" 5 *.5!ea5 9ȕ01000  e w* * $$ . e, V&&& CJ 1 >&&Be eeҔ fA>5 Be-     , 0 . 0   >   em   `eJ%w %w|&f& "+-N < * 5 ,  - >wr a` 0w& 4J6wi x 6 S6w\Z44 U* , W-*5 *, U S6wOM  J6X6^6w., x6 #^643 $ @B"""H @ 5 "H$ ']cC`Ҕ  0u`u`  CC 0 Cm      چ ؇e"cK`b  &  5 L& Au  7@ @ ECCm  H D HB u`u`#@`" @B B > v 3& B- h6f B "UWB‹BBm   rrD A FWwr @`5 ȕ5 (w BW @`B u<5 >5 :  ʵ  Twe am (W W WK WE 2W  ѕ.09wR8& 85 >  ld `E Ę  פ ӋH!2 $  ) &2!#+   LW-LBrLWW %wW $w D AWA  j:ѕ 8<3d," ѕ@ /    LrL BBBmW,rB܃ R *D, B 0قD,C* 5 u<u>wwwwPww}ĥeqѕ@ t  'ѕѕ`ѕB  LI@ЕЕ5 NB555f 5 ʵ,  5 P&N P   & &3E $%( B "e ``BNF 4PB   6 @ЕЕ5 N5555 .f@5  W     euf " `E 5<5 <5X5Z5V@%X   vZV  ' "  '11e @ w 8E \90$& \#u < : ѕ@ נ נ\ נ^@a"H,5 >u2  zA2wBʵ2 WW @,   ~ T w2(נ  ѐ B& & 4 ݃,5$% $ ( 5W%W f@, v 5  $W WW wuFBBW 5  > e H Z H? < $% J2  e  (  \ܵ˵ ˵s u:Cѐѐ@ 7wJ& w N Ku & >& % -ѕѕ  -ѕ 6) T5 RAC w " W-f 5 5 w:" fAN@@5 @mѕ@ we< C "e & C w>ѕf |eCm H  A# 5"N5N Dw u 0  Rwj PD# "  B@B"""" @ 5 "" Hʂ ǂ    A Zaz 7 (& AJBJ Nu HH 4 r w>>  wf  W #w   n   s   e 0DJ Ee XW @P M@RH D @@R& T W & # 4/w5H& L   ‹W  "   WW6 6 0B0A "K@ AW W0܇W9قHw:@ ч Bt  Ѥ  &DJ E< 5- "H2  K s " *w   w5 Lw7 ,B@a  |}wFFILE7 C@  EA : BmU& & & & @ ,5&6" E6"66"  E NAME-- @פ  0NONAMEAe   B1IdBj:R86"6$ =m-  m J  AC 5 "B WW  QWWW BBBm (%eeB   Q$mE eH5 NAC u"NuN E   BB5WD.-6x   B 5 \  @  TӀ fٗ% B5 Bm , 6WW..,/(5..P.`.X0d0.2..+-*/^()\&;,<==<>==><>><<>="':#[]IF END #LET IF GO TO ON FOR INPUT Bm H  ʵ$ ʵ% ʵ (w\>fAW W  8 FOR OUTPUTFOR TO NEXT THEN STEP GOSUB RETURNINPUT LINPUT PRINT USING REMDEF READ DATA CALL FNPISYS(RCTRLO  w7 AT@ <ʋ 05 $B>3& & #CaNa   6`  ABORT(TTYSET(CTRLCRCTRLCRND(RNDSIN(COS(SQR(ATN(EXP(LOG(LOG10(ABS(INT(SGN(TAB(BIN(OCT(CHR$(LEN(ASC(POS(SE%7 hAR @@1- X 4& " Ca T& `%: 6 : bC G$(VAL(TRM$(DAT$CLK$STR$(OPEN CLOSE CHAIN OVERLAY AS FILE KILL NAME RECORDSIZE FILESIZE MODE DOUBLE BUF LIuHuJ5 L ,u2 @a W     5 < u2 uTA2F w 5 >u A N r  6`"Da 6  B7 u-HJCCHE <B2 vuRA2W- b | $wfw  B ,8w  p: 6 >.  #( *!C,   B :8cIS TOENAILS, EACH .03 CATADIOPTRIC CALLENDULUS CORNEA 1.07 RANA PIPIENS DIGITORUM LONGUS IV 1.35 CARRASEUS AURATUS INTERNAL I ee __ =   & Ҏ :8e  ; "8ȋ _ =  `NTERCOSTALS 3.23 CLAWED FROGS, MATING PAIRS 3.87 RANA CANCRIVORA GASTROCNEMIUS MUSCLES 3.50 DOE ORCHARDS CORTLAND APPLES, BUSe  _ :8_ =B :8e<5 : z lf: :8_"  _ = 6 "8_ &Ba HEL 3.50 DOE ORCHARDS MACINTOSH APPLES, BUSHEL 1.17 RETICULATED INTERNUNCIAL MOOSE EARS 7.35 PECTEN ADDUCTOR MUSCLES, POUND NOT ENOUGH MEMORY FOR BASICBASIC-11/RT-11 j;==x==== :8_ &Ba :8_CRfD& ΋?A<I N== =-C>ff& ΋ Y NU% M% D# C   D eRD>>=D>>=D>>=D>>=D>?==D?B?=Dw| NONAME wj ?>>>>>?D?H????@P@f@@@hA BTBBBBBB D??==D??=E??= E? @=E@N@=EP@d@=Ef@@=#E@@=*E@fA=0EhAB=7E BRB==ETBB=DEBB= p pW @,   a`&*:fR5 R R5,_x 5 ,  KEBB=PEBB=VEBB=]EBC=OPTIONAL FUNCTIONS (ALL, NONE, OR INDIVIDUAL)? TAB? SYS? RCTRLO? ABORT? TTYSET?,W  , h W-, p >_ _  > , W-, _ _H W-,W @,  CTRLC & RCTRLC? RND? ABS? SGN? BIN? OCT? LEN? ASC? CHR$? POS? SEG$? VAL? TRM$? STR$? PI? INT? DAT$? CLK$?   5P >_5 ~_  >f,& N&# _  % =@eD B dbB bE1.79 PUCE CACTUS BUDS 9.55 LARGE FLAT ZOAVE HELMET 14.53 TIGER MOTH WING DUST 1.19 BATCHELOR BUTTON SEEDS 2.23 COLEUS FOOD P B     e_ = "8E*_ =& * ,@ *_ & 4 ACKETS .72 15% SUGAR SOLUTION .17 CANDIED RAISINS 3 OZ. BOXES .93 TOLL HOUSE COOKIES .67 ASPARAGUS TIPS 2.25 GREEN GOSSAMER  0  , >_ & 4     0  ` , >_ =  ,_ HONEYBEE WINGS 2.85 GOLD GOSSAMER HONEYBEE WINGS .87 PARTIALLY OBSCURED MAHOUT APPURTENANCES 1.35 TINCTURE OF GIBRELLIN 1%  =  ,_  >B :8p,_ p\WZ pVWT pP 6 > *@@,-71.21 MACERATED PRECURED CHICLE EXUDATE 23.57 RANA CATESBIANA WITH TRANSPOSED SINUS VENOSUS 2.23 FICUS FICUS AMBULATORY APPENDA # 0 - * ce<ece:`eҢ :  <  : %5,5 *_GE 1.19 MYTILUS EDULIS ANTERIOR BYSSUS RETRACTOR MUSCLE 1.13 RANA PIPIENS SARTORIUS PAIRS & PELVIC SYMPHISIS .02 XENOPUS LAEV7 140 REM 150 REM READ IN THE CATALOG FILE FOR THE ORDER FORM 160 REM 170 OPEN 'SLICK.DAT' FOR INPUT AS FILE #1 180 REM INITIA IN THE FORM 689 REM 690 CALL FGETAF(A$,T1,F$,I%) 700 IF F$='CATNUM' GO TO 810 710 IF F$='QUANT' GO TO 970 720 IF T1=0 GO TLIZE THE NULL DESCRIPTION AND PRICE 190 D$(0)=" " 200 P%(0)=0 205 REM COUNT THE ENTRIES 210 M%=0 220 IF END #1 GO TO 290 2O 1300 730 REM 740 REM IF NOT CATNUM OR QUANT OR , JUST GO DO IT 750 REM 760 CALL FPFT 770 GO TO 690 780 REM 790 R30 LINPUT #1,A$ 240 M%=M%+1 250 T=POS(A$," ",1) 260 P%(M%)=VAL(SEG$(A$,1,T))*100 270 D$(M%)=SEG$(A$,T+1,LEN(A$)) 280 GO TO EM CALCULATE ENTRY NUMBER FROM CATALOG NUMBER 800 REM 810 N$=A$ 820 GOSUB 1230 830 REM 840 REM NOW EXTEND THE FORM WITH THE220 290 CLOSE #1 300 REM 310 REM NOW START THE DEMO PROPER 320 REM 330 REM OPEN THE FORM LIBRARY 340 CALL FLOPEN('PD1:SLIC DESCRIPTION AND UNIT PRICE 850 REM 860 CALL FPUT(D$(N%),'DESC',I%) 870 CALL FPUT(STR$(P%(N%)),'UNIT',I%) 880 REM 890 REM NK') 350 REM 360 REM SHOW THE FIRST FORM 370 CALL FCLRSH('FIRST') 380 REM 390 REM INPUT ALL DATA TO FORM 400 CALL FGETAL 4OW FALL THROUGH AND FIND THE QUANTITY IF ANY 900 REM IF QUANTITY IS BLANK, EXTEND A ZERO TOTAL 910 REM 920 CALL FRETN(A$,'QUA10 REM 420 REM READ THE VALUE SUPPLIED FOR FIELD 1, FORM 1 430 CALL FRETN(A$,'FLD11') 440 REM 450 REM SHOW THE NEXT FORM 46NT',I%) 930 GO TO 1000 940 REM 950 REM IF EDITING THE QUANTITY, CHECK THE ORDER NUMBER HASH VALUE 960 REM 970 GOSUB 1220 91.93 GENUINE KAWASAKI REAR AXLE BEARINGS 14.28 VOLKSWAGEN RABBIT CATALYTIC CONVERTER 1.75 DEGENERATE GRAPHIC EXPRESSIONS. 2.10 CALL FCLRSH('SECOND') 470 REM 480 REM DELETE THE TRAILING BLANKS AND 490 REM TRANSFER THE VALUE FROM FIRST FORM TO SECOND 5 EXPLICIT GRAPHIC EXPRESSIONS. 500 CALL FPUT(TRM$(A$),'FLD21') 510 REM 520 REM PROCESS THE SECOND FORM USING THE 'GET ANY' MECHANISM 530 CALL FGETAF(A$,T1,F$) 540 REM 550 REM CHECK IF TERMINATOR IS 'ENTER' CODE=0 560 IF T1=0 GO TO 630 570 REM IF NOT ENTER, THEN PROCESS THE TERMINATOR AND LOOP FOR 580 REM ANOTHER FIELD 590 CALL FPFT 600 GO TO 530 610 REM NEW PAGE 620 REM WHEN AN ENTER HAS BEEN TYPED10 REM SLICK.BAS A LITTLE GLOSSY DEMO FOR THE FORMS SOFTWARE 20 REM THE DEMO USED FDV TO SHOW A SERIES OF FORMS WITH EMBEDDED H SHOW THE ORDER ENTRY FORM 630 CALL FCLRSH('ORDER') 640 REM 650 REM SHOW A COMMERCIAL ORDER FORM FOR A REALISTIC EXAMPLE 660ELP 30 REM AND TRANSFER INFORMATION SUPPLIED BY THE USER FROM ONE FORM 40 REM TO ANOTHER 70 REM 80 REM INITIALIZE THE FORMS  REM USE THE GET ANY MECHANISM AND CHECK FOR INDEXED FIELDS 670 REM WE ONLY CARE ABOUT THE CATNUM AND QUANT RESPONSES 680 REM AREA 90 CALL FINIT(2250) 100 DIM P%(50),D$(50),T(6) 110 REM 120 REM SET BASIC TO ACCEPT LOWER CASE INPUT 130 Z=SYS(7%,0%)  681 REM FIRST PUT IN TODAY'S DATE 682 REM 685 CALL FPUT(DAT$,'DATE') 687 REM 688 REM NOW GO INTO LOOP TO PROCESS THE FIELDS8 TURN TO MAIN LOOP 1160 REM IF ERROR ON LAST ENTRY STAY THERE FOR CORRECTION 1165 IF E1%=1 GO TO 690 1170 GO TO 720 1172 REM NEW PAGE 1175 REM THE FOLLOWING ARE SOME UTILITY ROUTINES 1179 REM PRINT CREDIT MESSAGE ON LAST LINE 1180 CALL FPUTL(CHR$(13b'vlXm3(3$w3&y(4 Hw_ (4T`"5)&"CREDIT RATING EXCEEDED FOR THIS ACCOUNT") 1189 REM CLEAR OUT QUANT FIELD BY PUTTING A BLANK 1190 CALL FPUT(" ",'QUANT',I%) 1194 REM SET THE ERROR FLAG TO USE THE MAIN TOTAL ROUTINE 1195 E1%=1 1200 T(I%)=0 1209 REM GO BACK AND RECALCULATE GRAND TOTAL 1210 GO TO 1010 1215 REM SUBROUTINE TO CALCULATE THE HASH INDEX INTO THE DATA BASE 1216 REM USE THE CAT NUMBER FROM THE FORM MODULUS THE NUMBER OF ENTRIES 1217 REM IN THE SLICK.DAT DATA FILE - WATCH OUT FOR ZERO 1220 CALL FRETN(N$,'CATNUM',I%) 12m3$ &,Order Entry Example HelpJThis form is an example of a possible order entry form. You 30 IF VAL(N$)<>0 GO TO 1260 1240 N%=0 1250 RETURN 1260 N%=1+VAL(N$)-M%*INT(VAL(N$)/M%) 1270 RETURN 1280 REM IF WAS may skip overLall the fields at the top of the form if you wish or the entire form. AfterMthis form is processed the TYPED, ALLOW A FINAL VERIFICATION AND EXIT 1290 REM 1300 CALL FPUTL('IF ORDER IS CORRECT, TYPE ENTER') 1309 REM JUST GET A KEapplication program will exit back to BASIC-11 and'you may wish to list the BASIC program.EThe item portion of the form Y HERE TO SEE IF HE IS REALLY DONE 1310 CALL FGETAF(A$,T1,F$,I%) 1319 REM IF NOT REALLY DONE, PROCESS IT AND CONTINUE 1320 IFis an example of a form with interactive Mretrieval as well as entry. This is not a real example such as the one found Ni80 REM 990 REM IN ANY CASE EXTEND THE LINE TOTAL AND CALCULATE NEW GRAND TOTAL 1000 T(I%)=P%(N%)*VAL(A$) 1005 E1%=0 1010 T9= T1<>0 GO TO 700 1329 REM IF REALLY DONE, PRINT FINAL MESSAGE AND EXIT BACK TO BASIC 1330 CALL FPUTL("That concludes the demo,0 1020 FOR J=1 TO 6 1030 T9=T9+T(J) 1040 NEXT J 1050 REM 1060 REM CHECK HIS CREDIT RATING 1070 IF T9>100000 GO TO 1180 10 type list to see the program") 1340 REM THAT CONCLUDES THE DEMO, EXIT BACK TO BASIC COMMAND LEVEL 1350 STOP 1360 END 80 REM 1090 REM T9 NOW HAS THE NEW GRAND TOTAL 1100 REM PRINT THE EXTENDED LINE AND GRAND TOTALS ON THE SCREEN 1110 REM 1120 CALL FPUT(STR$(T(I%)),'TOTAL',I%) 1130 CALL FPUT(STR$(T9),'GTOTAL') 1140 REM 1150 REM THAT COMPLETES THE ITEM PROCESSING, RE9 lication supplies description and Munit price for any catalog entry. It also extends all totals on entry of the  quantitFThis form demonstrates some of the various field types one can specifyGwith the FMS-11 software set. Help is supplied wity.IIf you want to add items to the data base you can edit the file SLICK.DATNusing KED and run the demo again. If you wh all of the fields.JThe group of fields in the lower right hand corner illustrate the range ofPvideo attributes that aant to modify any of the forms, youKcan do so using FRMUTL to get a listing of the forms and FRED to edit them.The libre assignable to regions of the screen. Also illustratedHis the ability to control cursor movement automatically through trary name is SLICK.FLB.(3FSTHL2.@2zHELP for using formsDThe FMS-11 forms processing she formJdesign rather than by explicit program instructions. The group of fields Mlabelled Horizontally indexed and vubsystem FDV provides the operator with?several convenient features for filling out formatted displays.CThe top four keertically indexed illustrate this feature. *The first three fields in this form show a 0display 8only =field, a Fys on the auxiliary keypad, the four arrow keys, andFthe special control keys, TAB, BACKSPACE, DELETE, LINEFEED, RETURN andfixed decimal point field, and a field with 'embedded 0text 5 characters ?.&yTFSTHLP ENTER all have special meanings. KPF1 Switch the entry mode from insert to overstrike or vice versa. If the Hcurre.z>FMS-11 DEMONSTRATION FORM 1KThis demonstration illustrates some of the features available in the FMnt field is left justified (characters go in from the left) and you Fwish to back up and insert some text, you should type PS-11Osoftware set and shows in simplified form how a forms application is developed.,Principle software components of FMF1 after moving 4to the appropriate position with the left arrow key.KPF2 Provide help for the operator. If help is aS-11 are: FREDIf information is required in the current fieD22   99999.9990Fixed decimal field input like dollars and centsPdFLD23 ; XX/XXX-XX#XXX DEFAULTVAL5The specld, the operation FLD25  CCCCCC SPACE BACKSPACE moves backward to the previous field in the formatted ,display. The rules are the same as for TAB. GDELETIX CHARACTER ALPHANUMERIC FIELD>TFLD26 $*XXXXXXXXXXXXXXXXXXXXXX&MANY CHARACTER ASCII FIELD WITH * FILLT0FLD27 E DELETE allows you to edit the current field on a character by Bcharacter basis. The action differs slightly depending onXVERTICALLY INDEXED LIST00FLD28 -nXVERTICALLY INDEXED LIST0HFLD29 :  NNNNNNNNN(Random stuffn whether "you are inserting or overstriking.CLINEFEED LINEFEED erases all the information in the current field.ME, can you guess the picture?H:FLD210< CCCCCCCMore random stuff to guess.:2FLD211> AAAAASome more quizNTER ENTER and RETURN are equivalent keys and indicate that the operatorLRETURN is finished filling out the current f stuff.28FLD212@0999What is this field's picture?82FLD213B #XWe end with an easy guess.2EXAMPL"A; pical commercial order form. When you6are finished examining this form type "ENTER" to exit.XACCNUM'_999-99999Either account number or customer information is requiredXHINV E@ 9999/99999A&INVOICE NUMBER IS REQUIRED INFORMATIONHfNAME _::XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXEnter customers namef*DATE G  99XAAAX99 11-JUL-36*ZADDR1  _XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX$Street address for shipping purposesZTADDR2 *_&fe>B @& fE@|Wy B |W, |W9|W; |WF|WG`oI_ W_ W_ YXXXXXXXXXXXXXXXXXXXXXX'City, town or RFD for shipping purposesT&ST1 C_AA NOT REQUIRED&(ZIP1 J#999_ Z_ @[_ x[_ |[_ \_ &^_  W_  W_  0X_ W_ HX_ Y_ ^_ V__  b_ 8bleft in the current field. If the :cursor is at the first position of the field the operation is illegal. MRight Arr99 NOT REQUIRED(XADDR3  _XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX#Street address for billing purposesXTADDR4 *_XXXow Move the cursor to the right in the current field. If the cursor >is at the right margin of the field, the operation is iXXXXXXXXXXXXXXXXXXX&City, town or RFD for billing purposesT&ST2 C_AA NOT REQUIRED&(ZIP2 J#99999 NOllegal. =The primary use is to reposition the cursor following the use of the left arrow.KUp Arrow Up Arrow and T REQUIRED(8CATNUM _9999991 TO 6 DIGIT CATALOG NUMBER84QUANT _9999QUANTITY (LESS THAN 9999)4FDESC Down Arrow are used to manipulate scrolled regionsMDown Arrow in forms that employ the feature. They request that the scro _//XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXFUNIT @_9999.99 TOTAL I_99999.99 GTlled (region be moved up or down respectively.DThis concludes the available help information. Type ENTER to returnOTALI_ 99999.99 LAST P Xto the original display.`"BYEHLPR,JTYPICAL ORDERFORMACCT. #>INV.C#NAMEBDATESHIPTO: STREET/CITYB STATE ZIPBILLTO: STREET /CITY B STATE ZIP CAT. # QTY. DESCRIPTION B UNIT TOTAL;ORDERATOTALH$KThe demonstration concludes with a tyVHy<  eL e  L   5 T(&ua&f&& W ы WWW0 ! .  Fm>Fm>e6 f n x    " FINIT.=FLOPEN$6FLCLOS W eQQe WWWы   B B5Bm =< < 6FSHOW6FCLRSH5FPUTl6FGCF5FPUTAL~6FPUTL6FGET5FGETAF5FGETAL5FRETN6FNDATA66FRETAL6FPFTZ6FOUTLNH6:&P+P*P-P,5 *5 ,v,v**,e&5+5*5-5,&FSTAT6FINLN5FIDATA5FSPON6FSPOFF6 -oE u5 F w? ?@ ?wfoEe0U@5*5,&P*P,IA!h ,f* dW-, W-, eN-**5 , c  @7 NBA 3\foEe0@ABCf !Cw   eAmJu AJ :AmJu  uJ!B *K e,/5 ,K e6 /6   d  .%7 pA Je #P4  2&f !JCw  @@AE w ^   w :C  C 6Au J& 5N Ru  5f    `  ʵʵ  De* f##N E @foEE4 09#   & 0eL  . _ n.V09   E u E e 8 6 3 +-  09  m Ee& 0e  E ewe_ b_ b_ b_  e_ ~W_ ~W_ >X_ NX_ $oV02-03HoEF 5 5 5 ^M wI READY 5 R   3@      e    3 # 6 4  wDB"C " wwjwwZ       %Pet L E B BԂ  7 & BHAuH  JuJ  Ԃc 0 Cm      ܇ قe K cBm7 AA- ,  5, A- 0   e > >WWQ 7 >`O7 4>*>>e7  *e*  , 5 , H*-W t    Q@ыC ʥee e@0A2B4C6f850u2468 ><\ C @m5 J50 w  yEU  r3@  le 8   ~   J #P l@>&   E4 7 ZK C5 4BD5 "5 $@ 5 @5 e u+u*u-u,&&e0E C> a & >) . D>  E +  0   e: . 0 D>$=   *4>HR\fpz9<)0[H[J[24B [J#5[K[B[24B[132C[[?3l[?3h#6[?5h[?5lDM ,r* *:, z+-|)O[j+Mz+PN*Q-R+S6+ -AP+BV+C+D,j+tt12  !~!!H!!N%$$>5P5w p  Eu= %UU"wPuMe @5 Aeue'u%$  4 b5 :ue 2: 5  Aej UU BeXPCeL eVe 0 BCe U   L Z  E  V 8Be$R    & 5*5% D   %P P  > .T5N @A- 5 B5&B@mBAmBu    U %    050 ,|:     d tR  u  ^ > Nc5u B  7[H[24B[132C[6n8[[c[? @ ɋ ;B  0 9 f e 0` 8 w  *%@mB   D 6 . L   w@0  ` Ce2`54 b  E@t0  t0 5 6U& t0 5NB& E% W @& >  2&@`  Z  0  jw `Ҕ      ,&@`  _ &5/5 8)m!NB< q   ' <B<9 Q f:  Vt-<%Am< .&D5@  $D  "K se   e 4w D4 %5 ] @ x t w C`        e L=l 6 < (    fe &4  5 U5@  eP    E Z5@ &; @ 0 ; p  " r b 5 : 4 w  @ 2 L=6  w    ҁ  $e• D`  E5@  w KmB3eC-4  wB6 % D-6L=66  h  wA@ɢDC   2w Z |l RR     80 C2 4UA8B 5@  ` ` X w B V f #N >B` e   C6#    e a  RD45@ /  j  &f  m  > me   5!6ȇU  0 e   ;| D4 T ND-65@  5   E  JE5`u-:   t    < 5@ & .2 &E  C` V ;w <” B  az 5@0!0:Aw  F5  @T憇.e B` P N D@ *  @ &B`   >;   ҋDV 0 5 mB`  x  `5A5  ѥ   %UU 0u  A ˥*  <0e L=  0  1 eB)@ B " Z e  @  >  P 5@  1457%; lL= B <  l  $1@ &B8  5<J;4h;C2 4 5+5õ@ ; $ t'0 ;BC m õJ f @ r  5  C@ t J l5C@  1e1 1  0 L"*r**>$n$"#"R#  0  ^E BVfP  %+!t-<%,%:,  <%|)#t-<. W W C@& !L=@0e Z; @2"e *5@  C@%,C@ &C@  wNte B ѥ. APBV1 2 UE U@ ; |&  L=e  l     E122A& `1e2a  Q$ A5 W z+W - W -5W -j+?  # JE  @f@ 5@ . E@   U  x 5 :?FDV-Ap/C/9/N/XEBa & & ̋•v ` !A[$%././0:UE xEU U `5E 00 4Am< U E .5   4  eыAm> e$ 0:7 Z7 H7 67 $7 7 7   AZa%z D:09  U:j -+ +- . Ѡ 7 7  7 7 7 7 7 p 7  rk: d:   5 5  $::C2  ^ 7 L7 :7 ( 7 7  7 "7  X5  5t-< 5 U 4:5  05  P @:w 5@5 f  | $ F5 : uew z%UU  U@ ~ r b   25@ L=6 6:w  P"5@  p5@ L=4%z+j+ 5 :&; *; j  H X: `w  d1 0 C    6 6f:5@  L:5@  62: 5@ : X d  e0 e0 ;= u- @e5 5 f@  <%  F  t-< f :w B> <t-<!e ` | w j B> < e ` b'& ffU R %`A1t%<@ e5/@e   H0 p0  @:eT  >` 0 <  <  < H: <G Bm< 5%5A<   f: \ & %b'@ BB<5 sU@ l5@  ff eZ<}   5E5 <e $ U5<e`  B<w/ d5 : @w f: 5J F F5 H l  e ~ &    b $B Ff&05 @ is shutting down NO HELP AVAILABLEALPHABETIC REQUIREDNUMERIC REQUIREDALPHANUMERIC REQUIREDSIGNED NUMERIC REQUIR C@X  wHLL-F-OUADDR error #1Д  whHLL-F-OUADDR error #2 R͇5 Kf7 fpAEDNON-DISPLAYABLE CHARACTERFULL FIELD REQUIREDINPUT REQUIREDF-INVALID FUNCTION CODEF-INVALID FIRST LINE TO DISPLAY FORMF-I 5  A  @%7 4  @ %   `&\&  f MPURE AREA TOO SMALLW-DATA TOO LONGF-GET ILLEGAL FOR DISPLAY ONLY FIELDF-ILLEGAL CALL TO FORM DRIVERF-NO FIELDS DEFINED FOR 6A  v  6N\e&f . 1fABAD5 a C%!eFORMF-UNDEFINED FIELD TERMINATORF-SPECIFIED FIELD NOT IN SCROLLED AREAF-INVALID CALL TO GET NAMED DATAF-INVALID FIELD SPECIF e B V  B\E CP   D a@ C`B `%ֆ C ӆBEІ7   %CICATIONF-ILLEGAL FILE SPECIFICATIONF-ERROR OPENING FORM LIBRARYF-FILE NOT FORM LIBRARYF-INVALID CHANNEL NUMBER SPECIFIEDF-F ‹  C B ‹ B 7      \ w& @\f,\ ,wN,\ORM LIBRARY IS NOT OPEN ON CHANNELF-ERROR READING FORM LIBRARYF-UNDEFINED FORMF-INVALID FORM DESCRIPTION&ff@ 6 %5*u,\\C*"D,&  EU  %   &f\ a@ $=*=7 5 =$ ~$*==7 h` C f Uf ON @@7 A=e  ! C DD DDC D@ 7  f   mw  ԥ 7 9 mn$w ^7$Zl P *2 R  2u7vwHLL-F-Not enough memory for impure area$wZ w :?AWW !T NmDʋ7 9ʕw $*8 ы צ&  e Nw Bw 6C 0 |57 7 7 wHLL-F-Argument list format errorwHLL-F-Wrong number of arguments for callwHLL-F-FINIT ca@P*$  @ B  W  @ W  Lw w $w w ll must precede form accessfff?0 =@C 6Ÿ2  7@=ȋ$ $ @C  C Cŗ* @ 60 *鈇U@$E@$UP2LJEP*LJw PŸ  B57 @ wHLL-F-Attempt to return value to expression55?e=?5@5@ef& f& &f&f &9 V PwHLL-F-Null arguments aren't allowedwHLL-F-Illegal type for argumentwddf&f&  AFwDw 9 F-Insufficient pool buffer spaceF-Attempt to free illegal buffer ARTS- ARTS-A-System  @0@Z@@@@A@@ w75 fe57 "A < ŜҔ  <A       C 5UA B C C  \7  &&f   REE 1 6 6(@@$@0 6 46ߋ*U@e 0 e ߋ*wU REF  \ \   \e  \7 * \ &  . & @  0, D  5E 7 B R ܶ    .  h $<   JDF  JDF % 6 @ CF%\%7 xw, \ V  ʕ  ݆?@ fTf& d &T @  bV &ff& #"  R 6f& JD@G&U %v\@7   f %&fA:  >U U@ & 戀e 6N:6 6  J5@ >W-: -   5  >#G3 4 567/8GGGGGGG 5  U@$E@$ f&7 ּ&C C%> @:  x ߇@: U@ :U @: |+ Ce 5@ N 53  v   B K툇爎F&&wx AI4w wFwһw& wT  R  8  : 3 (3e e 96  BV % : w\w\w\w\w\vwĿnwBfwFꈇ@R TNa B,f .  = %  <v<6 6      &7 `5`F5` = & &AH@ %u@  W 4eXAa 6W-: @ N105  ~&  T Pu/&P& = & B, :&)f@  5E"p&@@5  :W-: B J z 5:7 ܻ &BE&   1U e  e * <֋;weBa&7 Xf@  5  !  ߋ* f5  Jw f@ @ f&  @@@u@: 1 EU@$E@$ v 5 X7 B  $B E5 5C @ %$D ` ` D@ B \7 >  7 2CBf @ E  E `7  :# J D .# ,  P @a  e   & 7   @5e  &  @  @ CaB a@ CaB a   C B 5CA # AZa"z @# & eD`09.: R L E5`FfaC`B \C %     @ f&\    \B` 7 & AR@5 E U  U&)f@ 5EB @  ve  e7 Q  :@Aa." 09A Z az     ѕ NONAME& &@ 6  & &&f@x \ :wu B!E zW w (w >wwWWWWWWg0B5BmwlD ! e  w e  & eJe e & eJ.!TBD*2DwE  eq  *r 6rw .x u r ^& Dr)&&\   5@5@ ASAC0S0SJDSSSSJDAJDAJDAJDA$SpA:SJDAWoWwBBmʵ 5Jww 6ʵ C,@*"W% j *WWf, އ J DSJDDSxSf&\  \& \\r1@\[?\ e  ?U?*@ڪA& & & & *WC," @,ʵwD ` >D ޵.5 *. e,Cנ"נננe& D&&D&& @% CS  IA e e@ e& & & & & D ננננ BzY[Y Z(ZZYY !f. w& *e*5 ,&&e #@  @6  CHT6 6 #?%-0 @ ׳/5 , h 7 BJDB7 BREB 7 BCB7 BEB & *w w$ f&& @׳@f& JDATACTf&f& JDTJDAJDAJDAJDAJDAAUA CT   \&Uf& !& Β #WW  e5 .Jf ڇ#%  $  \ e\>:L]L?ƪ@D e C_  fW & @&&&& UJD"AUpAUCAUJDACAACUAU҃!& Β`# e p `e e e  W 7 ZBB JDUe\\;@\ \N @   =@f&ysE[\pCf&f&\% a @.w  *> ,e @*7 BRFB e . * f7 pABRFB J7 pABGB , ,   D& &&@ A.VD& && 6  A CVEAVVEVAVVVJDVJDAJDAJDAJDAJDrV @ 7 ʨBEB. 7 BGB &UN RK BBWBm <&! 2Bmʵ -ʵʵ e\ \S\ e& @ AVVVe\Wf& \:יc&>X4%]@ f,  Bm5 5  &f&&6Bm5fE@  2  бC  B e@&  Aaa C C Aa@ aA B   C A   A @ 5     e     ॴu  Wu &C d w)zbff\fccbc W    W WwWHWHWEWpf@ @5 :< f.   U   UJ,D "  K)BBBmE \xjvC: (ewL ' <@  e  T  P  @&`5 P |  w W `$W @&5eA( @ KebU - f&Wl @CB   T fP% 8  w W W w4  w & u *5>5 RW>5     A"e (     E e@6Bm55 & ee   e e &B  Bm$   FJeBBBmf@ @ע ˋ> "C ˋ/CӤˋӤפ ר f tC = + ww6 % @ Rw>   *zB^N^6`^_a `BaBBm ` WX WR nwW> w? f $ $wC Ww 6ע,4 - *& ע ˋע,K  JWBW?!hf Уe&&  eeҤ%  פ   ҥ   B WwW = R5 (ע w6  R0,1 WW & פ % &  GDAT+ WW! f.f 4 TB) Bע"ע'ΔΤ׬  2   F    e  j   wDwפ ׬BC V W1 AmW$ 0 W Ww @ @R   ע ע,ˋe ҝW W $C" Cm  "KAmw$ (Cנננ  5 $ WC"  " Cm &f BBBc55 W Շ x W ʇ f* , f ,WW   נ 2%& B5  E5gW WBBme  5 *,W W СWe f .BQWWW BOBBm u '( B @B W 9ʵ ʵU ڞ 3 J J :wh 8&    E% Bm e fe  fe  fe  fN ve f.  4 u  %18@ BB.WWfы f & D  E% `u`W1w  wؠ BB qnC lC CmR cR `]fe   *5 ,WQBe  wl:DJ Ef&ɋWWU f*WWUU5! BJ E..   N  fe  f. Z   11e ewfv   WWC!#@`e  J   U5~h&59 xD ,f C @& ',5 ,3 5 3 E` `Ble C" 5 *W%W f@, t 5  "W WW wuFBBW.5. e, V&&& CJ 1 >&&Be eeҔ fA>5  Be em   `eJ%w@ %w,&f& ږ+-N 0 * 4) R5 RAC w " W-f 5 5 wƫW fAN@@5 @m 5 , U* , W-*5 *, A# 5"N5N Dw u 0  Rwj D# "  @B"""" @ 5 "" $ @B"""H @ 5 "H$ ']cC`Ҕ  0u`u`  7@ @ ECCm  H B HB u`u`#@`" @  WwPEvvD  u5 wʵ 4 3Bʵ u,u*"B  B *u,B N  * u,W" *!7 |BE#*-, *7 ^BA#H# *zW|Z|ZZWWvXDZWW2XJX ɥA- w l 5 W BW w r z u7 H"AB &    ܃ ʵ ,,"42 > 2 8 6 & m, 5 W W 6 ,u, 4 4< ѥw  <ѥ <   D % ʵ` ʵʵ ``D ʵ !"  *7 fB"AB. *7 N<@@  @#W @, 5:f N]v WfU a@, 4EBpAB. @ 6#5JeӤ   ## @Jme5 Bʵ+@C >U  >U ʵ ,*7 BBAB, ,5 *  7 f&C,*E&7    5@  4  J,UBʵ@ C 2   B L&C " `E 5<5 <5X5Z5V@%X   tZV eKf f>5@ Q& R "   fA> Be @ҁe U>5*\@a"H,5 >u2  xA2w>Bʵ2 TWW @,   | T wE  & &3E $%( B "e ``BNF 4PB    @ЕЕ5 N5555 ,f@5  W     u ' "  '11e @ w jE \90$& \#u < : ѕ@ נ נ\ נuHuJ5 L u2 @a W     5 < u2 uTA2F w\ 5 >u(נ  ѐ B& & 4 ⧃,5$% $ ( 52 tuRA2W- b | wfw  B jw :CHC@@w USED, w FREE wڟ  5  > e H X H? < $% J2  e  (  5, w . w "5   | wT ƠwvOLD w$ w\NEW  @  ˵ ˵s u:Cѐѐ@ 7wJ& w N Ku & >& % -ѕѕ  -ѕp wH>>  w(  W #w   l `O  s  ѕ@ we< C "e & C w>ѕf eCm H  # zdw5H& L   ‹W  "   WW6 Hʂ ǂ    A Zaz 7 & AJBJ Nu HH WW vv:<Ve n-- Wf<}:eeA ؠ"K CC 0 Cm      چ ؇e"cK`b  &  5 L& Au "H2  K s  *w Ҟ  L wԝ5 Lwԝ7 B@a  z}wDFILEB B > 8 3& B- h6f @ "UWB‹BBm  NAME-- @  $fNONAMEAe `O  B1IdBlj  rrD A Wwr @`5 ȕ5 (wҩ BW @`B u<5 >5 :  ʵ  Twe am (W W WK WE 2W  ѕ.09wj& j5 >  ld `E Ę  פ ӋH!2 $  ) &2!#+   LW-LBrLWW %wW $w D AWA  lѕ j<3d," ѕ@ /    LrL BBBmW,rB܃  *D, B D,C* 5 u<u>wwwwPww}ĥeqѕ@ t  'ѕѕ`ѕB  LI@ЕЕ5 NB555f 5 ʵ,  5 P&N P  F   B 5 \  @   H% B5 Bm , WW7 Bfff)& (% &, 25 < & & ѕ: ~ѕ: t @Bm  ʵ$ ʵ% ʵ (w\>fAW W    E Z@Ee0X @EeH 6-JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC-~XÕ/ eѐ   wD7 ATH :ʋ .5 "Bh& & #CaNa   6`   <  D @    %7 *AR @H1- X Ni& " Ca T& `%: 6 : bC  A DN p  6`"Da 6  @7 hu-HJCCHE <B N&f&oEE eYF &ċw  w|? @ x& *֋ u5  wb :DDAB``a bu Ni"Aa ` ` a7 L"C: <D̢  `$     ,w. AT LINE fTf& 5 * V&Tw w STOP wARG~MSP}NRC|ENL{ATLz  @ U@0,  J & , n : ULNySYNxRESwSUBvIDMuVCUtCOOsSTLrTICqFADpTLToPTBnCCPmIEFlCIEkBSOjCNOiICNhCAOgIIDfFNFeRPec8cpjP(d,drdnjcccceedgdc+-*/^()\&;,<==<>==><>><<>="':#[]IF END #LET IF GO TOLdIFScPRUbETCaNSM`STL_UFN^INS]SOB\SSO[TMGZCVOYRWGXFSVWFWNVNWFUIIMTOODSBDRRUACQLTLPIOV ON FOR INPUT FOR OUTPUTFOR TO NEXT THEN STEP GOSUB RETURNINPUT LINPUT PRINT USING REMDEF READ DATA CALL OBRTNEIEMISELFOVKFUNJDV0INGSHBLGGEERFNEREIFLDFTS\XbXhXnXtXzXXXXXXXXXXXXXXXXXXXXXXXFNPISYS(RCTRLOABORT(TTYSET(CTRLCRCTRLCRND(RNDSIN(COS(SQR(ATN(EXP(LOG(LOG10(ABS(INT(SGN(TAB(BIN(OCT(CHR$(Y YYYY"Y(Y.Y4Y:Y@YFYLYRYXY^YdYjYpYvY|YYYYYYYYYYYYLEN(ASC(POS(SEG$(VAL(TRM$(DAT$CLK$STR$(OPEN CLOSE HAIN VERLAY AS FILE ILL NAME RECORDSIZE FILESIZE MODE DOUBLE BUF LINE DIM COMMON RANDOMIZERESTORE RESET STOPENDNSAVEENAMEEWEPLACEELUBISTNHUNNHLISTRUNA WW  QWWW BBBm (%eeB   VEOMPILEPPENDLDCRLEARLENGTHBYEESEQפ ׬  פ G  # 0 - * ce<ece:`eҢ :  <  : %5,5 *_ XYU@T ` L?  <׌3 9  EW ť` ׌ pLWJ pF Dkf*f,W> p: Dk Rr.  #( *!C,   B lc_NW W W W    U? `e:,}$Eq$zR&pH ~Ew@  Ae E@ XCepueu5(55@ ?"  ee __ 8r   & Ҏ le  To rlȋ _ 8r  ` r fHP0H%5  fe & (% EeFw\pwe  _ l_ LrB le<5 : tf: l_*  _ Lr Dk rl_ jHBa NOT ENOUGH MEMORY FOR BASICBASIC-11/RT-11 oqqqqqq l_ jHBa l_TwRfx& ΋?A<I N8rq (r-w^rff& ΋ Y NU% M% D# C   D eRy^rrqyrrq'yrsq/ysLsr8yNs`srrybssqIywp NONAME w^ bs`rrrsNsXsssss$t^tttttuZvvv ww(w>w"VVWS&URssrrOyss rUys"t r[y$t\tray^ttrgyttrmyttrsyttrzyturyuXvryZvvryvvryvw rR p pW @,   a`&*:fR5 R R5,_P5 , G y ww"ryw&w$ry(wwRw(rOPTIONAL FUNCTIONS (ALL, NONE, OR INDIVIDUAL)? TAB? SYS? RCTRLO? ABORT? TTYSET?,W  , PW-, P Rr_ ,H_  Rr , W-, XJ_ XJ_P W-,W @,  CTRLC & RCTRLC? RND? ABS? SGN? BIN? OCT? LEN? ASC? CHR$? POS? SEG$? VAL? TRM$? STR$? PI? INT? DAT$? CLK$?   5P Rr_5 G_  Rrf,& N&# _^M  % Lr@eD B dbB bE  B     e_ Lr rlE*_ Lr& * ,@ *_ & <   0  , Rr_ & <     0  ` , Rr_ 8r  ,_,@~@#'U(J62+- xK2K7*}<7:7b L< * 8r  ,_  RrB lp,_ p\WZ pVWT pP Dk Rr *@@,-7H I J K L