|
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: 3556 (0xde4)
Types: s3xseg
Names: »S$E005«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$E005«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $E005 * 00040000
.* * 00050000
.* PROGRAM NUMBER - 5704-SC2 * 00060000
.* * 00070000
.* MODIFICATION LEVEL: VERSION 5, MODIFICATION LEVEL 0 * 00080000
.* * 00090000
.* FUNCTION: * 00100000
.* * 00110000
.* . CCP GENERATION SECOND PASS MACRO-INSTRUCTION -- SET GLOBAL * 00120000
.* SYMBOLS FOR BSCA/BSCC PORTLINE AND TASK-TO-TASK SUPPORT. * 00130000
.* * 00140000
.* INPUT OPERANDS: * 00150000
.* * 00160000
.* . AP-0/1 * 00170000
.* * 00180000
.* BSCA PORTLINE SUPPORT -- 1=SUPPORTED/0=NOT * 00190000
.* * 00200000
.* . CP-0/1 * 00210000
.* * 00220000
.* BSCC PORTLINE SUPPORT -- 1=SUPPORTED/0=NOT * 00230000
.* * 00240000
.* . TK-0/1 * 00250000
.* * 00260000
.* TASK-TO-TASK SUPPORT -- 1=SUPPORTED/0=NOT * 00270000
.* * 00280000
.* . PP-0/1 * 00290000
.* * 00300000
.* BSCC POINT-TO-POINT SUPPORT -- 1=SUPPORT/0=NOT * 00310000
.* * 00320000
.* . CS-0/1 * 00330000
.* * 00340000
.* BSCC CONTROL STATION SUPPORT -- 1=SUPPORT/0=NOT * 00350000
.* * 00360000
.********************************************************************** 00370000
$E005 &CP-,&AP-,&TK-,&PP-,&CS- 00380000
.* 00390000
.*--------- GLOBAL VARIABLES ---------------------------------------* 00400000
.* 00410000
GBLB &NAPOR . *NO* BSCA PORTLINE SUPPORT 00420000
.* . 1=NO SUPPORT 0=SUPPORT 00430000
.* 00440000
GBLB &NCPOR . *NO* BSCC PORTLINE SUPPORT 00450000
.* . 1=NO SUPPORT 0=SUPPORT 00460000
.* 00470000
GBLB &NTTSK . *NO* TASK-TO-TASK SUPPORT 00480000
.* . 1=NO SUPPORT 0=SUPPORT 00490000
.* 00500000
GBLB &NBCPP . *NO* BSCC POINT-TO-POINT 00510000
.* . 1=NO SUPPORT/0=SUPPORT 00520000
.* 00530000
GBLB &NBCCS . *NO* BSCC CONTROL STATION 00540000
.* . 1=NO SUPPORT/0=SUPPORT 00550000
.* 00560000
GBLA &BSC . NUMBER OF BSC LINES SUPPORTED 00561000
.* 00562000
.* 00563000
GBLB &NOB . INVERSE OF GOBAL &BSCA 00564000
.* 00565000
TEXT 00570000
.* 00580000
.*--------- SET FOR LINE TYPES SUPPORTED ---------------------------* 00590000
.* 00600000
.* 00610000
.*---------- SET FOR BSCA PORTLINE SUPPORT ---------------------------* 00620000
.* 00630000
AIF (&AP EQ '1').POR0 . SKIP IF PORT-YES 00640000
&NAPOR SETB 1 . SET PASS 2 GOBAL TO INDICATE 00650000
.* . *NO* BSCA PORTLINE SUPPORT 00660000
.POR0 ANOP . END OPERAND 'AP' 00670000
.* 00680000
.*---------- SET FOR BSCC PORTLINE SUPPORT ---------------------------* 00690000
.* 00700000
AIF (&CP EQ '1').POR1 . SKIP IF PORT-YES 00710000
&NCPOR SETB 1 . SET PASS 2 GOBAL TO INDICATE 00720000
.* . *NO* BSCC PORTLINE SUPPORT 00730000
.POR1 ANOP . END OPERAND 'CP' 00740000
.* 00750000
.*---------- SET FOR TASK-TO-TASK SUPPORT ----------------------------* 00760000
.* 00770000
AIF (&TK EQ '1').POR2 . SKIP IF TTASK-YES 00780000
&NTTSK SETB 1 . SET PASS 2 GOBAL TO INDICATE 00790000
.* . *NO* TASK-TO-TASK SUPPORT 00800000
AGO .POR3 . GO TO NEXT TEST 00805000
.POR2 ANOP . END OPERAND 'TK' 00810000
&NOB SETB 0 . INDICATE BSCA SUPPORT 00812000
&BSC SETA 2 . ALLOW FOR #2 TO SUPPORT 00814000
.* . 2 LINES. 00816000
.POR3 ANOP . END OF TTASK PROCESSING 00818000
.* 00820000
.*------------- SET FOR BSCC POINT-TO-POINT SUPPORT ------------------* 00830000
.* 00840000
AIF (&PP EQ '1').PPEND . SKIP IF PP-YES 00850000
&NBCPP SETB 1 . SET PASS 2 GOBAL TO INDICATE 00860000
.* . *NO* BSCC POINT-TO-POINT SUPP 00870000
.PPEND ANOP . END OPERAND 'PP' 00880000
.* 00890000
.*------------- SET BSCC CONTROL STATION SUPPORT ---------------------* 00900000
.* 00910000
AIF (&CS EQ '1').CSEND . SKIP IF $ECSC CS-YES 00920000
&NBCCS SETB 1 . SET PASS 2 GOBAL TO INDICATE 00930000
.* . *NO* BSCC CONTROL STATION SUPP 00940000
.CSEND ANOP . END OPERAND 'CS' 00950000
.* 00960000
MEND 00970000