/ / Abort task (via an IOT). / .globl abort / / abort(); / This routine executes an IOT trap / after closing your files. / abort: jsr r0,__csav / Linkage. mov __nlun,r4 / Point at table end. asl r4 add $__luns,r4 0: cmp r4,$__luns / Done ? blos 0f / Yes, go die. mov -(r4),(sp) / Grab ptr to FILE. beq 0b / No file. call fclose / Close the file br 0b / And go back for more. 0: iot / Die.