403 lines
15 KiB
PHP
403 lines
15 KiB
PHP
DEBUG equ 1
|
||
|
||
No_DOSX_Bimodal_Services = 1
|
||
IFDEF No_DOSX_Bimodal_Services
|
||
%OUT generating code to handle ints without Bimodal Interrupt Services for DOSX
|
||
ENDIF
|
||
|
||
wo equ word ptr
|
||
by equ byte ptr
|
||
|
||
MAXLPT equ 2 ;3 LPTs supported (LPT1,2,3)
|
||
ifdef NEC_98
|
||
MAXCOM equ 8 ;9 COMs supported (COM1,2,3) (ins 931218)
|
||
else ; NEC_98
|
||
MAXCOM equ 3 ;4 COMs supported (COM1,2,3,4)
|
||
endif ; NEC_98
|
||
|
||
RS232B equ 0h ;RS232 Card(s) I/O addr 40:Save area.
|
||
LPTB equ 8h ;LPT Card(s) I/O addr 40:Save area.
|
||
|
||
IRQ3 equ 0bh ; Int vector for Com card @ 2xxh
|
||
IRQ4 equ 0ch ; Int vector for Com card @ 3xxh
|
||
|
||
INTA0 equ 20h ;X'20' 8259 Interrupt Control Port
|
||
INTA1 equ 21h ;X'21' 8259 Interrupt Mask Port
|
||
EOI equ 20h ;X'20' 8259 End-of-Interrupt ack
|
||
|
||
Open equ 0201h ;Int 2F open request
|
||
Close equ 0202h ;Int 2F close request
|
||
Lock2F equ 0203h ;Int 2F lock request
|
||
Unlock2F equ 0204h ;Int 2F unlock request
|
||
|
||
|
||
; COMDEB - Communications Device Equipment Block.
|
||
;
|
||
; This is essentially a superset of the DCB used outside of this
|
||
; module. The DCB is contained within the DEB as the first fields.
|
||
; The fields which follow are data and status fields which
|
||
; are unique to this implementation.
|
||
;
|
||
; AltQInAddr and AltQOutAddr are alternate queue pointers which are used when
|
||
; in "supervisor" mode. Supervisor mode is a processor mode other than the
|
||
; one which Windows normally runs in. In standard mode Windows, supervisor
|
||
; mode is REAL mode. In enhanced mode Windows, supervisor mode is RING 0
|
||
; protected mode. For more details see comments in IBMINT.ASM.
|
||
|
||
ComDEB struc ;RS232 Data Equip Block
|
||
|
||
ComDCB db ((DCBSize+1) and 0FFFEh) DUP (0)
|
||
|
||
ComErr dw 0 ;Non-zero if I/O error
|
||
Port dw 0 ;Base I/O Address
|
||
NotifyHandle dw 0
|
||
NotifyFlags dw 0
|
||
RecvTrigger dw -1 ; char count threshold for calling
|
||
SendTrigger dw 0 ; char count threshold for calling
|
||
|
||
; The following fields are specific to com ports only
|
||
|
||
IRQhook dw 0 ; ptr to IRQ_Hook_Struc
|
||
NextDEB dw 0 ; ptr to next DEB that is sharing IRQ
|
||
XOffPoint dw 0 ;Q count where XOff is sent
|
||
EvtMask dw 0 ;Mask of events to check for
|
||
EvtWord dw 0 ;Event flags
|
||
QInAddr dd 0 ;Address of the queue
|
||
AltQInAddr dd 0 ; Addr of queue in "supervisor" mode
|
||
QInSize dw 0 ;Length of queue in bytes
|
||
QOutAddr dd 0 ;Address of the queue
|
||
AltQOutAddr dd 0 ; Addr of queue in "supervisor" mode
|
||
QOutSize dw 0 ;Length of queue in bytes
|
||
QInCount dw 0 ;Number of bytes currently in queue
|
||
QInGet dw 0 ;Offset into queue to get bytes from
|
||
QInPut dw 0 ;Offset into queue to put bytes in
|
||
QOutCount dw 0 ;Number of bytes currently in queue
|
||
QOutGet dw 0 ;Offset into queue to get bytes from
|
||
QOutPut dw 0 ;Offset into queue to put bytes in
|
||
EFlags db 0 ;Extended flags
|
||
MSRShadow db 0 ;Modem Status Register Shadow
|
||
ErrorMask db 0 ;Default error-checking mask
|
||
RxMask db 0 ;Character mask
|
||
ImmedChar db 0 ;Char to be transmitted immediately
|
||
HSFlag db 0 ;Handshake flag
|
||
HHSLines db 0 ;8250 DTR/RTS bits for handshaking
|
||
OutHHSLines db 0 ;Lines that must be high to output
|
||
MSRMask db 0 ;Mask of Modem Lines to check
|
||
MSRInfinite db 0 ;Mask of MSR lines that must be high
|
||
IntVecNum db 0 ;Interrupt vector number
|
||
LSRShadow db 0 ;Line Status Register shadow
|
||
QOutMod dw 0 ;characters sent mod xOnLim ENQ/ETX [rkh]
|
||
VCD_data dd 0
|
||
VCDflags db 0
|
||
MiscFlags db 0 ;still more flags
|
||
ifdef NEC_98
|
||
TimerProcAdr dw 0 ; System Timer Procesor (ins 92.08.05)
|
||
TimerHandle dw 0 ; System Timer Handle (ins 92.08.05)
|
||
MaskFFPort dw 0 ; Mask F/F Set/Reset Port (ins 92.08.05)
|
||
ReadSigPort dw 0 ; Read Signal Port (ins 92.08.05)
|
||
DataPort dw 0 ; Data Port (ins 92.08.05)
|
||
CommandPort dw 0 ; Command Port (ins 92.08.05)
|
||
StatusPort dw 0 ; Status Port (ins 92.08.05)
|
||
IMRPort dw 0 ; Interrupt Mask Register Port (ins 92.08.05)
|
||
EOIPort dw 0 ; End Of Interrupt Port (ins 92.08.05)
|
||
CommandShadow db 0 ; Copy of 8251 Command byte (ins 92.08.05)
|
||
MaskFFShadow db 0 ; Copy of TxR.RxR.TxE MASK byte (ins 92.08.05)
|
||
Mask8259 db 0 ;save old IRQ mask (INS 92.08.05)
|
||
IntVecIntCount db 0 ; (INS 92.08.05)
|
||
AOBA_flag db 0 ; AOBA (ins 94.04.14)
|
||
preFCRShadow db 0 ; WIN <EFBFBD>N<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FCR <EFBFBD><EFBFBD><EFBFBD>ر (ins 94.06.06)
|
||
hTimer dw 0 ;Timer Handle Flag <ins 94.06.03>
|
||
endif ; NEC_98
|
||
ComDEB ends
|
||
|
||
.errnz (SIZE ComDEB) and 1
|
||
|
||
.errnz MSRShadow - EvtWord - 35
|
||
; In 3.0 MSRShadow had this relationship to EvtWord and major COM apps all
|
||
; use this offset of 35 to get to MSRShadow so that they can determine the
|
||
; current status of the Modem Status bits. We need to maintain this offset
|
||
; so that these apps will continue to run.
|
||
|
||
|
||
; The LptDEB is identical to the ComDEB structure, except
|
||
; all the COM port specific stuff has been removed (which
|
||
; convientiently was stored at the end so offsets would
|
||
; be correct). This allows the code to act indifferently
|
||
; when accessing the strucutres for things like the port.
|
||
|
||
LptDEB struc
|
||
xComDCB db ((DCBSize+1) AND 0FFFEh) dup (0)
|
||
xComErr dw 0 ;Non-zero if I/O error
|
||
xPort dw 0 ;Base I/O Address
|
||
xNotifyHandle dw 0
|
||
xNotifyFlags dw 0
|
||
xRecvTrigger dw -1 ; char count threshold for calling
|
||
xSendTrigger dw 0 ; char count threshold for calling
|
||
|
||
BIOSPortLoc dw 0 ;Offset to port location (i.e. 40:0)
|
||
LptDEB ends
|
||
|
||
.errnz xComDCB-ComDCB
|
||
.errnz xComErr-ComErr
|
||
.errnz xPort-Port
|
||
|
||
.errnz xNotifyHandle-NotifyHandle
|
||
.errnz xNotifyFlags-NotifyFlags
|
||
.errnz xRecvTrigger-RecvTrigger
|
||
.errnz xSendTrigger-SendTrigger
|
||
|
||
|
||
; flag equates in EFlags
|
||
fUseDSR equ 00000001b ; set, if DSR is significant
|
||
fNoFIFO equ 00000010b ; set, if no FIFO on port
|
||
fFIFOchkd equ 00000100b ; set, if FIFO has been checked
|
||
fFIFOpre equ 00001000b ; FIFO enabled when port opened
|
||
;fEOF equ 00100000b ; defined in comdev.inc
|
||
;fTxImmed equ 01000000b ; defined in comdev.inc
|
||
|
||
fEFlagsMask equ fUseDSR OR fFIFOpre OR fFIFOchkd OR fNoFIFO ; flags which shouldn't be cleared
|
||
|
||
.errnz fEFlagsMask AND (fEOF OR fTxImmed) ;can't overlap with either of the bits
|
||
; that are folded into COMS_BitMask1
|
||
|
||
ifdef NEC_98
|
||
; flag equates in AOBA_flag ; (ins 94.04.14)
|
||
fFIFO_Mode equ 00000001b ; set, if the baudrate is more 1200BPS (ins 94.04.14)
|
||
endif ; NEC_98
|
||
|
||
; Values for NotifyFlags
|
||
;
|
||
CN_RecvSent equ CN_RECEIVE SHL 8
|
||
CN_TransSent equ CN_TRANSMIT SHL 8
|
||
|
||
CN_Idle equ 10000000b
|
||
CN_Notify equ 01000000b
|
||
|
||
NotifyFlagsLO equ byte ptr NotifyFlags
|
||
NotifyFlagsHI equ byte ptr NotifyFlags+1
|
||
|
||
; Values for the handshake flag
|
||
;
|
||
; BreakSet - True if break was set - stops transmission
|
||
; XOffSent - True if we have sent the XOff character
|
||
; XOffPending - True if XOff character needs to be sent
|
||
; XOnPending - True if XOn character needs to be sent
|
||
; HHSDown - True if host dropped required hardware lines
|
||
; HHSDropped - True if we dropped our hardware handshake lines
|
||
; XOffReceived - True if XOff received from host
|
||
; HSPending - Mask to return non-zero if XOn or Xoff must be sent
|
||
; HSReceived - Mask to return non-zero if handshake has been
|
||
; received from host stopping transmission
|
||
; CannotXmit - Mask to return non-zero if any condition
|
||
; exists which prevents us from tranmitting.
|
||
; HSSent - Mask to return non-zero if we sent a handshake
|
||
|
||
|
||
XOffPending equ 00000001b ;XOff needs to be sent
|
||
EnqPending equ 00000001b ;Enq needs to be sent [rkh]
|
||
EtxPending equ 00000001b ;Etx needs to be sent
|
||
|
||
HHSDropped equ 00000010b ;Our hardware handshake lines are down
|
||
|
||
XOnPending equ 00000100b ;XOn needs to be sent
|
||
AckPending equ 00000100b ;Ack needs to be sent (ENQ/ACK & ETX/ACK)
|
||
|
||
XOffReceived equ 00001000b ;XOff character received
|
||
EnqSent equ 00001000b ;Enq has been sent
|
||
EtxSent equ 00001000b ;Etx has been sent
|
||
|
||
XOffSent equ 00010000b ;XOff has been sent
|
||
EnqReceived equ 00010000b ;Enq character received (ENQ/ACK)
|
||
EtxReceived equ 00010000b ;Etx character received (ETX/ACK)
|
||
|
||
HHSDown equ 00100000b ;Host hardware handshake lines are down
|
||
|
||
BreakSet equ 01000000b ;Break has been set
|
||
|
||
HHSAlwaysDown equ 10000000b ;set if host handshake lines were never
|
||
; detected high
|
||
|
||
HSPending equ XOffPending+XOnPending
|
||
HSReceived equ XOffReceived+HHSDown
|
||
HSSent equ XOffSent+HHSDropped
|
||
CannotXmit equ HSPending+HSReceived+BreakSet
|
||
|
||
; values for MiscFlags
|
||
|
||
Discard equ 00000001b ;Discard recevied data
|
||
|
||
|
||
ifdef NEC_98
|
||
;** NewI/ODelay - delay long enough for the bus to catch up to the cpu;(ins 92.11.11)
|
||
NEWIODELAY MACRO times ;(ins 92.11.11)
|
||
LOCAL a ;(ins 92.11.11)
|
||
push CX ;(ins 92.11.11)
|
||
mov CX,times ;(ins 92.11.11)
|
||
a: OUT 5Fh,AL ;(ins 92.11.11)
|
||
loop a ;(ins 92.11.11)
|
||
pop CX ;(ins 92.11.11)
|
||
ENDM ;(ins 92.11.11)
|
||
else ; NEC_98
|
||
iodelay macro ;;macro to insure that an instruction
|
||
jmp $+2 ;; fetch occurs between IN and/or OUT
|
||
jmp $+2 ;; instructions on the PC-AT machine
|
||
endm
|
||
endif ; NEC_98
|
||
|
||
|
||
TimeoutError equ -2 ;Timeout error code for $TRMCOM
|
||
Timeout equ 30 ;30 second timeout
|
||
|
||
DELAY_TIME equ 200 ;Delay at least 200 milliseconds
|
||
|
||
|
||
; Status bits returned from the BIOS for LPT ports
|
||
|
||
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
|
||
|
||
|
||
; status bit defines for LPT
|
||
|
||
L_BITS equ 0F8h ; the status bits we want
|
||
L_BITS_INVERT equ 048h ; must invert to match BIOS
|
||
L_DEVBUSY equ 080h ; device busy bit
|
||
L_TIMEOUT equ 001h ; timeout bit
|
||
|
||
; control bit defines for LPT
|
||
|
||
L_NORMAL equ 00Ch ; normal state: selected, no reset
|
||
L_RESET equ 008h ; reset state
|
||
L_STROBE equ 00Dh ; tell printer we have char
|
||
|
||
ifdef NEC_98
|
||
; control port for TOKI(Printer) ; <Toki:930923>
|
||
Toki_BasePort equ 0140h ; Base I/O Address <Toki:930923>
|
||
Toki_DataLatch equ 0140h ; Data Port <Toki:930923>
|
||
Toki_PrinterStatus equ 0141h ; Status Port <Toki:930923>
|
||
Toki_PrinterControls equ 0142h ; Control Port <Toki:930923>
|
||
Toki_ControlStatus equ 0149h ; Control Status Port <Toki:930923>
|
||
Toki_EX_Control equ 014eh ; Ex Control Port <Toki:930923>
|
||
|
||
;--------------- 8251 Serial Interface Command Status ----------------------
|
||
;--------------------------------------------------------
|
||
; Modem Status ( IBM Emulation ) USE MSR_READ
|
||
;--------------------------------------------------------
|
||
DSR = 10000000B ; Data Set Ready
|
||
RI = 01000000B ; Ring Indicater (CI)
|
||
CTS = 00100000B ; Clear To Send
|
||
RLSD = 00010000B ; Recive Line Signal Detect (CD)
|
||
|
||
;--------------------------------------------------------
|
||
; Port C ( USART Trap Mask )
|
||
;--------------------------------------------------------
|
||
RAM_CHECK = 00010000b ; Prity Check of RAM Enable
|
||
SPEAKER_OFF = 00001000b ; Stop Speaker
|
||
MSK_TXR = 00000100B ; TX Ready Enable
|
||
MSK_TXE = 00000010B ; TX Empty Enable
|
||
MSK_RXR = 00000001B ; RX Ready Enable
|
||
|
||
;--------------------------------------------------------
|
||
; 8251 Int Enable F/F
|
||
;--------------------------------------------------------
|
||
Enable_TxR equ 00000100b ;Tx Ready F/F Enable
|
||
Enable_TxE equ 00000010b ;Tx Empty F/F Enable
|
||
Enable_RxR equ 00000001b ;Rx Ready F/F Enable
|
||
|
||
;--------------------------------------------------------
|
||
; 8251 Status
|
||
;--------------------------------------------------------
|
||
BRK_DETECT = 01000000B ; Break Detect
|
||
F_ERR = 00100000B ; Framing Err
|
||
O_ERR = 00010000B ; OverRun Err
|
||
P_ERR = 00001000B ; Parity Err
|
||
TX_EMP = 00000100B ; TX Empty
|
||
RX_RDY = 00000010B ; RX Ready
|
||
TX_RDY = 00000001B ; TX Ready
|
||
|
||
;--------------------------------------------------------
|
||
; 8251 Command Byte
|
||
;--------------------------------------------------------
|
||
INTER_RESET = 01000000B ; Mode Instruction Set
|
||
RTS = 00100000B ; RTS
|
||
ERR_RESET = 00010000B ; Reset PE & OE & FE Bit
|
||
SEND_BREAK = 00001000B ; The Break commands bit
|
||
RX_E = 00000100B ; RX Enable
|
||
DTR = 00000010B ; DTR
|
||
TX_E = 00000001B ; TX Enable
|
||
|
||
;--------------------------------------------------------
|
||
; etc.....
|
||
;--------------------------------------------------------
|
||
SLAVE_PIC = 08H ; Slave PIC Port
|
||
ISR_READ = 0BH ; ISR Read Command
|
||
MASTER_OCW2 = 00H ; Master PIC OCW2 Port
|
||
SLAVE_ISR = 08H ; Slave PIC ISR Port
|
||
EOI = 20H ; EOI Command
|
||
ALL_DONE = 00000000B ; 8251 Interrupt Disable
|
||
RS_TIME_MOD = 0B6H ; Ch.0 baudrate Generator
|
||
TIMER2 = 075H ;
|
||
TIME_CTL = 077H ;
|
||
|
||
SI_CHR = 0FH ; SHIFT IN
|
||
SO_CHR = 0EH ; SHIFT OUT
|
||
|
||
;---------------------------------------------------------
|
||
; Parallel Interface Command & Status Set
|
||
;---------------------------------------------------------
|
||
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 ;
|
||
CMOS_RAM_SEG_X2 equ 0e300h ; Memory Switch Segment ( PC-98XA )
|
||
|
||
PRN_PSTB_Active_X1 equ 00eh ;
|
||
PRN_PSTB_NonActive_X1 equ 00fh ;
|
||
CMOS_RAM_SEG_X1 equ 0a300h ; Memory Switch Segment ( PC-9800 )
|
||
|
||
PRN_TimeOutValue equ 005h
|
||
|
||
;-------------------------------------------
|
||
; Offset Address of Software Switch
|
||
;-------------------------------------------
|
||
ssw1 equ 0fe2h ;
|
||
ssw2 equ 0fe6h ;
|
||
ssw3 equ 0feah ;
|
||
ssw4 equ 0feeh ;
|
||
ssw5 equ 0ff2h ;
|
||
ssw6 equ 0ff6h ;
|
||
endif ; NEC_98
|
||
|
||
IRQ_Hook_Struc struc
|
||
IRQn db 0
|
||
HookCnt db 0
|
||
OldMask db 0
|
||
VecN db 0FFh
|
||
HandlerOff dw 0
|
||
First_DEB dw 0
|
||
OldIntVec dd 0
|
||
IFDEF No_DOSX_Bimodal_Services
|
||
RM_OldIntVec dd 0
|
||
RM_HandlerOff dw 0
|
||
ENDIF
|
||
IRQ_Hook_Struc ends
|
||
|
||
|
||
IFDEF No_DOSX_Bimodal_Services
|
||
include int31.inc
|
||
|
||
Get_RM_IntVector equ (Int31_Int_Serv SHL 8) + Int_Get_Real_Vec
|
||
Set_RM_IntVector equ (Int31_Int_Serv SHL 8) + Int_Set_Real_Vec
|
||
ENDIF
|
||
|
||
;
|
||
; flag bits for VCDflags
|
||
;
|
||
fCOM_ignore_ints equ 00000001b
|