Trailing-Edge
-
PDP-10 Archives
-
BB-H064A-SM
-
sources/cogo.cmd
There are no other files named cogo.cmd in the archive.
00010 C**********************************************************************
00020 C
00030 C NPG NUMBER OF PAGE PRESENTLY BEING PRINTED OR JUST COMPLETED
00040 C KHDNG 75 ELEMENT ARRAY CONTAINING PAGE HEADING IN FORMAT FOR
00050 C PRINTING.
00060 C IVC LOGICAL INPUT DEVICE NUMBER OF CARD READER.
00070 C IVT LOGICAL INPUT DEVICE NUMBER OF KEYBOARD.
00080 C MTP LOGICAL OUTPUT DEVICE NUMBER OF PRINTER.
00090 C MTT LOGICAL OUTPUT DEVICE NUMBER OF TYPEWRITER.
00100 C MTC LOGICAL OUTPUT DEVICE NUMBER OF CARD PUNCH.
00110 C INDEV LOGICAL INPUT DEVICE IN USE.
00120 C MOUT LOGICAL OUTPUT DEVICE IN USE.
00130 C LIST OUTPUT SWITCH.0=NORMAL. POS=NO PRINT INPUT.NEG=NO OUTPUT
00140 C IN 80 ELEMENT ARRAY CONTAINING THE IMAGE OF THE LAST INPUT
00150 C RECORD.
00160 C NKL NUMBER OF INPUT COLUMN NEXT TO BE OR CURRENTLY BEING
00170 C PROCESSED.
00180 C LK LAST NON-BLANK COLUMN OF PRESENT INPUT RECORD.
00190 C DATA 12 ELEMENT ARRAY FOR TRANSMITTING DATA FROM INPUT TO
00200 C COMMANDS.
00210 C ND NUMBER OF DATA ITEMS SUCCESSFULLY DECODED FROM COMMAND.
00220 C IDTSV NUMBER TO BE ASSIGNED TO BLANK COMMAND IF ONE IS READ.
00230 C IDITO NUMBER OF PRESENT COMMAND
00240 C NXJOB NEXT JOB SEARCH INDICATOR. 1=SEARCH FOR NEXT JOB.
00250 C 0=CONTINUE PRESENT JOB.
00260 C KALPH COMMAND MODE INDICATOR. 1=ACCEPT APLH COMMANDS ONLY.
00270 C 0=ACCEPT ALPH OR NUMERIC COMMANDS.
00280 C MLTCD MULTICARD ERROR IND. 1=BAD DATA FOUND ON A CONTINUATION.
00290 C 0=NO BAD DATA OR NO CONTINUATION OR
00300 C BOTH.
00310 C ISGX DIRECTION OF EXTERNAL HORIZONTAL AXIS (+1=RIGHT -1=LEFT)
00320 C ISGY DIRECTION OF EXTERNAL VERTICAL AXIS (+1=UP -1=DOWN)
00330 C IXYF WHICH COORD IS FIRST IN EXTERNAL PAIR (1=X 2=Y)
00340 C ISGG DIRECTION OF INCREASING AZIMUTH IN EXTERNAL SYSTEM
00350 C (+1=CCW -1=CW).
00360 C AZEZ ANGLE FROM EXTERNAL ZERO AZIMUTH CCW TO INTERNAL ZERO
00370 C AZIMUTH.
00380 C MAXES 4 ELEMENT ARRAY CONTAINING THE DELIMITERS ASSOCIATED
00390 C WITH FOUR EXTERNAL AZIMUTHS 0.90,180, AND 270 DEGREES.
00400 C KFWS SECTOR ADDRESS OF WORKING STORAGE ON LOGICAL DRIVE ZERO.
00410 C KFTB SECTOR ADDRESS OF TABLE IN USE.
00420 C LHDRS LENGTH OF HEADER + RESERVED AREA OF TABLE IN USE.
00430 C LFGA LENGTH OF FIGURE AREA OF TABLE NOW IN USE (IN RECORDS)
00440 C LCDA LENGTH OF COORDINATE AREA OF TABLE NOW IN USE (IN
00450 C RECORDS)
00460 C LUNU LENGTH OF UNUSED AREA OF TABLE NOW IN USE (IN RECORDS).
00470 C PI A DESSERT WITH BAKED CRUST AND FILLING (SUCH AS APPLE OR
00480 C BERRY).
00490 C TWOPI 2*PI
00500 C HFPI PI/2
00510 C CLEAR VALUE USED TO CLEAR COORDS.(1.E20)
00520 C XL X VALUE OF LOCAL ORIGIN OF TABLE NOW IN USE (ONLY
00530 C MEANINGFUL IF LCDA IS POSITIVE).
00540 C YL Y VALUE OF LOCAL ORIGIN OF TABLE NOW IN USE (ONLY
00550 C MEANINGFUL IF LCDS IS POSITIVE).
00560 C AREA AREA ACCUMULATED BY AREA SEGMENT/ COMMANDS (SQ FT)
00570 C LFPRM LENGTH OF FIGURE AREA CONTAINING PERMANENT FIGURES (IN
00580 C RECORDS).
00590 C LFTOT LENGTH OF FIGURE AREA CONTAINING ANY FIGURES (BOTH
00600 C PERMANENT AND TEMPORARY) (IN RECORDS).
00610 C MAXER MAXIMUM NUMBER OF ERRORS PERMITTED IN ONE JOB.
00620 C NUMER NUBER OF ERRORS COUNTED IN THIS JOB.
00630 C LDFMT OLD FORMAT SWITCH. 0=NEW FORMAT. POS=OLD FORMAT.
00640 C KFPLB ADDRESS OF THE WS WHICH IS TO CONTAIN THE PLOT FILE.
00650 C KFPL CURRENT ADDRESS OF THE PLOT FILE (MEANINGFUL ONLY
00660 C IF NPREC IS POS).
00670 C NPREC NUMBER OF RECORDS PRESENTLY IN THE PLOT FILE (ZERO IF NO
00680 C FILE).
00690 C INCPI NUMBER OF INCREMENTS PER INCH ON PLOTTER.
00700 C IPDEF DEFAULT PLOTTER PAPER LENGTH (IN INCHES).
00710 C KPLEJ TYPE OF PLOTTER AND END OF JOB PAUSE INDICATOR.
00720 C IABS(KPLEJ)=PLOTTER TYPE CODE
00730 C KPLEJ=+=PAUSE AFTER E