Google
 

Trailing-Edge - PDP-10 Archives - BB-FB49A-RM - sources/tratbl.mac
There are no other files named tratbl.mac in the archive.
	TITLE	EBCDIC International translation tables

;+
;
; COPYRIGHT (C) 1984
; by DIGITAL Equipment Corporation, Maynard, Mass.
;
; This software is furnished under a license and may be used and  copied
; only  in  accordance  with  the  terms  of  such  license and with the
; inclusion of the above copyright notice.  This software or  any  other
; copies  thereof may not be provided or otherwise made available to any
; other person.  No title to and ownership of  the  software  is  hereby
; transferred.
;
; The information in this software is subject to change  without  notice
; and  should  not  be  construed  as  a commitment by DIGITAL Equipment
; Corporation.
;
; DIGITAL assumes no responsibility for the use or  reliability  of  its
; software on equipment which is not supplied by DIGITAL.
;
;-

;+
; Initialize the DEC multinational to EBCDIC
; table with EBCDIC SUB character.
; Initialize the EBCDIC to DEC multinational
; with the '\' character as per ANSI X3.26 -1970.
; Note FF maps to FF.
;-

DMFILL=^D92			; Default DM fill character to '\
				; as per ANSII X3.26 - 1970

EBSSUB=^D63			; 3F in Hex

$EB2AS::
	SUBTTL	EBCDIC International translation tables
	SUBTTL	International EBCDIC to DEC multinational

	XWD	^D0,^D1
;0		   ^D0,			; NUL --> NUL
;1		   ^D1,			; --> ^A
	XWD	^D2,^D3
;2		   ^D2,			; --> ^B
;3		   ^D3,			; --> ^C
	XWD	DMFILL,^D9
;4		   DMFILL
;5		   ^D9,			; PT --> HT
	XWD	DMFILL,^D127
;6		   DMFILL,
;7		   ^D127,		; --> DEL
	XWD	DMFILL,DMFILL
;8		   DMFILL,
;9		   DMFILL,
	XWD	DMFILL,^D11
;A		   DMFILL,
;B		   ^D11,		; --> ^K
	XWD	^D12,^D13
;C		   ^D12			; FF --> FF
;D		   ^D13,		; CR --> CR
	XWD	^D14,^D15
;E		   ^D14,		; --> ^N
;F		   ^D15,		; --> ^O

	XWD	^D16,^D17
;10		   ^D16			; --> ^P
;11		   ^D17,		; SBA --> ^Q
	XWD	^D18,^D19
;12		   ^D18,		; EUA --> ^R
;13		   ^D19,		; IC --> ^S
	XWD	DMFILL,DMFILL
;14		   DMFILL,
;15		   DMFILL,
	XWD	^D8,DMFILL
;16		   ^D8,			; --> ^H
;17		   DMFILL,
	XWD	^D24,^D25
;18		   ^D24,		; --> ^X
;19		   ^D25,		; EM --> ^Y
	XWD	DMFILL,DMFILL
;1A		   DMFILL,
;1B		   DMFILL,
	XWD	^D28,^D29
;1C		   ^D28,		; DUP --> ^\
;1D		   ^D29,		; SF --> ^]
	XWD	^D30,^D31
;1E		   ^D30,		; FM --> ^^
;1F		   ^D31,		; --> ^_


	XWD	DMFILL,DMFILL
;20	           DMFILL,
;21		   DMFILL,
	XWD	DMFILL,DMFILL
;22		   DMFILL,
;23		   DMFILL,

	XWD	DMFILL,^D10
;24
;25		   ^D10,		; --> ^J
	XWD	^D23,^D27
;26		   ^D23,		; --> ^W
;27		   ^D27,		; --> ESC
	XWD	DMFILL,DMFILL
;28		   DMFILL,
;29		   DMFILL,
	XWD	DMFILL,DMFILL
;2A		   DMFILL,
;2B		   DMFILL,
	XWD	DMFILL,^D5
