.MCALL	.MODULE
.MODULE	PICOM,VERSION=09,COMMENT=<Compose sequence tables>

; Copyright (c) 1998 by Mentec, Inc., Nashua, NH.
; All rights reserved
;
; This software is furnished under a license for use only on a
; single computer system and  may  be  copied  only  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 except for  use  on  such
; system and to one who agrees to these license  terms.  Title
; to  and  ownership of the software shall at all times remain
; in Mentec, Inc.
;
; The information in this document is subject to change without
; notice and should not be construed as a commitment by Digital
; Equipment Corporation, or Mentec, Inc.
;
; Digital and Mentec  assume  no  responsibility for the use or
; reliability of its software on equipment which is not supplied
; by Digital  or Mentec,  and listed  in the  Software  Product
; Description.
.Macro	Max	Out EQ In1 In2
.IIf	GT	<In1>-<In2>	Out=In1
.IIf	LE	<In1>-<In2>	Out=In2
.EndM

None	=:	0		; no support
Expend	=:	1		; table in expendable area
Fixed	=:	2		; table in non-expendable area
Memory	=:	3		; table in memory
.Macro	Default	Name Value
.IIf	NDF	Name	Name=Value
.EndM

Default	NRC$KB	1		; assume NRC rather than Multi-National

.IIf	EQ	NRC$KB	KB$MN=1	; KB$MN is logical opposite of NRC$KB
.IIf	NE	NRC$KB	KB$MN=0

Default	KB$AUS	Expend		; Australia data/type
				; (no type version)
Default	KB$BFL	Expend		; Belgium (Flemish) data
Default	KT$BFL	KB$BFL		; Belgium (Flemish) type
Default	KB$BFR	Expend		; Belgium (French) data
Default	KT$BFR	KB$BFR		; Belgium (French) type
Default	KB$CDE	Expend		; Canada (English) data/type
				; (no type version)
Default	KB$CDN	Expend		; Canada (French) data
Default	KT$CDN	KB$CDN		; Canada (French) type
Default	KB$CHD	Expend		; Switzerland (German) data
Default	KT$CHD	KB$CHD		; Switzerland (German) type
Default	KB$CHF	Expend		; Switzerland (French) data
Default	KT$CHF	KB$CHF		; Switzerland (French) type
Default	KB$D	Expend		; Germany data
Default	KT$D	KB$D		; Germany type
Default	KB$DK	Expend		; Denmark data
Default	KT$DK	KB$DK		; Denmark type
Default	KB$F	Expend		; France data
Default	KT$F	KB$F		; France type
Default	KB$I	Expend		; Italy data
Default	KT$I	KB$I		; Italy type
Default	KB$IRL	Expend		; Ireland data
Default	KT$IRL	KB$IRL		; Ireland type
Default	KB$J.R	None		; Japan (Roman) data
				; (no type version)
Default	KB$J.K	None		; Japan (KataKana) data
				; (no type version)
Default	KB$N	Expend		; Norway data
Default	KT$N	KB$N		; Norway type
Default	KB$NL	Expend		; Netherlands data
Default	KT$NL	KB$NL		; Netherlands type
Default	KB$NZ	Expend		; New Zealand data/type
				; (no type version)
Default	KB$S	Expend		; Sweden data
Default	KT$S	KB$S		; Sweden type
Default	KB$SF	Expend		; Finland data
Default	KT$SF	KB$SF		; Finland type
Default	KB$SP	Expend		; Spain data
Default	KT$SP	KB$SP		; Spain type
Default	KB$UK	Fixed		; Great Britain data
Default	KT$UK	KB$UK		; Great Britain type
Default	KB$USA	Memory		; USA data/type
				; (no type version)

Max	KB$F	= KB$F,KB$BFL
Max	KB$F	= KB$F,KB$BFR

Max	KT$F	= KT$F,KT$BFL
Max	KT$F	= KT$F,KT$BFR

Max	KB$UK	= KB$UK,KB$IRL
Max	KT$UK	= KT$UK,KT$IRL

Max	KB$USA	= KB$USA,KB$AUS
Max	KB$USA	= KB$USA,KB$CDE
Max	KB$USA	= KB$USA,KB$NZ
.....1=0
.Irp	x,<0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15>
.Irp	y,<0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15>
.'x'$'y'	=:	.....1
.....1=.....1+1
.EndR
.EndR

.Macro	Compose	ina inb out cnd 
.If	GE	cnd-.....9
 .If	EQ	3-.....9
	.Psect	KB$MEM,D,RW,OVR
 .EndC
 .If	EQ	2-.....9
  .If	IDN	KB$USA,cnd
	.PSect	KB$SUS,D,RO,OVR
  .IfF
.....8=1
   .IrpC x,cnd
    .If	EQ	2-.....8
     .If IDN	x,B
	.PSect	KB$SNR,D,RW,OVR
     .IfF
	.PSect	KT$SNR,D,RW,OVR
     .EndC
    .EndC
.....8=.....8+1
   .EndR
  .EndC
 .EndC
 .If	EQ	1-.....9
 .IIf IDN	KB$USA,cnd .MExit
	.PSect	cnd,D,RO
.'cnd=.'cnd+3
 .EndC
	.Byte	.'ina
	.Byte	.'inb
	.Byte	.'out
.EndC
.EndM

;Clear the various table size counters
.KB$AUS=0
.KB$BFL=0
.KT$BFL=0
.KB$BFR=0
.KT$BFR=0
.KB$CDE=0
.KB$CDN=0
.KT$CDN=0
.KB$CHD=0
.KT$CHD=0
.KB$CHF=0
.KT$CHF=0
.KB$D=0
.KT$D=0
.KB$DK=0
.KT$DK=0
.KB$F=0
.KT$F=0
.KB$I=0
.KT$I=0
.KB$IRL=0
.KT$IRL=0
.KB$J.R=0
.KB$J.K=0
.KB$MN=0
.KB$N=0
.KT$N=0
.KB$NL=0
.KT$NL=0
.KB$NZ=0
.KB$S=0
.KT$S=0
.KB$SF=0
.KT$SF=0
.KB$SP=0
.KT$SP=0
.KB$UK=0
.KT$UK=0
.KB$USA=0
.PSect	KB$MEM,D,RW,OVR
KB$MEM::
.PSect	KB$SUS,D,RO,OVR
KB$SUS::
.PSect	KB$SNR,D,RW,OVR
KB$SNR::
.PSect	KT$SNR,D,RW,OVR
KT$SNR::
.....9=1
.Rept	3
Compose	 2$0   2$2	 2$2	KB$MN		; <sp> "	"
Compose	 2$0   2$2	 2$2	KB$USA		; <sp> "	"
Compose	 2$0   2$2	 2$2	KB$CDN		; <sp> "	"
Compose	 2$0   2$2	 2$2	KT$CDN		; <sp> "	"
Compose	 2$0   2$2	 2$2	KB$CHD		; <sp> "	"
Compose	 2$0   2$2	 2$2	KT$CHD		; <sp> "	"
Compose	 2$0   2$2	 2$2	KB$CHF		; <sp> "	"
Compose	 2$0   2$2	 2$2	KT$CHF		; <sp> "	"
Compose	 2$0   2$2	 2$2	KB$D		; <sp> "	"
Compose	 2$0   2$2	 2$2	KT$D		; <sp> "	"
Compose	 2$0   2$2	 2$2	KB$DK		; <sp> "	"
Compose	 2$0   2$2	 2$2	KT$DK		; <sp> "	"
Compose	 2$0   2$2	 2$2	KB$SP		; <sp> "	"
Compose	 2$0   2$2	 2$2	KT$SP		; <sp> "	"
Compose	 2$0   2$2	 2$2	KB$F		; <sp> "	"
Compose	 2$0   2$2	 2$2	KT$F		; <sp> "	"
Compose	 2$0   2$2	 2$2	KB$I		; <sp> "	"
Compose	 2$0   2$2	 2$2	KT$I		; <sp> "	"
Compose	 2$0   2$2	 2$2	KB$N		; <sp> "	"
Compose	 2$0   2$2	 2$2	KT$N		; <sp> "	"
Compose	 2$0   2$2	 2$2	KB$NL		; <sp> "	"
Compose	 2$0   2$2	 2$2	KT$NL		; <sp> "	"
Compose	 2$0   2$2	 2$2	KB$S		; <sp> "	"
Compose	 2$0   2$2	 2$2	KT$S		; <sp> "	"
Compose	 2$0   2$2	 2$2	KB$SF		; <sp> "	"
Compose	 2$0   2$2	 2$2	KT$SF		; <sp> "	"
Compose	 2$0   2$2	 2$2	KB$UK		; <sp> "	"
Compose	 2$0   2$2	 2$2	KT$UK		; <sp> "	"

