|
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: 15494 (0x3c86)
Types: s3xseg
Names: »S$E038«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$E038«
MACRO 00010000
$E038 &CON-0,&MXL- 00020000
GBLB &DFF 00030000
GBLB &NAS BSCA ASCII SUPPORT 00040000
GBLB &BSCA 00050000
GBLB &MOD4 00055000
GBLB &N41 00060000
GBLB &MLTA 00070000
GBLB &MIN 00080000
GBLB &DME 00090000
GBLC &# 00100000
LCLA &N RELATIVE ENTRY NUMBER 00110000
LCLB &C CONSTANTS SWITCH 00120000
TEXT 00130000
&# SETC ' ' 00140000
TITLE 'FIRST&#.LEVEL&#.TRANSIENT&#.LIST' 00150000
* PRINTER BUSY FLAG 1/17/78 *L 00155000
* BEGIN MACRO '$E038' 3/14/73 00160000
&C SETB 1 NO CONSTANTS WANTED 00170000
AIF (&CON EQ '0').NCON SET TO NO CONSTANTS GENERATED 00180000
&C SETB 0 CONSTANTS WANTED 00190000
TA@PGM EQU * START OF PGM LIST 00200000
SPACE 1 00210000
.NCON ANOP 00220000
*------------FIXED PORTION OF TRANSIENT LIST--------------------------* 00230000
SPACE 1 00240000
SPACE 1 00250000
CC4AB EQU &N ACCEPT INPUT POST PRE-PROCESSOR 00260000
&N SETA &N+1 00270000
AIF (&C).NO1 00280000
DC XL1'00' 00290000
DC CL2'AB' ACCEPT INPUT POST PRE-PROCESSOR 00300000
.NO1 ANOP 00310000
CC4A1 EQU &N ALLOCATION CONTROL 00320000
&N SETA &N+1 00330000
AIF (&C).NO2 00340000
DC XL1'00' 00350000
DC CL2'A1' ALLOCATION CONTROL 00360000
.NO2 ANOP 00370000
CC4GA EQU &N GET ATTRIBUTES 00380000
&N SETA &N+1 00390000
AIF (&C).NO3 00400000
DC XL1'00' 00410000
DC CL2'GA' GET ATTRIBUTES 00420000
.NO3 ANOP 00430000
AIF (&MOD4).LJ010 00435000
CC4K1 EQU &N CONSOLE I/O SCHEDULER 00440000
&N SETA &N+1 00450000
AIF (&C).NO4 00460000
DC XL1'00' 00470000
DC CL2'K1' CONSOLE I/O SCHEDULER 00480000
.NO4 ANOP 00490000
CC4K2 EQU &N CONSOLE START OUTPUT 00500000
&N SETA &N+1 00510000
AIF (&C).NO5 00520000
DC XL1'00' 00530000
DC CL2'K2' CONSOLE START OUTPUT 00540000
.NO5 ANOP 00550000
CC4K3 EQU &N CONSOLE OUTPUT OP-END 00560000
&N SETA &N+1 00570000
AIF (&C).NO6 00580000
DC XL1'00' 00590000
DC CL2'K3' CONSOLE OUTPUT OP-END 00600000
.NO6 ANOP 00610000
CC4K4 EQU &N CONSOLE INPUT OP-END 00620000
&N SETA &N+1 00630000
AIF (&C).NO7 00640000
DC XL1'00' 00650000
DC CL2'K4' CONSOLE INPUT OP-END 00660000
.NO7 ANOP 00670000
CC4K5 EQU &N CONSOLE REQUEST KEY HANDLER 00680000
&N SETA &N+1 00690000
AIF (&C).NO8 00700000
DC XL1'00' 00710000
DC CL2'K5' CONSOLE REQUEST KEY HANDLER 00720000
.NO8 ANOP 00730000
AGO .LJ015 00730300
.LJ010 ANOP 00730600
CC4X1 EQU &N CONSOLE SCHEDULER 00730900
&N SETA &N+1 00731200
AIF (&C).LJ011 00731500
DC XL1'0' 00731800
DC CL2'X1' 00732100
.LJ011 ANOP 00732400
CC4X2 EQU &N KEYBOARD INT. HANDLER XIENT 00732700
&N SETA &N+1 00733000
AIF (&C).LJ012 00733300
DC XL1'0' 00733600
DC CL2'X2' 00733900
.LJ012 ANOP 00734200
CC4X5 EQU &N KEYBOARD ENABLER 00734500
&N SETA &N+1 00734800
AIF (&C).LJ013 00735100
DC XL1'0' 00735400
DC CL2'X5' 00735700
.LJ013 ANOP 00736000
CC4X7 EQU &N DISK LOG FILE OUTPUT 00736300
&N SETA &N+1 00736600
AIF (&C).LJ014 00736900
DC XL1'0' 00737200
DC CL2'X7' 00737500
.LJ014 ANOP 00737800
CC4XB EQU &N PAGE BACKWARD IN LOG FILE 00738100
&N SETA &N+1 00738400
AIF (&C).LJ015 00738700
DC XL1'0' 00739000
DC CL2'XB' 00739300
.LJ015 ANOP 00739600
CC4MD EQU &N COMMON T-P ERP 00740000
&N SETA &N+1 00750000
AIF (&C).NO9 00760000
DC XL1'00' 00770000
DC CL2'MD' COMMON T-P ERP 00780000
.NO9 ANOP 00790000
CC4OP EQU &N USER FILE OPEN 00800000
&N SETA &N+1 00810000
AIF (&C).NO10 00820000
DC XL1'00' 00830000
DC CL2'OP' USER FILE OPEN 00840000
.NO10 ANOP 00850000
CC4PC EQU &N COMMAND PROCESSOR CONTROL 00860000
&N SETA &N+1 00870000
AIF (&C).NO11 00880000
DC XL1'00' 00890000
DC CL2'PC' COMMAND PROCESSOR CONTROL 00900000
.NO11 ANOP 00910000
CC4PR EQU &N COMMAND PROCESSOR RETURN 00920000
&N SETA &N+1 00930000
AIF (&C).NO12 00940000
DC XL1'00' 00950000
DC CL2'PR' COMMAND PROCESSOR RETURN 00960000
.NO12 ANOP 00970000
CC4R4 EQU &N PGM REQUEST NEP RESUME/HOLD 00980000
&N SETA &N+1 00990000
AIF (&C).NO13 01000000
DC XL1'00' 01010000
DC CL2'R4' PGM REQUEST NEP RESUME/HOLD 01020000
.NO13 ANOP 01030000
CC4TD EQU &N TERMINATION CONTROL ROUTINE 01040000
&N SETA &N+1 01050000
AIF (&C).NO14 01060000
DC XL1'00' 01070000
DC CL2'TD' TERMINATION CONTROL ROUTINE 01080000
.NO14 ANOP 01090000
CC4WC EQU &N USER T-P SWITCHED LINE CONNECT 01100000
&N SETA &N+1 01110000
AIF (&C).NO16 01120000
DC XL1'00' 01130000
DC CL2'WC' USER T-P SWITCHED LINE CONNECT 01140000
.NO16 ANOP 01150000
CC4WR EQU &N T-P TRANSLATION ERROR 01160000
&N SETA &N+1 01170000
AIF (&C).NO17 01180000
DC XL1'00' 01190000
DC CL2'WR' T-P TRANSLATION ERROR 01200000
.NO17 ANOP 01210000
CC4MP EQU &N IGNORE PUT TO ERP T-P DEVICE 01220000
&N SETA &N+1 01230000
AIF (&C).NOMP 01240000
DC XL1'00' 01250000
DC CL2'MP' IGNORE PUT TO ERP T-P DEVICE 01260000
.NOMP ANOP 01270000
CC4H1 EQU &N HALT/SYSLOG # 1 01280000
&N SETA &N+1 01290000
AIF (&C).NOH1 01300000
DC XL1'00' 01310000
DC CL2'H1' HALT/SYSLOG # 1 01320000
.NOH1 ANOP 01330000
CC4H2 EQU &N HALT/SYSLOG # 2 01340000
&N SETA &N+1 01350000
AIF (&C).NOH2 01360000
DC XL1'00' 01370000
DC CL2'H2' HALT/SYSLOG # 2 01380000
.NOH2 ANOP 01390000
CC4HF EQU &N HALT/SYSLOG 'F' 01400000
&N SETA &N+1 01410000
AIF (&C).NOHF 01420000
DC XL1'00' 01430000
DC CL2'HF' HALT/SYSLOG 'F' 01440000
.NOHF ANOP 01450000
AIF (&DFF NE '1').NDFF SKIP IF NO D.F.F. 01460000
CC4DC EQU &N D.F.F. 01470000
&N SETA &N+1 01480000
AIF (&C).NO20 01490000
DC XL1'00' 01500000
DC CL2'DC' D.F.F. 01510000
.NO20 ANOP 01520000
CC4DD EQU &N D.F.F. 01530000
&N SETA &N+1 01540000
AIF (&C).NO21 01550000
DC XL1'00' 01560000
DC CL2'DD' D.F.F. 01570000
.NO21 ANOP 01580000
CC4DB EQU &N D.F.F. 01590000
&N SETA &N+1 01600000
AIF (&C).NO22 01610000
DC XL1'00' 01620000
DC CL2'DB' D.F.F. 01630000
.NO22 ANOP 01640000
.NDFF ANOP 01650000
AIF (&DFF).NAC SKIP AC IF DFF IS IN 01660000
AIF (&MIN NE '1').NAC SKIP AC UNLESS MINIMUM SYSTEM 01670000
CC4AC EQU &N ACCEPT INPUT POST PROCESSOR 01680000
&N SETA &N+1 01690000
AIF (&C).NO23 01700000
DC XL1'00' 01710000
DC CL2'AC' ACCEPT INPUT POST PROCESSOR 01720000
.NO23 ANOP 01730000
.NAC ANOP 01740000
AIF (&DME NE '1').NREL RELEASE COMMAND SUPPORTED? 01750000
CC4NC EQU &N TERMINAL RELEASE COMMAND 01760000
&N SETA &N+1 01770000
AIF (&C).NO24 01780000
DC XL1'00' 01790000
DC CL2'NC' TERMINAL RELEASE COMMAND 01800000
.NO24 ANOP 01810000
AIF (&MOD4 NE '1').LJ020 01811000
CC4XF EQU &N PSGE FORWARD IN LOG FILE 01812000
&N SETA &N+1 01813000
AIF (&C).LJ020 01814000
DC XL1'0' 01815000
DC CL2'XF' 01816000
.LJ020 ANOP 01817000
.NREL ANOP NO, NO DME CAPABILITY 01820000
SPACE 1 01830000
AIF (&MLTA NE '1').NMLTA SKIP IF NO MLTA 01840000
*------------MLTA TRANSIENTS PORTION OF PROGRAM LIST------------------* 01850000
SPACE 1 01860000
AIF ('&MXL'(01,1) NE '1').NOJ1 01870000
CC4J1 EQU &N MLTA TRANSLATE 01880000
&N SETA &N+1 01890000
AIF (&C).NOJ1 01900000
DC XL1'00' 01910000
DC CL2'J1' MLTA TRANSLATE 01920000
.NOJ1 ANOP 01930000
AIF ('&MXL'(02,1) NE '1').NOJ2 01940000
CC4J2 EQU &N MLTA TRANSLATE 01950000
&N SETA &N+1 01960000
AIF (&C).NOJ2 01970000
DC XL1'00' 01980000
DC CL2'J2' MLTA TRANSLATE 01990000
.NOJ2 ANOP 02000000
AIF ('&MXL'(03,1) NE '1').NOJ3 02010000
CC4J3 EQU &N MLTA TRANSLATE 02020000
&N SETA &N+1 02030000
AIF (&C).NOJ3 02040000
DC XL1'00' 02050000
DC CL2'J3' MLTA TRANSLATE 02060000
.NOJ3 ANOP 02070000
AIF ('&MXL'(04,1) NE '1').NOJ4 02080000
CC4J4 EQU &N MLTA TRANSLATE 02090000
&N SETA &N+1 02100000
AIF (&C).NOJ4 02110000
DC XL1'00' 02120000
DC CL2'J4' MLTA TRANSLATE 02130000
.NOJ4 ANOP 02140000
AIF ('&MXL'(05,1) NE '1').NOJ5 02150000
CC4J5 EQU &N MLTA TRANSLATE 02160000
&N SETA &N+1 02170000
AIF (&C).NOJ5 02180000
DC XL1'00' 02190000
DC CL2'J5' MLTA TRANSLATE 02200000
.NOJ5 ANOP 02210000
AIF ('&MXL'(06,1) NE '1').NOJ6 02220000
CC4J6 EQU &N MLTA TRANSLATE 02230000
&N SETA &N+1 02240000
AIF (&C).NOJ6 02250000
DC XL1'00' 02260000
DC CL2'J6' MLTA TRANSLATE 02270000
.NOJ6 ANOP 02280000
AIF ('&MXL'(07,1) NE '1').NOJ7 02290000
CC4J7 EQU &N MLTA TRANSLATE 02300000
&N SETA &N+1 02310000
AIF (&C).NOJ7 02320000
DC XL1'00' 02330000
DC CL2'J7' MLTA TRANSLATE 02340000
.NOJ7 ANOP 02350000
AIF ('&MXL'(08,1) NE '1').NOJ8 02360000
CC4J8 EQU &N MLTA TRANSLATE 02370000
&N SETA &N+1 02380000
AIF (&C).NOJ8 02390000
DC XL1'00' 02400000
DC CL2'J8' MLTA TRANSLATE 02410000
.NOJ8 ANOP 02420000
AIF ('&MXL'(09,1) NE '1').NOJ9 02430000
CC4J9 EQU &N MLTA TRANSLATE 02440000
&N SETA &N+1 02450000
AIF (&C).NOJ9 02460000
DC XL1'00' 02470000
DC CL2'J9' MLTA TRANSLATE 02480000
.NOJ9 ANOP 02490000
AIF ('&MXL'(10,1) NE '1').NOJA 02500000
CC4JA EQU &N MLTA TRANSLATE 02510000
&N SETA &N+1 02520000
AIF (&C).NOJA 02530000
DC XL1'00' 02540000
DC CL2'JA' MLTA TRANSLATE 02550000
.NOJA ANOP 02560000
AIF ('&MXL'(11,1) NE '1').NOJB 02570000
CC4JB EQU &N MLTA TRANSLATE 02580000
&N SETA &N+1 02590000
AIF (&C).NOJB 02600000
DC XL1'00' 02610000
DC CL2'JB' MLTA TRANSLATE 02620000
.NOJB ANOP 02630000
AIF ('&MXL'(12,1) NE '1').NOJC 02640000
CC4JC EQU &N MLTA TRANSLATE 02650000
&N SETA &N+1 02660000
AIF (&C).NOJC 02670000
DC XL1'00' 02680000
DC CL2'JC' MLTA TRANSLATE 02690000
.NOJC ANOP 02700000
CC4MA EQU &N MLTA 1ST LEVEL ERROR HANDLER 02710000
&N SETA &N+1 02720000
AIF (&C).NO25 02730000
DC XL1'00' 02740000
DC CL2'MA' MLTA 1ST LEVEL ERROR HANDLER 02750000
.NO25 ANOP 02760000
CC4MC EQU &N MLTA BUFR RECEIVE ERROR 02770000
&N SETA &N+1 02780000
AIF (&C).NO26 02790000
DC XL1'00' 02800000
DC CL2'MC' MLTA BUFR RECEIVE ERROR 02810000
.NO26 ANOP 02820000
CC4ME EQU &N MLTA CLOSE LINES 02830000
&N SETA &N+1 02840000
AIF (&C).NO27 02850000
DC XL1'00' 02860000
DC CL2'ME' MLTA CLOSE LINES 02870000
.NO27 ANOP 02880000
CC4MT EQU &N MLTA START OLT 02890000
&N SETA &N+1 02900000
AIF (&C).NO28 02910000
DC XL1'00' 02920000
DC CL2'MT' MLTA START OLT 02930000
.NO28 ANOP 02940000
CC4PG EQU &N MLTA PURGE I/O 02950000
&N SETA &N+1 02960000
AIF (&C).NO29 02970000
DC XL1'00' 02980000
DC CL2'PG' MLTA PURGE I/O 02990000
.NO29 ANOP 03000000
CC4SC EQU &N MLTA NON-ZERO START CODE ANALY. 03010000
&N SETA &N+1 03020000
AIF (&C).NO30 03030000
DC XL1'00' 03040000
DC CL2'SC' MLTA NON-ZERO START CODE ANALY. 03050000
.NO30 ANOP 03060000
CC4SK EQU &N MLTA POLL SKIP BIT ROUTINE 03070000
&N SETA &N+1 03080000
AIF (&C).NO31 03090000
DC XL1'00' 03100000
DC CL2'SK' MLTA POLL SKIP BIT ROUTINE 03110000
.NO31 ANOP 03120000
CC4SQ EQU &N MLTA STOP POLLING ABORT OP-END 03130000
&N SETA &N+1 03140000
AIF (&C).NO32 03150000
DC XL1'00' 03160000
DC CL2'SQ' MLTA STOP POLLING ABORT OP-END 03170000
.NO32 ANOP 03180000
CC4T2 EQU &N MLTA OLT OP-END 03190000
&N SETA &N+1 03200000
AIF (&C).NO33 03210000
DC XL1'00' 03220000
DC CL2'T2' MLTA OLT OP-END 03230000
.NO33 ANOP 03240000
CC4T1 EQU &N OLT PARM LIST HANDLER 03250000
&N SETA &N+1 03260000
AIF (&C).NO15 03270000
DC XL1'00' 03280000
DC CL2'T1' OLT PARM LIST HANDLER 03290000
.NO15 ANOP 03300000
SPACE 1 03310000
.NMLTA ANOP 03320000
AIF (&BSCA NE '1').NBSCA SKIP IF NO BSCA 03330000
*------------BSCA PORTION OF PROGRAM LIST-----------------------------* 03340000
SPACE 1 03350000
CC4BA EQU &N 3270 SAVE STATUS 03360000
&N SETA &N+1 03370000
AIF (&C).NO34 03380000
DC XL1'00' 03390000
DC CL2'BA' 3270 SAVE STATUS 03400000
.NO34 ANOP 03410000
CC4BB EQU &N BSCA OUTPUT RECORD FORMATTING 03420000
&N SETA &N+1 03430000
AIF (&C).NO35 03440000
DC XL1'00' 03450000
DC CL2'BB' BSCA OUTPUT RECORD FORMATTING 03460000
.NO35 ANOP 03470000
CC4BC EQU &N BSCA STOP POLLING 03480000
&N SETA &N+1 03490000
AIF (&C).NO36 03500000
DC XL1'00' 03510000
DC CL2'BC' BSCA STOP POLLING 03520000
.NO36 ANOP 03530000
CC4BE EQU &N BSCA ERROR RECOVERY 03540000
&N SETA &N+1 03550000
AIF (&C).NO37 03560000
DC XL1'00' 03570000
DC CL2'BE' BSCA ERROR RECOVERY 03580000
.NO37 ANOP 03590000
AIF (&DME NE '1').NBDM SKIP IF NO DME IN SYSTEM 03600000
CC4BI EQU &N BSCA DATA MODE ESCAPE 03610000
&N SETA &N+1 03620000
AIF (&C).NO38 03630000
DC XL1'00' 03640000
DC CL2'BI' BSCA DATA MODE ESCAPE 03650000
.NO38 ANOP 03660000
.NBDM ANOP 03670000
CC4BP EQU &N BSCA PURGE 03680000
&N SETA &N+1 03690000
AIF (&C).NO39 03700000
DC XL1'00' 03710000
DC CL2'BP' BSCA PURGE 03720000
.NO39 ANOP 03730000
CC4BQ EQU &N BSCA STOP POLLING QUEUE 03740000
&N SETA &N+1 03750000
AIF (&C).NO40 03760000
DC XL1'00' 03770000
DC CL2'BQ' BSCA STOP POLLING QUEUE 03780000
.NO40 ANOP 03790000
CC4BR EQU &N BSCA USER T-P REQ VALIDATION 03800000
&N SETA &N+1 03810000
AIF (&C).NO41 03820000
DC XL1'00' 03830000
DC CL2'BR' BSCA USER T-P REQ VALIDATION 03840000
.NO41 ANOP 03850000
CC4B5 EQU &N BSCA 3735 SENSE STATUS 03860000
&N SETA &N+1 03870000
AIF (&C).NO42 03880000
DC XL1'00' 03890000
DC CL2'B5' BSCA 3735 SENSE STATUS 03900000
.NO42 ANOP 03910000
CC4B0 EQU &N BSCA 3270 COMMAND FORMATTING 03920000
&N SETA &N+1 03930000
AIF (&C).NO43 03940000
DC XL1'00' 03950000
DC CL2'B0' BSCA 3270 COMMAND FORMATTING 03960000
.NO43 ANOP 03970000
AIF (&MIN NE '1').NBSMN MIN BSCA SUPPORT NEEDED? 03980000
CC4B1 EQU &N MIN SYS BSCA # 1 03990000
&N SETA &N+1 04000000
AIF (&C).NO44 04010000
DC XL1'00' 04020000
DC CL2'B1' MIN SYS BSCA # 1 04030000
.NO44 ANOP 04040000
CC4B2 EQU &N MIN SYS BSCA # 2 04050000
&N SETA &N+1 04060000
AIF (&C).NO45 04070000
DC XL1'00' 04080000
DC CL2'B2' MIN SYS BSCA # 2 04090000
.NO45 ANOP 04100000
CC4B3 EQU &N MIN SYS BSCA # 3 04110000
&N SETA &N+1 04120000
AIF (&C).NOB3 04130000
DC XL1'00' 04140000
DC CL2'B3' MIN SYS BSCA # 3 04150000
.NOB3 ANOP 04160000
.NBSMN ANOP 04170000
AIF (&NAS).NASCI ASCII SUPPORT IN BSCA? 04180000
CC4JD EQU &N BSCA ASCII TRANSLATE 04190000
&N SETA &N+1 04200000
AIF (&C).NO18 04210000
DC XL1'00' 04220000
DC CL2'JD' BSCA ASCII TRANSLATE 04230000
.NO18 ANOP 04240000
CC4JE EQU &N BSCA ASCII TRANSLATE 04250000
&N SETA &N+1 04260000
AIF (&C).NO19 04270000
DC XL1'00' 04280000
DC CL2'JE' BSCA ASCII TRANSLATE 04290000
.NO19 ANOP 04300000
.NASCI ANOP 04310000
AIF (&N41).NO46 04320000
CC4B7 EQU &N 3741 ERROR TRANSIENT 04330000
&N SETA &N+1 04340000
AIF (&C).NO46 04350000
DC XL1'00' 04360000
DC CL2'B7' 04370000
.NO46 ANOP 04380000
CC4S0 EQU &N BSCA 3275 SWITCHED 04381000
&N SETA &N+1 04382000
AIF (&C).NO47 04383000
DC XL1'00' 04384000
DC CL2'S0' BSCA 3275 SWITCHED 04385000
.NO47 ANOP 04386000
CC4BG EQU &N BUSY PRINTER SUPPORT *L 04386500
&N SETA &N+1 *L 04387000
AIF (&C).N048 *L 04387500
DC XL1'00' *L 04388000
DC CL2'BG' *L 04388500
.N048 ANOP END PRINTER BUSY SUPPORT *L 04389000
SPACE 1 04390000
.NBSCA ANOP 04400000
.END ANOP 04410000
*------------DEFINE THE EQUATE FOR THE # OF ENTRIES IN THE LIST-------* 04420000
SPACE 1 04430000
LSTSIZ EQU &N # OF ENTRIES IN TRANSIENT LIST 04440000
* END MACRO '$E038' 04450000
MEND 04460000