;2C		   DMFILL,
;2D		   ^D5,			; --> ^E
	XWD	^D6,^D7
;2E		   ^D6,			; --> ^F
;2F		   ^D7,			; --> ^G

	XWD	DMFILL,DMFILL
;30		   DMFILL
;31		   DMFILL,
	XWD	^D22,DMFILL
;32		   ^D22,		; --> ^V
;33		   DMFILL,
	XWD	DMFILL,^D4
;34		   DMFILL,
;35		   ^D4,			; --> ^D
	XWD	DMFILL,DMFILL
;36		   DMFILL,
;37		   DMFILL,
	XWD	DMFILL,DMFILL
;38		   DMFILL,
;39		   DMFILL,
	XWD	DMFILL,DMFILL
;3A		   DMFILL,
;3B		   DMFILL,
	XWD	^D20,^D21
;3C		   ^D20,		; RA --> ^T
;3D		   ^D21,		; --> ^U
	XWD	DMFILL,^D26
;3E		   DMFILL,
;3F		   ^D26,		; SUB --> SUB

	XWD	^D32,DMFILL
;40		   ^D32,		; SP --> SP
;41		   DMFILL,
	XWD	DMFILL,DMFILL
;42		   DMFILL,
;43		   DMFILL,
	XWD	DMFILL,DMFILL
;44		   DMFILL,
;45		   DMFILL,
	XWD	DMFILL,DMFILL
;46		   DMFILL,
;47		   DMFILL,
	XWD	DMFILL,DMFILL
;48		   DMFILL,
;49		   DMFILL,
	XWD	^D91,^D46
;4A		   ^D91,		; CENT --> '[
;4B		   ^D46,		; '. --> '.
	XWD	^D60,^D40
;4C		   ^D60,		; '< --> '<
;4D		   ^D40,		; '( --> '(
	XWD	^D43,^D33
;4E		   ^D43,		; '+ --> '+
;4F		   ^D33,		; LOG OR --> '!

	XWD	^D38,DMFILL
;50		   ^D38,		; '& --> '&
;51		   DMFILL,
	XWD	DMFILL,DMFILL
;52		   DMFILL,
;53		   DMFILL,
	XWD	DMFILL,DMFILL
;54		   DMFILL,
;55		   DMFILL,
	XWD	DMFILL,DMFILL
;56		   DMFILL,
;57		   DMFILL,
	XWD	DMFILL,DMFILL
;58		   DMFILL,
;59		   DMFILL,
	XWD	^D93,^D36
;5A		   ^D93,		; '! --> ']
;5B		   ^D36,		; '$ --> '$
	XWD	^D42,^D41
;5C		   ^D42,		; '* --> '*
;5D		   ^D41,		; ')^D --> ')
	XWD	^D59,^D94
;5E		   ^D59,		; '; --> ';
;5F		   ^D94,		; LOG NOT --> '^

	XWD	^D45,^D47
;60		   ^D45,		; '- --> '-
;61		   ^D47,		; '/ --> '/
	XWD	DMFILL,DMFILL
;62		   DMFILL,
;63		   DMFILL,
	XWD	DMFILL,DMFILL
;64		   DMFILL,
;65		   DMFILL,
	XWD	DMFILL,DMFILL
;66		   DMFILL,
;67		   DMFILL,
	XWD	DMFILL,DMFILL
;68		   DMFILL,
;69		   DMFILL,
	XWD	^D124,^D44
;6A		   ^D124,		; Split vertical bar --> LOG OR
;6B		   ^D44,		; ', --> ',
	XWD	^D37,^D95
;6C		   ^D37,		; '% --> '%
;6D		   ^D95,		; '_ --> '_
	XWD	^D62,^D63
;6E		   ^D62,		; '> --> '>
;6F		   ^D63 		; '? --> '?


	XWD	DMFILL,DMFILL
;70		  DMFILL,
;71		  DMFILL,
	XWD	DMFILL,DMFILL