Compose	 2$0   2$7	 2$7	KB$MN		; <sp> '	'
Compose	 2$0   2$7	 2$7	KB$USA		; <sp> '	'
Compose	 2$0   2$7	 2$7	KB$CDN		; <sp> '	'
Compose	 2$0   2$7	 2$7	KT$CDN		; <sp> '	'
Compose	 2$0   2$7	 2$7	KB$CHD		; <sp> '	'
Compose	 2$0   2$7	 2$7	KT$CHD		; <sp> '	'
Compose	 2$0   2$7	 2$7	KB$CHF		; <sp> '	'
Compose	 2$0   2$7	 2$7	KT$CHF		; <sp> '	'
Compose	 2$0   2$7	 2$7	KB$D		; <sp> '	'
Compose	 2$0   2$7	 2$7	KT$D		; <sp> '	'
Compose	 2$0   2$7	 2$7	KB$DK		; <sp> '	'
Compose	 2$0   2$7	 2$7	KT$DK		; <sp> '	'
Compose	 2$0   2$7	 2$7	KB$SP		; <sp> '	'
Compose	 2$0   2$7	 2$7	KT$SP		; <sp> '	'
Compose	 2$0   2$7	 2$7	KB$F		; <sp> '	'
Compose	 2$0   2$7	 2$7	KT$F		; <sp> '	'
Compose	 2$0   2$7	 2$7	KB$I		; <sp> '	'
Compose	 2$0   2$7	 2$7	KT$I		; <sp> '	'
Compose	 2$0   2$7	 2$7	KB$N		; <sp> '	'
Compose	 2$0   2$7	 2$7	KT$N		; <sp> '	'
Compose	 2$0   2$7	 2$7	KB$NL		; <sp> '	'
Compose	 2$0   2$7	 2$7	KT$NL		; <sp> '	'
Compose	 2$0   2$7	 2$7	KB$S		; <sp> '	'
Compose	 2$0   2$7	 2$7	KT$S		; <sp> '	'
Compose	 2$0   2$7	 2$7	KB$SF		; <sp> '	'
Compose	 2$0   2$7	 2$7	KT$SF		; <sp> '	'
Compose	 2$0   2$7	 2$7	KB$UK		; <sp> '	'
Compose	 2$0   2$7	 2$7	KT$UK		; <sp> '	'

Compose	 2$0   5$14	 5$14	KB$MN		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KB$USA		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KB$CDN		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KT$CDN		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KB$CHD		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KT$CHD		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KB$CHF		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KT$CHF		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KB$D		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KT$D		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KB$DK		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KT$DK		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KB$SP		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KT$SP		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KB$F		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KT$F		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KB$I		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KT$I		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KB$N		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KT$N		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KB$NL		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KT$NL		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KB$S		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KT$S		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KB$SF		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KT$SF		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KB$UK		; <sp> ^	^
Compose	 2$0   5$14	 5$14	KT$UK		; <sp> ^	^

Compose	 2$0   6$0	 6$0	KB$MN		; <sp> `	`
Compose	 2$0   6$0	 6$0	KB$USA		; <sp> `	`
Compose	 2$0   6$0	 6$0	KB$CDN		; <sp> `	`
Compose	 2$0   6$0	 6$0	KT$CDN		; <sp> `	`
Compose	 2$0   6$0	 6$0	KB$CHD		; <sp> `	`
Compose	 2$0   6$0	 6$0	KT$CHD		; <sp> `	`
Compose	 2$0   6$0	 6$0	KB$CHF		; <sp> `	`
Compose	 2$0   6$0	 6$0	KT$CHF		; <sp> `	`
Compose	 2$0   6$0	 6$0	KB$D		; <sp> `	`
Compose	 2$0   6$0	 6$0	KT$D		; <sp> `	`
Compose	 2$0   6$0	 6$0	KB$DK		; <sp> `	`
Compose	 2$0   6$0	 6$0	KT$DK		; <sp> `	`
Compose	 2$0   6$0	 6$0	KB$SP		; <sp> `	`
Compose	 2$0   6$0	 6$0	KT$SP		; <sp> `	`
Compose	 2$0   6$0	 6$0	KB$F		; <sp> `	`
Compose	 2$0   6$0	 6$0	KT$F		; <sp> `	`
Compose	 2$0   6$0	 6$0	KB$I		; <sp> `	`
Compose	 2$0   6$0	 6$0	KT$I		; <sp> `	`
Compose	 2$0   6$0	 6$0	KB$N		; <sp> `	`
Compose	 2$0   6$0	 6$0	KT$N		; <sp> `	`
Compose	 2$0   6$0	 6$0	KB$NL		; <sp> `	`
Compose	 2$0   6$0	 6$0	KT$NL		; <sp> `	`
Compose	 2$0   6$0	 6$0	KB$S		; <sp> `	`
Compose	 2$0   6$0	 6$0	KT$S		; <sp> `	`
Compose	 2$0   6$0	 6$0	KB$SF		; <sp> `	`
Compose	 2$0   6$0	 6$0	KT$SF		; <sp> `	`
Compose	 2$0   6$0	 6$0	KB$UK		; <sp> `	`
Compose	 2$0   6$0	 6$0	KT$UK		; <sp> `	`

Compose	 2$0   7$14	 7$14	KB$MN		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KB$USA		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KB$CDN		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KT$CDN		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KB$CHD		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KT$CHD		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KB$CHF		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KT$CHF		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KB$D		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KT$D		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KB$DK		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KT$DK		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KB$SP		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KT$SP		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KB$F		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KT$F		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KB$I		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KT$I		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KB$N		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KT$N		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KB$NL		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KT$NL		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KB$S		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KT$S		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KB$SF		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KT$SF		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KB$UK		; <sp> ~	~
Compose	 2$0   7$14	 7$14	KT$UK		; <sp> ~	~

Compose	 2$1   2$1	10$1	KB$MN		; ! !		invert !
Compose	 2$1   2$1	 5$11	KB$SP		; ! !		invert !
Compose	 2$1   2$1	 5$11	KT$SP		; ! !		invert !

Compose	 2$1   5$0	11$6	KB$MN		; ! P		para
Compose	 2$1   7$0	11$6	KB$MN		; ! p		para

Compose	 2$2   4$1	12$4	KB$MN		; " A		<A">
Compose	 2$2   4$1	 5$11	KB$D		; " A		<A">
Compose	 2$2   4$1	 5$11	KT$D		; " A		<A">
Compose	 2$2   4$1	 4$0	KB$DK		; " A		<A">
Compose	 2$2   4$1	 4$0	KT$DK		; " A		<A">
Compose	 2$2   4$1	 4$0	KB$N		; " A		<A">
Compose	 2$2   4$1	 4$0	KT$N		; " A		<A">
Compose	 2$2   4$1	 5$11	KB$S		; " A		<A">
Compose	 2$2   4$1	 5$11	KT$S		; " A		<A">
Compose	 2$2   4$1	 5$11	KB$SF		; " A		<A">
Compose	 2$2   4$1	 5$11	KT$SF		; " A		<A">

Compose	 2$2   4$5	12$11	KB$MN		; " E		<E">
Compose	 2$2   4$9	12$15	KB$MN		; " I		<I">

Compose	 2$2   4$15	13$6	KB$MN		; " O		<O">
Compose	 2$2   4$15	 5$12	KB$D		; " O		<O">
Compose	 2$2   4$15	 5$12	KT$D		; " O		<O">
Compose	 2$2   4$15	 5$12	KB$S		; " O		<O">
Compose	 2$2   4$15	 5$12	KT$S		; " O		<O">
Compose	 2$2   4$15	 5$12	KB$SF		; " O		<O">
Compose	 2$2   4$15	 5$12	KT$SF		; " O		<O">

Compose	 2$2   5$5	13$12	KB$MN		; " U		<U">
Compose	 2$2   5$5	 5$14	KB$D		; " U		<U">
Compose	 2$2   5$5	 5$14	KT$D		; " U		<U">
Compose	 2$2   5$5	 5$14	KB$DK		; " U		<U">
Compose	 2$2   5$5	 5$14	KT$DK		; " U		<U">
Compose	 2$2   5$5	 5$14	KB$N		; " U		<U">
Compose	 2$2   5$5	 5$14	KT$N		; " U		<U">
Compose	 2$2   5$5	 5$14	KB$S		; " U		<U">
Compose	 2$2   5$5	 5$14	KT$S		; " U		<U">
Compose	 2$2   5$5	 5$14	KB$SF		; " U		<U">
Compose	 2$2   5$5	 5$14	KT$SF		; " U		<U">

Compose	 2$2   5$9	13$13	KB$MN		; " Y		<Y">

