; SUBROUTINE CONVERTS 16 BIT NEGATIVE NUMBER TO 12 ; BIT NEGATIVE NUMBER .GLOBL IACON IACON: TST (R5)+ MOV @(R5)+,TEMPP ;NUMBER IN TEMP STORAGE BIC #170000,TEMPP ;CLEAR TOP 4 BITS BIS #4000,TEMPP ;SET 12TH BIT MOV TEMPP,R0 RTS PC TEMPP: .WORD 0 .END