[Info-vax] Possible VMS jobs - City of New York Fire Dept

[VAXman- at SendSpamHere.ORG]

In article <qp5jln$4j2$1 at dont-email.me>, Dave Froble <davef at tsoft-inc.com> writes:
>On 10/27/2019 11:13 AM, VAXman- at SendSpamHere.ORG wrote:
>> In article <qp2ng8$ro7$1 at dont-email.me>, Dave Froble <davef at tsoft-inc.com> writes:
>>> On 10/26/2019 6:26 PM, Michael Moroney wrote:
>>>
>>>> Port VMS code from VAX to Itanium, just recompile and relink, right? HAHAHA,
>>>
>>> Well, for some it was just that simple, or at least not too bad.
>>>
>>> The biggest problem we ran into is that on VAX we were incrementing the
>>> AP as we read the arguments.  Macro-32 compiler didn't like that.  The
>>> fix was rather simple.
>>
>> Home the arguments.
>>
>
>Sorry, don't understand that ..

Perhaps, an example...

	.TITLE	INCREMENT_AP_TEST

	.PSECT	DATA,WRT,NOEXE,5
ONE:	.ASCID	"ONE"
	.ALIGN	QUAD
TWO:	.ASCID	"TWO"
	.ALIGN	QUAD
THREE:	.ASCID	"THREE"
	.ALIGN	QUAD
FOUR:	.ASCID	"FOUR"
	.ALIGN	QUAD
FIVE:	.ASCID	"FIVE"
	.ALIGN	QUAD
SIX:	.ASCID	"SIX"
	.ALIGN	QUAD
SEVEN:	.ASCID	"SEVEN"
	.ALIGN	QUAD
EIGHT:	.ASCID	"EIGHT"
	.ALIGN	QUAD
NINE:	.ASCID	"NINE"
	.ALIGN	QUAD
TEN:	.ASCID	"TEN"

	.PSECT	CODE,NOWRT,EXE,5
	.ENTRY	GO,0

	PUSHAL	ONE
	PUSHAL	TWO
	PUSHAL	THREE
	PUSHAL	FOUR
	PUSHAL	FIVE
	PUSHAL	SIX
	PUSHAL	SEVEN
	PUSHAL	EIGHT
	PUSHAL	NINE
	PUSHAL	TEN
	CALLS	#10,OUTPUT
	RET
	.END	GO

	.TITLE	INCREMENT_AP_EXAMPLE

	.PSECT	CODE,NOWRT,EXE,5
	.CALL_ENTRY	HOME_ARGS=TRUE,LABEL=OUTPUT,MAX_ARGS=15

	MOVAL	(AP),R12
	JSB	100$
	RET

100$:	.JSB_ENTRY	
	PUSHL	R2
	MOVL	(AP)+,R2
200$:	PUSHL	(AP)+
	CALLS	#1,G^LIB$PUT_OUTPUT
	SOBGTR	R2,200$
	POPL	R2
	RSB
	.END

-- 
VAXman- A Bored Certified VMS Kernel Mode Hacker    VAXman(at)TMESIS(dot)ORG

I speak to machines with the voice of humanity.