MACRO
&NAME    TEST16M &LOC,&R=0
.* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
.*
.* Macro TEST16M checks the address in the current PSW and forces
.* a program interrupt 0003 if the address is not above or below
.* the 16M line, depending on the value of &LOC.
.*
.* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
         LCLC  &BM                 Branch code ('Z' or 'NZ')
.*
&BM      SETC  'NZ'                Assume &LOC is ABOVE
         AIF   ('&LOC' EQ 'ABOVE').OK
&BM      SETC  'Z'                 Assume &LOC is BELOW
         AIF   ('&LOC' EQ 'BELOW').OK
         MNOTE 8,'*** ERROR *** &&LOC=&LOC - must be ABOVE or BELOW'
         MEXIT
.*
.OK      ANOP
&NAME    BASR  &R,0                Get 2nd word of PSW to reg
         N     &R,=X'7F000000'     Check for address > 24MB
         B&BM  *+8                 Skip if in correct location
         EX    0,*                 Else pgm interrupt
         MEND