|
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: 4572 (0x11dc)
Types: s3xseg
Names: »S$EBSD«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$EBSD«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$EBSD«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $EBSD * 00040000
.* RELEASE 4 * 00050000
.* * 00060000
.* MODIFICATION LEVEL: VERSION 1, MODIFICATION LEVEL 0 OF 5702-SC1 * 00070000
.* * 00080000
.* FUNCTION: * 00090000
.* * 00100000
.* . CCP GENERATION FIRST PASS MACRO-INSTRUCTION -- DEFINE A * 00110000
.* BSCA DEVICE TO BE SUPPORTED. * 00120000
.* * 00130000
.* INPUT OPERANDS: * 00140000
.* * 00150000
.* . TYPE-3275M1/3277M1/3284M1/3286M1/3275M2/3277M2/3284M2/3286M2/ * 00160000
.* 3735/CPU/3741 * 00170000
.* * 00180000
.* SPECIFIES A DEVICE TYPE TO BE SUPPORTED. REQUIRED OPERAND. * 00190000
.* * 00200000
.********************************************************************** 00210000
$EBSD &TYPE- 00220000
.* 00230000
GBLA &SEQ . SEQUENCE CONTROL: * 00240000
.* . MUST BE 8 OR 9 UPON ENTRY 00250000
.* . IS MADE 9 AFTER PROCESSING 00260000
GBLB &TERR . TERMINATION ERROR SWITCH 00270000
.* 00280000
GBLA &BSC . NUMBER BSC ADAPTERS 00290000
GBLC &BD1,&BD2,&BLT . BSC DEVICE AND LINE SUPPORT 00300000
.* 00310000
LCLC &C1,&C2 . USED FOR CHAR MANIPULATION 00320000
LCLA &N1,&N2,&N3 . USED FOR CHAR MANIPULATION 00330000
.* 00340000
TABLE &TYPE . DEVICE TYPE SUPPORTED 00350000
3275M1 TABDF 10 BYTE=1, BIT=0 00360000
3277M1 TABDF 11 BYTE=1, BIT=1 00370000
3284M1 TABDF 12 BYTE=1, BIT=2 00380000
3286M1 TABDF 13 BYTE=1, BIT=3 00390000
3275M2 TABDF 14 BYTE=1, BIT=4 00400000
3277M2 TABDF 15 BYTE=1, BIT=5 00410000
3284M2 TABDF 16 BYTE=1, BIT=6 00420000
3286M2 TABDF 17 BYTE=1, BIT=7 00430000
3735 TABDF 20 BYTE=2, BIT=0 00440000
CPU TABDF 21 BYTE=2, BIT=1 00450000
3741 TABDF 22 BYTE=2, BIT=2 00460000
'' TABDF ?? 00470000
TABDF * 00480000
.* 00490000
TEXT 00500000
.* 00510000
.*--------- CHECK STATEMENT SEQUENCE -------------------------------* 00520000
.* 00530000
AIF (&SEQ EQ '9').SEQOK . SKIP IF SUCCEEDING $EBSD 00540000
AIF (&SEQ EQ '8').SEQ1 . SKIP IF FIRST $EBSD 00550000
.* 00560000
*!500E $EBSD STATEMENT OUT OF SEQUENCE -- OR PRECEDING STATEMENT ERROR 00570000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 00580000
.* 00590000
.SEQ1 ANOP . FIRST $EBSD STATEMENT 00600000
&BD1 SETC '00000000' 00610000
&BD2 SETC '00000000' 00620000
.* 00630000
.SEQOK ANOP . VALID SEQUENCE 00640000
AIF (&BSC NE '0').BDOK . SKIP UNLESS BSCA-0 00650000
.* 00660000
*!505E $EBSD STATEMENT USED, BUT NO BSC ADAPTERS SPECIFIED 00670000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 00680000
.* 00690000
.BDOK ANOP 00700000
.* 00710000
.*--------- TYPE-XXXXXX --------------------------------------------* 00720000
.* 00730000
AIF (&TYPE NE '??').TYYES . SKIP IF TYPE SPECIFIED 00740000
.* 00750000
*!510E MISSING 'TYPE' OPERAND -- MUST BE SPECIFIED 00760000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 00770000
AGO .END 00780000
.TYYES ANOP . TYPE SPECIFIED 00790000
AIF (&TYPE NE '*').TYOK . SKIP IF VALID PARAMETER 00800000
.* 00810000
*!515E INVALID 'TYPE' PARAMETER -- MUST BE BSCA TERMINAL DESIGNATION 00820000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 00830000
AGO .END 00840000
.* 00850000
.TYOK ANOP . VALID PARAMETER 00860000
&C1 SETC '&TYPE'(2,1) . GET THE BIT POSITION 00870000
&N1 SETA &C1 . LENGTH OF PRECEDING 00880000
&N2 SETA &N1+2 . POSITION OF FOLLOWING 00890000
&N3 SETA 9-&N2 . LENGTH OF FOLLOWING 00900000
AIF ('&TYPE'(1,1) EQ '2').BD2 . SKIP IF 3735, CPU OR 3741 00910000
.* 00920000
.* TYPE IS A 3270. 00930000
.* 'TYPE' 3270 REQUIRES CS LINES (3275 MAY BE ON SWITCHED LINES) 00940000
.* 00950000
AIF ('&BLT'(3,1) EQ '1').TYCS SKIP IF CS LINE SUPPORTED. 00960000
AIF ('&TYPE'(2,1) EQ '0').TYSW .CHECK FOR SW LINE IF 3275 00970000
AIF ('&TYPE'(2,1) EQ '4').TYSW .CHECK FOR SW LINE IF 3275 00980000
*!520E 3271 CONTROL UNIT REQUIRES CONTROL STATION SUPPORT 00990000
&TERR SETB 1 01000000
.* 01010000
AGO .TYCS . SKIP CHECK FOR SWITCHED LINE 01020000
.TYSW ANOP 01030000
AIF ('&BLT'(4,1) EQ '1').TYCS . SKIP IF 3275 AND SWITCHED 01040000
*!525E 'TYPE' 3275 REQUIRES CONTROL STATION OR SWITCHED SUPPORT 01050000
&TERR SETB 1 01060000
.* 01070000
.TYCS ANOP CONTINUE HERE 01080000
.* 01090000
&C1 SETC '&BD1'(1,&N1) 01100000
&C2 SETC '&BD1'(&N2,&N3) 01110000
&BD1 SETC '&C1.1&C2' . INSERT THE DEVICE TYPE 01120000
AGO .END 01130000
.* 01140000
.BD2 ANOP 01150000
&C1 SETC '&BD2'(1,&N1) 01160000
&C2 SETC '&BD2'(&N2,&N3) 01170000
&BD2 SETC '&C1.1&C2' . SET THE DEVICE TYPE 01180000
.* 01190000
.TYEND ANOP 01200000
.* 01210000
.*--------- SET STATEMENT SEQUENCE ---------------------------------* 01220000
.* 01230000
.END ANOP 01240000
&SEQ SETA 9 . INDICATE $EBSD PROCESSED 01250000
.* 01260000
MEND 01270000