; What this file does for initialization is to "download" the FX80+ ROM
; font into its RAM, then redefine the following characters
;
;	{	Group mark
;	|	record mark
;	^	word separator
;	}	segment mark
;	~	segment mark
;	"	radical
;	`	delta
;
; download the rom font to the ram area
;

.in "\e:\0\0\0"

; All characters have attribute byte
;
;	10011011 = \233
;
; 123456789AB
; ___________
;     x		128
;     x		64
; x x x x x	32
;     x         16
;     x		8
; x x x x x	4
;     x         2
;     x		1         
; 00003000000
; 40407040400
; 40407040400

; define the record mark as character | in user font 0
.in "\e&\0||\233\44\0\44\0\377\0\44\0\44\0\0"
.sc "\R" "|"

;
; 123456789AB
; ___________
;     x		128
; x x x x x	64
;     x         32
; x x x x x	16
;     x		8
; x x x x x	4
;     x         2
;     x		1         
; 10103010100
; 20207020200
; 40407040400

; define the group mark as { in user font 0
.in "\e&\0{{\233\124\0\124\0\377\0\124\0\124\0\0"
.sc "\G" "{"

;
; 123456789AB
; ___________
;      		128
;      		64
;  x     x 	32
; x x   x x     16
;    x x	8
;     x    	4
;               2
;      		1         
; 00000000000
; 24210124200
; 00004000000

; define the caret as a word separator in position ^ in user font 0
.in "\e&\0^^\233\20\40\20\10\4\10\20\40\20\0\0"

; We need no special translation of this because it is in the same position

;
; 123456789AB
; ___________
;  x  x	 x      128
;  x  x	 x      64
;  x  x  x 	32
; x x x x x x   16
;  x  x	 x      8
;  x  x  x 	4
;  x  x  x      2
;      		1         
; 03003003000
; 25207025202
; 06006006000

; define the segment mark as } in user font 0
.in "\e&\0}}\233\20\356\20\0\376\0\20\356\20\0\20"

.sc "\S" "}"

;
; 123456789AB
; ___________
;      		128
;     x x x x   64
;     x    	32
; x   x         16
;  x  x		8
;   x x    	4
;    x          2
;      		1         
; 00001010101
; 21007000000
; 00424000000

; define the radical as " in user font 0
.in "\e&\0\"\"\233\20\10\4\2\174\0\100\0\100\0\100"

.sc "\Q" "\""

;
; 123456789AB
; ______________
;      		128
; ______________64
;     x   	32
;    x x        16
; __x___x_______8
;  x     x	4
; x x x x x     2
; ______________1         
; 00000000000
; 00124210000
; 24202024200

; define the delta as ` in user font 0
.in "\e&\0``\233\2\4\12\20\42\20\12\04\2\0\0"

.sc "\177" "`"

; Now set up the default font to be user font 0

.in "\e%\1\0"
; use compressed mode

;in "\33!D"

; For finalization, restore to normal RAM font, use pica

.fi "\33\%\0\0\e!@"

.ts "WS \W"
.ts "RM \R"
.ts "GM \G"
.ts "SM \S"
.ts "RD \Q"
.ts "DL \D"
.ts "\f"