;72		  DMFILL,
;73		  DMFILL,

	XWD	DMFILL,DMFILL
;74	 	  DMFILL,
;75		  DMFILL,
	XWD	DMFILL,DMFILL
;76		  DMFILL,
;77		  DMFILL,

	XWD	DMFILL,^D96
;78
;79		   ^D96,		; '` --> '`
	XWD	^D58,^D35
;7A		   ^D58,		; ': --> ':
;7B		   ^D35,		; '# --> '#
	XWD	^D64,^D39
;7C		   ^D64,		; '@ --> '@
;7D		   ^D39,		; '' --> ''
	XWD	^D61,^D34
;7E		   ^D61,		; '= --> '=
;7F		   ^D34,		; '" --> '"

	XWD	DMFILL,^D97
;80		   DMFILL,
;81		   ^D97,		; 'a --> 'a
	XWD	^D98,^D99
;82		   ^D98,		; 'b --> 'b
;83		   ^D99,		; 'c --> 'c
	XWD	^D100,^D101
;84		   ^D100,		; 'd --> 'd
;85		   ^D101,		; 'e --> 'e
	XWD	^D102,^D103
;86		   ^D102,		; 'f --> 'f
;87		   ^D103,		; 'g --> 'g
	XWD	^D104,^D105
;88		   ^D104,		; 'h --> 'h
;89		   ^D105,		; 'i --> 'i
	XWD	DMFILL,DMFILL
;8A		   DMFILL,
;8B		   DMFILL,

	XWD	DMFILL,DMFILL
;8C		  DMFILL,
;8D		  DMFILL,
	XWD	DMFILL,DMFILL
;8E		  DMFILL,
;8F		  DMFILL,

	XWD	DMFILL,^D106
;90		   DMFILL,
;91		   ^D106,		; 'j --> 'j
	XWD	^D107,^D108
;92		   ^D107,		; 'k --> 'k
;93		   ^D108,		; 'l --> 'l
	XWD	^D109,^D110
;94		   ^D109,		; 'm --> 'm
;95		   ^D110,		; 'n --> 'n
	XWD	^D111,^D112
;96		   ^D111,		; 'o --> 'o
;97		   ^D112,		; 'p --> 'p
	XWD	^D113,^D114
;98		   ^D113,		; 'q --> 'q
;99		   ^D114,		; 'r --> 'r
	XWD	DMFILL,DMFILL
;9A		   DMFILL,
;9B		   DMFILL,

	XWD	DMFILL,DMFILL
;9C		   DMFILL,
;9D		   DMFILL,
	XWD	DMFILL,DMFILL
;9E		   DMFILL,
;9F		   DMFILL

	XWD	DMFILL,^D126
;A0		   DMFILL,
;A1		   ^D126,		; '~ --> '~
	XWD	^D115,^D116
;A2		   ^D115,		; 's --> 's
;A3		   ^D116,		; 't --> 't
	XWD	^D117,^D118
;A4		   ^D117,		; 'u --> 'u
;A5		   ^D118,		; 'v --> 'v
	XWD	^D119,^D120
;A6		   ^D119,		; 'w --> 'w
;A7		   ^D120,		; 'x --> 'x
	XWD	^D121,^D122
;A8		   ^D121,		; 'y --> 'y
;A9		   ^D122,		; 'z --> 'z
	XWD	DMFILL,DMFILL
;AA		   DMFILL,
;AB		   DMFILL,

	XWD	DMFILL,DMFILL
;AC		   DMFILL,
;AD		   DMFILL,
	XWD	DMFILL,DMFILL
;AE		   DMFILL,
;AF		   DMFILL,


	XWD	DMFILL,DMFILL
;B0		   DMFILL,
;B1		   DMFILL,
	XWD	DMFILL,DMFILL
;B2		   DMFILL,
;B3		   DMFILL,

	XWD	DMFILL,DMFILL
;B4		   DMFILL,
;B5		   DMFILL,
	XWD	DMFILL,DMFILL
;B6		   DMFILL,
;B7		   DMFILL,

	XWD	DMFILL,DMFILL
;B8		   DMFILL,
;B9		   DMFILL,
	XWD	DMFILL,DMFILL
;BA		   DMFILL,
;BB		   DMFILL,

	XWD	DMFILL,DMFILL
;BC		   DMFILL,
;BD		   DMFILL,
	XWD	DMFILL,DMFILL
;BE		   DMFILL,
;BF		   DMFILL,

	XWD	^D123,^D65
;C0		   ^D123,		; '{ --> '{
;C1		   ^D65,		; 'A --> 'A
	XWD	^D66,^D67
;C2		   ^D66,		; 'B --> 'B
;C3		   ^D67,		; 'C --> 'C
	XWD	^D68,^D69
;C4		   ^D68,		; 'D --> 'D
;C5		   ^D69,		; 'E --> 'E
	XWD	^D70,^D71
;C6		   ^D70,		; 'F --> 'F
;C7		   ^D71,		; 'G --> 'G
	XWD	^D72,^D73
;C8		   ^D72,		; 'H --> 'H
;C9		   ^D73,		; 'I --> 'I
	XWD	DMFILL,DMFILL
;CA		   DMFILL,
;CB		   DMFILL,

	XWD	DMFILL,DMFILL
;CC		   DMFILL,
;CD		   DMFILL,
	XWD	DMFILL,DMFILL
;CE		   DMFILL,
;CF		   DMFILL,

	XWD	^D125,^D74
;D0		   ^D125,
;D1		   ^D74,
	XWD	^D75,^D76
;D2		   ^D75,		; '} --> '}
;D3		   ^D76,		; 'J --> 'J
	XWD	^D77,^D78
;D4		   ^D77,		; 'K --> 'K
;D5		   ^D78,		; 'L --> 'L
	XWD	^D79,^D80
;D6		   ^D79,		; 'M --> 'M
;D7		   ^D80,		; 'N --> 'N
	XWD	^D81,^D82
;D8		   ^D81,		; 'O --> 'O
;D9		   ^D82,		; 'P --> 'P
	XWD	DMFILL,DMFILL
;DA		   DMFILL,		; 'Q --> 'Q
;DB		   DMFILL,		; 'R --> 'R

	XWD	DMFILL,DMFILL
;DC		   DMFILL,
;DD	           DMFILL,
	XWD	DMFILL,DMFILL
;DE		   DMFILL,
;DF	           DMFILL,

	XWD	^D92,DMFILL
;E0		   ^D92,		; '\ --> '\
;E1		   DMFILL,
	XWD	^D83,^D84
;E2		   ^D83,		; 'S --> 'S
;E3		   ^D84,		; 'T --> 'T
	XWD	^D85,^D86
;E4		   ^D85,		; 'U --> 'U
;E5		   ^D86,		; 'V --> 'V
	XWD	^D87,^D88
;E6		   ^D87,		; 'W --> 'W
;E7		   ^D88,		; 'X --> 'X
	XWD	^D89,^D90
;E8		   ^D89,		; 'Y --> 'Y
;E9		   ^D90,		; 'Z --> 'Z
	XWD	DMFILL,DMFILL
;EA		   DMFILL,
;EB		   DMFILL,

	XWD	DMFILL,DMFILL
;EC		   DMFILL,
;ED		   DMFILL,
	XWD	DMFILL,DMFILL
;EE		   DMFILL,
;EF		   DMFILL,

	XWD	^D48,^D49
;F0		   ^D48,		; '0 --> '0
;F1		   ^D49			; '1 --> '1
	XWD	^D50,^D51
;F2		   ^D50,		; '2 --> '2
;F3		   ^D51,		; '3 --> '3
	XWD	^D52,^D53
;F4		   ^D52,		; '4 --> '4
;F5		   ^D53,		; '5 --> '5
	XWD	^D54,^D55
;F6		   ^D54,		; '6 --> '6
;F7		   ^D55,		; '7 --> '7
	XWD	^D56,^D57
;F8		   ^D56			; '8 --> '8
;F9		   ^D57,		; '9 --> '9
	XWD	DMFILL,DMFILL
;FA		   DMFILL,
;FB		   DMFILL,
	XWD	DMFILL,DMFILL
;FC		   DMFILL,
;FD		   DMFILL,
	XWD	DMFILL,DMFILL
;FE		   DMFILL,
;FF		   DMFILL,
	SUBTTL	DEC multinational to International 

$AS2EB::

	XWD	^D0,^D1
;0		   ^D0,			; NUL --> NUL
;1		   ^D1,			; ^A
	XWD	^D2,^D3
;2		   ^D2,			; ^B
;3		   ^D3,			; ^C
	XWD	^D55,^D45
;4		   ^D55,		; ^D
;5		   ^D45,		; ^E
	XWD	^D46,^D47
;6		   ^D46,		; ^F
;7		   ^D47,		; ^G
	XWD	^D22,^D5
;8		   ^D22,		; ^H
;9		   ^D5,			; HT --> PT
	XWD	^D37,^D11
;A		   ^D37,		; ^J
;B		   ^D11,		; ^K
	XWD	^D12,^D13
;C		   ^D12,		; FF --> FF
;D		   ^D13,		; CR --> CR
	XWD	^D14,^D15
;E		   ^D14,		; ^N
;F		   ^D15,		; ^O
	XWD	^D16,^D17
;10		   ^D16,		; ^P
;11		   ^D17,		; ^Q --> SBA
	XWD	^D18,^D19
;12		   ^D18,		; ^R --> EUA
;13		   ^D19,		; ^S --> IC
	XWD	^D60,^D61
;14		   ^D60,		; ^T --> RA
;15		   ^D61,		; ^U
	XWD	^D50,^D38
;16		   ^D50,		; ^V
;17		   ^D38,		; ^W
	XWD	^D24,^D25
;18		   ^D24,		; ^X
;19		   ^D25,		; ^Y --> EM
	XWD	^D63,^D39
;1A		   ^D63,		; ^Z --> SUB
;1B		   ^D39,		; ESC
	XWD	^D28,^D29
;1C		   ^D28,		; ^\ --> DUP
;1D		   ^D29,		; ^] --> SF
	XWD	^D30,^D31
;1E		   ^D30,		; ^^ --> FM
;1F		   ^D31,		; ^_
	XWD	^D64,^D79
;20	 	   ^D64,		; SP --> SP
;21		   ^D79,		; '! --> LOG OR
	XWD	^D127,^D123
;22		   ^D127,		; '" --> '"
;23		   ^D123,		; '# --> '#
	XWD	^D91,^D108
;24		   ^D91,		; '$ --> '$
;25		   ^D108,		; '% --> '%
	XWD	^D80,^D125
;26		   ^D80,		; '& --> '&
;27		   ^D125,		; '' --> ''
	XWD	^D77,^D93
;28		   ^D77,		; '( --> '(
;29		   ^D93,		; ')^D --> ')
	XWD	^D92,^D78
;2A		   ^D92,		; '* --> '*
;2B		   ^D78,		; '+ --> '+
	XWD	^D107,^D96
;2C		   ^D107,		; ', --> ',
;2D		   ^D96,		; '- --> '-
	XWD	^D75,^D97
;2E		   ^D75,		; '. --> '.
;2F		   ^D97,		; '/ --> '/
	XWD	^D240,^D241
;30		   ^D240,		; '0 --> '0
;31		   ^D241,		; '1 --> '1
	XWD	^D242,^D243
;32		   ^D242,		; '2 --> '2
;33		   ^D243,		; '3 --> '3
	XWD	^D244,^D255
;34		   ^D244,		; '4 --> '4
;35		   ^D245,		; '5 --> '5
	XWD	^D246,^D247
;36		   ^D246,		; '6 --> '6
;37		   ^D247,		; '7 --> '7
	XWD	^D248,^D249
;38		   ^D248,		; '8 --> '8
;39		   ^D249,		; '9 --> '9
	XWD	^D122,^D94
;3A		   ^D122,		; ': --> ':
;3B		   ^D94,		; '; --> ';
	XWD	^D76,^D126
;3C		   ^D76,		; '< --> '<
;3D		   ^D126,		; '= --> '=
	XWD	^D110,^D111
;3E		   ^D110,		; '> --> '>
;3F		   ^D111,		; '? --> '?
	XWD	^D124,^D193
;40		   ^D124,		; '@ --> '@
;41		   ^D193,		; 'A --> 'A
	XWD	^D194,^D195
;42		   ^D194,		; 'B --> 'B
;43		   ^D195,		; 'C --> 'C
	XWD	^D196,^D197
;44		   ^D196,		; 'D --> 'D
;45		   ^D197,		; 'E --> 'E
	XWD	^D198,^D199
;46		   ^D198,		; 'F --> 'F
;47		   ^D199,		; 'G --> 'G
	XWD	^D200,^D201
;48		   ^D200,		; 'H --> 'H
;49		   ^D201,		; 'I --> 'I
	XWD	^D209,^D210
;4A		   ^D209,		; 'J --> 'J
;4B		   ^D210,		; 'K --> 'K
	XWD	^D211,^D212
;4C		   ^D211,		; 'L --> 'L
;4D		   ^D212,		; 'M --> 'M
	XWD	^D213,^D214
;4E		   ^D213,		; 'N --> 'N
;4F		   ^D214,		; 'O --> 'O
	XWD	^D215,^D216
;50		   ^D215,		; 'P --> 'P
;51		   ^D216,		; 'Q --> 'Q
	XWD	^D217,^D226
;52		   ^D217,		; 'R --> 'R
;53		   ^D226,		; 'S --> 'S
	XWD	^D227,^D228
;54		   ^D227,		; 'T --> 'T
;55		   ^D228,		; 'U --> 'U
	XWD	^D229,^D230
;56		   ^D229,		; 'V --> 'V
;57		   ^D230,		; 'W --> 'W
	XWD	^D231,^D232
;58		   ^D231,		; 'X --> 'X
;59		   ^D232,		; 'Y --> 'Y
	XWD	^D233,^D74
;5A		   ^D233,		; 'Z --> 'Z
;5B		   ^D74,		; '[ --> CENT
	XWD	^D224,^D90
;5C		   ^D224,		; '\ --> '\
;5D		   ^D90,		; '] --> '!
	XWD	^D95,^D109
;5E		   ^D95,		; '^ --> LOG NOT
;5F		   ^D109,		; '_ --> '_
	XWD	^D121,^D129
;60		   ^D121,		; '` --> '`
;61		   ^D129,		; 'a --> 'a
	XWD	^D130,^D131
