JOB COMMON DECLARATIONS FOR COBOL COMPILER. ORG 390 DSKCTL DCW #10 DISK CONTROL FIELD DSKOUT DA 1X91 DISK OUTPUT AREA DSKCOM DCW #1 CONTROL SWITCH FOR DISK ROUTINE * F- WRITE FILL TABLE TO DISK * W- WRITE INST TO DISK * NUMB- FETCH OVERLAY DSKADD #1 DISK ADDRESS SWITCH * W/M - SYSTEM AREA * NO W/M - STORAGE AREA LITCNT #3 ADDRESS IN LITERAL TABLE PRCNTR #3 LOCATION ASSIGNMENT COUNTER ORG *&X00 ORG TO NEXT HUNDREDS BAND DIBUFF DCW #30 DIAGNOSTIC MESSAGE BUFFER NOEXEC #2 FATAL ERROR COUNTER GMCNTR #3 NON-FATAL ERROR COUNTER CDCNTR #3 CARD COUNTER SEQNUM #6 SEQUENCE FIELD FROM CARD COLNUM #2 FIRST COL. OF CURRENT WORD LOGWRD #30 LOGICAL WORD BEING PROCESSED WRDLNG #3 LENGTH ATTRIBUTE OF WORD WRDTYP #1 TYPE ATTRIBUTE OF WORD * FROM GETWRD R-RESERVED WORD, Y-SYMBOL, L-LITERAL WRDADD #3 RETURN OR DEFINE ADDRESS * CALLING TABMGR I-NEED INST. ADDR., D-NEED DATA ADDR * P,B,A,N,E - DEFINE SYMBOL * FROM TABMGR I,D - NOT YET DEFINED * M- MULTIPLY DEFINED * P- SYMBOL IS PROCEDURE NAME * B- NON-ELEMENTARY DATA ITEM * A- ALPHANUMERIC DATA ITEM * N- NUMERIC DATA ITEM * E- EDITED NUMERIC DATA ITEM LOCKER 01010 START B 0000 &001 0015 01020 ENDSTART MARILYN BRODIE 307 VIA LA CUMBER GREENBRAE 461-2635 BLKEND #3 RETURN OR DEFINE END OF BLOCK NEEDED EQU BLKEND CHAIN ADDRESS FOR FORWARD BRANDH