Compose	 2$2   6$1	14$4	KB$MN		; " a		<a">
Compose	 2$2   6$1	 7$11	KB$CHD		; " a		<a">
Compose	 2$2   6$1	 7$11	KT$CHD		; " a		<a">
Compose	 2$2   6$1	 7$11	KB$CHF		; " a		<a">
Compose	 2$2   6$1	 7$11	KT$CHF		; " a		<a">
Compose	 2$2   6$1	 7$11	KB$D		; " a		<a">
Compose	 2$2   6$1	 7$11	KT$D		; " a		<a">
Compose	 2$2   6$1	 6$0	KB$DK		; " a		<a">
Compose	 2$2   6$1	 6$0	KT$DK		; " a		<a">
Compose	 2$2   6$1	 6$0	KB$N		; " a		<a">
Compose	 2$2   6$1	 6$0	KT$N		; " a		<a">
Compose	 2$2   6$1	 7$11	KB$S		; " a		<a">
Compose	 2$2   6$1	 7$11	KT$S		; " a		<a">
Compose	 2$2   6$1	 7$11	KB$SF		; " a		<a">
Compose	 2$2   6$1	 7$11	KT$SF		; " a		<a">

Compose	 2$2   6$5	14$11	KB$MN		; " e		<e">
Compose	 2$2   6$9	14$15	KB$MN		; " i		<i">

Compose	 2$2   6$15	15$6	KB$MN		; " o		<o">
Compose	 2$2   6$15	 7$12	KB$CHD		; " o		<o">
Compose	 2$2   6$15	 7$12	KT$CHD		; " o		<o">
Compose	 2$2   6$15	 7$12	KB$CHF		; " o		<o">
Compose	 2$2   6$15	 7$12	KT$CHF		; " o		<o">
Compose	 2$2   6$15	 7$12	KB$D		; " o		<o">
Compose	 2$2   6$15	 7$12	KT$D		; " o		<o">
Compose	 2$2   6$15	 7$12	KB$S		; " o		<o">
Compose	 2$2   6$15	 7$12	KT$S		; " o		<o">
Compose	 2$2   6$15	 7$12	KB$SF		; " o		<o">
Compose	 2$2   6$15	 7$12	KT$SF		; " o		<o">

Compose	 2$2   7$5	15$12	KB$MN		; " u		<u">
Compose	 2$2   7$5	 7$13	KB$CHD		; " u		<u">
Compose	 2$2   7$5	 7$13	KT$CHD		; " u		<u">
Compose	 2$2   7$5	 7$13	KB$CHF		; " u		<u">
Compose	 2$2   7$5	 7$13	KT$CHF		; " u		<u">
Compose	 2$2   7$5	 7$14	KB$D		; " u		<u">
Compose	 2$2   7$5	 7$14	KT$D		; " u		<u">
Compose	 2$2   7$5	 7$14	KB$DK		; " u		<u">
Compose	 2$2   7$5	 7$14	KT$DK		; " u		<u">
Compose	 2$2   7$5	 7$14	KB$N		; " u		<u">
Compose	 2$2   7$5	 7$14	KT$N		; " u		<u">
Compose	 2$2   7$5	 7$14	KB$S		; " u		<u">
Compose	 2$2   7$5	 7$14	KT$S		; " u		<u">
Compose	 2$2   7$5	 7$14	KB$SF		; " u		<u">
Compose	 2$2   7$5	 7$14	KT$SF		; " u		<u">

Compose	 2$2   7$9	15$13	KB$MN		; " y		<y">

Compose	 2$7   4$1	12$1	KB$MN		; ' A		<A'>

Compose	 2$7   4$5	12$9	KB$MN		; ' E		<E'>
Compose	 2$7   4$5	 4$0	KB$S		; ' E		<E'>
Compose	 2$7   4$5	 4$0	KT$S		; ' E		<E'>

Compose	 2$7   4$9	12$13	KB$MN		; ' I		<I'>
Compose	 2$7   4$15	13$3	KB$MN		; ' O		<O'>
Compose	 2$7   5$5	13$10	KB$MN		; ' U		<U'>

Compose	 2$7   6$1	14$1	KB$MN		; ' a		<a'>
Compose	 2$7   6$1	 4$0	KB$CHD		; ' a		<a'>
Compose	 2$7   6$1	 4$0	KT$CHD		; ' a		<a'>
Compose	 2$7   6$1	 4$0	KB$CHF		; ' a		<a'>
Compose	 2$7   6$1	 4$0	KT$CHF		; ' a		<a'>

Compose	 2$7   6$5	14$9	KB$MN		; ' e		<e'>
Compose	 2$7   6$5	 7$11	KB$CDN		; ' e		<e'>
Compose	 2$7   6$5	 7$11	KT$CDN		; ' e		<e'>
Compose	 2$7   6$5	 5$15	KB$CHD		; ' e		<e'>
Compose	 2$7   6$5	 5$15	KT$CHD		; ' e		<e'>
Compose	 2$7   6$5	 5$15	KB$CHF		; ' e		<e'>
Compose	 2$7   6$5	 5$15	KT$CHF		; ' e		<e'>
Compose	 2$7   6$5	 7$11	KB$F		; ' e		<e'>
Compose	 2$7   6$5	 7$11	KT$F		; ' e		<e'>
Compose	 2$7   6$5	 5$13	KB$I		; ' e		<e'>
Compose	 2$7   6$5	 5$13	KT$I		; ' e		<e'>
Compose	 2$7   6$5	 6$0	KB$SF		; ' e		<e'>
Compose	 2$7   6$5	 6$0	KT$SF		; ' e		<e'>

Compose	 2$7   6$9	14$13	KB$MN		; ' i		<i'>
Compose	 2$7   6$15	15$3	KB$MN		; ' o		<o'>

Compose	 2$7   7$5	15$10	KB$MN		; ' u		<u'>
Compose	 2$7   7$5	 2$3	KB$CHD		; ' u		<u'>
Compose	 2$7   7$5	 2$3	KT$CHD		; ' u		<u'>
Compose	 2$7   7$5	 2$3	KB$CHF		; ' u		<u'>
Compose	 2$7   7$5	 2$3	KT$CHF		; ' u		<u'>

