Command ? re pr256.asm

PAGE
PAGE 64,132
;
;
TITLE PR256 - IBM CHAR SET FOR MX100 by Tim Field
;***********************************************
;
;PR256...Copyright by Tim Field, 1982
;
;IBM CHARACTER SET - This program resides on the IBM personal
;  computer. All 256 of the characters used by the IBM will
;  be available to be printed out using the MX100 or MX80 with
;  graphics option. The nonstandard characters are printed
;  automatically by any process or program executing the IBM
;  interrupt #17H (normal print routine in BIOS).
;
;************************************************


;************************************
;
; DEFINE CONSTANTS USED BY PROGRAM
;
;************************************



INTADDR		EQU	7H * 4	;Address of interrupt vector addr
NEWINT		EQU	027H		;DOS interrupt code for "End but stay resident"
ESC_CHAR	EQU	1BH		;ASCII escape character
NUL		EQU	0		;ASCII NUL character

;
;Define mask bytes used to turn on and off SYS_MODE for each printer
;
MASK$BIT_GRAF	EQU	11111110B	;Printer in bit graphics mode
MASK$SEC_BITG	EQU	11111101B	;Next char is 2nd graf char count
MASK$FST_BITG	EQU	11111011B	;Next char is 1st graf char count
MASK$NEW_INTL	EQU	11110111B	;Next char international char defn
MASK$ESC_SING	EQU	11101111B	;Expect one more control char
MASK$ESC_NULL	EQU	11011111B	;Expect control char until NULL found
MASK$ESC_C	EQU	10111111B	;One more control char if non-zero, else 2 more
MASK$PREV_ESC	EQU	01111111B	;Next char is escape defn char

;
;Define structure used to hold each of the three possibly existing
;printers.
;
PRINTERS STRUC
	SYS_MODE	DB	0	;Stores bits pertaining to current printer mode
	GRAF_CNT	DW	0	;16 bit count of grf chars....for bit-graf mode
	FULL_INSTR	DB	0	;<0 :CR/LF mode, >0: no control codes, = 0: normal
	GRAF_PRINTER	DB	0	;=0 Printer has Epson graphisc, <>0: No
	INTLSET		DB	0	;0-7 value of current international set for Epson
PRINTERS ENDS
	


;**********************************
;
; Define a temporary stack. Required for initialization
; of program only
;	
;**********************************

STACK SEGMENT PARA STACK
	DB	10 DUP('STACK   ')
STACK ENDS

;**********************************
;
; Start code area !!
;
;**********************************

CODE SEGMENT
ASSUME CS:CODE,DS:CODE,SS:STACK,ES:NOTHING

PR256 PROC FAR
;
; Initialization code...used only once, on system startup
;
CALL INIT_CODE	;Call initialization routine
RET		;Return from initialization

;***********************************
;
;Define storage areas here
;
;***********************************

DWORD_ADDR	DW	0,0		;Save address to BIOS print routine here
TMPBYTE		DB	9		;A multiplicand
PR1		PRINTERS <>		;Set aside area for three printers
PR2		PRINTERS <>		;
PR3		PRINTERS <>		;

;************************************
;Start of actual print runtime code
;************************************

START_UP:		;Start of actual print routine
	PUSH	DS			;Save segment register
	PUSH	SI			;
	PUSH	BX			;
	PUSH	CX			;
	PUSH	DX			;
	PUSH	AX			;
	MOV	BX,CS			;
	MOV     DS,BX			;
	CMP	AH,0			;Is this  to print out a char?	JE	PCHAR			;Br if yes
	CALL	PR2BYTE			;Otherwise just print char
	JMP	DONE			;  and exit

PCHAR:
	MOV	BX,OFFSET PR1		;Now get offset to printer structure
	CMP	DL,0			;DX contains 0,1,2 for printer number
	JE	T1			;BR if printer 0
	ADD 	BX,5			;Move to next printer area
	CMP	DL,1			;Is it printer 1?	JE	T1			;Br if yes
	ADD 	BX,5			;Offset to printer 2 structure

T1:

	CMP GRAF_PRINTER[BX],0		;Are we talking to a printer with Epson graphics?	JNE MORE$TO$COME		;Send out char if not graphics printer
	MOV CH,SYS_MODE[BX]		;Get system mode bits
	RCR CH,1			;BIT_GRAF_MODE?	JNC NOT$BIT$MODE		;Br if not
	;
	;We are in bit-graphics mode...decrement mode count and send character
	;as is to printer.
	;
	DEC GRAF_CNT[BX]		;Decrement count of graphics characters left
	JNZ MORE$TO$COME		;Are we done with graphics mode?	AND SYS_MODE[BX],MASK$BIT_GRAF  ;If yes, clear bit to indicate done

