>>>>>>>>>>>>>>> UPDATES TO GO FROM 3.0/A TO 3.0/B >>>>>>>>>>>>>>> //* //* JOBA: RUN UPDATES SOURCE1 - 5 ACCROSS ASSIS5 TO ASSIS8 //* //* //* ALSO COPY SOURCE 6 FROM ASSIS7 //* //* /*TAPE ASSIS5,READ /*TAPE ASSIS7,WRITE /*TAPE ASSIS8,WRITE /*INCLUDE JRM04.$PUPDATE /*INCLUDE JRM04.$PTAPEIN //S1 EXEC $PUPDATE,DSN=SOURCE1,VOL1=ASSIS5,L1=11,VOL2=ASSIS8,L2=11 //SYSUT1 DD * ./ CHANGE TITLE 'ASSIST VERSION 3.0/B - MARCH 1974' 00001000 ./ DELETE SEQ1=00035350,SEQ2=00035350 00035350 &LABEL DC B'&BYTE',HL1'&IL' L 01846590 .OPB3B AIF ((&IL EQ 2) AND ('&INS' NE 'XOPC')).OPB3E SKIP IF RR 01846675 AIF ('&D2B' EQ 'RR4').OPB3E SKIP IF RR4 L 01846723 &LABEL DC B'10000000',XL3'0',A(&ROUTINE) L 01846950 &$BTCC(2) SETC '$JOB ' JOB BEGINNING INDICATOR M 02223102 &$BTCC(3) SETC '$ENTRY ' BEGIN DATA CARD: SET = '' IF NONE M 02223104 &$BTCC(4) SETC '$STOP ' TERMINATOR CARD: SET = '' IF NONE M 02223106 &$CMPRS SETB 0 NOT ALLOW CMPRS OPTION L 02225000 &$EXINT SETB 1 USE EXTENDED INTERPRETER L 02233500 ./ DELETE SEQ1=02235510,SEQ2=02235510 02235510 &$FREE SETA 30720 RETURN 30K TO OS/360 L 02238200 &$REPL SETA 0 NO REPLACEMENT ALLOWED L 02245460 &$XREFDF(1) SETA 3 PSU TESTING L 02253520 AIF (NOT &$EXINT).ECOVER 03710000 ECEM360 EQU B'00000100' (ECPRFLG2)==> MACHINE = 360 03710225 ECEM370 EQU B'00001000' (ECPRFLG2)==> MACHINE = 370 03710230 ECSPISET EQU B'10000000' (ECPRFLG3)==> A PSEUDO SPIE IS SET 03710241 ECINHDST EQU B'01000000' (ECPRFLG3)==> INTERRUPT HANDLING ST 03710242 ECNOSPI EQU B'00000000' (ECPRFLG3)==> NO SPIE INTERRUPT SET 03710243 ECLKADR EQU B'00000001' (ECPRFLG4)==> CLOCK EXIT ADDR SET 03710244 ECPRTRAL DS A BEGINNING (LOW) @ OF TRACE M 03710305 ECPRTRAH DS A ENDING (HIGH) @ OF TRACE M 03710310 ECPRMODL DS A BEGINNING (LOW) @ OF CHECK FACILITY 03710315 ECPRMODH DS A ENDING (HIGH) @ OF CHECK FACILITY 03710320 ECPRICL DS A IECF LOW @ COMPARATOR (BEGINNING) M 03710395 ECPRICH DS A IECF HIGH @ COMPARATOR (ENDING) M 03710400 ./ DELETE SEQ1=03710455,SEQ2=03710455 03710455 .ECOVER ANOP 03711900 DS 0D ROUND LENGTH TO DOUBLE WORD BOUNDARY 03711950 ECOPEX DS 0C 2ND BYTE OF EXTENDED OP CODE 03741500 ./ DELETE SEQ1=03748000,SEQ2=03748000 03748000 //S2 EXEC $PUPDATE,DSN=SOURCE2,VOL1=ASSIS5,L1=12,VOL2=ASSIS8,L2=12 //SYSUT1 DD * ./ CHANGE AIF (&$FREEMN NE 0).ASZRRR SKIP IF THERE IS FREE LOWER LIMIT 04293285 BNH *+6 SKIP IF OKAY, FREE <= GOTTEN R 04293287 SR R0,R0 ZERO OUT TO FREE ZERO 04293290 AGO .ASZQQQ JUMP AROUND FREE 04293293 .ASZRRR ANOP 04293295 BNH *+14 SKIP IF OKAY, FREE <= GOTTEN 04293297 CH R15,=H'&$FREEMN' COMPARE GOTTEN WITH MIN TO FREE 04293300 BH *+14 SKIP IF GOT MORE THAN THE MINIMUM 04293303 BR R14 IF NOT, DON'T GIVE ANY BACK 04293305 CH R0,=H'&$FREEMN' SEE IF FREE LENGTH > MINIMUM 04293307 BNL *+8 IF FREE > MIN GIVE BACK FREE 04293310 LH R0,=H'&$FREEMN' GIVE BACK THE MINIMUM 04293313 AIF (NOT &$EXINT).ASPL35 **********NEW INTERPRETER****** 04524710 AIF (&$EXINT).EXYZ SKIP IF USING EXTENDED INTERPRETER 05102425 XXDKUDCB DCB DDNAME=&$IOUNIT(5),EODAD=XXDKEOF,RECFM=FB, X07537935 EXLST=XXDKEXLS,SYNAD=XXDKSYND,DSORG=PS,NCP=&$BUFNO, X07537940 MACRF=(RP,W) 07537942 ./ DELETE SEQ1=07938150,SEQ2=07938300 07938150 CLI ECBSOP,0 WAS THIS ENTRY AN INSTRUCTION 07938680 BAL R8,XXSNBLNC CLEAR XXLABEL OF GARBAGE 07939425 LTORG 08558050 XXAS7HD DC CL121'-** TRACE OF LAST 10 BRANCH INSTRUCTIONS EXECUTED:X08558600 PSW BITS SHOWN ARE THOSE BEFORE CORRESPONDING INSTRUCTIX08558700 ON DECODED ***' 08558800 ./ DELETE SEQ1=08560000,SEQ2=08560000 08560000 //S3 EXEC $PUPDATE,DSN=SOURCE3,VOL1=ASSIS5,L1=13,VOL2=ASSIS8,L2=13 //SYSUT1 DD * ./ CHANGE BZ ESERIND FLAG ERROR, IF SYMBOL TOO LONG 11465000 CLI ICYOP,X'01' IS THIS AN XOPC INSTRUCTION M 13775000 BE ICSI1 YES, USE IMMEDIATE FIELD PART OF SIM 13775100 L RC,AVMACLIB GET BEGIN ADDRESS OF MACRO LIST M 16707331 USING MACLIB,RC NOTE USING ON MACRO LIST DSECT M 16707332 SR RB,RB ZERO FOR SEARCH END LIST M 16707333 CL RB,MCLIBNXT IF LIST HEADER IS NULL M 16707334 BE MOCLBOUT THEN NO OPEN - JUST QUIT M 16707335 DROP RC CLEAR USING M 16707336 XCALL XXXXLBOP CALL TO OPEN LIBRARY DCB M 16707337 OPG XOPC,$RSO,1 EXTENDED USER DEBUG CONTROL INSTR 17654500 LA RW,SYRETB SET UP FOR BRANCH LATER L 19288050 LA RW,SYRET SET UP FOR BRANCH LATER L 19318050 LM RX,RB,SYREGS GET WHOLE BLOCK OF REGS L 19346000 BCR E,RW BE->SYRETB(PASS1),SYRET(PASS2) L 19396000 SPACE 1 L 19406050 * ENTERS PASS 2 WHEN SYMBOL IS IN SMBL TABLE (RB=0) L 19406100 SYRET EQU * ENTER WHEN SYMBOL PRESENT L 19406200 AIF (NOT &$XREF).NOXRF17 L 19406300 TM AVXRFLAG,AVXRON FLAG MAY HAVE BEEN DISARMED(XRCOLL)L 19406400 BZ SYRETB RETURN IF NOT ON (=0) L 19406500 MVC AVFWORK1(1),AVXRFLAG SET UP FOR REF COLLECT TESTING L 19406600 NC AVFWORK1(1),SYFLAGS AND WITH SD= BITS L 19406700 * SEE IF MODIFY OR FETCH L 19406800 TM AVXRTYPE,AVXRFTCH FETCH REFERENCE L 19406900 BZ SYCKMOD NO,MODIFY REF L 19407000 TM AVFWORK1,AVXRSRFT FETCH REFS? L 19407100 BZ SYRETB NO, RETURN L 19407200 B SYXRCALL GO COLLECTBREFS L 19407300 SYCKMOD TM AVFWORK1,AVXRSRMD COLLECT MOD REFS? L 19407400 BZ SYRETB NO,RETURN L 19407500 SYXRCALL EQU * CALLING XRCOLL TO COLLECT REFERENCEL 19407600 $CALL XRCOLL CALL COLLECTIMG ROUTINE L 19407700 SR RB,RB SET RETURN CODE L 19407800 .NOXRF17 ANOP F 19407850 B SYRETB GO RETURN L 19407900 LA RY,8 WILL NEED 8 BYTES L 19414000 LA RC,SYMBOL-SYMSECT(RY) GET LENGTH OF ENTRY L 19416000 STC RY,*+5 MOVE LENGTH INTO MVC L 19432000 IC RY,SYFLAGS PREPARE TO OR FLAGS L 19434665 OR RB,RY SET PROPER BITS IN SYFLAGS L 19434670 ./ DELETE SEQ1=19442000,SEQ2=19442950 RELOCATED ABOVE SYENTER L 19442000 AIF (NOT &$XREF).NOXRF18 F 19443220 $RETURN RGS=(R14-R6),SA=* RETURN IF XREF IS ON F 19443250 AGO .NOXRF99 F 19443300 .NOXRF18 ANOP F 19443400 $RETURN RGS=(R3-R6),SA=NO RETURN IF XREF IS OFF F 19443500 .NOXRF99 ANOP F 19443550 ./ DELETE SEQ1=19468000,SEQ2=19468000 L 19468000 SYRY DC F'4' FIRST GUESS FOR ROUNDED SYMBL LEN L 19472000 PRINT OFF 19488199 MVI AVXRFLAG,X'00' DISARM FLAG NEVER TO RETURN L 21004705 //S4 EXEC $PTAPEIN,DSN=SOURCE4,VOL1=ASSIS7,L1=4,VOL2=ASSIS8,L2=14 //S5 EXEC $PTAPEIN,DSN=SOURCE5,VOL1=ASSIS7,L1=5,VOL2=ASSIS8,L2=15 //S6 EXEC $PTAPEIN,DSN=SOURCE6,VOL1=ASSIS7,L1=6,VOL2=ASSIS8,L2=16 >>>>>>>>>>>>>>> UPDATES TO GO FROM 3.0/B TO 4.0/A >>>>>>>>>>>>>>> //* FILE AST01.FIXES 00006950 /*TAPE TXMAST,W 00007000 /*TAPE ASSIS8,R 00007050 /*LOG 00007100 //FIXES PROC LABOLD=100,LABNEW=100,DSN=NULLFILE, 00007150 // TAPOLD=ASSIS8,TAPNEW=TXMAST 00007200 // EXEC PGM=IEBUPDTE 00007250 //SYSPRINT DD SYSOUT=A 00007300 //SYSUT1 DD UNIT=2400,VOL=SER=&TAPOLD,LABEL=&LABOLD, 00007350 // DSN=&DSN,DISP=(OLD,PASS) 00007400 //SYSUT2 DD UNIT=2400,VOL=SER=&TAPNEW,LABEL=&LABNEW, 00007450 // DSN=&DSN,DISP=(NEW,PASS),SEP=SYSUT1, 00007500 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200) 00007550 // PEND 00007600 // EXEC FIXES,LABOLD=06,LABNEW=06,DSN=XMSOURCE //SYSIN DD * ./ CHANGE XXOPSAVE DS (RBASE+3)F RESERVE SPACE FOR R14,R15,R0,R1-RBASE 00908000 ./ ENDUP // EXEC FIXES,LABOLD=11,LABNEW=11,DSN=SOURCE1 //SYSIN DD * ./ CHANGE TITLE 'ASSIST VERSION 4.0/A - MARCH 1975' 00001000 * * 00001655 * 4.0/A 3/01/75 CLEANS UP 3.0/B * 00001657 * EXTENDED INTERP., ETC * 00001659 * PREPARED BY THOMAS MINSKER * 00001661 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00001670 &$BTCC(2) SETC 'JOB' JOB BEGINNING INDICATOR CPP 02223102 &$BTCC(4) SETC 'STOP' TERMINATOR INDICATOR CPP 02223106 &$CMPRS SETB (1) ALLOW 'CMPRS' OPTION CPP 02225000 &$GENDAT SETC '04/25/75' CURRENT GENERATION DATE 02238400 ./ DELETE SEQ1=02242000,SEQ2=02242000 &$REPL SETA 2 ALLOW FULL REPL. OPTIONS CEH 02245460 &$VERSLV SETC '4.0/A' CURRENT ASSIST VERSION 02253500 &$BATCH SETC 'BATCH' DEFAULT OF DOS IS BATCH CEH 02257105 &$BATCH SETC 'NOBATCH' DEFAULT FOR OS IS NOBATCH CEH 02257185 ./ DELETE SEQ1=02264060,SEQ2=02264060 ./ ENDUP // EXEC FIXES,LABOLD=12,LABNEW=12,DSN=SOURCE2 //SYSIN DD * ./ CHANGE XXDKUDCB DCB DDNAME=&$IOUNIT(5),EODAD=XXDKEOF,RECFM=FB,EXLST=XXDKEXLS,#07537935 ./ ENDUP // EXEC FIXES,LABOLD=13,LABNEW=13,DSN=SOURCE3 //SYSIN DD * ./ CHANGE ./ DELETE SEQ1=19488199,SEQ2=19488199 ./ ENDUP // EXEC FIXES,LABOLD=14,LABNEW=14,DSN=SOURCE4 //SYSIN DD * ./ CHANGE AIF (&$REPL LT 2).RGNERE2 SKIP IF REPL ENTRIES MAY NOT CALL 32464000 * ASSIST SUBROUTINES 32464007 ./ ENDUP // EXEC FIXES,LABOLD=16,LABNEW=16,DSN=SOURCE6 //SYSIN DD * ./ CHANGE ./ DELETE SEQ1=83376000,SEQ2=83376000 EIOC6A EQU * NO NEED FOR SEPARATE CASES CEH 83388000 L RIA,EIRIA RELOAD ADDR. OF NEXT INSTR. CEH 83489000 ST RIA,EIRIA SAVE CURRENT INSTR. ADDR. CEH 83623000 EIFINRR EQU EIFIN RR NOW MERGES WITH OTHER CEH 83710000 ST RIA,EIRIA SAVE FOR RESTORING LATER CEH 83849000 ./ DELETE SEQ1=84018000,SEQ2=84020000 MVC EIWORK(1),EICTB3 STORE CONTROL BYTE IN WORK CPP 84065000 ./ DELETE SEQ1=84070000,SEQ2=84070000 CLI ECOP,X'90' IS THIS A STM? CPP 84152100 BE EI4JUMP IF YES SKIP FAKING CODE CPP 84152200 CLI ECOP,X'98' IS THIS AN LM? CPP 84152300 BE EI4JUMP IF YES, SKIP FAKING CODE CPP 84152400 CLI ECOP,X'44' IS THIS AN EX? CPP 84152500 BE EI4JUMP IF YES, SKIP FAKING CODE CPP 84152600 B EIFINRR GET NEXT INSTR PSU. 84668000 B EIFINRR RETURN FOR NEXT INSTR. CEH 84874000 ./ ENDUP //*>>>>>>>>>>>> UPDATES TO GO FROM 4.0/A TO 4.0/A1 //*>>>>>>>>>>>> 00010800 &$GENDAT SETC '08/29/75' CURRENT GENERATION DATE 02238400 &$VERSLV SETC '4.0/A1' VERSION LEVEL (CEH&CPP&TXM 8/29/75) 02253500 MVI ECSYSMSK,X'FF' SET CHANNEL MASKS TO INTERRUPT CEH 04087000 MVI ECKYAMWP,X'C5' SET KEY=C, AMWP=0101 CEH 04088000 MVI AJORECNT+3,1 ALLOW ONE PRINT LINE FOR AM005 CEH 04210127 ASH1HD DC C'1*** ASSIST &$VERSLV-&$GENDAT' CPP 04448200 DC C' &$MCHNE/&$MODEL:&$SYSTEM' CPP 04448250 DC C' INS=S',(&$DECSA)C'D',(&$FLOTA)C'F',(&$PRIVOP)C'P' 04448400 DC (&$S370A)C'7' SUPPORT DEC. FLOAT, PRIV, 370 CPP 04448450 DC C'/X=',(&$XIOS)C'B',(1-&$XXIOS)C'G',(&$HEXI*&$HEXO)C'H' 04448460 DC (&$EXINT)C'O' SUPPORT BASIC,XGET,HEXS,XOPC CPP 04448470 DC ((1-(&$HEXI+&$HEXO+&$XIOS+&$EXINT+3)/4)*&$XXIOS)C'NONE' 04448480 DC C', CHECK/TRC/=&$TIMER&$RECORD&$COMNT' CPP 04448600 DC C', OPTS=',(&$CMPRS)C'C',((&$DISKU+1)/2)C'D' CPP 04452000 DC (&$KP26)C'K',(&$MACROS)C'M',(&$PAGE)C'P' CPP 04452050 DC ((&$REPL+1)/2)C'R',(&$XREF)C'X' CPP 04453000 DC C' PENN STATE UNIV ***' CPP 04454000 ./ DELETE SEQ1=04456000,SEQ2=04456000 ./ DELETE SEQ1=07151655,SEQ2=07151655 TITLE 'XXXXHEXO - MODULE TO SUPPORT XHEXO PSEUDO-OP' CPP 07151665 PRINT NOGEN TURN OFF AFTER XGPGEN'S CPP 07162900 USING ECSTACKD,R1 NOTE DSECT FOR EACH BSTACK ENTRY CEH 07938540 L R1,ECSTLINK GET @ NEXT BRANCH ENTRY CEH 07938660 CLI ECOP,0 WAS THIS ENTRY AN INSTR. CEH 07938680 NI ECSTCCPM,X'3F' ZERO OUT ILC(NOT ALREADY SAVED) CEH 07938860 XXASBIN1 OI ECSTCCPM,$CHN OR BUILT-UP ILC FROM LAST INSTR CEH 07938880 UNPK XXAS5I1(5),ECOP(3) CONVERT OPCODE, REGS. & LEN CEH 07938960 CLI ECOP,X'40' WAS THIS AN RR INSTR. CEH 07939000 UNPK XXAS5I2(5),ECBD(3) UNPACK ONLY BASE-DISPL. CEH 07939060 UNPK XXAS5CC(3),ECSTCCPM CONVERT GOOD ILC-CC PM OF PSW CEH 07939220 UNPK XXAS5AD(7),ECSTIADD+1(4) CONVERT BR INST. ADDR. CEH 07939280 L R1,ECSTLINK GET NEXT ENTRY IN TABLE CEH 07939400 XSNAP LABEL='ASSIST ABEND-SEND DECK TO SYSTEMS: 3-12,PSW,14-2,#08563101 AVTAB',STORAGE=(*0(R1),*28(R1),*AVADDLOW,*AVWXEND) CPP 08563102 *. RD = LENGTH-1 OF CONSTANT (WAS IN RB ON ENTRY) CPP 09095000 CC2PAD LR RD,RB SAVE LENGTH-1 OF CONSTANT CPP 09135000 SR RB,RE RB=LENGTH-1 OF PAD, IF ANY CPP 09136000 LA RE,AVCONBLD(RE) RE=@ OF FIRST BYTE TO BLANK CPP 09140000 MVC 0($CHN,RE),AWBLANK PAD--BLANK OUT ENOUGH CPP 09144000 IDTITLE EQU * PROCESS TITLE STATEMENT CPP 15198000 LA RA,1(RA) RA=>1ST BYTE OF TITLE (AFTER ') CPP 15199000 SR RB,RB CLEAR FOR INSERT CPP 15200000 IC RB,RCMASK GET LENGTH-1 OF TITLE CPP 15201000 $CALL CCCON2 EVALUATE OPD. (SAME AS C-TYPE DC) CP 15202000 * COMMENT, PRINT, EJECT (BUT NOT TITLE-CPP 8/11/75) 16556420 ./ DELETE SEQ1=16556780,SEQ2=16556990 AIF (&$XXIOS).OP4TSK1 SKIP IF NO XGETS ALLOWED CPP 17654200 .OP4TSK1 AIF (NOT &$EXINT).OP4TSK2 SKIP IF NO XOPC'S CPP 17654450 .OP4TSK2 AIF (&$XXIOS).OP4TSK SKIP IF NO XPUTS ALLOWED CPP 17654550 OPG TITLE,$ITITLE+$IB,IBNONAM,0 TITLE (-IBMOPRCT CPP 8/11) 17704000 AIF (NOT &$XIOS).OPNOXIO SKIP IF NO X-I/O PSEUDOS CPP 17714900 OUCM$LT EQU (&$PRTSIZ-3)/2 TOTAL # BYTES SAVED PER STMT. CPP 18748320 * XRPMSG EQU XRPRRET ***** RETURN ON RECORDS EXCEEDED CEH 21006190 XRPMSG EQU XRPRRET RETURN ON RECORDS EXCEEDED CEH 21006215 PRINT NOGEN TURN OFF GENERATION IN REST CPP 32921000 MXSYERMS $MSG 229,' ASSIST CANNOT EXPAND--SIMPLIFY STMT OR USE .' CPP 66650000 ./ DELETE SEQ1=83000000,SEQ2=83000000 $GET 0(RAD1),(RAD2) DO GET INPUT CEH 86094000 $PUT 0(RAD1),(RAD2) DO PUT OUTPUT CEH 86104000 EIXGET EQU EIOC1 MAKE XGET AN ERROR CPP 86112000 EIXPUT EQU EIOC1 MAKE XPUT AN ERROR CPP 86114000 EITAB FPRS,360,4,4,NO,NM,CK,S,*,RR4,IX,FUL,E,O,EIFPRXST CEH 87118000 EITAB XFPRS,360,4,8,NO,NM,CK,S,*,RR4,IX,DBL,E,O,EIFPRXST CEH 87122000 //* //*>>>>>>>>>>> UPDATES TO GO FROM 4.0/A TO 4.0/A2 //**>>>>>>>>>> &$GENDAT SETC '12/02/75' CURRENT GENERATION DATE 02238400 &$VERSLV SETC '4.0/A2' VERSION LEVEL (CEH,CPP,TXM 12/02/75) 02253500 ./ DELETE SEQ1=03388000,SEQ2=03388000 MVI ECSYSMSK,X'FF' SET CHANNEL MASKS TO INTERRUPT CEH 04087000 MVI ECKYAMWP,X'C5' SET KEY-C, AMWP=0101 CEH 04088000 MVI AJORECNT+3,1 ALLOW ONE PRINT LINE FOR AM005 CEH 04210127 ASH1HD DC C'1*** ASSIST &$VERSLV-&$GENDAT' CPP 04448200 DC C' &$MCHNE/&$MODEL:&$SYSTEM' CPP 04448250 DC C' INS=S',(&$DECSA)C'D',(&$FLOTA)C'F',(&$PRIVOP)C'P' 04448400 DC (&$S370A)C'7' SUPPORT DEC. FLOAT, PRIV, 370 CPP 04448450 DC C'/X=',(&$XIOS)C'B',(1-&$XXIOS)C'G',(&$HEXI*&$HEXO)C'H' 04448460 DC (&$EXINT)C'O' SUPPORT BASIC,XGET,HEXS,XOPC CPP 04448470 DC ((1-(&$HEXI+&$HEXO+&$XIOS+&$EXINT+3)/4)*&$XXIOS)C'NONE' 04448480 DC C', CHECK/TRC/=&$TIMER&$RECORD&$COMNT' CPP 04448600 DC C', OPTS=',(&$CMPRS)C'C',((&$DISKU+1)/2)C'D' CPP 04452000 DC (&$KP26)C'K',(&$MACROS)C'M',(&$PAGE)C'P' CPP 04452050 DC ((&$REPL+1)/2)C'R',(&$XREF)C'X' CPP 04453000 DC C' PENN STATE UNIV ***' CPP 04454000 ./ DELETE SEQ1=04456000,SEQ2=04456000 ./ DELETE SEQ1=07151655,SEQ2=07151655 TITLE 'XXXXHEXO - MODULE TO SUPPORT XHEXO PSEUDO-OP' CPP 07151665 PRINT NOGEN TURN OFF AFTER 07162900 DROP R9 DROP LEFTOVER USING CPP 07938020 USING ECSTACKD,R1 NOTE DSECT FOR EACH BSTACK ENTRY CEH 07938540 L R1,ECSTLINK GET @ NEXT BRANCH ENTRY CEH 07938660 CLI ECOP,0 WAS THIS ENTRY AN INSTR. CEH 07938680 NI ECSTCCPM,X'3F' ZERO OUT ILC(NOT ALREADY SAVED) CEH 07938860 XXASBIN1 OI ECSTCCPM,$CHN OR BUILT-UP ILC FROM LAST INSTR CEH 07938880 UNPK XXAS5I1(5),ECOP(3) CONVERT OPCODE, REGS. & LEN CEH 07938960 CLI ECOP,X'40' WAS THIS AN RR INSTR. CEH 07939000 UNPK XXAS5I2(5),ECBD(3) UNPACK ONLY BASE-DISPL. CEH 07939060 UNPK XXAS5CC(3),ECSTCCPM CONVERT GOOD ILC-CC PM OF PSW CEH 07939220 UNPK XXAS5AD(7),ECSTIADD+1(4) CONVERT BR INST. ADDR. CEH 07939280 L R1,ECSTLINK GET NEXT ENTRY IN TABLE CEH 07939400 DROP R10,R13 DROP REGISTERS NO LONGER USED CPP 08562000 XSNAP LABEL='ASSIST ABEND-SEND DECK TO SYSTEMS: 3-12; PSW,14-2#08563101 ; AVTAB',STORAGE=(*0(R1),*28(R1),*AVADDLOW,*AVWXEND) CPP 08563102 *. RD = LENGTH-1 OF CONSTANT (WAS IN RB ON ENTRY) CPP 09095000 CC2PAD LR RD,RB SAVE LENGTH-1 OF CONSTANT CPP 09135000 SR RB,RE RE=LENGTH-1 OF PAD, IF ANY CPP 09136000 LA RE,AVCONBLD(RE) RE=@ OF FIRST BYTE TO BLANK CPP 09140000 MVC 0($CHN,RE),AWBLANK PAD--BLANK OUT ENOUGH CPP 09144000 IDTITLE EQU * PROCESS TITLE STATEMENT CPP 15198000 LA RA,1(RA) RA=>1ST BYTE OF TITLE (AFTER ') CPP 15199000 SR RB,RB CLEAR FOR INSERT CPP 15200000 IC RB,RCMASK GET LENGTH-1 OF TITLE CPP 15201000 $CALL CCCON2 EVALUATE OPD. (SAME AS C-TYPE DC) CP 15202000 ./ DELETE SEQ1=16556720,SEQ2=16556750 SR RB,RB YES, WAS TITLE; CLEAR FOR INSERT CP 16556840 IC RB,RCMASK GET LENGTH-1 OF TITLE CPP 16556870 ./ DELETE SEQ1=16556900,SEQ2=16556900 $SCPT RA,RSBSCAN GET SCAN POINTER BACK CPP 16556930 AR RA,R5 (R5=1) RA=>1ST BYTE TITLE CPP 16556960 $CALL CCCON2 ASSEMBLE AS IF C-TYPE CONST. CPP 16556965 * RETURNS: RC=> ASSEMBLED TITLE, RD=LEN-1 OF TITLE CPP 16556970 LA RE,4 SHOW THIS WAS A TITLE CPP 16556975 B MOIBOUTL BRANCH TO PRINT OR STORE TITLE CPP 16556980 LA RE,2 SHOW THIS WAS A PRINT STMT. CPP 16557070 BE MOIBOUTL WAS PRINT; ALL REGS SET, PRINT CPP 16557080 MOIBOUTL LA RB,$OULIST SHOW THIS WAS A LISTING CTRL CPP 16559000 AIF (&$XXIOS).OP4TSK1 SKIP IF NO XGETS ALLOWED CPP 17654200 .OP4TSK1 AIF (NOT &$EXINT).OP4TSK2 SKIP IF NO XOPC'S CPP 17654450 .OP4TSK2 AIF (&$XXIOS).OP4TSK SKIP IF NO XPUTS ALLOWED CPP 17654550 AIF (NOT &$XIOS).OPNOXIO SKIP IF NO X-I/O PSEUDOS CPP 17714900 OUCM$LT EQU (&$PRTSIZ-3)/2 TOTAL # BYTES SAVED PER CMPRS STMT 18748320 * XRPMSG EQU XRPRRET ***** RETURN ON RECORDS EXCEEDED CEH 21006190 XRPMSG EQU XRPRRET RETURN ON RECORDS EXCEEDED CEH 21006215 PRINT NOGEN TURN OFF GENERATION IN REST CPP 32921000 MXSYERMS $MSG 229,' ASSIST CANNOT EXPAND--SIMPLIFY STMT OR USE .' CPP 66650000 ./ DELETE SEQ1=83000000,SEQ2=83000000 $GET 0(RAD1),(RAD2) DO GET INPUT CEH 86094000 $PUT 0(RAD1),(RAD2) DO PUT OUTPUT CEH 86104000 EIXGET EQU EIOC1 MAKE XGET AN ERROR CPP 86112000 EIXPUT EQU EIOC1 MAKE XPUT AN ERROR CPP 86114000 EITAB FPRS,360,4,4,NO,NM,CK,S,*,RR4,IX,FUL,E,O,EIFPRXST CEH 87118000 EITAB XFPRS,360,4,8,NO,NM,CK,S,*,RR4,IX,DBL,E,O,EIFPRXST CEH 87122000