On 5/15/2014 9:41 AM, MichealButz wrote:
After which my TSO terminal emulater gives me error invald buffer address
2260 as I have a 24 x 80 screen wih 1.920 postions the sba code is E3 D4
Listed below ithe code used to translate the the row and column
Have you actually dumped the buffer when you got the error? Perhaps
storage got clobbered? Your code should work, but is horribly
inefficient. Try:
SET_BUFF L R0,ROW
L R1,COL
BCTR R0,0
BCTR R1,0
MH R0,=H'80'
AR R0,R1
SRDL R0,6
SRL R1,2
SRDL R0,6
> SRL R1,2
STCM R1,B'1100',SBACMD (or STH)
TR SBACMD(2),TABLE
BR XLNK
Also I would replace the =H'80' by a variable, allowing you to use the
code for different geometries (e.g., 27*132)
Gerhard Postpischil
Bradford, Vermont
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
