Re: Re: Where do I start?

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
> knowlege I just sit at the edge of.

I loused up the last message; the + indicates additional 
information is available by hitting ENTER, not ?

> *  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.
	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