- Community Home
- >
- Servers and Operating Systems
- >
- Operating Systems
- >
- Operating System - OpenVMS
- >
- Vax to Alphaserver Macro Conversion
Operating System - OpenVMS
1753884
Members
7698
Online
108809
Solutions
Forums
Categories
Company
Local Language
back
Forums
Discussions
Forums
- Data Protection and Retention
- Entry Storage Systems
- Legacy
- Midrange and Enterprise Storage
- Storage Networking
- HPE Nimble Storage
Discussions
Discussions
Discussions
Forums
Discussions
back
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
- BladeSystem Infrastructure and Application Solutions
- Appliance Servers
- Alpha Servers
- BackOffice Products
- Internet Products
- HPE 9000 and HPE e3000 Servers
- Networking
- Netservers
- Secure OS Software for Linux
- Server Management (Insight Manager 7)
- Windows Server 2003
- Operating System - Tru64 Unix
- ProLiant Deployment and Provisioning
- Linux-Based Community / Regional
- Microsoft System Center Integration
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Blogs
Information
Community
Resources
Community Language
Language
Forums
Blogs
Go to solution
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
08-13-2008 10:09 AM
08-13-2008 10:09 AM
I have a Vax macro that needs to be converted so it will work on an alphaserver. I don't know assembler. It's really short. Will someone please help me.
Solved! Go to Solution.
1 REPLY 1
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
08-13-2008 11:25 AM
08-13-2008 11:25 AM
Solution
No 'port' needed.
Just general and recommended cleanups.
It works for me, in exactly 1 test.
It might just work for you...
$create tmp.mar
.psect data wrt,noexe
INFAB: $FAB NAM=NAMBLK
INRAB: $RAB FAB=INFAB
NAMBLK: $NAM
.psect code nowrt,exe
.entry GETFID,^M<>
MOVL 4(AP),R0
MOVB (R0),W^INFAB+FAB$B_FNS
MOVL 4(R0),INFAB + FAB$L_FNA
$OPEN FAB=W^INFAB
BLBC R0,EXIT
MOVL 8(AP),R0
MOVAL NAMBLK,R1
MOVW NAM$W_FID_NUM(R1),(R0)+
MOVW NAM$W_FID_SEQ(R1),(R0)+
MOVW NAM$W_FID_RVN(R1),(R0)
$CLOSE FAB=W^INFAB
EXIT: RET
.END
$create test.bas
map (x) word a,b,c
call getfid ("login.com",a)
print a,b,c
end
$macro tmp
$basic test
$link test,tmp
$run test
$ run test
-5439 4890 256
$ write sys$output f$file("login.com","FID")
(125633,4890,0)
$ fid1 = -5439
$ fid2 = 125633
$ shwo symb fid*
FID1 = -5439 Hex = FFFFEAC1 Octal = 37777765301
FID2 = 125633 Hex = 0001EAC1 Octal = 00000365301
So the -5439 is really %xEAC1
And the 256 is really the lower bit for %x0001
Cheers,
Hein van den Heuvel
Just general and recommended cleanups.
It works for me, in exactly 1 test.
It might just work for you...
$create tmp.mar
.psect data wrt,noexe
INFAB: $FAB NAM=NAMBLK
INRAB: $RAB FAB=INFAB
NAMBLK: $NAM
.psect code nowrt,exe
.entry GETFID,^M<>
MOVL 4(AP),R0
MOVB (R0),W^INFAB+FAB$B_FNS
MOVL 4(R0),INFAB + FAB$L_FNA
$OPEN FAB=W^INFAB
BLBC R0,EXIT
MOVL 8(AP),R0
MOVAL NAMBLK,R1
MOVW NAM$W_FID_NUM(R1),(R0)+
MOVW NAM$W_FID_SEQ(R1),(R0)+
MOVW NAM$W_FID_RVN(R1),(R0)
$CLOSE FAB=W^INFAB
EXIT: RET
.END
$create test.bas
map (x) word a,b,c
call getfid ("login.com",a)
print a,b,c
end
$macro tmp
$basic test
$link test,tmp
$run test
$ run test
-5439 4890 256
$ write sys$output f$file("login.com","FID")
(125633,4890,0)
$ fid1 = -5439
$ fid2 = 125633
$ shwo symb fid*
FID1 = -5439 Hex = FFFFEAC1 Octal = 37777765301
FID2 = 125633 Hex = 0001EAC1 Octal = 00000365301
So the -5439 is really %xEAC1
And the 256 is really the lower bit for %x0001
Cheers,
Hein van den Heuvel
The opinions expressed above are the personal opinions of the authors, not of Hewlett Packard Enterprise. By using this site, you accept the Terms of Use and Rules of Participation.
News and Events
Support
© Copyright 2024 Hewlett Packard Enterprise Development LP