windows-xp/Source/XPSP1/NT/base/mvdm/wow16/drivers/neccomm1/ibmlpt.asm

page,132
ifdef   NEC_98
.286p
endif   ; NEC_98
;---------------------------Module-Header-------------------------------;
; Module Name: IBMLPT.ASM
;
; Copyright (c) Microsoft Corporation 1985-1990.  All Rights Reserved.
;
; General Description:
;
; History:
;
;-----------------------------------------------------------------------;

title	IBMLpt - IBM PC, PC-XT, PC-AT, PS/2 Parallel Communications Interface

.xlist
include cmacros.inc
include comdev.inc
include ins8250.inc
include ibmcom.inc
ifdef   NEC_98
include vint.inc
endif   ; NEC_98
.list

ifdef   NEC_98
sBegin	 Data				;			(ins 93.03.28)
	InitRetry         dw 0		;LPT Retry count	(ins 93.03.28)
	ModeFlag	  db 0		; = 0 KAN-I SENTRO	(ins 93.03.28)
					; = 1 SENTRO		(ins 93.03.28)
					;		     <ins:Toki:930923>
	CurPrinterMode db 0		;		     <ins:Toki:930923>
	OrgPrinterMode db 0		;		     <ins:Toki:931013>
					;		     <ins:Toki:930923>
	PC98_Mode  =	00000000b	;		     <ins:Toki:930923>
	Toki_Mode  =	00000001b	;		     <ins:Toki:930923>
	Org_Toki_ControlStatus db 0	;		     <ins:Toki:931027>
	Org_Toki_EX_Control    db 0	;  		     <ins:Toki:931027>
					;
	Org_Toki_ControlStatus540 db 0	;		     	(ins 931219)
	Org_Toki_EX_Control540    db 0	;  		     	(ins 931219)
					;			(ins 931219)
	Org_Toki_ControlStatusD40 db 0	;			(ins 931219)
	Org_Toki_EX_ControlD40    db 0	;  			(ins 931219)
					;			(ins 931219)
	InitCounter	db	0	;Lpt initialize counter <ins 931028>
					;			<ins 931028>
	   LptInit	= 00000001b	;	LPT Init OK !	<ins 931028>
	   ;RFU		= 00000010b	;			<ins 931028>
	   ;RFU		= 00000100b	;			<ins 931028>
	   ;RFU		= 00001000b	;			<ins 931028>
	   ;RFU		= 00010000b	;			<ins 931028>
	   ;RFU		= 00100000b	;			<ins 931028>
	   ;RFU		= 01000000b	;			<ins 931028>
	   ;RFU		= 10000000b	;			<ins 931028>
sEnd Data				;			(ins 93.03.28)
endif   ; NEC_98

sBegin Code
assumes cs,Code
assumes ds,Data

externFP GetSystemMsecCount

externA __0040H

ifdef   NEC_98
;-------------------------------------------------------------------------
;	Printer Status Bit for IBM-PC
;-------------------------------------------------------------------------
PS_NotBusy      equ     10000000b       ;Printer not busy
PS_Ack          equ     01000000b       ;Data acknowledged
PS_PaperOut     equ     00100000b       ;Out of paper
PS_Select       equ     00010000b       ;Device is selected
PS_IOError      equ     00001000b       ;IO error
PS_Timeout      equ     00000001b       ;Timeout occured
;-------------------------------------------------------------------------
;	Parameter for PC-9800
;-------------------------------------------------------------------------
PRNStrobFF_ON		=	0dh	; port_C Strob F/F on
PRNStrobFF_OFF		=	0ch	; port_C Strob F/F off
SystemPort		=	37h	; port_C I/O Address
PRN_Mode		=	46h	; Printer Mode
PRN_WSignal		=	46h	;
PRN_RSignal		=	42h	;

PRN_WRITE_DATA		equ	040h	;
PRN_READ_SIGNAL1	equ	042h	;
PRN_WRITE_SIGNAL1	equ	046h	;

PRN_PSTB_Active_X2 	equ	004h	;
PRN_PSTB_NonActive_X2	equ	005h	;

PRN_PSTB_Active_X1 	equ	00eh	;
PRN_PSTB_NonActive_X1	equ	00fh	;
endif   ; NEC_98

;----------------------------Private-Routine----------------------------;
;
; DoLPT - Do Function To LPT port
;
; The given function (output or reset) is performed to the
; passed LPT port.
;
; Before a character is sent, a check is made to see if the device
; will be able to accept the character.  If it can, then the character
; will be sent.  If not, then an error will be returned.  If the
; printer is selected and busy and no error, then the code returned
; will be CE_TXFULL and the handshake bits will be set in HSFlag
; to simulate that a handshake was received.
;
; If the BIOS ROM code is examined, you will note that they wait for
; the busy character from the last charcater to be cleared before
; they strobe in the current character.  This can take a long time
; on the standard EPSON class printer (1 mSec to greater than
; 300 mSec if the last character actually caused printing).
;
; Because of this, several status read retrys will be made before
; declaring that the device is actually busy.  If only one status
; read is performed, the spooler will yeild, take a while to get
; back here, and things will be really slow.  What difference does
; it really make if we or the BIOS does the delay, at least we can
; break out of it at some point when it seems hopeless.
;
;   The OKIHACK: Okidata reports a 50 ns. 2.2 volt pulse on the paper
;   out signal on the trailing edge of the Busy signal.  If we see this
;   glitch then we report paper out.  So we try to get the status twice...
;   if it changes between the two tries we keep getting the status.
;   
;
; Entry:
;   AH    =  cid
;   AL    =  character to output
;   CH	  =  Function request.	0 = Output, 1 = Initialize, 2 = Status
;   DS:SI -> DEB for the port
; Returns:
;   AX = 0 if no errors occured
; Error Returns:
;   AX = error code
; Registers Preserved:
;   SI,DI
; Registers Destroyed:
;   AX,BX,CX,DX,ES,FLAGS
; History:
;-----------------------------------------------------------------------;

   assumes ds,Data
   assumes es,nothing

ifdef   NEC_98
	iodelay	macro			;		<ins:Toki:930923>
		out	5fh, al		;		<ins:Toki:930923>
	endm				;		<ins:Toki:930923>
endif   ; NEC_98

	public DoLPT
DoLPT   proc   near

ifdef   NEC_98
	cmp	wo [si.Port], 00h	;		     (ins 931219)
	jz	DoLPT98			;		<ins:Toki:930923>
	jmp	Toki_DoLpt		;		<ins:Toki:930923>
else    ; NEC_98
	mov	dx,Port[si]		;Get port address

;   DX = port address
;   CH = operation: 0 = write, 1 = init, 2 = status
;   AL = character

	or	ch, ch
	jz	LPT_OutChar
	cmp	ch, 1
	jz	LPT_Reset
	jmp	LPT_GetStatus
	ret

LPT_Reset:

	inc	dx
	inc	dx
	mov	al, L_RESET
	iodelay
	out	dx, al

	push	dx

	cCall	GetSystemMsecCount
	mov	bx, ax

LPT_ResetDelay:
	push	bx
	cCall	GetSystemMsecCount
	pop	bx
	sub	ax, bx
	cmp	ax, 300 		; 1/3 sec as good as any
	jbe	LPT_ResetDelay

	pop	dx

	mov	al, L_NORMAL
	iodelay
	iodelay
	out	dx, al
	dec	dx
	dec	dx
	jmp	LPT_GetStatus

LPT_OutChar:
	push	ax			; save character to be written

	; first check to see if printer is ready for us
	push	di

	push	dx
	call	GetSystemMSecCount
	mov	di, ax
	pop	dx

LPT_WaitReady:

	inc	dx			; point to status port
	iodelay
	in	al, dx			; get status bits
	and	al, L_BITS	      ; mask unused ones
	xor	al, L_BITS_INVERT     ; flip a couple
	xchg	al, ah