;62		   ^D130,		; 'b --> 'b
;63		   ^D131,		; 'c --> 'c
	XWD	^D132,^D133
;64		   ^D132,		; 'd --> 'd
;65		   ^D133,		; 'e --> 'e
	XWD	^D134,^D135
;66		   ^D134,		; 'f --> 'f
;67		   ^D135,		; 'g --> 'g
	XWD	^D136,^D137
;68		   ^D136,		; 'h --> 'h
;69		   ^D137,		; 'i --> 'i
	XWD	^D145,^D146
;6A		   ^D145,		; 'j --> 'j
;6B		   ^D146,		; 'k --> 'k
	XWD	^D147,^D148
;6C		   ^D147,		; 'l --> 'l
;6D		   ^D148,		; 'm --> 'm
	XWD	^D149,^D150
;6E		   ^D149,		; 'n --> 'n
;6F		   ^D150,		; 'o --> 'o
	XWD	^D151,^D152
;70		   ^D151,		; 'p --> 'p
;71		   ^D152,		; 'q --> 'q
	XWD	^D153,^D162
;72		   ^D153,		; 'r --> 'r
;73		   ^D162,		; 's --> 's
	XWD	^D163,^D164
;74		   ^D163,		; 't --> 't
;75		   ^D164,		; 'u --> 'u
	XWD	^D165,^D166
