[Info-vax] 64-bit (was Re: New CEO of VMS Software)

[Simon Clubley]

On 2024-01-12, Dave Froble <davef at tsoft-inc.com> wrote:
>
> I'll post pieces of code to keep this short, well, relatively ..
>
> ;       Parse the file specification, using the RMS $PARSE service
> ;
>          MOVAB   WRK_FAB,R8              ; Load FAB address
>          MOVAB   WRK_NAM,FAB$L_NAM(R8)   ; Set name block address
>          MOVL    DSC$A_POINTER(R3),FAB$L_FNA(R8)
>          CVTWB   DSC$W_LENGTH(R3),FAB$B_FNS(R8)
>          $PARSE  FAB = R8                ; Invoke RMS parsing service
>          BLBS    R0,200$                 ; Continue if all is okay
>          BRW     ERRORS                  ; Else return with error code

That's 32-bit code without a 64-bit version available. :-)

> ;
> ;       Set up the filename descriptor for the ACP access
> ;
> 200$:   MOVL    FAB$L_NAM(R8),R8        ; Point to NAM block
>          MOVZBL  NAM$B_ESL(R8),R0        ; Length of expanded string
>          MOVL    NAM$L_ESA(R8),R1        ; Address of expanded string
>          LOCC    #^A"]",R0,(R1)          ; Find end of directory
>          SUBW3   #1,R0,WRK_Q_FILDSC+DSC$W_LENGTH
>          ADDL3   #1,R1,WRK_Q_FILDSC+DSC$A_POINTER
>

Likewise. :-) I see others have already commented on the hardcoded "]". :-)

Sorry David, but that code could not be used in a pure 64-bit application. :-)

Simon.

PS: "$ set response/mode=good_natured" just in case it's not clear...

-- 
Simon Clubley, clubley at remove_me.eisner.decus.org-Earth.UFP
Walking destinations on a map are further away than they appear.