Question

关于Im的使用:Im使用z390便携式主机和模拟器。

I m 试图组装时发现“没有基本登记册”错误。

I tried putting in USING *,12 but wherever I put it it doesn t do anything. "no base register found"

我试图应用<条码>BASR 12,0;有错误。我:

17:53:44 PROG4     EZ390 EZ390E error  11 ABEND PSW=07050600 800FFCEC F6F6F6F64040 ????? ABEND S0C1
17:53:44 PROG4     EZ390 EZ390E error  12 program aborting due to abend S0C1

http://publibz.boulder.ibm.com/epubs/pdf/asmr1020.pdf” rel=“nofollow” http://publibz.boulder.ibm.com/epubs/pdf/asmr1020.pdf,但Im在申请时遇到麻烦。

来源一:http://en.wikipedia.org/wiki/IBM_Basic_assembly_English#Assembler_instructions

How do I have the assembler find the base register?

最新信息:对基础登记册仍有麻烦。

额外资源:

www.tradingwiz.net63.net/pdf/Sessions5and6.pdf

www.z390.org/z390_Documentation.htm

        TITLE  CS 4321 Program #4 by J. Colt Wright  
        PRINT NOGEN    
COPY          SUBENTRY
    USING *,12
    TITLE  PROGRAM 4 80/80 LISTING 
    PRINT NOGEN
COPY2 SUBENTRY

    WTO  PROG4 COPY PROG4 (ASCII) TO COPY (ASCII) 
    OPEN (INFILE,INPUT)
    OPEN (OUTFILE,OUTPUT)
    WTO  Files opened successfully 
*

LOOP EQU *
    GET INFILE,IRECORD
    MVC ORECORD,=CL80   
    MVC ORECORD(72),IRECORD
    PUT OUTFILE,ORECORD
    B LOOP
*
EOF EQU *
    CLOSE (INFILE,,OUTFILE)
    WTO  PROG4 ENDED OK 
    SUBEXIT

    SUBEXIT   


INFILE  DCB     DDNAME=INFILE,                                         X
                DSORG=PS,                                              X
                RECFM=FT,                                              X
                LRECL=72,                                              X
                EODAD=EOF,                                             X
                MACRF=GM
*
OUTFILE DCB     DDNAME=OUTFILE,                                        X
                DSORG=PS,                                              X
                RECFM=FT,                                              X
                LRECL=80,                                              X
                MACRF=PM
*
IRECORD DC    CL72   
ORECORD DC    CL80   
ENDPGM  DS D
 END COPY

根据我是否提供<代码>COPY2 SUBENTRY.<>。

我试图使该法典付诸实施。

I have the code working besides for this.

Answer 1

首先，您不应该需要COPY SUBENTRY，因为它只会在第一次处理过程中将宏定义的副本放入源中。有时您可能需要它（特别是用于宏调试），但这不是其中之一。（SUBENTRY/EXIT作为辅助宏与z390一起分发。）

I took your program and removed the PRINT NOGEN statements. In general, I don t like using PRINT NOGEN, because there is lots of information that it suppresses, such as the instructions generated by SUBENTRY. Back in the days of tree-killing printouts, you saw this more, but now when listings are sent to disk, it s not a big deal.

一般来说,当你们有像中美洲一体化体系这样的进入宏观时,它就建立了基础登记册。删除PRINTNOGEN表明,它实际上将第13号登记册(或R13-一种在组群中的共同缩略语)在方案区一开始即予以封存区(和)使用R13作为基准登记和启动。所发生的事情是,你走进了集会者的有文件记录的规则,但不是许多人记住。规则是:如果地址包含在多份电离层报表中,则会使用数量较低的登记册。页: 1

因此,情况是,贵国的数据领域由两个登记册覆盖,而组别选择较低的价值(12)。既然你从未把价值装入R12,那就指谁知道什么。因此,当你试图从这一登记册中获取数据时——繁荣。

简单的解决办法是从你的方案中删除“美元”*,12 而“汇合器”从R13中产生基调地址。我这样做,是因为我没有投入文件,但我预计会这样做。

Answer 2

I haven t used z390 (and know only a little about 390 assembly in general), but: SUBENTRY and SUBEXIT must be macros which expand to a CSECT declaration and appropriate register fiddling for entry/exit, and so I would guess that nesting the COPY2 SUBENTRY ... SUBEXIT inside the COPY SUBENTRY ... SUBEXIT is a really bad idea.

Answer 3

该网站没有表明如何就原始问题发表意见,因此我可以在这里发言。

需要更多的信息。哪一个基地登记册是集会者期待的? 圣母进殿派修女会说,“没有展示由宏观产生的指示”,如果看不到这些指示,我们就能够说什么。临时自治机构一般都是缺席的,一般是有用的。

页: 1 <代码>F6F6F664040 在社会工作局之后,展示社会工作是了解问题的关键。您添加的<条码>BASR 12,0<>/代码>指示似乎使代码基的地址无效。在截止日期时,登记号为12号,其数据部分为<代码>F6F6......值,其中第一个星号(F6)为无效代码。 Invalid opcodes production S0C1 abends. 当基地登记册被分配不当地址时,就会出现这种情况。

友情链接