MORE$TO$COME:

	JMP SHORT SENDCHAR		;Send out bit-graf mode character

NOT$BIT$MODE:

	CMP	FULL_INSTR[BX],1	;Are we in "Full Instr Set" mode?	JE	TO$CHKCHAR		;Br if yes...no "control char" check
	JL	NORM_MODE		;Br if normal mode
	;
	;If reach here, we are in CR/LF mode. The only "printer action"
	;codes expected here are CR (ASCII 13) and LF (ASCII 10).
	;All other ASCII values are interpreted as characters to be printed.
	;
	CMP	AL,13			;Is Carriage Return char?	JE	SENDCHAR		;Send to printer if yes
	CMP	AL,10			;Is Line Feed char?	JE	SENDCHAR		;Send to printer if yes

TO$CHKCHAR:
	JMP	CHKCHAR			;Else print character from character set
NORM_MODE:
	RCR	CH,1			;SEC_BITG_CNT?	JNC	NOT$SEC			;Br if no
	;
	;If reach here, the current character is the second count value for
	;the bit-graphics mode. It is the high order byte and must be added
	;to the low order byte which was the previous character.
	;
	MOV	(FULL_INSTR-1)[BX],AL		;Save Graf Cnt
	AND	SYS_MODE[BX],MASK$SEC_BITG	;Turn off SEC_BITG_CNT bit
	CMP 	GRAF_CNT[BX],0			;Is count equal 0?	JLE	SENDCHAR			;If yes, don't set Bit-graf mode
	OR	SYS_MODE[BX],NOT MASK$BIT_GRAF	;Indicate in Bit-graf mode
	JMP	SHORT SENDCHAR			;Send out count character
NOT$SEC:

	RCR	CH,1			;FST_BITG_CNT?	JNC	NOT$FST			;Br if not
	;
	;If this bit is set, it indicates that the last character printed out
	;was "Start Bit Graphics mode" indication. The current character is
	;to be used as the low order byte of the count of bit-graphics characters
	;to be sent. The next character is the high-order byte for the
	;count.
	;
	AND	SYS_MODE[BX],MASK$FST_BITG	;Turn off FST_BITG_CNT bit
	OR	SYS_MODE[BX],NOT MASK$SEC_BITG	;Turn on the SEC_BITG_CNT bit
	MOV 	GRAF_CNT[BX],AX			;Save low order count
	JMP	SHORT SENDCHAR			;Send count to printer

NOT$FST:
	RCR	CH,1				;NEW_INTL?	JNC	NOT$INTL			;Br if not
	;
	;If this bit is set, it indicates that we previously saw request for a
	;new "International" character set to be used. The current byte is
	;expected to be a value from 0 to 7 indicating the set to be used. If
	;an error is found, no set change is accomplished.
	;
	CMP AL,0				;Is current character less than 0?	JL	NOT$VALID			;Br if yes
	CMP	AL,7				;Is it greater than 7?	JG	NOT$VALID			;Br if yes
	;
	;If reach here,have valid set...update in memory
	;
	MOV 	INTLSET[BX],AL			;

NOT$VALID:
	AND	SYS_MODE[BX],MASK$NEW_INTL	;Clear NEW_INTL bit
	JMP	SHORT SENDCHAR			;Send out value to printer

NOT$INTL:
	RCR	CH,1				;ESC_SINGLE mode?	JNC	NOT$ESC_SING			;Br if not
	AND	SYS_MODE[BX],MASK$ESC_SING	;Turn off ESC_SINGLE mode
	JMP	SHORT SENDCHAR			;Send character to printer

NOT$ESC_SING:

	RCR	CH1S				;ESC_NULL mode?	JNC	NOT$ESC_NULL			;Br if not
	CMP	AL,NUL				;Is this a NULL character?	JNE	SENDCHAR			;If not, print out character
	AND	SYS_MODE[BX], MASK$ESC_NULL	;Otherwise turn off ESC_NULL mode first
	JMP	SHORT SENDCHAR			;

NOT$ESC_NULL:

	RCR	CH,1				;ESC_C mode?	JNC	NOT$ESC_C			;Br if not
	CMP	AL,NUL				;Is character NUL?	JNE	NOT$NUL				;Skip next if not
	OR	SYS_MODE[BX],NOT MASK$ESC_SING	;Expect one more control character

