Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
decus/20-0037/cob300.scm
There is 1 other file named cob300.scm in the archive. Click here to see a list.
File 1) DSK:COB300.OLD[4,370] created: 1900 25-May-1970
File 2) DSK:COB300.CBL[4,370] created: 1542 24-Jun-1980
1)3 02 COLUMN PICTURE S99; COMP.
1) 02 FIRST-COLUMN PICTURE S99; COMP.
****
2)3 02 THIS-COLUMN PICTURE S99; COMP.
2) 02 FIRST-COLUMN PICTURE S99; COMP.
**************
1)5 MOVE 7 TO COLUMN.
1) PERFORM CONVERSION THRU GC-EXIT.
****
2)5 MOVE 7 TO THIS-COLUMN.
2) PERFORM CONVERSION THRU GC-EXIT.
**************
1)8 MOVE 72 TO COLUMN; GO TO PROCESS-DD-0.
1)9 *************************************************************
****
2)8 MOVE 72 TO THIS-COLUMN; GO TO PROCESS-DD-0.
2)9 ******************* ******************************************
**************
1)10 MOVE COLUMN TO FIRST-COLUMN.
1) MOVE SPACES TO THIS-WORD; MOVE 0 TO I.
****
2)10 MOVE THIS-COLUMN TO FIRST-COLUMN.
2) MOVE SPACES TO THIS-WORD; MOVE 0 TO I.
**************
1)12 ADD 1 TO COLUMN.
1) IF COLUMN IS NOT EQUAL TO 73
1) ENTER MACRO GETKAR USING COLUMN; GO TO GC-EXIT.
1) MOVE "X" TO EOL-FLAG.
1) GC-1.
1) MOVE 7 TO COLUMN.
1) READ SOURCE-FILE; AT END MOVE "X" TO EOF-FLAG;
****
2)12 ADD 1 TO THIS-COLUMN.
2) IF THIS-COLUMN IS NOT EQUAL TO 73
2) ENTER MACRO GETKAR USING THIS-COLUMN; GO TO GC-EXIT.
2) MOVE "X" TO EOL-FLAG.
2) GC-1.
2) MOVE 7 TO THIS-COLUMN.
2) READ SOURCE-FILE; AT END MOVE "X" TO EOF-FLAG;
**************
1)13 IF COLUMN NOT EQUAL TO 7 AND THIS-CHARACTER NOT EQUAL TO SPACE
1) GO TO GWC-EXIT.
1) GWC-1. IF COLUMN EQUALS 7 GO TO GWC-3.
1) GWC-2.
****
2)13 IF THIS-COLUMN NOT EQUAL TO 7 AND THIS-CHARACTER NOT EQUAL TO SPACE
2) GO TO GWC-EXIT.
2) GWC-1. IF THIS-COLUMN EQUALS 7 GO TO GWC-3.
2) GWC-2.
**************
1)13 IF COLUMN EQUALS 7 GO TO GWC-3.
1) IF THIS-CHARACTER EQUALS SPACE GO TO GWC-4.
****
2)13 IF THIS-COLUMN EQUALS 7 GO TO GWC-3.
2) IF THIS-CHARACTER EQUALS SPACE GO TO GWC-4.
**************