|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 20320 (0x4f60)
Types: s3xseg
Names: »S$E038«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$E038«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* $E038 - GENERATE TRANSIENT IDENTIFICATION EQUATES TO BE PASSED * 00040000
.* TO THE TRANSIENT HANDLER ($CC4PI). * 00050000
.* * 00060000
.* INPUT OPERANDS - * 00070000
.* CON - 1 GENERATE CONSTANTS * 00080000
.* 0 DO NOT GENERATE CONSTANTS * 00090000
.* MXL - ############## * 00100000
.* A STRING OF 14 BITS (0/1) WHICH INDICATES* 00110000
.* WHICH MLTA TRANSLATE TRANSIENTS ARE RE- * 00120000
.* QUIRED. FOR EXAMPLE, BIT 1 SAYS $CC4J1 * 00130000
.* IS NEEDED, BIT 2 SAYS $CC4J2, ETC. * 00140000
.* * 00150000
.* CHANGE ACTIVITY - $E038 * 00151000
.* RELEASE 04 * 00152000
.* @01 APAR/S313503 - U- PC WITH BSCC AND NO DFF @01 00153000
.* @02 INCR/0S4101 - BSCC POINT-TO-POINT @02 00154000
.* @03 APAR/S314119 -GEN ERROR WHEN SIOC BUT NO DME @03 00155000
.********************************************************************** 00160000
$E038 &CON-0,&MXL- 00170000
GBLB &DFF 00180000
GBLB &MDFF DFF MOVEOUT SUPPORTED @01 00185000
GBLB &NAS BSCA ASCII SUPPORT 00190000
GBLB &BSCA 00200000
GBLB &N41 3741 AS A TERMINAL 00205000
GBLB &MLTA 00210000
GBLB &MIN 00220000
GBLB &DME 00230000
GBLB &RPR 00232000
GBLA &C#NL NUMBER OF BSCC LINES 00235000
GBLB &CSIO 0=SIOC SUPPORTED/ 1=NOT 00236000
GBLB &NAPOR 0=BSCA PORTS SUPPORTED @02 00236200
GBLB &NCPOR 0=BSCC PORTS SUPPORTED @02 00236400
GBLB &NTTSK 0=TASK-TASK PORTS SUPPORTED @02 00236600
GBLB &NPBY 0=BUSY PRINT / 1=NO SUPPORT 00237000
GBLC &# 00240000
LCLA &N RELATIVE ENTRY NUMBER 00250000
LCLA &LSIZE COUNT OF ENTRIES. 00260000
LCLB &C CONSTANTS SWITCH 00270000
TEXT 00280000
&LSIZE SETA 0 RESET COUNT 00290000
&# SETC ' ' 00300000
* BEGIN MACRO '$E038' 1/16/79 @01 00310000
&C SETB 1 NO CONSTANTS WANTED 00320000
AIF (&CON EQ '0').NCON SET TO NO CONSTANTS GENERATED 00330000
&C SETB 0 CONSTANTS WANTED 00340000
AIF (&MDFF NE '1').NMOV SKIP IF NO DFF MOVEOUT @01 00341000
ORG X'5800' ENSURE XLIST ABOVE LOG. 5800 @01 00342000
AGO .MOVD @01 00343000
.NMOV ANOP @01 00344000
AIF (&C#NL EQ '0').NORG SKIP IF NO BSCC @01 00345000
ORG X'5000' ENSURE XLIST ABOVE LOG. 5000 @01 00346000
.MOVD ANOP @01 00347000
ORG 00348000
.NORG ANOP @01 00349000
TA@PGM EQU * START OF PGM LIST 00350000
SPACE 1 00360000
.NCON ANOP 00370000
*------------FIXED PORTION OF TRANSIENT LIST--------------------------* 00380000
SPACE 2 00390000
CC4AB EQU 12 ACCEPT INPUT POST PRE-PROCESSOR 00400000
&N SETA 15 00410000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 00420000
AIF (&C).NO1 00430000
DC XL1'00' 00440000
DC CL2'AB' ACCEPT INPUT POST PRE-PROCESSOR 00450000
.NO1 ANOP 00460000
CC4A2 EQU &N ALLOCATION CONTROL 00470000
&N SETA &N+3 00480000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 00490000
AIF (&C).NO2 00500000
DC XL1'00' 00510000
DC CL2'A2' ALLOCATION CONTROL 00520000
.NO2 ANOP 00530000
CC4GA EQU &N GET ATTRIBUTES 00540000
&N SETA &N+3 00550000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 00560000
AIF (&C).NO3 00570000
DC XL1'00' 00580000
DC CL2'GA' GET ATTRIBUTES 00590000
.NO3 ANOP 00600000
CC4OP EQU &N USER FILE OPEN 00610000
&N SETA &N+3 00620000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 00630000
AIF (&C).NO10 00640000
DC XL1'00' 00650000
DC CL2'OP' USER FILE OPEN 00660000
.NO10 ANOP 00670000
CC4R1 EQU &N COMMAND PROCESSOR CONTROL 00680000
&N SETA &N+3 00690000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 00700000
AIF (&C).NO11 00710000
DC XL1'00' 00720000
AIF (&RPR EQ '1').YRPR1 IF RESREQ-YES, REPLACE WITH R4 00725000
DC CL2'R1' COMMAND PROCESSOR CONTROL 00730000
AGO .NO11 00732000
.YRPR1 ANOP 00734000
DC CL2'R4' RES REQ FIRST LEVEL TRANSIENT 00736000
.NO11 ANOP 00740000
CC4PR EQU &N COMMAND PROCESSOR RETURN 00750000
&N SETA &N+3 00760000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 00770000
AIF (&C).NO12 00780000
DC XL1'00' 00790000
AIF (&RPR EQ '1').YRPR2 IF RESREQ-YES, REPLACE WITH PC 00795000
DC CL2'PR' COMMAND PROCESSOR RETURN 00800000
AGO .NO12 00802000
.YRPR2 ANOP 00804000
DC CL2'PC' RES REQ FIRST LEVEL TRANSIENT 00806000
.NO12 ANOP 00810000
CC4TD EQU &N TERMINATION CONTROL ROUTINE 00820000
&N SETA &N+3 00830000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 00840000
AIF (&C).NO14 00850000
DC XL1'00' 00860000
DC CL2'TD' TERMINATION CONTROL ROUTINE 00870000
.NO14 ANOP 00880000
CC4WC EQU &N USER T-P SWITCHED LINE CONNECT 00890000
&N SETA &N+3 00900000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 00910000
AIF (&C).NO16 00920000
DC XL1'00' 00930000
DC CL2'WC' USER T-P SWITCHED LINE CONNECT 00940000
.NO16 ANOP 00950000
CC4WR EQU &N T-P TRANSLATION ERROR 00960000
&N SETA &N+3 00970000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 00980000
AIF (&C).NO17 00990000
DC XL1'00' 01000000
DC CL2'WR' T-P TRANSLATION ERROR 01010000
.NO17 ANOP 01020000
CC4MP EQU &N IGNORE PUT TO ERP T-P DEVICE 01030000
&N SETA &N+3 01040000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 01050000
AIF (&C).NOMP 01060000
DC XL1'00' 01070000
DC CL2'MP' IGNORE PUT TO ERP T-P DEVICE 01080000
.NOMP ANOP 01090000
CC4UN EQU &N BSCC POINT-TO-POINT LINE INIT@02 01091000
&N SETA &N+3 @02 01092000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. @02 01093000
AIF (&C).NOUN @02 01094000
DC XL1'00' @02 01095000
DC CL2'UN' BSCC POINT-TO-POINT LINE INIT@02 01096000
.NOUN ANOP @02 01097000
AIF (&DFF NE '1').NDFF SKIP IF NO D.F.F. 01100000
*------------DFF TRANSIENTS PORTION OF PROGRAM LIST----------------@02 01105000
CC4DC EQU &N D.F.F. 01110000
&N SETA &N+3 01120000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 01130000
AIF (&C).NO20 01140000
DC XL1'00' 01150000
DC CL2'DC' D.F.F. 01160000
.NO20 ANOP 01170000
CC4DD EQU &N D.F.F. 01180000
&N SETA &N+3 01190000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 01200000
AIF (&C).NO21 01210000
DC XL1'00' 01220000
DC CL2'DD' D.F.F. 01230000
.NO21 ANOP 01240000
CC4DB EQU &N D.F.F. 01250000
&N SETA &N+3 01260000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 01270000
AIF (&C).NO22 01280000
DC XL1'00' 01290000
DC CL2'DB' D.F.F. 01300000
.NO22 ANOP 01310000
.NDFF ANOP 01320000
AIF (&CSIO EQ '0').YSEA SKIP DME TEST WHEN SIOC @03 01322000
AIF (&NAPOR EQ '0').YSEA SKIP DME TEST IF BSCA PORTS @02 01324000
AIF (&NCPOR EQ '0').YSEA SKIP DME TEST IF BSCC PORTS @02 01326000
AIF (&NTTSK EQ '0').YSEA SKIP DME TEST IF TASK-TASK PO@02 01328000
AIF (&DME NE '1').NREL RELEASE COMMAND SUPPORTED? 01330000
.YSEA ANOP SIOC SUPPORTED @03 01333000
*------------DME TRANSIENTS PORTION OF PROGRAM LIST----------------@02 01336000
CC4NC EQU &N TERMINAL RELEASE COMMAND 01340000
&N SETA &N+3 01350000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 01360000
AIF (&C).NO24 01370000
DC XL1'00' 01380000
DC CL2'NC' TERMINAL RELEASE COMMAND 01390000
.NO24 ANOP 01400000
.NREL ANOP NO, NO DME CAPABILITY 01410000
*------------GETMAIN RECOVERY TRANSIENT PORTION OF PGM LIST---------@02 01450000
CC4GR EQU &N GETMAIN RECOVERY TRANSIENT 01490000
&N SETA &N+3 01500000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 01510000
AIF (&C).NO248 01520000
DC XL1'00' 01530000
DC CL2'GR' GETMAIN RECOVERY TRANSIENT 01540000
.NO248 ANOP 01550000
SPACE 1 01560000
AIF (&MLTA NE '1').NMLTA SKIP IF NO MLTA 01570000
*------------MLTA TRANSIENTS PORTION OF PROGRAM LIST------------------* 01580000
SPACE 1 01590000
AIF ('&MXL'(01,1) NE '1').NOJ1 01600000
CC4J1 EQU &N MLTA TRANSLATE 01610000
&N SETA &N+3 01620000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 01630000
AIF (&C).NOJ1 01640000
DC XL1'00' 01650000
DC CL2'J1' MLTA TRANSLATE 01660000
.NOJ1 ANOP 01670000
AIF ('&MXL'(02,1) NE '1').NOJ2 01680000
CC4J2 EQU &N MLTA TRANSLATE 01690000
&N SETA &N+3 01700000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 01710000
AIF (&C).NOJ2 01720000
DC XL1'00' 01730000
DC CL2'J2' MLTA TRANSLATE 01740000
.NOJ2 ANOP 01750000
AIF ('&MXL'(03,1) NE '1').NOJ3 01760000
CC4J3 EQU &N MLTA TRANSLATE 01770000
&N SETA &N+3 01780000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 01790000
AIF (&C).NOJ3 01800000
DC XL1'00' 01810000
DC CL2'J3' MLTA TRANSLATE 01820000
.NOJ3 ANOP 01830000
AIF ('&MXL'(04,1) NE '1').NOJ4 01840000
CC4J4 EQU &N MLTA TRANSLATE 01850000
&N SETA &N+3 01860000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 01870000
AIF (&C).NOJ4 01880000
DC XL1'00' 01890000
DC CL2'J4' MLTA TRANSLATE 01900000
.NOJ4 ANOP 01910000
AIF ('&MXL'(05,1) NE '1').NOJ5 01920000
CC4J5 EQU &N MLTA TRANSLATE 01930000
&N SETA &N+3 01940000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 01950000
AIF (&C).NOJ5 01960000
DC XL1'00' 01970000
DC CL2'J5' MLTA TRANSLATE 01980000
.NOJ5 ANOP 01990000
AIF ('&MXL'(06,1) NE '1').NOJ6 02000000
CC4J6 EQU &N MLTA TRANSLATE 02010000
&N SETA &N+3 02020000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 02030000
AIF (&C).NOJ6 02040000
DC XL1'00' 02050000
DC CL2'J6' MLTA TRANSLATE 02060000
.NOJ6 ANOP 02070000
AIF ('&MXL'(07,1) NE '1').NOJ7 02080000
CC4J7 EQU &N MLTA TRANSLATE 02090000
&N SETA &N+3 02100000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 02110000
AIF (&C).NOJ7 02120000
DC XL1'00' 02130000
DC CL2'J7' MLTA TRANSLATE 02140000
.NOJ7 ANOP 02150000
AIF ('&MXL'(08,1) NE '1').NOJ8 02160000
CC4J8 EQU &N MLTA TRANSLATE 02170000
&N SETA &N+3 02180000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 02190000
AIF (&C).NOJ8 02200000
DC XL1'00' 02210000
DC CL2'J8' MLTA TRANSLATE 02220000
.NOJ8 ANOP 02230000
AIF ('&MXL'(09,1) NE '1').NOJ9 02240000
CC4J9 EQU &N MLTA TRANSLATE 02250000
&N SETA &N+3 02260000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 02270000
AIF (&C).NOJ9 02280000
DC XL1'00' 02290000
DC CL2'J9' MLTA TRANSLATE 02300000
.NOJ9 ANOP 02310000
AIF ('&MXL'(10,1) NE '1').NOJA 02320000
CC4JA EQU &N MLTA TRANSLATE 02330000
&N SETA &N+3 02340000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 02350000
AIF (&C).NOJA 02360000
DC XL1'00' 02370000
DC CL2'JA' MLTA TRANSLATE 02380000
.NOJA ANOP 02390000
AIF ('&MXL'(11,1) NE '1').NOJB 02400000
CC4JB EQU &N MLTA TRANSLATE 02410000
&N SETA &N+3 02420000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 02430000
AIF (&C).NOJB 02440000
DC XL1'00' 02450000
DC CL2'JB' MLTA TRANSLATE 02460000
.NOJB ANOP 02470000
AIF ('&MXL'(12,1) NE '1').NOJC 02480000
CC4JC EQU &N MLTA TRANSLATE 02490000
&N SETA &N+3 02500000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 02510000
AIF (&C).NOJC 02520000
DC XL1'00' 02530000
DC CL2'JC' MLTA TRANSLATE 02540000
.NOJC ANOP 02550000
CC4MA EQU &N MLTA 1ST LEVEL ERROR HANDLER 02560000
&N SETA &N+3 02570000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 02580000
AIF (&C).NO25 02590000
DC XL1'00' 02600000
DC CL2'MA' MLTA 1ST LEVEL ERROR HANDLER 02610000
.NO25 ANOP 02620000
CC4MC EQU &N MLTA BUFR RECEIVE ERROR 02630000
&N SETA &N+3 02640000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 02650000
AIF (&C).NO26 02660000
DC XL1'00' 02670000
DC CL2'MC' MLTA BUFR RECEIVE ERROR 02680000
.NO26 ANOP 02690000
CC4ME EQU &N MLTA CLOSE LINES 02700000
&N SETA &N+3 02710000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 02720000
AIF (&C).NO27 02730000
DC XL1'00' 02740000
DC CL2'ME' MLTA CLOSE LINES 02750000
.NO27 ANOP 02760000
CC4MT EQU &N MLTA START OLT 02770000
&N SETA &N+3 02780000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 02790000
AIF (&C).NO28 02800000
DC XL1'00' 02810000
DC CL2'MT' MLTA START OLT 02820000
.NO28 ANOP 02830000
CC4PG EQU &N MLTA PURGE I/O 02840000
&N SETA &N+3 02850000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 02860000
AIF (&C).NO29 02870000
DC XL1'00' 02880000
DC CL2'PG' MLTA PURGE I/O 02890000
.NO29 ANOP 02900000
CC4SC EQU &N MLTA NON-ZERO START CODE ANALY. 02910000
&N SETA &N+3 02920000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 02930000
AIF (&C).NO30 02940000
DC XL1'00' 02950000
DC CL2'SC' MLTA NON-ZERO START CODE ANALY. 02960000
.NO30 ANOP 02970000
CC4SK EQU &N MLTA POLL SKIP BIT ROUTINE 02980000
&N SETA &N+3 02990000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03000000
AIF (&C).NO31 03010000
DC XL1'00' 03020000
DC CL2'SK' MLTA POLL SKIP BIT ROUTINE 03030000
.NO31 ANOP 03040000
CC4SQ EQU &N MLTA STOP POLLING ABORT OP-END 03050000
&N SETA &N+3 03060000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03070000
AIF (&C).NO32 03080000
DC XL1'00' 03090000
DC CL2'SQ' MLTA STOP POLLING ABORT OP-END 03100000
.NO32 ANOP 03110000
CC4T2 EQU &N MLTA OLT OP-END 03120000
&N SETA &N+3 03130000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03140000
AIF (&C).NO33 03150000
DC XL1'00' 03160000
DC CL2'T2' MLTA OLT OP-END 03170000
.NO33 ANOP 03180000
CC4T1 EQU &N OLT PARM LIST HANDLER 03190000
&N SETA &N+3 03200000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03210000
AIF (&C).NO15 03220000
DC XL1'00' 03230000
DC CL2'T1' OLT PARM LIST HANDLER 03240000
.NO15 ANOP 03250000
SPACE 1 03260000
.NMLTA ANOP 03270000
AIF (&NTTSK EQ '0').YBSCA JUMP IF TASK-TASK PORTS @02 03275000
AIF (&BSCA NE '1').NBSCA SKIP IF NO BSCA 03280000
.YBSCA ANOP @02 03285000
*------------BSCA PORTION OF PROGRAM LIST-----------------------------* 03290000
SPACE 1 03300000
CC4BA EQU &N 3270 SAVE STATUS 03310000
&N SETA &N+3 03320000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03330000
AIF (&C).NO34 03340000
DC XL1'00' 03350000
DC CL2'BA' 3270 SAVE STATUS 03360000
.NO34 ANOP 03370000
CC4BB EQU &N BSCA OUTPUT RECORD FORMATTING 03380000
&N SETA &N+3 03390000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03400000
AIF (&C).NO35 03410000
DC XL1'00' 03420000
DC CL2'BB' BSCA OUTPUT RECORD FORMATTING 03430000
.NO35 ANOP 03440000
CC4BC EQU &N BSCA STOP POLLING 03450000
&N SETA &N+3 03460000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03470000
AIF (&C).NO36 03480000
DC XL1'00' 03490000
DC CL2'BC' BSCA STOP POLLING 03500000
.NO36 ANOP 03510000
CC4BE EQU &N BSCA ERROR RECOVERY 03520000
&N SETA &N+3 03530000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03540000
AIF (&C).NO37 03550000
DC XL1'00' 03560000
DC CL2'BE' BSCA ERROR RECOVERY 03570000
.NO37 ANOP 03580000
AIF (&NPBY).NO38 SKIP IF NO BUSY PRINTER. 03581000
CC4BG EQU &N BUSY PRINTER CLEANUP 03582000
&N SETA &N+3 03583000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03584000
AIF (&C).NO38 03585000
DC XL1'00' 03586000
DC CL2'BG' BUSY PRINTER CLEANUP. 03587000
.NO38 ANOP 03588000
AIF (&DME NE '1').NBDM SKIP IF NO DME IN SYSTEM 03590000
CC4BI EQU &N BSCA DATA MODE ESCAPE 03600000
&N SETA &N+3 03610000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03620000
AIF (&C).NO39 03630000
DC XL1'00' 03640000
DC CL2'BI' BSCA DATA MODE ESCAPE 03650000
.NO39 ANOP 03660000
.NBDM ANOP 03670000
CC4BP EQU &N BSCA PURGE 03680000
&N SETA &N+3 03690000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03700000
AIF (&C).NO40 03710000
DC XL1'00' 03720000
DC CL2'BP' BSCA PURGE 03730000
.NO40 ANOP 03740000
CC4BQ EQU &N BSCA STOP POLLING QUEUE 03750000
&N SETA &N+3 03760000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03770000
AIF (&C).NO41 03780000
DC XL1'00' 03790000
DC CL2'BQ' BSCA STOP POLLING QUEUE 03800000
.NO41 ANOP 03810000
CC4BR EQU &N BSCA USER T-P REQ VALIDATION 03820000
&N SETA &N+3 03830000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03840000
AIF (&C).NO42 03850000
DC XL1'00' 03860000
DC CL2'BR' BSCA USER T-P REQ VALIDATION 03870000
.NO42 ANOP 03880000
CC4B5 EQU &N BSCA 3735 SENSE STATUS 03890000
&N SETA &N+3 03900000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03910000
AIF (&C).NO43 03920000
DC XL1'00' 03930000
DC CL2'B5' BSCA 3735 SENSE STATUS 03940000
.NO43 ANOP 03950000
CC4B0 EQU &N BSCA 3270 COMMAND FORMATTING 03960000
&N SETA &N+3 03970000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 03980000
AIF (&C).NO44 03990000
DC XL1'00' 04000000
DC CL2'B0' BSCA 3270 COMMAND FORMATTING 04010000
.NO44 ANOP 04020000
AIF (&MIN NE '1').NBSMN MIN BSCA SUPPORT NEEDED? 04030000
CC4B1 EQU &N MIN SYS BSCA # 1 04040000
&N SETA &N+3 04050000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 04060000
AIF (&C).NO45 04070000
DC XL1'00' 04080000
DC CL2'B1' MIN SYS BSCA # 1 04090000
.NO45 ANOP 04100000
CC4B2 EQU &N MIN SYS BSCA # 2 04110000
&N SETA &N+3 04120000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 04130000
AIF (&C).NO46 04140000
DC XL1'00' 04150000
DC CL2'B2' MIN SYS BSCA # 2 04160000
.NO46 ANOP 04170000
.NBSMN ANOP 04180000
AIF (&NAS).NASCI ASCII SUPPORT IN BSCA? 04190000
CC4JD EQU &N BSCA ASCII TRANSLATE 04200000
&N SETA &N+3 04210000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 04220000
AIF (&C).NO18 04230000
DC XL1'00' 04240000
DC CL2'JD' BSCA ASCII TRANSLATE 04250000
.NO18 ANOP 04260000
CC4JE EQU &N BSCA ASCII TRANSLATE 04270000
&N SETA &N+3 04280000
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 04290000
AIF (&C).NO19 04300000
DC XL1'00' 04310000
DC CL2'JE' BSCA ASCII TRANSLATE 04320000
.NO19 ANOP 04330000
.NASCI ANOP 04340000
AIF (&N41).NO47 3741 SUPPORT 04341000
CC4B7 EQU &N 3741 SUPPORT AS A TERMINAL 04342000
&N SETA &N+3 UPDATE COUNT 04343000
&LSIZE SETA &LSIZE+1 UPDATE COUNT 04344000
AIF (&C).NO47 04345000
DC XL1'00' 04346000
DC CL2'B7' 3741 TERMINAL SUPPORT 04347000
.NO47 ANOP 04348000
CC4S0 EQU &N BSCA 3275 COMMAND FORMATTING 04348200
&N SETA &N+3 04348400
&LSIZE SETA &LSIZE+1 UPDATE COUNT. 04348600
AIF (&C).NO48 04348800
DC XL1'00' 04349000
DC CL2'S0' BSCA 3275 COMMAND FORMATTING 04349200
.NO48 ANOP 04349400
SPACE 1 04350000
.NBSCA ANOP 04360000
AIF (&CSIO EQ '0').YSIOC .SKIP IF SIOC SUPPORTED 04360050
AIF (&C#NL EQ '0').YEND 04360100
.YSIOC ANOP 04360150
* --- DEFINE THE EQUATES FOR BSCC AND/OR SIOC TRANCIENTS -------------* 04360200
CC4UG EQU &N BSCC GETMAIN RETRY 04360300
&N SETA &N+3 04360400
&LSIZE SETA &LSIZE+1 04360500
AIF (&C).Y002 04360600
DC XL1'00' 04360700
DC CL2'UG' BSCC GETMAIN RECOVERY 04360800
.Y002 ANOP 04360900
CC4US EQU &N STOP INVITE ON BSCC LINE 04361000
&N SETA &N+3 04361100
&LSIZE SETA &LSIZE+1 04361200
AIF (&C).Y004 04361300
DC XL1'00' 04361400
DC CL2'US' STOP INVITE ON BSCC LINE 04361500
.Y004 ANOP 04361600
CC4UT EQU &N STOP INVITE ON BSCC LINE 04361700
&N SETA &N+3 04361800
&LSIZE SETA &LSIZE+1 04361900
AIF (&C).Y006 04362000
DC XL1'00' 04362100
DC CL2'UT' STOP INVITE ON BSCC LINE 04362200
.Y006 ANOP 04362300
CC4UE EQU &N BSCC ERROR RECOVERY 04362400
&N SETA &N+3 04362500
&LSIZE SETA &LSIZE+1 04362600
AIF (&C).Y008 04362700
DC XL1'00' 04362800
DC CL2'UE' BSCC ERROR RECOVERY 04362900
.Y008 ANOP 04363000
CC4UR EQU &N BSCC OP REJECT 04363100
&N SETA &N+3 04363200
&LSIZE SETA &LSIZE+1 04363300
AIF (&C).Y010 04363400
DC XL1'00' 04363500
DC CL2'UR' BSCC OP REJECT 04363600
.Y010 ANOP 04363700
CC4UX EQU &N 3270,3741,3735 STATUS (BSCC) 04363800
&N SETA &N+3 04363900
&LSIZE SETA &LSIZE+1 04364000
AIF (&C).Y012 04364100
DC XL1'00' 04364200
DC CL2'UX' 3270,3741,3735 STATUS (BSCC) 04364300
.Y012 ANOP 04364400
CC4UK EQU &N ASCII-EBCDIC,EBCDIC-ASCII XLATE 04364500
&N SETA &N+3 04364600
&LSIZE SETA &LSIZE+1 04364700
AIF (&C).Y014 04364800
DC XL1'00' 04364900
DC CL2'UK' ASCII-EBCDIC,EBCDIC-ASCII XLATE 04365000
.Y014 ANOP 04365100
CC4UI EQU &N DATA MODE ESCAPE CHECK (BSCC) 04365200
&N SETA &N+3 04365300
&LSIZE SETA &LSIZE+1 04365400
AIF (&C).Y016 04365500
DC XL1'00' 04365600
DC CL2'UI' DATA MODE ESCAPE CHECK (BSCC) 04365700
.Y016 ANOP 04365800
CC4UD EQU &N IGNORE PUT TO TERMINAL IN ERP 04365900
&N SETA &N+3 04366000
&LSIZE SETA &LSIZE+1 04366100
AIF (&C).Y018 04366200
DC XL1'00' 04366300
DC CL2'UD' IGNORE PUT TO TERMINAL IN ERP 04366400
.Y018 ANOP 04366500
AIF (&NPBY).Y019 SKIP IF NO BUSY PRINTER SUPPORT 04366510
CC4UP EQU &N BUSY PRINTER CLEANUP 04366520
&N SETA &N+3 04366530
&LSIZE SETA &LSIZE+1 04366540
AIF (&C).Y019 04366550
DC XL1'00' 04366560
DC CL2'UP' BUSY PRINTER CLEANUP 04366570
.Y019 ANOP 04366580
.YEND ANOP 04366600
.END ANOP 04370000
*------------DEFINE THE EQUATE FOR THE # OF ENTRIES IN THE LIST-------* 04380000
SPACE 1 04390000
LSTSIZ EQU &LSIZE # OF ENTRIES IN TRANSIENT LIST 04400000
* END MACRO '$E038' 04410000
MEND 04420000