AT&T Personal Computer 6300 Plus - ROM-BIOS Listing

©1986AT&T 

All Rights Reserved 

Printed in USA 

NOTICE 

The information in this document is subject to change without notice. AT&T assumes no responsibility 

for any errors that may appear in this document. 

CDC and WREN are trademarks of Control Data Corporation 

IBM is a registered trademark of International Business Machines 

Micropolis is a trademark of Micropolis Corporation 

MS-DOS is a registered trademark of Microsoft Corporation 

Seagate is a registered trademark of Seagate Technology 

UNIX is a registered trademark of AT&T

ROM BIOS Listing 

Index 

CONTENTS 

ROM BIOS Listings



This manual contains the ROM BIOS listing for the AT&T Personal Computer 6300 PLUS. The 

Basic Input/Output System (BIOS) is located in the Read-Only Memory (ROM) on the PC 6300 

PLUS motherboard. The ROM BIOS serves as an interface between the computer system and 

the input/output devices connected to the system ports. The information supplied by the ROM 

BIOS controls these devices. During normal operation, the ROM BIOS operates much like a 

driver that is resident in the PC 6300 PLUS memory space. 

The index that follows the listing lets you quickly locate specific information. 

ROM BIOS Listing 1-1


= 0000 

= 0001 

= 0000 

= 0001 

= 0002 

= 0004 

0000 

cooo 

cooo 

cooo 00 

C001 07 

C002 E297 R 

C004 

C004 

C004 E8 E548 R 

C007 CB 

C008 E8 ESSF R 

1-2 

.LIST ;END LISTING HERE FOR LIST 1 - START FOR LIST 1 

Macro Definitions 

MASM does not let you code a 'jump intersegment direct' instruction, so 

this macro simulates that instruction. 

jmpf macro arg1,arg2 

db OEAh 

dw arg2 

dw arg1 

endm 

'' 

USAGE: jmpf seg,off 

; EQU's to include correct code for varying hardware versions% 

BETA equ 

G4TOD equ 

Oh 

01h 

; EQU's to help you set rom_id variable for UNIX% 

GEN3 

TOO 

EQU 

EQU 

NEWFLOP EQU 

DMACCEL EQU 

0 

2 

4 

Code Declaration 

; ; non-zero for a beta test unit asm% 

; non-zero for a GEN4 TOO fix% 

NORMAL GEN 3 UNIT 

GEN 4 TIME OF DAY CHIP INSTALLED 

NEW FLOPPY CIRCUITRY INSTALLED 

DMA ACCELERATOR INSTALLED 

code segment public 'ROM' ; link code segments first 

assume cs:code, ds:nothing, es:nothing, ss:nothing 

ORG OCOOOh 

flags_data1 proc 

chk lo db 0 ; space for checksum of FOOO:COOO to FOOO:DFFF 

rom id db TOO or NEWFLOP or DMACCEL ; ROM identifier. 

;rom id db 0 ROM identifier. 

rom mt dw mas tab ; offset of mastab in ROM. 

flags_data1 endp 

far calls proc far far call table: the user does a far call to 

FOOO:COXX, a near call is done to the proper 

routine, and a far return back to the user. 

extrn bios install:near ;for w.d. hdu% 

extrn wx2 fmt:near for w.d. format in bios% 

- 

call DString FOOO:C004 (3 bytes per near call) 

ret (1 byte per far return) 

call DCrLf FOOO:C008 

ROM BIOS Listing

COOB CB 

cooc E8 E56C R 

COOF CB 

C010 E8 E578 R 

C013 CB 

C014 E8 E582 R 

C017 CB 

C018 E8 E589 R 

C01B CB 

C01C E8 E596 R 

C01F CB 

C020 E8 ESAB R 

C023 CB 

C024 E8 ESB3 R 

C027 CB 

C028 E8 E52A R 

C02B CB 

C02C E8 E1CO R 

C02F CB 

C030 E8 E22F R 

C033 CB 

C034 E8 0000 E 

C037 CB 

C038 E8 0000 E 

C03B CB 

C03C 0912 R 

C03E 0000 

C040 43 4F 50 59 52 49 

47 48 54 20 28 43 

29 20 20 20 

coso 4F 4C 49 56 45 54 

C060 

C060 

54 49 20 31 39 38 

34 20 20 20 


ret 

call DColon 

ret 

call DHexLong 

ret 

call DHexWord 

ret 

call DHexByte 

ret 

call DHexNib 

ret 

call DNum 

ret 

call DNumW 

ret 

call rom checksum 

ret 

call rtc chk 

ret 

call memtst 

ret 

call bios install 

ret 

call wx2 fmt 

ret 

dw offset banner m 

dw 0 

db 'COPYRIGHT (C) 

db 'OLIVETTI 1984 

far calls endp 

code ends 

:include flags.asm 

C include sysdata.asm 

c 

c 

c 

c 

c 

c 

c 

Includes of Assembly Modules 

NAME DATE ACTION 

FOOO:COOC 

FOOO:C010 

FOOO:C014 

FOOO:C018 

FOOO:C01C 

FOOO:C020 

FOOO:C024 

FOOO:C028 

FOOO:C02C 

FOOO:C030 

FOOO:C034% 

FOOO:C038% 

pointer to banner 


For aligning the copyright message. 

(this module) 

c ·====================================================================== 

c 

c 

Filename: sysdata.src 

1-3


= 0000 

= 0030 

= 0040 

= BODO 

= B800 

= FOOD 

= 0007 

= 0008 

= 0000 

= OOOA 

= 0000 

= 0000 

= 0001 

= 0002 

= 0003 

= 0004 

= 0005 

= 0006 

= 0007 

= 0008 

= 0008 

= 0009 

= OOOA 

= OOOB 

= oooc 

= 0000 

= 0000 

= OOOE 

= OOOF 

= 0080 

= 0082 

= 0081 

= 0083 

1-4 

C This is the port equate and system data definition module. 

c (See flags.src for conditional assembly flags ... ) 

c 

c ·====================================================================== 

c 

c --------------------------------------------------------------------c 

Global Constants 

c --------------------------------------------------------------------c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

absO_seg 

stack_seg 

data_seg 

para_mono 

para_graph 

code_seg 

BEL 

BS 

CR 

LF 

NUL 

equ OOOOOh 

equ 00030h 

equ 00040h 

equ OBOOOh 

equ OB800h 

equ OFOOOh 

equ 007h 

equ 008h 

equ OOOh 

equ OOAh 

equ 0 

c .---------------------------------------------------------------------- 

c PC6300 PLUS Addresses 

c .---------------------------------------------------------------------- 

c 

c .---------------------------------------------------------------------c 

i8237A p dma Controller Port Addresses 

c .---------------------------------------------------------------------- 

c dma addr 0 equ DOh 16-bit address register - channel 0 - 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

dma count 0 equ 01h 16-bit count register 

- - 

refresh 

dma addr 1 equ 02h 16-bit address register - channel 1 - not used 


dma addr 2 equ 04h 16-bit address register - channel 2 - FOU 


dma addr 3 equ 06h 16-bit address register - channel 3 - display 


dma status equ 08h 8-bit read status register 

dma command equ 08h 8-bit write command register 

dma_request equ 09h 4-bit write request register 

dma mask bit equ OAh 4-bit (write) set/clear one mask register bit 

dma mode equ OBh 6-bit write mode register 

dma ff clr equ OCh (write) clear byte pointer flip/flop 

dma temp equ DOh 8-bit read temporary register 

dma master clr equ DOh (write) master clear command 

dma mask clr equ OEh 4-bit (write) clear all mask register bits 

- 

dma mask write equ OFh 4-bit write all mask register bits at once 

dma_segm_O equ 080h RAM refresh - 4x4-bit high nibble segment port 

dma_segm_1 equ 082h not used 

dma_segm_2 equ 081h FOU 

dma_segm_3 equ 083h display TEMP 


= 0004 

= DODO 

= 0058 

= 0041 

= 0056 

= 0043 

= DODO 

= 0020 

= 0021 

= 0013 

= 0008 

= 0008 

= DODD 



c 

c 

c .--------------------------------------------------------------------c 

i8237A p dma controller constants 

c .--------------------------------------------------------------------c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

dma command port: 

dma cmd disable equ 

dma cmd enable equ 

dma mode 0 equ 




dma mask bit port: 

dma unmask 0 equ 

004h 

OOOh 

058h 

041h 

056h 

043h 

ODDh 

bit #0: memory-to-memory/-I/0 enable 

bit #2: controller disable 

bit #3: compressed/-normal timing 

bit #4: rotating/-fixed priority 

bit #5: extended/-late write selection 

bit #6: DREQ active low/-high 

bit #7: DACK active high/-low 

controller disable (bit #2) command 

memory-to-I/O,controller enable,normal 

fixed priority, late write, DREQ/-DACK 

channel D, read, autoinitialize, inc 

rement, single mode for RAM refresh. 

channel 1, verify, autoinit disabled, 

increment, single mode for not used. 

channel 2, write, autoinitialize, inc 

rement, single mode for FDU. 

channel 3, verify, autoinit disabled, 

increment, single mode for display. 

bits #0-1: channel select 

bit # 2: set/-clr mask bit (off/-on) 

turn on channel 0 for RAM refresh. 

c .---------------------------------------------------------------------c 

i8259A Programmable Interrupt Controller Port Addresses 

c .--------------------------------------------------------------------c 

c pic o 

c pic 1 

c 

equ 

equ 

020h 

021h 

8259A 'control' port (AD= D) 

8259A 'data' port (AD = 1) 

c .---------------------------------------------------------------------- 

c i8259A Programmable Interrupt Controller Commands 

c .--------------------------------------------------------------------c 

C pic icw1 

c 

c 

c 

c 

c 

c 

c pic icw2 

C pic icw3 

c 

C pic_icw4 

c 

equ 013h ICW1 for both master & slave pic's 

equ 

equ 

008h 

008h 

equ OODh 

bit #0 = 1: ICW4 to follow (w/vector base) 

bit #1 = 1: single mode (no slaves or icw3) 

bit #2 = 0: call address interval of 8 bytes 

(don't care if 8086 mode -- always vectors 4 

byte interval) 

bit #3 = 0: edge triggered 

interrupt vector base address (INTs 08h - OFh) 

if cascade mode , and IR3 is a 

slave, 8259A is reprogrammed including icw3 

bit #0 = 1: 8086 mode 

bit #1 = 0: normal end of int 

1-5


= DOFF 

= 0020 

= 0060 

= 0061 

= 0066 

= 0040 

= 0041 

= 0042 

= 0043 

= 0036 

= 0074 

= OOB6 

= DODO 

= 0013 

= 0266 

1-6 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

pic_off_msk 

pic neoi 

pic seoi o 

pic seoi 1 

pic seoi_6 

equ 

equ 

equ 

equ 

equ 

OFFh 

020h 

060h 

061h 

066h 

bit #2 = 1: specify master for buffered mode 

( specifies slave for buffered mode ) 

bit #3 = 1: buffered mode 

bit #4 = 0: not special fully nested 

pic interrupt mask bits (all interrupts off) 

non-specific end-of-interrupt 

specific end-of-interrupt for IRO: i8254 p timer 

specific end-of-interrupt for IRO: i8041A kb 

specific end-of-interrupt for IR6: fdu 

c .---------------------------------------------------------------------c 

i8254 p timer Port Addresses 

c ---------------------------------------------------------------------- 

c 

c p 8253 0 

c p 8253 1 

c p 8253 2 

C p 8253 ctrl 

equ 

equ 

equ 

equ 

040h 

041h 

042h 

043h 

8254 p timer 0 - rtc interrupt - IRO = INT 08h 

8254 p timer 1 -memory refresh p_dma 

8254 p timer 2 - tone generator for speaker 

8254 p timer control port 

c 

c .---------------------------------------------------------------------- 

C i8254 p timer Control Bytes 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

bit #0 

bits #1-3 

bits #4-5 

bits #6-7 

-> Binary Code Decimal (BCD) Enable 

-> Mode (0-5) 000 Mode 0: Interrupt on Terminal Count 

001 

x10 

x11 

100 

-> Read/Load Instruction (0-3) 

-> Select Counter (0-2) 

Mode 1: Programmable One-Shot 

Mode 2: Rate Generator 

Mode 3: Square Wave Rate Generator 

Mode 4: Software Triggered Strobe 

101 Mode 5: Hardware Triggered Strobe 

·---------------------------------------------------------------------- 

tOcmd equ 036h 00 11 011 0 -> p 8253 0, lsb 1st, mode 3, 

t1cmd equ 074h 01 11 010 0 -> p 8253 1' lsb 1st, mode 2, 

t2cmd equ OB6h 10 11 011 0 -> p 8253 2, lsb 1st, mode 3, 

c .---------------------------------------------------------------------- 

C i8254 p timer Counts 

c 

c 

c 

c 

8254 input is 1.2288 MHz (3.6864/3) or a period of 813.8 nsec = 0.814 usee 

Note: PC input is 1.19318 MHz or a period of 838.1 nsec = 0.838 usee 

c ·---------------------------------------------------------------------- 

c tOcount equ 0 = 65,536 -> (1,228,800 Hz)/(65,536) = 18.75 ints/sec 

C -> (1,193, 180 Hz)/(65,536) = 18.21 ints/sec 

c 

C ;t1count equ 

c 

c t1count equ 

c 

c 

C t2count equ 

9 

19 

614 

OLD refresh cycle= 9*(813.8 nsec) = 7.32 usee 

REAL refresh cycle = 19*(813.8 nsec) = 15.5 usee 

< 15.625 usee minimum required. ( is 18 - safety??) 

(1.2288 MHz)/(2*614) = 1.00 kHz tone 

no BCD 

no BCD 

no BCD 


= 0050 

= 0052 

= 0060 

= 0061 

= 0064 

= 0062 

= 0065 

= 0066 

= 0067 

= 0080 

= OOAO 

= 3F60 


c 


c .---------------------------------------------------------------------- 

c 

c 

c 

Z8530 Serial Communication Controller 

(8530 not used in the 6300 PLUS) 

C (sec data_x port addresses are indexed from the sec ctl x 

C port addresses. See com.scr) 

c .--------------------------------------------------------------------c 

C sec ctl a 

C sec ctl b 

equ 

equ 

050h write to SCC pointer register (0-Fh), 

052h then read or write from selected register. 

c 

c .---------------------------------------------------------------------- 

C 8041 Keyboard Controller 

c .---------------------------------------------------------------------- 

c p kscan equ 060h 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

p kctrl equ 061h bit #7: reset interrupt pending 

bit #6: kb clock reset 

bit #5: I/0 channel (NMI) enable 

bit #4: RAM parity (NMI) enable 

bits #3 & #2: not used 

bit #1: speaker data 

bit #0: speaker gate to p_8253 2 

kb status equ 064h bit #1: input buffer (ok to write byte) 

bit #0: output buffer (byte to be read) 

c ·---------------------------------------------------------------------c 

General Control Ports 

c ·---------------------------------------------------------------------- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ControlC equ 

CommControl equ 

sys_conf a equ 

sys_conf b equ 

nmi enable equ 

nmi enable port equ 

- - 

p trapce equ 

062h 

065h 

066h 

067h 

80h 

OAOh 

3F60h 

bit #7: Ram parity check. 

bit #6: I/0 channel parity check. 

bit #1: 80287 installed 

bit #7: 27128/-27256 ROM's 

bit #6 - 0 = use indiginous HDU code. 

1 = do not use indiginous HDU code. 

bit #5: not used 

bit #4 - 0 = 80287 installed 

bits #3 - #0, RAM configuration 

bits #7 - #6: (number of FDUs)-1 

bits #5 - #4: reserved for monitor type 

bit #3 Most significant bit for HDU 

table entry selection drive 80h 

bit #2 Most significant bit for HDU 

table entry selection drive 81h 

bit #1: - 0 = 48 tpi FDU on Drive 0 

- 1 = 96 tpi FDU 

bits #0 - 0 = 48 tpi FDU on Drive 

- 1 = 96 tpi FDU 

trapce port for power on%% 

: : reset -- above board fix%% 

'' 

1-7


= 0080 

= 0040 

= 0020 

= 0010 

= 0009 

= 0008 

= 0006 

= 0004 

= 0003 

= 0002 

= 0001 

= oooc 

= OOOE 

= OOOF 

= 0001 

= 0000 

= 0025 

= 03F2 

= 03F4 

= 03F5 

= OOE6 

= DOCS 

= 004D 

1-8 

c 

c .---------------------------------------------------------------------c 

58274A Clock Calendar 

c 

C (See calendar. src) 

c .---------------------------------------------------------------------c 

c .---------------------------------------------------------------------c 

FDU & HDU Disk Driver Error Codes 

c ·---------------------------------------------------------------------- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

time out equ 

seek error equ 

fdc error equ 

- 

ere error equ 

- 

dma_seg_error equ 

dma error equ 

- 

media_change equ 

sect not found equ 

- - 

write protect equ 

addr mark error equ 

cmd error equ 

80h 

40h 

20h 

10h 

09h 

08h 

06h 

04h 

03h 

02h 

01h 

C ; ; ; ;; ; ;; ; ; ; ; ; ;; ; ; ; ;; ;; ; ; ; ; ; ; FDU EQUATES 

Controller constants 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

srt 48 equ 1100b 

f srt 96 equ 1110b 

f hut 

- 

f hlt 

equ 

equ 

1111b 

f ndma equ 0 

f motor wait equ 37 

f drive equ [bp+O] 

- 

f head equ [bp+1] 

f numsecs equ [bp+2] 

f command equ [bp+3] 

- 

f bufoff equ [bp+4] 

f secnum equ [bp+6] 

- 

f cyl equ [bp+7] 

f real drive equ [bp+8] 

Floppy Disk port addresses 

f motor port equ 03F2h 

f nee status equ 03F4h 

f nee data equ 03F5h 

Floppy Disk commands 

read cmd equ OE6h 

- 

f write cmd equ OC5h 

f format cmd equ 04Dh 

48TPI Step Rate Time (6 ms @ 4 Mhz) 

96TPI Step Rate Time (4 ms@ 4 Mhz) 

Head Unload Time (480 ms@ 4 Mhz) 

Head Load Time (4 ms@ 4 Mhz) 

Not DMA bit (0 = dma on) 

no. of RTC ticks before turning 

motor off. (f_motor wait x 55ms) 

byte pointer. 

byte pointer. 

byte pointer. 

byte pointer. 

word pointer. 

byte pointer. 

byte pointer. 

byte pointer. 

drive select port 

disk controller status port 

disk controller data port 

read data 

write data 

format 


= 0007 

= 0008 

= 0004 

= 0003 

= OOOF 

= 0201 

= 03BC 

= 0378 

= 0278 

= 0304 

= 03B4 


c 

c 

c 

c 

c 

c 

f recal cmd 

f snsint cmd 

f snsdrv cmd 

- 

f specify_cmd 

f seek cmd 

- 

equ 007h recalibrate 

equ 008h sense interrupt 

equ 004h sense drive 

equ 003h specify 

equ OOFh seek 


c ·---------------------------------------------------------------------c 

Game Card 

c .---------------------------------------------------------------------- 

c 

C game_card 

c 

equ 201h 

c .---------------------------------------------------------------------c 

Parallel Printer Interface 

c 

c (prt_stat_x & prt_cmd_x port addresses are indexed from the 

C prt_data_x port addresses. See prt.src.) 

c .---------------------------------------------------------------------- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

prt_data_a 

prt stat a 

; prt_cmd_a 

prt_data_b 

prt_stat b 

; prt cmd b 

prt data c 

prt stat c 

; prt_cmd_c 

equ 03BCh 

equ 03BDh 

equ 03BEh 

equ 0378h on mother board 

equ 0379h 

equ 037Ah 

equ 0278h 

equ 0279h 

equ 027Ah 

c .---------------------------------------------------------------------c 

Color and Monochrome Video Controller 

c 

C (xxxxx data, xxxxx_mode, xxxxx status, xxxxx LPclear, and 

C xxxxx_LPPreset port addresses are indexed from the xxxxx_Pointer 

C port addresses for color & display. See vid.src and graph.src.) 

c .---------------------------------------------------------------------c 

C ; Color Controller. 

c 

C color pointer equ 

c 

C ; Monochrome Controller. 

c 

C v_pointer equ 

c 

0304h 6845 pointer to internal regs 

03B4h ; 6845 pointer to internal regs 

c .---------------------------------------------------------------------c 

INS8250 Asynchronous Communication Chip 

c 

C (com_int x, com_lctl x, com_mctl x, com_lstat_x, and 

C com mstat_x port addresses are indexed from the com_data_x 

C port addresses. See com.src.) 

c .---------------------------------------------------------------------c 

1-9


006C ???????? 

0070 ???????? 

0074 ???????? 

0078 ???????? 

007C ???????? 

0080 

0000 

0000 

0000 

0000 04 [ 

0008 04 [ 

0010 ???? 

0012 ?? 

0013 ???? 

0015 02 

0017 ?? 

0018 ?? 

0019 ?? 

001A ???? 

001C ???? 

001E 10 

1-12 

???? 

???? 

?? 

???? 

c 

c 

c 

c 

c 

c 

c 

c 

int1Blocn 

int1Clocn 

int1Dlocn 

int1Elocn 

int1Flocn 

absO ends 

dd 

dd 

dd 

dd 

dd 

? kb break pointer 

? p timer break pointer 

? display parameter pointer 

? disk parameter pointer 

? graphics character extensions pointer 

c .--------------------------------------------------------------------c 

RAM stack 

c .--------------------------------------------------------------------c 

C stack ram 

c 

C stack ram 

c 

segment public 'RAM' at stack seg 

ends 

c .---------------------------------------------------------------------c 

System Data Area 

c .---------------------------------------------------------------------- 

c 

C data segment public 'RAM' ; at data_seg 

c assume cs:nothing, ds:nothing, es:nothing, ss:nothing 

c 

c .---------------------------------------------------------------------c 

Data Area 

c .---------------------------------------------------------------------- 

c 

c ROM Bios Data Area 

c 

C rs232 addr 

c 

c 

c 

C printer_addr 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

switch bits 

mfg_tst 

memory_size 

mfg err_ flag 

- 

dw 4 dup (?) 

dw 4 dup (?) 

dw ? 

db ? 

dw ? 

db 2 dup (?) 

Keyboard Data Area 

kb flag db ? 

kb flag 1 db ? 

alt input db ? 

buffer head dw ? 

buffer tail dw ? 

kb buffer dw 16 dup (?) 

0040:0000 addresses of rs232 adapters 

0040:0008 addresses of printers 

0040:0010 state of DIP switches 

0040:0012 initialization flag 

0040:0013 memory size in kbytes 

0040:0015 error codes for manufacturing 

0040:0017 keyboard shift flag status byte 

0040:0018 second byte of keyboard status 

0040:0019 alternate keypad entry 

0040:001A keyboard output pointer offset 

0040:001C keyboard input pointer offset 

0040:001E room for 15 entries: head = 


OOA2 ???????? 

OOA6 ???????? 

OOAA DC [ 

OOC2 04 [ 

OOCA ???? 

oocc ???? 

OOCE ???? 

DODO 

OOD2 ?? 

OOD3 

0000 

0000 

0000 

???? 


???? 

c 

C osmerge1 

c 

c 

C osmerge2 

c 

dd 

dd 

? 

? 

40:A2,A3 - offset return to UNIX% 

40:A4,A5 - segment return to UNIX% 

40:A6,A7,A8,A9 - extension% 


c .---------------------------------------------------------------------- 

( Protected mode data space% 

c .---------------------------------------------------------------------- 

( 

c gdt 

c 

c 

c 

???? c 

C gdtalias 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

dw 

dw 

12 dup (?) : space for gdt AA-C1 

4 dup (?) : gdt alias C2-C9 

seg fail dw ? segment fail protected mode RAM test 

CA-CB 

off fail dw ? offset fail protected mode RAM test 

cc-co 

dwrite dw ? data written for p-mode RAM test 

CE-CF 

dread dw ? data read for p-mode RAM test 

DO-D1 

addr db ? addr space 

data ends 

c .---------------------------------------------------------------------- 

[ Video RAM 

c .---------------------------------------------------------------------- 

[ 

C v ram segment public 'RAM' at para mono 

c 

C v ram ends 

code 

.LIST 

Filename: hdisk.asm 

This module includes the Western Digital Hard Disk 

controller code, wd hdu.asm and wd fmt.asm. 

Beta Release - 12/14/84 (path) 

segment common 'ROM' 


1-15


B831 

= 0021 

= 0013 

= 0001 

= 0002 

= 0009 

= 004C 

= 0007 

= 0011 

= 0012 

B840 

B840 

B840 

B841 

B843 

B845 

B848 

B84A 

1-16 

50 

8C C8 

8E D8 

BA B8E2 R 

B4 09 

CD 21 

C include wd fmt.asm 

C SUBTTL Format Winchester Disk 

C PAGE 62,132 

C Version 07 was integrated to our working version that resides on the 

C motherboard 

C Version 03 

c Bill Bailey 84/06/12 - 84/06/13 

C Version 02 

C Bob Hossley 84/04/10 - 84/04/12 

C Version 01 

c Bob Hossley 83/09/16 - 83/09/16 

c 

c 

c 

Call: JMP WX2 FMT 

C 

c 

Purpose: Format the specified drive with the specified interleave. 

C Entry: 

C (AH) = Relative number of target drive. Drive 80h + d is the target. 

C 

c 

(AL) =Interleave factor. 

C 

c 

c 

Exit: Job terminated. 

C CODE SEGMENT COMMON 'ROM' 

c 

C ASSUME CS:CODE,DS:CODE 

c 

C Interrupt Vectors 

C IVFC EQU 21H 

C IVDBC EQU 13H 

c 

C ; Function call numbers 

C FCKBIN EQU 1 

C FCDISB EQU 2 

C FCPRSTR EQU 

C FCTEND EQU 

c 

9 

04CH 

C ; Disk BIOS command codes 

C CCFD EQU 7 

C CCREC EQU 11H 

C CCRT EQU 12H 

c 

c 

c 

ORG 

OB840H 

C PUBLIC WX2 FMT 

C WX2 FMT PROC NEAR 

C ASSUME CS:CODE,DS:CODE 

c 

c 

c 

c 

c 

c 

c 

c 

PUSH 

MDV 

MOV 

MDV 

MOV 

INT 

AX 

AX,CS 

DS,AX 

DX,OFFSET MI 

AH,FCPRSTR 

IVFC 

;function call interrupt number 

:Disk BIOS call 

;keyboard input 

;display byte 

;print string 

;terminate 

;format drive 

;recal 

;ram test 

;drive offset & interleave factor 

;code segment pointer 

:init. data segment pointer 

;pointer to hello message 

;print string 

;function call 



B84C 58 c POP AX :Relative drive # & interleave factor 

B84D OA CO c OR AL,AL ;test for 0, change to 03H 

B84F 75 02 c JNZ SHORT NOCHG ;jmp if parameters specified 

B851 BO 03 c MDV AL,3 :drive C, interleave of 3 

B853 c NOCHG: 

B853 80 E4 07 c AND AH,07H ;mask drive number to 0 -- 7. 

B856 50 c PUSH AX :Save 

c ''' '' 

ADD AH, 'C' ;generate drive letter 

B857 80 C4 30 c ADD AH, '0' ;generate drive letter 

B85A 8A 04 c MDV DL,AH ;character to display 

B85C B4 02 c MDV AH,FCDISB ;display byte function call # 

B85E CD 21 c INT IVFC :Function call 

B860 BA B99F R c MDV DX,OFFSET MINT ;pointer to interleave message 

B863 B4 09 c MDV AH,FCPRSTR ;print string 

B865 CD 21 c INT IVFC ;function call 

B867 58 c POP AX ;Relative drive # & interleave factor 

B868 50 c PUSH AX ;Save 

B869 E8 B8C7 R c CALL OS BY HEX :display (AL) as two hex digits 

c 

- 

;Operator response 

B86C B4 01 c MDV AH,FCKBIN :keyboard input function call # 

B86E CD 21 c INT IVFC ;function call 

B870 3C 79 c CMP AL, 'y' ;" y" input? 

B872 74 DC c JE ZFMT ;br if yes. 

B874 3C 59 c CMP AL, 'Y' ;" Y" input? 

B876 74 08 c JE ZFMT ;br if yes. 

B878 58 c POP AX 

B879 BA B9EO R c MDV DX,OFFSET MNOD ; pointer to " Nothing Done Exit" 

B87C 2A FF c SUB BH,BH ;no error code 

B87E EB 30 c JMP SHORT ZNX2 ;terminate 

B880 c ZFMT: 

B880 58 c POP AX 

c .-------c 

do a ram test command to mess up the sector buffer 

c .-------c 

B881 8A 04 c MDV DL,AH ;so bios will do hard disk stuff 

B883 80 C2 8D c ADD DL,080H 

B886 8A E2 c MDV AH,DL ;save drive number in final form 

B888 50 c PUSH AX 

B889 B4 12 c MDV AH,CCRT ;command 

B88B CD 13 c INT IVDBC ;call disk bios 

B88D 8A FC c MDV BH,AH ;save error code 

B88F 72 1A c JC ERR ;if error 

c .-------c 

format the drive 

c .-------c 

B891 58 c POP AX :(AL) =interleave factor 

B892 50 c PUSH AX 

B893 2A F6 c SUB DH,DH ;zero head number 

B895 B9 0001 c MDV CX,1 ;sector 1. cylinder 0 

B898 B4 07 c MDV AH,CCFD :format drive command code 

B89A CD 13 c INT IVDBC ; call disk BIOS 

B89C 8A FC c MDV BH,AH ;save completion code 

B89E 72 DB c JC ERR ;jump if error 


1-17


c 

c 

c : recal before exiting 

c 

B8AO B9 0001 c MDV CX,1 ;sector 1, cylinder 0 

B8A3 B4 11 c MDV AH,CCREC ;recal command code 

B8A5 CD 13 c INT IVDBC ; call disk BIOS 

B8A7 8A FC c MDV BH,AH :save completion code 

B8A9 73 OF c JNC ZNX ;jump if no error 

B8AB 58 c ERR: POP AX 

B8AC BA B9C5 R c MDV DX,OFFSET MEC ;pointer to message 

B8AF B4 09 c MDV AH,FCPRSTR ;print string 

B8B1 CD 21 c INT IVFC :function call 

B8B3 8A C7 c MDV AL,BH ;error code 

B8B5 E8 B8C7 R c CALL OS BY HEX :display in hex 

B8B8 EB 07 c JMP SHORT ZTEND ;terminate 

c .-------c 

B8BA c ZNX: 

B8BA BA B9B1 R c MOV DX,OFFSET MSUC ;pointer to message 

B8BD c ZNX2: 

B8BD B4 09 c MOV AH,FCPRSTR ;print string 

B8BF CD 21 c INT IVFC :function call 

B8C1 c ZTEND: 

B8C1 8A C7 c MOV AL,BH ;completion code=return code 

B8C3 B4 4C c MOV AH,FCTEND ;terminate 

B8C5 CD 21 c INT IVFC :function call 

B8C7 c WX2 FMT ENDP 

c .--------c 

c Call: CALL OS BY HEX 

c return 

c 

c Entry: (AL) = byte to display 

c 

c Exit: AX, CL, DL changed. 

c 

B8C7 c OS BY HEX PROC NEAR 

B8C7 50 c PUSH AX ;save in stack 

B8C8 B1 04 c MDV CL,4 ;shift count 

B8CA 02 E8 c SHR AL,CL ;align MS 4 bits 

B8CC E8 B8D3 R c CALL ZHEX ;convert to hex 

B8CF 58 c POP AX ;byte to display 

B8DO EB 01 90 c JMP ZHEX ;convert to hex, display, & exit 

B8D3 c OS BY HEX ENDP 

c 

c Call: CALL ZHEX 

c return 

c 

c Entry: (AL) bits 0 - 3 = Nibble to display 

c 

c Exit: AX, DL changed. 

c 

B8D3 c ZHEX PROC NEAR 

B8D3 24 OF c AND AL,OFH ;mask to 4 bits 

1-18 ROM BIOS Listing

B8D5 04 90 c ADD AL,90H 

B8D7 27 c DAA 

B8D8 14 40 c ADC AL,40H 

B8DA 27 c DAA 

B8DB 8A DO c MDV DL,AL ;hex digit to display 

B800 B4 02 c MDV AH,FCDISB ;display byte function call # 

B8DF CD 21 c INT IVFC ;Function call 

B8E1 C3 c RET 

B8E2 c ZHEX ENDP 

c 

c 

B8E2 57 58 32 20 46 6F c MI DB 'WX2 Format Revision 3.0 (C) Copyright Western ' 

72 60 61 74 20 52 c 

65 76 69 73 69 6F c 

6E 20 33 2E 30 20 c 

28 43 29 20 43 6F c 

70 79 72 69 67 68 c 

74 20 57 65 73 74 c 

65 72 6E 20 c 

B910 44 69 67 69 74 61 c DB 'Digital Corp. 1984' ,ODH,OAH 

6C 20 43 6F 72 70 c 

2E 20 31 39 38 34 c 

DO OA c 

B924 20 20 2D 28 41 48 c DB (AH) =Relative drive number (0- 7)' ,ODH,DAH 

29 20 30 20 52 65 c 

6C 61 74 69 76 65 c 

20 64 72 69 76 65 c 

20 6E 75 60 62 65 c 

72 20 28 30 20 20 c 

20 37 29 DO OA c 

B94D 20 20 20 28 41 4C c DB (AL) =Interleave factor (3 is standard)' ,ODH,DAH 

29 20 3D 20 49 6E c 

74 65 72 6C 65 61 c 

76 65 20 66 61 63 c 

74 6F 72 20 28 33 c 

20 69 73 20 73 74 c 

61 6E 64 61 72 64 c 

29 DO OA c 

B97A 50 72 65 73 73 20 c DB 'Press " y" to begin formatting drive $' 

22 79 22 20 74 6F c 

2D 62 65 67 69 6E c 

2D 66 6F 72 60 61 c 

74 74 69 6E 67 20 c 

64 72 69 76 65 20 c 

24 c 

B99F 20 77 69 74 68 20 c MINT DB · with interleave $' 

69 6E 74 65 72 6C c 

65 61 76 65 20 24 c 

B9B1 DO OA 46 6F 72 60 c MSUC DB DDH,DAH, 'Format Successful$' 

61 74 20 53 75 63 c 

63 65 73 73 66 75 c 

6C 24 c 

B9C5 DO OA 45 72 72 6F c MEC DB DDH,DAH, 'Error---completion code $' 

72 20 20 20 63 6F c 

60 70 6C 65 74 69 c 




6F 6E 20 63 6F 64 c 

65 20 24 c 

B9EO DO OA 4E 6F 74 6S c MNOD DB ODH,OAH, 'Nothing Done Exit$' 

69 6E 67 20 44 6F c 

6E 65 20 45 7S 69 c 

74 24 c 

B9F4 3S 35 2F 30 31 2F c DB " SS/01/29" :release date 

32 39 c 

B9FC c CODE ENDS 

c END 

CD60 code segment public 'ROM' 


C060 font lo Sx16 label byte : 204S bytes 

c include fontlo16.asm 

C060 c fontlo16 proc near System Font Table for M24 

c 

C060 DO DO DO 00 DO DO c DB OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh 

00 00 c 

C06S 00 00 00 00 DO DO c DB OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh 0 

00 00 c 

COlO DO 00 7E S1 AS S1 c DB OOOh,OOOh,07eh,OS1h,Oa5h,OS1h,OS1h,Obdh 

S1 BD c 

C07S 99 S1 7E 00 00 00 c DB 099h,OS1h,07eh,OOOh,OOOh,OOOh,OOOh,OOOh 

00 00 c 

coso 00 00 7E FF DB FF c DB OOOh,OOOh,07eh,Offh,Odbh,Offh,Offh,Oc3h 

FF C3 c 

COSS E7 FF 7E 00 00 00 c DB Oe7h,Offh,07eh,DOOh,OOOh,OOOh,OOOh,OOOh 2 

00 00 c 

C090 00 00 00 36 7F 7F c DB OOOh,OOOh,OOOh,036h,07fh,07fh,07fh,07fh 

7F 7F c 

C09S 3E 1C OS 00 00 00 c DB 03eh,01ch,OOSh,OOOh,OOOh,OOOh,OOOh,OOOh 3 

00 00 c 

COAO 00 00 00 OS 1C 3E c DB OOOh,OOOh,OOOh,OOSh,01ch,03eh,07fh,03eh 

7F 3E c 

COAS 1C OS 00 00 00 00 c DB 01ch,OOSh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh 4 

00 00 c 

COBO 00 00 1S 3C 3C E7 c DB OOOh,OOOh,01Sh,03ch,03ch,Oe7h,Oe7h,Oe7h 

E7 E7 c 

COBS 1S 1S 3C 00 00 DO c DB 01Sh,01Sh,03ch,OOOh,OOOh,OOOh,OOOh,OOOh 5 

00 00 c 

coco DO 00 1S 3C 7E FF c DB OOOh,OOOh,01Sh,03ch,07eh,Offh,Offh,07eh 

FF 7E c 

cocs 1S 1S 3C 00 00 00 c DB 01Sh,01Sh,03ch,OOOh,OOOh,OOOh,OOOh,OOOh 6 

00 00 c 

CODO 00 00 00 00 00 1S c DB OOOh,OOOh,OOOh,OOOh,OOOh,01Sh,03ch,03ch 

3C 3C c 

coos 1S 00 DO 00 00 00 c DB 01Sh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh 7 

DO 00 c 

COED FF FF FF FF FF E7 c DB Offh,Offh,Offh,Offh,Offh,Oe7h,Oc3h,Oc3h 

C3 C3 c 

COES E7 FF FF FF FF FF c DB Oe7h,Offh,Offh,Offh,Offh,Offh,Offh,Offh s 

FF FF c 

COFO 00 00 00 DO 3C 24 c DB OOOh,OOOh,OOOh,OOOh,03ch,024h,042h,042h 

1-20 

42 42 c 



18 18 c 

C1D8 7E 3C 18 FF 00 00 c DB 07eh,03ch,018h,Offh,OOOh,OOOh,OOOh,OOOh 17 

00 00 c 

C1EO 00 00 18 3C 7E 18 c DB OOOh,OOOh,018h,03ch,07eh,018h,018h,018h 

18 18 c 

C1E8 18 18 18 00 00 00 c DB 018h,018h,018h,OOOh,OOOh,OOOh,OOOh,OOOh 18 

00 00 c 

C1FO 00 00 18 18 18 18 c DB OOOh,OOOh,018h,018h,018h,018h,018h,018h 

18 18 c 

C1F8 7E 3C 18 00 00 00 c DB 07eh,03ch,018h,OOOh,OOOh,OOOh,OOOh,OOOh 19 

00 00 c 

C200 00 00 00 00 oc 06 c DB OOOh,OOOh,OOOh,OOOh,OOch,006h,07fh,006h 

7F 06 c 

C208 DC 00 00 00 00 00 c DB OOch,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh 1a 

00 00 c 

C210 00 00 00 00 18 30 c DB OOOh,OOOh,OOOh,OOOh,018h,030h,07fh,030h 

7F 30 c 

C218 18 00 00 00 00 00 c DB 018h,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh 1b 

00 00 c 

C220 00 00 00 00 60 60 c DB OOOh,OOOh,OOOh,OOOh,060h,060h,060h,060h 

60 60 c 

C228 7F 7F 00 00 00 00 c DB 07fh,07fh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh 1c 

00 00 c 

C230 00 00 00 00 24 42 c DB OOOh,OOOh,OOOh,OOOh,024h,042h,Offh,042h 

FF 42 c 

C238 24 00 00 00 00 00 c DB 024h,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh 1d 

00 00 c 

C240 00 00 00 00 00 00 c DB OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,018h 

00 18 c 

C248 3C 7E FF 00 00 00 c DB 03ch,07eh,Offh,OOOh,OOOh,OOOh,OOOh,OOOh 1e 

00 00 c 

C250 00 00 00 00 00 FF c DB OOOh,OOOh,OOOh,OOOh,OOOh,Offh,07eh,03ch 

7E 3C c 

C258 18 00 00 00 00 00 c DB 018h,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh 1f 

00 00 c 

C260 00 00 00 00 00 00 c DB OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh 

00 00 c 

C268 00 00 00 00 00 00 c DB OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh , 20 

00 00 c 

C270 00 00 18 3C 3C 3C c DB OOOh,OOOh,018h,03ch,03ch,03ch,018h,018h 

18 18 c 

C278 00 18 18 00 00 00 c DB OOOh,018h,018h,OOOh,OOOh,OOOh,OOOh,OOOh ; ' I ' 21 

00 00 c 

C280 00 66 66 66 24 00 c DB 000h,066h,066h,066h,024h,OOOh,OOOh,OOOh 

00 00 c 

C288 00 00 00 00 00 00 c DB OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh 22 

00 00 c 

C290 00 00 36 36 7F 36 c DB OOOh,OOOh,036h,036h,07fh,036h,036h,036h 

36 36 c 

C298 7F 36 36 00 00 00 c DB 07fh,036h,036h,OOOh,OOOh,OOOh,OOOh,OOOh . , #, 23 

00 00 c 

C2AO 08 08 3E 63 60 60 c DB 008h,008h,03eh,063h,060h,060h,03eh,003h 

3E 03 c 

C2A8 03 63 3E 08 08 00 c DB 003h,063h,03eh,008h,008h,OOOh,OOOh,OOOh ; , $, 24 

1-22 

00 00 c 


C2BO 00 00 00 51 53 06 c DB OOOh,OOOh,OOOh,061h,063h,006h,OOch,018h 

DC 18 c 

C2B8 30 53 43 00 00 00 c DB 030h,063h,043h,OOOh,OOOh.OOOh,OOOh,OOOh ; '%' 25 

00 00 c 

C2CO 00 00 1C 36 36 1C c DB OOOh,OOOh,01ch,036h,036h,01ch,03bh,06eh 

3B 6E c 

C2C8 56 56 3B 00 00 00 c DB 066h,066h,03bh,OOOh,OOOh,OOOh,OOOh,OOOh ; '&' 26 

00 00 c 

C2DO 00 30 30 30 50 00 c DB 000h,030h,030h,030h,060h,OOOh,OOOh,OOOh 

00 00 c 

C2D8 00 00 00 00 00 00 c DB OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh 27 

00 00 c 

C2EO 00 00 DC 18 30 30 c DB OOOh,OOOh,OOch,018h,030h,030h,030h,030h 

30 30 c 

C2E8 30 18 DC 00 00 00 c DB 030h,018h,OOch,OOOh,OOOh,OOOh,OOOh,OOOh ; '(' 28 

00 00 c 

C2FO 00 00 30 18 DC DC c DB OOOh,OOOh,030h,018h,OOch,OOch,OOch,OOch 

DC DC c 

C2F8 DC 18 30 00 00 00 c DB OOch,018h,030h,OOOh,OOOh,OOOh,OOOh,OOOh ; ')' 29 

00 00 c 

C300 00 00 DO DO 56 3C c DB OOOh,OOOh,OOOh,OOOh,066h,03ch,07eh,03ch 

7E 3C c 

C308 56 00 00 00 00 00 c DB 066h,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh . '*' 2a 

00 00 c 

C310 00 00 00 00 18 18 c DB OOOh,OOOh,OOOh,OOOh,018h,018h,07eh,018h 

7E 18 c 

C318 18 00 00 00 00 00 c DB 018h,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh . '+' 2b 

00 00 c 


00 00 c 

C328 18 18 18 30 00 00 c DB 018h,018h,018h,030h,OOOh,OOOh,OOOh,OOOh ' ' 2c 

00 00 c 

C330 00 00 00 00 00 00 c DB OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,07eh,OOOh 

7E 00 c 

C338 00 00 00 00 00 00 c DB OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh - 2d 

00 00 c 


00 00 c 

C348 00 18 18 00 00 00 c DB OOOh,018h,018h,OOOh,OOOh,OOOh,OOOh,OOOh . ' 2e 

00 00 c 

C350 00 00 01 03 06 DC c DB OOOh,OOOh,001h,003h,006h,OOch,018h,030h 

18 30 c 

C358 50 40 00 00 00 00 c DB 060h,040h,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh ; 'I' 2f 

00 00 c 

C360 00 00 3E 53 57 6F c DB OOOh,OOOh,03eh,063h,067h,06fh,07bh,073h 

7B 73 c 

C368 53 53 3E 00 00 00 c DB 063h,063h,03eh,OOOh,OOOh,OOOh,OOOh,OOOh ; '0' 30 

00 00 c 

C370 00 00 DC 1C 3C DC c DB OOOh,OOOh,OOch,01ch,03ch,OOch,OOch,OOch 

DC DC c 

C378 DC DC 3F 00 00 00 c DB OOch,OOch,03fh,OOOh,OOOh,OOOh,OOOh,OOOh ; '1' 31 

00 00 c 

C380 00 00 3E 53 03 06 c DB OOOh,OOOh,03eh,063h,003h,006h,OOch,018h 

DC 18 c 

C388 30 53 7F 00 DO 00 c DB 030h,063h,07fh,OOOh,OOOh,OOOh,OOOh,OOOh ; '2' 32 



1-23


6F 67 c 

C548 63 63 63 00 00 00 c DB 063h,063h,063h,OOOh,OOOh,OOOh,OOOh,OOOh ; 'N' 4e 

00 00 c 

C550 00 00 1C 36 63 63 c DB OOOh,OOOh,01ch,036h,063h,063h,063h,063h 

63 63 c 

C558 63 36 1C 00 00 00 c DB 063h,036h,01ch,OOOh,OOOh,OOOh,OOOh,OOOh ; '0' 4f 

00 00 c 

C560 00 00 7E 33 33 33 c DB OOOh,OOOh,07eh,033h,033h,033h,03eh,030h 

3E 30 c 

C568 30 30 78 00 00 00 c DB 030h,030h,078h,OOOh,OOOh,OOOh,OOOh,OOOh ; 'P' 50 

00 00 c 

C570 00 00 1C 36 63 63 c DB OOOh,OOOh,01ch,036h,063h,063h,063h,063h 

63 63 c 

C578 6B 3E 1C 06 03 00 c DB 06bh,03eh,01ch,006h,003h,OOOh,OOOh,OOOh ; 'Q' 51 

00 00 c 

C580 00 00 7E 33 33 33 c DB OOOh,OOOh,07eh,033h,033h,033h,03eh,036h 

3E 36 c 

C588 33 33 73 00 00 00 c DB 033h,033h,073h,OOOh,OOOh,OOOh,OOOh,OOOh ; 'R' 52 

00 00 c 

C590 00 00 3E 63 63 30 c DB OOOh,OOOh,03eh,063h,063h,030h,01ch,006h 

1C 06 c 

C598 63 63 3E 00 00 00 c DB 063h,063h,03eh,OOOh,OOOh,OOOh,OOOh,OOOh ; 's. 53 

00 00 c 

CSAO 00 00 7E SA 18 18 c DB OOOh,OOOh,07eh,05ah,018h,018h,018h,018h 

18 18 c 

C5A8 18 18 3C 00 00 00 c DB 018h,018h,03ch,OOOh,OOOh,OOOh,OOOh,OOOh ; 'T' 54 

00 00 c 

CSBO 00 00 63 63 63 63 c DB OOOh,OOOh,063h,063h,063h,063h,063h,063h 

63 63 c 

C5B8 63 63 3E 00 00 00 c DB 063h,063h,03eh,OOOh,OOOh,OOOh,OOOh,OOOh ; 'U' 55 

00 00 c 

csco 00 00 63 63 63 63 c DB OOOh,OOOh,063h,063h,063h,063h,063h,063h 

63 63 c 

C5C8 36 1C 08 00 00 00 c DB 036h,01ch,008h,OOOh,OOOh,OOOh,OOOh,OOOh ; 'v' 56 

00 00 c 

CSDO 00 00 63 63 63 63 c DB OOOh,OOOh,063h,063h,063h,063h,063h,06bh 

63 6B c 

C5D8 6B 7F 36 00 00 00 c DB 06bh,07fh,036h,OOOh,OOOh,OOOh,OOOh,OOOh ; 'W' 57 

00 00 c 

CSEO 00 00 63 63 63 36 c DB OOOh,OOOh,063h,063h,063h,036h,01ch,036h 

1C 36 c 

C5E8 63 63 63 00 00 00 c DB 063h,063h,063h,OOOh,OOOh,OOOh,OOOh,OOOh ; 'X' 58 

00 00 c 

CSFO 00 00 66 66 66 66 c DB OOOh,OOOh,066h,066h,066h,066h,066h,03ch 

66 3C c 

C5F8 18 18 3C 00 00 00 c DB 018h,018h,03ch,OOOh,OOOh,OOOh,OOOh,OOOh ; 'Y' 59 

00 00 c 

C600 00 00 7F 63 06 OC c DB OOOh,OOOh,07fh,063h,006h,OOch,018h,030h 

18 30 c 

C608 60 63 7F 00 00 00 c DB 060h,063h,07fh,OOOh,OOOh,OOOh,OOOh,OOOh ; 'Z' Sa 

00 00 c 

C610 00 00 3C 30 30 30 c DB OOOh,OOOh,03ch.030h,030h,030h,030h,030h 

30 30 c 

C618 30 30 3C 00 00 00 c DB 030h,030h,03ch,OOOh,OOOh,OOOh,OOOh,OOOh ; '[' Sb 

00 00 c 


C620 DO DO 40 60 30 18 c DB OOOh,OOOh,040h,060h,030h,018h,OOch,006h 

DC 06 c 

C628 03 01 DO DO DO 00 c DB 003h,OD1h,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh ; ·' Sc 

DO DO c 

C630 00 DO 3C DC DC DC c DB OOOh,OOOh,03ch,OOch,OOch,OOch,OOch,OOch 

DC DC c 

C638 DC DC 3C DO DO DO c DB OOch,OOch,03ch,OOOh,OOOh,OOOh,OOOh,OOOh ; ']' Sd 

00 00 c 

C640 08 1C 36 63 DO 00 c DB 008h,01ch,036h,063h,OOOh,OOOh,OOOh,OOOh 

DO DO c 

C648 DO DO DO 00 DO DO c DB OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh Se 

00 DO c 

C650 00 DO DO DO DO 00 c DB OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh 

DO DO c 

C658 DO DO DO DO DO DO c DB OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,07fh,OOOh Sf 

7F DO c 

C660 18 18 DC DO DO DO c DB 018h,018h,OOch,OOOh,OOOh,OOOh,OOOh,OOOh 

00 DO c 

C668 DO DO DO DO DO DO c DB OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh ''' 60 

DO DO c 

C670 DO DO 00 DO 00 3C c DB OOOh,OOOh,OOOh,OOOh,OOOh,03ch,006h,03eh 

06 3E c 

C678 66 66 3B 00 DO DO c DB 066h,066h,03bh,OOOh,OOOh,OOOh,OOOh,OOOh ; ·a· 61 

DO DO c 

C680 DO DO 70 30 30 3E c DB OOOh,OOOh,070h,030h,030h,03eh,033h,033h 

33 33 c 

C688 33 33 6E DO 00 DO c DB 033h,033h,06eh,OOOh,OOOh,OOOh,OOOh,OOOh ; 'b' 62 

00 DO c 

C690 DO DO DO DO DO 3E c DB OOOh,OOOh,OOOh,OOOh,OOOh,03eh,063h,060h 

63 60 c 

C698 60 63 3E 00 00 00 c DB 060h,063h,03eh,OOOh,OOOh,OOOh,OOOh,OOOh ; 'c · 63 

00 00 c 

C6AO 00 00 DE 06 06 3E c DB OOOh,OOOh,OOeh,006h,006h,03eh,066h,066h 

66 66 c 

C6A8 66 66 3B 00 00 00 c DB 066h,066h,03bh,OOOh,OOOh,OOOh,OOOh,OOOh ; 'd' 64 

00 DO c 

C6BO 00 00 00 00 00 3E c DB OOOh,OOOh,OOOh,OOOh,OOOh,03eh,063h,07fh 

63 7F c 

C6B8 60 63 3E 00 00 00 c DB 060h,063h,03eh,OOOh,OOOh,OOOh,OOOh,OOOh ; 'e · 65 

00 00 c 

C6CO 00 00 1E 33 30 7C c DB OOOh,OOOh,01eh,033h,030h,07ch,030h,030h 

30 30 c 

C6C8 30 30 78 00 00 00 c DB 030h,030h,078h,OOOh,OOOh,OOOh,OOOh,OOOh ; 'f' 66 

00 00 c 

C6DO 00 00 00 00 00 3B c DB OOOh,OOOh,OOOh,OOOh,OOOh,03bh,066h,066h 

66 66 c 

C6D8 66 66 3E 06 66 3C c DB 066h,066h,03eh,006h,066h,03ch,OOOh,OOOh ; 'g' 67 

00 00 c 

C6EO 00 00 70 30 30 36 c DB OOOh,OOOh,070h,030h,030h,036h,03bh,033h 

3B 33 c 

C6E8 33 33 73 00 00 00 c DB 033h,033h,073h,OOOh,OOOh,OOOh,OOOh,OOOh ; 'h' 68 

00 00 c 

C6FO 00 00 DC DC 00 1C c DB OOOh,OOOh,OOch,OOch,OOOh,01ch,OOch,OOch 

DC DC c 

C6F8 OC OC 1E 00 00 00 c DB OOch,OOch,01eh,OOOh,OOOh,OOOh,OOOh,OOOh ; 'i' 69 




00 00 c 

C700 00 00 DC DC 00 1C c DB OOOh,OOOh,OOch,OOch,OOOh,01ch,OOch,OOch 

DC DC c 

C708 DC DC DC DC CC 78 c DB OOch,OOch,OOch.OOch.Occh.078h,OOOh,OOOh ; · j · 6a 

00 00 c 

C710 00 00 70 30 30 33 c DB OOOh,OOOh,070h,030h,030h,033h,036h,03ch 

36 3C c 

C718 36 33 73 00 00 00 c DB 036h,033h,073h,OOOh,OOOh,OOOh,OOOh,OOOh ; 'k. 6b 

00 00 c 

C720 00 00 1C DC DC DC c DB OOOh,OOOh,01ch,OOch,OOch,OOch.OOch,OOch 

DC DC c 

C728 DC DC 1E 00 00 00 c DB OOch,OOch,01eh,OOOh,OOOh,OOOh,OOOh,OOOh ; 'l' 6c 

00 00 c 

C730 00 00 00 00 00 66 c DB OOOh,OOOh,OOOh,OOOh,OOOh,066h,07fh,06bh 

7F 6B c 

C738 6B 6B 6B 00 00 00 c DB 06bh,06bh,06bh,OOOh,OOOh,OOOh,OOOh,OOOh ; ·m· 6d 

00 00 c 

C740 00 00 00 00 00 6E c DB OOOh,OOOh,OOOh,OOOh,OOOh,06eh.033h,033h 

33 33 c 

C748 33 33 33 00 00 00 c DB 033h,033h,033h,OOOh,OOOh,OOOh,OOOh,OOOh ; · n · 6e 

00 00 c 

C750 00 00 00 00 00 3E c DB OOOh,OOOh,OOOh,OOOh,OOOh,03eh,063h,063h 

63 63 c 

C758 63 63 3E 00 00 00 c DB 063h,063h,03eh,OOOh,OOOh,OOOh,OOOh,OOOh ; ·a· 6f 

00 00 c 

C760 00 00 00 00 00 6E c DB OOOh,OOOh,OOOh,OOOh,OOOh,06eh,033h.033h 

33 33 c 

C768 33 33 3E 30 30 78 c DB 033h,033h.03eh,030h,030h,078h,OOOh.OOOh ; . p. 70 

00 00 c 

C770 00 00 00 00 00 3B c DB OOOh,OOOh,OOOh,OOOh,OOOh,03bh,066h.066h 

66 66 c 

C778 66 66 3E 06 06 OF c DB 066h,066h,03eh,006h,006h,OOfh,OOOh,OOOh ; . q. 71 

00 00 c 


33 30 c 

C788 30 30 78 00 00 00 c DB 030h.030h,078h,OOOh,OOOh,OOOh,OOOh,OOOh ; · r' 72 

00 00 c 


63 38 c 

C798 OE 63 3E 00 00 00 c DB OOeh.063h,03eh,OOOh,OOOh,OOOh,OOOh,OOOh ; . s. 73 

00 00 c 

C7AO 00 00 00 08 18 7E c DB OOOh,OOOh,OOOh,008h,018h,07eh,018h,018h 

18 18 c 

C7A8 18 1B DE 00 00 00 c DB 018h,01bh,OOeh,OOOh,OOOh,OOOh,OOOh,OOOh ; , t. 74 

00 00 c 

C7BO 00 00 00 00 00 66 c DB OOOh,OOOh,OOOh,OOOh,OOOh,066h,066h,066h 

66 66 c 

C7B8 66 66 3B 00 00 00 c DB 066h,066h,03bh,OOOh,OOOh,OOOh,OOOh,OOOh ; ·u · 75 

00 00 c 

C7CO 00 00 00 00 00 63 c DB OOOh,OOOh,OOOh,OOOh,OOOh,063h,063h.063h 

63 63 c 

C7C8 36 1C 08 00 00 00 c DB 036h,01ch,008h,OOOh,OOOh,OOOh,OOOh,OOOh ; . v. 76 

00 00 c 

C7DO 00 00 00 00 00 63 c DB OOOh,OOOh,OOOh,OOOh,OOOh,063h,063h,06bh 

63 6B c 

1-28 

ms"'""""'""""""""'= 


C7D8 6B 7F 36 00 00 00 c DB 06bh,07fh,036h,OOOh,OOOh,OOOh,OOOh,OOOh ; 'w' 77 

00 00 c 

C?EO 00 00 00 00 DO 63 c DB OOOh,OOOh,OOOh,OOOh,OOOh,063h,036h,01ch 

36 1C c 

C7E8 1C 36 63 00 00 00 c DB 01ch,036h,063h,OOOh,OOOh,OOOh,OOOh,OOOh ; 'x' 78 

DO 00 c 

C?FO 00 00 00 00 00 63 c DB OOOh,OOOh,OOOh,OOOh,OOOh,063h,066h,066h 

66 66 c 

C7F8 66 66 3E 06 66 3C c DB 066h,066h,03eh,006h,066h,03ch,OOOh,OOOh ; 'y' 79 

00 00 c 

C800 DO 00 00 00 00 7F c DB OOOh,OOOh,OOOh,OOOh,OOOh,07fh,066h,OOch 

66 DC c 

C808 18 33 7F 00 00 00 c DB 018h,033h,07fh,OOOh,OOOh,OOOh,OOOh,OOOh ; 'z' ?a 

00 00 c 

C810 00 00 DE 18 18 18 c DB OOOh,OOOh,OOeh,018h,018h,018h,070h,018h 

70 18 c 

C818 18 18 DE 00 00 00 c DB 018h,018h,OOeh,OOOh,OOOh,OOOh,OOOh,OOOh ; ' {' 7b 

00 00 c 

C820 00 00 18 18 18 18 c DB OOOh,OOOh,018h,018h,018h,018h,OOOh,018h 

00 18 c 

C828 18 18 18 00 00 00 c DB 018h,018h,018h,OOOh,OOOh,OOOh,OOOh,OOOh ; 'I' 7c 

00 00 c 

C830 00 00 70 18 18 18 c DB OOOh,OOOh,070h,018h,018h,018h,OOeh,018h 

OE 18 c 

C838 18 18 70 00 00 00 c DB 018h,018h,070h,OOOh,OOOh,OOOh,OOOh,OOOh ; , } ' 7d 

00 00 c 

C840 00 00 3B 6E 00 00 c DB OOOh,OOOh,03bh,06eh,OOOh,OOOh,OOOh,OOOh 

00 00 c 


,-, 7e 

00 00 c 

C850 00 00 00 00 08 1C c DB OOOh,OOOh,OOOh,OOOh,008h,01ch,036h,063h 

36 63 c 

C858 63 7F 00 00 00 00 c DB 063h,07fh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh " 7f 

00 00 c 

c ;End of font matrix 

c 

C860 c fontlo16 endp 


- 

C860 font hi 8x8 label byte 1024 bytes 

c include fonthi8.asm 

C860 c fonthi8 proc near 

c SystemFont ; (m24) 8 x 8 font table for m24 

c 

C860 3C 66 60 66 3C DC c DB 03ch,066h,060h,066h,03ch,OOch,006h,03ch 80 

06 3C c 

C868 00 66 00 66 66 66 c DB OOOh,066h,OOOh,066h,066h,066h,03fh,OOOh 81 

3F DO c 

C870 DE 00 3C 66 7E 60 c DB OOeh,OOOh,03ch,066h,07eh,060h,03ch,OOOh 82 

3C DO c 

C878 7E C3 3C 06 3E 66 c DB 07eh,Oc3h,03ch,006h,03eh,066h,03fh,OOOh 83 

3F 00 c 

C880 66 00 3C 06 3E 66 c DB 066h,OOOh,03ch,006h,03eh,066h,03fh,OOOh 84 

3F 00 c 

C888 70 00 3C 06 3E 66 c DB 070h,OOOh,03ch,006h,03eh,066h,03fh,OOOh 85 

3F 00 c 


1-29


C890 18 18 3C 06 3E 66 c DB 018h,018h,03ch,006h,03eh,066h,03fh,OOOh 86 

3F 00 c 

C898 00 00 3C 60 60 3C c DB OOOh,OOOh,03ch,060h,060h,03ch,006h,01ch 87 

06 1C c 

C8AO 7E C3 3C 66 7E 60 c DB 07eh,Oc3h,03ch,066h,07eh,060h,03ch,OOOh 88 

3C DO c 

C8A8 66 00 3C 66 7E 60 c DB 066h,OOOh,03ch,066h,07eh,060h,03ch,OOOh 89 

3C 00 c 

C8BO 70 00 3C 66 7E 60 c DB 070h,OOOh,03ch,066h,07eh,060h,03ch,OOOh 8a 

3C 00 c 

C8B8 66 00 38 18 18 18 c DB 066h,OOOh,038h,018h,018h,018h,03ch,OOOh 8b 

3C 00 c 

C8CO 7C C6 38 18 18 18 c DB 07ch,Oc6h,038h,018h,018h,018h,03ch,OOOh 8c 

3C 00 c 

C8C8 70 00 38 18 18 18 c DB 070h,OOOh,038h,018h,018h,018h,03ch,OOOh 8d 

3C 00 c 

C8DO 63 1C 36 63 7F 63 c DB 063h,01ch,036h,063h,07fh,063h,063h,OOOh 8e 

63 00 c 

C8D8 18 18 00 3C 66 7E c DB 018h,018h,OOOh,03ch,066h,07eh,066h,OOOh 8f 

66 DO c 

C8EO OE 00 7E 30 3C 30 c DB OOeh,OOOh,07eh,030h,03ch,030h,07eh,OOOh 90 

7E 00 c 

C8E8 DO 00 7F OC 7F CC c DB OOOh,OOOh,07fh,OOch,07fh,Occh,07fh,OOOh 91 

7F 00 c 

C8FO 1F 36 66 7F 66 66 c DB 01fh,036h,066h,07fh,066h,066h,067h,OOOh 92 

67 00 c 

C8F8 3C 66 00 3C 66 66 c DB 03ch,066h,OOOh,03ch,066h,066h,03ch,OOOh 93 

3C 00 c 

C900 00 66 00 3C 66 66 c DB OOOh,066h,OOOh,03ch,066h,066h,03ch,OOOh 94 

3C 00 c 

C908 DO 70 00 3C 66 66 c DB OOOh,070h,OOOh,03ch,066h,066h,03ch,OOOh 95 

3C 00 c 

C910 3C 66 00 66 66 66 c DB 03ch,066h,OOOh,066h,066h,066h,03fh,OOOh 96 

3F 00 c 

C918 00 70 00 66 66 66 c DB OOOh,070h,OOOh,066h,066h,066h,03fh,OOOh 97 

3F 00 c 

C920 00 66 00 66 66 3E c DB OOOh,066h,OOOh,066h,066h,03eh,006h,07ch 98 

06 7C c 

C928 C3 18 3C 66 66 3C c DB Oc3h,018h,03ch,066h,066h,03ch,018h,OOOh 99 

18 00 c 

C930 66 00 66 66 66 66 c DB 066h,OOOh,066h,066h,066h,066h,03ch,OOOh 9a 

3C 00 c 

c ;#ifdef NORDIC 

c DB OOOh,OOOh,OOOh,03ch,06eh,076h,03ch,OOOh 9b 

c DB 01ch,036h,032h,078h,030h,073h,07eh,OOOh 9c 

c DB 07ch,Oc6h,Oceh,Odeh,Of6h,Oe6h,07ch,OOOh 9d 

c DB Of0h,060h,066h,060h,062h,066h,Ofeh,OOOh 9e 

c DB 070h,030h,030h,036h,030h,030h,078h,OOOh 9f 

c ;#else NORDIC 

c ;#ifdef PORTUGAL 

c DB 007h,OOOh,01ch,036h,063h,07fh,063h,OOOh 9b 


c DB 070h,OOOh,01ch,036h,063h,07fh,063h,OOOh 9d 

c DB 018h,024h,07eh,030h,D3ch,030h,03eh,OOOh 9e 

c DB 03eh,063h,01ch,036h,063h,036h,01ch,OOOh 9f 


c ;#else PORTUGAL 

c DB 018h,018h,07eh,Oc0h,Oc0h,07eh,018h,018h 9b 


c DB 066h,066h,03ch,07eh,018h,07eh,018h,018h 9d 

c DB Of8h,Occh,Occh,Ofah,Oc6h,Ocfh,Oc6h,Oc7h 9e 

c DB OOeh,01bh,018h,D3ch,018h,018h,Od8h,070h 9f 

c ;#endif PORTUGAL 

c ;#endif NORDIC 

c DB OOeh,OOOh,03ch,006h,03eh,066h,03fh,OOOh aD 

c DB 01ch,OOOh,038h,018h,018h,018h,03ch,OOOh a1 

c DB OOOh,OOeh,OOOh,03ch,066h,066h,03ch,OOOh a2 

c DB OOOh,OOeh,OOOh,066h,066h,066h,03fh,OOOh a3 

c DB OOOh,07ch,OOOh,07ch,066h,066h,066h,OOOh a4 

c DB 07eh,OOOh,066h,076h,07eh,06eh,066h,OOOh aS 

c ;#ifdef NORDIC 

c DB OOOh,07eh,OOOh,D3ch,066h,066h,03ch,OOOh a6 

c DB 07eh,OOOh,01ch,036h,063h,036h,01ch,OOOh a7 

c DB 018h,OOOh,018h,030h,060h,066h,03ch,OOOh a8 

c DB 07eh,OOOh,03ch,006h,03eh,066h,03fh,OOOh a9 

c DB 07eh,OOOh,03ch,066h,07eh,066h,066h,OOOh a a 

c DB 010h,038h,06ch,06ch,038h,034h,058h,OOOh ab 

c DB OcOh,OcOh,OOOh,Of8h,Occh,Occh,Occh,OOOh ac 

c DB 018h,018h,OOOh,018h,018h,018h,018h,OOOh ad 

c DB 07ch,018h,030h,098h,070h,OOOh,OOOh,OOOh ae 

c DB 000h,Oc6h,07ch,Oc6h,Oc6h,07ch,Oc6h,OOOh af 

c ;#else NORDIC 

c ;#ifdef PORTUGAL 

c DB OOOh,07eh,OOOh,03ch,066h,066h,03ch,OOOh a6 

c DB 07eh,OOOh,D1ch,036h,063h,036h,01ch,OOOh a7 


c DB 07eh,OOOh,03ch,006h,03eh,066h,03fh,OOOh a9 

c DB 07eh,OOOh,03ch,066h,07eh,066h,066h,OOOh a a 

c DB 007h,OOOh,063h,063h,063h,063h,03eh,OOOh ab 

c DB OOeh,OOOh,03ch,018h,018h,018h,03ch,OOOh ac 


c DB 07ch,018h,030h,098h,070h,OOOh,OOOh,OOOh ae 

c DB 007h,OOOh,01ch,036h,063h,036h,01ch,OOOh af 

c ;#else PORTUGAL 

c DB 03ch,06ch,06ch,03eh,OOOh,07eh,OOOh,OOOh a6 

c DB 038h,06ch,06ch,038h,OOOh,07ch,OOOh,OOOh a7 


c DB OOOh,OOOh,OOOh,07eh,060h,060h,OOOh,OOOh a9 

c DB OOOh,OOOh,OOOh,07eh,006h,006h,OOOh,OOOh a a 

c DB Oc3h,Oc6h,Occh,Odeh,033h,066h,Occh,OOfh ab 

c DB Oc3h,Oc6h,Occh,Odbh,037h,06fh,Ocfh,003h ac 


c DB 000h,033h,066h,Occh,066h,033h,OOOh,OOOh ae 

c DB 000h,Occh,066h,033h,066h,Occh,OOOh,OOOh af 

c ;#endif PORTUGAL 

c ;#endif NORDIC 

C938 22 88 22 88 22 88 c DB 022h,088h,022h,088h,022h,088h,022h,088h bO 

22 88 c 

C940 55 AA 55 AA 55 AA c DB 055h,Oaah,055h,Oaah,055h,Oaah,055h,Oaah b1 

55 AA c 

C948 DB 77 DB EE DB 77 c DB Odbh,077h,Odbh,Oeeh,Odbh,077h,Odbh,Oeeh b2 



1-31


DB EE c 

C950 18 18 18 18 18 18 c DB 018h,018h,018h,018h,018h,018h,018h,018h b3 

18 18 c 

C958 18 18 18 18 F8 18 c DB 018h,018h,018h,018h,Of8h,018h,018h,018h b4 

18 18 c 

C960 18 18 F8 18 F8 18 c DB 018h,018h,Of8h,D18h,Of8h,018h,018h,018h b5 

18 18 c 

C968 36 36 36 36 F6 36 c DB 036h,036h,036h,036h,Of6h,036h,D36h,036h b6 

36 36 c 

C970 DO DO DO DO FE 36 c DB OOOh,DODh,OOOh,ODOh,Ofeh,036h,036h,036h b7 

36 36 c 

C978 DO DO F8 18 F8 18 c DB OOOh,OOOh,Of8h,018h,Of8h,018h,018h,018h b8 

18 18 c 

C980 36 36 F6 06 F6 36 c DB 036h,036h,Of6h,OD6h,Of6h,036h,D36h,036h b9 

36 36 c 

C988 36 36 36 36 36 36 c DB 036h,036h,036h,036h,036h,036h,036h,036h ba 

36 36 c 

C990 00 DO FE 06 F6 36 c DB OOOh,OOOh,Ofeh,OD6h,Of6h,036h,036h,036h bb 

36 36 c 

C998 36 36 F6 06 FE DO c DB 036h,036h,Of6h,006h,Ofeh,OOOh,OOOh,OOOh be 

DO 00 c 

C9AO 36 36 36 36 FE 00 c DB 036h,036h,036h,D36h,Ofeh,OOOh,ODOh,OOOh bd 

DO 00 c 

C9A8 18 18 F8 18 F8 DO c DB 018h,018h,Of8h,018h,Of8h,OOOh,OOOh,OOOh be 

00 DO c 

C9BO 00 DO DO DO F8 18 c DB OOOh,DOOh,OOOh,DDOh,Of8h,018h,018h,018h bf 

18 18 c 

C9B8 18 18 18 18 1F DO c DB 018h,D18h,018h,018h,01fh,OODh,OODh,OOOh cO 

00 DO c 

C9CO 18 18 18 18 FF DO c DB 018h,018h,018h,018h,Dffh,OOOh,ODOh,OOOh c1 

00 DO c 

C9C8 00 DO DO DO FF 18 c DB OOOh,OOOh,OOOh,OOOh,Offh,018h,018h,018h c2 

18 18 c 

C9DO 18 18 18 18 1F 18 c DB 018h,018h,018h,018h,D1fh,018h,018h,018h c3 

18 18 c 

C9D8 DO 00 DO DO FF DO c DB DDOh,OOOh,ODOh,DOOh,Offh,OOOh,OOOh,OOOh c4 

00 00 c 

C9EO 18 18 18 18 FF 18 c DB 018h,018h,018h,018h,Offh,018h,018h,018h c5 

18 18 c 

C9E8 18 18 1F 18 1F 18 c DB 018h,018h,01fh,D18h,01fh,018h,018h,018h c6 

18 18 c 

C9FO 36 36 36 36 37 36 c DB 036h,036h,036h,036h,037h,036h,036h,036h c7 

36 36 c 

C9F8 36 36 37 30 3F 00 c DB 036h,036h,037h,030h,03fh,OOOh,OOOh,OOOh c8 

00 00 c 

CAOO DO 00 3F 30 37 36 c DB OOOh,DOOh,03fh,030h,037h,036h,036h,036h c9 

36 36 c 

CA08 36 36 F7 00 FF 00 c DB 036h,036h,Of7h,OOOh,Offh,OOOh,ODDh,OOOh ca 

00 00 c 

CA10 00 00 FF 00 F7 36 c DB OOOh,OOOh,Offh,OOOh,Of7h,036h,036h,036h cb 

36 36 c 

CA18 36 36 37 30 37 36 c DB 036h,036h,037h,030h,037h,036h,036h,036h cc 

36 36 c 

CA20 00 00 FF 00 FF 00 c DB OOOh,OOOh,Offh,OOOh,Offh,OOOh,OOOh,OOOh cd 

00 00 c 



1C 00 c 

CB08 1C 36 63 63 36 36 c DB 01ch,036h,063h,063h,036h,036h,077h,OOOh ea 

77 00 c 

CB10 OE 18 OC 3E 66 66 c DB OOeh,018h,OOch,03eh,066h,066h,03ch,OOOh eb 

3C 00 c 

CB18 00 00 7E DB DB 7E c DB OOOh,OOOh,07eh,Odbh,Odbh,07eh,OOOh,OOOh ec 

00 00 c 

CB20 06 DC 7E DB DB 7E c DB 006h,OOch,07eh,Odbh,Odbh,07eh,060h,OcOh ed 

60 co c 

CB28 1C 60 CO FC CO 60 c DB 01ch,060h,Oc0h,Ofch,Oc0h,060h,01ch,OOOh ee 

1C 00 c 

CB30 3C 66 66 66 66 66 c DB 03ch,066h,066h,066h,066h,066h,066h,ODOh ef 

66 00 c 

CB38 DO 7E DO 7E 00 7E c DB OOOh,07eh,OOOh,07eh,OOOh,07eh,OOOh,OOOh fO 

00 00 c 

CB40 18 18 7E 18 18 00 c DB 018h,018h,07eh,018h,018h,OOOh,07eh,ODOh f1 

7E 00 c 

CB48 30 18 oc 18 30 00 c DB 030h,018h,OOch,018h,030h,OOOh,07eh,OOOh f2 

7E DO c 

CBSO DC 18 30 18 OC 00 c DB 00ch,018h,030h,018h,ODch,OOOh,07eh,ODOh f3 

7E 00 c 

CB58 OE 1B 1B 18 18 18 c DB OOeh,01bh,01bh,018h,018h,018h,018h,D18h f4 

18 18 c 

CB60 18 18 18 18 18 D8 c DB 018h,018h,018h,018h,018h,Od8h,Od8h,070h f5 

D8 70 c 

CB68 18 18 00 7E 00 18 c DB 018h,018h,ODOh,07eh,OOOh,018h,018h,OOOh f6 

18 00 c 

CB70 00 76 DC 00 76 DC c DB OOOh,076h,Odch,OOOh,076h,Odch,OOOh,OOOh f7 

00 00 c 

CB78 38 6C 6C 38 00 00 c DB 038h,06ch,06ch,038h,ODOh,OOOh,OOOh,OOOh f8 

00 00 c 

CB80 DO 00 00 18 18 00 c DB OOOh,OOOh,OOOh,018h,018h,OOOh,OODh,ODOh f9 

00 00 c 

CB88 00 00 00 00 18 00 c DB OOOh,OOOh,OOOh,OOOh,018h,OOOh,OOOh,OOOh fa 

00 00 c 

CB90 OF OC OC OC EC 6C c DB OOfh,OOch,OOch,OOch,Oech,06ch,03ch,01ch fb 

3C 1C c 

CB98 78 6C 6C 6C 6C 00 c DB 078h,06ch,06ch,06ch,06ch,OOOh,OOOh,OOOh fc 

00 00 c 

CBAO 70 18 30 60 78 00 c DB 070h,018h,030h,060h,078h,OOOh,OOOh,OOOh fd 

00 00 c 

CBA8 00 00 3C 3C 3C 3C c DB OOOh,OOOh,03ch,03ch,03ch,03ch,OOOh,OOOh fe 

00 00 c 

CBBO DO 00 00 00 00 00 c DB OOOh,ODOh,OOOh,OOOh,OOOh,OOOh,OOOh,OOOh ff 

00 00 c 

c End of font matrix 

c 

CBB8 c fonthi8 endp 

CBB8 code ends 

c include kbdata,asm 

c ·====================================================================== 

c Filename: kb,data: USA-ASCII 

c 

c This module includes the keyboard scan code translation data 



CBBF 

CBBF 1B1B 

CBC1 1B1B 

CBC3 1B 1B 

CBC5 COCO 

CBC7 3131 

CBC9 2121 

CBCB COCO 

CBCO 7800 

CBCF 3232 

CB01 2240 

CB03 COCC 

CB05 7900 

CB07 3333 

CB09 2323 

CBOB COCO 

CBOO 7AOO 

CBOF 3434 

CBE1 2424 

CBE3 COCO 

CBE5 7BOO 

CBE7 3535 

CBE9 2525 

CBEB COCO 

CBEO 7COO 

CBEF 3636 

CBF1 265E 

CBF3 C01E 

CBF5 7000 

CBF7 3737 

CBF9 2726 

CBFB COCO 

CBFO 7EOO 

CBFF 3838 

CC01 282A 

CC03 COCO 

CC05 7FOO 

CC07 3939 

CC09 2928 

CCOB COCO 

CCOD 8000 

CCOF 3030 

CC11 5F29 

CC13 1FCD 

CC15 8100 

CC17 2020 

CC19 305F 

CC1B C01F 

1-36 

c 

c .--------------------------------------------------------------------c 

c 

c .--------------------------------------------------------------------c 

Alphabetic (Migratory) I AT&T !Other I 

C kb data table label byte 

c 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

(1Bh) * 100h + (1Bh) 

(1Bh) * 100h + (1Bh) 

(1Bh) * 100h + (1Bh) 

kNONE * 100h + kNONE 

(31h) * 100h + (31h) 

(21h) * 100h + (21h) 


7800h 

(32h) * 100h + (32h) 

(22h) * 100h + (40h) 

kNONE * 100h + kbnul 

7900h 

(33h) * 100h + (33h) 

(23h) * 100h + (23h) 


7A00h 

(34h) * 100h + (34h) 

(24h) * 100h + (24h) 


7BOOh 

(35h) * 100h + (35h) 

(25h) * 100h + (25h) 


7COOh 

(36h) * 100h + (36h) 

(26h) * 100h + (5Eh) 

kNONE * 100h + (1Eh) 

7000h 

(37h) * 100h + (37h) 

(27h) * 100h + (26h) 


7EOOh 

(38h) * 100h + (38h) 

(28h) * 100h + (2Ah) 


7F00h 

(39h) * 100h + (39h) 

(29h) * 100h + (28h) 


8000h 

(30h) * 100h + (30h) 

(5Fh) * 100h + (29h) 

(1Fh) * 100h + kNONE 

8100h 

(20h) * 100h + (20h) 

(3Dh) * 100h + (5Fh) 

kNONE * 100h + (1Fh) 

01 01h 

02 02h 

03 03h 

04 04h 

05 05h 

06 06h 

07 07h 

08 08h 

09 09h 

10 OAh 

11 OBh 

12 OCh 

I KB I KBs I 

ESC ESC 

ESC ESC 

ESC ESC 

None None 

None None 

X120 

2 2 

@ 

(BASE) 

(SHIFT) 

(CTL) 

(ALT) 

None NUL=X03(A©) 

X121 

3 3 

# # 

None None 

X122 

4 4 

$ $ 

None None 

X123 

5 5 

% % 

None None 

X124 

6 6 

& 

None RS (AA) 

X125 

7 7 

& 

None None 

X126 

8 

( 

8 

None None 

X127 

9 9 

) ( 

None None 

X128 

0 0 

) 

US (A_) None 

X129 

None US (A ) 


CC10 8200 

CC1F 5E30 

CC21 7E28 

CC23 1ECO 

CC2S 8300 

CC27 0808 

CC29 0808 

CC28 7F7F 

CC20 COCO 

CC2F 0909 

CC31 OFOO 

CC33 COCO 

CC3S COCO 

CC37 7171 

CC39 S1S1 

CC3B 1111 

CC30 1000 

CC3F 7777 

CC41 S757 

CC43 1717 

CC4S 1100 

CC47 6S6S 

CC49 4S4S 

CC4B OSOS 

CC4D 1200 

CC4F 7272 

CC51 52S2 

CC53 1212 

cess 1300 

CCS7 7474 

CCS9 S4S4 

cess 1414 

CCSD 1400 

CCSF 7979 

CC61 S9S9 

CC63 1919 

CC6S 1500 

CC67 757S 

CC69 5S5S 

CC68 1515 

CC60 1600 

CC6F 6969 

CC71 4949 

CC73 0909 

CC75 1700 

CC77 6F6F 

CC79 4F4F 

CC78 OFOF 

CC7D 1800 

CC7F 7070 

CC81 SOSO 

CC83 1010 

cess 1900 

CC87 40SB 

CC89 6078 


C dw 

c dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

c dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

8200h 

(SEh) * 100h + (3Dh) 

(7Eh) * 100h + (2Bh) 

(1Eh) * 100h + kNONE 

8300h 

(08h) * 100h + (08h) 

(08h) * 100h + (08h) 

(7Fh) * 100h + (7Fh) 


(09h) * 100h + (09h) 

OFOOh 



(71h) * 100h + (71h) 

(S1h) * 100h + (S1h) 

(11h) * 100h + (11h) 

1000h 

(77h) * 100h + (77h) 

(S7h) * 100h + (S7h) 

(17h) * 100h + (17h) 

1100h 

(6Sh) * 100h + (6Sh) 

(45h) * 100h + (4Sh) 

(OSh) * 100h + (OSh) 

1200h 

(72h) * 100h + (72h) 

(S2h) * 100h + (S2h) 

(12h) * 100h + (12h) 

1300h 

(74h) * 100h + (74h) 

(54h) * 100h + (S4h) 

(14h) * 100h + (14h) 

1400h 

(79h) * 100h + (79h) 

(S9h) * 100h + (S9h) 

(19h) * 100h + (19h) 

1500h 

(75h) * 100h + (75h) 

(S5h) * 100h + (S5h) 

(15h) * 100h + (15h) 

1600h 

(69h) * 100h + (69h) 

(49h) * 100h + (49h) 

(09h) * 100h + (09h) 

1700h 

(6Fh) * 100h + (6Fh) 

(4Fh) * 100h + (4Fh) 

(OFh) * 10Dh + (OFh) 

1800h 

(70h) * 100h + (70h) 

(SOh) * 100h + (SOh) 

(10h) * 100h + (10h) 

1900h 

(40h) * 100h + (SBh) 

(60h) * 100h + (7Bh) 

13 DOh 

14 OEh 

1S OFh 

16 1Dh 

17 11h 

18 12h 

19 13h 

20 14h 

21 1Sh 

22 16h 

23 17h 

24 18h 

2S 19h 

26 1Ah 

X130 

+ 

RS (M) None 

X131 

BS BS 

BS BS 

DEL DEL 

None None 

HT HT 

RHT=X1S 

None None 

None None 

q q 

Q Q 

DCWQ) OCWQ) 

X16 

w w 

w w 

ETB(AW) ETB(AW) 

X17 

e e 

E E 

ENQ(AE) ENQ(AE) 

X18 

r 

R R 

DC2(AR) DC2(AR) 

X19 

t t 

T T 

OC4p) OC4p) 

xzo 

y y 

y y 

EM n) EM n) 

X21 

u u 

u u 

NAK(AU) NAK(AU) 

X22 

i i 

I I 

HT n) HT n) 

X23 

0 0 

0 0 

SI (AO) SI (AO) 

X24 

p p 

p p 

DLE(AP) DLE(AP) 

X2S 

@ 


1-37


CC8B CC1B 

CC80 COCO 

CC8F 5B50 

CC91 7B70 

CC93 1B10 

CC95 COCO 

CC97 0000 

CC99 0000 

CC9B OAOA 

CC90 COCO 

CC9F C5C5 

CCA1 C5C5 

CCA3 C5C5 

CCA5 C5C5 

CCA7 6161 

CCA9 4141 

CCAB 0101 

CCAO 1EOO 

CCAF 7373 

CCB1 5353 

CCB3 1313 

CCB5 1FOO 

CCB7 6464 

CCB9 4444 

CCBB 0404 

CCBO 2000 

CCBF 6666 

CCC1 4646 

CCC3 0606 

CCC5 2100 

CCC7 6767 

CCC9 4747 

CCCB 0707 

CCCO 2200 

CCCF 6868 

CC01 4848 

CC03 0808 

CC05 2300 

CC07 6A6A 

CC09 4A4A 

CCOB OAOA 

CCOO 2400 

CCOF 6B6B 

CCE1 4B4B 

CCE3 OBOB 

CCE5 2500 

CCE7 6C6C 

CCE9 4C4C 

CCEB OCOC 

CCEO 2600 

CCEF 3B3B 

CCF1 2B3A 

CCF3 COCO 

CCF5 COCO 

CCF7 3A27 

1-38 

C dw 

C dw 

c dw 

c dw 

C dw 

c dw 

c dw 

c dw 

c dw 

c dw 

C dw 

c dw 

c dw 

c dw 

C dw 

C dw 

C dw 

c dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

c dw 

c dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

kbnu1 * 100h + (1Bh) 


(5Bh) * 100h + (SOh) 

(7Bh) * 100h + (70h) 

(1Bh) * 100h + (10h) 


(OOh) * 100h + (OOh) 

(OOh) * 100h + (OOh) 

(OAh) * 100h + (OAh) 


kbct1 * 100h + kbct1 




(61h) * 100h + (61h) 

(41h) * 100h + (41h) 

(01h) * 100h + (01h) 

1EOOh 

(73h) * 100h + (73h) 

(53h) * 100h + (53h) 

(13h) * 100h + (13h) 

1FOOh 

(64h) * 100h + (64h) 

(44h) * 100h + (44h) 

(04h) * 100h + (04h) 

2000h 

(66h) * 100h + (66h) 

(46h) * 100h + (46h) 

(06h) * 100h + (06h) 

2100h 

(67h) * 100h + (67h) 

(47h) * 100h + (47h) 

(07h) * 100h + (07h) 

2200h 

(68h) * 100h + (68h) 

(48h) * 100h + (48h) 

(08h) * 100h + (08h) 

2300h 

(6Ah) * 100h + (6Ah) 

(4Ah) * 100h + (4Ah) 

(OAh) * 100h + (OAh) 

2400h 

(6Bh) * 100h + (6Bh) 

(4Bh) * 100h + (4Bh) 

(OBh) * 100h + (OBh) 

2500h 

(6Ch) * 100h + (6Ch) 

(4Ch) * 100h + (4Ch) 

(OCh) * 100h + (OCh) 

2600h 

(3Bh) * 100h + (3Bh) 

(2Bh) * 100h + (3Ah) 



(3Ah) * 100h + (27h) 

27 1Bh 

28 1Ch 

29 10h 

30 1Eh 

31 1Fh 

32 20h 

33 21h 

34 22h 

35 23h 

36 24h 

37 25h 

38 26h 

39 27h 

40 28h 

NUL=X03(A@) ESC(A[) 

None None 

l } 

ESCC[) GS n) 

None None 

CR CR 

CR CR 

LF LF 

None None 

Ctr1 Ctr1 

Ctr1 Ctr1 

Ctr1 Ctr1 

Ctr1 Ctr1 

a a 

A A 

SOH(AA) SOH(AA) 

X30 

s s 

s s 

oc3cAs) oc3n) 

X31 

d d 

0 0 

EOT(AO) EOT(AO) 

X32 

F F 

ACKp) ACK(AF) 

X33 

g g 

G G 

BEL(AG) BEL(AG) 

X34 

h h 

H H 

BS (AH) BS (AH) 

X35 

j j 

j j 

LF (AJ) LF (AJ) 

X36 

k k 

K K 

VT (AK) VT (AK) 

X37 

1 1 

L L 

FF (AL) FF CAL) 

X38 

+ 

None None 

None None 


CCF9 2A22 

CCFB COCO 

CCFO COCO 

CCFF 5060 

C001 707E 

C003 10CO 

coos coco 

C007 C6C6 

C009 C6C6 

COOB C6C6 

COOO C6C6 

cooF sese 

C011 7C7C 

C013 1C1C 

C015 COCO 

C017 7A7A 

C019 SASA 

C01B 1A 1A 

C010 2COO 

C01F 7878 

C021 5858 

C023 1818 

C025 2000 

C027 6363 

C029 4343 

C02B 0303 

C020 2EOO 

C02F 7676 

C031 5656 

C033 1616 

C035 2FOO 

C037 6262 

C039 4242 

C03B 0202 

C030 3000 

C03F 6E6E 

C041 4E4E 

C043 OEOE 

C045 3100 

C047 6060 

C049 4040 

C04B 0000 

C040 3200 

C04F 2C2C 

C051 3C3C 

C053 COCO 

coss coco 

C057 2E2E 

C059 3E3E 

COSB COCO 

coso coco 

COSF 2F2F 

C061 3F3F 

C063 COCO 

C065 COCO 


C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

c dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

C dw 

(2Ah) * 100h + (22h) 



(SOh) * 100h + (60h) 

(70h) * 100h + (7Eh) 

(10h) * 100h + kNONE 


kblsh * 10Dh + kblsh 

kblsh * 100h + kblsh 

kblsh * 100h + kblsh 

kblsh * 10Dh + kblsh 

(SCh) * 100h + (SCh) 

(7Ch) * 100h + (7Ch) 

(1Ch) * 100h + (1Ch) 


(7Ah) * 100h + (7Ah) 

(SAh) * 100h + (SAh) 

(1Ah) * 100h + (1Ah) 

2COOh 

(78h) * 100h + (78h) 

(58h) * 100h + (58h) 

(18h) * 100h + (18h) 

2000h 

(63h) * 100h + (63h) 

(43h) * 100h + (43h) 

(03h) * 100h + (03h) 

2EOOh 

(76h) * 100h + (76h) 

(56h) * 100h + (56h) 

(16h) * 100h + (16h) 

2FOOh 

(62h) * 100h + (62h) 

(42h) * 100h + (42h) 

(02h) * 100h + (02h) 

3000h 

(6Eh) * 100h + (6Eh) 

(4Eh) * 100h + (4Eh) 

(OEh) * 100h + (OEh) 

3100h 

(60h) * 100h + (60h) 

(40h) * 100h + (40h) 

(DOh) * 100h + (DOh) 

3200h 

(2Ch) * 100h + (2Ch) 

(3Ch) * 100h + (3Ch) 



(2Eh) * 100h + (2Eh) 

(3Eh) * 100h + (3Eh) 



(2Fh) * 100h + (2Fh) 

(3Fh) * 100h + (3Fh) 



41 29h 

42 2Ah 

43 2Bh 

44 2Ch 

45 20h 

46 2Eh 

47 2Fh 

48 30h 

49 31h 

50 32h 

51 33h 

52 34h 

53 35h 

* 

None None 

None None 

GS n) None 

None None 

LShft LShft 

LShft LShft 

LShft LShft 

LShft LShft 

\ \ 

I I 

FS n FS n 

None None 

z z 

z z 

SUB(AZ) SUBn) 

X44 

X X 

X X 

CANn) CAN(AX) 

X45 

c c 

c c 

ETXCC) ETXCC) 

X46 

v v 

v v 

SYNn) SYNCV) 

X47 

b b 

B B 

STX(AB) STX(AB) 

X48 

n n 

N N 

SQ (AN) SQ (AN) 

X49 

m m 

M M 

CR (AM) CR CM) 

xso 

< < 

None None 

None None 

> > 

None None 

None None 

I I 

? ? 

None None 

None None 


1-39


C067 C7C7 

C069 C7C7 

COBB C7C7 

C060 C7C7 

C06F 2A2A 

C071 CBCB 

C073 7200 

C075 COCO 

C077 C4C4 

C079 C4C4 

C07B C4C4 

C070 C4C4 

C07F 2020 

C081 2020 

C083 2020 

C085 2020 

C087 C1C1 

C089 C1C1 

C08B C1C1 

COSO C1C1 

C08F 3BOO 

C091 5400 

C093 SEOO 

C095 6800 

C097 3COO 

C099 5500 

C09B SFOO 

C090 6900 

C09F 3000 

COA1 5600 

COA3 6000 

COAS 6AOO 

COA7 3EOO 

COA9 5700 

COAB 6100 

COAO 6BOO 

COAF 3FOO 

COB1 5800 

COB3 6200 

COBS 6COO 

COB7 4000 

COB9 5900 

COBB 6300 

COBO 6000 

COBF 4100 

COC1 SAOO 

COC3 6400 

COCS 6EOO 

COC7 4200 

1-40 

c 

c .---------------------------------------------------------------------- 

c Alphabetic (Non-Migratory) 

c 

I AT&T IOther I 

I KB I KBs I 

c .---------------------------------------------------------------------- 

c 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

kbrsh * 100h + kbrsh 




(2Ah) * 100h + (2Ah) 

kbprt * 100h + kbprt 

7200h 


kbalt * 100h + kbalt 




(20h) * 100h + (20h) 

(20h) * 100h + (20h) 

(20h) * 100h + (20h) 

(20h) * 100h + (20h) 

kbcap * 100h + kbcap 




3BOOh 

5400h 

SEOOh 

6800h 

3COOh 

5500h 

SFOOh 

6900h 

3000h 

5600h 

6000h 

6AOOh 

3EOOh 

5700h 

6100h 

6BOOh 

3FOOh 

5800h 

6200h 

6COOh 

4000h 

5900h 

6300h 

6000h 

4100h 

SAOOh 

6400h 

6EOOh 

4200h 

54 36h 

55 37h 

56 38h 

57 39h 

58 3Ah 

59 3Bh 

60 3Ch 

61 30h 

62 3Eh 

63 3Fh 

64 40h 

65 41h 

66 42h 

RShft RShft 

RShft RShft 

RShft RShft 

RShft RShft 

PrtSc PrtSc 

X114 

None None 

ALT ALT 

AL T ALT 

ALT ALT 

ALT ALT 

SP SP 

SP SP 

SP SP 

SP SP 

Caplk Caplk 

Caplk Caplk 

Caplk Caplk 

Caplk Caplk 

F01=X59 

F11=X84 

F21=X94 

F31=X104 

F02=X60 

F12=X85 

F22=X95 

F32=X105 

F03=X61 

F13=X86 

F23=X96 

F33=X106 

F04=X62 

F14=X87 

F24=X97 

F34=X107 

F05=X63 

F15=X88 

F25=X98 

F35=X108 

F06=X64 

F16=X89 

F26=X99 

F36=X109 

F07=X65 

F17=X90 

F27=X100 

F37=X110 

F08=X66 


CDC9 SBOO 

CDCB 6500 

COCO 6FOO 

CDCF 4300 

CDD1 SCOO 

CDD3 6600 

coos 7000 

CDD7 4400 

CDD9 5000 

CDDB 6700 

CDDD 7100 

CDDF C2C2 

CDE1 C2C2 

CDE3 CACA 

CDES C2C2 

CDE7 C3C3 

CDE9 C3C3 

CDEB C9C9 

COED C3C3 

CDEF 4700 

CDF1 3737 

CDF3 7700 

CDFS DODO 

CDF7 4800 

CDF9 3838 

CDFB COCO 

CDFD CFCF 

CDFF 4900 

CE01 3939 

CE03 8400 

CEOS CECE 

CE07 2020 

CE09 2020 

CEOB COCO 

CEOD COCO 

CEOF 4BOO 

CE11 3434 

CE13 7300 

CE15 0303 

CE17 COCO 

CE19 3535 

CE1B COCO 

CE1D 0202 

CE1F 4000 

CE21 3636 

CE23 7400 

CE25 0101 

CE27 2B2B 

CE29 2B2B 


C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

dw 

dw 

dw 

dw 

dw 

dw 

c 

c 

c 

c 

c 

c 

c 

SBOOh 

6500h 

6FOOh 

4300h 

SCOOh 

6600h 

7000h 

4400h 

SDOOh 

6700h 

7100h 

kbnum * 100h + kbnum 


pause * 100h + pause 


kbscr * 100h + kbscr 


kbbrk * 100h + kbbrk 


67 43h 

68 44h 

69 4Sh 

70 46h 

F18=X91 

F28=X101 

F38=X111 

F09=X67 

F19=X92 

F29=X102 

F39=X112 

F10=X68 

F20=X93 

F30=X103 

F40=X113 

Numlk Numlk 

Numlk Numlk 

Pause 

Numlk 

Scrlk 

Scrlk 

Break 

Scrlk 

Pause 

Numlk 

Scrlk 

Scrlk 

Break 

Scrlk 


c ·--------------------------------------------------------------------c 

Numeric Keypad I AT&T IOther I 

c 

I KB I KBs I 

c .--------------------------------------------------------------------c 

C dw 

4700h 

71 47h Home=X71 

C dw (37h) * 100h + (37h) 

7 7 

C dw 

7700h 

X119 

C dw kdec7 * 100h + kdec7 

XDec7 XDec7 

C dw 

4800h 

72 48h Up =X72 

C dw (38h) * 100h + (38h) 

8 8 

C dw kNONE * 100h + kNONE 

None None 


XDec8 XDec8 

C dw 

4900h 

73 49h PgUp=X73 

C dw (39h) * 100h + (39h) 

9 9 

C dw 

8400h 

X132 


XDec9 XDec9 

C dw (2Dh) * 100h + (2Dh) 74 4Ah 

C dw (2Dh) * 100h + (2Dh) 


None None 


None None 

C dw 

4BOOh 

75 4Bh Left=X75 

C dw (34h) * 100h + (34h) 

4 4 

C dw 

7300h 

X115 


XDec4 XDec4 

C dw kNONE * 100h + kNONE 76 4Ch None None 

C dw (3Sh) * 100h + (35h) 

5 5 


None None 

C dw kdecS * 100h + kdecS 

XDec5 XDec5 

C dw 

4000h 

77 4Dh Rght=X77 

C dw (36h) * 100h + (36h) 

6 6 

C dw 

7400h 

X116 


XDec6 XDec6 

C dw (2Bh) * 100h + (2Bh) 78 4Eh + + 

C dw (2Bh) * 100h + (2Bh) 

+ + 

1-41


CE2B COCO 

CE20 COCO 

CE2F 4FOO 

CE31 3131 

CE33 7SOO 

CE3S 0606 

CE37 SOOO 

CE39 3232 

CE3B COCO 

CE3D OSDS 

CE3F S100 

CE41 3333 

CE43 7600 

CE4S 0404 

CE47 COCO 

CE49 3030 

CE4B COCO 

CE4D 0707 

CE4F S300 

CES1 2E2E 

CES3 C8C8 

CESS C8C8 

CES7 0808 

CES9 0808 

CESB COCO 

CESD COCO 

CESF CBCB 

CE61 CBCB 

CE63 7200 

CE6S COCO 

CE67 CACA 

CE69 CACA 

CE6B CACA 

CE6D CACA 

CE6F DODD 

CE71 0000 

CE73 DADA 

CE7S COCO 

CE77 4800 

CE79 7300 

CE7B 7300 

CE7D 7300 

CE7F SOOO 

CE81 SOOO 

CE83 SOOO 

CE8S SOOO 

CE87 4000 

CE89 7400 

CESB 7400 

1-42 

C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 


kNDNE * 10Dh + kNDNE 

4FDOh 

(31h) * 1DDh + (31h) 

7SDOh 

kdec1 * 100h + kdec1 

SOOOh 

(32h) * 100h + (32h) 

kNONE * 100h + kNDNE 


S100h 

(33h) * 100h + (33h) 

7600h 


kbins * 100h + kbins 

(30h) * 100h + (30h) 


kdecO * 100h + kdecO 

S3DOh 

(2Eh) * 100h + (2Eh) 

kbres * 10Dh + kbres 

kbres * 100h + kbres 

79 4Fh 

80 SOh 

81 S1h 

82 S2h 

83 S3h 

None None 

None None 

End =X79 

1 1 

X117 

XOec1 XDec1 

Down=X80 

2 2 

None None 

XOec2 XDec2 

Pg0n=X81 

3 3 

X118 

XDec3 XOec3 

INS=X82 INS=X82 

0 0 

None None 

XDecO XDecO 

DEL =X83 

Reset Reset 

Reset Reset 

c 

c .--------------------------------------------------------------------c 

c 

c .--------------------------------------------------------------------c 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

C dw 

C dw 

c dw 

C dw 

C dw 

c dw 

c dw 

C dw 

c dw 

c dw 

c dw 

C dw 

C dw 

C dw 

C dw 

C dw 

C dw 

Function Keypad I AT&T IDtherl 

kdblD * 100h + kdblO 

kdblO * 10Dh + kdblO 

kNDNE * 100h + kNDNE 

kNDNE * 100h + kNDNE 



7200h 


pause * 1DOh + pause 




(DOh) * 1DOh + (ODh) 

(DOh) * 100h + (ODh) 

(OAh) * 100h + (OAh) 

kNONE * 1DOh + kNONE 

4BOOh 

7300h 

7300h 

7300h 

SOOOh 

SDOOh 

SOOOh 

SOOOh 

4000h 

7400h 

7400h 

84 S4h 

8S SSh 

86 S6h 

87 S7h 

88 S8h 

89 S9h 

9D SAh 

I KB I KBs I 

00 DO 

00 00 

None None 

None None 

PrtSc PrtSc 

Prtsc PrtSc 

X114 

None None 

Pause Pause 

Pause Pause 

Pause Pause 

Pause Pause 

CR CR 

CR CR 

LF LF 

None None 

Left=X7S 

Rev Word = X11S 



Down=X80 

Down=X80 

Down=X80 

Oown=X80 

Rght=X77 

Adv Word = X116 

Adv Word = X116 



B9FC 

CEF8 

= 0001 

= DOFF 

= OOBB 

1-44 

c 

C include wd hdu.asm 

c 

C TITLE WX2BIOS Version 8 85/04/02 

C SUBTTL BIOS for Western Digital Winchester Controllers 

C PAGE 62, 132 

C Integrated Verion F to our existing BIOS. 04/07/85 

C From Dave Joan, Western Digital, 

C (1) BIOS polling status at end of rest pulse caused 5 to 9 us pulses 

C on all drive lines due to 1015 ports not lbeing set up. A delay of 

C at least 3 milliseconds between reset and polling was added to the 

C reset command routine. 

C (2) Install sets up registers AL,DH,CX in case System BIOS did not. 

c 

C Ported Version E to our version of the WX2BIOS. I have added enhancements 

C like: 1) deglitching the interrupt service routine; 2) inserting time outs 

C around the wait for interrupt loop 

C Version E 

C Dave Joan 85/02/07 

C Version 8 (begun from NLSBIOS version 1) 

C Bob Hossley 83/10/10 - 83/10/10 

C Exact copy of NLSBIOS version 

C Version 1 

C Bob Hossley 83/10/06 - 83/10/06 

C 83/10/06 Reset code refined work with SHD artwork revision 1, 2, or 3 

C Version 0 (begun from WX2BIOS version 6) 

C Bob Hossley 83/10/05 - 83/10/06 

C Bill Bailey 83/10/04 - 83/10/04 

c 

c .---------------------------------------------------------------------------c 

C Basic (i.e. Fundamental) Input/Output System for the Western Digital 

C WX2 Winchester Controller board 

c 

C This BIOS provides access to 5 1/4 inch fixed disks via a 

C controller compatible with the IBM fixed disk controller. 

c 

C The BIOS routines are meant to be entered only via software 

C interrupts. Addresses in these listings should never be referenced. 

C Applications which reference absolute addresses in the code segment 

C violate the structure and design of this BIOS. 

c 

c .---------------------------------------------------------------------------- 

c 

C code 

c 

c 

c 

c 

c 

c 

segment common 'ROM' 


public bios_install 

public i13 ih 

ORG OCEF8H 

DMACC EQU 01h ; non zero for dma accelerator code 

c Error Codes Returned by BIOS 

c 

C ec stat 

C ec undef 

EQU 

EQU 

OFFh 

OBBh 

;Read status failed 

;Undefined error 



= 0008 

= OOOA 

= OOOB 

= oooc 

= 0000 

= OOOE 

= OOOF 

= ODED 

= OOE3 

= OOE4 

= DOES 

= OOE6 

= DODO 

= 0004 

= 0005 

= 0020 

= 0002 

= 0000 

= 0002 

= 0003 

= 0005 

= 0007 

= 0008 

= 0009 

= OOOA 

= OOOB 

= DODO 

= 0002 

= 0004 

= 0006 

= 0008 

= OOOA 

= oooc 

1-46 

C de rd 

C de wr 

C de seek 

C de par set 

C de ecc rd 

C de buff rd 

C de buff wr 

C dc_diag_ram 

C dc_diag_drv 

C dc_diag_ctlr 

C de rdl 

C de wrl 

c 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

8 

OAH 

OBH 

OCH 

DOH 

OEH 

OFH 

OEOH 

OE3H 

OE4H 

OESH 

OE6H 

C ; Command Control Block offsets 

C ccb cmd equ 0 

C ccb blks equ 4 

C ccb opt equ 5 

c 

C ; Bits in Byte 1 of the ccb 

c 

C ccb drv b equ 20h 

c 

c 

;READ SECTORS 

; WRITE SECTORS 

;SEEK 

;SET DRIVE PARAMETERS 

;READ ERROR BURST LENGTH 

;READ SECTOR BUFFER 

;WRITE SECTOR BUFFER 

;RAM DIAGNOSTIC 

;DRIVE DIAGNOSTIC 

;CONTROLLER DIAGNOSTIC 

;READ LONG 

; WRITE LONG 

;command code 

;number of blocks or interleave factor 

;option byte 

;drive bit 

C CCB option byte 

c Bit 

c 

c 

c 

0, 1, 2 

3, 4, 5 

6 

Step option 

Reserved for future use 

0 --> Stable ECC required before correction 

c 

1 --> Immediate ECC correction 

7 0 --> Retries allowed 

C 1 --> No retries allowed 

c 

C Command Completion byte 

c 

C cc er equ 2 ;error flag bit: 0 --> no error 

c 

C ; offsets in a winchester parameter subtable 

C wst cyl equ 0 ;2-byte number of cylinders 

C wst heads equ 2 

;1-byte number of heads 

C wst re wr equ 3 

;2-byte starting reduced write cylinder 

C wst wr pre equ 5 

;2-byte starting write pre-camp cyl 

C wst er bur equ 7 

;1-byte max. error burst length 

C wst opt equ 8 

;1-byte option byte for CCB 

C wst sto equ 9 

;1-byte standard time out parameter% 

C wst fto equ 10 

;1-byte format drive time out parameter% 

C wst ddto equ 11 

;1-byte drive diagnostic time out parameter% 

c 

C ; Activation Record Descriptions 

c 

C a1 es 

C a1 ds 

c al si 

C a1 di 

C a1 bp 

C a1 dx 

C a1 ex 

equ 

equ 

equ 

equ 

equ 

equ 

equ 

0 

2 

4 

6 

8 

10 

12 


= OOOE 

= 0010 

= 0013 

= 0018 

= 0040 

= 0165 

= 019A 

= 01BE 

= 0584 

= 0004 

= 0002 

= 0008 

= 0080 

= 0200 

= 0000 

= 0020 

= 0082 

= 0063 

= 0320 

= 0004 

= 0067 

= 0000 

= 0001 

= 0002 

= 0000 

= 0001 

= 0002 


C a·J bx 

c 

equ 14 

C ; Interrupt vector numbers 

C ivn dis char equ 10h 

C i vn be 

C ivn basic 

C ivn be dette 

c 

C ; Timer Values 

equ 

equ 

equ 

c ti 0 1 equ 

c 

C ti kb reset equ 

c 

C ti fin equ 

c 

C ti be reset 

c 

c 

equ 

C ; Miscellaneous symbols 

c 

C ctlr mx equ 

C drv ctlr 

c drv total 

C dnwin 

C sec size 

c 

13h 

18h 

40h 

446d-89d 

446d-36d 

446d 

1412d 

4 

EQU 

EQU ctlr mx*drv ctlr ;total number of drives possible 

equ 

equ 

C Hardware specific 

C Port Addresses 

C p dma EQU 

C p int EQU 

C p dma latch EQU 

c 

C p dmacc 

c 

C p wx2 

c 

C wx2 l 

c 

C SW b 

c 

EQU 

EQU 

equ 

equ 

2 

80h 

512 

values 

0 

20H 

082H 

63H 

0320H 

4 

67H 


;call to screen bios 

:call to diskette or winchester bios 

:enter ROM resident BASIC 

:time to wait after drive 0 is found 

:usable = 89 * .056 = 5 seconds 

:initial timer counter for kb reset 

: 36 * .056 = 2 seconds 

:final timer counter 

; .056 seconds per count 

;delay loop count for 3 ms minimum. 

: based on 17 eye X . 125 us = 1 loop 

:maximum number of wx2 controllers 

:number of drives per controller 

:least significant winchester drive # 

:number of bytes per sector 

;base address for DMA chip registers 

:8259 control port 

:4-bit latch for bits 16 - 19 of DMA 

:address 

;port for dma accelerator % 

;predictor sector size and sample enable% 

;Base address for WX2 ports 

;number of ports per WX2 controller 

:mother board switch% 

C Offsets from base address for one WX2 controller 

C Read Use 

C wx2 r data equ 0 ; data from WX2 to host 

C wx2 r status 

c 

c 

c 

c 

c wx2 _r _con fig 

c 

C Write Use 

c wx2 w data 

C wx2 w reset 

C wx2 w select 

c 

equ 

equ 

equ 

equ 

equ 

2 

0 

1 

2 

:WX2 status 

;Caution: subroutine wx2 req requires that 

; wx2 r data + 1 = wx2 r status 

:Caution: subroutine ccb send requires that 

;wx2 r stat = wx2 w select -1 

:configuration switches 

:data from host to WX2 

:reset WX2 controller 

;select WX2 controller 

;Caution: subroutine ccb send requires that 

1-47


= 0003 

= oooc 

= 0008 

= 0004 

= 0002 

= 0001 

= 0020 

= 0010 

= oooc 

= 0003 

= 0001 

= 0002 

= 0006 

= 0007 

= 0008 

= OOOB 

= 0009 

= OOOA 

= OOOF 

= oooc 

= OOOD 

= 0008 

= 0007 

= OOOB 

1-48 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

wx2 w msk equ 

-- 

wx2_lrg offset equ 

; Bits in wx2 r status 

-- 

wx2_stat_busy EQU 

wx2 stat cd EQU 

wx2 stat io EQU 

wx2 stat req EQU 

wx2 stat int equ 

wx2 stat drq equ 

- - 

- - 

C Bits in wx2_r_config 

C wx2 config_O equ 00001100b 

C wx2 config 1 

c 

3 

12 

00001000B 

00000100B 

00000010B 

00000001B 

00100000b 

00010000b 

equ 00000011b 

; wx2 w msk = wx2 w select +1 

;mask register 

; largest port offset for hard disk controller% 

Busy 

command/data 

input/output 

request (start state machine) 

;interrupt 

;dma data request 

c Bits in wx2 w msk (bits 2 - 7 are don't cares) 

;switch field for drive 0 

;switch field for drive 1 

C wx2 msk dma equ 01b ; dma mask bit 

c 

c 

C wx2 msk int 

c 

c 

c 

c 

equ 10b 

; 0 --> dma to host disabled 

; 1 --> dma to host enabled 

;interrupt mask bit 

0 --> interrupt to host disabled 

; 1 --> interrupt to host enabled 

C Offsets from the DMA base address 

C Write 

C For each channel there is a 16-bit address register and a 16-bit 

c byte count register. For channel i (i = 0, 1, 2, 3) the address 

c register is at address i*2 and the byte count register is at address 

C (i*2) + 1. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

dma w addr equ 3*2 

dma w cnt equ 3*2+1 

dma w cmd equ 8 

dma w mode equ 11 

dma w req equ 9 

-- 

dma w mask b equ 10 

- 

dma w mask equ 15 

-- 

dma_w_byte equ 12 

dma w clr equ 13 

-- 

Read 

dma r status equ 8 

; Commands for DMA controller 

END IF 

IF DMACC 

Commands for mode register 

dma mode wr EQU 00000111B 

- 

dma mode rd EQU 00001011B 

- 

;channel 3 address register (16-bits) 

;channel 3 byte count register (16-bits 

;command register (8 bits) 

;mode register (6 bits) 

;request register (4 bits) 

;write single mask register bit 

;mask register (4 bits) 

;clear pointer to register byte 

;0 --> bits 0 - 7 of register 

;1 -->bits 8- 15 of register 

;master clear 

;status register (8 bits) 

;bits 6, 7 = 01 --> DEMAND mode select% 

;bits 2, 3 = 01 --> write transfer% 

; bits 0, 1 = 11 --> Channel 3 select% 

;bits 6, 7 = 01 --> DEMAND mode select% 

;bits 2, 3 = 10 --> read transfer% 

;bits 0, 1 = 11 --> Channel 3 select% 



7COO 

= 0040 

0000 

0042 

0042 

0042 

006C 

006C ???? 

0072 

0072 ???? 

0074 

0074 ?? 

0075 ?? 

0076 ?? 

0077 ?? 

0078 

1-50 

c 

C intvec ENDS 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

RAM Workspace 

.---------------------------------------. 

' . 

W2RAM EQU 40H 

wdram SEGMENT AT 40H 

ORG 42H 

ram ccb LABEL 

ram stat LABEL 

ORG 06CH 

ram time ow 

ORG 72H 

ram kb reset ow 

ORG 74H 

ram cc DB 

- 

ram drv cnt DB 

ram opt DB 

ram po DB 

wdram ENDS 

BYTE 

BYTE 

? 

? 

? 

? 

? 

? 

: needed for masm% 

;% 

:6-byte Command Control Block 

:4-bytes of controller status 

:Timer low word 

:1234H if keyboard reset underway 

;completion code 

;Number of drives on WX2 controller 0 

;spare - was temp for option byte 

;spare - port offset temp 

c ·********************************************************************** 

c 

C ;COde 

c 

c 

c 

c 

segment 

org 

db 

db 

0 

55h,Oaah 

16 

:BIOS header 

;number of 512 blocks in the block of 

C :host memory allocated to this BIOS. 

C :If the BIOS ROM used is smaller, then 

C ;it appears several times in the host 

C :memory 

c ·======================================== 

c 

c Call: call ROM-base-address + 3 

C return 

c 

C Install Winchester BIOS into the interrupt vector system. 

c 

C Entry: No entry parameters. 

c 

c Exit: No exit parameters. 

c 

C The message " Not Ready" is displayed if there are no usable winchester 

c disks. 

c 

c 

c 

assume cs:code ;call to initialize is required to 

;establish cs 


CEF8 E9 CFB4 R 

CEFB 28 43 29 20 43 6F 

CF29 

CF29 CF 

CF2A 02 

CF2B 25 

CF2C 02 

CF2D 08 

CF2E 2A 

CF2F FF 

CF30 50 

CF31 F6 

CF32 19 

CF33 04 

70 79 72 69 67 68 

74 20 31 39 38 33 

20 57 65 73 74 65 

72 6E 20 44 69 67 

69 74 61 6C 20 43 

6F 72 70 6F 72 61 

74 69 6F 6E 


c 

c 

jmp near ptr bios install ;entry for power-up initialize 

c .;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

c 

C Call JMP ROM base address +5 

C Purpose: format the specified drive with the specified interleave. 

c 


C Entry: 

C (AH) ; Relative number of target drive. Drive SOh+ d is the target. 

C (AL) ; Interleave factor. 

c 

C Exit: Job terminated. 

c 

c jmp wx2 fmt :format entry 

c -------- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

db 

p tbl dett: 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

'(C) Copyright 1983 Western Digital Corporation· 

11001111B 

2 

25h 

2 

8 

02AH 

OFFH 

050H 

OF6H 

25 

Winchester Parameter Table 

Offset 

0 - 15 subtable 0 




64 - 79 subtable 4% 

80 - 95 subtable 5% 

96 - 111 subtable 6% 

112 - 127 subtable 7% 

4 

:srt;C, HD unload ; F 

:HD load; 1, mode; DMA 

;Wait after open til motor off 

:512 bytes per sector 

:EDT 

;gap length 

:DTL 

;gap length for format 

:fill byte for format 

:head settle time in milliseconds 

;motor start time (1/8 seconds) 

The configuration switches accessible via port wx2 r config specify 

the subtable to be used for each drive. Each drive has two switches 

which determine a 2-bit field in port wx2_r_config which specifies 

the subtable number for the drive. 

Two auxliary switches have been added to expand the parameter table.% 

1-51


CF34 

CF34 0132 

CF36 04 

CF37 0132 

CF39 0000 

CF3B DB 

CF3C OS 

CF3D DC 

CF3E B4 

CF3F 28 

CF40 00 00 00 00 

CF44 02B9 

CF46 OS 

CF47 02B9 

CF49 0000 

CF4B DB 

CF4C 05 

CF4D 10 

CF4E DO 

CF4F 60 

CFSO 00 00 00 00 

CFS4 0280 

CFS6 04 

CFS7 0100 

CF59 0100 

CFSB DB 

CFSC 05 

1-:)2 

C Bits 3 and 2 (OCH) on the mother board (port 067H) are read for one% 

C extra bit per drive; bit 3 for drive 0, bit 2 for drive 1.% 

c 

c Winchester Parameter Subtable 

c 

Offset Byte Length 

0 

2 Number of cylinders 

2 

Number of heads 

3 2 Starting reduced write current cylinder 

s 

2 Starting write precompensation cylinder 

7 

Max. correctable error burst length 

8 

CCB option byte 

9 

Standard time out value 

10 

Format time out value 

11 

Check drive time out value 

12 

4 Reserved for future use 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C p tbl win: 

C Table Entry 0 - 10Mb 

C This is the 10Mb drive supported as the default drive in the PC6300 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ow 

DB 

ow 

ow 

DB 

DB 

DB 

DB 

DB 

DB 

03060 

04 

03060 

0 

OBH 

s 

OCH 

OB4H 

28H 

0,0,0,0 

c Table Entry 1 - 30Mb 

C CDC Wren Hard Disk Drive 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ow 

DB 

ow 

ow 

DB 

DB 

DB 

DB 

DB 

DB 

06970 

OS 

06970 

0 

OBH 

s 

10H 

ODOH 

60H 

0,0,0,0 

C Table Entry 2 - 20Mb 

C CMI CM6426 Hard Disk Drive 

c 

c 

c 

c 

c 

c 

c 

ow 

DB 

ow 

ow 

DB 

DB 

06400 

04 

02S6D 

02S6D 

OBH 

s 



CF9C 05 

CF9D 25 

CF9E FF 

CF9F AD 

CFAO 00 00 00 00 

CFA4 0264 

CFA6 04 

CFA7 0265 

CFA9 0100 

CFAB DB 

CFAC 05 

CFAD DC 

CFAE B4 

CFAF 28 

CFBO 00 00 00 00 

c 

c 

c 

c 

c 

c 

DB 

DB 

DB 

DB 

DB 

5 

25H 

OFFH 

OAOH 

0,0,0,0 

C Default table 7 - 20 Mb 

C Seagate ST225 Hard Disk Drive or Miniscribe 3425 Hard Disk Drive 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ow 

DB 

ow 

ow 

DB 

DB 

DB 

DB 

DB 

DB 

06120 

04 

06130 

2560 

OBH 

5 

OCH 

OB4H 

28H 

0,0,0,0 

CFB4 C bios install proc 

CFB4 33 CO 

CFB6 8E 08 

CFB8 FA 

CFB9 C4 06 004C R 

c 

c 

CFBD A3 0100 R 

CFCO 8C 06 0102 R C 

xor 

ax.ax 

ds,ax 

C assume ds: intvec 

c 

mov 

near 

:zero 

;initialize data segment register 

c Set interrupt vectors to install BIOS into operating system 

c 

c 

c 

c 

c 

CFC4 C7 06 004C R 0170 R C 

CFCA 8C DE 004E R C 

CFCE C7 06 0064 R ODED R C 

CFD4 8C DE 0066 R C 

CFD8 C7 06 0034 R 0161 R C 

CFDE 8C DE 0036 R C 

CFE2 C7 06 0104 R CF34 R C 

CFE8 8C DE 0106 R 

CFEC FB 

CFED B8 0040 

CFFO 8E 08 

CFF2 C6 06 0075 R 00 

CFF7 B8 019A 

CFFA 81 3E 0072 R 1234 

0000 74 02 

1-54 

c 

c 

c 

C assume 

c 

c 

c 

eli 

les 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

sti 

ds:wdram 

;disable interrupts 

ax,iv be :20-bit pointer to entry for 

;call to diskette bios 

word ptr iv be dett.ax ;initialize new pointer 

word ptr iv_bc_dett+2,es 

word ptr iv bc.offset i13 ih 

- - 

:20-bit pointer to entry for 

word ptr iv bc+2,cs ;call to winchester BIOS 

word ptr iv_boot,offset i19_boot_sys :20-bit pointer to boot system code 

word ptr iv boot+2,cs 

word ptr iv int,offset id ih :20-bit pointer to disk interrupt 

word ptr iv int+2,cs ;handler 

- - 

word ptr iv_p_tbl_win,offset p_tbl_win :20-bit pointer to winchester 

word ptr iv p tbl win+2,cs ;parameter table 

;enable interrupts 

mov ax,W2RAM :ram segment address 

mov ds,ax 

;establish segment 

C If a power-up boot is in progress. then wait up to 25 seconds for the 

C first winchester drive to spin up. 

c 

c 

c 

c 

c 

mov 

mov 

cmp 

je 

ram drv cnt,OO 

ax,ti kb reset 

ram kb reset, 1234h 

kb reset 

;clear number of drives 

;initial timer value for keyboard reset 

;keyboard reset? 

;jump if yes 



D002 33 co c xor ax.ax ;clear for long delay while disk 

c ;Spins up after power on 

D004 c kb reset: 

D004 A3 006C R c mov ram time.ax :initialize timer counter 

c 

D007 FA c eli :disable interrupts 

DOOS E4 21 c in al,p int+int ocw1 ;read interrupt mask register 

DOOA 24 FE c and al.not int ocw1 mD ;enable interrupts on channel 0 

DOOC E6 21 c out p int+int ocw1.al :set interrupt mask register 

- - 

c :This starts the timer. 

DDOE FB c sti :enable interrupts 

c 

c Count the usable winchester drives. To speed this counting. if a 

c controller is unusable, then testing of its second drive is skipped. 

c A drive is usable if and only if its controller resets. runs its 

c controller diagnostic. recalibrates the drive. and executes test 

c drive ready all without error. 

c 

DOOF B2 SO c mov dl,dnwin :base winchester drive number 

D011 c ctlr ini t: 

c 

- 

c These 3 lines set up regs for Test Drive Ready in case host didn't. V.F. 

D011 B9 0001 c mov cx,1 : cylinder D. sector 1 

D014 SA FS c mov dh.ch :head # of zero 

D016 SA C1 c mov al.cl ;sector count of 

c 

D01S B4 DO c mov ah,bc reset :bios call code 

D01A CD 13 c int ivn be ;call disk bios 

D01C 72 2F c jc nxt ctlr ;jump if error 

c 

D01E B4 14 c mov ah,bc diag ctlr ;bios call code 

D020 CD 13 c int ivn be ;call disk bios 

DD22 72 29 c jc nxt ctlr ;jump if error 

c 

D024 c trdyO: ;wait for disk reset% 

D024 B4 10 c mov ah,bc tst_rdy ;bios call code% 

D026 CD 13 c int ivn be ;call disk bios% 

D02S 73 OS c jnc drv ;jump if drive ready% 

D02A S1 3E 006C R 0222 c cmp ram time,222h ; 30 sec Time-out?% 

D0 3D 72 F2 c jb trdyD ;jump if no time-out yet% 

D032 c drv: 

D032 33 co c xor ax.ax 

c 

D034 A3 006C R c mov ram time.ax ;clear timer value% 

D037 B4 11 c mov ah,bc recal ;bios call code 

D039 CD 13 c int ivn be ;call disk bios 

D03B 72 50 c jc nxt drv ;jump if error 

c 

D0 3D c tst_drv_rdy: 

D0 3D B4 10 c mov ah,bc tst_rdy :bios call code 

D03F CD 13 c int ivn be ; call disk bios 

D041 73 33 c jnc drv rdy ;jump if drive ready 

D043 S1 3E 006C R 01BE c cmp ram time.ti fin :Time-out? 

D049 72 F2 c jb tst_drv_rdy ;jump if no time-out yet 

c 

- 

- 

- 

- 


DOBO CD 10 c int ivn dis char ;call screen bios 

DOB2 E2 F8 c loop dis char :do next character 

c 

DOB4 BD OOOF c mov bp. 1Sd ;set error exit flag 

DOB7 EB 2B 90 c jmp h exit :jmp to exit% 

DOBA c wins usable: 

c 

- 

DOBA AD 007S R c mov al.byte ptr ds:ram_drv_cnt :hold num of drives% 

DOBD 1E c push ds 

DOBE DE c push cs 

DOBF 1F c pop ds ;ds for string prints% 

DOCO FC c cld 

DOC1 B3 01 c mov bl.1 ;choose foregnd color% 

DOC3 OA CO c or al,al :set flags% 

DOCS 7S 09 c jnz nzdrvs ;cant if 0 drives% 

DOC7 B9 OOOF c mov cx,habss ;msg size% 

DOCA BE 0067 R c mov si. offset habs :msg ptr% 

DOCD EB 00 90 c jmp hmsg 

DODO c nzdrvs: 

DODO 04 30 c add al. ·o · : HEX drives = ASCII number% 

0002 B4 DE c mov ah,bc v w :video cmd tty% 

0004 co 10 c int ivn dis char ;print number of drives% 

- - 

0006 B9 0009 c mov cx,hgoods ;msg size% 

0009 BE DOSE R c mov si,offset hgood :msg ptr% 

DODC c hmsg: 

DODC AC c lodsb ;al=ds:si si++% 

DODD B4 DE c mov ah.bc v w ;Video cmd.tty% 

DODF CD 10 c int ivn dis char ;print char% 

DOE1 E2 F9 c loop hmsg ;print string% 

DOE3 1F c pop ds :restore OS% 

DOE4 c h exit: 

c 

DOE4 FA c eli :disable interrupts 

DOES E4 21 c in al,p int+int ocw1 ;read interrupt mask register 

- 

- - 


DOE7 DC 01 c or al.int ocw1 mo :disable interrupts on channel 0 

DOE9 E6 21 c out p int+int ocw1.al :set interrupt mask register 

- - 

c :This stops the timer. 

DOEB FB c sti ;enable interrupts 

DOEC C3 c ret :exit to system bios initialize 

ODED c bios install endp 

c 

- 

c page + 

c ·======================================== 

c 

c Call: int 19h 

c 

c Boot the operating system from diskette A or from the first usable 

c winchester drive. 

c 

c Entry: No entry parameters. 

c 

c Normal Exit: Jump to the start of the bootstrap sector read from disk. 

c 

c Error Exit: int 18h -- ROM resident BASIC entered. 

c The ROM resident BASIC is entered if the system can't be booted. 


ODED 

ODED 33 CO 

DOEF 8E D8 

DOF1 8E CO 

c 

c Attempt to reset drive 0 (a diskette) and then to read sector 1. 

C cylinder 0, head 0. If this read is successful, then jump to the start 

c of this sector in memory. Retry the preceding three times. 

c 

c Beginning with drive 80h (the first winchester) and ending with 

C drive 87h (the last possible winchester) do the following: Attempt to 

C reset the drive and then to read sector 1. cylinder 0. head 0. If this 

C read is successful and the last word of this sector contains AA55h, then 

c jump to the start of this sector in memory. 

c 

c Enter the ROM resident BASIC by executing int 18h. 

c 

C i19_boot_sys: 

c 

c 

c 

c 

c 

xor ax. ax 

mov ds.ax 

mov es.ax 

assume ds:intvec,es:intvec 

:zero 

;establish pointer to intvec segment 

;establish pointer for disk buffer 

C Install pointers to the default diskette parameter table and the 

c default winchester parameter table. 

c 

DOF3 FA C eli ;disable interrupts 

DOF4 (7 06 0078 R CF29 R C 

DOFA 8C DE 007A R C 

DOFE C7 06 0104 R CF34 R C 

D104 8C DE 0106 R C 

D108 FB C 

D109 B9 0003 

D10C 33 D2 

D10E 

D10E B8 0000 

D111 CD 40 

D113 72 OF 

D115 BB 7COO R 

D118 B8 0201 

D11B 51 

D11C B9 0001 

D11F CD 40 

D121 59 

D122 73 34 

D124 

D124 80 FC 80 

D127 74 02 

D129 E2 E3 

D12B 

D12B B8 0000 

1-58 

c 

mov 

mov 

mov 

mov 

sti 

word ptr iv_p_tbl_dett,offset p_tbl_dett ;20-bit pointer to diskette 

word ptr iv p tbl dett+2,cs ;parameter table 

word ptr iv p tbl win,offset p tbl win ;20-bit pointer to winchester 

-- - - - 

word ptr iv p tbl win+2,cs ;parameter table 

;enable interrupts 

c Attempt to boot from diskette 0 up to 3 times. A time-out error 

c immediately ends the attempt to boot from diskette. 

c 

c 

c 

c 

mov 

xor 

C dett boot: 

C mov 

C int 

C jc 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

push 

mov 

int 

pop 

jnc 

C dett boot nxt: 

c 

c 

c 

c 

cmp 

je 

loop 

C dett boot end: 

c mov 

cx,3 

dx,dx 

ax,bc reset*256 

ivn be dette 

dett boot nxt 

bx,offset iv boot buf 

ax,bc rd*256+1 

ex 

ex. 1 

ivn be dette 

ex 

boot succ 

ah,ec time 

dett boot end 

dett boot 

ax,bc reset*256 

;number of times to retry diskette 

:zero drive & head numbers 

:(AH) =bios call#, (AL) =block count 

;call diskette bios 

;jump if error 

;address of sector buffer 

;read one sector 

;save retry count 

;sector number 

;call diskette bios 

;restore retry count 

;jump if no error 

;time-out? 

; jump if yes. 

;jump if try again 

:(AH) =bios call#, (AL) =block count 


D12E CD 40 

0130 B2 80 

0132 B9 0008 

0135 

0135 B4 00 

0137 CD 13 

0139 72 17 

D13B BB ?COO R 

D13E B8 0201 

0141 51 

0142 B9 0001 

0145 CD 13 

0147 59 

0148 72 08 

D14A 81 3E 7DFE R AA55 

0150 74 06 

0152 

0152 FE C2 

0154 E2 OF 

0156 CD 18 

0158 

0158 2E: FF 2E 0150 R 

0150 

0150 7COO R 

D15F 0000 

0161 


c int ivn be dette :call diskette bios 

C ;ignore error if any 

c 


C Boot from the first possible winchester drive. Only one attempt is made 

C to boot from each drive. A valid boot sector must have AA55 in its last 

C word. 

c 

c 

c 

c 

C win boot: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

mov 

int 

jc 

mov 

mov 

push 

mov 

int 

pop 

jc 

cmp 

je 

c win boot nxt: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

inc 

loop 

int 

boot SUCC: 

brec: 

jmp 

jmp 

dw 

dw 

dl,dnwin 

cx.drv total 

ah,bc reset 

ivn be 

win boot nxt 

bx,offset iv boot buf 

ax,bc rd*256+1 

ex 

ex, 1 

ivn be 

ex 

win boot nxt 

:least significant winchester drive # 

;max. number of winchester drives 

:bios command code 

:call disk bios 

:jump if error 

;address of sector buffer 

,read one sector 

:save drive count 

,sector number 

,call disk bios 

:restore drive count 


word ptr iv boot buf+sec size-2.Daa55h ;valid boot sector? 

- - - 

boot succ :jump if yes. 

dl 

win boot 

ivn basic 

iv boot buf 

dword ptr cs: [brec] 

offset iv boot buf 

0000 

c ·======================================== 

c 

c 

c 

c 

Call: int Odh 

return 

c Winchester interrupt handler 

c 

C Entry: No entry parameters 

c 

c Exit: No registers changed. 

c 

c 

c 

c id ih: 

;update drive number 

;jump if more drives to try 

:can't boot from disk. enter 

:ROM resident BASIC 

:jump to boot sector read from disk 

;jump to boot sector read from disk% 

;% 

;% 

1-59


0161 50 

0162 BO DB 

0164 E6 20 

0166 90 

0167 E4 20 

0169 A8 20 

016B 74 DE 

0160 BO 20 

016F E6 20 

0171 BO 07 

0173 E6 OA 

0175 E4 21 

0177 DC 20 

0179 E6 21 

017B 

017B 58 

017C CF 

0170 

0170 FB 

1-60 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

bogus: 

push 

ax :save register 

mov al,Obh set up to 

out p int+int w ocw2,al read the in service register of 8259 

nop seperate by nop 

in 

test 

al,p int+int w ocw2 

- -- 

al,20h 

read in service register 

if hard disk not in service zf=1 

jz bogus if zf=1 then bogus interrupt(exception) 

send eoi right away% 

mov al,int ocw2 eoi :end of interrupt bit 

out p int+int w ocw2,al :end of interrupt to 8259 

mov al,dma mask b s or dma mask b 3 ;set channel 3 mask bit 

- - -out 

p dma+dma w mask b,al ;set bit to disable channel 3 

- -- - 

in al,p int+int ocw1 :read interrupt mask 

or al,int ocw1 m5 :set mask register bit to disable 

out p int+int ocw1,al :channel 5 which is used by the wx2 

- - 

pop ax ;restore register 

iret ;long return & restore 

c ·======================================== 

c 

c 

c 

c 

Call: int 13h 

return 

C Function call to disk BIOS. 

c 

C Entry: (AH) =Command code 

C (AL) = Sector count or interleave factor 

C (ES:BX) = Address of buffer 

C (CL) bits 0- 5 =Sector number: 1, 2, 3, 

C (CL) bits 6, 7 = Bits 8, 9 of cylinder number 

C (CH) = Bits 0 - 7 of cylinder number 

flags 

C (DL) =Drive number. 0- 7f are diskettes. 80h and up are winchesters 

c (OH) = Head number 

c 

C Exit: (CF) = 0 --> no error 

c 

c 

1 --> error 

(AH) = Completion code. 0 --> no error 

C 

c 

(AL) = Error burst length if (AH) = 11h. Else, changed. 

C Read parameters: 

C (DL) = Number of usable drives at install time 

C (DH) = Maximum head number 

C (CL) Bits 0 - 5 = 17d --- Maximum sector number 

C (CL) bits 6, 7 = Bits 8, 9 of Maximum cylinder number 

C 

c 

(CH) = Bits 0 - 7 of maximum cylinder number 

C i13 ih proc far 

C 

c 

assume ds:nothing,es:nothing 

c sti ;enable interrupts 



D1ED 8A EA c mov ch.dl :drive # 

D1EF 80 E5 01 c and ch.01 ;mask to bit 0 

D1F2 B1 05 c mov cl,5 ; shift count 

D1F4 D2 E5 c shl ch.cl ;align drive bit for ccb 

D1F6 OA EE c or ch.dh ;combine with head number 

D1F8 88 2E 0043 R c mov ram ccb+1.ch ;Set into command control block 

c 

c ;Calculate the offset from p wx2 for drive: 

c Drive # Offset 

c 80, 81 0 

c 82, 83 4 

c 84, 85 8 

c 86, 87 12d 

D1FC 80 EA 80 c sub dl,dnwin ;origin to 0 

D1FF 81 E2 OOFE c and dx,OFEh 

D203 DO E2 c shl dl,1 

D205 86 F2 c mov si,dx ;save controller port offset 

c 

c *** D version added next 7 lines to set correct step rate *** 

D207 50 c push ax ;save command & # sectors 

D208 06 c push es ;save buffer address 

D209 E8 D4DA R c call subtable ;determine subtable to use 

D20C 26: 8A 47 08 c mov al.es:wst_opt[bx] ;option byte from subtable 

D210 A2 0047 R c mov ram ccb+ccb opt,al ;set into ccb. sets step rate 

- - 

D213 07 c pop es 

D214 58 c pop ax 

c 

c Table lookups indexed by the function call code 

c 

D215 8A C4 c mov al.ah :BIOS command code 

D217 BB D254 R c mov bx.offset de tbl ;pointer to table of controller 

c ;command codes 

D21A 2E: D7 c xlat CS:dC tbl ;translate bios command code 

D21C A2 0042 R c mov ram ccb+ccb cmd.al ;command code into ccb 

- - 

c 

D21F 8A DC c mov bl,ah ;bios command code 

D221 32 FF c xor bh,bh ;zero high byte 

D223 DO E3 c sal bl,1 ;multiply by 2 

D225 2E: FF A7 D22A R c jmp cs:br tbl[bx] ;branch to command specific routine 

c 

c 

D22A c br tbl label word 

D22A D269 R c dw i13 reset 

D22C D312 R c dw i13 cc 

- 

D22E D33A R c dw i13 rd 

D230 D317 R c dw i13 wr 

D232 D399 R c dw dma no ;4 --- verify 

D234 D399 R c dw dma no ;5 --- format track 

D236 D399 R c dw dma no ;6 --- format bad track 

D238 D399 R c dw dma no ;7 --- format drive 

- 

D23A D2EB R c dw i13 par rd 

D23C D28B R c dw i13 par wr 

D23E D31B R c dw i13 rdl 

D240 D32C R c dw i13 wrl 

D242 D399 R c dw dma no :12 -- seek 



0244 0269 R c dw i13 reset :13 --same as D 

- 

0246 0330 R c dw i13 buff rd 

0248 0336 R c dw i13 buff wr 

024A 0399 R c dw dma no :16 --test drive ready 

024C 0399 R c dw dma no ;17 -- recalibrate 

024E 0399 R c dw dma no :18 --RAM diagnostic 

0250 0399 R c dw dma no :19 --drive diagnostic 

0252 0399 R c dw dma no :20 -- controller diagnostic 

c 

0254 c de tbl label byte 

0254 DC c db de par set :reset sets parameters 

0255 DO c db 0 :return completion code 

0256 08 c db de rd 

0257 DA c db de wr 

0258 OS c db de vr 

- 

0259 06 c db de ft 

025A 07 c db de fbt 

025B 04 c db de fd 

025C DO c db 0 ;read parameters 

0250 DC c db de par set 

025E ES c db de rdl 

025F E6 c db de wrl 

0260 DB c db de seek 

0261 DC c db de par set :reset also sets parameters 

0262 DE c db de buff rd 

0263 OF c db de buff wr 

- 

- 

0264 DO c db de tst rdy 

0265 01 c db de recal 

- 

0266 ED c db dc_diag_ram 

0267 E3 c db de diag_drv 

0268 E4 c db de_ diag_ ctlr 

c .-------c 

page 

c Call: call i13 reset 

c return 

c 

c Purpose: Reset the target winchester controller. 

c 

c Entry: (si) = Offset to port base for target controller 

c 

c Exit: (ah) = Completion code 

c 

c 

0269 c i13 reset: 

0269 E8 0519 R c call wx2 reset :calculate address of reset port to use 

026C EE c out dx,al :reset wx2 controller 

0260 B9 0584 c mov ex,ti be reset :loop count for 3 ms on fastest 80286 V.F. 

0270 c re_dly: 

0270 E2 FE c loop re_dly ;Wait longer then 1 4 ms reset pulse 

0272 B4 DA c mov ah, 10 :msb of loop count 

0274 c re w: 

0274 42 c inc dx :control port 

0275 EE c out dx,al ;select the controller 

0276 4A c dec dx :status port 

0277 EC c in al,dx :read status 

1-64 


0278 A8 30 

027A 75 DC 

027C 24 00 

027E 34 00 

0280 74 09 

0282 E2 FO 

0284 FE CC 

0286 75 EC 

0288 

0288 B4 05 

028A 

028A C3 

028B 

028B C6 06 0043 R 00 

0290 E8 029A R 

0293 72 F5 

0295 C6 06 0043 R 20 

029A 

029A BO FC 

029C E8 047A R 

029F 72 E9 

02A1 E8 040A R 

02A4 BF 0001 

02A7 E8 020E R 

02AA BF 0000 

02AO E8 020E R 

02BO BF 0002 

02B3 E8 020E R 

02B6 BF 0004 

02B9 E8 020E R 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

test 

jnz 

and 

xor 

jz 

loop 

dec 

jnz 

C ctlr missing, 

C mov 

C ret near: 

C ret 

c 

c 

c 

c 

c 

Call: 

al,wx2 stat int or wx2 stat drq 

- - - 


ctlr_missing ;jump if the controller is missing 

al,wx2 stat busy or wx2 stat cd or wx2 stat req 

al,wx2_stat busy or wx2 stat cd or wx2 stat req 

i13 par wr 

re w 

ah 

re w 

ah,ec reset 

call i13 par wr 

return 

c Purpose: Set parameters 

c 

;jump if reset successful and the 

,controller is trying to read ccb 

:jump if no rollover 

,update msb of counter 

:jump if success still possible 

:error code 

:exit 

C Entry: (si) =Offset to port base for target controller 

c 

c Exit: (ah) = Completion code 

C *** As of A3 version, step rate selection is not part of Set Parameters 

C *** command. Step rate is moved to CCB from subtable on every command. 

c 

C i13 par wr: 

c 

c 

c 

c 

c 

c 

C par wr: 

c 

c 

c 

c 

c 

c 

mov 

call 

jc 

mov 

mov 

call 

jc 

call 

ram ccb+1,0 

par wr 

ret near 

ram ccb+1,ccb drv b 

- - - 

:drive 0 is 1st target 

:set parameters for 1 drive 


:set drive bit 

al,not(wx2_msk dma or wx2 msk int) ,no dma & no interrupt 

ccb send :send CCB to target controller 

ret near :jump if error 

subtable :determine subtable to use 

C Send 8-byte parameter block to the target controller. 

C Note that the bytes are sent MSB first, then LSB 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

call 

mov 

call 

mov 

call 

mov 

call 

di,wst_cyl+1 

send_byte 

di,wst_cyl+O 

send byte 

di,wst heads 

send_byte 

di,wst re wr+1 

send_byte 

:offset to byte to send 

:send msb of number of cylinders 

:LSB of number of cylinders 

:send 1 byte 

:number of heads 

;send 1 byte 

:MSB of reduced write current cyl 

;send 1 byte 

1-65


c 

02BC BF 0003 c mov di.wst re wr+O :LSB of reduced write current cyl 

02BF E8 020E R c call send_byte ;send 1 byte 

c 

02C2 BF 0006 c mov di,wst wr pre+1 :MSB of write precomp. cyl 

02C5 E8 020E R c call send_byte ;send 1 byte 

c 

02C8 BF 0005 c mov di,wst wr pre+O :LSB of write precomp cyl 

02CB E8 020E R c call send_byte ;send 1 byte 

c 

02CE BF 0007 c mov di,wst er bur :maximum burst length 

0201 E8 020E R c call send_byte ;send 1 byte 

c 

0204 E8 04AC R c call wx2 cc :receive command completion byte 

0207 72 02 c jc par wr erx ;jump if error prevented reception 

0209 74 02 c jz ret near 1 :jump if no error on command 

c 

020B c par wr erx: 

020B B4 07 c mov ah,ec init :error code 

0200 c ret near 1: 

- 

0200 C3 c ret :exit 

c 

c 

020E- c send byte: 

020E E8 04C9 R c call wx2 req ;wait for data request 

02E1 72 05 c jc send err ;jump if error 

02E3 26: SA 01 c mov al,es: [bx+di) :byte to send 

02E6 EE c out dx,al ;send to wx2 

02E7 C3 c ret :exit 

c 

c 

02E8 c send err: 

02E8 58 c pop ax :throw away near return 

02E9 EB FO c jmp par_wr_erx :error exit from write parameters 

c 

c ·======================================== 

c 

c Call: call i13 par rd 

c return 

c 

c Read parameters 

c 

c Entry: (si.) = offset to port base for target controller 

c 

c Exit: (OL) = Number of usable drives at install time 

c (OH) = Maximum head number 

c (CL) Bits 0 - 5 = 17d --- Maximum sector number 

c (CL) bits 6, 7 = Bits 8, 9 of Maximum cylinder number 

c (CH) = Bits 0 - 7 of maximum cylinder number 

c 

02EB c i13 par rd: 

02EB E8 040A R c call subtable :determine subtable to use 

02EE 26: 8B 07 c mov ax,es:wst_cyl[bx) :number of cylinders 

02F1 20 0002 c sub ax,2 :max. cylinder number 

c ;The last cylinder is reserved. 


D33A 

D33A 80 07 

D33C 

033C SA 16 0046 R 

0340 

0340 50 

0341 80 00 

0343 E6 63 

0345 58 

0346 BF 0200 

0349 

0349 FA 

D34A E6 DB 

D34C 90 

0340 90 

D34E E6 DC 

0350 8C CO 

0352 81 04 

0354 03 co 

0356 SA E8 

0358 24 FO 

D35A 03 46 DE 

0350 80 OS 00 

0360 E6 06 

0362 86 EO 

0364 E6 06 

0366 86 cs 

0368 SA CC 

D36A 24 OF 

D36C E6 82 

D36E 88 C7 

0370 32 F6 

0372 F7 E2 

0374 20 0001 

0377 80 DA 00 

D37A E6 07 

D37C 86 C4 


C Entry: (si) = Offset to port base for target controller 

c 

C Exit: (ah) = Completion code 

c 

c i13 rd: 

C mov 

C io norm: 

C mov 

C sec size norm: 

C IF DMACC 

C push 

C mov 

C out 

c pop 

C ENDIF 

C mov 

c 

al,dma mode wr 

dl,ram ccb+ccb blks 

ax 

al,dmanorm 

p dmacc,al 

ax 

- - 

di,sec size 

C Prepare the DMA chip 

c 

C dma start: 

c 

c 

c 

c 

c 

c 

eli 

out 

nop 

nop 

out 

p_dma+dma_w_mode,al 

p_dma+dma w byte,al 


;byte to set dma chip to write to host 

;number of blocks to transfer 

;norm sector dma% 

;tell dma ace that this is a norm sector% 

;numbr of bytes per sector 

C Calculate the 20-bit address of the DMA base address 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

rol 

mov 

and 

add 

a de 

out 

xchg 

out 

xchg 

mov 

and 

out 

ax,es 

cl,4 

ax,cl 

ch,al 

al, OfOh 

ax,a1 bx[bp] 

ch,O 

p dma+dma w addr,al 

ah,al 

p dma+dma w addr,al 

al,ch 

cl,ah 

al,Ofh 

p dma latch,al 

- -- 

:disable interrupts 

:set read or wr-ite to host 

: Can't handle back to% 

: back writes to dma controller % 

;clear pointer to register byte 

,segment reg for i/o buffer 

,count for shift 

:multiply by 16 

:bits 16 - 19 in bits 0 - 3 

;clear bits 0 - 3 of address 

:combine 16-bit offset with seg base 

:add carry into MS bits 

,set bits 0 -7 of dma address 

:bits 8 - 15 to al 

;set bits 8 - 15 of dma address 

:bits 16 - 19 of dma address to al 

:bits 0 - 15 of addr in ex now 

:mask to 4 bits 

:set 4-bit latch for highest address 

:bits 

C Calculate the number of bytes to be DMAed minus 1. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

xor 

mul 

sub 

sbb 

out 

xchg 

ax,di 

dh,dh 

dx 

ax, 1 

dl, 0 

p dma+dma w cnt,al 

al,ah 

:block size in bytes 

:clear upper byte 

;number of bytes to dma: (ax) LSW 

:(dx) is MSW 

;byte offset to last byte to be trans 

:bits 16 - 23 of byte offset. 

: and set ZF 

;set bits 0 - 7 of byte count 

:bits 8 - 15 of count to al 

1-69


037E E6 07 

0380 F8 

0381 75 13 

0383 86 EO 

0385 03 C1 

0387 72 00 

0389 80 03 

0388 E8 047A R 

038E 72 08 

0390 80 03 

0392 E6 OA 

0394 E8 OA 

0396 

0396 84 09 

0398 

0398 C3 

0399 

0399 80 02 

0398 E8 047A R 

039E 72 F8 

03AO 

03AO FA 

03A1 E4 21 

03A3 24 OF 

03A5 E6 21 

1-70 

c 

c 

c 

c 

out 

sti 

p dma+dma w cnt.al ;set bits 8 - 15 of byte count 

:enable interrupts 

C Check for DMA spanning 64k absolute address boundary 

C :Are bits 16 - 23 of byte offset O? 

C : note: If the block count is 0, 

C then (dl) = ff. 

jnz 

ah,al 

:byte offset to last byte transferred 

ax,cx 

:transferred. 

jc 

C :boundary 

c 

c 

c 

c 

c 

c 

xchg 

add 

dma 64k 

dma 64k 

C Start winchester controller and DMA controller. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C dma 64k: 

mov 

call 

jc 

mov 

out 

jmp 

C mov 

C ret near 3: 

c ret 

C page 

;jump if dma more than 64kb 

:lsw of address of last byte 

;jump if dma crosses absolute 64k 

al,wx2 msk dma or wx2 msk int :dma & interrupt enable 

- - - - 

ccb send ;send ccb to wx2 

ret near 3 :jump if error 

al,dma mask b 3 ;clear bit 3 of mask register 

p dma+dma w mask b,al :enable channel 3 

short wx2 wait 

- -- - 

ah,ec dma 64k ;completion error code 

c ·======================================== 

c 

c 

c 

c 

Call: call i13 dma no 

return 

;exit 

C Purpose: Execute a command involving the winchester controller 

C but not involving DMA. 

c 

C Entry: (si) = Offset to port base for target controller 

c 

c 

c 

Exit: 

C dma no: 

c 

c 

c 

c 

mov 

call 

jc 

(ah) = Completion code 

al,wx2 msk int 

ccb send 

ret near 3 

;enable interrupt by wx2 

;send ccb to wx2 


C Wait for the winchester interrupt in a polling loop 

c 

C wx2 wait: 

c 

c 

c 

c 

eli 

in 

and 

out 

al,p int+int ocw1 

al,not int ocw1 m5 

p int+int ocw1,al 

;disable interrupts 

:read interrupt mask 

:enable channel 5 interrupts 

;set interrupt mask 


D3A7 FB 

D3A8 53 

D3A9 51 

D3AA 06 

D3AB E8 D4DA R 

D3AE 33 CO 

D3BO AD 0042 R 

D3B3 30 OOE3 

D3B6 74 DC 

D3B8 30 0004 

D3BB 74 DE 

D3BD 26: 8A 47 09 

D3C1 EB DC 90 

D3C4 

D3C4 26: 8A 47 DB 

D3C8 EB 05 90 

D3CB 

D3CB 26: 8A 47 OA 

D3CF 

D3CF 33 DB 

0301 8A 08 

0303 B9 0002 

0306 03 E3 

0308 

0308 33 C9 

D3DA E8 0519 R 

0300 

0300 EC 

D3DE A8 20 

D3EO 75 OF 

D3E2 A8 08 

D3E4 74 05 

D3E6 

D3E6 E2 F5 

D3E8 4B 

D3E9 75 ED 

D3EB 

D3EB 07 

D3EC 59 

D3ED 5B 

D3EE 

D3EE E9 D48B R 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C drv_diag: 

c 

c 

sti 

push 

push 

push 

call 

xor 

mov 

cmp 

jz 

cmp 

jz 

mov 

jmp 

mov 

jmp 

C drv format: 

c 

c 

C continue: 

c 

c 

c 

c 

c 

c 

c 

mov 

xor 

mov 

mov 

shl 

mov 

C wait more: 

C xor 

C call 

C int wait: 

c in 

C test 

C jnz 

c test 

C jz 

c 

C fall, 

C loop 

C dec 

C jnz 

C ret time k: 

c 

c 

c 

pop 

pop 

pop 

c ret_time_j: 

C jmp 

c 

c 

bx 

ex 

es 

subtable 

ax.ax 

al.ram ccb+ccb cmd 

- - 

ax,dc_diag drv 

drv_diag 

ax,dc fd 

drv format 

al,es:[bx+wst sto] 

continue 

al,es:[bx+wst ddto] 

continue 

al,es:[bx+wst_fto] 

bx,bx 

bl,al 

cx,2 

bx,cl 

ram cc,O 

cx,cx 

wx2 stat 

al,dx 

al,wx2 stat int 

wx2 int 

al,wx2 stat_busy 

ret time k 

int wait 

bx 

wait more 

es 

ex 

bx 

ret time 

:enable interrupts 

;% 

;save these registers% 

;just in case% 

;% 

which parameter table is being used% 

clear ax% 

which command was it?% 

was it a drive diagnostic command?% 

if so jump% 

was it a format drive command?% 

if so jump% 

if we're here so it must be% 

a standard command% 

continue with this dirty deed% 

get the drive diagnostic time out value% 

get on with it% 

get the format drive time out value% 

; clear bx% 

; put time out value into bx% 

::; ::changed%%%% 

;% 

we are soooo fast we should% 

make this number bigger, MUCH% 

clear ram cc % 

;clear ex% 

;calc. address of target port 

:read wx2 status 

:interrupt? 

;jump if yes. 

;busy? 

;jump if not busy.% 

;% 

;% 

;% 

;% 

;% 

;% 

;% 

;return time-out error 

1-71


D3F1 

D3F1 07 

D3F2 59 

D3F3 SB 

D3F4 E8 D51E R 

D3F7 80 FC 

D3F9 EE 

D3FA E8 D4AC R 

D3FD 72 EF 

D3FF 74 97 

0401 C6 06 0042 R 03 

0406 BO FC 

D40S E8 D47A R 

0408 72 6A 

0400 BF 0042 R 

0410 SC OS 

0412 SE CO 

0414 89 0004 

0417 FC 

D41S 

D41S ES D4C9 R 

0418 72 SA 

0410 EC 

D41E AA 

D41F E2 F7 

0421 ES D4AC R 

0424 72 51 

0426 75 4F 

D42S SA 2E 0042 R 

D42C SA DO 

D42E 81 E3 0030 

0432 81 03 

0434 02 E8 

0436 SA ES 

D43S SO E4 OF 

0438 2E: 3A A7 0523 R 

0440 73 32 

0442 43 

0443 2E: 8A 9F 0523 R 

0448 02 DC 

1-72 

C wx2 int: 

c pop 

c pop 

C pop 

c 

c 

c 

c 

c 

c 

c 

c 

c 

call 

mov 

out 

call 

jc 

jz 

es 

ex 

bx 

;% 

;% 

;% 

wx2 msk 

;calc. address of target msk 

al.not (wx2_msk_dma or wx2_msk int) :disable dma & 

dx,al 

:interrupts 

wx2 cc 

;read completion code from wx2 

ret_time_j 

;jump if error prevented cc reception 

ret near 3 

;jump if no error 

C The controller reported an error. Read status to obtain more error 

C information. 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

call 

jc 

ram ccb+ccb cmd,dc stat rd :Read status command 

- - - - 

al.not (wx2_msk_dma or wx2_msk_int) ;no dma or interrupt 

ccb send 

stat err 

:by wx2 

;send command to wx2 

;jmp if error 

C Read the 4-bytes of error status from the controller. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

mov 

mov 

cld 

C stat loop: 

C call 

jc 

in 

stosb 

loop 

call 

jc 

jnz 

di,offset ram stat 

ax,ds 

es.ax 

cx,4 

wx2 req 

stat err 

al,dx 

stat loop 

wx2 cc 

stat err 

stat err 

:offset to 4-byte area for status 

;ram segment 

;set es for stosb instruction 

;number of status bytes 

:clear direction --> inc di 

;wait for request 


:read status byte 

;save status byte 

;jump if more status to read 

:receive command completion byte 

;jump if error prevented reception 

;jump if error on command 

C Translate the controller error code into a BIOS error code 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

and 

mov 

shr 

mov 

and 

cmp 

jnc 

inc 

mov 

add 

ch,ram stat 

bl,ch 

bx.30h 

cl, 3 

bl,cl 

;error code 

;mask to error type field 

;shift count 

:type times 2 

ah,ch ;error code 

ah,Ofh ;mask to error in type field 

ah.cs:[bx]+offset er_master_tbl :number of error codes in type 

undef 

;jump if out of range 

bx 

;update table address 

bl,cs:[bx]+offset er_master_tbl ;offset to subtable 

bl,ah ;error code subfield 


044A 2E: 8A A7 0523 R c mov ah.cs:(bx]+offset er_master_tbl ,completion code 

044F 80 FO 18 c cmp ch,erc corr ;correctable ECC error? 

0452 75 22 c jne ret near 5 ;jump if no 

c 

c ECC error corrected ---> Read the error burst length 

c 

0454 8A FC c mov bh,ah ;save completion code 


0456 C6 06 0042 R 00 c mov ram ccb+ccb cmd,dc ecc rd ;read error burst length 

0458 BO FC c mov al,not (wx2_msk_dma or wx2_msk_int) ;no dma or interrupt 

- - - - 

c ;by wx2 

0450 E8 047A R c call ccb send ;send command to wx2 

0460 72 15 c jc stat err ;jmp if error 

0462 E8 04C9 R c call wx2 req ;wait for request 

0465 72 10 c jc stat err ;jump if error 

0467 EC c in al,dx :read error burst length 

0468 8A 08 c mov bl,al ,save 

046A E8 04AC R c call wx2 cc ;receive completion byte 

- 

- 

- 

0460 72 08 c jc stat err ;jump if error prevented reception 

046F 75 06 c jnz stat err ;jump if error on command 

0471 88 C3 c mov ax,bx ;completion code & error burst length 

0473 C3 c ret ;exit 

c 

c 

0474 c undef: 

0474 84 BB c mov ah,ec undef ;undefined error code 

0476 c ret near 5: 

0476 C3 c ret ,exit 

c 

c .-------c 

0477 c stat err: 

0477 84 FF c mov ah,ec stat ;read status failed 

0479 C3 c ret ;exit 

c 

c ======================================== 

c 

c Call: call ccb send 

c return 

c 

c Send the Command Control Block to the wx2 controller 

c 

c Entry: (al) = byte to set into wx2 mask port 

c (ram_ccb + 0, 1, 2, 3, 4, 5) = ccb to send to wx2 

c (si) = offset to port base for target controller 

c 

c Exit: (CF) = 0 -->no error. 1 --> error 

c (AH) = Error completion code, if error 

c Changed: ax, ex, dx, di 

c Unchanged: bx, bp, si 

c 

047A c ccb send: 

047A E8 051E R c call wx2 msk :calculate address of target mask port 

- 

0470 EE c out dx.al ;set wx2 mask port 

- 

047E 4A c dec dx ;address of target select port 

047F EE c out dx,al ;select wx2 



048D 4A c 

0481 B9 D258 c 

c 

c 

0484 c 

0484 EC c 

0485 AS D8 c 

0487 75 D6 c 

0489 E2 F9 c 

c 

048B c 

0486 B4 8D c 

0480 F9 c 

048E c 

048E C3 c 

c 

c 

048F c 

048F BF DD42 R c 

0492 B9 DDD6 c 

0495 FC c 

c 

0496 c 

0496 E8 04C9 R c 

0499 72 F3 c 

c 

049B 24 DE c 

0490 34 DC c 

049F 75 EA c 

c 

04A1 87 FE c 

04A3 AC c 

04A4 87 FE c 

04A6 EE c 

04A7 E2 EO c 

c 

04A9 E9 03DF R c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

dec 

mov 

mov 

busy_wait: 

in 

test 

jnz 

loop 

ret time: 

mov 

stc 

ret near 2: 

ret 

busy: 

mov 

mov 

cld 

ccb_byte: 

call 

jc 

Call: 

dx 

cx,6DD 

cx,3DD 

al,dx 

al,wx2_stat_busy 

busy 

busy_wait 

ah,ec time 

di,offset ram ccb 

cx,6 

wx2 req 

ret near 2 

;address of target status port 

;loop counter(value doubled)% 

;loop counter 

;read wx2 status 

:busy? 

; jump if yes. 

;loop if success still possible 

;completion code 

; set error flag 

;exit 

;pointer to ccb 

:number of bytes in a ccb 

;clear direction --> inc si 

;Wait for data request 


and al,wx2 stat_busy or wx2_stat cd or wx2 statio 

xor al,wx2_stat_busy or wx2_stat cd ;command byte requested? 

jnz ret time 

;jump if no. 

xchg di,si 

lodsb 

xchg di,si 

out dx, al 

loop ccb byte 

jmp ret no err 

call 

return 

wx2 cc 

Read command completion byte 

Entry: (si) = offset to port base for target controller 

Exit: (cf) = D --> no error in reading completion byte 

1 -->error, completion byte not read 

(zf) = Valid only if (cf) = D 

1 --> error bit in completion byte not set 

D --> error bit in completion byte set 

(ah) = D 

changed: ax, dx 

unchanged: bx, ex, bp, si, di 

;ccb pointer to si & save port offset 

;ccb byte to al 

;restore port offset to si & save ccb 

;send to wx2 

;loop if more ccb bytes 



0537 00 

0538 04 

0539 40 

053A 00 

0538 00 

053C 11 

0530 DB 

= OOOA 

053E 

053E 01 

053F 02 

= 0002 

0540 

0540 20 

0541 20 

0542 10 

= 0003 

0543 38 35 2F 30 31 2F 

0548 

CEF7 

CEF7 

0550 

1-78 

32 35 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

db ec no err 

db ec sec not fnd 

db ec seek 

db ec no err 

db ec no err 

db ec ecc cor 

db ec bad trk 

- - 

- - 

tU equ $-t1 tbl 

t2 tbl: 

db ec be 

db ec addr mark 

t21 equ $-t2 tbl 

t3 tbl: 

db ec cntlr 

db ec cntlr 

db ec ecc un 

- 

- - 

t31 equ $-t3 tbl 

code ends 

db " 85/01/25" 

end 

- 

c 

c 

c ·=============================================================================== 

c 

c 

code ends 

include graph.asm 

Filename: graph.src 

;not used 

;sector not found 

;seek error 

;not used 

;not used 

;ecc error corrected 

;bad track 

;invalid command 

;illegal disk address 

;RAM failure 

;ROM checksum error 

;ECC subsystem failure 

;release date 

c This module includes the four graphics functions for INT 10h. 

c 

c 

c ·=============================================================================== 

c 

C page 

c .------------------------------------------------------------------------------- 

c INT 10h Graphics Support 

c 

C Must preserve bx, ex, dx and return values in ax 

c 

c All other registers are saved and restored by video dispatcher. 

c 

c Entered with the following in registers: 

C al, bx, ex, dx intact (set by INT 10 invoker) 

c ah = v mode 

c ·------------------------------------------------------------------------------c 

C code segment public 'ROM' 

C assume cs:code, ds:data, es:v ram, ss:nothing 

c 

c ORG 00550H 

C ;Attempt to force a vacant space in the code for the hdu % 

c 

C page 

c ·=============================================================================== 



e 

e 

e 

e 

e 

e 

e 

056A e 

e 

056A 52 e 

056B 51 e 

056e 50 e 

e 

0560 E8 0595 R e 

0570 26: 8A OS e 

0573 SA e 

0574 52 e 

0575 OA 02 e 

0577 78 06 e 

0579 F6 04 e 

057B 22 e4 e 

0570 F6 04 e 

057F e 

057F FE e1 e 

0581 80 FE 05 e 

0584 7F 02 e 

0586 FE e1 e 

0588 e 

0588 02 eA e 

058A 22 04 e 

058e 32 e2 e 

058E 26: 88 05 e 

e 

0591 58 e 

0592 59 e 

0593 SA e 

0594 e3 e 

e 

0595 e 

e 

e 

e 

e 

e 

e 

e 

e 

e 

e 

e 

e 

e 

e 

e 

e 

1-80 

OX = row (0-399) (the actual value depends on the mode) 

ex = column (0-639) (the values are not range checked) 

Saved: AX. BX. ex. OX (Video dispatcher saves the rest) 

grf_write_dot proc near 

push 

or 

js 

not 

and 

not 

g xorbit: 

inc 

cmp 

jg 

inc 

g align dot: 

ror 

push dx preserve working registers 

push ex 

push ax 

call g addr ; compute address & mask 

mov al,byte ptr es:[di] ; fetch byte from video memory 

pop dx get v mode & dot value to write 

dx 

dl,dl 

g xorbit 

ah 

al,ah 

ah 

cl 

dh,S 

g align dot 

cl 

resave 

is the XOR bit set? 

jump if yes 

invert mask 

clear bits for new pixel 

restore mask for later 

prep for wraparound right (b&w) 

color ? 

jump if no 

prep for wraparound right (color) 

dl,cl 

align new pixel 

and dl,ah 

strip off non-pixel bits (xor bit, etc) 

xor al.dl OR or XOR in new pixel depending on xor bit 

mov byte ptr es:[di].al ; update video memory 

pop ax ; restore registers 

pop ex 

pop dx 

ret 

grf_write_dot endp 

page 

This subroutine determines the video RAM byte location 

of the indicated row column value. The current graphics mode 

is taken into account. 

INPUT: 

OUTPUT: 

AH = current graphics mode 

OX = row value (0-399) 

ex = column value (0-639) 

or = byte address of pixel location in video ram 

AH = mask of pixel in byte 



0505 22 EA 

0507 03 EA 

0509 03 FA 

0506 80 F9 03 

D5DE 74 02 

D5EO DO E5 

D5E2 

D5E2 86 CD 

05E4 B4 80 

D5E6 02 EC 

D5E8 80 FD 03 

D5EB 74 06 

D5ED 8A C4 

D5EF DO E8 

D5F1 OA EO 

D5F3 

D5F3 C3 

05F4 

1-82 

C CL = shift count to divide column by pixels per byte 

C 3 for b&w (divide by 8), 2 for color (divide by 4) 

C CH = remainder's mask during division (7 for b&w , 3 for color) 

C OX = column 

C DI = address to column 0 of requested row 

c 

c 

c 

c 

and 

shr 

ch,dl 

dx,cl 

get division's remainder inCH 

perform division 

C OX = quotient = column's byte offset from start of row 

C CH =remainder (=pixel's offset into byte) 

c 

c 

c 

add 

C NOW: 

di,dx : DI =pixel's byte address 

c DI = address of byte containing the pixel 

c CH = pixel offset into byte (remainder) 

C CL = 3 (black & white) or 2 (color) 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

cmp 

je 

shl 

g_bitmask: 

g_skp_5: 

xchg 

mov 

shr 

cmp 

je 

mov 

shr 

or 

ret 

g_addr endp 

page 

cl,3 

g_bitmask 

ch,1 

cl,ch 

ah,80H 

ah,cl 

ch,3 

g skp 5 

al,ah 

al,1 

ah,al 

black & white? 

jump if yes 

color: convert to bit offset 

load CL, preserve " mode" 

set high bit in byte 

mask pixel's leftmost bit 

black & white? 

jump if yes 

color: create 2-bit mask 

DI = byte address. AH = pixel mask, 

CL =bit offset: pixel's leftmost bit 

c ·=============================================================================== 

c 

c Scroll Up In Graphics Mode 

c 

c Scroll up the number of lines specified within the specified screen 

c area (window). 

c 

C Input: 

c 

c 

c 

c 

c 

c 

c 

c 

AL = 

BH = 

number of lines to be scrolled up ( zero 

means clear the window) 

fill pattern to be used 

CH,CL = upper left corner of window in which to scroll 

DH,DL = lower right corner of window in which to scroll 

OS = data segment 

ES = graphics refresh ram segment 


D5F4 

05F4 53 

D5F5 51 

D5F6 52 

05F7 80 0050 

05FA 50 

D5F8 88 C1 

05FD E8 D8E1 R 

0600 88 F8 

0602 06 

0603 1F 

0604 28 01 

0606 81 cz 0101 

060A 58 

0608 83 02 

0600 8A C8 

D60F 80 FC 40 

0612 72 06 

0614 83 04 

0616 74 02 

0618 DO F9 

D61A 

D61A 02 EO 

D61C 02 E6 

D61E 88 C8 

0620 80 FD 06 

0623 70 04 

0625 01 E7 

0627 DO EZ 

0629 

0629 81 E1 DOFF 

0620 74 3C 

D62F 88 C1 

0631 8A E9 

0633 86 F5 

0635 88 F7 

0637 81 04 

0639 03 EO 

0638 03 FO 


C Saved: 8X, ex. OX (Video dispatcher saves the rest) 

c 


c .------------------------------------------------------------------------------- 

( 

C grf_graphics_up proc near 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

push 

push 

push 

cld 

niOV 

push 

mov 

call 

mov 

push 

pop 

sub 

add 

pop 

mov 

mov 

cmp 

jb 

mov 

je 

sar 

C g_tst_mod: 

c 

c 

c 

c 

c 

c 

c 

c 

C g_set_up: 

sal 

sal 

mov 

cmp 

jge 

sal 

sal 

C and 

C jz 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

xchg 

mov 

mov 

sal 

add 

bx 

ex 

dx 

bp,80 

ax 

ax,cx 

g_curs off 

di,ax 

es 

ds 

dx,cx 

dx,101H 

ax 

bl,Z 

cl,bl 

ah,64 

g_tst_mod 

bl,4 

g_tst_mod 

cl. 1 

al,cl 

dh,cl 

cx,ax 

ch.6 

g_set_up 

di,1 

dl, 1 

save 

the 

registers 

:dir. flag = increment (from v scrl up) 

;offset to next scanline (CLD => +80) 

;save mode. #rows to scroll 

;compute address of window's 

upper left corner 

:save in DI for string instructions 

;set OS to video ram for string inst. 

;compute window's dimensions 

DH = height. DL = width 

:AH = mode, AL = # rows to scroll 

;# interlace areas = 2 for modes 4,5,6 

;# scanlines per i.a. = 4 for modes -72 

;jump if mode= 4.5,6 

;# interlace areas = 4 for modes 64 & 72 

;jump if mode = 64 

;# scanlines per i.a. = 2 for mode 72 

;convert number of rows to number of 

scanlines per interlace area 

:CH = mode, CL = # scanlines to scroll 

:are we in a medium resolution mode ? 

:jump if no 

:double number of bytes per character 

;get address of lines to scroll in refresh ram memory 

cx,OOFFH :CX = # of scanlines to scroll per i.a. 

g filler :if zero. go fill all of window 

ax,cx 

ch,cl 

dh.ch 

si,di 

cl.4 

ax,cl 

si,ax 

;make DH = # scanlines to fill per i.a. 

AX = # scanlines to scroll " 

CH = # scanlines in window " 

;compute address of scanline to be 

scrolled to top of window: 

0662 SE 

0663 03 FD 

0665 03 FS 

0667 FE CC 

0669 75 DE 

0668 

0668 

0668 SA C7 

0660 

0660 57 

066E 52 

066F 

D66F 57 

0670 SA CA 

0672 F3/ AA 

0674 SF 

067S 03 FD 

0677 FE CE 

0679 75 F4 

0678 SA 

D67C SF 

0670 S1 C7 2000 

D6S1 FE C8 

06S3 7S ES 

0685 SA 


c 

c 

c 

c 

c 

c 

pop 

add 

add 

dec 

jnz 

si 

di,bp 

si,bp 

ah 

c 

c 

c g_ scroller endp 

c 

C page 

g scroller 

jmp short g_filler 

and destination addresses 

;address next scanline in 

each interlace area 


; loop to move " all" scanlines in 

each interlace area 

;now fill in the gap 

c ·=============================================================================== 

c 

C Fill rows in graphics refresh memory with the fill pattern 

c 

c 

C Input: 

c 

c 

c 

c 

c 

c 

c 

c 

c Output: 

c 

c 

c 

8L = 

8H = 

CH = 

DL = 

DH = 

DI = 

8P = 

AL = 

AH = 

Number of interlace areas 

Fill pattern to be used 

0 

Number of bytes to fill in each scanline 

Number of scanlines to fill in each interlace area 

Destination scanline address of first byte to fill 

offset to next scanline (+/- SO) 

fill pattern 

0 

c .-----------------------------------------------------------------------------c 

C g_filler 

c 

c 

c 

mov 

c g_f_i_lp: 

c push 

c push 

c 

c g_f_s_lp: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

push 

mov 

rep 

pop 

add 

dec 

jnz 

pop 

pop 

add 

dec 

jnz 

pop 

proc near 

al,bh ;AL = fill pattern for STDSB instruction 

:Fill Interlace Areas Loop 

di ;save interlace area address 

dx ;save scanlines count (DH) 

;Fill Scanlines Loop 

di 

cl,dl 

stosb 

di 

di,bp 

dh 

g f s lp 

dx 

di 

di,2DDDH 

bl 

g f i lp 

dx 

;save scanline address 

;count of bytes to fill in scanline 

; fill scanline 

;restore scanline address 

;next scanline in interlace area 

;fill an interlace area 

:restore scanlines count (DH) 

;restore interlace area address 

;next interlace area address 

;fill next interlace area 

;restore 

1-85


0686 59 

0687 58 

0688 C3 

0689 

0689 

0689 53 

D68A 51 

0688 52 

D68C BD FFBO 

D68F 50 

0690 88 C2 

0692 E8 D8E1 R 

0695 88 F8 

0697 06 

0698 1F 

0699 28 01 

0698 81 C2 0101 

D69F 58 

D6AO 83 02 

D6A2 8A CB 

D6A4 80 FC 40 

D6A7 72 06 

D6A9 83 04 

D6AB 74 02 

1-86 

c 

c 

c 

c 

C g_filler 

c 

C page 

pop 

pop 

ret 

ex the 

bx registers 

endp 

;exit scroll routine 

c ·=============================================================================== 

c 

C Scroll Down In Graphics Mode 

c 

c Scroll down the number of lines specified within the specified screen 

c area (window). 

c 

C Input: 

c 

c 

c 

c 

c 

c 

c 

c 

AL 

BH 

= number of lines to be scrolled up ( zero 

means clear the window) 

= fill pattern to be used 

CH,CL = upper left corner of window in which to scroll 

DH,DL = lower right corner of window in which to scroll 

OS = data segment 

ES = graphics refresh ram segment 

c Saved: BX, CX, OX (Video dispatcher saves the rest) 

c 

c .------------------------------------------------------------------------------- 

( 

c grf_graphics_down 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

push 

push 

push 

std 

mov 

push 

mov 

call 

mov 

push 

pop 

sub 

add 

pop 

mov 

mov 

cmp 

jb 

mov 

je 

bx 

ex 

dx 

bp,-80 

ax 

ax,dx 

g_curs_off 

di,ax 

es 

ds 

dx,cx 

dx,101H 

ax 

bl,2 

cl,bl 

ah,64 

g_cmp_mod 

bl,4 

g cmp_mod 

proc near 

save 

the 

registers 

:dir. flag= decrement (from v_scrl_dn) 

:offset to next scanline (STD => -80) 

;save mode, # rows to scroll 

;compute address of window's 

lower right corner 

;save in DI for string instructions 

;set OS to video ram for string inst. 

;compute window's dimensions 

DH = height, DL = width 

:AH =mode, AL = # rows to scroll 

;# interlace areas = 2 for modes 4,5,6 


;jump if mode = 4,5,6 

;# interlace areas = 4 for modes 64 & 72 



D6AD DO F9 

D6AF 

D6AF 02 EO 

0661 02 E6 

0663 80 FC 06 

0666 70 05 

0668 01 E7 

D6BA DO E2 

D6BC 47 

0660 

0660 BE 0050 

D6CO 03 E6 

D6C2 83 EE 50 

D6C5 03 FE 

06C7 86 C8 

06C9 81 E1 DOFF 

06CD 74 9C 

D6CF 86 C1 

0601 SA E9 

0603 86 F5 

0605 86 F7 

0607 61 04 

0609 03 EO 

0606 26 FO 

0600 01 EO 

D6DF 01 EO 

D6E1 26 FO 

D6E3 8A E5 

D6E5 2A E6 

D6E7 33 C9 

D6E9 E9 0649 R 

D6EC 

D6EC 


c 

c 

sar 

C g_cmp_mod: 

C sal 

C sal 

c 

c 

c 

c 

c 

c 

cmp 

jge 

sal 

sal 

inc 

cl. 1 

al.cl 

dh,cl 

ah,6 

g_setdown 

di,1 

dl,1 

di 



,convert number of rows to number of 

scanlines per interlace area 

:are we in a medium resolution mode ? 

;jump if no 

;double number of bytes per character 

;address last byte in bottom row 

C g_setdown: ;get address of lines to scroll in refresh RAM memory 

C mov si,80 

;address bottom scanline in i.a. 

C sal 

C sub si,80 

C add 

cx,ax 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

and 

jz 

mov 

mov 

xchg 

mov 

mov 

sal 

sub 

sal 

sal 

sub 

mov 

sub 

xor 

si,cl 

di,si 

cx,OOFFH 

g filler 

ax,cx 

ch.cl 

dh,ch 

si,di 

cl.4 

ax,cl 

si,ax 

ax, 1 

ax, 1 

si,ax 

ah.ch 

ah,dh 

CX,CX 

c jmp g_scroller 

c 

C grf_graphics_down 

c 

C page 

endp 

;CH = mode, CL = # scanlines to scroll 

;CL = # of scanlines to scroll per i.a. 

;if zero. go fill all of window 

;make DH = # scanlines to fill per i.a. 

AX = # scanlines to scroll 11 

CH = # scanlines in window 11 

;compute address of scanline to be 

scrolled to top of window: 


D6EC 53 

D6ED 51 

D6EE 52 

D6EF 8A DC 

D6F1 A1 0050 R 

D6F4 E8 D8E1 R 

06F7 8B FO 

06F9 8A C3 

D6FB B9 0004 

D6FE 33 DB 

0700 3C 40 

D702 72 08 

D704 B3 04 

0706 74 04 

0708 D1 F9 

D70A 33 DB 

070C 

070C C5 3E 0084 R 

0710 C5 79 06 

D713 1E 

D714 06 

0715 1F 

0716 07 

D717 D1 E3 

D719 83 C3 08 

071C 2B E3 

071E 8B EC 

0720 BA 0002 

D723 3C 06 

0725 7C 35 

D727 74 03 

D729 BA 0004 

D72C 

D72C 51 

D72D 56 

D72E 8B CA 

D730 

D730 8A 04 

D732 88 46 00 

D735 45 

D736 81 C6 2000 

073A E2 F4 

D73C 5E 

1-88 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

push 

push 

push 

mov 

mov 

call 

mov 

mov 

mov 

xor 

cmp 

jb 

mov 

je 

sar 

xor 

C g_lds_r: 

C lds 

c lds 

C push 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

push 

pop 

pop 

sal 

add 

sub 

mov 

mov 

cmp 

jl 

je 

bx 

ex 

dx 

save 

the 

bl,ah :BL saves v mode 

ax,word ptr ds:[v_curpos] 

g_curs_off 

si,ax 

al,bl 

cx,4 

bx,bx 

al.64 

g_lds_r 

bl,4 

g lds_r 

ex, 1 

bx,bx 

registers 

,get address of cursor position 

:save as a pointer for later 

:AL saves v mode 


:make BX=O for modes 4,5,6 

;jump if mode = 4,5,6 

:make BX=4 for mode 64 



:make BX=O for mode 72 

:(BX= font pointer offset in master table) 

di,dword ptr ds:[master_tbl_ptr] ;get pointer to master table 

di,dword ptr ds:[di+6][bx] ;get pointer to font's 1st 128 chars 

ds ;XCHG OS,ES 

es 

ds 

es 

bx,1 

bx,8 

:OS:SI -> grafix ram read location ??? 

;ES:DI -> font's 1st 128 characters 

:make BX=8 for modes 4,5,6,72 

BX=16 for mode 64 

:(BX= number of font bytes per character) 

sp,bx 

bp,sp 

dx,2 

al,6 

g_rd_med 

g_rdloop 

;get stack space for font bytes 

;save pointer to stack space 

;number of interlace areas (modes 4,5,6) 

;check graphics mode 

we're in super resolution (640x400) mode (64 & 72) 

C g_rdloop: 

C push 

C push 

C mov 

c 

C g_rd_ia: 

C mov 

C mov 

C inc 

c add 

c 

c 

c 

;jump if in medium resolution mode (4,5) 

;jump if in 640x200 resolution mode (6) 

mov dx,4 ;number of interlace areas 

loop 

pop 

ex 

si 

cx,dx 

al, [si] 

[bp] ,al 

bp 

si,2000H 

g_rd_ia 

si 

;Read Scanlines Loop for both 640x200 and 640x400 

:Read Interlace Area Loop 

;save # of scanlines per interlace area 

;save current addr. in interlace area #1 

:init. counter: # of interlace areas 

;get byte from grafix ram 

;save on reserved stack 

;bump reserved stack address 

;address next interlace area 

;restore interlace area #1 address 


D73D 83 C6 50 

D740 59 

D741 E2 E9 

D743 83 FA 04 

D746 75 49 

D748 88 F5 

D74A 28 F3 

D74C 36: F6 04 80 

D750 74 3F 

D752 88 CB 

D754 

D754 36: F6 14 

D757 46 

D758 E2 FA 

D75A EB 35 

D75C 

D75C D1 E6 

D75E 

D75E 51 

D75F 56 

D760 89 0002 

D763 

D763 51 

D764 88 04 

D766 86 EO 

D768 F7 DO 

D76A 88 DO 

D76C D1 E2 

D76E 23 DO 

D770 F7 D2 

D772 32 co 

D774 89 0008 

D777 

D777 D1 EA 

D779 D1 EA 

D77B DO D8 

D77D E2 F8 

D77F 88 46 00 

D782 45 

D783 81 C6 2000 

D787 59 

D788 E2 D9 

D78A 5E 

D78B 83 C6 50 

D78E 59 

D78F E2 CD 

D791 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

add 

pop 

loop 

cmp 

jne 

mov 

sub 

test 

jz 

si,80 

ex 

g_rdloop 

dx,4 

g_matchb 

si.bp 

si,bx 

byte ptr ss:[si],80H 

g_matchb 

C mov ex. bx 

C g unreverse_video_loop: 

C not byte ptr ss: [si] 

C inc si 

C loop g_unreverse_video_loop 

C jmp short g_ matchb 

c 

C g_rd_med: ;Read Medium Resolution 

si,1 

c sal 

c 

c g medget: 

C push 

C push 

C mov 

c g_med_ia: 

C push 

C mov 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

xchg 

not 

mov 

shl 

and 

not 

xor 

mov 

C g_med_bit: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C g_matchb: 

shr 

shr 

rcr 

loop 

mov 

inc 

add 

pop 

loop 

pop 

add 

pop 

loop 

ex 

si 

cx.2 

ex 

ax. [si] 

ah.al 

ax 

dx.ax 

dx,1 

dx.ax 

dx 

al.al 

cx,8 

dx.1 

dx,1 

al,1 

g_med_bit 

[bp],al 

bp 

si.2000H 

ex 

g_med_ia 

si 

si,80 

ex 

g_medget 


;address next scanline in each i.a. 

;restore # of scanlines counter 

;are we in mode 64 or 72 (640x400)? 

;jump if no (reverse video not allowed) 

;point to first byte in stack save area 

;is upper left bit of char = 0 or 1 ? 

;jump if 0 (not reversed video) 

;number of char bytes counter 

;reverse the reversed byte for matching 

;address next char byte 

;now find the char in the font table 

;double graf ram pointer (2 bytes/char) 

:Get font bytes in medium resolution (320 X 200) mode 

;save # scanlines per i.a. counter 

;save current scanline address 

;init. # interlace areas counter 

;save i.a. counter 

;get 2 bytes of 1 char from video memory 

;order them logically 

;map background pixels to 0. 

foreground pixels to 1 

;clear result accumulator 

;prepare to process 8 bits 

;ignore unused bit 

;load carry with mapped pixel value 

;rotate it into result accumulator 

;process next bit of character 

:save font byte on reserved stack 

:bump reserved stack pointer 

;address next interlace area 

:restore i.a. counter 

;process next i.a. of character 

:restore scanline address 

;address next scanline 

;restore scanlines counter 

;process next scanline of character 

:Match Font Byte: find character 

1-89


080C 32 02 c xor dl,dl ;substitute null character 

080E 2E: 8E 1E E538 R c mov ds,word ptr cs:[set ds word] :restore data segment register 

c jmp short g selfont ;and continue in 1st half of font table 

c 

c character (0 -> 127) is in 1st 1/2 of font table 

c 

0813 c g_ selfont: 

0813 53 c push bx ;preserve register 

c 

0814 33 DB c xor bx,bx ;make BX=O for modes 4,5,6 

0816 80 FE 40 c cmp dh,64 

0819 72 06 c jb g_lds_w ;jump if mode = 4,5,6 

081B B3 04 c mov bl,4 :make BX=4 for mode 64 

0810 74 02 c je g lds w ;jump if mode = 64 

081F 33 DB c xor bx,bx ;make BX=O for mode 72 

c 

0821 c g_lds_w: :(BX= font pointer offset in master table) 

0821 C5 36 0084 R c lds si,dword ptr ds:[master_tbl_ptr] ;get pointer to master table 

0825 C5 70 06 c lds si,dword ptr ds: [si+6][bx] ;get pointer to font's 1st 128 chars 

c 

0828 5B c pop bx ;restore register 

c 

0829 c g_detmode: ;determine graphics mode 

0829 51 c push ex 

D82A 33 co c xor ax,ax ;get ascii code in AX 

082C 8A C2 c mov al,dl 

082E B1 03 c mov cl,3 to multiply by 

0830 03 EO c sal ax,cl 8 (font bytes per character) 

0832 59 c pop ex 

0833 03 FO c add si,ax :and add to address of font table 

c 

0835 B2 04 c mov dl,4 ;# scanlines per i.a. (modes 4,5,6,64) 

c 

0837 80 FE 06 c cmp dh,6 ;Which resolution are we using? 

083A 7C 49 c jl g_med_wr ;jump if medium resolution (modes 4 & 5) 

D83C 74 OF c je g_hi_wr ;jump if 640x200 resolution (mode 6) 

c 

c ;we're in 640x400 resolution 

D83E 80 FE 48 c cmp dh,72 ;mode 72? 

0841 B6 04 c mov dh,4 ;# interlace areas = 4 for modes 64 & 72 

0843 75 04 c jne g_super_wr 

c 

0845 c g_tinytext: :640x400 resolution (mode 72) 

0845 B2 02 c mov dl,2 ;# scanlines per i.a. = 2 for mode 72 

0847 EB 09 c jmp short g_repchar 

c 

0849 c g_super_wr: :640x400 resolution (mode 64) 

0849 03 FO c add si,ax ;multiply ascii code by 16 bytes/char 

D84B EB 05 c jmp short g_repchar 

c 

0840 c g hi wr: :Hi-resolution Character Write 

0840 B6 02 c mov dh,2 :interlace areas count (even/odd) 

084F 80 CB 01 c or bl, 1 :mode 6 doesn't allow reverse video 

c 

0852 c g_repchar: :Repeat Character Loop 


0852 51 

0853 56 

0854 57 

0855 33 C9 

0857 8A CA 

0859 

0859 51 

D85A 57 

D8SB 8A CE 

0850 

0850 AC 

D8SE F6 C3 01 

0861 75 02 

0863 F6 DO 

0865 

0865 OA DB 

0867 79 03 

0869 26: 32 OS 

D86C 

D86C 26: 88 OS 

D86F 81 C7 2000 

0873 E2 E8 

0875 SF 

0876 83 C7 50 

0879 59 

D87A E2 DO 

087C SF 

0870 47 

D87E SE 

D87F 59 

0880 E2 DO 

0882 EB 55 90 

0885 

0885 01 E7 

0887 8A 03 

0889 81 E3 0003 

0880 2E: 8A 9F 0800 R 

0892 8A FB 

0894 8B EB 

0896 

0896 51 

0897 56 

0898 57 

0899 B9 0004 

D89C 

D89C 51 

0890 57 

089E B9 0002 


c 

c 

c 

c 

c 

c 

C g_linelp: 

c 

c 

c 

c 

C g_i_a_lp: 

push 

push 

push 

xor 

mov 

push 

push 

mov 

c lodsb 

c 

c 

test 

jnz 

C not 

C g t xor: 

c or 

C jns 

C xor 

C g_w_byte: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

add 

loop 

pop 

add 

pop 

loop 

pop 

inc 

pop 

pop 

loop 

jmp 

C g_med_wr: 

C sal 

C mov 

C and 

c 

c 

c 

c 

mov 

mov 

mov 

C g_char_lp: 

c 

c 

c 

c 

c 

push 

push 

push 

mov 

C g_scan_lp: 

c 

c 

c 

push 

push 

mov 

ex 

si 

di 

CX,CX 

cl,dl 

ex 

di 

cl,dh 

bl, 1 

g_t_xor 

al 

bl,bl 

g_w_byte 

al, es: [ di] 

es: [ di], al 

di,2000H 

g_i_a_lp 

di 

di,80 

ex 

g_linelp 

di 

di 

si 

ex 

g_repchar 

g return 

di,1 

dl,bl 

bx,0003H 

:Scanline Loop 


:save character repeat count 

:save source address (font table) 

;save destination addr. (grafix ram) 

;prepare loop counter 

:scanlines per interlace area counter 

;save scanlines per i.a. counter 

:save interlace area #1 address 

:init. interlace areas counter (2 or 4) 

;Interlace Area Loop 

;get byte from font table 

:reverse video? 

:jump if no 

:reverse video 

:Test For XOR 

:Write Byte 

:XOR the char. with grafix ram? 

;jump if no 

:XOR with grafix ram 

:write byte in grafix ram 

:address next interlace area 

:restore interlace area #1 address 

:address next scanline in each i.a. 

:restore scanlines per i.a. counter 

:restore char's grafix ram address 

;address next character in grafix ram 

:restore char's font table address 

:restore character repeat count 

:repeat the character 

:exit 

:Medium Resolution Character Write 

:double graf ram pointer (2 bytes/char) 

:DL saves XOR bit input param (bit 7) 

:BX; foreground color (& table offset) 

bl,cs:g_color_table[bx] ;propagate color through byte 

bh,bl ;propagate color through word 

bp,bx 

ex 

si 

di 

cx,4 

ex 

di 

cx,2 

:BP saves word of color masks 

:Repeat Character Loop 

:Scanline Loop 

;save character repeat counter 

;save source address (font table) 

;save destination addr. (grafix ram) 

:init. scanlines per i.a. counter 

;save scanlines per i.a. counter 

:save interlace area #1 address 

:init. interlace areas counter 

1-93

D8E1 

D8E1 51 

D8E2 8A E8 

D8E4 8A C4 

D8E6 B1 01 

D8E8 80 3E 0049 R 48 

D8ED 74 02 

D8EF FE C1 

D8F1 

D8F1 02 EO 

D8F3 32 C9 

D8F5 86 E9 

D8F7 F6 26 004A R 

D8FB 03 C1 

D8FD 59 

D8FE C3 

D8FF 

D8FF 

D8FF 

= 0000 

D8FF 

D8FF 90 

0900 DB48 R 


C page 


c ·=============================================================================== 

c 

C Get offset into graphics ram refresh memory which corresponds to 

C the current cursor position (or any arbitrary character position). 

c 

C Input: AX = current cursor position (AL = Column #, AH = Row #) 

c 

C Output: AX = offset into graphics ram 

c 

c ·------------------------------------------------------------------------------- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

g_curs off 

g_72: 

push 

mov 

mov 

mov 

cmp 

je 

inc 

shl 

xor 

xchg 

mul 

add 

pop 

ret 

proc near 

ex 

ch,al 

al,ah 

cl,1 

byte ptr ds:[v_mode],72 

g 72 

cl 

al,cl 

cl,cl 

ch,cl 

byte ptr ds:[v_width] 

ax,cx 

ex 

C g_curs_off endp 

c 

C code ends 

;save work register 

:hold column number 

;row number to al 

;mode 72 shift count (multiply * 2) 

;jump if mode 72 

;mode -72 shift count (multiply * 4) 

;multiply row # by rows per byte 

:zero out the shift count 

;move column number for add 

:multiply by bytes per columnn 

;compute offset into refresh ram 

;restore register 

;and return to caller 

.LIST : start list 2 

C include pwrup1.asm 

c 

c ·====================================================================== 

c Filename: pwrup1.src 

c 

C This module includes CPU, ROM, 8254 p dma p timer, & 8237 p dma 

C Controller tests. 

c 

c ·====================================================================== 

c 


C assume cs:code, ds:nothing, es:nothing, ss:nothing 

c 

C PARITY = 0 

c 

C p1 data1 

c 

C even 

c 

C stack rom 

proc 

dw 

near 

; ; CONDITIONAL ASSEMBLY 

word-align stack rom 

i rom return from i cpu 

1-95


D902 DB4E R c dw i rom ret1 return from rom checksum 

D904 DB56 R c dw i rom ret2 

D906 DB5E R c dw i rom ret3 

- 

D908 DB6D R c dw i dmat return from i rom 

- 

D90A DB79 R c dw i dmat ret return from rtc chk 

D90C DB88 R c dw i dmac return from i dmat 

D90E DBFA R c dw i dmac ret return from memtst 

D910 DC1B R c dw i pic return from i dmac 

c 

D912 52 65 73 69 64 65 c banner m db 'Resident Diagnostics' ,CR,LF 

6E 74 20 44 69 61 c 

67 6E 6F 73 74 69 c 

63 73 OD OA c 

0928 56 65 72 73 20 32 c db 'Vers 2.02' ,CR,LF,LF 

2E 30 32 OD OA OA c 

D934 00 c db NUL 

c 

D935 OD OA 50 72 69 6D c bt m db CR,LF, 'Primary Boot-Strap . . . ' , CR , LF, NUL 

61 72 79 20 42 6F c 

6F 74 2D 53 74 72 c 

61 70 2E 2E 2E OD c 

OA 00 c 

D94F 50 72 69 6D 61 72 c bt merr db 'Primary Boot-Strap DISK READ ERROR.' ,CR,NUL 

- 

79 20 42 6F 6F 74 c 

2D 53 74 72 61 70 c 

20 44 49 53 4B 20 c 

52 45 41 44 20 45 c 

52 52 4F 52 2E OD c 

00 c 

c : This line must have same number of blanks as the preceding has characters: 

D974 20 20 20 20 20 20 c bt spaces db ', CR, NUL 

20 20 20 20 20 20 c 

20 20 20 20 20 20 c 

20 20 20 20 20 20 c 

20 20 20 20 20 20 c 

20 20 20 20 20 OD c 

00 c 

c 

D999 2A 20 49 6C 6C 65 c ill m1 db '* Illegal Interrupt No. ',NUL 

67 61 6C 20 49 6E c 

74 65 72 72 75 70 c 

74 20 4E 6F 2E 20 c 

00 c 

D9B2 68 20 61 74 20 00 c ill m2 db 'h at ',NUL 

D9B8 20 2A 00 c ill m3 db ' *',NUL 

c 

D9BB 20 20 50 61 73 73 c pass_m db Pass' , CR, LF, NUL 

00 OA 00 c 

09C4 20 50 61 73 73 00 c spass m db Pass' ,CR,LF,NUL 

OA 00 c 

D9CC 20 20 46 61 69 6C c fail m db Fail', NUL 

00 c 

c 

0903 43 50 55 20 28 69 c i cpu m db 'CPU (i286) ',NUL : Pass/Fail 

32 38 36 29 20 20 c 


00 c 

09EO 52 4F 40 20 40 6F c i rom m db 'ROM Module ',NUL ; Pass/Fail 

64 75 6C 65 20 20 c 

00 c 

09ED 44 40 41 20 54 69 c i dmat m db 'OMA Timer ',NUL Pass/Fail 

60 65 72 20 20 20 c 

00 c 

09FA 44 40 41 20 43 6F c i dmac m db 'OMA Control ',NUL Pass/Fail 

6E 74 72 6F 6C 20 c 

00 c 

OA07 49 6E 74 65 72 72 c i pic m db 'Interrupts ',NUL Pass/Fail/Fail:Hx 

75 70 74 73 20 20 c 

00 c 

OA14 56 69 64 65 6F 20 c i d m db 'Video Board ',NUL Pass/Fail 

42 6F 61 72 64 20 c 

00 c 

OA21 4E 50 55 20 28 69 c i npu_m db 'NPU (i287) . , NUL Pass/Fail 

32 38 37 29 20 20 c 

00 c 

OA2E 43 61 6C 65 6E 64 c i calr m db 'Calendar Clk' ,NUL Fail only% 

61 72 20 43 6C 6B c 

00 c 


OA3B 52 54 20 43 6C 6F c i rtc m db 'RT Clock ',NUL Pass/Fail/Fail:LO,HI,NR 

63 6B 20 20 20 20 c 

00 c 

DA48 3A 4C 4F 00 c i rtc lo m db ': LO', NUL Error #1 (must remain in 

OA4C 3A 48 49 00 c i rtc hi m db ' :HI', NUL Error #2 order for addr. 

OA50 3A 4E 52 00 c i rtc nr m db ': NR', NUL Error #3 calculation!) 

DA54 4B 65 79 62 6F 61 c i kb m db 'Keyboard ',NUL Pass/Fail/Fail:ST 

72 64 20 20 20 20 c 

00 c 

DA61 3A 53 54 00 c i kb st m db ': ST', NUL 

DA65 50 72 69 6E 74 65 c i prt m db 'Printer Port' ,NUL : Pass/Fail: xx 

72 20 50 6F 72 74 c 

00 c 

DA72 53 65 72 69 61 6C c i com m db 'Serial Comm.' ,NUL ; Pass/Fail:xx 

20 43 6F 60 60 2E c 

00 c 

OA7F 20 6B 62 20 52 41 c i RAM m db ' kb RAM ',NUL Pass/Fail:cc:yOOO:zzzz:wwww:rrrr 

40 20 20 00 c 

DA89 4F 70 74 69 6F 6E c i optROM m db 'Optional ROM' ,NUL ; Pass/Fail:XXXX 

61 6C 20 52 4F 40 c 

00 c 

- - 

DA96 46 6C 6F 70 70 79 c i fduA m db 'Floppy (A:) ',NUL Ready/Not Ready/Fail:xx 

20 28 41 3A 29 20 c 

00 c 

DAA3 46 6C 6F 70 70 79 c i fduB m db 'Floppy (B:) ',NUL 

20 28 42 3A 29 20 c 

00 c 

- - 

DABO 20 4E 6F 74 c i fdu not m db Not' : purposely no NULl r r r r 

- - - 

DAB4 20 52 65 61 64 79 c i fdu rdy_m db Ready' ,CR,LF,NUL 

00 OA 00 c 

DABD 46 69 78 65 64 20 c i hdu m db 'Fixed Disk ',NUL Pass/Fail:xx 

44 69 73 6B 20 20 c 

00 c 



DACA OF 

DACB 07 

DACC OF 

DACD 03 

DACE OF 

DACF 03 

DADO 07 

DAD1 OF 

DAD2 01 

OA03 

OA03 

DA03 BA 3FAO 

DA06 EC 

OAD7 A8 20 

OA09 74 09 

DADB 2E: 8E 1E E538 R 

DAEO FF 2E OOA2 R 

DAE4 

DAE4 FA 

DAES BO 40 

DAE7 BA 0378 

DAEA EE 

OAEB FC 

OAEC BA 3F40 

DAEF BO 03 

DAF1 EE 

DAF2 FE C2 

DAF4 EE 

OAFS FE C2 

DAF7 EE 

1-98 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C i cal val 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C p1 data1 

c 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

endp 

'Disk Diagnostics xxxxx' 

'Loop Diagnostics xxxxx' 

'Primary BootStrap Floppy (A:) Not Ready 

'Insert system disk and type any key.' 

'Primary BootStrap Floppy (A:) Fail: XX' 

'Primary BootStrap Floppy (B:) Fail: XX' 

'Primary BootStrap Fixed Disk Fail: XX' 

'Select Operating System? 

'Serial BootStrap' 

OFh port 074h = units of minutes (0-9) 

07h port 075h = tens of minutes (0-5) 

OFh port 076h = units of hours (0-9) 

03h port 077h = tens of hours (0-2) 

OFh port 078h = units of days (0-9) 

03h port 079h = tens of days (0-3) 

07h port 07Ah = day of week (0-7) 

OFh port 07Bh = tens of months (0-9) 

01h port 07Ch = units of months (0-1) 

c ·====================================================================== 

c 

c 

DO NOT change any code between here and the first 11 out" statement unless 

you know what you are doing ... which is doubtful. You could break 

C merge. 

c 

C diagnostics_1 proc near 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

in 

test 

jz 

mov 

jmp 

i pwrup: 

eli 

mov 

mov 

out 

cld 

mov 

mov 

out 

inc 

out 

inc 

out 

dx,bitread mise status latch% 

al,dx decide why resetting% 

al,pwrupl is it a powerup-up?% 

i pwrup yes, do diagnostics% 

ds,word ptr cs:[set_ds_word] get resumption offset% 

dword ptr ds:[osmerge1] go to UNIX% 

disable interrupts 

al,40h Check Point #0 

dx,378h parallel port data port address 

dx,al output 11 Running- Checkpoint 0 11 

clear string direction flag 

dx,3f40h CTC timer port,access to clr intr% 

al, 3 value to stop timers% 

dx,al stop CTC timer and clear intr% 

dl do port 3f41% 

dx,al stop timer% 

dl do port 3f42% 

dx,al stop timer% 

c .--------------------------------------------------------------------------c 

80286 CPU Test 



DB34 

DB34 8C C8 

DB36 8E 08 

DB38 8E DO 

DB3A BC 0900 R 

DB3D BO 41 

DB3F BA 0378 

DB42 EE 

DB43 BO 00 

DB45 E6 61 

DB47 C3 

DB48 

DB48 BE EOOO 

DB4B E9 E52A R 

DB4E 

DB4E 75 10 

DB 50 BE COOO 

DB 53 E9 E52A R 

DB 56 

DB56 75 08 

DB58 BE AOOO 

DB5B E9 E52A R 

DB5E 

DB5E 74 06 

DB60 

DB60 BE D9EO R 

DB63 E9 F720 R 

DB66 

DB66 BO 42 

DB68 BA 0378 

DB6B EE 

DB6C C3 

1-100 

C i cpu ok: 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

mov 

mov 

mov 

mov 

out 

C Reset the keyboard 

c 

c 

c 

c 

c 

mov 

out 

ret 

ax,cs satisfy assumptions 

ds,ax 

ss,ax use ROM 'stack' 

sp,cs:(offset stack rom) 



dx, al output " Running- Checkpoint 1" 

al,O 

p kctrl,al 

: will 'ret' to i rom 

c ·-------------------------------------------------------------------------c 

ROM Module Test 

c .-------------------------------------------------------------------------c 

c 

c 

c i rom: 

c 

assume cs:code, ds:code, es:absO, ss:code 

C Calculate Checksum of ROM. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

jmp 

i rom ret1: 

jnz 

mov 

jmp 

i rom ret2: 

jnz 

mov 

jmp 

i rom ret3: 

jz 

C i rom err: 

C mov 

jmp 

c 

c 

c 

C i rom ok: 

c 

c 

c 

c 

c 

mov 

mov 

out 

ret 

si,OEOOOh 

rom checksum 

i rom err 

si,OCOOOh 

rom checksum 

i rom err 

si,OAOOOh 

rom checksum 

i rom ok 

si,cs:(offset i_rom_m) 

i fatal 

al,42h 

dx,378h 

dx,al 

ROM starts at ds:si = FOOO:EOOO 

·call' rom checksum 

will 'ret' here 

ROM starts at ds:si = FOOO:COOO 


ROM starts at ds:si = FOOO:AOOO 


will ·ret· here 

ah has illegal checksum 

i fatal will ·ret' to i dmat 

Check Point #2 

parallel port data port address 

output " Running- Checkpoint 2" 

will ·ret' to i dmat 

c .--------------------------------------------------------------------------c 

8254 p dma p timer Test 

c .--------------------------------------------------------------------------c 

c assume cs:code, ds:code, es:absO, ss:code 


DB6D 

DB6D BO 04 

DB6F E6 08 

DB71 BO 74 

DB73 BA 0041 

DB76 E9 E1CO R 

DB79 

DB79 74 06 

DB7B 

DB7B BE D9ED R 

DB7E E9 F720 R 

DB81 

DB81 BO 43 

DB83 BA 0378 

DB86 EE 

DB87 C3 

DB88 

DB88 E6 00 

DB8A B4 01 

DB8C E4 00 

DB8E OA CO 

DB90 75 75 


c 

C i dmat: 

c 


C Disable 8237A p_dma Controller before the testing of the 8254 p_dma p timer channel. 

c 

c 

c 

c 

mov 

out 

al,dma cmd disable 

dma command,al 

disable p dma controller command 

C Proceed with the testing of the 8254 p dma p_timer channel ()P 8253 1. 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

jmp 

i dmat ret: 

jz 

C i dmat err: 

c 

c 

c 

c 

mov 

jmp 

C i dmat ok: 

c 

c 

c 

c 

c 

mov 

mov 

out 

ret 

al,074h 01 11 010 0 -> p 8253 1, lsb 1st, mode 2, 

dx,p_8253 1 select p dma refresh counter 

rtc chk 'call' rtc chk 


i dmat ok 

si,cs:(offset i_dmat_m) 

i fatal ah has error code to report. 

i fatal will ·ret' to i dmac 

al,43h 

dx,378h 

dx,al 




will 'ret' to i dmac 

c .--------------------------------------------------------------------------- 

C 8237 p_dma Controller Test-- Test Chip's Operation & Channel Registers 

c 

C The 8237A p_dma Controller was disabled before the testing of the 

C 8254 p dma p timer channel. 

c .-------------------------------------------------------------------------c 

c 

c 

C i dmac: 

c 

assume cs:code, ds,code, es:absO, ss:code 

C Send a 'master clear' to 8237 p dma Controller. 

c 

c 

c 

out dma master clr,al : send master clear to port 

- - 

C The dma_command, dma_status, dma request, dma temp, and dma ff registers 

C are cleared, and the dma_mask register is set (all off). 

C Test readable control registers: dma status & dma temp) 

c 

c mov 

c 

c 

c 

c 

c 

c 

c 

in 

or 

jnz 

ah, 1 

al,dma temp 

al,al 

i dmac err 

: TEMP Error #1 

al = Q? 

if not, abort 

Test all 8 16-bit readable/writeable channel registers (address and count 

registers for all 4 channels, i.e., ports 0 through 7) with register bit test: 

no BCD 

1-101


0892 BB FFFF 

0895 

0895 BA 0007 

0898 

0898 88 C3 

DB9A EE 

DB9B 90 

DB9C EE 

0890 90 

DB9E EC 

DB9F 8A EO 

DBA1 EC 

DBA2 38 C3 

DBA4 84 02 

DBA6 75 SF 

DBA8 4A 

DBA9 79 ED 

DBAB 43 

DBAC 74 E7 

DBAE BO FF 

DBBO E6 01 

DBB2 90 

DBB3 E6 01 

DBBS BO 58 

DBB7 E6 DB 

DBB9 BO 00 

DBBB E6 08 

1-102 

C (dma addr_x & dma count_x are tested with OFFFFh and then Oh for x = 0 to 3.) 

c 

c mov 

c 

C i dmac pass2: 

c 

c 

c 

c 

mov 

C i dmac lp: 

C mov 

C out 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

nap 

out 

nap 

in 

mov 

in 

cmp 

mov 

jnz 

dec 

jns 

inc 

jz 

bx,OFFFFh 

dx ,7 

ax,bx 

dx,al 

dx,al 

al,dx 

ah,al 

al,dx 

ax,bx 

ah,2 

i dmac err 

dx 

i dmac lp 

bx 

i dmac pass2 

bx = 0 all bits reset 

outer loop 

if 1st pass, bx = OFFFFh 

if 2nd pass, bx = Oh 

loop counter and port address I 11 

inner loop 

get bit test pattern 

write low byte of address/count 

no successive in's or outs to dma chip 

write high byte of address/count 

read low byte of address/count 

save low byte in ah 

read high byte of address/count 

does what's been read = test pattern? 

TEMP Error #2 

if not, abort 

did we decrement past port address Q? 

if not, continue same pass for all 8. 

1st pass? if so, bx = OFFFFh & loop 

2nd pass? if so, bx = 0 & continue 

C We are done testing all 8 16-bit readable/writeable channel registers (address 

C and count registers for all 4 channels) with the following results: All the 

C address registers (dma addr x) and count registers (dma count x) have been 

C initialized to zero. 

c 

C Load 64k (OFFFFh+1) count for RAM refresh p dma controller channel. 

c 

c 

c 

c 

c 

c 

mov 

out 

nap 

out 

al,OFFh 

dma count O,al 

dma count O,al 

low byte of count for 64k RAM refresh 

chip needs time% 

high byte of count for 64k RAM refresh 

C Load mode for RAM refresh p dma controller channel: channel 0, read, auto- 

C initialize, increment, single mode. 

c 

c 

c 

c 

mov 

out 

al,dma mode 0 

dma mode,al 

mode for RAM refresh 

C Enable p dma controller: memory-to-I/O, controller enable. normal. fixed 

C priority, late write, and DREQ/-DACK. 

c 

c 

c 

c 

c 

c 

mov 

out 

al,dma cmd enable 

dma command.al 

enable p dma controller 

The master clear command above has masked off all channels. Now, we 'unmask' 

the RAM refresh dma mask bit. p_dma RAM refresh begins for the first timet 


0880 80 00 

OB8F E6 OA 

OBC1 80 74 

OBC3 E6 43 

OBCS BS 0013 

OBCS E6 41 

OBCA SA C4 

OBCC E6 41 

OBCE 84 03 

0800 E4 OS 

0802 AS 10 

0804 75 31 

0806 8A 0008 

0809 80 41 

0808 EE 

OBOC 80 56 

OBOE EE 

OBOF 80 43 

OBE1 EE 

OBE2 32 CO 

OBE4 8A OOS3 

OBE7 

OBE7 EE 

OBES FE CA 

OBEA 7S F8 


c 

c 

c 

c 

mov 

out 

al,dma unmask 0 turn on RAM refresh channel 0 

dma mask bit,al 

c Program p S253 1 of iS254 p timer to proper value for RAM refresh. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

out 

mov 

out 

mov 

out 

al,t1cmd 

p S253 ctrl,al 

ax,t1count 

p S253 1,al 

al,ah 

p S253 1,al 

select p dma refresh counter 

load p dma refresh count 

C Check dma status for 'hot' p dma request from p S253 1. 

c 

c 

c 

c 

c 

c 

mov ah,3 TEMP Error #3 

in al,dma status test for RAM refresh request in status 

test al,010h bit #4 -> channel 0 request 

jnz i dmac err if 'hot' p dma request is there, abort 

C Initialize other p dma counters and modes. 

c 

c mov dx,dma mode 

c 

C Initialize p dma channel 1 not used. 

c 

c 

c 

c 

mov 

out 

al,dma mode 1 

dx,al 

C Initialize p dma channel 2 FOU. 

c 

c 

c 

c 

mov 

out 

al,dma mode 2 

dx,al 

C Initialize p_dma channel 3 display. 

c 

c 

c 

c 

mov 

out 

al,dma mode 3 

dx,al 

mode for not used 

: mode for FOU 

: mode for display 

C Initialize p_dma Segment Nibble Latches to zero. 

c (dma segm_x for x = 0 to 3 is port addresses SOh to S3h). 

c 

c 

c 

c 

c 

c 

c 

c 

c 

i dmac nib: 

xor al,al al = 0 

mov dx,OS3h loop counter and port address! 

out dx,al 

dx = dma segm 3 = OS3h 

dec dl when dl goes from SOh (-12S) to 

js i dmac nib 07Fh (+127) we will exit 

c .--------------------------------------------------------------------------c 

S237 p dma Controller Test -- Test Lowest 64k bank of RAM 

c .--------------------------------------------------------------------------c 

1-103


DBEC 2E: 8E 1E E538 R 

DBF1 8B 36 0072 R 

DBFS 33 D2 

DBF7 E9 E22F R 

DBFA 

DBFA 2E: 8E 1E E538 R 

DBFF 89 36 0072 R 

DC03 B4 04 

DCOS 74 OD 

DC07 

DC07 BE D9FA R 

DCOA OB C9 

DCOC 75 03 

DCOE BE ESFB R 

DC11 

DC11 E9 F720 R 

DC14 

DC14 BO 44 

DC16 BA 0378 

DC19 EE 

DC1A C3 

DC1B 

DC1B B8 0030 

DC1E 8E DO 

DC20 BC 0100 

DC23 E8 E1A6 R 

DC26 33 F6 

DC28 8B FE 

DC2A B9 01FE 

DC2D B8 DC8C R 

1-104 

c 

c 

c 

c 

c 

c 

mov 

mov 

xor 

C jmp 

C i dmac ret: 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

mov 

jz 

C i dmac err: 

c 

c 

c 

c 

C i d e: 

c 

c 

c 

mov 

or 

jnz 

mov 

jmp 

C i dmac ok: 

C mov 

C mov 

c 

c 

c 

out 

ret 

assume cs:code, ds:data, es:absO. ss:code 

ds,word ptr cs:[set_ds_word] 

si,word ptr ds:[reset_flag] 

dx,dx 

memtst 


word ptr ds:[reset flag],si 

ah,4 ; TEMP Error #4 

i dmac ok 

satisfy assumptions 

save reset flag 

dx = 0; test 0000:0 to OOOO:FFFF 

'call' memtst 



restore reset_flag 

si,cs:(offset i dmac m) 

cx,cx , , if zero then it was a parity error. 

i d e , 

si,cs:(offset parity1_m);; 

i fatal 

al,44h 

dx,378h 

dx,al 

ah has error code to report. 

i fatal will 'ret' to i pic 




will 'ret' to pic 

c ·--------------------------------------------------------------------------- 

C 8259A Programmable Interrupt Controller Test. 

c ·--------------------------------------------------------------------------- 

c 

c 

c 

C i pic: 

c 

c 

c 

c 

mov 

mov 

mov 

assume cs:code, ds:data, es:absO, ss:stack ram 

ax,stack_seg 

ss,ax 

sp,100h 

;Initialize RAM Stack 

; on lower tested memory 

C Initialize & Disable 8259A Programmable Interrupt Controller. 

c 

c call i pic init 

c 

C Install Interrupt Vectors for diagnostics. 

c 

C Install unexpected diagnostic interrupt vectors. 

c 

c 

c 

c 

c 

c 

xor 

mov 

mov 

mov 

si,si 

di,si 

cx,(0400h-0004h)/2 

ax,cs:(offset i pic err) 

es:si = absO seg:intOOlocn 

es:di = absO_seg:intOOlocn 

words from 0:0004h to 0:0400h 

store offset i pic err 


DC30 AB 

DC31 8C C8 

DC33 AB 

D.C34 F3/ 26: AS 

DC37 B8 DC.59 R 

DC3A 33 FF 

DC3C B1 05 

DC3E 

DC3E AB 

DC3F 47 

DC40 47 

DC41 05 0004 

D.C44 E2 F8 

DC46 B8 FF.23 R 

DC49 BF 0020 R 

DC4C B1 08 

DC4E 

DC4E AB 

D.C4F 47 

DC 50 47 

DC54 E2 FB 

DC 53 B7 09 

DC 55 F6 F5 

DC 57 EB 33 

DC 59 

DC 59 53 

DCSA 90 

DCSB EB 2F 

Dc5D 

DC5D CD 02 

DCSF EB 2B 

DC61 

DC61 cc 

DC62 90 

DC63 EB 27 

DC65 


c 

c 

c 

c 

c 

c 

stosw 

mov ax.cs : store segment address 


stosw : es:di = absO_seg:intOOlocn + 4 

rep movs word ptr E?S: 0004h, word ptr es: OOOOh : replicate vector 

C Install software diagnostic interrupt vectors. 

c 

c 

c 

c 

c 

mov 

xor 

mov 

C i pic soft: 

c 

c 

c 

c 

c 

c 

stosw 

ax,cs:(offset i_pic 0 ok) 

di,di 

c1,5 

inc di 

inc 

add 

loop 

.di 

ax.4 

i pic soft 

C Install hardware diagnostic interrupt vectors. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

mov 

i_pic_hard: 

stosw 

inc 

inc 

loop 

ax,cs:(offset ill_int) 

di,es:(offset int08locn) 

cl,8 

di 

di 

i _pic _hard 

C Test software interrupts first (cl = 0 if error). 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

div 

jmp 

i_pic_O_ok: 

push 

popf 

jmp 

i pic 1 Ok: 

INT 

jmp 

i pic_2_ok: 

- 

INT 

nap 

jmp 

i pic_3_ok: 

- 

bh,09h 

ch 

short i pic err 

bx 


02h 

short i_pic err 

03h 


ax = offset i pic 0 ok 

es:di = absO_seg:intOOlocn 

load INT's Oh through 4h. 

ax = ( 4*x)+(i _pic_ 0 _ ok) 

es:di gets offset i_pic x ok 

skip segment (already = cs) 

i pic x ok are 4 bytes apart 

until ex = 0. 

ax = offset ill int 

es:di = absD_seg:int08locn 

load INT's 8h through Fh. 

es:di gets offset ill_int 

skip segment (already = cs) 

; until ex = 0. 

bx has its 8th and 11th bits set. 

ex = 0 from loop above. 

generate a divide-by-zero INT DOh 

bh = 09h. set trap & OF flags in bx 

(bits 8 and 11 of flags). 

put trap flags on sta.ck 

generate a single-step trap INT 01h 

must be 4 bytes longl 

generate a software interrupt INT 02h 


generate a 1-byte break-point INT 03h 


: OF overflow flag is still set. 

1-105


DC65 CE 

DC66 90 

DC67 EB 23 

DC69 

DC69 BO 01 

DC6B 

DC6B E8 E1B7 R 

DC6E 75 1C 

DC70 DO DO 

DC72 73 F7 

DC74 BO FF 

DC76 E8 E1B7 R 

DC79 75 11 

DC7B FB 

DC7C 33 C9 

DC7E E2 FE 

DC80 AD 006B R 

DC83 OA CO 

DC85 74 34 

DC87 

DC87 41 

DC88 DO D8 

DC8A 73 FB 

DC8C 

DC8C BC 0100 

DC8F 51 

DC90 E8 E164 R 

DC93 E8 EOAO R 

1-106 

c INTO 

C nop 

C jmp short i pic err 

C i pic 4 ok: 

c 

C Test hardware interrupts second. 

c 

generate an overflow interrupt INT 04h 

must be 4 bytes longJ 

C Test 8259A PIC interrupt mask with test patterns (cl = 0 if error). 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

i pic test: 

call 

jne 

rcl 

jnc 

mov 

call 

jne 

al,1 

i out mask 

i pic err 

al, 1 

i pic test 

al,OFFh 

i out mask 

i pic err 

; initialize mask value = 1 

output pattern, test input 

if not same pattern, abort 

rotate test pattern 

test again, if not finished 

test pattern of all ones 

output pattern, test input 

if not same pattern. abort 

C Look for 'hot' (active though masked off) PIC interrupts (cl = IR# if error). 

c 

C Enable Interrupts for the very first timeJ 

c 

c 

c 

c 

c 

c 

c 

c 

c 

sti 

xor 

loop 

mov 

or 

jz 

CX,CX 

$ 

al,byte ptr ds:[intr_flag] 

al,al 

i pic ok 

enable interrupts 

delay awhile, waiting for 

a 'hot' interrupt. 

get the flag from ill int 

intr _flag = O? 

if so, we're all done. 

C Convert 'hot' interrupt mask (bit pattern) to IR# (1 to 8 error code). 

c 

C i pic hot: 

C inc 

C rcr 

c 

c 

c 

jnb 

C i pic err: 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

push 

ex 

al,1 

i pic hot 

sp, 10Dh 

ex 

Install Vector Table. 

call i vector 

C Initialize Video. 

c 

c 

c 

c 

call i d init 

Display error message. 

ex = 0 from loop above. 

increment ex (IR#+1). 

mask's least significant bit. 

if not set, continue. 

(exit with cl = 1 to 8.) 

cl = 0 or failing PIC 'hot' active IR# 

re-initialize stack 

save error code. 

set int1Dlocn = code_seg:v io, and 

set int1Dlocn = code seg:v parms. 



DCD2 E8 E540 R 

DCD5 BE D9D3 R 

DCD8 E8 f540 R 

DCDB BE D9BB R 

DCDE E8 E540 R 

DCE1 BE D9EO R 

DCE4 E8 E540 R 

DCE7 BE D9BB R 

DCEA E8 E540 R 

DCED BE D9ED R 

DCFO E8 E540 R 

DCF3 BE D9BB R 

DCF6 E8 E540 R 

DCF9 BE D9FA R 

DCFC E8 E540 R 

DCFF BE D9BB R 

DD02 E8 E540 R 

DD05 BE DA07 R 

DD08 E8 E540 R 

DDOB BE D9B8 R 

DDOE E8 E540 R 

DD11 E8 E5E4 R 

DD14 

DD14 BD 0040 

DD17 88 36 0072 R 

DD18 81 EE 1234 

DD1F 33 FF 

OD21 8A 1000 

DD24 

D024 8E C2 

DD26 DB F6 

DD28 74 03 

DD2A 26: 89 05 

DD2D 

DD2D 26: 88 05 

DD30 F7 DO 

DD32 26: 89 05 

DD35 26: 8B 1D 

1-108 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

call 

mov 

call 

mov 

call 

mov 

call 

mov 

call 

mov 

call 

mov 

call 

mov 

call 

mov 

call 

mov 

call 

mov 

call 

DRomString 

si.cs:(offset i_cpu_m) 

DRomString 

si,cs:(offset pass_m) 

DRomString 

si,cs:(offset i_rom_m) 

DRomString 


ORomString 

si,cs:(offset i_dmat_m) 

DRomString 

si.cs:(offset pass_m) 

DRomString 

si,cs:(offset i_dmac_m) 

ORomString 

si.cs:(offset pass_m) 

DRomString 

si,cs:(offset i_pic_m) 

DRomString 


DRomString 

C call enable _parity : enable parity routine 

c .--------------------------------------------------------------------------- 

[ Size & clear RAM at every 64k byte bank past the lowest 64k. 

c .--------------------------------------------------------------------------- 

[ 

C RAM size tst: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

sub 

xor 

mov 

C RAM size lp: 

mov 

or 

jz 

mov 

C save ram: 

c 

c 

c 

c 

c 

c 

mov 

not 

mov 

mov 

assume cs:code, ds:data. es:absO, ss:stack ram 

bp,64 :initialize memory count 

si,word ptr ds:[reset flag] : get warm bootflag 

si,01234h si=O iff CTL ALT DEL sequence. 

di,di Gffset = OOOOh 

dx, 1000h 

es,dx 

si,si 

save ram 

word ptr es:[di].ax 

ax,word ptr es:[di] 

ax 

word ptr es:[di],ax 

bx,word ptr es:[di] 

start at 1000:0000 (dx keeps segment) 

get segment 

if not a warm boot then save contents% 

of RAM% 

write someti.ng to RAM% 

to initialize parity correctly% 

read existing ram value 

complement it 

write complement back to RAM 

read back from RAM 



DE28 88 16 OOCA R 

OE2C 8E C2 

DE2E 88 3E OOCC R 

OE32 A1 OOCE R 

DE35 88 1E DODO R 

DE39 E9 DF05 R 

DE3C 

OE3C 88 0010 

OE3F 8E CO 

DE41 33 FF 

DE43 26: 89 05 

DE46 26: 88 05 

DE49 F7 DO 

DE48 26: 89 05 

DE4E 26: 88 1D 

DE51 38 C3 

DE53 75 49 

DE55 89 8000 

DE58 FC 

DE 59 

DE59 88 C7 

DE58 A8 

DESC E2 F8 

DE5E 89 8000 

DE61 33 FF 

DE63 

DE63 88 C7 

DE65 26: 88 10 

DE68 38 C3 

DE6A 75 37 

DE6C 47 

DE6D 47 

DE6E E2 F3 

DE70 89 8000 

DE73 33 FF 

DE75 

DE75 88 C7 

DE77 F7 DO 

DE79 A8 

DE7A E2 F9 

DE7C 89 8000 

1-112 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

mov 

mov 

mov 

jmp 

dx,ds:(seg_fail] 

es,dx 

di,ds:[off_fail] 

ax,ds:dwrite 

bx,ds:dread 

RAM error 

setup registers expected by 

RAM error 

: it was an error% 

c ; ; ; ; ; '' ''''' '',;;;; '' ''',';;;;;;;;;;;;;;;;;;;'' '', ''','' ',;;;;;;;;;;;;;;;;;;;;; 

c 

c ptestaddr is the code that runs in protected mode to test memory above 

c 640k bytes. It is patterned CLOSELY after the memory test code that 

C runs in real mode. 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; :; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

C ptestaddr: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

xor 

mov 

mov 

not 

mov 

mov 

cmp 

jne 

mov 

C cld 

C pmemtst_w1: 

C mov 

C stosw 

C loop 

C mov 

C xor 

c 

c pmemtst r1: 

C mov 

C mov 

c 

c 

c 

c 

c 

c 

c 

c 

cmp 

jne 

inc 

inc 

loop 

mov 

xor 

C pmemtst w2: 

c 

c 

c 

c 

c 

mov 

not 

stosw 

loop 

mov 

ax,10h 

es,ax 

di,di 


ax,word ptr es:[di] 

ax 


bx, word ptr es:[di] 

ax,bx 

endofram 

cx,08000h 

ax,di 

pmemtst w1 

cx,08000h 

di,di 

ax,di 

bx,word ptr es:[di] 

ax,bx 

ptsterr 

di 

di 

pmemtst_r1 

cx,08000h 

di,di 

ax,di 

ax 

pmemtst w2 

cx,08000h 

set up es selector% 

clear di% 

initialize es:[di]% 

first to set parity bit % 

mov es:[di] into ax% 

complement ax% 

mov complement into es:[di]% 

mov es:[di] into bx% 

is ax = bx?% 

if not we passed end of ram% 

load ex with word count for% 

64k bytes% 

increment direction% 

ax = location% 

write location to memory% 

write all 64k% 

reset loop counter% 

clear di% 

set ax% 

read memory location into bx% 

compare location with contents% 

if not equal report error% 

increment di twice% 


clear di% 

ax = location% 

complemeht location% 

write complement location to memory 

write all 64k% 




DED3 EB 03 

DED5 

DED5 BE D9BB R 

DED8 

DED8 E8 E540 R 

DEDB 

DEDB 33 co 

DEDD 8E CO 

DEDF 2E: 8E 1E E538 R 

DEE4 A1 0013 R 

DEE7 3B C5 

DEE9 72 08 

DEEB C7 06 OOCA R 0000 

DEF1 EB 08 

DEF3 

DEF3 8B DD 

DEF5 2B 08 

DEF7 89 1E OOCA R 

DEFB 

DEFB 8F 06 OOAA R 

DEFF 8F 06 OOA8 R 

DF03 EB 30 

DF05 

DF05 52 

DF06 1E 

DF07 50 

DF08 E8 E55F R 

DFOB BE D9CC R 

DFOE E8 E540 R 

DF11 E8 E56C R 

DF14 E4 66 

DF16 24 OF 

DF18 E8 E589 R 

1-114 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

rpass: 

ppass: 

jmp 

mov 

call 

RAM size end 

mor mem: 

no pmem: 

xor 

mov 

mov 

mov 

cmp 

cmp 

jb 

mov 

jmp 

mov 

sub 

mov 

pop 

pop 

1: 

short ppass 

si,cs:(offset pass m) :Display OK 

DRomString 

ax, ax ax = 0 

bx = RAM size/16 

es.ax satisfy assumptions es = 0 = absO seg 

ds,word ptr cs:(set_ds_word] 

ax,ds:[memory size] 

ax,280h 

ax,bp 

mor mem 

ds : ( seg fail] , 0 

short no pmem 

bx,bp 

bx,ax 

ds:(seg_fail],bx 

word ptr ds:(osmerge2+4] 

word ptr ds:[osmerge2+2] 

see if real memory full% 

if memory > 640k DOS won't load% 

if total memory > real memory% 

see if memory above 640k% 

zero out p-mode mem size% 

dos is ok% 

bp has total mem size at this point 

subtract real mode memory from total% 

memory to get p-mode memory in ax% 

mov p-mode mem size into seg fail location% 

EGA -- GWBASIC fix 

restore locations 4aa and 4a8 from 

stack an restore when memory 

C count is complete 

c 

C GoTo Display Passing Messages 

c 

c jmp short i_cal :Go check clock calendar 

c 

c 

C RAM error: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

push 

push 

push 

call 

mov 

call 

call 

in 

and 

call 

dx 

ds 

ax 

DCrlf 

Error message looks like: Fail:cc:yOOO:zzzz,wwww:rrrr 

where: cc = RAM configuration number 

si,cs:(offset fail_m) 

yOOO = Segment of failure 

zzzz = Offset of failure 

wwww = Data that was written 

rrrr = Data that was read 

;save failing segment 

;save ds 

; save failing test pattern. 

:Carriage Return. Line Feed 

DRomString display fail message. 

DColon display a colon 

al.sys_conf a get RAM configuration. 

al,OFh mask valid bits. 

DHexByte display RAM configuration. 

= dx = es 

= di 

= ax 

= bx 


DF1B E8 E56C R 

DF1E 8E DA 

DF20 8B C7 

DF22 E8 E578 R 

DF25 E8 E56C R 

DF28 1F 

DF29 8B C3 

DF2B E8 E578 R 

DFZE E8 E55F R 

DF31 1F 

DF32 SA 

DF33 EB A6 

DF35 

DF35 BO 01 

DF37 BA 0070 

DF3A EE 

DF3B B4 FE 

OF3D CD 1A 

DF3F B8 OOOA 

DF42 86 C2 

DF44 F6 F2 

DF46 3D OOOA 

DF49 73 15 

DF4B 80 FE 3C 

DF4E 73 10 

DFSO 80 F9 3C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

call 

mov 

mov 

call 

call 

pop 

mov 

call 

call 

pop 

pop 

jmp 

DColon 

ds,dx 

ax,di 

DHexLong 

DColon 

ds 

ax,bx 

DHexLong 

DCrlf 

ds 

dx 

short RAM size end 

display a colon 

ds = failing segment = dx 

ax = failing segment = di 

display ds:ax 

display a colon 


ds = failing test pattern = on stack 

ax = what was read = bx 

display ds:ax 

;restore ds 

;restore failing segment 

c 

c .--------------------------------------------------------------------------- 

c MM58274 Clock Calendar Device Test 

c .--------------------------------------------------------------------------- 

c 

C i cal: 

c 

C IF G4TOD 

C mov 

C mov 

C out 

c 

C ENDIF 

c 

al,01h 

dx,70h 

dx,al 

c Read Clock Calendar Device. 

c 

c 

c 

c 

mov 

int 

ah,-2 

1Ah 

C Check time & date read. 

c 

C Hundredths of Seconds. 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

xchg 

div 

cmp 

jae 

C Seconds. 

c 

c 

c 

c 

c 

cmp 

jae 

C Minutes. 

c 

c cmp 

ax. 10 

al, dl 

dl 

ax, 10 

i cal 1 1 80 

dh,60 

i cal 1 1 80 

cl,60 

This should fix the factory 

initial powerup problem 

al=1 implies Normal mode. Clock run 

Clock setting reg, interrupt stop 

bx = day (from 1-1 of leap year) 

ch = hour 

cl = minutes 

dh = seconds 

dl = hundredths of seconds 

ax = 10; dl =hundredths 

ax = hundredths; dl = 10 

ah =remainder. al =quotient 

(can only read tenths of seconds.) 

ah should = 0, and al should be < 10. 

if not, test chip & write 1-1-80. 

dh = seconds should be < 60. 

if not, test chip & write 1-1-80. 

; cl =minutes should be < 60. 

1-115


DFC2 BO 01 

DFC4 E6 61 

DFC6 BO B4 

DFC8 BA 0042 

DFCB E8 E1CO R 

DFCE BO 00 

DFDO E6 61 

DFD2 75 1C 

DFD4 BO 36 

DFD6 E6 43 

DFD8 B8 0000 

DFDB E6 40 

DFDD 8A C4 

DFDF E6 40 

DFE1 BO B6 

DFE3 E6 43 

DFE5 B8 0266 

DFE8 E6 42 

DFEA 8A C4 

DFEC E6 42 

DFEE EB 1C 

DFFO 

DFFO BE D9CC R 

DFF3 E8 E540 R 

DFF6 BE DA44 R 

DFF9 8A C4 

DFFB 32 E4 

DFFD 01 EO 

DFFF 01 EO 

ED01 03 FO 

E003 E8 E540 R 

E006 E8 E55F R 

E009 EB DO 

EDOB F4 

1-118 

c 

C Test i8254 tone generator p_timer counter (P 8253_2). 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

out 

mov 

mov 

call 

mov 

out 

jnz 

al, 1 

p kctrl,al 

al,OB4h 

dx,p 8253 2 

rtc chk 

al,O 

p kctrl,al 

i rtc err 

clear kb interrupts, reset kb, disable parity 

turn off speaker data -- bit #1 

turn on speaker gate to p_8253_2 --bit #0 

10 11 010 0 -> p 8253 2, lsb 1st. mode 2, no BCD 

select tone generator counter 

clear kb interrupts, reset kb, disable parity 

turn off speaker data & gate -- bits #1 & #0 

if nz, ah has error code to report. 

c Initialize i8254 real-time clock interrupt p timer counter (P 8253 0). 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

out 

mov 

out 

mov 

out 

al,tocmd 

p 8253 ctrl,al 

ax,tOcount 

p 8253 O,al 

al,ah 

p 8253 O,al 

: select real time clock counter 

: load real time clock count 

c Initialize i8254 tone generator p timer counter (P 8253 2). 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

out 

mov 

out 

mov 

out 

jmp 

C i rtc err: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

call 

mov 

mov 

xor 

shl 

shl 

add 

call 

call 

jmp 

hlt 

al,t2cmd 

p 8253 ctrl.al 

ax,t2count 

p 8253 2,al 

al,ah 

p 8253 2,al 

short i rtc ok 

si,cs:(offset fail_m) 

DRomString 

si,cs:(offset i_rtc_lo_m-(4*1)) 

: select tone generator counter 

load tone generator count 

ah has error code to report. 

display fail message. 

al,ah al =error code= (1. 2 or, 3) 

ah,ah ax= error code= (1, 2 or. 3) 

ax,1 

ax.1 

si,ax 

DRomString 

DCrlf 

short i rtc end 

ax = 2*(error code) = (2, 4, or 6) 

ax = 4*(error code) = (4, 8, or 12) 

index to (LO, HI, or NR message.) 

display failing mode. 


EOOC 

EOOC BE 09BB R 

EOOF E8 E540 R 

E012 BO 48 

E014 BA 0378 

E017 EE 

E018 

E018 B8 OE07 

E01B CD 10 

E010 E9 E2AD R 

E020 

E020 

E020 

E05B 

E05B 

E05B E9 DAD3 R 

E05E 

E05E 

E05E 1E 

E05F 06 

E060 57 

E061 56 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

i rtc ok: 

mov 

call 

mov 

mov 

out 

i rtc end: 

mov 

int 


DRomString 




dx,al output " Running- Checkpoint 8" 

ax.(OEh*100h)+BEL beep keyboard 

10h 

c assume cs:code. ds:nothing. es:nothing. ss:stack ram 

c 

c 

c 

jmp 

C diagnostics_ 

c 

pcinit 

endp 

C code ends 

C include pwrup1a.asm 

c 

c 

c ·====================================================================== 

c 

c 

Filename: pwrup1a.src 

c ·====================================================================== 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

code segment public 'ROM' 

assume CS:COde, ds:nothing, 

ORG OE05Bh 

i hard reset proc 

jmp diagnostics 

i hard reset endp 

es:nothing, ss:nothing 

c ·--------------------------------------------------------------------------- 

( Install GOT ENTRIES 

c 

C Input: None. 

C Output: None. 

c 

C Trash: ax = ex = 0 destroyed. 

c ·-------------------------------------------------------------------------c 

C i_gdt proc 

c 

c 

c push 

c 

c 

c 

c 

push 

push 

push 

near 

.. 

.. 

.. 

.. 

assume cs:code, ds:nothing, es:nothing, ss:stack_ram 

ds 

es 

di 

si 

c Initialize the gdt with gdt_ent. 

: save registers 

1-119


EOD2 C7 06 0084 R E297 R c mov word ptr ds:[master_tbl_ptr+DODOh],cs:(offset mastab) 

EOD8 8C DE 0086 R c mov word ptr ds:[master_tbl ptr+DOD2h],cs 

c 

c 

c 

EODC 3C 30 c cmp al,D3Dh is it the monochrome board? 

EODE 75 1E c jnz i d ok if not, 4Dx25 or 8Dx25 color ok. 

c 

c assume CS:COde, ds:v ram, es:nothing, ss:stack_ram 

c 

EOEO 1E c push ds save ds = data seg = 004Dh. 

EDE1 B8 BODO c mov ax,para mono satisfy assumptions 

EOE4 8E 08 c mov ds,ax 

EOE6 BO AS c mov al,OA5h test pattern 

EOE8 A2 DODO c mov byte ptr ds:[DDDDh],al if so, is monochrome there? 

EOEB 8A 26 DODO c mov ah,byte ptr ds:[OODOh] read monochrome RAM 

EOEF 1F c pop ds restore ds = data seg = D04Dh. 

c 

c assume cs:code, ds:data, es:nothing, ss:stack ram 

c 

EOFO 3A C4 c cmp al,ah if monochrome RAM is there. 

EOF2 75 04 c jnz i d 80x25 then the board must be therel 

c if not, default to 8Dx25 color 

EOF4 B5 07 c mov ch,D7h if there, we believe switches, 

EOF6 EB 06 c jmp short i d ok initialize display to mode #7. 

EDF8 c i d 8Dx25: 

c 

EOF8 80 E1 EF c and cl,OEFh reset bit #4 for 80x25 color. 

EOFB 80 C9 20 c or cl,D20h set bit #5 for 8Dx25 color. 

EOFE c i d ok: 

c 

c 

c 

c Set system configuration (switch bits) from switches. 

c 

EOFE E4 66 c in al,sys_conf a get switch info% 

E100 A8 10 c test al, 1Dh 80287 present?% 

E102 75 03 c jnz i d sw no, move on% 

E104 80 C9 02 c or cl,D2 yes,record it% 

E107 c i d SW: 

-- 

E107 32 E4 c xor ah,ah ah = D. 

E109 8A C1 c mov al,cl get data from switches. 

E10B A3 0010 R c mov word ptr ds:[switch_bits],ax save data from switches 

c 

c .-------------------------------------------------------------------------c 

;Test for and Initialize optional video ROMs 

c .-------------------------------------------------------------------------c 

c assume cs:code, ds:nothing, es:nothing, ss:nothing 

c 

E10E BB COOO c mov bx,OCOOOh ; load starting segment 

c 

E111 c vrom scan loop: 

E111 8E DB c mov ds,bx bx has pending segment 

E113 33 F6 c xor si,si offset OOOOh 


E191 BE FEF3 R 

E194 B1 18 

E196 AS 

E197 AB 

E198 E2 FC 

E19A 33 CO 

E19C B9 01B8 

E19F F3/ AB 

E1A1 SE 

E1A2 SF 

E1A3 07 

E1A4 1F 

E1AS C3 

E1A6 

E1A6 

E1A6 BA 0020 

E1A9 BO 13 

E1AB EE 

E1AC 42 

E1AD BO 08 

E1AF EE 

E1BO BO OD 

E1B2 EE 

E1B3 BO FF 

E1BS EE 

E1B6 C3 

E1B7 


c 

c 

c 

c 

mov 

mov 

C i vec8: movsw 

C stosw 

C loop i vec8 

c 

si,cs:(offset i vec_tbl) 

cl, (1Fh-08h)+1 

C Initialize Interrupt Vectors 20h and above to zero. 

c 

c xor 

c 

c 

mov 

c 

c rep 

c 

c pop 

c pop 

c pop 

c pop 

c ret 

c 

C i vector 

c 

ax,ax 

cx,((03FOh-0080h)/2) 

stosw 

si 

di 

es 

ds 

endp 


ds:si = code_seg:i_vec_tbl 

es:di = absO_seg:int08locn 

load INT's 08h through 1Fh. 

es:di++ gets ds:si (offset) 

es:di++ gets ax = cs (segment) 

until ex = 0. 

ax = 0 

es:di = absO_seg:int20locn 

clear 0:0080h to 0:03FOh 

don't blow away stack! 

es:di++ gets 0 

restore registers 

c .--------------------------------------------------------------------------c 

Initialize & Disable 82S9A Programmable Interrupt Controller. 

c 



c 

C Trash: al & dx destroyed. 

c ·-----------------------------------------------· --------------------------- 

c 

C i_pic_init 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

out 

inc 

mov 

out 

mov 

out 

mov 

out 

ret 

C i pic init 

c 

proc near 


dx,pic 0 

al,pic icw1 

dx,al 

dx 

al,pic_icw2 

dx,al 

al,pic icw4 

dx,al 

al,pic off msk 

dx,al 

endp 

dx = pic_O (8259A ·control' port) 

edge triggered, single, icw4 to follow 

dx = pic 1 (82S9A 'data' port) 

interrupt vector base address 

since we are single mode (no slave), skip icw3 

dx = pic 1 (8259A 'data' port) 

not special fully nested, buffered, 

master. normal end of int, 8086 mode 

mask all interrupts off for now 

dx = pic 1 (82S9A 'data' port) 

1-125


E1B7 

E1B7 E6 21 

E1B9 SA EO 

E1BB E4 21 

E1BD 3A EO 

E1BF C3 

E1CO 

E1CO 

E1CO SA EO 

E1C2 B9 FFFF 

E1C5 SB 09 

E1C7 E6 43 

E1C9 32 CO 

E1CB EE 

E1CC FE CO 

E1CE EE 

E1CF 

1-126 

c .--------------------------------------------------------------------------c 

Output Mask to S259A Programmable Interrupt Controller. 

c 

c Input: AL = mask pattern 

c 

C Output: Flags 

c 

C Trash: ah destroyed. 

c --------------------------------------------------------------------------- 

c 

C i out mask 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

out 

mov 

in 

cmp 

ret 

i out mask 

proc near 


pic 1, al ;output interrupt mask pattern 

ah,al ;save pattern for compar 

al,pic 1 ;get mask from S259 

ah,al ;the same ? 

;return flags = result of compare 

endp 

c ·---------------------------------------------------------------------c 

S254 p timer test for one p timer counter channel 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

Input: al 

dx 

Output: zf 

ah 

= S254 p timer control byte 

= port address of S254 p timer data (counter) 

= set (z status) if no error; reset (nz status) if error 

=Error codes: 0 ->No Errorl 

1 ->Low below time interval window. 

2 -> High above time interval window. 

3 -> No Response. 

C Trash: al, bx & ex destroyed. 

c .---------------------------------------------------------------------- 

c 

C rtc chk proc 

C assume 

c 

c 

c 

c 

mov 

mov 

near 

cs:code, ds:nothing, es:nothing, ss:nothing 

ah,al 

cx,OFFFFh 

save control byte for later. 

time out for both Register Bit Tests. 

C Register Bit Test (All Reset): Count down from 10Dh until all bits reset. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

out 

xor 

out 

inc 

out 

C rtc chk reset lp: 

- - - 

bx,cx 

p S253 ctrl,al 

al,al 

dx,al 

al 

dx,al 

bx gets all its bits set. 

send iS254 p timer control byte. 

al = DOh 

load low byte of p_timer count. 

al = 01h 

load high byte of p_timer count. 


E1CF 8A C4 c mov al,ah get control byte for read. 

E1D1 24 co c and al,OCOh mask off all but top 2 bits. 


E1D3 E6 43 c out p 8253 ctr 1. al send latching control byte for read. 

c 

E1D5 EC c in al,dx get low byte of p timer count. 

E1D6 22 D8 c and bl,al ·and' low byte. 

E1D8 EC c in al,dx get high byte of p timer count. 

E1D9 22 F8 c and bh,al ·and' high byte. 

c 

E1DB DB DB c or bx,bx is bx = O? 

E1DD 74 05 c jz rtc chk reset ok if so. we're done. 

- - - 

E1DF EZ EE c loop rtc_chk reset lp if not, continue reading. 

c (Note: loops less than 16 times. 

c 

E1E1 c rtc chk reset err: time out. 

E1E1 B4 03 c mov ah,3 Error #3. (No Response.) 

E1E3 C3 c ret return nz status (loop leaves zf ok). 

E1E4 c rtc chk reset ok: 

c 

c 

c Register Bit Test (All Set): Count down from Oh (FFFFh+1) until all bits set. 

c 

E1E4 33 DB c xor bx,bx bx gets all its bits reset. 

c 

E1E6 8A C4 c mov al,ah get control byte for load. 

E1E8 E6 43 c out p 8253 ctr 1. al send i8254 p_timer control byte. 

c 

E1EA 32 co c xor al,al al = DOh 

E1EC EE c out dx,al load low byte of p timer count. 

E1ED EE c out dx,al load high byte of p_timer count. 

c 

E1EE c rtc chk set lp: 

E1EE 8A C4 c mov al,ah get control byte for read. 

- - - 

E1FO 24 co c and al,OCOh mask off all but top 2 bits. 

E1F2 E6 43 c out p 8253 ctr 1. al send latching control byte for read. 

c 

E1F4 EC c in al,dx get low byte of p timer count. 

E1F5 OA D8 c or bl,al ·or' low byte. 

E1F7 EC c in al,dx get high byte of p timer count. 

E1F8 OA F8 c or bh,al ·or· high byte. 

c 

E1FA 83 FB FF c cmp bx,OFFFFh is bx = OFFFFh? 

E1FD 74 05 c jz rtc chk set ok if so, we're done. 

E1FF E2 ED c loop rtc chk set lp if not, continue reading. 

- - 

c (Note: loops less than 16 times.) 

c 

E201 c rtc chk set err: time out. 

E201 B4 03 c mov ah,3 Error #3. (No Response.) 

E203 C3 c ret return nz status (loop leaves zf ok). 

E204 c rtc chk set ok: 

c 

- 

c 

c p_timer Time Window Test: Test p timer versus CPU & see if it falls within spec. 

c 

E204 8A C4 c mov al,ah ; get control byte for read. 



E206 24 co c and al,OCOh mask off all but top 2 bits. 

E208 E6 43 c out p 8253 ctrl,al send latching control byte for read. 

c 

E20A EC c in al,dx get low byte of p timer count. 

E2DB 8A 08 c mov bl,al save low byte. 

E2DD EC c in al,dx get high byte of p timer count. 

E2DE 8A F8 c mov bh,al save high byte. 

c 

E210 8A C4 c mov al,ah get control byte for read. 

E212 24 co c and al,OCOh mask off all but top 2 bits. 

E214 E6 43 c out p 8253 ctrl,al send latching control byte for read. 

c 

E216 EC c in al,dx get low byte of p timer count. 

E217 8A C8 c mov cl,al save low byte. 

E219 EC c in al,dx get high byte of p timer count. 

E21A 8A E8 c mov ch,al save high byte. 

c 

E21C 2B 09 c sub bx,cx calculate time difference. 

c 

c Do Time Range Checking ( 4

E22F 89 8000 c mov cx,08000h get word count 


c (64k = 32k * 2 bytes/word) 

E232 8E C2 c mov es,dx 

E234 33 FF c xor di,di es:di = address 

E236 c memtst w1: 

- 

E236 88 C7 c mov ax,di ;data = offset 

E238 AB c stosw 

E239 E2 F8 c loop memtst w1 

E23B 8E DA c mov ds,dx 

c 

E23D 33 DB c xor bx,bx ;ds:bx = address 

E23F 89 8000 c mov cx,08000h : word count 

E242 c memtst r1: 

- 

E242 88 07 c mov ax, [bx] ;read data 

E244 38 C3 c cmp ax,bx ;verify data 

E246 75 2C c jne memtst err 

E248 43 c inc bx 

E249 43 c inc bx :next address 

E24A E2 F6 c loop memtst r1 

c 

E24C 89 8000 c mov cx,08000h word count 

E24F c memtst w2: address is already ok 

E24F 88 C7 c mov ax,di data = offset 

E251 F7 DO c not ax complement it 

E253 A8 c stosw :fill memory 

E254 E2 F9 c loop memtst w2 

c 

E256 89 8000 c mov cx,08000h word count 

c 

E259 c memtst r2: 

E259 88 07 c mov ax,[bx] read data 

E25B F7 DO c not ax complement 

E25D 38 C3 c cmp ax,bx verify 

E25F 75 OF c jne memtst err c 

c 

E261 43 c inc bx update address 

E262 43 c inc bx 

E263 E2 F4 c loop memtst r2 

E265 88 0000 c mov ax,O to clear memory 

E268 89 8000 c mov cx,08000h word count 

E26B F3/ A8 c rep stosw 

E26D 08 co c or ax,ax ;set ZF 

c END IF 

E26F C3 c ret 

E270 c memtst err c: 

c 

- - 

E270 F7 DO c not ax error during complemented 

E272 F7 D3 c not bx address test 

E274 c memtst err: 

c 

- 

E274 93 c xchg ax,bx ;return registers as specified 

E275 C3 c ret 

E276 c memtst endp 

c 

c 

- 

- 

- 

- 

ROM BIOS Listing 1-129 

-

E2AD 

E2AD 

E2AD 

E2AD B8 0040 

E2BO 8E 08 

E2B2 8E CO 

E2B4 9C 

E2B5 FA 

E2B6 BA 0061 

E2B9 BO 40 

E2BB EE 

E2BC 33 C9 

E2BE E2 FE 

E2CO B4 01 

E2C2 E8 E4B3 R 

E2C5 89 OE 0072 R 

E2C9 33 C9 

E2CB E2 FE 

E2CD 

E2CD E4 64 

E2CF AS 01 

E2D1 74 09 

E2D3 E4 60 

E2D5 3C AA 

E2D7 75 F4 

E2D9 A3 0072 R 

E2DC 

E2DC E2 EF 

E2DE 33 C9 


c : 16h etc .. 

C mt end label word 

c 

C pO_data1 

c 

endp 


c .----------------------------------------------·----------------------------- 

c 

c 

Initialize the basic hardware, 

Set up the interrupt pointers, 

c Initialize all RAM variables, 

c Clear the screen, 

C Initialize the disk drivers, 

C and perform the cold boot. 

c .--------------------------------------------------------------------------c 

C pcinit proc near 

c 

C assume cs:code, ds:data, es:data, ss:stack ram 

C extrn bios install:near 

c 

c 

c 

c 

c 

mov 

mov 

mov 

ax,data seg 

ds,ax 

es,ax 

C Initialize Keyboard Controller. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

pushf 

eli 

mov 

mov 

out 

xor 

loop 

mov 

call 

mov 

xor 

loop 

dx,p kctrl 

al,40h 

dx,al 

CX,CX 

$ 

ah,1 

kb cmd send 

word ptr ds:(reset flag],cx 

CX,CX 

$ 


save flags and 


dx = p kctrl 

remove keyboard reset 

; delay 

enable self test 

delay 

C Flush any keyboard scan code and store AAh if we get it. 

c 

C kb flush: 

C in 

c test 

C jz 

c 

c 

c 

c 

in 

cmp 

jne 

mov 

al,kb status 

al, 1 

kb flush back 

al,p kscan 

al,OAAh 

kb flush 

C kb flush back: 

C loop kb flush 

c 

c xor CX,CX 

word ptr ds:[reset flag],ax 

get 8041 status 

test output buffer bit 

jump if no character pending 

get scan code from data port 

verify keyboard present 

keyboard present 

;loop if zero 

: delay 

1-131

c 


E32B BO 01 c mov al,01h printer default timeout = 01 

E32D BF 007C R c mov di,ds:(offset serial tout) 

E330 B9 0004 c mov cx,4 

E333 F3/ AA c rep stosb es:di gets al 

c 

c Determine Parallel Port Configuration. 

c 

c assume cs:code, ds:code, es:data, ss:stack ram 

c 

E335 8C C8 c mov ax,cs 

E337 8E D8 c mov ds,ax satisfy assumptions 

c 

E339 32 DB c xor bl,bl clear high byte of switch_bits 

c 

E33B BF 0008 R c mov di,es:(offset printer addr) es:di points at printer base 

E33E BE E287 R c mov si,ds:(offset p tbl) addresses of printer ports 

c 

E341 c i prt loop: 

E341 AD c lodsw ax gets ds:si port address. 

E342 DB CO c or ax,ax valid port address? 

E344 74 14 c jz i prt exit exit if invalid port address 

c 

E346 8B DO c mov dx,ax transfer to data register 

E348 BO AS c mov al,OASh load test pattern 

E34A EE c out dx,al output test pattern. 

E34B 86 C4 c xchg al.ah mov ah.al: trash al: & delay. 

E34D EC c in al,dx input test pattern back. 

E34E 3A C4 c cmp al.ah what we read = test pattern ? 

E350 75 EF c jnz i_prt_loop if not, loop as port is absent 

c else. printer port is present 

E352 8B C2 c mov ax,dx retrieve port address 

E354 AB c stosw es:di gets ax. 

c 

E355 80 C3 40 c add bl,040h :add to high byte of switch_bits 

c 

E358 EB E7 c jmp i prt loop : will go around loop 3 times 

E35A c i prt exit: 

c 

c 

c Determine Communication (RS-232) Configuration (INS82SO's). 

c 

E35A BF 0000 R c mov di,es:(offset rs232_addr) es:di points at rs232 base 

c 

E35D BA 03FA c mov dx,com id a read interrupt I.D. register 

E360 EC c in al,dx for first 8250 port. 

E361 A8 F8 c test al,OF8h bits #3-7 are always low if 

E363 75 07 c jnz i no com a installed. 

c 

E365 B8 03F8 c mov ax,com data a if present, load address of 

E368 AB c stosw first 8250 data port. 

c es:di gets ax. 

E369 80 C3 02 c add bl,002h :add to high byte of switch_bits 

c 

E36C c i no com a: : es:di points next empty word 


-

E3A4 8B 01 

E3A6 4A 

E3A7 CD 14 

E3A9 E2 F6 

E3AB 

E3AB BO 01 

E3AD BA 0063 

E3BO EE 

E3B1 33 CO 

E3B3 8E 08 

E3B5 E4 66 

E3B7 A8 40 

E3B9 75 4A 

E3BB BE DABD R 

E3BE E8 E540 R 

E3C1 E8 0000 E 

E3C4 2E: 8E 1E E538 R 

E3C9 80 3E 0075 R 00 

E3CE 75 35 

E3DO BC 0100 

E303 FA 

E304 33 CO 

c 

c 

c 

c 

c 

mov 

dec 

INT 

C dis dmacc: 

c 

c 

loop 

mov 

mov 

c 

c 

c .-------------------------------------------------------------------------- 

out 

dx,cx 

dx 

14h 

rs init 

al,1 

dx,63h 

dx,al 

C ; Call internal HDU init code. 


; port number = loop - 1 

c .-------------------------------------------------------------------------- 

[ 

c 

C assume cs:code. ds:absO, es:nothing, ss:stack_ram 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

xor 

mov 

in 

test 

jnz 

mov 

call 

call 

ax.ax 

ds,ax 

al.sys_conf a 

al,64 

i hdu ok 

si,cs:(offset i_hdu_m) 

DRomString 

bios install 

; satisfy assumptions 

.. port 66h.% 

c assume cs:code, ds:data. es:absO. ss:stack ram 

c 

c 

c 

E306 8E CO 

E308 26: C7 06 0034 R FF23 C 

c 

c 

c 

c 

c 

c 

c 

E3DF 26: 8C DE 0036 R C 

E3E4 26: C7 06 004C R EC59 C 

E3EB 26: 8C DE 004E R C 

E3FO 26: C7 06 0064 R F876 C 

E3F7 26: 8C DE 0066 R C 

E3FC 26: A3 0100 

E400 26: A3 0102 

E404 FB 

E405 


c 

c 

mov 

cmp 

jnz 

mov 

eli 

call 

xor 

mov 

mov 

mov 

mov 

mov 

mov 

mov 

C Initialize 

C mov 

C mov 

c sti 

C i hdu ok: 

c 

c 


byte ptr ds:[hf num].O 

. , test switch bit 7%(1-8 no 0-7) 

.. if set. skip init 

print test message 

calls w.d. bios% 


number of hard disks. 

i hdu ok if ok. leave everything alone. 

sp. 100h 

i vector 

ax.ax 

es.ax 

word ptr es:[intODlocn].cs:(offset ill int) 

word ptr es:[int0Dlocn+2].cs 

word ptr es:[int13locn].cs:(offset fd io) 

word ptr es:[int13locn+2].cs 

word ptr es:[int19locn].cs:(offset bt_int) 

word ptr es:[int19locn+2].cs 

Interrupt Vectors 20h and above to zero. 

re-initialize stack 


re-install old vectors for 

hard disk and 

floppy disk and 

; floppy disk and 

; int 40h 

; and the boot 

; and the boot 

; interrupt 19h 

word ptr es:[(4*40h)+OOOOh].ax ROM intialization messed up% 

word ptr es:[(4*40h)+0002h].ax ; es:di = absO_seg:int40locn 

1-135


c .-------------------------------------------------------------------------c 

:Test for and Initialize optional ROMs 

c .-------------------------------------------------------------------------c 


c 

E405 BB C800 c mov bx,OC800h : load starting segment 

E408 c rom scan loop: 

c 

E408 8E DB c mov ds,bx bx has pending segment 

E40A 33 F6 c xor si,si offset OOOOh 

c 

E40C 81 3C AASS c cmp word ptr ds:[si],OAASSh 

E410 75 43 c jne rom scan next 

c 

E412 BE E276 R c mov si,cs:(offset opt ROM_m) indicate ROM detected 

E415 E8 E540 R c call DRomString 

E418 33 co c xor ax,ax 

c 

E41A E8 E578 R c call DHexLong ds:ax points at ROM 

c 

E41D B8 OE20 c mov ax,(OEh*100h)+' put out SPACE 

E420 CD 10 c INT 10h 

c 

E422 B8 0040 c mov ax,data_seg satisfy assumptions 

E425 8E CO c mov es,ax for es in rom check 

E427 33 F6 c xor si,si ds:si points to ROM to check 

c 

c Now: ds:si = pointer to ROM to be tested 

c bx = ds = pending segment of ROM under test 

c es: = data segment 

c 

c assume cs:code, ds:nothing, es:data, ss:nothing 

c 

E429 33 co c xor ax,ax clear al 

E42B 8A 64 02 c mov ah,byte ptr ds:[si+2] ax = (ROM length/512) * 256 

E42E D1 EO c shl ax, 1 ax = (ROM length/512) * 512 

c ax = ROM length in bytes 

E430 50 c push ax save ROM length 

E431 B1 04 c mov cl,4 

E433 D3 E8 c shr ax.cl advance segment for next ROM 

E435 03 08 c add bx.ax by the number of paragraphs 

E437 59 c pop ex restore ROM length in ex 

c 

E438 E8 E52D R c call rom checksum cnt get the checksum of the ex- 

c byte ROM. 

E43B 74 03 c jz rom chk sum ok OK if the checksum was zero 

E43D E9 E51A R c jmp rom err error the checksum wasn't zero 

c 

E440 c rom chksum ok: 

E440 53 c push bx save the segment for next ROM 

c 

E441 26: C7 06 0067 R 0003 C mov word ptr es:[io_rom_init],0003h 

E448 26: 8C 1E 0069 R c mov word ptr es:[io_rom_seg],ds 

- 

E44D 26: FF 1E 0067 R c call dword ptr es:[io_rom_init] : initialize the ROM 

1-136 ROM BIOS Listing 

-


E491 06 c push es 

E492 CD 13 c INT 13h bx, ex, dx, & ds preserved 

E494 07 c pop es restore return registers 

E495 58 c pop ax 

E496 50 c pop bp restore retry count 

c 

E497 73 08 c jnc i fdu ok error during read? 

- 

E499 40 c dec bp if so, decrement retry count 

E49A 75 E2 c jnz i fdu lp and try again 

c 

E49C BE DABO R c mov si,cs:(offset i fdu not_m) drive not ready message. 

E49F EB 03 c jmp short i fdu end 

E4A1 c i fdu ok: 

c 

E4A1 BE DAB4 R c mov si,cs:(offset i fdu_rdy_m) drive ready message. 

E4A4 c i fdu end: 

c 

E4A4 E8 E540 R c call DRomString 

E4A7 FB c sti 

c 

E4A8 c i init end: 

E4A8 BA 0378 c mov dx,0378h printer port 

E4AB BO 3F c mov al,3Fh OK status 

E4AD EE c out dx,al tell mfg tester 

E4AE E8 E55F R c call DCrlf 

c 

c 

E4B1 CD 19 c INT 19h go to boot-strap routine 

E4B3 c pcinit endp 

E4B3 c kb_cmd_send proc near 

c 

c 

c : Send command in AH to keyboard interface processor. AX is used. 

c 

c 

E4B3 c kb cmd wlup: 

E4B3 E4 64 c in al,kb status get 8041 port status 

E4B5 A8 02 c test al, 10b ready to receive? 

E4B7 75 FA c jnz kb_cmd_wlup 

c 

E4B9 8A C4 c mov al,ah ready, send command 

E4BB E6 60 c out p_kscan,al 

E4BD C3 c ret 

E4BE c kb cmd send endp 

E4BE c code ends 

c 

c 

c include pwrup2.asm 

c 

c ·====================================================================== 

c Filename: pwrup2.src 

c 

c This module includes 8259 Interrupt, Video Controller, 82087 

c NPU, and 8254 & MM58274 Clock tests. 

c 


E4BE 

E4BE 

E4BE 50 

E4BF 52 

E4CO 56 

E4C1 88 F4 

E4C3 36: 8E 5C DE 

E4C7 36: 88 74 DC 

E4CB 83 EE 02 

E4CE 8A 04 

E4DO 3C CD 

E4D2 75 31 

E4D4 E8 ED50 R 

E4D7 E8 E509 R 

E4DA BE 0999 R 

E4DD E8 E540 R 



c ·====================================================================== 

c 



c 

c ·====================================================================== 

C Note: We are called from ill int ONLY (see vector.src), and 

stack looks like this: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

(10) 

(DE) 

(DC) 

(OA) 

(08) 

(06) 

(04) 

(02) 

(00) 

High Address 

1------------------1

E51A 

E51A 8C 08 

E51C 26: 88 26 0015 R 

E521 BE D9CC R 

E524 E8 E540 R 

E527 EB 36 90 

E52A 

E52A 

E52A 89 2000 

E52D 

E52D 33 co 

E52F 

E52F AC 

E530 02 EO 

E532 E2 FB 

E534 OA E4 

E536 C3 

E537 


c 

c 

c 

Input: ds 

es 

= segment of ROM under test 

= firmware data segment 

C Trash: All other registers except bx destroyed (in general). 

c .--------------------------------------------------------------------c 

C rom err proc near 

c assume cs:code, ds:nothing, es:data, ss:nothing 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

mov 

call 

jmp 

C rom err endp 

c 

c 

c 

ax,ds 

byte ptr es:[mfg err flag],ah 

si,cs:(offset fail m) 

DRomString 

DCrlf 


c 

high byte of ROM address 

indicate ROM failed 

c .----------------------------------------------------------------------- 

( 

c 

c 

c 

c 

c 

c 

c 

Input: 

Output, 

Trash: 

ds:si = pointer to ROM to be tested 

ah = checksum for the ROM 

ex = 0 

si = pointer to byte past ROM 

zf = state of checksum for the ROM 

al destroyed. 

c ·---------------------------------------------------------------------- 

[ 

C rom checksum proc near 


c 

c 

c 

mov cx,2000h 

C rom checksum cnt: 

- - 

c xor ax,ax 

c 

C rom checksum loop: 

- - 

C lodsb 

C add ah, al 

loop rom checksum loop 

- - 

c 

c 

c 

or 

c ret 

c 

ah,ah 

C rom checksum endp 

c 

c 

clear ah 

12 al gets ds:si 

c ·====================================================================== 

C Utility Routines: 

c 

3 

17 

1-141


E537 

E537 90 

E538 0040 

E53A 

E53A 

E53A 2E: 8E 1E E538 R 

E53F C3 

E540 

E540 

E540 1E 

E541 OE 

E542 1F 

E543 E8 E548 R 

E546 1F 

E547 C3 

E548 

E548 

E548 50 

E549 53 

E54A 56 

E54B 9C 

E54C FC 

E540 B3 01 

E54F AC 

E550 OA CO 

E552 74 06 

E554 B4 OE 

E556 CD 10 

E558 EB F5 

E55A 

E55A 90 

E55B 5E 

ESSC SB 

1-142 

c 

c 

c 

DRomString 

DHexLong 

DNum 

DString 

DHexWord 

DNumW 

DCrLf 

DHexByte 

DColon 

DHexNib 

c ·====================================================================== 

c 

C p4 data1 

c 

C even 

c 

C set ds word 

c 

C p4 data1 

c 

c 

C set ds 

c 

c 

c 

c 

c 

C set ds 

mov 

ret 

proc near 

dw data seg 2 bytes 0 clocks 

endp 

proc near ; set ds to firmware data segment 



endp 

5 bytes 2+9+6 = 17 clocks 

1 byte = 8 clocks 

c ·====================================================================== 

C Display ASCII String Utilities 

c ·====================================================================== 

c 

C DRomString 

c 

c 

c 

c 

c 

c 

c 

push 

push 

pop 

call 

pop 

C ret 

C DRomString 

c 

C DString 

c 

c 

c 

c 

c 

c 

c 

c 

push 

proc near ; Displays NUL terminated string at cs:si 


ds 

cs 

ds 

DString 

ds 

push bx 

push si 

pushf 

cld 

mov 

C OS lp: lodsb 

C or 

C je 

C mov 

C INT 

C jmp 

C OS ret: 

c 

c 

c 

popf 

pop 

pop 

endp 

proc near 

all registers saved 

ds gets cs 

restore ds 

; Displays NUL terminated string at ds:si 


ax ; all registers & flags saved 

bl,1 

al,al 

OS ret 

ah,OEh 

10h 

short OS lp 

si 

bx 

auto increment 

select foreground color for grafix modes 

al gets ds:si and si++ 

NUL ? 

tty emulator 

restore registers & flags 



ESSD 58 c pop ax 

ESSE C3 c ret 

ESSF c DString endp 

c 

ESSF c DCrlf proc near ; Displays a CR & LF. 

c assume CS:COde, ds:nothing, es:nothing, ss:nothing 

ESSF 50 c push ax all registers preserved 

E560 B8 OEOD c mov ax,(OEh*100h)+CR 

E563 CD 10 c INT 10h tty emulator 

E565 B8 OEOA c mov ax,(OEh*100h)+LF 


E56A 58 c pop ax restore ax 

E56B C3 c ret 

E56C c DCrlf endp 

c 

E56C c DColon proc near ; Displays a : 


E56C 50 c push ax all registers preserved 

E56D 53 c push bx 

E56E B3 01 c mov bl.1 select foreground color for grafix modes 

E570 B8 OE3A c mov ax.(OEh*100h)+': · 


E575 SB c pop bx restore registers 

E576 58 c pop ax 

E577 C3 c ret 

E578 c DColon endp 

c 

c .;===================================================================== 

c Display Hexadecimal Number in ASCII Utilities 

c ·====================================================================== 

c 

E578 c DHexlong proc near ; Displays ds:ax in ASCII 


E578 so c push ax all registers preserved 

E579 8C D8 c mov ax,ds ; display segment first 

E57B E8 E582 R c call DHexWord 

c 

E57E E8 E56C R c call DColon display a colon 

c 

E581 58 c pop ax restore ax 

c jmp short DHexWord fall through: display offset second 

c 

E582 c DHexLong endp 

c 

E582 c DHexWord proc near ; Displays ax in ASCII 


E582 so c push ax all registers preserved 

E583 8A C4 c mov al,ah 

E585 E8 E589 R c call DHexByte display high byte first 

E588 58 c pop ax restore ax 

c jmp short DHexByte fall through: display low byte second 

c 

E589 c DHexWord endp 

c 

E589 c DHexByte proc near Displays al in ASCII 



E589 50 

E58A DO C8 

E58C DO C8 

ESSE DO C8 

E590 DO C8 

E592 E8 E596 R 

E595 58 

E596 

E596 

E596 50 

E597 53 

E598 B3 01 

E59A 24 OF 

E59C 04 30 

E59E 3C 39 

ESAO 76 02 

ESA2 04 07 

ESA4 B4 DE 

ESA6 CD 10 

ESA8 SB 

ESA9 58 

ESAA C3 

ESAB 

ESAB 

ESAB 53 

ESAC 33 DB 

ESAE E8 ESB3 R 

ESB1 SB 

ESB2 C3 

ESB3 

ESB3 

ESB3 50 

ESB4 53 

ESBS 51 

ESB6 52 

ESB7 56 

ESB8 BE OOOA 

ESBB 33 C9 

ESBD 

ESBD 33 D2 

1-144 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C DHexByte 

c 

C DHexNib 

c 

push 

ror 

ror 

ror 

ror 

call 

pop 

jmp 

C push 

C push 

C mov 

c and 

C add 

C cmp 

C jbe 

C add 

C NibOk: mov 

C INT 

C pop 

C pop 

C ret 

C DHexNib 

c 


ax 

al,1 

al,1 

al,1 

al, 1 

DHexNib 

ax 

short DHexNib 

endp 

; all registers preserved 

move high nibble to low nibble 

display high nibble in ASCII 

restore ax 

fall through: display low nibble in ASCII 

proc near ; Displays low nibble of al in ASCII 


ax 

bx 

bl,1 

al,Ofh 

al, '0' 

al, '9' 

NibOk 

al, 'A'-'0'-10 

ah,OEh 

10h 

bx 

ax 

endp 

all registers preserved 

select foreground color for grafix modes 

clear high nibble 

'0'


73 74 65 60 20 62 c 

6F 61 72 64 00 c 

E618 50 61 72 69 74 79 c parity2_m db 'Parity error on expansion board' ,NUL 

20 65 72 72 6F 72 c 

20 6F 6E 20 65 78 c 

70 61 6E 73 69 6F c 

6E 20 62 6F 61 72 c 

64 00 c 

E638 c enable_parity endp 

E638 c OP INT PROC NEAR 

c 

c 

c ·======================================================================= 

c INT 06H -- Illegal Opcode Interrupt Routine% 

c 

c Purpose: To intercept certain (well-used) illegal% 

c opcodes. Note that this vector is installed% 

c i vector.% 

c 

c ·======================================================================= 

c 

c 

E638 FA c eli stop intrs% 

c This routine checks for MOV CS

E65C OS 0002 

E65F 50 

E660 83 EC 02 

E663 58 

E664 CF 

E665 

E665 

E665 

E665 

E665 50 

E666 E8 F603 R 

E669 8A 46 03 

E66C 3C 01 

E66E 76 1F 

E670 3C 06 

E672 73 1B 

E674 AO 0041 R 

E677 OA CO 

E679 75 17 

E67B 8A 87 0090 R 

E67F A8 10 90 90 

E683 75 sc 

E685 oc 10 90 90 

E689 04 03 

E68B 88 87 0090 R 

E68F 

E68F EB 50 90 

E692 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

OP INT ENDP 

code ends 

include fdu6.asm 

ADD AX,2 ;% 

PUSH AX ;% 

SUB SP,Z ;% 

POP AX ;% 

IRET ;% 

;retore AX register% 


C assume cs:code, ds:data, es:nothing, ss:nothing 


c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; '';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;''' ', ''''';;; '';;;; 

c 

C file fdu6.asm 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ';; '' ''';;;;;;;;;;;;;;;;;;;;;' ';;;;;;;;;;' '''' 

c 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C Test for Retry 

c 

C Routine checks for certain commands and error conditions 

C If no retry is needed, the disk-state is made 'established' 

C When a retry is needed, disk-state and f head are changed. 

C CY is set/cleared as appropriate 

c 

C note: state transitions are odd. 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

f_tstretry 

f_jmpnr: 

f dskerr: 

push 

call 

mov 

cmp 

jbe 

cmp 

jae 

mov 

or 

jnz 

mov 

test 

jnz 

or 

add 

mov 

jmp 

proc near 

ax 

f_getdrv 

al,f command 

al.1 

f jmpnr 

al,6 

f jmpnr 

al,diskette status 

al,al 

f dskerr 

al,diskstate[bx] 

- 

al,ESTAB 

f_noretry 

al,ESTAB 

al,3 

diskstate[bx],al 

f noretry 

savefunction info% 

get drive number in bl% 

get original cmd% 

reset/status cmd?% 

yes, exit% 

special cmds?% 

yes. no special handling here% 

hold status info% 

test error msg% 

jmp if error% 

no errors. massage state% 

is it established??% 

yes it is, jump out% 

no, state is now confirmed% 

state part was unestab, add w/o fear% 

record new state% 

added for 127-byte jump to f_noretry % 

done 

1-147

E6E4 

E6F2 

E6F2 

E6F2 E9 F876 R 

E6F5 

E6F5 

E6F5 

E6F5 

E6F5 80 FC 88 

E6F8 75 DB 

E6FA 1E 

E6FB 2E: 8E 1E E538 R 

E700 A1 OOCA R 

E703 1F 

E704 CF 

E705 

E705 F9 

E706 B4 86 

E708 CA 0002 

E70B 

E70B 

E7DB 


c Fi.lename: boot1.src 

c 

C This module includes the ORG"d jump to INT 19h (boot2.src) 


c 

c ·====================================================================== 

c 

C code 

segment public 'ROM' 


c 

c ORG OE6F2h 

c 

C bt_jmp proc near 

c 

c 

c 

jmp 

C bt_jmp endp 

c 

bt int 

C code ends 

C include memx.asm 



c 

C add mem code proc far 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

cass: 

cmp 

jne 

push 

mov 

mov 

pop 

iret 

stc 

mov 

ret 

ah,88h 

cass 

assume ds:data 

ds 


ax,ds:[seg_fail] 

ds 

ah,86h 

C add mem code endp 

c 

c 

c 

c 

C code ends 

C include comm1.asm 

2 

necessary jump for ORG 

; see if request for mem above 1 Mb 

error 


c ·====================================================================== 

c 

c 

Filename: com1.src 

C This module, com2, and com3 supply INT 14h. 

c 

c ·====================================================================== 

c 

C code 

c 



1-149


= 0080 

= 0020 

= 0008 

= 0004 

= 0002 

= 0001 

= 0020 

= 0010 

= 0002 

= 0001 

= 0004 

= 0001 

= 0040 

= 0020 

= 0010 

1-150 

c 

c .--------------------------------------------------------------------c 

INS8250 Compatible Line Status Bits (ah) for Z8530 SCC Re-Mapping 

c (8530 not used on the 6300 PLUS) 

c .--------------------------------------------------------------------c 

c com te 

equ 80h time out error (bit #7) 

- 

c com txd 

equ 20h transmit ready (bit #5) 

c com fe 

equ 08h framing error (bit #3) 

c com_pe 

equ 04h parity error (bit #2) 

c com oe 

equ 02h overrun error (bit #1) 

c com rxd 

c 

equ 01h receive ready (bit #0) 

c .--------------------------------------------------------------------c 

INS8250 Compatible Modem Status Bits (al) for Z8530 SCC Re-Mapping 

C (8530 not used on the 6300 PLUS) 

c .---------------------------------------------------------------------- 

c 

C com dsr 

C com cts 

c 

equ 

equ 

20h 

10h 

data set ready (bit #5) 

clear to send (bit #4) 

c .---------------------------------------------------------------------c 

INS8250 Compatible Modem Control Bits. 

c .---------------------------------------------------------------------- 

c 

C com rts 

C com dtr 

equ 

equ 

02h 

01h 

request to send (bit #1) 

data terminal ready (bit #0) 

c 

c .--------------------------------------------------------------------c 

Z8530 SCC Status Register (Read Register #0) 


c ·---------------------------------------------------------------------- 

c 

C sec txd 

C sec rxd 

equ 

equ 

04h 

01h 

transmit ready (bit #2) 

receive ready (bit #0) 

c 

c ·--------------------------------------------------------------------c 

Z8530 SCC Error Register (Read Register #1) 


c .--------------------------------------------------------------------c 

C sec fe 

equ 40h 

C sec oe 

c sec pe 

equ 

equ 

20h 

10h 

c 

c .--------------------------------------------------------------------c 

INS8250 Asynchronous Communication Chip Baud Rate Time Constants 

C (baud rate generator signal is 3.6864 MHz put through a 

C 

c 

divide-by-2 circuit. 

C ((3,686,400 Hz)/2) = Input Freq. 

C Time Constant = -------------------------------- 

C (16)*(baud rate) 

c .--------------------------------------------------------------------c 

framing error (bit #6) 

overrun error (bit #5) 

parity error (bit #4) 


E729 c 

c 

E729 c 

c 

E729 0417 c 

E72B 0300 c 

E72D 0180 c 

E72F ooco c 

E731 0060 c 

E733 0030 c 

E735 0018 c 

E737 oooc c 

c 

E739 c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


com data1 proc 

ORG OE729h 

com baud dw 1047 110 baud (0) 

dw 768 150 baud (1) 

dw 384 300 baud (2) 

dw 192 600 baud (3) 

dw 96 1200 baud (4) 

dw 48 2400 baud (5) 

dw 24 4800 baud (6) 

dw 12 9600 baud (7) 

com data1 endp 

Z8530 Serial Communication Controller Baud Rate Time Constants 

(baud rate generator signal is 3.6864 MHz) 

(NO divide-by-2 circuitl!! !) 

(8530 not used on the 6300 PLUS) 

(3,686,400 Hz) = Input Freq. 

Time Constant = ---------------------------- - 2 

(16)*(2)*(baud rate) 


NOTE: These values are the SAME as the above EXCEPT for the - 2! I I 1 

;SCC baud dw 1045 110 baud (0) 

dw 766 150 baud (1) 

dw 382 300 baud (2) 

dw 190 600 baud (3) 

dw 94 1200 baud (4) 

dw 46 2400 baud (5) 

dw 22 4800 baud (6) 

dw 10 9600 baud (7) 

INT 14h -- RS-232 Software Interrupt Request Routine 

Assumes: 

Similarly: 

Z8530 Note: 

INS8250 port addresses are > 256. That is, the 

high byte of the port address is nonzero, if and 

only if, the port is a INS8250. (e.g. com_a ports 

are 03F8h- 03FFh & com_b ports are 02F8h- 02FFh.) 

Z8530 port addresses are < 256. That is, the 

high byte of the port address is zero, if and 

only if, the port is a Z8530. (e.g. scc_a ports 

are 0050h - 0051h & scc_b ports are 0052h - 0053h.) 

For the reset during power-up, DTR and RTS must be 

set low which is the only difference from a normal 

reset (AH=O). This is accomplished by a special 

function code (AH=OFFh). (8530 not used on 

the 6300 PLUS) . 

1-151


c ·====================================================================== 

c 

E739 c ORG OE739h 

c 

E739 c serial io proc near 


c 

E739 FB c sti enable interrupts 

c 

E73A 55 c push bp save register 

c 

E73B 83 FA 04 c cmp dx,4 4 RS-232 channels allowed max 

E73E 73 30 c jae rs nop 

c 

E740 8B E8 c mov bp,ax save original function code 

E742 80 FC FF c cmp ah,OFFh power-up reset? 

E745 75 02 c jne rs norm jump if no 

E747 32 E4 c xor ah,ah same as reset, BP remembers FF 

c 

E749 c rs norm: 

- 

E749 80 FC 03 c cmp ah,03h input out of range? 

E74C 77 2F c ja rs nop 

c 

c assume cs:code, ds:data, es:nothing, ss:nothing 

c 

E74E 52 c push dx ; save registers 

E74F 51 c push ex 

E750 53 c push bx 

E751 1E c push ds save ds 

E752 2E: 8E 1E E538 R c mov ds,word ptr cs:[set_ds_word] satisfy assumptions 

c 

E757 8B OA c mov bx,dx get port number (0-3) 

E759 33 C9 c xor cx,cx clear ch 

E75B 8A 8F 007C R c mov cl,byte ptr ds:[bx+serial_t_out] get RS-232 time-out 

E75F 01 E3 c shl bx,1 make word index 

E761 8B 97 DODO R c mov dx,word ptr ds:[bx+rs232_addr] get address of RS-232 

c data port 

E765 1F c pop ds restore ds 

c 


c 

E766 DB 02 c or dx,dx RS-232 port present? 

E768 74 10 c jz rs ret if not, leave 

c 

E76A OA F6 c or dh,dh are we a INS8250 chip? 

E76C 75 03 c jnz rs ok if so, take jump 

c 

E76E 80 C4 04 c add ah,4 if sec Z853D and 4 to function 

c 

E771 c rs ok: 

E771 8A DC c mov bl,ah bx = function number 

E773 01 E3 c shl bx, 1 bx = 2*(function number) 

E775 2E: FF 97 E77F R c call cs:[bx+(offset rs_tbl)] perform rs232 function 

c 

E77A c rs ret: 

- 


E77A 58 

E77B 59 

E77C SA 

E77D 

E77D 50 

E77E CF 

E77F E787 R 

E781 E8B6 R 

E783 E8E2 R 

E785 E87D R 

E787 

E787 

E787 52 

E788 8A E8 

E78A BO 80 

E78C 83 C2 03 

E78F EE 


c 

c 

c 

C rs nop: 

pop 

pop 

pop 


c 

c 

c 

c .---------------------------------------------------------------------- 

pop 

iret 

bx 

ex 

dx 

bp 

C INT 14h Jump Table 


c .---------------------------------------------------------------------- 

[ 

c rs tbl dw 

c dw 

c 

c 

c 

c 

c 

c 

c 

C serial io 

c 

c 

dw 

dw 

dw 

dw 

dw 

dw 

com init 

com pb 

com_gb 

com stat 

sec init 

sec pb 

scc_gb 

sec stat 

endp 

ah = DOh for INS8250 

ah = 01h for INS8250 



ah = DOh for sec Z8530% 

ah = 01h for sec Z8530% 



c ·---------------------------------------------------------------------- 

[ Initialize RS-232 Interface. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

Input: al = 

dx = 

Output: ax = 

input parameters 

address of RS-232 channel 

RS-232 channel status 

al initializes port with: bit # 7 6 5 4 3 2 1 0 

Baud (BBB): Parity (PP): 

0 = 110 4 = 1200 

1 = 150 5 = 2400 

2 = 300 6 = 4800 

3 = 600 7 = 9600 

xo = None 

+-+-+-+-+-+-+-+-+ 

IBIBIBIPIPISIDIDI 

+-+-+-+-+-+-+-+-+ 

Stop Bits (S): Data Bits (DO): 

c 

c 

c .---------------------------------------------------------------------- 

[ 

C com init 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

Assumes: 

push 

mov 

mov 

add 

out 

01 = Odd 1 = 2 

11 = Even 

0 = 1 10 = 7 

com int x = com data x + 1 = dx + 1 

com lctl x = com data x + 3 = dx + 3 

proc near : ah = DOh 


dx 

ch,al 

al. 080h 

dx.3 

11 = 8 

(00 = 5?) 

(01 = 6?) 

save dx = com data x 

save input parameters. 

access divisor latch of 

baud count register. 

dx = com lctl x 

dx.al write to line control register 

1-153

E82E 

E82E 

C Trash: None. ( bx & ds if ROM stack) 

c 

C Note: The stack never gets deeper than 6 words I! 1 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

High Address 

1------------------1


E845 

E845 FB 

E846 E8 E854 R 

E849 74 FA 

E84B E8 E86E R 

E84E 89 1E 001A R 

E852 EB EE 

E854 FA 

E855 8B 1E 001A R 

E859 3B 1E 001C R 

E85D 8B 07 

E85F C3 

E860 

E860 

E860 E8 E854 R 

E863 FB 

E864 SB 

E865 1F 

E866 CA 0002 

E869 

1-156 

c Trash: None. 

c .----------·------------------------------------------------------------ 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

k read 

k see: 

k read 

proc 

assume 

sti 

call 

jz 

call 

mov 

jmp 

eli 

mov 

cmp 

mov 

ret 

endp 

near 

CS:COde, ds:data, es:nothing, ss:nothing 

enable interrupts (again) 

k see is there a character present? 

interrupts come back disabled! 

k read loop until something in buffer 

- 

k adv ptr move pointer to next position 

word ptr ds:[buffer_head],bx store value in variable 

short k ret 

disable interrupts I 1 

bx,word ptr ds:[buffer_head] get pointer to head of buffer 

bx,word ptr ds:[buffer_tail] if equal, then nothing there 

ax,word ptr ds:[bx] get scan code and ascii code 

c .---------------------------------------------------------------------c 

Checks for key in keyboard buffer, but does not extract it. 

c 

C Output: if key is in buffer, then: 

C zf = 0 (nz = reset) 

C ah = raw scan code 

C al = ASCII translated key 

C or 

C ah = translated key 

C al = DOh 

C else: 

C zf = 1 (z = set) 

C ax = 16th previous key 

c 

C Trash: ax is trashed if keyboard buffer is empty. 

c ·---------------------------------------------------------------------- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

k look proc far ; must be far I 11 1 

assume cs:code, ds:data, es:nothing, ss:nothing 

k look endp 

call k see is there a character present? 

interrupts come back disabled! 

sti must return interrupts enabled 

pop bx restore registers 

pop ds blow away flags returning: 

ret 2 zf & ax = k see output, & sti 

c .---------------------------------------------------------------------- 

c 

c 

Returns keyboard shift state kb_flag in al. 


E869 

E869 AO 0017 R 

E86C EB 04 

E86E 

E86E 

E86E 43 

E86F 43 

E870 3B 1E 0082 R 

E874 75 04 

E876 8B 1E 0080 R 

E87A 

E87A C3 

E87B 

E87B 

E87B 



c Output: ah = 0. 

c al = kb flag 

C Trash: None. 

c .---------------------------------------------------------------------- 

[ 

C k stat proc near 


c 

c 

c 

c 

mov al,byte ptr ds:[kb_flag] 

jmp short k ret 

; get the shift status flags 

C k stat endp 

c 

c ·---------------------------------------------------------------------- 

[ Advances kb buffer ring buffer pointer. 

c 

C Input: bx 

c Output: bx 


c .---------------------------------------------------------------------- 

c 

C k adv ptr proc near 


c 

c inc 

c inc 

C cmp 

c jne 

C mov 

C k adv end: 

C ret 

c 

C k adv ptr endp 

c 

c code ends 

bx 

bx 

bx,word ptr ds:[buffer end] 

k adv end 

bx,word ptr ds:[buffer_start] 

move to next word in list 

end of buffer ? 

no, continue 

yes, buffer to beginning 

C include comm2.asm 

c ·====================================================================== 

C 

c 

Filename: com2. src 

c ·====================================================================== 

c 



c 

c .--------------------------------------------------------------------c 

Read Status of RS-232 Interface. (rs_stat) 

C 

c 


C Input: dx = if dh = 0, then address of Z8530 channel (sec ctl x). 

C if dh 0, then address of 8250 data port (com_data x). 

C Output: ax = RS-232 (INS8250-compatible) channel status. 

C 

c 

Trash: None. 

1-157


E87B 

E87B OA F6 

E87D 

E87D 52 

E87E 83 C2 OS 

E881 EC 

E882 8A EO 

E884 42 

E885 EC 

E886 SA 

E887 C3 

1-158 

c Assumes: com lstat x = com data x + 5 = dx + 5 (line status) 

C com_mstat x = com_data x + 6 = dx + 6 (modem status) 

c .---------------------------------------------------------------------c 

C rs stat proc near ; ah = 03h 


c 

c 

c 

c 

c 

C com stat: 

c 

or 

jz 

C Get Line Status. 

c 

c 

c 

c 

c 

c 

push 

add 

in 

mov 

dh,dh 

sec stat 

dx 

dx,S 

al,dx 

ah,al 

C Get Modem Status. 

c 

c 

c 

c 

c 

c 

c 

inc 

in 

pop 

ret 

C ;SCC stat: 

c 

dx 

al,dx 

dx 

C Get Channel Status. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

xor 

out 

call 

in 

test 

jz 

C or 

C ;sec no txd: 

c 

c 

c 

c 

c 

test 

jz 

or 

C ;sec no rxd: 

c 

ax,ax 

dx,al 

rs_dly 

al,dx 

C , , Get Error Status. 

c 

c 

c 

c 

c 

mov 

out 

call 

in 

al,scc txd 

sec no txd 

ah,com txd 

al,scc rxd 

sec no rxd 

ah,com rxd 

al,1 

dx,al 

rs_dly 

al,dx 

are we a sec Z8530 chip? 

if so, take jump% 

INS8250 read status routine. 


dx = com lstat x 

get line status 

line status comes back in high byte 

dx = com mstat x 

get modem status in low byte 

restore dx = com data x 

sec Z8530 read status routine. 

al = selects 0 ah = no errors 

dx = sec ctl x 

get channel status 

test for transmit ready 

if so, set INS8250-compatible bit. 

test for receive ready 

if so, set INS8250-compatible bit. 

get errors 

dx = sec ctl x 

get error status 


E888 

E888 

E888 51 

E889 33 DB 

E88B 87 CB 

E88D 

E88D OA F6 

E88F 75 06 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

test 

jz 

or 

;sec no fe: 

test 

jz 

or 

;sec no pe: 

test 

jz 

or 

;sec no oe: 

C , , Set Modem Status. 

c 

c 

c 

c 

mov 

ret 

C rs stat endp 

al,scc fe test for framing error 

sec no fe 


ah,com fe if so. set INS8250-compatible bit. 

al,scc pe test for parity error 

sec no pe 

ah,com pe if so, set INS8250-compatible bit. 

al,scc oe test for overrun error 

sec no oe 

ah,com oe if so, set INS8250-compatible bit. 

al,(com_dsr+com_cts) al = DSR and CTS 

c 

c ·--------------------------------------------------------------------c 

Wait for Status of RS-232 Interface. (rs_ws) 

C 

c 


c Input: ah = RS-232 channel status for which to wait 

ex = RS-232 time-out 

dx = if dh = 0, then address of Z8530 channel (sec ctl x). 

if dh 0, then address of 8250 data port to poll. 

c 

c 

c 

c 

c 

c 

c 

c 

Output: AH = 

ZF = 

C Trash: al & bx destroyed. 

c 

c 

c 

Status. 

set, if status matches. 

reset, if time-out. 

Assumes: com lstat x = com data x + 5 = dx + 5 (line status) 

com mstat x = com data x + 6 = dx + 6 (modem status) 

c ·---------------------------------------------------------------------- 

[ 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

rs ws proc 

assume 

push 

xor 

xchg 

rs ws lp: 

or 

jnz 

near 


ex save time-out 

bx,bx clear bx 

cx,bx BL now has rs232 time out. 

dh,dh are we an INS8250 chip? 

rs ws com if so, take jump 

1-159

E8B6 

E8B6 52 

E8B7 50 

E8B8 BO 03 

E8BA 83 C2 04 

E8BD EE 

E8BE B4 30 

E8CO 42 

E8C1 42 

E8C2 E8 E888 R 

E8C5 75 13 

E8C7 B4 20 

E8C9 4A 

E8CA E8 E888 R 

E8CD 75 DB 

E8CF 58 

E8DO SA 

E8D1 8A 08 

E803 E8 E87B R 

E806 8A C3 

E808 EE 

E8D9 

E809 C3 

E8DA 

E8DA 5B 

E8DB SA 

E8DC 8A C3 

E8DE 80 CC 80 

E8E1 C3 

E8E2 


c 

c 

c 

c 

Assumes: com mctl x = com data x + 4 = dx + 4 

com lstat x = com data x + 5 = dx + 5 

com mstat x = com data x + 6 = dx + 6 


c 

c .---------------------------------------------------------------------- 

c 

C com pb proc 

C assume 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c rs_pb_gb: 

c 

c 

c 

C rs pbe: 

c 

c 

c 

c 

c , , 

c 

c 

c 

c 

push 

push 

mov 

add 

out 

mov 

inc 

inc 

call 

jnz 

mov 

dec 

call 

jnz 

pop 

pop 

mov 

call 

mov 

out 

ret 

pop 

pop 

call 

mov 

or 

ret 

C com pb endp 

c 

c 

C ;sec pb proc 

C assume 

sec data x = sec ctl x + 1 = dx + 1 

near : ah = 01h 


dx 

ax 

al,(com_rts+com_dtr) 

dx,4 

dx,al 

ah,(com_dsr+com_cts) 

dx 

dx 

rs ws 

rs pbe 

ah,com txd 

dx 

rs ws 

rs pbe 

ax 

dx 

bl,al 

rs stat 

al,bl 

dx,al 

bx 

dx 

rs stat 

al,bl 

ah,com te 


save character to output in al 

signal RTS & DTR 

dx = com mctl x 


send to modem control register 

wait for DSR & CTS 

dx = com mstat x 

wait for modem status register 

if time-out, take jump 

wait for transmit ready 

dx = com lstat x 

wait for line status register 


restore character to output in al 


save character input/output in bl 

get return status 

restore character input/output in al 

else, output the character 

exit for put and get byte 

if sec Z8530, dx = sec ctl x 

exit for put byte error 

restore character to output in bl 

if sec Z8530, restore dx = sec ctl x 

else INS8250, restore dx = com data x 

get return status 


indicate timeout error 


1-161


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

E8E2 c 

c 

c 

E8E2 52 c 

E8E3 80 01 c 

E8E5 83 C2 04 c 

E8E8 EE c 

E8E9 B4 20 c 

E8EB 42 c 

E8EC 42 c 

E8ED E8 E888 R c 

E8FO 75 DE c 

E8F2 B4 01 c 

E8F4 4A c 

E8F5 E8 E888 R c 

1-162 

c 

c 

;SCC pb endp 

com_gb 

push dx 

push ax 

mov ah,scc txd 

call rs ws 

jnz rs pbe 

pop ax 

inc dx 

out dx,al 

pop dx 

- 

jmp short rs_pb_gb 

save dx = sec ctl x 

save character to output in al 

wait for transmit ready 



dx = sec data x 

else, output the character 

restore dx = sec ctl x 

INS8250 Get Byte (com_gb) & SCC Z8530 Get Byte (sec gb) 


Receive Character to RS-232 Interface. 

Input: ex = RS-232 time-out 

dx = if dh = 0, then address of Z8530 channel (scc_ctl_x). 

if dh 0, then address of 8250 data port (com_data x). 

Output: al = character received 

ah = line status 

Trash: bx destroyed. 

Assumes: com mctl x = com data x + 4 = dx + 4 

com lstat x = com data x + 5 = dx + 5 

com mstat x = com data x + 6 = dx + 6 

sec data x = sec ctl x + 1 = dx + 1 

proc near : ah = 02h 

assume CS:COde, ds:nothing, es:nothing, ss:nothing 

push dx save dx = com data x 

mov al,com dtr signal DTR 

add dx,4 dx = com mctl x 

out dx.al send to modem control register 

mov ah,com dsr wait for DSR 

inc dx 

inc dx dx = com mstat x 

call rs ws wait for modem status register 

jnz rs gbe if time-out, take jump 

- 

mov ah,com rxd wait for receive ready 

dec dx dx = com lstat x 

call rs ws wait for line status register 


E8F8 7S 06 

E8FA 80 E4 DE 

E8FD SA 

E8FE EC 

E8FF C3 

E900 

E900 SA 

E901 80 CC 80 

E904 C3 

E90S 

E90S 

E90S 

E90S 

E90S E8 F603 R 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

rs gbe: 

com_gb 

jnz 

and 

pop 

in 

ret 

pop 

or 

ret 

endp 

C ;sec gb proc 

C assume 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

push 

mov 

call 

jnz 

inc 

in 

pop 

jmp 

;SCC_Qb endp 


c 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

code ends 


C fdu7.asm 

rs_gbe 

ah,OEh 

dx 

al,dx 

dx 

ah.com te 


if time-out. take jump 

Only interested on low nibble. 


else get character 

exit for get byte error 

cs:code. ds:nothing, es:nothing. ss:nothing 

if sec Z8S30. restore dx = sec ctl x 

else INS82SO, restore dx = com data x 

indicate timeout error 

dx save dx = sec ctl x 

ah,scc rxd wait for receive ready 

rs ws 

rs_gbe if time-out. take jump 

dx dx = sec data x 

al,dx else get character 

dx restore dx = sec ctl x 

short rs_pb_gb 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 


C assume cs:code, ds:data, es:nothing. ss:nothing 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C Set Format transfer rate 

c 

C Routine sets the disk-state variable to an Established state. 

C CAUTION: routine sets the rate on the pertain drive. If this is 

c the current drive. and the rate is differnet than the current 

C rate. the existing media will be inaccessible! 

c 

c ........ ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; .. ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; . 

c 

C f setfrmt proc near 

C call f_getdrv : get drive number in bl% 

1-163


E908 SA 46 02 

E90B FE C8 

E900 75 08 

E90F C6 87 0090 R 93 

E914 EB 16 90 

E917 

E917 FE C8 

E919 75 08 

E91B C6 87 0090 R 74 

E920 EB OA 90 

E923 

E923 FE C8 

E925 75 DB 

E927 C6 87 0090 R 

E92C 

E92C E8 E93A R 

E92F EB 06 90 

15\ 

E932 

E932 C6 06 0041 R 01 

E937 

E937 E9 ECCZ R 

E93A 

E93A 

E93A 8A 87 0090 R 

E93E 8A 97 008E R 

E942 8A EO 

E944 80 E4 CO 

E947 8A FZ 

E949 80 E6 CO 

E94C 3A E6 

E94E 74 ZF 

E950 88 87 008E R 

E954 

E954 E8 F6BA R 

E957 51 

E958 89 OOOA 

1-164 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

dec 

jnz 

mov 

jmp 

f nolofmt: 

dec 

jnz 

mov 

jmp 

nomedfmt: 

f dofmt: 

dec 

jnz 

mov 

call 

jmp 

f oppsfmt: 

mov 

f fmtdone: 

f setfrmt 

jmp 

al,f numsecs get original al% 

al test format parm% 

f nolofmt jmp if not low rate% 

- 

diskstate[bx],E48M48D set state% 

f dofmt 

al test parm% 

f nomedfmt jmp if not 48 in 1,2% 

- 


f dofmt 

al test parm% 

f oppsfmt error % 


f setrate set speed% 

f fmtdone 

diskette status,cmd error record error % 

- - 

f io ret cmd over% 

endp 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ' 

c 

C Checks if requested rate is the same as the last rate 

C of data transfer, If so, no action needed, Otherwise, 

C set the new speed and wait for the motor/crystal to settle down 

C (assume its a retry operation and do the delay), 

c 

C INPUT: BX - drive bit 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

f setrate proc near 

END IF 

f nurate: 

END IF 

IFE BETA 

mov al,diskstate[bx] 

mov dl,lastrate[bx] 

mov ah,al 

and ah,OCOH 

mov dh,dl 

and dh,OCOH 

cmp ah,dh 

jz f ratedone 

- 

mov lastrate[bx],al 

call f setff 

; temp test code for russ 

push ex 

mov cx,250 

mov ex, 10 

get present state% 

get last rate% 

hold rate bits% 

hold rate bits% 

are they the same% 

yes, finito% 

hold info% 

write to flip-flops% 


E95B 

E95B E8 EF4C R 

E95E E2 FB 

E960 59 

E961 8A 4E 00 

E964 BO 01 

E966 02 EO 

E968 8A E1 

E96A B1 04 

E96C 02 EO 

E96E DC DC 

E970 OA C4 

E972 34 01 

E974 BA 03F2 

E977 EE 

E978 34 01 

E97A BA 03F2 

E970 90 

E97E EE 

E97F 

E97F C3 

E980 

E980 

E980 

E987 

E987 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

fS tmp: 

ENOIF 

call 

loop 

pop 

mov 

mov 

shl 

mov 

mov 

shl 

or 

or 

f wait one ms 

- - 

fS_tmp 

ex 

cl,f drive 

al,1 

al,cl 

ah,cl 

cl,4 

al,cl 

al,OCh 

al,ah 

: drive.% 

;% 


: mask for motor status.% 

: drive number in ah.% 

;% 

motor on bit to high nibble.% 

set bits 2 & 3 (0000 1100).% 

drive bits ( 0 & 1). 

xor al,01h toggle drive bits ( 0 & 1).% 

mov dx,f motor port ;% 

out dx,al turn on the motor.% 

write a 1d to deselect a% 

or 2c to deselect b% 

xor al,01h toggle drive bits ( 0 & 1).% 

mov dx,f motor port ;% 

nop for good measure% 

out dx,al : turn on the motor.% 

:end of tmp fix 

f ratedone: 

ret 

f setrate endp 

code ends 

include kb2.asm 

c ·====================================================================== 

c 

c 

Filename: kb2.src 

C This module includes !NT 09h & 16h. 

c 

c ·====================================================================== 

c 



c 

c 

c 

c 

ORG OE987h 

c ·====================================================================== 

c !NT 09h -- i8041A Keyboard Hardware Interrupt Service Routine 

c 

C Note: 'make' -> key is depressed -> DOh + key scan code 

c 'break' -> key is released -> 80h + key scan code 

c ·====================================================================== 

c 

c 

C k int 

c 

proc near 


1-165


E987 FB 

E988 50 

E989 53 

E98A 51 

E98B 52 

E98C 56 

E98D 57 

E98E 1E 

E98F FC 

E990 2E: 8E 1E E538 R 

E995 06 

E996 E4 60 

E998 8A ED 

E99A BA 0061 

E99D EC 

E99E 8A 08 

E9AO DC 80 

E9A2 EE 

E9A3 8A C3 

E9A5 EE 

E9A6 8A C4 

E9A8 3C FF 

E9AA 75 06 

E9AC E8 EBC9 R 

E9AF E9 EA63 R 

E9B2 

1-166 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

sti 

pusr1 

push 

push 

push 

push 

push 

push 

cld 

mov 

push 

ax 

bx 

ex 

dx 

si 

di 

ds 


es 

C Get the scan code. 

c 

in 

mov 

; re-enable interrupts 


al,p kscan 

ah,al 

C Retrieve the scan code in both al & ah. 

c 

c 

c 

mov al,ah 

; clear direction flag 

; : prokey fix? 

; avoid potential stack problems 

get scan code from data port 

save scan code in ah 

get control port address 

get the status 

save the status in bl 

set bit #7 -- reset 

reset keyboard 

; scan code in both registers 

C Test for overrun scan code from keyboard = DFFh. 

C Note: 20 key scan codes can be buffered up by the keyboard. 

c 

c 

c 

c 

c 

c 

c 

c 

k ok: 

cmp 

jnz 

call 

jmp 

al,DFFh an overrun scan code? 

k ok if not, continue 

k beep beep the speaker 

k nop 

c ·---------------------------------------------------------------------- 

c 

c 

c 

c 

ah 

bx 

ex 

dx 

c 

c .---------------------------------------------------------------------- 

es:di 

= scan code (make/break) al = scan code (make/break) 

= ? 

= ? 

= ? 

= ? 


E9B2 24 7F 

E9B4 2E: 8E 06 FOOD 

E9B9 BB FOOD 

E9BC 8E C3 

E9BE BF CBBF R 

E9C1 33 DB 

E9C3 33 C9 

E9C5 8A 2E 0017 R 

E9C9 8A 08 

E9CB 01 E3 

E9CD 01 E3 

E9CF 4B 

E9DO F6 C5 08 

E903 75 32 

E905 4B 

E906 F6 C5 04 

E909 75 2C 

E9DB 4B 

E9DC 3C 37 

E9DE 77 oc 

E9EO F6 C5 40 

E9E3 74 1C 

E9E5 E8 EB8C R 

E9E8 73 17 

E9EA EB 00 

E9EC 

E9EC 3C 47 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

and 

les 

mov 

mov 

mov 

mov 

xor 

xor 

mov 

mov 

shl 

shl 

al,07Fh 

di,dword ptr ds:[master tbl ptr] 

es,word ptr cs:[code_seg] 

bx,code_seg 

es,bx 

di,offset [kb_data_table] 

bx,bx 

CX,CX 

ch,byte ptr ds:[kb_flag] 

bl,al 

bx,1 

bx, 1 

al = scan code make 


es:di points to master table 

; ; ega2 fix 

; es:di points to p kscan table 

clear bh 

clear cl 

bx = scan code make 

bx = 2*(scan code make) 

bx = 4*(scan code make) 

c 

c ·--------------------------------------------------------------------c 

c 

c 

ah 

bx 

ch 

C dx = ? 

= scan code (make/break) 

= 4*(scan code make) = 4*al 

= kb _flag 

C es: di = p _ kscan base 

al = scan code (make) 

cl = 0 

c ·--------------------------------------------------------------------c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

dec bx bx = 4*(scan code make)-1 

test ch,alt shift alt state? 

jnz k ix if so, has highest priority 

dec bx bx = 4*(scan code make)-2 

test ch,cntrl shift control state? 

jnz k ix if so, next highest priority 

c bx = 4*(scan code make)-3 

c 

dec bx 

C Handle Caplk Case. 

c 

C 0


E9EE 72 11 

E9FO 3C 53 

E9F2 77 DO 

E9F4 F6 CS 20 

E9F7 74 08 

E9F9 

E9F9 F6 CS 03 

E9FC 74 09 

E9FE 4B 

E9FF EB 06 

EA01 

EA01 F6 CS 03 

EA04 75 01 

EA06 4B 

EA07 

EA07 01 E3 

EA09 03 FB 

EAOB 26: 8B 15 

EAOE 33 DB 

EA10 8A DA 

EA12 F6 06 0018 R 01 

EA17 74 02 

EA19 SA DE 

EA1B 

EA1B OA 02 

EA10 74 1C 

EA1F 80 FB CO 

EA22 72 17 

EA24 80 FB 08 

EA27 77 12 

1-168 

c jb 

C cmp 

C ja 

C test 

C jz 

c 

C k lock: 

C test 

C jz 

c 

c 

c 

c 

dec 

jmp 

C k no lock: 

c test 

c 

c 

c 

c 

c 

C k iX: 

jnz 

dec 

jmp 

c shl 

c 

c 

c 

c 

c 

add 

mov 

xor 

c 

mov 

c 

c 

c 

test 

jz 

c 

c 

c k xlat: 

mov 

k no lock 

al,83 

k no lock 

ch,num lock mode 

k no lock 

ch,(left shift+right shift) 

k ix 

bx 

short k ix 

ch,(left_shift+right_shift) 

k ix 

bx 

short k ix 

bx,1 

di,bx 

dx,word ptr es:[di] 

bx,bx 

bl,dl 

byte ptr ds:[kb_flag_1],dlx_kb 

k xlat 

bl,dh 

scan code

EA29 80 FB C8 

EA2C 72 04 

EA2E OA E4 

EA30 78 2E 

EA32 

EA32 8B F3 

EA34 01 E6 

EA36 2E: FF A4 EA6C R 

EA3B 

EA3B OA E4 

EA30 78 21 

EA3F F6 06 0018 R 08 

EA44 74 DB 

EA46 3C 45 

EA48 74 16 

EA4A 80 26 0018 R F7 

EA4F EB OF 

EA51 

EA51 OA 02 

EA53 75 04 

EASS 8B C2 

EA57 EB 02 

EA59 

EA59 8A C3 

EASB 

EASB E8 EBB3 R 

EASE 74 03 

EA60 

EA60 E8 EBAB R 

EA63 07 

EA64 1F 


C Test for 'break' of special case. 

c 

c 

c 

c 

c 

c 

c 

C k jmp: 

c 

c 

c 

c 

cmp 

jb 

or 

js 

mov 

shl 

jmp 

C k no case: 

c 

bl,OC8h 

k jmp 

ah,ah 

k none 


is xlated byte a shift key? 

if so, do 'break' of shift key 

DCOh

EA6C 80 E5 OC 

EA6F 80 FD OC 

EA72 75 EC 

EA74 C7 06 0072 R 1234 

EA7A E9 DAD3 R 

EA7D 

EA7D 80 OE 0018 R 08 

EA82 E8 EBAB R 

EA85 FB 

EA86 80 3E 0049 R 07 

EA8B 74 OB 

EA8D 8B 16 0063 R 

EA91 83 C2 04 

EA94 AO 0065 R 

EA97 EE 

EA98 F6 06 0018 R 08 

EA9D 75 F9 

EA9F EB C2 

EAA1 E8 EBAB R 

EAA4 FB 

EAA5 CD 05 

EAA7 EB BA 

1-170 

c 

c 

c 

c 

c 

c 

c 

c 

pop 

pop 

pop 

pop 

pop 

pop 

iret 

di 

si 

dx 

ex 

bx 

ax 

c .--------------------------------------------------------------------c 

Test for system reset sequence. ·make' only. 

c .--------------------------------------------------------------------c 

C k res: and 

c 

c 

c 

cmp 

jne 

ch,(alt shift+cntrl shift) 

ch,(alt shift+cntrl shift) 

k none 

C CTL ALT DEL system reset. 

c 

c 

c 

c 

mov 

jmp 

is it CTL ALT shift? 

word ptr ds:[reset flag],01234h set flag for warm boot 

diagnostics 1 re-boot 

c .---------------------------------------------------------------------- 

c Pause waiting for another key. 'make' only. 

c .---------------------------------------------------------------------c 

C k pause: 

C or 

c 

c 

c 

c 

c 

call 

sti 

byte ptr ds:[kb_flag_1],pause_mode 

k eoi 

C Note: Video not disabled during vertical retrace. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

cmp 

je 

mov 

add 

mov 

out 

C k hold: test 

C jnz 

C jmp 

: set the pause bit. 

send specific end of interrupt 

k eoi clears interrupts 

we must undo that here 

byte ptr ds:[v_mode],7 : never on a monochrome card 

k hold 

dx,word ptr ds:[v_base6845] 

dx,4 

al,byte ptr ds:[v 3x8] 

dx,al 

: get 6845 pointer register 

: get 6845 mode control register 

get the video mode last sent 

: enable video 

byte ptr ds:[kb_flag 1],pause_mode : test the pause bit. 

k hold : loop until pause bit cleared 

short k nap 

c 

c .---------------------------------------------------------------------- 

C Print Screen sequence. ·make' only. 

c .---------------------------------------------------------------------- 

c 

c 

c 

c 

c 

c 

k prt: call 

sti 

INT 

jmp 

k eoi send specific end of interrupt 

enable interrupts% 

5h issue print screen interrupt 

short k nap 


EAA9 88 0300 

EAAC E8 AD 

EAAE 80 80 

EABO E8 EADB R 

EAB3 OA E4 

EAB5 78 A9 

EAB7 88 5200 

EABA EB 9F 

EABC BO 40 

EA8E E8 EADB R 

EAC1 81 01 

EAC3 E8 E86A R 

EAC6 E8 98 

EAC8 80 20 

EACA E8 EAD8 R 

EACD 81 02 

EACF E8 E860 R 

EAD2 E8 F2 

EAD4 80 10 

EAD6 E8 EAD8 R 

EAD9 E8 E8 

EAD8 OA E4 

EADD 78 OF 

EADF 84 06 0018 R 

EAE3 75 08 

EAE5 08 06 0018 R 

EAE9 30 06 0017 R 

EAED C3 

EAEE F6 DO 

EAFO 20 06 0018 R 

EAF4 C3 


c ·---------------------------------------------------------------------- 

( Deluxe code put NUL into kb buffer. ·make' only. 


c .--------------------------------------------------------------------c 

C k nul: mov 

C jmp 

c 

ax,0300h 

short k buf 

NUL=X03 

put ax into the buffer 

c .---------------------------------------------------------------------c 

; Four state shifts. ·make' & 'break' in kb_flag 1 plus history in kb flag. 

c .--------------------------------------------------------------------c 

C k ins: mov 

C call 

c 

c 

c 

c 

c 

c 

c 

or 

js 

mov 

jmp 

C k cap: mov 

C call 

C mov 

c call 

C k non1: jmp 

c 

c 

C k num: mov 

C call 

C mov 

C call 

C jmp 

c 

c 

C k scr: mov 

C call 

C jmp 

c 

c 

C k_4tog: or 

C js 

c 

c 

c 

c 

C or 

C xor 

C k 4ret: ret 

c 

C k 4res: not 

C and 

c ret 

c 

al,insert shift 

k_4tog 

ah,ah 

k none 

ax,(insert_key*100h)+OOh 

k buf 

al,caps lock shift 

k_4tog 

cl,OOOOOOD1b 

k LED cap 

short k none 

al,num lock shift 

k_4tog 

cl,DOOOD010b 

k LED num 

short k non1 

al,scrl lock shift 

k_4tog 

short k non1 

ah,ah 

k 4res 

test byte ptr ds:[kb flag 1J,al 

jnz k 4ret 

byte ptr ds:[kb_flag_1],al 

byte ptr ds:[kb_flag],al 

al 

byte ptr ds:[kb_flag_1],al 

INS toggle lock 

toggle 4 state 

is INS toggle ·make' ? 

if not, exit 

else, ax gets deluxe INS key 

put ax into the buffer 

; CAPS LOCK toggle lock 


CAPS LOCK LED is bit #0. 

send LED information 

; NUM LOCK toggle lock 


NUM LOCK LED is bit #1. 

send LED information 

; SCROLL LOCK toggle lock 


is toggle shift ·make' ? 

if 'break' reset kb flag_1 

if 'make', test bit. 

return if already pressed 

set the bit. 

toggle kb_flag history. 

; if 'break', reset bit only. 

c .---------------------------------------------------------------------c 

Two state shifts. ·make' & 'break' in kb flag only. 

1-171

EB35 02 C1 

EB37 A2 0019 R 

EB3A EB 8A 

EB3C 80 30 

EB3E E8 EBB3 R 

EB41 74 03 

EB43 E9 EASB R 

EB46 E9 EA63 R 

EB49 88 001E R 

EB4C 89 1E 001A R 

EBSO 89 1E 001C R 

EB54 C6 06 0071 R 80 

EB59 CD 18 

EBSB 33 co 

EBSD E9 EASB R 

EB60 

EB60 

EB60 F6 06 0018 R 01 

EB65 74 03 

EB67 80 F1 80 

EB6A 

EB6A OA E4 

EB6C 78 1D 

EB6E 84 06 0017 R 

EB72 74 03 

EB74 80 F1 80 


c 

c 

c 

c 

add 

mov 

jmp 

al,cl 

byte ptr ds:[alt input].al 

short k non1 


c .---------------------------------------------------------------------c 

Double Zero on Keypad. 'make' only. 

c .---------------------------------------------------------------------- 

c 

c 

c 

c 

c 

c 

c 

k 00: 

k nop1: 

mov 

call 

jz 

jmp 

jmp 

al, '0' try to put ax into kb buffer. 

I


c 

EB77 c k LED cmd: polling loop to send command. 

EB77 E4 64 c in al,kb status get 8041 status 

EB79 A8 02 c test al,00000010b test input buffer bit 

EB7B 75 FA c jnz k LED cmd if not ok to write cmd, loop. 

c 

EB7D BO 13 c mov al, 013h keyboard 'LED' command. 

EB7F E6 60 c out p kscan,al send keyboard 'LED' command. 

c 

EB81 c k LED dat: polling loop to send data. 

EB81 E4 64 c in al,kb status get 8041 status 

EB83 A8 02 c test al,00000010b test input buffer bit 

EB85 75 FA c jnz k LED dat if not ok to write data, loop. 

c 

EB87 8A C1 c mov al,cl retrieve keyboard 'LED' data. 

EB89 E6 60 c out p kscan,al send keyboard 'LED' data. 

EB8B c k LED ret: 

EB8B C3 c ret 

c 

EB8C c k LED num endp 

c 

c .---------------------------------------------------------------------c 

Get kb cap flags bit into the carry flag (cf). 

c 

c Input: al = scan code (make) 

c cl = 0 

c es:di = p kscan base 

c Output: cf set if kb cap_flags bit 

c 

c Trash: si destroyed. 

c .---------------------------------------------------------------------c 

EB8C c k bit proc near 


c 

EB8C 8B F3 c mov si,bx save bx 

c 

EB8E 33 DB c xor bx,bx clear bh 

EB90 8A D8 c mov bl,al bx = scan code (make) index 

c bx = 00000000 ooxxxyyy 

c 

EB92 B1 03 c mov cl,3 rotate right bx 3 

EB94 D3 CB c ror bx,cl bx = yyyOOOOO OOOOOxxx 

c 

EB96 B1 03 c mov cl,3 rotate left bh 3 

EB98 02 C7 c rol bh,cl bx = oooooyyy oooooxxx 

c bh = remainder = (0-7) 

c bl = quotient = (0-6) 

c 

EB9A 8A CF c mov cl,bh cl = remainder = (0-7) 

EB9C 32 FF c xor bh,bh bx = quotient = (0-6) 

c 

c 

EB9E 26: 8A 59 F9 c mov bl,byte ptr es:[di+bx-7] bl = proper cap flags byte 

c 


EBA2 D2 D3 

EBA4 32 C9 

EBA6 DO D3 

EBA8 8B DE 

EBAA C3 

EBAB 

EBAB 

EBAB FA 

EBAC BO 61 

EBAE BA 0020 

EBB1 EE 

EBB2 C3 

EBB3 

EBB3 

EBB3 8B 1E 001C R 

EBB7 8B F3 

EBB9 E8 E86E R 

EBBC 3B 1E 001A R 

EBCO 74 07 

EBC2 89 04 

EBC4 89 1E 001C R 

EBC8 C3 

EBC9 


c 

c 

c 

c 

c 

rcl 

xor 

rcl 

mov 

C ret 

c 

C k bit endp 

bl,cl 

cl,cl 

bl,1 

bx,si restore bx 


rotate (0-7) times into bit #7 

cl = 0 

rotate into cf bit #7 

c 

c ·--------------------------------------------------------------------c 

Input: None. 


c 

C Trash: al & dx destroyed. 

c .---------------------------------------------------------------------- 

c 

C k eoi proc near 

c 

C Send specific end of interrupt (SEOI) to pic 'command' port. 

c 

c eli disable interrupts 

c 

c 

c 

c 

c 

c 

mov 

mov 

out 

al,pic_seoi 1 

dx,pic 0 

dx,al 

specific end of interrupt 

command to pic 'command' port. 

sti enable interrupts 

ret 

C k eoi endp 

c 

c .---------------------------------------------------------------------- 

c Try to put ax into the kb buffer. 

c 

C Input: ax = word to put in kb buffer. 

C Output: zf set (z) if buffer is full. (ax trashed) 

C zf reset (nz) if buffer got ax. (ax saved) 

c 

C Trash: bx, ex, dx, & si destroyed (in general). 

c .---------------------------------------------------------------------c 

C k_try proc near 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


mov 

mov 

call 

cmp 

je 

mov 

mov 

ret 

C k_try endp 

c 

bx,word ptr ds:[buffer_tail] 

si,bx 

k adv ptr 

bx,word ptr ds:[buffer_head] 

k_beep 

word ptr ds:[si],ax 

word ptr ds:[buffer tail],bx 

get buffer end pointer 

save the value 

advance the tail 

has the buffer wrapped around 

zf is reset (nz) 

store the value 

move the pointer up 

return zf reset (nz) 

1-175


EBC9 

EBC9 BA 0061 

EBCC EC 

EBCD 8A EO 

EBCF B3 80 

EBD1 24 FC 

EBD3 EE 

EBD4 B9 0048 

EBD7 EZ FE 

EBD9 DC 02 

EBDB EE 

EBDC B9 0048 

EBDF EZ FE 

EBE1 FE CB 

EBE3 75 EC 

EBES SA C4 

EBE7 EE 

EBE8 E8 EBAB R 

EBEB C3 

EBEC 

EBEC 

EBEC EAAE R 

EBEE EABC R 

EBFO EAC8 R 

EBFZ EAD4 R 

EBF4 EAFS R 

EBF6 EB07 R 

EBF8 EBOB R 

EBFA EBOF R 

EBFC EA6C R 

EBFE EB49 R 

ECOO EA7D R 

1-176 

c .---------------------------------------------------------------------- 

[ Input, None. 

C Output: zf set (z) always. 

c 

C Trash: ax. bl, ex, & dx destroyed. 

c .---------------------------------------------------------------------- 

[ 

C k beep proc near 


c 

c 

c 

c 

c 

c 

c 

c 

c 

call 

mov 

in 

mov 

mov 

C k lp: and 

c out 

c 

c 

mov 

c loop 

c 

c or 

c out 

c 

c 

mov 

c loop 

c 

c dec 

c jnz 

c 

c 

mov 

c out 

c call 

c ret 

c 

C k beep 

c 

c 

C k data1 proc 

c 

C k case dw 

C dw 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

k eoi 

dx,p kctrl 

al,dx 

ah,al 

bl,80h 

al,OFCh 

dx,al 

cx,48h 

$ 

al,OZh 

dx,al 

cx,48h 

$ 

bl 

k lp 

al,ah 

dx,al 

k eoi 

endp 

k ins 

k cap 

k num 

k scr 

k alt 

k ctl 

k lsh 

k rsh 

k res 

k brk 

k pause 

kbins (OCOh) 

kbcap 

kbnum 

kbscr 

kbalt 

kbctl 

kblsh 

kbrsh 

kbres (OC8h) 

kbbrk 

pause 


get kb control port address 

get control data 

save control data 

outer loop counter 

turn off speaker data 

set up count 

delay awhile 

turn on speaker 

set up count 

delay awhile 

decrement outer loop counter 

zf is set (z) 

restore control data 


return zf set (z) 

·make' & 'break' 

v 


EC02 

EC04 

EC06 

EC08 

ECOA 

ECOC 

ECOE 

EC10 

EC12 

EC14 

EC16 

EC18 

EC1A 

EC1C 

EC1E 

EC1E 

EC1E 

= 0080 

= 0061 

= 0002 

= 0093 

= 0074 

= 0015 

= 0020 

= 0010 

= 0000 

= 0040 

= 0080 

EC59 

EC59 

EC59 FB 

ECSA 55 

ECSB 06 

EAA1 R 

EAA9 R 

EA60 R 

EB26 R 

EB27 R 

EB28 R 

EB29 R 

EB2A R 

EB2B R 

EB2C R 

EB2D R 

EB2E R 

EB2F R 

EB3C R 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

k data1 endp 

code ends 


k prt kbprt 

k nul kbnul 

k none NONE 

k alt9 kdec9 

I< alt8 kdec8 

I< alt7 kdec7 ·make' only 

- 

k alt6 kdec6 

I< altS kdecS 

k alt4 l

ED4D E9 ECC2 R 

ED 50 

ED 50 

ED50 BO DC 

ED52 BA 03F2 

ED55 EE 

ED56 C3 

ED 57 

ED 57 

ED57 80 26 003F R 7F 

ED5C E8 F5C6 R 

EDSF 73 08 

E061 B9 01F4 

ED64 

ED64 E8 EF4C R 

ED67 E2 FB 

E069 

ED69 BO 46 

ED6B 80 7E 03 04 

E06F 75 06 

E071 BO 42 

ED73 33 DB 

ED75 8E C3 

ED77 


c 

c 

c 

c 

c 

jmp 

reset endp 

f io ret 


c ''' '''' '';;;;;;;;;;;;;;;' '' '' ''' '' '' ';'' ';;' '''' ''' ''';;;;;;;;;;;''' ''' ';'' '''' 

c 

C : This routine is called by the timer_int routine when motor count= 0 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ''''';;;;,' '' ',;;', ', ', ',';;'' '''' '''' 

c 

c 

c 

c 

c 

c 

c 

c 

c 

stop disk 

mov 

mov 

out 

ret 

stop disk 

proc near 

al,OCh 

dx, f motor port 

dx,al 

endp 

c ''' ''' ';; ';;;;;;;;;;; 1;;;;;;;;;;;;'''' '''' '1',' '1 '',;;; '1 '1 1'' '1 '1 ';' '' '''' '''' 

c 

c '' '' ';;;';;;;;;;;;;;;;; '' '' '' '';;;;' ',' ',''''''' ','' '', '';, '1 '' ';;;;; ''' ''' ';;' 

c 

C f_rdata proc 

c 

c 

c 

c 

c 

c 

and 

call 

jnc 

near 

motor status,D7Fh 

f motor on 

f rd1 

C slow motor delay loop 

c 

clear high bit, indicate read 

motor was on, no delay. 

C slow motors 

C approx. 500 ms delay for 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

rd loop: 

f rd1: 

mov cx,500 

call 

loop 

mov 

cmp 

jne 

mov 

xor 

mov 

rdata endp 

f wait one ms 

f rd loop 

- - 

al,046h 

byte ptr f command,4 

f rw common 

al,042h 

bx,bx 

es,bx 

DMA mode byte: channel 2, 

single mode, write transfer. 

Is it a verify command? 

No, must have been a read. 


single mode, verify transfer. 

Fool the DMAC into thinking 

there is a full segment to 

play with. 

c '';;;;;'' '1' ''''' '',' ', '' '' '' '' '' '' '1 '1, ', 1,,''',''' 1' 1;, 

c 

c Common ( f rw common) 

c 

............. 

'' '''' ''''','' 

1-181


ED77 

ED77 C6 06 0040 R FF 

ED7C E8 EE49 R 

ED7F 06 

ED80 1E 

EDS1 07 

EDS2 32 co 

EDS4 B9 0007 

EDS7 BF 0042 R 

EDSA F3/ AA 

EDSC 07 

EDSD E8 EEAA R 

ED90 SA 56 03 

ED93 B4 CS 

ED95 SO FA 03 

ED9S 74 09 

ED9A B4 40 

ED9C 80 FA 05 

ED9F 74 02 

EDA1 B4 E6 

EDA3 

EDA3 ES F6C5 R 

EDA6 SA 66 00 

EDA9 ES F6C5 R 

EDAC SO 7E 03 05 

EDBO 74 15 

EDB2 SA 66 07 

EDB5 ES F6C5 R 

EDBS SA 66 01 

EDBB SO E4 7F 

EDBE E8 F6C5 R 

EDC1 SA 66 06 

EDC4 E8 F6C5 R 

EDC7 

EDC7 B9 0004 

1-182 

c 

c 

INPUT: 

C OUTPUT: 

c 

C DESTROYS: 

c 

AL dma mode byte. 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

f rw common proc near 

mov motor count,OFFh 

call f set dma 

Clear out status from previous operation. 

f rw1: 

push es 

push ds 

pop es 

xor al,al 

mov cx,7 

mov di,offset nee status 

rep stosb 

pop es 

call f seek 

mov dl,byte ptr f command 

mov ah, f write cmd 

cmp dl,3 

je f rw1 

mov ah,f format cmd 

cmp dl,5 

je f rw1 

mov ah,f read cmd 

call f_put_byte 

mov ah,f drive 

call f put_byte 

cmp byte ptr f command,5 

je f rw skip 

mov ah,f_cyl 


mov ah,f head 

and ah,07Fh 


mov ah,f secnum 

call f put_byte 

long wait. 

C Get bytes 3,4,5,6 from table. 

C If we are formatting then we need bytes 3,4,7,8 from table. 

c 

C rw skip: 

c mov cx,4 

pass mode byte on through. 

On return, f drive has 

head bit or'd in. 

get command 

Is it a write command? 

yes 

Is it a format command? 

yes 

must be read or verify. 

send command. 

has head and drive bits. 

was it a format command? 

yes, skip next 3 params. 

; blow off bit 7. 


EDCA BB 0003 

EDCD 

EDCD E8 F62E R 

EDDO 8A EO 

EDD2 E8 F6C5 R 

EDD5 43 

EDD6 83 FB 05 

EDD9 75 09 

EDDB 80 7E 03 05 

EDDF 75 03 

EDE1 BB 0007 

EDE4 

EDE4 E2 E7 

EDE6 E8 F652 R 

EDE9 E8 EDF8 R 

EDEC 

EDEC E9 ECC2 R 

EDEF 

EDEF 

EDEF 

EDEF 04 

EDFO 00 

EDF1 10 

EDF2 08 

EDF3 00 

EDF4 04 

EDF5 03 

EDF6 02 

EDF7 20 

EDF8 

EDF8 

EDF8 06 

EDF9 1E 

EDFA 07 


c mov 

C f rw2: 

C call 

C mov 

C call 

C inc 

C cmp 

C jne 

C cmp 

C jne 

C mov 

C f rw3: 

c 

c 

c 

c 

c 

loop 

call 

call 

C f rw ret: 

jmp 

c 

c 

c 

c 

rw common 

bx,3 

f_get_var 

ah,al 

f_put_byte 

bx 

bx,5 

f rw3 

byte ptr f command,5 

f rw3 

bx .7 

f rw2 

f wait for nee 

- - - 

f get_byte 

f io ret 

endp 

: no. bytes per sector. 


time to check for format? 

No. 

was it a format command? 

no. 

7th parameter in table. 

get the results. 

c ';;;, ';;;;;;;';;;;;;;;;;;;;; ';;;;;;;;;;;; i' ';;, ';',,;;;;;;';;;;;;; ';;;;;;;;;;;; 

c 

C Read the results bytes from the NEC controller (fdu_data1) 

c 

c INPUT: none 

c 

C OUTPUT: 

c 

c 

c DESTROYS: OX, SI 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;',;;;;;;;;;;;;; 

c 

C fdu data1 

c 

C f gb table 

c db 

c db 

c db 

c 

c 

c 

c 

c 

c 

c 

db 

db 

db 

db 

db 

db 

C fdu data1 

c 

C f_get_byte 

c 

c 

c 

c 

push 

push 

pop 

proc 

label byte 

4 

0 

10h 

8 

0 

4 

3 

2 

20h 

endp 

proc 

es 

ds 

es 

near 

record not found. 

dummy 

ere error. 

dma error. 

dummy. 

sector not found. 

write protect. 

address mark error. 

fdc error. 

1-183


EDFB BF 0042 R 

EDFE 88 F7 

EEOO 89 0007 

EE03 

EE03 E8 F63B R 

EE06 AS 10 

EE08 74 3D 

EEOA A8 40 

EEOC 74 OC 

EEOE 42 

EEOF EC 

EE10 AA 

EE11 51 

EE12 89 0002 

EE15 

EE15 E2 FE 

EE17 59 

EE18 E2 E9 

EE1A 

EE1A 80 7E 03 00 

EE1E 74 27 

EE20 AC 

EE21 A8 20 

EE23 75 22 

EE25 A8 CO 

EE27 74 1A 

EE29 C6 06 0041 R 20 

EE2E AC 

EE2F 89 0008 

EE32 33 DB 

EE34 

EE34 DO CO 

EE36 72 03 

EE38 43 

EE39 E2 F9 

EE3B 

EE3B 2E: 8A 87 EDEF R 

EE40 A2 0041 R 

EE43 

EE43 07 

EE44 E9 ECC2 R 

EE47 

EE47 07 

EE48 C3 

EE49 

1-184 

c 

c 

c 

mov 

mov 

mov 

C f gb loop: 

C call 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C wasteg: 

c 

c 

test 

jz 

test 

jz 

inc 

in 

stosb 

push 

mov 

loop 

pop 

C loop 

C f gb out: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

di,offset nee status 

si,di 

ex ,7 

f_nec_rdy 

al,10h 

f_gb_ret 

al,40h 

f gb out 

dx 

al,dx 

ex 

cx.2 

wasteg 

ex 

f gb loop 

cmp byte ptr command,O 

je f gb ret 

lodsb 

test 

jnz 

test 

jz 

mov 

C lodsb 

C mov 

C xor 

C f gb loop1: 

C rol 

C jc 

c 

c 

c 

c 

c 

inc 

loop 

gb decode: 

C f_gb_jmp: 

c 

c 

C f_gb_ret: 

c 

c 

c 

mov 

mov 

pop 

jmp 

pop 

ret 

C f_get_byte 

c 

al,20h 

f_gb_ret 

al,OCOh 

f gb jmp 

diskette status, fdc error 

cx,8 

bx,bx 

al, 1 

f gb decode 

bx 

f gb loop1 

al,cs:f gb table[bx] 

diskette status,al 

es 

f io ret 

es 

endp 

ES:DI is now ready for stosb. 

offset of nee status in SI. 

maximum no. of bytes. 

Returns MSR byte in AL. 

will not return if error. 

busy bit. 

done. 

direction bit. 

wrong direction. 

point to nee data port (3F5h) 

save ex % 

need to insure atleast% 

12 microseconds between % 

this out and next in done% 

by f_nec_rdy, so waste some time% 

restore ex % 

was it reset command? 

yes. 

get STO in AL. 

seek end? 

yes. 

: get ST1 in AL. 

c ''; ''' ';' '''' ''' ''';' ''' '' '' '';'' '''' '';;''' ''' '.;;;;;;;;;' '' '' '''' '''' ''''' ''' 

c 

C Test for boundary crossing case then program the 

C DMA controller ( f _set_ dma). 

c 


c INPUT: AL mode byte 

c ES segment of user buffer. 

c 

c OUTPUT: 

c 

c DESTROYS: AX, BX, CX, OX 

c 

c 

c 

EE49 c f set dma proc near 

c 


. " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 

I! 1 I!'!!!!!! 1 I' I It!> 11!! >I I 1 I' I! 1! I I> I!!!'' I! l '1 1'! t! 1 I!!! I I 1! 1 I 111 I I!'! 1111 f! l 

EE49 C6 06 0041 R 09 c mov diskette_status,dma seg_error 

EE4E E6 DB c out dma mode,al send mode byte. 

EESO 88 SE 04 c mov bx,word ptr f bufoff offset of user buffer. 

EE53 8C CO c mov ax,es offset of user buffer. 

EESS 81 04 c mov cl,4 shift count 

EE57 03 co c rol ax,cl move high nib around. 

EE59 8A E8 c mov ch,al save high nib. 

EESB 80 ES OF c and ch,OFh isolate high nib 

EESE 24 FO c and al,OFOh prepare for offset calculation 

EE60 03 08 c add bx,ax 20 bit calculation. 

EE62 73 02 c jnc f sd1 

EE64 FE CS c inc ch high nib 

EE66 c f sd1: 

EE66 SA CS c mov al,ch 

- 

EE68 E6 81 c out dma_segm_2,al high nib. to latch 

EE6A BO 06 c mov al,6 

EE6C E6 OA c out dma mask bit,al disable channel 2. 

EE6E FA c eli :rsc/drb disable interrupt % 

EE6F E6 OC c out dma ff clr,al set to known state. % 

EE71 8A C3 c mov al,bl 

EE73 E6 04 c out dma addr 2,al low byte of address. 

EE75 8A C7 c mov al,bh 

EE77 E6 04 c out dma addr 2,al high byte of address. 

EE79 FB c sti enable interrupts rsc/drb % 

EE7A 88 03 c mov dx,bx save buffer offset. 

EE7C BB 0003 c mov bx,3 bytes/sector param 

EE7F E8 F62E R c call f_get_var get param from table 

EE82 8A C8 c mov cl,al save for shift count 

EE84 8A 66 02 c mov ah,f numsecs get #sectors. 

EE87 32 co c xor al,al AX = #Sectors x 256 

EE89 01 E8 c shr ax,1 AX = #Sectors x 128 

EE8B 03 EO c shl ax,cl multiply by bytes/sector. 

EE80 48 c dec ax DMAC counts zero. 

EE8E 03 DO c add dx,ax add count to offset 

EE90 73 03 c jnc f sd2 

EE92 E9 ECC2 R c jmp f io ret exit boundary crossing. 

EE95 c f sd2: 

EE95 FA c eli ;rsc/drb disable interrupt% 

EE96 E6 DC c out dma ff clr,al set to known state. % 

EE98 90 c nap no back to back i/o % 

EE99 E6 05 c out dma count 2,al low byte of count. 

EE9B 8A C4 c mov al,ah 

EE90 E6 05 c out dma count 2,al high byte of count. 

EE9F FB c sti ;enable interrupt rsc/drb% 


1-185


EF4C 

EF4C 51 

EF4D B9 02E4 

EF50 E2 FE 

EF52 59 

EF53 C3 

EF54 

EF57 

EF57 

EF57 FB 

EF58 50 

EF59 1E 

EF5A BO 66 

EF5C E6 20 

EF5E 2E: 8E 1E E538 R 

EF63 80 DE 003E R 80 

EF68 1F 

EF69 58 

EF6A CF 

EF6B 

1-188 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

f wait one ms 

- 

push 

mov 

mov 

w one: loop 

pop 

ret 

f wait one ms 


proc near 

ex 3 clocks 

cx,374 2 clocks 

ex ,740 2 clocks 

w one (8 x CX) clocks 

ex 5 clocks 

11+ clocks 

endp 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

c 

c 

INPUT: 

none 

c 

c 

OUTPUT: 

MSB of seek status is set if NEC interrupts. 

c 

c 

DESTROYS: nothing 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

fd int 

fd int 

proc 

sti 

push 

push 

mov 

out 

mov 

or 

pop 

pop 

iret 

endp 

ORG OEF57h 

near 

enable interupts 

ax 

ds 

al,pic seoi 6 specific end of interupt 

pic O,al send to 8259 

ds,word ptr cs:[set_ds_word] set OS to segment 40h 

seek status,80h interupt indicator 

ds 

ax 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C Check Valid (f_check_valid) 

c 

C This routine sets the starting diskstate. If the last operation% 

C passed (was ESTABlished), hte state is held. Otherwise, the% 

C default state indicated by the motherboara switches is used% 

c 

C Drive 1 :% 

Bit 0 of sys conf_b port: 

c 

c 

C Drive 0:% 

Bit 1 of sys conf b port: 

c 

c 

0 = 40 trk drive, 1 = 80 trk drive 

0 = 40 trk drive, 1 = 80 trk drive% 


EF6B 

EF6B 50 

EF6C 53 

EF6D E8 F603 R 

EF70 C6 87 0092 R 00 

EF75 80 F3 01 

EF78 C6 87 008E R FF 

EF7D 80 F3 01 

EF80 8A 87 0090 R 

EF84 A8 10 

EF86 75 12 

EF88 E8 FSF6 R 

EF8B OA CO 

EF8D 75 OS 

EF8F BO 93 

EF91 EB 03 90 

EF94 

EF94 BO 15 

EF96 

EF96 SS S7 0090 R 

EF9A 

EF9A SA S7 0090 R 

EF9E AS 20 

EFAO 75 07 

EFA2 80 66 01 7F 

EFA6 EB 05 90 

EFA9 

EFA9 80 4E 01 80 


C MSB of head parameter(DH): 0 = 40 trk media, 1 = 80 trk media% 

c 

C drive type 

c 1-----------1 

C I 0 I 1 I 

c ---1-----------1 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

OUTPUT: 

I 0 I r/w I r/w I 

media ---1-----------1 

type I 1 I n/ a I r /w I 

---1-----------1 

The MSB of the head parameter at bp+1 is set 


if the drive is 80 track and the media is 40 track. 

This is used by seek to determine if double stepping 

is necessary. 

Also, diskstat and diskstat+2 are set for the current% 

and original fdu states. % 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

f check valid 

- 

push 

push 

call 

mov 

xor 

mov 

xor 

;% mov 

;% cmp 

;% jz 

;% cmp 

;% jae 

f CV hi: 

mov 

test 

jnz 

call 

or 

jnz 

mov 

jmp 

mov 

f_cv_pre2: 

mov 

f CV tst2: 

mov 

test 

jnz 

and 

jmp 

f cv double: 

or 

proc near 

ax 

bx save working reg% 

f_getdrv get drive number in bl% 

diskstate[bx+2],0 clr orig state for reties% 

bl,01h select unused drive%% 

lastrate[bx],Offh use an illegal rate%% 

bl,01h return to correct drive%% 

al,f command skip state change for some cmds% 

al,1 status cmd% 

f CV tst2 do double step test% 

al,6 dasd cmds% 

f cv tst2 skip state, set double step% 

al,diskstate[bx] hold current state% 

- - 

- - 

al,ESTAB did it pass last cmd?% 

f cv tst2 yes, keep same state% 

f drvswitch no, set for drive type% 

- 

al,al set flags% 

f CV hi jmp for hi density% 

- 

- 

al,E48M48D low density default% 

f cv pre2 do double step test% 

al,E12M12D high density default% 

diskstate[bx],al store it% 

al,diskstate[bx] hold it% 

al,DOUBLE double step state?% 

f cv double yes if set% 

- - 

byte ptr f_head,7fh not needed% 

f cv ret 

byte ptr f head,80h yes double step% 

1-189


EFAD 

EFAD E8 F6BA R 

EFBO SB 

EFB1 58 

EFB2 C3 

EFB3 

EFB3 

EFB3 C6 06 0041 R 06 

EFB8 E9 ECC2 R 

EFBB 

EFC7 

EFC7 

1-190 

c 

C f cv ret, 

C call 

c 

c 

c 

c 

c 

pop 

pop 

ret 

f setff 

bx 

ax 

C f check valid endp 

c 

set rate flip-flops al=state% 

restore regs% 

restore regs% 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C Change-line status 

c 

c Routine records a media change. 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; , ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; '';;;;;;;;;;;;;;;;;; 

c 

C f_chngln 

C mov 

C jmp 

C f_chngln 

c 

c include fdu3.asm 

c 

proc near 

diskette_status,media_change 

f io ret 

endp 

;status % 

; cmd over% 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

C fd parms 

C This is the set of parameters required for diskette operation. 

C They are pointed to by interrupt vector 1Eh (0:78h). To modify 

C the parameters, build another parameter block and point disk pointer 

C to it. 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C ;fdu data3 proc 

C ;commemted out because DOS[ibmbios] handles parms internally% 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

;fd 12parms 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

;fdu data3 

fdu data2 

ORG 

label byte 

(f_srt_96 shl 4) + f hut 

(f hlt shl 1) + f ndma 

f motor wait 

2 

Ofh 

01bh 

OFFh 

054h 

OF6h 

20 

4 

endp 

OEFC7h 

proc 

SRT + HUT% 

HLT + DMA mode 

motor off delay 

512 bytes per sector 

EDT last sector on cyl% 

gap length(23h-48m12d?)% 

DTL 

gap length for format% 

fill byte for format 

head settle time (ms)% 

motor start time 



EFD2 

EFD2 

EF02 FB 

EF03 83 FA 04 

EFD6 73 32 

EF08 51 

EF09 52 

EFOA 57 

EFOB 86 C4 

EFOO 1E 

EFOE 2E: 8E 1E E538 R 

EFE3 8B FA 

EFE5 33 C9 

EFE7 8A 80 0078 R 

EFEB 01 E1 

EFEO 03 FF 

EFEF 8B 95 0008 R 

EFF3 1F 

EFF4 OB 02 

EFF6 74 00 

EFF8 33 FF 

EFFA OA CO 

EFFC 74 00 

EFFE 42 

1-192 

C Printer Status Byte from prt stat X: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

bit #Q = 

bits #1-2 = 

bit #3 = 

bit #4 = 

bit #5 = 

bit 

bit #7 = 

time-out on printing character (Pout). 

set by software; no hardware significance. 

no significance (always cleared). 

hardware: I/O error. 

hardware: selected. 

hardware: out of paper. 

hardware: acknowledge. 

hardware: not busy. 

C " Good" Statuses are: 90h & 10h if a printer is connected. 

c 30h if printer is disconnected. 

c ·====================================================================== 

c 

c 

c 

C p io 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ORG OEF02h 

proc near 


sti 

cmp 

jae 

push 

push 

push 

xchg 

push 

mov 

mov 

xor 

mov 

sal 

add 

mov 

pop 

or 

jz 

xor 

or 

jz 

inc 

dx,4 

p nop 

assume cs:code, ds:data, es,nothing, ss:nothing 

ex 

dx 

di 

al,ah 

ds 


di,dx 

CX,CX 

cl,byte ptr ds:[di+printer_t_out] 

cx,1 

di,di 

dx,word ptr ds:[di+printer addr] 

ds 


4 printers allowed max 

: save registers 

reverse al & ah 

ah saves al throughout 

save ds 


get port number (0-3) 

clear ch 

get printer time-out 

double it 4 faster cpu 

make word index 


dx,dx 

p ret 

di,di 

al,al 

p_out 

dx 

get address of printer 

data port 

restore ds 

: is a printer there? 

clear di 

al = O? 

dx = prt data x 

dx = prt stat x 



F025 EB OD 

F027 BO 08 

F029 42 

F02A EE 

F02B BS 05 

F02D E2 FE 

F02F BO OC 

F031 EE 

F032 90 

F033 4A 

F034 EC 

F035 24 F8 

F037 34 48 

F039 EB CA 

F03B 

F03B 

1-194 

c 

jmp short p stat 

c 

c .---------------------------------------------------------------------- 

C Initialize Parallel Printer Interface. 

c 

c 

c 

c 

c 

c 

c 

Input: ah = 

dx = 

Output: al = 

dx = 

Trash: ex = 

c 

c 

c ·---------------------------------------------------------------------- 

( 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

p init: 

Assumes: 

assume 

mov 

inc 

out 

mov 

loop 

mov 

out 

nop 

dec 

jmp 

byte to return in al. 

address of printer status port (prt_stat_x). 

status of printer 

address of printer status port (prt stat x). 

0 destroyed. 

prt stat_x = prt data x + 1 = dx + 1 

prt cmd_x = prt data x + 2 = dx + 2 


al,08h request init (hold line low) 

dx dx = prt cmd x 

dx,al 

ch,OSh delay awhile (ex = OS??h) 

$ 

al,OCh disable interupts, manual lf 

dx,al (init done - line set high) 

dx dx = prt stat x 

short p stat fall through 

c ·---------------------------------------------------------------------- 

( Read Status of Parallel Printer Interface. 

c 

c 

c 

c 

c 

c 

Input: dx = 

Output: al = 

dx = 

c 

c .---------------------------------------------------------------------- 

( 

Assumes: 


status of printer 


prt stat x = prt data x + 1 = dx + 1 

- - - 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

p stat: in 

and 

xor 

jmp 

p io endp 

code ends 

include vid.asm 

;I* NAME 

al,dx get printer status 

al,OF8h clear bogus printer bits 

al,048h flip acknowledge & I/0 err bit 

short p ret exit 

DATE ACTION 


= ODED 

= 0162 

F03B 

F04S 

F04S 

FD4S FOFC R 

F047 F1E9 R 

F049 F1F7 R 

F04B F21S R 

F04D FSA8 R 

F04F F22C R 

FOS1 F27F R 

FOS3 F390 R 

FOSS F3B1 R 

FOS7 F3DB R 

FOS9 F414 R 

FOSB F44F R 

FOSD DS6A R 

FOSF DSSO R 

F061 F47B R 

F063 FS04 R 

F06S 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

* 

·* 

* 

* 

* 

·* 

·* 

* 

* 

. * 

·* 

. * 

* 

; *! 

mikef 

mikef 

joe 

joe 

joe 

joe 

joe 

joe 


10/2S/84 Added code in scroll up to enable video. 

02/13/8S Moved grf_light_pen from graph.src to here. 

03/13/8S Changed ORG to ORG 

03/2S/8S Replaced scroll code in text mode for speed 

04/04/8S Fixed Mode 7 scroll to use ds 

04/18/8S Added code to check for dip switch indication 

of non-Olivetti video controller board 

06/11/8S Revived code to wait for Hercules card during 

slow scrolling code . 

06/13/8S Changed fourth parameter in 684S parameter table 

from 06h to OAh. for v_md_40 and v_md_graph. 

Removed extraneous parameter table stuff. 

c ·====================================================================== 

c 

c 

Filename: vid.src 

c This module includes INT 10h, the display routines. 

c 

c ·====================================================================== 

c 

c ; These constants must be defined (amount to scroll/clear during vert retrace): 

c , , V KSCROLL1 equ 224 314 chars to move during vert. retrace 

c 

c 

c 

c 

c 

c 

code 

V KSCROLL1 equ 224 

V KSCROLL2 equ 3S4 


assume cs:code, ds:nothing, 

324 chars to move during vert. 

3S4 chars to move during vert. 

es:nothing, ss:nothing 

c .---------------------------------------------------------------------- 

c ROM data 

c .---------------------------------------------------------------------- 

( 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ORG 

v data1 proc 

v tbl dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

v data1 endp 

OF04Sh 

near 

v set mode 

- - 

v_curs_type 

v curs pos 

v r curs pos 

grf light_pen 

-- - 

v page 

v_scrl_up 

v scrl dn 

v rae 

v wac 

v we 

- 

v col 

- 

grf_write_dot 

grf read dot 

v terminal 

v stat 

ah = DOh 

ah = 01h 

ah = 02h 

ah = 03h 

ah = 04h 

ah = OSh 

ah = 06h 

ah = 07h 

ah = 08h 

ah = 09h 

ah = OAh 

ah = OBh 

ah = OCh 

ah = ODh 

ah = DEh 

ah = OFh 

(see graph.src) 



retrace 

retrace 

1-195

F082 A8 20 c test al,20h 


F084 74 08 c jz v colour if either is 0, it's 

F086 A8 10 c test al,10h . . color display board 

F088 74 04 c jz v colour 

- 

- 

F08A 81 C7 F800 c add di,para_mono-para_graph it's a monochrome board 

F08E c v colour: 

- 

F08E 8E C7 c mov es,di set es = video ram 

c 

F090 SF c pop di Get index to call table. 

c 

F091 58 c pop ax restore ax 

F092 8A 26 0049 R c mov ah,byte ptr ds:[v mode] get display driver mode 

F096 8B E8 c mov bp,ax bp saves ax throughout 

c (return ah = v_mode 

c unless specific ret. value) 

c 

F098 FC c cld String ops move UP, mostly. 

F099 2E: FF 95 F045 R c call cs:[di+(offset v_tbl)] perform display function 

c 

F09E 50 c pop bp restore 'trashed' registers 

F09F SE c pop si (destroyed if ROM stack) 

FOAO SF c pop di 

FOA1 1F c pop ds 

FOA2 07 c pop es 

FOA3 c v nop: 

FOA3 CF c iret 

FOA4 c v io endp 

FOA4 c ORG OFOA4h 

FOA4 c v data2 proc near 

FOA4 c v parms label byte 

c 

c 

c ·====================================================================== 

c 

c 

c 

c 

c ; 6845 Parameters except register 3h (Horizontal Synch Width). 

c 

FOA4 38 28 20 OA c v md 40 db 38h,28h,20h,OAh text 40 X 25 

FOA8 1F 06 19 1C c db 1Fh, 06h, 19h, 1Ch mode 0 -> monochrome 

FOAC 02 07 06 07 c db 02h,07h,06h,07h mode 1 -> color 

FOBO 00 00 00 00 c db OOh,OOh,OOh,OOh 

c 

FOB4 71 50 SA DC c v md 80 db 71h,50h,5Ah,OCh text 80 X 25 

FOBS 1F 06 19 1C c db 1Fh,06h,19h,1Ch mode 2 -> monochrome 

FOBC 02 07 06 07 c db 02h,07h,06h,07h mode 3 -> color 

FOCO 00 00 00 00 c db OOh,OOh,OOh,OOh 

c 

FOC4 38 28 20 OA c v_md_graph db 38h,28h,20h,OAh graphics 

FOC8 7F 06 64 70 c db 7Fh,06h,64h,70h mode 4 -> 320 x 200 color 

FOCC 02 01 06 07 c db 02h,01h,06h,07h mode 5 -> 320 x 200 monochrome 

FOOD 00 00 00 00 c db OOh,OOh,OOh,OOh mode 6 -> 640 x 200 monochrome 

c 

F004 61 50 52 OF c v md mono db 61h,50h,52h,OFh monochrome card 80 x 25 


ROM B:U:OS Listing 

F008 19 06 19 19 c 

FOOC 02 00 DB DC c 

FOEO 00 00 00 00 c 

c 

FOE4 0800 c 

FOE6 1000 c 

FOE8 4000 c 

FOEA 4000 c 

c 

c 

FOEC 28 c 

FOEO 28 c 

FOEE 50 c 

FOEF 50 c 

FOFO 28 c 

FOF1 28 c 

FOF2 50 c 

FOF3 50 c 

FOF4 2C c 

FOF5 28 c 

FOF6 20 c 

FOF7 29 c 

FOF8 2A c 

FOF9 2E c 

FOFA 1E c 

FOFB 29 c 

c 

FOFC c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

1-198 

db 19h' 06h' 19h' 19h mode 7 -> monochrome card 

db 02h,ODh,OBh,OCh 

db OOh,OOh,OOh,OOh 

v md len dw 2048 40x25 modes 0 & 1 

dw 4096 80x25 modes 2 & 3 

dw 16384 graphics modes 4 & 5 

dw 16384 mode 6 

;only in 1050 dw 32768 modes 64 & 72 

v md wid db 40 0 -> text 40x 25 monochrome 

db 40 1 -> text 40x 25 color 

db 80 2 -> text 80x 25 monochrome 

db 80 3 -> text 80x 25 color 

db 40 4 -> graphics 320x200 color 

db 40 5 -> graphics 320x200 monochrome 

db 80 6 -> graphics 640x200 monochrome 

db 80 7 -> text 80x 25 monochrome card 

v md enable db 2Ch o -> text 40x 25 monochrome 

db 28h 1 -> text 4Dx 25 color 

db 20h 2 -> text 80x 25 monochrome 

db 29h 3 -> text 80x 25 color 

db 2Ah 4 -> graphics 320x200 color 

db 2Eh 5 -> graphics 32Dx200 monochrome 

db 1Eh 6 -> graphics 640x200 monochrome 

db 29h 7 -> text 80x 25 monochrome card 

v data2 endp 

Set Mode & Clear Screen ah = DOh 

Input: al = mode = 0 -> text 

= 1 -> text 

= 2 -> text 

Output: ah 

al 

= DOh 

= v colorpal 

40x 25 monochrome 

40x 25 color 

80x 25 monochrome 

= 3 -> text 80x 25 color 

= 4 -> graphics 320x200 color 

= 5 -> graphics 320x200 monochrome 

= 6 -> graphics 640x200 monochrome 

= 7 -> text 80x 25 monochrome card 

= 64 -> graphics 640x4DO monochrome 

= 72 -> graphics 640x400 monochrome tinytext 

Assume: contents of v base6845 = pointer register 

(contents of v base6845)+1 = data register 

(contents of v_base6845)+4 = mode control register 

(contents of v_base6845)+5 = overscan register 

(contents of v base6845)+6 = status register 

(contents of v base6845)+10 = mode control register #2 

(304h) 

(305h) 

(3D8h) 

(309h) 

(30Ah) 

(30Eh) 


FOFC 

FOFC 52 

FOFD 51 

FOFE 32 E4 

F100 BA 03D4 

F103 F6 06 0010 R 10 

F108 74 OD 

F10A F6 06 0010 R 20 

F10F 74 06 

F111 B8 0107 

F114 83 C2 EO 

F117 

F117 A2 0049 R 

F11A 89 16 0063 R 

F11E 86 EO 

F120 83 C2 04 

F123 EE 

F124 83 EA 04 

F127 8A C4 

F129 1E 

F12A 33 F6 

F12C 8E DE 

F12E C5 36 0074 R 

F132 B9 0010 

F135 3C 02 

F137 72 DE 



C Trash: si & di destroyed. 

c .---------------------------------------------------------------------- 

c 

C v set mode 

c 

c 

c 

c 

c 

c 

push 

push 

proc near 

assume cs:code, ds:data, es:v_ram, ss:nothing 

dx 

ex 

C Get Color/Monochrome dependent stuff. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

xor 

mov 

test 

jz 

test 

jz 

mov 

add 

ah,ah 

dx,color pointer 

byte ptr ds:[switch_bits],10h 

v set mode color 

- - - 

byte ptr ds:[switch_bits],20h 

v set mode color 

save dx 

save ex 

AH = mode ctrl., color board 

color 6845 pointer register. 

monochrome board? 

if not, skip monochrome stuff. 

It's a monochrome board, so. 

ax,0107h 

(AH,AL) = (overwrite mode 

for monochrome, mono. mode) 

dx,v_pointer-color_pointer; monochrome pointer register. 

C v set mode color: 

c 

c Save CRT Mode & 6845 address, and reset display monitor with mode control. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

xchg 

add 

out 

sub 

mov 

byte ptr ds:[v_mode],al : save mode. 

word ptr ds:[v_base6845],dx 

ah,al 

dx,4 

dx,al 

dx,4 

al,ah 

C Get pointer to display parameters. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

push 

xor 

mov 

lds 

save 6845 pointer register. 

AH=mode, AL=mode ctrl. 

get 6845 mode control register 

reset display 

restore 6845 address. 

restore mode in al 

ds : save ds = data_seg 

assume cs:code, ds:absO, es:v_ram, ss:nothing 

si,si 

ds,si 

si,dword ptr ds:[int1Dlocn] 

C ds:si in effect points to cs:v parms. 

c 

c assume cs:code, ds:code, es:v_ram, ss:nothing 

c 

C Determine which set of parameters to use from mode. 

c 

c 

c 

c 

mov 

cmp 

jb 

cx,16 

al,2 

v set mode lp 

- - - 


display parameter pointer 

count of parameters 

40x25 mode? (0 & 1?) 

if so, we're done 

1-199


F139 03 F1 

F13B 3C 04 

F13D 72 08 

F13F 03 F1 

F141 3C 07 

F143 75 02 

F145 03 F1 

F147 

F147 BO 10 

F149 2A C1 

F14B EE 

F14C 42 

F14D AC 

F14E EE 

F14F 4A 

F150 E2 F5 

F152 1F 

F153 8A C4 

F155 32 E4 

F157 8B FO 

F159 B9 2000 

F15C 3C 04 

F15E 72 DE 

F160 3C 07 

F162 74 08 

F164 72 02 

F166 01 E1 

F168 

F168 33 CO 

F16A EB 05 

F16C 

F16C B5 08 

F16E 

F16E B8 0720 

F171 

F171 33 FF 

F173 F3/ AB 

1-200 

c 

c 

c 

c 

c 

c 

c 

c 

add 

cmp 

jb 

add 

cmp 

jne 

add 

si,cx 

al,4 

v set mode lp 

si,cx 

al,7 

v set mode lp 

- - - 

si,cx 

next set of parameters 

80x25 mode? (2 & 3?) 


next set of parameters 

graphics mode? (4,5,6,64,72?) 


else, monochrome card (7) 

C Loop through 6845 initialization table outputting register number and data 

c 

C v set_mode lp: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

sub 

out 

inc 

lodsb 

out 

dec 

loop 

pop 

mov 

xor 

mov 

al,16 

al,cl 

dx,al 

dx 

dx,al 

dx 

v set mode lp 


ds 

al,ah 

ah,ah 

si,ax 

C Clear the screen. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

cmp 

jb 

cmp 

je 

jb 

shl 

cx,2000h 

al,4 

v md clr 8k 

al,7 

v md clr 2k 

v_md_clr graphics 

ex, 1 

C v_md_clr_graphics: 

C xor ax, ax 

C 

c 

jmp short v md clr 

C v md clr 2k: 

c mov ch,08h 

C v md clr 8k: 

C mov ax,(7*100h)+(' ') 

C v md clr: 

c 

c 

c 

c 

c 

xor 

rep 

di,di 

stosw 

Set mode control register #2 

get 6845 register number = 

= (16 - cl) (unscrambled) 

output to register port 

point to 6845 data register 

get parm value: al gets ds:si 

output to data port 

point back to pointer register 

next register 

dx = pointer register 

restore ds = data seg 

save mode in ah & al 

ax = mode 

si =mode hence ... 

assume 8k words to clear 

40x25 or 80x25 text modes 0-3? 

if so, clear 8k words. 

monochrome card mode 7? 

if so, clear 2k words. 

graphics mode 4-6 clear 8k wds 

mode 64 & 72 clear 16k wds 

graphics mode 

clear screen with zeroes 

ex = 0800h 

clear with attribute & space 

; es:di gets ax 



c Handle underline on shades-of-gray monitor. 

c dx = pointer register 

F175 83 C2 06 c add dx,6 get 6845 status register 

F178 EC c in al,dx get CRT status 

F179 24 10 c and al,010h isolate color/shades bit #4 

F17B DO EO c shl al,1 move it to underline bit #6 

F17D DO EO c shl al,1 

c 

c Handle double scan line modes 64 & 72. 

c dx = 6845 status register 

F17F 83 FE 40 c cmp si,64 modes 0 through 7? 

F182 72 04 c jb v md dbl if so, single scan line mode 

F184 40 c inc ax else mode 64 or 72, set bit #0 

F185 BE 0006 c mov si,6 modes 64 & 72 look like mode 6 

c from now on 

c 

F188 c v md dbl: double scan line mode. 

F188 83 C2 04 c add dx,4 get mode control register #2 

F18B EE c out dx,al 

c 

c Enable display monitor with mode control. 

c 

F18C 2E: 8A 84 FOF4 R c mov al,byte ptr cs:[si+v_md_enable] 

F191 A2 0065 R c mov byte ptr ds:[v_3x8],al save the value for later 

c dx = mode control register #2 

F194 83 EA 06 c sub dx,6 get 6845 mode control register 

F197 EE c out dx,al enable display 

c 

c Determine width & length of screen. 

c 

F198 33 co c xor ax,ax clear ah 

F19A 2E: 8A 84 FOEC R c mov al,byte ptr cs:[si+v_md_wid] 

F19F A3 004A R c mov word ptr ds:[v_width],ax 

c 

F1A2 81 E6 OOOE c and si,OEh make word index divided by 2 

F1A6 2E: 8B 84 FOE4 R c mov ax,word ptr cs:[si+v_md_len] 

F1AB A3 004C R c mov word ptr ds:[v_height],ax 

c 

c Set up overscan register & v colorpal. 

c 

F1AE BO 30 c mov al,030h : v colorpal for modes 0-5 & 7 

F1BO 8A 26 0049 R c mov ah,byte ptr ds:[v_mode] retrieve v mode 

F1B4 80 FC 06 c cmp ah,6 modes 0-5 ? 

F1B7 72 OD c jb v ovr ok if so, we're ok. 

c 

F1B9 74 09 c je v ovr not ok 640x200.graphics mode 6? 

c if so, change v_colorpal 

c 

F1BB 80 FC 40 c cmp ah,64 640x400 graphics mode 64, 72 ? 

F1BE 72 06 c jb v ovr ok if not, we're ok. 

c 

c if so we set v_height wrong, 

F1CO D1 26 004C R c shl word ptr ds:[v height],1 double v_height from 16k to 32k 

F1C4 c v ovr not ok: 

c 

- 


-

F1F4 SA C1 

F1F6 C3 

F1F7 

F1F7 

F1F7 SB F9 

F1F9 SA CF 

F1FB SB F1 

F1FD S1 E6 0007 

F201 03 F6 

F203 S9 94 0050 R 

F207 3A 3E 0062 R 

F20B 74 03 

F20D SB CF 

F20F C3 

F210 

F210 SB C2 

F212 EB 42 90 

F215 


c 

c 

c mov 

C ret 

C v_curs_type 

c 

al,cl 

endp 


ah = preserved = 10: al = cl 

di restores ex 

restore al with original cl 

c .---------------------------------------------------------------------c 

Set Cursor Position ah = 02h 

c 

C Input: bh = page number (0-7) 

C (dh,dl) = (row,col) of current cursor from (0,0) 

c Output: if bh = v_apage, ah = 14 

c 

al = low byte of cursor position 

c 

else, 

ah = v mode 

c 

c 

al = preserved 

C Trash: si & di destroyed. ( si = dx, di = ex) 

c .--------------------------------------------------------------------c 

C v curs pos 

c 

proc near 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

mov 

and 

add 

mov 

cmp 

je 

mov 

ret 

di,cx 

cl,bh 

si,cx 

si,7 

si,si 

word ptr ds:[si+v curpos],dx 

bh,byte ptr ds:[v_apage] 

v set curs 

cx,di 

; save ex 

mask to S pages 

*2 => word index 

save the cursor position 

if active page, put the cursor 

on the screen. 

not active page, so just 

restore ex 

and exit 

C v set curs: 

active page, so set cursor .. 

C 

c 

c 

c 

c 

c 

mov 

jmp 

ax,dx 

v set cur pos 

ax gets cursor position 

set cursor: ah 6S45 gets ex 

si = dx destroyed 

ah = preserved = 14 

al = low byte of cursor posn 

C v curs pos 

c 

endp 

c .---------------------------------------------------------------------- 

c 

c 

c 

c 

c 

c 

c 

Read Cursor 

Input: bh 

Output: (dh,dl) 

(ch,cl) 

ax 

= page number (0-7) 

ah = 03h 

= (row,col) of current cursor from (0,0) 

= current cursor mode setting 

= dx 

1-203


F215 

F215 8B C2 

F217 8B CB 

F219 8A OF 

F21B 81 E3 0007 

F21F 01 E3 

F221 8B 97 0050 R 

F225 8B 09 

F227 8B DE 0060 R 

F22B C3 

F22C 

F22C 

F22C 25 0007 

F22F 8B E8 

F231 A2 0062 R 

F234 74 08 

F236 8B FA 

F238 F7 26 004C R 

F23C 8B 07 

F23E 

F23E A3 004E R 

F241 01 F8 

F243 8B F9 

1-204 


c .--------------------------------------------------------------------c 

C v r curs pas 

c 

proc near 

c assume cs:code, ds:data, es:v ram, ss:nothing 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

mov 

and 

shl 

mov 

mov 

mov 

ret 

C v r curs pos 

c 

ax,dx 

cx,bx 

bl,bh 

bx,07h 

bx,1 

dx,word ptr ds:(bx+v_curpos] 

bx,cx 

cx,word ptr ds:(v_cursize] 

endp 

save bx 

page number mod 8 

page number mod 8 word index 

restore bx 

c ·--------------------------------------------------------------------c 

Read Light Pen (see graph.src) ah = 04h 

c .--------------------------------------------------------------------c 

c .--------------------------------------------------------------------c 

c 

Set Active Display Page ah = 05h 

C Input: al =new page number (0-7 for modes 0-1; 0-3 for 2-3) 

C Output: 6845 is reset to display the new active page 

C ah = 14 

al = low byte of cursor position 

c 

c 

C Trash: bp, si & di destroyed. (si = dx, di = ex) 

c .---------------------------------------------------------------------- 

c 

C v_page proc 

c 

near 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C v_page_O: 

c 

c 

c 

c 

c 

c 

and 

mov 

mov 

jz 

mov 

mul 

mov 

mov 

sar 

mov 

ax,07h 

bp,ax 

byte ptr ds:(v apage],al 

v_page 0 

di,dx 

word ptr ds:(v_height] 

dx,di 

word ptr ds:(v_top],ax 

ax,1 

di,cx 

page number mod 8 

save ax = page number mod 8 

save active page number (0-7) 

page number = 0? 

save dx 

dx:ax = (page number)*v height 

restore dx 

save starting address of page 

divide by 2 for byte count 

save ex 


F245 8B C8 

F247 B4 DC 

F249 E8 F262 R 

F24C 8B C5 

F24E 01 EO 

F250 8B FO 

F252 8B 84 0050 R 

F256 

F256 E8 F560 R 

F259 03 06 004E R 

F250 01 F8 

F25F B5 DE 

F261 91 

F262 

F262 8B F2 

F264 E8 F273 R 

F267 FE C4 

F269 8A E9 

F26B E8 F273 R 

F26E 8B 06 

F270 8B CF 

F272 C3 

F273 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

call 

mov 

shl 

mov 

mov 

c v set cur pos: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

- - - 

call 

add 

sar 

mov 

Now: ah 

c v 6845: 

c 

c 

c 

c 

c 

c 

c 

c 

xchg 

ch 

cl 

di 

mov 

call 

inc 

mov 

call 

mov 

mov 

C ret 

C v_page endp 

c 

cx,ax 

ah,12 

v 6845 

ax,bp 

ax,1 

si,ax 

ax,word ptr ds:[si+v_curpos] 

v posn 

ax,word ptr ds:[v_top] 

ax,1 

ch, 14 

cx,ax 

= 6845 register selection 


ex gets offset of active page 

6845 cursor set address = 12 

set cursor; ah 6845 gets ex 

si = dx destroyed 

ah = preserved = 12; al = cl 

di restores ex 

restore ax = page number mod 8 

page number mod 8 word index 

get page's cursor position 

;(ah,al) = (row,col) cursor pos. 

di = value to return in ex 

(ah,al) -> ax offset; si trash 

add offset of active page 

divide by 2 for byte count 

6845 cursor pos register = 14 

= first data byte to (ah) 6845 internal register 

= second data byte to (ah+1) 6845 internal register 

= value to return in ex 

; program 6845 cursor: 

si,dx 

v out_byte 

ah 

ch,cl 

v_out byte 

dx,si 

cx,di 

save dx 

output to 6845 

next 6845 register 

get the register input 

output to 6845 

restore dx value 

set up return value 

c ·-----------------------------------------------------------------------------c 

Output two byte to the selected 6845 registers 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

Input: ah 

ch 

cl 

di 


= first data byte to (ah) 6845 internal register 

= second data byte to (ah+1) 6845 internal register 

= value to return in ex 

Assume: contents of v base6845 

Output: ah 

(contents of v base6845)+1 

al 

C ex = di 


= second data byte 

= pointer register 

= data register 

c .------------------------------------------------------------------------------ 

1-205


F273 

F273 88 16 0063 R 

F277 8A C4 

F279 EE 

F27A 42 

F278 8A C5 

F27D EE 

F27E C3 

F27F 

F27F 

F27F E8 F571 R 

F282 72 03 

F284 E9 D5F4 R 

F287 

F287 52 

F288 51 

F289 53 

F28A 8A 08 

F28C 88 C1 

F28E E8 F513 R 

F291 74 25 

1-206 

c 

C v out_byte 

c 

proc near 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

out 

inc 

mov 

out 

ret 

C v_out_byte 

c 


al,ah 

dx,al 

dx 

al,ch 

dx,al 

endp 

get 6845 pointer register 

get the register address 

select the data register 

next register 

get second data byte 

output a data byte to 6845 

c ,---------------------------------------------------------------------- 

( Scroll Active Page Up ah = 06h 

c 

C Input: if al = 0, then clear entire window with attribute in bh 

else, al =number of rows to 'scroll' up 

= number of rows to clear at bottom of window 

bh = attribute to be used on blank row(s) 

(ch,cl) = (row,col) of upper left corner of window from (0,0) 

(dh,dl) = (row,col) of lower right corner of window from (0,0) 

C Output: ah = attribute to be used on blank row(s) 

C if v mode = 7, al = 20h = space 

else al = v 3x8 

c 

c 

c 

c 

c 

c 

c 

C 

c 

Assume: (contents of v base6845)+6 = status register 

C Trash: bp, si, & di destroyed. (bx thru dx destroyed if ROM stack) 

c ·---------------------------------------------------------------------- 

( 

C v scrl up 

c 

c 

c 

c call 

c jb 

C jmp 

C v txt up: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

push 

push 

push 

mov 

mov 

call 

jz 

proc near 


v txt md 

v txt up 

grf graphics up 

dx 

ex 

bx 

C Scroll cl rows up. 

c 

C ;V mv up: 

bl,al 

ax,cx 

v scrl pos 

v clr 


jump if graphics 

save registers 

save lille count 

pass upper left coordinates .... 

to common scroll positioning routine 

clear rows if nothing to move 


F293 03 FO 

F295 

F295 8A E1 

F297 80 3E 0049 R 07 

F29C 74 OA 

F29E 53 

F29F BB F322 R 

F2A2 

F2A2 E8 F2EC R 

F2A5 58 

F2A6 EB 10 

F2A8 

F2A8 1E 

F2A9 06 

F2AA 1F 

F2AB 

F2AB 8A CA 

F2AD F3/ AS 

F2AF 03 F5 

F2B1 03 FD 

F2B3 FE CC 


c 

c 

c 


add si,ax add (bytes/row)*(rows to scroll) to 

'from' address for scroll 

C ; Scroll cl rows up/down (based on bp & direction flag OF). 

c 

C v mv: 

c 

c 

c 

c 

c 

c 

c 

mov 

cmp 

je 

push 

ah,cl ah


c 

F2B5 75 F4 c jnz v mv flp ; go back if not finished 

c 

F2B7 1F c pop ds ;restore data segment 

c .---------------------------------------------------------------------c 

c Set up to clear one or more rows 

c 

F2B8 c v clr: 

F2B8 8A E7 c mov ah,bh ah

F2F7 06 c push es 

F2F8 1F c pop ds ds


F31A c v 01: 

F31A 41 c inc ex adjust the column counter 

F31B c v 02: 

F31B 96 c xchg ax,si restore ah = row counter 

c 

c Repeat for all columns of the current row 

c 

F31C E2 E7 c loop v cols 

- 

F31E EB 4A c jmp short v 31 

c 

c Else scrolling rows 

c Loop for all columns in the current row 

c If only one word can be moved at each horizontal retrace 

c Wait for the beginning of horizontal retrace 

c 

F320 ODED c dw V KSCROLL1 ; # of words to move at vert. retrace 

F322 c v 1: 

F322 EC c in al,dx 

F323 DO D8 c rcr al,1 

F32S 73 FB c jnc v 1 

c 

c Move one word of the current row 

c 

F327 AS c movsw 

c 

c If vertical retrace has started 

c If scrolling the full screen width 

c Move a fixed number of words or finish the scroll 

c 

F328 EB DE c jmp short v v 

c 

c Else two words can be moved at each horizontal retrace 

c If there is only one column remaining in this row 

c 

F32A 0162 c dw V KSCROLL2 ; # of words to move at vert. retrace 

F32C c v 2: 

F32C E2 03 c loop v 21 

c 

c Move the last word of the current row 

c 

F32E 41 c inc ex ; adjust the column counter 

F32F EB F1 c jmp v 1 

c 

c Else 

c Wait for the beginning of horizontal retrace 

c 

F331 c v 21: 

F331 EC c in al,dx 

F332 DO D8 c rcr al,1 

F334 73 FB c jnc v 21 

c 

c Move two words of the current row 

c 





F373 c v v2: 

F373 03 C8 c add cx,ax 

F375 F3/ AS c rep movsw move the remaining words 

F377 59 c pop ex reinitialize the column counter 

F378 33 ED c xor bp,bp restore bp register 

c 

c Reenable the timer interrupt and return 

c 

F37A c v 4: 

F37A FA c eli 

F37B E4 21 c in al,pic 1 8259 mask register 

F37D 24 FE c and al,not 01h unmask IRQO 

F37F E6 21 c out pic 1, al 

F381 FB c sti 

F382 1F c pop ds restore ds 

c assume ds:data 

F383 SA c pop dx restore dl for subsequent " clear" call 

F384 C3 c ret 

c 

c Latch and read counter 0 of the 8253 

c 

c ; ; ; v 8253: 

c ''' mov al,O " latch counter" command 

c ''' 

c ''' 

c ''' 

c ''' 

c 

c 

out 

in 

mov 

in 

ret 

43h,al 

al,40h 

bl,al 

al,40h 

latch 8253 counter 0 

lsb of latched count 

save it for comparison 

msb of latched count 

c 

c 

Wait for the end of horizontal retrace 

F385 

F385 

F386 

F388 

F38A 

F38A 

F38B 

F38D 

F38F 

F390 

EC 

DO D8 

73 FB 

EC 

DO D8 

72 FB 

C3 

c v_sync: 

c in al,dx 

c rcr al,1 

c jnc v_sync 

c v_sync2: 

c in al,dx 

c rcr al,1 

c jc v sync2 

c ret 

c v_scrl_up endp 

c 

c .--------------------------------------------------------------------c 

Scroll Active Page Down ah = 07h 

c 

c Input: if al = 0, then clear entire window with attribute in bh 

c else, al = number of rows to 'scroll' down 

c 

c 

c 

c 

c 

c 

c 

c 

= number of rows to clear at top of window 


(ch,cl) = (row,col) of upper left corner of window from (0,0) 

(dh,dl) = (row,col) of lower right corner of window from (0,0) 

Output: ah = attribute to be used on blank row(s) 

if v mode = 7, al = 20h = space 

else al = v 3x8 


F390 

F390 FD 

F391 E8 F571 R 

F394 72 03 

F396 E9 0689 R 

F399 

F399 52 

F39A 51 

F398 53 

F39C 8A 08 

F39E 88 C2 

F3AO E8 F513 R 

F3A3 74 07 

F3A5 

F3A5 28 FO 

F3A7 F7 DO 

F3A9 E9 F295 R 

F3AC 

F3AC F7 DO 

F3AE E9 F288 R 

F381 

F381 


C Assume: (contents of v base6845)+6 = status register 

c 


C Trash: bp, si, & di destroyed. (bx thru dx destroyed if ROM stack) 

c .--------------------------------------------------------------------c 

C v scrl dn 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

v txt dn: 

proc near 

assume cs:code, ds:data, es:v ram, ss:nothing 

std NOTE: scroll down everything backwards 

call v txt md 

jb v txt dn 

- - 

jmp grf graphics_down 

push dx 

push ex 

push bx 

mov bl,al 

mov ax,dx 

call v scrl pos 

jz v clr_top 

Scroll cl rows down. 

v mv dn: 

sub si,ax 

neg bp 

jmp v mv 

Clear bl rows above. 

C v clr top: 

c 

c 

c 

C v scrl dn 

c 

neg 

jmp 

bp 

v clr 

endp 



save registers 

save line count 

pass lower right coordinates .. 

to common scroll positioning routine 

clear rows if nothing to move 

subtract (bytes/row)*(rows to scroll) 

from 'from' address for scroll 

negate number of bytes to skip per row 

now identical to scroll upl 

negate number of bytes to skip per row 

now identical to v clr bot! 

c .---------------------------------------------------------------------- 

c 

c 

c 

c 

c 

c 

Read Attribute & Character at Cursor ah = 08h 

Input: bh 

Output: al 

ah 

= current active display page (0-7) 

= character read 

= attribute of character read 

C Assume: (contents of v_base6845)+6 = status register 

c 

C Trash: si & di destroyed. ( si = dx: di = bx) 

c .--------------------------------------------------------------------c 

C v rae proc 

c 

near 

1-213


F381 E8 F571 R 

F384 72 03 

F386 E9 06EC R 

F389 

F389 88 F8 

F388 E8 F542 R 

F38E 88 F2 

F3CO 8A 0006 

F3C3 03 16 0063 R 

F3C7 

F3C7 EC 

F3C8 .DO 08 

F3CA 72 F8 

F3CC FA 

F3CD 

F3CD EC 

F3CE DO 08 

F300 73 F8 

F302 26: 88 07 

F305 F8 

F306 88 06 

F308 88 OF 

F3DA C3 

F308 

1-214 

c assume cs:code, ds:data, es:v_ram, ss:nothing 

c 

c call 

c jb 

C jmp 

C v txt rae: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

call 

mov 

mov 

add 

v txt md 

v txt rae 

grf graphics_read 

di,bx 

v fpos 

si,dx 

dx,6 



save bx 

ax & si destroyed. 

bx = offset into current page 

save dx 

get 6845 status reg. offset 

dx,word ptr ds:[v base6845] add 6845 pointer 

C Wait for horizontal retrace ... we can't read the screen during a trace 

C without disturbing the screen image. 

c 

c 

C v rae inline: 

C in 

make sure we're in a scanline 

al,dx 

get horiz. retrace blanking status 

C rcr al,1 

C jc v rae inline wait for display enable low (cf) 

disable ints FIRST 

c eli 

c 

c 

c v rae inblank: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

in al,dx 

rcr al,1 

jnc v rae inblank 

mov 

sti 

mov 

mov 

ret 

C v rae endp 

test for horiz. retrace 

wait for blanking: 

get retrace blanking status 

test display enable (bit #0) 

try again if still in scanline. 

ax,es: [bx] char. and attr. now in AX 

dx,si 

bx,di 

enable interrupts immediately 

restore dx 

restore bx 

c 

c .---------------------------------------------------------------------- 

c Write Attribute & Character at Cursor ah = 09h 

c 

c 

c 

c 

c 

c 

c 

c 

c 

Input: al 

bh 

bl 

ex 

bp 

Output: al 

ah 

= character to write 


= attribute of character to write 

= counter of characters to write 

= value to return in ax 

= character to write 

= attribute of character to write 

C Assume: (contents of v_base6845)+6 = status register 

c 

C Trash: bp, si & di destroyed. (si = ex: dx if ROM stack) 

c .---------------------------------------------------------------------- 



F410 SA c pop dx restore dx 

F411 86 CE c mov cx,si restore ex 

F413 C3 c ret 

c 

F414 c v wac endp 

c 

c .---------------------------------------------------------------------c 

Write Character at Cursor Position ah = OAh 

c 

c Input: al = character to write 

c bh = current active display page (0-7) 

c ex = counter of characters to write 

c bp = value to return in ax 

c Output: al = character to write 

c ah = top byte of offset of character in page 0 

c 

c Assume: (contents of v_base6845)+6 = status register 

c 

c Trash: si & di destroyed. (si = CX; dx if ROM stack) 

c .---------------------------------------------------------------------c 

F414 c v we proc near 

c 

c assume CS:COde, ds:data, es:v ram, ss:nothing 

c 

F414 E8 F571 R c call v txt md all registers preserved 

F417 72 03 c jb v txt we 

F419 E9 D7DB R c jmp grf graphics_write jump if graphics 

F41C c V txt WC: 

c 

F41C 86 F6 c mov di,bx save bx 

c 

F41E E8 F542 R c call v fpos si destroyed. 

c ax = offset into page 0 

c bx = offset into current page 

F421 87 OF c xchg bx,di restore bx; di = transfer offset 

c 

c 

F423 86 F1 c mov si,cx save ex 

F425 52 c push dx save dx 

c 

F426 86 05 c mov dx,bp retrieve character in dl 

F428 8A C2 c mov al,dl get char in al (ah = attr.) 

F42A 86 E8 c mov bp,ax bp = (attr. char) 

c 

F42C 6A 0006 c mov dx,6 get 6845 status register 

F42F 03 16 0063 R c add dx,word ptr ds:[v_base6845] get 6845 pointer register 

c 

c Wait for horizontal retrace ... 

c 

F433 c v we next: 

c 

F433 c v we hi: 

F433 EC c in al,dx get CRT status 

F434 DO 08 c rcr al, 1 test display enable (bit #0) 



F436 72 FB c jc v we hi wait for display enable low (cf) 

F438 FA c eli disable ints FIRST 

c 

F439 c v we lo: 

F439 EC c in al,dx 08 get CRT status 

F43A DO 08 c rcr al, 1 02 test display enable (bit #Q) 

F43C 73 FB c jnc v we lo 16/04 wait for display enable hi (cf) 

c 

F43E 8B CS c mov ax,bp 02 restore ax = (attr, char) 

F440 AA c stosb 11 es:di gets al (character) 

c 

F441 49 c dec ex 02 

c ;we can do 2 bytes in 10 us 

F442 74 06 c jz v we end 04/16 

F444 47 c inc di 02 skip past attribute byte 

c 

- 

F445 AA c stosb 11 es:di gets al (character) 

c 

c Worst case: (8+2+16)+(8+2+4)+(2+11)+(2+4+2+11) = 72 cycles = 90% of 80 cycles 

c 

F446 FB c sti enable interrupts immediately 

F447 47 c inc di skip past attribute byte 

F448 E2 E9 c loop v we next do it ex times 

c 

F44A c v we end: 

F44A FB c sti enable interrupts immediately 

c 

F44B SA c pop dx restore dx 

F44C 8B CE c mov cx,si restore ex 

F44E C3 c ret 

F44F c v we endp 

F44F c v col proc near 

c 

c 

c .---------------------------------------------------------------------c 

Set Overscan, Back, & Foreground Colors ah = OBh 

c 

c Input: bh = palette color ID to set (0-127) 

c bl = color value to be used with that color ID 

c Output: ah = v mode 

c al = new v colorpal 

c 

c Assume: (contents of v base6845)+5 = overscan register 

c 

c Trash: si & di destroyed. (si = bx; di = dx) 

c ·---------------------------------------------------------------------c 

c 

c assume CS:COde, ds:data, es:v ram, ss:nothing 

c 

F44F AD 0066 R c mov al,byte ptr ds:[v colorpal] get current palette 

c 

F452 8B FA c mov di,dx save dx 

F454 8B F3 c mov si,bx save bx 

c 



F456 OA FF 

F458 74 OA 

F45A 24 OF 

F45C DO DB 

F45E 73 DB 

F460 DC 20 

F462 EB 07 

F464 

F464 80 E3 1F 

F467 24 EO 

F469 OA C3 

F46B 

F46B BA 0005 

F46E 03 16 0063 R 

F472 EE 

F473 8B DE 

F475 8B 07 

F477 A2 0066 R 

F47A C3 

F47B 

F47B 

F47B 3C 07 

F47D 75 03 

F47F E9 F583 R 

1-218 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

v col 0: 

v col 1: 

v col 

or 

jz 

and 

rcr 

jnb 

or 

jmp 

and 

and 

or 

mov 

add 

out 

mov 

mov 

mov 

ret 

endp 

bh,bh 

v col o 

al,ODFh 

bl,1 

v col 1 

al,20h 

short v col 1 

bl,01Fh 

al,OEOh 

al,bl 

dx,5 


dx,al 

bx,si 

dx,di 

byte ptr ds:[v_colorpal],al 

palette color ID = 0? 

handle color ID 0 

clear palette select bit #5 

test new color (bit #0) 

if bit #0 set. all done 

else set palette select bit #5 

save bits #0-4 of new color 

clear bits #0-4 of old color 

and combine the two. 

get 6845 overscan reg. offset 

add 6845 pointer register 

output selection 

restore bx 

restore dx 

save the value for later 

c .---------------------------------------------------------------------c 

Write Dot (see graph.src) ah = OCh 

c .---------------------------------------------------------------------- 

( 

c .---------------------------------------------------------------------c 

Read Dot (see graph.src) ah = ODh 

c .---------------------------------------------------------------------- 

( 

c ·--------------------------------------------------------------------c 

c 

Terminal Emulator to active page 

C Input: al = character to write 

ah = OEh 

c bl = foreground color in graphics mode 

C bp = value to return in ax 

C Output: All registers saved. 

c 

C Trash: si & di destroyed. (si = cx: di = bx: dx if ROM stack) 

c .---------------------------------------------------------------------- 

( 

C v terminal proc near 

c 


c 

c 

c 

c 

c 

c 

cmp 

jne 

jmp 

al,BEL : is it bell character? 

v term nobell 

v bell 



F4CF 73 04 c jnb v scrl_tty_graphics jump if graphics 

c 

F401 64 08 c mov ah,08h call v rae 

F403 CD 10 c INT 10h to get attribute byte in ah 

c 

F405 c v_scrl_tty_graphics: 

F405 33 C9 c xor cx.cx (ch.cl)= upper left (row.col) 

c = (0,0) 

F407 8A FC c mov bh,ah store attribute in bh 

F409 68 0601 c mov ax.0601h call v scrl up to scroll 

c one line with attribute bh 

F4DC 8A 16 004A R c mov dl,byte ptr ds:(v_width] (dh,dl)= lower right (row.col) 

F4EO 80 EA 01 c sub dl,1 column = v width-1 

F4E3 80 3E 0049 R 48 c cmp byte ptr ds:(v mode].72 is this mode 72 ? 

F4E8 66 31 c mov dh,49 if yes then row = 49 

F4EA 74 02 c je v term ret jump if mode = 72 

F4EC 66 18 c mov dh,24 if not mode 72 then row= 24 

F4EE c v term ret: 

F4EE CD 10 c INT 10h 

F4FO c v term nop: 

c 

c 

c Clean up. 

c 

F4FO 86 C5 c mov ax,bp restore ax 

F4F2 86 OF c mov bx,di restore bx 

F4F4 86 CE c mov cx.si restore ex 

F4F6 5A c pop dx restore dx 

F4F7 C3 c ret 

c 

c 

F4F8 OA 02 c v bs: or dl,dl back space -- column = 0 ? 

F4FA 74 F4 c jz v term nop don't change cursor position 

F4FC FE CA c dec dl 

F4FE E6 C1 c jmp v set new cur 

c 

c 

F500 32 02 c v cr: xor dl.dl carriage return 

F502 E6 60 c jmp v set new cur 

F504 c v terminal endp 

F504 c v stat proc near 

c 

- 

c 

c .---------------------------------------------------------------------c 

Read Current Video Status ah = OFh 

c 

c Input: None. 

c Output: ah = number of character columns on screen 

c al = display mode currently set 

c bh = current active display page (0-7) 

c 


c .---------------------------------------------------------------------c 

c 

1-220 ROM BIOS Listing 

- 

-

c 

c 

F504 8A 26 004A R c 

F508 AD 0049 R c 

FSOB 8A 3E 0062 R c 

FSOF 80 E7 07 c 

F512 C3 c 

c 

F513 c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



mov ah,byte ptr ds:[v_width] 

mov 

mov 

and 

ret 

v stat endp 

page 

al,byte ptr ds:[v_mode] 

bh,byte ptr ds:[v_apage] 

bh,07h page number mod 8 

Common scroll positioning and register initialization routine. 


Input: (ah,al) = starting (row,col) position from (0,0) 

= (ch,cl) for up I (dh,dl) for down 


if bl = 0, then clear entire window with attribute in bh 

else, bl = number of rows to 'scroll' up I down 

(ch,cl) 

(dh,dl) 

= number of rows to clear at top I bottom of window 

(row,col) of upper left corner of window from (0,0) 

(row,col) of lower right corner of window from (0,0) 

es: +-----------------------------------------------+ 

(ch,cl) 

+-------------------------------+ 

Output: zf 

ax 

A +-------------------------------+ 

bl I I 

v +-------------------------------+ 

(dh,dl) 

+-----------------------------------------------+ 

=state of bl at entry (nz if scroll: z if clear only) 

= (number of bytes/row) * (number of rows to scroll) 

= (2 * bl * v width) 

bh = attribute to be used on blank line(s) 

if bl = 0 at entry, then clear entire window with bl attribute 

bl = dh = window height to clear 

else, bl = number of rows to 'scroll' up I down 

= number of rows to clear at top I bottom of window 

ch = zero 

cl = number of rows to move 

= delta of upper and lower coordinates-bl = (dh-bl) 

(dh,dl) = delta of upper left and lower right coordinates 

bp 

si 

di 

ds 

es 

= window height and width 

=number of bytes NOT to move per row (2*(v_width -dl)) 

= 'from' address for scroll 

= 'to' address for scroll 

= data seg (preserved) 

= para_mono 

1-221


F513 

F513 E8 F560 R 

F516 2A FS 

F518 fE C6 

F51A 2A D1 

F51C FE C2 

F51E 88 36 004E R 

F522 03 FO 

F524 88 FE 

F526 33 C9 

F528 8A CA 

F52A A1 004A R 

F52D 88 E8 

F52F 2B E9 

F531 D1 ES 

F533 DO EO 

F535 F6 E3 

F537 SA CE 

F539 2A CB 

F53B OA DB 

F53D 75 02 

F53F SA DE 

F541 

F541 C3 

F542 

1-222 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

es: 

 

+-----------------------------------------------+ 

si, di offset if up 

+-------------------------------+ A 

11 

dh 

A +-------------------------------+ 

bl I I 

v +-------------------------------+ v 

si, di offset if down 

+-----------------------------------------------+ 

c .---------------------------------------------------------------------c 

page 

C v scrl pos proc near 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

call 

sub 

inc 

sub 

inc 

mov 

add 

mov 

xor 

mov 

mov 

mov 

sub 

shl 

shl 

mul 

mov 

sub 

or 

jnz 

mov 


v posn 

dh.ch 

dh 

dl,cl 

dl 

si,word ptr ds:[v top] 

si,ax 

di,si 

CX,CX 

cl,dl 

ax,word ptr ds:[v width] 

bp,ax 

bp,cx 

bp, 1 

al,1 

bl 

cl,dh 

cl,bl 

bl,bl 

v scrl mv and clr 

bl,dh 

C v scrl mv and clr: 

c ret 

c 

C v scrl pos endp 

C page 

(ah,al) -> ax offset: si trash 

(dh,dl) gets delta (drow,dcol) 

dh = number of rows 

dl = number of columns 

get offset of active page 

add offset in page => 'from' 

'to' addresses. 

init count register to zero. 

ex = number of columns = dl 

get screen width 

bp = v width 

bp = (v_width - dl) 

bp = 2 * (v width - dl) 

al = 2 * v width 

ax = 2*v width*no. of rows 

cl

F542 

F542 8A C7 

F544 33 DB 

F546 25 0007 

F549 88 FO 

F54B 74 07 

F54D 

F54D 03 1E 004C R 

F551 48 

F552 75 F9 

F554 

F554 01 E6 

F556 88 84 0050 R 

F55A E8 F560 R 

F55D 03 08 

F55F C3 

F560 

F560 

F560 88 FO 

F562 81 E6 DOFF 

F566 8A C4 

F568 F6 26 004A R 

F56C 03 C6 

F56E 01 EO 

F570 C3 


C Calculates video ram buffer offset of a character in text mode 

c 

c 

c 

c 

c 

c 

Input: bh 

Output: bx 

ax 

C Trash, si = destroyed. 



= offset of character in text mode at display page 

= (page number)*(v height)+offset of v_curpos(bh) 

= offset of character in text mode from page 0 

c .--------------------------------------------------------------------c 

C v fpos proc 

c 

near 

c assume cs:code, ds:data, es:v ram, ss:nothing 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

v fpos lp: 

mov al,bh al gets page number 

xor bx,bx bx = 0 

and ax,07h ax = page number mod 8 

mov si,ax si keeps page number mod 8 

jz v fpos 0 page number = Q? 

add bx,word ptr ds:[v_height] optimization: word multipli- 

dec ax cation by less than 8 without 

jnz v fpos lp destroying dx (or ex). 

v fpos o, bx = (page number)*(v height) 

shl si, 1 page number mod 8 word index 

mov ax,word ptr ds:[si+v_curpos] 

call v posn (ah,al) -> ax offset; si trash 

add bx,ax bx = (page)*(v height)+offset 

ret 

v fpos endp 

c .---------------------------------------------------------------------c 

Calculates video ram buffer offset of a character in text mode 

c 

C Input: (ah,al) = (row,col) position 

c Output: ax = offset of character in text mode. 

c 

C Trash, si destroyed. 

c .--------------------------------------------------------------------c 

C v posn 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

and 

mov 

mul 

add 

shl 

ret 

proc near 


si,ax 

si,OFFh 

al,ah 

byte ptr ds:[v_width] 

ax,si 

ax,1 

si keeps column (al) 

al gets row (ah) 

ax gets (row * v_width) 

ax gets (row* v_width)+ column 

ax gets 2*((row * v width)+column) 

1-223

F596 E6 61 

'""""""""m=:t 

F598 51 

F599 B9 OOC8 

F59C 

F59C E8 EF4C R 

F59F E2 FB 

FSA1 59 

FSA2 8A C4 

FSA4 E6 61 

FSA6 58 

FSA7 C3 

FSA8 

FSA8 

FSA8 32 E4 

FSAA C3 

FSAB 

FSAB 

FSAB 

FSAB 

FSAB BA 03F4 

FSAE EC 

FSAF 3C 10 

FSB1 75 12 

FSB3 AD 0041 R 

FSB6 so 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

out 

push 

mov 

bell wait: 

call 

loop 

pop 

mov 

out 

pop 

ret 

v bell endp 

p kctrl,al 

ex 

cx,200 ;512 msec 

f wait one ms ;wait for 1 ms 

- - 

bell wait 

ex 

al,ah restore control status 

p kctrl,al 

ax 

return from v term 

c ·=============================================================================== 

c 

C Read Light Pen function code = 04h 

c 

c Input: None. 

C Output: ah = 0 light pen switch not down/not triggered 

c ah = 1 implies: 

c (dh,dl) = (row,col) of character light pen 

c 

c 

c 

c 

ch 

bx 

C Trash: None. ??? 

position from (0,0) 

= raster line (0-199) 

= pixel column (0-319,0-639) 

c 

c .------------------------------------------------------------------------------- 

[ 

C grf_light_pen proc 

c 

c 

c 

c 

xor 

ret 

ah,ah 

C grf_light_pen endp 

c 

C code ends 

C include fdu4.asm 

near 

return ah = 0 for now (al intact) ... 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 



c 

c 

c 

c 

c 

c 

c 

c 

c 

nee reset 

mov 

in 

cmp 

jne 

mov 

push 

proc near 

dx,f nee status 

al,dx 

al, 10h 

f nee reset ret 

- - - 

al,diskette status 

ax 

NEC status port 

NEC busy. 

no. 

save from previous operation. 

1-225


FSB7 33 CO 

FSB9 8B DO 

FSBB 9C 

FSBC 9A 

FSBD EC59 R 

FSBF FOOD 

FSC1 58 

FSC2 A2 0041 R 

FSCS 

FSCS C3 

FSC6 

FSC6 

FSC6 C6 06 0040 R FF 

FSCB 8A 4E 00 

FSCE BO 01 

FSDO D2 EO 

FSD2 84 06 003F R 

FSD6 75 12 

FSD8 A2 003F R 

FSDB 8A E1 

FSDD B1 04 

FSDF D2 EO 

FSE1 oc oc 

FSE3 OA C4 

FSES BA 03F2 

FSE8 EE 

FSE9 F9 

FSEA 

FSEA C3 

FSEB 

1-226 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

xor 

mov 

pushf 

db 

dw 

dw 

int 

pop 

mov 

nee reset ret: 

ret 

f nee reset 

ax.ax reset call. 

dx,ax 

9ah 

fd io this is call far OfOOO:fd io 

code seg 

13h 

ax 

because of ram disks 

diskette status.al restore from previous op. 

endp 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C (f_motor_on) 

c 

c 

c 

INPUT: 

c 

c 

c 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; . ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

f motor on 

f mo ret: 

OUTPUT: 

DESTROYS: 

mov 

mov 

mov 

shl 

test 

jnz 

mov 

mov 

mov 

shl 

or 

or 

mov 

out 

stc 

ret 

f motor on 

none 

Carry set if motor was off. cleared otherwise. 

AX. ex 

proc near 

motor count.OFFh 

cl. f drive 

al,1 

al.cl 

al.motor status 

f mo ret 

motor status.al 

ah.cl 

cl,4 

al.cl 

al,OCh 

al.ah 

dx,f motor port 

dx,al 

endp 

max. time for motor. 

drive. 

mask for motor status. 

test always clears carry. 

already running. 

set correct bit. 

drive into AH. 

motor on bit to high nibble. 

set bits 2 & 3 (0000 1100). 

drive bits ( 0 & 1). 

turn on the motor. 

motor was off indicator. 

c ';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;' ';;;;;;;;;;''';;;; 

c 

c 

c 

Read DASD type 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

F5EB c 

F5EB E8 F603 R c 

F5EE E8 F5F6 R c 

F5F1 FE CO c 

F5F3 E9 ECC2 R c 

F5F6 c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


This routine reads the motherboard switches to determine 

what type of drive is installed. (value returned from this 

routine in AL. exchange to AH made after f io ret). 

Returns 0 - not used 

1 - low density drive (48tpi) 

2- high density drive (1.2Mb) 


................................................... ' .......................... . 

l l! > l l! l! l > l! l l! l >! 1 l 1 l l l! 1! l l l 1 l! 1! l l l!!! l l l l! l l l l l l l 1! I! 1! l! I I 1! 1 I 1'! l l l l > > l 1 

f_dtype proc near 

call f getdrv get drive bit in bl% 

call f drvswitch get switch info% 

inc al get return info% 

jmp f io ret cmd over% 

f_dtype endp 

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .................... . 

''''' '' ''' '' ''' '''''',' '''' ''' ''' ''''' ''' '''' ''' ', '',', ', ', ', ', '' '','' '''' '''' 

Routine checks the hardware switches for the type of drive 

being used. The fdu-parameter table (INT1ELOCN) is changed 

as is appropriate. 

;(commented out because DOS[ibmbios] adjusts the table internally) 

..................................................... ' ....................... . 

'''' ''''''' ',''', ', '''', '' ''' ', '', ',' '''' '' '''' '' ''' '' '' ''', ', ', '' ''' ', '''' ''' 

;f_setparms 

call 

mov 

push 

push 

xor 

mov 

;assume ds:absO 

pop 

test 

jnz 

proc near 

f drvswitch 

- 

bl, f head 

ds 

ax 

ax,ax 

ds,ax 

ax 

bl,80h 

f setslow 

get drive type in al% 

get info b4 change segment% 

or 

- 

al,al 

test media/drive mismatch?% 

yes,use 320kb(48tpi) info% 

else use drive(same as media) info% 

jz f setslow 

jmp if 48tpi drive% 

; ;same parms for now% 

mov word ptr INT1ELOCN,offset fd 12parms 12Mb drive% 

jmp 

;f setslow: 

f setdone 

mov 

;f setdone: 

;assume ds:data 

word ptr INT1ELOCN,offset fd parms 48 tpi drive% 

pop 

ret 

ds 

;f setparms endp 

get the configuration switch for the fdu and 

return it in the LSB of al. 

1-227


FSF6 

FSF6 E4 67 

FSF8 F6 46 00 01 

FSFC 75 02 

FSFE DO C8 

F600 

F600 24 01 

F602 C3 

F603 

F603 

F603 32 FF 

F605 8A SE 00 

F608 80 E3 01 

F608 C3 

F60C 

F60C 

F60C 8A 46 03 

F60F 3C 01 

F611 74 OS 

F613 C6 06 0041 R 00 

F618 

F618 E8 F603 R 

F61B 80 BF 0092 R 00 

F620 75 08 

F622 8A 87 0090 R 

F626 88 87 0092 R 

1-228 

c 

c 

c 

c 

0 = 48 tpi 

1 = 96 tpi I 1.2Mb 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

f drvswitch 

in 

test 

jnz 

ror 

f CV dr: 

and 

ret 

f drvswitch 

proc near 

al.sys_conf_b switch port 

byte ptr f drive, 1 select drive bit% 

f cv dr jmp if drive 1% 

al,1 shift OrO into LSB% 

- - 

al, 1 blow off high 7 bits 

endp 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C f getdrv 

c 

C Routine gets the input drive parm and returns with 

C the LSB (drive number) in bl. 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

c 

C f_getdrv 

C xor 

c 

c 

mov 

and 

c ret 

proc near 

bh,bh 

bl,f drive 

bl, 1 

C f getdrv endp 

c 

c 

get drive bit 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C f nustate 

c 

C Routine sets the original state if this is the first attempt 

C at an operation. The new transfer rate is set. A delay is taken 

C if the motor is already on. ( A test for track number

F62A 

F62A E8 E93A R 

F62D C3 

F62E 

F62E 

F62E 

F62E 1E 

F62F 33 CO 

F631 8E 08 

F633 CS 36 0078 R 

F637 8A 00 

F639 1F 

F63A 

F63A C3 

F63B 


C f nu cant: 

C call 

c 

c 

c 

c 

c 

nus tate 

ret 

f setrate set transfer rate% 

endp 


c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C Get specified byte from fdu parameter table (f get var) 

c 

c 

c 

c 

c 

c 

c 

INPUT: 

OUTPUT: 

DESTROYS: 

BX parameter number (0 - 10) 

AL The requested byte. 

AH 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

f get var 

f_gvok: 

f_gvdone: 

get_var 

mov 

and 

jz 

cmp 

jnz 

mov 

jmp 

push 

xor 

mov 

assume 

lds 

mov 

pop 

assume 

ret 

proc near 

al,f head 

al,80h 

f_gvok 

bl,S 

f_gvok 

al,23h 

f gvdone 

ds 

ax,ax 

ds,ax 

ds:absO 

si,dword ptr 

al, (bx+si] 

ds 

ds:data 

endp 

(int1Elocn] 

;get media info% 

media-drive match% 

test gap parm% 

return it% 

segment 0 

tell assembler seg 0: 

DS:SI points to table 

; tell assembler seg 40: 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C NEC ready ( f nee rdy) 

c 

c 

c 

c 

c 

c 

INPUT: 

OUTPUT: 

none 

AL 

ox 

;% 

Main Status Register byte. 

Points to port 3F4h 

1-229


F63B 

F63B 51 

F63C 33 C9 

F63E 

F63E BA 03F4 

F641 EC 

F642 A8 80 

F644 75 OA 

F646 E2 F6 

F648 C6 06 0041 R 80 

F64D E9 ECC2 R 

F650 

F650 59 

F651 C3 

F652 

F652 

F652 FB 

F653 51 

F654 B9 03E8 

F657 

F657 F6 06 003E R 80 

F65C 75 00 

F65E E8 EF4C R 

F661 E2 F4 

F663 C6 06 0041 R 80 

F668 E9 ECC2 R 

F66B 

F66B 80 26 003E R 7F 

F670 59 

F671 C3 

F672 

1-230 

C DESTROYS: 

c 

c '''';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;' 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

f_nec_rdy 

f nr1: 

f nr ret: 

push 

xor 

mov 

in 

test 

jnz 

loop 

mov 

jmp 

pop 

ret 

c 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

nee rdy 

proc near 

ex 

cx,cx 

dx,f nee status Main status register(3F4h) 

al,dx 

al,080h RQM 

f nr ret NEC is ready. 

f nr1 

diskette status,time out 

f io ret Took too long to respond. 

ex 

- - 

endp 

- - 

C Wait for NEC to interupt on completion of execution phase or 

C time out if NEC never interupts (f wait for_nec). 

c 

c 

c 

INPUTS: 

C OUTPUTS: 

c 

none 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ''''' ';;;;;;;;;;;;;;;;;;;;;;;;;;; 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


w nee: 

sti 

push 

mov 

test 

jnz 

call 

loop 

mov 

jmp 

w nee ret: 

and 

pop 

ret 


- - - 

proc near 

ex 

enable interupts 

cx,1000 wait a while 

seek status,80h test MSB (int_flag) 

w nee ret 

f wait one ms 

w nee 

diskette status,time out 

f io ret 

- 

- - - 

- 

- - 

seek status,07Fh clear MSB. 

ex 

endp 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

c chkspeed 


F672 

F672 2E: 8E 1E E538 R 

F677 BE 0042 R 

F67A 46 

F67B AC 

F67C A8 01 

F67E 74 04 

F680 F9 

F681 EB 02 90 

F684 

F684 F8 

F685 

F685 C3 

F686 

F686 

F686 E8 F652 R 

F689 B4 08 

F68B E8 F6C5 R 

F68E E9 EDF8 R 

F691 

F691 

F691 E8 FSC6 R 

F694 73 1A 

F696 BO 02 

F698 8A C8 


c 

C this routine checks the error status associated with the 

C previous operation. If the bad-addr-mark error was found 

C a speed change will be made. Otherwise the error is taken 

C as valid and not retry is made. 

c 

c OUTPUT: CY=O, no error-> no retry, speed ok. 

c CY=1, speed error-> retry at other speed 


c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; '' '1' ', ', '' ',;;;;;;;;;' 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

chkspeed 

mov 

mov 

inc 

lodsb 

test 

jz 

stc 

jmp 

f speedok: 

clc 

f cs out: 

ret 

chkspeed 

proc near 

ds,word ptr cs:[set_ds_word] ;get segment% 

si,offset nee status get buffer% 

si point to ST1 of error info% 

get error info from DS:SI% 

al,01h check for addr-mark error% 

f speedok zeros for no error% 

flag error% 

f cs out done% 

endp 

; no error% 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C Sense Interrupt Status (f sis). 

c 

c 

c 

INPUT: 

C OUTPUT: 

c 

C DESTROYS: 

none 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

f sis proc 

call 

mov 

call 

jmp 

f sis endp 

f wdata proc 

call 

jnc 

mov 

mov 

near 


ah,f snsint cmd 

f_put_byte 

f get_byte 

near 

f motor on 

f wd1 

al,2 

cl,al 

no return on error. 

end of command phase. 

no return on error. 

sets carry if motor was off. 

motor was on, skip delay. 

assume slow motor bit% 

1-231


F69A BA 007D 

F69D D3 E2 

F69F BB OOOA 

F6A2 E8 F62E R 

F6A5 32 E4 

F6A7 F7 E2 

F6A9 8B C8 

F6AB 

F6AB E8 EF4C R 

F6AE E2 FB 

F6BO 

F6BO 80 DE 003F R 80 

F6B5 BO 4A 

F6B7 E9 ED77 R 

F6BA 

F6BA 

F6BA DO CO 

F6BC DO CO 

F6BE 24 03 

F6CO 

F6CO BA 0065 

F6C3 EE 

F6C4 C3 

F6C5 

F6C5 

F6C5 E8 F63B R 

F6C8 A8 40 

1-232 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

shl 

mov 

call 

xor 

mul 

mov 

f wd loop: 

call 

f wd1: 

loop 

or 

mov 

jmp 

f wdata endp 

dx, 125 

dx,cl 

bx, 10 

f_get var 

ah,ah 

dx 

cx,ax 

f wait one ms 

f wd loop 

- - 

motor status,080h 

al,04Ah 

f rw common 

125 ms delay to start with. 

125 X 4 

motor start delay parameter. 

returns param. in AL. 

for good measure. 

AX has total delay 

set high bit, indicate write. 


single mode, read transfer 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C f setff 

c 

C routine writes to the fdu rate flip-flops 

C (called in setrate and f check valid.) 

c 

C INPUT: AL- parm to determine rate: eg. diskstate[],lastrate[] 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C f setff proc 

C rol 

rol 

c 

c 

and 

near 

al,1 

al,1 

al,3 

move onto low bits% 

move% 

C ENDIF ; non-beta units use 2 bits for data transfer rate% 

C f dorate: 

C mov 

C out 

c ret 

C f setff endp 

c 

dx,65h 

dx,al 

hold relevant bits% 

rate port% 

set rate% 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C Send a byte to the NEC controller (f put byte) 

c 

c INPUT: AH byte to output. 

c 

C OUTPUT: 

c 

c ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 

c 

C f_put_byte 

c 

c 

c 

c 

proc near 

call f_nec_rdy ; returns MSR byte in AL. 

test al,40h ; direction bit. 

We could put a little more intelligence here to determine why the NEC balked. 


c 


F736 BO 00 c mov al,dma unmask 0 turn on RAM refresh channel 0 

F738 E6 OA c out dma mask bit,al 

c 

c Program p_8253_1 of i8254 p_timer to proper value for RAM refresh. 

c 

F73A BO 74 c mov al,t1cmd select p dma refresh counter 

F73C E6 43 c out p 8253 ctr l, al 

c 

F73E BO 13 c mov al,t1count load p dma refresh count 

F740 E6 41 c out p 8253 1, al 

F742 32 co c xor al,al 

F744 E6 41 c out p 8253 1, al 

c 

c assume CS:COde, ds:nothing, es:nothing, ss:stack_ram 

c 

F746 8C D7 c mov di,ss ; save stack pointer 

F748 8B EC c mov bp,sp 

F74A BA 0030 c mov dx,stack seg 

F74D 8E D2 c mov ss.dx 

F74F BC 0100 c mov sp, 100h 

c 

F752 50 c push ax ; save error code 

c 

c Initialize & Disable 8259A Programmable Interrupt Controller. 

c 

F753 E8 E1A6 R c call i pic init 

F756 E8 E164 R c call i vector 

c 

c Install Vector Table. set int10locn = code_seg:v io, and 

c set int1Dlocn = code seg:v_parms. 

c 

c Initialize Video. 

c 

F759 E8 EOAO R c call i d init 

c 

c Display error message. 

c 

F75C 58 c pop ax restore error code 

c 

F75D E8 E540 R c call DRomString display string at cs:si. 

c 

F760 BE D9CC R c mov si,cs:(offset fail_m) 

F763 E8 E540 R c call DRomString display fail message. 

c 

F766 OA E4 c or ah,ah ah = O? 

F768 74 08 c jz i fatal ret if so, no arguments 

c 

F76A E8 E56C R c call DColon display a colon 

c 

F76D 8A C4 c mov al,ah display error code 

F76F E8 E589 R c call DHexByte 

F772 c i fatal ret: 

F772 E8 E55F R c call DCrlf 

c 



F775 BA 0378 

F778 EC 

F779 34 3F 

F77B EE 

F77C 8E D7 

F77E 8B E5 

F780 F4 

F781 

F781 

F781 

F841 

F841 

F841 FB 

F842 1E 

F843 B8 0040 

F846 8E 08 

F848 A1 0013 R 

F84B 1F 

F84C CF 

F84D 

1-236 

c 

C ;Output fatal error status for manufacturing tests 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

in 

xor 

out 

mov 

mov 

ret 

hlt 

C i fatal endp 

c 

C code ends 

C include mem.asm 

c 

c 

dx,378h 

al,dx 

al,03fh 

dx,al 

parallel port address 

read last checkpoint value 

extract checkpoint number from status 

output " Not OK - number" 


ss,di 

sp,bp 

; restore stack pointer 

c ·====================================================================== 

C Filename: mem. src 

c 

C This module includes INT 12h. 11h. & 15h. 

c 

c ·====================================================================== 

c 



c 

c .---------------------------------------------------------------------c 

INT 12h -- memory size detect 

c .---------------------------------------------------------------------- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

m size 

m size 

ORG 

proc 

assume 

sti 

push 

mov 

mov 

assume 

mov 

pop 

iret 

endp 

OF841h 

near 

CS:COde, ds:nothing, es:nothing, ss:nothing 

ds 

ax,data_seg 

ds.ax 

CS:COde, ds:data, es:nothing, ss:nothing 

ax,word ptr ds:[memory_size] 

ds 


F84D 

F84D 

F84D FB 

F84E 1E 

F84F B8 0040 

F852 8E 08 

F854 A1 0010 R 

F857 1F 

F858 CF 

F859 

F859 



c .--------------------------------------------------------------------c 

INT 11h -- equipment check 

c ·--------------------------------------------------------------------c 

c 

AX returns the following values: 

c 

40:11 

40:10 

c 

I 

--- -- ------------------ - -- 

C I no. I I Ga I no. I of I no. I of I vi Ideo I pla I nar I 2 I di I 

C I I of I - I me I I com I m I - I f I dus I ty I pe I mem I ory I 8 I skI 

C I prn I trs I I I I poI rts I I I I I I I I 7 I I 

c --------l---l---l-----------l---l-------l-------l-------1---l----c 

C No. of printers 0-3 

C Game = 1 => game adapter attached 

C No. of comm ports 0-7 

C No. of fdu's => 00 1 fdu 

c 

c 

c 

c 

c 

c 

c 

Video type => 

01 

10 

01 

10 

11 

C Planar memory always 1 

c 

C 287 = 1 => 287 attached 

c 

C Disk always 1 

c 

c 

c 

c ORG OF84Dh 

c 

C m equip proc near 

2 fdu 

3 fdu 

Monochrome 

Monochrome 

Monochrome 

40 cols 

80 cols 

test 


c 

C sti 

C push ds 

C mov ax, data_ seg 

C mov ds, ax 

c 


c 

c 

c 

c 

c 

c 

mov 

pop 

iret 

C m equip endp 

c 

ax,word ptr ds:[switch_bits] 

ds 

c .---------------------------------------------------------------------- 

( INT 15h -- cassette I/O 

c ·---------------------------------------------------------------------c 

c ORG OF859h 

1-237

F859 

F859 EA 

F85A E6F5 R 

F85C FOOD 

F85E 

F85E 

F85E 

F85F 

F85F 

F85F 50 

F860 E4 62 

F862 24 co 

F864 74 DE 

F866 BE E5FB R 

F869 DO CO 

F86B 72 03 

F86D BE E618 R 

F870 

F870 E8 E540 R 

F873 F4 

F874 

F874 58 

F875 CF 

F876 

F876 

1-238 

c 

C m cass proc far 


c 

c 

c 

c 

stc 

mov 

ret 

C . . iret 

c 

c 

c 

c 

jmp 

db 

dw 

dw 

C m cass endp 

c 

C code ends 

C include nmi.asm 

c 

ah,86h 

2 

word ptr cs:add mem code 

Oeah 

add mem code 

code_seg 

; error 


c ·====================================================================== 

Filename: nmi.src 

c 

c 

C This module includes INT 02h. 

c 

C And ENABLE PARITY 

c 

c ·====================================================================== 

c 

C code 

c 

c 



c ·---------------------------------------------------------------------- 

( INT 02h 

c .---------------------------------------------------------------------- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

n int 

n 1: 

n out: 

n int 

code 

ORG 

proc 

push 

in 

and 

jz 

mov 

rol 

jc 

mov 

call 

hlt 

pop 

iret 

endp 

ends 

OF85Fh 

near 

ax 

al,ControlC High two bits indicate parity. 

al,OCOh Mask of low 6 bits. 

n out It wasn't a parity interrupti 

- 

si,offset parity1_m System board message. 

al,1 

n 1 

si,offset parity2_m Expansion board message. 

DRomString 

ax 


c 

c 

c 

c 

c 

c 

c 

c 

F876 c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

include boot2.asm 

Filename: boot.src 

This module includes INT 19h. 



INT 19h -- Cold boot routine: 

This code reads Track 0, Side 0, Sector 0 into memory at 

0000:7COO and iret's into the secondary boot-strap loader 

Note: The stack looks like this at exit I 11 1 

Output: 

High Address 

1------------------1 Fixed Disk (C:). ] 

These three parameters will 

specify the booted partition 

in the case of the fixed disk. 

(AL) = Number of Sectors read [in order to read 512 bytes. 

(ES:BX) = Address of the transfer [0000:7COO] 

(DS:BX) 

(CS:IP) =Address of entry point [0000:7COO] 

(SS:SP) = Stack Segment and Pointer are left intact from the INT 

19h invocation for multi-tasking environments. 

(IF) = The interrupt enable flag is left intact from the INT 

19h invocation for multi-tasking environments. 

Trash: bp destoryed. (si, di, & bp preserved.) 



F876 

F876 FB 

F877 55 

F878 56 

F879 2E: 8E 1E E538 R 

F87E BE 0935 R 

F881 E8 E540 R 

F884 32 DB 

F886 53 

F887 

F887 33 CO 

F889 8E 08 

F88B 8E CO 

c ·====================================================================== 

c 

C bt int proc near 


c 

c 

c 

c 

c 

c , , 

c , , 

c 

c 

c 

c 

c 

c 

c 

sti 

push 

push 

bp 

si 


save BP & SI 

c assume ds:data 

C mov ds,word ptr cs:(set_ds_word] 

C ; ; ; EGA2 fix 

mov word ptr ds:(master_tbl_ptr+OOOOh],cs:(offset mastab) 

mov word ptr ds:(master_tbl ptr+0002h],cs 

mov 

call 

xor 

push 

si,cs:(offset bt_m) 

DRomString 

bl,bl 

bx 

C assume ds:absO, es:absO 

c bt 0: 

C xor 

C mov 

mov 

c 

c 

F88D C7 06 0078 R EFC7 R C 

F893 8C OE 007A R C 

F897 BD 0003 

F89A 

F89A 33 CO 

F89C 8B 08 

F89E 8B C8 

F8AO 8B DO 

F8A2 CD 13 

F8A4 72 OA 

F8A6 B8 0201 

F8A9 B7 7C 

F8AB 41 

1-240 

ax,ax 

ds,ax 

es,ax 

C Reset fd parms table vector. 

c 

c 

mov 

mov 

C Initialize retry loop. 

c 

C mov bp,3 

c bt i: 

c 

C Initialize the drive. 

c 

c 

c 

c 

c 

c 

c 

c 

xor 

mov 

mov 

mov 

INT 

jc 

reset master table ptr to ROM 

satisfy assumption 

boot strap message 

print banner 

disable error message blinking 

save blink status 

boot strap outer loop 

AX= absO seg. 


word ptr ds:(int1Elocn+O],cs:(offset fd_parms) 

word ptr ds:(int1Elocn+2],cs 

ax,ax 

bx,ax 

cx,ax 

dx,ax 

13h 

bt nxt 

C Read the boot sector. 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

mov 

inc 

ax,0201h 

bh,7Ch 

ex 

retry counter 

boot retry inner loop 

AX = 0. 

BX = 0. 

ex = o. 

ox= 0. 

try again, if error 

read one sector 

bl = 0. 

xfer address= ES:BX = 0:7COO 

ex = 0. 

track 0; sector 1 

dx = 0. 

head 0; drive 0 


F90E 

F90E 50 

F90F BA 0070 

F912 EC 

F913 

F913 BA 007C 

F916 E8 F96C R 

F919 8A E8 

F91B B2 7B 

F91D E8 F97F R 

F920 48 

F921 8B D8 

F923 E8 F97F R 

F926 48 

F927 8B DO 


c 

c 

c 

c 

c 

c Trash: 

ch = 

cl = 

dh = 

dl = 

None. 

hour 

minutes 

seconds 

hundredths of seconds 


c ·====================================================================== 

c 

C c read proc near 

C assume cs:code. ds:nothing. es:nothing. ss:nothing 

c 

C Save registers. 

c 

c 

c 

C Years. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

years: 

push 

mov 

in 

mov 

mov 

in 

in 

call 

mov 

Months. 

Days. 

ax 

dx,70h 

al.dx 

dx.7Fh 

dx.7Ch 

al.dx 

al.dx 

c rBCD 

ch,al 

mov bx.ax 

dec dx 

dx was dec inc rhex to 79 already. 

call c rhex 

dec ax 

C Calculate Day (ax has day). 

c 

c 

c 

mov dx.ax 

C Calculate Month (bx has month). 

c 

:: clear data changed flag 

... 

; interrupts (years mod 8)% 

: units year port% 

;% 

;% 

al = years 

ch = saves year mod 8 

c 7Ch por·t = tens of mths for MM5827 4A chip% 

;mov dl.07Ch dl = tens of months port = 7Ch% 

mov dl,07Bh 

dl = tens of mths port. MM58274A chip% 

call c rhex 

Input: dl = tens of mon.s port = 7Ch 

dec ax 

Output: ax = hex of months (1-12) 

dx = day of week port = 7Ah 

ax = map month (1-12) to month (0-11) 

bx = saves month (0-11) 

: dl = tens of days port = 79h 

hence comment out original dec dx inst% 

Input: dl = tens of days port = 79h 

Output: ax = hex of days (1-?) 

dx = tens of hours port = 77h 

ax = map days (1-?) to days (0-?) 

: dx = day 

1-243


F929 48 c dec bx previous month 

F92A 7S OS c 

c 

js c rmo jump if it was zero 

F92C c c rmlp: 

F92C ES FA41 R c call c gdays get days per month 

F92F 03 DO c add dx,ax dx = day + current month 

F931 48 c dec bx previous month 

F932 79 FS c 

c 

jns c_rmlp 

F934 c c rmO: zero case 

c dx = day + month 

c 

c 

Calculate Year (ch has month). 

F934 33 DB c xor bx,bx clear bh 

F936 SA DO c mov bl,ch get year mod S 

F93S 01 E3 c shl bx, 1 make word index 

F93A 2E: 03 97 FSF2 R c 

c 

add dx,word ptr cs:[bx+c_dy_yr] 

F93F SB DA c 

c 

mov bx,dx : bx = day + month + year 

c 

c 

Hours. 

F941 82 77 c mov dl,077h dl = tens of hours port = 77h 

F943 ES F97F R c call c rhex Input: dl = tens of hours port = 77h 

c Output: ax = hexadecimal of hours 

c dx = tens of min.s port = 75h 

F946 SA ES c 

c 

mov ch,al ch = hours 

c Minutes. 

c dl = tens of minutes port = 75h 

F94S ES F97F R c call c rhex Input: dl = tens of min.s port = 75h 

c Output: ax = hexadecimal of minutes 

c dx = tens of sec.s port= 73h 

F94B SA CS c 

c 

mov cl,al cl = minutes 

c Seconds. 

c dl = tens of seconds port = 73h 

F94D ES F97F R c call c rhex Input: dl = tens of sec.s port = 73h 

c Output: ax = hexadecimal of seconds 

c dx = tenths of sees port = 71h 

F950 SA FO c 

c 

mov dh,al dh = seconds 

F952 52 c 

c 

c 

push dx save seconds (dh) 

c 

c 

Hundredths of Seconds. 

c dl = tenths of seconds port = 71h 

F953 ES F96C R c call c rBCD al = tenths of seconds 

F956 SA EO c mov ah,al move tenths of seconds to high byte 

F95S 32 co c xor al,al ax = BCD of hundredths of seconds 

F95A ES F989 R c 

c 

call c BCD2hex ax = hex of hundredths of seconds 

F95D 50 

F95E BA 0070 

c 

c 

push 

mov 

ax 

dx,70h 

save ax '''' 

read the data changed flag 

'''' 


F961 EC c in al,dx again 


F962 AS 08 c test al,Sh if bit is set then reread the chip 

F964 58 c pop ax reset ax 

F965 SA c pop dx ; restore seconds (dh) 

F966 75 AB c jnz years 

c 

F968 SA DO c mov dl,al dl = hex of hundredths of seconds 

c 

c Restore registers. 

c 

c 

F96A 58 c pop ax 

F96B C3 c ret 

c 

F96C 51 c c rBCD: push ex save ex 

F96D B9 0003 c mov cx,3 try 3 times only I! 1 

F970 32 F6 c xor dh,dh clear dh 

c 

F972 EC c c rBlp: in al,dx get the byte 

F973 24 OF c and al,OFh clear high nibble 

F975 3C OA c cmp al, 10 is it less than 10? 

F977 72 04 c jb c rBret if so, return 

c 

F979 E2 F7 c loop c rBlp else, try again 

F97B BO 01 c mov al,1 if timeout, return one. 

c 

F97D c c rBret: 

F97D 59 c pop ex restore ex 

F97E C3 c ret 

F97F c c read endp 

F97F c c rhex proc near 

c 

c 

c END IF 

c END IF 

c .---------------------------------------------------------------------c 

Convert to Hex (c rhex) 

c 

c Inputs both BCD bytes and converts to hexdecimal word. 

c 

c Input: dl = pointer to tens of whatever port 

c Output: ax = hexadecimal word (ah = 0) 

c dx = pointer to tens of previous port (dh = 0) 

c 


c .---------------------------------------------------------------------c 


c 

F97F E8 F96C R c call c rBCD in from tens of whatever 

F982 SA EO c mov ah,al move tens of whatever to high byte 

F984 4A c dec dx dx points to units of whatever port 

F985 E8 F96C R c call c rBCD in from units of whatever 

F988 4A c dec dx dx points to tens of previous port 

c 



F989 

F989 

F989 8A F4 

F98B DO E6 

F98D DO E6 

F98F 02 F4 

F991 DO E6 

F993 02 C6 

F995 32 E4 

F997 32 F6 

F999 C3 

F99A 

F99A 

F99A 80 F9 3C 

F99D 72 01 

F99F C3 

F9AO 

F9AO 80 FD 18 

F9A3 72 01 

1-246 

c 

c 

jmp 

C c rhex endp 

short c BCD2hex fall through 

c 

c .--------------------------------------------------------------------c 

C BCD to Hexadecimal ( c BCD2hex) 

c 

C Input: ah = high BCD digit 

C al = low BCD digit 

C Output: ax = hexadecimal byte (ah = 0) 

c dh = 0 


c ·---------------------------------------------------------------------- 

c 

C c BCD2hex 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c BCD2hex 

mov 

shl 

shl 

add 

shl 

add 

xor 

xor 

ret 

c 

c ·---------------------------------------------------------------------- 

IF G4TOD 

proc near 

assume cs:code. ds:nothing, es:nothing, ss:nothing 

dh,ah dh = hi BCD digit 

dh,1 dh = 2*(hi BCD digit) 

dh, 1 dh = 4*(hi BCD digit) 

dh,ah dh = 5*(hi BCD digit) 

dh,1 dh = 10*(hi BCD digit) 

al,dh al = 10*(hi BCD digit)+(low BCD digit) 

ah,ah ax = 10*(hi BCD digit)+(low BCD digit) 

dh,dh dh = 0 

endp 

c Write Clock Calendar Device (c write) 

c 

C Input: ah = -1 

c 

c 

c 

c 

bx = day (from 1-1 of leap year up to 12-31 of leap year+7) 

(0-2921) = (0-B69h) 

ch = hour (0-23) 

cl = minutes (0-59) 

C Output: ah = -1 implies date/time error 

C ah = 0 implies date/time OK 


c .---------------------------------------------------------------------- 

( 

c c write proc near 


c 

C Check for errors. 

c 

c 

c 

c 

c 

c 

c 

label1: 

cmp 

jb 

ret 

cmp 

jb 

cl,60 

label1 

ch,24 

label2 

cl = minutes (0-59) 

jif within the range% 

return (c_werr too far) % 

ch = hour (0-23) 

jif within the range% 



F9D4 BB 0010 c mov bx. (8*2) word index of year 

F9D7 c c_wylp: 

F9D7 4B c dec bx 

F9D8 4B c dec bx 

F9D9 2E: 3B 97 F8F2 R c cmp dx,word ptr cs:[bx+c dy yr] 

F9DE 72 F7 c jb c_wylp 

c 

F9EO 2E: 2B 97 F8F2 R c sub dx,word ptr cs:[bx+c dy yr] dx = saves day of year 

F9ES D1 EB c shr bx,1 bl = year mod 8 

F9E7 8A EB c mov ch,bl ch = saves year mod 8 

c 

c Calculate LEAP YEAR counter for clock setting register% 

F9E9 B8 0004 c mov ax,4 ;% 

F9EC 3B C3 c cmp ax,bx check if year is > 4% 

F9EE 72 04 c jb leap1 jif less than 4 since 1984% 

F9FO 2B C3 c sub ax,bx ax = year since 1984 modulo 4% 

F9F2 8B D8 c mov bx,ax so that bx = modulo 4 LEAP% 

c YEAR counter since 1984% 

F9F4 c leap1: ;% 

F9F4 8B C3 c mov ax,bx ;% 

F9F6 D1 EO c shl ax,1 ; Shift LEAP COUNTER into pro-% 

F9F8 D1 EO c shl ax,1 ;% 

c bit position for clock reg% 

F9FA DC 01 c or al, 1 set 24-hour mode% 

F9FC E6 7F c out 7Fh,al set LEAP counter & 24-hour% 

c 

c Calculate Days & Months. 

c 

F9FE BB FFFF c mov bx,-1 start at January 

FA01 c c wmlp: 

FA01 43 c inc bx next month 

FA02 E8 FA41 R c call c_gdays get days per month 

FADS 2B DO c sub dx,ax 

FA07 73 F8 c jae c wmlp 

c bx = month (0-11) 

FA09 03 C2 c add ax,dx ax = day (0-?) 

c 

c Days. 

c 

FAOB B2 78 c mov dl,078h dl = units of days port = 78h 

FAOD 40 c inc ax al = map days (0-?) to days (1-?) 

FADE E8 FA30 R c call c whex Input: al = hexadecimal of days 

c dl = units of days port = 78h 

c Output: ax = trash 

c dx = day of week port = 7Ah 

c For MM58274 chip 7Ah is Units Months port 

c Months. 

c 

c inc dx ; dl = units of months port = 7Bh% 

c comment out the above because 7Ah is already units of months% 

FA11 8B C3 c mov ax,bx al = month (0-11) 

FA13 40 c inc ax al = map month (0-11) to month (1-12) 

FA14 E8 FA30 R c call c whex Input: al = hexadecimal of months 

c dl = units of mon.s port = 7Bh 

c Output: ax = trash 


FA17 8A CS 

FA19 E6 7C 

FA18 88 0002 

FA1E E6 70 

FA20 88 0008 

FA23 E6 7F 

FA25 33 co 

FA27 E6 70 

FA29 SA 

FA2A 59 

FA28 58 

FA2C 58 

FA20 32 E4 

FA2F 

FA2F C3 

FA30 



C dx = leap year port = 7Dh 

C Leap Years. 

mov al,08h 

mov cl,ch 

and cl,03h 

shr al,cl 

out dx,al 

C ; dx = leap year port = 7Dh, MM58274A% 

c 

C Years. 

c 

c inc dx 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

inc dx 

mov al.ch 

or al,08h 

out dx,al% 

nap% 

in al,dx% 

nap% 

in al,dx% 

nap% 

Start Clock. 

in al,dx% 

mov al,ch 

out 7Ch,al 

mov al,OFFh 

dec dx 

out dx,al 

mov ax,2 

out 70h,al 

mov ax,08h 

out 7Fh,al 

xor ax,ax 

out 70h,al 

Restore registers. 

c werr: 

pop dx 

pop ex 

pop bx 

pop ax 

xor ah,ah 

ret 

c write endp 

END IF 

;% 

dx = stop/start = 7Eh% 

dx = interrupt = 7Fh% 

get year mod 8% 

set 'repeated interrupt' bit% 

get year since beginning of time % 

units year port% 

al = OFFh% 

dx = stop/start = 7Eh% 

start clock% 

; select the interrupt register% 

; repeated interrupts, every second% 

;% 

;% 

; start the clock% 

ah = 0 no error 

1-249


FA30 

FA30 32 E4 

FA32 B6 OA 

FA34 F6 F6 

FA36 86 C4 

FA38 32 F6 

FA3A EE 

FA3B 8A C4 

FA3D 42 

FA3E EE 

FA3F 42 

FA40 C3 

FA41 

FA41 

FA41 33 CO 

FA43 2E: 8A 87 F902 R 

FA48 80 FB 01 

FA4B 75 06 

FA4D F6 CS 03 

1-250 

C ENDIF 

c ·---------------------------------------------------------------------c 

Converts hexadecimal byte to BCD and outputs both bytes. (c whex) 

c 

C Input: al = hexadecimal byte 

C dl = pointer to units of whatever port 

C Output: dx = pointer to units of next port (dh = 0) 

c 

C Trash: ax destroyed. 

c .---------------------------------------------------------------------c 

C c whex proc near 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

xor 

mov 

div 

xchg 

xor 

out 

mov 

inc 

out 

inc 

ret 

C c whex endp 

ah,ah 

dh,10 

dh 

al,ah 

dh,dh 

dx,al 

al,ah 

dx 

dx,al 

dx 

ax = hexadecimal byte 

dh = divisor 

ah = remainder = low BCD digit (0-9) 

al = quotient = high BCD digit 

ah = quotient = high BCD digit 

al = remainder = low BCD digit (0-9) 

dx points to units of whatever port 

out to units of whatever 

move tens of whatever to low byte 

dx points to tens of whatever port 

out to tens of whatever 

dx points to units of next port 

c 

c .--------------------------------------------------------------------c 

C Get Days per Month. ( c _gdays) 

c 

C This routine calculates the number of days 

C per month based on the year without checking validity of month. 

c 

c 

c 

c 

c 

Input: bx 

ch 

Output: ax 


= month (assumes bx < 12) 

= year 

= days in month, if month valid: else garbage 

c .---------------------------------------------------------------------c 

C c_gdays proc near 


c 

c 

c 

c 

c 

c 

c 

c 

xor 

mov 

cmp 

jnz 

test 

ax,ax 

al,cs:[bx+c_dy_mo] 

bl,1 

c gret 

ch,03h 

: clear ah 

is is February? 

if not February, return 

if year= 0 mod 4, leap year 

ROM BIOS Listing;


FAF6 02 DE 3E FE 3E DE c DB 02h,Oeh,3eh,Ofeh,3eh,Oeh,02h,OOh 11 

02 00 c 

FAFE 18 3C 7E 18 18 7E c DB 18h,3ch,7eh, 18h, 18h,7eh,3ch,18h 12 

3C 18 c 

FB06 66 66 66 66 66 00 c DB 66h,66h,66h,66h,66h,OOh,66h,OOh 13 

66 00 c 

FBOE 7F DB DB 7B 1B 1B c DB 7fh,Odbh,Odbh,7bh,1bh,1bh, 1bh,OOh 14 

1B 00 c 

FB16 3E 63 38 6C 6C 38 c DB 3eh,63h,38h,6ch,6ch,38h,Occh,78h 15 

cc 78 c 

FB1E 00 00 00 00 7E 7E c DB OOh,OOh,OOh,OOh,7eh,7eh,7eh,OOh 16 

7E 00 c 

FB26 18 3C 7E 18 7E 3C c DB 18h,3ch,7eh,18h,7eh,3ch,18h,Offh 17 

18 FF c 

FB2E 18 3C 7E 18 18 18 c DB 18h,3ch,7eh,18h,18h,18h,18h,OOh 18 

18 00 c 

FB36 18 18 18 18 7E 3C c DB 18h,18h,18h,18h,7eh,3ch,18h,OOh 19 

18 00 c 

FB3E 00 18 OC FE OC 18 c DB OOh,18h,Och,Ofeh,Och,18h,OOh,OOh 1a 

00 00 c 

FB46 00 30 60 FE 60 30 c DB OOh,30h,60h,Ofeh,60h,30h,OOh,OOh 1b 

00 00 c 

FB4E 00 00 CO CO CO FE c DB OOh,OOh,OcOh,OcOh,OcOh,Ofeh,OOh,OOh 1c 

00 00 c 

FB56 00 24 66 FF 66 24 c DB OOh,24h,66h,Offh,66h,24h,OOh,OOh 1d 

00 00 c 

FB5E 00 18 3C 7E FF FF c DB OOh,18h,3ch,7eh,Offh,Offh,OOh,OOh 1e 

00 00 c 

FB66 00 FF FF 7E 3C 18 c DB 00h,Offh,Offh,7eh,3ch, 18h,OOh,OOh 1f 

00 00 c 

FB6E 00 00 00 00 00 00 c DB OOh,OOh,OOh,OOh,OOh,OOh,OOh,OOh 20 

00 00 c 

FB76 30 78 78 30 30 00 c DB 30h,78h,78h,30h,30h,OOh,30h,OOh ; 'I' 21 

30 00 c 

FB7E 6C 6C 6C 00 00 00 c DB 6ch,6ch,6ch,OOh,OOh,OOh,OOh,OOh ; '" ' 22 

00 00 c 

FB86 6C 6C FE 6C FE 6C c DB 6ch,6ch,Ofeh,6ch,Ofeh,6ch,6ch,OOh ; '#' 23 

6C 00 c 

FB8E 30 7C CO 78 OC F8 c DB 30h,7ch,OcOh,78h,Och,Of8h,30h,OOh ; '$' 24 

30 00 c 

FB96 00 C6 CC 18 30 66 c DB OOh,Oc6h,Occh, 18h,30h,66h,Oc6h,00h ; '%' 25 

C6 00 c 

FB9E 38 6C 38 76 DC CC c DB 38h,6ch,38h,76h,Odch,Occh,76h,OOh ; '&' 26 

76 00 c 

FBA6 60 60 co 00 00 00 c DB 60h,60h,OcOh,OOh,OOh,OOh,OOh,OOh 27 

00 00 c 

FBAE 18 30 60 60 60 30 c DB 18h,30h,60h,60h,60h,30h,18h,OOh ; ' (' 28 

18 00 c 

FBB6 60 30 18 18 18 30 c DB 60h,30h,18h,18h,18h,30h,60h,OOh ; ')' 29 

60 00 c 

FBBE 00 66 3C FF 3C 66 c DB OOh,66h,3ch,Offh,3ch,66h,OOh,OOh . '*1 2a 

00 00 c 

FBC6 00 30 30 FC 30 30 c DB OOh,30h,30h,Ofch,30h,30h,OOh,OOh '+' 2b 

00 00 c 

FBCE 00 00 00 00 00 30 c DB OOh,OOh,OOh,OOh,OOh,30h,30h,60h , ' 2c 

1-252 


30 60 c 

FBD6 00 DO DO FC 00 DO c DB OOh,OOh,OOh,Ofch,OOh,OOh,OOh,OOh - 2d 

00 00 c 

FBDE 00 00 00 00 00 30 c DB OOh,OOh,OOh,OOh,OOh,30h,30h,OOh 2e 

30 00 c 

FBE6 06 DC 18 30 60 CO c DB 06h,Och, 18h,30h,60h,OcOh,80h,OOh ; , I, 2f 

80 00 c 

FBEE 7C C6 CE DE F6 E6 c DB 7ch,Oc6h,Oceh,Odeh,Of6h,Oe6h,7ch,00h ; '0' 30 

7C 00 c 

FBF6 30 70 30 30 30 30 c DB 30h,70h,30h,30h,30h,30h,Ofch,OOh ; '1' 31 

FC 00 c 

FBFE 78 CC DC 38 60 CC c DB 78h,Occh,Och,38h,60h,Occh,Ofch,OOh ; '2' 32 

FC 00 c 

FC06 78 CC DC 38 DC CC c DB 78h,Occh,Och,38h,Och,Occh,78h,OOh ; '3' 33 

78 00 c 

FCOE 1C 3C 6C CC FE DC c DB 1ch,3ch,6ch,Occh,Ofeh,Och,1eh,OOh ; '4' 34 

1E 00 c 

FC16 FC CO F8 DC DC CC c DB Ofch,Oc0h,Of8h,Och,Och,Occh,78h,OOh ; '5' 35 

78 00 c 

FC1E 38 60 CO F8 CC CC c DB 38h,60h,OcOh,Of8h,Occh,Occh,78h,OOh ; '6' 36 

78 00 c 

FC26 FC CC DC 18 30 30 c DB Ofch,Occh,Och, 18h,30h,30h,30h,OOh ; '7' 37 

30 00 c 

FC2E 78 cc cc 78 cc cc c DB 78h,Occh,Occh,78h,Occh,Occh,78h,OOh ; '8' 38 

78 00 c 

FC36 78 CC CC 7C DC 18 c DB 78h,Occh,Occh,7ch,Och,18h,7Dh,OOh ; '9' 39 

70 00 c 

FC3E 00 30 30 00 00 30 c DB OOh,30h,30h,OOh,OOh,30h,30h,OOh 3a 

30 00 c 

FC46 00 30 30 00 00 30 c DB OOh,30h,30h,OOh,OOh,30h,30h,60h ; 3b 

30 60 c 

FC4E 18 30 60 co 60 30 c DB 18h,30h,60h,OcOh,60h,30h,18h,OOh ; '


FCAE CC CC CC FC CC CC c DB Occh,Occh,Occh,Ofch,Occh,Occh,Dcch,OOh ; 'H' 48 

cc 00 c 

FCB6 78 30 30 30 30 30 c DB 78h,30h,30h,30h,30h,30h,78h,00h ; , I, 49 

78 00 c 

FCBE 1E DC DC DC CC CC c DB 1eh,Och,Och,Och,Occh,Occh,78h,OOh ; 'j' 4a 

78 00 c 

FCC6 E6 66 6C 78 6C 66 c DB Oe6h,66h,6ch,78h,6ch,66h,Oe6h,OOh ; 'K' 4b 

E6 00 c 

FCCE FO 60 60 60 62 66 c DB OfOh,60h,60h,60h,62h,66h,Ofeh,OOh ; 'L' 4c 

FE 00 c 

FCD6 C6 EE FE FE D6 C6 c DB Oc6h,Oeeh,Ofeh,Ofeh,Od6h,Oc6h,Oc6h,OOh ; 'M' 4d 

C6 00 c 

FCDE C6 E6 F6 DE CE C6 c DB Oc6h,Oe6h,Of6h,Odeh,Oceh,Oc6h,Oc6h,OOh ; 'N' 4e 

C6 00 c 

FCE6 38 6C C6 C6 C6 6C c DB 38h,6ch,Oc6h,Oc6h,Oc6h,6ch,38h,OOh ; '0' 4f 

38 00 c 

FCEE FC 66 66 7C 60 60 c DB Ofch,66h,66h,7ch,60h,60h,OfOh,OOh ; 'P' 50 

FO 00 c 

FCF6 78 CC CC CC DC 78 c DB 78h,Occh,Occh,Occh,Odch,78h, 1ch,OOh ; 'Q' 51 

1C 00 c 

FCFE FC 66 66 7C 6C 66 c DB Ofch,66h,66h,7ch,6ch,66h,Oe6h,OOh ; 'R' 52 

E6 00 c 

FD06 78 CC EO 70 1C CC c DB 78h,Occh,Oe0h,70h,1ch,Occh,78h,OOh ; 's' 53 

78 00 c 

FDOE FC B4 30 30 30 30 c DB Ofch,Ob4h,30h,30h,30h,30h,78h,OOh ; 'T' 54 

78 00 c 

FD16 cc cc cc cc cc cc c DB Occh,Occh,Occh,Occh,Occh,Occh,Ofch,OOh ; 'U' 55 

FC DO c 

FD1E cc cc cc cc cc 78 c DB Occh,Occh,Occh,Occh,Occh,78h,30h,OOh ; 'V, 56 

30 00 c 

FD26 C6 C6 C6 D6 FE EE c DB Oc6h,Oc6h,Oc6h,Od6h,Ofeh,Oeeh,Oc6h,OOh ; 'W' 57 

C6 00 c 

FD2E C6 C6 6C 38 38 6C c DB Oc6h,Oc6h,6ch,38h,38h,6ch,Oc6h,OOh ; 'X' 58 

C6 DO c 

FD36 cc cc cc 78 30 30 c DB Occh,Occh,Occh,78h,30h,30h,78h,OOh ; 'Y' 59 

78 00 c 

FD3E FE C6 8C 18 32 66 c DB Ofeh,Oc6h,8ch,18h,32h,66h,Ofeh,OOh ; 'Z' Sa 

FE 00 c 

FD46 78 60 60 60 60 60 c DB 78h,60h,60h,60h,60h,60h,78h,OOh ; '[' Sb 

78 00 c 

FD4E CO 60 30 18 DC 06 c DB OcOh,60h,30h,18h,Och,06h,02h,OOh ; •' Sc 

02 00 c 

FD56 78 18 18 18 18 18 c DB 78h,18h, 18h,18h,18h,18h,78h,00h ;']' Sd 

78 00 c 

FDSE 10 38 6C C6 00 00 c DB 10h,38h,6ch,Oc6h,OOh,OOh,OOh,OOh Se 

00 00 c 

FD66 00 00 00 00 00 DO c DB OOh,OOh,OOh,OOh,OOh,OOh,OOh,Offh Sf 

00 FF c 

FD6E 30 30 18 00 00 00 c DB 30h,30h,18h,OOh,OOh,OOh,OOh,OOh 60 

00 00 c 

FD76 00 00 78 DC 7C CC c DB OOh,OOh,78h,Och,7ch,Occh,76h,OOh ; 'a' 61 

76 00 c 

FD7E EO 60 60 7C 66 66 c DB OeOh,60h,60h,7ch,66h,66h,Odch,OOh ; 'b' 62 

DC 00 c 

FD86 00 00 78 cc co cc c DB OOh,OOh,78h,Occh,OcOh,Occh,78h,OOh ; 'c · 63 

1-254 


78 DO c 

FD8E 1C DC DC 7C CC CC c DB 1ch,Och,Dch,7ch,Occh,Dcch,76h,DOh ; 'd' 64 

76 DO c 

FD96 DO DO 78 CC FC CO c DB DOh,DDh,78h,Occh,Ofch,DcDh,78h,DOh ; , e, 65 

78 DO c 

FD9E 38 6C 60 FO 60 60 c DB 38h,6ch,60h,Of0h,60h,60h,Of0h,OOh ; 'f' 66 

FO DO c 

FDA6 DO DO 76 CC CC 7C c DB OOh,OOh,76h,Occh,Occh,7ch,Och,Of8h ; 'g' 67 

DC F8 c 

FDAE EO 60 6C 76 66 66 c DB OeOh,60h,6ch,76h,66h,66h,Oe6h,OOh ; 'h' 68 

E6 DO c 

FDB6 30 DO 70 30 30 30 c DB 30h,OOh,70h,30h,30h,30h,78h,OOh ; 'i' 69 

78 00 c 

FDBE DC DO DC DC OC CC c DB Och,ODh,Och,Och,Och,Occh,Occh,78h ; 'j' 6a 

cc 78 c 

FDC6 EO 60 66 6C 78 6C c DB DeOh,6Dh,66h,6ch,78h,6ch,Oe6h,OOh ; 'k' 6b 

E6 DO c 

FDCE 70 30 30 30 30 30 c DB 70h,3Dh,30h,30h,3Dh,3Dh,78h,OOh ; '1' 6c 

78 DO c 

FDD6 00 00 CC FE FE D6 c DB OOh,OOh,Occh,Ofeh,Ofeh,Od6h,Oc6h,OOh ; 'm' 6d 

C6 DO c 

FDDE DO DO F8 CC CC CC c DB OOh,ODh,Of8h,Occh,Occh,Occh,Occh,OOh ; , n, 6e 

CC DO c 

FDE6 00 DO 78 CC CC CC c DB OOh,OOh,78h,Occh,Occh,Occh,78h,OOh ; 'o' 6f 

78 DO c 

FDEE DO DO DC 66 66 7C c DB OOh,OOh,Odch,66h,66h,7ch,60h,OfOh ; 'p' 70 

60 FO c 

FDF6 00 00 76 CC CC 7C c DB ODh,OOh,76h,Occh,Occh,7ch,Dch,1eh ; 'q' 71 

DC 1E c 

FDFE DO DO DC 76 66 60 c DB OOh,ODh,Odch,76h,66h,60h,OfOh,OOh ; , r' 72 

FO 00 c 

FE06 00 DO 7C CO 78 DC c DB OOh,ODh,7ch,OcOh,78h,Och,Of8h,OOh ; , s' 73 

F8 DO c 

FEOE 10 30 7C 30 30 34 c DB 10h,3Dh,7ch,3Dh,3Dh,34h, 18h,OOh ; 't' 74 

18 DO c 

FE16 00 DO CC CC CC CC c DB OOh,OOh,Occh,Occh,Occh,Occh,76h,OOh ; 'u' 75 

76 DO c 

FE1E DO DO CC CC CC 78 c DB OOh,OOh,Occh,Occh,Occh,78h,30h,OOh ; 'v' 76 

30 DO c 

FE26 DO DO C6 D6 FE FE c DB OOh,ODh,Oc6h,Od6h,Ofeh,Ofeh,6ch,OOh ; 'w' 77 

6C DO c 

FE2E 00 DO C6 6C 38 6C c DB OOh,OOh,Oc6h,6ch,38h,6ch,Oc6h,OOh ; , x' 78 

C6 DO c 

FE36 00 DO CC CC CC 7C c DB OOh,OOh,Occh,Occh,Occh,7ch,Och,Of8h ;'y' 79 

DC F8 c 

FE3E DO DO FC 98 30 64 c DB OOh,OOh,Ofch,98h,30h,64h,Ofch,OOh ; 'z' 7a 

FC 00 c 

FE46 1C 30 30 EO 30 30 c DB 1ch,3Dh,3Dh,Oe0h,3Dh,3Dh,1ch,DDh ; ' {' 7b 

1C DO c 

FE4E 18 18 18 DO 18 18 c DB 18h,18h,18h,DDh,18h,18h,18h,OOh ; 'I' 7c 

18 DO c 

FE 56 EO 30 30 1C 30 30 c DB Oe0h,30h,30h,1ch,3Dh,3Dh,OeOh,OOh ; '}' 7d 

EO 00 c 

FE5E 76 DC 00 DO 00 00 c DB 76h,Odch,OOh,OOh,OOh,OOh,OOh,OOh 7e 

DO DO c 




FE66 00 10 38 6C C6 C6 

FE6E 

FE6E 

FE6E 

FE6E 

FE6E 

1-256 

FE 00 

c 

c 

C ;End of font matrix 

c 

C fontlo8 endp 

code ends 

C include rtc.asm 

c 

DB 00h.10h.38h,6ch,Oc6h.Oc6h,Ofeh,OOh 

" 7f 

c ·====================================================================== 

c 

c 

Filename: rtc.src 

C This module includes INT 08h & 1Ah. 

c 

c ·====================================================================== 

c 

c code segment public 'ROM' 

C assume cs:code, ds:nothing, es:nothing. ss:nothing 

c 

c ·====================================================================== 

C INT 1Ah -- Time of Day Software Interrupt Request Routine 

c 

C Input: ah = 0 Read the Clock, then: 

C Output: ex = High Portion of Clock (t_hi_order) 

c 

c 

c 

c 

c 

c 

c 

c 

dx = 

Input: ah = 

Low Portion of Clock (t low_order) 

al = 1 if 24 hours have elapsed (t overflow); 0 otherwise 

ex = 

dx = 

Trash: ah = 

Set the Clock, then: 

High Portion of Clock (t_hi_order) 

Low Portion of Clock (t low order) 

(ah - 1) if ah 0,-1, or -2 

c ·====================================================================== 

C Input: ah = -1 Write Clock Calendar Device, then: 

C bx = day (from 1-1 of leap year up to 12-31 of leap year+?) 

C (0-2921) = (O-B69h) 

c ch = hour (0-23) 

C cl = minutes (0-59) 

C Output: ah = -1 implies date/time error 

C ah = 0 implies date/time OK 

c 

c 

c 

c 

c 

c 

c 

c 

Input: ah = -2 Read Clock Calendar Device. then: 

Output: bx = day (from 1-1 of leap year up to 12-31 of leap year+7) 

ch = hour 

cl = 

dh = 

dl = 


minutes 

seconds 

hundredths of seconds 

c ·====================================================================== 

c 

C ORG OFE6Eh 

c 

C t_day proc near 




c 

FE6E FB c sti enable interrupts 

c 

FE6F 80 FC FE c cmp ah,OFEh ZF set if FEh, CF reset if FFh 

FE72 75 04 c jne t nFE ah = -2 = OFEh ? 

c 

FE74 E8 F90E R c call c read read calendar chip 

FE77 CF c iret 

FE78 c t nFE: 

c 

FE78 72 04 c jb t nFF ah = -1 = DFFh > DFEh ? 

c 

FE7A E8 F99A R c call c write set calendar chip 

FE7D CF c iret 

FE7E c t nFF: 

c 


c 

FE7E 1E c push ds save registers 

FE7F E8 E53A R c call set ds satisfy assumptions 

c 

FE82 FA c eli interrupts offl 

c (shared variables) 

c 

FE83 8D EC D1 c sub ah, 1 DON'T DECREMENT (CF needed!) 

FE86 73 DO c jae t set ah = D < 1? 

c 

c Read Time of Day. 

c 

FE88 32 E4 c xor ah,ah ah = 0 & ZF setl 

FE8A 8B DE DD6E R c mov cx,word ptr ds:[t_hi_order] 

FE8E 8B 16 D06C R c mov dx,word ptr ds:[t_low_order] 

FE92 AD DD7D R c mov al,byte ptr ds:[t overflow] t_overflow = D by setting timel 

c fall through (ah = 0 & ZF set) 

c 

FE95 75 DC c t set: jnz t end was ah = 1? (is ah = D now)? 

c 

c Set Time of Day. 

c 

FE97 89 DE OD6E R c mov word ptr ds:[t hi order],cx it's ok, if we fell through. 

FE9B 89 16 DD6C R c mov word ptr ds:[t_low_order],dx (a bit slower, but smaller!) 

FE9F 88 26 D07D R c mov byte ptr ds:[t_overflow],ah ah = D (in all cases ... ) 

c 

FEA3 1F c t end: pop ds restore registers 

FEA4 CF c iret 

c 

FEA5 c t_day endp 

c 

c ·====================================================================== 

c INT D8h -- i8254 p timer Hardware Interrupt Service Routine 

c ·====================================================================== 

c 

FEA5 c ORG DFEA5h 

c 



FEA5 

FEA5 50 

FEA6 52 

FEA7 1E 

FEA8 2E: 8E 1E E538 R 

FEAD FE DE 0040 R 

FEB1 75 08 

FEB3 E8 ED50 R 

FEB6 80 26 003F R FO 

FEBB 

FEBB FF 06 006C R 

FEBF 75 04 

FEC1 FF 06 006E R 

FEC5 

FEC5 81 3E 006C R OOBO 

FECB 75 14 

FECD 83 3E 006E R 18 

FED2 75 OD 

FED4 C6 06 0070 R 01 

FED9 33 co 

FEDB A3 006C R 

FEDE A3 006E R 

FEE1 

FEE1 CD 1C 

1-258 

C t int 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

proc near 


interrupts offl 

(shared variables) 

push ax 

preserve registers 

push dx 

push ds 


mov ds,word ptr cs:(set_ds_word] : satisfy assumption 

c Handle turning off floppy disk drive motor. 

c 

c 

c 

c 

c 

c 

c 

C t inc: 

c 

dec 

jnz 

call 

and 

C Increment long p timer count 

c 

c 

c 

c 

c 

c t hi: 

c 

inc 

jnz 

inc 

byte ptr ds:(motor count] decrement motor on count 

t inc should we turn off drive? 

stop_disk if so, stop disk motor 

byte ptr ds:[motor status],OFOh clear low nibble of status 

word ptr ds:[t low order] 

t hi 

word ptr ds:[t_hi_order] 

c Handle 24 hour overflow situation 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

t ofl: 

cmp 

jne 

cmp 

jne 

mov 

xor 

mov 

mov 

sti 

increment low byte of counter 

skip t hi order 

increment high byte of counter 

word ptr ds:[t_low order],OOBOh has 24 hours elapsed? 

t ofl if not, skip t overflow 

word ptr ds:[t_hi_order],24 has 24 hours elapsed? 

t ofl if not, skip t overflow 

byte ptr ds:[t_overflow],01h 

ax,ax 

word ptr ds:[t_low_order].ax 

word ptr ds:[t hi order],ax 

C Invoke any user p timer break routine. 

c 

c 

c 

c 

c 

c 

INT 1Ch 


(no more shared variables) 

Send specific end of interrupt (SEOI) to pic 'command' port AFTER p timer 

break, because user may be out-to-lunch for quite awhile .... 



FEE3 BO 60 c mov al,pic_seoi_O specific end of interrupt command 

FEES E6 20 c out pic O,al to pic ·command port. 

FEE7 EB 01 90 c .jmp drb 

FEEA c drb: 

FEEA FB c sti 

c 

FEEB 1F c pop ds : restore registers 

FEEC SA c pop dx 

FEED 58 c pop ax 

FEEE CF c iret 

FEEF c t int endp 

FEEF c code ends 

c 

c 

c include vector.asm 

c 

c ·====================================================================== 

c Filename: vector.src 

c 

c This module includes the table of ROM interrupt vectors & ill int 

c hardware diagnostic & illegal software interrupt service routine. 

c 

c ·====================================================================== 

c 

FEEF c code segment public 'ROM' 

FEF3 c ORG OFEF3h 


c 

c 

FEF3 c i vee tbl proc near 

c 

FEF3 FEAS R c dw t int int08locn see rtc.src 

FEFS E987 R c dw k int int09locn see kb.src 

FEF7 FF23 R c dw ill int intOAlocn 

FEF9 FF23 R c dw ill int intOBlocn 

FEFB FF23 R c dw ill int intOClocn 

FEFD FF23 R c dw ill int intODlocn 

FEFF EF57 R c dw fd int intOElocn see dsk.src 

FF01 FF23 R c dw ill int intOFlocn 

c 

FF03 F065 R c dw v io int10locn see vid.src 

FFOS F84D R c dw m equip int11locn see mem.src 

FF07 F841 R c dw m size int12locn see mem.src 

FF09 EC59 R c dw fd io int13locn see dsk.src 

FFOB E739 R c dw serial io int14locn see com.src 

FFOD F859 R c dw m cass int15locn see mem.src 

- 

FFOF E82E R c dw k io int16locn see kb.src 

FF11 EFD2 R c dw p_io int17locn see prn.src 

c 

- 

FF13 F6EO R c dw basic trap int18locn see int18.src 

FF15 F876 R c dw bt int int19locn see boot.src 

FF17 FE6E R c dw t_day int1Alocn see rtc.src 

FF19 FF4B R c dw dummy iret int1Blocn see kb.src 

FF1B FF4B R c dw dummy iret int1Clocn see rtc.src 

FF1D FOA4 R c dw v parms int1Dlocn see vid.src 

- 

- 



FF1F EFC7 R 

FF21 C860 R 

FF23 

FF23 

FF23 

FF23 50 

FF24 B8 FFOB 

FF27 E6 20 

FF29 1E 

FF2A E4 20 

FF2C OA CO 

FF2E 74 DE 

FF30 8A EO 

FF32 E4 21 

FF34 OA C4 

FF36 E6 21 

FF38 BO 20 

FF3A E6 20 

FF3C EB 03 

FF3E 

FF3E E8 E4BE R 

FF41 

1-260 

c 

c 

c 

C i vee tbl 

c 

dw 

dw 

fd parms 

font hi 8x8 

endp 

int1Elocn 

int1Flocn 

see dsk.src 

see graph.src 

c .--------------------------------------------------------------------------c 

Interrupt Routine for Unused Hardware & Illegal Software Interrupts 

c .--------------------------------------------------------------------------c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ORG 

ill int proc 

push 

mov 

out 

push 

OFF23h 

near trap for illegal interrupts 

ax save registers 

ah = -1: illegal software trap 

ax,(OFFh*100h)+OBh al = OCW3 -- read PIC's 

pic D,al in-service register 

ds save registers & delay 

C Determine whether it is a hardware or software interrupt. 

c 

c 

c 

c 

c 

in 

or 

jz 

al,pic 0 

al,al 

ill SW 

get active PIC IR# 

are any active? 

if not, illegal software trap. 

C If hardware interrupt, disable the 8259 PIC from further interrupts. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

mov 

in 

or 

out 

mov 

out 

ah,al return active PIC IR# 

al,pic 1 OCW1 -- get PIC interrupt mask 

al,ah shut off (set) IR# bit. 

pic 1,al send PIC new mask. 

al,pic_neoi OCW2 -- send PIC a 

pic D,al nonspecific end of int 

C Return ah =active PIC Interrupt Number in intr_flag. 

c 

c 

c 

c ill sw: 

c 

jmp short ill flg 

C Turn off floppy disk drives and notify user 

c 

c 

c 

illegal software trap; ah = -1 

call ill_trap : every register but ds saved! 


c 

c ill flg: 

c 

c 

C assume cs:code, ds:data. es:nothing, ss:nothing 

c 

set illegal trap flag. 

illegal software trap; ah = -1 


FF41 E8 E53A R 

FF44 88 26 0068 R 

FF48 1F 

FF49 58 

FF4A CF 

FF4B 

FF4B 

FF4B 

FF4B CF 

FF4C CF 

FF40 CF 

FF4E CF 

FF4F CF 

FFSO CF 

FF51 CF 

FF52 CF 

FF53 CF 

FF54 

FF54 

FF54 

FF54 

FF54 


c 

c 

c 

c 

c 

c 

c 

call 

mov 

pop 

pop 

iret 

C ill int endp 

c 

set ds 

- 

byte ptr ds:[intr 

ds 

ax 

flag] ,ah 


satisfy assumptions. 

return interrupt flag. 

restore registers. 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

give user a second chance 

ORG OFF4Bh ORG OFF4Bh through OFF53h 

dummy_iret proc near 'BREAK' key interrupt (1Bh) 

iret p_timer break interrupt (1Ch) 

iret OFF4Ch -- in case someone is 

iret OFF4Dh 

iret OFF4Eh 

iret OFF4Fh 

iret OFF SOh 

iret OFF51h 

iret OFF52h 

iret OFF53h 

dummy iret endp 

code ends 

include prnscr.asm 

c ·====================================================================== 

c 

c 

Filename: prnscr.src 

C This module includes INT OSh. 

c 

c ·====================================================================== 

c 

c 

C code 


c 

c 

c .---------------------------------------------------------------------- 


C INT OSh -- Print Screen 

c 



C Trash: None. (Uses byte at 50:0 = 40:0100 as monitor lock: 

C 0 indicates monitor not locked. 

1 indicates monitor locked. 

c 

c 

c .--------------------------------------------------------------------c 

C ORG OFF54h 

c 

C s int proc near 

-1 indicates printer error. 

1-261


FF54 FA 

FF55 50 

FF56 56 

FF57 06 

FF58 83 C4 06 

FF5B 5E 

FF5C 07 

FF50 26: 8B 04 

FF60 83 EC OA 

FF63 07 

FF64 5E 

FF65 2C 62 

FF67 58 

FF68 75 02 

FF6A FB 

FF6B CF 

FF6C 

FF6C 1E 

FF6D 2E: 8E 1E E538 R 

FF72 52 

FF73 B2 01 

FF75 FO/ 86 16 0100 

FF7A FE CA 

FF7C 74 4C 

FF7E FB 

FF7F 51 

FF80 53 

FF81 50 

1-262 


c ·======================================================================= 

C INT 05H -- Check for Bound instruction% 

c 

c 

c 

c 

c 

c 

Purpose: To intercept the interrupt generated by the % 

bound instruction if the bound test fails.% 

If the last instruction executed was a bound % 

then iret, else print the screen.% 

c ·======================================================================= 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C notbound: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

eli 

push 

push 

push 

add 

pop 

pop 

mov 

sub 

pop 

pop 

sub 

pop 

jnz 

sti 

iret 

push 

mov 

push 

mov 

lock xchg 

dec 

jz 

sti 

push 

push 

push 

ax 

si 

es 

sp, 6 

si 

es 

stop intrs% 

This front end routine checks for bound instruction.% 

;% 

;going to trash these registers% 

;% 

;go back to old sp% 

;Old ip% 

;old cs% 

ax, es: [si] ;ax has desired opcode% 

sp, Oah 

es 

si 

al, 062H 

ax 

notbound 

ds 

;normal sp% 

;original values of es and si% 

;% 

Compare offending instruction with known opcode% 

; 62 /r is the opcode for bound % 

;restore ax% 

;if not a bound instruction jmp to notbound% 

; reenable interrupts% 

;% 

print screen rountine % 

save ds 


ds,word ptr cs:[set_ds_word] ; satisfy assumptions 

dx 

dl, 1 1 = locked 

byte ptr ds:[100h],dl check monitor lock 

dl already locked ? 

s nap if set, do nothing 

enable interrupts after 

monitor lock code I 1 1 1 

ex save registers 

bx 

ax 

Get Current Video Width. 


FF82 B4 OF c mov ah,OFh call v video state 

FF84 CD 10 c INT 10h Output: ah = crt cols 

c al = crt mode 

c bh = active page 

c 

FF86 8A DC c mov bl,ah save ah = crt cols 

c 

c Get Current Cursor Position. 

c 

FF88 B4 03 c mov ah,03h call v read cursor 

- - 

FF8A CD 10 c INT 10h Input: bh = active page 

- 


c Output: 

c (dh,dl) = (row,col) of cursor 

c (ch.cl) = cursor mode setting 

c 

FF8C 8A EB c mov ch,bl ;get crt_cols 

FF8E 52 c push dx save row, col of cursor 

FF8F B1 FF c mov cl,-1 : initialize cl = printer error 

c 

c Loop Through the Screen. 

c 

FF91 BA 0000 c mov dx,O (dh,dl) = (row,col) of origin 

c 

FF94 E8 FFCD R c call s eol print a new line 

FF97 75 24 c jnz s err any errors? 

c 

FF99 E8 FFE1 R c s lp: call s_get get next character from screen 

c 

c : Map Invalid Characters to Space. 

c 

FF9C 3C 00 c cmp al,O check validity of character. 

FF9E 75 02 c jne s ok if valid, we're ok. 

FFAO BO 20 c mov al,' if invalid, print a space. 

FFAZ c S Ok: 

c 

c Print the Character. 

c 

FFA2 E8 FFD4 R c call s out 

FFAS 75 16 c jnz s err any errors? 

c 

c Advance to Next Character. 

c 

- 

FFA7 FE CZ c inc dl advance column (1-crt cols) 

FFA9 3A OS c cmp dl,ch dl < ch = crt cols? 

FFAB 7C EC c jl s_lp if so. continue 

c 

FFAD E8 FFCD R c call s eol else print a new line 

FFBO 75 DB c jnz s err any errors? 

c 

FFBZ 32 02 c xor dl,dl move column back to 0 

FFB4 FE C6 c inc dh advance row (1-25) 

FFB6 80 FE 19 c cmp dh,ZS dh < 25 

FFB9 7C DE c jl s lp if so, continue 

c 

FFBB 33 C9 c xor CX,CX set cl = printer no error 



FFBD SA 

FFBE 84 02 

FFCO CD 10 

FFC2 FB 

FFC3 88 DE 0100 

FFC7 58 

FFC8 58 

FFC9 59 

FFCA SA 

FFCB 1F 

FFCC CF 

FFCD BO OA 

FFCF E8 FFD4 R 

FFD2 BO OD 

FFD4 

FFD4 52 

FFDS BA 0000 

FFD8 84 00 

FFDA CD 17 

FFDC SA 

FFDD F6 C4 01 

FFEO C3 

FFE1 

FFE1 84 02 

FFE3 CD 10 

FFES 84 08 

FFE7 CD 10 

FFE9 C3 

FFEA 

FFEA 

1-264 

c jmp 

c 

C s err: pop 

C mov 

C INT 

c 

c 

c 

c 

c 

c 

c 

sti 

mov 

pop 

C pop 

c pop 

C s nap: pop 

c 

c 

c 

c 

pop 

iret 

C s eol: mov 

C call 

C mov 

c 

c 

C s out: 

c 

c 

c 

c 

c 

c 

c 

jmp 

push 

mov 

mov 

INT 

pop 

test 

test 

C ret 

short s err 

dx 

ah,02h 

10h 

byte ptr ds:[100h].cl 

ax 

bx 

ex 

dx 

ds 

al,LF 

s out 

al,CR 

short s out 

dx 

dx,O 

ah,O 

17h 

dx 

ah,025h 

ah,001h 

fall through 

restore dx=(row,col) of cursor 

call v set cpos 

Input: bh = active_page 

dx =(row.col) of cursor 

disable interrupts during 

monitor lock code! 1 1 1 

reset monitor lock 


print LF & CR 

print CR 

fall through 

prints out byte in al 

save dx 

address printer port 0. 

write byte to port 0 

restore dx 

test for any errors? 

test for time out? 

c s_get: ; Set Cursor Position and get character @ curs. position 

c 

c 

c 

mov 

INT 

ah,02h 

10h 

call v set cpos 

Input: bh = active page 

C dx =(row,col) of cursor 

C Read Character at Cursor Position. 

c 

c 

c 

c 

c 

c 

mov 

INT 

ret 

C s int endp 

c 

C code ends 

ah,08h 

10h 

CPU System Reset Vector 

call v read ac current 

Input: bh = active page 

Output: al = character read 

ah = attribute 

....................................... "........ . . . . . . . . . . . . . ... 

11 It l 1!! 11'!! 1'! 11! 1! 11 t 11 >'>I 111! 111! 11 > 1! 1! 11111111111'! 11111111 > 1! 11 

; The reset vector must point to diagnostics_1 so that OSMERGE can find 


FFEA 

FFFO 

FFFO 

FFFO EA 

FFF1 DAD3 R 

FFF3 FOOD 

FFF5 31 32 2F 31 35 2F 

38 35 

FFFD DO 

FFFE 

FFFE FE 

FFFF 

FFFF 

Macros: 

N a m e 

JMPF ....... . 

Segments and Groups: 

ABSO 

CODE 

DATA 

STACK RAM. 

V RAM .. 

Symbols: 

ABSO SEG . . . . 

ADDR ..... . 

ADDR MARK ERROR. 

ADD MEM CODE 

ALT INPUT. 

ALT KEY. 


N a m e 

N a m e 

; it's data area, i.e. osmerge1 and osmerge2. Do NOT change change 

; the code to jump elsewhere as this will break OSMERGE 


; ; ; ; ; ; ; ;; ;; ; ; ; ; ; ; ; ; ;; ;; ; ; ; ;; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 


assume cs:code, ds:nothing. es:nothing. ss:nothing 

ORG OFFFOh ; FOOO:FFFO ; FFFFO; FFFF:OOOO 

vector proc near 

db DEAh jmp intersegment FDOO:(offset diagnostics_1) 

dw diagnostics_1 instruction pointer 

dw code_seg code segment FOOOh 

db '12/15/85' release marker (exactly 8 bytest 11 I) 

chk hi db 0 

ORG OFFFEh 

db OFEh for " compatibility" 

vector endp near 

code ends 

end 

Length 

0001 

Size Align Combine Class 

0080 PARA PUBLIC 'RAM' 

FFFF PARA PUBLIC 'ROM' 

OOD3 PARA PUBLIC 'RAM' 

DODO PARA PUBLIC 'RAM' 

DODO PARA PUBLIC 'RAM' 

Type Value Attr 

Number 0000 

L BYTE OOD2 DATA 

Number 0002 

F PROC E6F5 CODE Length ;0016 

L BYTE 0019 DATA 

Number 0038 

1-265


ALT RET .. L WORD E293 CODE 

ALT SHIFT. Number 0008 

BANNER M . L BYTE D912 CODE 

BASIC TRAP N PROC F6EO CODE Length =0040 

BEL .... Number 0007 

BELL WAIT. L NEAR F59C CODE 

BETA ... Number 0000 

BIOS BREAK L BYTE 0071 DATA 

BIOS INSTALL L NEAR 0000 CODE External 

BITREAD. Number 3FAO 

BS ... Number 0008 

BT AGAIN L NEAR F8DE CODE 

BT BLNK. L NEAR F8BF CODE 

BT DEC L NEAR F8C5 CODE 

BT I . L NEAR F89A CODE 

BT INT N PROC F876 CODE Length =007C 

BT JMP N PROC E6F2 CODE Length =0003 

BT M . L BYTE D935 CODE 

BT MERR. L BYTE D94F CODE 

BT NXT L NEAR F8BO CODE 

BT 0 . L NEAR F887 CODE 

BT OK. L NEAR F8EO CODE 

BT SPACES. L BYTE D974 CODE 

- 

- 

- 

- 

- 

- 

BUFFER END L WORD 0082 DATA 

BUFFER HEAD. L WORD 001A DATA 

BUFFER START L WORD 0080 DATA 

BUFFER TAIL. L WORD 001C DATA 

- 

CAPS LOCK KEY. Number 003A 

CAPS LOCK MODE Number 0040 

CAPS LOCK SHIFT. Number 0040 

CASS .. L NEAR E705 CODE 

- 

CHKSPEED N PROC F672 CODE Length =0014 

CHK HI . L BYTE FFFD CODE 

CHK LO . L BYTE cooo CODE 

- 

CMD BLOCK. L BYTE 0042 DATA 

- 

CMD ERROR. Number 0001 

- 

CNTRL KEY. Number 001D 

CNTRL SHIFT. Number 0004 

CODE SEG . . Number FOOD 

COLOR POINTER. Number 03D4 

COMMCONTROL. Number 0065 

COM BAUD . L WORD E729 CODE 

COM CTS .. Number 0010 

COM DATA1. N PROC E729 CODE Length =0010 

- 

- 

- 

COM DATA A Number 03F8 

- 

COM DATA B Number 02F8 

COM DSR. Number 0020 

COM DTR. Number 0001 

COM FE . Number 0008 

COM GB . N PROC E8E2 CODE Length =0023 

COM ID A Number 03FA 

COM ID B Number 02FA 

COM INIT N PROC E787 CODE Length =003A 

COM OE Number 0002 

COM PB N PROC E8B6 CODE Length =002C 

- - 

- 

- 

- 

- 

- 

1-266 


COM PE . Number 0004 

COM RTS. Number 0002 

COM RXD. Number 0001 

COM STAT L NEAR E87D CODE 

COM TE . Number 0080 

COM TXD. Number 0020 

- 

- 

- 

- 

- 

- 

CONTROLC Number 0062 

CONTROL BYTE L BYTE 0076 DATA 

- 

CONT CNT . L NEAR DE12 CODE 

- 

CR .... Number OOOD 

CRC ERROR. Number 0010 

- 

CUR CYL. . L BYTE 0094 DATA 

- 

C BCD2HEX. N PROC F989 CODE Length =0011 

C DATA1. N PROC F8F2 CODE Length =001C 

C DY MO. L BYTE F902 CODE 

C DY YR. L WORD F8F2 CODE 

C GDAYS. N PROC FA41 CODE Length =0013 

C GRET . L NEAR FA53 CODE 

C RBCD . L NEAR F96C CODE 

C RBLP . L NEAR F972 CODE 

C RBRET. L NEAR F97D CODE 

C READ N PROC F90E CODE Length =0071 

C RHEX N PROC F97F CODE Length =OOOA 

C RMO. L NEAR F934 CODE 

C RMLP L NEAR F92C CODE 

C WERR L NEAR FA2F CODE 

C WHEX N PROC FA 3D CODE Length =0011 

C WMLP L NEAR FA01 CODE 

C WRITE. N PROC F99A CODE Length =0096 

C WYLP . L NEAR F9D7 CODE 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

DATA SEG Number 0040 

- 

DCOLON . N PROC E56C CODE Length =OOOC 

DCRLF. . N PROC E55F CODE Length =DODD 

DELETE KEY Number 0053 

- 

DHEXBYTE N PROC E589 CODE Length =ODDD 

DHEXLONG N PROC E578 CODE Length =OOOA 

DHEXNIB. N PROC E596 CODE Length =0015 

DHEXWORD N PROC E582 CODE Length =0007 

DIAGNOSTICS 1. N PROC DAD3 CODE Length =054D 

- 

DISKETTE I01 . L NEAR EC99 CODE 

DISKETTE STATUS. L BYTE 0041 DATA 

- 

- 

DISKSTATE. . L BYTE 0090 DATA 

DISK STATUS. L BYTE 0074 DATA 

- 

DISP PASS. L NEAR DCCA CODE 

- 

DIS DMACC. L NEAR E3AB CODE 

- 

DLX KB . Number 0001 

- 

DMACCEL. . Number 0004 

DMA ADDR 0 Number DODO 

- - 

DMA ADDR 1 Number 0002 



- - 

- - 

- - 

DMA CMD DISABLE. Number 0004 

DMA CMD ENABLE . Number DODO 

DMA COMMAND. Number 0008 

- - 

- - 

- 

DMA COUNT 0. Number 0001 

- 


- 


1-267

FONTL08. N PROC FA6E CODE Length =0400 

FONT HI 8X8. L BYTE C860 CODE 

FONT LO 8X16 L BYTE C060 CODE 

FONT LO 8X8. L BYTE FA6E CODE 

- - 

FOO .. L NEAR DDCC CODE 

F BUFOFF .. Text [bp+4] 

F CHECK VALID. N PROC EF6B CODE Length =0048 

F CHNGLN . N PROC EFB3 CODE Length =0008 

F CLRHEAD. L NEAR E6BE CODE 

F COMMAND. Text [bp+3] 

F CONT .. L NEAR EF2B CODE 

F CS OUT . L NEAR F685 CODE 

F CV DOUBLE. L NEAR EFA9 CODE 

F CV DR. . L NEAR F600 CODE 

F CV HI. . L NEAR EF94 CODE 

F CV PRE2. L NEAR EF96 CODE 

F CV RET . L NEAR EFAD CODE 

F CV TST2. L NEAR EF9A CODE 

F CVL .. Text [bp+7] 

F DOFMT. L NEAR E92C CODE 

F DORATE L NEAR F6CO CODE 

F DRIVE. Text [bp+O] 

F DRVSWITCH. N PROC F5F6 CODE Length =DODD 

F DSKERR . L NEAR E692 CODE 

F DTVPE. . . N PROC F5EB CODE Length =OOOB 

F FMTDONE .. L NEAR E937 CODE 

F FORMAT CMD Number 0040 

F GB DECODE. L NEAR EE3B CODE 

F GB JMP . L NEAR EE43 CODE 

F GB LOOP. L NEAR EE03 CODE 

F GB LOOP1 L NEAR EE34 CODE 

F GB OUT . L NEAR EE1A CODE 

F GB RET . L NEAR EE47 CODE 

F GB TABLE L BYTE EDEF CODE 

F GETDRV . N PROC F603 CODE Length =0009 

F GET BYTE N PROC EDF8 CODE Length =0051 

F GET VAR. N PROC F62E CODE Length =DODD 

F GVDONE L NEAR F63A CODE 

F GVOK . . L NEAR F62E CODE 

F HEAD . . Text [bp+1] 

F HEAD SETTLE. L NEAR EF46 CODE 

F HLT. Number 0001 

F HUT ... Number OOOF 

F I01 ... L NEAR EC92 CODE 

F IO EXIT. L NEAR ECED CODE 

F IO QUIT. L NEAR ECC9 CODE 

F IO RET L NEAR ECC2 CODE 

F JMPNR .. L NEAR E68F CODE 

F MK1212 . L NEAR E6AE CODE 

F MOTOR ON N PROC F5C6 CODE Length =0025 

F MOTOR PORT Number 03F2 

F MOTOR WAIT Number 0025 

F MD RET . L NEAR F5EA CODE 

F NOMA .. Number 0000 

F NEC DATA Number 03F5 

- 

- - 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- - 

- 

- - 

- - 

- 

- 

- 

- - 

- 

- 

- 

- 

- 

- - 

- - 

- - 

- 

- - 



1-269


F NEC ROY. . N PROC F63B CODE Length =0017 

F NEC RESET. N PROC F5AB CODE Length =001B 

F NEC RESET RET. L NEAR F5C5 CODE 

F NEC STATUS Number 03F4 

F NOLOFMT. L NEAR E917 CODE 

F NOMEDFMT L NEAR E923 CODE 

F NOPASS . L NEAR E692 CODE 

F NORETRY. L NEAR E6E1 CODE 

F NOTSTAT. L NEAR F618 CODE 

F NR1 .. L NEAR F63E CODE 

F NR RET . L NEAR F650 CODE 

F NUMSECS. Text [bp+2] 

F NURATE . L NEAR E954 CODE 

F NUSTATE. N PROC F60C CODE Length =0022 

F NU CONT. L NEAR F62A CODE 

F OPPSFMT. L NEAR E932 CODE 

F PASS2. . L NEAR E6DD CODE 

F PB ERRET L NEAR F608 CODE 

F PB RET . L NEAR F607 CODE 

F PUT BYTE N PROC F6C5 CODE Length =001B 

F R1 L NEAR ED13 CODE 

F R2 ... L NEAR ED1B CODE 

F RATEDONE L NEAR E97F CODE 

F RD1 ... L NEAR ED69 CODE 

F RDATA. . N PROC ED 57 CODE Length =0020 

F RD LOOP. L NEAR ED64 CODE 

F READ CMD Number OOE6 

F REAL DRIVE Text [bp+8] 

F RECAL CMD. Number 0007 

F RESET. N PROC ECFA CODE Length =0056 

F RETRY. . L NEAR EC9D CODE 

F RETSTAT. L NEAR ECE3 CODE 

F RW1. L NEAR EDA3 CODE 

F RW2 ... L NEAR EDCD CODE 

F RW3 ... L NEAR EDE4 CODE 

F RW COMMON. N PROC ED77 CODE Length =0078 

F RW RET . L NEAR EDEC CODE 

F RW SKIP. L NEAR EDC7 CODE 

F S1 . L NEAR EEEC CODE 

F S2 . L NEAR EEE7 CODE 

F SD1. L NEAR EE66 CODE 

F SD2. L NEAR EE95 CODE 

F SO RET L NEAR EEA9 CODE 

F SECNUM . Text [bp+6] 

F SEEK . . N PROC EEAA CODE Length =OOA2 

F SEEK CMD Number OOOF 

F SETFF. . N PROC F6BA CODE Length =OOOB 

F SETFRMT. N PROC E905 CODE Length =0035 

F SETRATE. N PROC E93A CODE Length =0046 

F SET DMA. N PROC EE49 CODE Length =0061 

F SIS ... N PROC F686 CODE Length =OOOB 

F SNSDRV CMD Number 0004 

F SNSINT CMD Number 0008 

F SPECIFY CMD. Number 0003 

F SPEEDOK. L NEAR F684 CODE 

- - 

- - 

- - - 

- - 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- - 

- - 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- - 

- 

- 

- 

- - 

- 

- - 

- - 

- - 

- 

1-270 

- 


F SRT 48 

F SRT 96 

F S RECAL. 

F S RET. 

F TABLE .. 

F TRCONT . 

F TRCONTO. 

F TRDONE . 

F TSTRETRY 

F WAIT FOR NEC 

F WAIT ONE MS. 

F WD1 ... 

F WDATA. . . 

F WD LOOP. . 

F WRITE CMD. 

- 

- - - 

- - - 

G4TOD ... 

GAME CARD. 

GOT ... 

GOT ALIAS 

GOT ENT. 

GEN3 . 

GO ON1 

GO ON2 

GO ON3 

GO ON4 

GRF GRAPHICS DOWN. 

GRF GRAPHICS READ. 

- - 

- - 

GRF GRAPHICS UP .. 

GRF GRAPHICS WRITE 

- - 

- - 

GRF LIGHT PEN. 

GRF READ DOT . 

GRF WRITE DOT. 

G 72 .. 

G 8X16 2 

G 8X8 2. 

G ADDR . 

G ADDR TEST. 

G ALIGN DOT. 

G BITMASK. 

G CHAR LP. . 

G CMP MOD. . 

G COLOR TABLE. 

G CURS OFF 

G DETMODE. 

G EXP BYT. 

G FILLER . 

G F CONT . 

G F EXIT 

G F I LP 

G F MACH 

G F S LP 

G HI WR. 

G IA LP. 

G I A LP 

G JSFY DOT 


Number oooc 

Number OOOE 

L NEAR EEBE CODE 

L NEAR EF4B CODE 

L WORD ECBO CODE 

L NEAR E6B1 CODE 

L NEAR E6C2 CODE 

L NEAR E6E2 CODE 

N PROC E665 CODE Length =007F 

N PROC F652 CODE Length =0020 

N PROC EF4C CODE Length =0008 

L NEAR F6BO CODE 

N PROC F691 CODE Length =0029 

L NEAR F6AB CODE 

Number DOCS 

Number 0001 

Number 0201 

L WORD OOAA DATA 

L WORD OOC2 DATA 

L WORD E080 CODE 

Number 0000 

L NEAR DD3E CODE 

L NEAR 0040 CODE 

L NEAR DE19 CODE 

L NEAR DE28 CODE 

Length =OOOC 

Length =0004 

N PROC 0689 CODE Length =0063 

N PROC D6EC CODE Length =OOEF 

N PROC D5F4 CODE Length =0055 

N PROC D7DB CODE Length =0106 

N PROC F5A8 CODE Length =0003 

N PROC 0550 CODE Length =001A 

N PROC D56A CODE Length =002B 

L NEAR D8F1 CODE 

L NEAR D7BF CODE 

L NEAR D7FE CODE 

N PROC 0595 CODE Length =005F 



L NEAR D5E2 CODE 


L NEAR D6AF CODE 

L BYTE 0800 CODE 

N PROC D8E1 CODE Length =001E 


L NEAR D8A8 CODE 

N PROC D66B CODE Length =001E 




L NEAR D79C CODE 

L NEAR D66F CODE 


L NEAR D8A1 CODE 




1-271


G LOS R. L NEAR D?OC CODE 

G LOS W. L NEAR 0821 CODE 

G LINELP L NEAR 0859 CODE 

G MATCHB L NEAR 0791 CODE 

G MEDGET L NEAR D75E CODE 

G MED BIT. L NEAR 0777 CODE 

G MED IA . L NEAR 0763 CODE 

G MED STORE. L NEAR D8BD CODE 

G MED WR L NEAR 0885 CODE 

G M AREA L NEAR D64C CODE 

G RDLOOP L NEAR D72C CODE 

G RD IA. L NEAR 0730 CODE 

G RD MED L NEAR D75C CODE 

G REPCHAR. L NEAR D852 CODE 

G RETURN . L NEAR D809 CODE 

G SCAN LP. L NEAR D89C CODE 

G SCROLLER N PROC 0649 CODE Length =0022 

G SELFONT. L NEAR D813 CODE 

G SETDOWN. L NEAR D6BD CODE 

G SET UP L NEAR D629 CODE 

G SKP 1. L NEAR D5A6 CODE 

G SKP 2. L NEAR D5AC CODE 

G SKP 3. L NEAR D5B2 CODE 

G SKP 4. L NEAR 0505 CODE 

G SKP 5. L NEAR D5F3 CODE 

G SUPER WR L NEAR 0849 CODE 

G TEST ADDR. L NEAR D7CB CODE 

G TINYTEXT L NEAR 0845 CODE 

G TST MOD .. L NEAR D61A CODE 

G T XOR. . . L NEAR 0865 CODE 

G UNREVERSE VIDEO LOOP L NEAR 0754 CODE 

G W BYTE L NEAR D86C CODE 

G XORBIT L NEAR D57F CODE 

- - 

- 

- 

- 

- 

- 

- - 

- 

- 

- - 

- 

- 

- 

- 

- 

- - 

- - 

- 

- 

- 

- - - 

HD ERROR L BYTE 0042 DATA 

- 

HF NUM . L BYTE 0075 DATA 

- 

HIRATE . Number 0000 

HISTORY. L NEAR DEBA CODE 

HOLDON . L NEAR 0001 CODE 

I13 IH . V WORD 0000 CODE External 

- 

ILL FLG. L NEAR FF41 CODE 

- 

ILL INT. N PROC FF23 CODE Length =0028 

- 

ILL LN L NEAR E509 CODE 

ILL LP L NEAR E50E CODE 

- 

- 

ILL M1 L BYTE 0999 CODE 

- 

ILL M2 L BYTE D9B2 CODE 

ILL M3 L BYTE D9B8 CODE 

ILL SW . L NEAR FF3E CODE 

ILL TEND L NEAR E505 CODE 

ILL TRAP N PROC E4BE CODE Length =005C 

- 

- 

- 

- 

INNERLOOP. L NEAR DD9E CODE 

INSERT KEY Number 0052 

INSERT MODE. Number 0080 

INSERT SHIFT Number 0080 

- 

- 

- 

INTOOLOCN. L DWORD 0000 ABSO 

INT01LOCN. . L DWORD 0004 ABSO 

1-272 


INT02LOCN. 

INT03LOCN. 

INT04LOCN. 

INT05LOCN. 

INT06LOCN. 

INT07LOCN. 

INT08LOCN. 

INT09LOCN. 

INTOALOCN. 

INTOBLOCN. 

INTOCLOCN. 

INTODLOCN. 

INTOELOCN. 

INTOFLOCN. 

INT10LOCN. 

INT11LOCN. 

INT12LOCN. 

INT13LOCN. 

INT14LOCN. 

INT15LOCN. 

INT16LOCN. 

INT17LOCN. 

INT18LOCN. 

INT19LOCN. 

INT1ALOCN. 

INT1BLOCN. 

INT1CLOCN. 

INT1DLOCN. 

INT1ELOCN. 

INT1FLOCN. 

INTR FLAG. 

IO ROM INIT. 

IO ROM SEG 

I CAL .. 

I CALR M . 

I CAL 0. . 

I CAL 1 1 80 

I CAL END. 

I CAL ERR. 

I CAL MAX. 

I CAL OK . 

I CAL VAL. 

I COM M. . 

I CPU ... 

I CPU ERR. 

I CPU M. . 

I CPU OK . 

I DMAC . . 

I DMAC ERR 

I DMAC LP. 

I DMAC M . 

I DMAC NIB 

I DMAC OK. 

I DMAC PASS2 

I DMAC RET 


L DWORD 0008 ABSO 

L DWORD OOOC ABSO 




L DWORD 001C ABSO 

























L BYTE 006B DATA 

L WORD 0067 DATA 

L WORD 0069 DATA 

L NEAR DF35 CODE 

L BYTE DA2E CODE 

L NEAR DF8A CODE 


L NEAR DFB2 CODE 



L NEAR DFA5 CODE 

L BYTE DACA CODE 

L BYTE DA72 CODE 

L NEAR DAF8 CODE 

L NEAR DB23 CODE 

L BYTE D9D3 CODE 



L NEAR DC07 CODE 


L BYTE D9FA CODE 

L NEAR DBE7 CODE 

L NEAR DC14 CODE 


L NEAR DBFA CODE 


1-273


I DMAT . . L NEAR DB6D CODE 

I DMAT ERR L NEAR DB7B CODE 

I DMAT M . L BYTE D9ED CODE 

I DMAT OK. L NEAR DB81 CODE 

I DMAT RET L NEAR DB79 CODE 

I D 80X25. L NEAR EOF8 CODE 

I D E. L NEAR DC11 CODE 

I D INIT N PROC EOAO CODE Length =DOC4 

I D M 

I D MODE L NEAR E15E CODE 

I D OK . L NEAR EOFE CODE 

I D SW . L NEAR E107 CODE 

I FATAL. N PROC F720 CODE Length =0061 

I FATAL RET. L NEAR F772 CODE 

I FDUA M . L BYTE DA96 CODE 

I FDUB M L BYTE DAA3 CODE 

I FDU END. L NEAR E4A4 CODE 

I FDU LP . L NEAR E47E CODE 

I FDU NOT M. L BYTE DABO CODE 

I FDU OK . . L NEAR E4A1 CODE 

I FDU ROY M. L BYTE DAB4 CODE 

I GOT .. N PROC EOSE CODE Length =0042 

I GDTO L NEAR E078 CODE 

I HARD RESET N PROC EOSB CODE Length =0003 

I HDU M. . L BYTE DABD CODE 

I HDU OK . L NEAR E405 CODE 

I INIT END L NEAR E4A8 CODE 

I KB M .. L BYTE DA54 CODE 

I KB ST M. L BYTE DA61 CODE 

I NO COM A L NEAR E36C CODE 

I NO GAME CARD L NEAR E386 CODE 

I NO sees. L NEAR E37B CODE 

I NPU M. L BYTE DA21 CODE 

I OPTROM M L BYTE DA89 CODE 

I OUT MASK N PROC E1B7 CODE Length =0009 

I PIC ... L NEAR DC1B CODE 

I PIC 0 OK L NEAR DC 59 CODE 

I PIC 1 OK L NEAR DCSD CODE 

I PIC 2 OK L NEAR DC61 CODE 



I PIC END. L NEAR DCC1 CODE 

I PIC ERR. L NEAR DC8C CODE 

I PIC HARD L NEAR DC4E CODE 

I PIC HOT. L NEAR DC87 CODE 

I PIC INIT N PROC E1A6 CODE Length =0011 

I PIC M. . L BYTE DA07 CODE 

I PIC NO HOT L NEAR DCBS CODE 

I PIC OK . L NEAR DCBB CODE 

I PIC SOFT . L NEAR DC3E CODE 

I PIC TEST L NEAR DC6B CODE 

I PRT EXIT L NEAR E35A CODE 

I PRT LOOP L NEAR E341 CODE 

I PRT M. L BYTE DA65 CODE 

I PWRUP. L NEAR DAE4 CODE 

- 

- - 

- - 

- - 

- - 

-- 

- 

- - 

- - 

- - 

- 

- 

- - 

- - - 

- - 

- - - 

- 

- 

- 

- 

- 

- 

- - 

.. L BYTE DA14 CODE 

- 

- - 

- - 

- 

- 

- 

- 

- 

- 

- 

- - 

- 

- 

- - 

- - 

- 

- - 

- 

- 

- - 

- - 

- - 

- - 

- 

1-274 

- 


I RAM M. . L BYTE DA7F CODE 

I ROM ... L NEAR DB48 CODE 

I ROM ERR. L NEAR DB60 CODE 

I ROM M. . L BYTE D9EO CODE 

I ROM OK L NEAR DB66 CODE 

I ROM RET1 L NEAR DB4E CODE 

I ROM RET2 L NEAR DB56 CODE 

I ROM RET3 L NEAR DBSE CODE 

I RTC ... L NEAR DFB2 CODE 

I RTC END. L NEAR E018 CODE 

I RTC ERR. L NEAR DFFO CODE 

I RTC HI M L BYTE DA4C CODE 

I RTC LO M L BYTE DA48 CODE 

I RTC M. . L BYTE DA3B CODE 

I RTC NR M L BYTE DASO CODE 

I RTC OK L NEAR EOOC CODE 

I VECO . L NEAR E174 CODE 

I VEC8 . L NEAR E196 CODE 

I VECTOR N PROC E164 CODE Length =0042 

I VEC TBL. N PROC FEF3 CODE Length =0030 

KBALT. Number OOC4 

KBBRK. Number OOC9 

KBCAP. Number OOC1 

KBCTL. Number DOCS 

KBINS. Number ooco 

KBLSH. Number OOC6 

KBNUL. Number oocc 

KBNUM. Number OOC2 

KBPRT. Number OOCB 

KBRES. Number OOC8 

KBRSH. Number OOC7 

KBSCR. Number OOC3 

KB BUFFER. L WORD 001E DATA Length =0010 

KB CAP FLAGS L BYTE CBB8 CODE 

KB CMD SEND. N PROC E4B3 CODE Length =OOOB 

KB CMD WLUP. L NEAR E4B3 CODE 

KB DATA1 .. N PROC CBB8 CODE Length =033F 

KB DATA TABLE. L BYTE CBBF CODE 

KB FLAG. . L BYTE 0017 DATA 

KB FLAG 1. . . L BYTE 0018 DATA 

KB FLUSH . . . L NEAR E2CD CODE 

KB FLUSH BACK. L NEAR E2DC CODE 

KB NOT DLX . L NEAR E320 CODE 

KB STATUS .. Number 0064 

KB TYPE READ L NEAR E310 CODE 

KB TYPE WAIT L NEAR E305 CODE 

- 

- 

- - 

- - 

- - 

- 

- 

- - 

- 

- 

- 

KDBLO. Number OOD8 

KDECO. Number OOD7 

KDEC1. Number OOD6 

KDEC2. Number ODDS 



KDECS. Number OOD2 


KDEC7. Number DODO 



1-275


KDEC8. Number OOCF 

KDEC9. Number OOCE 

KNONE. Number OOCD 

K 00 . L NEAR EB3C CODE 

K 2RES L NEAR EB1F CODE 

K 2RET L NEAR EB11 CODE 

K 2TOG L NEAR EB16 CODE 

K 4RES L NEAR EAEE CODE 

K 4RET L NEAR EAED CODE 

K 4TOG L NEAR EADB CODE 

K ADV END. L NEAR E87A CODE 

K ADV PTR. N PROC E86E CODE Length =OOOD 

K ALT. L NEAR EAFS CODE 

K ALTO L NEAR EB2F CODE 

- 

- 

- 

- 

- 

K ALT1 L NEAR EB2E CODE 

- 

K ALT2 L NEAR EB2D CODE 

K ALT3 L NEAR EB2C CODE 

K ALT4 L NEAR EB2B CODE 

K ALTS L NEAR EB2A CODE 

K ALT6 L NEAR EB29 CODE 




K BEEP N PROC EBC9 CODE Length =0023 

K BIT. N PROC EB8C CODE Length =001F 

K BRK. L NEAR EB49 CODE 

- 

- 

- 

- 

- 

- 

K BUF. L NEAR EASB CODE 

- 

K CAP. L NEAR EABC CODE 

K CASE L WORD EBEC CODE 

K CTL. L NEAR EB07 CODE 

K DATA1. N PROC EBEC CODE Length =0032 

- 

K EOI. N PROC EBAB CODE Length =0008 

K HOLD L NEAR EA98 CODE 

K INS. L NEAR EAAE CODE 

K INT. N PROC E987 CODE Length =0109 

- 

KID. N PROC E82E CODE Length =0017 

- 

K IX . L NEAR EA07 CODE 

K JMP. L NEAR EA32 CODE 

K LED CAP. L NEAR EB6A CODE 

K LED CMD. L NEAR EB77 CODE 

K LED OAT. L NEAR EB81 CODE 

K LED NUM. N PROC EB60 CODE Length =002C 

K LED RET. L NEAR EB8B CODE 

K LOCK L NEAR E9F9 CODE 

K LOOK F PROC E860 CODE Length =0009 

K LP . L NEAR EBD1 CODE 

- - 

- - 

- - 

- - 

- - 

- 

- 

- 

K LSH. L NEAR EBOB CODE 

- 

K NON1 L NEAR EAC6 CODE 

K NONE L NEAR EA60 CODE 

K NOP. L NEAR EA63 CODE 

- 

K NOP1 L NEAR EB46 CODE 

- 

K NO CAP L NEAR E9EC CODE 

K NO CASE. L NEAR EA3B CODE 

K NO HOLD. L NEAR EA51 CODE 

K NO LOCK. L NEAR EA01 CODE 

1-276 


K NO XCODE L NEAR EA59 CODE 

K NUL. L NEAR EAA9 CODE 

K NUM. L NEAR EAC8 CODE 

K OK . L NEAR E9B2 CODE 

K PAUSE. L NEAR EA7D CODE 

K PRT. L NEAR EAA1 CODE 

K READ N PROC E845 CODE Length =001B 

K RES. L NEAR EA6C CODE 

K RET. L NEAR E842 CODE 

K RSH. L NEAR EBOF CODE 

K SCR. L NEAR EAD4 CODE 

K SEE. L NEAR E854 CODE 

K STAT N PROC E869 CODE Length =0005 

K TRY. N PROC EBB3 CODE Length =0016 

K XLAT L NEAR EA1B CODE 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

LABEL 1 L NEAR F9AO CODE 

LABEL2 . L NEAR F9A6 CODE 

LABEL3 . L NEAR F9AD CODE 

LA STRATE L BYTE 008E DATA 

LEAP1. . L NEAR F9F4 CODE 

LEFT SHIFT Number 0002 

LEFT SHIFT KEY Number 002A 

- 

- 

LF .. Number OOOA 

LORATE . . . . Number 0080 

MASTAB .... L WORD E297 CODE 

MASTER TBL PTR L DWORD 0084 DATA 

- 

MEDIA CHANGE Number 0006 

MEDRATE. . . Number 0040 

MEMORY SIZE. L WORD 0013 DATA 

- 

MEMTST .. N PROC E22F CODE Length =0047 

MEMTST ERR L NEAR E274 CODE 

MEMTST ERR C L NEAR E270 CODE 

- 

- - 

MEMTST R1. L NEAR E242 CODE 

MEMTST R2. L NEAR E259 CODE 

MEMTST W1. L NEAR E236 CODE 

- 

- 

- 

MEMTST W2. L NEAR E24F CODE 

MFG ERR FLAG L BYTE 0015 DATA Length =0002 

- 

MFG TST. . . L BYTE 0012 DATA 

- 

MOR MEM ... L NEAR DEF3 CODE 

- 

MOTOR COUNT. L BYTE 0040 DATA 

MOTOR STATUS L BYTE 003F DATA 

- 

- 

MOVAXCS. L NEAR E650 CODE 

MT END . L WORD E2AD CODE 

- 

M CASS . F PROC F859 CODE Length =0005 

M EQUIP. N PROC F84D CODE Length =OOOC 

M SIZE . N PROC F841 CODE Length =OOOC 

- 

- 

NEC STATUS L BYTE 0042 DATA Length =0007 

- 

NEWFLOP. . Number 0002 

NIBOK ... L NEAR E5A4 CODE 

NMI ENABLE Number 0080 

NMI ENABLE PORT. Number OOAO 

- 

- - 

NOPRINT. L NEAR DE09 CODE 

NOTBOUND .. L NEAR FF6C CODE 

NO DBL STEP. L NEAR EFOD CODE 

- - 

NO PMEM. L NEAR DEFB CODE 

- 



1-277


NO THING . L WORD 0096 DATA Length =0006 

- 

NUL ... Number 0000 

NUM LOCK KEY Number 0045 

NUM LOCK MODE. Number 0020 

NUM LOCK SHIFT Number 0020 

N 1. L NEAR F870 CODE 

N INT .. N PROC F85F CODE Length =0017 

N OUT .. L NEAR F874 CODE 

OFF FAIL L WORD oocc DATA 

- 

OPT ROM M. L BYTE E276 CODE 

- 

OP INT N PROC E638 CODE Length =002D 

- 

OSMERGE1 L DWORD OOA2 DATA 

OSMERGE2 L DWORD OOA6 DATA 

PO DATA1 N PROC E276 CODE Length =0037 

P1 DATA1 N PROC D8FF CODE Length =01D4 

- 

P4 DATA1 N PROC E537 CODE Length =0003 

PARA GRAPH Number B800 

PARA MONO. Number BODO 

PARITY Number 0000 

PARITY1 M. L BYTE E5FB CODE 

PARITY2 M. L BYTE E618 CODE 

PASS M . L BYTE D9BB CODE 

PAUSE. . . Number OOCA 

PAUSE MODE Number 0008 

PCINIT N PROC E2AD CODE Length =0206 

PIC 0 .. Number 0020 

PIC 1 .. Number 0021 

PIC ICW1 Number 0013 



PIC ICW4 Number DODD 

PIC NEOI Number 0020 

PIC OFF MSK. Number DOFF 

PIC SEOI 0 Number 0060 



- 

- 

- 

- 

- 

- 

- 

- 

PMEMCNT .. L NEAR DD7F CODE 

PMEMTST R1 L NEAR DE63 CODE 

PMEMTST R2 L NEAR DE81 CODE 

PMEMTST W1 L NEAR DE 59 CODE 

PMEMTST W2 L NEAR DE75 CODE 

PORT OFF . L BYTE 0077 DATA 

PPASS. . . L NEAR DED8 CODE 

PRINTER ADDR L WORD 0008 DATA Length =0004 

PRINTER TOUT. L BYTE 0078 DATA Length =0004 

PRT DATA A Number 03BC 

- 

PRT DATA B Number 0378 

PRT DATA C Number 0278 

- 

- 

PTESTADDR. L NEAR DE3C CODE 

PTSTERR. L NEAR DEA3 CODE 

PWRUPL . Number 0020 

p 8253 0 Number 0040 

p 8253 1 Number 0041 

p 8253 2 Number 0042 

P 8253 CTRL. Number 0043 

1-278 


P INIT . L NEAR F027 CODE 

- 

p IO .. N PROC EFD2 CODE Length =0069 

- 

P KCTRL. Number 0061 

- 

P KSCAN. Number 0060 

- 

P LP . L NEAR FOOF CODE 

- 

P NOP. L NEAR FOOA CODE 

- 

P OK . L NEAR F01D CODE 

- 

P OUT. L NEAR FOOB CODE 

- 

P RET. L NEAR F005 CODE 

- 

P STAT L NEAR F034 CODE 

P TBL. L WORD E287 CODE 

- 

P TRAPCE Number 3F60 

- 

RAM ERROR. L NEAR DF05 CODE 

- 

RAM SIZE END L NEAR DEC6 CODE 

- - 

RAM SIZE END 1 L NEAR DEDB CODE 

- - - 

RAM SIZE LP. L NEAR DD24 CODE 

- - 

RAM SIZE NXT L NEAR DD65 CODE 

- - 

RAM SIZE TST L NEAR DD14 CODE 

- - 

RESET FLAG . L WORD 0072 DATA 

RESVO. . L DWORD 0088 DATA 

RESV1. . . . L WORD 008C DATA 

RIGHT SHIFT. Number 0001 

- 

RIGHT SHIFT KEY. Number 0036 

- - 

ROM CHECKSUM . . N PROC E52A CODE Length =DODD 

- 

ROM CHECKSUM CNT L NEAR E52D CODE 

- - 

ROM CHECKSUM LOOP. L NEAR E52F CODE 

- - 

ROM CHKSUM OK. L NEAR E440 CODE 

- - 

ROM ERR. N PROC E51A CODE Length =0010 

- 

ROM ID .... L BYTE C001 CODE 

- 

ROM MT . 

- 

ROM SCAN EXIT. 

- 

- 

ROM SCAN LOOP. 

- - 

ROM SCAN NEXT. 

- - 

RPASS. . . 

L WORD 

L NEAR 

L NEAR 

L NEAR 

L NEAR 

C002 

E459 

E408 

E455 

DED5 

CODE 

CODE 

CODE 

CODE 

CODE 

RS232 ADDR 

- 

RS DLY . 

L WORD 

N PROC 

0000 

E8AC 

DATA 

CODE 

Length =0004 

Length =OOOA 

- 

RS GBE . L NEAR E900 CODE 

- 

RS INIT. 

- 

RS LP .. 

L NEAR 

L NEAR 

E3A1 

E8B1 

CODE 

CODE 

- 

RS NOP 

- 

RS NORM. 

- 

RS OK .. 

- 

RS PBE . 

L NEAR 

L NEAR 

L NEAR 

L NEAR 

E77D 

E749 

E771 

E8DA 

CODE 

CODE 

CODE 

CODE 

- 

RS PB GB L NEAR E8D9 CODE 

RS RET . 

- 

RS STAT. 

- 

RS TBL . 

- 

RS WS. 

- 

RS WS COM. 

L NEAR 

N PROC 

L WORD 

N PROC 

L NEAR 

E77A 

E87B 

E77F 

E888 

E897 

CODE 

CODE 

CODE 

CODE 

CODE 

Length =DODD 

Length =0024 

RS WS EXIT L NEAR E8A8 CODE 

RS WS LP . L NEAR E88D CODE 

RTC CHK. . 

- 

RTC CHK HIGH 

- - 

RTC CHK LOW. 

- - 

RTC CHK RESET ERR. 

- - - 

N PROC 

L NEAR 

L NEAR 

L NEAR 

E1CO 

E22E 

E22E 

E1E1 

CODE 

CODE 

CODE 

CODE 

Length =006F 



1-279


RTC CHK RESET LP L NEAR E1CF CODE 

RTC CHK RESET OK L NEAR E1E4 CODE 

RTC CHK SET ERR. L NEAR E201 CODE 

RTC CHK SET LP L NEAR E1EE CODE 

RTC CHK SET OK L NEAR E204 CODE 

SAVE RAM . L NEAR 0020 CODE 

SCC CTL A. Number 0050 

SCC CTL B. Number 0052 

sec FE Number 0040 

sec DE . Number 0020 

sec PE Number 0010 

sec RXD. Number 0001 

sec TBL. L WORD E28F CODE 

sec TXD. Number 0004 

SCRL LOCK KEY. Number 0046 

- 

SCRL LOCK MODE Number 0010 

SCRL LOCK SHIFT. Number 0010 

SECT NOT FOUND Number 0004 

SEEK ERROR . Number 0040 

SEEK STATUS. L BYTE 003E DATA 

SEG FAIL . . L WORD OOCA DATA 

SERIAL IO. . N PROC E739 CODE Length =004E 

SERIAL T OUT L BYTE OO?C DATA Length =0004 

SET OS . . . N PROC E53A CODE Length =0006 

SET OS WORD. L WORD E538 CODE 

SPASS M 

.. L BYTE D9C4 CODE 

STACK ROM. L WORD 0900 CODE 

STACK SEG. Number 0030 

- 

STOP . L NEAR DE21 CODE 

STOP DISK. N PROC ED 50 CODE Length =0007 

SWITCH BITS. L WORD 0010 DATA 

SYS CONF A Number 0066 

SYS CONF B Number 0067 

S EOL. L NEAR FFCD CODE 

S ERR. L NEAR FFBD CODE 

S GET. L NEAR FFE1 CODE 

S INT. N PROC FF54 CODE Length =0096 

- 

S LP . L NEAR FF99 CODE 

S NOP. L NEAR FFCA CODE 

S OK L NEAR FFA2 CODE 

S OUT. L NEAR FFD4 CODE 

TOCMD. Number 0036 

TOCOUNT. Number 0000 

T1CMD. . Number 0074 

T1COUNT. Number 0013 

T2CMD .. Number OOB6 

T2COUNT. Number 0266 

TIME OUT Number 0080 

TOO ... Number 0001 

TRAP MESS. L BYTE F6E8 CODE 

T DAY. N PROC FE6E CODE Length =0037 

T END ... L NEAR FEA3 CODE 

T HI ... L NEAR FEC5 CODE 

T HI ORDER L WORD 006E DATA 

T INC. L NEAR FEBB CODE 

1-280 


T INT .... N PROC FEA5 CODE Length =004A 

T LOW ORDER. L WORD 006C DATA 

T NFE. L NEAR FE78 CODE 

T NFF .. L NEAR FE7E CODE 

T OFL .. L NEAR FEE1 CODE 

T OVERFLOW L BYTE 0070 DATA 

T SET .. L NEAR FE95 CODE 

- 

- - 

- 

- 

- 

- 

- 

U12M12D. Number 0002 



VECTOR . N PROC FFFO CODE Length =OOOF 

VROM CHKSUM OK L NEAR E139 CODE 

VROM ERR . . . L NEAR E14E CODE 

VROM SCAN EXIT L NEAR E152 CODE 

VROM SCAN LOOP L NEAR E111 CODE 

- - 

- 

- - 

- - 

VROM SCAN NEXT . L NEAR E14E CODE 

v 0. L NEAR F30D CODE 

- 

- - 

v 01 L NEAR F31A CODE 

v 02 L NEAR F31B CODE 

v 1. L NEAR F322 CODE 

- 

- 

v 2. L NEAR F32C CODE 

- 

v 21 L NEAR F331 CODE 


- 

v 3. L NEAR F368 CODE 

- 

v 31 L NEAR F36A CODE 

- 

V 3X8. L BYTE 0065 DATA 

v 4 .. L NEAR F37A CODE 


- 

- 

V APAGE. L BYTE 0062 DATA 

V BASE6845 L WORD 0063 DATA 

V BELL . N PROC F583 CODE Length =0025 

V BS L NEAR F4F8 CODE 

V C2 .. L NEAR F308 CODE 

V CLR. L NEAR F2B8 CODE 

V CLR FAST L NEAR F2CF CODE 

V CLR FIN. L NEAR F2D9 CODE 

V CLR TOP. L NEAR F3AC CODE 

V COL ... N PROC F44F CODE Length =002C 

V COLORPAL L BYTE 0066 DATA 

V COLOUR L NEAR F08E CODE 

V COLS . L NEAR F305 CODE 

V COL 0. L NEAR F464 CODE 

V COL 1. L NEAR F46B CODE 

V CR .. L NEAR F500 CODE 

V CURPOS L WORD 0050 DATA Length =0008 

V CURSIZE. L WORD 0060 DATA 

V CURS POS N PROC F1F7 CODE Length =001E 

V CURS TYPE. N PROC F1E9 CODE Length =OOOE 

V DATA1. N PROC F045 CODE Length =0020 

V DATA2. N PROC FOA4 CODE Length =0058 

V FPOS . N PROC F542 CODE Length =001E 

V FPOS 0 L NEAR F554 CODE 

V FPOS LP. L NEAR F54D CODE 

V HEIGHT L WORD 004C DATA 

V IO N PROC F065 CODE Length =003F 

- 

- 

- 

- 

- 

- 

- - 

- - 

- - 

- 

- 

- 

- 

- - 

- - 

- 

- 

- 

- - 

- - 

- 

- 

- 

- - 

- - 

- 

- 



1-281


V KSCROLL 1 Number ODED 

V KSCROLL2 Number 0162 

V LF L NEAR F4BO CODE 

V LROW . L NEAR F4BB CODE 

V MD 40. L BYTE FOA4 CODE 

V MD 80. L BYTE FOB4 CODE 

V MD CLR L NEAR F171 CODE 

V MD CLR 2K. L NEAR F16C CODE 

V MD CLR 8K. L NEAR F16E CODE 

V MD CLR GRAPHICS. L NEAR F168 CODE 

V MD DBL . . L NEAR F188 CODE 

V MD ENABLE. L BYTE FOF4 CODE 

V MD GRAPH L BYTE FOC4 CODE 

V MD LEN . L WORD FOE4 CODE 

V MD MONO. L BYTE FOD4 CODE 

V MD WID L BYTE FOEC CODE 

V MODE L BYTE 0049 DATA 

V MV .. L NEAR F295 CODE 

V MV2 .. L NEAR F2A2 CODE 

V MV ON. L NEAR F3A5 CODE 

V MV FAST. L NEAR F2A8 CODE 

V MV FLP . L NEAR F2AB CODE 

V NOP .. L NEAR FOA3 CODE 

V OUT BYTE . N PROC F273 CODE Length =OOOC 

V OVR NOT OK L NEAR F1C4 CODE 

V OVR OK L NEAR F1C6 CODE 

V PAGE . N PROC F22C CODE Length =0047 

V PAGE 0 L NEAR F23E CODE 

V PARMS. L BYTE FOA4 CODE 

V POINTER. Number 03B4 

V POSN . . N PROC F560 CODE Length =0011 

V RAC ... N PROC F3B1 CODE Length =002A 

V RAC INBLANK. L NEAR F3CD CODE 

V RAC INLINE L NEAR F3C7 CODE 

V ROWS . . . L NEAR F304 CODE 

V R CURS POS N PROC F215 CODE Length =0017 

V SCRL ON. . N PROC F390 CODE Length =0021 

V SCRL MODE 7. L NEAR F2E7 CODE 

V SCRL MV AND CLR. L NEAR F541 CODE 

V SCRL POS . . . . N PROC F513 CODE Length =002F 

V SCRL TTY . . . . L NEAR F4C6 CODE 

V SCRL TTY GRAPHICS. L NEAR F405 CODE 

V SCRL UP. . . . . N PROC F27F CODE Length =0111 

V SCROLL OR CLEAR. L NEAR F2EC CODE 

V SET CURS . . L NEAR F210 CODE 

V SET CUR POS .. L NEAR F256 CODE 

V SET MODE . . . N PROC FOFC CODE Length =ODED 

V SET MODE COLOR L NEAR F117 CODE 

V SET MODE LP. L NEAR F147 CODE 

V SET NEW CUR. L NEAR F4C1 CODE 

V STAT . N PROC F504 CODE Length =OOOF 

V SYNC . L NEAR F385 CODE 

V SYNC2. L NEAR F38A CODE 

V TBL .. L WORD F045 CODE 

V TERMINAL N PROC F47B CODE Length =0089 

- 

- 

- 

- 

- 

- 

- 

- 

- - 

- 

- 

- 

- - - 

- - 

- 

- - 

- 

- 

- 

- 

- - 

- - 

- 

- 

- 

- - - 

- - 

- - 

- - 

- 

- - - 

- - 

- 

- - 

- - - 

- - 

- - - 

- - - 

- - - 

- 

- 

- 

- 

- 

1-282 


===w 

V TERM NOBELL. L NEAR F482 CODE 

V TERM NOP L NEAR F4FO CODE 

V TERM RET L NEAR F4EE CODE 

V TOP .. L WORD 004E DATA 

V TXT ON L NEAR F399 CODE 

V TXT MD N PROC F571 CODE Length =0012 

V TXT OK L NEAR F581 CODE 

V TXT RAC. L NEAR F3B9 CODE 

V TXT UP L NEAR F287 CODE 

V TXT WAC. L NEAR F3E3 CODE 

V TXT WC L NEAR F41C CODE 

- - 

- - 

- 

- 

- - 

- - 

- - 

- - 

- - 

- - 

- - 

v v .. L NEAR F338 CODE 

- 

V V2 .. L NEAR F373 CODE 

V WAC .. N PROC F3DB CODE Length =0039 

V WAC END. L NEAR F40F CODE 

V WAC HI L NEAR F3FA CODE 

V WAC LO L NEAR F400 CODE 

- 

- 

- - 

- - 

- - 

v we .. N PROC F414 CODE Length =003B 

- 

V WC END L NEAR F44A CODE 

- - 

v we HI. L NEAR F433 CODE 

v we LO. L NEAR F439 CODE 

V WC NEXT. L NEAR F433 CODE 

V WIDTH. L WORD 004A DATA 

- 

WASTE .. L NEAR F604 CODE 

WASTEG . L NEAR EE15 CODE 

WEREBACK L NEAR ODDS CODE 

WRITE PROTECT. Number 0003 

- 

WX2 FMT .. L NEAR 0000 CODE External 

- 

W NEC ... L NEAR F657 CODE 

W NEC RET. L NEAR F66B CODE 

W ONE. L NEAR EFSO CODE 

- 

- - 

- 

YEARS. . . L NEAR F913 CODE 




Segments and Groups: 

N a m e Size Align Combine Class 

CODE . D54B PARA COMMON 'ROM' 

INTVEC 7COO AT DODO 

WDRAM. 0078 AT 0040 

Symbols: 

N a m e Type Value Attr 

A1 BP. Number 0008 

A1 BX. Number OOOE 

A1 ex. Number oooc 

A1 DI. Number 0006 

A1 DS. Number 0002 

A1 OX. Number OOOA 

A1 ES. Number DODO 

AGAINO L NEAR B01C CODE 

AGAIN1 L NEAR BD34 CODE 

AGAIN2 L NEAR B04A CODE 

AGAIN3 L NEAR B060 CODE 

AGAIN4 L NEAR BD76 CODE 

AGAIN5 L NEAR BD8C CODE 

AGAIN6 L NEAR BOA2 CODE 

AL SI. Number 0004 

ANOTHER. L NEAR B015 CODE 

BAD. N PROC BODO CODE Length =0831 

BBB .. L NEAR BODO CODE 

BC BAD L NEAR D1B3 CODE 

BC BUFF RD Number OOOE 

BC BUFF WR Number OOOF 

- 

BC CC. Number 0001 

BC DASD. . Number 0015 

BC DIAG CTLR Number 0014 

BC DIAG DRV. Number 0013 

BC DIAG RAM. Number 0012 

- 

- 

BC FBT Number 0006 

- 

BC FD ... Number 0007 

BC FT. Number 0005 

BC PAR RD. Number 0008 

BC PAR SET Number 0009 

BC RD. Number 0002 

BC RDL Number OOOA 

BC RECAL Number 0011 

BC RESET Number 0000 

BC RESET 1 Number DODD 

BC SEEK. . Number oooc 

- 

BC TST ROY Number 0010 

- 

BC VR. Number 0004 

BC V W Number OOOE 

BC WR. Number 0003 

BC WRL Number OOOB 

BIOS INSTALL N PROC CFB4 CODE Global Length =0139 


BOGUS. L NEAR D17B CODE 

BOOT SUCC. L NEAR D158 CODE 

BREC . L NEAR D15D CODE 

BR TBL . L WORD D22A CODE 

BUFF IO. L NEAR D332 CODE 

BUSY L NEAR D48F CODE 

BUSY WAIT. L NEAR D484 CODE 

CCB BLKS Number 0004 

CCB BYTE . L NEAR D496 CODE 

CCB CMD. . Number DODD 

CCB DRV B. Number 0020 

CCB OPT. Number 0005 

CCB SEND L NEAR 047A CODE 

- 

- 

CCFD . Number 0007 

CCREC. . Number 0011 

CCRT .. Number 0012 

CC BUSY. L NEAR 04BD CODE 

CC ER .. Number 0002 

- 

CHK 1 .. L BYTE AOOO CODE 

CMD DONE L NEAR 01BA CODE 

COMMAND BR N PROC 01E4 CODE Length =033F 

CONTINUE . L NEAR 03CF CODE 

CTLR INIT. L NEAR 0011 CODE 

CTLR MISSING L NEAR 0288 CODE 

CTLR MX. . Number 0004 

- 

DC BUFF RD . Number OOOE 

DC BUFF WR . Number OOOF 

DC DIAG CTLR Number OOE4 

DC DIAG DRV. Number OOE3 

DC DIAG RAM. Number ODED 

DC ECC RD. Number 0000 

- 

DC FBT Number 0007 

- 

DC FD ... Number 0004 

DC FT ... Number 0006 

DC PAR SET Number oooc 

DC RD .. Number 0008 

DC RDL . Number DOES 

DC RECAL Number 0001 

DC SEEK. Number OOOB 

DC STAT RD Number 0003 

DC TBL . . L BYTE 0254 CODE 

DC TST ROY Number DODD 

DC VR. Number 0005 

DC WR .. Number OOOA 

DC WRL . Number OOE6 

- 

- - 

DETT BOOT. L NEAR 010E CODE 

DETT BOOT END. L NEAR 012B CODE 

DETT BOOT NXT. L NEAR 0124 CODE 

- 

DIS CHAR L NEAR DOAC CODE 

- 

DMACC. . Number 0001 

DMALONG. Number 0001 

DMANORM. Number DODO 

DMA 64K. L NEAR 0396 CODE 

DMA MASK B 3 Number 0003 

DMA MASK B S Number 0004 

- 



1-285


DMA MODE RD. Number OOOB 

- 

DMA MODE WR. Number 0007 

DMA NO . . . L NEAR 0399 CODE 

DMA R STATUS Number 0008 

DMA START. L NEAR 0349 CODE 

DMA W ADDR Number 0006 

DMA W BYTE Number oooc 

DMA W CLR. Number 0000 

DMA W CMD. Number 0008 

DMA W CNT. Number 0007 

-- 

DMA W MASK Number OOOF 

DMA W MASK B Number OOOA 

DMA W MODE Number OOOB 

DMA W REQ. Number 0009 

DNWIN. . Number 0080 

DRV ... L NEAR 0032 CODE 

DRVN OK. L NEAR D1B7 CODE 

- 

DRV 1 . . L NEAR D4F2 CODE 

DRV CTLR Number 0002 

- 

DRV DIAG L NEAR D3C4 CODE 

DRV FORMAT L NEAR D3CB CODE 

- 

DRV ROY. L NEAR 0076 CODE 

- 

DRV TOTAL. Number 0008 

OS BY HEX. N PROC B8C7 CODE Length =OOOC 

EC ADDR MARK Number 0002 

EC BAD TRK Number OOOB 

EC BC ... Number 0001 

EC CNTLR . Number 0020 

EC DMA 64K Number 0009 

EC ECC COR Number 0011 

EC ECC UN. Number 0010 

EC INIT. . Number 0007 

EC NO ERR. Number 0000 

EC RESET . Number 0005 

- 

EC SEC NOT FND Number 0004 

EC SEEK. Number 0040 

EC STAT. Number DOFF 

- 

EC TIME. Number 0080 

EC UNDEF Number OOBB 

ERC CORR Number 0018 

ERR. L NEAR B8AB CODE 

ER MASTER TBL. L BYTE 0523 CODE 

- 

FALL . L NEAR D3E6 CODE 

FCDISB . Number 0002 

FCKBIN . Number 0001 

FCPRSTR. Number 0009 

FCTEND Number 004C 

FILL . L BYTE A001 CODE Length =7FFF 

HABS . L NEAR 0067 CODE 

HABSS. Number OOOF 

HBAD . L NEAR 0051 CODE 

HBADS. Number 0000 

HD QUIT. L NEAR 0109 CODE 

HGOOD. L NEAR DOSE CODE 

HGOODS . Number 0009 

1-286 


HMSG . 

H EXIT 

I13 BUFF RD. 

I13 BUFF WR. 

I13 cc . . 

I 13 IH . . 

I13 PAR RD 

I13 PAR WR 

I13 RD . . 

I13 RDL .. 

I13 RESET. 

I13 WR . . 

I13 WRL. . 

I19 BOOT SYS 

ID IH .... 

INT OCW1 . . 

INT OCW1 MO. 

INT OCW1 MS. 

INT OCW2 EOI 

INT WAIT . 

INT W OCW2 

IO LONG. 

IO NORM. 

IVDBC. . 

IVFC .. 

IVN BASIC. 

IVN BC . . 

IVN BC DETTE 

IVN DIS CHAR 

IV BC ... 

IV BC DETT . 

IV BOOT. . . 

IV BOOT BUF. 

IV INT . . . 

IV P TBL DETT. 

IV P TBL WIN 

KB RESET 

MDRV 1 

MEC. 

MI . 

MINT 

MNOD 

MSELTBL. 

MSUC .. 

NOCHG. . 

NO RESET 

NXT CTLR 

NXT DRV. 

NZDRVS . 

PAR WR . 

PAR WR ERX 

P DMA. 

P DMACC. . 

P DMA LATCH. 

P INT. 


L NEAR DODC CODE 

L NEAR DOE4 CODE 




F PROC 0170 CODE Global Length =0067 

L NEAR D2EB CODE 

L NEAR D28B CODE 

L NEAR D33A CODE 

L NEAR D31B CODE 




L NEAR ODED CODE 


Number 0001 

Number 0001 

Number 0020 

Number 0020 


Number 0000 



Number 0013 

Number 0021 

Number 0018 

Number 0013 

Number 0040 

Number 0010 

L DWORD 004C INTVEC 

L DWORD 0100 INTVEC 


L FAR 7COO INTVEC 






L BYTE B9C5 CODE 

L BYTE B8E2 CODE 

L BYTE B99F CODE 

L BYTE B9EO CODE 


L BYTE B9B1 CODE 

L NEAR B853 CODE 




L NEAR DODO CODE 

L NEAR D29A CODE 

L NEAR D2DB CODE 

Number 0000 

Number 0063 

Number 0082 

Number 0020 


1-287


P TBL DETT L NEAR CF29 CODE 

P TBL WIN. L NEAR CF34 CODE 

P WX2. Number 0320 

- - 

- - 

- 

RAM CC . . L BYTE 0074 WDRAM 

RAM CCB. . L BYTE 0042 WDRAM 

RAM DRV CNT. L BYTE 0075 WDRAM 

RAM KB RESET . L WORD 0072 WDRAM 

RAM OPT. L BYTE 0076 WDRAM 

RAM PO . L BYTE 0077 WDRAM 

RAM STAT L BYTE 0042 WDRAM 

RAM TIME L WORD 006C WDRAM 

- 

- 

- - 

- 

- 

- 

- 

REPEAT . L NEAR B027 CODE 

REQ L .. L NEAR D4CC CODE 

REQ SUCC L NEAR 0408 CODE 

RET NEAR L NEAR D28A CODE 

- 

RET NEAR 1 L NEAR 0200 CODE 

- - 

RET NEAR 2 L NEAR 048E CODE 


RET NEAR 4 L NEAR 04C8 CODE 

- - 

- - 

- - 


- 

- 

RET NO ERR . L NEAR 030F CODE 

RET STC. . L NEAR 04C7 CODE 

- 

RET TIME . L NEAR 048B CODE 

- 

RET TIME J L NEAR 03EE CODE 

RET TIME K L NEAR 03EB CODE 

- - 

- 

- 

RE OLY L NEAR 0270 CODE 

- 

RE W L NEAR 0274 CODE 

- 

ROW1 L NEAR BOZO CODE 

ROW2 L NEAR B043 ·:ODE 

ROW3 L NEAR B059 CODE 

ROW4 L NEAR B06F CODE 

ROWS L NEAR B085 CODE 

ROW6 L NEAR B09B CODE 

SEC SIZE Number 0200 

SEC SIZE NORM. L NEAR 0340 CODE 

- 

- 

- 

SEND BYTE. L NEAR 02DE CODE 

SEND ERR L NEAR 02E8 CODE 

- 

STAT ERR . L NEAR 0477 CODE 

- 

STAT LOOP. L NEAR 0418 CODE 

- 

SUBTABLE L NEAR 04DA CODE 

SW B . Number 0067 

- 

TOL. Number 0009 

TO TBL L NEAR 052B CODE 

- 

T1L .. Number OOOA 

T1 TBL L NEAR 0534 CODE 

- 

T2L .. Number 0002 

T2 TBL L NEAR 053E CODE 

- 

T3L .. Number 0003 

T3 TBL L NEAR 0540 CODE 

- 

TI 0 1 Number 0165 

TI BC RESET. Number 0584 

TI FIN Number 01BE 

TI KB RESET. Number 019A 

- 

TRDYO. . L NEAR 0024 CODE 

TST DRV ROY. L NEAR 0030 CODE 

1-288 

- - 


UNDEF. L NEAR D474 CODE 

USABLE L NEAR D09C CODE 

W2RAM. Number 0040 

WAIT MORE. L NEAR D3D8 CODE 

WASTED L NEAR B01F CODE 

WASTE1 L NEAR B037 CODE 

WASTE2 L NEAR B04D CODE 



WASTES L NEAR B08F CODE 

WASTE6 L NEAR BOAS CODE 

WE BAD L NEAR BOB1 CODE 

- 

WINS USABLE. L NEAR DOBA CODE 

WIN BC . . . L NEAR D188 CODE 

WIN BOOT .. L NEAR D13S CODE 

WIN BOOT NXT L NEAR D1S2 CODE 

WIN CONT L NEAR D1AC CODE 

- 

- 

WST CYL. . Number DODO 

WST DDTO . Number OOOB 

- 

WST ER BUR Number 0007 

WST FTO .. Number OOOA 

WST HEADS. Number 0002 

WST OPT. . Number 0008 

- 

- 

WST RE WR. Number 0003 

WST STO. . Number 0009 

WST WR PRE Number ODDS 

- 

- - 

WX2 CC . . L NEAR D4AC CODE 

WX2 CONFIG L NEAR DS14 CODE 

WX2 CONFIG 0 Number oooc 

WX2 CONFIG 1 Number 0003 

WX2 FMT. N PROC B840 CODE Global Length =0087 

WX2 INT. . . L NEAR D3F1 CODE 

- 

- 

WX2 L .... Number 0004 

WX2 LRG OFFSET Number oooc 

WX2 MSK ... L NEAR DS1E CODE 

WX2 MSK DMA. Number 0001 

- - 

- 

WX2 MSK INT. Number 0002 

- - 

WX2 REQ ... L NEAR D4C9 CODE 

WX2 RESET. . L NEAR DS19 CODE 

- 

WX2 R CONFIG Number 0002 

WX2 R DATA . Number DODO 

WX2 R STATUS Number 0001 

WX2 STAT .. L NEAR DS19 CODE 

- 

WX2 STAT BUSY. Number 0008 

- - 

WX2 STAT CD. Number 0004 

WX2 STAT DRQ Number 0010 

WX2 STAT INT Number 0020 

WX2 STAT IO. Number 0002 

WX2 STAT REQ Number 0001 

- - 

- - 

WX2 WAIT . L NEAR D3AO CODE 

- 

WX2 W DATA . Number DODO 

WX2 W MSK. . Number 0003 

WX2 W RESET. Number 0001 

WX2 W SELECT Number 0002 

ZFMT L NEAR B880 CODE 



1-289


ZHEX 

ZNX. 

ZNX2 

ZTEND. 

1-290 

N PROC B8D3 

L NEAR B8BA 

L NEAR B8BD 

L NEAR B8C1 

CODE 

CODE 

CODE 

CODE 

Length =OOOF 


A 

ACSII String Utilities-Display, 1-142 

Additional Keyboard Data Area, 1-14 

Addresses, 1-4 

Floppy Disk Port, 1-8 

PC 6300 PLUS, 1-4 

i8237A p_dma Controller Port, 1-4 

i8254 p_timer Port, 1-6 

i8259A Programmable Interrupt Controller Port, 1-5 

Alphabetic (Migratory), 1-36 

Alphabetic (Non-Migratory), 1-40 

Alternate Numeric Keypad, 1-172 

Assembly Modules, 1-3 

Asynchronous Communication Chip (INS8250), 1-9 

B 

Background Colors-Set, 1-217 

BEL Character, 1-224 

Bound Instruction-Check, 1-262 

Break Key Sequence, 1-173 

Byte Location-Video RAM, 1-80 

c 

Call Internal HDU !nit Code, 1-135 

CapLk Bytes, 1-35 

Carry Flag, 1-174 

Cassette I/0, 1-237 

Change-Line Status, 1-190 

Check Error Status, 1-231 

Check Hardware Switches for Drive Type, 1-227 

Check Valid, 1-188 

Check for Bound Instruction, 1-262 

Clear Screen, 1-131 

Clock Calendar, 1-8 

58274A, 1-8 

MM58274 Device Test, 1-115 

Read or Write, 1-242 

Write, 1-246 

Clock Test (8254), 1-138 

Clock Test (MM58274), 1-138 

Code Declaration, 1-2 

Cold Boot, 1-131 

Cold Boot Routine, 1-239 

Color Video Controller, 1-9 

Colors-Set Background and Foreground, 1-217 

Commands, 1-5 

Floppy Disk, 1-8 

i8259A Programmable Interrupt Controller, 1-5 

Index 

Communication LSI Test, 1-140 

Constants, 1-4 

Global, 1-4 

Keyboard, 1-10 

i8237 A p_dma Controller, 1-5 

Control Bytes-i8254 p_timer, 1-6 

Control Ports (General), 1-7 

Controller Tests, 1-95 

8237 p_dma, 1-95, 1-101, 1-103 

8254 p_dma p_timer, 1-95 

8259A Programmable Interrupt Controller, 1-104 

CPU, 1-95 

ROM, 1-95 

Convert BCD to Hexadecimal, 1-245, 1-246 

Convert Hexadecimal to BCD, 1-250 

CPU Interrupt Routines, 1-11 

CPU System Reset Vector, 1-264 

Cursor, 1-202 

Read, 1-203 

Read Attribute and Character, 1-213 

Set Position, 1-203 

Set Value, 1-202 

Write Attribute and Character, 1-214 

Write Character, 1-216 

D 

Data Area, 1-12 

Additional Keyboard, 1-14 

Fixed Disk, 1-13 


Keyboard, 1-12 

Optional Post, 1-13 

Printer and RS-232 Time-Out, 1-14 

ROM BIOS, 1-12 

System, 1-13 

Video Display, 1-13 

i8254 p_timer, 1-13 

Data Declarations, 1-11 

Days Per Month, 1-250 

Decimal Number-Display in ASCII Utilities, 1-144 

Delay Loop (One Millisecond), 1-187 

Deluxe Code Put NUL into kb_buffer, 1-171 

Disable 8259A Programmable Interrupt Controller, 1-125 

Disk Drive Tests, 1-140 

Disk Driver Error Codes (FDU and HDU), 1-8 

Disk Drivers-Initialize, 1-131 

Diskstate, 1-188 

Display ACSII String Utilities, 1-142 

Display Decimal Number in ASCII Utilities, 1-144 

Display Hexadecimal Number in ASCII Utilities, 1-143 

Display Page (Active), 1-204 

Scroll Down, 1-212 

Scroll Up, 1-206 

Set, 1-204 

Terminal Emulator, 1-218 

I-1

Index 

Display Routines, 1-195 

DMA Controller, 1-184 

Double Zero on Keypad, 1-173 

E 

Enable Video, 1-120 

Equipment Check, 1-237 

EQUs to Include Correct Code for Varying Hardware 

Versions, 1-2 

EQUs to Set rom_id Variable for UNIX, 1-2 

Error Routine-Fatal, 1-234 

Error Status-Check, 1-231 

F 

Fatal Error Routine, 1-234 

FDC-Reset and Reprogram, 1-179 

FDU, 1-8 

Controller Constants, 1-8 

Disk Driver Error Codes, 1-8 

Equates, 1-8 

Floppy Disk Commands, 1-8 

Floppy Disk Port Addresses, 1-8 

Parameter Table, 1-229 

Rate Flip-Flops-Write, 1-232 

Test, 1-137 

FDU and HDU Disk Driver Error Codes, 1-8 

Filename, 1-15 

boot.src, 1-239 

bootl.src, 1-149 

cal.src, 1-242 

coml.src, 1-149 

com2.src, 1-157 

fdu6.asm, 1-147 

fdu7.asm, 1-163 

graph.src, 1-78 

hdisk.asm, 1-15 

int18.src, 1-233 

kb.data, 1-34 

kbl.src, 1-154 

kb2.src, 1-165 

kb_buffer, 1-171,1-175 

kb_flag, 1-171 

mem.src, 1-236 

nmi.src, 1-238 

prnscr.src, 1-261 

prt.src, 1-191 

pwrupO.src, 1-130 

pwrupl.src, 1-95 

pwrup1a.src, 1-119 

pwrup2.src, 1-138 



rtc.src, 1-256 

vector.src, 1-259 

vid.src, 1-195 

Fixed Disk Data Area, 1-13 

I-2 


Commands, 1-8 


Port Addresses, 1-8 

Foreground Colors-Set, 1-217 

Format Drive, 1-17 

Function Keypad, 1-42 

G 

Game Card, 1-9 

General Control Ports, 1-7 

Get Byte From FDU Parameter Table, 1-229 

Global Constants, 1-4 

Graphics Mode, 1-82 

Read Character, 1-87 

Scroll Down, 1-86 

Scroll Up, 1-82 

Write Character, 1-91 

Graphics Refresh Memory, 1-84 

Fill Rows With Fill Pattern, 1-85 

Get Offset, 1-95 

Scroll Rows, 1-84 

Graphics Support, 1-78 

Groups, 1-265, 1-284 

H 

Hard Disk (Western Digital), 1-15 

Hardware Switches-Check for Drive Type, 1-227 

HDU Init Code-Call, 1-135 

Hexadecimal Number-Display in ASCII Utilities, 1-143 

I 

i8041A Keyboard Hardware Interrupt Service 

Routine, 1-165 

i8041A Keyboard Software Interrupt Request 


i8237A p_dma, 1-4 

Controller Constants, 1-5 

Controller Port Addresses, 1-4 

i8254 Real-Time Time Clock Test, 1-117 

i8254 p_timer, 1-6 

Control Bytes, 1-6 

Counts, 1-6 


Hardware Interrupt Service Routine, 1-257 



Commands, 1-5 

Hardware Interrupt Routines, 1-11 


Illegal Opcode Interrupt Routine, 1-146 

Includes of Assembly Modules, 1-3

Initialize 8259A Programmable Interrupt 

Controller, 1-125 

Initialize All RAM Variables, 1-131 

Initialize Basic Hardware, 1-131 

Initialize Disk Drivers, 1-131 

Initialize Optional ROMs, 1-136 

Initialize Parallel Printer Interface, 1-194 

Initialize RS-232 Interface, 1-153 

Initialize Video, 1-107 

Input Drive Parameter, 1-228 

INS8250, 1-9 

Asynchronous Communication Chip, 1-9 

Baud Rate Time Constants, 1-150 

Compatible Modem Control Bits, 1-150 

Get Byte, 1-162 

Put Byte, 1-160 

Install Vector Table, 1-124 

Interrupt Locations, 1-11 

Interrupt Pointers-Set Up, 1-131 

Interrupt Routines, 1-11 

CPU, 1-11 

Illegal Opcode, 1-146 

Printer Software, 1-191 

RS-232 Software, 1-151 

Software, 1-11 

Time of Day, 1-256 

Unused Hardware and Illegal Software 

Interrupts, 1-260 

Video, 1-196 

i8041A Keyboard Software, 1-154 

i8254 p_timer Hardware, 1-257 


Interrupt Vector Area, 1-49 

Interrupt Vectors, 1-259 

J 

Jump Table, 1-153 

K 

Keyboard, 1-7 

Boot-Strap Options, 1-140 

Constants, 1-10 

Controller (8041), 1-7 


LEDs, 1-173 

Scan Code Translation Data, 1-34 

Test (8041), 1-140 

i8041A Hardware Interrupt Service Routine, 1-165 

i8041A Software Interrupt Request Routine, 1-154 

Keypad, 1-41 

Alternate, 1-172 

Double Zero, 1-173 

Function, 1-42 

Numeric, 1-41 

L 

Light Pen-Read, 1-204, 1-225 

M 

Macro Definitions, 1-2 

Macros, 1-265 

Media Change, 1-190 

Memory Size Detect, 1-236 

Message Routines, 1-140 

MM58274 Clock Calendar Device Test, 1-115 

MM58274 Clock Test, 1-138 

Monochrome Video Controller, 1-9 

Motherboard Switches-Read, 1-227 

N 

NEC, 1-183 

Controller-Read Result Bytes, 1-183 

Controller-Send Byte, 1-232 

Interrupt, 1-230 

Ready, 1-229 

Numeric Keypad, 1-41 

0 

Optional Post Data Area, 1-13 

ORG'd Font Tables, 1-251 

OS Merge Link Address, 1-14 

Overscan-Set, 1-217 

p 

Parallel Printer Interface, 1-9 

Initialize, 1-194 

Print Character, 1-193 

Read Status, 1-194 

Parameters for Diskette Operation, 1-190 

Passing Error Messages-Display, 1-107 

Pause Waiting for Another Key, 1-170 

PC 6300 PLUS Addresses, 1-4 



i8237A p_dma Controller, 1-4 

i8254 p_timer, 1-6 


Print Character to Parallel Printer Interface, 1-193 

Print Screen, 1-261 

Print Screen Sequence, 1-170 

Printer Software Interrupt Request Routine, 1-191 

Printer Time-Out Data Area, 1-14 

Index 

I-3

Index 

Programmable Interrupt Controller, 1-125 

Disable, 1-125 


Output Mask, 1-126 

Protected Mode Data Space, 1-15 

R 

RAM, 1-12 

Initialize All Variables, 1-131 

Size and Clear, 1-108 

Stack, 1-12 

Storage Test, 1-128 

Test, 1-17, 1-140 

Workspace, 1-50 

Read Attribute and Character at Cursor, 1-213 

Read Character in Graphics Mode, 1-87 

Read Clock Calendar Device, 1-242 

Read Current Video Status, 1-220 

Read Cursor, 1-203 

Read DASD Type, 1-226 

Read Dot, 1-79, 1-218 

Read Light Pen, 1-204, 1-225 

Read Motherboard Switches, 1-227 

Read Result Bytes From NEC Controller, 1-183 

Read Status of Parallel Printer Interface, 1-194 

Read Status of RS-232 Interface, 1-157 

Register Initialization Routine, 1-221 

Registers (6845)-0utput Two Bytes, 1-205 

Reserved, 1-14 

Reset and Reprogram FDC, 1-179 

ROM, 1-100 

Data, 1-195 

Module Test, 1-100 

Test, 1-140 

ROM BIOS Data Area, 1-12 

ROMs-Test for and Initialize, 1-136 

RS-232 Interface, 1-14 

s 


Read Status, 1-157 

Software Interrupt Request Routine, 1-151 

Time-Out Data Area, 1-14 

Wait for Status, 1-159 

Scan Code Translation Data (Keyboard), 1-34 

Screen Sequence-Print, 1-170 

Screen-Print, 1-261 

Screen-Set Mode and Clear, 1-198 

Scroll Active Page Down, 1-212 

Scroll Active Page Up, 1-206 

Scroll Down in Graphics Mode, 1-86 

Scroll Positioning and Register Initialization 


I-4 

Scroll Rows in Graphics Refresh Memory, 1-84 

Scroll Up in Graphics Mode, 1-82 

Sector Buffer, 1-17 

Seek, 1-186 

Segments, 1-265, 1-284 

Send Byte to NEC Controller, 1-232 

Sense Interrupt Status, 1-231 

Set Active Display Page, 1-204 

Set Cursor Position, 1-203 

Set Cursor Value, 1-202 

Set Format Transfer Rate, 1-163 

Set Mode and Clear Screen, 1-198 

Set Original State, 1-228 

Set Overscan and Background/Foreground Colors, 1-217 

Set Transfer Rate, 1-228 

Software Interrupt Routines, 1-11 

State Shifts, 1-171 

Symbols, 1-265, 1-284 

System Configuration From Switches and Enable 

Video, 1-120 

System Configuration-Determine From Switches, 1-107 

System Data Area, 1-12, 1-13 

System Initialization, 1-140 

System Reset Sequence-Test for, 1-170 

T 

Temporary Hardware Initialization, 1-130 

Terminal Emulator to Active Page, 1-218 

Test for Retry, 1-147 

Test for System Reset Sequence, 1-170 

Time Clock (i8254 Real-Time), 1-117 

Time of Day Software Interrupt Request Routine, 1-256 

u 

Utility Routines, 1-141 

v 

Vector Table-Install, 1-107, 1-124 

Video Controller (Color and Monochrome), 1-9 

Video Controller Test, 1-138 

Video Display Data Area, 1-13 

Video Interrupt Service Routine, 1-196 

Video RAM, 1-15 

Video RAM Buffer-Calculate Offset of Character in 

Text Mode, 1-223 

Video RAM Byte Location, 1-80 

Video ROMS-Test for and Initialize, 1-122 

Video Status-Read Current, 1-220

w 

Wait for Status of RS-232 Interface, 1-159 

Western Digital Hard Disk, 1-15 

Write Attribute and Character at Cursor, 1-214 

Write Character at Cursor Position, 1-216 

Write Character in Graphics Mode, 1-91 

Write Clock Calendar Device, 1-242, 1-246 

Write Dot, 1-79, 1-218 

Write to FDU Rate Flip-Flops, 1-232 

I-5

AT&T Personal Computer 6300 Plus - ROM-BIOS Listing

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?