; SUBROUTINE READS 256 RT/11 16 BIT WORDS AND ; CONVERTS TO 256 12 BIT WORDS IN OS/8 FORMAT ; IGNORES LAST 16(OCTAL)WORDS AT END OF EACH ; SEGMENT,WHICH ONLY FILL IN THE SPACE .GLOBL IC IC: TST (R5)+ MOV (R5)+,INDEX+2 MOV (R5)+,R4 CLR R3 CLR N CLR COUNT START: CLR ST2 JSR PC,INDEX MOV R2,T1 TST (R3)+ SWAB T1 MOV T1,ST1 CLC ROR ST1 ASR ST1 ASR ST1 ASR ST1 MOV ST1,(R4)+ JSR PC,INDEX MOV R2,T2 TST (R3)+ SWAB T2 MOVB T2,ST2 SWAB T2 BIC #177400,T2 SWAB T1 BIC #170377,T1 BIS T1,T2 MOV T2,(R4)+ SWAB ST2 JSR PC,INDEX MOV R2,T3 MOV T3,T4 TST (R3)+ BIC #177417,T3 BIS T3,ST2 CLC ROR ST2 ASR ST2 ASR ST2 ASR ST2 MOV ST2,(R4)+ SWAB T4 BIC #170000,T4 MOV T4,(R4)+ INC N CMP #20,N BNE AGAIN CLR N ADD #40,R3 INC COUNT CMP #4,COUNT BNE AGAIN RTS PC INDEX: MOV 0(R3),R2 RTS PC AGAIN: JMP START T1: .WORD 0 T2: .WORD 0 T3: .WORD 0 T4: .WORD 0 ST1: .WORD 0 ST2: .WORD 0 COUNT: .WORD 0 L: .WORD 0 N: .WORD 0 .END