BPX2OPN服务打开现有HFS文件读取/获取状态失败排查

首先明确：BPX2OPN完全支持打开现有HFS文件，你的错误源于参数传递和结构初始化的问题，以下是具体排查和修正点：

1. 路径长度参数传递错误 #

这是导致EINVAL（返回码0x79）和路径含NULL提示（原因码0x3A）的核心问题：
BPX2OPN的第一个参数PathLength要求传入路径名的实际字节长度值，但你的代码中传递的是存储长度的内存地址（PATHLEN），而非长度值本身。

错误代码片段：

ST  R10,PATHLEN
...
CALL  BPX2OPN, (PATHLEN, ...)  ; 传递了PATHLEN的地址，而非里面的长度值

修正方式：
直接将长度值传入调用栈，而非地址。比如用寄存器值直接传递：

CALL  BPX2OPN,                                                 x
       (R10,                                                    x  ; 直接传长度值R10
       PATHNAME,                                               x
       O_FLAGS,                                                x
       S_MODE,                                                 x
       R8,                                                     x  ; 直接传STAT长度值R8
       STAT,                                                   x
       RV,                                                     x
       RC,                                                     x
       RN),MF=(E,BPXOPND)

或者确保参数块中存储的是值，且宏调用正确解析为值传递（需结合你的BPXOPND参数块定义调整）。

2. 打开标志（O_FLAGS）初始化冗余 #

你的代码中用MVI O_FLAGS4,O_RDONLY设置只读标志，这是错误的：

• BPX2OPN的OpenFlags是4字节的整数字段，O_RDONLY的定义为0x00000000（只读），只需通过XC清零即可完成设置，无需单独修改第4字节。

修正代码：

XC  O_FLAGS(4),O_FLAGS  ; 直接清零4字节，等价于设置O_RDONLY

如果需要其他标志（如O_NOCTTY），则通过OI或ST指令设置对应位即可。

3. 冗余的路径内容加载代码 #

你代码中加载路径内容到R2-R6的部分完全多余，BPX2OPN不需要这些寄存器中的路径数据，反而可能造成寄存器污染，建议删除：

L   R2,0(,R9)
L   R3,4(,R9)
L   R4,8(,R9)
L   R5,12(,R9)
L   R6,16(,R9)

4. 其他验证点 #

• 确认PATHNAME指向的EBCDIC路径名缓冲区没有超出范围，且长度值（R10）与实际路径的字节数完全匹配（../data/series.txt的EBCDIC字节数需准确计算，不含终止NULL）。
• 确认STAT结构的长度（STAT#LENGTH）符合BPX定义的标准STAT结构长度（通常为108字节），长度不匹配也可能导致调用失败。
• 打开现有文件时，S_MODE参数会被忽略，但仍需传递合法的4字节内存地址，你的当前设置（S_IRUSR）是合法的，无需修改。

修正后的核心代码示例：

USING PARMS,R1
        L   R10,PPATHL        ; PPATHL中存储的是路径的实际字节长度值
        L   R9,PPATHA         ; PPATHA中存储的是EBCDIC路径名的缓冲区地址
        LA  R8,STAT#LENGTH
        XC  O_FLAGS(4),O_FLAGS  ; 设置O_RDONLY
        XC  S_MODE(4),S_MODE
        MVI S_MODE2,S_IRUSR   ; 模式参数合法即可，打开现有文件时被忽略

        ; 直接传递寄存器中的值和地址，避免传递存储地址
        CALL  BPX2OPN,                                                 x
               (R10,                                                    x
               R9,                                                      x
               O_FLAGS,                                                x
               S_MODE,                                                 x
               R8,                                                     x
               STAT,                                                   x
               RV,                                                     x
               RC,                                                     x
               RN),MF=(E,BPXOPND)
        L     R7,RV
        L     R8,RC
        L     R9,RN
        ; 后续错误处理逻辑

内容的提问来源于stack exchange，提问作者mike