NOT$NUL:

	AND 	SYS_MODE[BX],MASK$ESC_C		;Turn off ESC_C mode

SENDCHAR:		;Print out current character and return

	CALL 	PRBYTE				;Call print routine
	JMP	DONE				;Go to end

NOT$ESC_C:

	RCR	CH,1				;PREV_ESC mode?	JNC	NOT$ESC				;Br if not
	;
	;If PREV_ESC bit is set, it indicates that the last character seen by
	;this printer was an "Escape" code. We will now look and see if it is
	;a control code that we need to remember. These are:
	;	ESC "L" - Puts printer in dual density bit graphics mode
	;	ESC "K" - Puts printer in single density bit graphics mode
	;	ESC "R" - Selects an international character set in printer
	;
	;
	;In addition to this codes that we need to remember, we have some
	;codes which set a temporary mode. These temporary modes are:
	;
	;	"ESC_SINGLE" :Expect one more control code. This is to be
	;		      sent to printer.
	;	"ESC_NULL"   :Expect control codes to continue until a NUL
	;		      character (ASCII 0) is received
	;	"ESC_C"	     :Expect one more control code. If that code is
	;		      an ASCII 0, expect one more after that.
	;
	;The escape sequences which set these modes are:
	;
	;	ESC "A"	-  ESC_SINGLE mode
	;	ESC "D"	-  ESC_NULL mode
	;	ESC "Q" -  ESC_SINGLE mode
	;	ESC "B"	-  ESC_NULL mode
	;	ESC "C"	-  ESC_C mode
	;	ESC "N"	-  ESC_SINGLE mode
	;
	AND 	SYS_MODE[BX],MASK$PREV_ESC	;Turn off PREV_ESC mode bit
	CMP 	AL,"L"				;CTRL-L?	JE	SET$BIT_GRAF			;Br if yes
	CMP	AL,"K"				;CTRL-K?	JNE	ARND$BIT_GRAF			;Br if not

SET$BIT_GRAF:

	OR 	SYS_MODE[BX],NOT MASK$FST_BITG	;Indicate that next char is FST_BITG_CNT
	JMP	SHORT SENDCHAR			;Done, send out

ARND$BIT_GRAF:

	CMP	AL,'R'				;CTRL-R?	JNE	NOT$INT				;Br if not
	OR	SYS_MODE[BX],NOT MASK$NEW_INTL	;Indicate next char is NEW_INTL bit
	JMP 	SHORT SENDCHAR			;Send out character

NOT$INT:

	CMP	AL,'A'				;ESC A?	JE	DO$ESC_SINGLE			;Br if yes
	CMP	AL,'Q'				;ESC Q?	JE	DO$ESC_SINGLE			;Br if yes
	CMP	AL,'N'				;ESC N?	JNE	NOT$SINGLE			;Br if not ESC_SINGLE mode

DO$ESC_SINGLE:			;Set ESC_SINGLE mode

	OR 	SYS_MODE[BX],NOT MASK$ESC_SING	;
	JMP	SHORT SENDCHAR			;Print out char

NOT$SINGLE:			;Check for ESC_NULL mode now

	CMP	AL,'D'				;ESC D?	JE	DO$ESC_NULL			;Br if yes
	CMP	AL,'B'				;ESC B?	JNE	NOT$NULL			;Br if not ESC_NULL mode

DO$ESC_NULL:			;Set ESC_NULL mode

	OR	SYS_MODE[BX],NOT MASK$ESC_NULL	;
	JMP 	SHORT SENDCHAR			;Print out char

NOT$NULL:			;Check for ESC_C mode now

	CMP	AL,'C'				;ESC C?	JNE	NOT$ESCC			;Br if not
	OR	SYS_MODE[BX],NOT MASK$ESC_C	;Set ESC_C mode bit

NOT$ESCC:			;Do not care what type of char this is...print it

	JMP	SHORT SENDCHAR

NOT$ESC:			;Previous character was not an ESCAPE control char
		;
		;Is this an ESCAPE code?		;

	CMP	AL,ESC_CHAR			;
	JNE NESC				;Br if not
	OR SYS_MODE[BX],NOT MASK$PREV_ESC	;Set escape found bit
	JMP	SHORT SENDCHAR			;Send out character

