ߋtv ?BOOT-F-No boot on volume w ,w 0 w: vwm7 Nw ! *  % - (?a ? 0a w?a mz ?v t  4%  b n lwTm@ < `V0  8 -$ `     w` @mPfm@"m47 Be B!  w jw  ( m  DT??? WATSBOX SIMUDECRT11A  e  @ `D fHT fHT HT `HTHT  HT HT HTpHT% HL xHT xHT5 &}@HT__4!>4!T@CHANNEL`Tp` p TRANSMISSION OVERRUN 6!!     f  CHANNEL, <, T< RECOGNITIONbT vbFAILUREv 6!!CHANNEL TIMEOUT 6 ! !*CHANNEL6*F6 ZFSYNTAX lZERRORzl z6!!55 wPw @a Aa  0 wBwDBBa@a @w w@a AapUw@a55ww@aAa  w@aAa  w@aAa0 b w@aAa0   _Dm74%@?$wLwNE@pE@tߋprEDm%@wwE@pE@tߋtvwU$w@a@mAa w@a@mAaHw@a@mHw@a w@Aa w}wv@aAawd@aAa2 wL Ew@Dm=w4DmLw(@a w%@ww&wff@a wff w w @0"AaBae*!eww @AaBaSe, ewZ@a7E Dm7">@BDF$ w( 4l ll-..&%@ -4lwwE@pE@tߋtv A@ w@a wwH@8@a7 bdede \wv | p, |8,|`FTF!F`T!FZnr09|rAZ-  f!!rAZr09  f(6(!(B6!( P ZfhZvh!hv!hZ`r09p!!`r09|!!`r09h , <6BJB6PBp \P<h\|xhx  f f  <!! Aa A Ba AaBa J  Jb Jb J J J% J CR  fJ"  TJ"  BJ"  0J"  J"  J"  J"  J"  J"  J"  Aa B @E ` Ba'@ 6@7L>I% * ~ 7 6BUS ERROR?ILLEGAL INSTRUCTION? " (JfE E %  vf^ % ^@_ feEB 1 J1Al@&f`@`@1C @` ll JJrlfff  @U@ f&fBa C   @ @_@ |f&feB @ Bf&feB  @e  ,@ f   eB"Ae  @ @  s- @ fEa eC )  l fB : @ >eP P f s  e   &   AB" @ 6  &  B L R \ef  ss E u  E e  A@e  E   !'@)CU!  E $(2Cg $:((g$'2( U@$ , Cg ( g('`@(@@ p @   Aa@   AaCBa  C @  C @ C @ C @ e0 x   AaBB`Ca K @ ` '@ '@ 54 '@ 5 Pሇ'@ 5 鈡 B    B K &f7 p t7 7 7 `7e7e7e$7@e|:78e|270e*0e$024e>46@p @U&f ы e m% E@ D 8 . U E% `?Z T R-RL DU@tew ` ,ߟ*v $-"  E@t7  $۶fU@p  HU2E ( &-&  -7 Ew `&rE j% wH% w& H  \%v  ~ ^`% P?L?F > >-<8 0e ; n . 7( w,& 4   6  &w 70&11w  7w "w tĝ$& < 7 -WBwh'i'w @ ؀^C Dp A  &DCc N w w X P w < ' 7< ( &w @ \w wZw w j fw   w  7 wvwjw !2 %12E e0& wj2 1 Z =w p w d w \ w T w Lw v 7y w h7r w `7l 7g 11 H w7L   ww (b " ww w A B` % w~ 7wtwj E 7N&b E tN&R N&Kw J-%zw  =w >d\7 N&=w re0w ,w %2@w k0e=w @w wtJ S=w  w ~ w RAe0w ,w w .- 7N&  w ^n?w <7 `w z7j7e7|    w J%0 %7E `  12 W ֆ> m.7, y*++&++'2-+(++)b,,,,-((()))>*\*)$(j'N'7D  w*77%| tnw %b=w 0Vw ( w w >ww> 0 ( 0$ 7$mw "w $\/%w   22  L e^&  !l&B !l&=L !64^&4 p& 22!4^&&4 p& %h w 6 X @w @ % % 6w  .ww  D  &C@AEPA&fw w /w w Tw 4  ` E `   w w 7UvEw l7NE PF  pp& w ^׭& Uldb7w FLŝDŝ@Ef P$ wt!^& w w 11w @e%ĕt^&7| p&p&w Bw .`e` w ;w :ĝD^&w Zw,<&f&f  d4^&&F^& vt7j7jfw Z5NH@>Ѕ  <&^& !%p &e N @ e0w &  N& E%~ %% %?7υE {` w   ۇw .ח/ w r ׭0ϕ^w ZUw R0&wώ7B ZV  7,N&("N&-< 0w, 7$ %!  %??222w %Jw J7w ^ e0w ,w w  Cå å$ נA   e` 1  Ëנe ee e ѐ  @( ODT V01-02 BE *;/\ $G _<^,OWEBP@>SRC-FI!XASPMCFRB3L4 $)d |Aѕ ѕ &%#@%  -ѕ %  !Ee0ᐡ J EC C @ eC -ѕ 4 $) 7  3 %  e0 3 3  6!   ɕ* @w<Dw*$w(w e e "7 @A_Ww  7  C A @  C 77 w w zw d    E  E   `@ a D  A @ e@ 7FwDw $w 426E5 U  7w 7 w @ 7w7 w w E!5 U  7w7 w @ EU 7w7 w pw Z ~| %vw PE 55@ 5@5 @ 78w68w &f& 5 .TITLE WATSQ 6-MAR-78 (C) DIALOG SYSTEMS, INC. ; ; QUEUE DEFINITIONS FOR WATSBOX SIMULATOR ; QBLK ;QUEUE BLOCK OFFSETS VBLK ;VECTOR AREA OFFSETS ; ; CPU DISPATCHER QUEUE LIST ; DQUE CP, QS.RDY, 3, CPINIT,0 DQUE SUBW, QS.CLR, 1 DQUE INPUTQ, QS.CLR, 1 DQUE PRI, QS.RDY, 2 SETVEC V.DLST,DQN ;SET START OF CPU DISPATCH LIST ; ; NON-CPU QUEUES ; QUEUE SPND ;FOR DEAD TASKS .END R#<"<#|<'Z."#Z8.ZB8ZPBB Z`P# Zn`~ ZP| Z|t6 Z ZZNLZ.ODZBEXZ|ZZZ"ANZ#6Z|"8ZJ0OKZ@0#ZZ|J8ZrXSTZhX#~Z|r8ZGOZ#Z|8ZINZ#Z|8ZT?? Z|8Z#ZZ~ZZ #f, #Z68ZD6#6VfPD#6ZZ8ZhZ#Z fth#ZZ~8Z~#~ f#~Z8Z#Vf#Z  Z# f#Z  Z# f #Z8Z$Z|.8Z8.Z|B8ZLBZVLX%ZbVZnbN Z|n& Z|#|0 f#|ZZF Zv  Z ZNZ ZZF Zv  Z( Z(NZ6(ZD6ZF PZv ^ Zxl ZxlNZxZZF Zv  Z ZNZZZF Zv  Z  Z NZ&  Z4 & ZF @ Zv N  Zh \  Zh \ NZv h Z v ZF Zv  Z  Z NZ Z ZF Zv  Z  Z NZ  Z$  # f0 $ # ZD : #fD : #ZT F #F Df` T #F Zt j #ft j #Z v #v f #v Z #f #Z B Z & Z # f # Z  Z Zx  Z   Z,  Z, NZ: , #, fF : #, ZT F ~ Z b  Zv l #fv l #Z x #x Df #x Z #f #Z # f # Z #f #Z B Z & Z Z # <f  # Z. $ #f. $ #~> 0 T ~R > TCHANNEL~^ R ~t ^ T CARD ~ t TNUMBER ~ TREQUEST~ T ~ Z #f #~ T ~ TCHANNEL~ ~ T CARD ~"  TNUMBER ~0 " f0 ~< 0 b ~J < f0 ~V J b~d V f0 ~p d b~~ p f0 ~ ~ b~ f0 ~ b~ f0 ~ b~ f0 ~ b~ f0 ~ b~ T ~ Z#f#~. T ~B.TCHANNEL~NB~^NT ~p^TDIGIT~~pT ~~TREQUEST~T ~Z#f#~T ~TCHANNEL~~T DIAL~~T ~&Z:0#f:0#~J<T ~^JTCHANNEL~j^~jT DONE ~Z#f#~T ~TCHANNEL~~T ~T UNEXPECTED ~ TRESPONSE~ ~$T ~.$ZB8#fB8#~RDT ~fRTCHANNEL~rf~rT ~T TRANSMISSION~T ~TOVERRUN~T ~Z#f#Z ZF Z Z,"Z,8~:,T ~N:TCHANNEL~ZN~jZT ~jT DISABLED ~Z#f#~T ~TCHANNEL~~T ~T RECOGNITION~T ~TFAILURE~&T ~0&ZD:#fD:#~TFT ~hTTCHANNEL~th~tT ~TTIMEOUT~T ~Z#f#~T ~TCHANNEL~~T ~TSYNTAX ~*TERROR~8*T ~B8ZVL#fVL#<<Xfdrp~Pl`^ ^*<NCa  C` D= c 쀃 %)DmLEDeC ,e & Ε,e  e,e @ T @ F ߋ^ .DmE3p@ @a55ww@aAa  w@aAa  w@aAa0 b w@aAa0   _Dm74%@?$wLwNE@pE@tߋprEDm%@wwE@pE@tߋtvwU$w@a@mAa w@a@mAaHw@a@mHw@a w@Aa w}wv@aAawd@aAa2 wL Ew@Dm=w4DmLw(@a w%@ww&wffx@a wffx w w @0"AaBae*!eww @AaBaSe, ewZ@a7E Dm7" @"w( > >>-..&%@ ->wwE@pE@tߋtv A@ w@a wwH@8@a7 bdede \wvZNZBZNZ NZ2Z&#zf2&#Z,@D09ZNDAZZb\-Zj ZxZ8Z^Z#zf#ZDAZZ`D09Z ZZ`8ZrZ#zf#Z" Z`,8Z:,ZH:#:zfTH#:Z,2D09ZpbBZ~p#pzf~#pZ2D09ZNZZ#zf#Z2D09Z:^ZZZZZ"B Z."Z:.NZJ:ZVJ#rZ`8Zp`Zz8ZzZ Z ZZ#f# Aa A Ba AaBa J  Jb Jb J J J% J CR  fJ"  TJ"  BJ"  0J"  J"  J"  J"  J"  J"  J"  Aa B @E ` Ba'@ @7L% * ~ 7 BUS ERROR?ILLEGAL INSTRUCTION?""""R !`!!!x fE E %  v8^ % 0@_ feEB 1 J1Al@&f`@`@1C @` ll JJrlffft   @U@ f&fBa C   @ @_@ |f&feB @ Bf&feB  @e  ,@ f   eB"Ae  @ @  s- @ fEa eC )  l fB : @ >eP P "f sR# e  " &  Z#AB" @ 6  &  B L R \ef  ss E u  E e  A@e  E  #f'@)CU$  E $(2Cg $:((g$'2( U@$ , Cg ( g('`@(@@ p @   Aa@   AaCBa  C @  C @ C @ C @ e0 x   AaBB`Ca K @ ` '@ '@ 54 '@ 5 Pሇ'@ 5 鈡 B    B K &f7 p t7 7 7 `7e7e7e$7@e|:78e|270e*0e$024e>46@p nU&f ы e Fm% E@ D 8 . U E% `?Z T R-RL DU@tew ` ,ߟ*v $-"  E@t7  RضfU@p > HU2E ( &-&  -7 Ew `&rE j% wH% w& H  \%v  ~ ^`% P?L?F > >-<8 0e ;  . 7( w,) b   6  )w 7)44w  7w "w tĝ$& < 7 0WBw:*;*w @:Հ^C Dp A  &DCc N w w X P w < ' 7< ( &w @ \w wZw w j fw   w  7 wvwjw 4 %5E e) wj4 4 Z =w p w d w \ w T w Lw v 7y w h7r w `7l 7g 44 H w7L   ww (b " ww w A B` % w~ 7wtwj E 7 )b E t )R  )Kw J-%zw  =w >d\7  )=w re0w ,w %2@w k0e=w @w wtJ S=w  w ~ w RAe0w ,w w .- 7 )  w ^n?w <7 `w z7j7e7|    w J%0 %7E `  14 W ֆ> m.7, y----^.*0n.t+j..+4//|/.`0++++,,-.-,*<* *7D  w*77%| tnw %b=w 0Vw ( w w >ww> 0 ( 0$ 7$mw "w $\/%w   5  L e0)  !>)B !>)=L !640)4 B) 5!40)T)4 B) %h w 6 X @w @ % % 6w  .ww  D  &C@AEPA&fw w /w w Tw 4  ` E `   w w 7UvEw l7NE PF  pB) w ^׭& Uldb7w FLŝDŝ@Ef P$ wt!0) w w 44w @e%ĕt0)7| B)B)w Bw .`e` w ;w :ĝD0)w Zw,)f&f  d40)T)F0) 77w 5|vnlͅ  <T)0) !%p &e N @ e0w &   ) E%~ %% %?7̅E {` w   ۇw .ח/ w r ׭^̕^w ZUw R)w̎7B ZV  7, )(" )-< 0w, 7$ %!  %??444w %Jw J7w ^ e0w ,w w  Cå å$ נA   e` 4  Ëנe ee e ѐ  @( ODT V01-02 BE *;/\ $G _<^,OWEBP@>SRC-FI!XASPMCFRB:L4 $)d Aѕ ѕ &%#@%  -ѕ %  !Ee0ᐡ J EC C @ eC -ѕ 4 $) 7  : %  e0 : :  6!   ɕ*&@  77    l *fh6  (ILL RADIX?7 www  !p 7 9 U@$    <  d6  N< @ 0.7 " 7 w U@$6 v 7 7 ? ? 7 :Е0  97 ȥ ȥ ȥ-ȥ+ȥwwlȥ0"ȥ9 l RY b _w2bZ 0H @JF j: W .:<4 ȥ0ȥ9( `&wJD%:0D!&f@ `  1 %% ee  ρ  ȥ 7 8&wd Ep7 fLw XbV7 L2 . 7@<>27 w7)$&ȥ 7 9ȥȥ Х 6 & -: 3:9@ ?  *UM@ABCDEH  @w<Dw*$w(w e e "7 @A_Ww  7  C A @  C 77 w w zw d    E  E   `@ a D  A @ e@ 7FwDw $w 426E5 U  7w 7 w @ 7w7 w w E!5 U  7w7 w @ EU 7w7 w pw Z ~| %vw PE 55@ 5@5 @ 78w68w &f& "<696 .TITLE WATSIM 1-APR-78 (C) DIALOG SYSTEMS, INC. ; ; WATSBOX SIMULATOR PROGRAM FOR DIALOG'S ILLINOIS SYSTEM ; ;WRITTEN BY RICK SMITH, 6-MAR-78 .REPT 0 THIS PROGRAM PROVIDES A FEW FUNCTIONS FOR SIMULATING AN "ACTION WATSBOX" AND FOR PERFORMING OTHER FUNCTIONAL TESTS OF THE ILLINOIS SYSTEM. THIS PROGRAM CAN SEND ANY OF THE VALID COMMANDS TO THE SPEECH TERMINAL AND TYPE OUT THE RESPONSES ON THE TERMINAL FOR UP TO EIGHT CHANNELS SIMULTANEOUSLY. THIS PROGRAM WILL ALSO PROCESS AN ENTIRE SIMULATED TELEPHONE TRANSACTION ON UP TO EIGHT CHANNELS SIMULTANEOUSLY. COMMAND SYNTAX: ALL COMMANDS CONSIST OF A NUMBER FOLLOWED BY THE TWO LETTER COMMAND. IF THE NUMBER IS OMITTED, THE NUMBER ZERO IS ASSUMED. IN THE FOLLOWING COMMANDS, THE SYMBOL "#" MEANS THAT THE COMMAND EXPECTS A "CHANNEL NUMBER" BETWEEN 1 AND 8, AND THE SYMBOL "+" MEANS THAT THE COMMAND EXPECTS A NUMBER THAT DOESN'T HAVE TO BE A VALID CHANNEL NUMBER. COMMANDS: +NL - SETS THE NUMBER OF DIGITS IN A PHONE NUMBER GIVEN BY THE CALLER. EX - EXIT TO RT-11 MONITOR AFTER CLEANING EVERYTHING UP. NOTE THAT YOU MIGHT CRASH THE MONITOR IF YOU TRY TO EXIT BY USING ^C #AN - SEND A "0" COMMAND TO THE SPEECH TERMINAL FOR CHANNEL "#" #OK - SEND A "1" COMMAND TO THE SPEECH TERMINAL FOR CHANNEL "#". THE CHANNEL MUST HAVE PROCESSED AN "AN" COMMAND BEFORE THE "OK" COMMAND IS GIVEN. #ST - SEND A "2" COMMAND TO THE SPEECH TERMINAL FOR CHANNEL "#". THIS TERMINATES AN "OK" COMMAND AND ALSO SERVES AS A GENERAL "RESET" INSTRUCTION FOR A CHANNEL. #GO - PERFORM A COMPLETE PHONE TRANSACTION ON CHANNEL "#". IT COLLECTS A CARD NUMBER, APPROVES IT, AND THEN COLLECTS THE NUMBER OF DIGITS SET BY THE MOST RECENT "NL" COMMAND. .ENDR ; ; IMPURE AREA FOR "WATSIM" TASKS ; .MACRO .DSECT XX .IIF B,, $DSECT=0 .IIF NB, $DSECT=XX .ENDM .DSECT .MACRO .DS NM,LN NM = $DSECT .IIF B, $DSECT=$DSECT+2 .IIF NB, $DSECT=$DSECT+LN .ENDM .DS .DSECT .DS CHAN ;CHANNEL NUMBER .DS XCHAN ;PHYSICAL CHANNEL NUMBER .DS NC ;NUMBER FROM PARCER .DS LC ;LETTERS FROM PARCER .DS DIGIT ;MOST RECENT RESPONSE FROM SPEECH TERMINAL .DS TEMP1 ;SCRATCH WORD .IRPC X,01234567 ;FOR 8-DIGIT CARD NUMBER .DS DIG'X ;DIGIT X OF CARD NUMBER .ENDR .DS IMPSZ, 0 ;LENGTH OF IMPURE AREA ; ; GLOBAL IMPURE VARIABLES ; NUMLIS:: .WORD 10000. ;DEFAULT NUMBER OF DIGITS LISTENED TO ;FOR PHONE NUMBER GLC: .WORD 0 ;RECIEVES "LC" FROM "IBAKBD" GNC: .WORD 0 ;RECIEVES "NC" FORM "IBAKBD" .GLOBL PARCEQ,PARCSZ ;PARCER SYMBOLS .GLOBL NCLC ;PARCER BUFFER ; ; MACRO FOR STARTING A TASK IF COMMAND WANTS TO ; ; TAKES AS A PARAMETER THE TWO-LETTER COMMAND NAME. ; IT ASSUMES THAT "NC" STORES THE NAME OF THE TASK TO BE STARTED ; (I.E. THE CHANNEL NUMBER) AND THAT THE STARTING ADDRESS OF THE ; STATE TABLE FOR THE TASK IS THE COMMAND NAME PREFIXED TO THE ; NAME "RUN" (I.E. THE COMMAND "AN" STARTS A TASK AT "ANRUN"). ; .MACRO TCMD NM S ,IFNEI,<"NM,LC>,NM'NO ;SKIP IF NAME DOESN'T MATCH S ,INITPR, ;ELSE START THE TASK S ,,,GETCM1 ;AND LOOP NM'NO: ;BRANCH HERE IF NAME DOESN'T MATCH .ENDM TCMD ;;;;;;;;;;;;;;;; ; ; PRIMARY STATE TABLE FOR "WATSIM" ; ;;;;;;;;;;;;;;;; START WATSIM,IMPSZ WATSIM: ;START IT ALL HERE S ,COINIT,<4096.> ;INITIALIZE STORAGE S ,BBUG ; S ,SET,<"IN,TEMP1> ;SET NAME OF INPUT TASK ; S ,INITPR, ;START INPUT TASK S ,ACSSET ;TURN ON SIMULATOR ;INITIATE CHANNEL TASKS S ,SET,<8.,TEMP1> ;GET NUMBER OF TASKS WIL: S ,INITPR, ;START A TASK S ,SUBI,<1,TEMP1> ;GET NEXT TASK NAME S ,IFNEI,<0,TEMP1>,WIL ;LOOP TILL ALL ARE STARTED ; ; INTERPRETER INPUT LOOP ; GETCMD: ;READ COMMANDS FROM THE TERMINAL GETCM1: S ,IBAKBD, ;READ FROM TERMINAL S ,MOVEWW, ;COPY RESULT TO IMPURE AREA S ,MOVEWW, ;COPY RESULT TO IMPURE AREA ;CHECK NON-CHANNEL COMMANDS S ,IFEQI,<"NL,LC>,DONL ;CHECK FOR "NL" COMMAND S ,IFEQI,<"OD,LC>,DOOD ;CHECK FOR "OD" COMMAND S ,IFEQI,<"EX,LC>,DOEX ;CHECK FOR "EX" COMMAND S ,IFEQI,<0,LC>,GETCMD ;SKIP IF NULL COMMAND ;CHECK THE CHANNEL TASK COMMANDS S ,IFGTI,<1.,NC>,CMDERR ;GREATER THAN ZERO S ,IFLTI,<8.,NC>,CMDERR ;LESS THAN NINE TCMD AN ;"ANSWER" COMMAND TCMD OK ;"OK CARD NUMBER" COMMAND TCMD ST ;"STOP" COMMAND TCMD GO ;"GO THRU WHOLE THING" COMMAND TCMD IN ;"INITIALIZE" A CHANNEL'S IMPURE AREA CMDERR: ;ERROR IN COMMAND S ,ASCIIC,<4,"??,5015> ;PRINT "??" GOTO GETCMD .SBTTL COMMAND PROCESSOR ROUTINES ; ; CHANNEL COMMANDS ; ; THESE COMMANDS ARE EXECUTED BY CHANNEL TASKS CREATED BY THE ; "TCMD" MACRO WHEN THE COMMAND IS INTERPRETED. SINCE MANY TASKS ; CAN EXECUTE IN PARALLEL, THESE COMMANDS TO NOT HAVE TO FINISH BEFORE ; THE INTERPRETER STARTS PROCESSING THE NEXT TYPED COMMAND. NOTE ; THAT ONLY ONE COMMAND CAN BE ACTIVE ON A GIVEN CHANNEL AT A ; TIME. A SECOND COMMAND ABORTS ANY PREVIOUSLY ACTIVE COMMAND ; ON A CHANNEL. ; INRUN: ;INITIALIZE A CHANNEL'S IMPURE AREA S ,TASKID, ;GET CHANNEL NUMBER S ,MOVE, ;COPY THE CHANNEL NUMBER S ,SUBI,<1,XCHAN> ;MAKE PHYSICAL CHANNEL NUMBER CWAIT: ;CHANNEL WAIT -- JUST WATCH FOR UNEXPECTED RESPONSES S ,ASRECV, ;WAIT FOR A RESPONSE CALL PRUXR ;PRINT MSG IF ONE APPEARS GOTO CWAIT ;AND LOOP ANRUN: ;GIVE A COMMAND "0" AND COLLECT THE RESPONSE CALL ANEXE ;CALL THE SUBROUTINE GOTO CWAIT ;AND GO INTO TWINKIE ZONE OKRUN: ;GIVE A COMMAND "1" AND COLLECT THE RESPONSE CALL OKEXE ;CALL THE SUBROUTINE GOTO CWAIT ;AND THEN SUSPEND STRUN: ;GIVE A COMMAND "2" AND RESET THE CHANNEL CALL STEXE ;CALL THE SUBROUTINE GOTO CWAIT ;AND SUSPEND SELF GORUN: ;DO THE WHOLE SHEBANG AND THEN SUSPEND SELF CALL ANEXE S ,IFLTI,<10.,DIGIT>,GORX ;SKIP OUT ON ERROR CALL OKEXE S ,IFLTI,<10.,DIGIT>,GORX ;SKIP OUT ON ERROR CALL STEXE GORX: GOTO CWAIT ; ; NON-CHANNEL COMMANDS ; ; THESE COMMANDS ARE ENTERED DIRECTLY FROM THE INTERPRETER TASK ; GET PROCESSED COMPLETELY BEFORE THE NEXT COMMAND TYPED IN GETS ; PROCESSED. ; DONL: ;SET NUMBER OF DIGITS TO LISTEN TO S ,MOVEWD, GOTO GETCMD DOOD: ;ENTER ODT S ,OOPS ;CALL ODT GOTO GETCMD ;LOOP WHEN WE RETURN DOEX: ;EXIT TO RT MONITOR S ,ACSCLR ;DISABLE SIMULATOR INTERRUPT S ,SHUTDN .SBTTL PROCESS A "0" COMMAND ANEXE: ;LISTEN TO A CREDIT CARD NUMBER AND TYPE IT OUT S ,ASRSET, ;RESET THE RESPONSE BUFFER S ,CLEAR, ;SET UP THE "0" COMMAND S ,ASSEND, ;SEND THE COMMAND CALL PRCNR ;SAY THE COMMAND WAS GIVEN ;DO FOR EIGHT DIGITS .IRPC X,01234567 S ,ASRECV, ;RECIEVE A RESPONSE S ,ASTEST,,ANOV ;CHECK FOR OVERFLOW S ,IFLTI,<10.,DIGIT>,ANERR ;CHECK FOR SPEECH ERROR S ,IFNEI,<10.,DIGIT>,ANL'X ;CONVERT TEN TO ZERO S ,CLEAR, ;SET TO ZERO ANL'X: S ,MOVE, ;SAVE DIGIT .ENDR CALL PRCNM ;PRINT CARD NUMBER RETURN ;AND RETURN ANOV: ;BUFFER OVERFLOW CALL PROVE ;PRINT ERROR MESSAGE RETURN ANERR: ;SPEECH ERROR CALL PRERR ;PRINT ERROR MESSAGE RETURN .SBTTL SEND A COMMAND "1" OKEXE: ;COLLECT NUMBER TO BE DIALED S ,SET,<1.,TEMP1> ;GET COMMAND TO BE GIVEN S ,ASSEND, ;GIVE THE COMMAND CALL PRDRQ ;PRINT "DIGIT REQUEST" MESSAGE S ,MOVEWW, ;GET NUMBER OF DIGITS TO SAY OKLUP: ;LOOP FOR EACH DIGIT S ,ASRECV, ;GET RESPONSE S ,ASTEST,,OKVR ;CHECK FOR OVERRUN S ,IFLTI,<10.,DIGIT>,OKERR ;CHECK FOR SPEECH ERROR S ,IFNEI,<10.,DIGIT>,OK1 ;CHECK FOR DIGIT TEN S ,CLEAR, ;CONVERT TEN TO ZERO OK1: CALL PRDTY ;TYPE OUT DIGIT TO BE DIALED S ,SUBI,<1,TEMP1> ;COUNT DIGITS DIALED S ,IFLTI,<0,TEMP1>,OKLUP ;LOOP IF THERE'S MORE RETURN ;THEN RETURN OKVR: ;PRINT OVERRUN MESSAGE CALL PROVE RETURN OKERR: ;PRINT SPEECH ERROR MESSAGE CALL PRERR RETURN .SBTTL GIVE A COMMAND "2" STEXE: ;TERMINATE OPERATIONS ON THE CHANNEL AND RESET STUFF S ,SET,<2,TEMP1> ;GET COMMAND NUMBER S ,ASSEND, ;GIVE COMMAND S ,ASRSET, ;RESET CHANNEL CALL PRDUN ;TYPE "DONE" MESSAGE RETURN ; ; PRINT ROUTINES FOR COMMAND #0 ; PRCNR: ;PRINT "CHANNEL N CARD NUMBER REQUEST" S PRI,ASCIIC,<1,11> S PRI,ASCIIC,<7.,"CH,"AN,"NE,'L> S PRI,CONVRT, S PRI,ASCIIC,<9.,20040,20040,"CA,"RD,40> S PRI,ASCIIC,<7.,"NU,"MB,"ER,40> S PRI,ASCIIC,<7.,"RE,"QU,"ES,'T> S PRI,ASCIIC,<2,5015> S PRI,EMPTYB RETURN PRCNM: ;PRINT "CHANNEL N CARD NUMBER D D D D D D D D" S PRI,ASCIIC,<1,11> S PRI,ASCIIC,<7.,"CH,"AN,"NE,'L> S PRI,CONVRT, S PRI,ASCIIC,<9.,20040,20040,"CA,"RD,40> S PRI,ASCIIC,<7.,"NU,"MB,"ER,40> .IRPC X,01234567 ;FOR EACH DIGIT IN CARD NUMBER S PRI,ADDI,<20060,DIG'X> S PRI,ASCIII, ;AND PRINT IT .ENDR S PRI,ASCIIC,<2,5015> ;CARRIAGE RETURN, LINE FEED S PRI,EMPTYB RETURN ; ; PRINT ROUTINES FOR COMMANDS #1 AND #2 ; PRDRQ: ;PRINT "CHANNEL N DIGIT REQUEST" S PRI,ASCIIC,<1,11> S PRI,ASCIIC,<7.,"CH,"AN,"NE,'L> S PRI,CONVRT, S PRI,ASCIIC,<4.,20040,20040> S PRI,ASCIIC,<5.,"DI,"GI,'T> S PRI,ASCIIC,<1,40> S PRI,ASCIIC,<7.,"RE,"QU,"ES,'T> S PRI,ASCIIC,<2.,5015> S PRI,EMPTYB RETURN PRDTY: ;PRINT "CHANNEL N DIAL M" S PRI,ASCIIC,<1,11> S PRI,ASCIIC,<7.,"CH,"AN,"NE,'L> S PRI,CONVRT, S PRI,ASCIIC,<8.,20040,20040,"DI,"AL> S PRI,CONVRT, S PRI,ASCIIC,<2,5015> S PRI,EMPTYB RETURN PRDUN: ;SAY "CHANNEL N DONE" S PRI,ASCIIC,<1,11> S PRI,ASCIIC,<7.,"CH,"AN,"NE,'L> S PRI,CONVRT, S PRI,ASCIIC,<10.,20040,20040,"DO,"NE,5015> S PRI,EMPTYB RETURN ; ; MESSAGES FOR SOFTWARE-DETECTED ERRORS ; PRUXR: ;PRINT "CHANNEL N UNEXPECTED RESPONSE DD" S PRI,ASCIIC,<1,11> S PRI,ASCIIC,<7.,"CH,"AN,"NE,'L> S PRI,CONVRT, S PRI,ASCIIC,<4,20040,20040> S PRI,ASCIIC,<11.,"UN,"EX,"PE,"CT,"ED,40> S PRI,ASCIIC,<8.,"RE,"SP,"ON,"SE> S PRI,CONVRT, S PRI,ASCIIC,<2,5015> S PRI,EMPTYB RETURN PROVE: ;PRINT "CHANNEL N TRANSMISSION OVERRUN" S PRI,ASCIIC,<1,11> S PRI,ASCIIC,<7.,"CH,"AN,"NE,'L> S PRI,CONVRT, S PRI,ASCIIC,<4.,20040,20040> S PRI,ASCIIC,<12.,"TR,"AN,"SM,"IS,"SI,"ON> S PRI,ASCIIC,<1,40> S PRI,ASCIIC,<7.,"OV,"ER,"RU,'N> S PRI,ASCIIC,<2.,5015> S PRI,EMPTYB RETURN ; ; MESSAGES FOR ERRORS DETECTED BY THE SPEECH TERMINAL ; PRERR: ;PRINT ERROR MESSAGE ACCORDING TO CODE IN VARIABLE "DIGIT" S ,IFEQI,<11.,DIGIT>,PRRCE ;RECOGNITION FAILURE S ,IFEQI,<12.,DIGIT>,PRTOE ;TIMEOUT ON SPEECH S ,IFEQI,<13.,DIGIT>,PRSNE ;SYNTAX ERROR S ,IFEQI,<14.,DIGIT>,PRDBL ;CHANNEL DISABLED GOTO PRDTY ;**THIS SHOULDN'T HAPPEN** ;BUT, IF IT DOES, THE VALUE RETURNED GETS PRINTED ;OUT AS IF IT WERE A DIGIT. PRDBL: ;PRINT "CHANNEL N DISABLED" S PRI,ASCIIC,<1,11> S PRI,ASCIIC,<7.,"CH,"AN,"NE,'L> S PRI,CONVRT, S PRI,ASCIIC,<4.,20040,20040> S PRI,ASCIIC,<10.,"DI,"SA,"BL,"ED,5015> S PRI,EMPTYB RETURN PRRCE: ;PRINT "CHANNEL N RECOGNITION FAILURE" S PRI,ASCIIC,<1,11> S PRI,ASCIIC,<7.,"CH,"AN,"NE,'L> S PRI,CONVRT, S PRI,ASCIIC,<4.,20040,20040> S PRI,ASCIIC,<11.,"RE,"CO,"GN,"IT,"IO,'N> S PRI,ASCIIC,<1,40> S PRI,ASCIIC,<7.,"FA,"IL,"UR,'E> S PRI,ASCIIC,<2.,5015> S PRI,EMPTYB RETURN PRTOE: ;PRINT "CHANNEL N TIMEOUT" S PRI,ASCIIC,<1,11> S PRI,ASCIIC,<7.,"CH,"AN,"NE,'L> S PRI,CONVRT, S PRI,ASCIIC,<4.,20040,20040> S PRI,ASCIIC,<7.,"TI,"ME,"OU,'T> S PRI,ASCIIC,<2,5015> S PRI,EMPTYB RETURN PRSNE: ;PRINT "CHANNEL N SYNTAX ERROR" S PRI,ASCIIC,<1,11> S PRI,ASCIIC,<7.,"CH,"AN,"NE,'L> S PRI,CONVRT, S PRI,ASCIIC,<4.,20040,20040> S PRI,ASCIIC,<7.,"SY,"NT,"AX,40> S PRI,ASCIIC,<5.,"ER,"RO,'R> S PRI,ASCIIC,<2.,5015> S PRI,EMPTYB RETURN END .END !WATSIM.COM 22-MAR-78 ! ! BUILD WATSIM.SAV ! MACRO/OBJ:WATSQ QUEBLK+WATSQ MACRO/OBJ:WATSIM QMAC+WATSIM MACRO/OBJ:ACTSM ACTSM LINK/MAP:WATSIM WATSIM,WATSQ,ACTSM/PROMPT PARCER,PARCEQ,QLIBR,SLIBR // DELETE/NOQ WATSQ.OBJ,ACTSM.OBJ,WATSIM.OBJ !WATFAK.COM 28-MAR-78 ! ! BUILD WATFAK.SAV ! MACRO/OBJ:WATSQ QUEBLK+WATSQ MACRO/OBJ:WATSIM QMAC+WATSIM MACRO/OBJ:ACTFAK ACTFAK MACRO/OBJ:ACTION ACTION LINK/MAP:WATFAK/EXE:WATFAK WATSIM,WATSQ,ACTFAK/PROMPT ACTION,PARCER,PARCEQ,QLIBR,SLIBR // DELETE/NOQ ACTION.OBJ,WATSQ.OBJ,ACTFAK.OBJ,WATSIM.OBJ RT-11 LINK V05.02 Load Map Sat 01-Apr-78 01:50:50 WATSIM.SAV Title: WATSIM Ident: Section Addr Size Global Value Global Value Global Value . ABS. 000000 002034 (RW,I,GBL,ABS,OVR) PARCSZ 000006 T0KVEC 000060 DONE 002022 T0KS 177560 002034 034230 (RW,I,LCL,REL,CON) NUMLIS 002034 WATSIM 002042 CP 011532 SUBW 011546 INPUTQ 011562 PRI 011576 SPND 011610 ACSSET 011616 ACSCLR 011666 BFTBL 011700 ASINT 012154 ASRECV 012244 ASTEST 012406 ASRSET 012426 ASSEND 012446 BOUND 012504 PACK1L 012536 PACK2L 012562 PACK8 012610 PACK8M 012646 EXITMN 012672 INPUTT 012720 ECHOTT 013016 SEMODE 013102 GETFLG 013114 SETFLG 013144 SETFLI 013174 ASSNCH 013220 CLEARV 013244 MOVEIA 013270 MOVEII 013302 VALUEI 013324 MOVEWD 013370 MOVEWW 013404 NEG 013420 IFRT11 013434 SETSWP 013454 TESTD 013466 TESTDI 013532 PARCN 013604 PKNCLC 013666 GRAPH 013736 FILLBF 014032 EMPTYB 014410 ASCIIC 014524 ASCIII 014542 CONVRB 014564 CONVR8 014574 CONVRT 014604 PARCEQ 014734 NCLC 016306 TRUE 016470 FALSE 016476 SET 016502 CLEAR 016516 ADD 016532 ADDI 016546 SUB 016562 SUBI 016576 MOVE 016612 MOVEB 016626 IFEQI 016666 IFNEI 016710 IFLTI 016732 IFGTI 016754 IFLEI 016776 IFGEI 017020 IFLOI 017042 IFHII 017064 IFLOSI 017106 IFHISI 017130 OCTIN 017152 BBUG 017224 OOPS 017266 QTRAP 017522 F$TRP 017650 F$TNST 020336 CPDISP 021624 CPDSP1 021632 TSTDV 021710 SIGNAL 021714 INITPR 021720 SPAWN 021724 QUERY 021730 TASKID 021734 ABORT 021740 RETURN 021744 COINIT 021766 SYFLAG 022262 TYPEI 022270 TYPE 022314 TYPOCT 022344 GETLIN 022450 TYPMSG 022504 SHUTDN 022530 TIIN 022560 TIOUT 022616 TIPRT 022654 T0SET 022776 T0PRT 023214 T0OUT 023366 T0IN 023650 O.ODT 024546 ASCCVT 032406 RADIX 033026 IBAKBD 033164 BAKBRD 033174 BAKHRE 033432 BAKSW 033434 FORGND 035074 BAKRTN 035076 INRADX 035110 IVGRAF 035114 DSPDOT 035236 XDSPRG 035266 YDSPRG 035272 DIV 035276 AC 035300 MQ 035302 MUL 035304 EAESR 035307 NORM 035310 LSH 035312 ASH 035314 DIVIDE 035316 MULPLY 035456 LOGICS 035604 ARITHS 035732 NORMLZ 036070 SAVE 036226 UNSAVE 036246 CPINIT 036264 000052 (RW,I,GBL,REL,OVR) CPINIT 036264 UTRANL 036336 000004 (RW,I,GBL,REL,OVR) LOGBAK 036342 000010 (RW,I,GBL,REL,OVR) Undefined globals: SETPSW INTEN GETPSW JIN Transfer address = 021624, High limit = 036352 = 7797. words RT-11 LINK V05.02 Load Map Tue 28-Mar-78 00:19:30 WATFAK.SAV Title: WATSIM Ident: Section Addr Size Global Value Global Value Global Value . ABS. 000000 002034 (RW,I,GBL,ABS,OVR) PARCSZ 000006 T0KVEC 000060 DONE 002022 T0KS 177560 002034 030620 (RW,I,LCL,REL,CON) NUMLIS 002034 WATSIM 002036 CP 010634 SUBW 010650 INPUTQ 010664 PRI 010700 SPND 010712 ACSCLR 010720 ACSSET 010720 ASRSET 010720 ASTEST 010726 ASSEND 010732 ASRECV 010736 READA 011002 WRITAI 011050 WRITA 011056 FAKEA 011124 BOUND 011162 PACK1L 011214 PACK2L 011240 PACK8 011266 PACK8M 011324 EXITMN 011350 INPUTT 011376 ECHOTT 011474 SEMODE 011560 GETFLG 011572 SETFLG 011622 SETFLI 011652 ASSNCH 011676 CLEARV 011722 MOVEIA 011746 MOVEII 011760 VALUEI 012002 MOVEWD 012046 MOVEWW 012062 NEG 012076 IFRT11 012112 SETSWP 012132 TESTD 012144 TESTDI 012210 PARCN 012262 PKNCLC 012344 GRAPH 012414 FILLBF 012510 EMPTYB 013066 ASCIIC 013202 ASCIII 013220 CONVRB 013242 CONVR8 013252 CONVRT 013262 PARCEQ 013412 NCLC 014764 TRUE 015146 FALSE 015154 SET 015160 CLEAR 015174 ADD 015210 ADDI 015224 SUB 015240 SUBI 015254 MOVE 015270 MOVEB 015304 IFEQI 015344 IFNEI 015366 IFLTI 015410 IFGTI 015432 IFLEI 015454 IFGEI 015476 IFLOI 015520 IFHII 015542 IFLOSI 015564 IFHISI 015606 OCTIN 015630 BBUG 015702 OOPS 015744 QTRAP 016200 F$TRP 016326 F$TNST 017014 CPDISP 020302 CPDSP1 020310 TSTDV 020366 SIGNAL 020372 INITPR 020376 SPAWN 020402 QUERY 020406 TASKID 020412 ABORT 020416 RETURN 020422 COINIT 020444 SYFLAG 020740 TYPEI 020746 TYPE 020772 TYPOCT 021022 GETLIN 021126 TYPMSG 021162 SHUTDN 021206 TIIN 021236 TIOUT 021274 TIPRT 021332 T0SET 021454 T0PRT 021672 T0OUT 022044 T0IN 022326 O.ODT 023224 ASCCVT 031064 IVGRAF 031504 DSPDOT 031626 XDSPRG 031656 YDSPRG 031662 DIV 031666 AC 031670 MQ 031672 MUL 031674 EAESR 031677 NORM 031700 LSH 031702 ASH 031704 DIVIDE 031706 MULPLY 032046 LOGICS 032174 ARITHS 032322 NORMLZ 032460 SAVE 032616 UNSAVE 032636 CPINIT 032654 000052 (RW,I,GBL,REL,OVR) CPINIT 032654 Undefined globals: SETPSW INTEN GETPSW JIN Transfer address = 020302, High limit = 032726 = 6891. words .TITLE ACTION ;DRIVER FOR ACTION INTERFACE ; 25-DEC-77 .MCALL .PARAM .PARAM .GLOBL TRUE,FALSE BANK1: .REPT 8. .WORD 0 .ENDR BANK2: .REPT 8. .WORD 0 .ENDR STATUS=BANK1 COMMND=BANK2 ; READ STATUS FOR GIVEN CHANNEL ; S ,READA, .GLOBL READA READA: MOV 2(R5),R0 ;OFFSET TO CHANNEL NUMBER ADD R4,R0 MOV (R0),R0 ;GET CHANNEL NUMBER ASL R0 MOV 4(R5),R1 ;OFFSET TO WORD RECEIVING STATUS ADD R4,R1 TST COMMND(R0) ;TEST IF COMMAND IS AVAILABLE BGE 1$ ;DATA NOT AVAILABLE MOV STATUS(R0),(R1) ;STATUS -> IMPURE AREA CLR COMMND(R0) ;******* JMP TRUE 1$: JMP FALSE ; SEND IMMEDIATE COMMAND TO ACTION INTERFACE ; S ,WRITAI, .GLOBL WRITAI WRITAI: MOV 4(R5),R2 ;IMMEDIATE COMMAND BR WRITE ; SEND COMMAND FROM IMPURE AREA TO ACTION INTERFACE ; S ,WRITA, .GLOBL WRITA WRITA: MOV 4(R5),R2 ;OFFSET TO COMMAND ADD R4,R2 MOV (R2),R2 ;GET COMMAND WRITE: MOV 2(R5),R0 ;OFFSET TO CHANNEL NUMBER ADD R4,R0 MOV (R0),R0 ;GET CHANNEL NUMBER ASL R0 MOV #100,R3 ;MAX TIMES INTERFACE CAN REFUSE COMMAND 1$: TSTB COMMND(R0) ;INTERFACE READY TO RECEIVE COMMAND ;*** BLT 2$ ;NO ; MOV R2,COMMND(R0) ;IMMEDIATE VALUE -> COMMAND REGISTER JMP TRUE 2$: DEC R3 ;# TIMES INTERFACE NOT READY BGT 1$ JMP FALSE ;INTERFACE MUST BE SICK ; SET FAKE ACTION INTERFACE COMMAND WORD ; S ,FAKEA, .GLOBL FAKEA FAKEA: MOV 2(R5),R0 ADD R4,R0 MOV (R0),R0 ASL R0 MOV 4(R5),R1 ADD R4,R1 MOV (R1),STATUS(R0) BIS #100000,COMMND(R0) JMP TRUE .END .TITLE ACTFAK 28-MAR-78 (C) DIALOG SYSTEMS, INC. ; ; A FAKE-OUT MODULE SO THAT THE "WATSIM" ROUTINES WILL ; CALL THE NON-INTERRUPT-DRIVEN ACTION INTERFACE ; ROUTINES. ; .MCALL .PARAM .PARAM ;NO-OPS THAT RETURN "TRUE" -- ACSSET:: ;ACTIVATE THE INTERFACE ACSCLR:: ;DE-ACTIVATE THE INTERFACE ASRSET:: ;RESET A CHANNEL'S INPUT BUFFER MOV #-1,R0 RTS PC ASTEST:: ;TEST FOR INPUT ERROR CLR R0 ;RETURN "FALSE" RTS PC ASSEND:: ;SEND A COMMAND .GLOBL WRITA JMP WRITA ASRECV:: ;RECIEVE A COMMAND .GLOBL READA JMP READA .END .TITLE ACTSM 23-MAR-78 (C) DIALOG SYSTEMS, INC. ; ; DRIVING PROGRAM FOR WATSBOX SIMULATOR INTERFACE ; ; THIS MODULE INCLUDES THE FOLLOWING ROUTINES: ; ; ACSSET -ACTIVATES THE SIMULATOR INTERRUPT ; ; ACSCLR -DISABLES THE SIMULATOR INTERRUPT ; ; ASINT -SIMULATOR INTERRUPT ROUTINE ; ; ASSEND -SEND COMMAND TO VOICE TERMINAL ; ; ASRECV -RECIEVE RESPONSE FROM VOICE TERMINAL ; ; ASTEST -TEST FOR INPUT OVERRUN ; ; ASRSET -RESET A CHANNEL'S INPUT BUFFER ; ; ;RICK SMITH, 16-MAR-78 ; ; MACROS AND DEFINITIONS ; .MCALL .REGDEF,.INTEN,.MTPS,.MFPS .REGDEF ; ; SIMULATOR INTERFACE DEFINITIONS ; WATCSR =164136 ;COMMAND/STATUS REGISTER SENDCM = 40 ;IF SET, ALLOWS COMMANDS TO BE SENT TO SPEECH TERMINAL INTENB = 100 ;INTERRUPT ENABLE READY = 200 ;SPEECH TERMINAL IS READY FOR NEXT COMMAND WATS1 =164140 ;INPUT REGISTER BANK ;INCLUDING INPUT STATUS BITS RSPMSK = 17 ;MASK FOR RESPONSES FROM SPEECH TERMINAL WATS2 =164160 ;OUTPUT REGISTER BANK CMDMSK = 7 ;COMMAND BITS IN REGISTERS WATVEC = 120 ;SIMULATOR INTERRUPT VECTOR .SBTTL SIMULATOR ACTIVATION/DEACTIVATION ROUTINES ACSSET:: ;SET UP SIMULATOR INTERRUPT ROUTINE ; ; EXAMPLE: ; ; S ,ACSSET ;ALWAYS RETURNS ZERO ; ; THIS ROUTINE SETS UP THE INTERRUPT VECTOR FOR THE SIMULATOR ; INTERFACE AND TURNS ON THE INTERRUPT ; MOV #WATVEC,R1 ;POINT TO INTERRUPT VECTOR MOV #ASINT,(R1)+ ;STICK IN ADDRESS OF ROUTINE MOV #340,(R1)+ ;AND A LEVEL SEVEN PSW MOV #14.,R3 ;INDEX FOR LAST CHANNEL BUFFER 1$: MOV #18.,@BFTBL(R3) ;INITIALIZE A CHANNEL BUFFER SUB #2,R3 ;GO TO NEXT CHANNEL BPL 1$ ;LOOP TILL DONE MOV #INTENB+SENDCM,@#WATCSR ;ENABLE THE INTERFACE MOV #-1,R0 ;RETURN "TRUE" RTS PC ACSCLR:: ;DISABLE SIMULATOR INTERRUPT ; ; EXAMPLE: ; ; S ,ACSCLR ;ALWAYS RETURNS "TRUE" ; ; THIS ROUTINE SIMPLY CLEARS THE INTERRUPT ENABLE BIT ; CLR @#WATCSR ;CLEAR THE WORD MOV #-1,R0 ;RETURN "TRUE" RTS PC .SBTTL CHANNEL BUFFERS ; ; EACH CHANNEL HAS A SEPARATE 9-WORD BUFFER AREA FOR STORING ; RESPONSES FROM THE SPEECH TERMINAL. THE FIRST WORD OF A BUFFER ; IS THE BUFFER POINTER AND HOLDS THE OFFSET INTO THE BUFFER ; OF THE MOST RECENTLY RECIEVED DATA. DATA IS STORED IN THE ; BUFFER STARTING AT THE END OF THE BUFFER. THE FIRST WORD ALSO ; SERVES AS A BUFFER OVERRUN FLAG SINCE BUFFER OFFSETS CAN ; NOT LEGALLY BE NEGATIVE OR ZERO. ; BFTBL:: ;BUFFER ADDRESSES INDEXED BY CHANNEL .IRPC X,01234567 .WORD CHBF'X .ENDR ;CHANNEL BUFFERS: .IRPC X,01234567 CHBF'X: .WORD 18. ;INITIALIZED BUFFER POINTER .BLKB 16. ;8-WORD BUFFER .ENDR CHIDX: ;UTILITY TO RETURN CHANNEL INDEX IN R3 ; ; THIS ROUTINE TAKES THE FIRST ARGUMENT IN THE ARGUMENT ; LIST AS A CHANNEL NUMBER SPECIFICATION AND RETURNS IT ; MULTIPLIED BY TWO IN REGISTER 3 ; MOV 2(R5),R3 ;GET OFFSET INTO CHANNEL AREA ADD R4,R3 ;ADD IN START OF CHANNEL AREA MOV (R3),R3 ;GET CHANNEL NUMBER ASL R3 ;MULTIPLY BY TWO RTS PC .SBTTL SIMULATOR INTERRUPT ROUTINE ASINT:: ;ENTERED HERE AT LEVEL SEVEN FROM INTERRUPT ; ; THIS ROUTINE POLLS CHANNELS FOR RESPONSES, BUFFERS THEM ; BY CHANNEL, AND FLAGS BUFFER OVERRUN IF IT OCCURS. ; .INTEN 7 ;SAVE R4 AND R5 MOV #14.,R5 ;GET INDEX VALUE FOR CHANNEL SEVEN MOV R3,-(SP) ;SAVE A REGISTER 1$: ;LOOP THROUGH CHANNELS AND COLLECT RESPONSES MOV WATS1(R5),R3 ;GET CHANNEL DATA WORD BPL 4$ ;GO TO NEXT IF CHANNEL ISN'T READY ASL R3 ;CHECK OVERRUN BIT BMI 2$ ;FLAG IT IF SO MOV BFTBL(R5),R4 ;POINT TO CHANNEL BUFFER SUB #2,(R4) ;BUMP THE BUFFER POINTER BGT 3$ ;CONTINUE IF STILL ROOM BEQ 4$ ;GO TO NEXT IF OVERRUN 2$: CLR @BFTBL(R5) ;FLAG CHANNEL FOR OVERRUN BR 4$ ;GO TO NEXT CHANNEL 3$: ADD (R4),R4 ;POINT TO NEXT WORD IN BUFFER ASR R3 ;RESTORE CHANNEL DATA MOV R3,(R4) ;SAVE IN BUFFER 4$: SUB #2,R5 ;GO TO NEXT CHANNEL BPL 1$ ;LOOP IF THERE IS ONE MOV (SP)+,R3 ;RESTORE R3 RTS PC ;EXIT FROM INTERRUPT .SBTTL RECIEVE A MESSAGE AND READ FROM BUFFER ASRECV:: ;GET A RESPONSE ; ; EXAMPLE: ; ; S ,ASRECV, ; ; THIS ROUTINE TAKES A CHANNEL NUMBER FROM THE IMPURE AREA, ; CHECKS THE CHANNEL'S RESPONSE BUFFER, AND RETURNS THE 1-WORD ; RESPONSE IN THE IMPURE AREA LOCATION SPECIFIED BY "RESP". ; IF NO RESPONSE IS AVAILIBLE, THE OPERATION RETURNS "FALSE", ; OTHERWISE IT RETURNS "TRUE". ; JSR PC,CHIDX ;GET CHANNEL INDEX CLR R0 ;ASSUME FALSE CMP #18.,@BFTBL(R3) ;ANY RESPONSE RECIEVED? BEQ 2$ ;NO, RETURN ;IF RESPONSE RECIEVED, WE MUST COPY IT TO THE IMPURE AREA ;AND THEN SHIFT THE BUFFER TO MAKE ROOM FOR NEXT RESPONSE ADD 4(R5),R4 ;POINT TO VARIABLE MOV BFTBL(R3),R5 ;POINT TO CHANNEL'S BUFFER MOV 16.(R5),(R4) ;COPY LEAST RECENT RESPONSE BIC #^C,(R4) ;CLEAR ALL BITS EXCEPT RESPONSE MOV R5,R4 ADD #14.,R4 ;POINT TO FIRST WORD TO MOVE IN BUFFER MOV (R5),R3 ;GET BUFFER OFFSET ASR R3 ;CONVERT TO WORD COUNT SUB #9.,R3 ;CALCULATE # WORDS LEFT IN BUFFER .MFPS ;SAVE CURRENT PSW .MTPS #340 ;;;DISABLE INTERRUPTS 1$: MOV (R4)+,(R4) ;;;MOVE NEXT WORD DOWN SUB #4,R4 ;;;POINT TO NEXT TO MOVE DEC R3 ;;;COUNT WORDS BGT 1$ ;;;LOOP TILL DONE ADD #2,(R5) ;UPDATE BUFFER POINTER .MTPS ;RESTORE PSW COM R0 ;RETURN "TRUE" 2$: RTS PC .SBTTL MESSAGE BUFFER OPERATIONS ASTEST:: ;TEST FOR ERROR IN MESSAGE RECIEVED ; ; EXAMPLE: ; ; S ,ASTEST,,BAD,GOOD ; ; THIS ROUTINE CHECKS FOR ANY ERROR CONDITIONS ARISING FROM ; WHEN A MESSAGE IS RECIEVED. THIS IS GENERALLY A BUFFER OVERRUN ; INDICATION. ; CLR R0 ;ASSUME "FALSE" JSR PC,CHIDX ;GET CHANNEL INDEX TST @BFTBL(R3) ;CHECK BUFFER FLAG BGT 1$ ;NO ERROR DETECTED COM R0 ;YES, ERROR DETECTED 1$: RTS PC ASRSET:: ;REST THE CHANNEL RESPONSE BUFFER ; ; EXAMPLE: ; ; S ,ASRSET, ; ; THIS OPERATION RESETS THE BUFFER POINTER. ; JSR PC,CHIDX ;GET CHANNEL INDEX MOV #18.,@BFTBL(R3) ;RESET THE BUFFER POINTER MOV #-1,R0 ;RETURN "TRUE" RTS PC .SBTTL SEND A MESSAGE TO SPEECH TERMINAL ASSEND:: ;SEND A COMMAND TO THE SPEECH TERMINAL ; ; EXAMPLE: ; ; S ,ASSEND, ; ; THIS OPERATION SENDS THE 4-BIT COMMAND STORED IN THE VARIABLE ; "CMD" TO THE SPEECH TERMINAL OVER THE CHANNEL SPECIFIED BY ; THE VARIABLE "CHAN". IT RETURNS "FALSE" IF A COMMAND CAN NOT ; BE SENT AND "TRUE" AFTER THE COMMAND IS SENT. ; CLR R0 ;ASSUME "FALSE" TSTB @#WATCSR ;CAN WE SEND A COMMAND? BPL 1$ ;NO, RETURN "FALSE" JSR PC,CHIDX ;GET CHANNEL INDEX IN R3 ADD 4(R5),R4 ;POINT TO COMMAND MOV (R4),R4 ;GET THE COMMAND BIC #^C,R4 ;CLEAR ALL BITS BUT THE COMMAND MOV R4,WATS2(R3) ;GIVE THE COMMAND COM R0 ;RETURN "TRUE" 1$: RTS PC .END .TITLE PARCER ; 16-FEB-78 .MCALL .PARAM,.SETTOP .PARAM .GLOBL TRUE,FALSE,ASCCVT ; BOUND ; SEE IF INPUT CHARACTER IS WITHIN BOUNDS TO BE PROPER TYPE CHAR ; S ,BOUND,<"LOWER-UPPER BOUND, WORD TO TEST> .GLOBL BOUND BOUND: MOV 4(R5),R0 ;OFFSET INTO IMPURE AREA FOR CHAR ADD R4,R0 ;START OF IMPURE AREA CMPB (R0),2(R5) ;GREATER THAN LOWER BOUND BLT 1$ CMPB (R0),3(R5) ;LESS THAN UPPER BOUND BGT 1$ JMP TRUE ;IN BOUNDS 1$: JMP FALSE ; PACK1L ; PACK ONE CHARACTER INTO LOW BYTE OF WORD ; S ,PACK1L, .GLOBL PACK1L PACK1L: MOV 2(R5),R0 ;OFFSET OF WORD TO PACK ADD R4,R0 MOV 4(R5),R1 ;OFFSET OF WORD TO PACK INTO ADD R4,R1 MOVB (R0),(R1) ;PACK THE BYTE CLR (R0) ;CLEAR THE INPUT WORD JMP TRUE ; PACK2L ; PACK ON CHARACTER INTO HIGH BYTE OF WORD ; S ,PACK2L, .GLOBL PACK2L PACK2L: MOV 2(R5),R0 ;OFFSET OF WORD TO PACK ADD R4,R0 MOV 4(R5),R1 ;OFFSET OF WORD TO PACK INTO ADD R4,R1 INC R1 ;LEFT BYTE MOVB (R0),(R1) ;PACK THE BYTE CLR (R0) ;CLEAR THE INPUT WORD JMP TRUE ; PACK8 ; PACK ONE OCTAL DIGIT INTO A WORD ; S ,PACK8, .GLOBL PACK8 PACK8: MOV 2(R5),R0 ;OFFSET OF WORD TO PACK ADD R4,R0 MOV 4(R5),R1 ;OFFSET OF WORD TO PACK INTO ADD R4,R1 SUB #60,(R0) ;CONVERT FROM ASCII TO BINARY PACK8A: ASL (R1) ;MULTIPLY BY 8. ASL (R1) ASL (R1) ADD (R0),(R1) ;ADD IN THE NEW VALUE CLR (R0) ;CLEAR SOURCE WORD JMP TRUE ; PACK8M ; PACK NEGATIVE OCATAL DIGIT ; S ,PACK8M, .GLOBL PACK8M PACK8M: MOV 2(R5),R0 ;OFFSET TO WORD TO PACK ADD R4,R0 MOV 4(R5),R1 ;OFFSET OF WORD TO PACK INTO ADD R4,R1 SUB #60,(R0) ;CONVERT FROM ASCII TO BINARY NEG (R0) ;MAKE NEGATIVE BR PACK8A ;GO ADD TO PACK WORD ; EXITMN ; EXIT TO MONITOR ; S ,EXITMN .GLOBL EXITMN EXITMN: MOV #5000.,R0 ;WAIT FOR ^C TO PRINT 1$: DEC R0 BNE 1$ RESET ;SHUT OFF ALL INTERUPTS MOV #5000.,R0 ;WAIT FOR SYSTEM TO RECOVER 2$: DEC R0 BNE 2$ JMP @#0 ;EXIT TO MONITOR ; INPUTT ; INPUT ONE CHAR FROM TT ; S ,INPUTT, .GLOBL INPUTT INPUTT: ADD 2(R5),R4 ;POINT TO WORD TO INPUT INTO MOV R4,TEMP ;SAVE PTR CMP #40000,@#0 ;SYSTEM AVAILABLE BNE 3$ EMT 340 ;WAIT FOR A CHARACTER BCS 1$ 2$: MOV R0,@TEMP ;RETURN THE CHARACTER INPUT JMP TRUE 1$: JMP FALSE ;RETURN FALSE IF NO CHARACTER INPUT 3$: BIC #100,@#177560 ;SHUT OFF INTERUPTS BIC #100,@#177564 TSTB @#177560 ;INPUT AVAILABLE? BPL 1$ MOVB @#177562,R0 BIC #177600,R0 BR 2$ TEMP: 0 ; ECHOTT ; ECHO PREVIOUS INPUT ; S ,ECHOTT, .GLOBL ECHOTT ECHOTT: ADD 2(R5),R4 ;POINT TO CHARACTER TO OUTPUT MOV (R4),R0 ;MOVE CHARACTER TO R0 CMP #40000,@#0 ;SEE IF SYSTEM EXITS BNE 3$ EMT 341 ;CALL MONITOR TO OUTPUT THE CHARACTER BCS 1$ JMP TRUE 1$: JMP FALSE ;RETURN FALSE IF CHARACTER NOT OUTPUT 3$: BIC #100,@#177560 ;SHUT OFF INTERUPTS BIC #100,@#177564 TSTB @#177564 ;READY FOR OUTPUT BPL 1$ MOVB R0,@#177566 ;OUTPUT A CHARACTER JMP TRUE ; SEMODE ; SET SPECIAL EDIT MODE FOR INPUT (SYSTEM DOES NOT ECHO CHARACTERS) ; S ,SEMODE .GLOBL SEMODE SEMODE: BIS #10000,@#44 ;SET BIT IN JOB STATUS WORD JMP TRUE ; GETFLG ; GET A VALUE FROM ANOTHER TASK IMPURE AREA ; S ,GETFLG, .GLOBL GETFLG GETFLG: MOV 4(R5),R0 ;OFFSET TO OTHER TASK IMPURE AREA ADD R4,R0 MOV (R0),R0 ;GET PTR TO OTHER TASKS IMPURE AREA ADD 6(R5),R0 ;OFFST OF FLAG IN OTHER IMPURE AREA MOV 2(R5),R1 ;OFFSET TO WHERE VALUE WILL BE KEPT ADD R4,R1 MOV (R0),(R1) ;GET THE VALUE JMP TRUE ; SETFLG ; SET A FLAG IN ANTHER TASKS IMPURE AREA ; S ,SETFLG, .GLOBL SETFLG SETFLG: MOV 4(R5),R0 ;OFFSET TO OTHER TASKS IMPURE AREA ADD R4,R0 MOV (R0),R0 ;GET PTR TO OTHER IMPURE ADD 6(R5),R0 ;OFFSET OF FLAG IN OTHER IMPURE AREA MOV 2(R5),R1 ;OFFSET TO NEW VALUE ADD R4,R1 MOV (R1),(R0) ;SET THE FLAG JMP TRUE ; SETFLI ; SET A FLAG IN ANOTHER TASKS IMPURE AREA USING IMMEDIATE DATA ; S ,SETFLI,<"NEW VALUE TO SET, NEW IMPURE AREA PTR, OFFSET TO FLAG> .GLOBL SETFLI SETFLI: MOV 4(R5),R0 ;OFFSET TO OTHER TASKS IMPURE AREA ADD R4,R0 MOV (R0),R0 ;GET PTR TO OTHER IMPURE ADD 6(R5),R0 ;OFFSET OF FLAG IN OTHER IMPURE AREA MOV 2(R5),(R0) ;SET THE FLAG JMP TRUE ; ASSNCH ; ASSIGN UNIQUE CHANNEL # TO A TASK ; S ,ASSNCH, .GLOBL ASSNCH ASSNCH: MOV 2(R5),R0 ;OFFSET TO NEW CHANNEL # ADD R4,R0 MOV CHANNO,(R0) ;ASSIGN THE # INC CHANNO ;WILL GIVE THE NEXT GUY THE NEXT # JMP TRUE CHANNO: 0 ; CLEARV ; CLEAR ARRAY OF WORDS IN IMPURE AREA ; S ,CLEARV,<"SIZE OF ARRAY, START OF ARRAY> .GLOBL CLEARV CLEARV: MOV 2(R5),R0 ;# WORDS TO CLEAR MOV 4(R5),R1 ;OFFSET TO ARRAY ADD R4,R1 1$: CLR (R1)+ DEC R0 BGT 1$ JMP TRUE ; MOVEIA ; MOVE IMMEDIATE DATA TO ABSOLUTE LOACATION .GLOBL MOVEIA MOVEIA: MOV 2(R5),@4(R5) JMP TRUE ; MOVEII ; MOVE IMPURE TO @ IMPURE ; S ,MOVEII, .GLOBL MOVEII MOVEII: MOV 2(R5),R0 ;OFFSET TO SOURCE ADD R4,R0 MOV 4(R5),R1 ;OFFSET TO DESTINATION ADD R4,R1 MOV (R0),@(R1)+ ;SOURCE -> DESTINATION JMP TRUE ; VALUEI ; MOVE @IMPURE TO IMPURE ; S ,VALUEI, .GLOBL VALUEI VALUEI: MOV 2(R5),R0 ;OFFSET TO SOURCE ADD R4,R0 MOV 4(R5),R1 ;OFFSET TO DESTINATION ADD R4,R1 BIT (R0),#1 ;BYTE MOVE? BNE 1$ MOV @(R0)+,(R1) ;MOVE @SOURCE TO DESITNATION JMP TRUE 1$: MOVB @(R0),(R1) ;MOVE BYTE @SOURCE,DESITNATION BIC #177400,(R1) ;CLEAR THE HIGH BYTE JMP TRUE ; MOVEWD ; MOVE WORD IN IMPURE AREA TO ABSOLUTE LOCATION ; S ,MOVEWD, .GLOBL MOVEWD MOVEWD: ADD 2(R5),R4 ;PTR TO SOURCE MOV (R4),@4(R5) ;SOURCE -> @#DESTINATION JMP TRUE ; MOVEWW ; MOVE CONTENTS OF ABSOLUTE ADDRESS TO WORD IN IMPURE AREA ; S ,MOVEWW,<"SOURCE, DESTINATION> .GLOBL MOVEWW MOVEWW: ADD 4(R5),R4 ;MAKE PTR TO DESTINATION MOV @2(R5),(R4) ;MOVE @#SOURCE TO DESTINATION JMP TRUE ; NEG ; NEGATE CONTENTS OF WORD IN IMPURE AREA ; S ,NEG, .GLOBL NEG NEG: MOV 2(R5),R0 ;OFFSET TO WORD TO NEGATE ADD R4,R0 NEG (R0) ;NEGATE IT JMP TRUE ; IFRT11 ; ROUTINE TO SEE IF RT11 IS PRESENT ; S ,IFRT11,,TRUE,FALSE .GLOBL IFRT11 IFRT11: CMP #40000,@#0 BNE 1$ JMP TRUE 1$: JMP FALSE ; SETSWP ; ROUTINE TO SET THE USR SWAP ADDRESS = JIN ; S ,SETSWP .GLOBL SETSWP .GLOBL JIN SETSWP: MOV #JIN,@#46 ;JIN BUFFER ADDRESS -> MONITOR SWAP WORD JMP TRUE ; TESTD ; ROUTINE TO SEE IF DEVICE IS PRESENT ; S ,TESTD,
.GLOBL TESTD TESTD: MOV #4,R1 ;ADDRESS OF BUS ERROR TRAP MOV (R1)+,-(SP) ;SAVE CURRENT CONTENTS MOV (R1),-(SP) MOV #340,(R1) ;NEW PRIORITY=7 MOV #NODEV,-2(R1) ;GO TO NODEV IF BUS ERROR OCCURS MOV 2(R5),R0 ;OFFSET TO ADDRESS TO TEST ADD R4,R0 TST @0(R0) ;TEST THE ADDRESS MOV (SP)+,(R1) ;RESTORE TRAP CONTENTS MOV (SP)+,-(R1) JMP TRUE ;ADDRESS WAS THERE ; TESTDI ; ROUTINE TO SEE IF DEVICE IS PRESENT ; S ,TESTDI,<"ADDRESS TO TEST> .GLOBL TESTDI TESTDI: MOV #4,R1 ;ADDRESS OF BUS ERROR TRAP MOV (R1)+,-(SP) ;SAVE CONTENTS OF TRAP WORDS MOV (R1),-(SP) MOV #340,(R1) ;NEW PRIORITY = 7 MOV #NODEV,-2(R1) ;GO TO NODEV IF BUS ERROR OCCURS TST @2(R5) ;TEST THE ADDRESS MOV (SP)+,(R1) ;RESTORE THE CONTENTS OF THE VECTOR MOV (SP)+,-(R1) JMP TRUE ;ADDRESS WAS THERE NODEV: TST (SP)+ ;IGNORE ADDRESS SAVED BY STACK TST (SP)+ MOV (SP)+,(R1) ;RESTORE THE TRAP VECTOR MOV (SP)+,-(R1) JMP FALSE ;ADDRESS ISNT THERE ; PARCN ; GET ONE NC AND ONE LC COMMAND ; S ,PARCN, .GLOBL PARCN PARCN: TST (R5)+ MOV (R5)+,R0 CMP (R0),-2(R0) BEQ 1$ MOV (R5)+,R1 ADD R4,R1 MOV (R5)+,R2 ADD R4,R2 MOV (R0),R3 MOV (R3)+,(R1) MOV (R3)+,(R2) MOV R3,(R0) MOV R0,R4 ADD #42.,R4 CMP R4,R3 BGT 2$ MOV R0,(R0) ADD #2,(R0) 2$: JMP TRUE 1$: JMP FALSE ; PKNCLC ; PUT CHAARCTERS INTO BUFFER ; S ,PKNCLC, .GLOBL PKNCLC PKNCLC: TST (R5)+ MOV (R5)+,R0 MOV (R0),R3 MOV (R5)+,R1 ADD R4,R1 MOV (R5)+,R2 ADD R4,R2 MOV (R1),(R3)+ MOV (R2),(R3)+ MOV R3,(R0) MOV R0,R4 ADD #44.,R4 CMP R3,R4 BLT 1$ MOV R0,(R0) ADD #4,(R0) 1$: JMP TRUE ; GRAPH ; GRAPH PDP 11 MEMORY ; S ,GRAPH, .GLOBL GRAPH,IVGRAF GRAPH: MOV 2(R5),R0 ADD R4,R0 MOV (R0),2$ BIC #1,2$ ADD 4(R5),R4 MOV (R4),SCALE 1$: BR .+14. 2$: 0 .WORD LNGTH .WORD ZERO .WORD VERT .WORD HORIZ .WORD SCALE MOV #1$,R5 JSR PC,IVGRAF JMP TRUE LNGTH: 254. ZERO: 0 VERT: 77777 HORIZ: 256. SCALE: 4. ; FILL OUTPUT BUFFER FOR LATER OUTPUT BY OUTPUT ROUTINE ; R0 -> BUFFER WITH CHARS TO OUTPUT ; R1 -> # CHARS TO OUTPUT .GLOBL FILLBF FILLBF: MOV BPTR,R2 2$: CMPB (R0),#200 BEQ 3$ MOVB (R0)+,(R2)+ CMP R2,#ENDBUF BLT 1$ MOV #BUFFER,R2 1$: DEC R1 BGT 2$ 3$: MOV R2,BPTR RTS PC ENDP: BUFFER BPTR: BUFFER BUFFER: .BLKW 100. ENDBUF: 0 ; EMPTYB ; EMPTY OUTPUT BUFFER ONE CHARACTER AT A TIME, RETURN TRUE WHEN EMPTY ; S ,EMPTYB .GLOBL EMPTYB EMPTYB: CMP ENDP,BPTR BEQ 5$ MOV ENDP,R0 MOVB (R0)+,R0 CMP #40000,@#0 ;SEE IF SYSTEM EXISTS BNE 2$ EMT 341 BCS 1$ 3$: INC ENDP CMP ENDP,#ENDBUF BLT 1$ MOV #BUFFER,ENDP 1$: JMP FALSE 5$: JMP TRUE 2$: BIC #100,@#177560 ;SHUT OFF INTERUPTS BIC #100,@#177564 TSTB @#177564 ;READY FOR OUTPUT BPL 1$ MOVB R0,@#177566 ;OUTPUT THE CHARACTER BR 3$ ; ASCIIC ; MOVE ASCII LITERALS TO OUTPUT BUFFER ; S ,ASCIIC,<"# OF CHARACTERS TO OUTPUT, "CHARACTERS> .GLOBL ASCIIC ASCIIC: TST (R5)+ MOV (R5)+,R1 MOV R5,R0 JSR PC,FILLBF JMP TRUE ; ASCIII ; MOVE CONTENTS OF WORD IN IMPURE AREA TO BUFFER FOR PRINTING ; S ,ASCIII,<2 CHARS TO OUTPUT> .GLOBL ASCIII ASCIII: MOV 2(R5),R0 ADD R4,R0 ;POINT TO WORD IN IMPURE AREA MOV #2,R1 ;TWO CHARCTERS TO PRINT JSR PC,FILLBF ;MOVE TO THE BUFFER JMP TRUE ; CONVRB ; CONVERT # BASE SPECIFIED AND MOVE TO OUTPUT BUFFER ; S ,CONVERT, .GLOBL CONVRB CONVRB: MOV @4(R5),CNVRSN BR CONVR1 ; CONVR8 ; CONVERT # TO OCTAL AND MOVE TO OUTPUT BUFFER ; S ,CONVR8, .GLOBL CONVR8 CONVR8: MOV #1806.,CNVRSN BR CONVR1 ; CONVRT ; CONVERT # TO DECIMAL AND MOVE TO OUTPUT BUFFER ; S ,CONVRT, .GLOBL CONVRT CONVRT: MOV #1006.,CNVRSN CONVR1: MOV 2(R5),R0 ADD R4,R0 MOV R0,2$ 1$: BR .+10 2$: 0 .WORD CBUF .WORD CNVRSN MOV #1$,R5 JSR PC,ASCCVT MOV #CBUF,R0 MOV CNVRSN,R1 3$: SUB #100.,R1 BGT 3$ ADD #100.,R1 ADD #2,R1 JSR PC,FILLBF JMP TRUE CNVRSN: 1006. CBUF: .BLKW 12. .END .TITLE PARCEQ ; 16-FEB-78 .GLOBL PARCEQ,PARCSZ,NCLC,INPUTQ .ASECT .=0 INWD: .BLKW 1 LC: .BLKW 1 NC: .BLKW 1 PARCSZ =. .CSECT ; THIS ROUTINE PICKS UP CHARACTERS FROM THE TELETYPE ; IN SPECIAL EDIT MODE(SYSTEM DOES NOT ECHO CHARACTERS) ; THE PARCEING IS ALA BAKBRD, AN OCTAL NUMBER FOLLOWED BY ONE ; OR TWO LETTERS. NO NUMBER IS INTEPRETED AS A 0, - BY ITSELF ; IS INTERPRETED AS -1. THE RESULTING NC AND LC ARE PACKED INTO ; A BUFFER THE CALLER MAY GET THEM BY CALLING: ; INPUTQ,PARCN, ; WHERE NCLC IS A GLOBL TO THE BUFFER. ; THE INPUT Q IS A SPECIAL Q SCHEDULED TO RUN ONLY WHEN A ; LINE OF INPUT IS AVAILABLE. ; NOTES ON SUBROUTINES -- ; INPUTT, INPUTS ONE BYTE IN ASCII INTO INWD ; BOUND,<"LOW-HIGH, INWD> CHECKS TO SEE IF THE CHARACTER IN ; INWD IS BETWEEN THE BOUNDS SPECIFIED BY THE ; TWO IMMEDIATE BYTES. ; THE PACK SUBROUTINES ALL CLEAR INWD MARKING THAT THE ; CHARACTER IN IT HAS BEEN PROCESSED. ; PKNCLC, INPTR POINTS INTO A CIRCULAR BUFFER. ; NC AND LC ARE ADDED TO THE BUFFER AND INPTR ; IS UPDATED. PKNCLC RETURNS FALSE IF THE ; BUFFER IS FULL. ; PARCEQ: S ,CLEAR, ;INIT INPUT HOLDING WORD S ,SEMODE ;SET SPECIAL EDIT MODE ; PICKUP FIRST CHARACTER OF NEXT COMMAND INPUT$: S ,CLEAR, S ,CLEAR, S ,IFNEI,<0,INWD>,INTERP ;CHAR PICKED UP BUT NOT PROCESSED? CALL GETCHR ;PICK UP A CHRACTER FROM THE TT ; DETERMINE TYPE OF CHARACTER INTERP: S ,BOUND,<"09,INWD>,POSNO$ ;POSITIVE DIGIT S ,BOUND,<"AZ,INWD>,LETR1$ ;LETTER S ,IFEQI,<'-,INWD>,NEG1$ ;NEGATIVE NUMBER S ,IFEQI,<15,INWD>,CR$ ;CARRIAGE RETURN S ,IFEQI,<3,INWD>,CNTRLC ;CONTROL C GOTO SPEC1$ ;ASSUME SECIAL CHAR ; PROCESS THE FIRST LETTER OF THE COMMAND LETR1$: S ,PACK1L, ;PACK 1ST LETTER INTO LC CALL GETCHR ;GET NEXT CHARACTER S ,BOUND,<"AZ,INWD>,LETR2$ ;LETTER? S ,BOUND,<"09,INWD>,OUTCHR ;NUMBER, OUTPUT PREVIOUS COMMAND S ,IFEQI,<15,INWD>,CR$ ;CARRIAGE RETURN S ,IFEQI,<3,INWD>,CNTRLC ;CONTROL C GOTO OUTCHR ;ASSUME SPECIAL CHAR AND IGNORE IT ; PROCESS THE SECOND LETTER OF THE COMMAND LETR2$: S ,PACK2L, ;PACK 2ND LETTER INTO LC CALL GETCHR ;GET THE NEXT CHARACTER S ,IFEQI,<15,INWD>,CR$ ;CARRIAGE RETURN GOTO OUTCHR ;GOT LC, GIVE IT TO CALLER ; PROCESS A POSITIVE OCTAL DIGIT POSNO$: S ,PACK8, ;PACK 1 OCTAL DIGIT INTO NC CALL GETCHR ;GET THE NEXT CHARACTER FROM TT S ,BOUND,<"09,INWD>,POSNO$,INTERP ;IF # PACK IT ELSE INTERPRET ; PROCESS A NEGATIVE OCTAL DIGIT NEG1$: S ,SET,<-1,NC> ;-LC MEANS -1 IN NC CALL GETCHR ;GET THE NEXT CHARACTER FROM TT S ,BOUND,<"09,INWD>,,INTERP S ,CLEAR, ;- A NUMBER, START PACKING AT 0 NEGNO$: S ,PACK8M, CALL GETCHR ;GET NEXT CHARACTER FROM TT S ,BOUND,<"09,INWD>,NEGNO$,INTERP ; PROCESS SPECIAL CHARACTERS SPEC1$: S ,PACK1L,,OUTNOW ;PACK SPECIAL CHAR INTO LC CNTRLC: S ,EXITMN ;EXIT TO MONITOR ; MOVE OUT COMMAND AND SIGNAL TASK TO PICK IT UP CR$: S ,ECHOTT, ;ECHO THE CARRIAGE RETURN S ,IFRT11,,,NOLF ;RT11 AUTOMATICALLY SUPLIES LF S ,INPUTT, ;GET THE LINE FEED NOLF: S ,SET,<12,INWD> ;FORCE LINEFEED TO BE ECHOED S ,ECHOTT, ;ECHO THE LINE FEED S ,CLEAR, ;BUT, IGNORE THE CHARACTERS OUTNOW: S ,PKNCLC,,,OUTNOW ;PUT INTO BUFFER FOR PASSING S ,SIGNAL, ;SIGNAL CALLER TO LOOK FOR DATA GOTO INPUT$ ;GO GET MORE ; MOVE COMMAND TO BUFFER BUT DONT SIGNAL TASK TO PICK IT UP OUTCHR: S ,PKNCLC,,,OUTCHR ;PUT INTO BUFFER FOR PASSING GOTO INPUT$ ;GO GET MORE ; SUBROUTINE TO PICKUP ONE CHARACTER AND ECHO IT GETCHR: S ,INPUTT, ;INPUT A CHAR FROM THE TT S ,IFEQI,<15,INWD>,L1$ ;DONT ECHO CARRIAGE RETURNS S ,IFEQI,<12,INWD>,L1$ ;DONT ECHO LINE FEEDS S ,ECHOTT, ;ECHO THE CHAR L1$: RETURN INPTR: BUFFER NCLC: BUFFER BUFFER: .BLKW 40. END .:dL X@ @@@v.f@@`@ #@59k@>9 @.B9@:q@:t@+dI@+dI@.+dJ@+dJ@:dHe@mht@.\q@we^@w@/xW@Ay@<. z@@@(<Xh:dh   .@   @ we^ "."6.@"  @."  .V<J<.@V< >9 @J<AyF<VJ<,< z V Jmht<@$XPd09rAZ.Pd X@r X@$t- y.59k@59k@  . 59k@@@  ,+dI@Ay,, z  mht@s$AZ09. X@ X@E$ C.59k@ 59k@  ,_.@ @ +dI@,"8,v,Ay   z8,mht86F PC,@ F 59k@P L^Pl^ .@@ ^ P+dJ@l^d^xl^4,Ay^  zxlmht^4$xPV09-.@PV  X@w^/,@ Ay z V09~.mht  @V X@". @+dJ@*Ay  zN V09^/.mht @ V X@^   "|. +dI@  #@",88.` @,8B9@8"0,F8 R.,:t @F8w@R JF^Rn".F` @^R @n. b^zn8.^e @zn/xW:qwz.@ @@eZ\, @ @@" .:t @ 59k@2" .59k @`@sd.\q z  \qf@.:dL; D@%w@;p@.?@@@(; 9h; 9h#.K XhL Xh& h`&Rh0&dh@C.&vh8`hX!h #hv&VKh.,g'h.@ehB9h:thS ht .S h~S"hS"hOXh+dIh.+dIh.+dJhD+dJhb:dh@ehr.we^hwg'h wi'h8whzh}}h}}hh.@a55ww@aAa@%w.&  w@aAa  w@aA3 @ @1.La0 b w@aAa0k @.r   _Dm74%@.?$wwE@pE@tߋp@%w.rEDm%@ww$@(%w.E@pE@tߋtvwU$w@@&@. a@mAa w@a@mA^ @.0aHw@a@mHw@aX @@3.V w@Aa w}w @ @1.|@aAaw@aAa2X@@A. w EwDm=wDmL@@ @R.w@a w%@ww&$@@@"%w&?.wff4@a w@4.ff4 w @4"@.:w @0"AaBae*K %w .`!eww @AaBaSl@%w".e, ew@a7E Dm  @.7" w*;p"@n.  ( .-..&%@ - (.wwE@pE@tߋtv%w@. A@ w@a ww@$@%.4H@8@a7~$&~.ZP dede \wNP; D &@`.1 Rm :@8 %w59k79 79h~89989A;<9 <9(_<9`<9h~>9 S@SL^p:w z z@8@ + +(`vLL;B@BfB zB4C vKW`sÁ`"rmf@)Z)srmDH; s DH; D_y y: mht \q /xW Ay ;},F  p jW ?!X ?,vL ?x} ?z/K ?q~W ?w~` ?x~s ?@ ? ??T ?L^ ?t^ /b  &&Iq}.m :(|hB@8hN. h6%wh&59kh79 h79h~h5.899h89A;h@<9 h<9(_h <9`h.(.<9h~h>9 hS@hrSh~L^p:hR.wh* zhZ z@8hf@h a. Aa A Ba AaBa).& J  Jb .L Jb J J.r J% J CR . fJ"  TJ" . BJ"  0J" . J"  J" ~.  J"  J"  *.0J"  J"  A.Va B @E ` BaN. +/b @( +hz(`vh"=.'@ t*@t*%.&7L|% |.L* 7 t*4 /b t *8 r~ zo*zBUS ERROR?ILLEGAL INSTRUCTION?.LL;IX@($@hffh zho, *IXIX   [   .4C ,g@:p!@wg@.vHpKH0(Wh`hKshÁ`"h.&f7 p t7 7 7 `7 .&e7e7e$7@e|:7.L8e|270e*0e$024?.re>46@p U: $,g.&f ы e m &wg<.% E@ D 8. . U ,g.  E% `?Z T  wg\.0R-RL DU@tew ` , ":p!z.Vߟ*v $-"  E@ts|7  >. fU@p HU,gwg.2E ( &-&  -$7 E 2.2w `&rE j%  :p!.XwH% w& H p.~  \%v  ~ j. ^`% P?L?F >, >-<8 0e .rmf@H(d)Zh)shxrmh"w " "" " & &         B  |"1.  |".X0lHfE E %  "X 0 lH.:v^ %] .` @_ . feEB. 1 J1Al@&fC.`@`@1C @` .ll JJrl.fffD  D.D @U@ f&f.jBa C   @. @_@. |f&feB .@ Bf&f.eB  @e  ,.(@ f   .NeB"Ae  @ @ 9.t s- @ fE5.a eC ) . l fB :". @ >eP PE.  tf s" t"(.2 e  t  "tW.X&  *AB *.~" @ 6 . &  B .L R \efi.  ss R.E '.<u  E e b.DH; z@(bshLf.DH;hD_yhy:h<mhthD\qhP./xWh8Ayh@;},FhH ph4(.  A@e  E& +  4.4 ^ (^jZ  z.jW p@W@v@.`@s@Á`"@(!Xh.,vLh2x}hbz/Khq~Whzw~`h.x~sh@h h?ThNL^h.'@)CU  Ef p$Á`".& $(2Cg $:((gr.L$'2( U@$ , .rCg ( g('.`@(@@ . @   Aa@  vu.  AaCBa  C @ .  C @ C @ C @ e0 x  .0 AaBB`Ca K @ `.V '@ '.|@ 54 '@ 5 W. ሇ'@ 5` `. 鈡 B    s" B K n.t^( /b hz(zzl.z;  . 7( w, .     .6  w 7 #"& . w  7w "w tĝ$& < 7  .  WBw .8NOw @p^C Dp A N Op.^ &DCc N w w X P w < <.' 7< ( &w @ \k.w wZw w j fw   .w  7 wvwjw   % EC " y. e wj   Z =w i   .p w d w \ w T w L.Bw v 7y w h7r w `7l 7g  / ( .h H w7L   ww (bb  . " ww w A B`". % w~ 7.wtwj E 74b "4. E t4R 4K4&4E.&w J-%zw  =T.Lw >d\7 4=w r& 4.re0w ,w %2@w k04.e=w @w wtJU. S=w  w ~ w .RAe0w ,w w .. - 74   4.0w ^n?w <7 `L.Vw z7j7e7|    w J%0 %7.|E `  1  W ֆ  .> m.7, y r@" " $r&(~Ht.~  Ht$B Y.  $B .P47D  P4[.w*77%|.< tnw %b=w 0V.bw ( w w >ww> 0. ( 0$ 7$mw ".w $\/%w .    L eD (DC.  !RB !R=L !6mRR!. 4D4 V  !4Dh4 V D V D"h&V.F%h w 6 X @w @.l % % 6w  .ww . D  &.C@AEPA&fw w /w .w Tw 4  ` .E `   .* w w 7UvE.Pw l7NE .vPF  pV w ^׭ V.& Uld.b7w FLŝDŝ@.Ef P$ wL.t!D w w   w @e3D  .4%ĕtD7| VVw DV"V.ZBw .`e` w ;w :ĝDm.Dw Zw,"f&fD"e.  d4D (D.hFD pt7p7th Dpt"p&t.tw t5ppp9ttpp&p/. t  <hD !(thD.> %p &e N @ e0.d w &  4 4. tE%~ %% %'  tq. ?7vprE vprU.  {` w  g.  ۇw .ח/ w r ." ׭r^w ZUw RwXr (.H 7B ZV  z  .n 7,4("4-< 0w, 44k. 7$ %!  %h. ??   w   $ . %Jw J7w ^ e0w . ,w w .,  Cå å$ נA l.R  e` .x   Ëנe ee 8  1! e ѐ  @(  &- ODT V01-02 (    BE  . *;/\ $G _<^,OWEBP@>SRC-FI!XASPM CFRB     .<.&@p@%w@.@@(&h\Iqh}h.X ddd wwX ddz X@%w"X&d wwrp@%wX.XXBd%w  X.~74 e$ ) &.#e 55  ,2,.2,lel (w\ w%N|%w@0"& O g@g"; Dy T 4 s Xz'-8E:p< _M U(@ g@`s@`. 0. X ~ Ti<i@<i<nh<u<uL<{$ <{d<8K<H9@<H9h<:;<:;K<nИm{U"62""p"HXilMi;i`ilffj4r 5rXrKreGeg'GewGeG""'"w S~"w@ "w~"w~8"wmy"w_M8"wN"wS"wT"wTe"wY@Q"wY:S"w&C^$/Fp $/Fy $/e$/e؟$/g`;$/3&P<%[\q{t%[%&Ps%[)&Z%[3&8%[62g%[t'&-E&.%'*+|Q(l8xs*^8S*8$m+,;+?pp+?;t,UL;,;p,T;`->v8-:}-:-=v@> >]z!>Z@9~A)zA%zA#e^A[e^Av<I,OqI,I, IHJt!`'J[&`YJ[[Me J[E`pXJ[spJ[J[$pJ[r""J[ن`;J[r;J[솶pJ[pJ[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[. g(. ghv.@AL Li Ld<& .@g(8@gh,.@A TAmf`u&Bb .v(h~ .; D S~@@ @~8@&S@(; Dh.L4 $)d Aѕ ѕ S~8.&&%#@%  -ѕ.L %  !Ee0ᐡ .rJ EC C @ eC -ѕ. 4 $) 7  ~8.  %  e0 y ~8@  S~.   6!   xS S_ ɕ*. T(6 Thf 4h. sh( Xzh'-h&8Eh^:h2D&p .27 w7)$&ȥ E. 7 ȥȥ Х  .0 & -  &.V3l@ ? ሇ l`.|  *UC$M@ABCDEHU   $ _M {   [. _Mt!`'@E`pX@(8 _Mh_M ( .w  ( q. _M  _M t!`'_M "(&E`pX &&42 & _M  42. (x hU(@hN( g@`hPs@`hRU.LBe<>4,a.&7 -  N ^ $N~L0,T`?NOT ENOUGH FREE SPACE?   `w..(f.h.fffA&   `'.& QiI q q QiI q  eI "LeQ$  e..(@.h.ffA&   `"& QiI Qm  eR.X T@ 4@ s@.,@@, @,@,Oq@;p@.fZ@v@@ @(Xh(, w  *v@ s $.$4 ׭\AA(fZ,Oq4 T;.Jw׭PBBw׭DCCw׭8GGw .p׭,FFw&׭ LLwd׭NNw>.׭EXw׭DDw׭RRw~׭.OOw׭TTw׭UUw~׭O.SSw׭XXwp׭YYwn׭ZZ.wl׭w w4 $fZh..|wrwhw K$,@, ,$&(T TL e,  LfZlh H*  h  {,fZ  6. w< h   fZ$&(J. w`  m(  fZ@.w 7 7 (   .  P.(  nwd~7 t7 r fZ.NP` ^ w Xw VePw J-FJ.t>B-::22 $ 0$.  7< o ". 4. Jr.e   4$&(|.    ;p.2d\w(wv.Xww6w,~w".~pwdw4.w r s" .'.tt??ENTER DEBUG A B F  : X.~@ S~@@ @. T@ 4@ s@R8r@T`@.l@,0 @,p@,@,q@.S@Y@Q@Y:S@/b @fZ@.\g0 @\gp@\g@v@@ @&t@(( ~h(.  w x&v@ s "$&.&  d 8  RT@ fZ R"T&@.L z @ 07$XЋ7 T.rX$~ ODUM&~fZ$/b (.AABBCC$PP4GGDFFLL NNHHII'* $4D "&.JJKKEE8DDJRRWW<OOTTUUq. 8J< $(.SSVVXXYYZZ.QQ@X&* ./b @&,0 . Tw,HDw84$\g0 ,p\gp ,&\g&.0w ($w \Z & "\$&Z( VD X,D fZX nV` f,V `fZ$`^| wa,`^  |fZ & H  . fZH fZ" X , fZX . w\j7 d  ^ XmT)fZ.LwX >7 84H7 BW&& * h,,  *fZh 2 Dhlj: 2,hl  j:fZ.\V .E 7X 5V fZ &X.    > 6 .. &  "fZ".wjxw`n 7 d ^.@ Tb bdh bd`b. bPd bHd b eT`&t.@d bdb b ed kR8r"t.fbdVw Zb bd ,.bd0b bd bdw.  7 b b wp~w .f  n b b` Th. EHPH@U B w&EHPH@U.$w jw wv@ 0.J7 |4(7 7  .p  w w ew -.-  "S(. 7h pY@Q Y:SY@Q"h .   .lh S&.p jed H Z3 @   S~SF..: 0_ 6 0e9*S @  S~"S.T* $ _  $S"@ & S~T.ze   S 4.h m m4 h "&l^.e  b b,.x e_d b  e tT`$t,.b b_d b_db b $.8b b,d b b bP .^,_d b H @P  H .H @ b E   H   R.  ?.E`U`E`5`U` fZ. b  ,q. @V 68 0 V.4 ,@ BD.Z  b bd bdj.  <"@.BD  4 b bd. bdvnwl(wN.wDw:Hw0 >.8lw .d7 `w Rw  .>DLFw y s .d .t$??ENTER DEBUG A B D R o.F PC  F ALDABSBR.i(ihi@h*.ihnhhuhruLh\{$ h8.{dhL8KhH9@hH9hh:;h8:;KhLq.BBdA b @A BdA ~.&bBAoA@AB 7.LA@A@ __.r__@gH g@(.__t(. @A A@AW .鈇OVFLW IFXDIOVFLW IDVLD@s   \.nИ(xnИh(.A@AC B %$%&E.&UL$ߵeA 58.LDL@ A eA Dr .{(f{hL.&DBE@` `% x.&e`ߋ ccc ˋ%"L5@ˋ<.sD(hz62h`ihph. 7j7d7^NVj$  jl.&tȝ*0  tt.L*% $)rb EXIT VIA BOOTRb.HX8$m@v@@ @.(HXhlMh;h`h<.@ABC C 7 7 S.&7wl z z ` =.L FB Z.r .< 2(mw 5.m   m .   V.   . mw m ~ mxB.0 7 l&ftlwjw` .V ,8w B W.|6  @, e . ww $ <.  , $  .  w.zwvwzw  b ` f  v@.:ZVwJwF w@w<i.`` 7.7 77" ~Y `8$m. *")w- ev @. |7 - . \7 -  <. 7 b- e|x  7.p @ w  VXn  .DRTwN LwFV &NV 8$m.jm$H>m88. .?9 7.l( lhfh_fh5( @A_Ws.K("j4h 5hXhKh.@ABC C 7.&w ! .LaC `.r .&+.zaoj w_@U.7RN@C> @].7*  7   7.Ud(ehfeg'hewhehM.ߕ@w _  V.&-eP-Y.L7 e |0wzwp.rwlj6`7 Xߕ  .  e w $~.$ U  .""'hHShh""'h,8;@b7 Z""'6 ,8;.B/pB4`PBo&AW\@o,].8^B/,Cw-CVu^OBW`Ak.^H<@5늨?( x@n<:?741JX@&$Oi@$G@3d Al$8C GFBffffff^  FBf  .N@SS@f@Sū@F;@.Tq@@*v@S@ժ@.e@S}@S@Q@S۪@..X@T۪@l;@d@l۪@.xK@S@Ѫ@ @۪@.l˫@Ȫ@ @\q@S;@x z۪@h,NSS  fSūF;.Tq *vSF;.ժ e 0NS}$,F;S F; Q>N4An,S۪X T۪ l;Sū-D,Tq dST*F;S۪ l۪ Sūkb.Tq xKSF;rs*S۪l۪  SūF;B"*Ѫ  NS۪gQ.T۪2۪ * T۪۪"A.T۪۪  T۪۪!3*SūF; S۪ ۪Z#.T۪۪ R T۪۪J.T۪۪ B T۪۪:%,SūF; Q $NS۪K.T۪r ۪ jT۪۪q.bSū F; S۪۪.T۪۪  T۪۪zQ '*SūN S۪T۪&0*S۪۪  l˫Sū>()Q,NȪ  `NTqP. xK SF;\q$`+@,NS; z۪SūTqro. xK SF;\q.%mv@@ @(.h S~h@ h~h~8h0.myh _M8hNh ShTh&TehpY@Qh Y:ShzV.w  76 v@.&  C A @  C .L77 w w w  $ !.r    E  E  * v@. `@ a D  A @ e@ 7Fw.Dw w 426E5 U v@2.  7w 7 w @ E  . 7w7 w w Ea v@.0!5 U  7w7 w  & .V @ EU 7w7 w w  $ .| ~| %vw E-v@ &. 55@ 5@5 @ 78w68w   .&C^(J&C^hFp h8.Fy hehe؟hg`;hD .% %ߕ .&ߕߕ ߕ 'p.LC  7 Coߕ@.rC%_wߕ 6.  -.~ 7 ,%    .  N  7 >@.  ( $ߕ"0 N.3&8C8H38H8H?.3&P 3z.?  K1   U K1.ˋ   V x* . %xwUx7 0 D@ ~j ~s 6}.t'(Dt'h. A@A@ A eA  c && 3 Q@R.-E(-Eh#.ff & f fff& & C4.&A  ` .L 6 MߵuBcN ".rv Nmv ĔM@.uBcN v Nmv   .   BdC Cd j. _- T6  e R..%(v.%h.f& f fff& & @ C.&A ` CieAi.L MR eW r].2|Q(2|Q(+|Qh2|Q .?zo]F+ȹ  ?yiQ3J.&ӻ ?wbCѴ.L",/+#?uZ3ٴ,:=6.r)?rP 뽝*AIB0k.?oE Ѥ;PP= 3.?k9EYR4 ?g+Z.I`S+п#?bʓDd. W&-*?] 3d_*嶲!.0.7# ?W[i7鱭>9m.V ?P锏>nN"H7 Y.|?I׊ag$O5$  ?A.ƅ1rDڛT8 .! ?8Vl J.TB7?/oNѕIRt.=?&)v'aC .% ?Lj];ŴJ & .:?gK1`N(&.`?wc,G0+) ?x?.fܦ'L&1 ?/iX6[N.?# ?MLo<:J"E. ?ٜe#&Xa߽C*%.?ͬu\94>9+ .?¿{sfUC0?wk.DcF*(2/$ ?g2/[.j\=% ?Nag %K.5 ?",v/` )A#*. ?;kZ=U5,?QAnL%G3 .l8xs(l8xsh\@.8S(8Sh>& BCD  @ \.8$m(8$mhn.B %@E B eB Q.&%?-L 5 .Lr1b  E  .r_Lc %? .;(;hpph^. @DB  "R  D.& f  vՀ  vZ.L e  C b @` ` 䀨"r Z@9/ $#.-.;t(6;th.A@J  "2&   k.L;(L;h@w 7.;pf@f@(R;ph . @w<Dw*$w(w.& e e  (fL7 f_.;`(H;`h4.D&CS  @B *&$ 0PR   }._M8(4v8h:}h:hɋ,e h >.P`(;HhP`h .;hLghvnS(h h.AD B  @D .& e`B __.L@ABfTL  .rf@DA s .P f@CBU6.``LP  @A<B$1 .kQ3(:l8h8dh8&W:Љh(M; h O;h4.@@o@@ }/ &@A .t^( /b hzAzl.z;  . 7( w, .     .6  w 7 #"& . w  7w "w tĝ$& < 7  .  WBw .8NOw @p^C Dp A N Op.^ &DCc N w w X P w < <.' 7< ( &w @ \k.w wZw w j fw   .w  7 wvwjw   % EC " y. e wj   Z =w i   .p w d w \ w T w L.Bw v 7y w h7r w `7l 7g  / ( .h H w7L   ww (bb  . " ww w A B`". % w~ 7.wtwj E 74b "4. E t4R 4K4&4E.&w J-%zw  =T.Lw >d\7 4=w r& 4.re0w ,w %2@w k04.e=w @w wtJU. S=w  w ~ w .RAe0w ,w w .. - 74   4.0w ^n?w <7 `L.Vw z7j7e7|    w J%0 %7.|E `  1  W ֆ  .> m.7, y r@" " $r&(~Ht.~  Ht$B Y.  $B .P47D  P4[.w*77%|.< tnw %b=w 0V.bw ( w w >ww> 0. ( 0$ 7$mw ".w $\/%w .    L eD (DC.  !RB !R=L !6mRR!. 4D4 V  !4Dh4 V D V D"h&V.F%h w 6 X @w @.l % % 6w  .ww . D  &.C@AEPA&fw w /w .w Tw 4  ` .E `   .* w w 7UvE.Pw l7NE .vPF  pV w ^׭ V.& Uld.b7w FLŝDŝ@.Ef P$ wL.t!D w w   w @e3D  .4%ĕtD7| VVw DV"V.ZBw .`e` w ;w :ĝDm.Dw Zw,"f&fD"e.  d4D (D.hFD pt7p7th Dpt"p&t.tw t5ppp9ttpp&p/. t  <hD !(thD.> %p &e N @ e0.d w &  4 4. tE%~ %% %'  tq. ?7vprE vprU.  {` w  g.  ۇw .ח/ w r ." ׭r^w ZUw RwXr (.H 7B ZV  z  .n 7,4("4-< 0w, 44k. 7$ %!  %h. ??   w   $ . %Jw J7w ^ e0w . ,w w .,  Cå å$ נA l.R  e` .x   Ëנe ee 8  1! e ѐ  @(  &- ODT V01-02 (    BE  . *;/\ $G _<^,OWEBP@>SRC-FI!XASPM CFRB     .<.`ff@f@(O`fh.ww.&w w.Lw w Ÿ,  m.re  `etv .jD m\ mR L.F>EIQ ffw.>!!CEI1"AII6 $zIII>III@GHP`6I~. II60III>.04D4III6>AAA"AAA>IIAAHH@@>AA.VI.AA~"A >].|AAA>HHH0>AEC?HLJ12III&@@@@~~p  "pcc``CEIQa2II&.fZv@@ @(o&fZh.҅:h&%(|%   T  . @  d'ww .0  7fEB v@ %% .V  7  w A2  .| @7Aww % Cbw ^.  @A@ρw H"  .@ >78 7$7! l.e;ew 7e0 . 0-!D ( g .:&m w .`0w 0 D, 1 .yEW z x _\w9zx. j x zBe0zz2w . xzz"z.*$w 'z*  zX.w  w w w v@" (v@.  NLJ  C A @ 1.D  C $77 w   j w   .ks(hkhkhhkh[.f& EDCBA A B C D eC B .&A & f&   *.L  e  ! !F 5.r C B A @   E@Q@w.   BCA@A  .QI@PhP P H PhrP H eH s.p(bph. XV  @ bb@ b.&e K @    LA @ CJ.v; (Pv; h. ADEP % b  P.&%e ee e  X L(@6.v@(v@h h&&f& .]z!(]z!hX.f@A_t.&JJ<    .L w`E & 7 A e.rA eCec U  o . 7 7 7 %????.??L? ?>n>>=8=<:<;;w:99b876.5!5<4N3Y2\1W0K/8.-+*)m(1'%$Y#"I.  P7EE: % y.0U/tO/}z1.V/aP۴o0՘sU>.q.|%$+:Qpʗ@NJ8ŝ ăÎ".gf>  >fg."Žà ĝ8Ŋ@ȗpQ:+$!.%.>UsӘ0oٴOݥ`/.z}/Ot/.:Uy % :EE7PH.` "Y#$%1'm()*+-8.K/W0\1Y2O3<4!5/.567b899w:;;:<<8==>n>> ?L???????.Z(Zh.wt@7dAw6,v.&  e@:6 6.L `    e@r .~(~h"w==6.z(zh"A@ .#e^(%zh#e^h[e^hq.0hL(Z@&AB4 0 L(@.&27 W#W E@  .L  `{ +.r# \ p @\.Rʕ e, ?. 7  z %  9.@@ z fk &.  j><   9 5.0 d ffew" 0gd.V 0  f&f! "%.|U_E x8 %3D08.f  ew/ ".& C @ C @ C @   e0  G.ԕ0ԕ  &  B E.AW  ĝ0  &.:EC E&fU EF '.`&f U Efh '"h.few5 u$. w Ff  ݇.EW xfe (. j' P  C @  T.@ >! 5 @.D ewE?       .j fU0      `0.EC    1 P.   - 4 (. ÝpE   50\   .   wT% w "(TT0. T T0d<d.  dPd d ddADDHr lylADDL tqtADDSUBH> cSUBL [SUB ANDH| MANDL E$AND@ORHORLHOR; - XORL` %`XORH lXOREQVLn EQVH EQVSXTCOMA CLRARDIVIDE DPREC0LD SHUP  ""SHDN * * SA 0 0SB 6 6SF <<SFUPo DDLD~L|LSHUP TTSHDN \ \SAr b b SBg h| hSFe nvnSFUN? vnvCLRLDDLDHLDLAL~ NALUP FALDN >FLUP  6.xF00 UMxF IAM. AMI SADBUSP  NORM4 - MUL DBUSLIUMAUMIAR RC     SC & & L2 ,, MUL8  4 4 L1 :): MUL8ADMABMAAMAABMA  \\DMCBM} jWjBMI SHIFT DBUSD c DLOB [ DHIB S MUL8) KBR'#MULPDPALU MUL8  COR AD  DM PDPPDPA BM   AM - BMI AMI SHIFT MULCORDM MUL8 JSRDBUS( (RR .'.LLTLGE HLTHGEL1Nx NL2 TTCORNR ALWAYS f|fLABMpVpLRAM xjxLRBM bLRABMHALTm ,.FETCHDATA ??!,,:D,:B,:A,:R  .ALU LDI LABM ?EMIT TYPE 2?SIGNAL u.EMIT TYPE 3 BUS %BITS 6&7%BC INOP  ]v<v<h,  0,[, ,$     0,,Hk, @ A ,lz("" 8, ,  "" .,OqH",H, H,@H8 8 .H(HhB@A =.r@(t!`'h.&`Yh@[Me hE`pXhsphVh.$phr""hن`;hr;h솶phnph^r|(.7 7 &1"&( , 숃 .& z7333 .L833  Pe"P!x e.r z N .&分@eeeNU.@qq1 @113 *. : 1B e. P $  S.0W"F} % 6 w.V    w te0i t[.| 1鈖%w| @&*&.3   3 , @ ㈝.& f@ &1 .爞 7  F)5 -( .  7 nH+ .:1  RqEw<v "/.`47  ^   % vC.  ZwE_ 7 @"M. <U@ tE_= 7 " r-.@w>* w0$ "0.7  <fq 7  V. wee0t鈀  tY.DNe0 4 ,4 g.jw UTRAN ERROR UNIT W .! 195 . . ! 1U% .5@ D1aD7  BD*.  ,@3 .(Dw __.N ql_D, 5 .t1 @ @lDB .&@ @,C-& .5@% & \ 74.fffNe e.  % E  \7  .2 w7 WBp .X 3!ԋ3!e.~ s Dw  ).?7&7.H0 Y .@wxf&LUr|jV^. V ^   l    " @8 %w59k79 79h~89989A;<9 <9(_<9`<9h~>9 S@SL^p:w z z@8@ +(`v@BfB zBvKW`sÁ`"f@)Z)srms DH; D_y y: mht \q /xW Ay ;},F p !X ?,vL ?x} ?z/K ?q~W ?w~` ?x~s ?@ ? ??T ?L^ ?/b  &Iq}.m :(|hB@8hN. h6%wh&59kh79 h79h~h5.899h89A;h@<9 h<9(_h <9`h.(.<9h~h>9 hS@hrSh~L^p:hR.wh* zhZ z@8hf@h a. Aa A Ba AaBa).& J  Jb .L Jb J J.r J% J CR . fJ"  TJ" . BJ"  0J" . J"  J" ~.  J"  J"  *.0J"  J"  A.Va B @E ` BaN. +/b @( +hz(`vh"=.'@ t*@t*%.&7L|% |.L* 7 t*4 /b t *8 r~ zo*zBUS ERROR?ILLEGAL INSTRUCTION?.LL;IX@($@hffh zho, *IXIX   [   .4C ,g@:p!@wg@.vHpKH0(Wh`hKshÁ`"h.&f7 p t7 7 7 `7 .&e7e7e$7@e|:7.L8e|270e*0e$024?.re>46@p U: $,g.&f ы e m &wg<.% E@ D 8. . U ,g.  E% `?Z T  wg\.0R-RL DU@tew ` , ":p!z.Vߟ*v $-"  E@ts|7  >. fU@p HU,gwg.2E ( &-&  -$7 E 2.2w `&rE j%  :p!.XwH% w& H p.~  \%v  ~ j. ^`% P?L?F >, >-<8 0e .rmf@H(d)Zh)shxrmh"w " "" " & &         B  |"1.  |".X0lHfE E %  "X 0 lH.:v^ %] .` @_ . feEB. 1 J1Al@&fC.`@`@1C @` .ll JJrl.fffD  D.D @U@ f&f.jBa C   @. @_@. |f&feB .@ Bf&f.eB  @e  ,.(@ f   .NeB"Ae  @ @ 9.t s- @ fE5.a eC ) . l fB :". @ >eP PE.  tf s" t"(.2 e  t  "tW.X&  *AB *.~" @ 6 . &  B .L R \efi.  ss R.E '.<u  E e b.DH; z@(bshLf.DH;hD_yhy:h<mhthD\qhP./xWh8Ayh@;},FhH ph4(.  A@e  E& +  4.4 ^ (^jZ  z.jW p@W@v@.`@s@Á`"@(!Xh.,vLh2x}hbz/Khq~Whzw~`h.x~sh@h h?ThNL^h.'@)CU  Ef p$Á`".& $(2Cg $:((gr.L$'2( U@$ , .rCg ( g('.`@(@@ . @   Aa@  vu.  AaCBa  C @ .  C @ C @ C @ e0 x  .0 AaBB`Ca K @ `.V '@ '.|@ 54 '@ 5 W. ሇ'@ 5` `. 鈡 B    s" B K n.t^( /b hz(zzl.z;  . 7( w, .     .6  w 7 #"& . w  7w "w tĝ$& < 7  .  WBw .8NOw @p^C Dp A N Op.^ &DCc N w w X P w < <.' 7< ( &w @ \k.w wZw w j fw   .w  7 wvwjw   % EC " y. e wj   Z =w i   .p w d w \ w T w L.Bw v 7y w h7r w `7l 7g  / ( .h H w7L   ww (bb  . " ww w A B`". % w~ 7.wtwj E 74b "4. E t4R 4K4&4E.&w J-%zw  =T.Lw >d\7 4=w r& 4.re0w ,w %2@w k04.e=w @w wtJU. S=w  w ~ w .RAe0w ,w w .. - 74   4.0w ^n?w <7 `L.Vw z7j7e7|    w J%0 %7.|E `  1  W ֆ  .> m.7, y r@" " $r&(~Ht.~  Ht$B Y.  $B .P47D  P4[.w*77%|.< tnw %b=w 0V.bw ( w w >ww> 0. ( 0$ 7$mw ".w $\/%w .    L eD (DC.  !RB !R=L !6mRR!. 4D4 V  !4Dh4 V D V D"h&V.F%h w 6 X @w @.l % % 6w  .ww . D  &.C@AEPA&fw w /w .w Tw 4  ` .E `   .* w w 7UvE.Pw l7NE .vPF  pV w ^׭ V.& Uld.b7w FLŝDŝ@.Ef P$ wL.t!D w w   w @e3D  .4%ĕtD7| VVw DV"V.ZBw .`e` w ;w :ĝDm.Dw Zw,"f&fD"e.  d4D (D.hFD pt7p7th Dpt"p&t.tw t5ppp9ttpp&p/. t  <hD !(thD.> %p &e N @ e0.d w &  4 4. tE%~ %% %'  tq. ?7vprE vprU.  {` w  g.  ۇw .ח/ w r ." ׭r^w ZUw RwXr (.H 7B ZV  z  .n 7,4("4-< 0w, 44k. 7$ %!  %h. ??   w   $ . %Jw J7w ^ e0w . ,w w .,  Cå å$ נA l.R  e` .x   Ëנe ee 8  1! e ѐ  @(  &- ODT V01-02 (    BE  . *;/\ $G _<^,OWEBP@>SRC-FI!XASPM CFRB     .<.&@p@%w@.@@(&h\Iqh}h.X ddd wwX ddz X@%w"X&d wwrp@%wX.XXBd%w  X.~74 e$ ) &.#e 55  ,2,.2,lel (w\ w%N|%w@0A! 0 % x%  j%@ w  0 &&   " ] W! ʥ* @&&   -   % C   &   %    Х.% %̇ ȥ* R 䂿 X "$- X " -w#@SS%#@SZ &f & R V@!   >B7 ^0  0  j  ׭ w7 ׭ ׭w 2 ww (  * w  +w  w  w w "w $  @ f w $7 xdp p& . Pw ewe V7 Pw  77  T!0 & e $g,fE @r  r`be\bL 40 &  7` ߋ* R&w w ww  v @`7x@E  w ` F. @`7H <W,*ъ  w|wwmr @7` x  (w w   ww 2$4 'V! ׭ f L   w Bw <w 6w "5Z T׭  l  ȝz0 `ߋ*w  w  "`]f w  ( 7 ( 5 wb,z, *& x"", 0 ,77 \ h Lw 07 @@ X   @ eT efe Np0 W- @ W w X2w R4׭ 5 p0 wfEw 0 0  (ȥȥ * 4 4 3:: ] ]&fŔ` U%ΤdeDBŔ`Ӌ ` Ţ   ť/ ť= (* <&f& Rʥ-  ʥNO  T5 -4  4,0S 0S5!0C|&  PWW*  d׭p U%@.-N  :e e    c ` ׭ w Nf&&  PW#w 2ߋ* wF5 p0 @ 8 wg&  D ! !e  ! &ҕ:  ҕ ҕ @f( @ %ee0f:e.    W.W: B ѕ ɕ鈇'& %Y&f   Cנ/D נ/ נ.!  f  f & `ע.פ/ L    ע  *׬   e  LL W#G W#> z;b r7f&  r-XR "  N   鈂 n( \&0  *w P+舀w < &0 ߋ*F b 5 W N+͋+*@E@E f #5 n뗢.ʕ%/ҕ*ҋ  鈅 bwI E  SE  C EW/W: W=W, t  ^&fפĢĒ& Ē e"77C   &l6!   Ջ UE []=:/,ҥ* !ŋ E & 5% e5 X "$- X " -  & & ? , ɕe b  & ̇/ 5b * ɋwB `ыB ɋɋB  ewL !w(Q NKC4wr<9-H*0%@IE%@%@:7 7 4)3 Z&NR" F! ^%@:2N7 ,    7 (7 ~7  6  @ fY  "  5*  K4. ,w0 w wdew^ewXewRewL ,  ЋЋЋe 7$AI 7  w" p @` f w& ߥ*w0w2eU$T& & E$Y>wZ 5Dww *&w ? ѭы @w 7 e7%   Bw,<@ >  e  e  ?  H]ՋCwvDխ ` A vC5   1   w 6^hvw  w     ii2ew N RT11̕AeeDECRT11A t j#M-6 B4* , f/w  @`7 & wӡ:7tp Ԇz/wH xEC feF85 A#eAeՕ- @ $U0U0S U0U0eS- hB  J/w2*U$A "ADe E$e & & ȋ  VOL1RT11A HDR1ZEROED.ZZZ RT11A 00010000000100 00000 00000 000000DECRT11AEOF1 RT11A ߋtv ?BOOT-F-No boot on volume w ,w 0 w: vwm7 Nw ! *  % - (?a ? 0a w?a mz ?v t  4%  b n lwTm@ < `V0  8 -$ `     w` @mPfm@"m47 Be B!  w jw  ( m 7!:?h p@e-X5a P ?aD BwwFw . -w  p  h 7 b      f RH r  Օ UU   % (՝՝՝%Օ.e  @   7  j (wHARDSOFTBAD BLOCKS TYPE FILENAME REL BLK w w  = * %CR%T16w : P7<e72 "w =e #m#Y7-whw = ~ e ew 0@ $  !@w w @w w @ P  ` sw z n  `? @ F 户0 v*4 w  e e w -ba%w Q:7p z/w^-8% (" 77 s @7ѕ 7-v 7 b@e7 dDѷ B7 7 4@e  N@e*7 2- 7  - $ 2 B p 2/w4 `   jB 7Ք ΄ Ք U 0p tD,  0  R  0p >%X%X-%O%D.%A< M-w6 w  e  7`     r   wz w   ~ Z w w `-B@6  @ r 6 (0 b$  z wD   B Ȃ     6 w w @e E7 w    n   w w w 7P w JR ww8 e2 w. BC e " wz@3  @"? `7 VwF 7 N  m  `&`  N "  8 | 2  w  w ~| w  w^ @m\ 7 j b T P 17 w w F e N V @ w   e ee # e7hcE `7! w^ eA# # #e  6 v w ~ &f^ @`" B %w~7 . zB oD e *7  ͋wxw  B w$7ŝԋwD   @ f`B   7   ͋w    WwP7Nv =      ee @  w t%w  - w w v lw%%VOww *(  B  .w   w\r w P Е= ^ AeB`w 8w . Е=eAeB`w X $  BP  w yw     `U%O>%D. C DIRECTORY X`"+ X"& Xl"+( .*) & $5z 4 4 tt &EU  <*8  $ffU b!f1 1  J  ,8 0*   5* &$& 5R f N%N 54-5@ A  @ A @ A @ A    e0U %  Օ0N UUU  mnw:d27,*L"w fl`X fTL B e7:4v#www ~Fw v=P 6 ׭!7w7.737 ( '7 && w>  ( e@W [eW $e c    7 x D7,55Ep 5ww   z5mf A N  % &f&f~  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 idFilY4- 1111 e" :f 0 C 5 333*50 5  % &&e Je" S%Ue" tK%U w Cҥ[  ,  ]   ͥ*D b5 ( & &  X". X". X"- X"- X "@& X "& X " - , ]4,55254 . Xw w :Ύ .&Ύ  CEDE 9!9 7 ҋ |H4   7 ͇ťť  $ $ ť*+ĝ Dĥ ĕ ĕ ĥ  $*+@`֥ ĥĥ ĥ ĝX$, >J&zQQAA wL^Y W<Bxkf@zDIR V03.00 ABCDEFGHIJKLMNOPQRSTUVWXYZ$.*0123456789Illegal directoryIllegal optionIllegal commandDevice not activeError reading directoryOutput file fullWrite errorInsufficient memoryIllegal deviceU $  njf &7^ @& e W  W @ W t  7 D($ & V]p& LTD ^JV  .* Z    w *A W  v f &22Db22**  2222222e ($$ B` P2 5@5   5  נ " נ me7  H 6zveW <   @   @  P$ @  <  H!( Jf b7 @7 L P@$7 B   `B   ~ @@eW F , 7 7  20  20   RE  aĥĝB$eB    @ ,ĝ$HANDLER ERROR CODE %D.QI/O ERROR CODE %D.SY%N%VA%VA%N%VA%VA%N%VA%N%VA%VA%N%VA%VA%N%VA:%VA%VA%VA%N%VA%VA%N%VA%VA%N%2A%O:%VA%X%VA%N%VA%VA%N%VA%VA%N%2A%O:%VA%VA%VACOMMAND SYNTAX ERROR%N%VAkz?TLB666677)7!7 B ^7 hmb. Lw 8 " 8 . t wmS   K@a$ b 6 0 $ &  `e$ &   7  e    >   B wm.em$ rw6 fwwF T  >)[D6 Available segments, [D in use//&$D DB D ҕ ҕ  [D Files,&v   [** Blocks/&J&     [** Free blocks/& & V DB h w   D  W!W!  w <     &  W!wW!cW!Hewz  S! ! !7| b&  Ve `0 T  R w HB  e   "f@ :,B D       f7EeH 7zEt 7n A   & ^ +?DIR-F-&D b ʕD鈀 &w   & > P \ p  Cנ*D  נ* נ. f  f  H  W   eB`  &  ѕ  ѕ C@  (@  S -.  e  xW e   @m   e  ~m  m &ffa$ t55 -~Ee&6 6   %ʇ 57 6   &BUfUhB&& 6   6 x 6B66Ee5)E$ %& e eUU6  6eh e\^$% eH X6 -- X6X6 6(5 A|7 & & & & f(& & & Νf` R)  % bU65 26C7 $B6 X8#/ XD#/P   a \a P `a :H `@$ 5' 5+ 5f0f e `0@4/e, Ve* HH   : C"C e  ` `u t @ 5@5 @20 00   @5@5 @ 7 vw w$ a ѕ  ɕ ׭P*5  25 x vw xw rwPta$ X 7 w Fw$3 ?.  .Ћe$ B ѕ . $ e B ѕ a4# nj  w w r-HDw w -EO55  B W 4<6a w B -4w20 & 2pf jW &  2 Pp0 wXD7 h  &f8W G0[D1-&f P#W &f@ z  B-[D&&L  "H [N9: &z  -BAD- & w\ < UNUSED >&D .<[S& $ D ^ :. [** &f 4  [N9: &J @ "&  [**&z  vwmt-l ҕ ҕ 7 \~ [N*: &f 7 PDB  i X"/ X"& X", X$0:(e(BA &(e(H0 (A f( (Af((AB&(pB~}P4`4444444t? -f^ZRӈL >/w> b^4XP7@7 7 -$  -  : 7 7   /w5 "!, , 5, 55,ffb0  e0cwB*tB&fe>B @& fE@9tB B 999!9#=%='2 @)4 @+_ 9_ 9_ :_  9_  9_  :_  V:_  r;_  <_ 9_ :_ ,;_ 9_ 9_ ;_ <_ <_ <_ <_ =_ =_ =_ $=_ $=_ $0>_ $r>_ $t>_ $>_ $>_ $?_ $?_ *B_ *2B_ 0@_ 0"@_ 06@_ 0:@_ 0N@_ 0@_ 0@_ 0@_ 0@_ 06A_ 0BA_ 0PA_ 0VAf$  $  m  :W}55556666658we% 2m 5 ",5,  (   be% @ NJmz l a3МВFњ Uѷ- S   з  -  , ; (- 5    -d 7 J B\С #   ~ E rE |" L5>"x#t#Uh# r 7 n#f d" 65# W @@w%#e?f ԕ$" @*7z" # f e0T7  " >) J":"  :"("7#" ) ! .$ 2 &$ U"  ')֯'!  2 t( ! @! : 8! V  * XW!'  | ! Hş!E f' 7  $   7  ` ^  67    hw D"w  4 - -  ֯֯zdzxd  ձ g&)@ ( @ !)   e ee e &f f& w w E 0 A B` "7pA wv BfE  p  B `p 7A @aeJ x: h* X    w f z- ' & D -N  2  `   ~@Ee& fe  & d %V j1Т& &U tw l F & wwC^&) V!)L  B %   C X XRpn %`A  TJwH m: @_[Www PB 7 & , b$? b   3 p@`7%<7%8シ 2p $ P@q X #/ X#7 X#7 X#8 X#7 X#x8 X#d8 X#8  v C   Ƀ .%  2 2 2 2 W  R/w/w% ʋC*   8ɥ && U  Ue U7 + f f -5 F5p5d  ҕ   z ' ?j  d5  $# 07 7,E }%ы7 R@ ,  7h7 f  5 ʕ'5@ʕG5ʕC ) $)55 U5  &  7^ wEwh & f AfE  <wP Ί 7PZ -L  > 0.E%P%E% 5E%pE%E%% A A 5UD~~~ $5U^E    U6E &           0U @   &  >H @0#H-X( UU% r  UKW!( U H W!+ ZU>5U8 PU0- 0 W!(5( 5UU7 5UE zŀ PU0 h ` U  JW!)wU  RU@ N B J7 7 w4wP w  65 EU@ t U<]w    )(w| & U7P (ҝ J W! U ҋ ҕ :# DN# <.MAIN.J) D R@  )5@>52 4/  f p  h  -  R   e0J TABLE OF CONTENTSUU  CU   B F : u e lUe ՝՝     e 4U ՜ ՜  W# e     w X". X"-- -  C-   v ɂ/wɃ   - e 5@p  3 3 3 33 f&fE eF 5  A#A&&e# # #  L  e 4e && V   (U& e  W     $ |!  ˵&ԝԝ` >7 b T (L e$ "    T R  M %  Č 5*2'   w-v    $@a ) \hw 5  0ҝ@ċ(杈 xĝzĵ ҕĵ@ ^ċҝYĵ ҝLҝIΊހ 7    , ҝ,ҝ)ѝ$ ѝw wa)ҔҔҔҔ     ( j5!%(      7 7  U( Հx p F !& PR8 &  .E5 F U ՀU&fffff V(ʋ̋ t X X$ ^c+S-*/&! < 7 db(55   ̵E TJ BR&  N @   N X   &  E7 5   w VE- Z5Uv55@/U@dE@))) Kp h \ 7 \ 5 UPU@ B5  ( L8U W!. W!$U   W!. XU@ e ş˵@  0   +N-T"V'p%z<^3  \ rɟ ŀ  U ( W!> Fw JHCDOBFR& b L c7 R  %eee` \ 4T & y 33 33 w X"- X"-   l}8(8X8C d /wp  x p  \z/wb2U25 ", 5,  X`"+ Xl"+ @D @J25@v e Ջ ,wR m   )˵ ˵@HQ˵ Gы B ~ &˵+4˵@.Q} ыʋ*ы   e % f&% F $72 70 7 , m,  ыJ ԋ  Z Հ  @  W!$ zW!=W!: hW!: ^ׯ . A  ()<>C!W!^ EEJ2 & C D  C!D! UU  )P: 7   x H 7 7t  f e0R& @    &   `@  )! ! WJ2 -- 8 ` &   `& e @4J2 $ A @   ""C0   & N`  U` ew   7 UN @J2  T5 LU,-< F>J2 ,U  7 xEnj  d J2 RşN $ 66 &2% D` bl lr2%s slB B  @`   B`~W!$'R'm^BD @`   B`‹  6  0 '0 B `  'zzkQxMACRO V03.01 00-XXX-00 00:00:00 }%SY2 CD  ŔE @a 2% \^ &wf&7 %CT  |ҷ5  5  5@S 5M5@I %CT, %MT(%MM% %PR! %PP %DT %DK %DX 5d 5r5) %) >>7 & Dw b R  4ww))))f6  RRRRRRRRR⋇ ނ w EU w8 wC w&C w0ك wwUw ws 1&  wׇ+ 6  0 5h  7 d7U N# + ( #13 ѭl R ҝҝҝҝ 0ʕ*  7' %, n 5w7 w* )84 p f@)W"* ! ! b 7 f *̀5#MM#MT%CT e 7 7 5 y 6<6 6>6 6 6 6 6 6   r ˇ 5  8:  0p ^ ~z/wˁ`  8  ? </w` X"F2 X`"+)) .57 wbe U  7 7 (5H   w9`%  -D5 6zt tpe&m \ * e5 *  f%  l 5 UeAK  ewz\V T)LU H E7e'7&75 5 tu E7ne&77` W!7f@E` ESL"t, @` `B @@% J A%A < &  ,4, %N  wp7n'  L #`B 6  #1-` w*7( sB*%   7  W!0-0-JUF@e%    C `$@D'&W!  7 Be x׈^ %#%u% u%W!  wׇf%&%0 %0 %0 %.  ׷7 LfA%B%C%) *))))**P$$$$$$$'B$f##'#B$   @@@@@@@@@@@@@@@@@@@@@@@@@@&.I3r32(3,3xK3M33f`.Oq37 7 ` %K[MQQR Rwyz[-2Mp ,,n -!,+,,,.,8-K,K, N,W,&X,HX,[,, &,@ 3@8K@oMBaTq rtS`AY P@`  s@@ z@s:  67 2 `+ 7 " | 111 $) - /w Bܶ5#/7m55 57mem7|5 t,t,5t,  N @ FҺ . f e4ҷ8 8 ŕ /  K@K &@K8@K09@KK@KK@K@Kf@KK [M"|zQD |Q!|@R@@R@8@ @RvS@S%@S|Sp|Sx}|pTpT@8 pTvT@T%@T+|OXOX%[q`"\q9wW$|w w%w@8wK x#|AyW%|yyy@yh@y@y &@y&@y`'@y@yfyy} z@ z%@ z*|Yz d @ %@};1l*;Bj*;>-\E\\XHV*i}T-x*֯֯t֯x,֯*֯*ׯ}h*گrޯp!\*P $^Bl!0n+n!+n%,n++n,+n.+nK+nK+n N+n&X+nHX+n[+n},n} ,n+q%+zdtzxd*鰼RL.y   , |*1q34 345@@` 9@` w ERRORS DETECTED: VIRTUAL MEMORY USED: WORDS ( PAGES)DYNAMIC MEMORY AVAILABLE FOR PAGESJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC,%@z%vzkQrv(:' ++ ' 4': hd ^: Te F: h' N F': F ; 8' $   :' Z ' ~ 2X;#1 5q      zwT; N#fA A A E ҕ-Ee; .ҕ-EeH ,% !,<5 2 . *& f "f ҕ RRҕ:   @ E C! eŋe:/<w $'e L7 L7 F2% W,x 7* 7  7  N[ ' '  &  /) Eѕ a&) '&7 X 5@ŭE~Ux) HEU( 2 Z P7  47 6  t w> &%H  W!'H `  . H5F|X7t h5 <J) 7 ~'5Ӥ& m & & T >7 # VЕ.d 7 % b %e ee e P (@f e:  l85<"fE  e4% Е Е-PPPPeH  Е  X"F2 Xl"+ X@$(< X@$(< n XT rL 2 w>7w R ҝ7  ) nĝ d mvU 4 7 X-R UZD@ .: d  Jw Ŕ U-xLUK57 j z)5EP W!:U@ 5 2EU P&5-ʭ  L5 UU5Uv > nw p& W!=@ `)ff ܑ& 5@*UR& 5UU5@5 ,5EPEUw"$ l M7HU3%45%45%9%2]48 \W!:wxW!=w" n w W!$ tW!:  w  w LJ29)   ^5U H  BE ܾ< @̢& @ \     4 * n)ff  7 wX v wp  Uv  ?U^(L x  4B^(f(! W V(A^%+%-F J25 4  \ 0bab b b m %.w ށ%E  b ٷ7`@@T@T@Th 1"3  e    5  z t p ed_U b(J  5n  U^(r ^(  U `m7 7 V7 wX" 0 B $  4 $ la  0 ?SL =wF &m%5 lwH  ]TU̇  : & & & & & & & & & Ε )7 P7 t~7 p @ 80 b `@0h0f <tf+/ `w/ $ hE d' 2 f f5d'wPŔE RW W{p2Ud' W x2W W W  ff&& l$r'O r' ߋ*Ud'Ud' d'2%B  wxpl$Op dE d'22   V" eb f&  c  ,   S5d'e?w$e07/ /w~5* B5 EDw7ʡ6/w,:/w$/w: H D < 8 0 djw&3 X0", X#4 X"% X\#H4 Xh#H4 X#/ X#H4 X"/ X#6 XP#3 @ae  $,  e'(&E%$e  ew  h% Շ   & U Da- w s &  7  Uߋ* a7^e Հ w w8 & H Z  nN A  JB @"e E@ e撋܂ e  "ww  ߋ*w zw t$&   c %e ee e  %ɕ@ Qɕ Iɕ 0@P`p@ (@Stack symbol? Transfer symbol? Library search? Extend section? Boundary section? Round section? ?LINK-W-Bad option: /X?LINK-F-/M odd value?LINK-F-/B no valueLINK V05.02 ^vxQyXBTHMBZULET"YJ0HR7K3BW*EP~EZRIRVL^C`/ `X`S `I`F`A"z 7 v7 7 7 7 7 $7 7 7 HK<D n*dnlj42fJ& ,    wV %w,6 G` 5 5wE wE    w|/w/w X#4(D#<w >  w 7  " U !w  U=4 ~w +"w UD#e7$  Cb =$25e`  C#!B B % Aw 55w`w"  w  e%  & w  <L 7>75 B $) 5D v5N d5@V R5\ @5  .7 bf UPw A XE$wR= =D U  EU@ & Se&@P `'( (숀%w@9e 0@ @ =hw 6 V  (숀#ن%$  Sddd7 Xe w ff& $ *@(    e  e%΋ ` `ֆ U΋% @w V#Υ ΋  %PeA  z'jL^zzjL^5 5wE wE   wt/w/w X#4]> * 7z5]* E8P470 5 =`  55 E57 h "7\bew '  &ew 5@E-& n e  7C, P f em BAE f emx E &  JP EK7ww @EAE  f em(W< pP7 & ,m67  5schA E f em  E-lU E]\ f&m&5 &EE# f em^W<=hN, @s,s,  ^P UEU5 ,$ew  E-U f  (A E]~XUjf =z <w "m(%@ ^ Z Wf&L&  - A! wE Da v    %  >-p-l E3`@<% r< %PeA  7-7 =0_wt% U@E Xww U787 4e @@ ^AA E f eme- F W<eZ E77 : tUx EŭE D!e w &@E`wj&5E 7Nwfe>-> <E ER ww  "@E @$  CSSKE" B fwBe ,B&U5 5 5  l5 Z d5 R 7 7 : @ HD q   7 SY w 0}.; }:;&;&;&;&;;;;w  ww>;;;B;f;;p;p;wjh; V  H    e E EE&eHf& c `5%E lx  eF QQQQ & eF  ѕ `^, 25 <  & & ѕ: ѕ: ѕ ѕ    lѕ.$ ba IIl Lp  :5B\75N 5@@ NH P   ĝ  vw RÕ/ eѐ  <  D @    &  -  w 7  @RT-11 LINK V05.02 Load Map Title: Ident: /B: Section Addr Size Global ValueSat Sun Mon Tue Wed Thu Fri -Jan-Feb-Mar-Apr-May-Jun-Jul-Aug-Sep-Oct-Nov-Dec-:Yw/M w  =B!f    7L (@ρ7eDƇm Ç= @9, & A& BE  em<l E#A ]w <Ece=Pu  &  E;  eml<,, & E mt5`&ew '`-,\,V lE=@ w ( @ m =w jw b(=@@71`e@w <'7 & & &  # %%  p+&   ;  ̓   0  f/  ł  w f/ 5D 8 7 . --)Bm @~ & fe8? T$eP  L m  wjw f 5 H 89f"e\e!e  5f n2* eA 7 J  0 & $ =@w  K   P  =!X7 R<׬7 B Ӵw  `& <ѕ,  6 7  7 e7\7e  7& @` `77e7 e -7E 7Nw 77 NDV D 7 D  w nt"e(Tww=   D7 6TTq & *,! w 6Ze>~ %R Fn|7o\\7 ~` ^ 77|7  F<  w^,;&fe>B @& fE@ B =@%w eH 7 @@17 P@7+   &  w P7w =w w w P% ( 6& n݇ r@ &ѕ ы@ ѕ  e: &  -  w *7  @ = OOOOOO = NNNNN. words Undefined globals: Overlay region OOOOOO Segment OOOOOO Segment size Transfer address = OOOOOO, High limiteBB `  ɇ|&& f&&G& & & & && '&& Xt#p5 X#5 XP#3 X#4 Xt#H4 X#5 X#5 X"1 X"% X#5 X#4 X#P6 X#N5CE EU4~  % $w  B!d ^=wwD   %% w> $%Dd 3<@]f T m    E w jLEŭbE B! e w @E`w&U w"Ew7  J& DCe=d mZE%%]x 6 7 ww . 6 0 .  ! &E55 &  (w w  l9 ` ɐ5 @ @w ! A  wL@  @w  8`f) % F w d" K K DD#@T K` w   -l3w  '7 L n6 (w ) Z -2 m8  (w ~) T@`#-͆l-e w "  3  :  (e8 w & .w-  m5 5Q . *.-hr&E -Tpm^ E` e `є  w V7 , Ӥ@ 8  ,e7    7- B e% ex f7tn7z7hbn^ i%f&-/ n, ffh mb ,   AeU 7x^:/wLJT:n:B @& fE@L8  B LvL$LL L !Ly_ _  _  P_  L_ P_ |_ P_ B_ T_ _ _ $N_ $X wWe:wee K"s, P"P, % Շ    &  Vc7 2  Da- (w V=w Hs  zߋ* a7F =@ww&L   c %e ee e    X -f ߋ*w w p(@?LIBR-F-Bad option: /X?LIBR-F-No value allowed: /XModule name? Global? LIBR V03.05 N8 CW/DEGNP@ MRU"U 7hv& F, 숂@ e : 8%> %P` G`7Q  Q Q  Q gw`^^55 5@ kQkQ5w  Re%^5@kQQ$ 4U e  " e rDe%^5@kQn=h=T=T=T=BB,=     euea r/wf X #/ X#H4$5 U @0h0f <  (*/w./w  ȕ" e  6.;*  $& B b$& #   | ; b7wV5w* n rw*wnp $  f&& $ *@(    e  e% ` `ֆ U @w v   n N3     r % rw eE 7w7 wC-&  @ %  ww =V  %% Wh *8 $ j  f@ @ U @ 7w@w     5    j  wLJ   wLJf5P b LPN͇wD&~5.   &&fd͇ " X#`/ Xd$(< Xp$; X|$ < X|$<< X$P; X$> X$> X%> X %> X%> X0%> X0%,? "7 7E     7 , 7w w vw f w Rw J $ w 0XJ $ 0 w X.W w   D  w4XOΕE w f  ߋ*  w@w - " s   7e ׭ Z  J ME I> ׭: C   -j w  &  &  w z. T4, 4w f8 f d0K  K2 pp0 w 7d 7a ,e"5 w7@Ek    #  @ p  \  \% D    @E  &   `    L@  w     (    V wW w& &EU0 h l$& #N  :ẇ̷f&f "w̷7 ̃B X#/ X#(/W= f Rɋҕ ҕ W R TGNWXBES?DUMP-F-No lp?DUMP-F-Illegal option?DUMP-F-Write error?DUMP-F-Read error?DUMP-F-Insufficient memory?DUMP-F-Illegal command?DUMP-F-File or input device not found?DUMP-F-End of file detectedM`THS0 . BLOCK NUMBER * / * **** TAPE MARK ****DUMP V03.03    ^-7 RB% > 8 0 V -P- @ wŇ D j F˄% =˪ D$7 7 ˟-~l7 v p-: d!VP aEf2&&  $E@@5DU@U E %}%~5@$ 5 DU@ 7U,75D`B HRWI b|`Hj%HE ߋ`W_J F > ߋ`ߥHH HY j b5 R V 7E,&5D!%#% %% % % % %^U@$  &%@ B5 5 'E h!f7 7 f5D % JB@!U$7  E$EDU@$&E@$툇 DED x%&( edF f 37 :< f+ 'ffAbc7 `!BXc,1 `@mZ@m``B cXe^7 7 7 ""D%̥,̥=̥<C  ӕ= \ 7 x"7 r>7 l^ K x  !!!!!\ :   v % % W 6W7 --V  7 ʫ^/w( X,#/  7 7 & p -8 W  f/  5 S -@  lB x h˃ R$ , - &B6 2 lŽ7 VB  L   mB%v ` ߋ* 7S Dv E7 >(R n v     [+2K Memory]%Superseding existing file?HELP-F-Error in HELP commandK6,D fe B  <e@eRe'RX Z``^5 du B UDd&j T V7 7 7 U0$R5$wRE$ wpe,j< w>9Error in file name~-F <%% 6 E& ` - "4 .7@ | 7 %  - % $77   X#4 X,#6/ ^V%wB8727 ,m  -˷c w 7 ˇ b  CD  ^/w 0&   f/   @%w7A7 w˄   B/wt@5`b5 & Cm^Bm^A * W-*d , B 8O:5 *X 5D:N C6Cm^ ? Fu<!Yu-<U& \ 0 @P R ED@@ * @Ae2! E 5 5 *@:  7 6 %5 :5 5*Abu ` b Am^ A^ed7 ` &7  cY'7 Rn'      c D Dmw * 5 * fu R & H  B Bm 5 5    BXA4` Bm\B ѠW AXu4B W  7 , u5  u   #D 5 wf 7 ~'   f7  >-% 7  7 x'7 b ;  7  5 @ w, f85 87 P =u 8 f8  b 5 7  =5 >     + 5  8 8 $5 u \ Cm6Cm^`  7 %7 "7 " ee eee*!      5 $7 ' $ w7 D c 5 @@m6@m^ 7 $ n c @@mXcBm^A  N  5 L  q7 U7 ^&7 F0 l 0f  @(@4u(4 J5 0 8@  '5 D7 ;5   ' Dw5  @Fw7 Jy' 5  0$5* Gm*  A@ B  @> B@>L5  b  &N I`  C>!ŀ Bm^w5  Am>ɕ *  @5 >E& A4AmX 4 >  CNm6C   Bm ~-ʷcn wbe  L F D7 8 X#455 ŝĝw7$Q$$P 77777||^̡5Hx;dx;;;<;;&<<<;<<;;;;; /wPw X #/ X$0< X$0< X$0< X$< X$0< X$<    `CCmXw@P @ h5P 58@N8 >5@>2 >/ 4,5  @\% um> @4  u5 7 v, @w  ro@bl@2i     @b [eeeB 5 u 5 &5   .7 >   .7 <@7 )7 .:( 80 @& 8@m& @`5&Gm  @m 55 @u&5 & 5 5 A A @@@]   Am @   A   u 7 C5  e@@ Ba  f4 4@7 : 5 @ H  @@m4 &54  ( @ u4 B4C\`7 Zu\@X ```  wT 5`\@X ```  ! 7 $"(C !A cD5  PffM7 <! `5 tDm6Dm^ 65  (5 6%  <5*u,+5, 5*17 t&  x R    5 5 FZ&! u+,eW( eC8.(& &u:BH  *| ^ (& xf  e@ Ze A*B @B  "E 瀔" ^ > Aee5 @ fAa Bd 7 .:B( f D% @ae Bb Bm^Dm^Q$ddddA ځ 7 QP( h b% zfBbBm^ 0vC% HBbBm^Dm^  &Cb@b `7 `ub@^ LeT 7 N 0@m""7"?eKW    ˸   f ^@mZz ?v n  0?R   @ m:  C$$ "(eW  b  @ HD&&  ( 5 D ^ J     j@P! 7 Q TBm^ ӁE    U 7 y(! B7 _7 |*BЋ @& f  W- v 7 :9;(& & 6 6 5 >A4AmXumX\CD  \ ̋  * &A * m u X݆u(D aa 5>CXuX(4uX\% L׬@ @e @3     *S$0!A!D!L!C*!R XG  \   %  膄 f NABm^& Sf&@aUFZC\`Cb7 N Bab`d &f@^^  C` 7 !% Adu dudH` @^u`^C`` xV 5 45 \5 27 :ZWVUTSRNLGFEDCA><XWVUTSRPNKIHGFDCBAJ(J*JJJ,.02J?* H^,^R_^][XUSQONMIGFE@><%"! < WRNIGBSRN8lhVJbLh|!PHLLl\0|nLL fLn"8dddddddd^^^~<Z 6`JnpH<zrHL v zIllegal commandExecution abortedUnterminated macroUnterminated commandMemory overflow> not in iteration; not in iteration%Search fail in iter Search failureIllegal insert argPointer off pageY command aborted ^ J ʷ  &ʇ/w X#`/ Xt#H4 X"^2 X"r2 X"&2 X"1"T7 67 4 p  Pw&vw J@@# 7` 4 CwB/w f  W %ʱdEw C $ AwJ   ʇ vʷ  &  EW"El  5El f 1P SY:SYSLIBn ӷ j PPW  eʷ ʷ  * pӷ ɷ Ƀw X#5 X#46 X#P6 X#N5 X"L27e7 7 7 N T$ B  @ m  C$$ " eW % e\˷ Z N˷ LFhˡ/wVF/wF7 "-1 :  $  - !e000000.SOU00000/.OBJ1LST:000?BATCH-F- END BATCH.4a aa4a4 e4( a P t0P 04 5P P 0  a& P 0舨   a0a aP 0舓c 0 ( 4 4 4  4 Fa& && 5$E$Hߋ*P 0P 0 _M Z  d &F]P7P 1鈀w  & C"d, , /w   "e ʷ :-n 5J$ W  5 rw>L w$/wX X#x8 Xt#H4 X#d8 X#76@0h0f P7 W7 ͇ $/ /w/ @ȕ" DeaW N ĵ7 7 H  Ӈ І7 70 ̷ ‡Q7 t Ql `f  D v Ɓ w P 31 0  F@0 < 0Z 舨z zUw  aw bF %  U444FaN wP J1wÇ ^&0< 0da3  > a6 a0 6`@@, e0& ㈼0RKDT LPTT PRPPMTRFCTCR DS MMDPDXDMP U1& ߋ*4 0P d1 a d5-j j -jw F 55  X@Xw P_M_Mda  ^P v14  a P 1 2舂 e 5 w45 q& aa" b "   ߋ*KU4& 4 0P 1AaC@ 1 Q$ fa 8 " a ``ߋ* 4 0P 14 0P 1}d4 0P 14 X Pa aH  aH ؇4 @-j5w&  a aHw2 4 5 <68:2  < <5  LEwF@05w5 0   N ww, " a܇ a     a P 1 2%\ (%C %\ %\%  %  e PPPPPw ts-w >R-w 0/w "z-w $R-w &6 0ŰU5  EhU % % aPaP  H` a&L Lw 6Fw /w }-a a FaLN L5E  Ð  Õ  @̂ ˏ7 > ̔̐/w X#4 X#5 X#4 X#4 X#H4 X #1 X\#H4 Xh#H4|&& f&&G& & & & && '&&a7 7 7 @7 >7 O.   D5 H< 89f"e\e!e  5f 2* eA    5+ 0&   Pp5 @ &:`0 `e5U5 5055-ww - hw.ߊ* 5J 50 5P pP5-P -3wA & A e( f Ee5@ @  P -P -4 "4 UN whP - =2  , Aw rR- 0 "w $ T\@L\CD\D<\E4\F,\G$\H\I\J \K\L2 ET v p B vËÕ T  <5l5hU    a1 a a %#"! ww .5UE55U5/5*w "R- Õ1 Õ w .w R- ,ÕA zw R- jÕ0 vw $#.w .ww ,9.UwNw F A.w B.w  <  w G.w O.U   w [.w Pw `.w @ـ E@ & 5@w d. N ,w g.w k.w p. 0 w v v. XU w /U w y. w   w l. w rR-w \R-5@ w   E w >/ 5@E w < ȥ$wȥ*[w R- %' %%'%"5 .w F.w <".w 2  w R- NХ'  Z Õ `w R-w R-w jR- B%"w \R-w ^R-ȥ.w XR- %:w xR- Е:%Õ e  557  (  -Ls-Do7 D7 H7 H@8><7 .54- V R 6  ^t7 o ( >$>f  pp W- i d 7 2J  6==  pp 2w/ /  -B    8 W W / |w  -     ~/ 4-ʺ ^  -w ._w @Zw .w w lC w v@w X= RFw R-w R- 4w .?w /w @w ! Pw /w .w     &%: w . w .w LR- w5@w 0R-Õ? Õ w BR-   w  / w R-w /w /w |  w w @w w t5LSLC2’¥Z @¥90Х= Х"%" w / 5 UffE 5 Nȥ/X E ӥN ӥO5=U , & B) ¤w t( N w "/ B 5 @P-E `} w H4/ȥ/ȋȥ   w jC/"w G/54&Uw R6w LR-   Õ^  P fACы E 4& : Lw Y/?w /w l &  w R-& wp wV w \/5w R-Õ1 b ȥ$ w R-  5@ +w +w +w +w Õ 5w LR- E@  &w / a Ta(P Ua(  &5@U@5 U&5U Uw ^`/?&5U Uw >k/|&w ,s/?w 5U@ (5w B~/w :/w  5pw $w   q5U w 5  >_w / a 5w / 255w R-w R-5 w / a `w /w $5`w`w |/w  5w (5@ S- w HR-  w 5   w 5   "ㇵ (xʵ   -B >  -& Vɲw%N TOTAL OF %D. BLOCKS IN %D. FILES%N%N %D. FREE BLOCKS*.*; X#6 X#4 X#>5 X#x8 X#H4 Xt#5 X#8 X#5 X"1 X #(0 X #0 X #1 X"2 X#d8 X#7 X#7 X#5 X#6 X#b4 X"& X"% Xh#H4 Xl"+ X "&R- %= w (R- Õ9 w n/w &/w R- Õ1 %:w .w R- a0/0& w <  H  R R% Õ/ DC >   a$"  ab%`/E@E4 2 4 aȋ  V  %: %. w / A4  |E2 ]22 w `0R2 f A 2 B@ w @0B2 ¥+ E2  .% %,U@  w 20w D0 %* 5  %: .w *R- w ^0.*#%*U@%+ %/w ^0.*  w a0>*w d02*Аȋ w Tf0   f&  %" %!5 B% %   -$ & fw 8R- ȥ  Db@ !#(#l$$$ '~'EOJEODSEQUENCEJOBRUNDIRECTORYCOPYPRINTDELETERT11MOUNTDISMOUNTMESSAGECHAINCALLDATACREATEMACROLINKFORTRANBASICLIBRARYULLOLLARSAITUNATAAPHYSICALELETEASICREFORTRANACRONPUTIMEOGICALOURCEXECUTERITEIDISTBJECTUTPUTT11ANNERNIQUEIBRARY!!!!!!!!!!!!!B!!!!!!!!!J!R!:!!000000.SAVBatch stack overflow$$$$$$/R/BCommand not uniqueTIME'$' missingUnknown commandEOF with no $EOJInput errorOutput errorOutput device fullOutput file not&7 0  D  B &$ :#  ~ȇR/w X$"4& X "&re "."Multiple switchIllegal switch combinationIllegal characterToo many file descriptors, Line too longPlease load LOG handlerPlease assign LOG,LSTIllegal LOG deviceBatch handler not residentBad copy of handlerIllegal command lineIllegal deviceToo many output filesBad switchUnload BAReturn from call errorInput fileDismount errorNot enough memoryIllegal deviceFile not foundBatch fatal errorOutput device fullChannel busyLOG device errorAbort jobNo control file,eee | j ? `ɕe ( & ҇/ :(ɋw B `ыB ɋɋB  ewz `9 w }w* " 4 7 *00 w2  5  h  p @ R : N wL ewF ew@ HЋЋЋe 7AI 7 wh∇. ߥ*wf wb :D,*e  \'$mm.Ƀm$m" ɷ  7  ܆w X#`/ Xd$(< Xp$; Xp$;vDUP .SAVzvDIR .SAVL  $wl 0@i B  *6 .  *27 7 0 Z @ 7P *"0  w4U@pw Z ѭы @w 7 e7%4 @   e e| 2 R?  |@]kՋCwpDխ@ X A fC-   1   w. nw  w     ii*ew RT11̕AeeDECRT11A d bpЭ8Ћ  w w wwwB7b%T@ ߋ*wU$pzA "bzADe E$e *& & ȋ   T  X   wrwhw 7w wwew~BC e rwz@3  @"? `7 Vw 7 N ( m   `&` J Nl j  8 (2 w w w w 2@m7  17 wB w e N  7  < ͋ww  B w7 ŝԋwD   @ Hf`B   7   [͋wr  hWwP7Nv =  /  D> F ŝJ-5N (??T?.?     w  +*  ' ## !  Ea C    ҆/w x:9ŀ - %    ׭!7(w7.737 ( '7 &h.& w ( @ e@W [eW $e c    R5mf A N  % &f&f~   鈀+w OWNER NAME VOL ID? MDUP V03.01 ?MDUP-F-?MDUP-W-Bad directory blockIllegal commandRead errorWrite errorBad blocksSystem errorZNRBVKHFSICTUOYLXWRr> %: X!}<}; z:46ŀ 2  >  /w$    XL$: X#4 XX$`; :4.C   ꆇ/w X#4 XX$P; XX$`;fv && V N $E@@5DU@U E %}%~5@$ 5 DU@ 7 U,7 5D\ B HRWI  b `H %HE ߋ`W_  ߋ`ߥHH HY j b5 R V 7> E,&5D!%#% %% % % % %^U@ $  &%@ B5 5 'E -L %D V& -@>ɃmmɃŝ -5$M}R@w  ȷ  ↇ ŀ   f ꆇ W W W -N~ȷv >8ҕ  ҕ  CJRa-70  B -- * ӥ  ӥ  # ӕ 5ӕ$˔^@7(z $r E  5D55 @P7 @@   \v@a  77 .Nf4 $DA\ fP @ $Ba :5   7 Nu4/ DA W  ʋ  ( u 4@ $5%6 ͇uҋIA lNR !<eW evAa($  D$5   vBae  `R@  ``B   7 HDA\vua  5 v  N4NmXO 4uB . 4   ^=7DmXfE /5D O     c  5! uu PO ? NΆ (  !    A f* ˁ 0 N$  e@E^ DX5!\ P  @a} &@eP 5 5  W-   W-Ca f e f&& B A`N W0 ѥ   %  N  01 f " 5 $&@5  "u " e e  & ^P`@p 0 0  p  @FaGFkGDFhGKYJ I%&( e E`Daa  f PR ȷw f ,ↇ5wwt??T? XX$P; Xp$; XL$: X|$< F  f d & Rކf/w^/w‡ X|$; X|$<N7  " r  H !!! 7 7 j7 7  &N` m6%:  %   ߋ* 7 X(<R7 >h7 5 25 Nԋԋ  8  \W  B ꂇu Nu 27 x%ߋ* 7S D E7 4@      [+2K Memory]%Superseding existing file  >5@0 B b$& @# 2 ? |777  5L * 6n/  Z/ ? X#4 $xRE$wXe,Rnw>9Error in file nameInvalid deviceRMemory overflowEdit Next not implementedEdit Indirect not implemented>RMissing file namewDirectory IO error_ZNo room for output^Output file already open'File not foundXNo output file(Output file full EA not implementedEP not implementedaOutput erroryXNo input file:Input error7 ,:n3  b CbCm^D , 5- ^7 *~3u, $# u-<7 @ X@5 "@m6@m^ ,ցw0 X7 l m3W-&Iw  t @5`b5 & Cm^Bm^A * W-*d , B 8O:5 *X 5D:N C6Cm^ ? Fu<!Yu-<U& \ 0 @P \ , R ED@@ * 4@Ae2! E 5 5 *@:  v7 6 >25 :5 45*Abu ` b Am^ A^ed7 ` 7  c37 R3 L   20  c D Dmw * d5 * fu R & H  B Bm 5 5    BXA4` Bm\B ѠW AXu4B W  7 , u5  u   #D 5 wf 7 3   f7  > -% 7  7 x37 b ;  7  5 @ w, f85 87 P =u 8 L 8  b 5 7  =5 >  $   + 5  8 8 $5 u \ Cm6Cm^`  7 17 "7 " ee eee!X"% X "& X$"4& X "& X "& wb5w-nw w67 7  7 5- 7wȁ  &5z(    7 5fUwD%be $~zvb7 rȇ &7fd  X#`/ X#0 X>E& A4AmX 4 >  CNm6C   Bm^> A44AmX 7 *94 *B2@XA\ 7 W5 *  v *    @@mX  @@m4 @mXw7 hf'4A\e7 Z5w 3* \  V * J% %N@\AZB @mX ﻇ 2 Nu d n젇 J 7 84C5 7 27 ERD  0    ' 5 w^ b@XA\ VB2 t T      w 5 & @&    `  `CCmXw,@P @ 5P 58@N8 5@>2 / ,5  @\% um> @4  u5 7 v, @wF Z ro@bl@2i     @b [eeeB 5 u 5 &5   .7 >   .7 <@7 )7 .:J4 80 @& 8@m& @`5&Gm  @m 55 @u&5 & 5 5 A A @@@]   Am @ '  A   u 7 C5  e@@ rBa  f4 4@7 : 5 @ H  @@m4 &54  ( @ u4 B4C\`7 Zu\@X ```  wT 5`\@X ```  ! 7 $"Y4C !A cD5  PffM7 <! `5 tDm6Dm^ 65  (5 6%  <5*u,+5, 5*d$; X|$;HBbBm^Dm^  &Cb@b `7 `ub@^ @J+5 6u"u`b`@^ w@45 \@mX h `E &AaB< < .7  R 7 7 d47 T4 >u 5 5 \w @  C@  5  FE %  :%/ . $   [%@&@5 " @m6@m^   dN p  w   u4 \u4u45 @5 u5@ @f 8-   8 f  e0 HD&&  ( 5 D ^ J     j@P! 7 Q TBm^ ӁE    U 7 y4! B7 _7 |*BЋ @& f  W- v 7 :9;4& & 6 6 5 >A4AmXumX\CD  \ ̋  * &A * m u X݆u(D aa 5>CXuX(4uX\% L׬@ @e @3     *S$z-A\-DP-Lh-Ct-R XG  \   %  膄 f NABm^& Sf&@aUFZC\`Cb7 N Bab`d &f@^^  C` 7 !1 h Adu dudH` @^u`^C`` xV 5 45 \5 27 :ZWVUTSRNLGFEDCA><""!!!"""" "!"""!!XWVUTSRPNKIHGFDCBA&%&r(&%t(%%%%%v(x(z(|(%&?* v8_^][XUSQONMIGFE@><%"! @*"***@* V*F**"*"*"*"*^*"*WRNIGBSRNN##"&!&,&'&&#&&-&&&("&&6"'z&f(&'  'T(&!!D'0'@' l''L'R'&P'&H'''''''''''( (! V*$'((%"#&#((8 !Z#)$$'("h&"(&V" %&j+`!+2 X#Illegal commandExecution abortedUnterminated macroUnterminated commandMemory overflow> not in iteration; not in iteration%Search fail in iter Search failureIllegal insert argPointer off pageY command abortedIllegal numberDelete too bigNo arg before Illegal characterIllegal Q-regCan't pop Q-regPush-down list overflowMissing )String too longIllegal search arg!THIS IS THE INDIRECT CMD FILE INS FD SET EDIT TECO DATE