|
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: 6096 (0x17d0)
Types: s3xseg
Names: »S$EIOD«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$EIOD«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $EIOD * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 12 MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION FIRST PASS MACRO-INSTRUCTION -- DEFINE * 00100000
.* ATTACHED PERIPHERAL DEVICES TO BE SUPPORTED BY CCP (THOSE * 00110000
.* DEVICES BEYOND THE REQUIRED SINGLE 5444 DISK DRIVE AND THE * 00120000
.* 5471 CONSOLE TYPEWRITER/KEYBOARD) * 00130000
.* * 00140000
.* INPUT OPERANDS: * 00150000
.* * 00160000
.* . CARD-NO/MFCU/1442/'MFCU,1442' * 00170000
.* * 00180000
.* CARD DEVICE(S) TO BE SUPPORTED DURING CCP EXECUTION. DEFAULT * 00190000
.* IS NO. * 00200000
.* * 00210000
.* . PRINTR-NO/5203/1403 * 00220000
.* * 00230000
.* PRINT DEVICE TO BE SUPPORTED DURING CCP EXECUTION. DEFAULT * 00240000
.* IS NO. * 00250000
.* * 00260000
.* . DISKS-NO/R2/'R2,F2' * 00270000
.* * 00280000
.* DISK UNITS BEYOND THE MINIMAL R1/F1 TO BE SUPPORTED DURING * 00290000
.* CCP EXECUTION. DEFAULT IS NO. * 00300000
.* * 00310000
.* . D5445-NO/D1/'D1,D2' * 00320000
.* * 00330000
.* 5445 DISK DRIVES TO BE SUPPORTED DURING CCP EXECUTION. * 00340000
.* DEFAULT IS NO. * 00350000
.* * 00360000
.* . N3741-YES/Y/NO/N * 00370000
.* * 00380000
.* 3741 I/O SUPPORT DURING CCP EXECUTION * 00390000
.* * 00400000
.********************************************************************** 00410000
$EIOD &CARD-NO,&PRINTR-NO,&DISKS-NO,&D5445-NO,&N3741-N 00420000
GBLA &SEQ . SEQUENCE CONTROL 00430000
.* . MUST BE 0 UPON ENTRY 00440000
.* . IS MADE 1 AFTER PROCESSING 00450000
GBLB &TERR . TERMINATION ERROR SWITCH 00460000
GBLC &URDEV . UNIT-RECORD DEVICES SUPPORTED 00470000
.* . 1ST CHAR -- MFCU 00480000
.* . 2ND CHAR -- 1442 00490000
.* . 3RD CHAR -- 5203 00500000
.* . 4TH CHAR -- 1403 00510000
GBLC &DISK . DISK UNITS SUPPORTED 00520000
.* . 1ST CHAR -- R2 00530000
.* . 2ND CHAR -- F2 00540000
.* . 3RD CHAR -- D1 00550000
.* . 4TH CHAR -- D2 00560000
GBLB &F41 . 3741 I/O SUPPORT 00570000
.* 00580000
.*----------- PARAMETER TRANSFORMATION TABLES --------------------* 00590000
.* 00600000
TABLE &N3741 . 3741 SUPPORT 00610000
YES TABDF 1 00620000
Y TABDF 1 00630000
NO TABDF 0 00640000
N TABDF 0 00650000
TABDF * . ERRONEOUS PARAMETER 00660000
TEXT 00670000
.* 00680000
.*--------- CHECK STATEMENT SEQUENCE -------------------------------* 00690000
.* 00700000
AIF (&SEQ EQ '0').SEQOK . SKIP IF GOOD SEQUENCE 00710000
.* 00720000
*!005E $EIOD STATEMENT NOT IN PROPER SEQUENCE 00730000
&TERR SETB 1 . SET TERMINATION ERROR 00740000
.* 00750000
.SEQOK ANOP 00760000
.* 00770000
.*---------- CARD-NO/MFCU/1442/'MFCU,1442' -------------------------* 00780000
.* 00790000
AIF (&CARD EQ 'N').CD00 00800000
AIF (&CARD EQ 'NO').CD00 00810000
AIF (&CARD EQ 'MFCU').CD10 00820000
AIF (&CARD EQ '1442').CD01 00830000
AIF (&CARD EQ 'MFCU,1442').CD11 00840000
.* 00850000
*!010E INVALID 'CARD' PARAMETER -- MUST BE MFCU/1442/'MFCU,1442'/NO 00860000
.* 00870000
.CD00 ANOP . CARD-NO 00880000
&URDEV SETC '00' 00890000
AGO .CDEND 00900000
.* 00910000
.CD10 ANOP . CARD-MFCU 00920000
&URDEV SETC '10' 00930000
AGO .CDEND 00940000
.* 00950000
.CD01 ANOP . CARD-1442 00960000
&URDEV SETC '01' 00970000
AGO .CDEND 00980000
.* 00990000
.CD11 ANOP . CARD-'MFCU,1442' 01000000
&URDEV SETC '11' 01010000
.* 01020000
.CDEND ANOP . END OPERAND 'CARD' 01030000
.* 01040000
.*---------- PRINTR-NO/5203/1403 -----------------------------------* 01050000
.* 01060000
AIF (&PRINTR EQ 'N').PR00 01070000
AIF (&PRINTR EQ 'NO').PR00 01080000
AIF (&PRINTR EQ '5203').PR10 01090000
AIF (&PRINTR EQ '1403').PR01 01100000
.* 01110000
*!015E INVALID 'PRINTR' PARAMETER -- MUST BE 5203/1403/NO 01120000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 01130000
.* 01140000
.PR00 ANOP . PRINTR-NO 01150000
&URDEV SETC '&URDEV.00' 01160000
AGO .PREND 01170000
.* 01180000
.PR10 ANOP . PRINTR-5203 01190000
&URDEV SETC '&URDEV.10' 01200000
AGO .PREND 01210000
.* 01220000
.PR01 ANOP . PRINTR-1403 01230000
&URDEV SETC '&URDEV.01' 01240000
.* 01250000
.PREND ANOP . END OPERAND 'PRINTR' 01260000
.* 01270000
.*--------- DISKS-NO/R2/'R2,F2' ------------------------------------* 01280000
.* 01290000
AIF (&DISKS EQ 'N').DK00 01300000
AIF (&DISKS EQ 'NO').DK00 01310000
AIF (&DISKS EQ 'R2').DK10 01320000
AIF (&DISKS EQ 'R2,F2').DK11 01330000
.* 01340000
*!020E INVALID 'DISKS' PARAMETER -- MUST BE R2/'R2,F2'/NO 01350000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 01360000
.* 01370000
.DK00 ANOP . DISKS-NO 01380000
&DISK SETC '00' 01390000
AGO .DKEND 01400000
.* 01410000
.DK10 ANOP . DISKS-R2 01420000
&DISK SETC '10' 01430000
AGO .DKEND 01440000
.* 01450000
.DK11 ANOP . DISKS-'R2,F2' 01460000
&DISK SETC '11' 01470000
.* 01480000
.DKEND ANOP . END OPERAND 'DISKS' 01490000
.* 01500000
.*--------- D5445-NO/D1/'D1,D2' ------------------------------------* 01510000
.* 01520000
AIF (&D5445 EQ 'N').DD00 01530000
AIF (&D5445 EQ 'NO').DD00 01540000
AIF (&D5445 EQ 'D1').DD10 01550000
AIF (&D5445 EQ 'D1,D2').DD11 01560000
.* 01570000
*!025E INVALID 'D5445' PARAMETER -- MUST BE D1/'D1,D2'/NO 01580000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 01590000
.* 01600000
.DD00 ANOP . D5445-NO 01610000
&DISK SETC '&DISK.00' 01620000
AGO .DDEND 01630000
.* 01640000
.DD10 ANOP . D5445-D1 01650000
&DISK SETC '&DISK.10' 01660000
AGO .DDEND 01670000
.* 01680000
.DD11 ANOP . D5445-'D1,D2' 01690000
&DISK SETC '&DISK.11' 01700000
.* 01710000
.DDEND ANOP . END OPERAND 'D5445' 01720000
.* 01730000
.*--------- N3741-YES/Y/NO/N ---------------------------------------* 01740000
.* 01750000
AIF (&N3741 NE '*').N3 . SKIP IF VALID PARAMETER 01760000
.* 01770000
*!026E INVALID 'N3741' PARAMETER -- MUST BE YES/Y/NO/N 01780000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 01790000
AGO .NEND . TREAT AS IF N3741-NO 01800000
.* 01810000
.N3 ANOP . D5445-NO 01820000
AIF (&N3741 EQ '0').NEND . SKIP N3741-NO 01830000
&F41 SETB 1 . N3741-YES 01840000
.* 01850000
.NEND ANOP 01860000
.* 01870000
.*--------- SET STATEMENT SEQUENCE ---------------------------------* 01880000
.* 01890000
&SEQ SETA 1 . INDICATE $EIOD PROCESSED 01900000
.* 01910000
MEND 01920000