* /* START OF SPECIFICATIONS **** 00050000 * PROLOGUE 00100000 * 00150000 *01* MINI-MODULE-NAME = ISTYPSOL 00200000 * 00250000 *01* FUNCTIONS = TO CREATE A SKELETEL DVT FOR THE PORT SOLICITOR 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 ISTYPSOL STRTMODE , PORT SOLICITOR DVT 01450000 *A-000000-999999 XL03HBS 01600000 * 01650000 ********************************************************************** 01700000 * 01750000 ISTCLOBP DVT , START C L OUTBOUND PROCESSING 01800000 FUNCT PROC=ISTNMC4P PSOP ROUTER 01850000 * 01900000 INFIRST DVT , FIRST TIME DRIVER 01950000 FUNCT PROC=ISTNMC5P 02000000 * 02050000 INRESCL DVT , RESET AND CONTROL 02100000 FUNCT PROC=ISTNMC6P 02150000 * 02200000 ININPUT DVT , PROCESS INPUT 02250000 FUNCT PROC=ISTNMC7P 02300000 * 02350000 INOPURGE DVT , TPPURGE 02400000 FUNCT PROC=ISTNMC8P 02450000 * 02500000 INRESET DVT , DIAL LINE CLOSE 02550000 FUNCT PROC=ISTNMC7S 02600000 * 02650000 INOCLPUR DVT , CONTROL LAYER PURGE 02700000 FUNCT PROC=ISTDCC80 02750000 * 02800000 *********************************************************************** 02850000 * 02900000 ISTCLIBP DVT , START C L INBOUND PROCESSING 02950000 FUNCT PROC=ISTNMC9P 03000000 * 03050000 INCONCOP DVT , I/C COMPLETE 03100000 FUNCT PROC=ISTNMC1S 03150000 * 03200000 INREDRVE DVT , REDRIVE 03250000 FUNCT PROC=ISTNMC2S 03300000 * 03350000 INDDPROC DVT , DIAL DISCONNECT PROCESSOR 03400000 FUNCT PROC=ISTNMC3S 03450000 * 03500000 INIPURGE DVT , TPPURGE 03550000 FUNCT PROC=ISTNMC4S 03600000 * 03650000 INNFDBK DVT , FEEDBACK PROCESSOR 03700000 FUNCT PROC=ISTNMC5S 03750000 * 03800000 INICRTRY DVT , I/C RETRY PROCESSOR 03850000 FUNCT PROC=ISTNMC6S 03900000 * 03950000 INICLPUR DVT , CONTROL PLAYER PURGE (INBOUND) 04000000 FUNCT PROC=ISTDCC81 04050000 * 04100000 *********************************************************************** 04150000 * 04200000 ISTTPOBP DVT , TPIOS OUTBOUND DVT 04250000 SPACE 04300000 * REMOTE DEVICE SCHEDULER 04350000 SPACE 04400000 FUNCT PROC=ISTZDFL0,LINE=(NS,,) 04450000 FUNCT PROC=ISTZAF0B,LINE=(S,,) 04500000 SPACE 04550000 * LCCW TO BTU TRANSLATOR 04600000 SPACE 04650000 FUNCT PROC=ISTZBF0B 04700000 SPACE 04750000 * DIALOG SCHEDULER 04800000 SPACE 04850000 FUNCT PROC=ISTZCF0B 04900000 SPACE 04950000 * SESSION SCHEDULER 05000000 SPACE 05050000 FUNCT PROC=ISTZBFNE 05100000 SPACE 05250000 * READ 05300000 SPACE 05350000 FUNCT PROC=ISTZHFAN 05400000 SPACE 05450000 * WRITE 05500000 SPACE 05550000 FUNCT PROC=ISTZBFX0 05600000 SPACE 05650000 * WRITE SOH 05700000 SPACE 05750000 FUNCT PROC=ISTZBFX0 05800000 SPACE 05850000 * COPY 05900000 SPACE 05950000 FUNCT PROC=ISTZBFX0 06000000 SPACE 06050000 * WRITE CONTROL 06100000 SPACE 06150000 FUNCT PROC=ISTZBFX0 06200000 SPACE 06250000 * RESET 06300000 SPACE 06350000 FUNCT PROC=ISTZBFFB 06400000 SPACE 06450000 * INVALID CONTROL 06500000 SPACE 06550000 FUNCT PROC=ISTZBFX0 06600000 SPACE 06650000 * CONTACT 06700000 SPACE 06750000 FUNCT PROC=ISTZBFHB,LINE=(S,,SS),EXCEPT=TWX 06800000 FUNCT PROC=ISTZBFX0,LINE=(S,,BSC) 06850000 FUNCT PROC=ISTZBFX0,DVC=TWX 06900000 SPACE 06950000 * DISCONNECT 07000000 SPACE 07050000 FUNCT PROC=ISTZBFIB 07100000 SPACE 07150000 * TEST LCCW 07200000 SPACE 07250000 FUNCT PROC=ISTZBFX0 07300000 SPACE 07350000 * PREEMPT 07400000 SPACE 07450000 FUNCT PROC=ISTZBFX0 07500000 SPACE 07550000 * RESTORE 07600000 SPACE 07650000 FUNCT PROC=ISTZBFX0 07700000 SPACE 07750000 * INVALID COMMAND 07800000 SPACE 07850000 FUNCT PROC=ISTZBFX0 07900000 SPACE 07950000 * SEND LCCW 08000000 SPACE 08050000 FUNCT PROC=ISTZBFX0 08100000 SPACE 08150000 * PREEMPT COMPLETION 08200000 SPACE 08250000 FUNCT PROC=ISTZDFL0 08300000 SPACE 08350000 * RESET CLEANUP (PHASE 1) 08400000 SPACE 08450000 FUNCT PROC=ISTZIFSB 08500000 SPACE 08550000 * RESET CLEANUP (PHASE 3) 08600000 SPACE 08650000 FUNCT PROC=ISTZIFUB 08700000 SPACE 08750000 * RESET CLEANUP (PHASE 4) 08800000 SPACE 08850000 FUNCT PROC=ISTZIFVB 08900000 SPACE 08950000 * SESSION CONTROL 09000000 SPACE 09050000 FUNCT PROC=ISTZBFX0 09100000 SPACE 09150000 ISTTPIBP DVT , TPIOS INBOUND DVT 09200000 SPACE 09250000 * REQUEST COMPLETION CONTROL 09300000 SPACE 09350000 FUNCT PROC=ISTZIF0B 09400000 SPACE 09450000 * DIALOG SCHEDULER 09500000 SPACE 09550000 FUNCT PROC=ISTZCFCI @X04BHDA 09600000 SPACE 09650000 * DEVICE STATUS CONTROLLER 09700000 SPACE 09750000 FUNCT PROC=ISTZDFL0 09800000 SPACE 09850000 * NEGATIVE RESPONSE TO POLLING 09900000 SPACE 09950000 FUNCT PROC=ISTZDFL0 10000000 SPACE 10050000 * NRP RESET PHASE 10100000 SPACE 10150000 FUNCT PROC=ISTZDFL0 10200000 SPACE 10250000 * NRP INVITE PHASE 10300000 SPACE 10350000 FUNCT PROC=ISTZDFL0 10400000 SPACE 10450000 * RESCHEDULE STATE 10500000 SPACE 10550000 FUNCT PROC=ISTZDFL0 10600000 SPACE 10650000 * PREEMPT PENDING STATE 10700000 SPACE 10750000 FUNCT PROC=ISTZDFL0 10800000 SPACE 10850000 * READ COMPLETION 10900000 SPACE 10950000 FUNCT PROC=ISTZIFX0 11000000 SPACE 11050000 * INVITE COMPLETION 11100000 SPACE 11150000 FUNCT PROC=ISTZIFKG,LINE=(S,,BSC) 11200000 FUNCT PROC=ISTZIFX0,LINE=(S,,SS),EXCEPT=TWX 11250000 FUNCT PROC=ISTZIFKG,DVC=TWX,LINE=(S,,SS) 11300000 SPACE 11350000 * WRITE COMPLETION 11400000 SPACE 11450000 FUNCT PROC=ISTZIFX0 11500000 SPACE 11550000 * CONTACT DISCONNECT COMPLETION 11600000 SPACE 11650000 FUNCT PROC=ISTZIFOE,LINE=(S,,SS),EXCEPT=TWX 11700000 FUNCT PROC=ISTZIFOB,LINE=(S,,BSC) 11750000 FUNCT PROC=ISTZIFOB,DVC=TWX,LINE=(S,,SS) 11800000 SPACE 11850000 * RESET COMMAND COMPLETION 11900000 SPACE 11950000 FUNCT PROC=ISTZIFNB 12000000 SPACE 12050000 * TEST COMPLETION 12100000 SPACE 12150000 FUNCT PROC=ISTZIFX0 12200000 SPACE 12250000 * CONTROL COMMAND 12300000 SPACE 12350000 FUNCT PROC=ISTZGFBB 12400000 SPACE 12450000 * PREEMPT COMPLETION 12500000 SPACE 12550000 FUNCT PROC=ISTZIFX0 12600000 SPACE 12650000 * OUTPUT COMPLETION STATUS ANALYSIS 12700000 SPACE 12750000 FUNCT PROC=ISTZIFX0 12800000 SPACE 12850000 * OUTPUT ERROR ANALYSIS 12900000 SPACE 12950000 FUNCT PROC=ISTZIFX0 13000000 SPACE 13050000 * INPUT COMPLETION STATUS ANALYSIS 13100000 SPACE 13150000 FUNCT PROC=ISTZIFCB 13200000 SPACE 13250000 * INPUT ERROR ANALYSIS 13300000 SPACE 13350000 FUNCT PROC=ISTZIFBB 13400000 SPACE 13450000 * CONTACT DISCONNECT COMPLETION STATUS ANALYSIS 13500000 SPACE 13550000 FUNCT PROC=ISTZIFHB 13600000 SPACE 13650000 * CONTACT ERROR ANALYSIS 13700000 SPACE 13750000 FUNCT PROC=ISTZIFX0,LINE=(S,,BSC) 13800000 FUNCT PROC=ISTZIFGB,LINE=(S,,SS),EXCEPT=TWX 13850000 FUNCT PROC=ISTZIFX0,DVC=TWX 13900000 SPACE 13950000 * COMMAND RESET COMPLETION 14000000 SPACE 14050000 FUNCT PROC=ISTZIFAB 14100000 SPACE 14150000 * LOGICAL ERROR RECOVERY 14200000 SPACE 14250000 FUNCT PROC=ISTZIFIB 14300000 SPACE 14350000 * INVALID DEVICE COMMAND 14400000 SPACE 14450000 FUNCT PROC=ISTZIFX0 14500000 SPACE 14550000 * RESET CLEANUP (PHASE 1) 14600000 SPACE 14650000 FUNCT PROC=ISTZIFSB 14700000 SPACE 14750000 * RESET CLEANUP (PHASE 2) 14800000 SPACE 14850000 FUNCT PROC=ISTZIFTB 14900000 SPACE 14950000 * DIAL DISCONNECT 15000000 SPACE 15050000 FUNCT PROC=ISTZKFBN 15100000 SPACE 15150000 * MANUAL DIAL 15200000 SPACE 15250000 FUNCT PROC=ISTZKFCN 15300000 ISTATOBP DVT 15350000 FUNCT PROC=ISTZDFL0 15400000 * 15450000 ISTYPSOL ENDMODE 15500000 * 15550000 END 15600000