;76		   ^D165,		; 'v --> 'v
;77		   ^D166,		; 'w --> 'w
	XWD	^D167,^D168
;78		   ^D167,		; 'x --> 'x
;79		   ^D168,		; 'y --> 'y
	XWD	^D169,^D192
;7A		   ^D169,		; 'z --> 'z
;7B		   ^D192,		; '{ --> '{
	XWD	^D106,^D208
;7C		   ^D106,		; LOG OR --> Split vertical bar
;7D		   ^D208,		; '} --> '}
	XWD	^D161,^D7
;7E		   ^D161,		; '~ --> '~
;7F		   ^D7			; DEL

	XWD	EBSSUB,EBSSUB
;80		   EBSSUB,
;81		   EBSSUB

	XWD	EBSSUB,EBSSUB
;82		   EBSSUB,
;83		   EBSSUB

	XWD	EBSSUB,EBSSUB
;84		   EBSSUB,
;85		   EBSSUB

	XWD	EBSSUB,EBSSUB
;86		   EBSSUB,
;87		   EBSSUB

	XWD	EBSSUB,EBSSUB
;88		   EBSSUB,
;89		   EBSSUB

	XWD	EBSSUB,EBSSUB
;8A		   EBSSUB,
;8B		   EBSSUB

	XWD	EBSSUB,EBSSUB
