ISTYTCM1 STRTMODE SKELETON DVT FOR TCAMI REQUEST MODE (VS2) 00050000 *A-000000-999999 XL03HBS 00200000 * 00250000 ********************************************************************** 00300000 * 00350000 ISTCLOBP DVT START C L OUTBOUND PROCESSING 00400000 * 00450000 FUNCT PROC=IEDIAE /* OR ISTCMOAB */ 00500000 FUNCT PROC=ISTDCC80 00550000 * 00600000 *********************************************************************** 00650000 * 00700000 IDPURGEO DVT 00750000 * 00800000 FUNCT PROC=ISTDCC80 00850000 * 00900000 *********************************************************************** 00950000 * 01000000 ISTCLIBP DVT START C L INBOUND PROCESSING 01050000 * 01100000 FUNCT PROC=IEDIAE /* OR ISTCMAIB */ 01150000 FUNCT PROC=ISTDCC81 01200000 * 01250000 *********************************************************************** 01300000 * 01350000 IDPURGEI DVT 01400000 * 01450000 FUNCT PROC=ISTDCC81 01500000 * 01550000 *********************************************************************** 01600000 * 01650000 ISTTPOBP DVT START TPIOS OUTBOUND PROCESSING 01700000 SPACE 01750000 * REMOTE DEVICE SCHEDULER 01800000 SPACE 01850000 FUNCT PROC=ISTZAF0B,ATTACH=R,CU=(SA,,CLCM,MCOMP) @XM8265K 01900000 FUNCT PROC=ISTZDFL0,ATTACH=R,CU=(,CLUS,,) 01950000 * @XM8265K 02000000 * @XM8265K 02050000 FUNCT PROC=ISTZAF0A,ATTACH=L 02100000 SPACE 02150000 * LCCW TO BTU TRANSLATOR 02200000 SPACE 02250000 FUNCT PROC=ISTZBF0B,ATTACH=R 02300000 FUNCT PROC=ISTZBF0A,ATTACH=L 02350000 SPACE 02400000 * DIALOG SCHEDULER 02450000 SPACE 02500000 FUNCT PROC=ISTZCF0B,ATTACH=R,EXCEPT=32XX 02550000 FUNCT PROC=ISTZCFAI,ATTACH=R,DVC=32XX 02600000 FUNCT PROC=ISTZCF0A,ATTACH=L 02650000 SPACE 02700000 * SESSION SCHEDULER 02750000 SPACE 02800000 FUNCT PROC=ISTZBFND,ATTACH=R,CU=(,,,MCOMP),LINE=(,PP,) 02850000 FUNCT PROC=ISTZBFNB,ATTACH=R,CU=(,,,MCOMP),LINE=(,MP,) 02900000 FUNCT PROC=ISTZBFNB,ATTACH=R,CU=(SA,,CLCM,),LINE=(NS,,) 02950000 FUNCT PROC=ISTZBFNE,ATTACH=R,CU=(SA,,,),LINE=(S,,) 03000000 FUNCT PROC=ISTZDFL0,ATTACH=L 03050000 SPACE 03100000 * READ 03150000 SPACE 03200000 FUNCT PROC=ISTZBFAB,ATTACH=R,CU=(SA,,,MCOMP),LINE=(NS,,) 03250000 FUNCT PROC=ISTZBFAG,ATTACH=R,CU=(SA,,,),LINE=(S,,BSC) 03300000 FUNCT PROC=ISTZBFAE,ATTACH=R,CU=(SA,,,),LINE=(S,,SS), *03350000 EXCEPT=TWX 03400000 FUNCT PROC=ISTZBFAG,ATTACH=R,DVC=TWX,LINE=(S,,SS) 03450000 FUNCT PROC=ISTZBFAI,ATTACH=R,CU=(,,CLCM,),LINE=(NS,,) 03500000 FUNCT PROC=ISTZBFAA,ATTACH=L 03550000 SPACE 03600000 * WRITE 03650000 SPACE 03700000 FUNCT PROC=ISTZBFBB,ATTACH=R,CU=(SA,,,MCOMP) 03750000 FUNCT PROC=ISTZBFBI,ATTACH=R,CU=(,,CLCM,),LINE=(NS,,) 03800000 FUNCT PROC=ISTZBFBA,ATTACH=L 03850000 SPACE 03900000 * WRITE SOH 03950000 SPACE 04000000 FUNCT PROC=ISTZBFCB,ATTACH=R,CU=(SA,,,MCOMP),LINE=(,,BSC) 04050000 FUNCT PROC=ISTZBFX0,ATTACH=R,LINE=(,,SS) 04100000 FUNCT PROC=ISTZBFX0,ATTACH=R,CU=(,,CLCM,) 04150000 FUNCT PROC=ISTZBFXA,ATTACH=L 04200000 SPACE 04250000 * COPY 04300000 SPACE 04350000 FUNCT PROC=ISTZBFX0,ATTACH=R,CU=(SA,,,MCOMP) 04400000 FUNCT PROC=ISTZBFDI,ATTACH=R,CU=(,,CLCM,) 04450000 FUNCT PROC=ISTZBFXA,ATTACH=L 04500000 SPACE 04550000 * WRITE CONTROL 04600000 SPACE 04650000 FUNCT PROC=ISTZBFEB,ATTACH=R,CU=(SA,,,MCOMP) @XM8265K 04700000 * @XM8265K 04750000 FUNCT PROC=ISTZBFX0,ATTACH=R,CU=(,,CLCM,) 04800000 FUNCT PROC=ISTZBFXA,ATTACH=L 04850000 SPACE 04900000 * RESET 04950000 SPACE 05000000 FUNCT PROC=ISTZBFFB,ATTACH=R 05050000 FUNCT PROC=ISTZBFFA,ATTACH=L 05100000 SPACE 05150000 * CONTROL (INVALID) 05200000 SPACE 05250000 FUNCT PROC=ISTZBFX0,ATTACH=R 05300000 FUNCT PROC=ISTZBFXA,ATTACH=L 05350000 SPACE 05400000 * CONTACT 05450000 SPACE 05500000 FUNCT PROC=ISTZBFHB,ATTACH=R 05550000 FUNCT PROC=ISTZBFHA,ATTACH=L 05600000 SPACE 05650000 * DISCONNECT 05700000 SPACE 05750000 FUNCT PROC=ISTZBFIB,ATTACH=R 05800000 FUNCT PROC=ISTZBFIA,ATTACH=L 05850000 SPACE 05900000 * TEST LCCW 05950000 SPACE 06000000 FUNCT PROC=ISTZBFX0,ATTACH=R 06050000 FUNCT PROC=ISTZBFXA,ATTACH=L 06100000 SPACE 06150000 * PREEMPT 06200000 SPACE 06250000 FUNCT PROC=ISTZBFX0,ATTACH=R @X04BHDA 06300000 FUNCT PROC=ISTZBFXA,ATTACH=L @X04BHDA 06350000 SPACE 06400000 * RESTORE 06450000 SPACE 06500000 FUNCT PROC=ISTZBFX0,ATTACH=R @X04BHDA 06550000 FUNCT PROC=ISTZBFXA,ATTACH=L @X04BHDA 06600000 SPACE 06650000 * INVALID COMMAND 06700000 SPACE 06750000 FUNCT PROC=ISTZBFX0,ATTACH=R 06800000 FUNCT PROC=ISTZBFXA,ATTACH=L 06850000 SPACE 06900000 * SEND LCCW 06950000 SPACE 07000000 FUNCT PROC=ISTZBFX0,ATTACH=R 07050000 FUNCT PROC=ISTZBFXA,ATTACH=L 07100000 SPACE 07150000 * PREEMPT COMPLETION 07200000 SPACE 07250000 FUNCT PROC=ISTZIFX0 @X04BHDA 07300000 SPACE 07350000 * RESET CLEANUP (PHASE 1) 07400000 SPACE 07450000 FUNCT PROC=ISTZIFSB 07500000 SPACE 07550000 * RESET CLEANUP (PHASE 3) 07600000 SPACE 07650000 FUNCT PROC=ISTZIFUB 07700000 SPACE 07750000 * RESET CLEANUP (PHASE 4) 07800000 SPACE 07850000 FUNCT PROC=ISTZIFVB,ATTACH=R 07900000 FUNCT PROC=ISTZDFL0,ATTACH=L 07950000 SPACE 08000000 * SESSION CONTROL 08050000 SPACE 08100000 FUNCT PROC=ISTZDFL0 08150000 * 08200000 ********************************************************************** 08250000 * 08300000 ISTTPIBP DVT START TPIOS INBOUND PROCESSING 08350000 SPACE 08400000 * REQUEST COMPLETION CONTROL 08450000 SPACE 08500000 FUNCT PROC=ISTZIF0B,ATTACH=R,CU=(SA,,CLCM,MCOMP) @XM8265K 08550000 * @XM8265K 08600000 FUNCT PROC=ISTZDFL0,ATTACH=R,CU=(,CLUS,,) 08650000 * @XM8265K 08700000 FUNCT PROC=ISTZGF0A,ATTACH=L 08750000 SPACE 08800000 * DIALOG SCHEDULER 08850000 SPACE 08900000 FUNCT PROC=ISTZCFCI @X04BHDA 08950000 SPACE 09000000 * DEVICE STATUS CONTROLLER 09050000 SPACE 09100000 FUNCT PROC=ISTZJF0B,ATTACH=R 09150000 FUNCT PROC=ISTZDFL0,ATTACH=L 09200000 SPACE 09250000 * NRP DISCONNECT PHASE 09300000 SPACE 09350000 FUNCT PROC=ISTZJFBB,ATTACH=R,CU=(SA,,,MCOMP),LINE=(NS,,) 09400000 FUNCT PROC=ISTZDFL0,ATTACH=R,CU=(,,CLCM,) 09450000 FUNCT PROC=ISTZDFL0,ATTACH=R,LINE=(S,,) 09500000 FUNCT PROC=ISTZDFL0,ATTACH=L 09550000 SPACE 09600000 * NRP RESET PHASE 09650000 SPACE 09700000 FUNCT PROC=ISTZJFAB,ATTACH=R,LINE=(NS,,),CU=(SA,,,MCOMP) 09750000 FUNCT PROC=ISTZDFL0,ATTACH=R,CU=(,,CLCM,) 09800000 FUNCT PROC=ISTZDFL0,ATTACH=R,LINE=(S,,) 09850000 FUNCT PROC=ISTZDFL0,ATTACH=L 09900000 SPACE 09950000 * NRP INVITE PHASE 10000000 SPACE 10050000 FUNCT PROC=ISTZJFCB,ATTACH=R,LINE=(NS,,),CU=(SA,,,MCOMP) 10100000 FUNCT PROC=ISTZDFL0,ATTACH=R,CU=(,,CLCM,) 10150000 FUNCT PROC=ISTZDFL0,ATTACH=R,LINE=(S,,) 10200000 FUNCT PROC=ISTZDFL0,ATTACH=L 10250000 SPACE 10300000 * RESCHEDULE STATE 10350000 SPACE 10400000 FUNCT PROC=ISTZIFAB,ATTACH=R 10450000 FUNCT PROC=ISTZDFL0,ATTACH=L 10500000 SPACE 10550000 * PREEMPT PENDING STATE 10600000 SPACE 10650000 FUNCT PROC=ISTZDFL0 @X04BHDA 10700000 SPACE 10750000 * READ COMPLETION 10800000 SPACE 10850000 FUNCT PROC=ISTZIFLB,ATTACH=R,CU=(SA,,,MCOMP) 10900000 FUNCT PROC=ISTZIFKB,ATTACH=R,CU=(,,CLCM,) 10950000 FUNCT PROC=ISTZDFL0,ATTACH=L 11000000 SPACE 11050000 * INVITE COMPLETION 11100000 SPACE 11150000 FUNCT PROC=ISTZIFKB,ATTACH=R 11200000 FUNCT PROC=ISTZDFL0,ATTACH=L 11250000 SPACE 11300000 * WRITE COMPLETION 11350000 SPACE 11400000 FUNCT PROC=ISTZIFMB,ATTACH=R 11450000 FUNCT PROC=ISTZDFL0,ATTACH=L 11500000 SPACE 11550000 * CONTACT DISCONNECT COMPLETION 11600000 SPACE 11650000 FUNCT PROC=ISTZIFOB,ATTACH=R 11700000 FUNCT PROC=ISTZIFOA,ATTACH=L 11750000 SPACE 11800000 * RESET COMMAND COMPLETION 11850000 SPACE 11900000 FUNCT PROC=ISTZIFNB,ATTACH=R 11950000 FUNCT PROC=ISTZIFNA,ATTACH=L 12000000 SPACE 12050000 * TEST COMPLETION COMMAND 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 @X04BHDA 12600000 SPACE 12650000 * OUTPUT COMPLETION STATUS ANALYSIS 12700000 SPACE 12750000 FUNCT PROC=ISTZIFEB,ATTACH=R 12800000 FUNCT PROC=ISTZDFL0,ATTACH=L 12850000 SPACE 12900000 * OUTPUT ERROR STATUS ANALYSIS 12950000 SPACE 13000000 FUNCT PROC=ISTZIFDB,ATTACH=R 13050000 FUNCT PROC=ISTZDFL0,ATTACH=L 13100000 SPACE 13150000 * INPUT COMPLETION STATUS ANALYSIS 13200000 SPACE 13250000 FUNCT PROC=ISTZIFCB,ATTACH=R,CU=(SA,,,MCOMP) 13300000 FUNCT PROC=ISTZIFCI,ATTACH=R,CU=(,,CLCM,),LINE=(NS,,) 13350000 FUNCT PROC=ISTZDFL0,ATTACH=L 13400000 SPACE 13450000 * INPUT ERROR STATUS ANALYSIS 13500000 SPACE 13550000 FUNCT PROC=ISTZIFBB,ATTACH=R,CU=(SA,,,MCOMP) 13600000 FUNCT PROC=ISTZIFBI,ATTACH=R,CU=(,,CLCM,),LINE=(NS,,) 13650000 FUNCT PROC=ISTZDFL0,ATTACH=L 13700000 SPACE 13750000 * CONTACT DISCONNECT COMPLETION STATUS ANALYSIS 13800000 SPACE 13850000 FUNCT PROC=ISTZIFHB,ATTACH=R 13900000 FUNCT PROC=ISTZDFL0,ATTACH=L 13950000 SPACE 14000000 * CONTACT ERROR ANALYSIS 14050000 SPACE 14100000 FUNCT PROC=ISTZIFGB,ATTACH=R 14150000 FUNCT PROC=ISTZDFL0,ATTACH=L 14200000 SPACE 14250000 * COMMAND RESET COMPLETION 14300000 SPACE 14350000 FUNCT PROC=ISTZIFAB,ATTACH=R 14400000 FUNCT PROC=ISTZIFAA,ATTACH=L 14450000 SPACE 14500000 * LOGICAL ERROR RECOVERY 14550000 SPACE 14600000 FUNCT PROC=ISTZIFIB,ATTACH=R 14650000 FUNCT PROC=ISTZDFL0,ATTACH=L 14700000 SPACE 14750000 * INVALID DEVICE COMMAND 14800000 SPACE 14850000 FUNCT PROC=ISTZIFX0 14900000 SPACE 14950000 * RESET CLEANUP (PHASE 1) 15000000 SPACE 15050000 FUNCT PROC=ISTZIFSB,ATTACH=R 15100000 FUNCT PROC=ISTZDFL0,ATTACH=L 15150000 SPACE 15200000 * RESET CLEANUP (PHASE 2) 15250000 SPACE 15300000 FUNCT PROC=ISTZIFTB 15350000 SPACE 15400000 * DIAL DISCONNECT 15450000 SPACE 15500000 FUNCT PROC=ISTZKFBB,ATTACH=R,LINE=(NS,,) 15550000 FUNCT PROC=ISTZKFBN,ATTACH=R,LINE=(S,,),CU=(SA,,,MCOMP) 15600000 FUNCT PROC=ISTZDFL0,ATTACH=R,CU=(,,CLCM,),LINE=(S,,) @XM8265K 15650000 FUNCT PROC=ISTZDFL0,ATTACH=L 15700000 SPACE 15750000 * MANUAL DIAL 15800000 SPACE 15850000 FUNCT PROC=ISTZKFCB,ATTACH=R,LINE=(NS,,) 15900000 FUNCT PROC=ISTZKFCN,ATTACH=R,LINE=(S,,),CU=(SA,,,MCOMP) 15950000 FUNCT PROC=ISTZDFL0,ATTACH=R,LINE=(S,,),CU=(,,CLCM,) 16000000 FUNCT PROC=ISTZDFL0,ATTACH=L 16050000 SPACE 16100000 * UNSOLICITED BTU PROCESSOR 16150000 SPACE 16200000 FUNCT PROC=ISTZIFJB 16250000 SPACE 16300000 * SEGMENT PROCESSOR 16350000 SPACE 16400000 FUNCT PROC=ISTZDFWB 16450000 * 16500000 ********************************************************************** 16550000 * 16600000 ISTATOBP DVT 16650000 FUNCT PROC=ISTZDFL0 16700000 * 16750000 ********************************************************************** 16800000 * 16850000 ISTYTCM1 ENDMODE 16900000 END 16950000