MACRO 01000000 &NAME IHB03 &BACKUP,&BKUPDCB,&BRINGUP, X02000000 &DDNAME,&DMPAUTO,&DUMPDCB,&EXLST, X03000000 &IPLAUTO,&IPLTXID,&MACRF,&CKPTDCB 04000000 .* 05000000 .* THIS MACRO WAS ADDED FOR TCAM/3705 SUPPORT 06000000 .* THE DCB MACRO INVOKES IHB03 AS AN INNER MACRO WHEN DSORG = TR 07000000 .* 08000000 .********************************************************************* 08050000 .* 08100000 .* 03/03/72 LEVEL=01 08150000 .* 08200000 .********************************************************************* 08250000 LCLB &S0,&S1,&S2,&S5 BITS OF TRSTA STATUS FLAGS 09000000 AIF ('&DDNAME' NE '0').DDNAME IF DDNAME SPECIFIED 10000000 IHBERMAC 167 DDNAME OMITTED 11000000 .* 11050000 .DDNAME AIF (K'&DDNAME LE 8).MACRF IF DDNAME NOT OVER 8 CHARS 12000000 IHBERMAC 168 DDNAME LONG-TRUNCATED TO 8 CHAR 13000000 .* 13050000 .MACRF AIF ('&MACRF' EQ '(G,P)').IPLTXID IF MACRF=(G,P) 14000000 MNOTE 12,'*** IHB081 MACRF MUST BE (G,P) WHEN DSORG=TR' 15000000 .* 15050000 .IPLTXID AIF (K'&IPLTXID LE 7).IPLAUTO IF IPLTXID NOT OVER 7 CHARS 16000000 MNOTE 12,'*** IHB084 IPLTXID OPERAND EXCEEDS 7 CHARACTERS' 17000000 .* 17050000 .IPLAUTO ANOP 18000000 &S0 SETB ('&IPLAUTO' EQ 'YES') SET IF IPLAUTO=YES 19000000 AIF ('&IPLAUTO' EQ 'NO' OR &S0).DMPAUTO IF IPLAUTO IS VALID 20000000 IHBERMAC 157,IPLAUTO,&IPLAUTO XXX INVALID CODE FOR IPLAUTO 21000000 .* 21050000 .DMPAUTO AIF ('&DMPAUTO' NE 'YES' OR '&DUMPDCB' NE '0').DMPAUT2 22000000 MNOTE 8,'*** IHB082 DMPAUTO=YES INVALID UNLESS DUMPDCB ALSO X23000000 SPECIFIED' 24000000 .* 24050000 AGO .BRINGUP BR TO IGNORE DMPAUTO=YES 25000000 .DMPAUT2 ANOP 26000000 &S1 SETB ('&DMPAUTO' EQ 'YES') SET IF DMPAUTO=YES 27000000 AIF ('&DMPAUTO' EQ 'NO' OR &S1).BRINGUP IF DMPAUTO IS VALID 28000000 IHBERMAC 157,DMPAUTO,&DMPAUTO XXX INVALID CODE FOR DMPAUTO 29000000 .* 29050000 .BRINGUP ANOP 30000000 &S2 SETB ('&BRINGUP' EQ 'YES') SET IF BRINGUP=YES 31000000 AIF ('&BRINGUP' EQ 'NO' OR &S2).BACKUP IF BRINGUP IS VALID 32000000 IHBERMAC 157,BRINGUP,&BRINGUP XXX INVALID CODE FOR BRINGUP 33000000 .* 33050000 .BACKUP ANOP 34000000 &S5 SETB ('&BACKUP' EQ 'YES') SET IF BACKUP=YES 35000000 AIF ('&BACKUP' EQ 'NO' OR &S5).GENDCB IF BACKUP IS VALID 36000000 IHBERMAC 157,BACKUP,&BACKUP XXX INVALID CODE FOR BACKUP 37000000 .* 37050000 .GENDCB SPACE 2 38000000 * DATA CONTROL BLOCK 39000000 SPACE 1 40000000 ORG *-8 TO ELIMINATE UNUSED SPACE 41000000 &NAME DS 0F ORIGIN ON WORD BOUNDARY 42000000 ORG *+8 TO ORIGIN GENERATION 43000000 SPACE 1 44000000 * 3705 DEVICE INTERFACE 45000000 SPACE 1 46000000 DC CL8'&IPLTXID ' IPLTXID 47000000 DC XL1'0' RESERVED 48000000 DC AL3(&BKUPDCB) BKUPDCB 49000000 SPACE 1 50000000 * COMMON ACCESS METHOD INTERFACE 51000000 SPACE 1 52000000 DC XL1'0' DCBUNITN 53000000 DC AL3(&DUMPDCB) DUMPDCB 54000000 DC XL1'0' RESERVED 55000000 DC BL1'&S0&S1&S2.00&S5.00' TRSTA 55050000 DC BL2'0000000000000100' DSORG 56000000 DC A(IEDQAVT) IEDQAVT ADDR 57000000 SPACE 1 58000000 * FOUNDATION EXTENSION 59000000 SPACE 1 60000000 DC A(&CKPTDCB) CKPTDCB 62000000 DC AL1(0) EIOBX 63000000 DC AL3(&EXLST) EXLST 64000000 SPACE 1 65000000 * FOUNDATION BLOCK 66000000 SPACE 1 67000000 DC CL8'&DDNAME' DDNAME 68000000 DC BL1'00000010' OFLGS 69000000 DC BL1'00000000' IFLG 70000000 DC BL2'0100000001000000' MACR 71000000 SPACE 1 72000000 * TCAM INTERFACE 73000000 SPACE 1 74000000 DC XL1'0' RESERVED 75000000 DC XL1'0' UNTCT 76000000 DC H'0' BUFSIZE 77000000 MEND 79000000