Article View: comp.lang.asm370
Article #975Re: (no subject given)
From: Mark Woodruff
Date: Wed, 07 Mar 1990 18:02
Date: Wed, 07 Mar 1990 18:02
90 lines
7868 bytes
7868 bytes
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
Technical Details
Message-ID:
<9003071806.AA07913@lilac.berkeley.edu>Path:
arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!UCF1VM.BITNET!MARKShow Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!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 <ASM370%UCF1VM.bitnet@lilac.berkeley.edu> Distribution: inet Organization: The Internet Lines: 90