Obtaining a disassembled listing of an object file
开云体育Hi William,you might know this already but in case you do not, it might come in handy in your endeavor: the source for APL\360 is downloadable at? best regards, 搁别苍é.
|
|
Hi. My name is William Gallant.
I am new to MTS. I hardly know?any MTS commands or how to find my way around the OS or use files, etc... I am looking for a way to get a disassembled listing of the APL object file on tape? ?d5.0t1.aws? ? I tried the OBJLIST program with options "ALL" selected but only got a complete detailed cross-reference of symbols and hex dumps of CSI records ( code mixed with data ) some which are 32767 bytes long. Question - Is there a way, using the program OBJUTIL instead of OBJLIST to obtain a disassemble listing ( even if piece by piece )? --? William Gallant |
|
On Mon, Jan 15, 2024 at 02:03 PM, William Gallant wrote:
Hi. My name is William Gallant.Have you tried UNSP:DISASM? That usually works for me |
开云体育Hi William,you might know this already but in case you do not, it might come in handy in your endeavor: the source for APL\360 is downloadable at? best regards, 搁别苍é.
|
|
I cannot use. UNSP:DISASM. because the. APL. object
toggle quoted message
Show quoted text
file uses. CSI. records which are code/data records of up to 32767 bytes in length.? DISASM only disassembles TXT records of 80 bytes of length at a time. ( Same as CSI records but only 80 bytes in length). There is a way, using OBJUTIL, to modify all of the CSI records to TXT records but I haven't figured out how. --? William Gallant On Monday, January 15, 2024, rvjansen@... <rvjansen@...> wrote:
|
|
Pretty sure orl=80 should do the trick.
toggle quoted message
Show quoted text
# copy unsp:disasm -x # run *objutil scards=-x 0=-y par=orl=80 # 11:12:08 OBJUTIL VERSION(CT311) 11:12:09 01-17-24 ADDED: PASS0 WORKAREA SYS13 PASS1 CARD PAB PA LCF FTXTA RFTXT COFST TXT END ENDA NTXT PASS4 ADA COTR PASS3 PASS5 EXIT ESD ESD0 PROGN NPROG ESD1 NENT ESD2 NEXT SCNE ESD5 LCOM RLD NBR RR RX RS SI SS ARL COMF SBCZ CONST FTXT CRLD ARLDS CF AXN MEN ADDR SAVA NAST AST USING BCV FXPT FLPT PR CXN CDN ART AST4 BSC NAVBS PRINT READ PRINTA PDOFF LCT READA SPPR PLCB DS TIME# COUNT MENC DECOMP PUNCH CSNOOP SNOOP RCALL ADROF IADROF MOVEC CPU time = 0.08 seconds. # 11:12:09 T=0.083 $0.03 # f -x maxlen -X MaxLen=3364 # f -y maxlen -Y MaxLen=80 # Thomas Valerio I cannot use. UNSP:DISASM. because the. APL. object |
Pretty sure orl=80 should do the trick. # copy unsp:disasm -x # run *objutil scards=-x 0=-y par=orl=80 # 11:12:08 OBJUTIL VERSION(CT311) 11:12:09 01-17-24 ADDED: PASS0 WORKAREA SYS13 PASS1 CARD PAB PA LCF FTXTA RFTXT COFST TXT END ENDA NTXT PASS4 ADA COTR PASS3 PASS5 EXIT ESD ESD0 PROGN NPROG ESD1 NENT ESD2 NEXT SCNE ESD5 LCOM RLD NBR RR RX RS SI SS ARL COMF SBCZ CONST FTXT CRLD ARLDS CF AXN MEN ADDR SAVA NAST AST USING BCV FXPT FLPT PR CXN CDN ART AST4 BSC NAVBS PRINT READ PRINTA PDOFF LCT READA SPPR PLCB DS TIME# COUNT MENC DECOMP PUNCH CSNOOP SNOOP RCALL ADROF IADROF MOVEC CPU time = 0.08 seconds. # 11:12:09 T=0.083 $0.03 # f -x maxlen -X MaxLen=3364 # f -y maxlen -Y MaxLen=80 # Thomas Valerio |