Compose	 2$8   2$8	 5$11	KB$MN		; ( (		[
Compose	 2$8   2$8	 5$11	KB$USA		; ( (		[
Compose	 2$8   2$8	 5$11	KB$CDN		; ( (		[
Compose	 2$8   2$8	 5$11	KT$CDN		; ( (		[
Compose	 2$8   2$8	 5$11	KB$CHD		; ( (		[
Compose	 2$8   2$8	 5$11	KT$CHD		; ( (		[
Compose	 2$8   2$8	 5$11	KB$CHF		; ( (		[
Compose	 2$8   2$8	 5$11	KT$CHF		; ( (		[
Compose	 2$8   2$8	 5$11	KB$D		; ( (		[
Compose	 2$8   2$8	 5$11	KT$D		; ( (		[
Compose	 2$8   2$8	 5$11	KB$DK		; ( (		[
Compose	 2$8   2$8	 5$11	KT$DK		; ( (		[
Compose	 2$8   2$8	 5$11	KB$SP		; ( (		[
Compose	 2$8   2$8	 5$11	KT$SP		; ( (		[
Compose	 2$8   2$8	 5$11	KB$F		; ( (		[
Compose	 2$8   2$8	 5$11	KT$F		; ( (		[
Compose	 2$8   2$8	 5$11	KB$I		; ( (		[
Compose	 2$8   2$8	 5$11	KT$I		; ( (		[
Compose	 2$8   2$8	 5$11	KB$N		; ( (		[
Compose	 2$8   2$8	 5$11	KT$N		; ( (		[
Compose	 2$8   2$8	 5$11	KB$NL		; ( (		[
Compose	 2$8   2$8	 5$11	KT$NL		; ( (		[
Compose	 2$8   2$8	 5$11	KB$S		; ( (		[
Compose	 2$8   2$8	 5$11	KT$S		; ( (		[
Compose	 2$8   2$8	 5$11	KB$SF		; ( (		[
Compose	 2$8   2$8	 5$11	KT$SF		; ( (		[
Compose	 2$8   2$8	 5$11	KB$UK		; ( (		[
Compose	 2$8   2$8	 5$11	KT$UK		; ( (		[

Compose	 2$8   2$13	 7$11	KB$MN		; ( -		{
Compose	 2$8   2$13	 7$11	KB$USA		; ( -		{
Compose	 2$8   2$13	 7$11	KB$CDN		; ( -		{
Compose	 2$8   2$13	 7$11	KT$CDN		; ( -		{
Compose	 2$8   2$13	 7$11	KB$CHD		; ( -		{
Compose	 2$8   2$13	 7$11	KT$CHD		; ( -		{
Compose	 2$8   2$13	 7$11	KB$CHF		; ( -		{
Compose	 2$8   2$13	 7$11	KT$CHF		; ( -		{
Compose	 2$8   2$13	 7$11	KB$D		; ( -		{
Compose	 2$8   2$13	 7$11	KT$D		; ( -		{
Compose	 2$8   2$13	 7$11	KB$DK		; ( -		{
Compose	 2$8   2$13	 7$11	KT$DK		; ( -		{
Compose	 2$8   2$13	 7$11	KB$SP		; ( -		{
Compose	 2$8   2$13	 7$11	KT$SP		; ( -		{
Compose	 2$8   2$13	 7$11	KB$F		; ( -		{
Compose	 2$8   2$13	 7$11	KT$F		; ( -		{
Compose	 2$8   2$13	 7$11	KB$I		; ( -		{
Compose	 2$8   2$13	 7$11	KT$I		; ( -		{
Compose	 2$8   2$13	 7$11	KB$N		; ( -		{
Compose	 2$8   2$13	 7$11	KT$N		; ( -		{
Compose	 2$8   2$13	 7$11	KB$NL		; ( -		{
Compose	 2$8   2$13	 7$11	KT$NL		; ( -		{
Compose	 2$8   2$13	 7$11	KB$S		; ( -		{
Compose	 2$8   2$13	 7$11	KT$S		; ( -		{
Compose	 2$8   2$13	 7$11	KB$SF		; ( -		{
Compose	 2$8   2$13	 7$11	KT$SF		; ( -		{
Compose	 2$8   2$13	 7$11	KB$UK		; ( -		{
Compose	 2$8   2$13	 7$11	KT$UK		; ( -		{

Compose	 2$9   2$9	 5$13	KB$MN		; ) )		]
Compose	 2$9   2$9	 5$13	KB$USA		; ) )		]
Compose	 2$9   2$9	 5$13	KB$CDN		; ) )		]
Compose	 2$9   2$9	 5$13	KT$CDN		; ) )		]
Compose	 2$9   2$9	 5$13	KB$CHD		; ) )		]
Compose	 2$9   2$9	 5$13	KT$CHD		; ) )		]
Compose	 2$9   2$9	 5$13	KB$CHF		; ) )		]
Compose	 2$9   2$9	 5$13	KT$CHF		; ) )		]
Compose	 2$9   2$9	 5$13	KB$D		; ) )		]
Compose	 2$9   2$9	 5$13	KT$D		; ) )		]
Compose	 2$9   2$9	 5$13	KB$DK		; ) )		]
Compose	 2$9   2$9	 5$13	KT$DK		; ) )		]
Compose	 2$9   2$9	 5$13	KB$SP		; ) )		]
Compose	 2$9   2$9	 5$13	KT$SP		; ) )		]
Compose	 2$9   2$9	 5$13	KB$F		; ) )		]
Compose	 2$9   2$9	 5$13	KT$F		; ) )		]
Compose	 2$9   2$9	 5$13	KB$I		; ) )		]
Compose	 2$9   2$9	 5$13	KT$I		; ) )		]
Compose	 2$9   2$9	 5$13	KB$N		; ) )		]
Compose	 2$9   2$9	 5$13	KT$N		; ) )		]
Compose	 2$9   2$9	 5$13	KB$NL		; ) )		]
Compose	 2$9   2$9	 5$13	KT$NL		; ) )		]
Compose	 2$9   2$9	 5$13	KB$S		; ) )		]
Compose	 2$9   2$9	 5$13	KT$S		; ) )		]
Compose	 2$9   2$9	 5$13	KB$SF		; ) )		]
Compose	 2$9   2$9	 5$13	KT$SF		; ) )		]
Compose	 2$9   2$9	 5$13	KB$UK		; ) )		]
Compose	 2$9   2$9	 5$13	KT$UK		; ) )		]

Compose	 2$9   2$13	 7$13	KB$MN		; ) -		}
Compose	 2$9   2$13	 7$13	KB$USA		; ) -		}
Compose	 2$9   2$13	 7$13	KB$CDN		; ) -		}
Compose	 2$9   2$13	 7$13	KT$CDN		; ) -		}
Compose	 2$9   2$13	 7$13	KB$CHD		; ) -		}
Compose	 2$9   2$13	 7$13	KT$CHD		; ) -		}
Compose	 2$9   2$13	 7$13	KB$CHF		; ) -		}
Compose	 2$9   2$13	 7$13	KT$CHF		; ) -		}
Compose	 2$9   2$13	 7$13	KB$D		; ) -		}
Compose	 2$9   2$13	 7$13	KT$D		; ) -		}
Compose	 2$9   2$13	 7$13	KB$DK		; ) -		}
Compose	 2$9   2$13	 7$13	KT$DK		; ) -		}
Compose	 2$9   2$13	 7$13	KB$SP		; ) -		}
Compose	 2$9   2$13	 7$13	KT$SP		; ) -		}
Compose	 2$9   2$13	 7$13	KB$F		; ) -		}
Compose	 2$9   2$13	 7$13	KT$F		; ) -		}
Compose	 2$9   2$13	 7$13	KB$I		; ) -		}
Compose	 2$9   2$13	 7$13	KT$I		; ) -		}
Compose	 2$9   2$13	 7$13	KB$N		; ) -		}
Compose	 2$9   2$13	 7$13	KT$N		; ) -		}
Compose	 2$9   2$13	 7$13	KB$NL		; ) -		}
Compose	 2$9   2$13	 7$13	KT$NL		; ) -		}
Compose	 2$9   2$13	 7$13	KB$S		; ) -		}
Compose	 2$9   2$13	 7$13	KT$S		; ) -		}
Compose	 2$9   2$13	 7$13	KB$SF		; ) -		}
Compose	 2$9   2$13	 7$13	KT$SF		; ) -		}
Compose	 2$9   2$13	 7$13	KB$UK		; ) -		}
Compose	 2$9   2$13	 7$13	KT$UK		; ) -		}

Compose	 2$10  4$1	12$5	KB$MN		; * A		<A*>
Compose	 2$10  4$1	 5$13	KB$DK		; * A		<A*>
Compose	 2$10  4$1	 5$13	KT$DK		; * A		<A*>
Compose	 2$10  4$1	 5$13	KB$N		; * A		<A*>
Compose	 2$10  4$1	 5$13	KT$N		; * A		<A*>
Compose	 2$10  4$1	 5$13	KB$S		; * A		<A*>
Compose	 2$10  4$1	 5$13	KT$S		; * A		<A*>
Compose	 2$10  4$1	 5$13	KB$SF		; * A		<A*>
Compose	 2$10  4$1	 5$13	KT$SF		; * A		<A*>

Compose	 2$10  6$1	14$5	KB$MN		; * a		<a*>
Compose	 2$10  6$1	 7$13	KB$DK		; * a		<a*>
Compose	 2$10  6$1	 7$13	KT$DK		; * a		<a*>
Compose	 2$10  6$1	 7$13	KB$N		; * a		<a*>
Compose	 2$10  6$1	 7$13	KT$N		; * a		<a*>
Compose	 2$10  6$1	 7$13	KB$S		; * a		<a*>
Compose	 2$10  6$1	 7$13	KT$S		; * a		<a*>
Compose	 2$10  6$1	 7$13	KB$SF		; * a		<a*>
Compose	 2$10  6$1	 7$13	KT$SF		; * a		<a*>

Compose	 2$11  2$11	 2$3	KB$MN		; + +		#
Compose	 2$11  2$11	 2$3	KB$USA		; + +		#
Compose	 2$11  2$11	 2$3	KB$CDN		; + +		#
Compose	 2$11  2$11	 2$3	KT$CDN		; + +		#
Compose	 2$11  2$11	 2$3	KB$CHD		; + +		#
Compose	 2$11  2$11	 2$3	KT$CHD		; + +		#
Compose	 2$11  2$11	 2$3	KB$CHF		; + +		#
Compose	 2$11  2$11	 2$3	KT$CHF		; + +		#
Compose	 2$11  2$11	 2$3	KB$D		; + +		#
Compose	 2$11  2$11	 2$3	KT$D		; + +		#
Compose	 2$11  2$11	 2$3	KB$DK		; + +		#
Compose	 2$11  2$11	 2$3	KT$DK		; + +		#
Compose	 2$11  2$11	 2$3	KB$SP		; + +		#
Compose	 2$11  2$11	 2$3	KT$SP		; + +		#
Compose	 2$11  2$11	 2$3	KB$F		; + +		#
Compose	 2$11  2$11	 2$3	KT$F		; + +		#
Compose	 2$11  2$11	 2$3	KB$I		; + +		#
Compose	 2$11  2$11	 2$3	KT$I		; + +		#
Compose	 2$11  2$11	 2$3	KB$N		; + +		#
Compose	 2$11  2$11	 2$3	KT$N		; + +		#
Compose	 2$11  2$11	 2$3	KB$NL		; + +		#
Compose	 2$11  2$11	 2$3	KT$NL		; + +		#
Compose	 2$11  2$11	 2$3	KB$S		; + +		#
Compose	 2$11  2$11	 2$3	KT$S		; + +		#
Compose	 2$11  2$11	 2$3	KB$SF		; + +		#
Compose	 2$11  2$11	 2$3	KT$SF		; + +		#
Compose	 2$11  2$11	 2$3	KB$UK		; + +		#
Compose	 2$11  2$11	 2$3	KT$UK		; + +		#

