🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.asm370
Article #299

Re: (none)

#299
From: David A. Remaklus
Date: Thu, 15 Mar 1990 13:26
38 lines
2235 bytes
In article <927302n991EW01@amdahl.uts.amdahl.com> terry@amdahl.uts.amdahl.com (Lewis T. Flynn) writes:
>In article <9003122231.AA00613@lilac.berkeley.edu> IBM 370 Assembly Programming Discussion List <ASM370%UCF1VM.bitnet@lilac.berkeley.edu> writes:
>>On Wed, 7 Mar 90 12:37:19 GLT Bill Vlachoudis said:
>>>Hi, does anyone knows any smart|small algorithm, how to get
>>>the 3270 buffer address codes from Row and Column?
>>
>>        Sure,  you have to know the width of the screen in characters.
>>Typically it's 80,  but on a "model 5" it'll be 132.
>>
>[other stuff omitted]
>
>An alternative is to ask CP what's the shape of the screen. It's been a while
>and I have no manuals handy so I'll probably get the details wrong, but as
>of VM/SP4, CP does a "write structured field-query" to all tubes genned as
>3278s (or later devices) when the tube is enabled. The results of this
>information is available from a diagnose and includes the geometry of the
>screen. As this query can sometimes fail, you may want to do the query yourself
>(like XEDIT does). If this fails, there is another diagnose which will tell
>you the genned device model (like 2, 3, or 4). This is necessary as there are
>now more shapes than there used to be: 48x80 for 3193s, 62x160 for 3290s, etc.
>
>[still other stuff omitted]
>
>Terry

One thing to be careful of.  If the terminal is a VTAM controlled tube
the device type returned by the CP DIAGnose (don't remember which one)
is always a 3277 but the model number will be correct as to the
logmode specified(defaulted) when the terminal is logged in.

Dave


--

David A. Remaklus
NASA Lewis Research Center
MS 142-5
Technical Details
Message-ID: <1990Mar15.132608.7298@eagle.lerc.nasa.gov>
Path: arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!ucsd!ames!amelia!eagle!news
References: <CACZ0200@GRTHEUN1> <9003122231.AA00613@lilac.berkeley.edu> <927302n991EW01@amdahl.uts.amdahl.com>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!ucsd!ames!amelia!eagle!news
From: xxremak@csduts1.lerc.nasa.gov (David A. Remaklus)
Newsgroups: comp.lang.asm370
Subject: Re: (none)
Message-ID: <1990Mar15.132608.7298@eagle.lerc.nasa.gov>
Date: 15 Mar 90 13:26:08 GMT
References: <CACZ0200@GRTHEUN1> <9003122231.AA00613@lilac.berkeley.edu> <927302n991EW01@amdahl.uts.amdahl.com>
Reply-To: xxremak@csduts1.lerc.nasa.gov (David A. Remaklus)
Distribution: inet
Organization: NASA/Lewis Research Center, Cleveland
Lines: 38