rrk@byuvax.bitnet (04/30/88)
I would also really like to find some source implementing a CLI. Also, has anyone seen any code (source preferably) which implements a VMS debugger (linked in via LINK/DEBUG=MYDEBUGGER)? I would like to write a VMS code tracer/analyzer/debugger. Thanks.
rrk@byuvax.bitnet (04/30/88)
Once again, I was brilliant and didn't sign the request: AMMON::RAY
bdm@anucsd.oz (Brendan McKay) (05/08/88)
In article <112rrk@byuvax.bitnet>, rrk@byuvax.bitnet writes: > Also, has anyone seen any code (source preferably) which implements a VMS > debugger (linked in via LINK/DEBUG=MYDEBUGGER)? I would like to write a > VMS code tracer/analyzer/debugger. Thanks. Below is a debugger that does nothing. For some reason I can't remember, I once wanted to be able to link/debug but then run as a foreign command without the VMS debugger starting. Something to do with the debugger records in the .EXE file. Anyway, to do something non-trivial, just insert it before you transfer to the normal start address. ;---snip----snip----snip---------------------------------------- ; This is a dummy debugger. It simply gives immediate control to the ; user's program. It was written by Brendan McKay using a program of ; Tom Allebrandi as a guide. dummydeb: .word ^m<r2> addl2 #4, 4(ap) ; advance transfer vector array pointer ; to point to user start address movl @4(ap), r2 ; get user start address callg (ap), (r2) ; go there ret ; return to CLI .end dummydeb ;--------------------------------------------------------------- Paper: Computer Science Department, Australian National University, GPO Box 4, Canberra, ACT 2601, Australia. Telephone: + 61 62 49 3845 Telex: AA 62760 NATUNI ACSnet: bdm@anucsd.oz ARPA: bdm%anucsd.oz@uunet.uu.net CSNET: bdm@anucsd.oz.australia JANET: anucsd.oz!bdm@ukc UUCP: {uunet,ubc-cs,ukc,mcvax,prlb2,enea,mulga}!munnari!anucsd!bdm BITNET: munnari!anucsd.oz!bdm@uunet.uu.net (or similar) Some mailers may need ".oz.au" instead of ".oz".