.TITLE SCCA - INHIBIT CONTROL C .IDENT /821022/ .GLOBL V.AREA .MCALL .SCCA ;USAGE ; PROCEDURE SCCA(VAR FLAG:INTEGER; ENABLE:BOOLEAN); EXTERNAL; .PSECT SCCA:: MOV (SP)+,R0 ;RETURN ADDRESS MOVB (SP)+,R1 BEQ 1$ ;DISABLE REQUESTED MOV (SP),R1 ;ENABLE REQUESTED 1$: MOV R0,(SP) .SCCA #V.AREA,R1 RTS PC .END