Compose	 2$11  2$13	11$1	KB$MN		; + -		+/-

Compose	 2$12  4$3	12$7	KB$MN		; , C		<C,>

Compose	 2$12  6$3	14$7	KB$MN		; , c		<c,>
Compose	 2$12  6$3	 5$12	KB$CDN		; , c		<c,>
Compose	 2$12  6$3	 5$12	KT$CDN		; , c		<c,>
Compose	 2$12  6$3	 5$12	KB$CHD		; , c		<c,>
Compose	 2$12  6$3	 5$12	KT$CHD		; , c		<c,>
Compose	 2$12  6$3	 5$12	KB$CHF		; , c		<c,>
Compose	 2$12  6$3	 5$12	KT$CHF		; , c		<c,>
Compose	 2$12  6$3	 7$13	KB$SP		; , c		<c,>
Compose	 2$12  6$3	 7$13	KT$SP		; , c		<c,>
Compose	 2$12  6$3	 5$12	KB$F		; , c		<c,>
Compose	 2$12  6$3	 5$12	KT$F		; , c		<c,>
Compose	 2$12  6$3	 5$12	KB$I		; , c		<c,>
Compose	 2$12  6$3	 5$12	KT$I		; , c		<c,>

.....9=.....9+1
.EndR

.....9=1
.Rept	3
Compose	 2$13  4$12	 7$12	KB$NL		; - F		florin (NL only)
Compose	 2$13  4$12	 7$12	KT$NL		; - F		florin (NL only)

Compose	 2$13  4$12	10$3	KB$MN		; - L		UK LB
Compose	 2$13  4$12	 2$3	KB$SP		; - L		UK LB
Compose	 2$13  4$12	 2$3	KT$SP		; - L		UK LB
Compose	 2$13  4$12	 2$3	KB$F		; - L		UK LB
Compose	 2$13  4$12	 2$3	KT$F		; - L		UK LB
Compose	 2$13  4$12	 2$3	KB$I		; - L		UK LB
Compose	 2$13  4$12	 2$3	KT$I		; - L		UK LB
Compose	 2$13  4$12	 2$3	KB$NL		; - L		UK LB
Compose	 2$13  4$12	 2$3	KT$NL		; - L		UK LB
Compose	 2$13  4$12	 2$3	KB$UK		; - L		UK LB
Compose	 2$13  4$12	 2$3	KT$UK		; - L		UK LB

Compose	 2$13  5$9	10$05	KB$MN		; - Y		yen

Compose	 2$13  6$12	 7$12	KB$NL		; - f		florin (NL only)
Compose	 2$13  6$12	 7$12	KT$NL		; - f		florin (NL only)

Compose	 2$13  6$12	10$3	KB$MN		; - l		UK LB
Compose	 2$13  6$12	 2$3	KB$SP		; - l		UK LB
Compose	 2$13  6$12	 2$3	KT$SP		; - l		UK LB
Compose	 2$13  6$12	 2$3	KB$F		; - l		UK LB
Compose	 2$13  6$12	 2$3	KT$F		; - l		UK LB
Compose	 2$13  6$12	 2$3	KB$I		; - l		UK LB
Compose	 2$13  6$12	 2$3	KT$I		; - l		UK LB
Compose	 2$13  6$12	 2$3	KB$NL		; - l		UK LB
Compose	 2$13  6$12	 2$3	KT$NL		; - l		UK LB
Compose	 2$13  6$12	 2$3	KB$UK		; - l		UK LB
Compose	 2$13  6$12	 2$3	KT$UK		; - l		UK LB

Compose	 2$13  7$9	10$05	KB$MN		; - y		yen

Compose	 2$14  5$14	11$7	KB$MN		; . ^		middle dot

Compose	 2$15  2$15	 5$12	KB$MN		; / /		\
Compose	 2$15  2$15	 5$12	KB$USA		; / /		\
Compose	 2$15  2$15	 5$12	KB$CDN		; / /		\
Compose	 2$15  2$15	 5$12	KT$CDN		; / /		\
Compose	 2$15  2$15	 5$12	KB$CHD		; / /		\
Compose	 2$15  2$15	 5$12	KT$CHD		; / /		\
Compose	 2$15  2$15	 5$12	KB$CHF		; / /		\
Compose	 2$15  2$15	 5$12	KT$CHF		; / /		\
Compose	 2$15  2$15	 5$12	KB$D		; / /		\
Compose	 2$15  2$15	 5$12	KT$D		; / /		\
Compose	 2$15  2$15	 5$12	KB$DK		; / /		\
Compose	 2$15  2$15	 5$12	KT$DK		; / /		\
Compose	 2$15  2$15	 5$12	KB$SP		; / /		\
Compose	 2$15  2$15	 5$12	KT$SP		; / /		\
Compose	 2$15  2$15	 5$12	KB$F		; / /		\
Compose	 2$15  2$15	 5$12	KT$F		; / /		\
Compose	 2$15  2$15	 5$12	KB$I		; / /		\
Compose	 2$15  2$15	 5$12	KT$I		; / /		\
Compose	 2$15  2$15	 5$12	KB$N		; / /		\
Compose	 2$15  2$15	 5$12	KT$N		; / /		\
Compose	 2$15  2$15	 5$12	KB$NL		; / /		\
Compose	 2$15  2$15	 5$12	KT$NL		; / /		\
Compose	 2$15  2$15	 5$12	KB$S		; / /		\
Compose	 2$15  2$15	 5$12	KT$S		; / /		\
Compose	 2$15  2$15	 5$12	KB$SF		; / /		\
Compose	 2$15  2$15	 5$12	KT$SF		; / /		\
Compose	 2$15  2$15	 5$12	KB$UK		; / /		\
Compose	 2$15  2$15	 5$12	KT$UK		; / /		\

Compose	 2$15  4$3	10$2	KB$MN		; / C		cent

Compose	 2$15  4$15	13$8	KB$MN		; / O		<O/>
Compose	 2$15  4$15	 5$12	KB$DK		; / O		<O/>
Compose	 2$15  4$15	 5$12	KT$DK		; / O		<O/>
Compose	 2$15  4$15	 5$12	KB$N		; / O		<O/>
Compose	 2$15  4$15	 5$12	KT$N		; / O		<O/>

Compose	 2$15  5$5	11$5	KB$MN		; / U		micro

Compose	 2$15  5$14	 7$12	KB$MN		; / ^		|
Compose	 2$15  5$14	 7$12	KB$USA		; / ^		|
Compose	 2$15  5$14	 7$12	KB$CDN		; / ^		|
Compose	 2$15  5$14	 7$12	KT$CDN		; / ^		|
Compose	 2$15  5$14	 7$12	KB$CHD		; / ^		|
Compose	 2$15  5$14	 7$12	KT$CHD		; / ^		|
Compose	 2$15  5$14	 7$12	KB$CHF		; / ^		|
Compose	 2$15  5$14	 7$12	KT$CHF		; / ^		|
Compose	 2$15  5$14	 7$12	KB$D		; / ^		|
Compose	 2$15  5$14	 7$12	KT$D		; / ^		|
Compose	 2$15  5$14	 7$12	KB$DK		; / ^		|
Compose	 2$15  5$14	 7$12	KT$DK		; / ^		|
Compose	 2$15  5$14	 7$12	KB$SP		; / ^		|
Compose	 2$15  5$14	 7$12	KT$SP		; / ^		|
Compose	 2$15  5$14	 7$12	KB$F		; / ^		|
Compose	 2$15  5$14	 7$12	KT$F		; / ^		|
Compose	 2$15  5$14	 7$12	KB$I		; / ^		|
Compose	 2$15  5$14	 7$12	KT$I		; / ^		|
Compose	 2$15  5$14	 7$12	KB$N		; / ^		|
Compose	 2$15  5$14	 7$12	KT$N		; / ^		|
Compose	 2$15  5$14	 5$13	KB$NL		; / ^		| (NL odd)
Compose	 2$15  5$14	 5$13	KT$NL		; / ^		| (NL odd)
Compose	 2$15  5$14	 7$12	KB$S		; / ^		|
Compose	 2$15  5$14	 7$12	KT$S		; / ^		|
Compose	 2$15  5$14	 7$12	KB$SF		; / ^		|
Compose	 2$15  5$14	 7$12	KT$SF		; / ^		|
Compose	 2$15  5$14	 7$12	KB$UK		; / ^		|
Compose	 2$15  5$14	 7$12	KT$UK		; / ^		|

Compose	 2$15  6$3	10$2	KB$MN		; / c		cent

