* /* START OF SPECIFICATIONS **** 00050000 * PROLOGUE 00100000 * 00150000 *01* MINI-MODULE-NAME = ISTYTCM3 00200000 * 00250000 *01* FUNCTIONS = TO CREATE A SKELETEL DVT CONTAINING THE PROCESS 00300000 * MODULES NEEDED TO BE USED ALONG WITH THE NECESSARY 00350000 * QUALIFIERS SO AS THE PROPER FUNCTIONS ARE SELECTED 00400000 * AS PER DEVICE TYPE USED 00450000 * NOTE -- SEE FUNCT MACRO FOR QUALIFYING ARGUMENTS 00500000 * 00550000 *01* MODULE-SIZE = 4340-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 AND THE CORRECT 01000000 * PROCESSES RETAINED BY MATCHING FUNCTION QUALIFIERS 01050000 * WITH RESOURCE DEFINITION TABLE ENTRY INFO 01100000 * 01150000 *01* INPUT-OUTPUT = NONE 01200000 * 01250000 *01* CHANGE-ACTIVITY = NONE 01300000 * OZ29837 LOCAL 3790 TCAM NOT SUPPORTED BY VTAM @ZA29837 01320000 * 01350000 **** END OF SPECIFICATIONS ***/ 01400000 ISTYTCM3 STRTMODE , DVT FOR ISTYTCM3 (VS2) 01450000 *A-000000-999999 XL03HBS 01600000 * 01650000 *********************************************************************** 01700000 * 01750000 ISTCLOBP DVT , START C L OUTBOUND PROCESSING 01800000 * 01850000 FUNCT PROC=IEDIAK 01900000 * 01950000 *********************************************************************** 02000000 * 02050000 ISTCLIBP DVT , START C L INBOUND PROCESSING 02100000 * 02150000 FUNCT PROC=IEDIAK 02200000 * 02250000 *********************************************************************** 02300000 * 02350000 ISTTPOBP DVT , OUTBOUND- CONTROL MODE 02400000 SPACE 02450000 * REMOTE DEVICE SCHEDULER 02500000 SPACE 02550000 FUNCT PROC=ISTZAF1B,EXCEPT=32XX 02600000 FUNCT PROC=ISTZAF0B,ATTACH=R,DVC=32XX 02650000 FUNCT PROC=ISTZAF0A,ATTACH=L,DVC=32XX 02700000 SPACE 02750000 * LCCW TO BTU TRANSLATOR 02800000 SPACE 02850000 FUNCT PROC=ISTZBF0B,EXCEPT=32XX @ZA29837 02900000 FUNCT PROC=ISTZBF0L,ATTACH=L,DVC=32XX 02920000 FUNCT PROC=ISTZBF0B,ATTACH=R,DVC=32XX @ZA29837 02940000 SPACE 03000000 * DIALOG SCHEDULER 03050000 SPACE 03100000 FUNCT PROC=ISTZDFL0,EXCEPT=32XX 03150000 FUNCT PROC=ISTZCFAI,ATTACH=R,DVC=32XX 03200000 FUNCT PROC=ISTZCF0A,ATTACH=L,DVC=32XX 03250000 SPACE 03300000 * SESSION SCHEDULER 03350000 SPACE 03400000 FUNCT PROC=ISTZDFL0,EXCEPT=32XX 03450000 FUNCT PROC=ISTZBFNB,ATTACH=R,DVC=32XX 03500000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 03550000 SPACE 03600000 * READ 03650000 SPACE 03700000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 03750000 FUNCT PROC=ISTZBFAR,ATTACH=R,DVC=32XX 03800000 FUNCT PROC=ISTZBFAL,ATTACH=L,DVC=32XX 03850000 SPACE 03900000 * WRITE 03950000 SPACE 04000000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 04050000 FUNCT PROC=ISTZBFBR,ATTACH=R,DVC=32XX 04100000 FUNCT PROC=ISTZBFBA,ATTACH=L,DVC=32XX 04150000 SPACE 04200000 * WRITE SOH 04250000 SPACE 04300000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX @ZA29837 04350000 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX 04370000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX @ZA29837 04390000 SPACE 04450000 * COPY 04500000 SPACE 04550000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 04600000 FUNCT PROC=ISTZBFDR,ATTACH=R,DVC=32XX 04650000 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX 04700000 SPACE 04750000 * WRITE CONTROL 04800000 SPACE 04850000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX @ZA29837 04900000 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX 04920000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX @ZA29837 04940000 SPACE 05000000 * RESET 05050000 SPACE 05100000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 05150000 FUNCT PROC=ISTZBFFB,ATTACH=R,DVC=32XX 05200000 FUNCT PROC=ISTZBFFA,ATTACH=L,DVC=32XX 05250000 SPACE 05300000 * INVALID CONTROL 05350000 SPACE 05400000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX @ZA29837 05450000 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX 05470000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX @ZA29837 05490000 SPACE 05510000 * CONTACT 05530000 SPACE 05550000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX @ZA29837 05570000 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX @ZA29837 05590000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX @ZA29837 05610000 SPACE 05800000 * DISCONNECT 05850000 SPACE 05900000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 05950000 FUNCT PROC=ISTZBFIB,ATTACH=R,DVC=32XX 06000000 FUNCT PROC=ISTZBFIA,ATTACH=L,DVC=32XX 06050000 SPACE 06100000 * TEST LCCW 06150000 SPACE 06200000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX @ZA29837 06250000 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX 06280000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX @ZA29837 06310000 * PREEMPT 06400000 SPACE 06450000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 06500000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX @X04BHDA 06550000 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX @X04BHDA 06600000 SPACE 06650000 * RESTORE 06700000 SPACE 06750000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 06800000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX @X04BHDA 06850000 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX @X04BHDA 06900000 SPACE 06950000 * INVALID COMMAND 07000000 SPACE 07050000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX @ZA29837 07100000 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX 07110000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX @ZA29837 07140000 SPACE 07200000 * SEND LCCW 07250000 SPACE 07300000 FUNCT PROC=ISTZBFID,DVC=LU01,ATTACH=R @X50BHDA 07350000 FUNCT PROC=ISTZBFIF,DVC=LU01,ATTACH=L @X50BHDA 07400000 FUNCT PROC=ISTZDFL0,DVC=32XX 07450000 SPACE 07500000 * PREEMPT COMPLETION 07550000 SPACE 07600000 FUNCT PROC=ISTZDFL0,EXCEPT=32XX 07650000 FUNCT PROC=ISTZIFX0,DVC=32XX @X04BHDA 07700000 SPACE 07750000 * RESET CLEANUP (PHASE 1) 07800000 SPACE 07850000 FUNCT PROC=ISTZDFL0,EXCEPT=32XX 07900000 FUNCT PROC=ISTZIFSB,DVC=32XX 07950000 SPACE 08000000 * RESET CLEANUP (PHASE 3) 08050000 SPACE 08100000 FUNCT PROC=ISTZDFL0,EXCEPT=32XX 08150000 FUNCT PROC=ISTZIFUB,ATTACH=R,DVC=32XX 08200000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 08250000 SPACE 08300000 * RESET CLEANUP (PHASE 4) 08350000 SPACE 08400000 FUNCT PROC=ISTZDFL0,EXCEPT=32XX 08450000 FUNCT PROC=ISTZIFVB,DVC=32XX 08500000 SPACE 08550000 * SESSION CONTROL 08600000 SPACE 08650000 FUNCT PROC=ISTZBFSC,EXCEPT=32XX 08700000 FUNCT PROC=ISTZDFL0,DVC=32XX 08750000 ISTTPIBP DVT , INBOUND - CONTROL MODE 08800000 SPACE 08850000 * PIU ROUTER 08900000 SPACE 08950000 FUNCT PROC=ISTZIF1B,EXCEPT=32XX 09000000 SPACE 09050000 * FID1 PROCESSOR 09100000 SPACE 09150000 FUNCT PROC=ISTZIFID,EXCEPT=32XX 09200000 SPACE 09250000 * SESSION CONTROL 09300000 SPACE 09350000 FUNCT PROC=ISTZIFSC,EXCEPT=32XX 09400000 SPACE 09450000 * SEGMENTING PROCESSOR @X50BHDA 09500000 SPACE 09550000 FUNCT PROC=ISTZIFSG,EXCEPT=32XX @X50BHDA 09600000 SPACE 09650000 * REQUEST COMPLETION CONTROL 09700000 SPACE 09750000 FUNCT PROC=ISTZIF0B,ATTACH=R,DVC=32XX 09800000 FUNCT PROC=ISTZGF0A,ATTACH=L,DVC=32XX 09850000 SPACE 09900000 * DIALOG SCHED 09950000 SPACE 10000000 FUNCT PROC=ISTZCFCI,DVC=32XX 10050000 SPACE 10100000 * STATUS CONTROLLER 10150000 SPACE 10200000 FUNCT PROC=ISTZJF0B,ATTACH=R,DVC=32XX 10250000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 10300000 SPACE 10350000 * NEGATIVE RESPONSE TO POLLING 10400000 SPACE 10450000 FUNCT PROC=ISTZIFX0,ATTACH=R,DVC=32XX 10500000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 10550000 SPACE 10600000 * NRP RESET PHASE 10650000 SPACE 10700000 FUNCT PROC=ISTZIFX0,ATTACH=R,DVC=32XX 10750000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 10800000 SPACE 10850000 * NRP INVITE PHASE 10900000 SPACE 10950000 FUNCT PROC=ISTZIFX0,ATTACH=R,DVC=32XX 11000000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 11050000 SPACE 11100000 * RESCHEDULE STATE 11150000 SPACE 11200000 FUNCT PROC=ISTZIFAB,ATTACH=R,DVC=32XX 11250000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 11300000 SPACE 11350000 * PREEMPT PENDING STATE 11400000 SPACE 11450000 FUNCT PROC=ISTZDFL0,DVC=32XX @X04BHDA 11500000 SPACE 11550000 * READ COMPLETION 11600000 SPACE 11650000 FUNCT PROC=ISTZIFKB,ATTACH=R,DVC=32XX 11700000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 11750000 SPACE 11800000 * INVITE COMPLETION 11850000 SPACE 11900000 FUNCT PROC=ISTZIFKB,ATTACH=R,DVC=32XX 11950000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 12000000 SPACE 12050000 * WRITE COMPLETION 12100000 SPACE 12150000 FUNCT PROC=ISTZIFMB,ATTACH=R,DVC=32XX 12200000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 12250000 SPACE 12300000 * CONTACT DISCONNECT COMPLETION 12350000 SPACE 12400000 FUNCT PROC=ISTZIFOB,ATTACH=R,DVC=32XX 12450000 FUNCT PROC=ISTZIFOA,ATTACH=L,DVC=32XX 12500000 SPACE 12550000 * RESET COMMAND COMPLETION 12600000 SPACE 12650000 FUNCT PROC=ISTZIFNB,ATTACH=R,DVC=32XX 12700000 FUNCT PROC=ISTZIFNA,ATTACH=L,DVC=32XX 12750000 SPACE 12800000 * TEST COMPLETION COMMAND 12850000 SPACE 12900000 FUNCT PROC=ISTZIFX0,DVC=32XX 12950000 SPACE 13000000 * CONTROL COMMAND 13050000 SPACE 13100000 FUNCT PROC=ISTZGFBB,ATTACH=R,DVC=32XX 13150000 FUNCT PROC=ISTZIFX0,ATTACH=L,DVC=32XX 13200000 SPACE 13250000 * PREEMPT COMPLETION 13300000 SPACE 13350000 FUNCT PROC=ISTZIFX0,DVC=32XX @X04BHDA 13400000 SPACE 13450000 * OUTPUT COMPLETION STATUS ANALYSIS 13500000 SPACE 13550000 FUNCT PROC=ISTZIFEB,ATTACH=R,DVC=32XX 13600000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 13650000 SPACE 13700000 * OUTPUT ERROR STATUS ANALYSIS 13750000 SPACE 13800000 FUNCT PROC=ISTZIFDB,ATTACH=R,DVC=32XX 13850000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 13900000 SPACE 13950000 * INPUT COMPLETION STATUS ANALYSIS 14000000 SPACE 14050000 FUNCT PROC=ISTZIFCI,ATTACH=R,DVC=32XX 14100000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 14150000 SPACE 14200000 * INPUT ERROR STATUS ANALYSIS 14250000 SPACE 14300000 FUNCT PROC=ISTZIFBI,ATTACH=R,DVC=32XX 14350000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 14400000 SPACE 14450000 * CONTACT DISCONNECT COMPLETION STATUS ANALYSIS 14500000 SPACE 14550000 FUNCT PROC=ISTZIFHB,ATTACH=R,DVC=32XX 14600000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 14650000 SPACE 14700000 * CONTACT ERROR ANALYSIS 14750000 SPACE 14800000 FUNCT PROC=ISTZIFGB,ATTACH=R,DVC=32XX 14850000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 14900000 SPACE 14950000 * COMMAND RESET COMPLETION 15000000 SPACE 15050000 FUNCT PROC=ISTZIFAB,ATTACH=R,DVC=32XX 15100000 FUNCT PROC=ISTZIFAA,ATTACH=L,DVC=32XX 15150000 SPACE 15200000 * LOGICAL ERROR RECOVERY 15250000 SPACE 15300000 FUNCT PROC=ISTZIFIB,ATTACH=R,DVC=32XX 15350000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 15400000 SPACE 15450000 * INVALID DEVICE COMMAND 15500000 SPACE 15550000 FUNCT PROC=ISTZIFX0,DVC=32XX 15600000 SPACE 15650000 * RESET CLEANUP (PHASE 1) 15700000 SPACE 15750000 FUNCT PROC=ISTZIFSB,ATTACH=R,DVC=32XX 15800000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 15850000 SPACE 15900000 * RESET CLEANUP (PHASE 2) 15950000 SPACE 16000000 FUNCT PROC=ISTZIFTB,DVC=32XX 16050000 SPACE 16100000 * DIAL DISCONNECT 16150000 SPACE 16200000 FUNCT PROC=ISTZKFBB,ATTACH=R,DVC=32XX 16250000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 16300000 SPACE 16350000 * MANUAL DIAL 16400000 SPACE 16450000 FUNCT PROC=ISTZKFCB,ATTACH=R,DVC=32XX 16500000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 16550000 SPACE 16600000 * UNSOLICITED BTU PROCESSOR 16650000 SPACE 16700000 FUNCT PROC=ISTZIFJB,DVC=32XX 16750000 SPACE 16800000 * 3270 SEGMENT PROCESSOR 16850000 SPACE 16900000 FUNCT PROC=ISTZDFWR,ATTACH=R,DVC=32XX 16950000 SPACE 17000000 ISTATOBP DVT , ASYN OUTBOUND 17050000 SPACE 17100000 * ASYNCH SCHEDULER 17150000 SPACE 17200000 FUNCT PROC=ISTZAF1B,EXCEPT=32XX 17250000 FUNCT PROC=ISTZAF1R,DVC=32XX 17300000 ISTYTCM3 ENDMODE 17350000 END 17400000