,t-?.6 7 `7 f RlVhR7 P7 N  mhc w7  *   w׭ -w  : x@ .<BXVd4r V@ w wx 7   鈷 wR$ wD  W b 0f F 2 # |  0   # J & N#         v wdt rbrrrrr*rR R -N w2B 6 r $7 $  pRbRRRRR*RR x7 r pX  Z  -  ( F ( e7  ҕ ҕ  > R 舷 H 7 m8  wF   w(xvql w7 Rwx 7 m w,  w $ w x 7 l wL6  vw8 7  w.e@ 7_7ww|NwIj    w F w ~  ww4 f w X  w > 7 z w^ w 7 i  N w*e7 > @ 090  ``   w w          Q 6 x l       J"   p5  nN i X-P $   &   鈇RESETSET ? File Name: FLIST V05.00 Output File is: u.MACpValue must be greater than zero!iFLIST Options in effectPage Size: Double Spaced Lines Single Spaced Lines Line NumbersNo Line NumbersNormal Form Feed Simulated Form Feed Extra Page No Extra Page Title BlockNo Title BlockOutput to Spool file Output to LP: Output to a file Default file type: No Default file type Margin Set to: Default Device is No Default Device Wait before each page No page wait Full ListingList starts on page: List only page: Bad number FLISTA.LSTEnter up to 20 file names. A return only will start listing. Preceed a command with the *. The commands are: TITLE - Include title NOTITLE - No title DOUBLE - Double space DEVICE dev: - Default dev TYPE typ - Default File type EXT typ - Same at TYPE MARGIN n - Set margin START n - Start page ONLY n - Page n only LINES n - Page size OPTION - Show Options QUIT - Exit, no listing LINE - Include line # NOLINE - No line numbers HELP - This list SPOOL - Out to spool file ONLY n - List only page n WAIT - Wait before each page OUTPUT file - Output to file  LATER BR P20 ; END OF LINE P30: CMPB LASTC,#15 ;Was the last character a return? BEQ 6$ ;YES, A LINE FEED IS OK MOVB #15,(R2)+ ;no, put in a return in front of the LF INC NCHR ;Count it 6$: MOVB R0,(R2)+ ;STORE LF INC NCHR TST DOUBLE ;DOUBLE SPACE? BEQ 5$ ;NO MOVB #15,(R2)+ ;PUT IN THE RETURN ADD #2,NCHR ;Count the return and line feed. INC NL ;line count MOVB R0,(R2)+ ;STORE EXTRA LF 5$: CLRB @R2 ;END WITH ZERO BYTE TST MACPAG ;IS THIS A MACRO FILE? BGE P40 ;NO MOV R2,-(SP) ;SAVE IT FOR LINOUT MOV R1,-(SP) .CALL INDEX ISO,DPAGE ;LOOK FOR .PAGE TST R0 ;FOUND? BEQ 2$ ;NO MOV #.LP:: | 7 7 7 7  .LP:: | 7 7 7 7    Nppы W ~" 0 0\ L-w7 X  @E 7 Z ) _ 7^ F 6 <-8 @,E    7 ׭ ҕ   ҕ e  f       N :7 f 2w< nl  R   B * vL &   t   \ 7   Hf  \  e7  ҕ ҕ  l  O5H @ < nf 0  x!V׭ ׭  7Е  4 7 7 - L -  -ze File: Created: Page ; .PAGE;, a new page. TOP: INC NP JSR PC,TPRNT ;Is it time to print? Skip next if it is. BR 5$ ;NOT YET, RETURN TST TTMODE ;IS THIS A TELETYPE? BNE TTOP ;YES, GO SIMULATE FORM FEEDS TST FRSTFL ;START OF FIRST FILE? BEQ 4$ ;YES SKIP TOF .CALL FILBO N4,TOF1,N1,Z 4$: TST WAIT ;Is there to be a wait before the page? BEQ 5$ ;NO TST FRSTFL BEQ 3$ .CALL FILWRT N4 ;WRITE THE CURRENT BLOCK 3$: .PRINT #M.WAIT ;Tell user to hit return to continue .CALL GETCHR,CHR ;GET an input from the terminal 5$: TITLE: CLR NL TST MODE BNE 2$ MOV #3,NL ;THREE FOR HEADING JSR PC,TPRNT RTS PC MOV R1,-(SP) MOV R2,-(SP) .CALL IOASC NP,N4,APAGE MOV (SP)+,R2 MOV (SP)+,R1 .CALL FILBO N4,TOF,NTOP,Z 2$: INC FRSTFL RTS PC ; TTOP TELETYPE PAGE ROUTINE ; IF TTMODE IS SET (# 0) THEN THIS SECTION ; SENDS LINE FEEDS TO THE OUTPUT TO SIMULATE A TOP OF FORM ; THE NEW PAGE IS TITLED IF REQU Type Return to continue with the next page: M w`, Type Return to continue with the next page: w`p, @,ee 5 5 le eS$ e  7  7 W% D @, ~EeH& EE&@|& hЕ- ee[PPPЕ-F&H Н2Н/ JanFebMarAprMayJunJulAugSepOctNovDec  A ( A,P     r f& & ы  LINE TOO LONGOUTPUTENOTITLETITLEDOUBLEQUITEEXITHELPDEVICELINESOPTIONLINENONOLINESPOOLEXTTYPEMARGINONLYSTARTWAIT (.~6zBvHrPnVj^ffb^nZtVxV~RNJ ABb w7  <W% ]K}U% ^  T P L H D @ < 8 4 0 , ( $   > 8`@A "ע: ɋ W K  N- @CbB`-    D E A@D D e0bb -ҕ* *N&f&  $&U$= 鈀$@ACD7 B Ag w4 ɋ     @ ABCS  0 " +  ,F,P  X,    r,) ,  D NrC7  w w w  :,!w  d, - F,-.,, w  ,  ,H ",*v F,r l",7!j -b  V  N 7 L :,mD !dd d,2:, w*  w w w ww. (  V2"  <- - ӕ<B    --n ӕ<,X-<-*ew ,-: -2 ew* w, N! Zj-,ȕp0 17 . 5@- @Z5 :- 6- 2- - 9*! h-׭ 3*52 - /"*! h-׭l 7 ^ 7 d V <Z 8 6D  w|4 w w w w w w b-, h     wq+F,1.,0 4, e+   ",)   + ",  ",",3 ",(l e  1+wP ",~ R,:,2 d, N D kC7 T wL wN w > :,!w. * d, @H- F,K,F,.,,, HF,",&1,4,  ",  ,H", wVwtF,p l",7!h" \-X, HB",1, $7 "  ,.,  -F,,, H",1,wzAw7 >B W +14,4,W4,    GAW  ((  -",   +2 ", -,e ,,,ч e,    w W wpB +@w.,% ,1+1.,@ )r,), 1R,R,    e+& R, < w4,.,  w1.,  w.,)w:& ,& ~,,&&& |,4, 7 e:,E?:, :,w\ d Hw.,' . ,ȕP0  ,6'8':'W% @ )  (rr,W% @ ) r, L     B p)0w  7  ,,ȝ0  7n2X,fr V,ȝ,H0 1+*   w 8    -wh  b w~  F .,w\ w,,wr 4,$!e , e  w:(m숀  ,*p "7x  -Z ,,)+D    + *-" ,r,H *Chan out of rangeChan in useBad File NameIllegal deviceDevice not availablerFile not foundaOld file fNew file fNo room on diskChan not openIllegal I/OHard error No room for handlerEnd of fileNo buffer room2File is write protectedERR 17*File error*)>*L*X*))))*.*d*x****CH 0 CH 1 CH 2 CH 3 CH 4 CH 5 ******+(+.+:+N+(+X+h+)(+ERRORNO HANDLER,Directory I/O ErrorFETCH ERRDirectory fullADDR CHECK ERRILLEGAL EMTXeR ,F, :, 7d,ed E 2 X, w^ | 7 7 ҕ ҕ   r$8;&H @ < f"vL!N . :8w &&(J!׭ ׭  zQ6-.Е 4  Hy,8;(HI.B 7 7 -`&& (vL/d.h V -  -ze