Google
 

Trailing-Edge - PDP-10 Archives - integ_tools_tops20_v7_30-apr-86_dumper - tools/10backup_v2_3/c36.mar
There are 8 other files named c36.mar in the archive. Click here to see a list.
	.title	C36	DEC-10 36 Bit Conversion Routines
	.ident	'C36 v2.3'
;
; This module is part of 10BACKUP - a program to read DECsystem-10
; BACKUP tapes in INTERCHANGE mode on a VAX.
;
; This module contains various routines to unpack the 36 bit blocks
; written on the DECsystem-10.
;
; The source modules that make up the 10BACKUP program are:-
;
;	10BACKUP.BAS	the main line program.
;	BIO.MAR		contains tape and file IO routines.
;	BUR.MAR		is a set of macro utility routines.
;	C36.MAR		contains 36 bit conversion routines.
;	BMS.MSG		contains the error message definitions.
;	10BACKUP.RNH	Runoff input to build the help library.
;
;
;	Each DEC-10 36 bit word is written to tape as five bytes.
; The fifth byte uses only the low 4 bits. To compound problems
; the five bytes are written on the tape in the reverse order to
; how the VAX reads them.
;	For ascii information this means that the bytes are set
; up in the following manner:-
;
;	    4	     3	      2	       1	0
; Char:  xxxx555x 44445555 33333444 22222233 11111112
;  Bit:  xxxx210x 32106543 43210654 54321065 65432106
;
;
;
; C36_UNPACK is a routine to unpack DEC-10 blocks into binary form ready
; for further processing. Each 5 byte DEC-10 word is converted into a sign
; extended quadword. This unpacking assumes the tape is written in TM10
; format as documented on page 6-18 of our ancient Hardware Reference
; Manual (DEC-10-XSRMA-A-D). Other drives may produce slightly different
; formats and require a different version of Unpack. This is a bit hard
; for me to determine without knowing anything about other machines so if
; you do strike problems please let me know (otherwise I will never know
; there is a problem and will never fix it!!).
;
; Binary map (before unpacked):-
;
;	    4	     3	      2	       1	0
;	          11       11111111 22222222 33333322
;  Bit:  xxxx3210 10987654 98765432 76543210 54321098
;
; Called via:  CALL C36_UNPACK( WORD_COUNT, WORDS(), QUAD_RESULT() )
;
	.psect	$code,pic,shr,nowrt,long
;
	.entry	c36_unpack,^M<R3,R4,R5,R6,R7,R8,R9>

	movl	4(AP),R5			;Number of DEC-10 words.
	bleq	50$				;If none then finished.
	movl	8(AP),R4			;Address of input buffer.
	movl	12(AP),R3			;Address of output buffer.
	cvtbl	#-4,R6				;Constant #-4.
	cvtbl	#-8,R7				;Constant #-8.
	cvtbl	#-28,R8				;Constant #-28.
	movl	#^XF0,R9			;Constant #^XF0.
;
10$:	rotl	R7,(R4)+,R1			;Get upper four bytes.
	beql	20$				;All zero?
	insv	R1,#16,#8,R1			;Relocate byte one.
	movb	B^-1(R4),R1			;Replace byte three.
	movb	(R4)+,R0			;Get byte four.
	rotl	R6,R0,R0			;Position it.
	ashq	R8,R0,(R3)+			;Store with sign extension.
	sobgtr	R5,10$				;Do for all words.
	brb	50$				;Done
;
20$:	bicb3	R9,(R4)+,R0			;Get low four bits.
	movzbl	R0,(R3)+			;Store lower half.
	clrl	(R3)+				;Store upper half.
	sobgtr	R5,10$				;Do for all words.
;
50$:	ret					;Return to caller.
;
;
;
;
;
;
;
; C36_CHKSUM is a routine to compute the check sum for a
; block of unpacked DEC-10 words. The resultant check sum
; is a sign extended quadword.
;
; Called via:  CALL C36_CHKSUM( WORD_COUNT, WORDS(), CHECK_SUM )
;
	.psect	$code,pic,shr,nowrt,long
;
	.entry	c36_chksum,^M<R3,R4,R5>

	clrq	R0				;Initialize check sum.
	movl	4(AP),R5			;Number of DEC-10 words.
	bleq	50$				;If none then finished.
	movl	8(AP),R4			;Address of input buffer.
	movl	12(AP),R3			;Address of check sum output.
;
10$:	addl	(R4)+,R0			;Add in low order.
	adwc	(R4)+,R1			;Add in hi order.
	ashq	#1,R0,R0			;Move to left one pos.
	bbc	#4,R1,20$			;Did we move a set bit out?
	bisb	#1,R0				;Yup, put it back in.
