🚀 go-pugleaf

Bill Lynch wrote:
(snip)

The JCL, as promised (I did notice that Rich is using VM, I assume he
can translate the MVC JCL to the appropriate VM commands):

//S1   EXEC  PGM=ASMDASM,
//          PARM=COPYRIGHTOK
//SYSPRINT  DD  SYSOUT=*
//SYSLIB    DD  DISP=SHR,DSN=MY.TEST.LOADLIB
//SYSPUNCH  DD  SYSOUT=V,FREE=CLOSE
WBLS037 WBLS037
USING 000000 001000 3 P 000000
USING 001000 001000 4 P 001000

ASMDASM contains logic which scans the load module for any form of the
word "Copyright". If it finds one and you have not specified
"COPYRIGHTOK" in the PARM field, it quits. 

The two USING control cards tell ASMDASM to use R3 & R4 as the base
registers for the program, in that order. 

One note: when I tried the "INSTR" command, which directs the
disassembler to decode a particular block of the load module as
instructions (as opposed to the possibility of it's being data), I got
an error saying that the end offset was greater than the beginning
offset. This required a PTF to fix - I'm sure I could get the PTF no. if
anyone needs it. I needed to specify INSTR because ASMDASM had
interpreted some instructions as data, which threw off its instruction
counter when it resumed. It generated some very interesting
instructions, including a "MC", which generated an error when assembled. 

Thanks to whoever posted that the HLASM toolkit is separately priced, I
wasn't aware that it was.

Bill Lynch