* 01000002 * %GOTO CIBL1; /* BILINGUAL MAPPING 01050002 MACRO 02000000 &CIBNAME IEZCIB , */ 03000002 *%CIBL1 : ; 03050002 * 04000000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 04050002 * /* */ 04100002 * /* COMMAND INPUT BUFFER MAPPING MACRO */ 04150002 * /* */ 04200002 * /* OS/VS2 RELEASE 2, OS/VS1 RELEASE 3, 09/21/72, LEVEL=1 */ 04250002 * /* */ 04300002 * /* METHOD OF ACCESS */ 04350002 * /* BAL - A DSECT CARD SHOULD PRECEDE MACRO CALL. USING ON */ 04400002 * /* CIBNEXT GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 04450002 * /* PL/S - DCL CIBPTR PTR */ 04500002 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 04550002 *%GOTO CIBL2; /* 04600002 * 10000000 &CIBNAME DS 0D - CIBPTR 11000000 * 12000000 CIBNEXT DS A - ADDRESS OF NEXT CIB IN QUEUE (ZERO FOR LAST) 13000000 CIBVERB DS C - COMMAND VERB CODE 14000000 CIBSTART EQU X'04' - COMMAND CODE FOR START 15000000 CIBMODFY EQU X'44' - COMMAND CODE FOR MODIFY 16000000 CIBSTOP EQU X'40' - COMMAND CODE FOR STOP 17000000 CIBMOUNT EQU X'0C' - COMMAND CODE FOR MOUNT 18000000 CIBLEN DS FL1 - LENGTH IN DOUBLEWORDS OF CIB INCLUDING CIBDATA 19000000 DS XL4 - RESERVED FOR CSCB COMPATIBILITY 20000000 CIBASID DS 0H - ADDRESS SPACE ID (OS/VS2) MDC001 20050002 CIBTJID DS CL2 - TSO TERMINAL JOB IDENTIFIER (OS/VS1) MDC001 21000002 CIBCONID DS C - IDENTIFIER OF CONSOLE ISSUING COMMAND 22000000 DS X - RESERVED 23000000 CIBDATLN DS H - LENGTH IN BYTES OF DATA IN CIBDATA 24000000 CIBDATA DS CL8 - DATA FROM COMMAND OPERAND 25000000 * (LENGTH OF CIBDATA IS A MULTIPLE OF EIGHT BYTES 26000000 * DEPENDING ON THE VALUE CONTAINED IN CIBLEN) 27000000 * START - FOURTH POSITIONAL PARAMETER (PARMVALUE) 28000000 * MODIFY - RESIDUAL OPERAND IMAGE FOLLOWING COMMA 29000000 * TERMINATING FIRST POSITIONAL PARAMETER 30000000 * STOP - NONE (CIB GENERATED ONLY TO GIVE CONSOLE ID) 31000000 * 32000000 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 33000000 * 34000000 MEND , */ 35000000 * %CIBL2 : ; 36000002 * 41000000 * DECLARE 44000000 * 1 CIBNAME BASED(CIBPTR) BDY(WORD), 45000002 * 46000000 * 2 CIBNEXT PTR(31), /* ADDRESS OF NEXT CIB IN QUEUE 47000000 * (ZERO FOR LAST) */ 48000000 * 2 CIBVERB CHAR(1), /* COMMAND VERB CODE */ 49000000 * %DCL CIBSTART CHAR; 50000000 * %CIBSTART='''04''X'; /* COMMAND CODE FOR START */ 51000000 * %DCL CIBMODFY CHAR; 52000000 * %CIBMODFY='''44''X'; /* COMMAND CODE FOR MODIFY */ 53000000 * %DCL CIBSTOP CHAR; 54000000 * %CIBSTOP ='''40''X'; /* COMMAND CODE FOR STOP */ 55000000 * %DCL CIBMOUNT CHAR; 56000000 * %CIBMOUNT='''0C''X'; /* COMMAND CODE FOR MOUNT */ 57000000 * 2 CIBLEN PTR(8), /* LENGTH IN DOUBLEWORDS OF CIB 58000000 * INCLUDING CIBDATA */ 59000000 * 2 * CHAR(4) BDY(WORD,3), /* RESERVED FOR CSCB 60000002 * COMPATIBILITY */ 61000000 * 2 CIBASID FIXED(15), /* ADDRESS SPACE ID (OS/VS2) 61050002 * MDC001*/ 61100002 * 3 CIBTJID CHAR(2), /* TSO TERMINAL JOB IDENTIFIER 62000002 * (OS/VS1) MDC001*/ 62050002 * 2 CIBCONID CHAR(1), /* IDENTIFIER OF CONSOLE 63000000 * ISSUING COMMAND */ 64000000 * 2 * CHAR(1), /* RESERVED */ 65000000 * 2 CIBDATLN FIXED(15), /* LENGTH IN BYTES OF DATA IN 66000000 * CIBDATA */ 67000000 * 2 CIBDATA CHAR(8) BDY(WORD); /* DATA FROM COMMAND OPERAND */ 68000002 * 69000002 * /* (LENGTH OF CIBDATA IS A MULTIPLE OF EIGHT BYTES */ 70000000 * /* DEPENDING ON THE VALUE CONTAINED IN CIBLEN) */ 71000000 * /* START - FOURTH POSITIONAL PARAMETER (PARMVALUE) */ 72000000 * /* MODIFY - RESIDUAL OPERAND IMAGE FOLLOWING COMMA */ 73000000 * /* TERMINATING FIRST POSITIONAL PARAMETER */ 74000000 * /* STOP - NONE (CIB GENERATED ONLY TO GIVE CONSOLE ID) */ 75000000 * 76000000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 77000000 * 78000000