;
20$:	sobgtr	R5,10$				;Do for all words.
;
50$:	movl	R0,(R3)+			;Pass back lo result.
	extv	#0,#4,R1,(R3)			;Sign extend hi result.
	ret					;Return to caller.
;
;
;
;
; C36_HFWD is a routine to extract the two half words from an unpacked
; DEC-10 binary word.
;
; Called via:  CALL C36_HFWD( WORD, LEFT_RESULT, RIGHT_RESULT )
;
	.psect	$code,pic,shr,nowrt,long
;
	.entry	c36_hfwd,^M<>

	movq	@4(AP),R0			;Get DEC-10 word.
;
	extzv	#18,#18,R0,@8(AP)		;Return left half.
	bicl3	#^XFFFC0000,R0,@12(AP)		;Return right half.
;
	ret					;Return to caller.
;
;
;
; C36_ASCII is a routine to extract the ascii characters from a
; block of unpacked DEC-10 words.
;
; Ascii character map (before unpacked):-
;
;	    4	     3	      2	       1	0
; Char:  xxxx555x 44445555 33333444 22222233 11111112
;  Bit:  xxxx210x 32106543 43210654 54321065 65432106
;
; Ascii character map (unpacked):-
;
;	    4	     3	      2	       1	0
; Char:  xxxx1111 11122222 22333333 34444444 5555555x
;  Bit:  xxxx6543 21065432 10654321 06543210 6543210x
;
;
; Called via:  CALL C36_ASCII( WORD_COUNT, WORDS(), ASCII_RESULT() )
;
	.psect	$code,pic,shr,nowrt,long
;
	.entry	c36_ascii,^M<R3,R4,R5,R6>

	movl	4(AP),R5			;Number of DEC-10 words.
	bleq	50$				;If none then already finished.
	movl	8(AP),R4			;Address of input buffer.
	movl	12(AP),R3			;Address of output buffer.
	movzbl	#^X80,R6			;Constant value - #^X80.
;
10$:	ashq	#3,(R4)+,R0			;Get the five characters.
	bicb3	R6,R1,(R3)+			;Store first char.
;
	rotl	#7,R0,R0			;Position second char.
	bicb3	R6,R0,(R3)+			;Store second char.
;
	rotl	#7,R0,R0			;Position third char.
	bicb3	R6,R0,(R3)+			;Store third char.
;
	rotl	#7,R0,R0			;Position fourth char.
	bicb3	R6,R0,(R3)+			;Store fourth char.
;
	rotl	#7,R0,R0			;Position fifth char.
	bicb3	R6,R0,(R3)+			;Store fifth char.
;
	sobgtr	R5,10$				;Do until no more words.
;
50$:	ret					;Return to caller.
;
;
;
; C36_SIXBIT is a routine to extract the sixbit characters from a
; block of unpacked DEC-10 words.
;
; Sixbit character map (before unpacked):-
;
;	    4	     3	      2	       1	0
; Char:  xxxx6666 55555566 33444444 22223333 11111122
;  Bit:  xxxx3210 54321054 10543210 32105432 54321054
;
; Sixbit character map (unpacked):-
;
;	    4	     3	      2	       1	0
; Char:  xxxx1111 11222222 33333344 44445555 55666666
;  Bit:  xxxx5432 10543210 54321054 32105432 10543210
;
;
; Called via:  CALL C36_SIXBIT( WORD_COUNT, WORDS(), SIXBIT_RESULT() )
;
	.psect	$code,pic,shr,nowrt,long
;
	.entry	c36_sixbit,^M<R3,R4,R5>

	movl	4(AP),R5			;Number of DEC-10 words.
	bleq	50$				;If none then already finished.
	movl	8(AP),R4			;Address of input buffer.
	movl	12(AP),R3			;Address of output buffer.
;
10$:	movq	(R4)+,R0			;Get characters.
	extzv	#30,#6,R0,R1			;Get first sixbit.
	addb3	#32,R1,(R3)+			;Store char.
;
	extzv	#24,#6,R0,R1			;Get second sixbit.
	addb3	#32,R1,(R3)+			;Store char.
;
	extzv	#18,#6,R0,R1			;Get third Sixbit.
	addb3	#32,R1,(R3)+			;Store char.
;
	extzv	#12,#6,R0,R1			;Get fourth Sixbit.
	addb3	#32,R1,(R3)+			;Store char.
;
	extzv	#6,#6,R0,R1			;Get fifth Sixbit.
	addb3	#32,R1,(R3)+			;Store char.
;
	bicb	#^XC0,R0			;Get sixth Sixbit.
	addb3	#32,R0,(R3)+			;Store char.
;
	sobgtr	R5,10$				;Do until no more words.
;
50$:	ret					;Return to caller.
;
;
;
;
	.end