.TITLE IOR .IDENT /821021/ ;USAGE ; FUNCTION IOR(I,J:INTEGER):INTEGER; EXTERNAL; .PSECT IOR:: MOV (SP)+,R0 MOV (SP)+,R1 MOV (SP)+,(SP) BIS R1,(SP) JMP (R0) .END