|
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: 12192 (0x2fa0)
Types: s3xseg
Names: »S$EMLD«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$EMLD«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $EMLD * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 8, MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION FIRST PASS MACRO INSTRUCTION -- DEFINE AN * 00100000
.* MLTA TERMINAL DEVICE TO BE SUPPORTED. * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * 00140000
.* . TYPE-1050/1050D/2740/2740S/2740C/2740SC/2740D/2740DT/2740DC/ * 00150000
.* 2740DTC/2740M2S/2740M2SB/2740M2SC/2740M2SCB/2741/2741D/ * 00160000
.* SYS7C/SYS7SC/CMCSTD * 00170000
.* * 00180000
.* DEVICE TYPE SUPPORTED. REQUIRED OPERAND. * 00190000
.* * 00200000
.* . XMCODE-CORR/PTTCEBCD/PTTCBCD * 00210000
.* * 00220000
.* TRANSMISSION CODE USED WITH THE DEVICE. REQUIRED OPERAND. * 00230000
.* * 00240000
.********************************************************************** 00250000
$EMLD &TYPE-,&XMCODE- 00260000
.* 00270000
GBLA &SEQ . SEQUENCE CONTROL: 00280000
.* . MUST BE 6 OR 7 UPON ENTRY 00290000
.* . IS MADE 7 AFTER PROCESSING 00300000
GBLB &TERR . TERMINATION ERROR SWITCH 00310000
GBLA &MLA . NUMBER MLTA LINES 00320000
GBLB &MT40,&MT41,&MT50 . TERMINALS SUPPORTED 00330000
GBLB &MFSC,&MFCK,&MFNK,&MFBR,&MFSW,&MFTC . FEATURES SUPPORTED 00340000
GBLB &XM4E . 2740/1 PTTCEBCD CODE PRESENT 00350000
GBLC &MXC . TRANSMISSION CODE SUPPORT 00360000
GBLC &MD1,&MD2,&MD3 . MLTA DEVICE SUPPORT 00370000
.* 00380000
LCLB &XCORR,&XEBCD,&XBCD . TRANSMISSION CODE SWITCHES 00390000
LCLC &C1,&C2 . USED TO CONSTRUCT XMCODES 00400000
.* 00410000
TEXT 00420000
.* 00430000
.*--------- CHECK STATEMENT SEQUENCE -------------------------------* 00440000
.* 00450000
AIF (&SEQ EQ '6').SEQ1 . SKIP IF FIRST $EMLD STATEMENT 00460000
AIF (&SEQ EQ '7').SEQOK . SKIP IF SUCCEEDING $EMLD STMT 00470000
.* 00480000
*!300E $EMLD STATEMENT OUT OF SEQUENCE -- OR PRECEDING STATEMENT ERROR 00490000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 00500000
.* 00510000
.SEQ1 ANOP . FIRST $EMLD--INITIALIZE 00520000
&MD1 SETC '00000000' 00530000
&MD2 SETC '00000000' 00540000
&MD3 SETC '0000' 00550000
&MXC SETC '0000' 00560000
.* 00570000
.SEQOK ANOP 00580000
AIF (&MLA NE '0').MDOK . SKIP IF SOME MLTA DEFINED 00590000
.* 00600000
*!305E $EMLD STATEMENT USED, BUT NO MLTA LINES SPECIFIED 00610000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 00620000
.* 00630000
.MDOK ANOP 00640000
.* 00650000
.*--------- TYPE-XXXXXXXX ------------------------------------------* 00660000
.* 00670000
AIF (T'&TYPE NE 'O').MD010 . SKIP IF OPERAND SPECIFIED 00680000
.* 00690000
*!310E MISSING 'TYPE' OPERAND -- MUST BE SPECIFIED 00700000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 00710000
AGO .END 00720000
.* 00730000
.MD010 ANOP . OPERAND SPECIFIED 00740000
AIF ('&TYPE'(1,4) EQ '1050').MD50 . 1050/1050D 00750000
AIF ('&TYPE'(1,4) EQ '2740').MD40 . 2740/2740... 00760000
AIF ('&TYPE'(1,4) EQ '2741').MD41 . 2741/2741D 00770000
AIF ('&TYPE'(1,4) EQ 'SYS7').MDS7 . SYS7/SYS7SC/SYS7DC 00780000
AIF (&TYPE EQ 'CMCSTD').MDCT . COMMUNICATING TYPEWRITER 00790000
AGO .MDERR . IF NONE OF ABOVE, ERROR 00800000
.* 00810000
.MD50 ANOP . TYPE-1050/1050D 00820000
&MT50 SETB 1 . 1050 TYPE SUPPORTED 00830000
&XEBCD SETB 1 . PTTCEBCD CODE VALID 00840000
&MFSC SETB 1 . STATION CONTROL SUPPORT 00850000
AIF (&TYPE NE '1050').MD110 . SKIP UNLESS TYPE-1050 00860000
.* 00870000
&C1 SETC '' 00880000
&C2 SETC '&MD1'(2,7) 00890000
&MD1 SETC '&C1.1&C2' 00900000
AGO .MDCK 00910000
.* 00920000
.MD110 AIF (&TYPE NE '1050D').MDERR . SKIP UNLESS TYPE-1050D 00930000
.* 00940000
&C1 SETC '&MD1'(1,1) 00950000
&C2 SETC '&MD1'(3,6) 00960000
&MD1 SETC '&C1.1&C2' 00970000
AGO .MDDC 00980000
.* 00990000
.MD40 ANOP . TYPE-2740... 01000000
&MT40 SETB 1 . 2740 SUPPORT INCLUDED 01010000
&XEBCD SETB 1 . PTTCEBCD CODE VALID 01020000
&XBCD SETB 1 . PTTCBCD CODE VALID 01030000
&XCORR SETB 1 . CORR CODE VALID 01040000
.* 01050000
AIF (&TYPE NE '2740').MD120 . SKIP UNLESS TYPE-2740 01060000
.* 01070000
&C1 SETC '&MD1'(1,2) 01080000
&C2 SETC '&MD1'(4,5) 01090000
&MD1 SETC '&C1.1&C2' 01100000
AGO .MDNK 01110000
.* 01120000
.MD120 AIF (&TYPE NE '2740S').MD130 . SKIP UNLESS TYPE-2740S 01130000
.* 01140000
&C1 SETC '&MD1'(1,3) 01150000
&C2 SETC '&MD1'(5,4) 01160000
&MD1 SETC '&C1.1&C2' 01170000
AGO .MDSN 01180000
.* 01190000
.MD130 AIF (&TYPE NE '2740C').MD140 . SKIP UNLESS TYPE-2740C 01200000
.* 01210000
&C1 SETC '&MD1'(1,4) 01220000
&C2 SETC '&MD1'(6,3) 01230000
&MD1 SETC '&C1.1&C2' 01240000
AGO .MDNK 01250000
.* 01260000
.MD140 AIF (&TYPE NE '2740SC').MD150 . SKIP UNLESS TYPE-2740SC 01270000
.* 01280000
&C1 SETC '&MD1'(1,5) 01290000
&C2 SETC '&MD1'(7,2) 01300000
&MD1 SETC '&C1.1&C2' 01310000
AGO .MDSC 01320000
.* 01330000
.MD150 AIF (&TYPE NE '2740D').MD160 . SKIP UNLESS TYPE-2740D 01340000
.* 01350000
&C1 SETC '&MD1'(1,6) 01360000
&C2 SETC '&MD1'(8,1) 01370000
&MD1 SETC '&C1.1&C2' 01380000
AGO .MDDN 01390000
.* 01400000
.MD160 AIF (&TYPE NE '2740DT').MD170 . SKIP UNLESS TYPE-2740DT 01410000
.* 01420000
&C1 SETC '&MD1'(1,7) 01430000
&C2 SETC '' 01440000
&MD1 SETC '&C1.1&C2' 01450000
AGO .MDTDN 01460000
.* 01470000
.MD170 AIF (&TYPE NE '2740DC').MD180 . SKIP UNLESS TYPE-2740DC 01480000
.* 01490000
&C1 SETC '' 01500000
&C2 SETC '&MD2'(2,7) 01510000
&MD2 SETC '&C1.1&C2' 01520000
AGO .MDDC 01530000
.* 01540000
.MD180 AIF (&TYPE NE '2740DTC').MD190 . SKIP UNLESS TYPE-2740DTC 01550000
.* 01560000
&C1 SETC '&MD2'(1,1) 01570000
&C2 SETC '&MD2'(3,6) 01580000
&MD2 SETC '&C1.1&C2' 01590000
AGO .MDTDC 01600000
.* 01610000
.MD190 AIF (&TYPE NE '2740M2S').MD200 . SKIP UNLESS TYPE-2740M2S 01620000
.* 01630000
&C1 SETC '&MD2'(1,2) 01640000
&C2 SETC '&MD2'(4,5) 01650000
&MD2 SETC '&C1.1&C2' 01660000
AGO .MDSN 01670000
.* 01680000
.MD200 AIF (&TYPE NE '2740M2SB').MD210 . SKIP UNLESS TYPE-2740M2SB 01690000
.* 01700000
&C1 SETC '&MD2'(1,3) 01710000
&C2 SETC '&MD2'(5,4) 01720000
&MD2 SETC '&C1.1&C2' 01730000
AGO .MDBSN 01740000
.* 01750000
.MD210 AIF (&TYPE NE '2740M2SC').MD220 . SKIP UNLESS TYPE-2740M2SC 01760000
.* 01770000
&C1 SETC '&MD2'(1,4) 01780000
&C2 SETC '&MD2'(6,3) 01790000
&MD2 SETC '&C1.1&C2' 01800000
AGO .MDSC 01810000
.* 01820000
.MD220 AIF (&TYPE NE '2740M2SCB').MDERR . SKIP UNL TYPE-2740M2SCB 01830000
.* 01840000
&C1 SETC '&MD2'(1,5) 01850000
&C2 SETC '&MD2'(7,2) 01860000
&MD2 SETC '&C1.1&C2' 01870000
AGO .MDBSC 01880000
.* 01890000
.MD41 ANOP . TYPE-2741... 01900000
&MT41 SETB 1 . 2741 SUPPORT 01910000
&XCORR SETB 1 . CORR CODE VALID 01920000
&XEBCD SETB 1 . PTTCEBCD CODE VALID 01930000
&XBCD SETB 1 . PTTCBCD CODE VALID 01940000
.* 01950000
AIF (&TYPE NE '2741').MD300 . SKIP UNLESS TYPE-2741 01960000
.* 01970000
&C1 SETC '&MD2'(1,6) 01980000
&C2 SETC '&MD2'(8,1) 01990000
&MD2 SETC '&C1.1&C2' 02000000
AGO .MDNK 02010000
.* 02020000
.MD300 AIF (&TYPE NE '2741D').MDERR . SKIP UNLESS TYPE-2741D 02030000
.* 02040000
&C1 SETC '&MD2'(1,7) 02050000
&C2 SETC '' 02060000
&MD2 SETC '&C1.1&C2' 02070000
AGO .MDDN 02080000
.* 02090000
.MDS7 ANOP . TYPE-SYS7... 02100000
&MT40 SETB 1 . 2740 SUPPORT 02110000
&XEBCD SETB 1 . PTTCEBCD CODE VALID 02120000
.* 02130000
AIF (&TYPE NE 'SYS7C').MD350 . SKIP UNLESS TYPE-SYS7C 02140000
.* 02150000
&C1 SETC '' 02160000
&C2 SETC '&MD3'(2,7) 02170000
&MD3 SETC '&C1.1&C2' 02180000
AGO .MDCK 02190000
.* 02200000
.MD350 AIF (&TYPE NE 'SYS7SC').MD360 . SKIP UNLESS TYPE-SYS7SC 02210000
.* 02220000
&C1 SETC '&MD3'(1,1) 02230000
&C2 SETC '&MD3'(3,6) 02240000
&MD3 SETC '&C1.1&C2' 02250000
AGO .MDSC 02260000
.* 02270000
.MD360 AIF (&TYPE NE 'SYS7DC').MDERR . SKIP UNLESS TYPE-SYS7DC 02280000
.* 02290000
&C1 SETC '&MD3'(1,2) 02300000
&C2 SETC '&MD3'(4,5) 02310000
&MD3 SETC '&C1.1&C2' 02320000
AGO .MDDC 02330000
.* 02340000
.MDCT ANOP . COMMUNICATING TYPEWRITER 02350000
&MT41 SETB 1 . 2741 SUPPORT USED 02360000
&XCORR SETB 1 . CORR CODE VALID 02370000
&C1 SETC '&MD3'(1,3) 02380000
&C2 SETC '&MD3'(5,4) 02390000
&MD3 SETC '&C1.1&C2' 02400000
AGO .MDDN . SKIP TO SET DIAL,NONCHK 02410000
.* 02420000
.MDERR ANOP . INVALID TYPE SPECIFIED 02430000
*!315E INVALID 'TYPE' PARAMETER -- MUST BE MLTA TERMINAL DESIGNATION 02440000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 02450000
AGO .MDEND 02460000
.* 02470000
.MDBSC ANOP . BUFRCV,STACTL,CHECK 02480000
&MFBR SETB 1 . BUFFER RECEIVE SUPPORT 02490000
AGO .MDSC . GO SET STACTL, CHECK 02500000
.* 02510000
.MDBSN ANOP . BUFRCV,STACTL,NONCHK 02520000
&MFBR SETB 1 . BUFFER RECEIVE SUPPORT 02530000
AGO .MDSN . GO SET STACTL, NONCHK 02540000
.* 02550000
.MDTDC ANOP . XMITCTL,DIAL,CHECK 02560000
&MFTC SETB 1 . TRANSMIT CONTROL SUPPORT 02570000
AGO .MDDC . GO SET DIAL, CHECK 02580000
.* 02590000
.MDTDN ANOP . XMITCTL,DIAL,NONCHK 02600000
&MFTC SETB 1 . TRANSMIT CONTROL SUPPORT 02610000
AGO .MDDN . GO SET DIAL, NONCHK 02620000
.* 02630000
.MDDC ANOP . DIAL, CHECK 02640000
&MFSW SETB 1 . DIAL SUPPORT 02650000
AGO .MDCK . GO SET CHECK 02660000
.* 02670000
.MDDN ANOP . DIAL,NONCHK 02680000
&MFSW SETB 1 . DIAL SUPPORT 02690000
AGO .MDNK . GO SET NONCHK 02700000
.* 02710000
.MDSC ANOP . STACTL,CHECK 02720000
&MFSC SETB 1 . STATION CONTROL SUPPORT 02730000
AGO .MDCK . GO SET CHECKING 02740000
.* 02750000
.MDSN ANOP . STACTL, NONCHK 02760000
&MFSC SETB 1 . STATION CONTROL SUPPORT 02770000
AGO .MDNK . GO SET NON-CHECKING 02780000
.* 02790000
.MDCK ANOP . CHECKING TERMINAL 02800000
&MFCK SETB 1 . CHECKING TERMINAL SUPPORT 02810000
AGO .MDEND 02820000
.* 02830000
.MDNK ANOP . NON-CHECKING TERMINAL 02840000
&MFNK SETB 1 . NON-CHECKING TERMINAL SUPPORT 02850000
.* 02860000
.MDEND ANOP . END OPERAND 'TYPE' 02870000
.* 02880000
.*--------- XMCODE-CORR/PTTCEBCD/PTTCBCD ---------------------------* 02890000
.* 02900000
AIF (T'&XMCODE NE 'O').XM010 . SKIP IF XMCODE SPECIFIED 02910000
.* 02920000
*!320E MISSING 'XMCODE' OPERAND -- MUST BE SPECIFIED 02930000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 02940000
AGO .END 02950000
.* 02960000
.XM010 ANOP . XMCODE SPECIFIED 02970000
AIF (&XMCODE EQ 'CORR').XMC . SKIP IF XMCODE-CORR 02980000
AIF (&XMCODE EQ 'PTTCEBCD').XME . SKIP IF XMCODE-PTTCEBCD 02990000
AIF (&XMCODE EQ 'PTTCBCD').XMB . SKIP IF XMCODE-PTTCBCD 03000000
.* 03010000
*!325E INVALID 'XMCODE' PARAMETER -- MUST BE CORR/PTTCEBCD/PTTCBCD 03020000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03030000
AGO .END 03040000
.* 03050000
.XMC ANOP . XMCODE-CORR 03060000
AIF (&XCORR NE '1').XMERR . SKIP IF INVALID WITH TYPE 03070000
.* 03080000
&C2 SETC '&MXC'(2,3) 03090000
&MXC SETC '1&C2' 03100000
AGO .XMEND 03110000
.* 03120000
.XME ANOP . XMCODE-PTTCEBCD 03130000
AIF (&XEBCD NE '1').XMERR . SKIP IF INVALID WITH TYPE 03140000
.* 03150000
AIF ('&TYPE'(1,4) EQ '1050').XME50 . SKIP IF 1050 PTTCEBCD 03160000
.* 03170000
&C1 SETC '&MXC'(1,1) 03180000
&C2 SETC '&MXC'(3,2) 03190000
&MXC SETC '&C1.1&C2' 03200000
&XM4E SETB 1 . SET 2740/1 PTTCEBCD PRESENT 03210000
AGO .XMEND 03220000
.* 03230000
.XME50 ANOP 03240000
&C1 SETC '&MXC'(1,3) 03250000
&MXC SETC '&C1.1' 03260000
AGO .XMEND 03270000
.* 03280000
.XMB ANOP . XMCODE-PTTCBCD 03290000
AIF (&XBCD NE '1').XMERR . SKIP IF INVALID WITH TYPE 03300000
&C1 SETC '&MXC'(1,2) 03310000
&C2 SETC '&MXC'(4,1) 03320000
&MXC SETC '&C1.1&C2' 03330000
AGO .XMEND 03340000
.* 03350000
.XMERR ANOP 03360000
*!330E XMCODE-&XMCODE NOT VALID FOR TERMINAL TYPE SPECIFIED 03370000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03380000
AGO .END 03390000
.* 03400000
.XMEND ANOP . END OPERAND 'XMCODE' 03410000
.* 03420000
.*--------- SET STATEMENT SEQUENCE ---------------------------------* 03430000
.* 03440000
.END ANOP 03450000
&SEQ SETA 7 . INDICATE $EMLD PROCESSED 03460000
.* 03470000
MEND 03480000