Directory of image this file is from
This file as a plain text file
12 PROC 3 ;INITIALIZATION FOR PASS 1 22 ;... SBTTL ;INITIALIZATION FOR PASS 1 32 42 ;... I/O ;DISPLAY VERSION MESSAGE 52 ;... DISK ;OPEN $PASS1 FOR OUTPUT 62 ;... DISK ;OPEN SYS FILE FOR INPUT 72 ;... DISK ;OPEN $KREF FOR OUTPUT 82 ;... IF NO:NOIN ;IS THERE A SYS FILE? 92 ;... PROC ;BUILD A TAB CHARACTER 102 ;... PROC ;SET UP OPTION FLAGS 112 ;... GOTO NEXT 122 ;... NOIN, I/O ;DISPLAY 'NO INPUT?' 132 ;... STOP ;END OF PGM 142 XMIT(8,"FLOW V 8.00') 152 INIT(2,O,'$PASS1',1) 162 INIT(3,O,'$KREF',2) 172 ON ERROR NOIN 182 INIT(1,SYS) 192 INCR DTAB 202 D2=TAB 212 OPTLP, INCR CTR 222 IF(OPT(CTR,CTR).EQ.'P')CALL FIXP 232 IF(OPT(CTR,CTR).EQ.'L')CALL FIXL 242 IF(CTR.LT.2)GO TO OPTLP 252 GO TO NEXT 262 FIXP, OPTP=OPT(CTR,CTR) 272 RETURN 282 FIXL, OPTL=OPT(CTR,CTR) 292 RETURN 302 312 NOIN, XMIT(8,"NO INPUT?') 322 STOP 332 START ;MAIN LOOP FOR PASS 1 342 ;... SBTTL ;MAIN LOOP FOR PASS 1 352 362 ;... NEXT, DISK ;READ AN INPUT RECORD 372 ;... IF YES:MORE ;END OF FILE? 382 ;... IF NO:THIS1 ;IS INPUT A DIBOL PROGRAM? 392 ;... IF NO:NEXT ;PROCESS THIS RECORD? 402 ;... PROC ;ADJUST RECORD FORMAT 412 NEXT, XMIT(1,INREC,MORE) ;READ A SYS RECORD 422 LAST=(4096-64*#TRICK1(3)-#TRICK1(4))*2 432 IF(OPTP.NE.'P')GO TO THIS1 ;IS INPUT A PROGRAM? 442 IF(CHR(1,2).NE.';.')GO TO NEXT ;YES--IS THIS A FLOWCHART LINE? 452 CTR=2 462 FIXLP, INCR CTR 472 IF(CHR(CTR).EQ.SPACES)GO TO FIXFND 482 IF(CHR(CTR).NE.TAB)GO TO FIXLP 492 FIXFND, CHR(1,LAST-CTR)=CHR(1+CTR,LAST) 502 LAST=LAST-CTR 512 522 ;... THIS1, PROC ;INITIALIZE FIELDS FOR NEW LINE 532 ;... PROC ;FIND LABEL 542 ;... PROC ;FIND COMMAND 552 ;... IF NO:ERROR ;IS COMMAND IN LIST? 562 THIS1, BGN= 572 DELIMS=D2 582 CALL GETFLD ;GET LABEL 592 LABEL=TXT 602 DELIMS=D1 612 CALL GETFLD ;GET COMMAND 622 COMAND=TXT 632 CTR= 642 COMLP, INCR CTR 652 IF(COMAND.EQ.COMLST(CTR))GO TO FOUND 662 IF(CTR.LT.MAXCOM)GO TO COMLP 672 GO TO ERROR 682 692 ;... FOUND, PROC ;GET PARAMETERS FOR COMMAND 702 ;... IF NO:NOHOF ;PAGE FULL? 712 ;... CALL HOF ;OUTPUT PAGE MARKER 722 ;... NOHOF, PROC ;BUMP LINE COUNTER 732 ;... PROC ;BRANCH BASED ON COMMAND NUMBER 742 ;... CGOTO PROCES,DISK,IF,CALL,STRT,STOP,GOTO,CGOTO,IO,TITLE,SBTTL,PAGE 752 FOUND, PARAM=COMLST(CTR) 762 IF(LNECTR.LT.MAXLNE)GO TO NOHOF 772 CALL HOF 782 NOHOF, LNECTR=LNECTR+LNBUMP 792 GO TO(PROCES,DISK,IF,CALL,STRT,STOP,GOTO,CGOTO,IO,TITLE),CTR 802 GO TO(SBTTL,PAGE),CTR-10 812 822 ;... ERROR, I/O ;DISPLAY 'ERROR' 832 ;... I/O ;DISPLAY OFFENDING LINE 842 ;... GOTO NEXT 852 ERROR, XMIT(8,"ERROR') 862 LINENO= 872 XMIT(8,INREC) 882 GO TO NEXT 892 902 ;... MORE, DISK ;OPEN NEXT SYS FILE 912 ;... IF NO:END1 ;IS THERE ONE? 922 ;... GOTO NEXT 932 ;... END1, I/O ;CLOSE FILES 942 ;... GOTO PASS2 952 MORE, FINI(1) 962 ON ERROR END1 972 INIT(1,SYS) ;OPEN NEXT SYS FILE 982 GO TO NEXT 992 END1, FINI(1) 1002 FINI(2) 1012 FINI(3) 1022 GO TO PASS2