* /* START OF SPECIFICATIONS **** 00050000 * PROLOGUE 00100000 * 00150000 *01* MINI-MODULE-NAME = ISTYCONT 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 ISTYCONT STRTMODE , CONTROL MODE DVT (VS2) 01450000 *A-000000-999999 XL03HBS 01500000 * 01550000 *********************************************************************** 01600000 * 01650000 ISTCLOBP DVT , START C L OUTBOUND PROCESSING 01700000 * 01750000 FUNCT PROC=ISTDCC00 01800000 * 01850000 IDPURGEO DVT , PURGE OUTBOUND PROCESSING 01900000 * 01950000 FUNCT PROC=ISTDCC80 02000000 * 02050000 *********************************************************************** 02100000 * 02150000 ISTCLIBP DVT , START C L INBOUND PROCESSING 02200000 * 02250000 FUNCT PROC=ISTCRCR4 02300000 * 02350000 FUNCT PROC=ISTDCC81 02400000 * 02450000 *********************************************************************** 02500000 * 02550000 ISTTPOBP DVT , OUTBOUND- CONTROL MODE 02600000 SPACE 02650000 * REMOTE DEVICE SCHEDULER 02700000 SPACE 02750000 FUNCT PROC=ISTZDFL0,DVC=370X 02800000 FUNCT PROC=ISTZAF1A,ATTACH=L,DVC=32XX 02850000 SPACE 02900000 * LCCW TO BTU TRANSLATOR 02950000 SPACE 03000000 FUNCT PROC=ISTZDFL0 03050000 SPACE 03100000 * DIALOG SCHEDULER 03150000 SPACE 03200000 FUNCT PROC=ISTZDFL0 03250000 SPACE 03300000 * SESSION SCHEDULER 03350000 SPACE 03400000 FUNCT PROC=ISTZDFL0 03450000 SPACE 03500000 * READ 03550000 SPACE 03600000 FUNCT PROC=ISTZBFXA 03650000 SPACE 03700000 * WRITE 03750000 SPACE 03800000 FUNCT PROC=ISTZBFXA 03850000 SPACE 03900000 * WRITE SOH 03950000 SPACE 04000000 FUNCT PROC=ISTZBFXA 04050000 SPACE 04100000 * COPY 04150000 SPACE 04200000 FUNCT PROC=ISTZBFXA 04250000 SPACE 04300000 * WRITE CONTROL 04350000 SPACE 04400000 FUNCT PROC=ISTZBFXA 04450000 SPACE 04500000 * RESET 04550000 SPACE 04600000 FUNCT PROC=ISTZBFFA 04650000 SPACE 04700000 * CONTROL 04750000 SPACE 04800000 FUNCT PROC=ISTZBFGA 04850000 SPACE 04900000 * CONTACT 04950000 SPACE 05000000 FUNCT PROC=ISTZBFXA 05050000 SPACE 05100000 * DISCONNECT 05150000 SPACE 05200000 FUNCT PROC=ISTZBFIA 05250000 SPACE 05300000 * TEST LCCW 05350000 SPACE 05400000 FUNCT PROC=ISTZBMJA 05450000 SPACE 05500000 * PREEMPT 05550000 SPACE 05600000 FUNCT PROC=ISTZBFXA 05650000 SPACE 05700000 * RESTORE 05750000 SPACE 05800000 FUNCT PROC=ISTZBFXA 05850000 SPACE 05900000 * INVALID COMMAND 05950000 SPACE 06000000 FUNCT PROC=ISTZBFXA 06050000 SPACE 06100000 * SEND LCCW 06150000 SPACE 06200000 FUNCT PROC=ISTZBFXA 06250000 SPACE 06300000 * PREEMPT COMPLETION 1) 06350000 SPACE 06400000 FUNCT PROC=ISTZDFL0 06450000 SPACE 06500000 * RESET CLEANUP (PHASE 1) 06550000 SPACE 06600000 FUNCT PROC=ISTZIFSB 06650000 SPACE 06700000 * RESET CLEANUP (PHASE 3) 06750000 SPACE 06800000 FUNCT PROC=ISTZIFUB 06850000 SPACE 06900000 * RESET CLEANUP (PHASE 4) 06950000 SPACE 07000000 FUNCT PROC=ISTZDFL0 07050000 SPACE 07100000 * SESSION CONTROL 07150000 SPACE 07200000 FUNCT PROC=ISTZDFL0 07250000 ISTTPIBP DVT , INBOUND- CONTROL MODE 07300000 SPACE 07350000 * REQUEST COMPLETION CONTROL 07400000 SPACE 07450000 FUNCT PROC=ISTZDFL0,DVC=370X 07500000 FUNCT PROC=ISTZGF0A,EXCEPT=370X 07550000 SPACE 07600000 * DIALOG SCHEDULER 07650000 SPACE 07700000 FUNCT PROC=ISTZDFL0 07750000 SPACE 07800000 * DEVICE STATUS CONTROLLER 07850000 SPACE 07900000 FUNCT PROC=ISTZDFL0 07950000 SPACE 08000000 * NEGATIVE RESPONSE TO POLLING 08050000 SPACE 08100000 FUNCT PROC=ISTZDFL0 08150000 SPACE 08200000 * NRP RESET PHASE 08250000 SPACE 08300000 FUNCT PROC=ISTZDFL0 08350000 SPACE 08400000 * NRP INVITE PHASE 08450000 SPACE 08500000 FUNCT PROC=ISTZDFL0 08550000 SPACE 08600000 * RESET COMPLETION 08650000 SPACE 08700000 FUNCT PROC=ISTZDFL0 08750000 SPACE 08800000 * PREEMPT PENDING STATE 08850000 SPACE 08900000 FUNCT PROC=ISTZDFL0 08950000 SPACE 09000000 * READ COMPLETION 09050000 SPACE 09100000 FUNCT PROC=ISTZIFX0 09150000 SPACE 09200000 * INVITE COMPLETION 09250000 SPACE 09300000 FUNCT PROC=ISTZIFX0 09350000 SPACE 09400000 * WRITE COMPLETION 09450000 SPACE 09500000 FUNCT PROC=ISTZIFX0 09550000 SPACE 09600000 * CONTACT DISCONNECT COMPLETION 09650000 SPACE 09700000 FUNCT PROC=ISTZIFOA 09750000 SPACE 09800000 * RESET COMMAND COMPLETION 09850000 SPACE 09900000 FUNCT PROC=ISTZIFNA 09950000 SPACE 10000000 * TEST COMMAND COMPLETION 10050000 SPACE 10100000 FUNCT PROC=ISTZIMQA 10150069 SPACE 10200000 * INVALID CONTROL COMPLETION 10250000 SPACE 10300000 FUNCT PROC=ISTZDFL0 10350000 SPACE 10400000 * PREEMPT CPMPLETION 10450000 SPACE 10500000 FUNCT PROC=ISTZDFL0 10550000 SPACE 10600000 * OUTPUT COMPLETION ANALYSIS 10650000 SPACE 10700000 FUNCT PROC=ISTZDFL0 10750000 SPACE 10800000 * OUTPUT ERROR ANALYSIS 10850000 SPACE 10900000 FUNCT PROC=ISTZDFL0 10950000 SPACE 11000000 * INPUT COMPLETION ANALYSIS 11050000 SPACE 11100000 FUNCT PROC=ISTZDFL0 11150000 SPACE 11200000 * INPUT ERROR ANALYSIS 11250000 SPACE 11300000 FUNCT PROC=ISTZDFL0 11350000 SPACE 11400000 * CONTACT DISCONNECT COMPLETION STATUS ANALYSIS 11450000 SPACE 11500000 FUNCT PROC=ISTZDFL0 11550000 SPACE 11600000 * CONTACT ERROR ANALYSIS 11650000 SPACE 11700000 FUNCT PROC=ISTZDFL0 11750000 SPACE 11800000 * COMMAND RESET COMPLETION 11850000 SPACE 11900000 FUNCT PROC=ISTZIFAA 11950000 SPACE 12000000 * LOGICAL ERROR RECOVERY 12050000 SPACE 12100000 FUNCT PROC=ISTZDFL0 12150000 SPACE 12200000 * INVALID DEVICE COMMAND 12250000 SPACE 12300000 FUNCT PROC=ISTZIFX0 12350000 SPACE 12400000 * RESET CLEANUP (PHASE 1) 12450000 SPACE 12500000 FUNCT PROC=ISTZDFL0 12550000 SPACE 12600000 * RESET CLEANUP (PHASE 2) 12650000 SPACE 12700000 FUNCT PROC=ISTZIFTB 12750000 SPACE 12800000 * DIAL DISCONNECT 12850000 SPACE 12900000 FUNCT PROC=ISTZDFL0 12950000 SPACE 13000000 * MANUAL DIAL 13050000 SPACE 13100000 FUNCT PROC=ISTZDFL0 13150000 ISTATOBP DVT 13200000 FUNCT PROC=ISTZDFL0 13250000 * 13300000 ISTYCONT ENDMODE 13350000 * 13400000 END 13450000