/* */00900010 /* ... ACTIVATE NCP COMMON AREA ... */01800010 /* */02700010 /*A000000-999999 @Y17XAXG*/03600010 DCL 1 IEDQADW BASED(RDATA), /*STORAGE AREAS IN OP.CTL. WORK 04500010 AREA */ 05400010 2 ADWRRTP PTR(31), /*POINTER TO START OF RRT*/ 06300010 2 ADWRVTP PTR(31), /*RVT POINTER*/ 07200010 2 ADWENTP PTR(31), /*ENTRY POINTER INTO RRT*/ 08100010 2 ADWENTRR PTR(31), /*POINTER INTO RESOURCE ENTRIES IN 09000010 RRT*/ 09900010 2 ADWRSCP PTR(31), /*POINTER TO START OF RESOURCE 10800010 ENTRIES IN RRT*/ 11700010 2 ADWENTRV PTR(31), /*POINTER INTO RVT ENTRIES*/ 12600010 2 ADWLGBP PTR(31), /*POINTER TO LINE GROUP BLOCK*/ 13500010 2 ADWLCBP PTR(31), /*POINTER TO LINE CONTROL BLOCK*/ 14400010 2 ADWDCBP PTR(31), /*POINTER TO DATA CONTROL BLOCK*/ 15300010 2 ADWBYTEP PTR(31), /*LOCAL POINTER*/ 16200010 2 ADWLSTLN PTR(31), /*LAST LINE'S TTE ADDR.*/ 17100010 2 ADWLSTRM PTR(31), /*LAST TERM.'S TTE ADDR.*/ 18000010 2 ADWNCPTE PTR(31), /*NCP'S TTE ADDR.*/ 18900010 2 ADWNATP PTR(31), /*POINTER TO NAT*/ 19800010 2 ADWSATP PTR(31), /*POINTER TO SAT*/ 20700010 2 ADWSTGSZ FIXED(31), /*STORAGE SIZE FOR RVT*/ 21600010 2 ADWENTNM FIXED(31), /*COUNT OF RRT ENTRIES*/ 22500010 2 ADWENTSZ FIXED(31), /*LENGTH OF RRT ENTRY*/ 23400010 2 ADWPSNAN FIXED(31), /*NUMBER OF PRE-SNA ENTRIES IN 24300010 RRT*/ 25200010 2 ADWCTR FIXED(31), /*LOOP COUNTER*/ 26100010 2 ADWENTCT FIXED(31), /*LOOP COUNTER*/ 27000010 2 ADWBSCCT FIXED(31), /* COUNT OF PRE-SNA DEVICES IN 27900010 RVT*/ 28800010 2 ADWRVTLG FIXED(31), /*LENGTH OF RVT*/ 29700010 2 ADWGETAR CHAR(12) BDY(WORD),/*HOLDS LIST FORM OF GETMAIN*/ 30600010 2 ADWFREAR CHAR(12) BDY(WORD),/*HOLDS LIST FORM OF FREEMAIN*/ 31500010 2 ADWBLDL CHAR(62) BDY(HWORD), 32400010 3 ADWNTRYN PTR(15), /*NUMBER OF BLDL ENTRIES*/ 33300010 3 ADWNTRYL PTR(15), /*LENGTH OF ENTRY*/ 34200010 3 ADWLNTRY, 35100010 4 ADWLNAME CHAR(8), /*NAME OF LOAD MODULE*/ 36000010 4 ADWDATA CHAR(50), /*FILLED IN BY BLDL*/ 36900010 2 ADWIPLTN CHAR(9), /*IPL TEXT NAME*/ 37800010 2 ADWSRCH BIT(8), /*PARAMETER FOR SEARCH ROUTINE*/ 38700010 2 ADWISUBA FIXED(8), /*ISOLATE SUBAREA SHIFT CT.*/ 39600010 2 ADWPADSZ FIXED(8), /*CONTENTS OF RRTBUFSZ*/ 40500010 2 ADWFLGS1 CHAR(1), /*FLAG BYTE ONE*/ 41400010 3 ADWERRFG BIT(1), /*ERROR FLAG*/ 42300010 3 ADWPSNA BIT(1), /*PRE SNA SWITCH*/ 43200010 3 ADWLOOP BIT(1), /*LOOP SWITCH*/ 44100010 3 ADWSKIP BIT(1), /*SKIP SWITCH*/ 45000010 3 ADWQCBSK BIT(1), /*SKIP QCB CHECK SWITCH*/ 45900010 3 ADWOUTSW BIT(1), /*SWITCH TO GET OUT OF MODULE*/ 46800010 2 ADWFLGS2 BIT(8), /*FLAG BYTE 2*/ 47700010 3 ADWLNDEL BIT(1), /*INDICATES LINE RVTINDEX IS 0*/ 48600010 3 ADWPUDEL BIT(1), /*INDICATES PU RVTINDEX IS 0*/ 49500010 3 ADWCTERM BIT(1), /*INDICATES PRE-SNA SWITCHED LINE 50400010 ENCOUNTERED*/ 51300010 3 ADWGPCLS BIT(1), /*INDICATES PRE-SNA CLUSTER 52200010 ENCOUNTERED*/ 53100010 2 ADWFLGS3 BIT(8), /*FLAG BYTE 3*/ 54000010 3 ADWMANDL BIT(1); /* MANUAL DIAL SWITCH*/ 54900010 DCL RRTPTR PTR(31) DEFINED(ADWRRTP); 55800010 DCL RVTPTR PTR(31) DEFINED(ADWRVTP); 56700010 DCL ENTRYPTR PTR(31) DEFINED(ADWENTP); 57600010 DCL ENTADDRR PTR(31) DEFINED(ADWENTRR); 58500010 DCL RSCPTR PTR(31) DEFINED(ADWRSCP); 59400010 DCL ENTADDRV PTR(31) DEFINED(ADWENTRV); 60300010 DCL LGBPTR PTR(31) DEFINED(ADWLGBP); 61200010 DCL LCBPTR PTR(31) DEFINED(ADWLCBP); 62100010 DCL DCBPTR PTR(31) DEFINED(ADWDCBP); 63000010 DCL BYTEPTR PTR(31) DEFINED(ADWBYTEP); 63900010 DCL LASTLINE PTR(31) DEFINED(ADWLSTLN); 64800010 DCL LASTTERM PTR(31) DEFINED(ADWLSTRM); 65700010 DCL NCPTTEA PTR(31) DEFINED(ADWNCPTE); 66600010 DCL IEDQNATP PTR(31) DEFINED(ADWNATP); 67500010 DCL IEDQSATP PTR(31) DEFINED(ADWSATP); 68400010 DCL STGSIZE FIXED(31) DEFINED(ADWSTGSZ); 69300010 DCL ENTRYNUM FIXED(31) DEFINED(ADWENTNM); 70200010 DCL ENTRYSIZ FIXED(31) DEFINED(ADWENTSZ); 71100010 DCL PSNANUM FIXED(31) DEFINED(ADWPSNAN); 72000010 DCL CTR FIXED(31) DEFINED(ADWCTR); 72900010 DCL ENTCTR FIXED(31) DEFINED(ADWENTCT); 73800010 DCL BSCTR FIXED(31) DEFINED(ADWBSCCT); 74700010 DCL RVTLGTH FIXED(31) DEFINED(ADWRVTLG); 75600010 DCL GETAREA CHAR(12) BDY(WORD) DEFINED(ADWGETAR); 76500010 DCL FREEAREA CHAR(12) BDY(WORD) DEFINED(ADWFREAR); 77400010 DCL 1 BLDLIST CHAR(62) BDY(HWORD) DEFINED(ADWBLDL), 78300010 2 BLDNTRYN PTR(15), 79200010 2 BLDNTRYL PTR(15), 80100010 2 BLDLNTRY CHAR(58), 81000010 3 BLDLNAME CHAR(8), 81900010 3 BLDLDATA CHAR(50); 82800010 DCL IPLTXTNM CHAR(9) DEFINED(ADWIPLTN); 83700010 DCL SRCH BIT(8) DEFINED(ADWSRCH); 84600010 DCL ISOSUBA FIXED(8) DEFINED(ADWISUBA); 85500010 DCL PADSIZE FIXED(8) DEFINED(ADWPADSZ); 86400010 DCL 1 FLAGS1 CHAR(1) DEFINED(ADWFLGS1), 87300010 2 ERRFLG BIT(1), 88200010 2 PSNASW BIT(1), 89100010 2 LOOPSW BIT(1), 90000010 2 SKIPSW BIT(1), 90900010 2 QCBSKP BIT(1), 91800010 2 OUTSW BIT(1); 92700010 DCL 1 FLAGS2 BIT(8) DEFINED(ADWFLGS2), 93600010 2 LINEDEL BIT(1), 94500010 2 PUDEL BIT(1), 95400010 2 CTERMDEL BIT(1), 96300010 2 GPCLUST BIT(1); 97200010 DCL 1 FLAGS3 BIT(8) DEFINED(ADWFLGS3), 98100010 2 MANDLSW BIT(1); 99000010