It's only a few of my programs (thanks to Vadim Urusov, who kept it!),
others were lost :((
Sorry, comments and manuals are in russian only
(don't forget to choose "View -> Character Set -> Cyrillic (KOI8-R)" in
Your browser - there are no html-headers in these files! :)
Automatic mouning of DA volumes
When DA device becames "ready" after power-on, it issues interrupt request
with X'0400' in CSW. Upon receving this interrupt, the program checks for
volume label and (if necessary) modifies apropriate UCB (status, label,
VTOC address fields). Allows operator to install 2 volumes with the same
label - 2-d will be mounted as labCUU.
Dumping of DA volumes with extraordinary amount of errors (old or damaged)
The program turns off standard error recovery and does it itself. If it
can't dump a track, it just goes to the next, until the last track of
volume reached. Then the program requires swap of volume to another device.
After swap it tries to dump only tracks, which where not dumped before.
Output is another DA volume, or tape in FDR4.1-compatible format.
Volume with 129 bad tracks was choosed for testing - 7 tracks left after
last swap :)
Assembling, linking, executing in 1 jobstep, with advanced abend diagnostics.
Just calling assembler, loader and the resulted program not in 3 JCL steps,
but 1 - the economy of time can reach 2 or 3 times for small programs.
If program terminates abnormally, the SNAP SVC is issued under _another_
TCB, the result is: _full_ diagnostic dump can be < 1 meter length,
because it does not contain modules of SVC 55 and access methods.
Additionaly, "R# XXXXXX points to MODULE+OFFSET" for each GR is printed;
machine code at abend point +-2 instructions is reassembled.
Printing of CCWs for secified device
The program hooks SVC 0 and prints all CCWs for specified device directly
to printer, using SIO/TIO "in real time".
Printing of "transfer control" SVCs for specified task
The program hooks SVC interrupts and prints SVCs 3,6,7,8,9,12,41,42 for
specified task directly to printer, using SIO/TIO.
Stoping specified task at specified module/offset
The program hooks SVC interrupts and upon entering the specified module
turns on "nondispathability" bit in TCB.