ifndef NOOKIHACK
	iodelay
	in	al, dx

	dec	dx

	and	al, L_BITS
	xor	al, L_BITS_INVERT
	cmp	al, ah			; did any bits change?
	jnz	LPT_WaitReady
else
	dec	dx
endif


	test	ah, PS_PaperOut or PS_IOError
	jnz	LPT_PrinterNotReady
	test	ah, PS_Select
	jz	LPT_PrinterNotReady
	test	ah, PS_NotBusy
	jnz	LPT_PrinterReady

	push	ax
	push	dx
	call	GetSystemMSecCount
	pop	dx
	pop	bx
	sub	ax, di
	cmp	ax, 300 	       ; 1/3 sec timeout

	jbe	LPT_WaitReady

;       The device seems to be selected and powered up, but is just
;       busy (some printers seem to show selected but busy when they
;       are taken offline).  Show that the transmit queue is full and
;       that the hold handshakes are set.  This is so the windows
;	spooler will retry (and do yields so that other apps may run).


	or	ComErr[si],CE_TXFULL	;Show queue full
	mov	ah,bh
	or	ah, L_TIMEOUT

LPT_PrinterNotReady:

	pop	di
	pop	cx			; throw away character
	jmp	short LPT_ReturnStatus

LPT_PrinterReady:
	pop	di			; get di back
	pop	ax			; get character back

	iodelay
	out	dx, al			; write character to port

	inc	dx			; access status port

LPT_Strobe:
	inc	dx			; control port
	mov	al, L_STROBE	      ; set strobe high
	iodelay
	iodelay
	iodelay
	iodelay
	out	dx, al			;   ...

	mov	al, L_NORMAL	      ;
	iodelay
	iodelay
	iodelay
	iodelay
	out	dx, al			; set strobe low

	sub	dx, 2			; point back to port base

	; FALL THRU

LPT_GetStatus:
	inc	dx			; point to status port
LPT_GS1:
	iodelay
	iodelay
	in	al, dx			; get status bits
	and	al, L_BITS	      ; mask unused ones
	xor	al, L_BITS_INVERT     ; flip a couple
	mov	ah, al

ifndef NOOKIHACK
	in	al, dx
	and	al, L_BITS
	xor	al, L_BITS_INVERT
	cmp	al, ah
	jnz	LPT_GS1 	; if they changed try again...
endif

LPT_ReturnStatus:

	assumes ds,Data
        and     ax,(PS_PaperOut+PS_Select+PS_IOError+PS_Timeout)*256
        shr     ah,1
        adc     ah,al                   ;Get back Timeout bit
        xor     ah,HIGH CE_DNS          ;Invert selected bit
   .errnz   LOW CE_DNS
        or      by ComErr+1[si],ah      ;Save comm error
        ret

   .errnz   CE_PTO-0200h
   .errnz   CE_IOE-0400h
   .errnz   CE_DNS-0800h
   .errnz   CE_OOP-1000h

DoLPT40:
	assumes ds,Data
        or      ComErr[si],CE_TXFULL    ;Show queue full
        ret
endif   ; NEC_98

DoLPT   endp
page

ifdef   NEC_98
	public DoLPT98
DoLPT98 proc   near
        push    di                      ;Need some extra space
        mov     di,[InitRetry]          ;Initialize retry count = 0
        mov     ah,ch                   ;Set function request
DoLPT10:
        or      ah,ah                   ;If reset
        jnz     DoLPT50                 ;  skip status pre-read

;-------------------------------------------------------------------------
;output data to printer
;-------------------------------------------------------------------------
        xchg    ax,cx                   ;CX = output data

DoLPT20:
;-------------------------------------------------------------------------
;	switch (AH) {
;	0: Output Data
;	1: Initialize Printer
;	2: Read Printer Status
;	}
;-------------------------------------------------------------------------
        mov     ah,2                      ;
	call	PrinterCall               ; read status

;-------------------------------------------------------------------------
;(91.1.7)  			       AH = (B)(A)(P)(S)|(F)(0)(0)(T)
;	   [IBM Printer Status]	 	     |  |  |  |   |	   |
;	 PS_NotBusy  = 10000000b ------------+  |  |  |   |        |
;	 PS_Ack      = 01000000b ---------------+  |  |   |        |
;	 PS_PaperOut = 00100000b ------------------+  |   |        |
;	 PS_Select   = 00010000b ---------------------+   |        |
;	 PS_IOError  = 00001000b -------------------------+        |
;	 PS_Timeout  = 00000001b ----------------------------------+
;-------------------------------------------------------------------------
        test    ah,PS_PaperOut+PS_IOError ;
        jnz     DoLPT60                 ;paper empty or I/O error
        test    ah,PS_Select
        jz      DoLPT60                 ;error if not select
        or      ah,ah
        js      DoLPT40                 ;output data if not busy

        dec     di
        jnz     DoLPT20                 ;until initialize retry count =0

DoLPT30:				;select & busy & retry count=0
        or      ComErr[si],CE_TXFULL    ;Show queue full
	or	ah, PS_Timeout		;Show timeout
	jmp	short DoLPT60		;  goto EVENT Create

DoLPT40:				;
        xchg    ax,cx                   ;AX = output data

DoLPT50:
;-------------------------------------------------------------------------
;	switch (AH) {
;	0: Output Data
;	1: Initialize Printer 
;	2: Read Printer Status
;	}
;-------------------------------------------------------------------------
	call	PrinterCall		;Let the BIOS do the work

;-------------------------------------------------------------------------
;(91.1.7)  			       AH = (B)(A)(P)(S)|(F)(0)(0)(T)
;	   [IBM Printer Status]	 	     |  |  |  |   |	   |
;	 PS_NotBusy  = 10000000b ------------+  |  |  |   |	   |
;	 PS_Ack      = 01000000b ---------------+  |  |   |	   |
;	 PS_PaperOut = 00100000b ------------------+  |   |	   |
;	 PS_Select   = 00010000b ---------------------+   |	   |
;	 PS_IOError  = 00001000b -------------------------+	   |
;	 PS_Timeout  = 00000001b ----------------------------------+
;-------------------------------------------------------------------------
DoLPT60:
	and     ax,(PS_PaperOut+PS_Select+PS_IOError+PS_Timeout)*256 ;	1.
	shr     ah,1				;			2.
	adc     ah,al                   	;Get back Timeout bit	3.
	shr     ah,1				;			4.
	adc     ah,al           		;Get back Timeout bit	5.
	shl	ah,1				;			6.
	xor     ah,HIGH CE_DNS          	;Invert selected bit	7.

	;-------------------------------------------------------------------
	; <<Explain of 1.2.3.4.5.6.7.>>	;	_ <AH>       <AL>
	;				;	BAPS|F00T  ????|????
	; 1.	and     ax,(PS_Pa..+..)*256 ;	00PS|F00T  0000|0000
	; 2.	shr     ah,1		;	000P|SF00  0000|0000  CY=(T)
	; 3.	adc     ah,al          	;	000P|SF0T  0000|0000
	; 4.	shr     ah,1		;	0000|PSF0  0000|0000  CY=(T)
	; 5.	adc     ah,al          	;	0000|PSFT  0000|0000
	; 6.	shl	ah, 1		;	000P|SFT0  0000|0000
	; 7.	xor     ah,HIGH CE_DNS	;	000P|SFT0  0000|0000
	;					   | |||
	;       CE_OOP equ 1000h ------------------+ |||
	;       CE_DNS equ 0800h --------------------+||
	;       CE_IOE equ 0400h ---------------------+|
	;	CE_PTO equ 0200h ----------------------+
	;-------------------------------------------------------------------
	test	ah, high(CE_TXFULL or CE_OOP or CE_DNS or CE_IOE )
	jz      DoLPT70                 	;No error occured
	or      by ComErr+1[si],ah      	;Save comm error
	test    by EvtMask+1[si],HIGH EV_PErr	;Printer error event request?
	jz      DoLPT70                 	;  No
	or      by EvtWord+1[si],HIGH EV_PErr	;  Yes, show event occured
	
