.title Alerr .ident /X00/ ;+ ; **-Alerr-Overlay load allocation failure routine ; ; Version X00 ; ; Wayne E. Baisley April 13, 1982 ; ; Modified to show the directive status on fatal errors. ; ; This routine is called by Auto if $rdseg returns a failure status. ; If the failure is due to low pool conditions, we wait for a signi- ; ficant event and Auto tries again. Any other error code produces a ; Breakpoint error with the directive status in R3. ; ; Inputs: ; ; R2=Overlay segment descriptor address ; R3=Overlay run-time system work area address ; ; Outputs: ; ; R3=Directive Status Word if overlay load has failed ;- .mcall drerr$, wsig$s drerr$ .list meb .psect $$aler $alerr::cmp @#$dsw,#ie.upn ;is this a pool problem ? beq 20$ ;if eq yes mov @#$dsw,r3 ;otherwise, get the status bpt ;die in a visible way ; ; It's only the usual pool problem. ; 20$: wsig$s ;wait for Godot return .end