¿ªÔÆÌåÓý

Re: Stupid z/VM 7.1 assembler question


 

"ASSEMBLER (XF) DONE"?

Has your version of Assembler XF been patched for z/Arch opcodes? I thought the only way to get z/Arch opcodes in Assembler XF was via macros?

Joe

On Sun, Feb 6, 2022 at 12:59 PM Fish Fish <david.b.trout@...> wrote:
Folks,

Sorry to bother you with a question about z/VM, but I'm afraid I'm just not that skilled at doing software development on modern z/VM systems.

I have a simple standalone test program I want to assemble and genmod under CMS, but the assembler keeps flagging almost every statement with "undefined opcode". I noticed they're all z/Arch instructions.

So it seems obvious I'm either missing some simple but critically important option to tell the assembler this is a z/Arch program and not a S/370 or S/390 program, -OR- perhaps more likely, I'm simply invoking the wrong damn assembler!

Here's the program, and, following it, the errors I get when I try to assemble it.

HELP!? :(



TXFPER? ?START 0
? ? ? ? ?USING TXFPER,R0
? ? ? ? ?ORG? ?TXFPER+X'1A0'? ? ? ? z Restart New PSW
? ? ? ? ?DC? ? X'0000000180000000'
? ? ? ? ?DC? ? AD(GO)
? ? ? ? ?ORG? ?TXFPER+X'200'
GO? ? ? ?DS? ? 0H
? ? ? ? ?STCTG R0,R0,CTL0
? ? ? ? ?LG? ? R0,CTL0
? ? ? ? ?OIHH? R0,CR0TXF
? ? ? ? ?STG? ?R0,CTL0
? ? ? ? ?LCTLG R0,R0,CTL0
? ? ? ? ?BAL? ?R14,CTRANS
? ? ? ? ?BAL? ?R14,UTRANS
? ? ? ? ?LPSWE GOODPSW
CTRANS? ?DS? ? 0H
? ? ? ? ?LA? ? R1,1(R1,R1)
? ? ? ? ?TBEGINC ,
? ? ? ? ?LA? ? R2,2(R2,R2)
? ? ? ? ?TEND? ,
? ? ? ? ?LA? ? R3,3(R3,R3)
? ? ? ? ?BR? ? R14
UTRANS? ?DS? ? 0H
? ? ? ? ?LA? ? R1,1(R1,R1)
? ? ? ? ?TBEGIN ,
? ? ? ? ?LA? ? R2,2(R2,R2)
? ? ? ? ?TBEGIN ,
? ? ? ? ?LA? ? R3,3(R3,R3)
? ? ? ? ?TEND? ,
? ? ? ? ?LA? ? R4,4(R4,R4)
? ? ? ? ?TEND? ,
? ? ? ? ?LA? ? R5,5(R5,R5)
? ? ? ? ?BR? ? R14
CTL0? ? ?DC? ? D'0'? ? ? ? ? ? ? ?Control Register 0
CR0TXF? ?EQU? ?X'0080'? ? ? ? ? ? CR0 bit 8: TXF Control
GOODPSW? DC? ? XL8'0002000180000000'
? ? ? ? ?DC? ? XL4'00000000',A(X'00000000')
R0? ? ? ?EQU? ?0
R1? ? ? ?EQU? ?1
R2? ? ? ?EQU? ?2
R3? ? ? ?EQU? ?3
R4? ? ? ?EQU? ?4
R5? ? ? ?EQU? ?5
R6? ? ? ?EQU? ?6
R7? ? ? ?EQU? ?7
R8? ? ? ?EQU? ?8
R9? ? ? ?EQU? ?9
R10? ? ? EQU? ?10
R11? ? ? EQU? ?11
R12? ? ? EQU? ?12
R13? ? ? EQU? ?13
R14? ? ? EQU? ?14
R15? ? ? EQU? ?15
? ? ? ? ?END


assemble txfper

ASSEMBLER (XF) DONE
? ? ? ? ? ? ? ? 5? ? ? ? ? DC? ? AD(GO)
IFO178 SYNTAX ERROR NEAR OPERAND COLUMN 2
? ? ? ? ? ? ? ? 8? ? ? ? ? STCTG R0,R0,CTL0
IFO078 UNDEFINED OP CODE
? ? ? ? ? ? ? ? 9? ? ? ? ? LG? ? R0,CTL0
IFO078 UNDEFINED OP CODE
? ? ? ? ? ? ? ?10? ? ? ? ? OIHH? R0,CR0TXF
IFO078 UNDEFINED OP CODE
? ? ? ? ? ? ? ?11? ? ? ? ? STG? ?R0,CTL0
IFO078 UNDEFINED OP CODE
? ? ? ? ? ? ? ?12? ? ? ? ? LCTLG R0,R0,CTL0
IFO078 UNDEFINED OP CODE
? ? ? ? ? ? ? ?15? ? ? ? ? LPSWE GOODPSW
IFO078 UNDEFINED OP CODE
? ? ? ? ? ? ? ?18? ? ? ? ? TBEGINC ,
IFO078 UNDEFINED OP CODE
? ? ? ? ? ? ? ?20? ? ? ? ? TEND? ,
IFO078 UNDEFINED OP CODE
? ? ? ? ? ? ? ?25? ? ? ? ? TBEGIN ,
IFO078 UNDEFINED OP CODE
? ? ? ? ? ? ? ?27? ? ? ? ? TBEGIN ,
IFO078 UNDEFINED OP CODE
? ? ? ? ? ? ? ?29? ? ? ? ? TEND? ,
IFO078 UNDEFINED OP CODE
? ? ? ? ? ? ? ?31? ? ? ? ? TEND? ,
IFO078 UNDEFINED OP CODE
NUMBER OF STATEMENTS FLAGGED IN THIS ASSEMBLY =? ? 13
Ready(00008); T=0.09/0.13 10:45:36



What am I doing wrong? What am I missing?

HELP!? :(

Thanks.

--
"Fish" (David B. Trout)
Software Development Laboratories

mail: fish@...







Join [email protected] to automatically receive all group messages.