MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
ALESERV DELETE,ALET=MYALET,CHKEAX=NO<br />
PR Pop stack and return to caller<br />
EJECT<br />
**********************************************************************<br />
* This routine closes all DCBs. *<br />
**********************************************************************<br />
CLOSDCBS DS ØH<br />
BAKR R14,Ø Push environment into stack<br />
CLOSE (LISTXME1)<br />
CLOSE (LISTXME2)<br />
PR Pop stack and return to caller<br />
EJECT<br />
**********************************************************************<br />
* This routine translates hexadecimal into printable format.<br />
* At entry, HEX1 contains the word to translate. It will return the<br />
* result into the double word HEX2.<br />
* R1Ø is used as work register.<br />
**********************************************************************<br />
CONVERT_TO_CHAR DS ØH<br />
BAKR R14,Ø Push environment into stack<br />
XR R1Ø,R1Ø Wipe out register<br />
IC R1Ø,HEX1 LOAD FIRST BYTE<br />
SRL R1Ø,4 ELIMINATE 4 RIGHT MOST BITS<br />
STC R1Ø,HEX2 SAVE FIRST 4 BITS<br />
IC R1Ø,HEX1 LOAD FIRST BYTE<br />
SLL R1Ø,28 ELIMINATE 4 LEFT MOST BITS<br />
SRL R1Ø,28<br />
STC R1Ø,HEX2+1 SAVE SECOND SET OF 4 BITS<br />
IC R1Ø,HEX1+1 LOAD SECOND BYTE<br />
SRL R1Ø,4 ELIMINATE 4 RIGHT MOST BITS<br />
STC R1Ø,HEX2+2 SAVE THIRD SET OF 4 BITS<br />
IC R1Ø,HEX1+1 LOAD SECOND BYTE<br />
SLL R1Ø,28 ELIMINATE 4 LEFT MOST BITS<br />
SRL R1Ø,28<br />
STC R1Ø,HEX2+3 SAVE FOURTH SET OF 4 BITS<br />
IC R1Ø,HEX1+2 LOAD THIRD BYTE<br />
SRL R1Ø,4 ELIMINATE 4 RIGHT MOST BITS<br />
STC R1Ø,HEX2+4 SAVE FIFTH SET OF 4 BITS<br />
IC R1Ø,HEX1+2 LOAD THIRD BYTE<br />
SLL R1Ø,28 ELIMINATE 4 LEFT MOST BITS<br />
SRL R1Ø,28<br />
STC R1Ø,HEX2+5 SAVE SIXTH SET OF 4 BITS<br />
IC R1Ø,HEX1+3 LOAD FOURTH BYTE<br />
SRL R1Ø,4 ELIMINATE 4 RIGHT MOST BITS<br />
STC R1Ø,HEX2+6 SAVE SEVENTH SET OF 4 BITS<br />
IC R1Ø,HEX1+3 LOAD FOURTH BYTE<br />
SLL R1Ø,28 ELIMINATE 4 LEFT MOST BITS<br />
SRL R1Ø,28<br />
STC R1Ø,HEX2+7 SAVE EIGHTH SET OF 4 BITS<br />
TR HEX2(L'HEX2),TRTAB TRANSLATE TO PRINTABLE CHAR<br />
22 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.