;8C		   EBSSUB,
;8D		   EBSSUB

	XWD	EBSSUB,EBSSUB
;8E		   EBSSUB,
;8F		   EBSSUB

	XWD	EBSSUB,EBSSUB
;90		   EBSSUB,
;91		   EBSSUB

	XWD	EBSSUB,EBSSUB
;92		   EBSSUB,
;93		   EBSSUB

	XWD	EBSSUB,EBSSUB
;94		   EBSSUB,
;95		   EBSSUB

	XWD	EBSSUB,EBSSUB
;96		   EBSSUB,
;97		   EBSSUB

	XWD	EBSSUB,EBSSUB
;98		   EBSSUB,
;99		   EBSSUB

	XWD	EBSSUB,EBSSUB
;9A		   EBSSUB,
;9B		   EBSSUB

	XWD	EBSSUB,EBSSUB
;9C		   EBSSUB,
;9D		   EBSSUB

	XWD	EBSSUB,EBSSUB
;9E		   EBSSUB,
;9F		   EBSSUB

	XWD	EBSSUB,EBSSUB
;A0		   EBSSUB,
;A1		   EBSSUB

	XWD	EBSSUB,EBSSUB
;A2		   EBSSUB,
;A3		   EBSSUB

	XWD	EBSSUB,EBSSUB
