* /* START OF SPECIFICATIONS **** 00050000 * PROLOGUE 00100000 * 00150000 *01* MINI-MODULE-NAME = ISTDVCBA 00200000 * 00250000 *01* FUNCTIONS = TO CREATE A SKELETEL DVT FOR THE USER (NON SNA) 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 ISTDVCBA STRTMODE , BASIC MODE PROCESSOR (VS2) 01450000 *A-000000-999999 XL03HBS 01600000 * 01650000 ********************************************************************** 01700000 * 01750000 ISTCLOBP DVT , START C L OUTBOUND PROCESSING 01800000 * 01850000 FUNCT PROC=ISTDCC00 01900000 * 01950000 FUNCT PROC=ISTDCC02 02000000 * 02050000 IDSOLICT DVT , SOLICIT PROCESSING 02100000 * 02150000 FUNCT PROC=ISTDCC20 02200000 * 02250000 FUNCT PROC=ISTDCC02 02300000 * 02350000 IDREAD DVT , READ PROCESSING 02400000 * 02450000 FUNCT PROC=ISTDCC21 02500000 * 02550000 FUNCT PROC=ISTDCC02 02600000 * 02650000 IDWRITE DVT , WRITE PROCESSING 02700000 * 02750000 FUNCT PROC=ISTDCC22 02800000 * 02850000 FUNCT PROC=ISTDCC02 02900000 * 02950000 IDFINISH DVT , REQUEST FINISH PROCESSING 03000000 * 03050000 FUNCT PROC=ISTDCC02 03100000 * 03150000 IDRESET DVT , RESET PROCESSING 03200000 * 03250000 FUNCT PROC=ISTDCC23 03300000 * 03350000 FUNCT PROC=ISTDCC02 03400000 * 03450000 IDDO DVT , DO PROCESSING 03500000 * 03550000 FUNCT PROC=ISTDCC31 03600000 * 03650000 IDSOLLDO DVT , SOLICIT LDO PROCESSING 03700000 * 03750000 FUNCT PROC=ISTDCC10 03800000 * 03850000 FUNCT PROC=ISTDCC31 03900000 * 03950000 IDRDLDO DVT , READ LDO PROCESSING 04000000 * 04050000 FUNCT PROC=ISTDCC11 04100000 * 04150000 FUNCT PROC=ISTDCC31 04200000 * 04250000 IDWRTLDO DVT , WRITE LDO PROCESSING 04300000 * 04350000 FUNCT PROC=ISTDCC12 04400000 * 04450000 FUNCT PROC=ISTDCC31 04500000 * 04550000 IDRSTLDO DVT , RESET LDO PROCESSING 04600000 * 04650000 FUNCT PROC=ISTDCC13 04700000 * 04750000 FUNCT PROC=ISTDCC31 04800000 * 04850000 IDPURGEO DVT , PURGE OUTBOUND PROCESSING 04900000 * 04950000 FUNCT PROC=ISTDCC80 05000000 * 05050000 EJECT 05100000 *********************************************************************** 05150000 * 05200000 ISTCLIBP DVT , START C L INBOUND PROCESSING 05250000 * 05300000 FUNCT PROC=ISTDCC30 05350000 * 05400000 FUNCT PROC=ISTDCC32 05450000 * 05500000 IDSRWFB DVT , SOL/WRT/RD MACRO FB PROCESSING 05550000 FUNCT PROC=ISTDCC50 05600000 * 05650000 FUNCT PROC=ISTDCC32 05700000 * 05750000 IDFBFIN DVT , FEEDBACK FINISH PROCESSING 05800000 * 05850000 FUNCT PROC=ISTDCC32 05900000 * 05950000 IDRSTFB DVT , RESET MACRO FB PROCESSING 06000000 * 06050000 FUNCT PROC=ISTDCC51 06100000 * 06150000 FUNCT PROC=ISTDCC32 06200000 * 06250000 IDDOFB DVT , DO FB PROCESSING 06300000 * 06350000 FUNCT PROC=ISTDCC31 06400000 * 06450000 IDSRLDFB DVT , FB SOL/READ LCCW PROCESSING 06500000 * 06550000 FUNCT PROC=ISTDCC40 06600000 * 06650000 FUNCT PROC=ISTDCC32 06700000 * 06750000 IDWTLDFB DVT , FB WRITE LCCW PROCESSING 06800000 * 06850000 FUNCT PROC=ISTDCC41 06900000 * 06950000 FUNCT PROC=ISTDCC32 07000000 * 07050000 IDRTLDFB DVT , FB RESET LCCW PROCESSING 07100000 * 07150000 FUNCT PROC=ISTDCC42 07200000 * 07250000 FUNCT PROC=ISTDCC32 07300000 * 07350000 IDPURGEI DVT , PURGE INBOUND PROCESSING 07400000 * 07450000 FUNCT PROC=ISTDCC81 07500000 * 07550000 IDFBKST2 DVT , EXTENSION OF FB START 07600000 * 07650000 FUNCT PROC=ISTDCC35 07700000 FUNCT PROC=ISTDCC32 07750000 EJECT 07800000 *********************************************************************** 07850000 * 07900000 ISTTPOBP DVT , TPIOS OUTBOUND PROCESSOR 07950000 SPACE 08000000 * REMOTE DEVICE SCHEDULER 08050000 SPACE 08100000 FUNCT PROC=ISTZAF0B,ATTACH=R,CU=(SA,,CLCM,MCOMP) 08150000 FUNCT PROC=ISTZDFL0,ATTACH=R,CU=(,CLUS,,) 08200000 FUNCT PROC=ISTZAF0A,ATTACH=L 08250000 SPACE 08300000 * LCCW TO BTU TRANSLATOR 08350000 SPACE 08400000 FUNCT PROC=ISTZBF0B,ATTACH=R 08450000 FUNCT PROC=ISTZBF0A,ATTACH=L 08500000 SPACE 08550000 * DIALOG SCHEDULER 08600000 SPACE 08650000 FUNCT PROC=ISTZCF0B,ATTACH=R,EXCEPT=32XX 08700000 FUNCT PROC=ISTZCFAI,ATTACH=R,DVC=32XX 08750000 FUNCT PROC=ISTZCF0A,ATTACH=L 08800000 SPACE 08850000 * SESSION SCHEDULER 08900000 SPACE 08950000 FUNCT PROC=ISTZBFND,ATTACH=R,CU=(,,,MCOMP),LINE=(,PP,) 09000000 FUNCT PROC=ISTZBFNB,ATTACH=R,CU=(,,,MCOMP),LINE=(,MP,) 09050000 FUNCT PROC=ISTZBFNB,ATTACH=R,CU=(SA,,CLCM,),LINE=(NS,,) 09100000 FUNCT PROC=ISTZBFNE,ATTACH=R,CU=(SA,,,),LINE=(S,,) 09150000 FUNCT PROC=ISTZDFL0,ATTACH=L 09350000 SPACE 09400000 * READ 09450000 SPACE 09500000 FUNCT PROC=ISTZBFAB,ATTACH=R,CU=(SA,,,MCOMP),LINE=(NS,,) 09550000 FUNCT PROC=ISTZBFAG,ATTACH=R,CU=(SA,,,),LINE=(S,,BSC) 09600000 FUNCT PROC=ISTZBFAE,ATTACH=R,CU=(SA,,,),LINE=(S,,SS), *09650000 EXCEPT=TWX 09700000 FUNCT PROC=ISTZBFAG,ATTACH=R,DVC=TWX,LINE=(S,,SS) 09750000 FUNCT PROC=ISTZBFAI,ATTACH=R,CU=(,,CLCM,),LINE=(NS,,) 09800000 FUNCT PROC=ISTZBFAA,ATTACH=L 09850000 SPACE 09900000 * WRITE 09950000 SPACE 10000000 FUNCT PROC=ISTZBFBB,ATTACH=R,CU=(SA,,,MCOMP) 10050000 FUNCT PROC=ISTZBFBI,ATTACH=R,CU=(,,CLCM,),LINE=(NS,,) 10100000 FUNCT PROC=ISTZBFBA,ATTACH=L 10150000 SPACE 10200000 * WRITE SOH 10250000 SPACE 10300000 FUNCT PROC=ISTZBFCB,ATTACH=R,CU=(SA,,,MCOMP),LINE=(,,BSC) 10350000 FUNCT PROC=ISTZBFX0,ATTACH=R,LINE=(,,SS) 10400000 FUNCT PROC=ISTZBFX0,ATTACH=R,CU=(,,CLCM,) 10450000 FUNCT PROC=ISTZBFXA,ATTACH=L 10500000 SPACE 10550000 * COPY 10600000 SPACE 10650000 FUNCT PROC=ISTZBFX0,ATTACH=R,CU=(SA,,,MCOMP) 10700000 FUNCT PROC=ISTZBFDI,ATTACH=R,CU=(,,CLCM,) 10750000 FUNCT PROC=ISTZBFXA,ATTACH=L 10800000 SPACE 10850000 * WRITE CONTROL 10900000 SPACE 10950000 FUNCT PROC=ISTZBFEB,ATTACH=R,CU=(SA,,,MCOMP) 11000000 FUNCT PROC=ISTZBFX0,ATTACH=R,CU=(,,CLCM,) 11050000 FUNCT PROC=ISTZBFXA,ATTACH=L 11100000 SPACE 11150000 * RESET 11200000 SPACE 11250000 FUNCT PROC=ISTZBFFB,ATTACH=R 11300000 FUNCT PROC=ISTZBFFA,ATTACH=L 11350000 SPACE 11400000 * CONTROL (INVALID) 11450000 SPACE 11500000 FUNCT PROC=ISTZBFX0,ATTACH=R 11550000 FUNCT PROC=ISTZBFXA,ATTACH=L 11600000 SPACE 11650000 * CONTACT 11700000 SPACE 11750000 FUNCT PROC=ISTZBFHB,ATTACH=R 11800000 FUNCT PROC=ISTZBFHA,ATTACH=L 11850000 SPACE 11900000 * DISCONNECT 11950000 SPACE 12000000 FUNCT PROC=ISTZBFIB,ATTACH=R 12050000 FUNCT PROC=ISTZBFIA,ATTACH=L 12100000 SPACE 12150000 * TEST LCCW 12200000 SPACE 12250000 FUNCT PROC=ISTZBFX0,ATTACH=R 12300000 FUNCT PROC=ISTZBFXA,ATTACH=L 12350000 SPACE 12400000 * PREEMPT 12450000 SPACE 12500000 FUNCT PROC=ISTZBFX0,ATTACH=R @X04BHDA 12550000 FUNCT PROC=ISTZBFXA,ATTACH=L @X04BHDA 12600000 SPACE 12650000 * RESTORE 12700000 SPACE 12750000 FUNCT PROC=ISTZBFX0,ATTACH=R @X04BHDA 12800000 FUNCT PROC=ISTZBFXA,ATTACH=L @X04BHDA 12850000 SPACE 12900000 * INVALID COMMAND 12950000 SPACE 13000000 FUNCT PROC=ISTZBFX0,ATTACH=R 13050000 FUNCT PROC=ISTZBFXA,ATTACH=L 13100000 SPACE 13150000 * SEND LCCW 13200000 SPACE 13250000 FUNCT PROC=ISTZBFX0,ATTACH=R 13300000 FUNCT PROC=ISTZBFXA,ATTACH=L 13350000 SPACE 13400000 * PREEMPT COMPLETION 13450000 SPACE 13500000 FUNCT PROC=ISTZIFX0 @X04BHDA 13550000 SPACE 13600000 * RESET CLEANUP (PHASE 1) 13650000 SPACE 13700000 FUNCT PROC=ISTZIFSB 13750000 SPACE 13800000 * RESET CLEANUP (PHASE 3) 13850000 SPACE 13900000 FUNCT PROC=ISTZIFUB 13950000 SPACE 14000000 * RESET CLEANUP (PHASE 4) 14050000 SPACE 14100000 FUNCT PROC=ISTZIFVB,ATTACH=R 14150000 FUNCT PROC=ISTZDFL0,ATTACH=L 14200000 SPACE 14250000 * SESSION CONTROL 14300000 SPACE 14350000 FUNCT PROC=ISTZDFL0 14400000 ISTTPIBP DVT , TPIOS INBOUND PROCESSOR 14450000 SPACE 14500000 * REQUEST COMPLETION CONTROL 14550000 SPACE 14600000 FUNCT PROC=ISTZIF0B,ATTACH=R,CU=(SA,,CLCM,MCOMP) 14650000 FUNCT PROC=ISTZDFL0,ATTACH=R,CU=(,CLUS,,) 14700000 FUNCT PROC=ISTZGF0A,ATTACH=L 14750000 SPACE 14800000 * DIALOG SCHEDULER 14850000 SPACE 14900000 FUNCT PROC=ISTZCFCI @X04BHDA 14950000 SPACE 15000000 * DEVICE STATUS CONTROLLER 15050000 SPACE 15100000 FUNCT PROC=ISTZJF0B,ATTACH=R 15150000 FUNCT PROC=ISTZDFL0,ATTACH=L 15200000 SPACE 15250000 * NRP DISCONNECT PHASE 15300000 SPACE 15350000 FUNCT PROC=ISTZJFBB,ATTACH=R,CU=(SA,,,MCOMP),LINE=(NS,,) 15400000 FUNCT PROC=ISTZDFL0,ATTACH=R,CU=(,,CLCM,) 15450000 FUNCT PROC=ISTZDFL0,ATTACH=R,LINE=(S,,) 15500000 FUNCT PROC=ISTZDFL0,ATTACH=L 15550000 SPACE 15600000 * NRP RESET PHASE 15650000 SPACE 15700000 FUNCT PROC=ISTZJFAB,ATTACH=R,LINE=(NS,,),CU=(SA,,,MCOMP) 15750000 FUNCT PROC=ISTZDFL0,ATTACH=R,CU=(,,CLCM,) 15800000 FUNCT PROC=ISTZDFL0,ATTACH=R,LINE=(S,,) 15850000 FUNCT PROC=ISTZDFL0,ATTACH=L 15900000 SPACE 15950000 * NRP INVITE PHASE 16000000 SPACE 16050000 FUNCT PROC=ISTZJFCB,ATTACH=R,LINE=(NS,,),CU=(SA,,,MCOMP) 16100000 FUNCT PROC=ISTZDFL0,ATTACH=R,CU=(,,CLCM,) 16150000 FUNCT PROC=ISTZDFL0,ATTACH=R,LINE=(S,,) 16200000 FUNCT PROC=ISTZDFL0,ATTACH=L 16250000 SPACE 16300000 * RESCHEDULE STATE 16350000 SPACE 16400000 FUNCT PROC=ISTZIFAB,ATTACH=R 16450000 FUNCT PROC=ISTZDFL0,ATTACH=L 16500000 SPACE 16550000 * PREEMPT PENDING STATE 16600000 SPACE 16650000 FUNCT PROC=ISTZDFL0 @X04BHDA 16700000 SPACE 16750000 * READ COMPLETION 16800000 SPACE 16850000 FUNCT PROC=ISTZIFLB,ATTACH=R,CU=(SA,,,MCOMP) 16900000 FUNCT PROC=ISTZIFKB,ATTACH=R,CU=(,,CLCM,) 16950000 FUNCT PROC=ISTZDFL0,ATTACH=L 17000000 SPACE 17050000 * INVITE COMPLETION 17100000 SPACE 17150000 FUNCT PROC=ISTZIFKB,ATTACH=R 17200000 FUNCT PROC=ISTZDFL0,ATTACH=L 17250000 SPACE 17300000 * WRITE COMPLETION 17350000 SPACE 17400000 FUNCT PROC=ISTZIFMB,ATTACH=R 17450000 FUNCT PROC=ISTZDFL0,ATTACH=L 17500000 SPACE 17550000 * CONTACT DISCONNECT COMPLETION 17600000 SPACE 17650000 FUNCT PROC=ISTZIFOB,ATTACH=R 17700000 FUNCT PROC=ISTZIFOA,ATTACH=L 17750000 SPACE 17800000 * RESET COMMAND COMPLETION 17850000 SPACE 17900000 FUNCT PROC=ISTZIFNB,ATTACH=R 17950000 FUNCT PROC=ISTZIFNA,ATTACH=L 18000000 SPACE 18050000 * TEST COMPLETION COMMAND 18100000 SPACE 18150000 FUNCT PROC=ISTZIFX0 18200000 SPACE 18250000 * CONTROL COMMAND 18300000 SPACE 18350000 FUNCT PROC=ISTZGFBB 18400000 SPACE 18450000 * PREEMPT COMPLETION 18500000 SPACE 18550000 FUNCT PROC=ISTZIFX0 @X04BHDA 18600000 SPACE 18650000 * OUTPUT COMPLETION STATUS ANALYSIS 18700000 SPACE 18750000 FUNCT PROC=ISTZIFEB,ATTACH=R 18800000 FUNCT PROC=ISTZDFL0,ATTACH=L 18850000 SPACE 18900000 * OUTPUT ERROR STATUS ANALYSIS 18950000 SPACE 19000000 FUNCT PROC=ISTZIFDB,ATTACH=R 19050000 FUNCT PROC=ISTZDFL0,ATTACH=L 19100000 SPACE 19150000 * INPUT COMPLETION STATUS ANALYSIS 19200000 SPACE 19250000 FUNCT PROC=ISTZIFCB,ATTACH=R,CU=(SA,,,MCOMP) 19300000 FUNCT PROC=ISTZIFCI,ATTACH=R,CU=(,,CLCM,),LINE=(NS,,) 19350000 FUNCT PROC=ISTZDFL0,ATTACH=L 19400000 SPACE 19450000 * INPUT ERROR STATUS ANALYSIS 19500000 SPACE 19550000 FUNCT PROC=ISTZIFBB,ATTACH=R,CU=(SA,,,MCOMP) 19600000 FUNCT PROC=ISTZIFBI,ATTACH=R,CU=(,,CLCM,),LINE=(NS,,) 19650000 FUNCT PROC=ISTZDFL0,ATTACH=L 19700000 SPACE 19750000 * CONTACT DISCONNECT COMPLETION STATUS ANALYSIS 19800000 SPACE 19850000 FUNCT PROC=ISTZIFHB,ATTACH=R 19900000 FUNCT PROC=ISTZDFL0,ATTACH=L 19950000 SPACE 20000000 * CONTACT ERROR ANALYSIS 20050000 SPACE 20100000 FUNCT PROC=ISTZIFGB,ATTACH=R 20150000 FUNCT PROC=ISTZDFL0,ATTACH=L 20200000 SPACE 20250000 * COMMAND RESET COMPLETION 20300000 SPACE 20350000 FUNCT PROC=ISTZIFAB,ATTACH=R 20400000 FUNCT PROC=ISTZIFAA,ATTACH=L 20450000 SPACE 20500000 * LOGICAL ERROR RECOVERY 20550000 SPACE 20600000 FUNCT PROC=ISTZIFIB,ATTACH=R 20650000 FUNCT PROC=ISTZDFL0,ATTACH=L 20700000 SPACE 20750000 * INVALID DEVICE COMMAND 20800000 SPACE 20850000 FUNCT PROC=ISTZIFX0 20900000 SPACE 20950000 * RESET CLEANUP (PHASE 1) 21000000 SPACE 21050000 FUNCT PROC=ISTZIFSB,ATTACH=R 21100000 FUNCT PROC=ISTZDFL0,ATTACH=L 21150000 SPACE 21200000 * RESET CLEANUP (PHASE 2) 21250000 SPACE 21300000 FUNCT PROC=ISTZIFTB 21350000 SPACE 21400000 * DIAL DISCONNECT 21450000 SPACE 21500000 FUNCT PROC=ISTZKFBB,ATTACH=R,LINE=(NS,,) 21550000 FUNCT PROC=ISTZKFBN,ATTACH=R,LINE=(S,,),CU=(SA,,,MCOMP) 21600000 FUNCT PROC=ISTZDFL0,ATTACH=R,CU=(,,CLCM,),LINE=(S,,) 21650000 FUNCT PROC=ISTZDFL0,ATTACH=L 21700000 SPACE 21750000 * MANUAL DIAL 21800000 SPACE 21850000 FUNCT PROC=ISTZKFCB,ATTACH=R,LINE=(NS,,) 21900000 FUNCT PROC=ISTZKFCN,ATTACH=R,LINE=(S,,),CU=(SA,,,MCOMP) 21950000 FUNCT PROC=ISTZDFL0,ATTACH=R,LINE=(S,,),CU=(,,CLCM,) 22000000 FUNCT PROC=ISTZDFL0,ATTACH=L 22050000 SPACE 22060000 * UNSOLICITED BTU PROCESSOR 22100000 SPACE 22150000 FUNCT PROC=ISTZIFJB 22200000 SPACE 22250000 * SEGMENT PROCESSOR 22300000 SPACE 22350000 FUNCT PROC=ISTZDFWB 22400000 ISTATOBP DVT 22450000 SPACE 22500000 FUNCT PROC=ISTZDFL0 22550000 * 22600000 ISTDVCBA ENDMODE , 22650000 END 22700000