MACRO 00110000 &NAME RESET &RPL=,&ACB=,&ECB=,&EXIT=,&BRANCH=,&ARG=, *00120000 &OPTCD=,&AREA=,&AREALEN=,&AAREA=,&AAREALN=,&RECLEN=, *00130000 &ARECLEN= 00140000 AGO .RESSTRT 00140400 * INCLUDES ZTR 00618 00140800 * /* START OF SPECIFICATIONS **** 00142000 * 00144000 *01* MODULE-NAME = RESET 00150000 * 00300000 *01* DESCRIPTIVE-NAME = API RESET MACRO 00350000 * 00400000 *01* COPYRIGHT = XXXX-XXX COPYRIGHT IBM CORP 1973 00450000 * 00500000 *01* STATUS = RELEASE 1 00550000 * 00600000 *01* FUNCTION = RESET MACRO IS USED TO HALT READ-AHEADS. THIS MACRO 00650000 * MERELY ISSUES THE INNER MACRO (IHBRDWRA) WITH THE SAME USER 00700000 * SPECIFIED PARAMETERS ALONG WITH A REQUEST CODE (IHBRW) OF 8 TO 00750000 * INDICATE TO THE INNER MACRO THAT A RESET IS REQUESTED. 00760000 * 00850000 *01* NOTES = NONE 00900000 * 00950000 *02* CHARACTER-CODE-DEPENDENCIES = NA 01000000 * 01050000 *02* DEPENDENCIES = NA 01100000 * 01250000 *02* RESTRICTIONS = NA 01300000 * 01350000 *02* REGISTER-CONVENTIONS = NA 01400000 * 01550000 *02* PATCH-LABEL = NA 01600000 * 01650000 *01* MODULE-TYPE = MACRO 01700000 * 01710000 *02* PROCESSOR = ASSEMBLER 01720000 * 01740000 *02* MACRO-SIZE = 4 STATEMENTS AS FOLLOWS: 01742000 * MACRO 01742400 * &NAME RESET &RPL=,&RPLKEYWORD= 01744000 * &NAME IHBRDWRA RPL=&RPL,IHBRW=8,RPLKEYWORD=&RPLKEYWORD 01744400 * MEND 01744800 * 01746000 *02* ATTRIBUTES = LIST-EXEC 01748000 * 01748400 *01* ENTRY-POINT = NA 01748800 * 01749200 *01* EXIT-NORMAL = NA 01749600 * 01749700 *01* EXIT-ERROR = NA 01749800 * 01749900 *01* EXTERNAL-REFERENCES = NONE 01766600 * 01776600 *02* ROUTINES = NONE 01778600 * 01780600 *03* LINKAGE = NA 01782600 * 01783000 *03* REGISTERS-PASSED = NA 01783100 * 01783200 *03* REGISTERS-RETURNED = NA 01788800 * 01790800 *02* DATA-SETS = NONE 01792800 * 01794000 *02* DATA-AREA = NONE 01794100 * 01794200 *02* CONTROL-BLOCKS-SYSTEM = NONE 01794300 * 01832200 *02* CONTROL-BLOCKS-ATCAM = NONE 01834200 * 01886200 *01* TABLES = NONE 01886300 * 01892800 *01* INNER-MACROS = IHBRDWRA 01894800 * 01895300 *01* SYSTEM-MACROS = NONE 01895400 * 01955400 *01* CHANGE-ACTIVITY = DCR'S=1K0486 01965400 * 01995400 **** END OF SPECIFICATIONS ***/ 02045400 */*RESET: CHART */ 02095400 */* HEADER 02145400 */*JULY 21, 1972 IBM CONF 02195400 */*IDENTIAL CHART 135.3.3.4 02245400 */*J.R. OLLINGER RESET 02295400 */*MACRO PAGE 1 OF 1 */ 02345400 */* E RESET */ 02395400 */* N RESET &RPL=, &RPLKEYWORD= */ 02445400 */* L IHBRDWRA RPL= &RPL,IHBRW=X'12', RPLKEYWORD= &RPLKEYWORD 02495400 */**/ 02505400 */* R MEND */ 02545400 .RESSTRT ANOP 02595400 &NAME IHBRDWRA RPL=&RPL,ACB=&ACB,ECB=&ECB,EXIT=&EXIT, *02795400 BRANCH=&BRANCH,ARG=&ARG,OPTCD=&OPTCD,AREA=&AREA, *02845400 AREALEN=&AREALEN,RECLEN=&RECLEN,ARECLEN=&ARECLEN, *02895400 AAREA=&AAREA,AAREALN=&AAREALN,IHBRW=18 02945400 MEND 02955400