🚀 go-pugleaf

Bill Lynch wrote:
> 
> 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
It looks like disasm I wrote and modified for naspa/ CBT tape in 1985.