.TITLE OFF8 .GLOBL OFF8,SET8 OFF8: MOV 2(R5),R0 ;ADDRESS TO CLEAR BYTES IN MOV @4(R5),R1 ;NO BYTES TO CLEAR 1$: BICB #200,(R0)+ DEC R1 BGT 1$ RTS PC SET8: MOV 2(R5),R0 MOV @4(R5),R1 1$: BISB #200,(R0)+ DEC R1 BGT 1$ RTS PC .GLOBL BCLR BCLR: MOV 2(R5),R0 ;GET ADDRESS MOV @4(R5),R1 ;GET WORDS TO ZERO BLE 1$ ;BE SURE POSITIVE 2$: CLR (R0)+ SOB R1,2$ 1$: RTS PC .END