OK, here are the macros as I use them, with the test for host machine removed.
They come from the HRTPB360 program that is part of HASP.
Note that OS/360 assemblers support BAS and BASR, possibly for the 360/67.
-- glen
*********************************************************************** V0082000
TITLE 'H A S P / R T P *MACRO DEFINITIONS*(MODEL 20 INSTS.)' V0083000
* V0084000
* V0115000
***** CIO ***** CONTROL I/O V0116000
* V0117000
MACRO V0118000
&NAME CIO &A,&B V0119000
GBLA &MACHINE V0120000
&NAME NULL V0121000
DC X'9B' V0123000
DC AL1(&B) V0124000
DC S(&A) V0125000
AGO .END V0126000
EJECT V0133000
* V0134000
* DIALS READ MOD 20 DIALS V0135000
* DATA 1,2 IN LOC 252 V0136000
* ADDRESS 1,2,3,4 IN 253-254 DEC V0137000
MACRO V0138000
&NAME DIALS &NULL V0139000
&NAME DS 0H V0140000
DC X'83000300' � READ DIALS INTO CORE
V01410
00
MEND V0142000
SPACE 4 V0143000
* V0144000
***** HPR ***** HALT AND PROCEED V0145000
* V0146000
* V0147000
MACRO V0148000
&NAME HPR &NUM V0149000
GBLA &MACHINE V0150000
&NAME NULL V0151000
DC X'9900',S(&NUM) V0153000
.END MEND V0156000
SPACE 4 V0157000
* V0158000
***** TIOB ***** TEST I/O AND BRANCH V0159000
* V0160000
* V0161000
MACRO V0162000
&NAME TIOB &A,&B V0163000
GBLA &MACHINE V0164000
&NAME NULL V0165000
DC X'9A' V0167000
DC AL1(&B) V0168000
AIF ('&A' EQ '*').A2 V0169000
DC S(&A) V0170000
AGO .END V0171000
.A2 ANOP V0172000
DC S(*-2) V0173000
.END MEND V0177000
EJECT V0178000
SPACE 16 V0179000
*
V0180000***** XIO ***** TRANSFER I/O
V0181000
* V0182000
* V0183000
MACRO V0184000
&NAME XIO &A,&B V0185000
GBLA &MACHINE V0186000
&NAME NULL V0187000
.A20 ANOP V0190000
MVC &A,&B XIOXIOXIOXIOXIOXIO V0191000
ORG *-6 XIOXIOXIOXIOXIOXIO V0192000
DC X'D0' XIOXIOXIOXIOXIOXIO V0193000
ORG *+5 XIOXIOXIOXIOXIOXIO V0194000
.END MEND V0195000
TITLE 'H A S P / R T P *MACRO DEFINITIONS*(SYSTEM DEPENDENT AIDS)' V0196000
* V0197000
* V0475000
***** SPSW ***** SET PSW V0476000
* V0477000
* V0478000
MACRO V0479000
&NAME SPSW &LOC V0480000
GBLA &MACHINE V0481000
&NAME DC AL4(&LOC) SPSWSPSWSPSWSPSWSPSWSPSWSPSWSPSWSPSWSPSW V0484000
ORG *-4 SPSWSPSWSPSWSPSWSPSWSPSWSPSWSPSWSPSWSPSW V0485000
DC X'8100' SPSWSPSWSPSWSPSWSPSWSPSWSPSWSPSWSPSWSPSW V0486000
ORG *+2 SPSWSPSWSPSWSPSWSPSWSPSWSPSWSPSWSPSWSPSW V0487000
.END MEND V0493000
EJECT V0494000
* V0495000
