able/windows-nt
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
windows-nt/Source/XPSP1/NT/base/mvdm/softpc.new/bios/spckbd.asm

2142 lines
54 KiB
NASM
Raw Normal View History

Add source files
2020-09-26 03:20:57 -05:00
;******************************************************************************
;
; Copyright (c) 1992 Insignia Solutions Ltd.
;
; Program:
;
; Purpose:
;
; Version:
;
; Author: Dave Bartlett
; Modifications:
; 1) Tim June 92. Changes to get DEC PC working. Take over
; IVT entries 6h (illegal instruction), 11h (equipment
; check), 16h (keyboard BIOS), 17h (printer),
; 42h (default video).
; 2) Tim June 92. Changed version to 1.11
; 3) Tim June 92. Avoid accesses to host ROM as far as
; possible. Take over lots of IVT entries and continue to
; point them at this driver.
; 4) Tim July 92. Version num 1.12, put pseudo ROM stuff back in.
; 5) Tim July 92. v 1.13, use SoftPC video BIOS when windowed.
;
; 6) 12-Sep-1992 Jonle, Merged with ntio.sys
; cleanup usage of assumes espcially with ES
; optimized loading of IVT
; other general cleanup
;
; This obj module is intially loaded in a temporary memory location
; along with ntio.sys. Ntio.sys will copy the resident code (marked by
; SpcKbdBeg, SpcKbdEnd) into the permanent memory location which resides
; just below the normal device drivers loaded by config.sys.
;
; The nonresident intialization code is run with CS= temp seg
; and DS= final seg.
;
;******************************************************************************
.286
include vint.inc
;================================================================
; Macros and includes
;================================================================
bop MACRO callid
db 0c4h,0c4h,callid
endm
BIOS_CPU_QUIT equ 0FEh
BIOS_KB_INT equ 9
BIOS_INT15 equ 15h
BIOS_PRINTER_IO equ 17h
UNEXP_BOP equ 2
RTC_WAIT_FLAG equ 0a0h ; offset of rtc_wait_flag in bios data seg
VERSIONID equ 0BEEFh
FULLSCREEN equ 1
MAX_VIDEO_FUNC equ 1Ch
GET_FONT_FUNC equ 11h
VID_MODECHANGE equ 0
MOUSE_LIGHT_PEN equ 4
MIN_MOUSE_FUNC equ 0F0H
MAX_MOUSE_FUNC equ 0F7H
XTRA_MOUSE_FUNC equ 0FAH
MS_VIDEO_STRING equ 13FFH
MOUSE_VID_BOP equ 0BEh
EGA_VIDEO_BOP equ 42h
PRT_NOTBUSY equ 80h
PRT_NUM_PORTS equ 3
PRT_STATE_READY equ 0
PRT_IRQ equ 10h
PRT_LPT_BUSY equ 1
TIMER_LOW equ 6ch
TIMER_HIGH equ 6eh
TIMER_OVFL equ 70h
MOTOR_STATUS equ 3fh
MOTOR_COUNT equ 40h
; Keyboard buf ptrs
BUFFER_HEAD equ 1ah
BUFFER_TAIL equ 1ch
BUFFER_START equ 80h
BUFFER_END equ 82h
; kb_flag and LED bits
KB_FLAG equ 17h
CAPS_STATE equ 40h
NUM_STATE equ 20h
SCROLL_STATE equ 10h
KB_FLAG_1 equ 18h
KB_FLAG_2 equ 97h
KB_LEDS equ 07h ; Keyboard LED state bits
KB_PR_LED equ 40h ; Mode indicator update
KB_FLAG_3 equ 96h
LC_E1 equ 01h
LC_E0 equ 02h
;..............................................keyboard constants
; bits in kb_flag
RIGHT_SHIFT = 1
LEFT_SHIFT = 2
CTL_SHIFT = 4
ALT_SHIFT = 8
; bit in kb_flag_1
HOLD_STATE = 8
SCROLL_SHIFT = 10h
NUM_SHIFT = 20h
CAPS_SHIFT = 40h
INS_SHIFT = 80h
SYS_SHIFT = 04h
; IBM scan codes
CTL_KEY = 29
LEFT_SHIFTKEY = 42
RIGHT_SHIFTKEY = 54
ALT_KEY = 56
CAPS_KEY = 58
NUM_KEY = 69
SCROLL_KEY = 70
INS_KEY = 82
;
; Segment definitions for ntio.sys,
;
include biosseg.inc
SpcKbdSeg segment
assume cs:SpcKbdSeg,ds:nothing,es:nothing
;
; SpcKbdBeg - SpcKbdEnd
;
; Marks the resident code, anything outside of these markers
; is discarded after intialization
; 13-Sep-1992 Jonle
;
public SpcKbdBeg
SpcKbdBeg label byte
;
; Reduced data table for Video 7 modes 0 and 2.
; This table is extracted from our video7 ROM. Only text modes are
; required, mode 0 and 1 are identical as are modes 2 and 3.
;
ega_parm_setup:
;--40x25--
DB 40,24,16 ; width,height,character height
DW 00800H ; Page size in bytes
DB 008H, 003H, 000H, 002H ; Sequencer Parameters
DB 067H ;Misc Reg
; CRTC Parameters
DB 02dH, 027H, 028H, 090H, 02bH
DB 0a0H, 0bfH, 01fH, 000H, 04fH
DB 00dH, 00eH, 000H, 000H, 000H
DB 000H, 09cH, 0aeH, 08fH, 014H
DB 01fH, 096H, 0b9H, 0a3H, 0ffH
; Attribute parameters
DB 000H, 001H, 002H, 003H, 004H
DB 005H, 014H, 007H, 038H, 039H
DB 03aH, 03bH, 03cH, 03dH, 03eH
DB 03fH, 00cH, 000H, 00fH, 008H
; Graph parameters
DB 000H, 000H, 000H, 000H, 000H
DB 010H, 00eH, 000H, 0ffH
;--80x25--
DB 80,24,16 ; width,height,character height
DW 01000H ; Page size in bytes
DB 000H, 003H, 000H, 002H ; Sequencer Parameters
DB 067H ;Misc Reg
; CRTC Parameters
DB 05fH, 04fH, 050H, 082H, 055H
DB 081H, 0bfH, 01fH, 000H, 04fH
DB 00dH, 00eH, 000H, 000H, 000H
DB 000H, 09cH, 08eH, 08fH, 028H
DB 01fH, 096H, 0b9H, 0a3H, 0ffH
; Attribute parameters
DB 000H, 001H, 002H, 003H, 004H
DB 005H, 014H, 007H, 038H, 039H
DB 03aH, 03bH, 03cH, 03dH, 03eH
DB 03fH, 00cH, 000H, 00fH, 008H
; Graph parameters
DB 000H, 000H, 000H, 000H, 000H
DB 010H, 00eH, 000H, 0ffH
;--80x25 mono--
DB 80,24,16 ; width,height,character height
DW 01000H ; Page size in bytes
DB 000H, 003H, 000H, 003H ; Sequencer Parameters
DB 0a6H ;Misc Reg
; CRTC Parameters
DB 05fH, 04fH, 050H, 082H, 055H
DB 081H, 0bfH, 01fH, 000H, 04dH
DB 00bH, 00cH, 000H, 000H, 000H
DB 000H, 083H, 0a5H, 05dH, 028H
DB 00dH, 063H, 0baH, 0a3H, 0ffH
; Attribute parameters
DB 000H, 008H, 008H, 008H, 008H
DB 008H, 008H, 008H, 010H, 018H
DB 018H, 018H, 018H, 018H, 018H
DB 018H, 00eH, 000H, 00fH, 008H
; Graph parameters
DB 000H, 000H, 000H, 000H, 000H
DB 010H, 00aH, 000H, 0ffH
; Mode b (font load)
DB 5eh,32H,8 ; width,height,character height
DW 09700H ; Page size in bytes
DB 001H, 00fH, 000H, 006H ; Sequencer Parameters
DB 0e7H ;Misc Reg
; CRTC Parameters
DB 06dH, 05dH, 05eH, 090H, 061H
DB 08fH, 0bfH, 01fH, 000H, 040H
DB 000H, 000H, 000H, 000H, 000H
DB 000H, 0a2H, 08eH, 099H, 02fH
DB 000H, 0a1H, 0b9H, 0e3H, 0ffH
; Attribute parameters
DB 000H, 001H, 002H, 003H, 004H
DB 005H, 014H, 007H, 038H, 039H
DB 03aH, 03bH, 03cH, 03dH, 03eH
DB 03fH, 001H, 000H, 00fH, 000H
; Graph parameters
DB 000H, 000H, 000H, 000H, 000H
DB 000H, 005H, 00fH, 0ffH
;--350 scanline 40x25
DB 40,24,14 ; width,height,character height
DW 00800H ; Page size in bytes
DB 009H, 003H, 000H, 002H ; Sequencer Parameters
DB 0a3H ;Misc Reg
; CRTC Parameters
DB 02dH, 027H, 028H, 090H, 02bH
DB 0a0H, 0bfH, 01fH, 000H, 04dH
DB 00bH, 00cH, 000H, 000H, 000H
DB 000H, 083H, 0a5H, 05dH, 014H
DB 01fH, 063H, 0baH, 0a3H, 0ffH
; Attribute parameters
DB 000H, 001H, 002H, 003H, 004H
DB 005H, 014H, 007H, 038H, 039H
DB 03aH, 03bH, 03cH, 03dH, 03eH
DB 03fH, 008H, 000H, 00fH, 000H
; Graph parameters
DB 000H, 000H, 000H, 000H, 000H
DB 010H, 00eH, 000H, 0ffH
;--350 scanline 80x25
DB 80,24,14 ; width,height,character height
DW 01000H ; Page size in bytes
DB 001H, 003H, 000H, 002H ; Sequencer Parameters
DB 0a3H ;Misc Reg
; CRTC Parameters
DB 05fH, 04fH, 050H, 082H, 055H
DB 081H, 0bfH, 01fH, 000H, 04dH
DB 00bH, 00cH, 000H, 000H, 000H
DB 000H, 083H, 0a5H, 05dH, 028H
DB 01fH, 063H, 0baH, 0a3H, 0ffH
; Attribute parameters
DB 000H, 001H, 002H, 003H, 004H
DB 005H, 014H, 007H, 038H, 039H
DB 03aH, 03bH, 03cH, 03dH, 03eH
DB 03fH, 008H, 000H, 00fH, 000H
; Graph parameters
DB 000H, 000H, 000H, 000H, 000H
DB 010H, 00eH, 000H, 0ffH
;
; End of baby mode table.
;
; Table of VGA bios 'capability' info for func 1b to point at.
vga_1b_table db 07fh, 060h, 00fh, 000h, 000h, 000h, 000h, 007h
db 002h, 008h, 0ffh, 00eh, 000h, 000h, 03fh, 000h
; Configuration table for INT 15 Func C0 to point at.
conf_table dw 008h
;; db 000h, 0fch, 002h, 000h, 070h, 000h, 000h, 000h, 000h
db 000h, 0fch, 002h, 074h, 070h, 000h, 000h, 000h, 000h
PRT_BUF_SIZE equ 255
;================================================================
; Printer status table
;================================================================
prt_status db PRT_NUM_PORTS dup (?)
prt_state db PRT_NUM_PORTS dup (?)
prt_control db PRT_NUM_PORTS dup (?)
prt_lpt_stat db PRT_NUM_PORTS dup (?)
cur_buf_size dw PRT_BUF_SIZE
prt_data_buf db PRT_BUF_SIZE dup (?) ; buffer in the 16bit side for perf.
cur_lpt db 0ffh ; buffer is not being used
cur_count dw ?
cur_busy db 0 ; initially not busy
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
; Keyboard tables
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
shift_keys: ;K6
DB INS_KEY,CAPS_KEY,NUM_KEY,SCROLL_KEY
DB ALT_KEY,CTL_KEY,LEFT_SHIFTKEY,RIGHT_SHIFTKEY
shift_masks: ;K7
DB INS_SHIFT,CAPS_SHIFT,NUM_SHIFT,SCROLL_SHIFT
DB ALT_SHIFT,CTL_SHIFT,LEFT_SHIFT,RIGHT_SHIFT
ctl_n_table: ;K8
DB 27, -1, 0, -1, -1, -1, 30, -1
DB -1, -1, -1, 31, -1, 127, 148, 17
DB 23, 5, 18, 20, 25, 21, 9, 15
DB 16, 27, 29, 10, -1, 1, 19, 4
DB 6, 7, 8, 10, 11, 12, -1, -1
DB -1, -1, 28, 26, 24, 3, 22, 2
DB 14, 13, -1, -1, -1, -1, 150, -1
DB ' ', -1
ctl_f_table: ;K9
DB 94, 95, 96, 97, 98, 99, 100, 101
DB 102, 103, -1, -1, 119, 141, 132, 142
DB 115, 143, 116, 144, 117, 145, 118, 146
DB 147, -1, -1, -1, 137, 138
lowercase:
DB 27, '1', '2', '3', '4', '5', '6', '7', '8', '9' ;K10
DB '0', '-', '=', 8, 9, 'q', 'w', 'e', 'r', 't'
DB 'y', 'u', 'i', 'o', 'p', '[', ']', 13, -1, 'a'
DB 's', 'd', 'f', 'g', 'h', 'j', 'k', 'l', ';', 39
DB 96, -1, 92, 'z', 'x', 'c', 'v', 'b', 'n', 'm'
DB ',', '.', '/', -1, '*', -1, ' ', -1
lc_tbl_scan:
DB 59, 60, 61, 62, 63, 64, 65, 66, 67, 68
DB -1, -1
base_case:
DB 71, 72, 73, -1, 75, -1, 77, -1, 79, 80
DB 81, 82, 83, -1, -1, 92, 133, 134 ;K15
uppercase: ;K11
DB 27, '!', '@', '#', '$', '%', '^', '&', '*', '('
DB ')', '_', '+', 8, 0, 'Q', 'W', 'E', 'R', 'T'
DB 'Y', 'U', 'I', 'O', 'P', '{', '}', 13, -1, 'A'
DB 'S', 'D', 'F', 'G', 'H', 'J', 'K', 'L', ':', '"'
DB 126, -1, '|', 'Z', 'X', 'C', 'V', 'B', 'N', 'M'
DB '<', '>', '?', -1, 0, -1, ' ', -1;
ucase_scan:
DB 84, 85, 86, 87, 88, 89, 90, 91, 92, 93
DB -1, -1
numb_state:
DB '7', '8', '9', '-', '4', '5', '6', '+', '1', '2' ;K14
DB '3', '0', '.' , -1, -1, 124, 135, 136
alt_table:
DB 82, 79, 80, 81, 75, 76, 77, 71, 72, 73 ;K30
DB 16, 17, 18, 19, 20, 21, 22, 23, 24, 25
DB 30, 31, 32, 33, 34, 35, 36, 37, 38, 44
DB 45, 46, 47, 48, 49, 50
;================================================================
; Keyboard break caller
;================================================================
keyboard_break_caller:
int 1bh ;keyboard break
bop %BIOS_CPU_QUIT
;================================================================
; Print screen caller
;================================================================
print_screen_caller:
int 5h ;print screen
bop %BIOS_CPU_QUIT
;================================================================
; Int 15 caller
;================================================================
; Tim modified int 15 caller. Copied from BIOS2. It gives CPU
; a chance to take other interrupts. Suspect the extra jumps are
; now harmless with IRET hooking.
;int15h_caller:
;int 15h
;bop %BIOS_CPU_QUIT
int15h_caller:
int 15h ; Cassette I/O.
jmp k1
k1: jmp k2
k2: jmp k3
k3: BOP %BIOS_CPU_QUIT
;================================================================
; Unexpected interrupt handler
;================================================================
unexp_int:
bop %UNEXP_BOP
jmp iret_com
;================================================================
;Int 13 caller
;================================================================
int13h_caller:
int 13h
bop %BIOS_CPU_QUIT
;================================================================
; New interrupt 9h handler
;================================================================
int09h_vector:
push ax
xor ax, ax
bop %BIOS_KB_INT
pop ax
jmp iret_com
; CarbonCopy traces int 9 in order to gain control
; over where the kbd data is coming from (the physical kbd
; or the serial link) The kbd_inb instruction must be visible
; in the 16 bit code via int 1 tracing, for CarbonCopy to work.
; Softpc assumes the exact location of the first nop
; relative to the bop just above.
nop
nop
in al, 60h ; keyba_io_buffers
nop
nop
BOP %BIOS_CPU_QUIT
;=================================================================
; IRET hooks bop table
;=================================================================
IRET_HOOK = 5dh ;IRET hook BOP
iret_bop_table:
bop %IRET_HOOK
db 0
iret_end_first_entry:
bop %IRET_HOOK
db 1
bop %IRET_HOOK
db 2
bop %IRET_HOOK
db 3
bop %IRET_HOOK
db 4
bop %IRET_HOOK
db 5
bop %IRET_HOOK
db 6
bop %IRET_HOOK
db 7
bop %IRET_HOOK
db 8
bop %IRET_HOOK
db 9
bop %IRET_HOOK
db 10
bop %IRET_HOOK
db 11
bop %IRET_HOOK
db 12
bop %IRET_HOOK
db 13
bop %IRET_HOOK
db 14
bop %IRET_HOOK
db 15
;================================================================
; New interrupt 13h handler
;================================================================
int13h_vector:
cmp dl,80h ; 0 - 7f are floppy commands
jb int40h_vector
cmp ah,2 ; we fail the direct access commands
jb diskcmd ; read/write/seek/verify/format
cmp ah,5 ; but let others go through (disk tables etc)
jbe faildisk
cmp ah,0ah
jb diskcmd
cmp ah,0ch
ja diskcmd
faildisk:
push ax
mov ax,1 ; direct access error panel
bop 59h
pop ax ; preserve AL for safety sake
mov ah, 80h ; error - timeout
stc
retf 2
diskcmd:
bop 13h
retf 2
;================================================================
; New interrupt 40h handler
;================================================================
int40h_vector:
; cmp ah,2 ; we fail the direct access commands
; jb flopcmd ; read/write/seek/verify/format
; cmp ah,5 ; but let others go through (disk tables etc)
; jbe failflop
; cmp ah,0ah
; jb flopcmd
; cmp ah,0ch
; ja flopcmd
failflop:
; push ax
; mov ax,0 ; direct access error panel
; bop 59h
; pop ax
; mov ah, 80h ; error - timeout
; stc
; retf 2
flopcmd:
bop 40h
retf 2
;; waiting for diskette interrupt
wait_int:
push ds
push ax
push cx
mov ax, 40h
mov ds, ax
mov cx, 10h
wait_int_loop:
mov al, [3Eh]
test al, 80h
loopz wait_int_loop
pop cx
pop ax
pop ds
bop %BIOS_CPU_QUIT
;; floppy parameters table
floppy_table label byte
DB 01 ;; 360KB in 360KB
DW OFFSET md_tbl1
DB 82H ;; 360KB in 1,2MB
DW OFFSET md_tbl2
DB 02 ;; 1.2MB in 1.2MB
DW OFFSET md_tbl3
DB 03 ;; 720KB in 720KB
DW OFFSET md_tbl4
DB 84H ;; 720KB in 1.44MB
DW OFFSET md_tbl5
DB 04 ;; 1.44MB in 1.44MB
DW OFFSET md_tbl6
DB 85h ;; 720KB in 2.88MB
DW OFFSET md_tbl7
DB 85h ;; 1.44MB in 2.88MB
DW OFFSET md_tbl8
DB 5 ;; 2.88MB in 2.88MB
DW OFFSET md_tbl9
md_tbl1:
; MEDIA = 40 track low data rate; DRIVE = 40 track low data rate
DB 0DFh ; 1st specify byte
DB 2 ; 2nd specify byte
DB 25H ; motor off wait time
DB 2 ; ie 2 bytes/sector
DB 9 ; sectors/track
DB 02Ah ; gap length
DB 0FFh ; data length
DB 050h ; gap length for format
DB 0F6h ; fill byte for format
DB 15 ; head settle time/ms
DB 8 ; ie 1s motor start time
DB 39 ; maximum track number
DB 80H ; transfer rate
md_tbl2:
; MEDIA = 40 track low data rate; DRIVE = 80 track high data rate
DB 0DFh ; 1st specify byte
DB 2 ; 2nd specify byte
DB 25H ; motor off wait time
DB 2 ; ie 2 bytes/sector
DB 9 ; sectors/track
DB 02Ah ; gap length
DB 0FFh ; data length
DB 050h ; gap length for format
DB 0F6h ; fill byte for format
DB 15 ; head settle time/ms
DB 8 ; ie 1s motor start time
DB 39 ; maximum track number
DB 40H ; transfer rate
md_tbl3:
; MEDIA = 80 track high data rate; DRIVE = 80 track high data rate
DB 0DFh ; 1st specify byte
DB 2 ; 2nd specify byte
DB 25H ; motor off wait time
DB 2 ; ie 2 bytes/sector
DB 15 ; sectors/track
DB 01Bh ; gap length
DB 0FFh ; data length
DB 054h ; gap length for format
DB 0F6h ; fill byte for format
DB 15 ; head settle time/ms
DB 8 ; ie 1s motor start time
DB 79 ; maximum track number
DB 0 ; transfer rate
md_tbl4:
; MEDIA = 80 track low data rate; DRIVE = 80 track low data rate
DB 0DFh ; 1st specify byte
DB 2 ; 2nd specify byte
DB 25H ; motor off wait time
DB 2 ; ie 2 bytes/sector
DB 9 ; sectors/track
DB 02Ah ; gap length
DB 0FFh ; data length
DB 050h ; gap length for format
DB 0F6h ; fill byte for format
DB 15 ; head settle time/ms
DB 8 ; ie 1s motor start ime
DB 79 ; maximum track number
DB 80H ; transfer rate
md_tbl5:
; MEDIA = 80 track low data rate; DRIVE = 80 track high data rate
DB 0DFh ; 1st specify byte
DB 2 ; 2nd specify byte
DB 25H ; motor off wait time
DB 2 ; ie 2 bytes/sector
DB 9 ; sectors/track
DB 02Ah ; gap length
DB 0FFh ; data length
DB 050h ; gap length for format
DB 0F6h ; fill byte for format
DB 15 ; head settle time/ms
DB 8 ; ie 1s motor start time
DB 79 ; maximum track number
DB 80H ; transfer rate
md_tbl6:
; MEDIA = 80 track high data rate; DRIVE = 80 track high data rate
DB 0AFh ; 1st specify byte
DB 2 ; 2nd specify byte
DB 25H ; motor off wait time
DB 2 ; ie 2 bytes/sector
DB 18 ; sectors/track
DB 01Bh ; gap length
DB 0FFh ; data length
DB 06Ch ; gap length for format
DB 0F6h ; fill byte for format
DB 15 ; head settle time/ms
DB 8 ; ie 1s motor start time
DB 79 ; maximum track number
DB 0 ; transfer rate
md_tbl7:
;MEDIA = 80 tracks, 9 sectors/track; DRIVE = 80 tracks, 36 sectotrs per track
DB 0E1h ; 1st specify byte
DB 2 ; 2nd specify byte
DB 25H ; motor off wait time
DB 2 ; ie 2 bytes/sector
DB 9 ; sectors/track
DB 02Ah ; gap length
DB 0FFh ; data length
DB 050h ; gap length for format
DB 0F6h ; fill byte for format
DB 15 ; head settle time/ms
DB 8 ; ie 1s motor start ime
DB 79 ; maximum track number
DB 80H ; transfer rate
md_tbl8:
;MEDIA = 80 tracks, 18 sectors/track; DRIVE = 80 tracks, 36 sectotrs per track
DB 0D1h ; 1st specify byte
DB 2 ; 2nd specify byte
DB 25H ; motor off wait time
DB 2 ; ie 2 bytes/sector
DB 18 ; sectors/track
DB 01Bh ; gap length
DB 0FFh ; data length
DB 065h ; gap length for format
DB 0F6h ; fill byte for format
DB 15 ; head settle time/ms
DB 8 ; ie 1s motor start time
DB 79 ; maximum track number
DB 0 ; transfer rate
md_tbl9:
;MEDIA = 80 tracks, 36 sectors/track; DRIVE = 80 tracks, 36 sectotrs per track
DB 0A1h ; 1st specify byte
DB 2 ; 2nd specify byte
DB 25H ; motor off wait time
DB 2 ; ie 2 bytes/sector
DB 36 ; sectors/track
DB 038h ; gap length
DB 0FFh ; data length
DB 053h ; gap length for format
DB 0F6h ; fill byte for format
DB 15 ; head settle time/ms
DB 8 ; ie 1s motor start time
DB 79 ; maximum track number
DB 0C0h ; transfer rate
floppy_table_len equ $ - floppy_table
bios_floppy_table label byte
DB 0DFh ; 1st specify byte
DB 2 ; 2nd specify byte
DB 25H ; motor off wait time
DB 2 ; ie 2 bytes/sector
DB 18 ; sectors/track
DB 01Bh ; gap length
DB 0FFh ; data length
DB 054h ; gap length for format
DB 0F6h ; fill byte for format
DB 15 ; head settle time/ms
DB 8 ; ie 1s motor start time
bios_floppy_table_len equ $ - bios_floppy_table
;===============================================================
; New interrupt 15h handler
;================================================================
; Tim, modified this to be like a "normal" SoftPC ROM.
; Copied from BIOS2, but rtc_wait_flag is now referenced via ES not
; DS.
;
; 17-Sep-1992 Jonle , ES ref to rtc_wait was change from assume ES
; to seg overides to prevent accidents in assuming.
;
;int15h_vector:
;bop %BIOS_INT15
;iret
;;;;;;;;;STF hide this int15h_vector:
int15h_vector:
call DOSTI
cmp ah, 88h
je lbl1
cmp ah, 91h
je lbl1
cmp ah, 86h
je lbl2
BOP 15h
RETF 2
lbl1: BOP 15h
jmp iret_com
lbl2: BOP 15h
jc lbl5
push cx
push dx
push es ; Tim, save ES not DS.
mov ax, 40 ; point es to biosdata
mov es, ax
xchg dx, cx
lbl3:
test byte ptr es:[RTC_WAIT_FLAG], 080h ; check for end of wait
loopz lbl3 ; dec timeout delay
jnz lbl4 ; exit if wait ended
sub dx, 1 ; dec error timeout counter
jnc lbl3 ; loop till counters timeout
lbl4:
mov byte ptr es:[RTC_WAIT_FLAG], 0 ; set function inactive
pop es ; Kipper, restore ES not DS.
pop dx
pop cx
clc
lbl5:
RETF 2
;=================================================================
; Regular SoftPC int 17 handler (especially important for DEC PCs)
;=================================================================
int17h_vector:
;
; Do a get status purely in 16-bit code but only if the printer is ready and
;we don't have interrupts turned on. Otherwise we must do a BOP and let 32-bit
;code handle it.
;
push si
push dx
push ax
mov ax, dx ; dx = adapter no., ensure it is no
xor dx, dx ; greater than PRT_NUM_PORTS.
mov si, PRT_NUM_PORTS
div si
mov si, dx
pop ax
cmp ah, 2
je do_prt_status
or ah,ah
je do_write
jmp do_print_bop
do_prt_status:
cmp byte ptr cs:[si + prt_state], PRT_STATE_READY
jne do_print_bop
test byte ptr cs:[si + prt_control], PRT_IRQ
je get_status
jmp short do_print_bop
do_write:
cmp byte ptr cs:[cur_lpt],0ffh
jne check_lpti
mov byte ptr cs:[cur_lpt],dl
mov word ptr cs:[cur_count],0
mov byte ptr cs:[cur_busy],0ffh
jmp short do_print_bop
check_lpti:
cmp byte ptr cs:[cur_lpt],dl
je buf_ok
push si
xor si,si
bop %BIOS_PRINTER_IO
pop si
mov word ptr cs:[cur_count],0
mov byte ptr cs:[cur_lpt],dl
jmp short do_print_bop
buf_ok:
mov dx,word ptr cs:[cur_count]
mov si,dx
mov byte ptr cs:[si + prt_data_buf],al
inc word ptr cs:[cur_count]
cmp word ptr cs:[cur_count],PRT_BUF_SIZE
jne no_flushing
xor si,si ; sub-function 0 for this bop
bop %BIOS_PRINTER_IO
test ah,08h
jz flush_ok
dec word ptr cs:[cur_count]
jmp short int17h_end
flush_ok:
mov word ptr cs:[cur_count],0
no_flushing:
mov ah,90h
jmp short int17h_end
do_print_bop:
mov si,0ffffh ; sub-function 1
bop %BIOS_PRINTER_IO
jmp int17h_end
get_status:
test byte ptr cs:[si + prt_lpt_stat], PRT_LPT_BUSY
jne noset
or byte ptr cs:[si + prt_status], PRT_NOTBUSY
noset:
mov ah, cs:[si + prt_status]
and ah, 0f8h
xor ah, 48h
int17h_end:
pop dx
pop si
iret_com:
FIRET
;=================================================================
; Pseudo-ROM vectuz, copied from BIOS2.ASM
;=================================================================
dummy_vector: ; Copied from BIOS2.ASM
jmp iret_com
illegal_bop_vector:
bop 72h
jmp iret_com
intD11_vector:
bop 72h
jmp iret_com
int05h_vector: ; Print Screen func. copied from BIOS2.ASM
call DOSTI
PUSH AX
PUSH BX
PUSH CX
PUSH DX
PUSH DS
;::::::::::::::::::::::::::::::::: Setup DS to point to BIOS data area
MOV AX,40H
MOV DS,AX
;::::::::::::::::::::::::::::::: Print screen already in progress ????
CMP BYTE PTR DS:[100H],1
JE end_print
;::::::::::::::::::::::::::::::::::::::::::::::: Set print screen busy
MOV BYTE PTR DS:[100h],1
;:::::::::::::::::::::::::::::::::::::::::::::::::::: Get video status
MOV AH,15
INT 10H
MOV CH,AH ;No of columns
;:::::::::::::::::::::::::::::::::: Setup no. of columns/rows to print
BOP 80H ;(BIOS_PS_PRIVATE_1)
MOV CL,AL ;No of rows
;::::::::::::::::::::::::::::::::::: Print line feed / carriage return
CALL print_crlf
;:::::::::::::::::::::::::::::::::::::::::: Get current cursor postion
PUSH CX
MOV AH,3
INT 10H
POP CX
;::::::::::::::::::::::::::::::::::::::::::::::::: Save cursor postion
PUSH DX ;save current cursor postion
XOR DH,DH ;current row being processed
start_print_col:
XOR DL,DL ;current column being processed
;::::::::::::::::::::::::::::::::::::::::::::::: Start printing screen
start_print_row:
;:::::::::::::::::::::::::::::::::::::::::::::::::: Set cursor postion
PUSH DX ;save current row,column
MOV AH,2
INT 10H
;::::::::::::::::::::::::::::::::::: Read character at current postion
MOV AH,8
INT 10H
;::::::::::::::::::::::::::::::::::::::::::::::::::::: Print character
OR al,al
JNZ print_char
MOV AL,20H
print_char:
XOR DX,DX
XOR AH,AH
INT 17H
;:::::::::::::::::::::::::::::::::::::::::::: Check for printer errors
POP DX ;Restore current row,column
AND AH,25H
JZ cont2
MOV BYTE PTR DS:[100H],0FFH
JMP short exit_print
;::::::::::::::::::::::::::::::::::::::::::: Move to mext print column
cont2:
INC DL ;Inc current column
CMP DL,CH ;Current col compared to no. of cols
JB start_print_row
;:::::::::::::::::::::::::::::::::::::::::: End of column, print CR/LF
CALL print_crlf
;:::::::::::::::::::::::::::::::::::::::::::::::::: More rows to print
INC DH ;Inc current row
CMP DH,CL ;Current row compared to no. of rows
JBE start_print_col
MOV BYTE PTR DS:[0100H],0
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Exit print
exit_print:
;:::::::::::::::::::::::::::::::::::::; Restore orginal cursor postion
POP DX
MOV AH,2
INT 10H
;:::::::::::::::::::::::::::::::::::::::::::::::::::: Tidy up and exit
end_print:
POP DS
POP DX
POP CX
POP BX
POP AX
jmp iret_com
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Print CR/LF
print_crlf:
PUSH DX
XOR DX,DX
MOV AX,0DH
INT 17H
XOR DX,DX
MOV AX,0AH
INT 17H
POP DX
RET
; End of int05_vector (print screen).
int06h_vector:
bop 06h
jmp iret_com
; IVT 7 is set to unexpected interrupt.
int08h_vector:
; The usual int8 handler modified for optimum performance.
; - stays in 16 bit code (no BOP)
; - keeps interrupts off when not needed
; - calls int 1c directly
;
call DOCLI ; make sure interrupts stay off until iret
push es
push ds ; save some registers
push ax
push dx
mov ax, 40h ; set ds to bios data area
mov ds, ax
xor ax, ax
mov es, ax ; set es to IVT seg for i1c callout
inc word ptr ds:[TIMER_LOW] ; inc time counters
jnz i8v1
inc word ptr ds:[TIMER_HIGH]
i8v1:
cmp word ptr ds:[TIMER_HIGH], 018h ; check for 24 hours, wrap point
jnz i8v2
cmp word ptr ds:[TIMER_LOW], 0b0h
jnz i8v2
mov word ptr ds:[TIMER_HIGH], ax ; 24 hour wrap, set OVFL bit
mov word ptr ds:[TIMER_LOW], ax
mov byte ptr ds:[TIMER_OVFL], 1
or al, 8 ; set Overflow bit for fake flags
;--- ; skip floppy motor stuff
i8v2: ; handle the floppy motor stuff
push ax
dec byte ptr ds:[MOTOR_COUNT]
jnz i8v3
and byte ptr ds:[MOTOR_STATUS], 0f0h
mov al, 0ch
mov dx, 03f2h ; costly outb happens 1/256 timer tics...
out dx, al
i8v3:
pop ax
; call int1c user routine directly
lahf ; get lobyte of flags for fake flags
xchg ah,al
push ax ; put fake flags on the stack
call dword ptr es:[1ch*4] ; do it!
call DOCLI ; make sure interrupts stay off until iret
mov al, 20h ; send eoi
out 20h, al
pop dx ;restore the stack
pop ax
pop ds
pop es
jmp iret_com
int0e_vector:
bop 0eh
jmp iret_com
DOCLI:
FCLI
ret
DOSTI:
FSTI
ret
;
; Tim August 92. Video BIOS grabber.
; Call SPC BIOS when in windowed mode and the host BIOS when in full-screen.
; Controled by value of 'use_host_int10'.
; Try to limit bops by validating calling values. Mouse has to get first shot
; and then video bios.
;
use_host_int10 db 01h ; native/softpc bios flag
changing_mode db 01h ; delay handshake if in bios mode change
PUBLIC int10h_vector
int10h_vector:
cmp use_host_int10, FULLSCREEN
je nativebios
cmp ah,VID_MODECHANGE ; mode change??
je modechange
cmp ah,MAX_VIDEO_FUNC ; range check
ja mousecheck ; not a vid func but mouse has higher
cmp ah,MOUSE_LIGHT_PEN ; light pen special case
je mousebios
spcbios:
bop EGA_VIDEO_BOP ; regular windowed Int 10
jmp viddone
mousecheck:
cmp ah,MIN_MOUSE_FUNC ; range check mouse fn f0-f7 + fa.
jb badvid
cmp ah,MAX_MOUSE_FUNC
jbe mousebios
cmp ah,XTRA_MOUSE_FUNC
jne badvid
mousebios: ; call softpc mouse video entrypoint
bop MOUSE_VID_BOP
jmp viddone
modechange: ; windowed modechange. Mouse gets a look
mov changing_mode,1 ; then softpc video bios. If gfx mode then
bop MOUSE_VID_BOP ; will go fullscreen
;;;nop
;;;nop ; nops aid debugging
;;;bop EGA_VIDEO_BOP ; will go fullscreen here
nop
nop
push ax ; save video mode which may have top bit set
and ax,7fh
cmp al,3
jbe endmode ; if graphics mode, repeat modechange to setup
cmp al,7 ; video card, else fall through
je endmode
pop ax
jmp nativebios
endmode:
pop ax
mov changing_mode,0 ; Clear 'mode changing' flag.
viddone:
jmp iret_com
badvid: ; unrecognised video func
stc
jmp viddone
nativebios:
mov changing_mode,0 ; Clear 'mode changing' flag.
cmp ax,MS_VIDEO_STRING ; ensure not MS special video string fn
je ms_wrt_string
cmp ah,MIN_MOUSE_FUNC ; could be a mouse call
jb chk_mse_vid
cmp ah,MAX_MOUSE_FUNC ; range check mouse fn f0-f7 + fa.
jbe mousebios
cmp ah,XTRA_MOUSE_FUNC
je mousebios
jmp jmp_native ; probably bad func but...
chk_mse_vid:
cmp ah,MOUSE_LIGHT_PEN ; mouse handles light pen
je mousebios
cmp ah,VID_MODECHANGE
jne chk_font_change
bop MOUSE_VID_BOP ; mouse wants first sniff at mode changes
jmp jmp_native ; then fall through
chk_font_change:
cmp ah,GET_FONT_FUNC
jne jmp_native
bop MOUSE_VID_BOP ; select mouse buffer for new no. of lines
; then fall through
jmp_native:
db 0EAh ; far jump
host_int10 dd ? ; to native int 10 vector
ms_wrt_string:
push si
push di
push bp
go_loop1:
mov dx,46h ; looks a good value for flags
push dx ; make an iret frame
push cs
mov bx, offset go_cont
push bx
mov bx,7 ; set foreground color
mov ah,0eh ; set command to write a character
mov al,es:[di] ; get char
inc di
jmp jmp_native ; make far jmp to int 10 vector
go_cont:
loop go_loop1 ;repeat until all through
pop bp
pop di
pop si
mov ax,1 ; return success
jmp viddone
;
; int 42 - 'old' video bios entry point. Use same windowed/fullscreen
; redirection as Int 10 above.
;
int42h_vector:
cmp use_host_int10, FULLSCREEN
jz maybe_host_42_bios
bop 10h ; old video bop
jmp iret_com
; If it's the special BIOS print string function, don't call the
; host video BIOS cos it won't know what we are talking about.
; It's only in our video BIOS.
maybe_host_42_bios:
cmp AH, 013h
jnz gogo_host_42_bios
cmp AL, 0ffh
jz ms_wrt_string ; reuse path from Int 10
gogo_host_42_bios:
db 0EAh ; far jump
host_int42 dd ? ; to native int 42 vector
int10h_caller:
int 10h ; Re-entrant video entry point.
bop 0feh
int11h_vector: ; Equipment check.
bop 11h
jmp iret_com
int12h_vector: ; Get memory size, copied from BIOS2.ASM
bop 12h
jmp iret_com
; IVT 13 is floppy io, grabbed above to fake error status.
int14h_vector: ; RS-232 serial comms, copied from BIOS2
bop 14h
jmp iret_com
; Int 15 cassette io, is done above.
; Idle indicators- All word sized, and dword aligned
; Int 16 keyboard vector
align 4
public Icounter,CharsPerTick,MinTicks
Icounter dw 0
dw 0
CharsPerTick dw 0
dw 0
MinTicks dw 50
dw 0
int16h_vector:
push ds
push bx
mov bx, 40h ; bios data adressable
mov ds, bx
cmp ah, 10h
call DOCLI ; make sure interrupts are off
jb i16vStdFns
jmp i16vExtFns
; The dispatch code must preserve the jz,dec,dec pattern
; to return the same ah value as is returned by the
; standard bios (0 for supported unless otherwise documented
; and nonzero for unsupported). This is because some apps look
; at the ret value of ah even tho it is a side effect of the
; original dispatch code in the rom bios.
i16vStdFns:
or ah, ah
jz i16v00h ; read key, wait
dec ah
jz i16v01h ; read key no wait
dec ah
jz i16v02h ; get shift state
dec ah
jz i16viret ; we don't support ah=3, set kbd rate
dec ah
jz i16viret ; undefined function
dec ah
jz i16v05h ; push char into kbd buffer
; the rest are undefined\unsupported
; normal iret exit
i16viret:
pop bx
pop ds
jmp iret_com
; return shift state in al
i16v02h:
mov al, ds:[KB_FLAG]
jmp i16viret
i16v05h:
push si
mov bx, word ptr ds:[BUFFER_TAIL]
mov si, bx
call IncrBuffPtr
cmp bx, word ptr ds:[BUFFER_HEAD]
je i16v05h1
mov word ptr ds:[si], cx
mov word ptr ds:[BUFFER_TAIL], bx
mov al, 0
pop si
jmp i16viret
i16v05h1:
mov al, 1
pop si
jmp i16viret
; read a character, wait if none available
i16v00h:
mov bx, word ptr ds:[BUFFER_HEAD]
cmp bx, word ptr ds:[BUFFER_TAIL]
jne i16v00h1
call DOSTI
mov ax, 09002h
int 15h ; wait device
i16v00h0:
call DOCLI
mov bx, word ptr ds:[BUFFER_HEAD]
cmp bx, word ptr ds:[BUFFER_TAIL]
i16v00h1:
call UpdateLed
jne i16v00h2
call IdlePoll
jmp i16v00h0
i16v00h2: ; translate.....
mov ax, [bx]
call IncrBuffPtr
mov word ptr ds:[BUFFER_HEAD], bx
call TranslateStd
jc i16v00h0
call IdleInit
jmp i16viret
; read a character, nowait if none available
i16v01h:
mov bx, word ptr ds:[BUFFER_HEAD] ;;maybe should turn IF on ??
cmp bx, word ptr ds:[BUFFER_TAIL]
mov ax, [bx]
call UpdateLed
je i16vretf1
call IdleInit
call TranslateStd
call DOSTI
jnc i16vretf5 ; got a key, all done!
call IncrBuffPtr ; throw away key
mov word ptr ds:[BUFFER_HEAD], bx
jmp i16v01h ; go for the next one
; ExtKbd read a character, nowait if none available
i16v11h:
mov bx, word ptr ds:[BUFFER_HEAD] ;;maybe should turn IF on ??
cmp bx, word ptr ds:[BUFFER_TAIL]
mov ax, [bx]
call UpdateLed
je i16vretf1 ; common retf stuff for nowait
call IdleInit
call TranslateExt
call DOSTI
jmp i16vretf5
; retf2 exit preserving flags
i16vretf1:
call DOSTI
push ax
lahf
push ax
mov ax, cs:Icounter
cmp ax, cs:MinTicks
jb i16vretf2
mov ah, 1 ; polling kbd, idle now
BOP 16h
jmp i16vretf4
i16vretf2:
inc cs:CharsPerTick
i16vretf4:
pop ax
sahf
pop ax
i16vretf5:
pop bx
pop ds
retf 2
i16vExtFns:
sub ah, 10h
jz i16v10h ; extended read key, wait
dec ah
jz i16v11h ; extended read key, nowait
dec ah
jz i16v12h ; extended shift status
jmp i16viret ; undefined
; return extended shift state
i16v12h:
mov al, ds:[KB_FLAG_1]
mov ah, al
and al, SYS_SHIFT
push cx
mov cl, 5
shl al, cl
pop cx
and ah, NOT (SYS_SHIFT+HOLD_STATE+INS_SHIFT)
or al, ah
mov ah, ds:[KB_FLAG_3]
and ah, NOT (LC_E1+LC_E0)
or ah, al
mov al, ds:[KB_FLAG]
jmp i16viret
; ExtKbd read a character, wait if none available
i16v10h:
mov bx, word ptr ds:[BUFFER_HEAD]
cmp bx, word ptr ds:[BUFFER_TAIL]
jne i16v10h1
call DOSTI
mov ax, 09002h
int 15h ; wait device
i16v10h0:
call DOCLI
mov bx, word ptr ds:[BUFFER_HEAD]
cmp bx, word ptr ds:[BUFFER_TAIL]
i16v10h1:
call UpdateLed
jne i16v10h2
call IdlePoll
jmp i16v10h0
i16v10h2: ; translate.....
mov ax, [bx]
call IncrBuffPtr
mov word ptr ds:[BUFFER_HEAD], bx
call TranslateExt
call IdleInit
jmp i16viret
; IdlePoll - Spins waiting for a key, doing idle callouts as needed
; flags trashed, all registers preserved
; interrupts are left on upon exit
;
IdlePoll proc near
push ax
call DOSTI
mov ah, 2 ; Idle_waitio
BOP 16h
IPoll1:
mov bx, word ptr ds:[BUFFER_HEAD]
cmp bx, word ptr ds:[BUFFER_TAIL] ; interrupts are off only
jne IPoll3 ; safe to peek for change
mov ax, cs:Icounter
cmp ax, cs:MinTicks
jae IPoll2
inc cs:CharsPerTick
jmp IPoll1
IPoll2:
mov ah, 1 ; idle now
BOP 16h
IPoll3:
pop ax
ret
IdlePoll endp
; IdleInit - reinits the idle indicators, dups functionality
; of IDLE_init()
;
IdleInit proc near
mov cs:Icounter, 0
mov cs:CharsPerTick, 0
ret
IdleInit endp
; TranslateExt - Retrieves and translates next scan code
; pair for extended kbd
;
; input: ax - raw scan code pair
; output: ax - translated scan code pair
;
; all other flags,registers preserved
TranslateExt proc near
push bx
push ax
lahf
mov bx, ax
pop ax
push bx
cmp al, 0f0h
jne TExt1
or ah, ah
jz TExt1
xor al, al
TExt1:
mov bx, ax
pop ax
sahf
mov ax, bx
pop bx
ret
TranslateExt endp
; TranslateStd - Retrieves and translates next scan code
; pair for standard kbd
;
; input: ax - raw scan code pair
; output: ax - translated scan code pair
; returns carry for throw away
; all other flags,registers preserved
TranslateStd proc near
push bx
push ax
lahf
mov bx, ax
pop ax
push bx
cmp ah, 0e0h
jne TStd1
; keypad enter or '/'
mov ah, 1ch ; assume enter key
cmp al, 0dh
je TStdNoCarry
cmp al, 0ah
je TStdNoCarry
mov ah, 35h ; oops it was key pad!
jmp TStdNoCarry
TStd1:
cmp ah, 84h
ja TStdCarry ; extended key ?
cmp al, 0f0h ; fill in key ?
jne TStd2
or ah, ah ; ah = 0 is special
jz TStdNoCarry
jmp TStdCarry
TStd2:
cmp al, 0e0h ; convert to compatible output
jne TStdNoCarry
or ah, ah
jz TStdNoCarry
xor al, al
TStdNoCarry:
mov bx, ax
pop ax
sahf
mov ax, bx
pop bx
clc
ret
TStdCarry:
mov bx, ax
pop ax
sahf
mov ax, bx
pop bx
stc
ret
TranslateStd endp
; IncrBuffPtr - increments the buffer pointer
;
; input: ds:bx - curr buf ptr
; output: ds:bx - new buf ptr
; does not update the bios buf ptr
IncrBuffPtr proc near
inc bx
inc bx
cmp bx, word ptr ds:[BUFFER_END]
jne ibpExit
mov bx, word ptr ds:[BUFFER_START]
ibpExit:
ret
IncrBuffPtr endp
; UpdateLed - forms the data byte for the mode indicators
; updates the led bits (MAKE_LED,SEND_LED)
;
; input: none
; output: led bits updated
;
; Caveats: all low flags,registers preserved
; MUST be called with interrupts off
; does not update the kbd hardware (send_led)
;
UpdateLed proc near
push bx
push cx
push ax
lahf
push ax
; make_led
mov al, byte ptr ds:[KB_FLAG] ; get led bits
and al, CAPS_STATE+NUM_STATE+SCROLL_STATE
mov cl, 4
rol al, cl ; shift for kb_flag_2
and al, KB_LEDS ; only led mode bits
mov bl, byte ptr ds:[KB_FLAG_2]
xor bl, al ; see of different
and bl, KB_LEDS ; only led mode bits
jz UledExit
test byte ptr ds:[KB_FLAG_2], KB_PR_LED ;if update under way
jnz ULedExit ; skip update
or byte ptr ds:[KB_FLAG_2], KB_PR_LED ;else upd in progress
mov ah, 3 ; inform softpc to set lights
BOP 16h
and byte ptr ds:[KB_FLAG_2], NOT KB_LEDS ;clear led bits
or byte ptr ds:[KB_FLAG_2], al ;stick in new led bits
and byte ptr ds:[KB_FLAG_2], NOT KB_PR_LED ;clear upd bit
ULedExit:
pop ax
sahf
pop ax
pop cx
pop bx
ret
UpdateLed endp
; IVT 17 is printer IO, done above.
int18h_vector: ; ROM BASIC, copied from BIOS2.ASM
bop 18h
jmp iret_com
int19h_vector: ; reboot vector, we terminate vdm!
bop 19h
jmp iret_com
IdleTicLo dw 0
IdleTicHi dw 0
IdleTicNum db 0
int1Ah_vector: ; Time of day.
call DOSTI
cmp ah, 2
jl i1aTic1
bop 1ah
jmp iret_com
i1aTic1:
push ds ; bios data adressable
push bx
push ax
mov ax, 40h
mov ds, ax
pop ax
call DOCLI
or ah, ah ; fn 0 or fn 1 ?
jnz i1aTic5
i1aTic2:
mov al, byte ptr ds:[TIMER_OVFL] ; GetTickCount
mov cx, word ptr ds:[TIMER_HIGH]
mov dx, word ptr ds:[TIMER_LOW]
; If time stamp is within 1 tic of curr tic count
; do idle polling managment
cmp cs:IdleTicHi, cx ; check TIMER_HIGH
jnz i1aTic8
mov bx, cs:IdleTicLo ; check TIMER_LOW
cmp bx, dx
jz i1aTic3
inc bx
cmp bx, dx
jnz i1aTic8
i1aTic3:
inc cs:IdleTicNum ; Yes, inc poll count
cmp cs:IdleTicNum, 16 ; Is poll count too hi ?
jb i1aTic9
call DOSTI
xor ax,ax ; Yes, do idle BOP
dec cs:IdleTicLo ; make sure only bop once
BOP 5ah
call DOCLI
jmp short i1aTic2
i1aTic5:
mov word ptr ds:[TIMER_LOW], dx ; SetTickCount
mov word ptr ds:[TIMER_HIGH], cx
i1aTic8:
mov cs:IdleTicNum, 0 ; reset idle indicators
i1aTic9:
mov cs:IdleTicLo, dx ; store time stamp
mov cs:IdleTicHi, cx
mov byte ptr ds:[TIMER_OVFL], 0 ; common TicCount exit
pop bx
pop ds
jmp iret_com
; IVT 1B is keyboard break, set to dummy.
int1Eh_vector:
bop 1eh
jmp iret_com
int70h_vector: ; Real time clock, copied from BIOS1.ASM
bop 70h ; rtc_bios.c:rtc_int()
jmp iret_com
int4Ah_caller:
call DOSTI ; Called from base\bios\rtc_bios.c:rtc_int()
int 4ah ; User installed alarm.
jmp r1
r1: jmp r2
r2: jmp r3
r3:
call DOCLI
bop 0feh
int71h_vector: ; redirect, copied from BIOS1.ASM
bop 71h
int 0Ah
jmp iret_com
int75h_vector: ; NPX 287.
bop 75h
int 02h
jmp iret_com
;=================================================================
; End of pseudo-ROM vectuz.
;=================================================================
;================================================================
; Wait for interrupts
;================================================================
cpu_nop_code:
call DOSTI
jmp short nxt1
nxt1: jmp short nxt2
nxt2: jmp short nxt3
nxt3: bop %BIOS_CPU_QUIT
public SpcKbdEnd
SpcKbdEnd label byte
align 4 ;; makes MIPS happy
; offset table for redirected functions
kio_table dw 29 dup(?)
public InstSpcKbd
;
; InstSpcKbd - Installs the softpc custom interrupt hooks
;
; Inputs: ds == Resident location of SysInitSeg
; Outputs: None
;
InstSpcKbd proc near
pusha
call DOCLI
; The following vectors are used for both x86\mips
; The dos interrupts Int 25\Int26 are handled by the dos kerenl
xor ax, ax
mov es, ax
mov word ptr es:[08h*4], offset int08h_vector
mov word ptr es:[(08h*4)+2], ds
mov word ptr es:[09h*4], offset int09h_vector
mov word ptr es:[(09h*4)+2], ds
mov word ptr es:[13h*4], offset int13h_vector
mov word ptr es:[(13h*4)+2], ds
mov word ptr es:[16h*4], offset int16h_vector
mov word ptr es:[(16h*4)+2], ds
mov word ptr es:[40h*4], offset int40h_vector
mov word ptr es:[(40h*4)+2], ds
mov word ptr es:[19h*4], offset int19h_vector
mov word ptr es:[(19h*4)+2], ds
mov word ptr es:[1ah*4], offset int1Ah_vector
mov word ptr es:[(1ah*4)+2], ds
; BOP 5F - send interesting addresses to softpc C BIOS
; CS seg of kio_table
; DS seg of resident keyboard code
; DI offset of bop table
; CX size of bop table entry
; SI offset of kio_table
mov si,offset sysinitgrp:kio_table
push ds
push cs
pop ds
mov word ptr [si], offset shift_keys ;K6
mov word ptr [si+2], offset shift_masks ;K7
mov word ptr [si+4], offset ctl_n_table ;K8
mov word ptr [si+6], offset ctl_f_table ;K9
mov word ptr [si+8], offset lowercase ;K10
mov word ptr [si+10], offset uppercase ;K11
mov word ptr [si+12], offset alt_table ;K30
mov word ptr [si+14], offset dummy_vector
mov word ptr [si+16], offset print_screen_caller
mov word ptr [si+18], offset int15h_caller
mov word ptr [si+20], offset cpu_nop_code
mov word ptr [si+22], offset int15h_vector
mov word ptr [si+24], offset Icounter
mov word ptr [si+26], offset int4Ah_caller
mov word ptr [si+28], offset keyboard_break_caller
mov word ptr [si+30], offset int10h_caller
mov word ptr [si+32], offset int10h_vector
mov word ptr [si+34], offset use_host_int10
mov word ptr [si+36], offset ega_parm_setup
mov word ptr [si+38], offset changing_mode
mov word ptr [si+40], offset prt_status
mov word ptr [si+42], offset wait_int
mov word ptr [si+44], offset floppy_table
mov word ptr [si+46], offset vga_1b_table
mov word ptr [si+48], offset conf_table
mov word ptr [si+50], offset int08h_vector
mov word ptr [si+52], offset int13h_vector
mov word ptr [si+54], offset int13h_caller
; The last entry is reserved for assertion checking
mov word ptr [si+56], VERSIONID
pop ds
; mov si, offset kio_table
mov di, offset iret_bop_table
mov cx, offset iret_end_first_entry - offset iret_bop_table
mov ax, VERSIONID
bop 5fh
jc isk_int9
jmp isk_Exit
isk_int9:
; save old video int
xor ax, ax
mov es, ax
mov bx, es:[40h]
mov si, offset host_int10
mov word ptr ds:[si], bx
mov bx, es:[42h]
mov word ptr ds:[si+2], bx
; save old secondary video int (42h)
mov bx, es:[108h]
mov si, offset host_int42
mov word ptr ds:[si], bx
mov bx, es:[10ah]
mov word ptr ds:[si+2], bx
;-----------------------------------------------------------
;
; Crazy vector grabber
;
; Works OK on DEC PC when grab INT's 6, 11, 16, 17, 42.
; Now try and avoid all accesses to host ROM.
;
; At this point we assume ES=0
;-----------------------------------------------------------
; Grab some prominent vectors for pseudo-ROM routines.
; start at Int 0h and work our way up as needed
cld
mov di, 20
mov ax, offset int05h_vector ; INT 05h
stosw ; Print screen
mov ax, ds
stosw
mov ax, offset int06h_vector ; INT 06h
stosw ; Illegal instruction.
mov ax, ds
stosw
mov ax, offset unexp_int ; INT 07h
stosw
mov ax, ds
stosw
; int 8h Timer hardware vector already done for both x86\mips
; int 9h kbd hardware vector already done for both x86\mips
add di, 8
mov ax, offset unexp_int ; INT 0ah
stosw
mov ax, ds
stosw
mov ax, offset unexp_int ; INT 0bh
stosw
mov ax, ds
stosw
mov ax, offset unexp_int ; INT 0ch
stosw
mov ax, ds
stosw
mov ax, offset unexp_int ; INT 0dh
stosw
mov ax, ds
stosw
mov ax, offset int0e_vector ; INT 0eh
stosw ; Floppy hardware int.
mov ax, ds
stosw
mov ax, offset unexp_int ; INT 0fh
stosw
mov ax, ds
stosw
mov ax, offset int10h_vector ; INT 10h
stosw
mov ax, ds
stosw
mov ax, offset int11h_vector ; INT 11h
stosw ; Equipment check.
mov ax, ds
stosw
mov ax, offset int12h_vector ; INT 12h
stosw ; Get memory size.
mov ax, ds
stosw
; int 13h already done (see above) for both mips\x86
mov di, 14h*4 ; Communications.
mov ax, offset int14h_vector
stosw
mov ax, ds
stosw
mov ax, offset int15h_vector ; INT 15h
stosw
mov ax, ds
stosw
; int 16h kbd hardware vector already done for both x86\mips
add di, 4
mov ax, offset int17h_vector ; INT 17h
stosw
mov ax, ds
stosw
mov ax, offset int18h_vector ; INT 18h
stosw ; ROM BASIC.
mov ax, ds
stosw
; int 19h (reboot vector) already done for both x86\mips
; int 1ah, time of day, already done for both x86\mips
mov di, 1Bh*4
mov ax, offset dummy_vector ; INT 1Bh
stosw ; Keyboard break.
mov ax, ds
stosw
mov ax, offset dummy_vector ; INT 1Ch
stosw ; Timer tick.
mov ax, ds
stosw
mov di, 1Eh*4 ; Floppy parameters.
mov ax, offset bios_floppy_table
stosw
mov ax, ds
stosw
; int 40h already done (see above) for both mips\x86
mov di, 41h*4
mov ax, offset unexp_int ; INT 41h
stosw ; Hard disk parameters.
mov ax, ds
stosw
mov ax, offset int42h_vector ; INT 42h
stosw ; Default video.
mov ax, ds
stosw
mov di, 70h*4 ; Real time clock init.
mov ax, offset int70h_vector
stosw
mov ax, ds
stosw
mov ax, offset int71h_vector ; INT 71h Redirect.
stosw
mov ax, ds
stosw
mov ax, offset intD11_vector ; INT 72h D11 int
stosw
mov ax, ds
stosw
mov ax, offset intD11_vector ; INT 73h D11 int
stosw
mov ax, ds
stosw
mov ax, offset intD11_vector ; INT 74h D11 int
stosw
mov ax, ds
stosw
mov ax, offset int75h_vector ; INT 75h 287 int
stosw
mov ax, ds
stosw
mov ax, offset intD11_vector ; INT 76h D11 int
stosw
mov ax, ds
stosw
mov ax, offset intD11_vector ; INT 77h D11 int
stosw
mov ax, ds
stosw
isk_Exit:
call DOSTI
popa
ret
InstSpcKbd endp
SpcKbdSeg ends
end
Reference in a new issue Copy permalink