279 lines
10 KiB
PHP
279 lines
10 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 4 ;5 COMs supported (COM1,2,3,4,5) ;ins 95.03.25 KBNES
|
|
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 940923 KBNES
|
|
TimerHandle dw 0 ; System Timer Handle Ins 940923 KBNES
|
|
hTimer dw 0 ;Timer Handle Flag Ins 940923 KBNES
|
|
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
|
|
|
|
|
|
; 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
|
|
|
|
|
|
iodelay macro ;;macro to insure that an instruction
|
|
ifdef NEC_98
|
|
out 05fh,al ;PC-98 IO rec.
|
|
else ; NEC_98
|
|
jmp $+2 ;; fetch occurs between IN and/or OUT
|
|
jmp $+2 ;; instructions on the PC-AT machine
|
|
endif ; NEC_98
|
|
endm
|
|
|
|
|
|
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
|
|
|
|
|
|
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
|