NESC:
	;
	;See if we have any standard control codes...ASCII 7 - 20
	;

	CMP	AL,07H				;Is char less than 7?	JL	CHKCHAR				;Br if yes, not control code
	CMP	AL,14H				;Is char less than 14H?	JLE	SENDCHAR			;If not, it is a control code...print it

CHKCHAR:
	;
	;Here we check to see if the character to be printed is in the range
	;of 20H to 7EH (ASCII value of the character to be printed.) If in
	;that range, use standard EPSON character set. Otherwise, we have
	;a special character to print.
	;

	MOV	AH,0				;Make sure nothing is in upper byte
	CMP	AX,20H				;Is character less than 20H?	JL	BIT$CHAR			;Br if yes, special character
	CMP 	AX,7EH				;
	JLE SENDCHAR				;Not a special character, just print it
	SUB	AL,7EH-20H+1			;Subtract non-special character set out

BIT$CHAR:
		;
		;See if current character is part of the Epson's international character
		;set (If its offset into BITTYP array is 0, international)
		
	PUSH BX					;Save offset to storage area
	PUSH	AX				;Save current character
	MOV 	BX,AX				;
	MOV	CL,3				;Shift count
	SHR	BL,CL				;Shift lower three bits from AL
	MOV	CH,BITTYP[BX]			;Get byte containing type bit
	SHL	BL,CL				;Move AL back to original position
	;Note: we have now lost the three lower bits from AL.
	NEG	BX				;Take 2's compliment of BL
	ADD BL,AL				;Add original contents of AL to negated
						;  value to get the three bits
	INC BL					;This is now our index to type bit
	MOV	CL,BL				;Let's use value as shift count
	MUL TMPBYTE				;Offset into array
	MOV	SI,AX				;Get index into array
	POP	AX				;Once again, get original character
	SHL	CH,CL				;Recall CH holds bit-type byte
	JC	DO$BIT_GRAF			;Carry now is type of the char
	;
	;Well, we see that the bit type was 0, so we are to specify a character
	;from the Epson international character set. To determine which, we
	;expect the first byte in BITVAL array to tell us which international
	;set to use and the second byte to tell us the character to print.
	;
	MOV	CH,BITVAL[SI]			;Get character set
	CMP	INTLSET[BX],CH			;Is this the set we are now using?	JNE	NEW$INTSET			;Br if not
	POP	BX				;Keep stack clean
	MOV	AL,BITVAL[SI][1]		;If yes, just send out character
	JMP	SENDCHAR			;

NEW$INTSET:		;Must temporarily set up new international set

	MOV	AL,ESC_CHAR			;Print out "Esc" char
	CALL	PRBYTE				;
	MOV	AL,'R'				;Send out new international signal
	CALL	PRBYTE				;
	MOV AL,CH				;Print out character set to use
CALL 	PRBYTE					;
	MOV	AL,BITVAL[SI][1]		;Get intl character to print
	CALL	PRBYTE				;
	MOV	AL,ESC_CHAR			;Now restore original character set
	CALL	PRBYTE				;
	MOV	AL,'R'				;
	CALL 	PRBYTE				;
	POP	BX				;Restore address to store area
	MOV	AL,INTLSET[BX]			;Set type
	CALL 	PRBYTE				;
	JMP	DONE				;We are done so exit program

DO$BIT_GRAF:	;Special bit-graphics mode

	POP	BX			;Restore to keep stack straight
	PUSH	AX				;Save current character for indexing
	MOV	AL,ESC_CHAR			;Put printer in dual density bit mode
	CALL 	PRBYTE				;
	MOV	AL,'L'				;
	CALL 	PRBYTE				;
	MOV	AL,12				;Each graphics character consists of
	CALL	PRBYTE				;  exactly nine columns of bits followed
	MOV	AL,0				;  by 3 blank columns (12 columns total)
	CALL	PRBYTE				;
	POP	AX
	CMP	AX,0B3H-(7EH-20H+1)		;See if in extended set
	JL	NON_EXTND			;Br if not
	CMP	AX,0E0H-(7EH-20H+1)		;
	JGE	NON_EXTND			;
		;
		;The character is in the "extended" set. (ASCII 176 to 223)
		;
	MOV 	AL,BITVAL[SI]			;Pre-extend first column
	CALL	PR9BYTS				;Print out character
	JMP	AROUND				;Move around non-extended set

NON_EXTND:	;Character is non-extended

	MOV	AL,0				;First column is blank
	CALL 	PR9BYTS				;Print out character
	MOV	AL,0				;Last two columns are blank

