@rice.edu:richard@PEMRAC.SPACE.SWRI.EDU (Richard Murphy) (09/09/89)
I need a routine to convert IBM 360 floating point numbers (double & single precision) to ieee floating point. If you know of or have such code, please reply to: richard@pemrac.space.swri.edu Thanks!
SOADTMJA@UCHDCI01.BITNET (02/26/91)
Hi all, I have a problem with this program, it doesnt work: PRUEB CSECT STM 14,12,12(13) USING *,11 BALR 11,15 LA 4,PUTCCW LA 5,X'009' LA 2,GETCCW LA 3,X'009' HNDINT SET,(CON1,EXIT,009,WAIT) WRT EQU * DIAG 4,5,X'0058' WAIT1 TIO 9 BC 2,WAIT1 WAITD CON1 RD EQU * LA 6,BUFFER LA 7,2047 LOOP MVI 0(6),X'00' LA 6,1(6) BCT 7,LOOP DIAG 2,3,X'0058' WAIT2 TIO 9 BC 2,WAIT2 WAITD CON1 CLI BUFFER,PF12 BE EXIT CLI BUFFER,PF24 BE EXIT B WRT EXIT LM 14,12,12(13) LA 15,0 HNDINT CLR,(CON1) BR 14 PANEL DC X'C2' DC X'11D1601D60' DC C'HELLO, WORLD' LPANEL EQU *-PANEL PUTCCW DC X'29',AL3(PANEL),X'20',X'C0',AL2(LPANEL) GETCCW DC X'2A',AL3(BUFFER),X'20',X'80',AL2(2048) BUFFER DS CL2048 PF12 EQU X'7C' PF24 EQU X'4C' END I hope someone can help me. Thanks in advance. Roberto. soadtmja@uchdci01.bitnet