DoLPT70:
	pop     di
	ret
DoLPT98   endp

page
;-----------------------------------------------------------------------
; Open LPT
;-----------------------------------------------------------------------
	public	INT_1AH_call
INT_1AH_call	proc	near

;-(931219)-----------------------------------------------------------------
;   Check H/W environment, and set correct I/O address to [si.Port].
;
;  +---------------------------------------+--------------------+
;  |				           |     [si.Port]      |
;  |            H/W environment            |--------------------|
;  |				           | LPT1 | LPT2 | LPT3 |
;  +---------------------------------------+--------------------+
;  |1|Standard Machine		           | 000h |  -1  |  -1  |
;  |2|Standard Machine+Ex board(LPT1/2)    | 540h | d40h |  -1  |
;  |3|		               (LPT2/3)    | 000h | 540h | d40h |
;  |4|TOKI on board			   | 140h |  -1  |  -1  |
;  |4|TOKI on board            (LPT1 KAN-I)| 000h |  -1  |  -1  |
;  |5|TOKI on board + Ex board	           | 140h | 540h | d40h |
;  |5|TOKI on board + Ex board (LPT1 KAN-I)| 000h | 540h | d40h |
;  +---------------------------------------+--------------------+
;		000h -> compatible H/W,  -1 -> no H/W
;
; [CurPrinterMode]
;	PC98_Mode =	00000000b -> Standard Machine, no Ex board
;	Toki_Mode =	00000001b -> TOKI on board
;	ExToki_12 =	00000010b -> Ex LPT=LPT1/2
;	ExToki_23 =	00000100b -> Ex LPT=LPT2/3
;	ExToki_Available = (ExToki_12 or ExToki_23) 
;
;   ENTER:  DS:SI -> ComDEB
;
; Toki_BasePort	       �� 0140h	; Base I/O Address
; Toki_DataLatch       �� 0140h	; Data Port
; Toki_PrinterStatus   �� 0141h	; Status Port
; Toki_PrinterControls �� 0142h	; Control Port
; Toki_ControlStatus   �� 0149h	; Control Status Port
; Toki_EX_Control      �� 014eh	; Ex Control Port
;
; BIOS Common Area [0:458h] Full SENTRO if Bit1=1
; BIOS Common Area [0:5B3h] TOKI on board if Bit7=1

	cmp	by [si.DCB_Id], ID_LPT1 ;	LPT1 ?		(ins 931219)
	jne	LPT2_TokiSetup		;	�@�@N: NEXT	(ins 931219)
					;			(ins 931219)
	push	ds			;			<ins:Toki:931027>
	mov	ax, 40h			; BIOS Common Area	<ins:Toki:931027>
	mov	ds, ax			;			<ins:Toki:931027>
	test	by ds:[1b3h], 10000000b ; TOKI if bit7=1	<ins:Toki:931027>
	pop	ds			;
	mov	wo [si.Port], 140h	;		     	(ins 931219)
	jz	@f			;   N: NEXT		(ins 931219)
	jmp	LPT1_TokiSetup		;   Y: TOKI I/O		(ins 931219)
					; -> LPT1=TOKI on board (ins 931219)
@@:					;     			(ins 931219)
	mov dx, Toki_ControlStatus+400h ;			(ins 931219)
	in	al, dx			;		     	(ins 931219)
	cmp	al, 0ffh		; Is there Ex board ?  	(ins 931219)
	mov	wo [si.Port], 00h	;		     	(ins 931219)
	jne	@f			;   Y: NEXT		(ins 931219)
	jmp	PrePrinterCall		;   N: standard I/O	(ins 931219)
					; -> LPT1=KAN-I on board(ins 931219)
@@:					;			(ins 931219)
	mov	dx, 54fh		;			(ins 931219)
	in	al, dx			; 		     	(ins 931219)
	test	al, 00000100b		; Ex board = LPT1/2 ?	(ins 931219)
	mov	wo [si.Port], 00h	;		     	(ins 931219)
	jz	@f			;   Y: Ex board I/O	(ins 931219)
					; -> LPT1=CH1		(ins 931219)
	jmp	PrePrinterCall		;   N: Standard I/O	(ins 931219)
					; -> LPT1=KAN-I on board(ins 931219)
@@:					;      	  		(ins 931219)
	;-------------------------------------------------------------------
	;    Initialize Ex 1CH(Port 054xh)
	;-------------------------------------------------------------------
	mov	wo [si.Port], 540h	; 			(ins 931219)
Init_Port540h:				;		     	(ins 931219)
	mov	dx, Toki_ControlStatus+400h;			(ins 931219)
	in	al, dx			;			(ins 931219)
	mov [Org_Toki_ControlStatus540], al; Save Control Status(ins 931219)
	mov	dx, Toki_EX_Control+400h;			(ins 931219)
	in	al, dx			;			(ins 931219)
	mov [Org_Toki_EX_Control540], al; Save Ex Control	(ins 931219)
	mov dx, Toki_ControlStatus+400h	; AT Standard mode	(ins 931219)
	mov	al, 00010000b		; Normal Speed		(ins 931219)
	out	dx, al			;			(ins 931219)
	iodelay				;			(ins 931219)
	mov dx, Toki_EX_Control+400h	; AT Standard mode	(ins 931219)
	mov	al, 00010100b		; S/W Control		(ins 931219)
	out	dx, al			;			(ins 931219)
	iodelay				;			(ins 931219)
	mov dx,Toki_PrinterControls+400h; Select Printer	(ins 931219)
	mov	al, 00001100b		; nothing to initialize	(ins 931219)
	out	dx, al			;			(ins 931219)
	ret				;			(ins 931219)

LPT2_TokiSetup:
	cmp	by [si.DCB_Id], ID_LPT2 ; LPT2 ?		(ins 931219)
	jne	LPT3_TokiSetup		;	   N: NEXT	(ins 931219)
	mov dx, Toki_ControlStatus+400h ;			(ins 931219)
	in	al, dx			;		     	(ins 931219)
	cmp	al, 0ffh		; Is there Ex board ?	(ins 931219)
	mov	wo [si.Port], -1	; 			(ins 931219)
	jne	@f			;    Y: NEXT		(ins 931219)
	ret				;    N: Error		(ins 931219)
@@:					;			(ins 931219)
	mov	dx, 54fh		;			(ins 931219)
	in	al, dx			; 		     	(ins 931219)
	test	al, 00000100b		; Ex board=LPT2/3 ?	(ins 931219)
	mov	wo [si.Port], 540h	; 			(ins 931219)
	jnz	Init_Port540h		;    Y: Init CH1 Port	(ins 931219)
					;	  -> LPT2=CH1   (ins 931219)
					;    N: Init CH2 Port	(ins 931219)
					;	  -> LPT2=CH2   (ins 931219)
	;-------------------------------------------------------------------
	;    Initialize Ex 2CH(Port 0d4xh)
	;-------------------------------------------------------------------
	mov	wo [si.Port], 0d40h	; 			(ins 931219)
Init_PortD40h:				;		     	(ins 931219)
	mov	dx, Toki_ControlStatus+0c00h;			(ins 931219)
	in	al, dx			;			(ins 931219)
	mov [Org_Toki_ControlStatusD40], al; Save Control Status(ins 931219)
	mov	dx, Toki_EX_Control+0c00h;			(ins 931219)
	in	al, dx			;			(ins 931219)
	mov [Org_Toki_EX_ControlD40], al; Save Ex Control	(ins 931219)
	mov dx, Toki_ControlStatus+0c00h; AT Standard mode	(ins 931219)
	mov	al, 00010000b		; Normal Speed		(ins 931219)
	out	dx, al			;			(ins 931219)
	iodelay				;			(ins 931219)
	mov dx, Toki_EX_Control+0c00h	; AT Standard mode	(ins 931219)
	mov	al, 00010100b		; S/W Control		(ins 931219)
	out	dx, al			;			(ins 931219)
	iodelay				;			(ins 931219)
	mov dx,Toki_PrinterControls+0c00h; Select Printer	(ins 931219)
	mov	al, 00001100b		; nothing to initialize	(ins 931219)
	out	dx, al			;			(ins 931219)
	ret				;			(ins 931219)

