11 START ;F L O W --FLOWCHART GENERATOR 21 31 ;DIGITAL EQUIPMENT CORPORATION 41 ;MAYNARD, MASS. 01754 51 61 ;THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE 71 ;ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION 81 ;OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT 91 ;AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. 101 111 ;THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 121 ;NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 131 ;BY DIGITAL EQUIPMENT CORPORATION. 141 151 ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 161 ;ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 171 START ;F L O W --FLOWCHART GENERATOR 181 ;... TITLE ;FLOWCHART GENERATOR 191 201 RECORD 211 TRICK1, 2A1 221 RECORD INREC 231 LINENO, A2 241 CHR, 120A1 251 261 RECORD 271 TRICK2, 2A1 281 RECORD OUTREC 291 OUTDTA, A82 301 RECORD ,X 311 , A20 321 LBLDTA, A20 331 RECORD ,X 341 , A32 351 DATA, A30 361 RECORD ,X 371 AREA1, A40 381 AREA2, A7 391 AREA3, A15 401 411 RECORD SRTREC 421 SRTLBL, A6 431 PGECTR, D3 441 DEFREF, A1 451 461 BLOCK 471 TEXT, A65 ;COMMENT AREA OF COMMAND 481 K, D2 ;POINTER TO COMMENT AREA 491 TXT, A15 ;TEXT RETURNED BY GETFLD, GETTXT 501 CTR, D2 ;GENERAL PURPOSE COUNTER 511 SPACES, A40 521 MAX, D2 ;MAXIMUM NUMBER OF CHARACTERS THAT WILL FIT IN FLOWCHART BLOCK ON CURRENT LINE 531 LNE, D1 ;CURRENT LINE NUMBER FOR TEXT INSIDE FLOWCHART BLOCK 541 MAXCOM, D2,12 ;NUMBER OF FLOWCHART COMMANDS 551 LNECTR, D2 ;CURRENT LINE ON PAGE 561 MAXLNE, D2,50 ;MAXIMUM LINES PER PAGE 571 BGN, D3 ;POINTER TO BEGINNING OF FIELD IN INPUT RECORD 581 END, D3 ;POINTER TO END OF FIELD IN INPUT RECORD 591 RSIZE, D3 ;NUMBER OF CHARACTERS IN PASS 1 OUTPUT RECORD 601 OPTP, A1 ;OPTION P FLAG (P IF /P USED) 611 OPTL, A1 ;OPTION L FLAG (L IF /L USED) 621 OPT, A2,S ;OPTION SWITCHES 631 LAST, D3 ;NUMBER OF CHARACTERS IN INPUT RECORD 641 BGNLN, D1 ;FIRST NON-BLANK LINE IN FLOWCHART BLOCK 651 LNMX, D1 ;MAXIMUM LINE NUMBER FOR TEXT INSIDE FLOWCHART BLOCK 661 LN, 5A15 ;TEXT TO BE CENTERED IN FLOWCHART BLOCK 671 681 BLOCK 691 D1, A3,' [ ' ;TYPE 1 DELIMITERS 701 D2, A3,'[ ,' ;TYPE 2 DELIMITERS 711 D3, A3,':::' ;TYPE 3 DELIMITERS 721 COMDLM, A1,';' ;COMMENT FIELD DELIMITER 731 BLOCK ,X 741 , A1 751 TAB, A1 761 BLOCK ,X 771 , A1 781 DTAB, D1 791 801 BLOCK 811 DELIMS, A3 ;DELIMITERS FOR CURRENT FIELD 821 BLOCK ,X 831 DELIM1, A1 841 DELIM2, A1 851 DELIM3, A1 861 START ;F L O W --PASS 1 COMMANDS 871 BLOCK ;PARAMETERS FOR COMMAND BEING EXECUTED 881 COMAND, A5 ;COMMAND MNEMONIC 891 XMAX, 5D2 ;NUMBER OF CHARACTERS ON EACH LINE 901 LNBUMP, D1 ;LINE COUNT INCREMENT 911 BLOCK ,X 921 PARAM, A16 931 941 BLOCK 951 COMLST, 12A16 961 BLOCK ,X 971 , A5,'PROC ' 981 , D10,1313131313 991 , D1,7 1001 , A5,'DISK ' 1011 , D10,1111111111 1021 , D1,7 1031 , A5,'IF ' 1041 , D10,0309130903 1051 , D1,7 1061 , A5,'CALL ' 1071 , D10,1311090000 1081 , D1,7 1091 , A5,'START' 1101 , D10,1300000000 1111 , D1,3 1121 , A5,'STOP ' 1131 , D10,1300000000 1141 , D1,5 1151 , A5,'GOTO ' 1161 , D10,0600000000 1171 , D1,5 1181 , A5,'CGOTO' 1191 , D10,0600000000 1201 , D1,5 1211 , A5,'I/O ' 1221 , D10,0910091009 1231 , D1,7 1241 , A5,'TITLE' 1251 , D10,4000000000 1261 , D1,0 1271 , A5,'SBTTL' 1281 , D10,4000000000 1291 , D1,0 1301 , A5,'PAGE ' 1311 , D10,4000000000 1321 , D1,0 1331 1341 RECORD 1351 LBL1, A20,'********** ' 1361 LBL2, A20,'* XXXXXX *-------->!' 1371 RECORD ,X 1381 , A19 1391 LBLFIX, A1 1401 , A2 1411 LABEL, A6 1421 1431 RECORD 1441 LINE, A8,' !' 1451 1461 RECORD 1471 PROC1, A15,'***************' 1481 PROC2, A15,'* *' 1491 RECORD ,X 1501 , A16 1511 PRTXT, A13 1521 1531 RECORD 1541 DISK1, A15,' *************' 1551 DISK2, A15,' * * ' 1561 DISK3, A15,'* * ' 1571 RECORD ,X 1581 , A17 1591 DKTXT1, A11 1601 , A3 1611 DKTXT2, A11 1621 1631 RECORD 1641 IF1, A13,' * XXX' 1651 IF2, A10,' * *' 1661 IF3, A30,' * * **********' 1671 IF4, A30,'* *---->* XXXXXX *' 1681 RECORD ,X 1691 , A10 1701 YESNO2, A3 1711 , A6 1721 IFTXT1, A3 1731 , A4 1741 IFTXT2, A9 1751 , A3 1761 YESNO1, A3 1771 , A13 1781 IFTXT3, A13 1791 , A8 1801 YNLBL, A6 1811 1821 RECORD 1831 SUBR1, A15,' ********* ' 1841 SUBR2, A15,' * * ' 1851 SUBR3, A15,' ************* ' 1861 SUBR4, A15,'* *' 1871 SUBR5, A15,' * * ' 1881 SUBR6, A15,' * * ' 1891 RECORD ,X 1901 , A20 1911 SUBNAM, A6 1921 , A20 1931 SBTXT1, A13 1941 , A3 1951 SBTXT2, A11 1961 , A2 1971 , A3 1981 SBTXT3, A9 1991 2001 RECORD 2011 START1, A15,' ************* ' 2021 START2, A15,'* *' 2031 RECORD ,X 2041 , A16 2051 STRTXT, A13 2061 2071 RECORD 2081 GOTO1, A30,' ! **********' 2091 GOTO2, A30,' !----------->* XXXXXX *' 2101 GOTO3, A30,' **********' 2111 RECORD ,X 2121 , A52 2131 GOTXT, A6 2141 2151 RECORD 2161 IO1, A15,' ************' 2171 IO2, A12 2181 IO3, A14,' * *' 2191 IO4, A12 2201 IO5, A13,' * *' 2211 IO6, A11 2221 IO7, A12,'************' 2231 RECORD ,X 2241 , A18 2251 IOTXT1, A9 2261 , A3 2271 IOTXT2, A10 2281 , A4 2291 IOTXT3, A9 2301 , A2 2311 IOTXT4, A10 2321 , A3 2331 IOTXT5, A9 2341 2351 RECORD TTLREC 2361 TTL, A40 2371 , A32 2381 , A5,'PAGE ' 2391 PAGENO, A3 2401 2411 RECORD SUBREC 2421 SUB, A40 2431 2441 RECORD 2451 PAGE1, A15,'* PAGE XXX *' 2461 RECORD ,X 2471 , A8 2481 PGE, A3