Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!UCF1VM.BITNET!MARK From: MARK@UCF1VM.BITNET (Mark Woodruff) Newsgroups: comp.lang.asm370 Subject: Re: (no subject given) Message-ID: <9003071806.AA07913@lilac.berkeley.edu> Date: 7 Mar 90 18:02:26 GMT Sender: daemon@ucbvax.BERKELEY.EDU Reply-To: IBM 370 Assembly Programming Discussion List Distribution: inet Organization: The Internet Lines: 90 EBA LOSECT 0 * 0 STM R0,R15,EBASAVE 0 * 0 MVC ROW(8),8(R1) ;GET ROW 0 MVC COL(8),16(R1) ;GET COL 0 LA R1,ROW 0 BAL R14,C2D 0 LR R5,R3 0 M R4,=F'80' ;MAKE ROW / COL 0 LA R1,COL 0 BAL R14,C2D ;INTO RELATIVE SCREEN ADDRESS 0 AR R5,R3 0 BAL R14,TOEBA ;CONVERT TO EDCDIC ADDR 0 L R2,THEADDR-2 0 * 0 LINEDIT TEXT='X''....''',SUB=(HEX,(R2)) 0 * 0 LM R0,R14,EBASAVE 0 BR R14 0 * 0 ROW DS CL8 0 DC X'FF' 0 COL DS CL8 0 DC X'FF' 0 * 0 EBASAVE DS 16F 0 * 0 ********************************************************************** 0 ** ** 0 ** CONVERT STRING OF DEC CHARS TO INTEGER ** 0 ** ** 0 ********************************************************************** 0 C2D DS 0H 0 SR R3,R3 0 SR R0,R0 0 TR 0(8,R1),TRTAB2 0 GETLOOP CLI 0(R1),X'FF' ;DONE ? 0 BER R14 0 IC R0,0(R1) ;GET CHAR 0 M R2,=F'10' ;*10 0 AR R3,R0 0 LA R1,1(R1) 0 B GETLOOP 0 * 0 TRTAB2 DS 0D 0 @0X DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @1X DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @2X DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @3X DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @4X DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @5X DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @6X DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @7X DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @8X DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @9X DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @AX DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @BX DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @CX DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @DX DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @EX DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 0 @FX DC X'00010203040506070809FFFFFFFFFFFF' 0 * 0 ********************************************************************** 0 ** ** 0 ** CONVERT SCREEN RELATIVE ADDRESS TO EDCIDIC AS NEEDED ** 0 ** BY 237X. ** 0 ** CODE BASIS BY IBM. ** 0 ** ** 0 ********************************************************************** 0 TOEBA DS 0H 0 STC R5,THEADDR+1 STORE SECOND ADDRESS BYTE 0 NI THEADDR+1,X'3F' KEEP ONLY 6 DIGITS 0 SRL R5,6 SHIFT R1 0 STC R5,THEADDR STORE FIRST ADDRESS BYTE 0 TR THEADDR(2),TBAD3270 CONVERT TO EBCDIC ADDRESS 0 BR R14 EXIT 0 * 0 * EBCDIC SCREEN ADDRESS 0 * 0 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 0 TBAD3270 DC X'40C1C2C3C4C5C6C7C8C94A4B4C4D4E4F' 0 0 DC X'50D1D2D3D4D5D6D7D8D95A5B5C5D5E5F' 1 0 DC X'6061E2E3E4E5E6E7E8E96A6B6C6D6E6F' 2 0 DC X'F0F1F2F3F4F5F6F7F8F97A7B7C7D7E7F' 3 0 DS 0F 0 DS H'0' 0 THEADDR DS H 0 * 0 END EBA 0