;A4		   EBSSUB,
;A5		   EBSSUB

	XWD	EBSSUB,EBSSUB
;A6		   EBSSUB,
;A7		   EBSSUB

	XWD	EBSSUB,EBSSUB
;A8		   EBSSUB,
;A9		   EBSSUB

	XWD	EBSSUB,EBSSUB
;AA		   EBSSUB,
;AB		   EBSSUB

	XWD	EBSSUB,EBSSUB
;AC		   EBSSUB,
;AD		   EBSSUB

	XWD	EBSSUB,EBSSUB
;AE		   EBSSUB,
;AF		   EBSSUB

	XWD	EBSSUB,EBSSUB
;B0		   EBSSUB,
;B1		   EBSSUB

	XWD	EBSSUB,EBSSUB
;B2		   EBSSUB,
;B3		   EBSSUB

	XWD	EBSSUB,EBSSUB
;B4		   EBSSUB,
;B5		   EBSSUB

	XWD	EBSSUB,EBSSUB
;B6		   EBSSUB,
;B7		   EBSSUB

	XWD	EBSSUB,EBSSUB
;B8		   EBSSUB,
;B9		   EBSSUB

	XWD	EBSSUB,EBSSUB
;BA		   EBSSUB,
;BB		   EBSSUB

	XWD	EBSSUB,EBSSUB