AROUND:

	CALL 	PRBYTE				;Print out last two columns
	CALL	PRBYTE				;

DONE:		;Exit program

	POP	DX				;Restore AL without disturbing  AH
	MOV	AL,DL				;
	POP	DX				;Restore registers
	POP	CX				;
	POP	BX				;
	POP	SI				;
	POP 	DS				;
	IRET					;Return from interrupt

PR256 ENDP			; Done with main routine !!!

;**************************************
;
;   PRBYTE - Clears current value AH and prints out character in AL
;
;**************************************


PRBYTE PROC NEAR

	MOV 	AH,0				;Clear out for printing w/BIOS
	CALL 	PR2BYTE				;Do actual printing of char
	RET					;Done

PRBYTE ENDP
;**************************************************
;
;   PR2BYTE - Calls IBM's BIOS print routine to print out contents of AX
;
;**************************************************

PR2BYTE PROC NEAR

	PUSH 	DS				;
	PUSH 	SI
	PUSHF					;IBM print proc expects interrupt call
	MOV	SI,SEG DWORD_ADDR		;Get segment to ROM code
	MOV	DS,SI				;
	MOV	SI,OFFSET DWORD_ADDR		;Get address to ROM code for print
	CALL 	DWORD PTR [SI]			;Call print routine
	POP 	SI
	POP	DS
	RET					;Return

PR2BYTE ENDP

;********************************************
;
;   PR9BYTS - Prints out a graphics character using BITVAL table below.
;	      On entry, AL contains byte value of first column to be printed.
;	      Next nine colums of characters are fetched from indexing thru
;	      SI (which must be initialized by calling routine) into the
;	      BITVAL table.
;
;*********************************************

PR9BYTS PROC NEAR

	CALL PRBYTE				;Print out first column
	MOV	CX,9				;Loop through 9 columns

LOOP$SEND:

	MOV	AL,BITVAL[SI]			;Get next column to print
	CALL	PRBYTE				;Print it out
	INC	SI				;Move to next column
	LOOP	LOOP$SEND			;Loop until done
	RET					;Done, return

