(GIN Macro)
Defined in: MACS IPB
Used in: ADDJOB867, DOMONOP867
4SS= #MAC CLEARVDU 4T?W LDX 2 FX2 4TRG LDX 0 JSOURCE1(2) [GET PERIPHERAL TYPE 4W?6 SRL 0 18 4WQQ SBN 0 24 4X=B BZE 0 MMBS [J IF MOP ON IPB 4XQ2 SBN 0 36 4Y9L BZE 0 MACI [J IF MOP ON CI CHANNEL 4YP= BRN MFIN 4^8W MMBS 4^NG MHUNTW 2,AMXOR,ADCB 5286 LDX 1 A1+FPTR(2) [X1= POINTER TO ADEVS RING ELEMENT 52MQ LDX 0 FOURTHWD-FPTR(1) 537B ANDN 0 #17 53M2 SBN 0 2 546L BZE 0 MCLSC [J IF AVDU 54L= SBN 0 8 555W BNZ 0 MFIN [J IF NOT AVDU 55KG MCLSC 5656 LDCT 0 #4 56JQ ORS 0 ICURPOS(2) 574B MACI 57J2 MONOUT JPASSCL 583L MFIN 58H= LDX 1 FX1 592W LDX 2 FX2 59GG #NOR