LPT3_TokiSetup:
	mov dx, Toki_ControlStatus+0c00h;			(ins 931219)
	in	al, dx			;		     	(ins 931219)
	cmp	al, 0ffh		; Is there Ex board ?	(ins 931219)
	mov	wo [si.Port], -1	; 			(ins 931219)
	jne	@f			;    Y: NEXT
	ret				;    N: Error
@@:					;
	mov	dx, 54fh		;			(ins 931219)
	in	al, dx			; 		     	(ins 931219)
	test	al, 00000100b		; Ex board=LPT2/3 ?	(ins 931219)
	mov	wo [si.Port], 0d40h	; 			(ins 931219)
	jnz	Init_PortD40h		;    Y: Init CH2 Port	(ins 931219)
					;	  -> LPT3=CH2   (ins 931219)
	mov	wo [si.Port], -1	; 			(ins 931219)
	ret				;			(ins 931219)

LPT1_TokiSetup:				;		     	(ins 931219)
	;----------------------------------------------------------------
	; Save Status of TOKI
	;----------------------------------------------------------------
	mov	dx, Toki_ControlStatus	;			<ins:Toki:931027>
	in	al, dx			;			<ins:Toki:931027>
	mov [Org_Toki_ControlStatus], al; Save Control Status	<ins:Toki:931027>
	mov	dx, Toki_EX_Control	;			<ins:Toki:931027>
	in	al, dx			;			<ins:Toki:931027>
	mov [Org_Toki_EX_Control], al	; Save Ex Control	<ins:Toki:931027>

	;----------------------------------------------------------------
	; Set Full SENTRO for checking cable
	;----------------------------------------------------------------
	mov	dx, Toki_ControlStatus	; AT Standard mode	<ins:Toki:930923>
	mov	al, 00010000b		; Normal Speed		<ins:Toki:930923>
	out	dx, al			;			<ins:Toki:930923>
	iodelay				;			<ins:Toki:930923>
	mov	dx, Toki_EX_Control	; AT Standard mode	<ins:Toki:930923>
	mov	al, 00000000b		; S/W Control		<ins:Toki:930923>
	out	dx, al			;			<ins:Toki:930923>

	;----------------------------------------------------------------
	; Check cable
	;----------------------------------------------------------------
	mov  dx, Toki_PrinterControls 	;		<ins:Toki:931027>
	in	al, dx			; PrinterControls Read	(ins 940224)
	and	al, 11011111b		; Set DIR(=Foward)	(ins 940224)
	out	dx, al			; identification Sequence<ins:Toki:931027>
	mov	dx, Toki_DataLatch	;   of cable	<ins:Toki:931027>
	mov	al, 0			;		<ins:Toki:931027>
	out	dx, al			;		<ins:Toki:931027>
	mov	dx, Toki_PrinterStatus	;		<ins:Toki:931027>
	in	al, dx			;		<ins:Toki:931027>
	test	al, 00000010b ; SENTRO cable(PowON)?	<ins:Toki:931027>
	jnz	TokiFullInit		;  Y: Init as	<ins:Toki:931027>
					;    Full SENTRO<ins:Toki:931027>
	mov	dx, Toki_DataLatch	;  N: NEXT	<ins:Toki:931028>
	mov	al, 80h			;		<ins:Toki:931028>
	out	dx, al			;		<ins:Toki:931028>
	mov	dx, Toki_PrinterStatus	;		<ins:Toki:931028>
	in	al, dx			;		<ins:Toki:931028>
	test	al, 00000010b ; SENTRO cable(PowOFF)?	<ins:Toki:931028>
	jz	TokiFullInit 		;  Y: Init as	<ins:Toki:931028>
					;    Full SENTRO<ins:Toki:931028>
	;----------------------------------------------------------------
	; Initialize as KAN-I SENTRO
	;----------------------------------------------------------------
	mov	wo [si.Port], 0		;		     (ins 931219)
	mov	dx, Toki_ControlStatus	;		<ins:Toki:931027>
	mov	al, 0			;		<ins:Toki:931027>
	out	dx, al			;  N: KAN-I	<ins:Toki:931027>
	jmp  	short PrePrinterCall	;		<ins:94.05.26   >
					;		<ins:Toki:931013>
	;----------------------------------------------------------------
	; Initialize as Full SENTRO
	;----------------------------------------------------------------
TokiFullInit:				;		<ins:Toki:931013>
	or	[CurPrinterMode], Toki_Mode;		<ins:Toki:930923>
	mov	dx, Toki_ControlStatus	; AT Standard mode<ins:Toki:930923>
	mov	al, 00010000b		; Normal Speed	<ins:Toki:930923>
	out	dx, al			;		<ins:Toki:930923>
	iodelay				;		<ins:Toki:930923>
	mov	dx, Toki_EX_Control	; AT Standard mode<ins:Toki:930923>
	mov	al, 00000000b		; S/W Control	<ins:Toki:930923>
	out	dx, al			;		<ins:Toki:930923>
	iodelay				;		<ins:Toki:930923>
	mov	dx, Toki_PrinterControls; Select Printer<ins:Toki:930923>
	mov	al, 00001100b		; nothing to initialize	<ins:Toki:930923>
	out	dx, al			;		<ins:Toki:930923>
	ret				;		<ins:Toki:930923>
					;		<ins:Toki:930923>
INT_1AH_call	endp

;-----------------------------------------------------------------------
; Close LPT
;-----------------------------------------------------------------------
	public	INT_1AH_Close		;			<ins:Toki:931013>
INT_1AH_Close	proc	near		;			<ins:Toki:931013>
	cmp	wo[si.Port], 00h	;		     	(ins 931219)
	jnz	@f			;			<ins:Toki:931013>
	ret				;			<ins:Toki:931013>
@@:					;			<ins:Toki:931013>
	cmp	wo [si.Port], 140h	;			(ins 931219)
	jne	@f			;			(ins 931219)
	mov  al,[Org_Toki_ControlStatus];			<ins:Toki:931027>
	mov	dx, Toki_ControlStatus	;			<ins:Toki:931027>
	out	dx, al			; Restore Control Status<ins:Toki:931027>
	mov  al,[Org_Toki_EX_Control]	;			<ins:Toki:931027>
	mov	dx, Toki_EX_Control	;			<ins:Toki:931027>
	out	dx, al			; Restore Ex Control	<ins:Toki:931027>
	ret				;			<ins:Toki:931013>
@@:
	cmp	wo [si.Port], 540h	;			(ins 931219)
	jne	@f			;			(ins 931219)
	mov  al,[Org_Toki_ControlStatus540];			(ins 931219)
	mov	dx, Toki_ControlStatus+400h;			(ins 931219)
	out	dx, al			; Restore Control Status(ins 931219)
					;			(ins 931219)
	mov  al,[Org_Toki_EX_Control540];			(ins 931219)
	mov	dx, Toki_EX_Control+400h;			(ins 931219)
	out	dx, al			; Restore Ex Control	(ins 931219)
	ret				;			(ins 931219)
@@:					;			(ins 931219)
	mov  al,[Org_Toki_ControlStatusD40];			(ins 931219)
	mov	dx, Toki_ControlStatus+0c00h;			(ins 931219)
	out	dx, al			; Restore Control Status(ins 931219)
					;			(ins 931219)
	mov  al,[Org_Toki_EX_ControlD40];			(ins 931219)
	mov	dx, Toki_EX_Control+0c00h;			(ins 931219)
	out	dx, al			; Restore Ex Control	(ins 931219)
	ret				;			(ins 931219)
INT_1AH_Close	endp		;			<ins:Toki:931013>

	public	PrinterCall
