able/windows-nt
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
windows-nt/Source/XPSP1/NT/base/mvdm/wow16/drivers/neccomm1/ibmcom.inc

403 lines
15 KiB
PHP
Raw Permalink Normal View History

Add source files
2020-09-26 03:20:57 -05:00
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
Reference in a new issue Copy permalink