Compose	 2$15  6$15	15$8	KB$MN		; / o		<o/>
Compose	 2$15  6$15	 7$12	KB$DK		; / o		<o/>
Compose	 2$15  6$15	 7$12	KT$DK		; / o		<o/>
Compose	 2$15  6$15	 7$12	KB$N		; / o		<o/>
Compose	 2$15  6$15	 7$12	KT$N		; / o		<o/>

Compose	 2$15  7$5	11$5	KB$MN		; / u		micro

Compose	 3$0   4$3	10$9	KB$MN		; 0 C		(c)

Compose	 3$0   5$3	10$7	KB$MN		; 0 S		section
Compose	 3$0   5$3	 4$0	KB$D		; 0 S		section
Compose	 3$0   5$3	 4$0	KT$D		; 0 S		section
Compose	 3$0   5$3	 4$0	KB$SP		; 0 S		section
Compose	 3$0   5$3	 4$0	KT$SP		; 0 S		section
Compose	 3$0   5$3	 5$13	KB$F		; 0 S		section
Compose	 3$0   5$3	 5$13	KT$F		; 0 S		section
Compose	 3$0   5$3	 4$0	KB$I		; 0 S		section
Compose	 3$0   5$3	 4$0	KT$I		; 0 S		section

Compose	 3$0   5$14	11$0	KB$MN		; 0 ^		degree
Compose	 3$0   5$14	 7$11	KB$SP		; 0 ^		degree
Compose	 3$0   5$14	 7$11	KT$SP		; 0 ^		degree
Compose	 3$0   5$14	 5$11	KB$F		; 0 ^		degree
Compose	 3$0   5$14	 5$11	KT$F		; 0 ^		degree
Compose	 3$0   5$14	 5$11	KB$I		; 0 ^		degree
Compose	 3$0   5$14	 5$11	KT$I		; 0 ^		degree

Compose	 3$0   5$8	10$8	KB$MN		; 0 X		gen currency
Compose	 3$0   6$3	10$9	KB$MN		; 0 c		(c)

Compose	 3$0   7$3	10$7	KB$MN		; 0 s		section
Compose	 3$0   7$3	 4$0	KB$D		; 0 s		section
Compose	 3$0   7$3	 4$0	KT$D		; 0 s		section
Compose	 3$0   7$3	 4$0	KB$SP		; 0 s		section
Compose	 3$0   7$3	 4$0	KT$SP		; 0 s		section
Compose	 3$0   7$3	 5$13	KB$F		; 0 s		section
Compose	 3$0   7$3	 5$13	KT$F		; 0 s		section
Compose	 3$0   7$3	 4$0	KB$I		; 0 s		section
Compose	 3$0   7$3	 4$0	KT$I		; 0 s		section

Compose	 3$0   7$8	10$8	KB$MN		; 0 x		gen currency

Compose	 3$1   3$2	11$13	KB$MN		; 1 2		1/2
Compose	 3$1   3$2	 5$12	KB$NL		; 1 2		1/2
Compose	 3$1   3$2	 5$12	KT$NL		; 1 2		1/2

Compose	 3$1   3$4	11$12	KB$MN		; 1 4		1/4
Compose	 3$1   3$4	 7$13	KB$NL		; 1 4		1/4
Compose	 3$1   3$4	 7$13	KT$NL		; 1 4		1/4

Compose	 3$1   5$14	11$9	KB$MN		; 1 ^		super 1

Compose	 3$2   5$14	11$2	KB$MN		; 2 ^		super 2

Compose	 3$3   3$4	 4$0	KB$NL		; 3 4		3/4 (NL only)
Compose	 3$3   3$4	 4$0	KT$NL		; 3 4		3/4 (NL only)

Compose	 3$3   5$14	11$3	KB$MN		; 3 ^		super 3

Compose	 3$12  3$12	10$11	KB$MN		; < <		angle quote

Compose	 3$14  3$14	11$11	KB$MN		; > >		angle quote

Compose	 3$15  3$15	11$15	KB$MN		; ??		invert ?
Compose	 3$15  3$15	 5$13	KB$SP		; ??		invert ?
Compose	 3$15  3$15	 5$13	KT$SP		; ??		invert ?

Compose	 4$1   4$1	 4$0	KB$MN		; A A		@
Compose	 4$1   4$1	 4$0	KB$USA		; A A		@
Compose	 4$1   4$1	 4$0	KB$CDN		; A A		@
Compose	 4$1   4$1	 4$0	KT$CDN		; A A		@
Compose	 4$1   4$1	 4$0	KB$CHD		; A A		@
Compose	 4$1   4$1	 4$0	KT$CHD		; A A		@
Compose	 4$1   4$1	 4$0	KB$CHF		; A A		@
Compose	 4$1   4$1	 4$0	KT$CHF		; A A		@
Compose	 4$1   4$1	 4$0	KB$D		; A A		@
Compose	 4$1   4$1	 4$0	KT$D		; A A		@
Compose	 4$1   4$1	 4$0	KB$DK		; A A		@
Compose	 4$1   4$1	 4$0	KT$DK		; A A		@
Compose	 4$1   4$1	 4$0	KB$SP		; A A		@
Compose	 4$1   4$1	 4$0	KT$SP		; A A		@
Compose	 4$1   4$1	 4$0	KB$F		; A A		@
Compose	 4$1   4$1	 4$0	KT$F		; A A		@
Compose	 4$1   4$1	 4$0	KB$I		; A A		@
Compose	 4$1   4$1	 4$0	KT$I		; A A		@
Compose	 4$1   4$1	 4$0	KB$N		; A A		@
Compose	 4$1   4$1	 4$0	KT$N		; A A		@
Compose	 4$1   4$1	 4$0	KB$NL		; A A		@
Compose	 4$1   4$1	 4$0	KT$NL		; A A		@
Compose	 4$1   4$1	 4$0	KB$S		; A A		@
Compose	 4$1   4$1	 4$0	KT$S		; A A		@
Compose	 4$1   4$1	 4$0	KB$SF		; A A		@
Compose	 4$1   4$1	 4$0	KT$SF		; A A		@
Compose	 4$1   4$1	 4$0	KB$UK		; A A		@
Compose	 4$1   4$1	 4$0	KT$UK		; A A		@

Compose	 4$1   4$5	12$6	KB$MN		; A E		<AE>
Compose	 4$1   4$5	 5$11	KB$DK		; A E		<AE>
Compose	 4$1   4$5	 5$11	KT$DK		; A E		<AE>
Compose	 4$1   4$5	 5$11	KB$N		; A E		<AE>
Compose	 4$1   4$5	 5$11	KT$N		; A E		<AE>

Compose	 4$1   5$14	12$2	KB$MN		; A ^		<A^>
Compose	 4$1   5$15	10$10	KB$MN		; A _		<a_>
Compose	 4$1   6$0	12$0	KB$MN		; A `		<A`>

Compose	 4$1   6$1	 4$0	KB$MN		; A a		@
Compose	 4$1   6$1	 4$0	KB$USA		; A a		@
Compose	 4$1   6$1	 4$0	KB$CDN		; A a		@
Compose	 4$1   6$1	 4$0	KT$CDN		; A a		@
Compose	 4$1   6$1	 4$0	KB$CHD		; A a		@
Compose	 4$1   6$1	 4$0	KT$CHD		; A a		@
Compose	 4$1   6$1	 4$0	KB$CHF		; A a		@
Compose	 4$1   6$1	 4$0	KT$CHF		; A a		@
Compose	 4$1   6$1	 4$0	KB$D		; A a		@
Compose	 4$1   6$1	 4$0	KT$D		; A a		@
Compose	 4$1   6$1	 4$0	KB$DK		; A a		@
Compose	 4$1   6$1	 4$0	KT$DK		; A a		@
Compose	 4$1   6$1	 4$0	KB$SP		; A a		@
Compose	 4$1   6$1	 4$0	KT$SP		; A a		@
Compose	 4$1   6$1	 4$0	KB$F		; A a		@
Compose	 4$1   6$1	 4$0	KT$F		; A a		@
Compose	 4$1   6$1	 4$0	KB$I		; A a		@
Compose	 4$1   6$1	 4$0	KT$I		; A a		@
Compose	 4$1   6$1	 4$0	KB$N		; A a		@
Compose	 4$1   6$1	 4$0	KT$N		; A a		@
Compose	 4$1   6$1	 4$0	KB$NL		; A a		@
Compose	 4$1   6$1	 4$0	KT$NL		; A a		@
Compose	 4$1   6$1	 4$0	KB$S		; A a		@
Compose	 4$1   6$1	 4$0	KT$S		; A a		@
Compose	 4$1   6$1	 4$0	KB$SF		; A a		@
Compose	 4$1   6$1	 4$0	KT$SF		; A a		@
Compose	 4$1   6$1	 4$0	KB$UK		; A a		@
Compose	 4$1   6$1	 4$0	KT$UK		; A a		@

