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

[Dave Froble]

On 10/28/2019 12:27 PM, VAXman- at SendSpamHere.ORG wrote:
> 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
>

Ok, I see.

Please take no offense Brian, but it's "fancy" stuff like that I try to 
avoid.

We had:

         TSTL    (AP)+                   ; Skip argument count
         MOVL    @(AP)+,R2               ; Channel number
         MOVL    (AP)+,R3                ; Address of desc. of file spec.
         MOVL    @(AP)+,R4               ; MBC
         MOVL    @(AP)+,R5               ; Open mode

And modified to:

         MOVL    @4(AP),R2               ; Channel number
         MOVL    8(AP),R3                ; Address of desc. of file spec.
         MOVL    @12(AP),R4              ; MBC
         MOVL    @16(AP),R5              ; Open mode

My Macro-32 has always been as simple and straight forward as I could 
keep it.  Might keep John happy.

KISS principal.

-- 
David Froble                       Tel: 724-529-0450
Dave Froble Enterprises, Inc.      E-Mail: davef at tsoft-inc.com
DFE Ultralights, Inc.
170 Grimplin Road
Vanderbilt, PA  15486