.title $deny .ident /x01/ .enabl lc .nlist bex ; ; Utility Routines ; No space ; ; Version x01 ; ; David G. Conroy 12-Dec-77 ; .globl $deny .mcall call .mcall callr .mcall return err01: .asciz 'Out of space ($deny)' .even ;+ ; ** $deny - Out of space ; ; This is the default version of the $deny routine. It is loaded from ; the library only if the user has not specified his own routine. It ; types a message onto the terminal (via $msg) and aborts with an IOT ;- $deny: mov #err01,r0 ;Put out the message call $msg iot ;And die .end