Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0081/scanit.cbl
There are 4 other files named scanit.cbl in the archive. Click here to see a list.
IDENTIFICATION DIVISION.
PROGRAM-ID. SCANIT.
AUTHOR. DAVE KIARSIS/FRED SMITH.
DATE-WRITTEN. APRIL 1973.
DATE-COMPILED.
SECURITY. COPYRIGHT 1973 -- DIGITAL EQUIPMENT CORPORATION.
REMARKS.
SCANS A COMMAND STRING FOR FILENAMES, PROJECT/PROGRAMMER
NUMBERS, AND SWITCHES. THESE ARE SEPERATED IN THE COMMAND
STRING BY EITHER "_" OR "=".
THE FORMAT IS AS FOLLOWS:
FN.EXT[PPN]/S1/S2/S3_FN.EXT[PPN]/S4/S5/S6
IN ALL CASES THE DEVICE IS DSK.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. DECSYSTEM-10.
OBJECT-COMPUTER. DECSYSTEM-10.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 SUPPRESS-STRING.
02 SUPPRESS-CHARACTER OCCURS 80 TIMES PIC X.
01 COMMAND-STRING.
02 COMMAND-CHARACTER OCCURS 80 TIMES INDEXED BY XX PIC X.
01 CODE-WORD.
02 CODE-CHARACTER OCCURS 80 TIMES PIC X.
01 INDEXES COMPUTATIONAL.
02 X PIC 99.
02 XX PIC 99.
88 MAX-CHARACTER VALUE 80.
02 SIDE PIC 9.
02 ERROR-FLAG PIC 9 VALUE 0.
02 MAX-SWITCH PIC 9 VALUE 6.
02 COUNTT PIC 99.
02 COUNTTER PIC 99.
02 SAVED-INDEX PIC 99.
02 SWITCH-COUNTT PIC 99.
01 R PIC 9 OCCURS 10 COMP.
01 DELIMITERR PIC X.
88 ONES-WE-NOTICE VALUE "." "[" "/" "_" "=".
01 DELIM-NUM REDEFINES DELIMITERR PIC 9.
01 USER-PPN PIC 9(10) COMP.
01 CURRENT-NUMBER PIC 9(10) COMP.
01 CURRENT-SWITCH.
02 CURRENT-SWITCH-CHARACTER OCCURS 6 PIC X.
01 EXAM-WORD.
02 EXAM-CHARACTER OCCURS 6 PIC X.
01 TABLE-OF-SWITCHES.
02 FILLER PIC X(6) VALUE "HELP".
02 FILLER PIC X(6) VALUE "NOLIST".
02 FILLER PIC X(6) VALUE "NOSOUR".
02 FILLER PIC X(6) VALUE "SEQUEN".
02 FILLER PIC X(6) VALUE "FIFTH".
02 FILLER PIC X(6) VALUE "SIXTH".
01 SWITCH-WORDS REDEFINES TABLE-OF-SWITCHES.
02 SWITCH-WORD PIC X(6) OCCURS 6.
01 SWITCH-VALUES.
02 FILLER PIC X VALUE "1".
02 FILLER PIC X VALUE "2".
02 FILLER PIC X VALUE "3".
02 FILLER PIC X VALUE "4".
02 FILLER PIC X VALUE "5".
02 FILLER PIC X VALUE "6".
01 SWITCH-FLAGS REDEFINES SWITCH-VALUES.
02 SWITCH-FLAG PIC X OCCURS 6.
LINKAGE SECTION.
01 OUTPUT-THINGS.
02 OUTPUT-FILE.
03 OUTPUT-NAME PIC X(6).
03 OUTPUT-EXTENSION PIC X(3).
02 OUTPUT-USER-NUMBER PIC 9(10) COMP.
02 OUTPUT-SWITCHES.
03 OUTPUT-SWITCH PIC X OCCURS 6.
01 INPUT-THINGS.
02 INPUT-FILE.
03 INPUT-NAME PIC X(6).
03 INPUT-EXTENSION PIC X(3).
02 INPUT-USER-NUMBER PIC 9(10) COMP.
02 INPUT-SWITCHES.
03 INPUT-SWITCH PIC X OCCURS 6.
PROCEDURE DIVISION USING OUTPUT-THINGS, INPUT-THINGS.
DO-IT.
PERFORM FUN-AND-GAMES THRU FUN-AND-GAMES-EXIT.
EXIT PROGRAM.
FUN-AND-GAMES.
DISPLAY "> " WITH NO ADVANCING.
ACCEPT COMMAND-STRING.
IF COMMAND-STRING EQUALS SPACES GO TO FUN-AND-GAMES.
IF COMMAND-STRING EQUALS
"E" OR
"EX" OR
"EXI" OR
"EXIT"
STOP RUN.
MOVE SPACES TO OUTPUT-THINGS, INPUT-THINGS.
MOVE 1 TO SIDE, XX.
SCAN-LINE.
PERFORM GET-A-COMMAND-WORD THRU GET-A-COMMAND-WORD-EXIT.
IF ERROR-FLAG EQUALS 1 GO TO ERROR-LINE.
PERFORM SCAN-NAME THRU SCAN-NAME-EXIT.
IF ERROR-FLAG EQUALS 1 GO TO ERROR-LINE.
IF DELIMITERR NOT EQUAL "[" GO TO SCAN-DELIMITERR.
PERFORM GET-USER-NUMBER THRU GET-USER-NUMBER-EXIT.
IF ERROR-FLAG EQUALS 1
GO TO ERROR-LINE.
SCAN-DELIMITERR.
IF DELIMITERR EQUALS "=" OR "_"
IF SIDE IS EQUAL TO 2
DISPLAY "? TWO INPUT SPECIFICATIONS ILLEGAL",
GO TO FUN-AND-GAMES ELSE
MOVE 2 TO SIDE GO TO SCAN-LINE.
IF DELIMITERR EQUALS "/" PERFORM GET-SWITCH THRU GET-SWITCH-EXIT
IF ERROR-FLAG EQUALS 1 GO TO ERROR-LINE ELSE
GO TO SCAN-DELIMITERR.
IF MAX-CHARACTER GO TO SET-DEFAULTS.
IF DELIMITERR NOT EQUAL TO SPACE GO TO SAY-ILLEGAL.
ADD 1 TO XX
IF MAX-CHARACTER GO TO SET-DEFAULTS.
MOVE COMMAND-CHARACTER (XX) TO DELIMITERR.
GO TO SCAN-DELIMITERR.
SAY-ILLEGAL.
DISPLAY "? SYNTAX CHARACTER ", QUOTE, DELIMITERR,
WITH NO ADVANCING.
IF CODE-WORD EQUALS SPACES GO TO DISPLAY-ILLEGAL.
DISPLAY " FOLLOWING WORD ", QUOTE WITH NO ADVANCING.
MOVE CODE-WORD TO SUPPRESS-STRING.
PERFORM DISPLAY-WITH-TRUNCATION THRU DISPLAY-WITH-TRUNCATION-EXIT.
DISPLAY-ILLEGAL.
DISPLAY QUOTE, " ILLEGAL.".
DISPLAY SPACE.
GO TO FUN-AND-GAMES.
SET-DEFAULTS.
IF INPUT-FILE EQUALS SPACES
MOVE OUTPUT-THINGS TO INPUT-THINGS
MOVE "CBL" TO OUTPUT-EXTENSION
MOVE ZEROS TO OUTPUT-USER-NUMBER
MOVE SPACES TO OUTPUT-SWITCHES.
IF OUTPUT-FILE EQUALS SPACES
MOVE INPUT-NAME TO OUTPUT-NAME
MOVE "CBL" TO OUTPUT-EXTENSION.
FUN-AND-GAMES-EXIT.
EXIT.
ERROR-LINE.
DISPLAY SPACE.
GO TO FUN-AND-GAMES.
SCAN-NAME.
IF SIDE EQUALS 2 MOVE CODE-WORD TO INPUT-NAME.
IF SIDE EQUALS 1 MOVE CODE-WORD TO OUTPUT-NAME.
IF DELIMITERR IS NOT EQUAL TO "." GO TO SCAN-NAME-EXIT.
PERFORM GET-A-COMMAND-WORD THRU GET-A-COMMAND-WORD-EXIT.
IF SIDE EQUALS 2 MOVE CODE-WORD TO INPUT-EXTENSION.
IF SIDE EQUALS 1 MOVE CODE-WORD TO OUTPUT-EXTENSION.
SCAN-NAME-EXIT.
EXIT.
GET-SWITCH.
MOVE 0 TO SWITCH-COUNTT, ERROR-FLAG.
PERFORM GET-A-COMMAND-WORD THRU GET-A-COMMAND-WORD-EXIT.
IF ERROR-FLAG EQUALS 1 GO TO GET-SWITCH-EXIT.
IF CODE-WORD EQUALS SPACES
DISPLAY "? NULL SWITCH ILLEGAL"
MOVE 1 TO ERROR-FLAG
GO TO GET-SWITCH-EXIT.
MOVE 1 TO COUNTTER.
MOVE CODE-WORD TO CURRENT-SWITCH.
GET-ONE-SWITCH.
MOVE SWITCH-WORD (COUNTTER) TO EXAM-WORD.
IF CURRENT-SWITCH EQUALS EXAM-WORD
GO TO EXACT-MATCH.
MOVE 1 TO X.
GET-A-MATCH-LOOP.
IF CURRENT-SWITCH-CHARACTER (X) EQUALS SPACE
GO TO PARTIAL-MATCH.
IF CURRENT-SWITCH-CHARACTER (X) NOT EQUAL EXAM-CHARACTER (X)
GO TO GET-NEXT-SWITCH.
ADD 1 TO X.
IF X NOT EQUAL 6
GO TO GET-A-MATCH-LOOP.
PARTIAL-MATCH.
MOVE COUNTTER TO SAVED-INDEX.
ADD 1 TO SWITCH-COUNTT.
GET-NEXT-SWITCH.
ADD 1 TO COUNTTER.
IF COUNTTER IS GREATER THAN MAX-SWITCH GO TO NO-MATCH.
GO TO GET-ONE-SWITCH.
NO-MATCH.
IF SWITCH-COUNTT NOT EQUAL 1
DISPLAY "? SWITCH ", QUOTE WITH NO ADVANCING
MOVE CURRENT-SWITCH TO SUPPRESS-STRING
PERFORM DISPLAY-WITH-TRUNCATION THRU DISPLAY-WITH-TRUNCATION-EXIT
DISPLAY QUOTE, WITH NO ADVANCING
IF SWITCH-COUNTT GREATER 1
DISPLAY " IS AMBIGUOUS."
MOVE 1 TO ERROR-FLAG
GO TO GET-SWITCH-EXIT
ELSE
DISPLAY " ILLEGAL."
MOVE 1 TO ERROR-FLAG
GO TO GET-SWITCH-EXIT.
GO TO HAVE-SWITCH.
EXACT-MATCH.
MOVE COUNTTER TO SAVED-INDEX.
HAVE-SWITCH.
IF SAVED-INDEX EQUALS 1 PERFORM HELP-THE-MAN
MOVE 1 TO ERROR-FLAG
GO TO GET-SWITCH-EXIT.
IF SIDE EQUALS 1 MOVE SWITCH-FLAG (SAVED-INDEX) TO OUTPUT-SWITCH (SAVED-INDEX).
IF SIDE EQUALS 2 MOVE SWITCH-FLAG (SAVED-INDEX) TO INPUT-SWITCH (SAVED-INDEX).
GET-SWITCH-EXIT.
EXIT.
GET-A-COMMAND-WORD.
MOVE 0 TO ERROR-FLAG.
MOVE SPACES TO CODE-WORD.
IF MAX-CHARACTER GO TO GET-A-COMMAND-WORD-EXIT.
MOVE 1 TO X.
MOVE-A-CHARACTER-LOOP.
MOVE COMMAND-CHARACTER (XX) TO DELIMITERR.
ADD 1 TO XX.
IF DELIMITERR EQUALS SPACE GO TO MOVE-A-CHARACTER-LOOP-A.
IF ONES-WE-NOTICE
GO TO GET-A-COMMAND-WORD-EXIT.
IF DELIMITERR IS NUMERIC GO TO MOVE-A-CHARACTER-LOOP-B.
IF DELIMITERR GREATER "@" AND
DELIMITERR LESS "[" GO TO MOVE-A-CHARACTER-LOOP-B.
DISPLAY "? ILLEGAL SYNTAX CHARACTER ", QUOTE, DELIMITERR, QUOTE, ".".
MOVE 1 TO ERROR-FLAG.
GO TO GET-A-COMMAND-WORD-EXIT.
MOVE-A-CHARACTER-LOOP-B.
IF X GREATER THAN 6
GO TO MOVE-A-CHARACTER-LOOP-A.
MOVE DELIMITERR TO CODE-CHARACTER (X).
MOVE-A-CHARACTER-LOOP-A.
ADD 1 TO X.
IF MAX-CHARACTER GO TO GET-A-COMMAND-WORD-EXIT.
GO TO MOVE-A-CHARACTER-LOOP.
GET-A-COMMAND-WORD-EXIT.
EXIT.
DISPLAY-WITH-TRUNCATION.
MOVE 0 TO COUNTT.
MOVE 1 TO X.
DISPLAY-WITH-TRUNCATION-LOOP.
IF SUPPRESS-CHARACTER (X) IS EQUAL TO SPACE
ADD 1 TO COUNTT
GO TO DISPLAY-WITH-TRUNCATION-LOOP-B.
DISPLAY-WITH-TRUNCATION-LOOP-A.
IF COUNTT IS NOT EQUAL TO ZERO
DISPLAY SPACE WITH NO ADVANCING
SUBTRACT 1 FROM COUNTT
GO TO DISPLAY-WITH-TRUNCATION-LOOP-A.
DISPLAY SUPPRESS-CHARACTER (X) WITH NO ADVANCING.
DISPLAY-WITH-TRUNCATION-LOOP-B.
ADD 1 TO X.
IF X IS NOT EQUAL TO 80 GO TO DISPLAY-WITH-TRUNCATION-LOOP.
DISPLAY-WITH-TRUNCATION-EXIT.
EXIT.
GET-USER-NUMBER.
MOVE 0 TO ERROR-FLAG.
PERFORM GET-A-NUMBER THRU GET-A-NUMBER-EXIT.
PERFORM MAKE-IT-OCTAL THRU MAKE-IT-OCTAL-EXIT.
IF DELIMITERR NOT EQUAL ","
GO TO BAD-PPN.
MOVE CURRENT-NUMBER TO USER-PPN.
PERFORM GET-A-NUMBER THRU GET-A-NUMBER-EXIT.
PERFORM MAKE-IT-OCTAL THRU MAKE-IT-OCTAL-EXIT.
IF DELIMITERR EQUALS "]"
MOVE COMMAND-CHARACTER (XX) TO DELIMITERR
ADD 1 TO XX
GO TO FORM-USER-NUMBER.
IF MAX-CHARACTER GO TO FORM-USER-NUMBER.
BAD-PPN.
MOVE 1 TO ERROR-FLAG.
DISPLAY "? INCORRECT PPN." GO TO GET-USER-NUMBER-EXIT.
FORM-USER-NUMBER.
MULTIPLY USER-PPN BY 262144 GIVING USER-PPN.
ADD CURRENT-NUMBER TO USER-PPN.
IF SIDE EQUALS 2 MOVE USER-PPN TO INPUT-USER-NUMBER.
IF SIDE EQUALS 1 MOVE USER-PPN TO OUTPUT-USER-NUMBER.
GET-USER-NUMBER-EXIT.
EXIT.
GET-A-NUMBER.
MOVE 0 TO CURRENT-NUMBER.
GET-A-NUMBER-LOOP.
MOVE COMMAND-CHARACTER (XX) TO DELIMITERR.
ADD 1 TO XX.
IF ONES-WE-NOTICE GO TO GET-A-NUMBER-LOOP-B.
IF DELIMITERR EQUALS SPACE GO TO GET-A-NUMBER-LOOP-A.
IF DELIMITERR NOT NUMERIC GO TO GET-A-NUMBER-LOOP-B.
IF DELIM-NUM GREATER THAN 7 GO TO GET-A-NUMBER-EXIT.
COMPUTE CURRENT-NUMBER EQUALS (CURRENT-NUMBER * 8) + DELIM-NUM.
GET-A-NUMBER-LOOP-A.
IF MAX-CHARACTER GO TO GET-A-NUMBER-EXIT.
GO TO GET-A-NUMBER-LOOP.
GET-A-NUMBER-LOOP-B.
MOVE SPACES TO CODE-WORD.
GET-A-NUMBER-EXIT.
EXIT.
MAKE-IT-OCTAL.
MOVE 1 TO X.
MAKE-IT-OCTAL-LOOP.
DIVIDE 10 INTO CURRENT-NUMBER GIVING CURRENT-NUMBER REMAINDER R (X).
ADD 1 TO X.
IF CURRENT-NUMBER NOT EQUAL ZERO
GO TO MAKE-IT-OCTAL-LOOP.
MAKE-IT-OCTAL-LOOP-A.
IF X EQUALS ZERO GO TO MAKE-IT-OCTAL-EXIT.
COMPUTE CURRENT-NUMBER EQUALS (CURRENT-NUMBER * 10) + R (X).
SUBTRACT 1 FROM X.
GO TO MAKE-IT-OCTAL-LOOP-A.
MAKE-IT-OCTAL-EXIT.
EXIT.
HELP-THE-MAN.
DISPLAY " ".
DISPLAY "THE COMMAND FORMAT IS:".
DISPLAY "FN.EXT[PPN]/SWITCHES_FN.EXT[PPN]/SWITCHES".
DISPLAY "THE SWITCHES ARE:".
DISPLAY "HELP-----THIS MESSAGE".
DISPLAY "NOLIST---CREATES NO LIST FILE".
DISPLAY "NOSOUR---CREATES NO SOURCE FILE".
DISPLAY "SEQUEN---RESEQUENCES SOURCE FILE".
DISPLAY "THE DEFAULT IS CBL AND LST WITH NO SEQUENCE NUMBERS".