X TITLE 'CCWTRACE - TPACCéPOBKA KAHAìøHùX ðPOçPAMM' RACE0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 14.11.88 BPEMñ 17.08 * æOKõC RACE0002 * PARM='CUU' RACE0003 * ìEHéHçPAä éBã çõT OTä. 07 ìATùûKO T: 310-98-12 * RACE0004 COPY FIXAREA RACE0005 SPACE RACE0006 DSA PRINT=NOGEN RACE0007 GENDS RETSAVE2,F,SVPRPGA,F,PRUNITAD,H,LINELIM,H,CSWSAVE,CL8, *RACE0008 ,0F,BLIST,CL40,EOBLIST,0F,CC,X RACE0009 SPACE 2 RACE0010 CCWTRACE @START BASE=11,RPARM=2,PRINT=,DEV=Y RACE0011 SPACE 2 RACE0012 *********************************************************************** RACE0013 * * RACE0014 *********************************************************************** RACE0015 ST 13,SAADR RACE0016 @LOAD SLBLDMSG,ALSTPUT RACE0017 @GETDD 'SYSPRINT' RACE0018 IFREG 15,Z,ERRPRT RACE0019 DDOK L 3,16(15) UCB RACE0020 LA 3,0(3) RACE0021 IFREG 3,Z,ERRPRT RACE0022 TMB 18(3),X'08',Z,ERRPRT RACE0023 MVC PRUNITAD,4(3) RACE0024 NI PRUNITAD,X'07' RACE0025 @PUTMSG ('-ADRESS CC D.ADR. FL LEN. *0 . . . 4 ! . . 8 . *RACE0026 ! . C . . ! 1 . . . 4 . . . 8 ! . . C . ! . *','*0...4..*RACE0027 .8.!.C...1...4...8...C.!.*') RACE0028 @PUTMSG (' ') RACE0029 IFREG 15,NZ,END RACE0030 @PRINT 0 - CLOSE RACE0031 LA 0,ALSTPR RACE0032 LA 0,=V(PRINTPGM) RACE0033 ORG *-4 RACE0034 DC X'50' RACE0035 ORG *+3 RACE0036 SPACE 2 RACE0037 *********************************************************************** RACE0038 * ðOäKìàþEHéE OâPAâOTþéKOB ðPEPùBAHéê, PAâOTA * RACE0039 *********************************************************************** RACE0040 MODESET KEY=ZERO RACE0041 UIHSET IOHNDLR,PSW=IO RACE0042 LR 3,1 RACE0043 WTOR 'CCWTRACE',REPLY,1,RECB RACE0044 WAIT ECB=RECB RACE0045 UIHDEL (3) RACE0046 MODESET KEY=NZERO RACE0047 SPACE 2 RACE0048 *********************************************************************** RACE0049 * úABEPûEHéE PAâOTù é BOúBPAT õðPABìEHéñ * RACE0050 *********************************************************************** RACE0051 END @RETURN RC=(15) RACE0052 * RACE0053 ERRPRT @WTOMSG (' SYSPRINT UNIT (',(13(3),3),') IS NOT PRINTER') RACE0054 B RET8 RACE0055 RET8 LA 15,8 RACE0056 B END RACE0057 SPACE 2 RACE0058 *********************************************************************** RACE0059 * ðPOçPAMMA ðEPEXBATA I/O INT é ðEþATé KAHAìøHùX ðPOçPAMM * RACE0060 *********************************************************************** RACE0061 IOHNDLR DS 0H RACE0062 USING *,15 RACE0063 TMB CSW+5,X'20',Z,(14) RACE0064 L 13,SAADR RACE0065 L 11,BASEADR RACE0066 DROP 15 RACE0067 ST 14,RETSAVE2 RACE0068 MVC CSWSAVE,CSW RACE0069 LH 9,IOOPSW+2 AäPEC õ-BA RACE0070 @PUTMSG (' ') RACE0071 @PUTMSG (+S,' INT. CSW=',(CSW,2,X),(CSW+1,6,X),(CSW+4,4,X), *RACE0072 (CSW+6,4,X),' CUU=',(IOOPSW+2,3,X1)) RACE0073 * RACE0074 L 1,16 RACE0075 L 1,40(1) RACE0076 UCBLOOP CLCB 0(2,1),=X'FFFF',E,ENDPRT ???! RACE0077 LH 2,0(1) UCB RACE0078 CLIB 2(2),X'FF',NE,NEXTUCB UCB ? RACE0079 CHB 9,4(2),E,UCBOK HAû ? RACE0080 NEXTUCB LA 1,2(1) RACE0081 B UCBLOOP RACE0082 * RACE0083 UCBOK SWOFF DASWITCH,ENDPRT1 RACE0084 TMB 18(2),X'20',Z,GETRQE DA ? RACE0085 SWON DASWITCH,ENDPRT1 RACE0086 GETRQE LH 2,20(2) RQE RACE0087 L 2,4(2) IOB RACE0088 L 2,16(2) IOBSTART RACE0089 * RACE0090 LA 2,0(2) RACE0091 LR 4,2 RACE0092 XC BLIST(L'BLIST),BLIST RACE0093 LA 6,EOBLIST RACE0094 XR 7,7 RACE0095 MVC LINELIM,=H'100' RACE0096 * RACE0097 PRCCW LA 10,DASWITCH RACE0098 L 3,0(2) R3 - AäPEC äAHHùX RACE0099 LA 3,0(3) RACE0100 @PUTMSG ((0(2),,A),' ',+S,(0(2),2,X),(1(2),6,X),(4(2),4,X), *RACE0101 (6(2),4,X),' ',-S,(0(3),64,X),' *',(0(3),32),'*') RACE0102 DECR LINELIM RACE0103 BM TERMPR RACE0104 BR 10 RACE0105 * RACE0106 DASWITCH BC 0,DISKCCW äìñ äéCKOB - OCOâùê AìçOPéTM RACE0107 * RACE0108 EASY CLIB 0(2),8,E,BCCW RACE0109 TMB 4(2),X'C0',Z,ENDPRT1 RACE0110 NEXTCCW LA 2,8(2) RACE0111 B PRCCW RACE0112 * RACE0113 BCCW CRB 3,2,H,NEWCHAIN ðEPEXOä BðEPEä ? - äEìAEM RACE0114 CRB 3,4,NL,ENDPRT1 HAúAä, HO HE PAHøûE HAþAìA ? - KOHEã RACE0115 LR 4,3 RACE0116 NEWCHAIN LR 2,3 RACE0117 B PRCCW RACE0118 * RACE0119 DISKCCW CLIB 0(2),X'20',NH,EASY RACE0120 MVC CC,0(2) RACE0121 NI CC,X'0F' RACE0122 CLIB CC,X'01',E,SCCW RACE0123 CLIB CC,X'09',E,SCCW RACE0124 CLIB CC,X'0D',NE,EASY RACE0125 * RACE0126 SCCW LA 2,8(2) RACE0127 BAL 10,PRCCW+4 RACE0128 BAL 10,TESTBCCW RACE0129 LA 2,8(2) RACE0130 BAL 10,PRCCW+4 RACE0131 BAL 10,TESTBCCW RACE0132 CLIB 0(2),8,E,EOCDISK RACE0133 TMB 4(2),X'C0',Z,EOCDISK RACE0134 B DISKCCW RACE0135 * RACE0136 TESTBCCW CLIB 0(2),8,NE,(10) RACE0137 CRB 3,2,H,ADDTAB ðEPEXOä BðEPEä ? RACE0138 CRB 3,4,NL,(10) HAúAä äO HAþAìA ãEðOþKé - BùìET RACE0139 ADDTAB LA 5,BLIST RACE0140 ADDTLOOP CRB 5,6,NL,(10) RACE0141 CB 3,0(5),E,(10) õöE úAHECìé AäPEC ? RACE0142 OC 0(4,5),0(5) ðõCTAñ KìETKA ? RACE0143 BNZ ADDTAB1 RACE0144 ST 3,0(5) RACE0145 BR 10 RACE0146 ADDTAB1 LA 5,4(5) RACE0147 B ADDTLOOP RACE0148 * RACE0149 EOCDISK IFREG 7,NZ,*+8 >! RACE0150 LA 7,BLIST-4 ! RACE0151 LA 7,4(7)