PR9BYTS ENDP
;***********************************
;
; Define characters...9 bytes per character
;
;***********************************
.RADIX 16				;All values are in hexadecimal
BITVAL DB	000,000,000,000,000,000,000,000,000	;0 (Decimal ASCII)
	DB	03C,042,089,0A5,085,0A5,089,042,03C	;1
	DB	03C,07E,093,9BH,0FBH,9BH,093,07E,03C	;2
	DB	60,0F0,0F8,07C,07E,07C,0F8H,0F0,060	;3
	DB	000,010,038,07C,0FE,07C,038,010,000	;4
	DB	010,038,038,0D0,0EE,0D0,038,038,010	;5
	DB	000,000,030,072,0FE,072,030,000,000	;6
	DB	000,000,030,078,078,078,030,000,000	;7
	DB	0FF,0FF,0CF,087,087,087,0CF,0FF,0FF	;8
	DB	000,018,024,042,042,042,024,018,000	;9
	DB	0FF,0E7,0DBH,0BDH,0BDH,0BDH,0BH,0E7,0FF	;10
	DB	000,00C,012,012,012,0B2,0CC,0E0,000	;11
	DB	000,000,064,094,09F,094,064,000,000	;12
	DB	000,006,006,0FE,0A0,0A0,0A0,0E0,000	;13
	DB	006,006,0FE,0A0,0A0,0A0,0AC,0AC,0FC	;14
	DB	054,010,038,028,0EE,028,038,010,054	;15
	DB	000,0FE,07C,07C,038,038,010,010,000	;16
	DB	000,010,010,038,038,07C,07C,0FE,000	;17
	DB	000,000,028,06C,0FE,06C,028,000,000	;18
	DB	000,0F2,0F2,000,000,000,0F2,0F2,000	;19
	DB	060,090,090,0FE,080,080,0FE,080,080	;20
	DB	001,5DH,000,000,000,000,000,000,000	;21 * FRANCE -5D
	DB	000,03C,03C,03C,03C,03C,03C,03C,000	;22
	DB	000,001,029,6DH,0FF,6DH,029,001,000	;23
	DB	000,000,020,060,0FE,060,020,000,000	;
	DB	000,000,008,00C,0FE,00C,008,000,000	;25
	DB	000,010,010,010,010,07C,038,010,000	;26
	DB	000,010,038,07C,010,010,010,010,000	;27
	DB	000,000,038,008,008,008,008,000,000	;28
	DB	010,038,07C,010,010,010,07C,038,010	;29
	DB	000,004,00C,01C,03C,01C,00C,004,000	;30
	DB	000,020,030,038,03C,038,030,020,000	;31
	DB	000,006,00A,012,022,012,00A,006,000	;127
	DB	001,05C,000,000,000,000,000,000,000	;128 * FRANCE - 5C
	DB	002,7DH,000,000,000,000,000,000,000	;129 * GERMANY -7D
	DB	001,7BH,000,000,000,000,000,000,000	;130 * FRANCE -7B
	DB	005,7DH,000,000,000,000,000,000,000	;131 * SWEDEN -7D
	DB	002,7BH,000,000,000,000,000,000,000	;132 * GERMANY -7B
	DB	001,040,000,000,000,000,000,000,000	;133 * FRANCE -40
	DB	002,007,055,0F5,0B5,0B5,0FE,04F,001	;134
	DB	000,071,089,089,08F,088,088,050,000	;135
	DB	000,00E,05F,0D5,095,095,0D5,5DH,00C	;136
	DB	000,01C,0BE,0AA,02A,02A,0AA,0BA,01B	;137
	DB	001,7DH,000,000,000,000,000,000,000	;138 * FRANCE -7D
	DB	000,0A2,0A2,03E,01E,082,082,000,000	;139
	DB	000,052,0D2,09E,08E,0C2,042,000,000	;140
	DB	000,012,092,0DE,04E,002,002,000,000	;141
	DB	002,5BH,000,000,000,000,000,000,000	;142 * GERMANY -5B
	DB	003,047,04E,0BA,0B2,0BA,04E,047,003	;143
	DB	005,040,000,000,000,000,000,000,000	;144 * SWEDEN -40
	DB	004,7BH,000,000,000,000,000,000,000	;145 * denmark - 7B
	DB	004,5BH,000,000,000,000,000,000,000	;146 * DENMARK -5B
	DB	000,00E,05F,0D1,091,091,0D1,05F,00E	;147
	DB	002,07C,000,000,000,000,000,000,000	;148 * GERMANY -7C
	DB	000,00E,01F,091,0D1,051,011,01F,00E	;149
	DB	000,05E,0DF,081,081,0C1,05E,01F,001	;150
	DB	001,07C,000,000,000,000,000,000,000	;151 * FRANCE -7C
	DB	020,0B0,099,00F,006,00C,098,0B0,020	;152
	DB	002,05C,000,000,000,000,000,000,000	;153 * GERMANY 5C
	DB	002,5DH,000,000,000,000,000,000,000	;154 * GERMANY -5D
	DB	018,03C,066,042,0FF,0FF,042,066,024	;155
	DB	003,023,000,000,000,000,000,000,000	;156 * ENGLAND -23
	DB	000,000,094,054,03F,054,094,000,000	;157
	DB	007,023,000,000,000,000,000,000,000	;158 * SPAIN -23
	DB	000,004,012,012,07C,090,090,040,000	;159
	DB	004,00E,02A,06A,0EA,0AA,03C,01E,002	;160
	DB	000,012,012,05E,0CE,082,002,000,000	;161
	DB	000,00E,01F,011,051,0D1,091,01F,00E	;162
	DB	000,01E,01F,041,0C1,081,01E,01F,001	;163
	DB	007,07C,000,000,000,000,000,000,000	;164 * SPAIN -7C
	DB	007,05C,000,000,000,000,000,000,000	;165 * SPAIN -5C
	DB	000,012,0BA,0AA,0AA,0AA,072,07A,00A	;166
	DB	000,072,0FA,08A,08A,08A,08A,0FA,072	;167
	DB	007,5DH,000,000,000,000,000,000,000	;168 * SPAIN -5D
	DB	000,000,038,020,020,020,020,000,000	;169
	DB	000,000,020,020,020,020,038,000,000	;170
	DB	000,042,0F4,008,010,029,053,015,009	;171
	DB	000,042,0F4,008,012,026,04A,01F,002	;172
	DB	007,5BH,000,000,000,000,000,000,000	;173 * SPAIN -5B
	DB	010,038,06C,044,010,038,06C,044,000	;174
	DB	000,044,06C,038,010,044,06C,038,010	;175
	DB	000,055,000,0AA,000,055,000,0AA,000	;176
	DB	055,0AA,055,0AA,055,0AA,055,0AA,055	;177
	DB	0FF,0AA,0FF,055,0FF,0AA,0FF,055,0FF	;178
	DB	000,000,000,000,0FF,000,000,000,000	;179
	DB	008,008,008,008,0FF,000,000,000,000	;180
	DB	028,028,028,028,0FF,000,000,000,000	;181
	DB	008,008,008,0FF,000,000,0FF,000,000	;182
	DB	008,008,008,00F,008,008,00F,000,000	;183
	DB	028,028,028,028,03F,000,000,000,000	;184
	DB	028,028,028,0EF,000,000,0FF,000,000	;185
	DB	000,000,000,0FF,000,000,0FF,000,000	;186
	DB	028,028,028,02F,020,020,03F,000,000	;187
	DB	028,028,028,0E8,008,008,0F8,000,000	;188
	DB	008,008,008,0F8,008,008,0F8,000,000	;189
	DB	028,028,028,028,0F8,000,000,000,000	;190
	DB	008,008,008,008,00F,000,000,000,000	;191
	DB	000,000,000,000,0F8,008,008,008,008	;192
	DB	008,008,008,008,0F8,008,008,008,008	;193
	DB	008,008,008,008,00F,008,008,008,008	;194
	DB	000,000,000,000,0FF,008,008,008,008	;195
	DB	008,008,008,008,008,008,008,008,008	;196
	DB	008,008,008,008,0FF,008,008,008,008	;197
	DB	000,000,000,000,0FF,028,028,028,028	;198
	DB	000,000,000,0FF,000,000,0FF,008,008	;199
	DB	000,000,000,0F8,008,008,0E8,028,028	;200
	DB	000,000,000,03F,020,020,02F,028,028	;201
	DB	028,028,028,0E8,008,008,0E8,028,028	;202
	DB	028,028,028,02F,020,020,02F,028,028	;203
	DB	000,000,000,0FF,000,000,0EF,028,028	;204
	DB	028,028,028,028,028,028,028,028,028	;205
	DB	028,028,028,0EF,000,000,0EF,028,028	;206
	DB	028,028,028,0EF,000,000,0EF,028,028	;207
	DB	008,008,008,0F8,008,008,0F8,008,008	;208
	DB	028,028,028,028,02F,028,028,028,028	;209
	DB	008,008,008,00F,008,008,00F,008,008	;210
	DB	000,000,000,0F8,008,008,0F8,008,008	;211
	DB	000,000,000,000,0F8,028,028,028,028	;212
	DB	000,000,000,000,03F,028,028,028,028	;213
	DB	000,000,000,00F,008,008,00F,008,008	;214
	DB	008,008,008,0FF,008,008,0FF,008,008	;215
	DB	028,028,028,028,0FF,028,028,028,028	;216
	DB	008,008,008,008,0F8,000,000,000,000	;217
	DB	000,000,000,000,00F,008,008,008,008	;218
	DB	0FF,0FF,0FF,0FF,0FF,0FF,0FF,0FF,0FF	;219
	DB	00F,00F,00F,00F,00F,00F,00F,00F,00F	;220
	DB	0FF,0FF,0FF,0FF,0FF,000,000,000,000	;221
	DB	000,000,000,000,000,0FF,0FF,0FF,0FF	;222
	DB	0F0,0F0,0F0,0F0,0F0,0F0,0F0,0F0,0F0	;223
	DB	000,03C,042,042,042,03C,024,042,000	;224
	DB	002,07E,000,000,000,000,000,000,000	;225 * GERMANY -7E
	DB	000,07E,040,040,040,040,040,070,000	;226
	DB	000,040,07E,040,040,040,07E,040,000	;227
	DB	082,0C6,0AA,092,082,082,082,0C6,000	;228
	DB	000,03C,042,042,042,07C,040,040,040	;229
	DB	000,001,07E,004,004,004,004,078,000	;230
	DB	000,020,040,040,03E,020,040,040,000	;231
	DB	000,099,0A5,0A5,0E7,0A5,0A5,099,000	;232
	DB	000,038,054,092,092,092,054,038,000	;233
	DB	002,03A,046,080,080,080,046,03A,002	;234
	DB	000,000,04C,0B2,092,092,08C,000,000	;235
	DB	038,044,044,044,038,044,044,044,038	;236
	DB	000,03A,044,04C,054,064,044,0B8,000	;237
	DB	000,000,038,054,092,082,000,000,000	;238
	DB 	000,01E,020,040,040,040,020,01E,000	;239
	DB	000,054,054,054,054,054,054,054,000	;240
	DB	000,022,022,022,0FA,022,022,022,000	;241
	DB	000,002,08A,08A,052,052,022,022,000	;242
	DB	000,022,022,052,052,08A,08A,002,000	;243
	DB	000,000,000,000,07F,080,080,060,000	;244
	DB	000,006,001,001,0FE,000,000,000,000	;245
	DB	000,010,010,010,054,010,010,010,000	;246
	DB	000,024,048,048,024,012,012,024,000	;247
	DB	000,000,030,048,048,048,030,000,000	;248
	DB	000,000,030,078,078,078,030,000,000	;249
	DB	000,000,000,010,038,010,000,000,000	;250
	DB	010,010,010,008,004,07E,040,040,040	;251
	DB	080,070,080,080,078,000,000,000,000	;252
	DB	044,08C,094,064,000,000,000,000,000	;253
	DB	000,000,07C,07C,07C,07C,07C,000,000	;254
	DB	000,000,000,000,000,000,000,000,000	;255