;BC		   EBSSUB,
;BD		   EBSSUB

	XWD	EBSSUB,EBSSUB
;BE		   EBSSUB,
;BF		   EBSSUB

	XWD	EBSSUB,EBSSUB
;C0		   EBSSUB,
;C1		   EBSSUB

	XWD	EBSSUB,EBSSUB
;C2		   EBSSUB,
;C3		   EBSSUB

	XWD	EBSSUB,EBSSUB
;C4		   EBSSUB,
;C5		   EBSSUB

	XWD	EBSSUB,EBSSUB
;C6		   EBSSUB,
;C7		   EBSSUB

	XWD	EBSSUB,EBSSUB
;C8		   EBSSUB,
;C9		   EBSSUB

	XWD	EBSSUB,EBSSUB
;CA		   EBSSUB,
;CB		   EBSSUB

	XWD	EBSSUB,EBSSUB
;CC		   EBSSUB,
;CD		   EBSSUB

	XWD	EBSSUB,EBSSUB
;CE		   EBSSUB,
;CF		   EBSSUB

	XWD	EBSSUB,EBSSUB
;D0		   EBSSUB,
;D1		   EBSSUB

	XWD	EBSSUB,EBSSUB
;D2		   EBSSUB,
;D3		   EBSSUB

	XWD	EBSSUB,EBSSUB
;D4		   EBSSUB,
;D5		   EBSSUB

	XWD	EBSSUB,EBSSUB
;D6		   EBSSUB,
;D7		   EBSSUB

	XWD	EBSSUB,EBSSUB
;D8		   EBSSUB,
;D9		   EBSSUB

	XWD	EBSSUB,EBSSUB
;DA		   EBSSUB,
;DB		   EBSSUB

	XWD	EBSSUB,EBSSUB
;DC		   EBSSUB,
;DD		   EBSSUB

	XWD	EBSSUB,EBSSUB
;DE		   EBSSUB,
;DF		   EBSSUB

	XWD	EBSSUB,EBSSUB
;E0		   EBSSUB,
;E1		   EBSSUB

	XWD	EBSSUB,EBSSUB
;E2		   EBSSUB,
;E3		   EBSSUB

	XWD	EBSSUB,EBSSUB
;E4		   EBSSUB,
;E5		   EBSSUB

	XWD	EBSSUB,EBSSUB
;E6		   EBSSUB,
;E7		   EBSSUB

	XWD	EBSSUB,EBSSUB
;E8		   EBSSUB,
;E9		   EBSSUB

	XWD	EBSSUB,EBSSUB
;EA		   EBSSUB,
;EB		   EBSSUB

	XWD	EBSSUB,EBSSUB
;EC		   EBSSUB,
;ED		   EBSSUB

	XWD	EBSSUB,EBSSUB
;EE		   EBSSUB,
;EF		   EBSSUB

	XWD	EBSSUB,EBSSUB
;F0		   EBSSUB,
;F1		   EBSSUB

	XWD	EBSSUB,EBSSUB
;F2		   EBSSUB,
;F3		   EBSSUB

	XWD	EBSSUB,EBSSUB
;F4		   EBSSUB,
;F5		   EBSSUB

	XWD	EBSSUB,EBSSUB
;F6		   EBSSUB,
;F7		   EBSSUB

	XWD	EBSSUB,EBSSUB
;F8		   EBSSUB,
;F9		   EBSSUB

	XWD	EBSSUB,EBSSUB
;FA		   EBSSUB,
;FB		   EBSSUB

	XWD	EBSSUB,EBSSUB
;FC		   EBSSUB,
;FD		   EBSSUB

	XWD	EBSSUB,EBSSUB
;FE		   EBSSUB,
;FF		   EBSSUB

        END