I can not remember why I needed this assembler program – and why it is in assembler – but here it is: the program who’s sole function is to ABEND.
ABENDIT CSECT EQUATES SAVE (14,12),,ABENDIT/SPDEPT/&SYSDATE/&SYSTIME/ USING ABENDIT,R11 SET UP BASE ADDRESSABILITY LR R11,R15 LOAD BASE REG WITH ENTRY POINT LA R14,SAVE GET ADDRESS OF REGISTER SAVE ST R13,4(0,R14) SAVE CALLER'S SAVE AREA ADDR ST R14,8(0,R13) SAVE MY SAVE AREA ADDRESS LR R13,R14 LOAD SAVE AREA ADDRESS * Business Logic ABEND 4321 * Epilogue RETURN EQU * L R13,4(R13) RETURN (14,12) RETURN TO CALLER LTORG SAVE DS 18F END ABENDIT
// Bert Grobs
May I simply say what a relief to uncover somebody who actually knows what they’re discussing on the net.
You actually understand how to bring a problem
to light and make it important. A lot more people must
check this out and understand this side of the story.
It’s surprising you are not more popular since you certainly possess the gift.