;******************************************************
;	
;Set up bits to destinguish between normal graphics characters
;and those which can use the MX100 International character sets
;
;*******************************************************

.RADIX 10		;Back do decimal notation

BITTYP DB 11111111B	;ASCII 0 TO 7
	DB 11111111B	;8 - 15
	DB 11111011B	;16 - 23
	DB 11111111B	;24 - 31
	DB 10000001B	;127 - 134
	DB 11101110B	;135 - 142
	DB 10001011B	;143 - 150
	DB 01001010B	;151 - 158
	DB 11111001B	;159 - 166
	DB 10111101B	;167 - 174
	DB 11111111B	;175 - 182
	DB 11111111B	;183 - 190
	DB 11111111B	;191 - 198
	DB 11111111B	;199 - 206
	DB 11111111B	;207 - 214
	DB 11111111B	;215 - 222
	DB 11011111B	;223 - 230
	DB 11111111B	;231 - 238
	DB 11111111B	;239 - 246
	DB 11111111B	;247 - 254
	DB 10000000B	;255



LASTONE: 	;All code after this label is freed to DOS use after 
		;initialization of the program

;******************************************
;
;  Code to load and initialize the printing program...
;  sets up DOS to keep all code before "LASTONE" label
;  save from overlaying during system operation
;
;******************************************


