MACRO 00050000 &NAME PUTLINE &PARM=,&UPT=,&ECT=,&ECB=,&OUTPUT=,&TERMPUT=,&ENTRY=, *00100000 &MF= 00150000 .********************************************************************** 00200000 .* * 00250000 .* * 00300000 .* * 00350000 .* * 00400000 .*STATUS: * 00450000 .* CHANGE LEVEL 000. * 00500000 .* * 00550000 .*FUNCTION: * 00600000 .* THE PUTLINE MACRO EXAMINES PARAMETERS SPECIFIED IN THE PUTLINE * 00650000 .* MACRO INSTRUCTION AND BUILDS A PARAMETER BLOCK TO BE USED BY THE * 00700000 .* PUTLINE SERVICE ROUTINE (REFER TO SECTION 3.48.10.1 FOR THE * 00750000 .* PARAMETER BLOCK FORMAT). * 00800000 .* IN THE LIST FORM, THE PUTLINE MACRO GENERATES THE PUTLINE * 00850000 .* PARAMETER BLOCK FORMAT CONSISTING OF ONE WORD OF CONTROL * 00900000 .* (CONTROL AND TOUTPUT OPTIONS), THE ADDRESS OF THE OUTPUT LINE, * 00950000 .* AND THE ADDRESS OF THE FORMATTED LINE. * 01000000 .* IN THE EXECUTE FORM OF THE PUTLINE MACRO, CODE IS GENERATED * 01050000 .* WHICH WILL RESET THE PARAMETER BLOCK IF REQUIRED AND LOAD THE * 01100000 .* ADDRESSES OF THE UPT, ECT, ECB, AND PARAMETER BLOCK INTO THE * 01150000 .* SERVICE ROUTINE PARAMETER LIST IF SPECIFIED. A LINK MACRO WILL * 01200000 .* BE GENERATED TO INVOKE THE PUTLINE SERVICE ROUTINE UNLESS AN * 01250000 .* ENTRY POINT IS SPECIFIED. IF AN ENTRY POINT IS SPECIFIED, THE * 01300000 .* CODE TO ENABLE A BRANCH AND LINK WILL BE GENERATED. * 01350000 .* * 01400000 .*ENTRY POINTS: * 01450000 .* PUTLINE MACRO CALL - ONLY ENTRY POINT. * 01500000 .* * 01550000 .*INPUT: * 01600000 .* PARAMETERS SPECIFIED IN THE PUTLINE MACRO FORMAT (FOR FORMAT * 01650000 .* SPECIFICATIONS REFER TO SECTION 3.48.10.1). * 01700000 .* * 01750000 .*OUTPUT: * 01800000 .* IN THE L-FORM, A 3-WORD PARAMETER BLOCK (REFER TO SECTION * 01850000 .* 3.48.10.1) CONSISTING OF CONTROL WHICH IS SET BY THE MACRO, THE * 01900000 .* ADDRESS OF THE OUTPUT LINE, AND THE ADDRESS OF THE FORMATTED * 01950000 .* LINE. * 02000000 .* IN THE E-FORM, CODE WHICH RESETS CONTROL IN THE PARAMETER BLOCK, * 02050000 .* PLACES THE ADDRESSES OF THE SERVICE ROUTINE PARAMETER BLOCK, * 02100000 .* UPT, ECT, AND ECB IN THE SERVICE ROUTINE PARAMETER LIST AS * 02150000 .* SPECIFIED, AND INVOKES THE SERVICE ROUTINE. * 02200000 .* * 02250000 .*EXTERNAL REFERENCES: * 02300000 .* LINK MACRO. * 02350000 .* * 02400000 .*EXITS,NORMAL: * 02450000 .* IN THE L-FORM, RETURN TO CALLER. * 02500000 .* IN THE E-FORM, CODE IS GENERATED TO INVOKE THE PUTLINE SERVICE * 02550000 .* ROUTINE ACCORDING TO THE STANDARD LINKAGE CONVENTIONS (REFER TO * 02600000 .* SECTION 3.48.1.5). * 02650000 .* * 02700000 .*EXITS,ERROR: * 02750000 .* INVALID INPUT. * 02800000 .* * 02850000 .*TABLES/WORK AREAS: * 02900000 .* SERVICE ROUTINE PARAMETER LIST - A TABLE OF POINTERS TO THE UPT, * 02950000 .* ECT, ECB, AND SERVICE ROUTINE PARAMETER BLOCK. * 03000000 .* SERVICE ROUTINE PARAMETER BLOCK - A CONTROL TABLE SET ACCORDING * 03050000 .* TO THE SPECIFIED MACRO PARAMETERS, THE ADDRESS OF THE OUTPUT * 03100000 .* LINE, AND THE ADDRESS OF THE FORMATTED LINE. * 03150000 .* * 03200000 .*ATTRIBUTES: * 03250000 .* SERIALLY REUSABLE. * 03300000 .* * 03350000 .*NOTES: * 03400000 .* DATE OF CURRENT RELEASE : * 03450000 .* 01/22/70 * 03500000 .* PREVIOUS RELEASE DATES : * 03550000 .* 1/12/70 * 03600000 .* 12/12/69 * 03650000 .* 10/22/69 * 03700000 .* * 03750000 .* * 03800000 .* * 03850000 .* * 03900000 .* * 03950000 .********************************************************************** 04000000 LCLA &A 04050000 LCLB &B1,&B2,&B3,&B4,&B5,&B6,&B7,&B8,&B9 04100000 LCLB &BS1,&BS2,&BS3,&BS4 04150000 LCLC &C 04200000 .E1 AIF (T'&MF EQ 'O').ERR1 NO MF PARAMETER 04250000 AIF (N'&SYSLIST EQ 0).MF1 POSITIONAL PARAMETERS INVALID 04300000 AIF (T'&SYSLIST(1) NE 'O' OR N'&SYSLIST NE 1).ERR4 04350000 .MF1 AIF ('&MF' EQ 'L').L1 LIST FORM 04400000 .********************************************************************** 04450000 .* * 04500000 .* EXECUTE FORM * 04550000 .* * 04600000 .********************************************************************** 04650000 AIF ('&MF(1)' NE 'E').ERR1 04700000 AIF (T'&NAME EQ 'O').E2 04750000 &NAME DS 0H 04800000 .E2 AIF (T'&MF(2) EQ 'O').ERR1 04850000 AIF ('&MF(2)' EQ '(1)').E3 PARM LIST ADDR IN REG 1 04900000 AIF ('&MF(2)'(1,1) EQ '(').WARN3 04950000 .E2A LA 1,&MF(2) LOAD PARM LIST ADDR 05000000 .E3 AIF (T'&UPT EQ 'O').E4 UPT OMITTED 05050000 AIF ('&UPT'(1,1) EQ '(').E3A 05100000 LA 14,&UPT LOAD UPT ADDR 05150000 ST 14,0(0,1) STORE UPT ADDR IN PARM LIST 05200000 AGO .E4 05250000 .E3A ANOP 05300000 &A SETA K'&UPT-2 05350000 &C SETC '&UPT'(2,&A) 05400000 ST &C,0(0,1) STORE UPT ADDR IN PARM LIST 05450000 .E4 AIF (T'&ECT EQ 'O').E5 ECT OMITTED 05500000 AIF ('&ECT'(1,1) EQ '(').E4A 05550000 LA 14,&ECT LOAD ECT ADDR 05600000 ST 14,4(0,1) STORE ECT ADDR IN PARM LIST 05650000 AGO .E5 05700000 .E4A ANOP 05750000 &A SETA K'&ECT-2 05800000 &C SETC '&ECT'(2,&A) 05850000 ST &C,4(0,1) STORE ECT ADDR IN PARM LIST 05900000 .E5 AIF (T'&ECB EQ 'O').E6 ECB OMITTED 05950000 AIF ('&ECB'(1,1) EQ '(').E5A 06000000 LA 14,&ECB LOAD ECB ADDR 06050000 ST 14,8(0,1) STORE ECB ADDR IN PARM LIST 06100000 AGO .E6 06150000 .E5A ANOP 06200000 &A SETA K'&ECB-2 06250000 &C SETC '&ECB'(2,&A) 06300000 ST &C,8(0,1) STORE ECB ADDR IN PARM LIST 06350000 .E6 AIF (T'&PARM EQ 'O').E6B PARM OMITTED 06400000 AIF ('&PARM'(1,1) EQ '(').E6A 06450000 LA 14,&PARM LOAD PARM ADDR 06500000 ST 14,12(0,1) STORE PARM ADDR IN PARM LIST 06550000 AGO .E7 06600000 .E6A ANOP 06650000 &A SETA K'&PARM-2 06700000 &C SETC '&PARM'(2,&A) 06750000 ST &C,12(0,1) STORE PARM ADDR IN PARM LIST 06800000 AIF (N'&OUTPUT EQ 0 AND N'&TERMPUT EQ 0).E11 06850000 LR 14,&C LOAD PARM ADDR 06900000 AGO .E7 06950000 .E6B AIF (N'&OUTPUT EQ 0 AND N'&TERMPUT EQ 0).E11 07000000 L 14,12(0,1) LOAD PARM BLOCK ADDR 07050000 .E7 AIF (N'&OUTPUT EQ 0 AND N'&TERMPUT EQ 0).E11 07100000 &A SETA N'&OUTPUT 07150000 AIF (&A EQ 0).E9 OUTPUT OMITTED 07200000 AIF ('&OUTPUT' EQ '()').E7L ALL OPERANDS OMITTED 07250000 AIF (&A GT 4).ERR6 TOO MANY OPERANDS 07300000 AIF (&A EQ 1).E7L OUTPUT LINE ADDR ONLY 07350000 .E7A AIF (T'&OUTPUT(&A) EQ 'O').E7K OMITTED OPERAND 07400000 AIF ('&OUTPUT(&A)' NE 'DATA').E7B 07450000 &B1 SETB 1 07500000 AGO .E7C 07550000 .E7B AIF ('&OUTPUT(&A)' NE 'INFOR').E7D 07600000 &B5 SETB 1 07650000 .E7C AIF (&BS1).ERR6 MUTUALLY EXCLUSIVE OPERANDS 07700000 &BS1 SETB 1 07750000 AGO .E7K 07800000 .E7D AIF ('&OUTPUT(&A)' NE 'MULTLIN').E7E 07850000 AIF ('&OUTPUT(2)' NE 'DATA' AND '&OUTPUT(3)' NE 'DATA' AND *07900000 '&OUTPUT(4)' NE 'DATA').ERR2 MULTLIN MUST BE DATA 07950000 &B3 SETB 1 08000000 AGO .E7G 08050000 .E7E AIF ('&OUTPUT(&A)' NE 'MULTLVL').E7F 08100000 AIF ('&OUTPUT(2)' EQ 'DATA' OR '&OUTPUT(3)' EQ 'DATA' OR *08150000 '&OUTPUT(4)' EQ 'DATA').ERR5 MULTLVL MUST BE INFOR 08200000 &B4 SETB 1 08250000 AGO .E7G 08300000 .E7F AIF ('&OUTPUT(&A)' NE 'SINGLE').E7H 08350000 &B2 SETB 1 08400000 .E7G AIF (&BS2).ERR6 MUTUALLY EXCLUSIVE OPERANDS 08450000 &BS2 SETB 1 08500000 AGO .E7K 08550000 .E7H AIF ('&OUTPUT(&A)' NE 'FORMAT').E7I 08600000 &B9 SETB 1 08650000 AGO .E7J 08700000 .E7I AIF ('&OUTPUT(&A)' NE 'TERM').ERR6 08750000 &B9 SETB 0 08800000 .E7J AIF (&BS3).ERR6 MUTUALLY EXCLUSIVE OPERANDS 08850000 &BS3 SETB 1 08900000 .E7K ANOP 08950000 &A SETA &A-1 09000000 AIF (&A NE 1).E7A 09050000 AIF (&B9 AND (&B1 OR &B3 OR &B4)).ERR3 MUTUALLY EXCLUSIVE 09100000 .E7L AIF (&BS1).E7M SET DEFAULT VALUES 09150000 &B5 SETB 1 09200000 .E7M AIF (&BS2).E7N SET DEFAULT VALUES 09250000 &B2 SETB 1 09300000 .E7N AIF (&BS3).E7O SET DEFAULT VALUES 09350000 &B9 SETB 0 09400000 .E7O MVI 0(14),B'00&B1.&B2.&B3.&B4.&B5.0' SET CONTROL FIELD 09450000 MVI 1(14),B'00&B9.00000' SET CONTROL FIELD 09500000 .E8 AIF (T'&OUTPUT(1) EQ 'O' OR '&OUTPUT' EQ '()').WARN1 09550000 AIF ('&OUTPUT(1)'(1,1) EQ '(').E8A 09600000 LA 0,&OUTPUT(1) LOAD ADDR OF OUTPUT 09650000 ST 0,4(0,14) STORE ADDR OF OUTPUT 09700000 AGO .E8B 09750000 .E8A ANOP 09800000 &A SETA K'&OUTPUT(1)-2 09850000 &C SETC '&OUTPUT(1)'(2,&A) 09900000 ST &C,4(0,14) STORE ADDR OF OUTPUT 09950000 .E8B ANOP 10000000 &B3 SETB 0 10050000 &B4 SETB 0 10100000 &B5 SETB 0 10150000 &B6 SETB 0 10200000 &B7 SETB 0 10250000 &BS1 SETB 0 10300000 &BS2 SETB 0 10350000 &BS3 SETB 0 10400000 .E9 ANOP 10450000 &A SETA N'&TERMPUT 10500000 AIF (&A EQ 0).E11 NO TREMPUT OPERANDS 10550000 AIF (&A GT 4).ERR7 TOO MANY OPERANDS 10600000 .E9A AIF ('&TERMPUT' EQ '()').E9O ALL OPERANDS OMITTED 10650000 AIF (T'&TERMPUT(&A) EQ 'O').E9N OMITTED OPERAND 10700000 AIF ('&TERMPUT(&A)' NE 'BREAKIN').E9B 10750000 &B5 SETB 1 10800000 AGO .E9C 10850000 .E9B AIF ('&TERMPUT(&A)' NE 'NOBREAK').E9D 10900000 .E9C AIF (&BS1).ERR7 MUTUALLY EXCLUSIVE OPERANDS 10950000 &BS1 SETB 1 11000000 AGO .E9N 11050000 .E9D AIF ('&TERMPUT(&A)' NE 'HOLD').E9E 11100000 &B4 SETB 1 11150000 AGO .E9F 11200000 .E9E AIF ('&TERMPUT(&A)' NE 'NOHOLD').E9G 11250000 .E9F AIF (&BS2).ERR7 MUTUALLY EXCLUSIVE OPERANDS 11300000 &BS2 SETB 1 11350000 AGO .E9N 11400000 .E9G AIF ('&TERMPUT(&A)' NE 'NOWAIT').E9H 11450000 &B3 SETB 1 11500000 AGO .E9I 11550000 .E9H AIF ('&TERMPUT(&A)' NE 'WAIT').E9J 11600000 .E9I AIF (&BS3).ERR7 MUTUALLY EXCLUSIVE OPERANDS 11650000 &BS3 SETB 1 11700000 AGO .E9N 11750000 .E9J AIF ('&TERMPUT(&A)' NE 'CONTROL').E9K 11800000 &B6 SETB 1 11850000 AGO .E9M 11900000 .E9K AIF ('&TERMPUT(&A)' NE 'ASIS').E9L 11950000 &B7 SETB 1 12000000 AGO .E9M 12050000 .E9L AIF ('&TERMPUT(&A)' NE 'EDIT').ERR7 12100000 .E9M AIF (&BS4).ERR7 MUTUALLY EXCLUSIVE OPERANDS 12150000 &BS4 SETB 1 12200000 .E9N ANOP 12250000 &A SETA &A-1 12300000 AIF (&A NE 0).E9A 12350000 .E9O ANOP 12400000 MVI 2(14),B'000&B3.&B4.&B5.&B6.&B7' SET TOUTPUT FIELD 12450000 .E11 AIF (T'&ENTRY EQ 'O').E12 ENTRY POINT OMITTED 12500000 AIF ('&ENTRY' EQ '(15)').E11A 12550000 AIF ('&ENTRY'(1,1) EQ '(').WARN4 12600000 .E11A1 LA 15,&ENTRY LOAD EP ADDR 12650000 .E11A BALR 14,15 BRANCH TO SERVICE ROUTINE 12700000 MEXIT 12750000 .E12 L 15,16(0,0) LOAD CVT POINTER 12754002 TM 444(15),B'10000000' IS PUTLINE LOADED ? 12766002 BNO IKJ@&SYSNDX NO - BRANCH TO LINK 12770002 L 15,444(0,15) YES - BALR TO PUTLINE 12774002 BALR 14,15 12778002 B IKJ$&SYSNDX 12782002 IKJ@&SYSNDX LINK EP=IKJPUTL LINK TO PUTLINE 12786002 IKJ$&SYSNDX DS 0H 12790002 MEXIT 12850000 .********************************************************************** 12900000 .* * 12950000 .* LIST FORM * 13000000 .* * 13050000 .********************************************************************** 13100000 .L1 DS 0F 13150000 AIF (N'&OUTPUT EQ 0 AND N'&TERMPUT EQ 0).L2O 13200000 &A SETA N'&OUTPUT 13250000 AIF (&A EQ 0).L1P NO OUTPUT OPERANDS 13300000 AIF ('&OUTPUT' EQ '()').L1O ALL OPERANDS OMITTED 13350000 AIF (&A GT 4).ERR6 TOO MANY OPERANDS 13400000 AIF (&A EQ 1).L1O OUTPUT ADDR ONLY 13450000 .L1A AIF (T'&OUTPUT(&A) EQ 'O').L1K OMITTED OPERAND 13500000 AIF ('&OUTPUT(&A)' NE 'DATA').L1B 13550000 &B1 SETB 1 13600000 AGO .L1C 13650000 .L1B AIF ('&OUTPUT(&A)' NE 'INFOR').L1D 13700000 &B5 SETB 1 13750000 .L1C AIF (&BS1).ERR6 MUTUALLY EXCLUSIVE OPERANDS 13800000 &BS1 SETB 1 13850000 AGO .L1K 13900000 .L1D AIF ('&OUTPUT(&A)' NE 'MULTLIN').L1E 13950000 AIF ('&OUTPUT(2)' NE 'DATA' AND '&OUTPUT(3)' NE 'DATA' AND *14000000 '&OUTPUT(4)' NE 'DATA').ERR2 MULTLIN MUST BE DATA 14050000 &B3 SETB 1 14100000 AGO .L1G 14150000 .L1E AIF ('&OUTPUT(&A)' NE 'MULTLVL').L1F 14200000 AIF ('&OUTPUT(2)' EQ 'DATA' OR '&OUTPUT(3)' EQ 'DATA' OR *14250000 '&OUTPUT(4)' EQ 'DATA').ERR5 MULTLVL MUST BE INFOR 14300000 &B4 SETB 1 14350000 AGO .L1G 14400000 .L1F AIF ('&OUTPUT(&A)' NE 'SINGLE').L1H 14450000 &B2 SETB 1 14500000 .L1G AIF (&BS2).ERR6 MUTUALLY EXCLUSIVE OPERANDS 14550000 &BS2 SETB 1 14600000 AGO .L1K 14650000 .L1H AIF ('&OUTPUT(&A)' NE 'FORMAT').L1I 14700000 &B9 SETB 1 14750000 AGO .L1J 14800000 .L1I AIF ('&OUTPUT(&A)' NE 'TERM').ERR6 14850000 &B9 SETB 0 14900000 .L1J AIF (&BS3).ERR6 MUTUALLY EXCLUSIVE OPERANDS 14950000 &BS3 SETB 1 15000000 .L1K ANOP 15050000 &A SETA &A-1 15100000 AIF (&A NE 1).L1A 15150000 AIF (&B9 AND (&B1 OR &B3 OR &B4)).ERR3 MUTUALLY EXCLUSIVE 15200000 .L1L AIF (&BS1).L1M SET DEFAULT VALUES 15250000 &B5 SETB 1 15300000 .L1M AIF (&BS2).L1N SET DEFAULT VALUES 15350000 &B2 SETB 1 15400000 .L1N AIF (&BS3).L1N1 SET DEFAULT VALUES 15450000 &B9 SETB 0 15500000 .L1N1 ANOP 15550000 &NAME DC B'00&B1.&B2.&B3.&B4.&B5.0' SET CONTROL FIELD 15600000 DC B'00&B9.00000' SET CONTROL FIELD 15650000 AGO .L2 15700000 .L1O ANOP 15750000 &NAME DC X'1240' SET CONTROL FIELD 15800000 AGO .L2AA 15850000 .L1P ANOP 15900000 &NAME DC X'0000' SET CONTROL FIELD 15950000 AGO .L2AA 16000000 .L2 ANOP 16050000 &B4 SETB 0 16100000 &B5 SETB 0 16150000 &B8 SETB 0 16200000 &BS1 SETB 0 16250000 &BS2 SETB 0 16300000 &BS3 SETB 0 16350000 .L2AA ANOP 16400000 &A SETA N'&TERMPUT 16450000 AIF (&A EQ 0).L2P NO TERMPUT OPERANDS 16500000 AIF ('&TERMPUT' EQ '()').L2NN ALL OPERANDS OMITTED 16550000 AIF (&A GT 4).ERR7 TOO MANY OPERANDS 16600000 .L2A AIF (T'&TERMPUT(&A) EQ 'O').L2N OMITTED OPERAND 16650000 AIF ('&TERMPUT(&A)' NE 'BREAKIN').L2B 16700000 &B6 SETB 1 16750000 AGO .L2C 16800000 .L2B AIF ('&TERMPUT(&A)' NE 'NOBREAK').L2D 16850000 .L2C AIF (&BS1).ERR7 MUTUALLY EXCLUSIVE OPERANDS 16900000 &BS1 SETB 1 16950000 AGO .L2N 17000000 .L2D AIF ('&TERMPUT(&A)' NE 'HOLD').L2E 17050000 &B5 SETB 1 17100000 AGO .L2F 17150000 .L2E AIF ('&TERMPUT(&A)' NE 'NOHOLD').L2G 17200000 .L2F AIF (&BS2).ERR7 MUTUALLY EXCLUSIVE OPERANDS 17250000 &BS2 SETB 1 17300000 AGO .L2N 17350000 .L2G AIF ('&TERMPUT(&A)' NE 'NOWAIT').L2H 17400000 &B4 SETB 1 17450000 AGO .L2I 17500000 .L2H AIF ('&TERMPUT(&A)' NE 'WAIT').L2J 17550000 .L2I AIF (&BS3).ERR7 MUTUALLY EXCLUSIVE OPERANDS 17600000 &BS3 SETB 1 17650000 AGO .L2N 17700000 .L2J AIF ('&TERMPUT(&A)' NE 'CONTROL').L2K 17750000 &B7 SETB 1 17800000 AGO .L2M 17850000 .L2K AIF ('&TERMPUT(&A)' NE 'ASIS').L2L 17900000 &B8 SETB 1 17950000 AGO .L2M 18000000 .L2L AIF ('&TERMPUT(&A)' NE 'EDIT').ERR7 18050000 .L2M AIF (&BS4).ERR7 MUTUALLY EXCLUSIVE OPERANDS 18100000 &BS4 SETB 1 18150000 .L2N ANOP 18200000 &A SETA &A-1 18250000 AIF (&A NE 0).L2A 18300000 .L2NN ANOP 18350000 DC B'000&B4.&B5.&B6.&B7.&B8' SET TOUTPUT OPTIONS FIELD 18400000 DC X'00' SET TOUTPUT OPTIONS FIELD 18450000 AGO .L3 18500000 .L2O ANOP 18550000 &NAME DC X'00000000' SET CONTROL AND TOUTPUT OPTIONS FIELDS 18600000 DC A(0) ADDR OF OUTPUT LINE 18650000 DC A(0) ADDRESS OF FORMATTED LINE 18700000 MEXIT 18750000 .L2P DC X'0000' SET TOUTPUT OPTIONS FIELD 18800000 .L3 AIF (N'&OUTPUT EQ 0).L4 18850000 AIF (T'&OUTPUT(1) EQ 'O' OR '&OUTPUT' EQ '()').WARN2 18900000 DC A(&OUTPUT(1)) ADDR OF OUTPUT LINE 18950000 DC A(0) ADDRESS OF FORMATTED LINE 19000000 MEXIT 19050000 .L4 DC A(0) ADDR OF OUTPUT LINE 19100000 DC A(0) ADDRESS OF FORMATTED LINE 19150000 .L5 MEXIT 19200000 .WARN1 MNOTE 0,'OUTPUT ADDR IS ASSUMED TO BE IN PARM BLOCK' 19250000 AGO .E8B 19300000 .WARN2 MNOTE 0,'FIRST OUTPUT OPERAND HAS BEEN OMITTED' 19350000 AGO .L4 19400000 .WARN3 MNOTE 0,'PARAMETER LIST ADDR IN MF PARAMETER IS NOT IN REG 1' 19450000 AGO .E2A 19500000 .WARN4 MNOTE 0,'ENTRY POINT ADDR IN ENTRY PARAMETER IS NOT IN REG 15' 19550000 AGO .E11A1 19600000 .ERR1 MNOTE 8,'INVALID OR OMITTED MF PARAMETER' 19650000 MEXIT 19700000 .ERR2 MNOTE 8,'MULTLIN MESSAGES MUST BE DATA MESSAGES' 19750000 MEXIT 19800000 .ERR3 MNOTE 8,'FORMAT MESSAGES MUST BE SINGLE LINE INFOR MESSAGES' 19850000 MEXIT 19900000 .ERR4 MNOTE 8,'POSITIONAL PARAMETERS ARE INVALID' 19950000 MEXIT 20000000 .ERR5 MNOTE 8,'MULTLVL MESSAGES MUST BE INFOR MESSAGES' 20050000 MEXIT 20100000 .ERR6 MNOTE 8,'INVALID OPERAND IN OUTPUT PARAMETER SUBLIST' 20150000 MEXIT 20200000 .ERR7 MNOTE 8,'INVALID OPERAND IN TERMPUT PARAMETER SUBLIST' 20250000 MEXIT 20300000 MEND 20350000