.TITLE FETCH ; Does a device handler fetch into high memory. ; CALL FETCH (DEV) ; DEV is the device name in RAD50 ; On return R0 contains an error code. (Same as Syslib IFETCH) ; Author: D. N. Tanner ; Livermore, Ca 94550 .MCALL .DSTAT, .SETTOP, .FETCH .GLOBL FETCH FETCH: TST (R5)+ ;Bump parameter pointer SUB #10,SP ;Make room for area MOV SP,R1 ;Location of status space .DSTAT R1,(R5) ;Get the device status BIC R0,R0 MOV (SP)+,R1 MOV (SP)+,R1 MOV (SP)+,(SP)+ BCS 4$ ;Device name not found BNE 1$ ;Handler in memory ADD @#50,R2 ;Add current top to handler size .SETTOP R2 CMP R2,R0 BGT 3$ ;No room for handler .FETCH R2, (R5) BIC R0,R0 ;Clear return flag, keeping C bit unchanged BCS 2$ ;Handler not found 1$: RTS PC 2$: INC R0 3$: INC R0 4$: INC R0 RTS PC .END