Google
 

Trailing-Edge - PDP-10 Archives - BB-H506E-SM - cobol/source/ascebc.mac
There are 7 other files named ascebc.mac in the archive. Click here to see a list.
TITLE	ASCEBC	ASCII TO EBCDIC CONVERSION TABLE.
SUBTTL	/ACK

	SEARCH COPYRT
	SALL


COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1975, 1985
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE.

	SEARCH	P
	%%P==:%%P
	DEBUG==:DEBUG

	SEARCH	CHREQV		;DEFINE THE CHARACTER EQUIVALENCES.

;EDITS:
;V10********************
;NAME	DATE		COMMENTS
;ACK	13-MAR-75	CREATION.
;***********************

	HISEG
	.COPYRIGHT		;Put standard copyright statement in REL file
	SALL
	.XCREF

	ENTRY	ASEBC.
COMMENT	\

	THIS MODULE CONTAINS THE CONVERSION TABLE FOR CONVERTING ASCII
CHARACTERS TO EBCDIC.

THE TABLE IS STRUCTURED AS FOLLOWS:

	WORD ASEBC.+N CONTAINS:

	IN BITS			THE EBCDIC CHARACTER EQUIVALENT TO THE
				ASCII CHARACTER WHOSE VALUE IS

	0-8				N*4
	9-17				N*4+1
	18-26				N*4+2
	27-35				N*4+3

	GIVEN AN ASCII CHARACTER IN TAC1 THE FOLLOWING CODE COULD BE
USED TO CONVERT IT TO EBCDIC:

	IDIVI	TAC1,	4
	LDB	TAC1,	PTRS(TAC1+1)
	.
	.
	.
PTRS:	POINT	9,ASEBC.##(TAC1),8
	POINT	9,ASEBC.##(TAC1),17
	POINT	9,ASEBC.##(TAC1),26
	POINT	9,ASEBC.##(TAC1),35

\
;MACROS USED TO GENERATE THE TABLE.

	DEFINE	X0	(I)<
	I0==I
	I1==I+1
	I2==I+2
	I3==I+3

	X1	\I0,\I1,\I2,\I3

>	;END OF DEFINITION OF X0.


	DEFINE	X1	(I0,I1,I2,I3)<BYTE	(9)AE%'I0,AE%'I1,AE%'I2,AE%'I3>


	DEFINE	TBLGEN<
	IFE	DEBUG,<XLIST>		;;DON'T LIST THE TABLE UNLESS WE
					;; ARE DEBUGGING IT.
	I==0
	REPEAT	40,<
		X0	I
		I==I+4
>	;END OF REPEAT 40.
	LIST
>	;END OF DEFINITION OF TBLGEN.


;GENERATE THE TABLE.

	.CREF
ASEBC.:	BLOCK	0
	.XCREF

	TBLGEN

	END