* %GOTO DCMPBSL; /* 00050002 MACRO 00100002 IEETDCM 00150002 * 12/15/72 LEVEL=04 00160002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00200002 * * 00250002 * WORK AND SAVE AREAS * 00300002 * * 00350002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00400002 DCMSTRT DSECT DCMSTPTR 00450002 DS 0F FULL WORD ALIGNMENT 00500002 DS H DCM LENGTH 00550002 DS H PADDING 00600002 SPACE 4 00650002 DCMFLG1 DS BL1 DCM AREA INDICATORS 00700002 SPACE 2 00750002 DCMOUTPT EQU X'02' DCM UPDATED FOR OUTPUT ONLY 00800002 SPACE 4 00850002 DCMATI DC X'00' SAVED UCB ATTN INDEX MC SA55058 00860002 DC AL2(0) RESERVED MC SA55058 00870002 SPACE 2 00950002 DCMWTINT DS A DCMWTINT INITIAL VALUE 01000002 DCMLNCNT DS H NUMBER OF LINES TO BLANK MC SA53462 01010002 DCMLNNUM DC X'00' FIRST LINE TO BLANK MC SA53462 01020002 DC X'00' RESERVED MC SA53462 01030002 DCMPACK DS F AREA TO PLACE NUMBER FOR PACKING 01100002 DCMCVBIN DS F AREA FOR CONVERSION TO BINARY 01150002 SPACE 2 01200002 DCMTIMES DS BL1 TIME RTNS INDICATOR BYTE 01250002 SPACE 2 01300002 DCMTIMER EQU X'80' TIME ELAPSED FOR THIS DISPLAY 01350002 DCMOPTTI EQU X'40' OPTIONS TO TI RTN 01400002 DCMOTTMM EQU X'10' OPTIONS OR TI RTNS TO MSG MODULE 01450002 DCMTASYN EQU X'04' TIMER SET FOR ASYNC ERROR MSG 01500002 DCMOCTTI EQU X'02' OPEN-CLOSE TO TI RTN 01550002 DCMRMTTI EQU X'01' ROLL MODE TO TIMER ROUTINE 01600002 EJECT 01650002 DS XL1 UNUSED 01700002 SPACE 2 01750002 DCMELGN DS H ENTRY AREA LAST CHARACTER POINTER 01800002 SPACE 2 01850002 DCMBUFAD DS A POINTER TO BUFFER ADDRESS TABLE 01900002 DCMDOMPK DS A ADDRESS OF FIRST DOM NUMBER 01950002 DCMAMTAB DS A ADDRESS OF FIRST SCT ENTRY 02000002 DCMADSEC DS A ADDRESS OF FIRST SSCT ENTRY 02050002 DCMADDRL DS A ADDRESS OF LAST SCT ENTRY 02100002 DCMASCRN DS A POINTER TO SCREEN IMAGE BUFFER 02150002 DCMLSCRN DS A POINTER TO LAST BUFFER LINE 02200002 DCMWTBUF DS A SCREEN LENGTH POINTER 02250002 DCMAINS DS A POINTER TO INSTRUCTION LINE 02300002 DCMAENTR DS A POINTER TO ENTRY AREA 02350002 DCMAWARN DS A POINTER TO WARNING LINE 02400002 DCMADCHP DS A ADDRESS OF CHANNEL PROGRAM AREA 02450002 DCMPFKLN DS A POINTER TO PFK LINE 02500002 DCMCXSVE DS F CXSA SAVE AREA 02550002 DCMADOPN DS A ADDRESS OF COMMAND OPERAND 02600002 DCMDSAV DS 5F SAVE AND WORK AREA 02650002 SPACE 2 02700002 * INPUT BUFFER FOR ISSUING SVC 34 AND SVC 35 * 02750002 * FIELDS DCMWQEXP THROUGH DCMINPUT MUST REMAIN IN ORDER * 02800002 DCMWQEXP DS 0F ENSURE FULL WORD BOUNDARY 02850002 DCMINLGN DS H FIELD FOR INPUT LENGTH 02900002 DCMMCSFL DS H MCS FLAGS FIELD 02950002 DCMINPUT DS 32F INPUT MESSAGE TEXT 03000002 SPACE 2 03050002 DCMLGNTH DS H LENGTH OF A LINE 03100002 DCMBAINC DS H ADDRESS TO INSERT CURSOR 03150002 DCMIRCTR DS H INTERVENTION REQ'D MSG COUNTER 03200002 DCMBADLN DS H BUFFER ADDR TO BEGIN MSG WRITE 03250002 DCMBYTCT DS H NUMBER OF BYTES TO WRITE 03300002 DCMADNUM DS H NEXT LINE NUMBER 03350002 DCMAXLGN DS H MAXIMUM LINE LENGTH 03400002 DCMMSGAL DS H NUMBER OF LINES IN MESSAGE AREA 03450002 DCMRMINC DS H INCREMENT INTO RMI 03500002 DCMSCTCN DS H LENGTH OF ONE SCT ENTRY 03550002 DCMCORLN DS H LENGTH OF DCM LINE IN CORE 03600002 DS H TIME COUNTER 03650002 DCMPFKNM DS XL1 NUMBER OF KEY BEING PROCESSED 03700002 DCMPFKKN DS XL1 LIST KEY NUMBER 03750002 EJECT 03800002 DCMDEL DS CL2 DEL VALUE 03850002 DCMCON DS CL1 CON VALUE 03900002 DCMSEG DS FL1 SEG VALUE 03950002 DCMDL DS FL1 DISPLAY AREA OPTION 04000002 DCMRNUM DS FL1 ROLL NUMBER VALUE 04050002 DCMRTME DS H ROLL TIME VALUE 04100002 SPACE 2 04150002 * DEFAULT VALUES FOR OPTIONS 04200002 DCMSEGDF DS FL1 SEG DEFAULT 04250002 DCMRNUMD DS FL1 RNUM DEFAULT 04300002 DCMRTMED DS H RTME DEFAULT 04350002 SPACE 2 04400002 DCMASKEN DS XL1 ENTER MASK 04450002 DCMASKCN DS XL1 CANCEL MASK 04500002 DCMASKCR DS XL1 CURSOR MASK 04550002 DCMASKLP DS XL1 LIGHT PEN MASK 04600002 DCMASKPF DS XL1 PFK MASK 04650002 EJECT 04700002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 04750002 * * 04800002 * COMMUNICATIONS AREA * 04850002 * * 04900002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 04950002 SPACE 2 05000002 DCMOPTST DS BL1 STATUS OF SCREEN CONTROL OPTIONS 05050002 SPACE 2 05100002 DCMOPTVR EQU X'80' DELETE VERIFICATION CON=(Y=1,N=0) 05150002 DCMOPTAD EQU X'40' AUTOMATIC DELETION DEL=(Y=1,N=0) 05200002 DCMOPTSG EQU X'20' DEFAULT SEGMENT SPECIFIED SEG=(0=0) 05250002 DCMOPRLL EQU X'10' ROLL MODE (Y=1,N=0) 05300002 SPACE 4 05350002 DCMCS DS BL1 OPEN/CLOSE REQUEST 05400002 SPACE 2 05450002 DCMCSC EQU X'80' CLOSE REQUEST 05500002 DCMCSO EQU X'40' OPEN REQUEST 05550002 SPACE 4 05600002 DCMUTILT DS BL1 RESERVED 05650002 SPACE 2 05700002 DCMUTILA EQU X'80' THESE BITS ARE 05750002 DCMUTILB EQU X'40' INITIALIZED AND USED 05800002 DCMUTILC EQU X'20' SOLELY WITHIN 05850002 DCMUTILD EQU X'10' EACH MODULE 05900002 DCMUTILE EQU X'08' THEY ARE NEVER 05950002 DCMUTILF EQU X'04' USED FOR INTERFACE 06000002 DCMTEST1 EQU X'02' FOR TESTING 06050002 DCMTEST2 EQU X'01' FOR TESTING 06100002 SPACE 4 06150002 DCMDSTAT DS BL1 CURRENT DISPLAY STATUS 06200002 SPACE 2 06250002 DCMDSTNM EQU X'20' MESSAGES ARE NUMBERED 06300002 DCMDSTNH EQU X'10' MSGS NUMBERED - HOLD OPTION 06350002 DCMDSINR EQU X'08' INTERVENTION REQ'D DELETION TRIED 06400002 DCMDSAUT EQU X'04' AUTOMATIC DELETION TRIED 06450002 SPACE 4 06500002 DCMMCSST DS BL1 MCS INTERFACE BYTE 06550002 SPACE 2 06600002 DCMDUSE EQU X'80' OUR SUPPORT IN CONTROL 06650002 DCMOOMSS EQU X'04' MESSAGE STREAM ENTRY 06750002 DCMOOSDS EQU X'01' STATUS DISPLAY ENTRY 06800002 SPACE 4 06850002 DCMIOUNQ DS BL1 UNIQUE IO BYTE 06900002 SPACE 2 06950002 * UNIQUE INTERFACE BITS FOR 2260 07000002 DCMIO226 EQU X'80' RMI PERFORMED 07050002 DCMRPCUR EQU X'40' ADVANCE CURSOR TO BLANKS 07100002 DCMFRSCN EQU X'20' PUT OUTPUT IN HOLD MODE 07150002 * UNIQUE INTERFACE BITS FOR 2250 07200002 DCMRDARM EQU X'10' PERFORM READ AFTER RMI 07250002 DCMW2250 EQU X'08' DEVICE IS 2250 07300002 DCMINNOR EQU X'04' NORMAL INSTRUCTION LINE 07350002 DCMINERR EQU X'02' ERROR INSTRUCTION LINE 07400002 SPACE 4 07450002 DCMIOCM1 DS BL1 IO COMMUNICATIONS BYTE 1 07500002 SPACE 2 07550002 DCMDORMI EQU X'80' ISSUE RMI 07600002 DCMSOUND EQU X'40' SOUND ALARM 07650002 DCMWRWRN EQU X'20' WRITE WARNING LINE 07700002 DCMWRMSG EQU X'10' WRITE FULL MESSAGE AREA 07750002 DCMWRPAR EQU X'08' WRITE PARTIAL MESSAGE AREA 07800002 DCMWRINS EQU X'04' WRITE INSTRUCTION LINE 07850002 DCMWRENT EQU X'02' WRITE ENTRY AREA 07900002 DCMINSC EQU X'01' INSERT CURSOR 07950002 EJECT 08000002 DCMIOCM2 DS BL1 IO COMMUNICATIONS BYTE 2 08050002 SPACE 2 08100002 DCMBLENT EQU X'80' BLANK ENTRY AREA 08150002 DCMBLWRL EQU X'40' BLANK LEFT HALF WARNING LINE 08200002 DCMBLWRR EQU X'20' BLANK RIGHT HALF WARNING LINE 08250002 DCMINSSH EQU X'10' INIT AND SHIFT INSTRUCTION LINE 08300002 DCMWINFD EQU X'08' WRITE INFORMATIONAL DISPLAY 08350002 DCMERASE EQU X'04' PERFORM ERASE 08400002 DCMIOCRD EQU X'02' PERFORM READ (2250,22DOC) 08450002 DCMWRASY EQU X'01' WRITE ASYNC ERROR MSG TO MID-SCREEN 08500002 SPACE 4 08550002 DCMIOCM3 DS BL1 IO COMMUNICATIONS BYTE 3 08600002 SPACE 2 08650002 DCMOPRMI EQU X'80' RMI AFTER OPEN TO UNLOCK KEYBOARD 08700002 DCMSSRG EQU X'40' SUPPRESS START REGENERATION 08750002 DCMWRPFK EQU X'10' DCM WRITE PFK AREA 08800002 DCMPFKAT EQU X'08' PFK ATTENTION 08850002 DCMRDPFK EQU X'04' PFK AREA READ 08900002 DCMACPFK EQU X'02' TURN ACTIVE PFK LIGHTS ON 08950002 DCMLTPFK EQU X'01' TURN ALL PFK LIGHTS ON 09000002 SPACE 4 09050002 DCMLINEN DS XL1 LINE NUMBER TO BEGIN WRITE 09100002 SPACE 2 09150002 DCMCULNO DS XL1 LINE IN ENTRY AREA TO INSERT CURSOR 09200002 SPACE 2 09250002 DCMPOSCU DS XL1 POSITION TO INSERT CURSOR 09300002 SPACE 4 09350002 DCMASYNC DS BL1 ASYN ERROR COMMUNICATIONS/RETRY BYTE 09400002 SPACE 2 09450002 DCMASDA EQU X'40' RETRY BIT 09500002 DCMASIN EQU X'20' RETRY BIT 09550002 DCMASBA EQU X'10' RETRY BIT 09600002 DCMASLOG EQU X'08' LOG ASYNCHRONOUS ERROR 09650002 EJECT 09700002 DCMCOM1 DS BL1 COMMUNICATIONS BYTE 09750002 SPACE 2 09800002 DCMLPENT EQU X'80' ENTER BY LP OR CURSOR 09850002 DCMIOPRD EQU X'40' READ PERFORMED 09900002 DCMCOMRM EQU X'20' RMI PERFORMED 09950002 DCMCOMAU EQU X'10' PERFORM AUTO DELETE 10000002 DCMCOMRD EQU X'08' PERFORM REGULAR DELETE 10050002 DCMCOMNM EQU X'04' NUMBER MESSAGES 10100002 DCMCANCL EQU X'01' INDICATE CANCEL TO COMMAND ROUTINE 10150002 SPACE 3 10200002 DCMCOM2 DS BL1 COMMUNICATIONS BYTE 10250002 SPACE 2 10300002 DCMCM2I EQU X'80' INPUT TO BE PROCESSED 10350002 DCMSPLIT EQU X'40' MSG TO BE SPLIT 10400002 DCMCOMAR EQU X'20' ACCEPTED REPLY 10450002 DCMERPF EQU X'08' ERASE PERF-PROC CAN NOW CLOSE DEVICE 10500002 DCMCMIN5 EQU X'04' RETURN TO INTER. 5 FOR BLNK 10550002 DCMCBLNK EQU X'02' BLANKING REQUIRED 10600002 DCMAE EQU X'01' CLEANUP FOR ASY ERROR 10650002 SPACE 3 10700002 DCMCOM3 DS BL1 COMMUNICATIONS BYTE 10750002 SPACE 2 10800002 DCMCDSP3 EQU X'80' DISPLAY 3 COMPLETED WORK 10850002 DCMRTPFK EQU X'40' RETURN TO PFK ROUTINE 10900002 DCMVLPFK EQU X'20' VERIFYING LAST COMMAND 10950002 DCMXINT1 EQU X'10' ENTRY FOR INTERFACE 1 ROUTINE 11000002 DCMOLUNV EQU X'08' O-O-L MSG CAUSED UNVIEW. MSG. 11050002 DCMPFKWR EQU X'04' WRITE PFK UPDATES TO LIB 11100002 DCMOLHLD EQU X'02' OUT OF LINE MESSAGES HELD MB Y02958 11110002 DCMCMIN7 EQU X'01' RETURN TO INTER. 7 FOR BLANKING 11150002 SPACE 3 11200002 DCMCMSG1 DS BL1 MSG MODULE COMMUNICATIONS BYTE 1 11250002 SPACE 2 11300002 DCMMSGWT EQU X'80' MOVE IN MESSAGE WAITING 11350002 DCMUNMSG EQU X'40' MOVE IN UNVIEWABLE MESSAGE 11400002 DCMSTEX EQU X'20' MOVE IN STATUS EXISTS 11450002 DCMCHOPT EQU X'10' MOVE IN CHANGE OPTIONS 11500002 DCMELONG EQU X'08' MOVE IN ENTRY TOO LONG 11550002 DCMWRCDL EQU X'04' MOVE IN CON=N,DEL=Y 11600002 DCMDELNT EQU X'02' MOVE IN DEL UNCHANGED, NO TIMER 11650002 EJECT 11750002 DCMCMSG2 DS BL1 MSG MODULE COMMUNICATIONS BYTE 2 11800002 SPACE 2 11850002 DCMDLREQ EQU X'80' MOVE IN DELETION REQUESTED 11900002 DCMRQINC EQU X'40' MOVE IN REQUEST INCONSISTENT 11950002 DCMMSGCR EQU X'20' MOVE IN INVALID CURSOR OPERATION 12000002 DCMINVOP EQU X'10' MOVE IN INVALID OPERAND 12050002 DCMCILLP EQU X'08' MOVE IN ILLEGAL LP OPERATION 12100002 DCMDELRI EQU X'04' MOVE IN DELETE REQUEST INCONSISTANT 12150002 DCMASYRT EQU X'02' MOVE IN ASYN ERROR RETRYABLE 12200002 DCMASYCD EQU X'01' MOVE IN ASYN ERROR MAYBE RETRYABLE 12250002 SPACE 4 12300002 DCMCMSG3 DS BL1 MSG MODULE COMMUNICATIONS BYTE 3 12350002 SPACE 2 12400002 DCMCMRLL EQU X'80' MOVE IN ROLL MODE MESSAGE 12450002 DCMCDLR1 EQU X'40' NO DELETABLE MESSAGES 12500002 DCMCDLR2 EQU X'20' INVALID RANGE 12550002 DCMCDLR3 EQU X'10' SEG EQU TO ZERO 12600002 DCMCDLR4 EQU X'08' DISPLAY NOT ON SCREEN 12650002 DCMCDLR5 EQU X'04' INVALID OPERAND 12700002 DCMDTBSY EQU X'01' COMMAND REJECTED - TASK BUSY 12800002 SPACE 4 12850002 DCMCMSG4 DS BL1 MSG MODULE COMMUNICATIONS BYTE 4 12900002 SPACE 2 12950002 DCMPFKNA EQU X'80' MOVE IN PFK NOT ALLOCATED FOR 13000002 DCMPFKND EQU X'40' MOVE IN PFK NOT DEFINED 13050002 DCMPFKNO EQU X'20' MOVE IN NO PFK ALLOCATION 13100002 DCMPFKIP EQU X'10' MOVE IN PFK IN PROCESS 13150002 SPACE 4 13200002 DCMSVC34 DS BL1 SVC 34 COMMUNICATION BYTE 13250002 SPACE 2 13300002 DCMMYCMD EQU X'80' COMMAND TO BE HANDLED BY THIS CONS 13350002 DCMINVLD EQU X'40' INVALID K COMMAND 13400002 DCMTYPE1 EQU X'20' K COMMAND IS NOT ROUTABLE 13450002 SPACE 2 13500002 DCMPAD DS X RESERVED COMMUNICATION BYTE Y02958 13550002 DCMIONDX DS X INDEX FOR SELECTING THE MB Y02958 13552002 * APPROPRIATE I/O ROUTINE MB Y02958 13554002 * X'04' - M/165 CONSOLE MB Y02958 13556002 * X'08' - 2250 MB Y02958 13558002 * X'0C' - 2260 MB Y02958 13558402 * X'10' - 3277 MB Y02958 13558802 DCMTEST DS H RESERVED FOR TESTING MB Y02958 13560002 EJECT 13600002 ** ** 13650002 * MODULE ADDRESSES * 13700002 ** ** 13750002 SPACE 1 MB Y02958 13800002 DCMIORTN DS F APPROIATE I/O ROUTINE MB Y02958 13850002 * NAME TRACE ID DESCRIPTION MB Y02958 13900002 * IEECVETH EH 3066(M/165) IO ROUTINE MB Y02958 13950002 * IEECVETP EP 2250 IO ROUTINE MB Y02958 13960002 * IEECVETR ER 2260 IO ROUTINE MB Y02958 13970002 * IEECVETU EU 3277 IO ROUTINE MB Y02958 13980002 SPACE 1 MB Y02958 14000002 * NAME TRACE ID DESCRIPTION MB Y02958 14010002 DCMNPRZ DS F IEECVFT1 F1 PROCESSOR 0 LOAD ONE MB Y02958 14050002 DCMNPROC DS F IEECVET1 E1 PROCESSOR ROUTINE LOAD ONE MB Y02958 14150002 DCMNDSP1 DS F IEECVET2 E2 DISPLAY ROUTINE 1 MB Y02958 14250002 DCMNDSP2 DS F IEECVET3 E3 DISPLAY ROUTINE 2 MB Y02958 14300002 DCMNDSP3 DS F IEECVFT2 F2 DISPLAY ROUTINE 3 MB Y02958 14350002 DCMNCMD1 DS F IEECVET4 E4 COMMAND ROUTINE 1 MB Y02958 14400002 DCMNDEL1 DS F IEECVET6 E6 DELETE ROUTINE 1 MB Y02958 14500002 DCMNDEL2 DS F IEECVET7 E7 DELETE ROUTINE 2 MB Y02958 14550002 DCMNDEL3 DS F IEECVET8 E8 DELETE ROUTINE 3 MB Y02958 14600002 DCMNDEL4 DS F IEECVET9 E9 DELETE ROUTINE 4 MB Y02958 14650002 DCMNOPT1 DS F IEECVETA EA OPTIONS ROUTINE 1 MB Y02958 14700002 DCMNPFK1 DS F IEECVFTA FA PFK ROUTINE 1 MB Y02958 14750002 DCMNPFK2 DS F IEECVFTB FB PFK ROUTINE 2 MB Y02958 14800002 DCMNERRO DS F IEECVETC EC ASYNCHRONOUS ERROR ROUTINE MB Y02958 14850002 DCMNMSG1 DS F IEECVETD ED MESSAGE ROUTINE 1 MB Y02958 14900002 DCMNMSG2 DS F IEECVETE EE MESSAGE ROUTINE 2 MB Y02958 14950002 DCMNMSG3 DS F IEECVFTD FD MESSAGE ROUTINE 3 MB Y02958 14960002 DCMNLPCR DS F IEECVETF EF LIGHT PEN/CURSOR SERVICE MB Y02958 15000002 DCMNOPCL DS F IEECVETG EG OPEN-CLOSE ROUTINE MB Y02958 15050002 DCMNCLN DS F IEECVFTG FG CLEANUP MODULE MB Y02958 15100002 DCMNROLL DS F IEECVETJ EJ ROLL MODE ROUTINE MB Y02958 15150002 DCMNTIMR DS F IEECVETK EK TIMER INTERPRETER ROUTINE MB Y02958 15200002 DCMNINT1 DS F IEECVFTL FL INTERFACE 1 ROUTINE MB Y02958 15250002 DCMNINT2 DS F IEECVFTM FM INTERFACE 2 ROUTINE MB Y02958 15300002 DCMNINT3 DS F IEECVFTN FN INTERFACE 3 ROUTINE MB Y02958 15350002 DCMNINT4 DS F IEECVFTO FO INTERFACE 4 ROUTINE MB Y02958 15400002 DCMNINT5 DS F IEECVFTP FP INTERFACE 5 ROUTINE MB Y02958 15450002 DCMNINT6 DS F IEECVFTQ FQ INTERFACE 6 ROUTINE MB Y02958 15500002 DCMNINT7 DS F IEECVFTT FT INTERFACE 7 ROUTINE MB Y02958 15550002 SPACE 2 15560002 DCMTRACE DS CL30 DIDOCS MODULE TRACE AREA MB Y02958 15600002 DCMTRAC2 EQU DCMTRACE+2 TRACE MOVE FROM-ADDRESS MB Y02958 15650002 DCMTRLEN EQU *-DCMTRACE LENGTH FOR TRACE MOVE MB Y02958 15700002 DCMTREN1 DS C 1ST BYTE OF TRACE ENTRY MB Y02958 15750002 DCMTREN2 DS C 2ND BYTE OF TRACE ENTRY MB Y02958 15760002 EJECT 15800002 * FIRST BYTE OF SCT ENTRIES 15850002 DCMMSGWR EQU X'80' WTOR MESSAGE DISPLAYED IN LINE 15900002 DCMMSGIN EQU X'40' MESSAGE DISPLAYED IN LINE 15950002 DCMMSGCN EQU X'20' MESSAGE CONTINUED ON NEXT LINE 16000002 DCMMSGJK EQU X'10' TO WRITE OUT-OF-LINE DISPLAY FROM 16050002 * MAY CONTAIN JUNK (SDS INTERFACE 2) 16100002 DCMMSGAD EQU X'08' MESSAGE CAN BE DELETED AUTOMATICALLY 16150002 DCMMSGRD EQU X'04' REQUEST HAS SPECIFIED MSG BE REMOVED 16200002 DCMMSGIF EQU X'02' INFORMATIONAL MESSAGE IN LINE 16250002 DCMMSGST EQU X'01' END OF TABLE INDICATOR 16300002 SPACE 2 16350002 * SECOND BYTE OF SCT ENTRIES 16400002 DCMMSGAC EQU X'80' ACTION MESSAGE 16450002 DCMMSGC7 EQU X'40' DESCRIPTOR CODE 7 MESSAGE 16500002 DCMMSGDM EQU X'20' MESSAGE HAS BEEN DOMMED 16550002 DCMMSGAR EQU X'10' MESSAGE IS AN ACCEPTED REPLY 16600002 DCMMSGIR EQU X'08' INTERVENTION REQUIRED MESSAGE 16650002 DCMMSGCT EQU X'04' CONTINUATION LINE 16700002 DCMMSGPP EQU X'02' ISSUED BY PROBLEM PROGRAM 16750002 DCMMSGCL EQU X'01' CONTROL LINE OF IN LINE MLWTO 16800002 SPACE 2 16850002 * SECONDARY SCT ENTRIES 16900002 DCMSECCL EQU X'80' CONTROL LINE OF OUT OF LINE DISPLAY 16950002 DCMSECLL EQU X'40' LABEL LINE OF OUT OF LINE DISPLAY 17000002 DCMSECDL EQU X'20' DATA LINE OF OUT OF LINE DISPLAY 17050002 DCMSECBL EQU X'10' THIS LINE IS BLANKED 17100002 DCMSECDD EQU X'02' LINE RESERVED FOR DYNAMIC DISPLAY 17150002 DCMSECST EQU X'01' END OF TABLE INDICATOR 17200002 DCMEND DS 0C END OF DCM 17250002 MEND , */ 17300002 *%DCMPBSL : ; 17350002 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 17400002 */* */ 17450002 */* WORK AND SAVE AREAS */ 17500002 */* */ 17550002 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 17600002 */* 12/15/72 LEVEL=04 */ 17610002 *DECLARE 17650002 * 1 DCMSTRT BASED(DCMSTPTR), 17700002 * 17750002 * 2 * FIXED(15) BDY(WORD), /* DCM LENGTH */ 17800002 * 2 * FIXED(15), /* PADDING */ 17850002 * 17900002 * 17950002 * 18000002 * 18050002 * 2 DCMFLG1 CHAR(1), /* DCM AREA INDICATORS */ 18100002 * 18150002 * 18200002 * 3 * BIT(1), /* RESERVED */ 18250002 * 3 * BIT(1), /* RESERVED */ 18300002 * 3 * BIT(1), /* RESERVED */ 18350002 * 3 * BIT(1), /* RESERVED */ 18400002 * 3 * BIT(1), /* RESERVED */ 18450002 * 3 * BIT(1), /* RESERVED */ 18500002 * 3 DCMOUTPT BIT(1), /* DCM UPDATED FOR OUTPUT 18550002 * ONLY */ 18600002 * 3 * BIT(1), /* RESERVED */ 18650002 * 18700002 * 18750002 * 18800002 * 18850002 * 2 DCMATI CHAR(1), /* SAVED UCB ATTN INDEX */ 18900002 * 2 * CHAR(2), /* RESERVED */ 18910002 * 18950002 * 19000002 * 2 DCMWTINT PTR(31), /* DCMWTINT INITIAL VALUE */ 19050002 * 2 DCMLNCNT FIXED(15), /* NUMBER OF LINES TO BLANK */ 19060002 * 2 DCMLNNUM CHAR(1), /* FIRST LINE TO BLANK */ 19070002 * 2 * CHAR(1), /* RESERVED */ 19080002 * 2 DCMPACK FIXED(31), /* AREA TO PLACE NUMBER FOR 19150002 * PACKING */ 19200002 * 2 DCMCVBIN FIXED(31), /* AREA FOR CONVERSION TO 19250002 * BINARY */ 19300002 * 19350002 * 2 DCMTIMES CHAR(1), /* TIME RTNS INDICATOR BYTE */ 19400002 * 19450002 * 19500002 * 3 DCMTIMER BIT(1), /* TIME ELAPSED FOR THIS 19550002 * DISPLAY */ 19600002 * 3 DCMOPTTI BIT(1), /* OPTIONS TO TI RTN */ 19650002 * 3 * BIT(1), /* RESERVED */ 19700002 * 3 DCMOTTMM BIT(1), /* OPTIONS OR TI RTNS TO 19750002 * MSG MODULE */ 19800002 * 3 * BIT(1), /* RESERVED */ 19850002 * 3 DCMTASYN BIT(1), /* TIMER SET FOR ASYNC 19900002 * ERROR MSG */ 19950002 * 3 DCMOCTTI BIT(1), /* OPEN-CLOSE TO TI RTN */ 20000002 * 3 DCMRMTTI BIT(1), /* ROLL MODE TO TIMER 20050002 * ROUTINE */ 20100002 *@EJECT; 20150002 * 2 * CHAR(1), /* UNUSED */ 20200002 * 20250002 * 20300002 * 2 DCMELGN FIXED(15), /* ENTRY AREA LAST 20350002 * CHARACTER POINTER */ 20400002 * 20450002 * 20500002 * 2 DCMBUFAD PTR(31), /* POINTER TO BUFFER 20550002 * ADDRESS TABLE */ 20600002 * 2 DCMDOMPK PTR(31), /* ADDRESS OF FIRST DOM 20650002 * NUMBER */ 20700002 * 2 DCMAMTAB PTR(31), /* ADDRESS OF FIRST SCT 20750002 * ENTRY */ 20800002 * 2 DCMADSEC PTR(31), /* ADDRESS OF FIRST SSCT 20850002 * ENTRY */ 20900002 * 2 DCMADDRL PTR(31), /* ADDRESS OF LAST SCT 20950002 * ENTRY */ 21000002 * 2 DCMASCRN PTR(31), /* POINTER TO SCREEN IMAGE 21050002 * BUFFER */ 21100002 * 2 DCMLSCRN PTR(31), /* POINTER TO LAST BUFFER 21150002 * LINE */ 21200002 * 2 DCMWTBUF PTR(31), /* SCREEN LENGTH POINTER */ 21250002 * 2 DCMAINS PTR(31), /* POINTER TO INSTRUCTION 21300002 * LINE */ 21350002 * 2 DCMAENTR PTR(31), /* POINTER TO ENTRY AREA */ 21400002 * 2 DCMAWARN PTR(31), /* POINTER TO WARNING LINE */ 21450002 * 2 DCMADCHP PTR(31), /* ADDRESS OF CHANNEL 21500002 * PROGRAM AREA */ 21550002 * 2 DCMPFKLN PTR(31), /* POINTER TO PFK LINE */ 21600002 * 2 DCMCXSVE FIXED(31), /* CXSA SAVE AREA */ 21650002 * 2 DCMADOPN PTR(31), /* ADDRESS OF COMMAND 21700002 * OPERAND */ 21750002 * 2 DCMDSAV (5) FIXED(31), /* SAVE AND WORK AREA */ 21800002 * 21850002 * 21900002 */* INPUT BUFFER FOR ISSUING SVC 34 AND SVC 35 */ 21950002 */* FIELDS DCMWQEXP THROUGH DCMINPUT MUST REMAIN IN ORDER */ 22000002 * 2 DCMWQEXP FIXED(31), /* ENSURE FULL WORD 22050002 * BOUNDARY */ 22100002 * 3 DCMINLGN FIXED(15), /* FIELD FOR INPUT LENGTH */ 22150002 * 3 DCMMCSFL FIXED(15), /* MCS FLAGS FIELD */ 22200002 * 2 DCMINPUT (32) FIXED(31), /* INPUT MESSAGE TEXT */ 22250002 * 22300002 * 22350002 * 2 DCMLGNTH FIXED(15), /* LENGTH OF A LINE */ 22400002 * 2 DCMBAINC FIXED(15), /* ADDRESS TO INSERT CURSOR */ 22450002 * 2 DCMIRCTR FIXED(15), /* INTERVENTION REQ'D MSG 22500002 * COUNTER */ 22550002 * 2 DCMBADLN FIXED(15), /* BUFFER ADDR TO BEGIN MSG 22600002 * WRITE */ 22650002 * 2 DCMBYTCT FIXED(15), /* NUMBER OF BYTES TO WRITE */ 22700002 * 2 DCMADNUM FIXED(15), /* NEXT LINE NUMBER */ 22750002 * 2 DCMAXLGN FIXED(15), /* MAXIMUM LINE LENGTH */ 22800002 * 2 DCMMSGAL FIXED(15), /* NUMBER OF LINES IN 22850002 * MESSAGE AREA */ 22900002 * 2 DCMRMINC FIXED(15), /* INCREMENT INTO RMI */ 22950002 * 2 DCMSCTCN FIXED(15), /* LENGTH OF ONE SCT ENTRY */ 23000002 * 2 DCMCORLN FIXED(15), /* LENGTH OF DCM LINE IN 23050002 * CORE */ 23100002 * 2 * FIXED(15), /* TIME COUNTER */ 23150002 * 2 DCMPFKNM CHAR(1), /* NUMBER OF KEY BEING 23200002 * PROCESSED */ 23250002 * 2 DCMPFKKN CHAR(1), /* LIST KEY NUMBER */ 23300002 *@EJECT; 23350002 * 2 DCMDEL CHAR(2), /* DEL VALUE */ 23400002 * 2 DCMCON CHAR(1), /* CON VALUE */ 23450002 * 2 DCMSEG PTR(8), /* SEG VALUE */ 23500002 * 2 DCMDL PTR(8), /* DISPLAY AREA OPTION */ 23550002 * 2 DCMRNUM PTR(8), /* ROLL NUMBER VALUE */ 23600002 * 2 DCMRTME FIXED(15), /* ROLL TIME VALUE */ 23650002 * 23700002 * 23750002 */*DEFAULT VALUES FOR OPTIONS */ 23800002 * 2 DCMSEGDF PTR(8), /* SEG DEFAULT */ 23850002 * 2 DCMRNUMD PTR(8), /* RNUM DEFAULT */ 23900002 * 2 DCMRTMED FIXED(15), /* RTME DEFAULT */ 23950002 * 24000002 * 24050002 * 2 DCMASKEN CHAR(1), /* ENTER MASK */ 24100002 * 2 DCMASKCN CHAR(1), /* CANCEL MASK */ 24150002 * 2 DCMASKCR CHAR(1), /* CURSOR MASK */ 24200002 * 2 DCMASKLP CHAR(1), /* LIGHT PEN MASK */ 24250002 * 2 DCMASKPF CHAR(1), /* PFK MASK */ 24300002 *@EJECT; 24350002 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 24400002 */* */ 24450002 */* COMMUNICATIONS AREA */ 24500002 */* */ 24550002 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 24600002 * 24650002 * 24700002 * 2 DCMOPTST CHAR(1), /* STATUS OF SCREEN CONTROL 24750002 * OPTIONS */ 24800002 * 24850002 * 24900002 * 3 DCMOPTVR BIT(1), /* DELETE VERIFICATION 24950002 * CON=(Y=1,N=0) */ 25000002 * 3 DCMOPTAD BIT(1), /* AUTOMATIC DELETION 25050002 * DEL=(Y=1,N=0) */ 25100002 * 3 DCMOPTSG BIT(1), /* DEFAULT SEGMENT 25150002 * SPECIFIED SEG=(0=0) */ 25200002 * 3 DCMOPRLL BIT(1), /* ROLL MODE (Y=1,N=0) */ 25250002 * 3 * BIT(1), /* RESERVED */ 25300002 * 3 * BIT(1), /* RESERVED */ 25350002 * 3 * BIT(1), /* RESERVED */ 25400002 * 3 * BIT(1), /* RESERVED */ 25450002 * 25500002 * 25550002 * 25600002 * 25650002 * 2 DCMCS CHAR(1), /* OPEN/CLOSE REQUEST */ 25700002 * 25750002 * 25800002 * 3 DCMCSC BIT(1), /* CLOSE REQUEST */ 25850002 * 3 DCMCSO BIT(1), /* OPEN REQUEST */ 25900002 * 3 * BIT(1), /* RESERVED */ 25950002 * 3 * BIT(1), /* RESERVED */ 26000002 * 3 * BIT(1), /* RESERVED */ 26050002 * 3 * BIT(1), /* RESERVED */ 26100002 * 3 * BIT(1), /* RESERVED */ 26150002 * 3 * BIT(1), /* RESERVED */ 26200002 * 26250002 * 26300002 * 26350002 * 26400002 * 2 DCMUTILT CHAR(1), /* RESERVED */ 26450002 * 26500002 * 26550002 * 3 DCMUTILA BIT(1), /* THESE BITS ARE */ 26600002 * 3 DCMUTILB BIT(1), /* INITIALIZED AND USED */ 26650002 * 3 DCMUTILC BIT(1), /* SOLELY WITHIN */ 26700002 * 3 DCMUTILD BIT(1), /* EACH MODULE */ 26750002 * 3 DCMUTILE BIT(1), /* THEY ARE NEVER */ 26800002 * 3 DCMUTILF BIT(1), /* USED FOR INTERFACE */ 26850002 * 3 DCMTEST1 BIT(1), /* FOR TESTING */ 26900002 * 3 DCMTEST2 BIT(1), /* FOR TESTING */ 26950002 * 27000002 * 27050002 * 27100002 * 27150002 * 2 DCMDSTAT CHAR(1), /* CURRENT DISPLAY STATUS */ 27200002 * 27250002 * 27300002 * 3 * BIT(1), /* RESERVED */ 27350002 * 3 * BIT(1), /* RESERVED */ 27400002 * 3 DCMDSTNM BIT(1), /* MESSAGES ARE NUMBERED */ 27450002 * 3 DCMDSTNH BIT(1), /* MSGS NUMBERED - HOLD 27500002 * OPTION */ 27550002 * 3 DCMDSINR BIT(1), /* INTERVENTION REQ'D 27600002 * DELETION TRIED */ 27650002 * 3 DCMDSAUT BIT(1), /* AUTOMATIC DELETION TRIED */ 27700002 * 3 * BIT(1), /* RESERVED */ 27750002 * 3 * BIT(1), /* RESERVED */ 27800002 * 27850002 * 27900002 * 27950002 * 28000002 * 2 DCMMCSST CHAR(1), /* MCS INTERFACE BYTE */ 28050002 * 28100002 * 28150002 * 3 DCMDUSE BIT(1), /* OUR SUPPORT IN CONTROL */ 28200002 * 3 * BIT(1), /* RESERVED */ 28250002 * 3 * BIT(1), /* RESERVED */ 28350002 * 3 * BIT(1), /* RESERVED */ 28400002 * 3 * BIT(1), /* RESERVED */ 28450002 * 3 DCMOOMSS BIT(1), /* MESSAGE STREAM ENTRY */ 28500002 * 3 * BIT(1), /* RESERVED */ 28550002 * 3 DCMOOSDS BIT(1), /* STATUS DISPLAY ENTRY */ 28600002 * 28650002 * 28700002 * 28750002 * 28800002 * 2 DCMIOUNQ CHAR(1), /* UNIQUE IO BYTE */ 28850002 * 28900002 * 28950002 */* NIQUE INTERFACE BITS FOR 2260 */ 29000002 * 3 DCMIO226 BIT(1), /* RMI PERFORMED */ 29050002 * 3 DCMRPCUR BIT(1), /* ADVANCE CURSOR TO BLANKS */ 29100002 * 3 DCMFRSCN BIT(1), /* PUT OUTPUT IN HOLD MODE 29150002 * UNIQUE INTERFACE BITS 29200002 * FOR 2250 */ 29250002 * 3 DCMRDARM BIT(1), /* PERFORM READ AFTER RMI */ 29300002 * 3 DCMW2250 BIT(1), /* DEVICE IS 2250 */ 29350002 * 3 DCMINNOR BIT(1), /* NORMAL INSTRUCTION LINE */ 29400002 * 3 DCMINERR BIT(1), /* ERROR INSTRUCTION LINE */ 29450002 * 3 * BIT(1), /* RESERVED */ 29500002 * 29550002 * 29600002 * 29650002 * 29700002 * 2 DCMIOCM1 CHAR(1), /* IO COMMUNICATIONS BYTE 1 */ 29750002 * 29800002 * 29850002 * 3 DCMDORMI BIT(1), /* ISSUE RMI */ 29900002 * 3 DCMSOUND BIT(1), /* SOUND ALARM */ 29950002 * 3 DCMWRWRN BIT(1), /* WRITE WARNING LINE */ 30000002 * 3 DCMWRMSG BIT(1), /* WRITE FULL MESSAGE AREA */ 30050002 * 3 DCMWRPAR BIT(1), /* WRITE PARTIAL MESSAGE 30100002 * AREA */ 30150002 * 3 DCMWRINS BIT(1), /* WRITE INSTRUCTION LINE */ 30200002 * 3 DCMWRENT BIT(1), /* WRITE ENTRY AREA */ 30250002 * 3 DCMINSC BIT(1), /* INSERT CURSOR */ 30300002 *@EJECT; 30350002 * 2 DCMIOCM2 CHAR(1), /* IO COMMUNICATIONS BYTE 2 */ 30400002 * 30450002 * 30500002 * 3 DCMBLENT BIT(1), /* BLANK ENTRY AREA */ 30550002 * 3 DCMBLWRL BIT(1), /* BLANK LEFT HALF WARNING 30600002 * LINE */ 30650002 * 3 DCMBLWRR BIT(1), /* BLANK RIGHT HALF WARNING 30700002 * LINE */ 30750002 * 3 DCMINSSH BIT(1), /* INIT AND SHIFT 30800002 * INSTRUCTION LINE */ 30850002 * 3 DCMWINFD BIT(1), /* WRITE INFORMATIONAL 30900002 * DISPLAY */ 30950002 * 3 DCMERASE BIT(1), /* PERFORM ERASE */ 31000002 * 3 DCMIOCRD BIT(1), /* PERFORM READ 31050002 * (2250,22DOC) */ 31100002 * 3 DCMWRASY BIT(1), /* WRITE ASYNC ERROR MSG TO 31150002 * MID-SCREEN */ 31200002 * 31250002 * 31300002 * 31350002 * 31400002 * 2 DCMIOCM3 CHAR(1), /* IO COMMUNICATIONS BYTE 3 */ 31450002 * 31500002 * 31550002 * 3 DCMOPRMI BIT(1), /* RMI AFTER OPEN TO UNLOCK 31600002 * KEYBOARD */ 31650002 * 3 DCMSSRG BIT(1), /* SUPPRESS START 31700002 * REGENERATION */ 31750002 * 3 * BIT(1), /* RESERVED */ 31800002 * 3 DCMWRPFK BIT(1), /* DCM WRITE PFK AREA */ 31850002 * 3 DCMPFKAT BIT(1), /* PFK ATTENTION */ 31900002 * 3 DCMRDPFK BIT(1), /* PFK AREA READ */ 31950002 * 3 DCMACPFK BIT(1), /* TURN ACTIVE PFK LIGHTS 32000002 * ON */ 32050002 * 3 DCMLTPFK BIT(1), /* TURN ALL PFK LIGHTS ON */ 32100002 * 32150002 * 32200002 * 32250002 * 32300002 * 2 DCMLINEN CHAR(1), /* LINE NUMBER TO BEGIN 32350002 * WRITE */ 32400002 * 32450002 * 32500002 * 2 DCMCULNO CHAR(1), /* LINE IN ENTRY AREA TO 32550002 * INSERT CURSOR */ 32600002 * 32650002 * 32700002 * 2 DCMPOSCU CHAR(1), /* POSITION TO INSERT 32750002 * CURSOR */ 32800002 * 32850002 * 32900002 * 32950002 * 33000002 * 2 DCMASYNC CHAR(1), /* ASYN ERROR 33050002 * COMMUNICATIONS/RETRY 33100002 * BYTE 09300000 */ 33150002 * 33200002 * 33250002 * 3 * BIT(1), /* RESERVED */ 33300002 * 3 DCMASDA BIT(1), /* RETRY BIT */ 33350002 * 3 DCMASIN BIT(1), /* RETRY BIT */ 33400002 * 3 DCMASBA BIT(1), /* RETRY BIT */ 33450002 * 3 DCMASLOG BIT(1), /* LOG ASYNCHRONOUS ERROR */ 33500002 * 3 * BIT(1), /* RESERVED */ 33550002 * 3 * BIT(1), /* RESERVED */ 33600002 * 3 * BIT(1), /* RESERVED */ 33650002 *@EJECT; 33700002 * 2 DCMCOM1 CHAR(1), /* COMMUNICATIONS BYTE */ 33750002 * 33800002 * 33850002 * 3 DCMLPENT BIT(1), /* ENTER BY LP OR CURSOR */ 33900002 * 3 DCMIOPRD BIT(1), /* READ PERFORMED */ 33950002 * 3 DCMCOMRM BIT(1), /* RMI PERFORMED */ 34000002 * 3 DCMCOMAU BIT(1), /* PERFORM AUTO DELETE */ 34050002 * 3 DCMCOMRD BIT(1), /* PERFORM REGULAR DELETE */ 34100002 * 3 DCMCOMNM BIT(1), /* NUMBER MESSAGES */ 34150002 * 3 * BIT(1), /* RESERVED */ 34200002 * 3 DCMCANCL BIT(1), /* INDICATE CANCEL TO 34250002 * COMMAND ROUTINE */ 34300002 * 34350002 * 34400002 * 34450002 * 2 DCMCOM2 CHAR(1), /* COMMUNICATIONS BYTE */ 34500002 * 34550002 * 34600002 * 3 DCMCM2I BIT(1), /* INPUT TO BE PROCESSED */ 34650002 * 3 DCMSPLIT BIT(1), /* MSG TO BE SPLIT */ 34700002 * 3 DCMCOMAR BIT(1), /* ACCEPTED REPLY */ 34750002 * 3 * BIT(1), /* RESERVED */ 34800002 * 3 DCMERPF BIT(1), /* ERASE PERF-PROC CAN NOW 34850002 * CLOSE DEVICE */ 34900002 * 3 DCMCMIN5 BIT(1), /* RETURN TO INTER. 5 FOR 34950002 * BLNK */ 35000002 * 3 DCMCBLNK BIT(1), /* BLANKING REQUIRED */ 35050002 * 3 DCMAE BIT(1), /* CLEANUP FOR ASY ERROR */ 35100002 * 35150002 * 35200002 * 35250002 * 2 DCMCOM3 CHAR(1), /* COMMUNICATIONS BYTE */ 35300002 * 35350002 * 35400002 * 3 DCMCDSP3 BIT(1), /* DISPLAY 3 COMPLETED WORK */ 35450002 * 3 DCMRTPFK BIT(1), /* RETURN TO PFK ROUTINE */ 35500002 * 3 DCMVLPFK BIT(1), /* VERIFYING LAST COMMAND */ 35550002 * 3 DCMXINT1 BIT(1), /* ENTRY FOR INTERFACE 1 35600002 * ROUTINE */ 35650002 * 3 DCMOLUNV BIT(1), /* O-O-L MSG CAUSED UNVIEW. 35700002 * MSG. */ 35750002 * 3 DCMPFKWR BIT(1), /* WRITE PFK UPDATES TO LIB */ 35800002 * 3 DCMOLHLD BIT(1), /* OUT OF LINE MESSAGES HELD*/ 35850002 * 3 DCMCMIN7 BIT(1), /* RETURN TO INTER. 7 FOR 35900002 * BLANKING */ 35950002 * 36000002 * 36050002 * 36100002 * 2 DCMCMSG1 CHAR(1), /* MSG MODULE 36150002 * COMMUNICATIONS BYTE 1 */ 36200002 * 36250002 * 36300002 * 3 DCMMSGWT BIT(1), /* MOVE IN MESSAGE WAITING */ 36350002 * 3 DCMUNMSG BIT(1), /* MOVE IN UNVIEWABLE 36400002 * MESSAGE */ 36450002 * 3 DCMSTEX BIT(1), /* MOVE IN STATUS EXISTS */ 36500002 * 3 DCMCHOPT BIT(1), /* MOVE IN CHANGE OPTIONS */ 36550002 * 3 DCMELONG BIT(1), /* MOVE IN ENTRY TOO LONG */ 36600002 * 3 DCMWRCDL BIT(1), /* MOVE IN CON=N,DEL=Y */ 36650002 * 3 DCMDELNT BIT(1), /* MOVE IN DEL UNCHANGED, 36700002 * NO TIMER */ 36750002 * 3 * BIT(1), /* RESERVED */ 36800002 *@EJECT; 36900002 * 2 DCMCMSG2 CHAR(1), /* MSG MODULE 36950002 * COMMUNICATIONS BYTE 2 */ 37000002 * 37050002 * 37100002 * 3 DCMDLREQ BIT(1), /* MOVE IN DELETION 37150002 * REQUESTED */ 37200002 * 3 DCMRQINC BIT(1), /* MOVE IN REQUEST 37250002 * INCONSISTENT */ 37300002 * 3 DCMMSGCR BIT(1), /* MOVE IN INVALID CURSOR 37350002 * OPERATION */ 37400002 * 3 DCMINVOP BIT(1), /* MOVE IN INVALID OPERAND */ 37450002 * 3 DCMCILLP BIT(1), /* MOVE IN ILLEGAL LP 37500002 * OPERATION */ 37550002 * 3 DCMDELRI BIT(1), /* MOVE IN DELETE REQUEST 37600002 * INCONSISTANT */ 37650002 * 3 DCMASYRT BIT(1), /* MOVE IN ASYN ERROR 37700002 * RETRYABLE */ 37750002 * 3 DCMASYCD BIT(1), /* MOVE IN ASYN ERROR MAYBE 37800002 * RETRYABLE */ 37850002 * 37900002 * 37950002 * 38000002 * 38050002 * 2 DCMCMSG3 CHAR(1), /* MSG MODULE 38100002 * COMMUNICATIONS BYTE 3 */ 38150002 * 38200002 * 38250002 * 3 DCMCMRLL BIT(1), /* MOVE IN ROLL MODE 38300002 * MESSAGE */ 38350002 * 3 DCMCDLR1 BIT(1), /* NO DELETABLE MESSAGES */ 38400002 * 3 DCMCDLR2 BIT(1), /* INVALID RANGE */ 38450002 * 3 DCMCDLR3 BIT(1), /* SEG EQU TO ZERO */ 38500002 * 3 DCMCDLR4 BIT(1), /* DISPLAY NOT ON SCREEN */ 38550002 * 3 DCMCDLR5 BIT(1), /* INVALID OPERAND */ 38600002 * 3 * BIT(1), /* RESERVED */ 38650002 * 3 DCMDTBSY BIT(1), /* COMMAND REJECTED - TASK 38750002 * BUSY */ 38800002 * 38850002 * 38900002 * 38950002 * 39000002 * 2 DCMCMSG4 CHAR(1), /* MSG MODULE 39050002 * COMMUNICATIONS BYTE 4 */ 39100002 * 39150002 * 39200002 * 3 DCMPFKNA BIT(1), /* MOVE IN PFK NOT 39250002 * ALLOCATED FOR */ 39300002 * 3 DCMPFKND BIT(1), /* MOVE IN PFK NOT DEFINED */ 39350002 * 3 DCMPFKNO BIT(1), /* MOVE IN NO PFK 39400002 * ALLOCATION */ 39450002 * 3 DCMPFKIP BIT(1), /* MOVE IN PFK IN PROCESS */ 39500002 * 3 * BIT(1), /* RESERVED */ 39550002 * 3 * BIT(1), /* RESERVED */ 39600002 * 3 * BIT(1), /* RESERVED */ 39650002 * 3 * BIT(1), /* RESERVED */ 39700002 * 39750002 * 39800002 * 39850002 * 39900002 * 2 DCMSVC34 CHAR(1), /* SVC 34 COMMUNICATION 39950002 * BYTE */ 40000002 * 40050002 * 40100002 * 3 DCMMYCMD BIT(1), /* COMMAND TO BE HANDLED BY 40150002 * THIS CONS */ 40200002 * 3 DCMINVLD BIT(1), /* INVALID K COMMAND */ 40250002 * 3 DCMTYPE1 BIT(1), /* K COMMAND IS NOT 40300002 * ROUTABLE */ 40350002 * 3 * BIT(1), /* RESERVED */ 40400002 * 3 * BIT(1), /* RESERVED */ 40450002 * 3 * BIT(1), /* RESERVED */ 40500002 * 3 * BIT(1), /* RESERVED */ 40550002 * 3 * BIT(1), /* RESERVED */ 40600002 * 40650002 * 40700002 * 2 DCMPAD CHAR(1), /* RESERVED COMMUNICATION 40750002 * BYTES */ 40752002 * 2 DCMIONDX CHAR(1), /* INDEX FOR SELECTING THE 40754002 * APPROPRIATE IO ROUTINE */ 40756002 */* 4=3066,IEECVETH 8=2250,IEECVETP 40758002 * 12=2260,IEECVETR 16=3277,IEECVETU */ 40758402 * 2 DCMTEST FIXED(15), /* RESERVED FOR TESTING */ 40760002 *@EJECT; 40850002 */* */ 40900002 */* MODULE ADDRESSES */ 40950002 */* */ 41000002 * 41050002 * 41100002 * 2 DCMIORTN PTR(31), /* APPROIATE I/O ROUTINE */ 41150002 * 41400002 * 41450002 * 2 DCMNPRZ PTR(31), /* PROCESSOR 0 LOAD ONE */ 41550002 * 2 DCMNPROC PTR(31), /* PROCESSOR ROUTINE LOAD 41750002 * ONE */ 41800002 * 2 DCMNDSP1 PTR(31), /* DISPLAY ROUTINE 1 */ 42050002 * 2 DCMNDSP2 PTR(31), /* DISPLAY ROUTINE 2 */ 42150002 * 2 DCMNDSP3 PTR(31), /* DISPLAY ROUTINE 3 */ 42250002 * 2 DCMNCMD1 PTR(31), /* COMMAND ROUTINE 1 */ 42350002 * 2 DCMNDEL1 PTR(31), /* DELETE ROUTINE 1 */ 42550002 * 2 DCMNDEL2 PTR(31), /* DELETE ROUTINE 2 */ 42650002 * 2 DCMNDEL3 PTR(31), /* DELETE ROUTINE 3 */ 42750002 * 2 DCMNDEL4 PTR(31), /* DELETE ROUTINE 4 */ 42850002 * 2 DCMNOPT1 PTR(31), /* OPTIONS ROUTINE 1 */ 42950002 * 2 DCMNPFK1 PTR(31), /* PFK ROUTINE 1 */ 43050002 * 2 DCMNPFK2 PTR(31), /* PFK ROUTINE 2 */ 43150002 * 2 DCMNERRO PTR(31), /* ASYNCHRONOUS ERROR 43250002 * ROUTINE */ 43300002 * 2 DCMNMSG1 PTR(31), /* MESSAGE ROUTINE 1 */ 43400002 * 2 DCMNMSG2 PTR(31), /* MESSAGE ROUTINE 2 */ 43500002 * 2 DCMNMSG3 PTR(31), /* MESSAGE ROUTINE 3 */ 43550002 * 2 DCMNLPCR PTR(31), /* LIGHT PEN/CURSOR SERVICE 43600002 * ROUTINE */ 43650002 * 2 DCMNOPCL PTR(31), /* OPEN/CLOSE ROUTINE */ 43750002 * 2 DCMNCLN PTR(31), /* CLEANUP MODULE */ 43850002 * 2 DCMNROLL PTR(31), /* ROLL MODE ROUTINE */ 43950002 * 2 DCMNTIMR PTR(31), /* TIMER INTERPRETER 44050002 * ROUTINE */ 44100002 * 2 DCMNINT1 PTR(31), /* INTERFACE 1 ROUTINE */ 44200002 * 2 DCMNINT2 PTR(31), /* INTERFACE 2 ROUTINE */ 44300002 * 2 DCMNINT3 PTR(31), /* INTERFACE 3 ROUTINE */ 44400002 * 2 DCMNINT4 PTR(31), /* INTERFACE 4 ROUTINE */ 44500002 * 2 DCMNINT5 PTR(31), /* INTERFACE 5 ROUTINE */ 44600002 * 2 DCMNINT6 PTR(31), /* INTERFACE 6 ROUTINE */ 44700002 * 2 DCMNINT7 PTR(31), /* INTERFACE 7 ROUTINE */ 44800002 * /* AREA FOR DIDOCS TRACE */ 44802002 *%DCL DCMTRLEN CHAR; /* TRACE MOVE LENGTH */ 44810002 *%DCMTRLEN='30'; /* 2 LESS THAN WHOLE AREA */ 44820002 * 2 DCMTRACE CHAR(DCMTRLEN), /* TO-AREA FOR TRACE MOVE */ 44850002 * 3 * CHAR(2), /* OLDEST TRACE ENTRY */ 44900002 * 3 DCMTRAC2 CHAR(DCMTRLEN), /* FROM-AREA FOR TRACE MOVE */ 44910002 * 2 DCMTREN1 CHAR(1), /* 1ST BYTE OF NEW ENTRY */ 44950002 * 2 DCMTREN2 CHAR(1); /* 2ND BYTE OF NEW ENTRY */ 45000002 * 45050002 * 45100002 * 45150002 * 45200002 *@EJECT; 45300002 */* FIRST BYTE OF SCT ENTRIES */ 45350002 *DECLARE 45400002 * 1 DCMSCTA CHAR(2) BASED(DCMSCTB), 45450002 * 2 DCMMSGWR BIT(1), /* WTOR MESSAGE DISPLAYED IN LINE */ 45500002 * 2 DCMMSGIN BIT(1), /* MESSAGE DISPLAYED IN LINE */ 45550002 * 2 DCMMSGCN BIT(1), /* MESSAGE CONTINUED ON NEXT LINE */ 45600002 * 2 DCMMSGJK BIT(1), /* TO WRITE O-O-L DISPLAY FROM */ 45650002 */* MAY CONTAIN JUNK (SDS INTFCE 2)*/ 45700002 * 2 DCMMSGAD BIT(1), /* MESSAGE CAN BE AUTO DELETED */ 45750002 * 2 DCMMSGRD BIT(1), /* REQUEST HAS SPEC. MSG BE REMV. */ 45800002 * 2 DCMMSGIF BIT(1), /* INFORMATIONAL MESSAGE IN LINE */ 45850002 * 2 DCMMSGST BIT(1), /* END OF TABLE INDICATOR */ 45900002 */* */ 45950002 */* SECOND BYTE OF SCT ENTRIES */ 46000002 * 2 DCMMSGAC BIT(1), /* ACTION MESSAGE */ 46050002 * 2 DCMMSGC7 BIT(1), /* DESCRIPTOR CODE 7 MESSAGE */ 46100002 * 2 DCMMSGDM BIT(1), /* MESSAGE HAS BEEN DOMMED */ 46150002 * 2 DCMMSGAR BIT(1), /* MESSAGE IS AN ACCEPTED REPLY */ 46200002 * 2 DCMMSGIR BIT(1), /* INTERVENTION REQUIRED MESSAGE */ 46250002 * 2 DCMMSGCT BIT(1), /* CONTINUATION LINE */ 46300002 * 2 DCMMSGPP BIT(1), /* ISSUED BY PROBLEM PROGRAM */ 46350002 * 2 DCMMSGCL BIT(1); /* CONTROL LINE OF I-L MLWTO */ 46400002 */* */ 46450002 */* FIRST BYTE OF SSCT ENTRIES */ 46500002 *DECLARE 46550002 * 1 DCMSCTC CHAR(1) BASED(DCMSCTD), 46600002 * 2 DCMSECCL BIT(1), /* CONTROL LINE OF O-O-L DISPLAY */ 46650002 * 2 DCMSECLL BIT(1), /* LABEL LINE OF O-O-L DISPLAY */ 46700002 * 2 DCMSECDL BIT(1), /* DATA LINE OF O-O-L DISPLAY */ 46750002 * 2 DCMSECBL BIT(1), /* THIS LINE IS BLANKED */ 46800002 * 2 DCMSECXX BIT(1), /* UNUSED */ 46850002 * 2 DCMSECYY BIT(1), /* UNUSED */ 46900002 * 2 DCMSECDD BIT(1), /* LINE RESERVED FOR DYNAMIC DISP.*/ 46950002 * 2 DCMSECST BIT(1); /* END OF TABLE INDICATOR */ 47000002 *DECLARE DCMEND (*) CHAR(1) BASED 47050002 * (ADDR(DCMSTRT )+LENGTH(DCMSTRT )); 47100002 * /* END OF DCM */ 47150002