PrePrinterCall	proc	near
	test  	[InitCounter],LptInit 	; LPT Init Finish ? XL  <ins 931028>
	jz	@f			; Yes: goto Return      <ins 931028>
	ret				;			<ins 931028>
@@:					;			<ins 931028>
	or    	[InitCounter],LptInit 	; LPT Init Flag "ON"    <ins 931028>
	mov   ah,1		      	; Printer Initialize	<ins 931028>

PrePrinterCall	endp

	public	PrinterCall

PrinterCall	proc	near
	push	bx
	push	cx
	push	dx

	or	ah,ah			; switch (AH) {
	jnz	@f			;
	call	LPT_OutPut		;	0: Output Data
	jmp	short End_INT1AH	;

@@:
	dec	ah			;
	jnz	@f			;
	call	LPT_Initialize		;	1: Initialize Printer
	jmp	short End_INT1AH	;

@@:
	dec	ah			;
	jnz	@f			;
	call	LPT_GetStatus		;	2: Read Printer Status

@@:
End_INT1AH:
	pop	dx
	pop	cx
	pop	bx
	ret
PrinterCall	endp

;---------------------------------------------------------------------------
;	Output Data to Printer
;---------------------------------------------------------------------------
	public	LPT_Output
LPT_OutPut	proc	near
	mov	dx,PRN_WRITE_DATA	;Set Printer Write Data Port
	out	dx,al			;Data out
	mov	dx,PRN_READ_SIGNAL1	;Set Printer Status Port

	in	al,dx			; Get Printer Status	(ins 93.03.23)
	test	al,(PS_NotBusy shr 5)	;  if (status != Busy)	(ins 93.03.23)
	jnz	INT1AH13		;  yes : goto INT1AH13	(ins 93.03.23)

INT1AH11:				;
	push	dx			;
	call	GetSystemMSecCount	; Get System Timer
	mov	di, ax			;	di = Tick Value	
	pop	dx			;
					;
INT1AH12:				;
	in	al,dx			; Get Printer Status
	test	al,(PS_NotBusy shr 5)	;  if (status != Busy)
	jnz	INT1AH13		;  yes : goto INT1AH13
					;
	push	dx			;
	call	GetSystemMSecCount	;
	pop	dx			;
	sub	ax, di			;
	cmp	ax, 300 	       	; 1/3 sec timeout
	jbe	INT1AH12		;
					;
	cmp	byte ptr [ModeFlag],0	;### (ins 93.03.31)
	jnz	INT1AH12_1		;
	or	al,061h
	and	al,065h	
INT1AH12_1:				;
	call	XlatStatus		;Locate bits 
	or	ah,PS_Timeout		;Show timeout
	and  ah,(PS_NotBusy+PS_Ack+PS_PaperOut+PS_Select+PS_IOError+PS_Timeout)
	ret
INT1AH13:
	cmp	byte ptr [ModeFlag],0	;### (ins 93.03.31)
	jnz	INT1AH13_X2		;
INT1AH13_X1:				;
	FCLI				;
	mov	dx,PRN_WRITE_SIGNAL1	;Set Printer Status Port
	mov	al,PRN_PSTB_Active_X1	;Strobe High
	out	dx,al

	NEWIODELAY 2			;<OUT 5F,AL>  	(ins 92.11.11)
	mov	al,PRN_PSTB_NonActive_X1 ;Strobe Low
	out	dx,al
	call	LPT_GetStatus
	ret

INT1AH13_X2:				;
	FCLI				;
	mov	dx,PRN_WRITE_SIGNAL1	;Set Printer Status Port
	mov	al,PRN_PSTB_Active_X2	;Strobe High
	out	dx,al

	NEWIODELAY 2			;<OUT 5F,AL>  	(ins 92.11.11)
	mov	al,PRN_PSTB_NonActive_X2;Strobe Low
	out	dx,al

	call	LPT_GetStatus
	ret
LPT_OutPut	endp

;---------------------------------------------------------------------------
;	Read Printer Status
;---------------------------------------------------------------------------
	public	LPT_GetStatus
LPT_GetStatus	proc	near
	FSTI

	mov	dx,PRN_READ_SIGNAL1	;
	in	al,dx			; Read Status

	cmp	byte ptr [ModeFlag],0	;(ins 93.03.31)####
	jnz	INT1AH22		;

	or	al,061h
	and	al,065h	

INT1AH22:				;
	jmp	short XlatStatus	;(ins 93.03.31)####
LPT_GetStatus	endp

;---------------------------------------------------------------------------
;	Locate Bits 
; 	   [ NES's Printer STATUS ]
;	(7)(6)(5)(4)(3)(2)(1)(0)   
;	 I  I  I  I  I  I     +-------------------- = 0: ACK 
;	 I  I  I  I  I  +-------------------------- = 0: BUSY
;	 I  I  I  I  +----------------------------- = 0: IBUSY
;	 I  I  I  +-------------------------------- = 0: DC�5V
;	 I  I  +----------------------------------- = 0: PE
;	 I  +-------------------------------------- = 0: FAULT
;	 +----------------------------------------- = 0: SELECT
;
;	   [IBM Printer Status]
;       (B)(A)(P)(S)|(F)(0)(0)(T)
;	 |  |  |  |   |        +------------------- = 1: PS_Timeout
;	 |  |  |  |   +---------------------------- = 1: PS_IOError
;	 |  |  |  +-------------------------------- = 1: PS_Select
;	 |  |  +----------------------------------- = 1: PS_PaperOut
;	 |  +-------------------------------------- = 1: PS_Ack
;	 +----------------------------------------- = 1: PS_NotBusy
;
;---------------------------------------------------------------------------
	public	XlatStatus     			;
XlatStatus proc	near	   			;           <AH>      <AL>
	mov	ah,al	     			;	 ____ __ _
	and 	ah,11111101b 			;	 SFP5|IB0A
						;        ____ ___
	inc	ah	     			;	 SFP5|IBA?
						;         ___ ____
	shr	ah,1	     			;	 0SFP|5IBA
						;	 _ __ ____
	ror	ah,1	     			;	 A0SF|P5IB
						;	 __ _ ____
	ror	ah,1	     			;	 BA0S|FP5I
	and 	ah,(PS_NotBusy+PS_Ack+PS_Select+PS_IOError);
						;        __ _ _
						;	 BA0S|F000    _
	and	al,PS_PaperOut			;	 ____ _	    00P0|0000
	or	ah,al				;	 BAPS|F000
	xor	ah,(PS_Ack+PS_PaperOut+PS_Select+PS_IOError)
						;	 _
	ret					;	 BAPS|F000
XlatStatus	endp				;

;---------------------------------------------------------------------------
;	Initialize Printer Port
;---------------------------------------------------------------------------
	public	LPT_Initialize
LPT_Initialize	proc	near
;	Check Printer mode
;	[out]	ZF =0		= KAN-I SENTRO
;		ZF !=0		= Full SENTRO
	call	mode_check
	jnz	INT1AH42		;(ins 92.09.25)
	ret				;(ins 92.09.25)
INT1AH42:				;(ins 92.09.25)
	push	ax			;	[8255 mode set]
	push	cx			;		I
					;		I
	mov	al,PRNStrobFF_ON	;        ____	I = 0dh
	out	SystemPort,al		;        PSTB mask 'ON'
		NEWIODELAY 10		;<OUT 5F,AL>  	(ins 92.11.11)
	mov	al,0a2h			;		I
	out	PRN_Mode,al		;    mode set of SENTRO Interface
		NEWIODELAY 10		;<OUT 5F,AL>  	(ins 92.11.11)
	mov	al,05h			;		I     ____
	out	PRN_Mode,al		;    SENTRO Interface PSTB 'OFF'
		NEWIODELAY 10		;<OUT 5F,AL>  	(ins 92.11.11)
	mov	al,PRNStrobFF_OFF	;	 ____	I
	out	SystemPort,al		;	 PSTB mask 'OFF
		NEWIODELAY 10		;<OUT 5F,AL>  	(ins 92.11.11)
	xor	ax,ax			;		I
	out	PRN_WSignal,al		;      INPUT�PRIME 'ON'	__________
					;		I		I
INT1AH45:				;		I		I
	mov	cx,0			;		I		I
	loop	$			;		I		I
	mov	al,1			;		I		I
	out	PRN_WSignal,al		;      INPUT�PRIME 'OFF' ---------
	NEWIODELAY	10		;<OUT 5F,AL>  	(ins 92.11.11)
	mov	al,0ch			;		I
	out	PRN_WSignal,al		;  INTE Disable(Stop LPT Interrupt)
	mov	cx,0			;  	   ____	I
INT1AH47:				;	   BUSY Check
	in  	al,42h			;		I
	test 	al,(PS_NotBusy shr 5)	;		I
	loopz 	INT1AH47		;		I
;=======================================================================
	stc			;			  (ins 940115)
	push	di		;			  (ins 940115)
	push	dx		; We need to wait for	  (ins 940115)
	call GetSystemMSecCount	;   reset process	  (ins 940115)
	mov	di, ax		;   if reset by port on	  (ins 940115)
	pop	dx		;   PC-PR602R.		  (ins 940115)
@@:				; Then wait 1.5sec here.  (ins 940115)
	push	dx		;			  (ins 940115)
	call GetSystemMSecCount	;			  (ins 940115)
	pop	dx		;			  (ins 940115)
	sub	ax, di		;			  (ins 940115)
	cmp	ax, 1500 	;			  (ins 940115)
	jbe	@b		;			  (ins 940115)
	pop	di		;			  (ins 940115)
;=======================================================================
	pop	cx			;	     [ END ]
	pop	ax
INT1AH49:
	ret
LPT_Initialize endp

page
endif   ; NEC_98

CheckStatus proc    near
ifdef   NEC_98
	call	LPT_GetStatus		;(ins 93.03.31)####
	and	ah, L_BITS	      	;; #### 93.03.30 ####
	mov	al, ah			;; #### 92.10.11 ####
else    ; NEC_98
	in	al, dx			; get status bits
	mov	ah, al
	and	al, L_BITS	      ; mask unused ones
	xor	al, L_BITS_INVERT     ; flip a couple
	xchg	al, ah

ifndef NOOKIHACK
	iodelay
	in	al, dx

	and	al, L_BITS
	xor	al, L_BITS_INVERT
	cmp	al, ah			; did any bits change?
	jnz	CheckStatus
endif
endif   ; NEC_98
	test	ah, PS_PaperOut or PS_IOError
	jz	@F
	stc
	ret
@@:
	test	ah, PS_Select
	jnz	@F
	stc
	ret
@@:
	and	ah, PS_NotBusy
	clc
	ret

CheckStatus endp


;----------------------------Public Routine-----------------------------;
;
; StringToLPT - Send string To LPT Port
;
; Entry:
;   DS:SI -> DEB
;   ES:DI -> string to send
;   CX = # of bytes to send
; Returns:
;   AX = # of bytes actually sent
; Registers Destroyed:
;   AX,BX,CX,DX,ES,FLAGS
; History:
;-----------------------------------------------------------------------;

PUBLIC StringToLPT
StringToLPT proc    near

ifdef   NEC_98
	cmp	wo[si.Port], 00h;			     (ins 931219)
	jz	StringToLPT98		;		<ins:Toki:930923>
	jmp	Toki_StringToLPT	;		<ins:Toki:930923>
else    ; NEC_98
	mov	dx, Port[si]		; get port address
	inc	dx			; access status port

	push	cx			; save count for later
	push	ds
	mov	bx, __0040H
	mov	ds, bx

	cld

	call	CheckStatus		; quick status check before slowness
	jc	PrinterError
	jz	PrinterBusy		; if printer not ready for first char
					;   then just return with CE_TXFULL

CharacterToLPT:
;;	  mov	  bh, 10		  ; will wait 10 clock tics (~ 1/2 sec)
	mov	bh, 3			; will wait 3 clock tics (~ 1/6 sec)
l1:
	mov	bl, ds:[006Ch]		; low byte of tic counter
l2:
	call	CheckStatus		; quick status check before slowness
	jc	PrinterError
	jnz	LPT_PrinterRdy

	cmp	bl, ds:[006Ch]
	jz	l2			; tic count hasn't changed

	dec	bh
	jz	PrinterBusy		; out of tics, timeout
	jmp	short l1

LPT_PrinterRdy:
	mov	al, es:[di]
	inc	di

	dec	dx			; point to data port

	out	dx, al			; write character to port

	add	dx, 2			; access control port
	mov	al, L_STROBE		; set strobe high
	out	dx, al			;   ...

	mov	al, L_NORMAL		;
	iodelay
	iodelay
	out	dx, al			; set strobe low

	dec	dx			; point to status port for check

	loop	CharacterToLPT
	pop	ds
	jmp	short LPT_Exit

PrinterError:
	pop	ds
	jmp	short ReturnStatus

PrinterBusy:
	pop	ds
	or	ComErr[si],CE_TXFULL	; set buffer full bit
	or	al, L_TIMEOUT		; show timeout bit

ReturnStatus:
	and	ax,(PS_PaperOut+PS_Select+PS_IOError+PS_Timeout)
	xchg	al, ah
        shr     ah,1
        adc     ah,al                   ;Get back Timeout bit
	xor	ah,HIGH CE_DNS		;Invert selected bit
	.errnz	LOW CE_DNS
	or	by ComErr+1[si],ah	;Save comm error

LPT_Exit:
	pop	ax			; get total count
	sub	ax, cx			; subtract remaining unsent charts

	ret
endif   ; NEC_98

StringToLPT endp

ifdef   NEC_98
PUBLIC StringToLPT98
StringToLPT98 proc    near
	push	cx			; save count for 	(ins 92.09.28)
	push	ds			;			(ins 92.09.28)
	cld

CharacterToLPT:
	mov	dx, PRN_READ_SIGNAL1	;Set Status Port   (ins 93.03.31)####
	in	al, dx			;Get Status	   (ins 93.03.31)####
	test	al,(PS_NotBusy shr 5)	;  if ( != Busy)   (ins 93.03.31)####
	jnz	LPT_PrinterRdy		;  yes : OUT Port  (ins 93.03.31)####

	push	dx			;
	call	GetSystemMSecCount	; Get System Timer
	mov	bx, ax			;	ax = Tick Value
	pop	dx			;

CharToLPT1:
	push	bx
	call	CheckStatus		; quick status check 	(ins 92.08.xx)
	pop	bx
	jc	PrinterError		; ## 92.10.11 ##	(ins 92.08.xx)
	jnz	LPT_PrinterRdy		;			(ins 92.08.xx)

CharToLPT2:
	push	ax
	push	dx			;
	call	GetSystemMSecCount	;
	pop	dx			;
	sub	ax, bx			;
	cmp	ax, 1000 		; ## 92.10.11 ##     1 sec timeout
	pop	ax
	jbe	CharToLPT1		;
	jmp	short	PrinterBusy	;			(ins 92.08.xx)

LPT_PrinterRdy:
	mov	al, es:[di]
	inc	di
	push	ax			;			(ins 92.10.01)
	push	di			;			(ins 92.10.01)
	call	LPT_OutPut2		;data out		(ins 92.10.01)
	pop	di			;			(ins 92.10.01)
	pop	ax			;			(ins 92.10.01)
	loop	CharacterToLPT
	pop	ds
	jmp	short LPT_Exit

PrinterError:
	pop	ds
	jmp	short ReturnStatus

PrinterBusy:
	pop	ds
	or	ComErr[si],CE_TXFULL	; set buffer full bit
	or	al, L_TIMEOUT		; show timeout bit

ReturnStatus:
	and	ax,(PS_Select+PS_IOError+PS_Timeout)		;(ins 93.03.30)
	xchg	al, ah
	shr     ah,1
	adc     ah,al                   ;Get back Timeout bit
	xor	ah,HIGH CE_DNS		;Invert selected bit
	.errnz	LOW CE_DNS
	or	by ComErr+1[si],ah	;Save comm error

LPT_Exit:
	pop	ax			; get total count
	sub	ax, cx			; subtract remaining unsent charts
	ret
StringToLPT98 endp

;############ ins 93.03.28 #############
public	LPT_OutPut2			;		(ins 93.03.30) [QN]
LPT_OutPut2	proc	near		;		(ins 93.03.28) [QN]
	FCLI				;		(ins 93.03.28) [QN]
	mov	dx,PRN_WRITE_DATA	;Set Write Port	(ins 93.03.28) [QN]
	out	dx,al			;Data out	(ins 93.03.28) [QN]
	out	5fh, al			;		(ins 93.04.03) [QN]
	cmp	byte ptr [ModeFlag],0	;	####### (ins 93.03.31) [QN]
	jnz	LPT_OutPut2_X2		;		(ins 93.03.28) [QN]
					;		(ins 93.03.28) [QN]
LPT_OutPut2_X1:				;		(ins 93.03.28) [QN]
	mov	dx,PRN_WRITE_SIGNAL1	;		(ins 93.03.28) [QN]
	mov	al,PRN_PSTB_Active_X1	;Strobe High	(ins 93.03.28) [QN]
	out	dx,al			;		(ins 93.03.28) [QN]
	out	5fh, al			;		(ins 93.04.03) [QN]
	mov	al,PRN_PSTB_NonActive_X1;Strobe Low	(ins 93.03.28) [QN]
	out	dx,al			;		(ins 93.03.28) [QN]
	FSTI				;		(ins 93.03.28) [QN]
	ret				;		(ins 93.03.28) [QN]
					;		(ins 93.03.28) [QN]
LPT_OutPut2_X2:				;		(ins 93.03.28) [QN]
	mov	dx,PRN_WRITE_SIGNAL1	;		(ins 93.03.28) [QN]
	mov	al,PRN_PSTB_Active_X2	;Strobe High	(ins 93.03.28) [QN]
	out	dx,al			;		(ins 93.03.28) [QN]
	out	5fh, al			;		(ins 93.04.03) [QN]
	mov	al,PRN_PSTB_NonActive_X2;Strobe Low	(ins 93.03.28) [QN]
	out	dx,al			;		(ins 93.03.28) [QN]
	FSTI				;		(ins 93.03.28) [QN]
	ret				;		(ins 93.03.28) [QN]
LPT_OutPut2	endp			;		(ins 93.03.28) [QN]

;(ins 92.08.xx)
page
;-------------------------------------------------------
;	Check Printer Mode
;-------------------------------------------------------
;	[out]	ZF == 0		= KAN-I SENTRO
;		ZF != 0		= Full SENTRO
;-------------------------------------------------------
_X2_mode	equ	00000100b			;
_NPC_check	equ	10000000b			;

mode_check:						;
	mov	Byte ptr [ModeFlag],0			;(ins 93.03.28)
	push	ax					;
	push	ds					;
	mov	ax,40H					;
	mov	ds,ax					;
	test	by ds:[58H],_NPC_check			;
	pop	ds					;
	pop	ax					;
	jz	NH_check				;Standard Machine
;-------------------------------------
; Hiper 98
;-------------------------------------
	call	NH_check				;
	jnz	exit_mode_check				;Highreso for NPC
;------------------------------------
; Hiper 98 Normal Mode
;------------------------------------
	push	ax					;
	push	dx					;
	mov	dx,448h					;
;------------------------------------------------------
;Read data of Ex mode register from 448h
;bit0=1 : Full SENTRO,  bit0=0 : KAN-I SENTRO
;------------------------------------------------------
	in	al,dx					;
	test	al,1					;
	pop	dx					;
	pop	ax					;
	jz	exit_mode_check				;(ins 93.03.28)
	mov	Byte ptr [ModeFlag],1			;(ins 93.03.28)
							;(ins 93.03.28)
exit_mode_check:
	ret						;

;------------------------------------------------------- 
;	Check Machine architecture
;
;	[out]	ZF  =0	... Normal
;		ZF !=0	... Highreso
;------------------------------------------------------- 
bios_common	equ	501h				;
_X2_system	equ	00001000b			;
							;
NH_check:
	push	ax					;
	push	ds					;

;	40H:[101H] bit3 (_X2_system)
;	  =0 : Normal
;	  =1 : Highreso

	mov	ax,40H				;
	mov	ds,ax				;
	test	by ds:[101H],_X2_system		;

	pop	ds				;
	pop	ax				;

	jz	@f				;(ins 93.03.28)
	mov	Byte ptr [ModeFlag],1		;(ins 93.03.28)
@@:						;(ins 93.03.28)
	ret					;
						;
mode_check2:					;(ins 93.03.28)
	cmp	byte ptr [ModeFlag],0		;(ins 93.03.28)
	ret					;(ins 93.03.28)

page
;----------------------------Private-Routine----------------------------;
; Toki_DoLPT - Do Function To LPT port
;
; Entry:
;   AH    =  cid
;   AL    =  character to output
;   CH    =  Function request.  0 = Output, 1 = Initialize, 2 = Status
;   DS:SI -> DEB for the port
; Returns:
;   AX = 0 if no errors occured
; Error Returns:
;   AX = error code
; Registers Preserved:
;   SI,DI
; Registers Destroyed:
;   AX,BX,CX,DX,ES,FLAGS
; History:
;-----------------------------------------------------------------------;
        public Toki_DoLPT
Toki_DoLPT   proc   near

        mov     dx,Port[si]             ;Get port address

;   DX = port address
;   CH = operation: 0 = write, 1 = init, 2 = status
;   AL = character

        or      ch, ch
        jz      Toki_LPT_OutChar
        cmp     ch, 1
        jz      Toki_LPT_Reset
        jmp     Toki_LPT_GetStatus
        ret

Toki_LPT_Reset:

        inc     dx
        inc     dx
        mov     al, L_RESET
        iodelay
        out     dx, al

        push    dx

        cCall   GetSystemMsecCount
        mov     bx, ax

Toki_LPT_ResetDelay:
        push    bx
        cCall   GetSystemMsecCount
        pop     bx
        sub     ax, bx
        cmp     ax, 300                 ; 1/3 sec as good as any
        jbe     Toki_LPT_ResetDelay

        pop     dx

        mov     al, L_NORMAL
        iodelay
        iodelay
        out     dx, al
        dec     dx
        dec     dx
        jmp     short Toki_LPT_GetStatus

Toki_LPT_OutChar:
        push    ax                      ; save character to be written

        ; first check to see if printer is ready for us
        push    di

        push    dx
        call    GetSystemMSecCount
        mov     di, ax
        pop     dx

Toki_LPT_WaitReady:

        inc     dx                      ; point to status port
        iodelay
        in      al, dx                  ; get status bits
        and     al, L_BITS            ; mask unused ones
        xor     al, L_BITS_INVERT     ; flip a couple
        xchg    al, ah

ifndef NOOKIHACK
        iodelay
        in      al, dx

        dec     dx

        and     al, L_BITS
        xor     al, L_BITS_INVERT
        cmp     al, ah                  ; did any bits change?
        jnz     Toki_LPT_WaitReady
else
        dec     dx
endif

        test    ah, PS_PaperOut or PS_IOError
        jnz     Toki_LPT_PrinterNotReady
        test    ah, PS_Select
        jz      Toki_LPT_PrinterNotReady
        test    ah, PS_NotBusy
        jnz     Toki_LPT_PrinterReady

        push    ax
        push    dx
        call    GetSystemMSecCount
        pop     dx
        pop     bx
        sub     ax, di
        cmp     ax, 300                ; 1/3 sec timeout

        jbe     Toki_LPT_WaitReady

;       The device seems to be selected and powered up, but is just
;       busy (some printers seem to show selected but busy when they
;       are taken offline).  Show that the transmit queue is full and
;       that the hold handshakes are set.  This is so the windows
;       spooler will retry (and do yields so that other apps may run).

        or      ComErr[si],CE_TXFULL    ;Show queue full
        mov     ah,bh
        or      ah, L_TIMEOUT

Toki_LPT_PrinterNotReady:
        pop     di
        pop     cx                      ; throw away character
        jmp     short Toki_LPT_ReturnStatus

Toki_LPT_PrinterReady:
        pop     di                      ; get di back
        pop     ax                      ; get character back

        iodelay
        out     dx, al                  ; write character to port

        inc     dx                      ; access status port

Toki_LPT_Strobe:
        inc     dx                      ; control port
        mov     al, L_STROBE          ; set strobe high
        iodelay
        out     dx, al                  ;   ...
        mov     al, L_NORMAL          ;
        out     dx, al                  ; set strobe low
        sub     dx, 2                   ; point back to port base

        ; FALL THRU

Toki_LPT_GetStatus:
        inc     dx                      ; point to status port

Toki_LPT_GS1:
        iodelay
        iodelay
        in      al, dx                  ; get status bits
        and     al, L_BITS            ; mask unused ones
        xor     al, L_BITS_INVERT     ; flip a couple
        mov     ah, al

ifndef NOOKIHACK
        in      al, dx
        and     al, L_BITS
        xor     al, L_BITS_INVERT
        cmp     al, ah
        jnz     Toki_LPT_GS1         ; if they changed try again...
endif

Toki_LPT_ReturnStatus:
        assumes ds,Data
        and ax,(            PS_Select+PS_IOError+PS_Timeout)*256 ; (ins 940125)
        shr     ah,1
        adc     ah,al                   ;Get back Timeout bit
        xor     ah,HIGH CE_DNS          ;Invert selected bit
   .errnz   LOW CE_DNS
        or      by ComErr+1[si],ah      ;Save comm error
        ret

   .errnz   CE_PTO-0200h
   .errnz   CE_IOE-0400h
   .errnz   CE_DNS-0800h
   .errnz   CE_OOP-1000h

Toki_DoLPT40:
        assumes ds,Data
        or      ComErr[si],CE_TXFULL    ;Show queue full
        ret
Toki_DoLPT   endp
page

Toki_CheckStatus proc    near
        in      al, dx                  ; get status bits
	test	al, PS_PaperOut		; paper empty ?		(ins 94.08.09)
	jz	@f			;  N: Next		(ins 94.08.09)
	and	al, not PS_IOError	;  Y: Show I/O error	(ins 94.08.09)
@@:					;			(ins 94.08.09)
        mov     ah, al
        and     al, L_BITS            ; mask unused ones
        xor     al, L_BITS_INVERT     ; flip a couple
        xchg    al, ah

ifndef NOOKIHACK
        iodelay
        in      al, dx
	test	al, PS_PaperOut		; paper empty ?		(ins 94.08.09)
	jz	@f			;  N: Next		(ins 94.08.09)
	and	al, not PS_IOError	;  Y: Show I/O error	(ins 94.08.09)
@@:					;			(ins 94.08.09)
        and     al, L_BITS
        xor     al, L_BITS_INVERT
        cmp     al, ah                  ; did any bits change?
        jnz     Toki_CheckStatus
endif

        test    ah, PS_PaperOut or PS_IOError
        jz      @F
        stc
        ret
@@:
        test    ah, PS_Select
        jnz     @F
        stc
        ret
@@:
        and     ah, PS_NotBusy
        clc
        ret
Toki_CheckStatus endp

;----------------------------Public Routine-----------------------------;
; Toki_StringToLPT - Send string To LPT Port
;
; Entry:
;   DS:SI -> DEB
;   ES:DI -> string to send
;   CX = # of bytes to send
; Returns:
;   AX = # of bytes actually sent
; Registers Destroyed:
;   AX,BX,CX,DX,ES,FLAGS
; History:
;-----------------------------------------------------------------------;
PUBLIC Toki_StringToLPT
Toki_StringToLPT proc    near
        mov     dx, Port[si]           ; get port address <del:Toki:930923>
	inc     dx                      ; access status port

        push    cx                      ; save count for later
        push    ds

        cld

        call    Toki_CheckStatus        ; quick status check before slowness
        jc      Toki_PrinterError
        jz      Toki_PrinterBusy        ; if printer not ready for first char
                                        ;   then just return with CE_TXFULL

Toki_CharacterToLPT:
	push	dx		   ;			<inc:Toki:930923>
	call	GetSystemMSecCount ; Get System Timer	<inc:Toki:930923>
	mov	bx, ax		   ;	ax = Tick Value	<inc:Toki:930923>
	pop	dx		   ;			<inc:Toki:930923>
				   ;			<inc:Toki:930923>
Toki_CharToLPT1:		   ;			<inc:Toki:930923>
	push	bx		   ;			<inc:Toki:930923>
	call	Toki_CheckStatus   ; quick status check	<inc:Toki:930923>
	pop	bx		   ;			<inc:Toki:930923>
	jc	Toki_PrinterError  ; 			<inc:Toki:930923>
	jnz	Toki_LPT_PrinterRdy;			<inc:Toki:930923>
				   ;			<inc:Toki:930923>
Toki_CharToLPT2:		   ;			<inc:Toki:930923>
	push	ax		   ;			<inc:Toki:930923>
	push	dx		   ;			<inc:Toki:930923>
	call	GetSystemMSecCount ;			<inc:Toki:930923>
	pop	dx		   ;			<inc:Toki:930923>
	sub	ax, bx		   ;			<inc:Toki:930923>
	cmp	ax, 1000 	   ; 1 sec timeout	<inc:Toki:930923>
	pop	ax		   ; 			<inc:Toki:930923>
	jbe	Toki_CharToLPT1	   ; 			<inc:Toki:930923>
	jmp	short Toki_PrinterBusy  ; 		<inc:Toki:930923>
				   ;			<inc:Toki:930923>
Toki_LPT_PrinterRdy:
        mov     al, es:[di]
        inc     di

        dec     dx                      ; point to data port

        out     dx, al                  ; write character to port

        add     dx, 2                   ; access control port
        mov     al, L_STROBE            ; set strobe high
        out     dx, al                  ;   ...

        mov     al, L_NORMAL            ;
        out     dx, al                  ; set strobe low

        dec     dx                      ; point to status port for check

        loop    Toki_CharacterToLPT
        pop     ds
        jmp     short Toki_LPT_Exit

Toki_PrinterError:
        pop     ds
        jmp     short Toki_ReturnStatus

Toki_PrinterBusy:
        pop     ds
        or      ComErr[si],CE_TXFULL    ; set buffer full bit
        or      al, L_TIMEOUT           ; show timeout bit

Toki_ReturnStatus:
	and  ax,(            PS_Select+PS_IOError+PS_Timeout) ; (ins 940125)
        xchg    al, ah
        shr     ah,1
        adc     ah,al                   ;Get back Timeout bit
        xor     ah,HIGH CE_DNS          ;Invert selected bit
        .errnz  LOW CE_DNS
        or      by ComErr+1[si],ah      ;Save comm error

Toki_LPT_Exit:
        pop     ax                      ; get total count
        sub     ax, cx                  ; subtract remaining unsent charts
        ret
Toki_StringToLPT endp

TOMOE_PAT	DB	16 DUP('PATCH !!')	;PATCH AREA (ins 92.11.11)
endif   ; NEC_98

IFDEF DEBUG		;Publics for debugging
ifdef   NEC_98
    public  Toki_LPT_Reset
    public  Toki_LPT_Outchar
    public  Toki_LPT_Strobe
    public  Toki_LPT_GetStatus
    public  Toki_DoLPT40
else    ; NEC_98
    public  LPT_Reset
    public  LPT_Outchar
    public  LPT_Strobe
    public  LPT_GetStatus
    public  DoLPT40
endif   ; NEC_98
ENDIF

sEnd    code
End