INIT_CODE PROC NEAR

	POP	AX				;Remove return address of CALL
	;
	;After this initialization routine is finished, we wish to return
	;control to DOS and prevent DOS from overlaying the PR256 code.
	;This is done by replacing the INT X'20' command found at the front 
	;of the Program Segment Prefix control block with an INT X'27'
	;"Program end but stay resident" command. The address to this instruction
	;is placed on the front of the stack, behind the return address
	;used by this subroutine. When the initialization is finished, this
	;routine returns to its caller (the main program) which executes a
	;return to the FSP, resulting in the INT X'27' command execution.
	;
	PUSH	DS				;Move segment address to PSP onto stack
	MOV	DI,0				;Set return to first location in PSP
	PUSH DI					;
	PUSH	AX				;Restore return address
	MOV	AL,NEWINT			;Set up INT X'27' in PSP
	MOV	[DI+1],AL			;
	MOV	AX,0				;Set up address to INT 17H vector
	MOV	DS,AX				;
	MOV	BX,INTADDR			;
	LES	DI,DWORD PTR [BX]		;Load double word addr to BIOS print rtn.
	MOV	AX,SEG DWORD_ADDR		;Now set up addr to store BIOS addr
	MOV	DS,AX				;
	MOV	DWORD_ADDR,DI			;
	MOV 	AX,ES				;
	MOV	DWORD_ADDR+2,AX			;Store BIOS print routine address
	MOV	AX,SEG START_UP			;
	MOV	ES,AX				;Don't forget to save segment address
	MOV 	DI,OFFSET START_UP		;
	MOV	AX,0				;
	MOV	DS,AX				;Now, address back to INT 17H vector
	MOV	BX,INTADDR			;
	MOV	[BX],DI				;
	MOV	DI,ES				;
	MOV	[BX+2],DI			;
	MOV	DX,OFFSET LASTONE		;Save all code up to "LASTONE" label
	ADD	DX,0100H			;  from overlaying by DOS
	RET					;Return to main program

	INIT_CODE ENDP
	CODE ENDS
	END
65399 '** DONE - PRESS ENTER TO RETURN TO MENU **