Compose	 4$1   7$14	12$3	KB$MN		; A ~		<A~>
Compose	 4$1  11$0	12$5	KB$MN		; A degree	<A*>

Compose	 4$3   4$15	10$9	KB$MN		; C O		(c)
Compose	 4$3   6$15	10$9	KB$MN		; C o		(c)
Compose	 4$3   7$12	10$2	KB$MN		; C |		cent

Compose	 4$5   4$15	13$7	KB$MN		; E O		<OE>
Compose	 4$5   5$14	12$10	KB$MN		; E ^		<E^>
Compose	 4$5   6$0	12$8	KB$MN		; E `		<E`>

Compose	 4$9   5$14	12$14	KB$MN		; I ^		<I^>
Compose	 4$9   6$0	12$12	KB$MN		; I `		<I`>

Compose	 4$14  7$14	13$1	KB$MN		; N ~		<N~>
Compose	 4$14  7$14	 5$12	KB$SP		; N ~		<N~>
Compose	 4$14  7$14	 5$12	KT$SP		; N ~		<N~>

Compose	 4$15  5$3	10$7	KB$MN		; O S		section
Compose	 4$15  5$3	 4$0	KB$D		; O S		section
Compose	 4$15  5$3	 4$0	KT$D		; O S		section
Compose	 4$15  5$3	 4$0	KB$SP		; O S		section
Compose	 4$15  5$3	 4$0	KT$SP		; O S		section
Compose	 4$15  5$3	 5$13	KB$F		; O S		section
Compose	 4$15  5$3	 5$13	KT$F		; O S		section
Compose	 4$15  5$3	 4$0	KB$I		; O S		section
Compose	 4$15  5$3	 4$0	KT$I		; O S		section

Compose	 4$15  5$8	10$8	KB$MN		; O X		gen currency
Compose	 4$15  5$14	13$4	KB$MN		; O ^		<O^>
Compose	 4$15  5$15	11$10	KB$MN		; O _		<o_>
Compose	 4$15  6$0	13$2	KB$MN		; O `		<O`>
Compose	 4$15  6$3	10$9	KB$MN		; O c		(c)

Compose	 4$15  7$3	10$7	KB$MN		; O s		section
Compose	 4$15  7$3	 4$0	KB$D		; O s		section
Compose	 4$15  7$3	 4$0	KT$D		; O s		section
Compose	 4$15  7$3	 4$0	KB$SP		; O s		section
Compose	 4$15  7$3	 4$0	KT$SP		; O s		section
Compose	 4$15  7$3	 5$13	KB$F		; O s		section
Compose	 4$15  7$3	 5$13	KT$F		; O s		section
Compose	 4$15  7$3	 4$0	KB$I		; O s		section
Compose	 4$15  7$3	 4$0	KT$I		; O s		section

Compose	 4$15  7$8	10$8	KB$MN		; O x		gen currency
Compose	 4$15  7$14	13$5	KB$MN		; O ~		<O~>

Compose	 5$3   6$15	10$7	KB$MN		; S o		section
Compose	 5$3   6$15	 4$0	KB$D		; S o		section
Compose	 5$3   6$15	 4$0	KT$D		; S o		section
Compose	 5$3   6$15	 4$0	KB$SP		; S o		section
Compose	 5$3   6$15	 4$0	KT$SP		; S o		section
Compose	 5$3   6$15	 5$13	KB$F		; S o		section
Compose	 5$3   6$15	 5$13	KT$F		; S o		section
Compose	 5$3   6$15	 4$0	KB$I		; S o		section
Compose	 5$3   6$15	 4$0	KT$I		; S o		section

Compose	 5$5   5$14	13$11	KB$MN		; U ^		<U^>
Compose	 5$5   6$0	13$9	KB$MN		; U `		<U`>

Compose	 5$8   6$15	10$8	KB$MN		; X o		gen currency

Compose	 5$14  6$1   	14$2	KB$MN		; ^ a		<a^>
Compose	 5$14  6$1   	 5$11	KB$CDN		; ^ a		<a^>
Compose	 5$14  6$1   	 5$11	KT$CDN		; ^ a		<a^>

Compose	 5$14  6$5   	14$10	KB$MN		; ^ e		<e^>
Compose	 5$14  6$5   	 5$13	KB$CDN		; ^ e		<e^>
Compose	 5$14  6$5   	 5$13	KT$CDN		; ^ e		<e^>
Compose	 5$14  6$5   	 5$13	KB$CHD		; ^ e		<e^>
Compose	 5$14  6$5   	 5$13	KT$CHD		; ^ e		<e^>
Compose	 5$14  6$5   	 5$13	KB$CHF		; ^ e		<e^>
Compose	 5$14  6$5   	 5$13	KT$CHF		; ^ e		<e^>

Compose	 5$14  6$9   	14$14	KB$MN		; ^ i		<i^>
Compose	 5$14  6$9   	 5$14	KB$CDN		; ^ i		<i^>
Compose	 5$14  6$9   	 5$14	KT$CDN		; ^ i		<i^>
Compose	 5$14  6$9   	 5$14	KB$CHD		; ^ i		<i^>
Compose	 5$14  6$9   	 5$14	KT$CHD		; ^ i		<i^>
Compose	 5$14  6$9   	 5$14	KB$CHF		; ^ i		<i^>
Compose	 5$14  6$9   	 5$14	KT$CHF		; ^ i		<i^>

Compose	 5$14  6$15  	15$4	KB$MN		; ^ o		<o^>
Compose	 5$14  6$15  	 6$0	KB$CDN		; ^ o		<o^>
Compose	 5$14  6$15  	 6$0	KT$CDN		; ^ o		<o^>
Compose	 5$14  6$15  	 6$0	KB$CHD		; ^ o		<o^>
Compose	 5$14  6$15  	 6$0	KT$CHD		; ^ o		<o^>
Compose	 5$14  6$15  	 6$0	KB$CHF		; ^ o		<o^>
Compose	 5$14  6$15  	 6$0	KT$CHF		; ^ o		<o^>

Compose	 5$14  7$5   	15$11	KB$MN		; ^ u		<u^>
Compose	 5$14  7$5   	 7$14	KB$CDN		; ^ u		<u^>
Compose	 5$14  7$5   	 7$14	KT$CDN		; ^ u		<u^>
Compose	 5$14  7$5   	 7$15	KB$CHD		; ^ u		<u^>
Compose	 5$14  7$5   	 7$15	KT$CHD		; ^ u		<u^>
Compose	 5$14  7$5   	 7$15	KB$CHF		; ^ u		<u^>
Compose	 5$14  7$5   	 7$15	KT$CHF		; ^ u		<u^>

Compose	 5$15  6$1   	10$10	KB$MN		; _ a		<a_>
Compose	 5$15  6$15	11$10	KB$MN		; _ o		<o_>

Compose	 6$0   6$1	14$0	KB$MN		; ` a		<a`>
Compose	 6$0   6$1	 4$0	KB$CDN		; ` a		<a`>
Compose	 6$0   6$1	 4$0	KT$CDN		; ` a		<a`>
Compose	 6$0   6$1	 4$0	KB$F		; ` a		<a`>
Compose	 6$0   6$1	 4$0	KT$F		; ` a		<a`>
Compose	 6$0   6$1	 7$11	KB$I		; ` a		<a`>
Compose	 6$0   6$1	 7$11	KT$I		; ` a		<a`>

Compose	 6$0   6$5	14$8	KB$MN		; ` e		<e`>
Compose	 6$0   6$5	 7$13	KB$CDN		; ` e		<e`>
Compose	 6$0   6$5	 7$13	KT$CDN		; ` e		<e`>
Compose	 6$0   6$5	 5$11	KB$CHD		; ` e		<e`>
Compose	 6$0   6$5	 5$11	KT$CHD		; ` e		<e`>
Compose	 6$0   6$5	 5$11	KB$CHF		; ` e		<e`>
Compose	 6$0   6$5	 5$11	KT$CHF		; ` e		<e`>
Compose	 6$0   6$5	 7$13	KB$F		; ` e		<e`>
Compose	 6$0   6$5	 7$13	KT$F		; ` e		<e`>
Compose	 6$0   6$5	 7$13	KB$I		; ` e		<e`>
Compose	 6$0   6$5	 7$13	KT$I		; ` e		<e`>

Compose	 6$0   6$9	14$12	KB$MN		; ` i		<i`>
Compose	 6$0   6$9	 7$14	KB$I		; ` i		<i`>
Compose	 6$0   6$9	 7$14	KT$I		; ` i		<i`>

Compose	 6$0   6$15	15$2	KB$MN		; ` o		<o`>
Compose	 6$0   6$15	 7$12	KB$I		; ` o		<o`>
Compose	 6$0   6$15	 7$12	KT$I		; ` o		<o`>

