* %GOTO DCMRBSL; /* 00050002 MACRO 00100002 IEERDCM 00150002 * 01/15/73 LEVEL=05 MB Y02958 00160002 DCMTSRT DSECT DCMTSPTR 00200002 DCMADTRN DS A POINTER TO PAGABLE DCM 00250002 DS CL1 RESERVED 00300002 DCMRFLGS DS BL1 FLAGS 00350002 DCMDOM EQU X'10' DOM MUST BE TRIED 00550002 DCMNIPP EQU X'08' DCM WAS USED BY NIP 00600002 DCMLEN DS H LENGTH OF PAGABLE DCM 00750002 DCMADKP DS A ADDRESS OF ROUTED K COMMAND 00800002 * PARAMETER LIST 00850002 DCMTOPAR DS CL1 TOP DISPLAY AREA DEFINED 00900002 DCMTOPDS DS CL1 TOP DISPLAY ON SCREEN 00950002 DS BL1 RESERVED 01000002 DCMDEVTY DS BL1 DEVICE TYPE FLAGS 01150002 DCMTY60 EQU X'80' USABLE FOR SD 01200002 DCMTY50 EQU X'40' NOT USABLE FOR SD 01250002 DCMADSDS DS A POINTER TO FIRST SDS SUPPORT AREA 01300002 DCMRMS DS CL1 NUMBER OF CCWS TO WRITE 01350002 DCMADRMS DS AL3 POINTER TO RMS CCWS 01400002 DCMWLAST DS A PT CON Q ENTRY LAST OUT (O-O-L) 01450002 DCMRMSAL DS H NUMBER LINES IN MSG AREA 01500002 DCMDOMKY DS H CONSOLE DOM ELEMENT MC XM5812 01550002 DCMSUBAD DS A POINTER TO SUB CONTROL BLOCK 01600002 DCMADPFK DS A POINTER TO RESIDENT PFK AREA 01650002 DCMINTVL DS H INTERVAL FOR THIS DCM 01700002 DCMTMCTR DS H TIME COUNTER FOR THIS DCM 01750002 DCMR2FLG DS BL1 TIMER FLAGS 01800002 DCMRXSFL EQU X'80' FULL SCREEN FLAG 01850002 DCMRXUNV EQU X'40' UNVIEWABLE MESSAGE DISPLAYED 01900002 DCMRXTMR EQU X'20' TIMER FLAG 01950002 DCMRXRLL EQU X'10' READY TO ROLL 02000002 DCMRXDEL EQU X'08' PENDING DELETE REQUEST 02050002 DCMRXTIM EQU X'02' TIMER ELAPSED FOR THIS DISPLAY 02100002 DCMR3FLG DS BL1 MISC FLAGS 02200002 DCMSTSWT EQU X'80' CHANGING STATUS OF OUTPUT ONLY CON 02250002 DCMKVIP EQU X'40' ENTRY FOR K VARY COMMAND 02300002 DCMCLPR EQU X'20' CLOSE IN PROCESS 02350002 DCMRXSCN EQU X'10' ASY ERROR MESSAGE ON SCREEN 02400002 DCMR3PKA EQU X'08' DA I/O COMPLETE 02410002 DCMRXHMT EQU X'04' FULL SCREEN SIMULATED MC YM4102 02420002 DS H RESERVED 02450002 DCMRQDEL DS A DELETE REQUEST BUFFER 02460002 DS A DELETE REQUEST BUFFER 02470002 DCMMSGSV DS A POINTER TO SAVED NIP MESSAGES 02480002 DCMPACB EQU * SACB PREFIX 02482002 DCMPLN DS FL2 SYSGEN LENGTH OF AREA 02490002 DCMPLNPR DS H LENGTH OF SACB PREFIX-IN BYTES 02492002 DCMPRSZ EQU *-DCMPACB SIZE OF PREFIX 02492402 DCMACB EQU * SACB 02492802 DCMACBNX DS A POINTER TO NEXT SACB 02494002 DCMAID DS CL1 AREA ID 02496002 DCMASACB DS BL1 SACB FLAGS 02498002 DCMAUSE EQU X'80' AREA PRESENTLY DEFINED MB Y02958 02498402 * IF DCMAUSE IS OFF, A SYSGEND AREA HAS BEEN FREED E.G. K A,NONE 02498502 DCMAGM EQU X'40' GETMAINED SACB 02498802 DCMALN DS FL2 LENGTH OF AREA 02499202 DCMATOP DS FL1 TOP ROW OF AREA 02499602 DCMACLR EQU * REINITIALIZED PORTION MB Y02958 02503002 DCMAROW DS FL1 ROW TO BE WRITTEN NEXT 02506402 DCMAFR DS H FRAME ON SCREEN 02509802 DCMAMJWQ DS A POINTER TO CON Q ENTRY FOR MAJOR 02513202 DCMAMIN DS A POINTER TO MINOR WQE 02516602 DCMATIME DS F TIME CONTROL LINE WAS WRITTEN 02526602 DCMAMT DS XL2 RESERVED MB Y02958 02528602 DCMAFLG1 DS XL1 AREA FLAGS1 02532602 DCMADISP EQU X'40' DISPLAY IN AREA 02533002 DCMADEND EQU X'20' END OF DISPLAY ON SCREEN 02533102 DCMAFRPR EQU X'10' FRAMING IN PROGRESS 02533202 DCMAFULL EQU X'08' FRAME FULL 02538802 DCMABL EQU X'04' BLANKING TO BE DONE 02540802 DCMAFLG2 DS XL1 AREA FLAGS 2 02542802 DCMALMIN EQU X'80' SAVED POINTER TO LAST MINOR OUTPUT 02543202 DCMAWCON EQU X'40' WRITE CONTROL LINE 02543602 DCMARCON EQU X'20' REWRITE CONTROL LINE 02544002 DCMAMJFR EQU X'10' MAJOR WQE HAS BEEN FOUND 02544102 DCMADFLG DS XL1 DYNAMIC DISPLAY FLAGS MB Y02958 02544202 DCMADD EQU X'80' TRACK IN AREA MB Y02958 02544302 DCMAHOLD EQU X'40' TRACK IN HOLD MODE MB Y02958 02558202 DCMACSIB EQU X'20' TRACK WITH CONTINUATION LINE IN *02568202 SCREEN IMAGE BUFFER MB Y02958 02568602 DCMATRCK DS X TRACK REQUEST INDICATORS MB Y02958 02569002 DCMATJOB EQU X'80' TRACK JOBS MB Y02958 02569402 DCMATJBL EQU X'40' TRACK JOBS,LIST MB Y02958 02569802 DCMATTS EQU X'08' TRACK TS MB Y02958 02569902 DCMATTSL EQU X'04' TRACK TS,LIST MB Y02958 02570002 DCMATA EQU X'88' TRACK A MB Y02958 02570102 DCMATAL EQU X'44' TRACK A,LIST MB Y02958 02572702 DCMAUTME DS XL2 UTME=NNN VALUE MB Y02958 02575702 DCMATECB DS F TRACK CANCEL ECB ADDRESS MB Y02958 02577702 DCMAPAD DS F RESERVED MB Y02958 02578102 DCMACBND EQU * SACB END 02578302 DCMCLRLN EQU *-DCMACLR LENGTH FOR REINITIALIZING MB Y02958 02580302 DCMACBSZ EQU *-DCMACB SACB SIZE 02580902 DCMREND DS 0C END OF DCM 02583502 MEND , */ 02586102 *%DCMRBSL : ; 02600002 */* 01/15/73 LEVEL=05 */ 02610002 *DECLARE 02650002 * 1 DCMTSRT BASED(DCMTSPTR), 02700002 * 2 DCMADTRN PTR(31), /* POINTER TO PAGABLE DCM */ 02750002 * 2 * CHAR(1), /* RESERVED */ 02850002 * 2 DCMRFLGS CHAR(1), /* FLAGS */ 02950002 * 3 * BIT(1), /* UNUSED */ 03000002 * 3 * BIT(1), /* UNUSED */ 03050002 * 3 * BIT(1), /* UNUSED */ 03100002 * 3 DCMDOM BIT(1), /* DOM MUST BE TRIED */ 03150002 * 3 DCMNIPP BIT(1), /* DCM WAS USED BY NIP */ 03200002 * 3 * BIT(1), /* UNUSED */ 03250002 * 3 * BIT(1), /* UNUSED */ 03300002 * 3 * BIT(1), /* UNUSED */ 03350002 * 2 DCMLEN FIXED(15), /* LENGTH OF PAGABLE DCM */ 03400002 * 2 DCMADKP PTR(31), /* ADDRESS OF ROUTED K 03450002 * COMMAND PARAMETER LIST */ 03500002 * 2 DCMTOPAR CHAR(1), /* TOP DISPLAY AREA DEFINED */ 03550002 * 2 DCMTOPDS CHAR(1), /* TOP DISPLAY ON SCREEN */ 03600002 * 2 * CHAR(1), /* RESERVED */ 03650002 * 3 * BIT(1), /* UNUSED */ 03750002 * 3 * BIT(1), /* UNUSED */ 03850002 * 3 * BIT(1), /* UNUSED */ 03950002 * 3 * BIT(1), /* UNUSED */ 04000002 * 3 * BIT(1), /* UNUSED */ 04050002 * 3 * BIT(1), /* UNUSED */ 04100002 * 3 * BIT(1), /* UNUSED */ 04150002 * 3 * BIT(1), /* UNUSED */ 04200002 * 2 DCMDEVTY CHAR(1), /* DEVICE TYPE FLAGS */ 04250002 * 3 DCMTY60 BIT(1), /* USABLE FOR SD */ 04300002 * 3 DCMTY50 BIT(1), /* UNUSABLE FOR SD */ 04350002 * 3 * BIT(1), /* UNUSED */ 04400002 * 3 * BIT(1), /* UNUSED */ 04450002 * 3 * BIT(1), /* UNUSED */ 04500002 * 3 * BIT(1), /* UNUSED */ 04550002 * 3 * BIT(1), /* UNUSED */ 04600002 * 3 * BIT(1), /* UNUSED */ 04650002 * 2 DCMADSDS PTR(31), /* POINTER TO FIRST SDS 04700002 * SUPPORT AREA */ 04750002 * 2 DCMRMS CHAR(1), /* NUMBER OF CCWS TO WRITE */ 04800002 * 2 DCMADRMS PTR(24) BDY(BYTE), /* POINTER TO RMS CCWS */ 04850002 * 2 DCMWLAST PTR(31), /* PT CON Q ENTRY LAST OUT 04900002 * (O-O-L) */ 04950002 * 2 DCMRMSAL FIXED(15), /* NUMBER LINES IN MSG AREA */ 05000002 * 2 DCMDOMKY FIXED(15), /* CONSOLE DOM ELEMENT */ 05050002 * 2 DCMSUBAD PTR(31), /* POINTER TO SUB CONTROL 05100002 * BLOCK */ 05150002 * 2 DCMADPFK PTR(31), /* POINTER TO RESIDENT PFK 05200002 * AREA */ 05250002 * 2 DCMINTVL FIXED(15), /* INTERVAL FOR THIS DCM */ 05300002 * 2 DCMTMCTR FIXED(15), /* TIME COUNTER FOR THIS 05350002 * DCM */ 05400002 * 2 DCMR2FLG CHAR(1), /* TIMER FLAGS */ 05450002 * 3 DCMRXSFL BIT(1), /* FULL SCREEN FLAG */ 05500002 * 3 DCMRXUNV BIT(1), /* UNVIEWABLE MESSAGE 05550002 * DISPLAYED */ 05600002 * 3 DCMRXTMR BIT(1), /* TIMER FLAG */ 05650002 * 3 DCMRXRLL BIT(1), /* READY TO ROLL */ 05700002 * 3 DCMRXDEL BIT(1), /* PENDING DELETE REQUEST */ 05750002 * 3 * BIT(1), /* UNUSED */ 05800002 * 3 DCMRXTIM BIT(1), /* TIMER ELAPSED FOR THIS 05850002 * DISPLAY */ 05900002 * 3 * BIT(1), /* UNUSED */ 05950002 * 2 DCMR3FLG CHAR(1), /* MISC FLAGS */ 06000002 * 3 DCMSTSWT BIT(1), /* CHANGING STATUS OF 06050002 * OUTPUT ONLY CON */ 06100002 * 3 DCMKVIP BIT(1), /* ENTRY FOR K VARY COMMAND */ 06150002 * 3 DCMCLPR BIT(1), /* CLOSE IN PROCESS */ 06200002 * 3 DCMRXSCN BIT(1), /* ASY ERROR MESSAGE ON 06250002 * SCREEN */ 06300002 * 3 DCMR3PKA BIT(1), /* DCM I/O COMPLETE */ 06350002 * 3 DCMRXHMT BIT(1), /* FULL SCREEN SIMULATED */ 06400002 * 3 * BIT(1), /* UNUSED */ 06450002 * 3 * BIT(1), /* UNUSED */ 06500002 * 2 * FIXED(15), /* RESERVED */ 06550002 * 2 DCMRQDEL PTR(31), /* DELETE REQUEST BUFFER */ 06560002 * 2 * PTR(31), /* DELETE REQUEST BUFFER */ 06570002 * 2 DCMMSGSV PTR(31), /* POINTER TO NIPS MSGS. */ 06580002 * 2 DCMPACB , /* SACB PREFIX */ 06582002 * 3 DCMPLN FIXED(15), /* SYSGEN LEN OF AREA. */ 06590002 * 3 DCMPLNPR FIXED(15); /* PREFIX LENGTH OF AREA. */ 06592002 * DECLARE /* SCREEN AREA CNTRL BLOCK */ 06592102 * 1 DCMACB BASED(SACBPTR), /* SACB */ 06592402 * 2 DCMACBNX PTR(31), /* POINTER TO NEXT SACB. */ 06594002 * 2 DCMAID CHAR(1), /* AREA I.D. */ 06596002 * 2 DCMASACB CHAR(1), /* SACB FLAGS. */ 06598002 * 3 DCMAUSE BIT(1), /* AREA PRESENTLY DEFINED */ 06598402 * 3 DCMAGM BIT(1), /* GETMAINED SACB. */ 06598802 * 2 DCMALN FIXED(15), /* LENGTH OF AREA. */ 06599202 * 2 DCMATOP CHAR(1), /* TOP ROW OF AREA. */ 06599602 * 2 DCMACLR BDY(WORD,2), /* REINITIALIZED PORTION. */ 06603002 * 3 DCMAROW CHAR(1), /* ROW FOR NEXT WRITE. */ 06606402 * 3 DCMAFR FIXED(15), /* FRAME ON SCREEN. */ 06609802 * 3 DCMAMJWQ PTR(31), /* PTR MAJOR CON Q ENTRY */ 06613202 * 3 DCMAMIN PTR(31), /* PTR TO MINOR WQE. */ 06616602 * 3 DCMATIME FIXED(31), /* TIME CONTROL LINE WRITN. */ 06626602 * 3 DCMAMT CHAR(2), /* RESERVED */ 06628602 * 3 DCMAFLG1 CHAR(1), /* AREA FLAGS. */ 06643602 * 4 * BIT(1), /* RESERVED. */ 06644002 * 4 DCMADISP BIT(1), /* DISPLAY IN AREA */ 06653302 * 4 DCMADEND BIT(1), /* END OF DISP. ON SCREEN */ 06655302 * 4 DCMAFRPR BIT(1), /* FRAMING IN PROGRESS */ 06657302 * 4 DCMAFULL BIT(1), /* FRAME FULL */ 06659302 * 4 DCMABL BIT(1), /* BLANKING TO BE DONE */ 06661302 * 4 * BIT(1), /* RESERVED. */ 06662802 * 4 * BIT(1), /* RESERVED. */ 06672102 * 3 DCMAFLG2 CHAR(1), /* AREA FLAGS 2. */ 06674102 * 4 DCMALMIN BIT(1), /* PTR TO LAST MINOR OUTPT. */ 06674502 * 4 DCMAWCON BIT(1), /* WRITE CONTROL LINE */ 06674902 * 4 DCMARCON BIT(1), /* REWRITE CONTROL LINE */ 06675302 * 4 DCMAMJFR BIT(1), /* MAJOR WQE HAS BEEN FOUND */ 06675702 * 4 * BIT(1), /* RESERVED. */ 06676102 * 4 * BIT(1), /* RESERVED. */ 06678102 * 4 * BIT(1), /* RESERVED. */ 06680102 * 4 * BIT(1), /* RESERVED. */ 06680502 * 3 DCMATFLG CHAR(4) BDY(WORD), /* FLAGS AND UTME VALUE */ 06680602 * 4 DCMADFLG CHAR(1), /* DYNAMIC DISPLAY FLAGS */ 06680902 * 5 DCMADD BIT(1), /* TRACK IN AREA */ 06681302 * 5 DCMAHOLD BIT(1), /* TRACK IN HOLD MODE */ 06731302 * 5 DCMACSIB BIT(1), /* TRACK WITH CONT LINE */ 06741302 * 5 * BIT(1), /* RESERVED. */ 06751302 * 5 * BIT(1), /* RESERVED. */ 06761302 * 5 * BIT(1), /* RESERVED. */ 06771302 * 5 * BIT(1), /* RESERVED. */ 06773302 * 5 * BIT(1), /* RESERVED. */ 06775302 * 4 DCMATRCK CHAR(1), /* TRACK REQUEST INDICATORS */ 06777702 * 5 DCMATJOB BIT(1), /* TRACK JOBS */ 06778102 * 5 DCMATJBL BIT(1), /* TRACK JOBS,LIST */ 06778502 * 5 * BIT(1), /* RESERVED */ 06778602 * 5 * BIT(1), /* RESERVED */ 06778702 * 5 DCMATTS BIT(1), /* TRACK TS */ 06778902 * 5 DCMATTSL BIT(1), /* TRACK TS,LIST */ 06779002 * 5 * BIT(1), /* RESERVED */ 06779102 * 5 * BIT(1), /* RESERVED */ 06779202 * /* TO REFERENCE AND CHANGE THE ABOVE BITS */ 06779602 * /* REFERENCE: IF DCMATJBL='1'B THEN ... */ 06779702 * /* CHANGE: DCMATJBL='1'B */ 06779802 *%DCL DCMATA CHAR; /* MASK FOR TRACK A */ 06779902 *%DCMATA='''88''X'; /* REFERENCE: IF DCMATRCK=DCMATA THEN ... */ 06780002 * /* CHANGE: DCMATRCK=DCMATA */ 06780102 *%DCL DCMATAL CHAR; /* MASK FOR TRACK A,LIST */ 06780202 *%DCMATAL='''44''X'; /* REFERENCE AND CHANGE AS FOR DCMATA */ 06780302 * 4 DCMAUTME FIXED(15), /* UTME=NNN VALUE */ 06781102 * 3 DCMATECB PTR(31), /* TRACK CANCEL ECB ADDRESS */ 06781302 * 3 DCMAPAD FIXED(31), /* RESERVED */ 06787802 * 2 DCMACBND BDY(BYTE); /* SACB END */ 06796902 * %DCMCLRLN='LENGTH(DCMACLR)'; 06798902 * %DCMPRSZ='LENGTH(DCMPACB)'; 06805502 * %DCMACBSZ='LENGTH(DCMACB)'; 06814102 *DECLARE DCMREND (*) CHAR(1) BASED 06822702 * (ADDR(DCMTSRT )+LENGTH(DCMTSRT )); 06831302 * /* END OF DCM */ 06881302