* /* START OF SPECIFICATIONS **** 00050000 * PROLOGUE 00100000 * 00150000 *01* MINI-MODULE-NAME = ISTYCLUS 00200000 * 00250000 *01* FUNCTIONS = TO CREATE A SKELETEL DVT FOR VARY (NON SNA DEVICES) 00300000 * CONTAINING THE PROCESS MODULES NEEDED TO BE USED 00350000 * ALONG WITH THE NECESSARY QUALIFIERS SO AS THE PROPER 00400000 * FUNCTIONS ARE SELECTED AS PER DEVICE TYPE USED 00450000 * NOTE -- SEE FUNCT MACRO FOR QUALIFYING ARGUMENTS 00500000 * 00550000 *01* MODULE-SIZE = 64-BYTES 00600000 * 00650000 *01* PROCESSOR = ASSEMBLER 00700000 * 00750000 *01* SYSTEMS-WHERE-USED = OS/VS1, OS/VS2 00800000 * 00850000 *01* HOW-USED = AS-FOLLOWS: 00900000 * 00950000 * THE SKELETEL DVT WILL BE SCANNED BY ISTOCCMD AND 01000000 * THE CORRECT PROCESSES RETAINED BY MATCHING FUNCTION 01050000 * QUALIFIERS WITH RESOURCE DEFINITION TABLE ENTRY INFO 01100000 * 01150000 *01* INPUT-OUTPUT = NONE 01200000 * 01250000 *01* CHANGE-ACTIVITY = NONE 01300000 * 01350000 **** END OF SPECIFICATIONS ***/ 01400000 ISTYCLUS STRTMODE , CLUSTER SOLICITOR DVT (VS2) 01450000 *A-000000-999999 XL03HBS 01600000 * 01650000 ISTCLOBP DVT 01700000 FUNCT PROC=ISTNMCCO /* OUTBOUND ROUTER */ 01750000 INOSTCTL DVT 01800000 FUNCT PROC=ISTNMCCA /* START CONTROL OUTBOUND */ 01850000 INOREDRV DVT 01900000 FUNCT PROC=ISTNMCCR /* REDRIVE OUTBOUND */ 01950000 INOENCTL DVT 02000000 FUNCT PROC=ISTNMCCZ /* END CONTROL OUTBOUND */ 02050000 INOPURGE DVT 02100000 FUNCT PROC=ISTDCC80 /* BASIC CTL LAYER PURGE */ 02150000 * 02200000 EJECT 02250000 ISTCLIBP DVT 02300000 FUNCT PROC=ISTNMCCI /* INBOUND ROUTER */ 02350000 INISTCTL DVT 02400000 FUNCT PROC=ISTNMCCB /* START CONTROL FEEDBACK */ 02450000 INSTCTLF DVT 02500000 FUNCT PROC=ISTNMCCF /* START CONTROL FAILURE */ 02550000 INSTCTLR DVT 02600000 FUNCT PROC=ISTNMCCT /* START CONTROL REDRIVE */ 02650000 INIREDRV DVT 02700000 FUNCT PROC=ISTNMCCS /* REDRIVE FEEDBACK */ 02750000 INIPURGE DVT 02800000 FUNCT PROC=ISTDCC81 /* BASIC CTL LAYER PURGE */ 02850000 * 02900000 EJECT 02950000 ISTTPOBP DVT , TPIOS OUTBOUND PROCESSOR 03000000 SPACE 03050000 * REMOTE DEVICE SCHEDULER 03100000 SPACE 03150000 FUNCT PROC=ISTZAF0B 03200000 SPACE 03250000 * LCCW TO BTU TRANSLATOR 03300000 SPACE 03350000 FUNCT PROC=ISTZBF0B 03400000 SPACE 03450000 * DIAL OUT SCHEDULER 03500000 SPACE 03550000 FUNCT PROC=ISTZCF0B 03600000 SPACE 03650000 * SESSION SCHEDULER 03700000 SPACE 03750000 FUNCT PROC=ISTZDFL0 03800000 SPACE 03850000 * READ 03900000 SPACE 03950000 FUNCT PROC=ISTZBFAM 04000000 SPACE 04050000 * WRITE 04100000 SPACE 04150000 FUNCT PROC=ISTZBFX0 04200000 SPACE 04250000 * WRITE SOH 04300000 SPACE 04350000 FUNCT PROC=ISTZBFX0 04400000 SPACE 04450000 * COPY 04500000 SPACE 04550000 FUNCT PROC=ISTZBFX0 04600000 SPACE 04650000 * WRITE CONTROL 04700000 SPACE 04750000 FUNCT PROC=ISTZBFX0 04800000 SPACE 04850000 * RESET 04900000 SPACE 04950000 FUNCT PROC=ISTZBFFB 05000000 SPACE 05050000 * CONTROL COMMAND 05100000 SPACE 05150000 FUNCT PROC=ISTZBFX0 05200000 SPACE 05250000 * CONTACT 05300000 SPACE 05350000 FUNCT PROC=ISTZBFX0 05400000 SPACE 05450000 * DISCONNECT 05500000 SPACE 05550000 FUNCT PROC=ISTZBFIB 05600000 SPACE 05650000 * TEST LCCW 05700000 SPACE 05750000 FUNCT PROC=ISTZBFX0 05800000 SPACE 05850000 * PREEMPT 05900000 SPACE 05950000 FUNCT PROC=ISTZBFX0 @X04BHDA 06000000 SPACE 06050000 * RESTORE 06100000 SPACE 06150000 FUNCT PROC=ISTZBFX0 @X04BHDA 06200000 SPACE 06250000 * INVALID COMMAND 06300000 SPACE 06350000 FUNCT PROC=ISTZBFX0 06400000 SPACE 06450000 * SEND LCCW 06500000 SPACE 06550000 FUNCT PROC=ISTZBFX0 06600000 SPACE 06650000 * PREEMPT COMPLETION 06700000 SPACE 06750000 FUNCT PROC=ISTZIFX0 @X04BHDA 06800000 SPACE 06850000 * RESET CLEANUP (PHASE 1) 06900000 SPACE 06950000 FUNCT PROC=ISTZIFSB 07000000 SPACE 07050000 * RESET CLEANUP (PHASE 3) 07100000 SPACE 07150000 FUNCT PROC=ISTZIFUB 07200000 SPACE 07250000 * RESET CLEANUP (PHASE 4) 07300000 SPACE 07350000 FUNCT PROC=ISTZIFVB 07400000 SPACE 07450000 * SESSION CONTROL 07500000 SPACE 07550000 FUNCT PROC=ISTZBFX0,ATTACH=R 07600000 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX 07650000 FUNCT PROC=ISTZDFL0,ATTACH=L,EXCEPT=32XX 07700000 * 07750000 ISTTPIBP DVT , TPIOS INBOUND PROCESSOR 07800000 SPACE 07850000 * REQUEST COMPLETION 07900000 SPACE 07950000 FUNCT PROC=ISTZIF0B 08000000 SPACE 08050000 * DIALOG SCHEDULER PHASE 2 08100000 SPACE 08150000 FUNCT PROC=ISTZCFCI @X04BHDA 08200000 SPACE 08250000 * DEVICE STATUS CONTROLLER 08300000 SPACE 08350000 FUNCT PROC=ISTZJF0B 08400000 SPACE 08450000 * NEGATIVE RESPONSE TO POLLING 08500000 SPACE 08550000 FUNCT PROC=ISTZDFL0 08600000 SPACE 08650000 * NRP RESET PHASE 08700000 SPACE 08750000 FUNCT PROC=ISTZDFL0 08800000 SPACE 08850000 * NRP INVITE PHASE 08900000 SPACE 08950000 FUNCT PROC=ISTZDFL0 09000000 SPACE 09050000 * RESET COMPLETION 09100000 SPACE 09150000 FUNCT PROC=ISTZIFAB 09200000 SPACE 09250000 * PREEMPT PENDING STATE 09300000 SPACE 09350000 FUNCT PROC=ISTZDFL0 @X04BHDA 09400000 SPACE 09450000 * READ COMPLETION 09500000 SPACE 09550000 FUNCT PROC=ISTZIFKB 09600000 SPACE 09650000 * INVITE COMPLETION 09700000 SPACE 09750000 FUNCT PROC=ISTZIFKB 09800000 SPACE 09850000 * WRITE COMPLETION 09900000 SPACE 09950000 FUNCT PROC=ISTZIFX0 10000000 SPACE 10050000 * CONTACT DISCONNECT COMPLETION 10100000 SPACE 10150000 FUNCT PROC=ISTZIFOB 10200000 SPACE 10250000 * RESET COMMNAD COMPLETION 10300000 SPACE 10350000 FUNCT PROC=ISTZIFNB 10400000 SPACE 10450000 * INVALID COMPLETION COMMAND 10500000 SPACE 10550000 FUNCT PROC=ISTZIFX0 10600000 SPACE 10650000 * CONTROL COMPLETION 10700000 SPACE 10750000 FUNCT PROC=ISTZGFBB 10800000 SPACE 10850000 * PREEMPT COMPLETION 10900000 SPACE 10950000 FUNCT PROC=ISTZIFX0 @X04BHDA 11000000 SPACE 11050000 * OUTPUT COMPLETION ANALYSIS 11100000 SPACE 11150000 FUNCT PROC=ISTZIFX0 11200000 SPACE 11250000 * OUTPUT ERROR ANALYSIS 11300000 SPACE 11350000 FUNCT PROC=ISTZIFX0 11400000 SPACE 11450000 * INPUT COMPLETION ANALYSIS 11500000 SPACE 11550000 FUNCT PROC=ISTZIFCI 11600000 SPACE 11650000 * INPUT ERROR ANALYSIS 11700000 SPACE 11750000 FUNCT PROC=ISTZIFBI 11800000 SPACE 11850000 * CONTACT DISCONNECT COMPLETION STATUS ANALYSIS 11900000 SPACE 11950000 FUNCT PROC=ISTZIFHB 12000000 SPACE 12050000 * CONTACT ERROR ANALYSIS 12100000 SPACE 12150000 FUNCT PROC=ISTZIFX0 12200000 SPACE 12250000 * COMMAND RESET COMPLETION 12300000 SPACE 12350000 FUNCT PROC=ISTZIFAB 12400000 SPACE 12450000 * LOGICAL ERROR RECOVERY 12500000 SPACE 12550000 FUNCT PROC=ISTZIFIB 12600000 SPACE 12650000 * INVALID DEVICE COMMAND 12700000 SPACE 12750000 FUNCT PROC=ISTZIFX0 12800000 SPACE 12850000 * RESET CLEANUP (PHASE 1) 12900000 SPACE 12950000 FUNCT PROC=ISTZIFSB 13000000 SPACE 13050000 * RESET CLEANUP (PHASE 2) 13100000 SPACE 13150000 FUNCT PROC=ISTZIFTB 13200000 SPACE 13250000 * DIAL DISCONNECT 13300000 SPACE 13350000 FUNCT PROC=ISTZKFBB 13400000 SPACE 13450000 * MANUAL DIAL 13500000 SPACE 13550000 FUNCT PROC=ISTZKFCB 13600000 SPACE 13650000 * UNSOLICITED BTU PROCESSOR 13700000 SPACE 13750000 FUNCT PROC=ISTZIFJB,DVC=32XX 13800000 SPACE 13850000 * 3270 SEGMENT PROCESSOR 13900000 SPACE 13950000 FUNCT PROC=ISTZDFWR,ATTACH=R,DVC=32XX 14000000 * 14050000 ISTATOBP DVT 14100000 * 14150000 FUNCT PROC=ISTZDFL0 14200000 * 14250000 ISTYCLUS ENDMODE 14300000 END 14350000