Compose	 6$0   7$5   	15$9	KB$MN		; ` u		<u`>
Compose	 6$0   7$5   	 7$12	KB$CDN		; ` u		<u`>
Compose	 6$0   7$5   	 7$12	KT$CDN		; ` u		<u`>
Compose	 6$0   7$5   	 7$12	KB$F		; ` u		<u`>
Compose	 6$0   7$5   	 7$12	KT$F		; ` u		<u`>

Compose	 6$1   6$5	14$6	KB$MN		; a e		<ae>
Compose	 6$1   6$5	 7$11	KB$DK		; a e		<ae>
Compose	 6$1   6$5	 7$11	KT$DK		; a e		<ae>
Compose	 6$1   6$5	 7$11	KB$N		; a e		<ae>
Compose	 6$1   6$5	 7$11	KT$N		; a e		<ae>

Compose	 6$1   7$14	14$3	KB$MN		; a ~		<a~>
Compose	 6$1  11$0	14$5	KB$MN		; a degree	<a*>

Compose	 6$1   6$1	 4$0	KB$MN		; a a		@
Compose	 6$1   6$1	 4$0	KB$USA		; a a		@
Compose	 6$1   6$1	 4$0	KB$CDN		; a a		@
Compose	 6$1   6$1	 4$0	KT$CDN		; a a		@
Compose	 6$1   6$1	 4$0	KB$CHD		; a a		@
Compose	 6$1   6$1	 4$0	KT$CHD		; a a		@
Compose	 6$1   6$1	 4$0	KB$CHF		; a a		@
Compose	 6$1   6$1	 4$0	KT$CHF		; a a		@
Compose	 6$1   6$1	 4$0	KB$D		; a a		@
Compose	 6$1   6$1	 4$0	KT$D		; a a		@
Compose	 6$1   6$1	 4$0	KB$DK		; a a		@
Compose	 6$1   6$1	 4$0	KT$DK		; a a		@
Compose	 6$1   6$1	 4$0	KB$SP		; a a		@
Compose	 6$1   6$1	 4$0	KT$SP		; a a		@
Compose	 6$1   6$1	 4$0	KB$F		; a a		@
Compose	 6$1   6$1	 4$0	KT$F		; a a		@
Compose	 6$1   6$1	 4$0	KB$I		; a a		@
Compose	 6$1   6$1	 4$0	KT$I		; a a		@
Compose	 6$1   6$1	 4$0	KB$N		; a a		@
Compose	 6$1   6$1	 4$0	KT$N		; a a		@
Compose	 6$1   6$1	 4$0	KB$NL		; a a		@
Compose	 6$1   6$1	 4$0	KT$NL		; a a		@
Compose	 6$1   6$1	 4$0	KB$S		; a a		@
Compose	 6$1   6$1	 4$0	KT$S		; a a		@
Compose	 6$1   6$1	 4$0	KB$SF		; a a		@
Compose	 6$1   6$1	 4$0	KT$SF		; a a		@
Compose	 6$1   6$1	 4$0	KB$UK		; a a		@
Compose	 6$1   6$1	 4$0	KT$UK		; a a		@

Compose	 6$3   6$15	10$9	KB$MN		; c o		(c)
Compose	 6$3   7$12	10$2	KB$MN		; c |		cent

Compose	 6$5   6$15	15$7	KB$MN		; e o		<oe>

Compose	 6$9   6$10	 5$11	KB$NL		; i j		<ij> (NL only)
Compose	 6$9   6$10	 5$11	KT$NL		; i j		<ij> (NL only)

Compose	 6$14  7$14	15$1	KB$MN		; n ~		<n~>
Compose	 6$14  7$14	 7$12	KB$SP		; n ~		<n~>
Compose	 6$14  7$14	 7$12	KT$SP		; n ~		<n~>

Compose	 6$15  7$3	10$7	KB$MN		; o s		section
Compose	 6$15  7$3	 4$0	KB$D		; o s		section
Compose	 6$15  7$3	 4$0	KT$D		; o s		section
Compose	 6$15  7$3	 4$0	KB$SP		; o s		section
Compose	 6$15  7$3	 4$0	KT$SP		; o s		section
Compose	 6$15  7$3	 5$13	KB$F		; o s		section
Compose	 6$15  7$3	 5$13	KT$F		; o s		section
Compose	 6$15  7$3	 4$0	KB$I		; o s		section
Compose	 6$15  7$3	 4$0	KT$I		; o s		section

Compose	 6$15  7$8	10$8	KB$MN		; o x		gen currency
Compose	 6$15  7$14	15$5	KB$MN		; o ~		<o~>

Compose	 7$3   7$3	13$15	KB$MN		; s s		<ss>
Compose	 7$3   7$3	 7$14	KB$D		; s s		<ss>
Compose	 7$3   7$3	 7$14	KT$D		; s s		<ss>
Compose	 0$0   0$0	 0$0	KB$MN		; terminate table
Compose	 0$0   0$0	 0$0	KB$USA		; terminate table
Compose	 0$0   0$0	 0$0	KB$CDN		; terminate table
Compose	 0$0   0$0	 0$0	KT$CDN		; terminate table
Compose	 0$0   0$0	 0$0	KB$CHD		; terminate table
Compose	 0$0   0$0	 0$0	KT$CHD		; terminate table
Compose	 0$0   0$0	 0$0	KB$CHF		; terminate table
Compose	 0$0   0$0	 0$0	KT$CHF		; terminate table
Compose	 0$0   0$0	 0$0	KB$D		; terminate table
Compose	 0$0   0$0	 0$0	KT$D		; terminate table
Compose	 0$0   0$0	 0$0	KB$DK		; terminate table
Compose	 0$0   0$0	 0$0	KT$DK		; terminate table
Compose	 0$0   0$0	 0$0	KB$SP		; terminate table
Compose	 0$0   0$0	 0$0	KT$SP		; terminate table
Compose	 0$0   0$0	 0$0	KB$F		; terminate table
Compose	 0$0   0$0	 0$0	KT$F		; terminate table
Compose	 0$0   0$0	 0$0	KB$I		; terminate table
Compose	 0$0   0$0	 0$0	KT$I		; terminate table
Compose	 0$0   0$0	 0$0	KB$N		; terminate table
Compose	 0$0   0$0	 0$0	KT$N		; terminate table
Compose	 0$0   0$0	 0$0	KB$NL		; terminate table
Compose	 0$0   0$0	 0$0	KT$NL		; terminate table
Compose	 0$0   0$0	 0$0	KB$S		; terminate table
Compose	 0$0   0$0	 0$0	KT$S		; terminate table
Compose	 0$0   0$0	 0$0	KB$SF		; terminate table
Compose	 0$0   0$0	 0$0	KT$SF		; terminate table
Compose	 0$0   0$0	 0$0	KB$UK		; terminate table
Compose	 0$0   0$0	 0$0	KT$UK		; terminate table
.If	EQ	.....9-1
Top=0
Max	Top = Top,.KB$MN
Max	Top = Top,.KB$USA
Max	Top = Top,.KB$CDN
Max	Top = Top,.KT$CDN
.REM	%		; SWISS are a problem since .KB$CHF and .KB$CHD
			; are treated as the same symbol .KB$CH
Max	Top = Top,.KB$CHD
Max	Top = Top,.KT$CHD
Max	Top = Top,.KB$CHF
Max	Top = Top,.KT$CHF
%
Max	Top = Top,.KB$D
Max	Top = Top,.KT$D
Max	Top = Top,.KB$DK
Max	Top = Top,.KT$DK
Max	Top = Top,.KB$SP
Max	Top = Top,.KT$SP
Max	Top = Top,.KB$F
Max	Top = Top,.KT$F
Max	Top = Top,.KB$I
Max	Top = Top,.KT$I
Max	Top = Top,.KB$N
Max	Top = Top,.KT$N
Max	Top = Top,.KB$NL
Max	Top = Top,.KT$NL
Max	Top = Top,.KB$S
Max	Top = Top,.KT$S
Max	Top = Top,.KB$SF
Max	Top = Top,.KT$SF
Max	Top = Top,.KB$UK
Max	Top = Top,.KT$UK
.EndC
.....9=.....9+1
.EndR
.PSect	KB$MEM,D,RW
.debug=0
.Rept 77777
.IIf	GE <.-KB$MEM>-Top	.MExit
.debug=.debug+1
.Byte	0,0,0
.EndR
.debug=.debug
.PSect	KB$MEM,D,RW,OVR
.=KB$MEM
	.BlkB	Top+3
.PSect	KB$SUS,D,RO,OVR
.=KB$SUS
	.BlkB	Top+3
.PSect	KB$SNR,D,RW,OVR
.=KB$SNR
	.BlkB	Top+3
.PSect	KT$SNR,D,RW,OVR
.=KT$SNR
	.BlkB	Top+3
	.End