Re: Re: Where do I start?

On Wed, May 26, 2010 at 6:27 PM, Gerhard Postpischil
<[email protected]>wrote:

>
>
> On 5/26/2010 7:19 PM, Ron Hudson wrote:
> > I tried running the program under TEST hoping that it would be a little
> > more forthcoming than
> > Your program failed "due to error+", nope. a whole nother body of
> > knowledge I just sit at the edge of.
>
> I loused up the last message; the + indicates additional
> information is available by hitting ENTER, not ?
>
> No, you got it right, '?" gave me the abend number but further enters and
'?'s
just say:

 DSP2     ENDED DUE TO ERROR+
 READY
?
 SYSTEM ABEND CODE 0C4   REASON CODE 000
 READY
?
 NO INFORMATION AVAILABLE
 READY

 READY




>
> > * MOVE STUFF FRON INBUF INTO DISPLY 00240000
> > * CODE:G.POSTPISHIL 00250000 Credit where due
>
> I'm not sure I want it <g> If I were to do this, I would just
> copy code from some other program, and use TRT to find the SBAs.
>
>
> > * ************************************************************* 00260000
> >
> > * BASICALLY, READ A CHAR FROM THE INPUT BUFFER INDEXD 00270000
> > * DECIDE TO POUND IT (REPLACE IT WITH A POUND SIGN) OR 00280000
> > * NOT THEN STORE IT TO THE DISPLY+INDEX 00290000
> >
> > * 00300000
> > * THEN INCREMENT THE INDEX AND SEE IF IT IS GREATER THAN 00310000
> > * THE BYTES READ RETURNED BY TGET IN R0 00320000
>
> These comments refer to the old code. In order to use the index
> technique, you need additional registers, or use only RX form
> instructions.
>

I thought they were still close enough - I was trying to use one index to
step through both
at one time - you use R6 and R5 instead.


>  LA 6,INPUT+3
> LA 5,DISPLY
> SR 2,2
>
> loop IC 3,0(2,6) INDEXED BYTE
> CLM 3,1,=X'11' SBA ?
> BE POUND
> STC 3,0(2,5)
> LA 2,1(,2)
> CR 2,0
> BL loop
> B done
>
> POUND LA 14,0(2,5)
>
> MVC 0(3,5),=C'###'
> LA 2,3(,2)
> CR 2,0
> BL loop
>
> Gerhard Postpischil
> Bradford, VT
>  
>