Digital PDFs

AA-P310A-TV

March 1983

322 pages

Original

11MB

Document:	Rainbow 100 CPM-86 80 BIOS Listings
Order Number:	AA-P310A-TV
Revision:
Pages:	322
Original Filename:	http://bitsavers.org/pdf/dec/rainbow/AA-P310A-TV_Rainbow_100_CPM-86_80_BIOS_Listings_Mar83.pdf

OCR Text

AA-P31 OA-TV

RainbowTM

100
CP/M-86/80 BIOS Listings

digital equipment corporation

First Printing, March 1983
© Digital Equipment Corporation 1983. All Rights Reserved.

The information in this document is subject to change without notice and should
not be construed as a commitment by Digital Equipment Corporation. Digital
Equipment Corporation assumes no responsibility for any errors that may
appear in this document.
The software described in this document is furnished under a license and may
only be used or copied in accordance with the terms of such license.
No responsibility is assumed for the use or reliability of software on equipment
that is not supplied by DIGITAL or its affiliated companies.
CP/M®, CP/M®-80 and CP/M®-86 are registered trademarks of Digital
Research Inc.
Z80® is a registerer! trademark of Zilog, Inc.
8088® is a registered trademark of Intel Corporation.
The following are trademarks of Digital Equipment Corporation:

~D~DomDTM
DEC
DECmate
DECsystem-10
DECSYSTEM-20
DECUS
DECwriter
DIBOL

MASSBUS
PDP

P/OS
Professional
Rainbow
RSTS
RSX

UNIBUS
VAX
VMS

VT
Work Processor

The postage-prepaid READER'S COMMENTS form on the last page of this
document requests the user's critical evaluation to assist us in preparing future
documentation.

Printed in U.S.A.

The following pages contain the CP/M-86/80 operating system BIOS listings. Note the following differences:
• The BIOS has a missing POP instruction in a section of code which is apparently never
invoked. It should have been at location 40:2E3C.
• The PRMTVPVT code (actually the Z80code.ASM) has an incorrectly labeled argument in
the multi-sector read routine. The BIOS never calls for multi-sectored reads, so it does not
normally cause problems. (The operand at location 023A (hex) should be SECTN rather
than SECNUM.)
• The diskette read/write code in Z80code.ASM has a timing "window" which can give false
"disk not ready" error messages.
• The SUBMIT command does not work correctly from a non-boot drive.
• The transient program area for a 64K Rainbow™ 100 computer is 47-1/2K bytes.

Page 1

CP/M MACRO ASSEM 2.0

#001

PC-IOO COLD BOOT (TRACK

a, SECTOR 1)

COLD BOOT PROGRAM FOR DEC PC-IOO
LOADS CPL LOADER INTO MEMORY FROM SYSTEM TRACKS
READ INTO SPECIFIED LOCATION BY ROM BOOT
MACLIB

,
OOFF

Z80

CONDITIONALIZE FOR TRACK 0 OR TRACK 1

BOOTIOO EQU
IF BOOTIOO
TITLE
ENDIF
IF NOT BOOTIOO
TITLE
ENDIF

OFFH

; (FF-BOOTIoa, O-BOOTIOl)

'PC-IOO COLD BOOT (TRACK

a, SECTOR 1) ,

'RX-50 STANDARD COLD BOOT (TRACK r, SECTOR 1) ,

;

; ERROR AND COMPLETION CODES FOR THE 8088 ROM
;

0008
OOOA

QERCOD
QSTCOD

EQU
EQU

08H
OAH

;ERROR CODE (CHECK THIS)
;COMPLETION CODE (CHECK THIS)

SYSTEM ADDRESSES FOR LOAD AND START
;

0000
ODAD
DAOO
0000
0002
OFFF
OFFD
OFFB
OFFA
0100

QLLOAD
QLLDSEG
QALLOAD
QPRIMS
QLDSEC
QSEMA4
QLDSSEG
QLDSOFF
QDRNO
PRIMST
;

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

; LOADER OFFSET
0
ODAOH
;LOADER SEGMENT
QLLDSEG*16+QLLOAD
;ABSOLUTE LOAD ADDRESS
0
;PRIMITVES
;LOADER SECTOR (MINUS 1)
2
OFFFH
;SEMAPHORE ADDRESS
OFFDH
;LOADER SEGMENT STORED
OFFBH
;LOADER OFFSET STORED
OFFAH
;STORE DRIVE NUMBER
100H
;PRIMITIVE START

DISK CONSTANTS

;

OOOA
0200

QKSECTRK EQU
QKSECSIZ EQU
;
;

0060
0061
0062
0063

10
512

SECTORS PER TRACK
BYTES PER SECTOR

PC-IOO PORT ADDRESSES

QPCOMD
QPTRKRG
QPSECRG
QPDATA

EQU
EQU
EQU
EQU

60H
61H
62H
63H

FDC COMMAND/STATUS REG
FDC 'I'RACK REG
FDC SECTOR REG
FDC DATA REG

Page 2

0040

QPSTAT

EQU

40H

; GENERAL FD STATUS REG

; DISK CONTROLLER COMMANDS

0008
QCREST EQU
OOSC
QCSTEPIN EQU
0080
QCREADS EQU
OODO
QCTERM EQU
CP/M MACRO ASSEM 2.0
#002

08H
; RESTORE (HEAD LOAD)
SCH
; STEP IN
; READ SECTOR
80H
ODOH
; TERMINATE COMMAND (FORCE INT.)
PC-IOO COLD BOOT (TRACK a, SECTOR 1)

DISK CONTROLLER STATUS - TYPE 1 COMMANDS
;

0080
0040
0020
0010
0008
0004
0002
0001

QMNRDY EQU
QMWPROT EQU
EQU
QMHLT
QMSKERR EQU
QMCRC
EQU
QMTZERO EQU
QMINDEX EQU
QMBUSY EQU

80H
40H
20H
10H
8
4
2
1

NOT READY
WRITE PROTECTED
HEAD LOADED
SEEK ERROR
CRC ERROR
TRACK ZERO
INDEX
CONTROLLER BUSY

;

; DISK CONTROLLER STATUS - TYPE 2 AND 3 COMMANDS
;

0020
0010
0004
0002

QMWRFLT EQU
QMRNF
EQU
QMLDATA EQU
QMDRQ
EQU

20H
10H
4
2

WRITE FAULT
RECORD NOT FOUND
LOST DATA
DATA REQUEST

;

; ERROR MASKS FOR OPERATIONS
009C
0098

QMREAD
QMSEEK

EQU
EQU

QMNRDY+QMRNF+QMCRC+QMLDATA ; READ SECTOR OPN.
QMNRDY+QMSKERR+QMCRC ; POSITIONING OPN.

; MISCELLANEOUS EQUATES

,
1000
1100

BOOTORG EQU
QLSTACK EQU

1000H
BOOTORG+IOOH

WHERE AM I?
STACK LOCATION

,
,.************************************************
;*

ASSERT Z-FLIP, THEN GO TO THE LOADER
WITH A PCHL COMMAND

,.************************************************

8000
00E9
0021
1000

FLIP
EQU
GOWAN
EQU
ZFLIP
EQU
ORG BOOTORG
IF NOT BOOTIOO

8000H
PCHL
21H

;************************************************
;*

RX-SO STANDARD PREFIX BYTES

,.************************************************
DB

; ** TYPE 2 BOOT BLOCK **

Page 3

DB
DB

** OFFSET TO IDENT BLOCK (WORDS)
(6 BYTES, N=6) **
** SYSTEM=!, DATA=O **

DB
DB
DB
DB
DB
#003

40H
ISH
40H
67H

**
**
**
**

CP/M MACRO ASSEM 2.0

100 OCTAL = ZSO **
30 OCTAL = RAINBOW 100 **
100 OCTAL = CP/M **
CHECKSUM FOR 96H **

PC-I00 COLD BOOT (TRACK 0, SECTOR 1)

ENDIF
1000 F3
1001 3EE9
1003 320010
1006 210EI0
1009 3EF9
100B 0321
1000 E9

:START HERE
01
MVI A,GOWAN
STA RSTSPOT
LXI H,BOOTOO
MVI A,OF9H
OUT ZFLIP
RSTSPOT:
PCHL

:NO INTERRUPTS, PLEASE
:LOAD PCHL INSTRUCTION
:MOVE IT OUT
:GET BOOT START IN HL
:TURN OF L.E.D.S
:FLIP
:GO TO BOOT

;==============================================================

BOOTOO.:
100E 3l00ll

LXI

SP,QLSTACK

SET UP STACK POINTER

IN
ANI
JRNZ
DB

QPCOMD
QMBUSY
BOOTI0
20H,BOOTI0-$-1

GET FDC STATUS
READY FOR COMMAND? (QMNRDY+)
NOT YET - WAIT

BOOTI0:
lOll DB60
1013 E601
1015+20FA

MAIN LOOP
1017 DB40
1019 E603
101B 32FAOF
101E 3EOS
1020 CDSCI0
1023 3E02
1025 32B410
102S 0614
102A OE63
102C 21B510
102F 5E
1030 23
1031 56
1032 23
1033 E5
1034 EB
1035 C5
1036 70

IN
ANI
STA
MVI
CALL
MVI
STA
MVI
MVI
LXI
BOOTll: MOV
INX
MOV
INX
PUSH
XCHG
PUSH
MOV

RESTORE DISK AND INITIALIZE FOR READING
QPSTAT
3
QDRNO
A,QCREST
BOOTCMD
A,QLDSEC
BOOTSEC
B,QKSECTRK*2
C,QPDATA
H,ADTAB
E,M

GET DRIVE NUMBER
MASK OUT OTHER BITS
STORE IT FOR LATER
RESTORE DISK
FIRST SECTOR
STORE
SECTORS IN TWO TRACKS
PORT NUMBER
LOAD ADDRESS TABLE START
II
GET LOAD ADDRESS FORM TABLE

::
::
::
::
::

D,M

:: HIGH ORDER ADDRESS

H
H

; ;

SAVE ADDRESS FOR LATER
ADDRESS IN HL
:: SAVE COUNT AND PORT NUMBER
:: LOOK AT LOW-ORDER
II
I

B
]I;,L

Page 4
1037 FEFF

CPI
JRZ
1039+2806
DB
103B 3AB410
LDA
103E CD6ll0
CALL
1041 3AB410
BOOT12: LDA
1044 3C
INR
1045 32B410
STA
1048 Cl
POP
POP
1049 El
DCR
104A 05
JRNZ
104B+20E2
DB
LXI
104D 210000
CP/M MACRO ASSEM 2.0
#004
1050
1053
1056
1059
105B
105E

SHLD
LXI
SHLD
MVI
STA
JMP

22FBOF
21AOOD
22FDOF
3EOA
32FFOF
C30001

,
1061 FEOB
1063+3813
1065 D60A
1067 32B410
106A 3E5C
106C CD8CI0
106F DB60
1071 E698
1073+200D
1075 3AB410
1078 CD9710
107B DB60
107D E69C
107F+2001
1081 C9

OFFH
BOOT12
28H,BOOT12-$-1
BOOTSEC
BOOT20
BOOTSEC

i ;
~ ~
~~

BOOTSEC

~~
~~

B
H
B

LOW ORDER ILLEGAL (FLAGGED)?
SKIP IF SO
LOAD A SECTOR
GET THE SECTOR NUMBER
BUMP IT
STORE IT
RETURN REGISTERS

; ;

BUMP THE COUNT
BOOTll
LOOP BACK UNTIL DONE
20H,BOOTll-$-1
H,QLLOAD
~ LOADER START
PC-I00 COLD BOOT (TRACK a, SECTOR 1)
~~
~~

STORED OFFSET
LOADER SEGMENT
TO INFO WORD
COMPLETION CODE
FLAG 8088 FOR COMPLETION
GO START PRIMITIVES

QLDSOFF
H,QLLDSEG
QLDSSEG
A,QSTCOD
QSEMA4
PRIMST

PRIMARY SUBROUTINE - READS AND LOADS SECTORS

BOOT20: CPI
JRC
DB
SUI
STA
MVI
CALL
IN
ANI
JRNZ
DB
LDA

QKSECTRK+l
BOOT21
38H,BOOT21-$-1
QKSECTRK
BOOTSEC
A,QCSTEPIN
BOOTCMD
QPCOMD
QMSEEK
BOOT90
20H,BOOT90-$-1
BOOTSEC

BOOTREAD
BOOT21: CALL
QPCOMD
IN
ANI
QMREAD
JRNZ BOOT90
DB
20H,BOOT90-$-1
RET

~~
~~

HAVE WE GONE PAST LAST TRACK?
JUMP AHEAD IF NOT
RESET TO LOW SECT FOR NEXT TRACK
RE-STORE IT
STEP IN TO NEXT TRACK

i ;
II
GET FDC STATUS
;; ERROR?
II
GO TAKE CARE OF IT IF SO

GET SECTOR NUMBER

READ A SECTOR
;; GET FDC STATUS
;~ READ ERROR?
II
TAKE CARE OF IT IF SO
I

ELSE RETURN

HANDLE ERROR CONDITIONS - RESTART BOOT
~

BOOT90.:
1082
1084
1086
1088
108B

3EDO
D360
3E08
32FFOF
76

MVI
OUT
MVI
STA
HLT

A,QCTERM
QPCOMD
A,QERCOD
QSEMA4

SUBROUTINE BOOTCMD

TERMINATE COMMAND
ERROR CODE
IN SEMAPHORE LOCATION
GIVE UP

Page 5

SEND COMMAND (NO DATA) TO FDC AND WAIT FOR COMPLETION
COMMAND IS IN REG. A
i

BOOTCMD:
108C D360
108E CDADIO
1091 DB40
1093 87
1094 F8
1095+18FA

OUT
CALL
BOOTCMDl:
IN
ADD
RM
JR
DB

QPCOMD
DLY28M

SEND COMMAND TO FDC
DELAY ABOUT 28 MICROSECONDS

QPSTAT
A

GET GENERAL STATUS
SHIFT INT. BIT TO SIGN
RETURN ON INTERRUPT
WAIT FOR COMPLETION

BOOTCMDI
18H,BOOTCMDl-$-1

SUBROUTINE BOOTREAD
READ A SECTOR INTO (HL)
SECTOR NUMBER IS IN REG. A
,
#005
PC-IOO COLD BOOT (TRACK 0, SECTOR 1)
CP/M MACRO ASSEM 2.0
i

10AB+18F6

BOOTREAD:
OUT
CALL
MVI
OUT
CALL
BOOTRDIO:
IN
ADD
RM
JRNC
DB
INI
DB
JR
DB

lOAD CDBOIO
lOBO CDB310
10B3 C9

RECURSIVE SUBROUTINES TO DELAY 7,14, OR 28 MICROSECONDS (APPROXIMATELY)
BASED ON THE APPROXIMATION THAT A CALL AND A RETURN TAKE ABOUT
7 MICROSECONDS.
i
28 MICROSECONDS
DLY28M: CALL
DLY14M
DLY14M: CALL
DLY7M
14 MICROSECONDS
7 MICROSECONDS
DLY7M: RET

1097 D362
1099 CDBOIO
109C 3E80
109E D360
10AO CDADIO
10A3 DB40
10A5 87
10A6 F8
10A7+30FA
10A9+EDA2

,
10B4

WRITE SECTOR NUMBER
DELAY ABOUT 14 MICROSECONDS

QPSECRG
DLY14M
A,QCREADS
QPCOMD
DLY28M
QPSTAT
A
BOOTRDIO
30H,BOOTRDIO-$-1

SEND READ SECTOR COMMAND
DELAY ABOUT 28 MICROSECONDS
GET GENERAL STATUS
SHIFT INT. BIT TO SIGN
RETURN ON INTERRUPT
i LOOP IF NO DRQ

LOAD A BYTE
OEDH,OA2H
BOOTRDIO
i GO WAIT FOR NEXT BYTE
18H,BOOTRDIO-$-1

TEMPORARY STORAGE

BOOTSEC: DS

CURRENT SECTOR NUMBER

lOBS
lOBS OODA
10B7 OODC
10B9 OODE
10BB OOEO
10BD 00E2

ADTAB

EQU
DW
DW
DW
DW
DW

$
iADDRESS TABLE
QALLOAD
QALLOAD+QKSECSIZ
QALLOAD+QKSECSIZ*2
QALLOAD+QKSECSIZ*3
QALLOAD+QKSECSIZ*4

1 LOADER START
2
3
4
5

Page 6
10BF 00E4
lOCI 00E6
10C3 00E8
10CS OOEA
10C7 FFFF
10C9 OOEC
10CB OOEE
lOCO OOFO
10CF 00F2
1001 00F4
10D3 00F6
10DS 0000
1007 0002
1009 0004
100B 0006
1000 FFFF
10DF FFFF
10El FFFF
10E3 FFFF
IDES FFFF
CP/M MACRO ASSEM 2.0

ow
ow

DW
OW
OW
OW
OW
DW
OW
OW
DW
DW
DW
OW
OW
#006

QALLOAO+QKSECSIZ*S
QALLOAO+QKSECSIZ*6
QALLOAO+QKSECSIZ*7
QALLOAO+QKSECSIZ*8
OFFFFH
QALLOAO+QKSECSIZ*9
QALLOAO+QKSECSIZ*10
QALLOAD+QKSECSIZ*ll
QALLOAO+QKSECSIZ*12
QALLOAD+QKSECSIZ*13
QALLOAD+QKSECSIZ*14
QPRIMS
QPRIMS+QKSECSIZ
QPRIMS+QKSECSIZ*2
QPRIMS+QKSECSIZ*3
OFFFFH
OFFFFH
OFFFFH
OFFFFH
OFFFFH
PC-I00 COLD BOOT (TRACK

10E7 FFFF

OFFFFH

10E9
CP/M MACRO ASSEM 2.0

END
#007

BOOTOO
PC-I00 COLD BOOT (TRACK

lOBS ADTAB
102F BOOTll
108C BOOTCMD
10B4 BOOTSEC
8000 FLIP
0100 PRIMST
0000 QCTERM
0002 QLDSEC
1100 QLSTACK
0002 QMINOEX
0098 QMSEEK
0060 QPCOMD
0061 QPTRKRG

Of
O~

ow
ow

0000 BC
1041 BOOT12
1091 BOOTCMDI
0002 DE
00E9 GOWAN
DAOO QALLOAD
OFFA QORNO
OFFB QLDSOFF
0001 QMBUSY
0004 QMLDATA
0010 QMSKERR
0063 QPDATA
OFFF QSEMA4

100E BOOTOO
1061 BOOT20
1000 BOOTORG
lOBO DLY14M
0004 HL
0080 QCREAOS
0008 QERCOO
OFFO QLDSSEG
0008 QMCRC
0080 QMNROY
0004 QMTZERO
0000 QPRIMS
OOOA QSTCOD

a, SECTOR 1)

6
7
8
9
SECOND BOOT
10
11
12
13
14
15 LOADER END
16 PRIMITIVE START
17
18
19 PRIMITIVE END
NULL rJIC)
NULL rJIC)
NULL (JIC)
NULL (JIC)
NULL rJIC)
NULL rJIC)

a, SECTOR 1)

OOFF BOOTI00
1078 BOOT21
10A3 BOOTROI0
lOAD OLY28M
0004 IX
0008 QCREST
0200 QKSECSIZ
OOAO QLLOSEG
0002 QMDRQ
009C QMREAO
0040 QMWPROT
0062 QPSECRG
1000 RSTSPOT

1011 BOOTI0
1082 BOOT90
1097 BOOT READ
10B3 OLY7M
0004 IY
OOSC QCSTEPIN
OOOA QKSECTRK
0000 QLLOAD
0020 QMHLT
0010 QMRNF
0020 QMWRFLT
0040 QPSTAT
0021 ZFLIP

CP/M ASM86 1.1

SOURCE: CPLLDCPM.A86

title

PAGE

CP/M-86 Loader

'CP/M-86 Loader'

This module revised for DEC RAINBOW 100
by CPL
July 1982

The CPMLDR consists of this module along with the
LDRBDOS and LBIOS.

CPMLDR is loaded by a load routine which resides
on the first sector of the first track of a CP/M-86/80
system diskette.

CPMLDR itself resides on the

remainder of the first track and on the next track.

CPMLDR first opens the file

'CPM.SYS' using the

LDRBDOS and LBIOS and then reads it into memory.
Pointers and the memory region table
are then initialized.

Finally a jump to the BIOS

initIalization entry point starts CP/M-86/80.

The first 128 byte record of the CPM.SYS file is a header
with the following format:

Page 2

;seg type (not used here)

len

;length (not used here)

abs

ldrstart

;absolute segment address for LOADER

min

;minimum mem (not used here)

max

;max mem needed (not used here)

(This header record is constructed automatically by the
GENCMD utility).

CPMLDR may be read into any segment that does not
overlap the desired system load segment as it makes
all memory references using copies of the CS: register
it is entered with.

0000

false

equ

FFFF

true

equ

not false

OOOD

equ

Odh

OOOA

equ

Oah

0040

CPM SEG

EQU

0040H

STARTING SEGMENT OF
CP/M-86/80 (CPM.SYS)

3600

CPM LEN

EQU

3600H

MAX LENGTH (IN BYTES) OF
CP/M-86/80

3AOO

PTRSBUFS ADR

EQU

(CPM_SEG*16)+CPM_LEN
; STARTING ADDRESS OF

Page 3

POINTERS/BUFFERS DATA BLOCK
0300
CP/M ASM86 1.1

PTRSBUFS LEN
SOURCE: CPLLDCPM.A86

EQU

0300H

LENGTH (IN BYTES) OF

CP/M-86 Loader

POINTERS/BUFFERS DATA BLOCK
03DO

STARTTPA SEG

EQU

{PTRSBUFS_ADR+PTRSBUFS_LEN)/16
; STARTING SEGMENT OF TPA

OFFA

BOOTDRV ADR

EQU

OFFAH

ADDRESS OF BYTE CONTAINING
BOOT DRIVE. (FROM CPL BOOT)

CP/M ASM86 1.1

SOURCE: CPLLDCPM.A86

CP/M-86 Loader

EJECT

0406

LBDOSOFF

EQU

0406H

OFFSET OF LOADER BDOS

1200

LBIOS OFFSET

EQU

1200H

OFFSET OF LOADER BIOS

2500

BIOSOFF

EQU

2500H

OFFSET OF BIOS -THIS IS THE ENTRY POINT INTO CPM

INCLUDE DEFBUF.LIB

*************************************************************************
OFFSETS FROM START OF POINTERS/BUFFERS DATA BLOCK

Page 4

FFAO

XDPCX

EQU

-60H

DISK PARAMETER STORAGE (60H)

0000

XDEFBUF

EQU

OOOH

MISC. BUFFER (LENGTH=80H)

0086

XPACKET

EQU

086H

BIOS MESSAGE PACKET (LENGTH=OEH)

0086

XSTPKT

EQU

086H

START PACKET BUFFER (LENGTH=OEH)

0094

XADCPKT

EQU

094H

DATA PACKET (LENGTH=OEH)

0094

XMVPKT

EQU

094H

MOVE PACKET BUFFER (LENGTH=OEH)

00A2

XSHRBUF

EQU

OA2H

SEGMENT BUFFER (LENGTH=200H)

02F8

XMEMSIZE

EQU

2F8H

MEMORY SIZE (WORD)

02FA

XPCPMADR

EQU

2FAH

PSEUDO CP/M ADDRESS (WORD)

02FC

XZ80PKT

EQU

2FCH

PACKET POINTER FROM Z80 (WORD)

02FE

XI88PKT

EQU

2FEH

PACKET POINTER FROM 8088 (WORD)

02FO

XTTRACK

EQU

2FOH

02F4

XTFORMAT

EQU

2F4H

FORMAT TABLE

02E7

XCSFLAG

EQU

2E7H

CONSOLE STATUS FLAG

;TRACK TABLE

; OFFSETS FROM ZOT FOR CONVENIENCE
0000

ZOTP

EQU

Z80 FLAG

FFFE

Z80FLAGPT

EQU

-2

Z80-RUNNING FLAG

FFFB

CICCK

EQU

-5

CONSOLE STATUS FLAG CHECK

; OTHER USEFUL EQUATES
0002

BDCS

EQU

BDOS CHARACTER READY BIT

0001

BlOCS

EQU

BIOS CONSOLE STATUS BIT

0017

BIOS JMPS

EQU

NUMBER OF FUNCTIONS IN 'JUMP TABLE

*************************************************************************

Page 5

0045

SEGTBL OFFSET

EQU

BIOS JMPS*3

OFFSET (FROM START OF BIOS)
OF WORD WITH OFFSET
(FROM START OF CPM) TO
MEMORY SEGMENT TABLE

0047

PBADR OFFSET

EQU

SEGTBL OFFSET+2

OFFSET (FROM START OF BIOS)
OF WORD THAT WILL CONTAIN
ADDRESS OF POINTERS/BUFFERS
DATA BLOCK

02FA

PCPMADR OFFSET

EQU

XPCPMADR

OFFSET (FROM START OF PTRSBUFS)
OF WORD CONTAINING ADDRESS
OF PSEUDO CP/M

CP/M ASM86 1.1

SOURCE: CPLLDCPM.AB6

CP/M-B6 Loader

O=PSEUDO CP/M NOT LOADED
02FB

MEMSIZE OFFSET

EQU

XMEMSIZE

OFFSET (FROM START OF PTRSBUFS)
OF WORD INDICATING
#PARAGRAPHS ADDITIONAL MEMORY

TO DETERMINE MEMORY SIZE

1000

FSTMEM SEG

EQU

1000H

START OF OPT ADDITIONAL MEMORY

1000

MEMINC

EQU

1000H

SIZE OF MEMORY INCREMENTS

Page 6
(IN PARAGRAPHS)
OOOE

MEMCNT

EQU

OOAs

PATTERNI

EQU

OAsH

0096

PATTERN2

EQU

096H

EQU

224

MAX# MEMORY INCREMENTS

INTERRUPTS

OOEO

BDOS INT

bdos function numbers

0002

coutf

equ

0009

pstrf

equ

OOOE

seldsk

equ

OOOF

openf

equ

0014

readsf

equ

001A

dmaf

equ

0033

dmabf

equ

,.*******************************

,.*
;*

CPMLDR starts here

,.*
,.*******************************

LBDOS INTERRUPT NUMBER

Page 7

cseg

0000 E9FDll

1200

org

JMPF to here from boot ROM

jmp

LBIOS

allow loader BIOS to
ini tialize

loader BIOS jumps here

start:
0003 33CO

XOR

AX,AX

0005 8ECO

MOV

ES,AX

0007 BBFAOF

MOV

BX,BOOTDRV_ADR

OOOA 268A07

MOV

AI;,ES.: [BX]

OOOD 2EA2B601

MOV

BOOTDRV,AL

CP/M ASM86 1.1

SOURCE: CPLLDCPM.A86

0011 E8FIOO

...

... AND SAVE IT

CP/M-86 Loader

call ini tlbdos

0105

GET BOOT DRIVE#

;warm up Ibdos and lbios

READ CPM.SYS

0014 E8FAOO

0111

call openfnc

0017 3CFF7509

0024

cmp ar,255 ! jne perr

insure good file

OOIB BA3601E80501 0126

mov dx,offset nofile ! call msg

no CPM. SYS file

0021 E90FOI

jmp stop

then halt the machine

0133
perr:

;open CPM.SYS

Page 8
0024 8CCAE8F500

mov dx,cs ! call setdmab

OllE

0029 BAD801E8EAOO 0119

mov dx,offset pagel ! call setdma

002F E8F900

call read

012B

AND IGNORE IT

0032 BA4000E8E600 OllE

call setdmab

0038 BAOOOO

iread first page of CPM.SYS

mov dx,O

set DMA segment for disk 10

ioffset of CPM in segment

readit:
003B E8DBOO

0119

call setdma

set DMA offset for

003E 52E8E900

012B

push dx ! call read

next sector read

0042 5A
0043 3C017407

pop dx
cmp al',OlH

004E

add dx,80h

0047 81C28000
004B E9EDFF

je done

check for EOF
address for next

jmp readit

003B
done:

MOV

004E 2E8916B401

LDLEN,DX

DETERMINE MEMORY SIZE

0053 BBOOOO

MOV

BX,O

0056 B80010

MOV

AX,FSTMEM_SEG

0059 8EeO

MOV

ES,AX

005B BIOE

MOV

CL,MEMCNT

005D 26C607A5

MOV

ES:BYTE PTR [BX)',PATTERNI

0061 26803FA5

CMP

ES:BYTE PTR [BX]', PATTERNI

JNE

DONEMEM

TESTMEM:

0065 7515

007C

SAVE LENGTH

recor~

Page 9

0067 26C60796

MOV

ES:BYTE PTR [BX)',PATTERN2

006B 26S03F96

CMP

ES:BYTE PTR [BX]"PATTERN2

JNE

DONEMEM

0071 8CCO

MOV

AX,ES

0073 050010

ADD

AX,MEMINC

0076 S.ECO

MOV

ES,AX

007S FEC9

DEC

JNZ

TESTMEM

007C SCCO

MOV

AX,ES

007E 2DOOI0

SUB

AX,MEMINC

OOSl 50

PUSH

006F 750B

007C

007A 75El

005D

TRY NEXT MEMORY AREA

DONEMEM:

CP/M ASMS6 1.1

SOURCE: CPLLDCPM.AS6

SAVE #PARAGRAPHS ADDITIONAL MEMORY

CP/M-S6 Loader

UPDATE POINTERS

; UPDATE BIOS' SEGMENT TABLE FIRST
00S2 2ESE06B201

MOV

ES,LDSEG

00S7 BB4525

MOV

BX,BIOSOFF+SEGTBL_OFFSET

OOSA 26SBIF

MOV

BX,ES: [BX]

GET PTR TO SEGMENT TABLE

OOSD 26C60701

MOV

ES.:BYTE PTR [BX]",l

SET FOR 1 SEGMENT

0091 26C74701D003

MOV

ES.:WORD PTR 1 [BX)',STARTTPA_SEG

SET START OF 1ST SEG

0097 05300C

ADD

AX,FSTMEM_SEG-STARTTPA_SEG

COMPUTE LEN OF 1ST SEG

009A 26S94703

MOV

ES:3[BX]"AX

••• AND SET IT

Page 10

; PLACE ADDRESS OF POINTERS/BUFFERS DATA BLOCK FOR BIOS' USE
009E BB4725

MOV

BX,BIOSOFF+PBADR_OFFSET

00A1 26C707003A

MOV

ES:WORD PTR [BXr,PTRSBUFS_ADR

; INITIALIZE PSEUDO CP/M ADDRESS
00A6 33CO

XOR

AX,AX

00A8 8ECO

MOV

ES,AX

OOAA BBFA3C

MOV

BX,PTRSBUFS_ADR+PCPMADR OFFSET

OOAD 26C7070000

MOV

ES:WORD PTR [BX]"O

; SET SYSTEM SIZE
00B2 BBF83C

MOV

BX,PTRSBUFS_ADR+MEMSIZE OFFSET

00B5 58

POP

00B6 268907

MOV

ES: [BXl ,AX

00B9 BA8301

MOV

DX,OFFSET SEGMENT

CALL

MSG

MOV

AX,LDSEG

CALL

PHEX

OOBC E86700

0126

OOBF 2EA1B201
00C3 E81AOO

OOEO

00C6 BA980lE85AOO 0126

mov dx,offset lenmsg

OOCC 2EAlB40l

mov

ax,ldlen
phex

OODO E80DOO

OOEO

call

00D3 E84DOO

0123

call pcrlf
c1,bootdrv

00D6 2E8AOEB601

mov

OODB 2EFF2EBOOI

jmpf dword ptr bios

PRINT BASE SYSTEM SEGMENT

callmsg

print length message

print last address
and a crlf
pass boot drive.
leap to BIOS initialization

Page 11

,.*****************************
,.*
;*

subroutines

,.*
;*****************************

,.******
phex:
OOEO 890404

;print 4 hex characters from ax
mov cx,0404h

; 4 in both CH and CL

Ihex:
OOE3 D3CO

rol ax,cl

rotate left 4

00E5 5150

push cx ! push ax

save crucial registers

call pnib

print hex nibble

00E7 E80700
CP/M ASM86 1.1

OOFI

SOURCE: CPLLDCPM.A86

OOEA 5859
OOEC FECD75F3

00E3

OOFO C3

CP/M-86 Loader

pop ax

pop cx

restore registers

dec ch

jnz Ihex

and loop four times

ret
pnib:

OOFI 240F3C09
00F5 7705

and aI, Ofh
OOFC

00F7 0430
00F9 E90200

;print low nibble in AL as hex char

OOFE

cmp al,9

ja plO

;above 9 ?

add aI, '0'

;digit

jmp prn

OOFC 0437

plO:

add al,'A'-lO

OOFE 8ADO

prn:

mov dl,al

;char a-e

Page 12

,.******
putehar:
0100 Bl02
0102 E92BOO

mov er ,eoutf
jmp sys_vee

0130

,.******
ini tlbdos:
0105 2E8A16B60l

mov

dr ,bootdrv

select boot disk

OIOA 2AF6

sub

dh,dh

clear top half

aloe BIOE

mov

er,seldsk

OIOE E9lFOO

jmp sys_vee

0130

,.******
openfne:
0111 BIOF

mov er,openf

0113 BAB701

mov dx,offset feb

0116 E9l700

feb already initialized

jmp sys_vee

0130

,.********

setdma:
mov cr ,dmaf

0119 B11A
011B E9.l200

;set new dma addr in dx

jmp sys_vee

0130

,.********
setdmab:
011E B133

set new dma segment base from DX
mov er ,dmabf

Page 13

0120 E90DOO

jmp sys_vec

0130

,.******

0123 BAAD01

pcr1!:

mov dx,offset cr1f

;print carriage return, line feed

,.******
msg:
0126 B109
0128 E90S00

;print msg starting at dx until $
mov cI,pstrf

;print string function

jmp sys_vec

0130

,.*****
CP/M ASM86 1.1

SOURCE.: CPLLDCPM.A86

CP/M-86 Loader

read:
012B BAB701B1l4

mov dx,offset fcb

,.******

0130 CDEO

int bdos int

0132 C3

ret

mov cI,readsf

Page 14

.******

stop:
0133 F4
0134 EBFD

HLT

0133

JMPS

STOP

.********************************
I

.*
I

DATA AREA

.********************************

0136 ODOA54686520

nohle

cr,lf,'The File CPM.SYS Not Found On This Disk'

cr,lf,'Do a system reset with a new diskS'

cr·,lf, 'Segment Address

46696C652043
504D2E535953
204E6F742046
6F756E64204F
6£2054686973
204469736B
015F ODOA446F2061
207379737465
6D2072657365
742077697468
2061206E6577
206469736B24
0183 ODOA5365676D
656E74204164
647265737320

segment

Page 15

302024
0198 000A20202020

1enmsg

cr',lf,'

cr1f

cr',lf,'$'

Last Offset

4C617374204F
666673657420
302024
01AO 000A24

vector for jmpf indirect to start CP/M

01BO

bios

01BO 0025
CP/M ASM86 1.1

biosstart
SOURCE.: CPLLOCPM.A86

org

offset bios

overlay preceding with OW's

biosoff

first word is BIOS offset

CP/M-86 Loader

second is segment to put CPM.SYS

0182 4000

1dseg

01B4

1d1en

01B6

bootdrv

01B7 004350402020

fcb

202020535953
(hlOOOOOOOOOO
000000000000
000000000000

(J, 'CPM

~,'SYS~,(J,(J,(J,(J,(J,(J,(J,(J,cr,(J,(J,(J,(J,(J,cr,cr,cr,cr,cr,cr,o

Page 16
000000

01D8

pagel

128

dummy section for BIOS init label
org

Ibios offset

Ibios:

end

END OF ASSEMBLY.

NUMBER OF ERRORS:

USE FACTOR:

CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

htle

PAGE

Customized Loader Basic I/O Sy

'Customized Loader Basic I/O System'

,.************************************************
,· *

,.*

Processor: PC-IOO Rainbow

*
*
*
*

,· *

Brand:

,.*

Controller:

,.*

System: CP/M 86/80

;* ThlS Customized BIOS adapts CP/M-86 to

;* the following hardware configuration

DEC

,.*

Programmer:rdk/CPL

,.*

Revisions :

,.*

*
*

,.*
,.*

Release 1.0

,.*
,· *

*
*

8/25/82 BIOS modified to operate with

·, *

PC-IOO Rainbow hardware, and to

,.*

operate with Z80 second CPU.

,.*

ROM date: 8/17/82

*
*

,.*

,.************************************************

Page 2

FFFF

true

equ -1

0000

false

equ not true

0000

e"'u Odh

~carriage

DOOA

equ Oah

~line

0043

I-ts

Pqu

43h

0041

Idata

equ

41h

0042

csts

equ

42h

0040

cdata

eau

40h

0013

ctrl s

equ

13h

DOll

ctrl_q

equ

llh

return

feed

:*********************************************

Loader b10S lS true if assembling the

LOADER BIOS, otherW1se BIOS is for the

:* CPM.SYS file.

:*********************************************

FFF'E'

loader b10S

equ true

ODED

bdos int

equ 224

~DEBLOCK

~reserved

BOOS interrupt

EQU TRUE

~do

deblocking

not loader b10S

----------------------------------------------

~ I

Page 3
b~os

CP/M ASM86 1.1

code

SOURCE: CPLDBIOS.A86

equ 2500h
Customized Loader Basic I/O Sy

cco offset

equ OOOOh

bdos ofst

equ OB06h :BDOS entry point

:--------------------------------------------ENDIF
FDOO

:not loader_bios
equ OfdOOh

loader bios

:--------------------------------------------:I
1200

b~o"

0003

ccp_offset

equ 0003h ;base of CPMLOADER

0406

bdos ofst

equ 0406h :stripped BDOS entry

code

equ 1200h :start of LDBIOS

!--------------------------------------------ENDIF

INCLUDE DEFBUF.LIB

*************************************************************************
OFFSETS FROM START OF POINTERS/BUFFERS DATA BLOCK

FF'AO

XDPCX

EQU

-60H

DISK PARAMETER STORAGE (60H)

0000

XDEFBUF

EQU

OOOH

MISC. BUFFER (LENGTH=80H)

0086

XPACKET

EQU

086H

BIOS MESSAGE PACKET (LENGTH=OEH)

Page 4

0086

XSTPKT

EQU

086H

START PACKET BUFFER (LENGTH=OEH)

0094

XADCPKT

EQU

094H

DATA PACKET (LENGTH=OEH)

0094

XMVPKT

EQU

094H

MOVE PACKET BUFFER (LENGTH=OEH)

00A2

XSHRBUF

EQU

OA2H

SEGMENT BUFFER (LENGTH=200H)

02F8

XMEMSIZE

EQU

2F8H

MEMORY SIZE (WORD)

02FA

XPCPMADR

EQU

2FAH

PSEUDO CP/M ADDRESS (WORD)

02FC

XZ80PKT

EQU

2FCH

PACKET POINTER FROM Z80 (WORD)

02FE

XI88PKT

EQU

2FEH

PACKET POINTER FROM 8088 (WORD)

02FO

XTTRACK

EQU

2FOH

TRACK TABLE

02F4

XTFORMAT

EQU

2F4H

FORMAT TABLE

02E7

XCSFLAG

EQU

2E7H

CONSOLE STATUS FLAG

: OFFSETS FROM ZOT FOR CONVENIENCE
0000

ZOTP

EQU

Z80 FLAG

FFFE

Z80FLAGPT

EQU

-2

Z80-RUNNING FLAG

F'FFB

CICCK

EQU

-5

CONSOLE STATUS FLAG CHECK

; OTHER USEFUL EQUATES
0002

BDCS

EQU

BDOS CHARACTER READY BIT

0001

BTOCS

EQU

BIOS CONSOLE STATUS BIT

0017

BIOS JMPS

EQU

NUMBER OF FUNCTIONS IN JUMP TABLE

*************************************************************************

INCLUDE CPLBIOSl.A86

cseg

Page 5
org
CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

ccpoffset
Customized Loader Basic I/O Sy

cc
org

bios code

,.*********************************************
,. *

: * BIOS Jump Vector for Individual Routines

,. *

,.*********************************************

=1200 E9ODol

1310

jmp IN IT

;Enter from BOOT ROM or LOADER

=1203 E97101

1377

jmp WBOOT

;Arrlve here from BDOS call 0

=1206 E9A304

l6AC

Jmp CONST

;return console keyboard status

=1209 E9A504

16Bl

jmp CONIN

;return console keyboard char

=12OC E9A704

16B6

jmp CONOUT

;write char to console device

=12oF E9AE04

16CO

jmp LISTOUT

;write character to list device

=1212 E9Bo04

16C5

jmp PUNCH

;write character to punch device

=1215 E9B204

16CA

jmp READER

;return char from reader device

=1218 E93oo5

174B

jmp HOME

;move to trk 00 on cur sel drive

=121B E9F604

1714

jmp SELDSK

;select disk for next rd/write

=121E E93B05

175C

jmp SETTRK

;set track for next rd/write

=1221 E93E05

1762

jmp SETSEC

;set sector for next rd/write

=1224 E94105

1768

jmp SETDMA

;set offset for user buff (DMA)

=1227 E95A05

1784

jmp READ

;read a 128 byte sector

=122A E97205

179F

jmp WRITE

;write a 128 byte sector

Page 6

=122D E98B04

16BB

jmp LISTST

~return

=1230 E94105

1774

jmp SECTRAN

~xlate

=1233 E93805

176E

jmp SETDMAB

;set seg base for buff (DMA)

=1236 E9AF04

16E8

jmp GETSEGT

;return offset of Mem Desc Table

=1239 E9AI04

16DD

jmp GETIOBF

;return I/O map byte ( IOBYTE)

=123C E9A304

16E2

jmp SETIOBF

;set I/O map byte ( IOBYTE)

=123F E9D606

1918

jmp RWMOVE

;move block of data (* added for 86/80 *)

=1242 E9A704

16EC

jmF VIDEO

;direct video output (* added for 86/80 *)

list status
logical->physical sector

not loader bios

Segment Table address is placed here immediately after
the BIOS jumps to help the loader find the segment table
and set l.t up.

DBPTR

OFFSET SEGTABLE

; POINTER TO DATA BLOCK
(FILLED BY LOADER OR MOVE ROUTINE)

3AOO

DBPTR

loader bios

EQU

3AOOH

;( illed by loader)

ENDIF

,.***************************************************************************

Page 7

CP/M ASM86 1.1

SOURCR: CPLDBIOS.A86

Customized Loader Basic I/O Sy

INTERPROCESSOR COMMUNICATION ROUTINES

.*
I

.***************************************************************************

EQUA'l'ES

0000

INTZ80

EQU

PORT TO INTERRUPT Z80

0002

GSCR

EQU

INTERRUPT STATUS PORT

0080

BIT7

EQU

80H

Z80 INTERRUPT STATUS BIT (0

PENDING)

=1245 4A14

SIOINIT

TPRTISQ

LOCATION TO FURNISH IN IT TABLE START

=1247 00

COI\TINCHECK

CONSOLE STATUS CHECK

=1248 0000

Z80PKT

o
o

TEMP STORAGE FOR PACKET ADDRESS

Page 8

SERV:
=124E 50

PUSH

=124F 53

PUSH

=1250 BB003A

MOV

BX,DBPTR

=1253 IE

PUSH

=1254 33CO

XOR

AX,AX

=1256 8ED8

MOV

DS,AX

SET ZERO DS

=1258 8B9FFC02

MOV

BX,XZ80PKT[BX]

GET PACKET POINTER

=125C 85DB

TEST

BX,BX

TYPE 39 EXIT

IGNORE ZERO FOR PACKET ADDRESS

=1260 2E891E4812

MOV

Z80PKT,BX

STORE PACKET ADDRESS

=1265 2EC7064C12FF

MOV

ZOT,TRUE

SET THE FLAG

=125E 740C

126C

SAVE REGISTERS

GET POINTER TO DATA BLOCK

FF
TYPE 39 EXIT:
=126C E400

AL,INTZ80

CLEAR THE INTERRUPT

=126E IF

POP

RESTORE DS

=126F 5B

POP

RESTORE REGISTERS

=1270 58

POP

=1271 CF

RET
1f not loader bios
;-----------~----------------------------------------- ----------

interrupt handler for type 44 (line frequency clock)

tvpe_44 serv:
mov
int 100

CONINCHECK,Offh ;set flag
;see below

Page 9
lret
CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

Customized Loader Basic I/O Sy

software interrupt for line frequency clock (type 100)

:user mav intercept for use

iret

e __________________________________________________________________ _

endif

;not loader bios

SENDPKT

SEMD A PACKET TO THE Z80

ENTRY:

EXIT:

N/A

POINTER TO PACKET (ABSOLUTE)

SENDPKT:
=1272 IE

PUSH

=1273 53

PUSH

SAVE POINTER

=1274 BB003A

MOV

BX,DBPTR

POINT TO DATA BLOCK

=1277 33CO

XOR

AX,AX

=1279 BED8

MOV

DS,AX

=127B 8F87FE02

POP

WORD PTR XI88PKT[BX)

; SET ZERO DS

SIGNAL Z80 AND WAIT FOR ACKNOWLEDGEMENT

STORE PACKET POINTER

Page 10

=127F E600

OUT

INTZ80,AL

INTERRUPT THE Z80

~"'NDPKIO:

=1281 E402

AL,GSCR

GET Z80 STATUS

=1283 A880

TEST

AL,BIT7

INTERRUPT STILL PENDING?

SENDPKIO

YES - CHECK AGAIN

=1287 C787FE020000

MOV

WORD PTR XI88PKT{BX],0

=128D IF

POP

=128E C3

RET

=1285 74FA

1281

ZERO THE PACKET POINTER

i RESTORE DS

,.************************************T***********
,.*

,.*

Routine to wait for an interrupt

,.*

(type 39) from Z80

,.*

,.************************************************

WAITZ80:

ino interrupts please

=128F FA

cli

=1290 2E833E4C12FF

cmp ZOT,TRUE

=1296 7404

129C

WAITRET

=1298 FB

stl

imust allow interrupts now

=1299 F4

hIt

iwait quietly until interrupt

jmps WAITZ80

iloop back until non-zero

=129A EBF3
=129C FB

128F

WAITRET: sti

iallow interrupts

=129D 2E8BIE4812

mov bx,z80pkt

i get packet address

=12A2 C3

ret

ibye

Page 11

CP/M ASMR6 1.1

SOURCE: CPLDBIOS.A86

Customized Loader Basic I/O Sy

PACKER:

~ t"lke

items off the stack and put them

=12A3 IE

push ds

iinto the message packet

=12A4 2EA34C12

mov '7.0T,ax

iZ80 flag set

=12A8 2E891EA51C

mov BXHLD,bx

isave bx

=12AD 33DB

xor bx,bx

iset zero data segment

=12AF 8EDB

mov ds ,bx

=12B1 2E8F06201E

pop SEGHLD

:save data segment

=12B6 2E8F06221E

pop RTNHLD

ireturn address

=12BB BB003A

mov bx,nBPTR

POINT TO DATA BLOCK

=12BE 81C38600

add bx,xpacket

point to 88 packet

=12C2 03D9

add bx,cx

iend of packet

=12C4 03D9

add bx,cx

i=bx+2*cx

=12C6 2E890E241E

mov COUNT,cx

isave count for later
i 100p to do packing

pk1p:
=12CB 4B

dec bx

iback up bx

=12CC 4B

dec bx

itwice

=12CD 58

pop ax

ig et t.o.s.

=12CE 8907

mov [bxr ,ax

ipack i t

loop pk1p

i100p until done

mov '7.0T,fa1se

i clear "done" flag

=12DO E2F9

12CB

=12D2 2EC7064C1200
00
=12D9 E896FF

1272

call sendpkt

i send packet to z80

=12DC E8BOFF

128F

call "'aitz80

iwait i f z80 is working

Page 12

=12DF 2E8BOE241E

mov cx,COUNT
repak:

iget the count again
itake stuff out of packet

=12E4 8B07

mov ax. [bx]

iand

=12E6 50

push ax

iPush it on the stack

=12E7 43

inc bx

ibump the pointer

=12E8 43

inc bx

itwice

loop repak

iloop until done

=12E9 E2F9

12E4

=12EB 2EFF36221E

push RTNHLD

=12FO 2E8EIE201E

mov ds', SEGHLD

irestore return and segment

=12F5 2E8BIEA51C

mov bx,BXHLD

irestore bx

=12FA C3

ret

omsg:
=12FB 8A07

mov aI, [BX]

=12FD 84CO

test al,al

=12FF 740A

l30B

jz pmretn

iget next char from message

iif zero return

=l301 8AC8

mov CL,AL

=l303 53

push bx

i preserve pointer

call CONOUT

iprint it

=l304 E8AF03

16B6

=l307 5B

pop bx

=l308 43

~nc

=l309 EBFO

12FB

jmps pmsg

=l30B B083

pmrecn: mov al,83h

=l30D E60A

out Oah,al

=l30F C3

ret

inext character and loop

imake sure that crt is initiallized

Page 13

CP/M ASM86 1.1

SOURCR: CPLDBIOS.A86

Customized Loader Basic I/O Sy

;*********************************************

,. *

;* IN IT Entry Point, Differs for LDBIOS and

;* BIOS, according to "Loader Bios" value

., *
*
,.*********************************************
INIT:

;prlnt signon message and initialize hardware
if loader bios

set up a stack

,._---------------------------------------,
=1310 FA

cli

interrupts, please

=1311 8CC8

mov ax cs

=1313 8EDO

mov ss,ax

=1315 BC5F1E

mov so,offset stkbase

set up a local stack

=1318 FB

sti

interrupts ok now

=1319 51

push cx

use cs for stack too

j---------------------------------------j
endif

=131A 8CC8

mov ax,cs

;we entered with a JMPF so use

=131C 8ED8

mov ds,ax

;CS: as the initial value for

=131E 8ECO

mov es,ax

;and ES:

DS~,

Page 14

not loader bios

i--------------------------------------------i I

This is a BIOS for the CPM.SYS file.
Setup all interrupt vectors in low
memory to address trap
:use local stack during initialization
cll

ino interrupts while doing the stack

mov ss,ax

iCS: as the initial value of SS(,

mov sp,offset stkbase
stl.

iinterrupts ok now

cld

iset forward direction

push cx
mov cl,95H

iset IOBYTE to lst=lpt,con=crt

call SETIOBF
mov '180

ENDIF

inot loader bios

loader bios

i--------------------------------------------i I

iThis is a BIOS for the LOADER

Page 15
=1320 FC
CP/M ASM86 1.1

=1321 E82300

cld

iset forward direction

SOURCE: CPLDBIOS.A86

Customized Loader Basic I/O Sy

call REVECTOR

1347

iset up interrupts

i--------------------------------------------ENDIF

iloader_bios

l.f

not loader bios

STI
endl.f
=1324 BBA8lC
=1327 E8DlFF

mov
l2FB

b~,offset

call pmsg

signon
iprint signon message

iset up track and format tables
=132A BB003A

mov bx,dbptr

=132D IE

push ds

=132E 33CO

xor ax,ax

=1330 8ED8

mov dS,ax

=1332 B90400

mov cx,nrdisks

ihow many disks?

=1335 F6D4

not ah

:need ff in ah

iget address of table area

izero for data seg

=1337 88A7F002

l.nitlO: mov xttrack[bx] ,ah

itracks to ff

=133B 8887F402

mov xtformat [bxr,al

iformats to 00

=133F 43

l.nc bx

=1340 E2F5

l337

loop initIO

iloop back until done

=l342 IF

pop ds

:restore data seg

=1343 59

pop cx

irestore drive etc

Page 16

if not loader bios

j----------------------------------------------------- --mov al,cl

;let's take a look at that drive

and al,Ofh

;make sure it's valid, then ..•

mov b te ptr .curdrvs,al

;store drive for submit files

e _________________________________________________________ _

endif
=1344 E9BCEC

0003

;not loader_bios
jmp ccp

;jump to cold start entry of CCP

IF loader blOS

j--------------------------------------------REVECTOR:
=1347 IE

push ds

;save data segment

=1348 B80000

mov ax,O

=134B 8ED8

mov ds,ax

;point to segment zero

;BDOS interrupt offset
=134D C70680030604
=1353 8COE8203

mov bdos_segment,CS ;bdos interrupt segment
(additional LOADER initialization)

=1357 C7069C004E12
=135D 8COE9EOO

MOV

;use current code segment (why not?

=1361 C70690004F15

mov sio offset,offset I232RX

=1367 8COE9200

mov sio _seg,cs

=136B C70694006B15

mov sio2 offset ,offset 1232RX2

=1371 8COE9600

mov sio2 _seg,cs

=1375 IF

pop ds

=1376 C3

ret

;restore data segment

:---------------------------------------------

Page 17
ENDIF iloader_bios
CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

Customized Loader Basic I/O Sy

F not loader bios
i SET UP INTERRUPT VECTORS

REVECTOR:
push ds

isave the DS register

CLI

i DISABLE WHILE CHANGING VECTORS

,.**********************************************************
,.**

Firm--are initializing

***

xor dI,dI

,.**

mov di,16h

,.**

int 40

,.**

mov di,Och

,.**

int 40

,.**

eli

:**

,.**********************************************************
mov ax,O
mov ds,ax
mov eS,ax
iBDOS

iset ES and DS to zero

offset to proper interrupt

MOV

BDOS_SEGMENT,CS

MOV

Z80_0FFSET,OFFSET TYPE 39 SERV

Page 18

MOV

iuse current code segment (why not?)

mov tp_44_seg,cs
mov tp_lOO_offset,offset type 100_serv
mov tp_lOO_seg,cs
mov slo_offset,offset 1232RX
mov slo_seg,cs
mov

~lo2_offset,offset

1232RX2

mov slo2_seg,cs

RE-ENABLE INTERRUPTS

STI

=1377 2EC7064A1200

pop ds

irestore the DS register

jmp P232INIT

iinitialize sio

ENnIF

inot loader_bios

WBOOT:

mov Z80FLAG,false

iset z80 not running

00
=137E E8C6FF

1347

call revector

=1381 E985EC

0009

jmp ccp+6

idirect entry to CCP at command level

,.*********************************************
,.*
,.*
,.*

*
CP/M r.haracter I/O Interface Routines

Page 19

,.*********************************************
CP/M ASM86 1.1

SOURCR: CPLDBIOS.A86

Customized Loader Basic I/O Sy

TERMINAL DEVICE DRIVERS

CR'l'OUT:
=1384 8ACI

MOV

AL,CL

Move character for output

=1386 BFOOOO

MOV

DI,O

Function code

=1389 06

PUSH

=138A CD28

INT

=138C 07

POP

=138D C3

RET

CRTTN:
=138E 06

PUSH

=138F BF0200

CRTINl: MOV

ES
DI,2

Function code

=1392 CD28

INT

=1394 84C9

TEST

CL,CL

Character available?

CRTINI

No - retry

=1396 74F'7

138F

=1398 2EF'7064A12FF

test z80flag,true

Is Z80 running?

jz CRTIN2

go away if not

FF
=139F 74lC

13BD

=13Al 50

push ax

=13A2 BF0400

mov di,4

=13A5 CD28

int 40

=13A7 33DB

xor bx,bx

Page 20

=13A9 8EC3

mov es,bx

=13AB BB003A

mov bx,DBPTR

=13AE 80ElOl

and cl,BIOCS

=13Bl 2680A7E702FE

and es:byte ptr xcsflag [bx] ,not BlOCS

=13B7 26088FE702

or es:byte ptr xcsflag [bx] ,cl

=13BC 58

pop ax

=13BD 07

CRTIN2.: pop es

=13BE C3

RET

iclear status flog

Return character in AL

CRTSTI:
=13BF BF0400

MOV

Dr ,4

=13C2 06

PUSH

=13C3 CD28

INT

=13C5 07

POP

=13C6 8ACI

MOV

AL,CL

Move status for return

=13C8 C3

RET

AL,OFFH

Always ready

Function code

CRTSTO:
=13C9 BOFF

MOV

=13CB C3

RET

SERIAL I/O ROUTINES FOR DEC RAINBOW 100

0080

HIPAR

EQU

80H

HIGH PARITY BIT

Page 21
; CONTROL BLOCK OFFSETS
CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

Customized Loader Basic I/O Sy

0000

QTPORT

EQU

BYTE PTR 0

CONTROL PORT ADDRESS

0001

QTFLAGS EQU

BYTE PTR 1

DEVICE FLAGS (SEE MEANINGS BELOW)

0002

QTNRCHR EQU

BYTE PTR 2

NR. OF CHARACTERS CURRENTLY IN BUFFER

0003

QTCAP

EQU

BYTE PTR 3

BUFFER CAPACITY IN BYTES (CONSTANT)

0004

QTINPTR EQU

BYTE PTR 4

BUFFER INPUT POINTER

0005

QTOTPTR EQU

BYTE PTR 5

BUFFER OUTPUT POINTER

0006

QTDEND

BYTE PTR 6

OFFSET OF LAST DATA BYTE (CONSTANT)

0007

QTDEVID EQU

OFFSET OF PHYS DEVICE ID FOR ERROR MESSAGE

OOOA

Q'I'DATA

BUFFER DATA AREA

EQU

BIT ASSIGNMENTS FOR "QTFLAGS"

0001

QMSUSP

EQU

OUTPUT SUSPENDED

0002

QMTYPE

EQU

XON/XOFF, PARITY ERROR CHECKING

0004

QMINIT

EQU

DEVICE REQUIRES INITIALIZATION

0008

QMISUSP EQU

INPUT SUSPENDED

0010

QMBREAK EQU

10H

BREAK DETECTED

BUFFER LENGTHS IN CONTROL BLOCKS

0020

QKPRTBL EQU

PRINTER CONTROL BLOCK

0020

QKCOMBL EQU

COMM PORT CONTROL BLOCK

0020

QKCOM2BL EQU

OPTIONAL COMM PORT CTL BLOCK

Page 22

CONTROL PORT ADDRESSES

0043

QPPRT

EQU

43H

PRINTER PORT

0042

QPCOM

EQU

42H

COMM PORT

0022

QPCOM2

EQU

22H

OPTIONAL COMM PORT

ASCII CONTROL CHARACTERS

0007

QKBEL

EQU

BEL

0011

QKXON

EQU

XON (CTL-Q)

0013

QKXOFF

EQU

XOFF (CTL-S)

0091

QKXONP

EQU

17+HIPAR

XON+ (CTL-Q)

0093

QKXOFFP EQU

19+HIPAR

XOFF+ (CTL-S)

001A

QKSUB

EQU

"IB

SIO STATUS BITS - RRO

0001

QMRXR

EQU

RECEIVED CHAR. READY

0004

QMTXR

EQU

TRANSMIT READY

0080

QMBRK

EQU

80H

BREAK

SIO STATUS BITS - RR1

0010

QMPARE

EQU

10H

PARITY ERROR

0020

QMOVRE

EQU

20H

OVERRUN ERROR

Page 23
; SIO COMMANDS - WRO
CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

Customized Loader Basic I/O Sy

0038

QKEOI EQU

38H

END OF INTERRUPT

0018

QKCHRST EQU

18H

CHANNEL RESET

0030

QKRESERR EQU

30H

RESET ERRORS

0010

QKRESI

10H

RESET EXT/STATUS INT.

EQU

SIO COMMANDS - WRI

0018

QMMRXI

EQU

18H

INTERRUPT ON ALL RX CHAR.

SIO COMMANDS - WR3

0040

QMR7BIT EQU

40H

RX 7 BITS/CHAR

OOCO

QMR8BIT EQU

OCOH

RX 8 BITS/CHAR

0001

QMMRXE

RX ENABLE

EQU

SIO COMMANDS - WR4

0040

QMMX16

EQU

40H

X16 CLOCK

OOOC

QMMST2

EQU

OCH

2 STOP BITS

0004

QMMSTI

EQU

1 STOP BIT

SIO COMMANDS - WR5

Paqe 24

0080

QMMDTR

EQU

80H

DTR ON

0002

QMMRTS

EQU

RTS ON

0008

QMMTXE

EQU

TX ENABLE

0020

QMT7BIT EQU

20H

TX 7 BITS/CHAR

0060

QMT8BIT EQU

60H

TX 8 BITS/CHAR

CONTROL BLOCKS FOR EACH DEVICE

PRINTER CONTROL BLOCK

=13CC 43

QPPRT

PORT ADDRESS

=13CD 04

QMINIT

USES XON/XOFF

=13CE 00

NUMBER OF CHARS.

=13CF 20

QKPRTBL

CAPACITY

=13DO OA

QTDATA

INPUT POINTER

=13D1 OA

QTDATA

OUTPUT POINTER

=13D2 29

QTDATA-1+QKPRTBL

=13D3 545459

'TTY'

DEVICE ID

=13D6

QKPRTBL

DATA BUFFER

=13CC

TPRTCB

COMM PORT CONTROL BLOCK

=13F6

TCOMCB

OFFSET OF LAST DATA BYTE

Page 25
=13F6 42
CP/M ASM86 1.1

DB
SOURCE: CPLDBIOS.A86

QPCOM

PORT ADDRESS

Customized Loader Basic I/O Sy

=13F7 06

QMTYPE+QMINIT

; NO XON/XOFF

=13F8 00

NUMBER OF CHARACTERS

=13F9 20

QKCOMBL

CAPACITY

=13FA OA

QTDATA

INPUT POINTER

=13FB OA

QTDATA

OUTPUT POINTER

=13FC 29

QTDATA-1+QKCOMBL

=13FD 505450

'PTP'

DEVICE ID

=1400

QKCOMBL

DATA BUFFER

OFFSET OF LAST DATA BYTE

; OPTIONAL COMM PORT CONTROL BLOCK

=1420

TCOM2CB RS

=1420 22

QPCOM2

PORT ADDRESS

=1421 02

QMTYPE

NO XON/XOFF

=1422 00

NUMBER OF CHARACTERS

=1423 20

QKCOM2BL

=1424 OA

QTDATA

INPUT POINTER

=1425 OA

QTDATA

OUTPUT POINTER

=1426 29

QTDATA-1+QKCOM2BL

=1427 554331

'UC1'

DEVICE ID

=142A

QKCOM2BL

DATA BUFFER

; CAPACITY

INITIALIZATION SEQUENCES FOR SIO

OFFSET OF LAST DATA BYTE

Page 26

• PRINTER PORT

=144A

TPRTISQ RS

=144A 18

QKCHRST

CHANNEL RESET

=144B 14

4+QKRESI

WR4

=144C 4C

QMMXI6+QMMST2

X16 CLOCK, 2 STOP BITS

=144D 13

3+QKRESI

WR3

=144E 41

QMR7BIT+QMMRXE

RX ENABLE, 7 BITSjCH

=144F 15

5+QKRESI

WR5

=1450 AA

QMMDTR+QMMRTS+QMT7BIT+QMMTXE

=1451 11

TPRTISI DB

=1452 18
=1453 00

TX ENABLE, 7 BITS, RTS, DTR

I+QKRESI

WRI

QMMRXI

INTERRUPT ON ALL RX CHAR

END OF SEQUENCE

COMM PORT

=1454

TCOMISQ RS

=1454 18

QKCHRST

CHANNEL RESET

=1455 14

4+QKRESI

WR4

=1456 44

QMMXI6+QMMSTI

X16 CLOCK, 1 STOP BIT

=1457 13

3+QKRESI

WR3

=1458 Cl

QMR8BIT+QMMRXE

RX ENABLE, 8 BITSjCH

=1459 15

5+QKRESI

WR5

=145A EA

QMMDTR+QMMRTS+QMT8BIT+QMMTXE

=1458 11

TCOMISI DB

=145C 18

TX ENABLE, 8 BITS, RTS, DTR

I+QKRESI

WRI

QMMRXI

INTERRUPT ON ALL RX CHAR

Page 27
=145D 00
CP/M ASM86 1.1

DB
SOURCE: CPLDBIOS.A86

END OF SEQUENCE

Customized Loader Basic I/O Sy

OPTIONAL COMM PORT

=145E

TCOM2ISQ

=145E 18

QKCHRST

CHANNEL RESET

=145F 14

4+QKRESI

WR4

=1460 44

QMMXI6+QMMSTI

X16 CLOCK, 1 STOP BIT

=1461 13

3+QKRESI

WR3

=1462 Cl

QMR8BIT+QMMRXE

RX ENABLE, 8 BITS/CH

=1463 15

5+QKRESI

WR5

=1464 EA

QMMDTR+QMMRTS+QMT8BIT+QMMTXE

=1465 11

l+QKR~SI

WRI

=1466 18

QMMRXI

INTERRUPT ON ALL RX CHAR

=1467 00

END OF SEQUENCE

TX ENABLE, 8 BITS, RTS, DTR

P232INIT - INITIALIZE RS232 (SIO) PORTS

FUNCTION: INITIALIZES ALL RS232 PORTS FOR WHICH INITIALIZATION
IS REQUIRED.

ENTRY AND EXIT PARAMETERS: N/A

Page 28

P232INIT:
=1468 BBCCl3

MOV

BX,OFFSET TPRTCB

PRINTER CONTROL BLOCK

=146B BE5114

MOV

ST,OFFSET TPRTISI

PRINTER INIT SEQUENCE

CALL

P232IPR

=1471 BBF6l3

MOV

BX,OFFSET TCOMCB

COMM CONTROL BLOCK

=1474 BE5B14

MOV

SI,OFFSET TCOMISI

COMM IN IT SEQUENCE

CALL

P232IPR

=147A BB2014

MOV

BX,OFFSET TCOM2CB

OPT COMM CONTROL BLOCK

=147D BE5E14

MOV

SI,OFFSET TCOM2ISQ

OPT COMM INIT SEQUENCE

JMP

P232IPR

=146E E81200

=1477 E80900

=1480 E90000

1483

INITIALIZE

;

INITIALIZE

P232IPR - INITIALIZE AN SIO PORT

FUNCTION: INITIALIZES AN SIO PORT ASSOCIATED WITH A CONTROL BLOCK.
CHECKS CONTROL BLOCK FIRST TO SEE IF INITIALIZATION IS REQUIRED.
(DOES NOT INITIALIZE BAUD RATES.)

ENTRY:
BX

POINTER TO CONTROL BLOCK

POINTER TO INITIALIZATION SEQUENCE
(SEQUENCE ENDS WITH A ZERO BYTE)

EXIT

N/A

P232IPR:
=1483 F6470104

TEST

QTFLAGS[BXr,QMINIT

INITIALIZATION REQUIRED?

Page 29
=1487 7501
CP/M ASM86 1.1

JNZ

148A

P232IPI0

SOURCE: CPLDBIOS.A86

=1489 C3

YES

Customized Loader Basic I/O Sy

RET

ELSE RETURN

P232IPI0:
=148A SA17

MOV

DL,QTPORT[BX]

GET PORT ADDRESS

=148C 32F6

XOR

DH,DH

MAKE 16 BIT ADDR

=148E FC

CLD

SET FORWARD DIRECTION

P232IP20:
=148F AC

LODSB

=1490 84CO

TEST

AL,AL

END OF SEQUENCE?

JNZ

P232IP30

=1492 7501

1495

GET A BYTE

RET

=1494 C3

EXIT IF END

P232IP30:
=1495 EE
=1496 EBF7

148F

OUT

DX,AL

SEND IT TO PORT

JMPS

P232IP20

GET NEXT BYTE

P232IN - READ A CHARACTER

FUNCTION: RETURNS ONE BYTE FROM CIRCULAR BUFFER FOR A SPECIFIED
DEVICE.

WAITS IF THE BUFFER IS EMPTY.

AND THE BUFFER IS EMPTY, SEND AN XON.

ENTRY:
BX

POINTER TO CONTROL BLOCK

IF XOFF HAS SUSPENDED INPUT,

Page 30

EXIT:
AL

CHARACTER

P232IN:
=1498 8A4702

MOV

AL,QTNRCHR[BX]

GET NUMBER OF CHARS. IN BUFFER

=149B 84CO

TEST

AL,AL

IS IT ZERO?

P232IN

LOOP BACK IF SO

=149D 74F9

1498

DISABLE WHILE MANIPULATING BUFFER

=149F FA

CLI

=14AO FE4F02

DEC

QTNRCHR [BX]

DECREMENT CHARACTER COUNT

JNZ

P232INI

"JUMP AHEAD IF NOT ZERO

TURN ON INTERRUPTS

=14A3 7526

14CB

=14A5 FB

STI

=14A6 2EF687010002

TEST

CS:QTFLAGS[BXj',QMTYPE

DO WE SUPPORT XON?

JNZ

P232INI

NO. SKIP AHEAD

TEST

CS:QTFLAGS[BXr,QMISUSP

YES. IS INPUT SUSPENDED?

P232INI

NO, BUFFER IS JUST EMPTY

=14AC 751D

14CB

=14AE 2EF687010008
=14B4 7415

14CB

P232IN2:
TEST

CS:QTFLAGS[BXr,QMSUSP

IS OUTPUT SUSPENDED?

JNZ

P232IN2

YES, WAIT FOR IT

=14BE 2E80A70100F7

AND

CS:QTFLAGS[BXj',NOT QMISUSP

=14C4 51

PUSH

PIC)

=14C5 Blll

MOV

CL,QKXON

OUTPUT AN

CALL

P2320UT

XON.

POP

=14B6 2EF687010001
=14BC 75F8

=14C7 E81900

14B6

14E3

=14CA 59

iINPUT NOT SUSPENDED

**
**

...

**
**
**
**

P232INl:
=14CB FA

CLI

=14CC 8A4705

MOV

NO MORE INTERRUPTS
AL,QTOTPTR[BX]

GET OUTPUT POINTER

Page 31
XOR

=14CF 32E4
CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

AH,AH

MAKE 16 BIT OFFSET

Customized Loader Basic I/O Sy

=14Dl 8BFO

MOV

SI,AX

MOVE TO INDEX REG.

=14D3 FECO

INC

INCREMENT OUTPUT POINTER

=14D5 3A4706

CMP

AL,QTDEND[BX]

PAST END OF BUFFER?

JBE

P232IN4

MOV

AL,QTDATA

SET TO START OF BUFFER

=14DC 884705

MOV

QTOTPTR[BX],AL

STORE UPDATED POINTER

=14DF 8AOO

MOV

AL, [BX+SI]

GET CHARACTER FROM BUFFER

=14E1 FB

STI

RE-ENABLE

=14E2 C3

RET

EXIT

=14D8 7602

14DC

=14DA BOOA
P232IN4:

P2320UT - WRITE A CHARACTER

FUNCTION: WRITES A CHARACTER TO A SPECIFIED DEVICE.

ENTRY:
BX

POINTER TO CONTROL BLOCK

CHARACTER TO BE WRITTEN

EXIT: N/A

P2320UT:
=14E3 8AE1

MOV

AH,CL

SAVE THE CHARACTER

Page 32

P2320UTO:
=14E5 8A17

MOV

DL,QTPORT[BX]

GET PORT ADDRESS

=14E7 32F6

XOR

DH,DH

MAKE 16 BIT ADDRESS

=14E9 F6470102

TEST

QTFLAGS[BXr,QMTYPE

OK TO SEND XOFF?

JNZ

P2320UTl

YES

=14EF 8AC4

MOV

AL,AH

GET CHARACTER FOR TESTS

=14Fl 247F

AND

AL,07FH

STRIP PARITY

=14F3 3C13

CMP

AL,QKXOFF

IS IT XOFF?

JNE

P2320UTl

NO - SEND IT

=14ED 7509

=14F5 7501

14F8

RET

=14F7 C3

EXIT WITHOUT SENDING

P2320UT1:
XOR

=14F8 33C9

CX,CX

INIT TIMEOUT LOOP COUNTER

P2320UT2:
=14FA EC

AL,DX

GET PORT STATUS

=14FB A804

TEST

AL,QMTXR

TX READY?

JNZ

P2320UT3

YES - DO IT

=14FF 51

PUSH

THESE 2 INSTRUCTIONS ARE FILLERS

=1500 59

POP

TO MAKE A VALID TIMEOUT

LOOP

P2320UT2

TRY IT AGAIN IF NO TIMEOUT YET

=1503 50

PUSH

TIMEOUT - SOMETHING'S WRONG WITH

=1504 53

PUSH

UART

=1505 8B4707

MOV

AX,QTDEVID[BX]

PUT DEVICE ID INTO MESSAGE

=1508 2EA31BIE

MOV

P232TOl,AX

=150C 8A4709

MOV

AL,QTDEVID+2 [BX]

=150F 2EA21DIE

MOV

P232T02,AL

=1513 BBOEIE

MOV

BX,OFFSET P232TO

CALL

PMSG

=14FD 7522

=1501 E2F7

=1516 E8E2FD

1521

14 FA

12FB

WRITE TIMEOUT MESSAGE

Page 33
=1519 E8AI04
CP/M ASM86 1.1

CALL

19BD

SOURCE: CPLDBIOS.A86

KQERY

Customized Loader Basic I/O Sy

SUBROUTINE WILL NOT RETURN IF CTL-C

=151C 5B

POP

=151D 58

POP

P2320UTO

=151E 74C5

14E5

=1520 C3

GET USER OPTION

TRY AGAIN IF SPACE BAR
PRETEND IT'S OK IF ANY OTHER KEY

RET
P2320UT3:

=1521 F6470101

TEST

QTFLAGS[BX],QMSUSP

IS OUTPUT SUSPENDED?

JNZ

P2320UT3

YES - WA.IT UNTIL ENABLED

=1527 80EA02

SUB

DL,2

POINT TO DATA PORT

=152A 8AC4

MOV

AL,AH

GET CHARACTER

=152C EE

OUT

DX,AL

SEND IT

=152D C3

RET

=1525 75FA

1521

EXIT

P232STI

RETURN INPUT STATUS

FUNCTION:

RETURNS A VALUE INDICATING WHETHER AN INPUT CHARACTER

IS AVAILABLE FROM A SPECIFIED DEVICE.

ENTRY:
BX

POINTER TO CONTROL BLOCK

EXIT:
IF NO CHARACTER IS READY (BUFFER EMPTY)

Page 34

X'FF' IF ONE OR MORE CHARACTERS ARE READY

P232STI:
=152E 8A4702

MOV

A:G,QTNRCHR[BX]

GET CURRENT NR OF CHARS.

=1531 84CO

TEST

AL,AL

IS IT ZERO?

JNZ

P232STIl

=1533 7501

1536

RET

=1535 C3

RETURN "NOT READY"

P232STIl:
=1536 BOFF

MOV

=1538 C3

RET

P232STO

AL,OFFH

SET "READY"

RETURN OUTPUT STATUS

FUNCTION: RETURNS A VALUE INDICATING WHETHER THE SPECIFIED DEVICE IS
READY TO ACCEPT AN OUTPUT CHARACTER.

ENTRY:
BX

POINTER TO CONTROL BLOCK

IF DEVICE IS NOT READY TO ACCEPT A CHARACTER

X'FF'

IF DEVICE IS READY TO ACCEPT A CHARACTER

EXIT:

P232STO:
=1539 8A17

MOV

DL,QTPORT[BXj

GET PORT ADDRESS

Page 35
=153B 32F6
CP/M ASM86 1.1

XOR
SOURCE: CPLDBIOS.A86

DH,DH

MAKE 16 BIT ADDRESS

Customized Loader Basic I/O Sy

=153D EC

AL,DX

GET PORT STATUS

=153E 2404

AND

AL,QMTXR

IS TX READY?

JNZ

P232STOI

YES

=1540 7501

1543

=1542 C3

RET

RETURN "NOT READY"

P232STOl:
=1543 32CO

XOR

AL,AL

SET "NOT READY" VALUE

=1545 F6470101

TEST

QTFLAGS[BXr,QMSUSP

IS OUTPUT SUSPENDED?

P232ST03

=1549 7401

154C

RET

=154B C3

RETURN "NOT READY"

P232ST03:
=154C F6DO

NOT

=154E C3

RET

SET "READY"

I232RX

HANDLE SIO RECEIVE INTERRUPTS

FUNCTION:

PROCESS RECEIVE INTERRUPTS FROM ONE OF MORE SIO PORTS.

SET CONTROL BLOCK POINTERS AND CALL PORT INTERRUPT PROCESSOR.

ENTRY AND EXIT PARAMETERS: N/A

I232RX:
=154F 50

PUSH

SAVE REGISTERS

Page 36

=1550 53

PUSH

=1551 52

PUSH

POINT TO EACH CONTROL BLOCK AND CHECK RECEIVER
=1552 BBCC13
=1555 E81BOO

1573

=1558 BBF613

MOV

BX,OFFSET TPRTCB

CALL

I232RPT

MOV

BX,OFFSET TCOMCB

CALL

I232RPT

; PRINTER CONTROL BLOCK

COMM PORT CONTROL BLOCK

I232RXX:
=155B E81500

1573

SEND END-OF-INTERRUPT
=155E 80CA02

D1:;,2

=1561 80E2FE

AND

DL,OFEH

=1564 B038

MOV

AL,QKEOI

=1566 EE

OUT

DX,AL

RESTORE REGISTERS AND EXIT
=1567 5A

POP

=1568 5B

POP

=1569 58

POP

=156A CF

IRET

I232RX2

HANDLE OPTIONAL SIO RECEIVE INTERRUPTS

FUNCTION:

PROCESS RECEIVE INTERRUPTS FROM ONE OR MORE SIO PORTS.

SET CONTROL BLOCK POINTERS AND CALL PORT INTERRUPT PROCESSOR.

ENTRY AND EXIT PARAMETERS: N/A

Page 37

CP/M ASM86 1.1

SOURCE.: CPLDBIOS.A86

Customized Loader Basic I/O Sy

1232RX2.:
=156B 50

PUSH

=156C 53

PUSH

=156D 52

PUSH

SAVE REGISTERS

POINT TO EACH CONTROL BLOCK AND CHECK RECEIVER
=156E BB2014
=1571 EBE8

155B

MOV

BX,OFFSET TCOM2CB

i COMM PORT CONTROL BLOCK

JMPS

1232RXX

iSAVE REGISTERS AND EXIT

1232RPT

PROCESS RECEIVED CHARACTER

FUNCTION:

IF A CHARACTER HAS BEEN RECEIVED AT A PORT, READS IT

AND PLACES IT IN A CIRCULAR BUFFER.

IF REQUIRED, PROCESSES

XON/XOFF PROTOCOL AND SUBSTITUTES A 'SUB' CHARACTER WHEN A
PARITY ERROR OCCURS.

ENTRY:
BX

EXIT:

POINTER TO CONTROL BLOCK

N/A

PORT INPUT/OUTPUT

Page 38

ERROR STATUS STORAGE

CONTROL BLOCK POINTER

PORT ADDRESS AND INPUT POINTER WORKING REG.

=1573 2E8A970000

MOV

DL,CS:QTPORT[BXj

GET PORT ADDRESS

=1578 32F6

XOR

DH,DH

MAKE 16 BIT ADDRESS

=157A EC

AL,DX

GET PORT STATUS

=157B ABOI

TEST

AL,QMRXR

RECEIVE READY?

JNZ

I232RP05

YES

=
I232RPT:

=157D 7501

1580

I232RPTX:
RET

=157F C3

EXIT - NO PROCESSING NECESSARY

I232RP05:
=1580 A880
=1582 7409

158D

=1584 2E808FOI00I0
=158A E9DI00

165E

TEST

AL,QMBRK

I232RPI0

CS: QTFLAGS[BXj ,QMBREAK

JMP

I232RP40

BREAK?

SIGNAL IT

PROCESS A RECEIVED CHARACTER
I232RPI0.:
=158D 2EF687010010
=1593 7409

159E

=1595 2E80A70100EF
=159B E9COOO

165E

TEST

CS:QTFLAGS[BXj ,QMBREAK

DO WE HAVE A BREAK?

I232RPll

SKIP IF NOT

AND

CS:QTFLAGS[BX] ,NOT QMBREAK

JMP

I232RP40

;ELSE CLEAR FLAG

; AND GO AWAY

I232RPll:
=159E BOOI

MOV

AL,l

POINT TO RRI

=15AO EE

OUT

DX,AL

WRITE TO SIO

=15Al EC

AL,DX

READ RRI

Page 39
=15A2 8AEO
CP/M ASM86 1.1

MOV
SOURCR: CPLDBIOS.A86

AH,AL

SAVE IT

Customized Loader Basic I/O Sy

=15A4 B030

MOV

AL,QKRESERR

=15A6 EE

OUT

DX,AL

=15A7 80EA02

SUB

DL,2

POINT TO DATA PORT

=15AA EC

AL,DX

READ RECEIVED CHARACTER

RESET SIO ERRORS (IF ANY)

CHECK FOR RECEIVE ERRORS
=15AB F6C420
=15AE 7406

15B6

=15BO 2E80A70100FE

TEST

AH,QMOVRE

OVERRUN ERROR?

I232RP12

AND

CS:QTFLAGS[BX) ,NOT QMSUSP ; ENABLE OUTPUT (ASSUME XON LOST)

I232RP12:
=15B6 F6C410
=15B9 7402

15BD

=15B8 BOlA

TEST

AH,QMPARE

PARITY ERROR?

I232RP14

MOV

AL,QKSUB

CHANGE RX CHAR. TO 'SUB'

TEST

CS:QTFLAGS[BXr,QMTYPE

XON/XOFF APPLICABLE?

JNZ

I232RP20

NO - STORE CHARACTER

I232RP14:
=15BD 2EF687010002
=15C3 7530

15F5

PROCESS XON/XOFF PROTOCOL
=15C5 84CO
=15C7 7501

15CA

=15C9 C3

TEST

AL,AL

CHECK FOR NULL

JNZ

I232RP15

NOT A NULL

RET

IGNORE NULL CHARACTERS

I232RP15:
=15CA 3C93
=15CC 7404

1502

=15CE 3C13
=1500 7507

1509

CMP

AL,QKXOFFP

IS IT XOFF+?

I232RP15A

YES

CMP

AL,QKXOFF

IS IT XOFF?

JNE

I232RP16

Page 40

I232RP15A:
=15D2 2E808F010001

=15D8 C3

RET

CS:QTFLAGS[BX] ,QMSUSP

SUSPEND OUTPUT
AND EXIT

I232RP16:
=15D9 3C91
=15DB 7404

15E1

=15DD 3Cll
=15DF 7514

15F5

CMP

AL,QKXONP

IS IT XON?

I232RP16A

NO - STORE IT

CMP

AL,QKXON

IS IT XON?

JNE

I232RP20

NO - STORE IT

TEST

AH,QMOVRE

WAS THERE AN OVERRUN ERROR?

JNZ

I232RP18

YES - ASSUME AN XOFF WAS LOST

TEST

CS:QTFLAGS[BX],QMSUSP

IS OUTPUT SUSPENDED?

I232RP20

NO - STORE XON IN BUFFER

I232RP16A:
=15E1 F6C420
=15E4 7508

15EE

=15E6 2EF687010001
=15EC 7407

15F5

I232RP18:

=15EE 2E80A70100FE

AND

=15F4 C3

RET
1

CS:QTFLAGS[BX] ,NOT QMSUSP

ENABLE OUTPUT

AND EXIT

STORE CHARACTER IN BUFFER

I232RP20.:
=15F5 2E8A970200

MOV

DL,CS:QTNRCHR[BX]

GET NR. OF CHARS. IN BUFFER

=15FA 2E3A970300

CMP

DL,CS:QTCAP[BX]

IS BUFFER FULL?

I232RP30

YES

=1601 2EFE870200

INC

CS:QTNRCHR[BX]

INCREMENT CHARACTER COUNT

=1606 2E8A970400

MOV

DL,CS:QTINPTR[BX]

GET INPUT POINTER

=160B 2EFE870400

INC

CS:QTINPTR[BX]

INCREMENT POINTER

=1610 2E3A970600

CMP

DL,CS:QTDEND[BX]

PAST END OF BUFFER?

I232RP26

MOV

CS:QTINPTR[BX],QTDATA

SET TO START OF BUFFER

=15FF 744C

=1615 7206
=1617 2EC68704000A

164D

161D

Page 41
I232RP26.:
CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

Customized Loader Basic I/O Sy

=161D 53

PUSH

NEED TO SAVE POINTER

=16IE 03DA

ADD

BX,DX

STORE UPDATED POINTER

=1620 2E88870000

MOV

CS.: [BX] ,AL

STORE CHARACTER

NOW SEE IF BUFFER IS MORE THAN HALF FULL AND IF XOFF/XON

IS SUPPORTED.

IF BOTH, SEND AN XOFF.

**
**

=1625 5B

POP

=1626 2EF687010002

TEST

CS:QTFLAGS[BX)',QMTYPE

XOFF SUPPORTED?

JNZ

I232RP28

GO AWAY IF NOT

=162E 2E8A970200

MOV

DL,CS:QTNRCHR[BX]

GET NO. OF CHARACTERS

=1633 02D2

ADD

DL,DL

DOUBLE IT

=1635 2E3A970300

CMP

DL,CS:QTCAP[BX]

MORE THAN HALF-FULL?

-JBE

I232RP28

GO AWAY IF NOT

OUTPUT A XOFF

=162C 751E

=163A 7610

164C

I232RP27:
=163C 2EF687010008
=1642 7508

164C

=1644 2E808FOI0008
=164A EBOI

164D

TEST

CS:QTFLAGS[BX)',QMISUSP

UNLESS INPUT IS ALREADY SUSP- **

JNZ

I232RP28

ENDED.

CS:QTFLAGS[BXr,QMISUSP

SUSPEND INPUT

JMPS

I232RP32

OUTPUT IT

**
**

I232RP28:
=164C C3

RET

AND EXIT

ERROR CONDITION ROUTINES

BUFFER IS FULL, OR HALF-FULL, OR SOMETHING

Page 42

I232RP30:
I232RP32.:
=164D 2E8A970000

MOV

ENTER HERE FOR XOFF

D1, CS: QTPORT [BX]

I232RP31:
=1652 EC

AL,DX

=1653 A804

TEST

AL,QMTXR

I232RP33

=1657 B013

MOV

A1,QKXOFF

=1659 80EA02

SUB

D1,2

=165C EE

OUT

DX,AL

=165D C3

RET

=1655 74FB

1652

AND EXIT

BREAK CONDITION

I232RP40:
RESET BREAK CONDITION

=165E BOlO

MOV

A1,QKRESI

=1660 EE

OUT

DX,AL

=1661 B030

MOV

A1,QKRESERR

=1663 EE

OUT

DX,AL

=1664 80EA02

SUB

D1,2

POINT TO DATA PORT

=1667 EC

AL,DX

CLEAR INPUT

=1668 C3

RET

RESET ANY OTHER ERRORS

**********************************************************************

PHYSICAL DEVICE DRIVERS

Page 43

**********************************************************************.
CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

Customized Loader Basic I/O Sy

PTR: AND PTP: DRIVERS

PTRIN:
=1669 BBF613
=166C E929FE

1498

MOV

BX,OFFSET TCOMCB

JMP

P232IN

MOV

BX,OFFSET TCOMCB

JMP

P2320UT

MOV

BX,OFFSET TCOMCB

JMP

P232STI

POINT TO CONTROL BLOCK

PTPOUT:
=166F BBF613
=1672 E96EFE

14E3

POINT TO CONTROL BLOCK

PTRST:
=1675 BBF613
=1678 E9B3FE

152E

POINT TO CONTROL BLOCK

TTY: DRIVERS

TTYIN:
=167B BBCC13
=167E E917FE

1498

TTYOUT:

MOV

BX,OFFSET TPRTCB

JMP

P232IN

POINT TO CONTROL BLOCK

Page 44

=1681 BBCC13
=1684 E95CFE

14E3

MOV

BX,OFFSET TPRTCB

JMP

P2320UT

MOV

BX,OFFSET TPRTCB

JMP

P232STI

MOV

BX,OFFSET TPRTCB

JMP

P232STO

POINT TO CONTROL BLOCK

TTYSTI:
=1687 BBCC13
=168A E9AIFE

152E

POINT TO CONTROL BLOCK

TTYSTO:
=1680 BBCC13
=1690 E9A6FE

1539

POINT TO CONTROL BLOCK

NULL DEVICE DRIVERS

EQU

END OF FILE (CTL-Z)

=1693 BOlA

MOV

AL,QKCTLZ

INDICATE END OF FILE

=1695 C3

RET

001A

QKCTLZ

PNULIN:

PNULOUT:
ACCEPT ALL CHARACTERS

RET

=1696 C3

PNULSTI:
=1697 BOFF

MOV

AL,OFFH

INDICATE DEVICE READY

Page 45
=1699 C3
CP/M ASM86 1.1

RET
SOURCE: CPLDBIOS.A86

1697

Customized Loader Basic I/O Sy

PNULSTO EQU

PNULSTI

BATCH drivers

1675

BATST

EQU

PTRST

1669

BATIN

EQU

PTRIN

1384

BATOUT

EQU

CRTOUT

LPT: DRIVERS

1681

LPTOUT

EQU

TTYOUT

168D

LPTSTO

EQU

TTYSTO

UC1.: DRIVERS

UClIN:
=169A BB2014
=169D E9F8FD

1498

UC10UT:

MOV

BX,OFFSET TCOM2CB

JMP

P232IN

POINT TO CONTROL BLOCK

Page 46

=16AO BB2014
=16A3 E93DFE

14E3

MOV

BX,OFFSET TCOM2CB

JMP

P2320UT

MOV

BX,OFFSET TCOM2CB

JMP

P232STI

POINT TO CONTROL BLOCK

UCIST:
=16A6 BB2014
=16A9 E982FE

152E

URI: DRIVERS

169A

URlIN

EQU

UClIN

16A6

URIST

EQU

UCIST

UR2: DRIVERS

1693

UR2IN

EQU

PNULIN

1697

UR2ST

EQU

PNULSTI

UPl: AND UP2: DRIVERS

16AO

UPI0UT

EQU

UCI0UT

1696

UP20UT

EQU

PNULOUT

ULl: DRIVERS

1696

ULI0UT

EQU

PNULOUT

POINT TO CONTROL BLOCK

Page 47
1697

ULIST

EQU

CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

=16AC 2EFF26CF16

CONST.:

PNULSTO
Customized Loader Basic I/O Sy

jmp word ptr constjmp

;console status

;console input

CONIN:
=16Bl 2EFF26D1l6

jmp word ptr coninjmp

=16B6 2EFF26D316

CONOUT: jmp word ptr conoutjmp

;console output

=16BB 2EFF26D916

LISTST: jmp word ptr liststjmp

;list device status

=16CO 2EFF26DB16

LISTOUT:jmp word ptr listoutjmp

;output to list device

=16CS 2EFF26D716

PUNCH:

;output to punch

=16CA 2EFF26DS16

READER: jmp word ptr readerjmp

jmp word ptr punchjmp

;Indirect jump table for I/O
=16CF BF13

constjmp

CRTSTI

=16Dl 8E13

coninjmp

CRTIN

=16D3 8413

conoutjmp

CRTOUT

=16DS 6916

readerjmp

PTRIN

=16D7 6F16

punchjmp

PTPOUT

;input from reader

Page 48

=16D9 8D16

liststjmp

LPTSTO

=16DB 8116

listoutjmp

LPTOUT

GETIOBF:
=16DD 2EAOA41C

mov al,IOBYTE

=16El C3

ret

SETIOBF:
mov IOBYTE,cl

=16E2 2E880EA41C
IF

;set iobyte

NOT LOADER BIOS

i-----------------------------------------------;
;I
mov di ,offset constjmp
mov si,offset iojtbl
call cioset

;low two bits

call iojset

:const

call iojset

;conin

call iojset

;conout

call cioset

;second two bits

call iojset

;reader

call cioset

;third two bits

call iojset

;punch

call cioset

;high two bits

Page 49
call iojset
CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

ilistst

Customlzed Loader Basic I/O Sy

call iojset

ilistout

ret

iojtbl

TTYSTI

CRTSTI

BATST

UCIST

TTYIN

CRTIN

BATIN

UClIN

TTYOUT

CRTOUT

BATOUT

UCI0UT

TTYIN

PTRIN

URlIN

UR2IN

TTYOUT

iCONST

iCONIN

iCONOUT

iREADER

iPUNCH

Page 50

PTPOUT

UP lOUT

UP20UT

TTYSTO

CRTSTO

LPTSTO

ULIST

TTYOUT

CRTOUT

LPTOUT

LIOUT

;LISTST

; LPTOUT

cioset: ;Set the offsets in bx according to the low two bits in cl
mov bx',3

land then rotate cl twice

and bl,cl
add bx,bx

;twice the number for offset

shr cl,l

; shift cl right

shr cl-, I

;twice

...

ret

iojset: ;Move the appropriate entry from the jump list to the indirect
mov cs:ax',[bx+si]

ijump table and then increment the pointers

mov cs: [di] ,ax

ifor the next call

Page 51
add si,8
CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

Customized Loader Basic I/O Sy

add di,2
; 1

;1------------------------------------------------------I
ENOIF
=16E7 C3

;not loader bios
ret

GETSEGT:

;return address of physical memory table

=16E8 BB261E

mov bx,offset seg table

=16EB C3

ret

VIDEO:

;Output video directly to PC-IOO via int 40

=16EC IE

push ds

=16EO 06

push es

=16EE 51

push cx

=16EF 52

push dx

=16FO BF0800

mov di,8

=16F3 CD28

int 40

=16F5 5D

pop bp

=16F6 8EOD

mov ds,bp

=16F8 5E

pop Sl

=16F9 8B04

mov ax,[sl]

=16FB 8B5C02

mov bx,2[si]

=16FE 8B4C04

mov cx,4[si]

turn cursor off

Page 52

=1701 8B5406

mov dx,6[si]

=1704 8B7408

mov si,8[si]

=1707 BF1400

mov di,14h

=170A CD28

int 40

=170C BFOAOO

mov di,Oah

=170F CD28

int 40

=1711 07

pop es

=1712 IF

pop ds

=1713 C3

ret

move in the video

turn cursor on

INCLUDE CPLBLOK.LIB
SECTOR BLOCKING/DEBLOCKING

Modified for CP/M 86/80
May 1982

by CPL (RK)

,.*****************************************************
,.*

,.*

CP/M to host disk constants

,.*

,.*****************************************************
0000

una

0004

equ

byte ptr [BX]

iname for byte at BX

nrdlsks equ

ifour disks allowed

0800

blkslZ

equ

2048

iCP/M allocation size

0200

hStSlZ

equ

512

ihost disk sector size

Page 53

OOOA
CP/M ASM86 1.1

hstspt

equ

SOURCE: CPLDBIOS.A86

;host disk sectors/trk

Customized Loader Basic I/O Sy

0004

hstblk

equ

hstsiz/128

FDOO

xfrbuf

equ

pb2_adr+xdefbuf jbuffer in shared memory

;CP/M sects/host buff

,.*****************************************************

,.*

;* secshf is log2(hstblk), and is listed below for
j*

values of hstsiz up to 2048.

,.*

hstsiz

hstblk

secshf

,.*

256

,.*

512

*
*

,.*

1024

,.*

2048

,.*

,.*****************************************************

0002

secshf

equ

;10g2 (hstblk)

0028

cpmspt

equ

hstblk

0003

secmsk

equ

hstblk-l

* hstspt ;CP/M sectors/track
jsector mask

,.*****************************************************

,.*
,.*
,.*

*
BDOS constants on entry to write

*
*

,.*****************************************************

Page 54

0000

wrall

equ

;write to allocated

0001

wrdir

equ

;write to directory

0002

wrual

equ

;write to unallocated

,.************************************************

·, *
,.*

*
BDOS function table beginning

,· *

*
*

,.************************************************
if not loader bios

bdos ftbl

endif

equ

Oa80h

equ

22eah

;not loader bios

,.*****************************************************
,.*

,.*

The BIOS entry points given below show the

·, *
·, *

code which is relevant to deblocking only.

,.*****************************************************
seldsk:
=1714 80F904

cmp cl,nrdisks

;valid disk number?

jb seldskl

;go ahead if ok

=1719 BBOOOO

mov bx,O

;else zero bx

=l71C C3

ret

;and let bdos take care of it

=1717 7204

171D

Page 55
;select disk

CP/M ASM86 1.1

SOURCE: CPLOBIOS.A86

Customized Loader Basic I/O Sy

;is this the first activation of the drive?
seldskl:
=1710 2EAOAOIA

mov al,hstdsk

;which disk?

=1721 3CFF

cmp al,Offh

;absolutely first activation?

je seldsk2

;9 0 clear host buffer

test 01,1

; lsb = O?

=1723 7409

172E

=1725 F6C201
=1728 7510

173A

jnz selset
;if this is the first activation, clear host buff

=l72A 3ACl
=l72C 750C

173A

cmp al,cl

;but is this the same disk?

jne selset

iif not', don't

seldsk2:
=l72E 2EC606A51AOO

mov hstact',O

=1734 2EC606A71AOO

mov unacnt·,O
selset:

=173A 8AC198

mov al,cl ! cbw

iPut in AX

=1730 2EA29CIA

mov sekdsk,al

iseek disk number

=1741 BI0402EO

mov cl,4 ! shl al,cl

itimes 16

=1745 05B51A

add ax,offset dpbase

=1748 8B08

mov bx,ax
if not loader bios

icheck for Robin media on any unallocated disk called
push dx
push bx

isave dx and bx

Page 56

mov bx,word ptr .bdos_dlog

iget allocation vector

or bx,bx

iany allocated?

jz seIdl

iskip ahead if none

pop bx

ielse find out

push bx

seldO:

add bx,Oah

i i f this disk has been checked

mov bx, [bx]

iget dpb offset

or bx' ,bx

;zero? not checked yet

jz seld2

;go check it if so

mov mediatype,O

iassume Rainbow

cmp bx,dpbO

;is it really?

jz seldO

;move on if so

mov mediatype,2

ielse mark as Robin

pop bx

ithen

pop dx

seIdl:

ret

;return

xor ax,ax

;zero all dpb's

mov bx,offset dpbase+Oah
mov cx,nrdisks

seldll : mov [bx],ax

;dpb offset from base
;loop for all disks

izero a dpb

add bx,IOh

;get the next one

loop seldll

;loop till done

mov ax', ISh

ig et media type

push ax

;via packer

=
seld2:

Page 57
mov al,sekdsk
CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

disk number back again

~get

Customized Loader Basic I/O Sy

mov cl,5

and put in proper

rol ax,cl

position for packet

push ax
mov cx,2

~move

2 words

call packer
pop ax

~discard

pop ax

~ah

xor bx,bx

:clean out a register

mov med ia type', ah

~mark

mov bl,ah

:get the type (Rainbow

add bx,mediatbl

:add the table address

mov dx, [bx]

:get contents of table

drive number

has status/media type

the media type

a, robin

pop bx
push bx

:get dpb pointer

add bx,Oah
mov [bx] ,dx

:put address ilnto pointer

pop bx

~get

pop dx

endif
=174A C3

:not loader bios

ret

home:
:home the selected disk

return data

Page 58

=174B 2EAOA61A

mov al,hstwrt

=174F 84CO

test ar,al

=1751 7506

;check for pending write

jnz homed

1759

=1753 2EC606A51AOO

mov hstact,O

;clear host active flag

mov cx,O

;now, set track zero

homed:
=1759 B90000

(continue HOME routine)

settrk:
;set track given by registers CX
=175C 2E890E9DIA

mov sektrk,CX

=1761 C3

ret

;track to seek

Page 59

CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

Customized Loader Basic I/O Sy

sectran:
itranslate sector number CX with table at [OX]
=1774 85D2
=1776 7409

1781

test DX,DX

itest for hard skewed

jz notran

i(blocked must be hard skewed)

=1778 8B09

mov BX,CX

=177A 03DA

add BX,DX

=l77C 8AlF

mov B1:, [BX]

=177E B700

mov BH,O

=1780 C3

ret

i*** be compatible with 86/80

(fix 5/21/82)

no tran:
ihard skewed disk, physical
=1781 8BD9

mov BX,CX

=1783 C3

ret

logical sector

read:
iread the selected CP/M sector
=1784 2EC606A7lAOO

mov unacnt,O

iclear unallocated counter

=178A 2EC606AElAOl

mov readop,l

iread operation

=1790 2EC606AOlAOl

mov rsflag,l

imust read data

=1796 2EC606AFlA02

mov wrtype,wrual

itreat as unalloc

jmp rwoper

ito perform the read

=179C E98000

l82C

wrl.te:
:write the selected CP/M sector

***

Page 60

if not loader bios

;-----------------------------------------------------;
test mediatype,Offh

~is

this Rainbow media?

jz okwrite

~go

write if so

mov bx,offset unabl

~ 'unable

call pmsg

~print

call prthst

;print drive no.

to write .•. '

mov b~,offset endlin

call pmsg

;print cr',lf.

mov a~,l

;mark for error

ret

;return

okwrite:

endif

;not loader bios

=179F 2EC606AEIAOO

mov readop,O

=17A5 2ESSOEAFIA

mov wrtype- ,cl

=17AA SOF902

cmp cl,wrual

;write unallocated?

jnz chkuna

;check for unalloc

=17AD 751E

17CD

;wr ite operation

write to unallocated, set parameters

=17AF 2EC606A71AIO

mov unacnt', (blksiz/12S) ;next unalloc recs

=17B5 2EA09CIA

mov ar,sekdsk

;disk to seek

=17B9 2EA2ASIA

mov unadsk' ,al

;unadsk = sekdsk

=17BD 2EA19DIA

mov ax,sektrk

=17Cl 2EA3A91A

mov unatrk",ax

=17C5 2EA09FIA

mov ar,seksec

;unatrk

sektrk

Page 61
=17C9 2EA2AB1A
CP/M ASM86 1.1

mov unasec,a1
SOURCE: CPLOBIOS.A86

;unasec = seksec

Customized Loader Basic I/O Sy

chkuna:
;check for write to unallocated sector

;point "UNA" at UNACNT

=17CO BBA71A

mov bx,offset unacnt

=1700 8A0784CO

mov a1,una ! test al,a1 ;any una110c remain?

=1704 744A

1820

j z alloc

;skip if not

more unallocated records remain
=1706 FEC8

dec a1

=1708 8807

mov una,a1

=170A 2EA09C1A

mov al,sekdsk

=170E BBA81A

mov BX,offset unadsk

=17E1 3A07

cmp a1,una

;sekdsk = unadsk?

jnz alloc

;skip if not

=17E3 753B

1820

;unacnt

unacnt-1

;same disk?

disks are the same
=17E5 2EA1A91A

mov AX, unatrk

=17E9 2E3B06901A

crop AX, sektrk

=17EE 7530

1820

jnz a110c

;skip if not

tracks are the same
=17FO 2EA09FlA

mov a1,seksec

:same sector?

Page 62

=17F4 BBABIA

mov BX,offset una sec

;point una at una sec

=17F7 3A07

cmp al,una

:seksec = unasec?

jnz alloc

;skip if not

=17F9 7525

1820

match, move to next sector for future ref
(Code modified for skewed sectors)

=17FB 8C09

mov cx,ds

=17FO 8ECI

mov es,cx

=17FF FC

cld

scan forward

=1800 B92700

mov cx,cpmspt-l

set count for scan

=1803 BF041B

mov di,xltO

point to translate table

=1806 F2AE

repne scasb

scan for sector number

jcxz ovf

didn't find it

=180A 8A05

mov aI, [diJ

get nr of next sector

=180C 8807

mov una,al

=1808 E306

=180E EB08

1810

set up ES

jmps noovf

1818

overflow to next track
ovf:
=1810 C60700

mov una,O

;unasec = 0

=1813 2EFF06A91A

inc unatrk

:unatrk=unatrk+l

noovf:
:match found, mark as unnecessary read
=1818 2EC606AOIAOO

mov rsflag',O

; rsflag = 0

Page 63
=181E EBOC
CP/M ASM86 1.1

jmps rwoper

182C

SOURCE: CPLDBIOS.A86

ito perform the write

Customized Loader Basic I/O Sy

a11oc:
inot an unallocated record, requires pre-read
=1820 2EC606A7lAOO

mov unacnt,O

iunacnt

=1826 2EC606AD1AOI

mov rsflag,l

irsflag

idroP through to rwoper

,.*****************************************************
,.*

,.*

*
Common code for READ and WRITE follows

,.*

*
,.*****************************************************

rwoper:
ienter here to perform the read/write
=182C 2EC606AC1AOO

mov erflag,O

ino errors (yet)

=1832 2EA09FlA

mov aI, seksec

icompute host sector

=1836 B102

mov cl, secshf

=1838 D2E8

shr al,cl

=183A FECO

inc al

i*** added for I-based sectors ***

=183C 2EA2A41A

mov sekhst:,al

ihost sector to seek

active host sector?
=1840 BOOI

mov al,l

=1842 2E8606AS1A

xchg al,hstact

ialways becomes 1

Page 64

=1847 84CO
=1849 7437

1882

test a1,a1

iwas it already?

jz fi1hst

ifi11 host if not

host buffer active, same as seek buffer?
=184B 2EA09C1A

mov a1,sekdsk

=184F 2E3A06A01A

cmp al,hstdsk

=1854 7516

186C

hstdsk?

jnz nomatch

same disk, same track?

=1856 2EA1AllA

mov ax,hsttrk

=185A 2E3B069D1A

cmp ax,sektrk

=185F 750B

isekdsk

ihost track same as seek track

jnz nomatch

186C

same disk, same track, same buffer?
=1861 2EAOA41A

mova1,sekhst

=1865 2E3A06A31A

cmp a1,hstsec

isekhst

jz match

iskip if match

=186A 744A

18B6

= hstsec?

nomatch:
iproper disk, but not correct sector
=186C 2EAOA61A

mov al, hstwrt

=1870 84CO

test a1,a1

i"dirty" buffer?

=1872 740E

1882

jz fi1hst

ino, don't need to write

=1874 E8A500

191C

call writehst

iyes, clear host buff

(check errors here)
=1877 2EAQAC1A

mov a1,erf1ag

=187B OACO

or a1,a1

iany?

jz filhst

;skip if none

=187D 7403

1882

Page 65
=187F E99500
CP/M ASM86 1.1

jmp return rw

1917

SOURCE: CPLDBIOS.A86

;exit if so

Customized Loader Basic I/O Sy

filhst:
;may have to fill the host buffer
=1882 2EA09CIA2EA2

mov al,sekdsk ! mov hstdsk,al

AOIA
=188A 2EA19DIA2EA3

mov ax,sektrk

mov hsttrk,ax

mov al,sekhst

mov hstsec,al

AlIA
=1892 2EAOA41A2EA2
A31A
=189A 2EAOADIA

mov al,rsflag

=189E 84CO

test al,al

=18AO 740E

18BO

jz filhstl

=18A2 E8CDOO

1972

call readhst

;need to read?

;yes, i f 1

(check errors here)

=18A5 2EAOACIA

mov al,erflag

=18A9 OACO

or al,al

;any?

=18AB 7403

18BO

jz fJ.lhstl

;skip i f none

=18AD E96700

1917

jmp return rw

;exit if so

mov hstwrt,O

;no pending write

fllhstl :
=18BO 2EC606A61AOO

match:

Page 66

;copy data to or from buffer depending on rreadop"
=18B6 2EA09FIA

mov al,seksec

;mask buffer number

=18BA 250300

and ax,secmsk

;least signif bits are masked

=18BO BI0703EO

mov cl, 7 ! shl ax,cl

;shift left 7 (* 128 = 2**7)

ax has relative host buffer offset

=18Cl 05003A

add ax,dbptr

;

=18C4 05A200

add ax, xshrbuf

,.*** new buffer for CP/M 86/80 ***

=18C7 8BFO

mov si,ax

;put in source index register

=18C9 2E8B3EB21A

mov di,dma- off

;user buffer is dest if readop

=18CE lE06

push OS

=1800 2E8E06BOIA

mov ES ,dma _seg

push ES

address of data block

;save segment registers

;set destseg to the users seg
;SI/OI and OS/ES is swapped
; if write op

=1805 2BCO

sub aX,ax

;*** added for CP/M 86/80 ***

=1807 8E08

mov ds,ax

;which needs ds=O (*** end add ***)

=1809 B98000

mov cx,128

; length of move in bytes

=180C 2EAOAEIA

mov al,readop

=18EO 84CO

test al,al

;which way7

jnz

;skip if read

=18E2 7511

18F5

rwmovx

write operation, mark and switch direction
=18E4 2EC606A61AOl

mov hstwrt,l

;hstwrt = 1 (dirty buffer now)

alSEA 87F7

xchg sl,di

;source!dest index swap

Page 67
=lSEC SCD8
CP/M ASMS6 1.1

mov aX',DS
SOURCE: CPLDBIOS.A86

Customized Loader Basic I/O Sy

=18EE SECO

mov ES,ax

=18FO 2E8EIEBOIA

mov DS,dma_seg

=lSF5 E82000

isetup DS,ES for write

1915 rwmovx: call rwmove

=lSFS 071F

pop ES

pop DS

irestore segment registers

movdone:
data has been moved toj.from host buffer
=lSFA 2E803EAFIAOI

cmp wrtype,wrdir

iwrite type to directory?

=1900 2EAOACIA

mov a1,erf1ag

iin case of errors

jnz return rw

ino further processing

=1904 7511

1917

clear host buffer for directory write
=1906 S4CO
=1908 750D

1917

=190A 2EC606A61AOO
=1910 E80900

test a1,a1

ierrors?

jnz return rw

iskip i f so

mov hstwrt:,O

ibuffer written

call writehst

191C

mov a1,erf1ag

=1913 2EAOAC1A

return rw:
=1917 C3

ret

,.************************************************
,. *

this subroutine is made available

Page 68

,. *

for other parts of CP/M .

,.************************************************
rwmove:
if not loader bios

,._------------------------------------------Added for PCIOO -- RK/CPL
test Z80FLAG,true

4/13/82
is z80 running?

jnz rwml

rwml:

jmp move88

;normal move if z80 not running

push cx

;preserve the count

mov ax:,cx

;get the count into accum

mov bx,ds

;check the source segment

mov dx,es

;and destination segment

test bx,Off80h

;out of Z80 private?

jnz nsz80p

;jump ahead if it is

mov cl,4

;set for shl

shl bx,cl

;mult by 16

add bx,si

;get absolute address for Z80

cmp bx,800h

;in z80 pvt?

jb sz80p

;jump ahead so

nsz80p: test dx,Off80h

;source is not z80 private.

jz nszl

=
nszl:

jmp notz80

;jump ahead if destination

mov cl,4

;set for shl

isn'~,

either

Page 69

=
CP/M ASM86 1.1

shl dx,cl
SOURCE: CPLDBIOS.A86

;mul dest seg by 16

Customized Loader Basic I/O Sy

add dx,di

;create absolute address

cmp dx,800h

;dest in z80 pvt?

jb dz80p

dz80p:

jmp notz80

;jump ahead if not

mov bx,ds

;destination is in z80 pve, source isn't

test bx,OfOOOh

;check for source in 8088 pvt

jnz dzs88p

;dest z8a, source 8088.

mov cl,4
shl bx,cl
add bx,si

;absolute source

jc dzs88p

;dest z8a, source 8088.

add bx,ax

;how about the end of the source?

jnc not88

;z80 move if low enough

dzs88p: pop cx
cmp cx,128

;dest in z80 pvt, source in 8088 pvt
;is count too big?

jbe dzsl

dzsl:

mov cx,128

;make it maximum if so

push ds

;save ds for later

push cx

;save count for later

push es
push di
xor ax,ax

;zero

Page 70

mov eS,ax

jthe destination segment

mov dl,xfrbuf

jdestination is buffer

call move88

jmove source to buffer

pop di
pop es
mov ds,ax

jzero the source segment

mov si,xfrbuf

jsource is buffer

pop ex
call movz80

jmove buffer to destination after restoring ex

pop ds

jrestore ds

ret

sz80p:

mov dx,es

jsource is in z80 pv~, destination isn't

test dx,OfOOOh

jcheck for destination in 8088 pvt

jnz d88szp

jdest 8088, source z80.

mov cl,4
shl dx,cl
add dx,di

jabsolute destination

jc d88szp

jsource z8a, destination 8088.

add dx,ax

jhow about the end of the destination?

jnc not88

jz80 move if low enough

d88szp: pop ex
cmp cx,128

jdest in z80

pv~,

source in 8088 pvt

jis count too big?

jbe d88sl

d88sl:

mov cx,128

jmake it maximum if so

push ds

:save ds for later

Page 71
push ex
CP/M ASMS6 1.1

SOURCE: CPLDBIOS.AS6

;save count for later

Customized Loader Basic I/O Sy

push es
push di
xor ax,ax

;zero

mov es,ax

;the destination segment

mov di,xfrbuf

;destination is buffer

call movzSO

;move source to buffer

pop di
pop es

•

mov ds,ax

;zero the source segment

mov si,xfrbuf

;source is buffer

call moveSS

;move buffer to destination after restoring ex

pop ds

;restore ds

ret

=
notSS.:

pop ex

movzSO: mov bx,ds

;do a zSO move and exit

;ZSO move to emulate SOSS move

mov dX,es
push ex
mov cl,4
shl bx,cl
shl dx,cl
add bx,si

;bx has source absolute

add dx,di

;dx has destination absolute

Page 72

mov ax,22h

ifunction: transfer •••

pop cx

ito ZSO move routine

push ax

ivia packer

push bx

push dx
push cx
mov cx,0004

i4 words stacked

xor al,al

izero for ZSO wait

call packer

icall interface layer

pop ax

iafter return,

pop ax

ilevel the stack

pop ax
pop ax
ret

igo past SOSS move

notzSO: pop cx

idon't use zSO move

moveS!!:

;continue to normal -- end of additiion

i------------------------------------------------------endif

=191S FCF3A4

cld

=1918 C3

ret

;not loader bios

rep movs AL,AL

;move as bytes
;end of move subroutine

,.*****************************************************

,.*

;* WRITEHST performs the physical write to the host

Page 73

;* d~sk, while READHST reads the physical disk.
CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

Customized Loader Basic I/O Sy

,.*

*
,.*****************************************************

;1------------------------------------------------------I
;1 Code added for pc100, CP/M 86/80 4/13/82

writehst:
rewhst: mov ax·,OO14h

=191C B81400
=191F E83B01

1A5D

call rwhst

=1922 F6C4FC
=1925 7501

1928

=1927 C3

test ah,Ofch

;check for error

jnz wragain

;try if any error

ret

:e1se it's done

;If at first ••.

wraga~n:

=1928 F6C480
=192B 7514

1941

=192D F6C440
=1930 7531

1963

=1932 F6C401
=1935 7510

1947

=1937 BB8F1D

;try once (or retry)

test ah,BOh

;is the drive ready?

jnz wnrdy

;error i f not

test an,40h

;is drive write-protected?

jnz writeprot

;error i f so

test ah,l

;seek error

jnz wrsker
mov bx,offset biwmsg

;then give up.

=193A EBBEF9

12FB

call pmsg

;no sense making a fool of yourself

=193D E8BFOO

19FF

call rwerr

;print messages

=1940 C3

ret

Page 74

=1941 E87000

19B4 wnrdy:

call notready

;disk not ready, print message

=1944 74D6

191C

jz rewhst

;try again i f so directed

ret

;else return with error

=1946 C3

wrsker: mov bx,offset skmsg

=1947 BBA7lD
=194A E8AEF9

12FB

call pmsg

=194D E8FCOO

lA4C

call prthst

;print drive number

mov bx,offset trkmsg

;print 'track'

=1950 BBFBID
=1953 E8A5F9

call pmsg

12FB

=1956 2EAIAIIA

mov ax,hsttrk

;get track number
;print decimal

=195A E8D200

lA2F

call decprt

=195D E85DOO

19BD

call kqery

=1960 74BA

191C

jz rewhst

;try again?

ret

;or return with error

=1962 C3

writeprot:

;disk is write-protected

mov bx,offset wpmsg

=1963 BB5CID
=1966 E892F9

12FB

call pmsg

;print error message

=1969 E8EOOO

lA4C

call prthst

;print which one

=196C E84EOO

19BD

call kqery

;check keys

=196F 74AB

191C

jz rewhst

;try again i f directed

ret

;else return with bios error

=1971 C3

readhst:
=1972 B81300

rerhst: mov ax,0013h

;ask interface layer

Paqe 75
=1975 E8E500
CP/M ASM86 1.1

call rwhst

lA5D

SOURCE: CPLDBIOS.A86

=1978 F6C4FC
=197B 7501

197E

=197D C3

Customized Loader Basic I/O Sy

test ali,Ofch

icheck for error

jnz rdagain

ijump ahead if error

ret

ie1se you're done

test ah,80h

idrive ready?

jnz rdnrdy

ig o away if not

test ah,1

iseek error?

jnz rdsker

itake care of it

mov bx,offset birmsg

ithen give up.

rdagain:
=197E F6C480
=1981 750F

1992

=1983 F6C401
=1986 7510

1998

=1988 BB781D
=198B E86DF9

12FB

call pmsg

iprint an error message

=198E E86EOO

19FF

call rwerr

iprint messages

=1991 C3

ret

=1992 E81FOO

19B4 rdnrdy: call notready

=1995 74DB

1972

=1997 C3

=1998 BBA71D

inot ready

print message, etc.

jz readhst

itry again if directed

ret

ie1se return with error

l'dsker: mov bx,offset skmsg

=199B E85DF9

12FB

call pmsg

=199E E8ABOO

lA4C

call prthst

iprint drive number

mov bx,offset trkmsg

iprint 'track'

=19Al BBFB1D
=19A4 E854F9
=19A7 2EA1AllA

12FB

call pmsg
mov ax,hsttrk

ig et track number

Page 76

=19AB E88100

lA2F

call decprt

=19AE E80COO

19BO

call kqery

=19Bl 74BF

1972

jz rerhst

itry again?

ret

ior return with error

=19B3 C3

notready:
=19B4 BBBEID

iprint decimal

iroutine to print "not ready"

mov bx,offset nrmsg

iget message address

=19B7 E841F9

12FB

call pmsg

iprint i t then fall through

=19BA E88FOO

lA4C

call prthst

iprint which one

iroutine to check keyboard for AC

kqery:
=19BO BBCFIC

mov bx,offset kqmsg

istandard keyboard message

=19CO E838F9

12FB

call pmsg

iprint it

=19C3 E8EBFC

16Bl

call CONIN

iget character

cmp al,03

ictrl c?

jnz kqnex

iskip ahead if not

=19CA 2EC606A71AOO

mov unacnt:,O

iclear write flags

=1900 2EC606A51AOO

mov hstact,O

=1906 2EC606AFlA02

mov wrtype,wrual

=19C6 3C03
=19C8 7515

190F

if not loader bios

j------------------------------------------------------mov Z80FLAG,false

iclear z80 flag

call revector

istart over if so

mov cl,byte ptr .curdrvs
jmp ccp+3

igo back to ccp

j------------------------------------------------------endif inot loader bios

........ ..., ....

if loader bios
CP/M ASMS6 1.1

SOURCE: CPLDBIOS.AS6

Customized Loader Basic I/O Sy

i----------------------------------------------------- -=19DC E99SF9

jmp WBOOT

l377

i------------------------------------------------------endif iloader bios

=19DF 3C20
=19El 7503

kqnex:

cmp aI, I

jspace bar for retry

jnz kqret

iother key for error return

=19E3 32CO

xor al,al

izero it

=19E5 C3

ret

19E6

mov erflag',l

ierror code

=19EC 2EC606A71AOO

mov unacnt,O

iclear write flags

=19F2 2EC606A5lAOO

mov hstact',O

=19FS 2EC606AFlA02

mov wrtype,wrual

=19FE C3

ret

=19E6 2EC606ACIAOI

kqret:

ielse return

,.******************************************

,.*
i*

print disk, track, sector

,.*
,.******************************************

=19FF ES4AOO

lA4C rwerr:

=lA02 BBFBID
=lA05 ESF3FS
=lAOS 2EAlAllA

call prthst
mov

l2FB

b~,offset

iprint disk":"
trkmsg

iprint" TRACK"

call pmsg
mov ax,hsttrk

iprint track no.

Page 78

=lAOC E82000

lA2F

call decprt

=lAOF BB041E
=lA12 E8E6F8

mov bx,offset secmsg
12FB

call pmsg

=lA15 2EAOA31A

mov al,hstsec

=lA19 32E4

xor ah,ah

=lAIB E8ll00

lA2F

mov bx,offset kqxmsg

=lA21 E8D7F8

12FB

call pmsg

=lA24 E88AFC

16Bl

call CONIN

=lA27 3COD
lA2C

=lA2B C3
=lA2C E9B7FF

iprint sector no.

call decprt

=lAIE BB201D

=lA29 7501

iprint " SECTOR "

iask for options

cmp al,cr

icarriage return?

jne rwmker

;mark error i f not

ret

iignore i f return

19E6 rwmker: jmp kqret

ireturn with marked error

decprt: ienter with number to be printed in ax
=lA2F 33C9
rediv:

=lA31 33D2

xor cx,cx

icount digits in ex

xor dx,dx

iclear the remainder

=lA33 BBOAOO

mov bX:·,lO

=lA36 F7F3

div bx

idivide by 10

=lA38 41

inc ex

ibump the count

=lA39 52

push dx

istore digit

=lA3A OBCO

or ax,ax

iany more?

jnz rediv

iloop i f so

=lA3C 75F3

lA31

=lA3E SA

redout: pop dx

=lA3F 51

push ex

istore the count

=lA40 8ACA

mov cl,dl

iremainder in dl to cl

=1A42 80Cl30

add cr, '0'

iascii number

ithe last shall be first

Page 79
=lA4S E86EFC
CP/M ASM86 1.1

l6B6

call CONOUT

SOURCE: CPLDBIOS.A86

=lA48 S9
=lA49 E2F3

lA3E

=lA4B C3

:print digit

Customized Loader Basic I/O Sy

pop cx

;get the count

loop redout

;loop back if more

ret

;else return

prthst: ;print disk, A:, B:, etc.
=lA4C 2E8AOEAOIA

mov cl,hstdsk

=lASl 80Cl4l

add cl, 'A'

=lAS4 E8SFFC

call CONOUT

l6B6

=lAS7 B13A
=lAS9 E8SAFC

;get the number

; Pr int i t

mov cl, I : '
l6B6

call CONOUT

=lASC C3

;print a colon

ret

,.******************************************
,. *
;*

read/write from host

,.*
,.******************************************

=lASD SO

rwhst:

push ax

;function set for packer

=lASE B400

mov ah,O

;clear high

=lA60 Bl04

mov cl,4

;set for rol

=1A62 2EAOAOIA

mov al,hstdsk

;disk number

=lA66 D3CO

rol ax,cl

;times 32

=1A68 BBBSIA

mov bx,offset dpbase

;get disk data address

Page 80

=IA6B 0308

add bx,ax

ifOr this disk

=IA60 8Bl7

mov dx, [bx]

iget pointer in dx

=IA6F 2E8AIEA3lA

mov bl,hstsec

;host sector

=IA74 OICo

rol ax,l

irotate drive once more

=IA76 8oE3lF

and bl, lfh

imask sector number (jic)

=IA79 oAC3

or al,bl

;combine sector

=IA7B 2E8BIEAllA

mov bx,hsttrk

iand track

=IA80 8AE3

mov ah,bl

;in one byte

=IA82 50

push ax

;stack for packer (2)

=IA83 B8oo3A

mov ax,dbptr

=IA86 o5A2oo

add ax,xshrbuf

ipoint to buffer

=IA89 50

push ax

i (3)

=IA8A B8oloo

mov ax,oool

=IA80 50

push ax

i (4)

=IA8E B80000

mov ax,o

iwait for z80

=IA91 B90400

mov cx,4

;4 words for packer

=IA94 E8oCF8

point to data block

call packer

12A3

=IA97 58

pop ax

=IA98 58

pop ax

=IA99 58

pop ax

=IA9A 58

pop ax

=IA9B C3

ret

ilevel the stack

igo away when done

i 1
i 1

End of added code

il---------------------------------------------------- --I
=

Page 81

,.*****************************************************
CP/M ASM86 1.1

SOURCR: CPLDBIOS.A86

Customized Loader Basic I/O Sy

,.*

;* Use the GENDEF utility to create disk def tables

., *

,.*****************************************************
;dpbase equ

offset $

disk parameter tables go here

,.*****************************************************
,.*

,.* Uninl tialized RAM areas follow, including the

,.* areas created by the GENDEF utility listed above. *
,.*

,.*****************************************************
=lA9C

sek dsk rb

;seek disk number

=lA9D

sek trk rw

;seek track number

=lA9F

sek sec rb

;seek sector number

=lAAO FF

hst dsk db

Offh

;host disk number

=lAA1

hst trk rw

;host track number

=lAA3

hst sec rb

;host sector number

=lAA4

sek hst rb

;seek shr secshf

=lAA5

hst act rb

;host active flag

Page 82

=lAA6

hst wrt rb

;host written flag

=lAA7

una cnt rb

;unalloc rec cnt

=lAA8

una dsk rb

;last unalloc disk

=lAA9

una trk rw

;last unalloc track

=lAAB

una sec rb

;last unalloc sector

=lAAC

erflag

;error reporting

=lAAD

rsflag

;read sector flag

=lAAE

readop

;1 if read operation

=lAAF

wrtype

;write operation type

=lABO

dma_seg rw

;last dma segment

=lAB2

dma off rw

;last dma offset

=lAB4

mediatype rb

;Rainbow or Robin media

;hstbuf rb

hstsiz

;host buffer (not in CP/M 86/80)

end
INCLUDE CAT.LIB
DISKS 5
dpbase

equ

;Base of Disk Parameter Blocks

dpeO

xltU,OOOOh

;Translate Table

=lAB9 00000000

OOOOn,OOOOh

;Scratch Area

=lABD 3FIBF51A

dirbuf,dpbO

;Dir Buff, Parm Block

=lACl D81BBFIB

csvU,alvO

;Check, Alloc Vectors

xltI,OOOOh

;Translate Table

=lAC9 00000000

OOOOn,OOOOh

;Scratch Area

=lACD 3FIBF51A

dirbuf,dpbl

;Dir Buff, Parm Block

=lADl lllCF81B

csvI,alvl

;Check, Alloc Vectors

lAB5
=lAB5 041BOOOO

=lAC5 041BOOOO

dpel

Page 83
=lADS 041BOOOO

dpe2

CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

xltZ,OOOOh

jTranslate Table

Customized Loader Basic I/O Sy

=lAD9 00000000

OOOOll,OOOOh

jScratch Area

=lADD 3FIBFSIA

dirbuf,dpb2

jDir Buff, Parm Block

=lAEl 4AIC311C

csvZ, al v2

jCheck, Al10c Vectors

xlt3,0000h

jTranslate Table

=lAE9 00000000

OOOOll,OOOOh

jScratch Area

=lAED 3FIBFSIA

dirbuf,dpb3

jDir Buff, Parm Block

=lAFl 831C6AIC

csv3,alv3

jCheck, Alloc Vectors

=lAES 041BOOOO

dpe3

j--

DUMMY DISK FOR ROBIN MEDIA REFERENCE
DISKDEF 0,0,39,1,2048,195,128,128,2
equ

offset $

jDisk Parameter Block

=lAFS 2800

jSectors Per Track

=lAF7 04

jBlock Shift

=lAF8 OF

jBlock Mask

=lAF9 01

jExtnt Mask

=lAFA C200

194

;Disk Size - 1

=lAFC 7FOO

127

jDirectory Max

=lAFE CO

192

jAllocO

=lAFF 00

jAllocl

=lBOO 2000

jCheck Size

=lB02 0200

jOffset

equ

offset $

jTranslate Table

lAFS

IB04

dpbO

xltO

j** ModifIed for Rainbow media
=lB04 00010203

0,1,Z,3

=lB08 08090AOB

8,9,10,11

Page 84

=lBOC 10111213

16,17,lff,19

=lB10 18191A1B

24",25,26,27

=lB14 20212223

32,33,34,35

=lB18 04050607

4,'5,6,7

=lB1C OCODOEOF

12,13,14",15

=lB20 14151617

20,21,22,23

=lB24 1C1DIEIF

28,2g,30,31

=lB28 24252627

36,37,38,39

0019

alsO

equ

iAllocation Vector Size

0020

cssO

equ

iCheck Vector Size

DISKDEF 1,0
lAF5

dpbl

equ

dpbO

iEquivalent Parameters

0019

alsl

equ

alsO

iSame Allocation Vector Size

0020

cssl

equ

cssO

iSame Checksum Vector Size

IB04

xltl

equ

xltO

iSame Translate Table

DISKDEF 2,0
lAF5

dpb2

equ

dpbO

iEquivalent Parameters

0019

als2

equ

alsO

iSame Allocation Vector Size

0020

css2

equ

cssO

iSame Checksum Vector Size

IB04

xlt2

equ

xltO

iSame Translate Table

DISKDEF 3,0
lAF5

dpb3

equ

dpbO

iEquivalent Parameters

0019

als3

equ

alsO

iSame Allocation Vector Size

0020

css3

equ

cssO

iSame Checksum Vector Size

IB04

xlt3

equ

xltO

iSame Translate Table

DISKDEF 4,0,35,1,1024,171,64,64,2
IB2C

dpb4

equ

offset $

iDisk Parameter Block

Paqe 85
=lB2C 2400
CP/M ASM86 1.1

dw
SOURCE: CPLDBIOS.A86

;Sectors Per Track

Customized Loader Basic I/O Sy

=lB2E 03

;Block Shift

=lB2F 07

;Block Mask

=lB30 00

;Extnt Mask

=lB31 AAOO

170

;Disk Size - 1

=lB33 3FOO

;Directory Max

=lB35 CO

192

;AllocO

=lB36 00

;Allocl

=lB37 1000

;Check Size

=lB39 0200

;Offset

lB04

xlt4

equ

xltO

;Translate Table

OOOC

als4

equ

;Allocation Vector Size

0010

css4

equ

;Check Vector Size

ENDEF
=
Table for transfering dpb's between rainbow and robin media:

lB3B

equ offset $

mediatbl

=lB3B F51A

dpbO

;Rainbow PC-lOO

=lB3D 2ClB

dpb4

;Robin

Unlnitia1ized Scratch Memory Follows:

IB3F
=lB3F

begdat

equ

offset $

;Start of Scratch Area

dirbuf

128

;Directory Buffer

Page 86

=lBBF

alvO

alsO

;Alloc Vector

=lBD8

csvO

cssO

;Check Vector

=lBF8

alvl

alsl

;Alloc Vector

=lCll

csvl

cssl

;Check Vector

=lC31

alv2

als2

;Alloc Vector

=lC4A

csv2

css2

;Check Vector

=lC6A

alv3

als3

;Alloc Vector

=lC83

csv3

css3

;Check Vector

lCA3

enddat

equ

offset $

;End of Scratch Area

0164

datsiz

equ

offset $-begdat ;Size of Scratch Area

=lCA3 00

;Marks End of Module

INCLUDE CPLBIOS2.A86

,.*********************************************
,.*

,.*

Data Areas

,.*

,.*********************************************

lAB2

dma adr equ dma off

=lCA4 00

IOBYTE

=lCA5 0000

BXHLD

=lCA7 00

xoff_flg db

o
o

;store bx here

Page 87

CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

Customized Loader Basic I/O Sy

loader bios

i--------------------------------------------;I
=lCA8 IB5B324AIB5B

signon

27,' [2J",27,' [3;lH'

=lCB2 ODOAODOA

ct,lf,ct,lf

=lCB6 43502F4D2D38

'CP/M-86/80 Loading ••• ~,CR,LF,O

33383148

362F3830204C
6F6164696E67
202E2E2EODOA
00

,---------------------------------------------ENDIF

;error messages:

=lCCF ODOA50726573

kqmsg

cr',lf,'Press CTRL-·C to restart:,

'space bar to retry, or any other key to continue. '

~,cr',lf

73204354524C
2D4320746F20
726573746172
742C200DOA
=lCEC 737061636520
62617220746F

Page 88

207265747279
2C206F722061
6E79206F7468
657220686579
20746F20636F
6E74696E7565
2E
=lDID ODOAOO

endlin

cr,lf,O

=lD20 ODOA

kqxmsg

cr", 1 f

'Press Return to ignore error, any other key to continue'

cr",lf,O

cr,lf,'Drive write-protected --

=lD22 507265737320
52657475726E
20746F206967
6E6F72652065
72726F722C20
616E79206F74
686572206865
7920746F2063
6F6E74696E75
65
=lD59 ODOAOO

=lD5C ODOA44726976
652077726974
652D70726F74
656374656420
2D2D2000

wpmsg

~,O

Page 89

CP/M ASM86 1.1

SOURCE: CPLOBIOS.A86

=1078 000A52656164

Customized Loader Basic I/O Sy

erl

cr,lf,'Read error on drive ",0

er2

cr,lf,'Write error on drive ",0

skmsg

cr,lf,'Seek error on drive ",0

er5

cr,lf,'Orive not ready -- ",0

unabl

cr',lf, 'Cannot write on VTI80 disk on drive ",0

trkmsg

206572726F72
206F6E206472
6976652000
=108F 000A57726974
65206572726F
72206F6E2064
726976652000
=10A7 000A5365656B
206572726F72
206F6E206472
6976652000
=10BE 000A44726976
65206E6F7420
726561647920
20202000
=1004 000A436I6E6E
6F7420777269
7465206F6E20
565431383020
6469736B206F
6E2064726976
652000
=10FB 2C2074726163

track

, ,0

Page 90

6B2000
=lE04 2C2073656374

secmsg

1078

birmsg

equ erl

ID8F

biwmsg

equ er2

lOBE

nrmsg

equ er5

p232to

" , sector

",0

6F722000

=lEOE ODOA54696D65

cr,lf,'Timeout on

6F7574206F6E
20
=lEIB 4544

p232tol dw

'DE'

=lEID 563AQO

p232to2 db

'V: ",0

dispst

not loader bios

end i f

=lE20

SEGHLD

rw 1

isave segment

=lE22

RTNHLD

rw 1

isave return address

=lE24

COUNT

rw 1

System Memory Segment Table

=
=lE26

segtable rb 1

=lE27

rw 4

i2 segments
iroo m for two segs

Page 91

CP/M ASM86 1.1

SOURCE: CPLDBIOS.A86

Customized Loader

Ba~ic

I/O Sy

not loader bios

i--------------------------------------------;I
s~gnon

27,' [2J'·,27,' [3;lH'

DB
=

CP/M-86/80 Version '

version number+'O'

, ,

rev number+'O'

, ,

mod number+'O'

, (1.1) ~,CR,LF

cr,lf,O

i--------------------------------------------ENDIF

=lE2F

loc stk rw

;not loader bios

;local stack for initialization

lE5F

stkbase equ offset $

lE5F

lastoff equ offset $

0226

tpa_seg equ (lastoff+0400h+15) / 16

Inc.~,CR,LF

Corporation~,cr,lf

Page 92

= ODDI
db a

=lESF 00

ifill last address for GENCMD

i*********************************************

,.*

Dummy Data Section

,.*

,.*********************************************
dseg

iabsolute low memory

org

i(interrupt vectors)

=0000

intO offset

=0002

intO_segment

0000

pad to system call vector
rw

=0004

2* (bdos_ int-l)

=
=0380

bdos offset

=0382

bdos_segment

org 36*4

itype 36 service

=0090

sio offset

=0092

sio_seg

=0094

sl02 offset

=0096

sio2_seg

org 39*4

itype 39 service

=009C

Z80 OFFSET

=009E

Z80 SEG

org 44*4
=0080

tp44_offset

Page 93

=00B2
CP/M ASM86 1.1

SOURCE.: CPLDBIOS .A86

Customized Loader Basic I/O Sy

org 100*4
=0190

tp100_offset

=0192

;***********************************************************************

DUMMY CODE SECTION (FOR FAR CALL TO Z80CCP SERVICES)

,.***********************************************************************

0040

0006

END OF ASSEMBLY.

CSEG

40h

ORG

CCPSERV EQU

NUMBER OF ERRORS:

ABSOLUTE LOCATION

USE FACTOR: 39%

END

Page 1

CP/M MACRO ASSEM 2.0

#001

CODE FOR Z80 BASE PAGE

TITLE

'CODE FOR Z80 BASE PAGE'

WRITTEN FOR DEC RAINBOW 100
BY CPL
JULY 1982
10/15/82 - ADDED UDELAY SUBROUTINE

MACLIB

Z80

Z80 MNEMONICS

0100

ORG

100H

0100 0000000000

0,0,0,0·,0,0,0,0

BYTES 00 THRU OF

0110 0000000000

0,0,0,0

BYTES 10 THRU IF

0118 C30000

JMP

011B 0000000000

0,0,0,0,0

BYTES 18 THRU lA

RST3

BYTES 20 THRU 2F
0120 76

0121+l8FD

HLT

BYTES 20 THRU 22

$-2

18H,$-2-$-1

RST4

iBYTES 23 THROUGH 25 CONTAIN
0123 FB

0124 76

HLT

cUBROUTINE FOR WAITING

Page 2

0125 C9

RET

0126 0000000000

a,o,o,a,a,a,a,a,a,o
BYTES 30 THRU 3F

0130 C30000

JMP

0133 0000000000

o
o,o,o,a,o,o,o,o,a,o,a,o,o

BYTES 30 THRU 32

RST6

ENTRY CONDITIONS FOR DISK I/O LOOP
PORT NUMBER IS IN C
BUFFER ADDRESS IS IN HL

DISK I/O LOOP IS ORG'D AT 40H

LOOP:
0140 DB40

40H

GET GENERAL FLOPPY STATUS

0142 87

ADD

SHIFT INTERRUPT BIT TO SIGN

0143 F8

0144+30FA

EXIT IF DONE

JRNC

LOOP

30H,LOOP-$-1

INI
0146+EDA2

0148+l8F6

UDELAY

LOOP IF NO DRQ

READ A BYTE

OEDH,OA2H

LOOP

18H,LOOP-$-1

TEST AGAIN

SOFTWARE DELAY SUBROUTINE

RETURNS AFTER NUMBER OF 0.500 MILLISECONDS SPECIFIED IN REG. C

Page 3
ENTRY: C

NUMBER OF 0.500 MILLISECONDS TO DELAY

EXIT: REG C

OTHERS ARE PRESERVED

UDELAY:
CP/M MACRO ASSEM 2.0

#002

CODE FOR Z80 BASE PAGE

014A C5

PUSH

SAVE BC

014B 0697

MVI

B,151

SET FOR 151 COUNTS

DJNZ

UDELl

014D+10FE

10H,UDEL1-$-1

014F C1

POP

RESTORE BC

0150 00

OCR

DECREMENT 0.500 MS. COUNT

0151 C8

UDELl:
; DELAY

RETURN IF DONE

UDELAY

DELAY AGAIN

0152+18F6

18H,UDELAY-$-1

0154 0000000000

0,0,0,0,0,0

BYTES 54 THRU SF

0160 0000000000

0,0,0,0,0,0',0,0

BYTES 60 THRU 6F

0170 0000000000

0,0,0,0,0,0,0,0

BYTES 70 THRU 7F

0180 0000000000

0,0,0,0,0,0,0,0

BYTES 80 THRU 8F

0190 0000000000

0,0,0,0,0,0,0',0

BYTES 90 THRU 9F

01AO 0000000000

0,0,0,0,0,0,0,0

BYTES AD THRU AF

01BO 0000000000

0,0,0,0,0,0',0,0

BYTES BO THRU BF

01CO 0000000000

o , O' , a , a ,0 ,0 , 0,0

BYTES CO THRU CF

0100 0000000000

0,0,0,0,0,0,0,0

BYTES DO THRU OF

Page 4
OlEO 0000000000

0,0,0',0,0,0',0,0

BYTES EO THRU EF

OlFO 0000000000

0,0',0,0,0,0,0,0

BYTES FO THRU FF

0200

END

CP/M MACRO ASSEM 2.0

Jl003

CODE FOR Z80 BASE PAGE

0000 BC

0002 DE

0004 HL

0140 LOOP

014D UDELl

014A UDELAY

0004 IX

0004 IY

Page 1

CP/M MACRO ASSEM 2.0

#001

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

TITLE 'Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION'
FALSE
TRUE

FFFF

PRIVATE EQU

TRUE

0000

EQU

NOT PRIVATE

MACLIB
PAGE
#002

Z80

CP/M MACRO ASSEM 2.0

EQU
EQU

0000
FFFF

NOT FALSE
ASSEMBLE PRIVATE VERSION

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

.****************************************
.*
*
PSEUDO-BIOS FOR Z80
.*
*
.*
CP/M 86/80
*
.*
*
.*
RDK
04/1 0 /82
*
.*
I

I
I

10/19/82 llOO
11/22/82 1200

LZ
LZ

*
*
*
.****************************************

.*
.*

ORG

OF600H

IOBYTE
FDOSM
CSFLAG
BlOCS
BDCS

EQU
EQU
EQU
EQU
EQU

iCHANGE THIS IF NECESSARY TO RE-ORG
3
90H
OFFE7H
1
2

i ** JUMP TABLE FOR STARTING:
PSBDOS:
JMP PSBDOS1
JMP START
i ** PSEUDO BDOS:

iINITIALIZE RST 3 AND 6

DSBDOS1:
MOV A,C
CPI 41
RNC

i
i

* * VER 1. 0 . 3
* * VER 1. 0 • 4

i** VER 1.0.4 BAD BDOS CALL

Page 2
CPI 11
JRZ PCONS
JRNC PSBDI
CPI 6
JRZ PDRC
CPI 7
JZ PGIOB
CPI 8
JZ PSIOB

,.** VER 1. 0.3

,.** VER 1.0.3 CONSOLE STATUS

,.** VER 1. 0.4
,. ** VER 1.0.3
,.** VER 1. 0.3 DIRECT I/O
,.** VER 1. 0.3
,.** VER 1.0.3 GET IOBYTE

,.** VER 1.0.3
,.** VER 1. 0.3 STORE IOBYTE

?SBDl:

PSEUX:

PCONS.:
CP/M MACRO ASSEM 2.0

CALL PACKIT
LXI H,GTABLE
MVI B,O
DAD B
MOV A,M
STA GONOW
MVI A,FDOSM
CALL PSEUD
CALL UNPSTAK
RET

,.** VER 1. 0.4 START CHECK TO SEE

,.** VER 1. 0.4 IF WE CAN RETURN BEFORE
,.** VER 1.0.4 THE 8088 IS FINISHED

,.** VER 1. 0.4 GET CODE

,.** VER 1. 0.4 STORE IT
:BDOS FUNCTION CODE

LDA CSFLAG
:** VER 1.0.3
ANI BDCS
:** VER 1.0.3
JRNZ PCONSI
:** VER 1.0.4
#003
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

CALL IOBCHK
JRNZ PSBDI
LDA CSFLAG
ANI BlOCS
PCONSl: RZ
MVI A,OFFH
RET

,.** VER 1. 0.4
,.** VER 1. 0.4
,.** VER 1.0.4
,.** VER 1.0.4

PDRe:

,.** VER 1.0.3
,.** VER 1. 0.3
,.** VER 1. 0.4
,.** VER 1.0.4
,.** VER 1.0.4
,.** VER 1. 0.3
,.** VER 1. 0.3
,.** VER 1. 0.3

PDRCl.:

MOV A,E
CPI OFFH
JRZ PDRCI
MOV e,E
JMP CONOUT
CALL CONST
JRNZ PSBDI
RET

STA PACKET
LDA GONOW
STA PACKET+l
LXI H,PACKET
CALL
188SVC
LDA GONOW
ORA A
RZ
CALL WAIT88
PSEUDl: CALL UNPACKIT
RET
PSEUD:

,.** VER 1. 0.3

,. ** VER 1. 0.3

,.** VER 1.0.3

,.** VER 1. 0.4

,.** VER 1. 0.4
: REQUEST 8080 PROCESSING

,.** VER 1.0.4
,.** VER 1.0.4
,.** VER 1.0.4

,.** VER 1.0.4

(

1.0.3)

Page 3

i ** DATA AREA
PACKET DB 0,0,0,0,0,0,0,0,0,0

,.*
,.*
,. *
,.*
,.*
,.*
,.*
,.*
,.*
,.*
,.*
,.*
,.*
,.*
,.*
i

THE MESSAGE PACKET WILL LOOK LIKE THIS:
BYTE
USED
Z80
USED
8088
REG
REG
AT
FOR
0
I

FUNCTION
RET VAL
FUNCTION NO.

4
5
6

7
8

AH
AL
CL
CH
DL
DH
BL
BH

IOBYTE

ENTRY
RETURN (GONOW ON ENTRY)
ENTRY
ENTRY
ENTRY
ENTRY
RETURN
RETURN
BOTH

** SUBROUTINE TO PUT REGISTERS IN PACKET FOR BIOS OR BDOS CALLS

PACKIT.:
REPSTAK:
CP/M MACRO ASSEM 2.0
#004

iROUTINE TO SHIFT TO NEW STACK
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

SHLD HSAVE
DI
POP H
SSPD PSTAKSAV
LXI SP,PSTACK
PUSH H
EI
LHLD HSAVE
CALL WAIT8S
SBCD PACKET+2
SDED PACKET+4
LDA IOBYTE
STA PACKET+8
RET
i

A
C
B
E
D
L
H

iHANG ON TO HL
iNa INTERRUPTS, PLEASE
iGET RETURN
iSTASH THE STACK POINTER
iSET STACK TO NEW AREA
iSET UP RETURN
iINTERUPTS OK
iRESTORE HL
; ** VER 1. 0.4
:STORE REGISTERS

** SUBROUTINE TO PUT MESSAGE-PACKET DATA INTO REGISTERS

UNPACKIT:
PUSH IX
LIXD IPKT
LDX A,8
STA IOBYTE
LDX A,l
LDX L,6
LDX H,7
POPIX

iSTORE INDEX REG
i** VER 1.0.4
iIOBYTE
i (LOC 3)

Page 4
RET
GTABLE.: ;TABLE OF CRITERIA FOR WAITING AFTER A BOOS CALL. ZERO
DB
;0
1
;1
DB
1
;2
DB
o
;3
DB
1
;4
DB
o
DB
;5
o
;6
1
DB
;7
1
DB
;8
1
DB
;9
1
DB
;10
1
DB
;11
DB
1
;12
1
DB

CP/M MACRO ASSEM 2.0

DON'T WAIT

DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB

;14
;15
;16
;17
;18
1
1
;19
;20
1
;21
1
;22
1
;23
1
;24
1
;25
1
;26
o
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

#005

DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
PAGE
ORG

;13

1
1
1

1
1

;27
;28
;29
;30
;1
;32
;33
;34
;35
;36
;37
;38
;39
;40

PSBDOS+I00H

; PAGE BOUNDARY FOR BIOS JUMPS

1
1
1
1

1
1

1
1
1
1

** BIOS JUMP TABLE
JMP BOOT
JMP WBOOT
JMP CONST

;FUNCT NO.
;0
;1
;2

Page 5

BOOT:
XBOOT:

WBOOT:

CONST:

CP/M MACRO ASSEM 2.0

JMP CONIN
JMP CONOUT
JMP LIST
JMP PUNCH
JMP READER
JMP HOME
JMP SELDSK
JMP SETTRK
JMP SETSEC
JMP SETDMA
JMP READ
JMP WRITE
JMP LISTST
JMP SECTRAN
JMP VIDEO

;3
;4
;5
;6
;7
;8
;9
;A
;B
;C
;D
;E
;F
;10
;11

CALL PACKIT
MVI A,40H
STA PACKET
LXI H,PACKET
CALL WAIT88
CALL
I88SVC
RST 4

;0
;STORE CODE IN PACKET
; * * VER 1. 0 .4
; REQUEST 8088 PROCESSING (1.0.3)
;BYE.

CALL PACKIT
MVI A,41H
JMP XBOOT

;1
;DO IT TO IT

;2
CALL roBCHK
;** VER 1.0.3
JRNZ CONST1
; * * VER 1. 0 • 3
LDA CSFLAG
; * * VER 1. 0 • 3
#006
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION
ANI BlOCS
JMP PCONS1

,.** VER 1.0.3
,.** VER 1. 0.3

CALL PACKIT
CALL PSEUN
DB
1,42H

,.** VER 1. 0.4

CONST1:

CONIN:

CALL PACKIT
CALL PSEUN
DB
1,43H

CONOUT: CALL PACKIT
CALL PSEUN
DB
0,44H
LIST:

PllNC'H:

,.** VER 1.0.4
;4

,.** VER 1. 0.4

CALL PACKIT
CALL PSEUN
DB
(J,45H

,.** VER 1. 0.4

CALL PACKIT

Page 6
CALL PSEUN
0,46H
DB

,.** VER 1.0.4

READER: CALL PACKIT
CALL PSEUN
DB
1,47H

CALL PACKIT
CALL PSEUN
0,48H
DB

HOME:

SELDSK: CALL PACKIT
CALL PSEUN
1,49H
DB

,.** VER 1.0.4
,.** VER 1.0.4

,.** VER 1. 0.4
;10

SETTRK: MVI B,O
CALL PACKIT
CALL PSEUN
o,4AH
DB

,.** VER 1. 0.4

SETSEC: CALL PACKIT
CALL PSEUN
o,4BH
DB

,.** VER 1. 0.4

SETDMA: CALL PACKIT
CALL PSEUN
0,4CH
DB

,.** VER 1.0.4

READ:

CALL PACKIT
CALL PSEUN
1,4DH
DB

WRITE.:

CALL PACKIT
CALL PSEUN
1,4EH
DB

CP/M MACRO ASSEM 2.0

#007

;11

;12

;13

,.** VER 1.0.4
;14

,.** VER 1. 0.4

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

LISTST.: CALL PACKIT
CALL PSEUN
DB
1,4FH

;15

SECTRAN:

;16
;DOUBLE PRECISION IN BC
;TRANSLATE TABLE ADDRESS TO HL
;TRANSLATE SECTOR ADDRESS
;RETURN SECTOR IN L

MVI B,O
XCHG
DAD B
MOV L,M
MVI H,O
RET
VIDEO:
MVI 0,0
MVI E,O
CALL PACKIT
CALL PSEUN

;** VER 1.0.4

;DON'T BOTHER CP/M-86
;17
;FAST VIDEO. NEED 0 SEG
;** VER 1.0.4

Page 7
DB

1,56H

,• ** VER 1. 0.3

IOBCHK: LDA IOBYTE
ANI 3
CPI 1
RET

,.** VER 1. 0.3 CRT?

,.** VER 1. 0.3 REALLY?
,.** VER 1. 0.3

PGIOB:

LDA IOBYTE
RET

,.** VER 1. 0.3 GET IOBYTE

PSIOB:

MOV A,E
STA IOBYTE
RET

i** VER 1.0.3 STORE IOBYTE
VER 1. 0.3
i** VER 1.0.3

POP H
MOV A,M
STA GONOW
INX H
MOV A,M
JMP PSEUX

iROUTINE TO CARRY PARAMETERS FORWARD INTO
iTHE PACKET FOR BIOS CALLS
iSTORE WAIT CRITERION

PSEUN:

UNPSTAK:
SHLD HSAVE
DI
POP H
LSPD PSTAKSAV
PUSH H
EI
LHLD HSAVE
RET
HSAVE.:
PSTAKSAV:
GONOW:

DW
DW
DB

,.** VER 1. 0.3
i **

iGET FUNCTION NUMBER
iGO TO PSEUDO-BIOS EXIT
iROUTINE TO RESET TO OLD STACK
iHANG ON TO HL
iNO INTERRUPTS, PLEASE
iGET RETURN ADDRESS
iRESTORE USER STACK
iRESTORE RETURN
iINTERRUPTS OK
iRESTORE HL

o
o

iSPACE FOR A STACK
DS
50
PSTACK: DW
o
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION
CP/M MACRO ASSEM 2.0
#008

CP/M MACRO ASSEM 2.0

ENDIF
PAGE
#009

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

Z80 INTERFACE LAYER AND PRIMITIVE ROUTINES
REWRITTEN FOR DEC RAINBOW 100
BY CPL
JULY 1982

Page 8
IF
START
EQU
INTFPTR EQU
ELSE
START
EQU
INTFPTR EQU
ENDIF

PRIVATE
00100H
03CFCH

STARTING ADDRESS OF CODE
LOCATION OF PACKET POINTERS

$
OFFFCH

STARTING ADDRESS OF CODE
LOCATION OF PACKET POINTERS

0018
0020
0030

RST3
RST4
RST6

EQU
EQU
EQU

18H
20H
30H

ADDRESS OF RST 18H (RST 3) VECTOR
ADDRESS OF RST 20H (RST 4) VECTOR
ADDRESS OF RST 30H (RST 6) VECTOR

0000
0020

188INT
INTSTA

EQU
EQU

o
20H

8088 INTERRUPT PORT
CROSS-CPU INTERRUPT STATUS PORT

00C3

JUMP

EQU

OC3H

OPCODE FOR JUMP INSTRUCTION

0004

INTBIT

EQU

INTERRUPT BIT
WHEN LOW, SHOWS 8088 INTERRUPT
FLOP IS INTERRUPTING THE 8088;
ORIGINALLY SET BY Z80

OOFO

FRANGE

EQU

OFOH

FUNCTION RANGE MASK
FOR HIGH NIBBLE OF FUNCTION CODE

0010
0020
0040

DSKFNC
OTHFNC
USRFNC

EQU
EQU
EQU

10H
20H
40H

DISK FUNCTION (HIGH NIBBLE VALUE)
OTHER Z80 FUNCTIONS (HIGH NIBBLE VALUE)
USER-DEFINED FUNCTIONS

0021
0022

Z80BGN
Z80MVE

EQU
EQU

21H
22H

ALLOW Z80 TPA EXECUTION
MOVE Z80 MEMORY CONTENTS
LOW VALUE LIMIT - 1

0007

LEGFUN

EQU

07H

FUNCTION CODE MASK
USE LOW 3 BITS

OOFF

FNCNG

EQU

OFFH

FUNCTION CODE NO GOOD

0014

DKWRIT

EQU

14H

PACKET DISK WRITE FUNCTION CODE

OOOA
0200

NUMSEC
SECSIZ

EQU
EQU

10
512

NUMBER OF SECTORS PER TRACK
NUMBER OF BYTES PER DISK SECTOR

0002
0003

STADRL
STADRH

EQU
EQU

2
3

START ADDRESS LSB PACKET OFFSET
START ADDRESS MSB PACKET OFFSET

0002
SCADRL
CP/M MACRO ASSEM 2.0

EQU
#010

2
; SOURCE ADDRESS LSB PACKET OFFSET
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

SCADRH
DSADRL
DSADRH
BYCNTL
BYCNTH

EQU
EQU
EQU
EQU
EQU

3
4
5
6
7

0100
3CFC

0003
0004
0005
0006
0007

SOURCE ADDRESS MSB PACKET OFFSET
DESTINATION ADDRESS LSB PACKET OFFSET
DESTINATION ADDRESS MSB PACKET OFFSET
BYTE COUNT ADDRESS LSB PACKET OFFSET
BYTE COUNT ADDRESS MSB PACKET OFFSET

Page 9

CP/M MACRO ASSEM 2.0

PAGE
iOll

Z.80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

0100

ORG

START

**************************************************************
NAME.: INTSTR
FUNCTION: THIS ROUTINE WILL RE-INITIALIZE THE RST 6
VECTORS, SET UP THE Z80 SERVICE STACK POINTER,
AND DO A RST 4.
ENTRY: NONE
EXIT: NONE
~

INTSTR:
~

SET UP RST VECTORS

0100 211201
0103 223100

SET UP RST 6 VECTOR

H,PKTPRO
RST6+1

LXI
SHLD

SET UP Z80 SERVICE STACK POINTER
SP,STACK

LXI

0106 313005

INITIALIZE FLAGS
A,FALSE
DONEFL

MVI
STA

0109 3EOO
010B 323105

WAIT UNTIL NEEDED
010E FB
010F C32000
CP/M MACRO ASSEM 2.0

EI
JMP
PAGE
i012

RST4

GO TO HALT AND WAIT FOR INTERRUPT

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

**************************************************************
NAME: PKTPRO
FUNCTION: THIS ROUTINE IS PASSED A PACKET ADDRESS IN 188PKT. IT USES
THAT TO GET THE FUNCTION NUMBER WHICH IT USES TO JUMP
TO THE SPECIFIC FUNCTION HANDLER ROUTINE.
THIS ROUTINE IS ENTERED VIA AN INTERRUPT FROM THE 8088 AT RST 6 THEREFORE, INTERRUPTS ARE OFF.
FOR ALL FUNCTIONS EXCEPT Z80START AND SERIAL SUPPORT FROM 808g,
WE WILL INTERRUPT THE 8088 TO INDICATE WE HAVE FINISHED

Page 10
THE FUNCTION
ENTRY: 188PKT = PACKET ADDRESS
EXIT.: IX

= PACKET ADDRESS

;

PKTPRQ:
SAVE

0112+DDE5
0114 F5

PUSHIX
DB
PUSH

ODDH,OE5H
PSW

LIXD
DB
DW

188PKT
ODDH,2AH
188PKT

GET ADDRESS OF PACKET

0115+DD2A
0117+FE3C
0119 DBOO

188INT

CLEAR 8088 INTERRUPT FLAG
SAVE REMAINING REGISTERS

011E+DDE5
0120 El
0121 7C
0122 B5
0123 CA7901
0126 D5
0127 C5

PUSHIY
DB
PUSH
PUSHIX
DB
POP
MOV
ORA
·JZ
PUSH
PUSH

0128 015201
012B C5

LXI
PUSH

012C FB

012D+DD7EOO

LDX
DB

; GET FUNCTION CODE
A,FNCCOD
ODDH,A*8+46H,FNCCOD

0130 FEl3
0132 CACFOI

CPI
JZ

QKRDCOM
DKREAD

0135 FE14
0137 CACFOI
CP/M MACRO ASSEM 2.0

CPI
JZ
!to 13

QKWTCOM
DKWRITE
WRITE FUNCTION
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

013A FE42

USRFNC+2
HIFNC
30H,HIFNC-$-1

BIOS 42 - 4F, BDOS 90
YES

013C+3033

CPI
JRNC
DB

013E FE22
0140 CADB04

CPI
JZ

Z80MVE
ZMOVE

MOVE Z80 MEMORY

0143 FE15
0145 CA8601

CPI
JZ

QKCMCOM
DKCHECK

011B+FDE5
011D E5

OFDH,OE5H
H

CHECK FOR ZERO ADDRESS
ODDH,OE5H
H

A,H
L

HIFXIT

MOVE IX TO H
PUT IN ACCUM
GET LOW-ORDER, TOO.
GO AWAY IF ZERO

D
B

B,PKTRET

PUSH RETURN ADDRESS ONTO STACK

; RE-ENABLE INTERRUPTS

READ FUNCTION

CHECK MEDIA FUNCTION

Page 11

0148 FE21
014A CAC604

ALLOW Z80 TPA EXECUTION

CPI
JZ

Z80BGN
ZSTART

POP
MVIX
DB

B
; EMPTY STACK OF RETURN ADR
FNCNG,STATUS
; SET ERROR STATUS
ODDH,36H,STATUS,FNCNG

ERROR:
014D Cl
014E+DD3601FF
PKTRET.:
RE-ENABLE INTERRUPTS IN CASE
THEY WERE OFF (DISK I/O)
RESTORE REGISTERS

0152 FB

0153 Cl
0154 Dl
0155 El

B
D
H

0156+FDEI

POP
POP
POP
POPIY
DB
SIXD
DB
DW
OUT

Z80PKT
ODDH,22H
Z80PKT
188INT

SET UP RETURN PACKET POINTER

0158+DD22
015A+FC3C
015C D300

IN
ANI
JZ

INTSTA
INTBIT
PKTRI

LOOP UNTIL 8088 CLEARS THE
INTERRUPT

LXIX
DB
DW
SIXD
DB
DW

o
ODDH,21H
o

PSW

016E+DDEI

POP
POPIX
DB

0170 C9

RET

OFDH,OEIH

AND PASS IT

PKTRl:
015E DB20
0160 E604
0162 CA5EOI
0165+DD21
0167+0000
0169+DD22
016B+FC3C
016D Fl

Z80PKT
ODDH,22H
Z80PKT

iZERO ADDRESS (8088 HAS IT NOW)

ODDH,OEIH
i AND RETURN

PROCESS FUNCTION CODES

42H TO 4FH, OR 90H

HIFNC:
0171 Cl
0172 3EFF
CP/M MACRO ASSEM 2.0

POP
MVI
#014

B
i FIX STACK
l1:,TRUE
i SET DONE FLAG
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

0174 323105

STA

DONEFL

0177 Cl
0178 Dl
0179 El
017A+FDEI

POP
POP
HIFXIT: POP
POPIY
DB

B
D
H
OFDH,OEIH

RESTORE REGISTERS
EXCEPT HL,AF, AND IX

Page 12
017C F1

PSW
IPKT
ODDH,22H
IPKT

IPKT

POP
SIXD
DB
DW
POPIX
DB
RET
DW

CP/M MACRO ASSEM 2.0

PAGE
#015

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

017D+DD22
017F+8401
018l+DDE1
0183 C9
0184 0000

RESTORE
STASH PACKET ADDRESS

ODDH,OE1H

**********************************************************
NAME.: 188SVC
FUNCTION: THIS ROUTINE REQUESTS SERVICE FROM THE 8088 FOR A
Z80-RESIDENT ROUTINE.
ENTRY: HL = PACKET ADDRESS
EXIT: HL = PACKET ADDRESS
i

188SVC:
DI
SHLD

Z80PKT

WRITE ADDRESS OF PACKET

MVI
STA

A,FALSE
DONEFL

CLEAR DONE FLAG

OUT

188INT

SET 8088 INTERRUPT FLAG

IN
ANI
JZ
PUSH
LXI
SHLD
POP

INTSTA
INTBIT
INTCLR
H
H,O
Z80PKT
H

LOOP UNTIL 8088 TURNS OFF
INTERRUPT FLAG

INTCLR:

ZERO THE PACKET ADDRESS
RE-ENABLE INTERRUPTS

EI
RET
ROUTINE TO WAIT FOR THE DONE FLAG
i

WAIT88:
DI
LDA
CPI
JRZ

DONEFL
TRUE
WAITDN

JUMP IF DONE

Page 13
CALL

23H

WAIT UNTIL INTERRUPTED

WAIT88

-JUMP TO MAKE SURE DONE FLAG IS TRUE

WAITDN: EI
RET
PAGE
ENDIF

****************************************************************
i NAME.: DSKPRO
CP/M MACRO ASSEM 2.0
#016

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

FUNCTION: THIS ROUTINE IS THE ENTRY POINT FOR ALL OF THE
DISK I/O FUNCTIONS.
IT WILL DETERMINE WHICH
PRIMITIVE TO CALC, AND PASS CONTROL TO THAT PRIMITIVE.
ENTRY: IX

= PACKET ADDRESS

EXIT: IX

= PACKET ADDRESS

****************************************************************
PACKET OFFSETS
i

0000
0001
0002
0002
0003
0004
0005
0006

FNCCOD
STATUS
DRIVEN
SECTN
TRACKN
DMALOW
DMAHI
NSECT

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

0
1
2
2
3
4
5
6

FUNCTION CODE
RETURNED STATUS
DRIVE NUMBER
SECTOR NUMBER
TRACK NUMBER
DMA ADDRESS (LSB)
DMA ADDRESS (MSB)
NUMBER OF SECTORS

0060
001F

DRVNUM
SECNUM

EQU
EQU

60H
IFH

MASK FOR DRIVE NUMBER
MASK FOR SECTOR NUMBER

0013
0014
0015

FUNCTION CODES
i
QKRDCOM EQU
13H
QKWTCOM EQU
14H
QKCMCOM EQU
ISH

READ FUNCTION CODE
WRITE FUNCTION CODE
CHECK MEDIA FUNCTION CODE

i FDC COMMAND FLAGS
i

0008
0004
0004
0008
0002
0010

QMHLD
QMVERF
QMEFLG
QMSSEL
QMSCOM
QMUPDT
i

EQU
EQU
EQU
EQU
EQU
EQU

FDC STEP RATE

8
4
4
8
2
10H

HEAD LOAD FLAG
VERIFY FLAG
HEAD LOAD FLAG FOR READ/WRITE
SIDE SELECT FLAG
SIDE COMPARE FLAG
UPDATE TRACK REG FLAG

Page 14

,
0000

QKRATE

EQU

6 MS RATE

; FDC COMMANDS

0008
QCREST EQU
OOlC
QCSEEK EQU
0018
QCSEEKN EQU
0010
QCSEKHO EQU
0048
QCSTEPIN EQU
0068
QCSTEPOT EQU
0080
QCREADS EQU
OOAO
QCWRTS EQU
OOFO
QCWRTRK EQU
OOCO
QCRDADR EQU
OODO
QCTERM EQU
CP/M MACRO ASSEM 2.0
*017

O+QMHLD+QKRATE
RESTORE (RECAL)
10H+QMHLD+QKRATE+QMVERF
SEEK (WITH VERIFY)
10H+QMHLD+QKRATE
SEEK (NO VERIFY)
10H+QKRATE
SEEK - NO HEAD LOAD
40H+QMHLD+QKRATE
STEP IN
60H+QMHLD+QKRATE
STEP OUT
READ SECTOR
80H
OAOH
WRITE SECTOR
OFOH
WRITE TRACK
OCOH
READ ADDRESS
, TERMINATE COMMAND
ODOH
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

,
; DISK CONTROLLER STATUS - TYPE 1 COMMANDS
;

0080
0040
0020
0010
0008
0004
0002
0001

QMNRDY EQU
QMWPROT EQU
QMHLT
EQU
QMSKERR EQU
QMCRC
EQU
QMTZERO EQU
QMINDEX EQU
QMBUSY EQU

80H
40H
20H
10H
8
4
2

NOT READY
WRITE PROTECTED
HEAD LOADED
SEEK ERROR
CRC ERROR
TRACK ZERO
INDEX
BUSY

;

; DISK CONTROLLER STATUS - TYPE 2 AND 3 COMMANDS
;

0020
0010
0004
0002
0020

QMWRFLT EQU
QMRNF
EQU
QMLDATA EQU
QMDRQ
EQU
QMDELDM EQU

20H
10H
4
2

20H

WRITE FAULT
RECORD NOT FOUND
LOST DATA
DATA REQUEST
DELETED DATA MARK

;

; ERROR MASKS FOR OPERATIONS
;

0091
0099
OOBD
OOFD
009D

QMREST EQU
QMSEEK EQU
QMREAD EQU
QMWRITE EQU
QMRDADR EQU

QMNRDY+QMSKERR+QMBUSY
; RESTORE
QMNRDY+QMSKERR+QMCRC+QMBUSY
; SEEK
QMNRDY+QMRNF+QMCRC+QMLDATA+QMDELDM+QMBUSY
; READ SECTOR
QMNRDY+QMRNF+QMCRC+QMLDATA+QMWRFLT+QMWPROT+QMBUSY ; WRITE SECTOR
QMNRDY+QMRNF+QMCRC+QMLDATA+QMBUSY
; READ ADDRESS

;

; GENERAL STATUS PORT (QPSTAT) EQUATES
;

OOCO
0020
0010
0008
0018
0004
0003

QMPRECMP EQU
QMPSIDE EQU
QMONl
EQU
QMONO
EQU
QMON
EQU
QMTG42 EQU
QMDRNR EQU

OCOH
; PRE COMPENSATION BITS
20H
; SIDE SIGNAL
10H
; MOTOR 1 ON
8
; MOTOR 0 ON
QMONO+QMONl
4
TG 42 SIGNAL
3
; DRIVE NUMBER

Page 15

MISCELLANEOUS EQUATES
0004
9C40
003D
0040
004F
OOOA
0002

QKDRETRY EQU
QKDRCNT EQU
QKPCTRK EQU
QKPCBIT EQU
QKMXTRK EQU
QKMXSECT EQU
QKROBIN EQU

4
40000
61
40H
79
10
2

DISK OPERATION RETRIES
COUNT FOR DISK READY TIMING (.5 SEC)
PRECOMP REQUIRED STARTING AT THIS TRACK
PRECOMP BIT TO USE AFTER TRACK 60
MAX TRACK NUMBER ON RX50
MAX PHYSICAL SECTOR NO. ON RAINBOW DISKS
STATUS RETURNED FOR ROBIN MEDIA ON CHECK FUNCTION

EQUATES FOR PHYSICAL DISK CONTROL
i

0040 =
QPSTAT
0060 =
QPCOMD
CP/M MACRO ASSEM 2.0
0061
0062
0063

EQU
EQU
#018

QPTRKRG EQU
QPSECRG EQU
QPDATA EQU

40H
i GENERAL DISK CONTROL/STATUS REG.
60H
i FDC COMMAND/STATUS REG.
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION
61H
62H
63H

FDC TRACK REG.
FDC SECTOR REG.
FDC DATA REG.

EQUATES FOR PRIVATE RAM I/O ROUTINE
i

0040
0046
004A
A2ED
A3ED
63DB

RDORWR EQU
INOROUT EQU
UDELAY EQU
i

0040H
0046H
004AH

ADDRESS OF ROUTINE
ADDRESS OF INI OR OUTI INSTR.
DELAY IN 0.500 MSEC INCREMENTS, C

COUNT

INII
OUTII
ININ

EQU
EQU
EQU

OA2EDH
INI INSTRUCTION
OA3EDH i OUTI INSTRUCTION
QPDATA SHL 8 + IN i IN QPDATA INSTR.

CP/M MACRO ASSEM 2.0

PAGE
#019

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

DKCHECK
FUNCTION:

RULES:

ENTRY:
EXIT:

CHECK MEDIA TYPE
ATTEMPTS TO DETERMINE WHETHER A RAINBOW OR ROBIN DISKETTE
IS MOUNTED IN THE SPECIFIED DRIVE.
INVOKED BY THE BIOS IN THE 8088 WHENEVER DRIVE IS
SELECTED FOR THE FIRST TIME AFTER A DISK SYSTEM RESET MOST COMMONLY AFTER A AC AT THE CCP LEVEL.
NO ERRORS ARE RETURNED. A RESTORE OPERTION IS DONE,
FOLLOWED BY A READ OF SECTOR 10. IF A RECORD NOT FOUND
STATUS RESULTS, ROBIN MEDIA IS ASSUMED. ON A SUCCESSFUL
READ OF PHYSICAL SECTOR 10 OR IF ANY OTHER ERROR OCCURS
(SUCH AS NOT READY), RAINBOW MEDIA IS ASSUMED.
PACKET ADDRESS IN IX.
MEDIA TYPE IN THE STATUS FIELD OF THE PACKET:
o IF RAINBOW, 2 IF ROBIN.

Page 16

;

DKCHECK:
0186 3EFF
0188 CDB004
018B CDC603

MVI
A,OFFH
SET "CURRENT TRACK" TO FF TO INDICATE
CALL
SETRAK
FIRST ACCESS AFTER RESET
CALL
DPSELDR
DKCHECKI
DRIVE IS NOT READY
JRC
018E+380S
DB
38H,DKCHECKl-$-1
0190 CD3S03
CALL
DPRECAL
FALL THROUGH
ERROR ON RESTORE
JRZ
DKCHECK2
0193+2803
28H,DKCHECK2-$-1
DB
DKCHECKl:
0195 AF
XRA
ERROR - ASSUME RAINBOW MEDIA
A
JR
DKCHECK3
0196+1823
DB
18H,DKCHECK3-$-1
DKCHECK2:
0198 AF
XRA
A
STX
A,TRACKN
DB
ODDH,70H+~,TRACKN
0199+007703
CALL
SETRAK
TRACK 0 INTO TABLE
019C CDB004
LOX
A,DRIVEN
SETUP PACKET FOR THE READ ROUTINE
ODDH,A*8+46H,DRIVEN
DB
019F+DD7E02
ANI
DRVNUM
01A2 E660
MOV
B,A
01A4 47
MVI
A,QKMXSECT
NOW TRY TO RAED SECTOR 10
01AS 3EOA
01A7 B7
ORA
A
STX
A,SECTN
01A8+DD7702
DB
ODDH,70H+A,SECTN
NO DATA TRANSFER INTO MEMORY
01AB 21DB63
LXI
H,ININ
AND NO ERROR RECOVERY
01AE CD6S02
CALL
DPREADZ
JRZ
DKCHECK3
GOOD READ
01Bl+2808
DB
28H,DKCHECK3-$-1
IS RECORD NOT FOUND THE ONLY ERROR?
01B3 FEI0
CPI
QMRNF
01BS 3EOO
MVI
A,O
JRNZ
DKCHECK3
; NO - SET RAINBOW MEDIA
01B7+2002
DB
20H,DKCHECK3-$-1
YES - ROBIN MEDIA
01B9 3E02
MVI
A,QKROBIN
DKCHECK3:
B,A
01BB 47
MOV
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION
CP/M MACRO ASSEM 2.0
#020
01BC
01BF
01CO
01C2
01CS
01C6
01C7
01C8

3AC204
SF
l600
21F43C
19
70
78
32C304

01CB+DD7701
01CE C9
CP/M MACRO ASSEM 2.0

LOA
MOV
MVI
LXI
DAD
MOV
MOV
STA
STX
DB
RET
PAGE
#021

BCURDRV
E,A
D,O
H,TFORMAT

PUT MEDIA TYPE INTO FORMAT TABLE,
CURRENT FORMAT INDICATOR AND
INTO THE PACKET

M,B
A,B
BFORMAT
A,STATUS
ODDH,70H+A,STATUS
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

Page 17

DKREAD/DKWRITE

READ OR WRITE SECTOR(S)

FUNCTION: READS OR WRITES 1 TO 10. SECTORS ON
SPECIFIED DRIVE AND TRACK.
;

DKREAD:
DKWRITE.:
DICF CD3CD2
DID2 D8
DID3 CAEDDI
DID6 CD5BD3
DID9+2D21
DIDB DB61
DIDD CDBDD4

CALL
RC
JZ
CALL
JRNZ
DB
IN
CALL

DKRWSET

SET UP FOR READ/WRITE
EXIT - DRIVE NOT READY
NO SEEK NEEDED
PERFORM SEEK
SEEK ERROR

DKRW2D
DPSEEK
DKRW9o.
2DH,DKRW9o.-$-1
QPTRKRG
SETRAK

MVI
CMPX
DB
JRNZ
DB
CALL
JR
DB

A,QKRDCOM
FNCCOD
DDDH,DBEH,FNCCOD
DKRW3D
2DH,DKRW3D-$-1
DPREAD
DKRW4D
18H,DKRW4D-$-1

READ FUNCTION?

CALL

DPWRITE

NO - WRITE SECTOR

CALL
JRNC
DB
STX
DB
ANI
RZ
JR
DB

NEXTSEC
DKRW2D
3o.H,DKRW20-$-1
A,STATUS
DDDH,7DH+K,STATUS
QMBUSY

CHECK FOR MULT. SECTOR OPERATION
LOOP UNTIL ALL SECTORS DONE

SET NEW TRACK IN TABLE

DKRW2D:
DIED 3E13
DIE2+DDBEDD
DIE5+2DD5
DIE7 CD5FD2
DIEA+18D3

NO - WRITE
YES - READ SECTOR

DKRW30:
DIEC CD7BD2
DKRW40:
DIEF CDD7D2
DIF2+3DEC
DIF4+DD77Dl
DIF7 E6Dl
DIF9 C8
DIFA+18D5

DIFC F6Dl
DIFE+DD77Dl
0.20.1 3EFF
0.20.3 CDBDD4
0.20.6 C9

; SEEK ERROR
DKRW9C:
ORI
STX
DB
DKRW95.:
MVI
CALL
RET

DKRW95
18H,DKRW95-$-1

STORE STATUS
SEEK ERROR INDICATED?
NO - ALL DONE
YES - RESET TRACK TABLE RNTRY

QMBUSY
MARK AS SEEK ERROR
A,STATUS
; STORE STATUS
DDDH,7DH+A,STATUS
A,o.FFH
SETRAK

FORCE RECAL ON NEXT R/W

SUBROUTINE TO CHECK FOR MULTIPLE SECTOR OPERATION
DECREMENTS SECTOR COUNT AND INCREMENTS SECTOR NUMBER.
SECTOR INTERLEAVE IS USED TO READ/WRITE SECTORS IN
LOGICAL ORDER.

Page 18
; ENTRY: STATUS OF READ/WRITE IS IN 'A'

CP/M MACRO ASSEM 2.0

#022

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

EXIT: CARRY IS SET IF NO FURTHER READ/WRITE OPERATIONS
ARE NECESSARY (COUNT EXHAUSTED OR ERROR OCCURRED)
PACKET COUNT AND SECTOR NUMBER ARE UPDATED.

NEXTSEC:
0207 FEOI
0209 3F
020A D8

CPI
CMC
RC
DCRX
DB
STC
RZ

020B+DD3506
020E 37
020F C8

1
NSECT
ODDH,035H,NSECT

STATUS OK?
(REVERSE SENSE OF CARRY)
EXIT - ERROR OCCURRED
DECREMENT SECTOR COUNT
SET CARRY IN CASE COUNT
EXIT ON ZERO COUNT

INCREMENT DMA ADDRESS IN PACKET
0210+DD7E05
0213 C602
0215+DD7705
0218+DD7E02
021B C601
021D 47
021E E61F
0220 FEOA
0222+3813
0224+2006
0226 3AC304
0229 A7
022A+280C
022C+DD7E02
022F E6EO
0231 F601
0233+DD7702
0236 C9
0237 3F
0238+DD701F
023B C9

LDX
DB
ADI
STX
DB
LDX
DB
ADI
MOV
ANI
CPI
JRC
DB
JRNZ
DB
LDA
ANA
JRZ
DB
NEXTSCI0.:
LDX
DB
ANI
ORI
STX
DB
RET
NEXTSC15: CMC
NEXTSC20:
STX
DB
RET

CP/M MACRO ASSEM 2.0

PAGE
#023

A,DMAHI
; TAKE CARE OF POSSIBLE CARRY
ODDH,A*8+46H,DMAHI
2

A,DMAHI
ODDH,70H+A,DMAHI
A,SECTN
; GET SECTOR NUMBER
ODDH,A*8+46H,SECTN
1
NEXT SECTOR
B,A
ISOLATE IT
SECNUM
OVER THE LIMIT ON THE TRACK?
QKMXSECT
NEXTSC15
NO
38H,NEXTSC15-$-1
DEFINITELY OVER THE LIMIT.
NEXTSCI0
20H,NEXTSCI0-$-1
BFORMAT
AT SECTOR 10. OVER THE LIMIT ONLY IF
ROBIN DISK;
A
NEXTSC20
28H,NEXTSC20-$-1
A,SECTN
ODDH,A*8+46H,SECTN
NOT SECNUM
1
A,SECTN
STORE IT IN PACKET
ODDH,70H+A,SECTN

B,SECNUM
ODDH,70H+B,SECNUM

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

Page 19

DKRWSET

SET UP FOR READ OR WRITE

FUNCTION: SELECTS DRIVE AND CHECKS READY STATUS. HOMES
DRIVE IF IT HAS NOT BEEN ACCESSED PREVIOUSLY. COMPARES
DESIRED TRACK WITH CURRENT TRACK.
ENTRY: IX = PACKET ADDRESS
EXIT: HL = ADDRESS OF TRACK TABLE ENTRY FOR DRIVE
Z FLAG IS SET IF CURRENT TRACK = DESIRED TRACK
CARRY FLAG IS SET IF DRIVE IS NOT READY
;

DKRWSET.:
023C
023F
0240
0243

CDC603
D8
3AC504
FEFF

CALL
RC
LDA
CPI
JRNZ
DB
CALL
RNZ
XRA
CALL

DPSELDR

LDA
ANA
LDX
DB
JRZ
DB
ADD

COMPARE DESIRED TRACK WITH
CURRENT TRACK. SINCE CURRENT
TRACK IS ALWAYS KEPT IN TRUE FORM,
A,TRACKN
;
ODDH,A*8+46H,TRACKN
DKRWS20
MUST DOUBLE DESIRED TRACK IF
28H,DKRWS20-$-1
A
ROBIN MEDIA

0259 47
025A 3AC504
025D A8
025E C9

MOV
LDA
XRA
RET

B,A
BTRACK

CP/M MACRO ASSEM 2.0

PAGE
#024

0245+2008
0247 CD3503
024A CO
024B AF
024C CDB004

BTRACK
OFFH
DKRWS10
20H,DKRWS10-$-1
DPRECAL
A

SELECT DRIVE AND CHECK READY STATUS
EXIT - NOT READY
GET CURRENT TRACK
FIRST ACCESS?
NO
HOME DRIVE
EXIT ON HOME ERROR
SET TRACK ZERO IN TABLE

SETRAK

DKRWS10.:
024F 3AC304
0252 A7
0253+DD7E03
0256+2801
0258 87

BFORMAT

DKRWS20.:

DPREAD

COMPARE WITH CURRENT TRACK (RESET CARRY)

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION
READ A SECTOR

FUNCTION: READS ONE SECTOR FROM DISK.
ENCOUNTERED.

RETRIES WHEN ERROR IS

ENTRY: SECTOR NUMBER AND DMA ADDRESS ARE IN PACKET
EXIT:
DPREAD:

A = FOC STATUS

Page 20
025F CDDB02

CALL

DPRWEX

(RETURNS TO CALLER OF DPREAD)

LXI

H,INI!

SET UP INI INSTR.

SHLD
LDX
DB
OUT
MVI
CALL
CALL
EI
IN
ANI
RET

INOROUT
A,TRACKN
; SET TRACK FOR SECTOR READ OR WRITE
ODDH,A*8+46H,TRACKN
QPTRKRG
WILL DIFFER FROM PHYS. TRACK IF ROBIN
SEND COMMAND TO FDC
E,QCREADS
DPRWSET
RDORWR
TRANSFER DATA
REENABLE
GET STATUS
QPCOMD
MASK ERRORS
QMREAD
RETURN WITH STATUS

;

DPREADX:
0262 21EDA2
DPREADZ.:
0265 224600
0268+DD7E03
026B D361
026D lE80
026F CD7904
0272 CD4000
0275 FB
0276 DB60
0278 E6BD
027A C9

DPWRITE

WRITE A SECTOR

FUNCTION: WRITES ONE SECTOR TO DISK.
ENCOUNTERED.

RETRIES WHEN ERROR IS

ENTRY: SECTOR NUMBER AND DMA ADDRESS ARE IN PACKET
EXIT.:

A = FDC STATUS

DPWRITE:
027B CDDB02

CALL

DPRWEX

0284+DD7E03
0287 D361

LXI
SHLD
LDX
DB
OUT

H,OUTI!
SET UP OUTI INSTR.
INOROUT
A,TRACKN
SET TRACK FOR SECTOR READ OR WRITE
ODDH,A*8+46H,TRACKN
QPTRKRG
WILL DIFFER FROM PHYS. TRACK IF ROBIN

0289 CDAD02
028C D5
028D lEAO
028F CD7904
0292 CD4000
CP/M MACRO ASSEM 2.0

CALL
PUSH
MVI
CALL
CALL
#025

0295 FB
0296 DB60
0298 E6FD
029A 47
029B OE03
029D CD4AOO
02AO CDAD02
02A3 Dl
02A4 BA

EI
IN
ANI
MOV
MVI
CALL
CALL
POP
CMP

(RETURNS TO CALLER OF DPWRITE)

;

DPWRTX:
027E 21EDA3

0281 224600

GSODRV
D

GET "NOT READY" STATUS OF OTHER DRIVE
SAVE FOR COMPARISON AFTER WRITE OF SECTOR
SEND THIS COMMAND TO FDC

E,QCWRTS
DPRWSET
RDORWR
, TRANSFER DATA
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION
QPCOMD
QMWRITE
B,A
C,3
UDELAY
GSODRV
D
D

Page 21
02A5 4 3EOO
02A7+2802
02A9 3E08
02AB BO
02AC C9

MVI
JRZ
DB
MVI
DPWRT3.: ORA
RET

A,O
DPWRT3
28H,DPWRT3-$-1
A,QMCRC
B

ASSUME DOOR OF OTHER DRIVE WAS NOT TOUCHED
IT WAS'NT
IT WAS - REPORT AS CRC ERROR
GET STATUS RESULT OF WRITE OPERATION
RETURN WITH STATUS

GET "NOT READY" STATUS OF OTHER DRIVE
;

GSODRV:
02AD 3AC204
02BO EE01
02B2 D340
02B4 CDC202
02B7 DB60
02B9 E680
02BB 57
02BC 3AC404
02BF D340
02C1 7A
02C2 C9

LDA
XRI
OUT
CALL
IN
ANI
MOV
LDA
OUT
MOV
DELAY7: RET

BCURDRV
1
QPSTAT
DELAY7
QPCOMD
QMNRDY
D,A
TCURDRV
QPSTAT
A,D

DPRDADR

READ ADDRESS

GET CURRENT DRIVE SELECTED
SWITCH TO OTHER DRIVE
SELECT OTHER DRIVE
DELAY 7 USECS
GET STATUS OF OTHER DRIVE
THIS BIT TELLS US IF DOOR WAS OPENED OR CLOSED
SAVE FOR COMPARISON AFTER WRITE OF SECTOR
CURRENT DRIVE WITH PRE COMP BIT SET IF NECESSARY
RES ELECT CURRENT DRIVE
RESTORE FOR COMPARISON AFTER WRITE OF SECTOR
PROVIDES - 7 USEC DELAY

FUNCTION: READS ADDRESS OF A DISK SECTOR
(USED TO DETERMINE TRACK NUMBER)
ENTRY.: N/A
EXIT: TRACK NUMBER IS IN SECTOR REGISTER OF FDC
(NO DATA IS TRANSFERRED)
;

DPRDADR:
02C3 CDDB02

CALL

DPRWEX

(RETURNS TO CALLER OF DPRDADR)

H,ININ
INOROUT
E,QCRDADR
DPRWSET
RDORWR

SET UP IN QPDATA INSTR.

;

DPRDADRX:
02C6 21DB63
LXI
SHLD
02C9 224600
MVI
02CC 1ECO
CALL
02CE CD7904.
CALL
02D1 CD4000
02D4 FB
EI
02D5 DB60
IN
02D7 E69D
ANI
02D9 37
STC
CP/M MACRO ASSEM 2.0
#026
02DA C9

RET

DPRWEX

SEND COMMAND TO FDC

TRANSFER DATA
REENABLE
QPCOMD
GET STATUS
QMRDADR
MASK ERRORS
; INHIBIT ADVANCED ERROR RECOVERY
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION
RETURN WITH STATUS

EXECUTES A READ OR WRITE OPERATION

Page 22
FUNCTION: EXECUTES A READ OR WRITE OPERATION AND PERFORMS
ERROR RECOVERY AS NECESSARY.
ENTRY: ADDRESS OF PHYSICAL I/O ROUTINE IS ON TOP OF STACK

EXIT:

A = FDC STATUS

DPRWEX:
POP
H
PUSH
H
CALL
DPRWE90
POP
H
RZ
ERROR RECOVERY PROCESSING
MOV
E,A
JRC
DPRWEI0
DB
38H,DPRWEI0-$-1
ANI
QMCRC+QMRNF
JRNZ
DPRWE20
DB
20H,DPRWE20-$-1

02DB El
02DC E5
02DD CD3403
02EO El
02El C8
02E2 5F
02E3+3804
02E5 E618
02E7+2014

GET I/O ROUTINE ADDRESS
SAVE FOR ERROR RECOVERY
EXECUTE THE ROUTINE
RECOVER I/O ROUTINE ADDRESS
EXIT IF NO ERRORS
SAVE ERROR CODES
JUST A FEW RETRIES IF CARRY SET
CRC ERROR OR RNF?
YES - PROCESS IT

REPEAT OPERATION UNTIL RETRY COUNT IS EXHAUSTED
;

DPRWEI0:
02E9 1604

MVI

D,QKDRETRY

INITIALIZE RETRY COUNTER

PUSH
MVI
OUT
PUSH
CALL
POP
POP
RZ
DCR
JRNZ
DB
MOV
ANA
RET

D
A,QCTERM
QPCOMD
H
DPRWE90
H
D

STASH RETRY COUNT AND ORIGINAL ERROR CODES

DPRWEI5:
02EB D5
02EC 3EDO
02EE D360
02FO E5
02Fl CD3403
02F4 El
02F5 Dl
02F6 C8
02F7 15
02F8+20Fl
02FA 7B
02FB A7
02FC C9

D
DPRWE15
20H,DPRWEI5-$-1
A,E
A

TERMINATE COMMAND
PRESERVE I/O ROUTINE ADDRESS
EXECUTE IT
GET BACK STUFF THAT WAS STASHED
EXIT IF SUCCESSFUL
ANY MORE RETRIES LEFT?
TRY AGAIN
GET FDC STATUS
SET TO NON-O TO INDICATE ERROR

REPEAT OPERATION, THEN PERFORM ADVANCED RECOVERY
;

DPRWE20:
DPRWEI0
; REPEAT OPERATION
CALL
; EXIT IF SUCCESSFULL
RZ
RESTORE DRIVE, SEEK AGAIN AND DO OPERATION ONE MORE
; SAVE I/O ROTINA ADDRESS, RETRY COUNT AND
PUSH
D
0301 D5
PUSH
H
; ORIGINAL ERROR STATUS
0302 E5
CALL
DPRECAL
; RESTORE
0303 CD3503
#027
Z80 INTERFCE AND PRIMITIVE ROUTINES - PRIVATE VERSION
CP/M MACRO ASSEM 2.0
02FD CDE902
0300 C8

0306+2027
0308 CD6003

JRNZ
DB
CALL

DPRWE80
20H,DPRWE80-$-1
DPSEEKI

HARD RESTORE ERROR
SEEK TO TRACK

Page 23
JRNZ
DB
POP
POP
CALL
RZ
LOX
DB
PUSH
PUSH
MVIX
DB
CALL
POP
STX
DB
PUSH
JRNZ
DB
CALL
JRNZ
DB
POP
POP
JR
DB

030B+2022
0300 E1
030E 01
030F CDE902
0312 CS
0313+005603
0316 E5
0317 05
031S+DD36034F
031C CD7303
031F 01
0320+007203
0323 05
0324+2009
0326 CD6003
0329+2004
032B 01
032C E1
032D+1SBA

DPRWESO
20H,DPRWESO-$-1

HARD SEEK ERROR

GET ALL THAT STUFF BACK

o
DPRWE10

AND DO SOME MORE RETRIES
SUCCESS
~ NOW WE TRY TO SNEAK UP ON IT FROM
D,TRACKN
ODDH,D*S+46H,TRACKN
H
THE OTHER SIDE: SEEK TO TRACK 79
o
AND THEN BACK TO THE TARGET TRACK.
QKMXTRK,TRACKN ~
TO DO THIS, WE MUST SVE TARGET TRACK NO.
ODDH,36H,TRACKN,QKMXTRK
DPSEEKX
AND SUBSTITUTE 79 IN PACKET
o
PUT BACK CORRECT TRACK INTO PACKET
D,TRACKN
ODDH,70H+D,TRACKN
o
REMEMBER: E HAS ORIGINAL ERROR STATUS
DPRWESO
OOPS: COLDN'T GET TO TRACK 79
20H,DPRWESO-$-1
, DPSEEK1
BACK TO DESIRED TRACK
DPRWESO
SEEK ERROR
20H,DPRWESO-$-1

DPRWE10
lSH,DPRWE10-$-1

FINAL ATTEMPT. RETURN TO CALLER.

RESTORE/SEEK ERROR EXIT
~

DPRWESO:
032F
0330
0331
0333

E1
E1
F601
C9

POP
POP
ORI
RET

H
H

FIXUP STACK

QMBUSY

MARK AS SEEK ERROR

INDIRECT CALL
I

DPRWE90:
peHL

0334 E9

DPRECAL

RESTORE DRIVE

FUNCTION - RETURNS THE HEAD TO TRACK ZERO
CHECKS FORMAT TO SEE IF VT-1S0 DISK IS IN DRIVE
ENTRY: N/A
EXIT.:
CP/M MACRO ASSEM 2.0

A = DISK CONTROLLER STATUS
ZERO FLAG IS SET IF RESTORE WAS SUCCESSFUL
#02S
ZSO INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

Page 24

DPRECAL:
0335 CD4603
0338 C8
0339 0605
033B 3E48
033D CD7104
0340+10F9
0342 CD4603
0345 C9

DPRECALX
; PERFORM RESTORE
CALL
RZ
; OK
; ERROR RECOVERY - STEP IN FIVE TIMES AND REPEAT
SET NR OF STEPS
MVI
B,5
DPRECAL1:
MVI
l>.,QCSTEPIN
STEP IN ONCE
CALL
DPCOMD
DPRECAL1
REPEAT
DJNZ
DB
10H,DPRECAL1-$-1
RESTORE AGAIN
DPRECALX
CALL
EXIT COME WHAT MAY
RET

DPRECALX - DO RESTORE OPERATION
0346 3E08
0348 CD7104
034B DB60
034D 4F
034E E604
0350+2004
0352 2F
0353 B7
0354 79
0355 C9
0356 79
0357 E691
0359 79
035A C9

DPRECALX:
MVI
CALL
IN
MOV
ANI
JRNZ
DB
CMA
ORA
MOV
RET
DPRECALX1:
MOV
ANI
MOV
RET

A,QCREST
DPCOMD
QPCOMD
C,A
QMTZERO
DPRECALX1
;
20H,DPRECALX1-$-1

DO RESTORE
GET FDC STATUS
SAVE STATUS
AT TRACK ZERO?
YES

A
A,C

SET NONZERO STATUS
SET FLAGS
GET STATUS BACK
EXIT - NOT AT TRACK ZERO

A,C
QMREST
A,C

GET STATUS BACK
MASK ERRORS
RETURN FULL STATUS
RETURN WITH STATUS

SEEK TO TRACK

DPSEEK

FUNCTION: SEEKS TO THE DESIRED TRACK. TESTS FOR ERRORS
AND RETRIES AS NECESSARY.
SETS PRECOMPENSATION BITS FOR
RAINBOW DISKETTE. PERFORMS SPECIAL SEEK FOR VT180 FORMAT
DISKETTE.
ENTRY: DESIRED TRACK NUMBER IS IN PACKET
POINTER TO PACKET IS IN IX.
EXIT: A = FDC STATUS
ZERO FLAG IS SET IF SEEK WAS SUCCESSFUL
;

DPSEEK:
035B 3ACS04
03SE D361

LDA
OUT
DPSEEKl:

BTRACK
QPTRKRG

PUT CURRENT TRACK NO INTO REG

Page 25
0360 3AC304
CP/M MACRO ASSEM 2.0
0363 A7
0364 C28C03
0367 CD7303
036A C8

LDA
#029

BFORMAT
; GET CURRENT FORMAT
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

ANA
A
IS IT RAINBOW?
DPSEEKV
JNZ
NO - DO VT-l80 SEEK
CALL
DPSEEKX
DO SEEK OPERATION
RZ
; OK
ERROR RECOVERY - RESTORE AND SEEK AGAIN
CALL
DPRECAL
RESTORE DRIVE
RNZ
HARD RESTORE ERROR
CALL
DPSEEKX
TRY SEEK AGAIN

036B CD3503
036E CO
036F CD7303
0372 C9

RET

PERFORM SEEK OPERATION

DPSEEKX
;

DPSEEKX:
0373+DD7E03
0376 FE50
0378+300E
037A D363
037C E3
037D E3
037E 3ElC
0380 CD7104
0383 DB60
0385 E699
0387 C9

LDX
DB
CPI
JRNC
DB
OUT
XTHL
XTHL
MVI
CALL
MVI
CALL
IN
ANI
RET

A,TRACKN
; GET TRACK NR FROM PACKET
ODDH,A*8+46H,TRACKN
QKMXTRK+l
CATCH ANY BAD TRACK REQUESTS SO AS NOT
DPSEEKE
TO HANG IN AN IMPOSSIBLE SEEK
30H,DPSEEKE-$-l
QPDATA
SEND IT TO FDC
DELAY A BIT BEFORE COMMAND REG WRITE

MVI
ANA
RET

A,QMBUSY

A,QCSEEK
DPCOMD
C,40
UDELAY
QPCOMD
QMSEEK

EXECUTE SEEK
DELAY FOR HEAD SETTLING
GET STATUS
MASK ERRORS
RETURN WITH STATUS

DPSEEKE.:
0388 3EOl
038A A7
038B C9

DPSEEKV

ILLEGAL TRACK REQUESTED. INDICATE SEEK
ERROR WITH NO OTHER STATUS

VT-l80 FORMAT SEEK ROUTINE

FUNCTION: PERFORMS SEEK ON A VT-l80 FORMAT (40 TRACK)
DISKETTE. DOES A SEEK WITH NO VERIFICATION TO THE
SPECIFIED VT-l80 TRACK MULTIPLIED BY TWO, THEN READS
AN ADDRESS FROM THE DISKETTE TO VERIFY THAT THE
SEEK WAS SUCCESSFUL.
ENTRY: IX = PACKET ADDRESS
EXIT.:

A = STATUS

;

DPSEEKV:
038C CD9D03
038F CD9D03

CALL
CALL

DPSEEKVX
DPSEEKVX

PERFORM SEEK
SEEK ERROR - TRY AGAIN

Page 26

SEEK ERROR AGAIN - HOME DISK AND RETRY
0392 CD3503
CP/M MACRO ASSEM 2.0

CALL

0395 CO
0396 CD9D03
0399 CD9D03
039C C9

RNZ
CALL
CALL
RET

11030

DPRECAL
i HOME DISK
ZSO INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION
EXIT ON RECAL ERROR
TRY SEEK AGAIN
AND AGAIN

DPSEEKVX
DPSEEKVX

DPSEEKVX - PERFORM VT-1S0 SEEK OPERATION

039D+DD7E03
03AO S7
03A1 FE50
03A3+30E3
03A5 CDBB03
03AS CDC302
03AB 4F
03AC A7
03AD CO
03AE DB62
03BO+DDBE03
03B3 79
03B4 CO
03B5 E1
03B6 C9

DPSEEKVX:
LDX
DB
ADD
CPI
JRNC
DB
CALL
CALL
MOV
ANA
RNZ
IN
CMPX
DB
MOV
RNZ
POP
RET
DPSEEKN

K,TRACKN
i GET DESIRED TRACK
ODDH,A*S+46H,TRACKN
A
MULTIPLY TRACK BY 2
QKMXTRK+1
CATCH ANY BAD TRACK REQUESTS SO AS NOT
DPSEEKE
TO HANG IN AN IMPOSSIBLE SEEK
30H,DPSEEKE-$-1
DPSEEKN
SEEK WITH NO VERIFY
DPRDADR
READ ADDRESS
C,A
SAVE STATUS
A
READ ERROR?
YES - EXIT
QPSECRG
GET TRACK NUMBER
TRACKN
i COMPARE WITH DESIRED TRACK
ODDH,OBEH,TRACKN
A,C
GET STATUS BACK
ERROR - NOT AT REQUESTED TRACK
H
NO ERROR - EMPTY STK FOR 'GOOD' RET
SEEK WITH NO VERIFY

FUNCTION: SEEKS A SPECIFIED TRACK BUT DOES NO VERIFY THE
SUCCESS OF THE SEEK. USED FOR STARTING MOTOR AND
THE VT-1S0 SEEK.
ENTRY: A = DESIRED TRACK NUMBER
EXIT.: N/A
i

DPSEKHO.:
03B7 1610

MVI
JR
DB

03B9+1S02

D,QCSEKHO
iSEEK WITH NO HEAD LOAD
DPSEKN3
18H,DPSEKN3-$-1

DPSEEKN:
03BB 161S
03BD D363
03BF 7A
03CO E3
03C1 E3

MVI
DPSEKN3: OUT
MOV
XTHL
XTHL

D,QCSEEKN
QPDATA
A,D

iSEEK WITH HEAD LOAD
i SEND TRACK NR TO FDC

iSEEK COMMAND

Page 27
03C2 CD7104
03C5 C9

CALL
RET

; DPSELDR
CP/M MACRO ASSEM 2.0
#031

DPCOMD

DO SEEK

SELECT DRIVE AND CHECK IF IT'S READY
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

ENTRY: DRIVE NUMBER IS IN PACKET
EXIT: DRIVE NUMBER IN E
IF DRIVE WAS NOT READY, CARRY FLAG IS SET
AND 'NOT READY' STATUS IS STORED IN PACKET
DPSELDR:
03C6 CDA704
03C9 5F

CALL
MOV
LDX
DB
CPI
MVI
JRC
DB
MVI

03CA+DD7E03
03CD FE3D
03CF 3EOO
03D1+3802
03D3 3E40

GETDRV
E,A

; GET DRIVE NUMBER

; NOW SEE IF WRITE PRECOMP BITS WILL BE
ODDH,A*8+46H,TRACKN
QKPCTRK
NEEDED: I.E., WHETHER WE ARE TO BE
~,O
BEYOND TRACK 60
DPSEL1
38H,DPSEL1-$-1
~,TRACKN

~,QKPCBIT

DPSEL1.:
03D5 B3
03D6 32C404
03D9 D340

ORA
STA
OUT

TCURDRV
QPSTAT

DRIVE SELECTED WITH PRE COMP
SELECT DRIVE

IN
ANI
JRZ
DB
ANI
JRNZ
DB
IN
CALL
IN
ANI
JRNZ
DB
JR
DB

QPCOMD
QMBUSY+QMNRDY
DPSEL3
28H,DPSEL3-$-1
QMBUSY
DPSEL2
20H,DPSEL2-$-1
QPTRKRG
DPSEEKN
QPCOMD
QMNRDY
DPSELS2
20H,DPSELS2-$-1
DPSEL3C
18H,DPSEL3C-$-1

GET FDC STATUS
READY AND NOT BUSY?
YES

BCURDRV

GET CURRENT DRIVE NR
SAME AS DESIRED DRIVE?
YES - GO SEE IF FIRST ACCESS AFTER RESET

DPSEL2.:
03D8 DB60
03DD E681
03DF+2811
03E1 E601
03E3+20F6
03E5 DB61
03E7 CDBB03
03EA DB60
03EC E680
03EE+206B
03FO+182A

BUSY?
YES - WAIT IT OUT
NO: NOT READY. DUMMY SEEK TO CURRENT TRACK
TO READY DRIVE IF POSSIBLE
GET FDC STATUS
STILL NOT READY?
YES - RETURN NOT READY STATUS
IGNORE CHECK FOR ISSUANCE OF 'HLT' TO 1793

DPSEL3.:
03F2 3AC204
03F5 AB
03F6+2838
03F8+DD7EOO

LDA
XRA
JRZ
DB
LDX
DB

DPSEL4
28H,DPSEL4-$-1

GET FUNCTION CODE
ODDH,A*8+46H,FNCCOD

~,FNCCOD

Page 28
03FB FE14

QKWTCOM
DPSEL3C
20H,DPSEL3C-$-1

WRITE TO BE DONE?
NO

03FD+201D

CPI
JRNZ
DB

03FF 3AC204
0402 E602
0404 57
0405 7B
0406 E602
0408 BA
CP/M MACRO ASSEM 2.0

LDA
ANI
MOV
MOV
ANI
CMP
#032

BCURDRV

A:,E

YES - THEN GET CURRENT DRIVE
CHECK FOR SELECT OF A OR B
TO C OR Di C OR D TO A OR B
NEW DRIVE TO SELECT

0409+2007

JRNZ
DB

DPSEL3A
20H,DPSEL3A-$-1

D,A
2
D

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

A TO B, B TO A:, C TO D, D TO C
040B OE3C
040D CD4AOO

MVI
CALL
JR
DB

0410+180A

C,60
UDELAY
DPSEL3C
18H,DPSEL3C-$-1

DELAY FOR 30 MSEC TO ALLOW HEADS TO
SETTLE DURING HEAD LOAD

THE SELECT FROM A OR B TO C OR Di C OR D TO A OR B REQUIRES
THE ISSUANCE OF A SEEK WITH QMHLT = a, THEN QMHLT = r, WITH NO VERIFY
THIS INHIBITS THE "HLT" INPUT TO THE 1793 FOR - 500 MSECS
WHICH ALLOWS THE MOTOR TO GET UP TO SPEED.

DPSEL3A:
0412
0414
0417
0419

DB61
CDB703
DB61
CDBB03

041C 7B
041D 32C204
0420 CD6604
0423 32C504

0426 21F43C
0429 1600
042B 19
042C 7E
042D 32C304
0430 3AC504
0433 3C
0434 CO
0435 DB61
0437 CDBB03

IN
CALL
IN
CALL

QPTRKRG
DPSEKHO
QPTRKRG
DPSEEKN

A,E
DPSEL3C: MOV
STA
BCURDRV
CALL
GETRAK
STA
BTRACK
C,140
MVI
CALL
UDELAY
SET FORMAT AND TRACK REGISTER
H,TFORMAT
LXI
MVI
D,O
DAD
D
A,M
MOV
BFORMAT
STA
DPSEL4,:
LDA
BTRACK
INR
A
RNZ
DPSELS:
QPTRKRG
IN
DPSEEKN
CALL

iCURRENT TRACK

iSEEK WITH NO HEAD LOAD
iSEEK WITH HEAD LOAD
SET NEW DRIVE AS CURRENT
GET CURR TRACK FROM TABLE
AND STORE IT
DELAY FOR HEAD SETTLING
BASE OF FORMAT TABLE
OFFSET INTO TABLE
GET FORMAT INFO
STORE IN CURRENT FORMAT
CURR TRACK IS FF ON FIRST ACCESS AFTER DISK
SYSTEM RESET. IF NOT, CONSIDER DRIVE READY.
FORCE TYPE 1 STATUS
ON FIRST ACCESS TO A DRIVE AFTER A DISK
SYSTEM RESET, MAKE SURE DISK IS IN
DRIVE RIGHT SIDE UP BY LOOKING FOR A

Page 29
CHANGE IN THE INDEX PULSE STATUS. ON A
TIMEOUT, DRIVE IS CONSIDERED NOT READY.

043A 21409C
043D DB60
043F DB60
0441 E602
0443 47
0444 CD4C04
0447 CD4C04
044A A7
044B C9

LXI

H,QKDRCNT

IN
IN
ANI
MOV
CALL
CALL
ANA
RET

QPCOMD
QPCOMD
QMINDEX
B,A
DPSELS
DPSELS

DPSEL6.:

DPSELS:
CP/M MACRO ASSEM 2.0
1033
044C 2B
044D 7C
044E B5

DCX
MOV
ORA
JRZ
DB
IN
ANI
CMP
MOV
RNZ
JR
DB

044F+2809
0451 DB60
0453 E602
0455 B8
0456 47
0457 CO
0458+l8F2
045A C1

READ STATUS ONCE TO GET RID OF SPURIOUS
INDEX STATUS
SAVE STARTING INDEX BIT STATE

WAIT FOR 1 CHANGE IN INDEX
WAIT FOR 2ND CHANGE
CLEAR CARRY
A
DISK IS OK
; SUBROUTINE: CHECKS FOR CHANGE IN INDEX BIT
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION
H

A,H
L

DPSELS1
28H,DPSELS1-$-1
QPCOMD
QMINDEX

TIMEOUT: DISK NOT READY

B,A

SAVE NEW INDEX STATUS
AHA-- CHANGE HAS OCCURRED.

DPSELS
18H,DPSELS-$-1

DPSELS1:
POP

IN
CALL
MVIX
DB
STC
RET

QPTRKRG
; GET CURRENT TRACK #
DPSEKHO
; UNLOAD HEADS
QMNRDY,STATUS
; SET NOT READY STATUS
ODDH,36H,STATUS,QMNRDY
; CARRY MEANS NOT READY

DPSELS2.:
045B DB61
045D CDB703
0460+DD360180
0464 37
0465 C9

GETRAK -

GET CURRENT TRACK NUMBER FROM TRACK TABLE

ENTRY:

A = DRIVE NUMBER

EXIT:

A = TRACK NUMBER
HL= TRACK TABLE PINTER FOR DRIVE

GETRAK:
0466 E602
0468 4F
0469 0600
0468 21F03C
046E 09
046F 7E
0470 C9

ANI
MOV
MVI
LXI
DAD
MOV
RET

C,A
B,O
H,TTRACK
B

A,M

** FOR RX-50 COUPLED DRIVES
BASE OF TRACK TABLE
OFFSET INTO TRACK TABLE
GET TRACK FOR THIS DRIVE

Page 30

DPCOMD

EXECUTE A TYPE 1 COMMAND

WAITS UNTIL COMMAND IS COMPLETED BEFORE RETURNING
ENTRY: COMMAND CODE IS IN 'A' REG.
;

DPCOMD:
0471 0360

OUT

QPCOMD

SEND COMMAND TO FDC

QPSTAT

GET GENERAL STATUS
SHIFT INT. BIT TO SIGN
EXIT ON INTERRUPT
LOOP UNTIL DONE

DPCOMDl:
0473 DB40
0475 87
0476 F8
0477+18FA
CP/M MACRO ASSEM 2.0

IN
ADD
RM
JR
DB
fj:034

DPCOMDI
18H,DPCOMDl-$-1
Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

DPRWSET - SET UP FDC AND SEND TYPE 2 OR 3 (READ/WRITE) COMMAND
FUNCTION: SENDS SECTOR TO FDC. ADDS HEAD LOAD BIT TO COMMAND
IF HEAD IS NOT ALREADY LOADED. SETS UP REGISTERS FOR INI AND
OUTI INSTRUCTIONS. SENDS COMMAND TO FDC.
ENTRY: FDC COMMAND IS IN "E" REG.

SECTOR IS IN PACKET.

EXIT.: N/A
DPRWSET.:
0479 DB60
047B E601
047D+20FA
047F E3
0480 3EDO
0482 0360
0484 E3
0485 OE63
0487+DD6E04
048A+DD6605
048D+DD7E02
0490 E61F
0492 0362
0494 E3
0495 E3
0496 E3
0497 E3
0498 E3
0499 E3
049A F3

IN
ANI
JRNZ
DB
XTHL
MVI
OUT
XTHL
MVI
LOX
DB
LOX
DB
LOX
DB
ANI
OUT
XTHL
XTHL
XTHL
XTHL
XTHL
XTHL
01

QPCOMD
QMBUSY
DPRWSET
20H,DPRWSET-$-1

GET CONTROLLER STATUS
BUSY?
YES - WAIT UNTIL NOT BUSY

NEED SOME DELAY. WE'LL UNDO IT SOON
SEND TERMINATE COMMAND
TO FORCE TYPE 1 STATUS
DELAY - MATCHES THE ONE ABOVE
C,QPDATA
SET UP DATA PORT NUMBER
~,DMALOW
; SET UP DMA ADDRESS
ODDH,L*8+46H,DMALOW
H,DMAHI
ODDH,H*8+46H,DMAHI
Jl1,SECTN
; GET SECTOR NUMBER
ODDH,A*8+46H,SECTN
SECNUM
ISOLATE SECTOR NUMBER
QPSECRG
SEND IT TO FDC
; DELAY BEFORE STATUS READ

Jl1,QCTERM
QPCOMD

DISABLE FOR DISK I/O

Page 31
049B DB60
049D E620
049F 7B

IN
ANI
MOV
JRNZ
DB
ORI
DPRWSET4.:
OUT
RET

04AO+2002
04A2 F604
04A4 D360
04A6 C9

GETDRV

QPCOMD
QMHLT
A,E
DPRWSET4
20H,DPRWSET4-$-1
QMEFLG
QPCOMD

GET FDC STATUS
HEAD ALREADY LOADED?
GET COMMAND
SKIP IF HEAD ALREADY LOADED
ADD HEAD LOAD FLAG
SEND TO CONTROLLER

GET DRIVE NUMBER FROM PACKET

ENTRY: IX = PACKET ADDRESS
I

EXIT: A = DRIVE NUMBER

GETDRV:
CP/M MACRO ASSEM 2.0

LDX
'035

A,DRIVEN
~ GET DRIVE NUMBER
zao INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

04A7+DD7E02
04AA E660
04AC 07
04AD 07
04AE 07
04AF C9

DB
ANI
RLC
RLC
RLC
RET

ODDH,A*8+46H,DRIVEN
DRVNUM
~ ISOLATE IT
~ MOVE INTO BITS 0-2

STORE TRACK NUMBER IN TRACK TABLE

SETRAK

ENTRY: A = TRACK NUMBER
IX = PACKET ADDRESS
EXIT: TTRACK CONTAINS NEW TRACK VALUE
~

SETRAK:
04BO 32C504
04B3 47
04B4 CDA704
04B7 E602
04B9 SF
04BA 1600
04BC 21F03C
04BF 19
04CO 70
04C1 C9

STA
MOV
CALL
ANI
MOV
MVI
LXI
DAD
MOV
RET

CP/M MACRO ASSEM 2.0

PAGE
1036

BTRACK
B,A
GETDRV
2

E,A
0,0
H,TTRACK
D

M,B

CURRENT TRACK FOR CURRENT DRIVE
SAVE TRACK
GET DRIVE NUMBER
** FOR RX-50 COUPLING
MAKE 16-BIT DRIVE NR
BASE OF TRACK TABLE
OFFSET INTO TABLE
STORE TRACK

zao INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

Page 32
; DATA AREA
04C2
04C3
04C4
04C5

FF
00
FF
FF

OFFH

BCURDRV DB
BFORMAT DB
TCURDRV DB
BTRACK DB

OFFH
OFFH

; CURRENT DRIVE NUMBER
; FORMAT FOR CURRENT DRIVE (NONZERO = VT-180)
;CURRENT DRIVE # WITH PRE COMP SET IF NECESSARY
; CURRENT TRACK OF SELECTED DRIVE ("TRUE" TRACK)

;TTRACK DB
OFFH,OFFH,OFFH,OFFH
; TRACK TABLE
;TFORMAT
DB
0,0,0,0
; FORMAT TABLE (NONZERO = VT180)
;** NOTE: TTRACK AND TFORMAT ARE IN THE DATA BLOCK. THEY ARE DEFINED
AT THE END OF THIS MODULE (Z80CODE.ASMr, NEXT TO THE PACKET
POINTER DEFINITIONS (Z80PKT AND I88PKT)

CP/M MACRO ASSEM 2.0

PAGE
#037

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

*********************************************************
NAME.: ZSTART
FUNCTION: THIS ROUTINE WILL SET UP THE STACK AND ALLOW THE Z80
TO EXECUTE AN APPLICATION.
ENTRY: IX

= PACKET ADDRESS

EXIT:

ZSTART.:
DISABLE INTERRUPTS WHILE
SWAPPING STACKS

04C6 F3
04C7 313005

DI
LXI

SP,STACK

04CA 210000

LXI

H,O

04CD E5

PUSH

04CE 3EFF
04DO 323105

MVI
STA

A,TRUE
DONEFL

SET DONE FLAG

04D6+DD6603

LDX
DB
LDX
DB

r;,STADRL
ODDH,L*8+46H,STADRL
H,STADRH
ODDH,H*8+46H,STADRH

GET START ADDRESS FROM PACKET

04D3+DD6E02

0409 FB

ENABLE INTERRUPTS

04DA E9

PCHL
PAGE
#038

JUMP TO START ADDRESS

CP/M MACRO ASSEM 2.0

PUSH 00 ONTO STACK FOR CP/M-80
TRANSIENTS THAT END WITH 'RET'
SO IT WILL BE SAME AS ENDING
WITH 'JUMP 0'

Z80 INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

Page 33
*****************************************************************
NAMR: ZMOVE
FUNCTION: THIS ROUTINE WILL MOVE A BLOCK OF DATA FROM ANYWHERE IN
ZSO MEMORY TO ANYWHERE ELSE IN ZSO MEMORY.
ENTRY: IX = PACKET ADDRESS
EXIT: IX = PACKET ADDRESS
;

ZMOVE.:
04DB+DD6E02
04DE+DD6603
04E1+DD5E04
04E4+DD5605
(l~E7+DD4E06

04EA+DD4607
04ED+EDBO
04EF C9
CP/M MACRO ASSEM 2.0

LDX
DB
LDX
DB

r;,SCADRL
ODDH,L*S+46H,SCADRL
H,SCADRH
ODDH,H*S+46H,SCADRH

GET SOURCE ADDRESS INTO HL

LDX
DB
LDX
DB

E,DSADRL
ODDH,E*S+46H,DSADRL
D,DSADRH
ODDH,D*S+46H,DSADRH

GET DESTINATION ADDRESS INTO DE

LDX
DB
LDX
DB

C,BYCNTL
ODDH,C*S+46H,BYCNTL
B,BYCNTH
ODDH,B*S+46H,BYCNTH

GET BYTE COUNT INTO BC

LDIR
DB
RET
PAGE
#039

MOVE THE BLOCK OF DATA
OEDH,OBOH
AND RETURN
ZSO INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

*****************************************************************
*****************************************************************
0530

STACK

EQU

$+40H

SERVICE ROUTINE STACK POINTER

0531

DONEFL

EQU

STACK+1

DONE FLAG

3CFC

ZSOPKT

EQU

INTFPTR

PACKET POINTER FOR PACKET FROM ZSO

3CFE

ISSPKT

EQU

INTFPTR+2

PACKET POINTER FOR PACKET FROM SOSS

3CFO
3CF4

FOLLOWING TWO DEFINITIONS ARE FOR THE DISK I/O ROUTINES.
THE TABLES ARE LOCATED IN THE DATA BLOCK, INITIALIZED BY THE BIOS
COLD BOOT ROUTINE AND MOVED BY ZSOCCP WHEN A CONFIGURATION CHANGE OCCURS.
TTRACK EQU
INTFPTR-12
; TRACK TABLE
TFORMAT EQU
INTFPTR-S
; FORMAT TABLE

0532

ORG

DONEFL+1

0532
CP/M MACRO ASSEM 2.0

END
#040

ZSO INTERFACE AND PRIMITIVE ROUTINES - PRIVATE VERSION

Page 34

0000 BC
0006 BYCNTL
0198 DKCHECK2
01EF DKRW40
023C DKRWSET
0531 DONEFL
025F DPREAD
0346 DPRECALX
032F DPRWE80
035B DPSEEK
0390 DPSEEKVX
03DB DPSEL2
0435 DPSEL5
044C DPSELS
0060 DRVNUM
0000 FALSE
0466 GETRAK
0000 188INT
0004 INTBIT
0004 IX
0237 NEXTSC15
0020 OTHFNC
FFFF PRIVATE
0018 QCSEEKN
OOF'O QCWRTRK
OOOA QKMXSECT
0013 QKRDCOM
0020 QMDELDM
0020 QMHLT
0018 QMON
OOBD QMREAD
0010 QMSKERR
0004 QMVERF
0063 QPDATA
0018 RST3
OOlF SECNUM
0530 STACK
04C4 TCURDRV
004A UDELAY
04DB ZMOVE

04C2 BCURDRV
0002 DE
01BB DKCHECK3
01FC DKRW90
0014 DKWRIT
0471 DPCOMD
0262 DPREADX
0356 DPRECALXl
0334 DPRWE90
0360 DPSEEKI
0373 DPSEEKX
03F2 DPSEL3
0430 DPSEL6
027B DPWRITE
0005 DSADRH
0000 FNCCOD
02AD GSODRV
3CFE 188PKT
3CFC INTFPTR
0004 IY
0238 NEXTSC20
A3ED OUTII
OOCO QCRDADR
0010 QCSEKHO
OOAD QCWRTS
004F QKMXTRK
0002 QKROBIN
0003 QMDRNR
0002 QMINDEX
0010 QMONI
0091 QMREST
0008 QMSSEL
0040 QMWPROT
0062 QPSECRG
0020 RST4
0200 SECSIZ
0003 STADRH
3CF4 TFORMAT
0040 USRFNC
04C6 ZSTART

04C3 BFORMAT
02C2 DELAY7
01CF DKREAD
0201 DKRW95
01CF DKWRITE
0473 DPCOMDI
0265 DPREADZ
02E9 DPRWEI0
02DB DPRWEX
0388 DPSEEKE
03B7 DPSEKHO
0412 DPSEL3A
03C6 DPSELDR
02AB DPWRT3
0004 DSADRL
DOFF FNCNG
0171 HIFNC
A2ED INII
0020 INTSTA
00C3 JUMP
0207 NEXTSEC
0112 PKTPRO
0080 QCREADS
0048 QCSTEPIN
0015 QKCMCOM
0040 QKPCBIT
0014 QKWTCOM
0002 QMDRQ
0004 QMLDATA
OOCO QMPRECMP
0010 QMRNF
0004 QMTG42
0020 QMWRFLT
0040 QPSTAT
0030 RST6
0002 SECTN
0002 STADRL
0003 TRACKN
0021 Z80BGN

04C5 BTRACK
0186 DKCHECK
OlEO DKRW20
024F DKRWSI0
0005 DMAHI
02C3 DPRDADR
0335 DPRECAL
02EB DPRWE15
0479 DPRWSET
03BB DPSEEKN
03BD DPSEKN3
041C DPSEL3C
045A DPSELSI
027E DPWRTX
0010 DSKFNC
OOFO FRANGE
0179 HIFXIT
63DB ININ
0100 INTSTR
0007 LEG FUN
0006 NSECT
015E PKTRI
0008 QCREST
0068 QCSTEPOT
9C40 QKDRCNT
0030 QKPCTRK
0001 QMBUSY
0004 QMEFLG
0080 QMNRDY
0020 QMPSIDE
0002 QMSCOM
0004 QMTZERO
OOFD QMWRITE
0061 QPTRKRG
0003 SCADRH
04BO SETRAK
0100 START
FFFF TRUE
0022 Z80MVE

0007 BYCNTH
0195 DKCHECKI
01EC DKRW30
0259 DKRWS20
0004 DMALOW
02C6 DPRDADRX
033B DPRECALI
02FD DPRWE20
04A4 DPRWSET4
038C DPSEEKV
0305 DPSELI
0430 DPSEL4
045B DPSELS2
0002 DRIVEN
0140 ERROR
04A7 GETDRV
0004 HL
0046 INOROUT
0184 IPKT
022C NEXTSCI0
OOOA NUMSEC
0152 PKTRET
ODIC QCSEEK
DODO QCTERM
0004 QKDRETRY
0000 QKRATE
0008 QMCRC
0008 QMHLD
0008 QMONO
0090 QMRDADR
0099 QMSEEK
0010 QMUPDT
b060 QPCOMD
0040 RDORWR
0002 SCADRL
0000 SHARE
0001 STATUS
3CFO TTRACK
3CFC Z80PKT

CP/M ASM86 1.1

SOURCE: DRIPATCH.A86 DRI PATCHES FOR CP/M 86
TITLE
'DRI PATCHES FOR CP/M 86'

***************************************************************
CP/M 86 V1.1, PATCH 01, BDOS, 3/3/82
21E6
21F1
21ED
OOOA

21E6 AA
21E7 OACO
21E9 7402
21F1 IF
21F2 A20AOO

, ***************************************************************

PATCH 1
PATCH-2
F472
CCP BUFF LEN
CSEG
ORG
FUNC472 :
ORG
STOSB
OR
21ED
JZ
ORG
POP
MOV

EQU
EQU
EQU
EQU
$
F472

21E6H
21F1H
21EDH
BYTE PTR .OAH

PATCH 1
AL,AL
FUNC472
PATCH 2
DS
CCP BUFF_LEN,AL

; LOCATION OF FIRST PATCH
; LOCATION OF SECOND PATCH

PAGE

CP/M ASM86 1.1

SOURCE: DRIPATCH.A86 DRI PATCHES FOR CP/M 86
EJECT

***************************************************************
CP/M 86 Vl.l, PATCR 06, BDOS, 4/23/82
~

24A2
1896

***************************************************************

DMABASE
PATCH AREA
CSEG
ORG

1896 8E06A224

MOV

EQU
EQU

WORD PTR 24A2H
1896H

PATCH AREA
ES, • DMABASE

PAGE

CP/M ASM86 1.1

SOURCE: ORIPATCH.A86 ORI PATCHES FOR CP/M 86
EJECT
***************************************************************
CP/M 86 V1.1, PATCH 07, BOOS, 4/21/82

OB77
OB77 33CO

***************************************************************
PATCH AREA2
EQU
OB77H
CSEG
ORG
PATCH AREA2
AX,AXXOR

PAGE

CP/M ASM86 1.1

SOURCE: DRIPATCH.A86 DRI PATCHES FOR CP/M 86
EJECT

***************************************************************
CP/M 86 V1.1, PATCH 08, BDOS, 5/12/82

***************************************************************
OE23 06
OE24 90
OE25 8916DC22
OF1A E903FB
OF1D 90
OA20 A39624
OA23 07
OA24 C3

CSEG
ORG
PUSH
NOP
MOV
ORG
OA2G
JMP
NOP
ORG
PATCH AREA3 :
MOV
POP
RET

OE23H
ES
.22DCH,DX
OF1AH
PATCH AREA3
OA20H
.2496H,AX
ES

PAGE

CP/M ASM86 1.1

SOURCE: DRIPATCH.A86 DRI PATCHES FOR CP/M 86
EJECT

***************************************************************

CP/M 86 V1.1, PATCH 10, BOOS, 5/20/82

***************************************************************
CSEG
ORG

OA50H

JB
MOV
RET

OK
WORD PTR .249BH,OFFFFH

JMP
ORG
JMP
ORG

LABEL 1
OB94H
LABEL 0
OB97H

LABEL 0:
OA50 7207
OA59
OA52 C7069B24FFFF
OA58 C3
OA59 E93B01

OBQ7

OB94 E9B9FE

OA50

OK:

LABEL 1 :

PAGE

CP/M ASM86 1.1

SOURCE: DRIPATCH.A86 DRI PATCHES FOR CP/M 86
EJECT

PAGE

***************************************************************
CP/M 86 VI.I, PATCH 11, BDOS, 5/20/82

***************************************************************
LOADERR LOC
LOAD59 RET
PAT OFFSET
USER PARM SEG
ARETPARAM SEG
CSEG
ORG
PATCH:
MOV
OA30 AI2323
MOV
OA33 A39D24
OA36 C7069B24FFFF
MOV
JMP
OA3C E9C704
OF06
ORG
LOADRET:
ORG
OFIE E90FFB
OA30
JMP
OFIE
OF06
OA30
2323
249B
249D

EQU
EQU
EQU
EQU
EQU
EQU

OFIEH
OF06H
OA30H
02323H
0249BH
0249DH

PAT OFFSET
AX,.USER PARM SEG
.PARAM SEG,AXWORD PTR .ARET,OFFFFH
LOAD RET
LOAD59 RET
LOADERR LOC
PATCH

AD DR OF LOAD ERROR ROUTINE
EXIT FROM LOAD ERROR ROUTINE
PATCH AREA
USER'S DATA SEGMENT
RETURN VALUE
USER'S DATA SEGMENT AT ENTRY

CP/M ASM86 1.1

SOURCE: DRIPATCH.A86 DRI PATCHES FOR CP/M 86
EJECT

***************************************************************

CP/M 86 V1.1, PATCH 13, BOOS, 6/08/82
OAOO
OOEO

***************************************************************

PATCH AREA4
BOOS
CSEG
ORG
START PATCH:
OAOO 2EC606982401
MOV
OA06 50
PUSH
OA07 2E8A262723
MOV
OAOC 2EA01323
MOV
OA10 50
PUSH
OAll CDEO
INT
OA13 58
POP
OA14 2EA21323
MOV
OA18 2E88262723
MOV
POP
OA1D 58
OA1E C3
RET
OA1F 90
NOP
ORG
OC42 E9BBFD
OAOO
JMP
OC45 90
NOP
NOP
OC46 90
OC47 90
NOP
OC48 90
NOP
OC49 90
NOP
NOP
OC4A 90

EQU
EQU

OMOH
OOEOH

PATCH AREA4
CS:BYTE PTR .2498H,01
AX
AH,CS:.2327H
AL,CS:.2313H
AX
BOOS
AX
CS: • 2313H ,AL
CS:.2327H,AH
AX
OC42H
START PATCH

PAGE

CP/M ASM86 1.1

SOURCE: DRIPATCH.A86 DRI PATCHES FOR CP/M 86
EJECT
END
END OF ASSEMBLY. NUMBER OF ERRORS:
O. USE FACTOR: 2%

PAGE

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86
Customized Basic I/O System
title
'Customized Basic I/O System'

PAGE

,.************************************************
*
,.* This Customized BIOS adapts CP/M-86 to
*
,.* the following hardware configuration
*

,.*
;*

,.*
,.*

,.*
,.*
,.*
,.*
,.*
,.*
,.*
,.*
,.*
,.*
,.*
·,.**
,
,.*

,· *

,.*
,· *

., *

,.*
,.*
·, *
,· *
·, *
0001
0000
0006
FFFF
0000
0000
OOOA
0043
0041
0042
0040
0013
0011

Processor: PC-lOO Rainbow
Brand:
DEC
Controller:
System: CP/M 86/80

*
*

Programmer:rdk/CPL
R.evisions :

*
*

Release 1. 0.1

8/25/82 BIOS modified to operate with
PC-lOO Rainbow hardware, and to
operate with Z80 second CPU.
ROM date: 8/17/82
9/28/82 Mod number 2 (release 1.0.2)
Firmware vector initializing
added.
Interrupts initialized
for printer and com port •
XON/XOFF support included for
input routines as well as
output. Ability to run submit
files with scratch other than
A added.
ROM date: 9/20/82

*
*

*
*
*
*

*
*

*
*
*

*
*

,.*
*
,.*
*
,.************************************************

version number
rev number
mod-number
true
false
cr
If
Ists
Idata
csts
cdata
ctrl s
ctrl-q

equ
equ
equ
equ -1
equ not
equ Odh
equ Oah
equ
equ
egu
egu
equ
equ

1
0
6
true
;carriage return
; line feed
43h
41h
42h
40h
13h
llh

,.*********************************************

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86

Customized Basic I/O System

Loader bios is true if assembling the

~* LOADER-BIOS, otherwise BIOS is for the
~*

CPM.SYS file.

*
*
*
*

~*********************************************

0000
OOEO

loader bios
bdos int
~DEBLOCK

IF
2500
0000
OB06
24B7
22E6

equ false
equ 224 ~reserved BDOS interrupt
EQU TRUE
ido deblocking
not loader bios

;--------------------------------------------~ I

bios code
ccp offset
bdos ofst
curdrvs
kbchar

equ
equ
equ
equ
equ

2500h
OOOOh
OB06h
24B7h
22e6h

entry point
current drive address
iBDOS keyboard character
~BDOS

~BDOS

~ I
I
i---------------------------------------------

ENDIF
FDOO

pb2 adr
IF

inot loader bios
equ OfdOOh
loader bios

;--------------------------------------------i I

bios code
ccp offset
bdos ofst

equ 1200h istart of LDBIOS
equ 0003h ~base of CPMLOADER
equ 0406h ~stripped BDOS entry

~ I

----------------------------------------------

ENDIF

INCLUDE DEFBUF.LIB

****************************************************** *******************
OFFSETS FROM START OF POINTERS/BUFFERS DATA BLOCK

FFAO
0000
0086
0086
0094
0094
00A2
02F8
02FA
02FC
02FE
02FO
02F4
02E7

XDPCX
XDEFBUF
XPACKET
XSTPKT
XADCPKT
XMVPKT
XSHRBUF
XMEMSIZE
XPCPMADR
XZ80PKT
XI88PKT
XTTRACK
XTFORMAT
XCSFLAG

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

-60H
OOOH
086H
086H
094H
094H
OA2H
2F8H
2FAH
2FCH
2FEH
2FOH
2F4H
2E7H

DISK PARAMETER STORAGE (60H)
MISC. BUFFER (LENGTH=80H)
BIOS MESSAGE PACKET (LENGTH=OEH)
START PACKET BUFFER (LENGTH=OEH)
DATA PACKET (LENGTH=OEH)
MOVE PACKET BUFFER (LENGTH=OEH)
SEGMENT BUFFER (LENGTH=200H)
MEMORY SIZE (WORD)
PSEUDO CP/M ADDRESS (WORD)
PACKET POINTER FROM Z80 (WORD)
PACKET POINTER FROM 8088 (WORD)
~TRACK TABLE
i FORMAT TABLE
i CONSOLE STATUS FLAG

PAGE

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86

PAGE

Customized Basic I/O System

0000
FFFE
FFFB

i OFFSETS FROM ZOT FOR CONVENIENCE
ZOTP
EQU
0
Z80FLAGPT
EQU
-2
CICCK
EQU
-5

Z80 FLAG
Z80-RUNNING FLAG
CONSOLE STATUS FLAG CHECK

0002
0001
0017

i OTHER USEFUL EQUATES
EQU
BDCS
BlOCS
EQU
EQU
BIOS JMPS

BDOS CHARACTER READY BIT
BIOS CONSOLE STATUS BIT
NUMBER OF FUNCTIONS IN JUMP TABLE

2
1
23

*************************************************************************
INCLUDE CPLBIOSl.A86
cseg
org

ccpoffset

org

bios code

ccp:

,.*********************************************

., *
*
i* BIOS Jump Vector for Individual Routines
*
., *
*
,
.*********************************************

=2500 E92l0l
=2503 E9C201
=2506 E92205
=2509 E92405
=250C E92605
=250F E92D05
=2512 E92F05
=2515 E93l05
=2518 E98E06
=25lB E9EE05
=25lE E99906
=2521 E99C06
=2524 E99F06
=2527 E9B806
=252A E9D006
=252D E90A05
=2530 E99F06
=2533 E99606
=2536 E9A705
=2539 E92005
=253C E92205
=253F E95l08
=2542 E99F05

2624
26C8
2A2B
2A30
2A35
2A3F
2A44
2A49
2BM
2BOC
2BBA
2BCO
2BC6
2BE2
2BFD
2A3A
2BD2
2BCC
2AEO
2A5C
2A6l
2D93
2AE4

jmp INIT
jmp WBOOT
jmp CONST
jmp CONIN
jmp CONOUT
jmp LISTOUT
jmp PUNCH
jmp READER
jmp HOME
jmp SELDSK
jmp SETTRK
jmp SETSEC
jmp SETDMA
jmp READ
jmp WRITE
jmp LISTST
jmp SECTRAN
jmp SETDMAB
jmp GETSEGT
jmp GETIOBF
jmp SETIOBF
jmp RWMOVE
jmp VIDEO
IF

iEnter from BOOT ROM or LOADER
iArrive here from BDOS call 0
ireturn console keyboard status
ireturn console keyboard char
iwrite char to console device
iwrite character to list device
iwrite character to punch device
ireturn char from reader device
imove to trk 00 on cur sel drive
iselect disk for next rd/write
iset track for next rd/write
iset sector for next rd/write
iset offset for user buff (DMA)
iread a 128 byte sector
iwrite a 128 byte sector
ireturn list status
ixlate logical->physical sector
iset seg base for buff (DMA)
ireturn offset of Mem Desc Table
ireturn I/O map byte (IOBYTE)
jset I/O map byte (IOBYTE)
jmove block of data (* added for 86/80 *)
jdirect video output (* added for 86/80 *)
not loader bios

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86

Customized Basic I/O System

PAGE

Segment Table address is placed here immediately after
the BIOS jumps to help the loader find the segment table
and set i t up.

OFFSET SEGTABLE

DBPTR

ENDIF
IF
EQU
ENDIF

loader bios
3AOOH

~ (Filled

=2545 5E33
~

=2547 0000

POINTER TO DATA BLOCK
(FILLED BY LOADER OR MOVE ROUTINE)
by loader)

,.***************************************************************************
,.*
INTERPROCESSOR COMMUNICATION ROUTINES

., *

,.***************************************************************************
~

EQUATES

0000
0002
0080
=2549 9D27
=254B 00
=254C 0000

EQU
EQU
EQU

SIOINIT
CONINCHECK
ZBOPKT

DW
DB
DW

INTZ80
GSCR
BIT7

PORT TO INTERRUPT Z80
INTERRUPT STATUS PORT
Z8D INTERRUPT STATUS BIT (0 = PENDING)

BOH

LOCATION TO FURNISH INIT TABLE START
CONSOLE STATUS CHECK
TEMP STORAGE FOR PACKET ADDRESS

TPRTISQ

o
o

ZBOFLAG AND ZOT MUST BE POSITIONED IMMEDIATELY BEFORE THE
TYPE 39 INTERRUPT HANDLER SO THAT ZBOCCP.CMD CAN REFERENCE
THEM

=
~

=254E 0000
=2550 0000

ZBOFLAG dw
ZOT
dw

~Z80
~ zBO

running flag
flag

(non-zero if Z8D running)

INTERRUPT HANDLER FOR TYPE 39 INTERRUPT (Z80 COMMUNICATION)

=2552
=2553
=2554
=2559
=255A
=255C
=255E
=2562
=2564
=2566

50
53
2E8BlE4725
IE
33CO
BEDB
BB9FFC02
B5DB
740C
2E89lE4C25

TYPE 39 SERV:
PUSH
PUSH
MOV
PUSH
XOR
MOV
MOV
TEST
2572
JZ
MOV

AX
BX
BX,DBPTR
DS
AX,AX
DS,AX
BX,XZBOPKT[BX)
BX,BX
TYPE 39 EXIT
Z80PKT,BX

SAVE REGISTERS·
GET POINTER TO DATA BLOCK
SET ZERO DS
GET PACKET POINTER
IGNORE ZERO FOR PACKET ADDRESS
STORE PACKET ADDRESS

CP /M ASM86 1.1 SOURCE: CPLBIOS .A86
Customized Basic I/O System
=256B 2EC7065025FF
MOV
ZOT,TRUE
SET THE FLAG
FF
TYPE 39 EXIT:
- IN
=2572 E400
AL, INTZ80
CLEAR THE INTERRUPT
=2574 IF
POP
DS
RESTORE DS
=2575 5B
RESTORE REGISTERS
POP
BX
=2576 58
AX
POP
=2577 CF
IRET
i f not loader bios

i-------------------------------------------------------------interrupt handler for type 44 (line frequency clock)

=2578 2EC6064B25FF
=257E CD64
=2580 CF

type_44 serv:
mov
CONINCHECK,Offh ;set flag
int 100
;see below
iret
software interrupt for line frequency clock (type 100)
;

=2581 CF

type_lOO serv:
iret

;user may intercept for use

;------------------------------------------------------------------endif

;not loader bios

SENDPKT

SEMD A PACKET TO THE Z80

ENTRY:

BX = POINTER TO PACKET (ABSOLUTE)

EXIT:

N/A

;

SENDPKT:
=2582
=2583
=2584
=2589
=258B
=258D

IE
53
2E8BlE4725
33CO
8ED8
8F87FE02

PUSH
DS
PUSH
BX
SAVE POINTER
BX,DBPTR
POINT TO DATA BLOCK
MOV
AX,AX
XOR
DS,AX
MOV
; SET ZERO DS
POP
WORD PTR XI88PKT[BX]
; STORE PACKET POINTER
SIGNAL Z80 AND WAIT FOR ACKNOWLEDGEMENT
=2591 E600
OUT
INTZ80,AL
INTERRUPT THE Z80
SENDPKlO:
=2593 E402
AL,GSCR
GET Z80 STATUS
IN
=2595 A880
TEST
AL,BIT7
INTERRUPT STILL PENDING?
=2597 74FA
2593
JZ
SENDPKlO
YES - CHECK AGAIN
;
=2599 C787FE020000
MOV
WORD PTR XI88PKT[BX] ,0 ; ZERO THE PACKET POINTER
=259F IF
POP
DS
; RESTORE DS
=25AO C3
RET

,
;************************************************

PAGE

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86

,.*
,.*
,.*

Customized Basic I/O System

Routine to wait for an interrupt
(type 39) from Z8D

PAGE

*
*

*
,. *
*
,.************************************************
WAITZ8D:
=25Al FA
cli
=25A2 2E833E5025FF
cmp ZOT,TRUE
=25A8 7404
25AE
je WAITRET
=25AA FB
sti
=25AB F4
hIt
=25AC EBF3
25Al
jmps WAITZ80
=25AE FB
WAITRET: sti
=25AF 2E8BlE4C25
mov bx,z8Dpkt
=25B4 C3
ret
i

PACKER:
=25B5 IE
=25B6 2EA35025
=25BA 2E89lE0332
=25BF 33DB
=25Cl 8EDB
=25C3 2E8FD65833
=25C8 2E8FD65A33
=25CD 2E8BlE4725
=25D2 8lC3860D
=25D6 03D9
=25D8 03D9
=25DA 2E890E5C33
pklp:
=25DF 4B
=25EO 4B
=25El 58
=25E2 8907
=25E4 E2F9
25DF
=25E6 2EC706502500
00
=25ED E892FF
2-q2
=25FO E8AEFF
25Al
=25F3 2E8BOE5C33

=25FF 2EFF365A33
=2604 2E8ElE5833
=2609 2E8BIE0332

25F8

imust allow interrupts now
iwait quietly until interrupt
iloop back until non-zero
iallow interrupts
i get packet address
ibye

itake items off the stack and put them
push ds
iinto the message packet
mov ZOT,ax
i Z80 flag set
mov BXHLD,bx
isave bx
xor bx,bx
iset zero data segment
mov ds,bx
i
pop SEGHLD
isave data segment
pop RTNHLD
ireturn address
mov bx,DBPTR
i POINT TO DATA BLOCK
add bx,xpacket i point to 88 packet
add bx,cx
iend of packet
add bx,cx
i=bx+2*cx
mov COUNT,cx
isave count for later
iloop to do packing
dec bx
iback up bx
dec bx
itwice
pop ax
iget t.o.s.
mov [bx] ,ax
ipack it
loop pklp
i loop until done
mov ZOT,false
i clear "done" flag
call sendpkt
call wai tz8D
mov cx,COUNT
movax,[bx]
push ax
inc bx
inc bx
loop repak

i send packet to z80
;wait if z8D is working
;get the count again
;take stuff out of packet
;and
iPush it on the stack
;bump the pointer
;twice
; loop until done

push RTNHLD
mov ds,SEGHLD
mov bx,BXHLD

irestore return and segment
irestore bx

repak:
=25F8 8B07
=25FA 50
=25FB 43
=25FC 43
=25FD E2F9

ino interrupts please

CP/M ASM86 1.1
=260E C3

SOURCE: CPL8IOS.A86
ret
pmsg:

=260F 8A07
=2611 84CO
=2613 740A
=2615 8AC8
=2617 53
=2618 E8lA04
=2618 58
=26lC 43
=2610 E8FO
=26lF 8083
=2621 E60A
=2623 C3
=
=
=

PAGE

Customized Basic I/O System

mov aI, [BX]
test al,al
jz pmretn
26lF
mov CL,AL
push bx
call CONOUT
2A35
pop bx
inc BX
260F
jmps pmsg
pmretn: mov al,83h
out Oah,al
ret

~get

next char from message

df zero return
~

preserve pointer
it

~print

;next character and loop
~make sure that t:rt is initiallized

,.*********************************************

., *
~*
~*

INIT Entry Point, Differs for LOBIOS and
BIOS, according to "Loader Bios" value

,.*
*
,.*********************************************
=

INIT:
=

~print signon message and initialize hardware
if loader bios
set up a stack

;---------------------------------------;
cli
mov ax,cs
mov ss,ax
mov sp,offset stkbase

set up a local stack
interrupts ok now

sti

push cx

,._-------------------------------------_.,

endif

=2624 8CC8
=2626 8E08
=2628 8ECO
=
=
=

mov ax,cs
mov ds,ax
mov es,ax

=
=
=262A FA
=262B 8EOO
=2620 BC3039
=2630 FB

no interrupts, please
use cs for stack too

~we entered
~CS: as the
~and ES:

with a JMPF so use
initial value for OS:,

not loader bios

;--------------------------------------------~ I

This is a BIOS for the CPM.SYS file.
Setup all interrupt vectors in low
~ memory to address trap
~use local stack during initialization
cli
~no interrupts while doing the stack
mov ss,ax
~CS: as the initial value of SS:,
mov sp,offset stkbase
sti
~interrupts ok now

CP/M ASMS6 1.1 SOURCE: CPLBIOS.A86
Customized Basic I/O System
=2631 FC
cld
;set forward direction
=2632 51
push ex
=2633 B195
mov cl,95H
;set IOBYTE to lst=lpt,con=crt
=2635 ES2904
2A6l
call SETIOBF
=2638 2EC7064E2500
mov ZSOFLAG,O
;set zSO not running (yet)
00
=263F ES2DOO
266F
call REVECTOR
;initialize interrupts
;

(additional CP/M-86 initialization)

;I
i--------------------------------------------ENDIF

;not loader bios

loader bios

i---------------------------------------------

;This is a BIOS for the LOADER
cld
;set forward direction
call REVECTOR
;set up interrupts

i--------------------------------------------ENDIF
;loader bios
not loader bios
if
STI
endif
mov bx,offset signon
call pmsg
;print signon message

=2642 FB
=2643 BB6733
=2646 ESC6FF

260F

=2649 2E8BlE4725
=264E IE
=264F 33CO
=2651 SED8
=2653 B90400
=2656 F6D4
=2658 88A7F002
=265C SSS7F402
=2660 43
=2661 E2F5
=2663 IF

;set up track and format tables
mov bx,dbptr
;get address of table area
push ds
,
xor aX,ax
;zero for data seg
mov ds,ax
;
mov cx,nrdisks ;how many disks?
not ah
;need ff in ah
initIO: mov xttrack[bxl ,ah
;tracks to ff
mov xtformat[bxl ,al
;formats to 00
inc bx
2658
loop initIO
;loop back until done
;restore data seg
pop ds

=2664 59

pop ex
if not loader bios

;restore drive etc

i----------------------------------------------------- --=2665 SAC 1
=2667 240F
=2669 A2B724

mov al,cl
;let's take a look at that drive
and al,Ofh
;make sure it's valid, then •.•
mov byte ptr .curdrvs,al
;store drive for submit files

,._---------------------------------------------------------

endif
=266C E99lD9

0000

;not loader bios
jmp ccp
;jump to cold start entry of CCP
IF loader bios

i---------------------------------------------

PAGE

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86
Customized Basic I/O System
REVECTOR:
push ds
;save data segment
mov ax,O
mov ds,ax
;point to segment zero
;BOOS interrupt offset
mov bdos offset,bdos ofst
mov bdos-segment,CS ;bdos interrupt segment
(additional LOADER initialization)
MOV
Z80 OFFSET,OFFSET TYPE 39 SERV
MOV
Z80-SEG,cs
;use current code segment (why not?
mov sio offset,offset I232RX
mov sio seg,cs
mov sio2 offset,offset I232RX2
mov sio2-seg,cs
pop ds ;restore data segment
ret

i---------------------------------------------

ENOIF ;loader_bios

i------------------------------------------------------

=
=266F 1E

IF not loader bios
; SET UP INTERRUPT VECTORS
REVECTOR:
push ds
;save the OS register
;

=
=2670 E84801
=2673 3202
=2675 BF1600
=2678 C028
=267A BFOCOO
=2670 C028
=267F FA
=2680 B80000
=2683 8E08
=2685 8ECO
=
=2687 C7068003060B
=2680 8COE8203
=2691 C7069C005225
=2697 8COE9EOO
=269B C706BOO07825
=26A1 8COEB200
=26A5 C70690018125
=26AB 8COE9201
=26AF C7069000CC28
=26B5 8COE9200
=26B9 C7069400EA28
=26BF 8COE9600

,.**********************************************************
,.**
Firmware initializing
***
,.**
27BB
call P232CHEK
,.**
xor dl,d1
,.**
mov di,16h
.**
,
int 40
.**
,
mov di,Och
.**
int 40
,.**
eli
,.**********************************************************
I

mov ax,O
mov ds,ax
mov es,ax
;set ES and OS to zero
;BOOS offset to proper interrupt
mov bdos offset,bdos ofst
MOV
BOOS SEGMENT:CS
MOV
Z80 OFFSET,OFFSET TYPE 39 SERV
MOV
Z80-SEG,cs
;use current code segment (why not?)
mov tp 44 offset,offset type 44 serv
mov tp-44-seg,cs
- mov tp-100 offset,offset type 100 serv
mov tp-100-seg,cs
mov sio_offset,offset I232RX
mov sio seg,cs
mov sio2 offset,offset I232RX2
mov sio2=seg,cs

PAGE

CP/M ASM86 1.1
=26C3 FB
=26C4 IF
=26C5 E9l00l

SOURCE: CPLBIOS.A86
STI

Customized Basic I/O System
: RE-ENABLE INTERRUPTS

~op

ds
:restore the OS register
Jmp P232INIT
:initialize sio
:not loader_bios

27E5
ENOIF

,---------------------------------------------------

=26C8 2EC7064E2500
WBOOT:
00
=26CF E890FF
266F
=2602 E93l09
0006

mov Z80FLAG,false
call revector
jmp ccp+6

:set z80 not running

:direct entry to CCP at command level

,.*********************************************
,. *
*
:*

., *

CP/M Character I/O Interface Routines

,.*********************************************
: TERMINAL OEVICE ORIVERS
:

CRTOUT:
=2605 8ACI
=2607 BFOOOO
=260A 06
=260B C028
=2600 07
=260E C3

MOV
MOV
PUSH
INT
POP
RET

AL,CL
01,0
ES
40
ES

Move character for output
Function code

CRTIN:
=260F 06
=26EO BF0200
CRTINl:
=26E3 C028
=26E5 84C9
=26E7 74F7
26EO
=26E9 2EF7064E25FF
FF
=26FO 741E
2710
=26F2 50
=26F3 BF0400
=26F6 C028
=26F8 330B
=26FA 8EC3
=26FC 2E8BIE4725
=2701 80ElOl
=2704 2680A7E702FE
=270A 26088FE702
=270F 58
=2710 07
CRTIN2 :
=2711 C3
:
CRTSTI:

ES
PUSH
01,2
MOV
40
INT
TEST
CL,CL
CRTINI
JZ
test z80flag,true

Function code
Character available?
No - retry
Is Z80 running?

go away if not
jz CRTIN2
push ax
mov di,4
int 40
xor bx,bx
mov es,bx
mov bx ,OBPTR
and cl,BIOCS
:cIear status flag
and es:byte ptr xcsflag [bx] ,not BlOCS
or es:byte ptr xcsflag [bx] ,cl
pop ax
pop es
Return character in AL
RET

PAGE

CP/M ASM86 1.1
=2712 BF0400
=2715 06
=2716 CD28
=2718 07
=2719 8AC1
=271B C3
=
=
=271C BOFF
=271E C3
=

SOURCE: CPLBIOS.A86
MOV
PUSH
INT
POP
MOV
RET

CRTSTO:
MOV
RET

=
=
=
=
=
=

=
=
=
=

Always ready

0080

HIPAR

·,
EQU
80H
·,, CONTROL BLOCK OFFSETS

HIGH PARITY BIT

0000
0001
0002
0003
0004
0005
0006
0007
OOOA

QTPORT EQU
QTFLAGS EQU
QTNRCHR EQU
QTCAP
EQU
QTINPTR EQU
QTOTPTR EQU
QTDEND EQU
QTDEVID EQU
QTDATA EQU

CONTROL PORT ADDRESS
DEVICE FLAGS (SEE MEANINGS BELOW)
NR. OF CHARACTERS CURRENTLY IN BUFFER
BUFFER CAPACITY IN BYTES (CONSTANT)
BUFFER INPUT POINTER
BUFFER OUTPUT POINTER
OFFSET OF LAST DATA BYTE (CONSTANT)
OFFSET OF PHYS DEVICE ID FOR ERROR MESSAGE
BUFFER DATA AREA

BYTE PTR 0
BYTE PTR 1
BYTE PTR 2
BYTE PTR 3
BYTE PTR 4
BYTE PTR 5
BYTE PTR 6
7
10

,, BIT ASSIGNMENTS FOR "QTFLAGS"
0001
0002
0004
0008
0010

QMSUSP EQU
QMTYPE EQU
QMINIT EQU
QMISUSP EQU
QMBREAK EQU

2
4
8

10H

o
1
1
1

OUTPUT SUSPENDED
XON/XOFF, PARITY ERROR CHECKING
DEVICE REQUIRES INITIALIZATION
INPUT SUSPENDED
BREAK DETECTED

BLOCKS
,, BUFFER LENGTHS IN CONTROLPRINTER
CONTROL BLQCK

0020
0020
0020

QKPRTBL EQU
QKCOMBL EQU
QKCOM2BL EQU

0043
0042
0022

QPPRT
QPCOM
QPCOM2

32
32
32

COMM PORT CONTROL BLOCK
OPTIONAL COMM PORT CTL BLOCK

43H
42H
22H

PRINTER PORT
COMM PORT
OPTIONAL COMM PORT

·,, CONTROL PORT ADDRESSES

=
=
=
=

AL,OFFH

SERIAL I/O ROUTINES FOR DEC RAINBOW 100

=
=
=
=
=
=
=

Customized Basic 1/0 System
DI,4
, Function code
ES
40
ES
AL,CL
Move status for return

=
0007

EQU
EQU
EQU

·,, ASCII CONTROL CHARACTERS
·,
, BEL
7
QKBEL
EQU

PAGE

CP/M ASM86 1.1
= 0011
0013
= 0091
0093
= 001A
=
=
=
= 0001
0004
0080
=

SOURCE: CPLBIOS.A86
QKXON
EQU
QKXOFF EQU
QKXONP EQU
QKXOFFP EQU
QKSUB
EQU

,
~

SIO STATUS BITS - RRO

QMRXR
QMTXR
QMBRK

,
~

Customized Basic I/O System
17
XON (CTL-Q)
19
~ XOFF (CTL-S)
17+HIPAR
~ XON+ (CTL-Q)
19+HIPAR
~ XOFF+ (CTL-S)
26
SUB

EQU
EQU
EQU

1
4

80H

RECEIVED CHAR. READY
TRANSMIT READY
BREAK

SIO STATUS BITS - RR1

0010
0020

QMPARE
QMOVRE

EQU
EQU

10H
20H

PARITY ERROR
OVERRUN ERROR

=
=
=
=

SIO COMMANDS - WRO

0038
0018
0030
0010

QKEOI EQU
QKCHRST EQU
QKRESERR EQU
QKRESI EQU

38H
18H
30H
10H

END OF INTERRUPT
CHANNEL RESET
RESET ERRORS
RESET EXT/STATUS INT.

SIO COMMANDS - WR1

0018

QMMRXI

EQU

18H

INTERRUPT ON ALL RX CHAR.

SIO COMMANDS - WR3

0040
OOCO
0001

QMR7BIT EQU
QMR8BIT EQU
QMMRXE EQU

=
=

0040
OOOC
0004

40H
OCOH
1

RX 7 BITS/CHAR
RX 8 BITS/CHAR
RX ENABLE

SIO COMMANDS - WR4

QMMX16
QMMST2
QMMST1

EQU
EQU
EQU

40H
OCH
4

X16 CLOCK
2 STOP BITS
1 STOP BIT

SIO COMMANDS - WRS

;

=
=

0080
0002
0008
0020
0060

QMMDTR EQU
QMMRTS EQU
QMMTXE EQU
QMT7BIT EQU
QMT8BIT EQU

80H
2
8

20H
60H

DTR ON
RTS ON
TX ENABLE
TX 7 BITS/CHAR
TX 8 BITS/CHAR

CONTROL BLOCKS FOR EACH DEVICE

PAGE

CP/M ASM86 1.1
=

SOURCE: CPLBIOS.A86

Customized Basic I/O System

PAGE

;

; PRINTER CONTROL BLOCK
;

=271F
=271F
=2720
=2721
=2722
=2723
=2724
=2725
=2726
=2729

TPRTCB
43
04
00
20
OA
OA
29
545459

RS
DB
DB
DB
DB
DB
DB
DB
DB
RS

o
QPPRT
QMINIT

PORT ADDRESS
USES XON/XOFF
o
NUMBER OF CHARS.
QKPRTBL
CAPACITY
QTDATA
INPUT POINTER
QTDATA ; OUTPUT POINTER
QTDATA-l+QKPRTBL
OFFSET OF LAST DATA BYTE
'TTY'
; DEVICE ID
QKPRTBL ; DATA BUFFER

COMM PORT CONTROL BLOCK
;

=2749
=2749
=274A
=274B
=274C
=274D
=274E
=274F
=2750
=2753

TCOMCB
42
06
00
20
OA
OA
29
505450

RS
DB
DB
DB
DB
DB
DB
DB
DB
RS

o
QPCOM
; PORT ADDRESS
QMTYPE+QMINIT
; NO XON/XOFF
o
; NUMBER OF CHARACTERS
QKCOMBL ; CAPACITY
QTDATA ; INPUT POINTER
QTDATA ; OUTPUT POINTER
QTDATA-l+QKCOMBL
OFFSET OF LAST DATA BYTE
'PTP'
; DEVICE ID.
QKCOMBL ; DATA BUFFER

;OPTIONAL COMM PORT CONTROL BLOCK
;

=2773
=2773
=2774
=2775
=2776
=2777
=2778
=2779
=277A
=277D

22
02
00
20
OA
OA
29
554331

TCOM2CB RS
DB
DB
DB
DB
DB
DB
DB
DB
RS

o
QPCOM2
QMTYPE

PORT ADDRESS
NO XON/XOFF
o
NUMBER OF CHARACTERS
QKCOM2BL
; CAPACITY
QTDATA
INPUT POINTER
QTDATA ; OUTPUT POINTER
QTDATA-l+QKCOM2BL
; OFFSET OF LAST DATA BYTE
'UCl'
DEVICE 10
QKCOM2BL
DATA BUFFER

INITIALIZATION SEQUENCES FOR SIO
PRINTER PORT
;

=279D
=279D
=279E
=279F
=27AO
=27Al
=27A2

18
14

4C
13
41
15

TPRTISQ RS
DB
DB
DB
DB
DB
DB

0
QKCHRST
4+QKRESI
QMMXI6+QMMST2
3+QKRESI
QMR7BIT+QMMRXE
5+QKRESI

CHANNEL RESET
WR4
X16 CLOCK, 2 STOP BITS
WR3
RX ENABLE, 7 BITS/CH
WR5

CP/M ASM86 1.1
=27A3 AA
=27A4 11
=27A5 18
=27A6 00

SOURCE: CPLBIOS.A86
DB
TPRTISI DB
DB
DB

Customized Basic I/O System
QMMDTR+QMMRTS+QMT7BIT+QMMTXE ; TX ENABLE, 7 BITS, RTS, DTR
I+QKRESI
WRI
INTERRUPT ON ALL RX CHAR
QMMRXI
END OF SEQUENCE
0

COMM PORT
;

=27A7
=27A7 18
=27A8 14
=27A9 44
=27AA 13
=27AB Cl
=27AC 15
=27AD EA
=27AE 11
=27AF 18
=27BO 00

TCOMISQ RS
DB
DB
DB
DB
DB
DB
DB
TCOMISI DB
DB
DB

0
CHANNEL RESET
QKCHRST
WR4
4+QKRESI
X16 CLOCK, 1 STOP BIT
QMMXI6+QMMSTI
3+QKRESI
WR3
RX ENABLE, 8 BITS/CH
QMR8BIT+QMMRXE
5+QKRESI
; WR5
; TX ENABLE, 8 BITS, RTS, DTR
QMMDTR+QMMRTS+QMT8BIT+QMMTXE
WRI
I+QKRESI
QMMRXI
; INTERRUPT ON ALL RX CHAR
0
; END OF SEQUENCE

OPTIONAL COMM PORT
;

=27Bl
=27Bl 18
=27B2 14
=27B3 44
=27B4 13
=27B5 Cl
=27B6 15
=27B7 EA
=27B8 11
=27B9 18
=27BA 00

TCOM2ISQ
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB

RS
0
CHANNEL RESET
QKCHRST
WR4
4+QKRESI
X16 CLOCK, 1 STOP BIT
QMMXI6+QMMSTI
WR3
3+QKRESI
RX ENABLE, 8 BITS/CH
QMR8BIT+QMMRXE
; WR5
5+QKRESI
QMMDTR+QMMRTS+QMT8BIT+QMMTXE ; TX ENABLE, 8 BITS, RTS, DTR
I+QKRESI
WRI
QMMRXI
; INTERRUPT ON ALL RX CHAR
0
; END OF SEQUENCE

P232CHEK - CHECK RS232 (SIO) PORTS
FUNCTION: CHECK TO SEE IF LAST CHARACTER HAS BEEN SENT FROM PORT IF
INITIALIZATION IS REQUIRED.
ENTRY AND EXIT PARAMETERS: N/A
;

=27BB BBIF27
=27BE E80COO
=27Cl BB4927
=27C4 E80600
=27C7 BB7327
=27CA E90000

P232CHEK:
MOV
27CD
CALL
MOV
CALL
27CD
MOV
JMP
27CD

BX,OFFSET TPRTCB
CHECK
P232CHK
BX,OFFSET TCOMCB
P232CHK
; CHECK
BX,OFFSET TCOM2CB
CHECK
P232CHK

P232CHK - CHECK AN SIO PORT

PRINTER CONTROL BLOCK
COMM CONTROL BLOCK
OPT COMM CONTROL BLOCK

PAGE

CP/M ASM86 1.1

=
=

SOURCE: CPLBIOS.A86

Customized Basic I/O System

PAGE

FUNCTION: CHECKS AN SIO PORT ASSOCIATED WITH A CONTROL BLOCK.
TO SEE IF THE LAST CHARACTER HAS BEEN SENT BEFORE DOING INITILAZATION.
CHECKS CONTROL BLOCK FIRST TO SEE IF INITIALIZATION IS REQUIRED.
ENTRY:
BX

=
=

POINTER TO CONTROL BLOCK

EXIT : N/A
;

P232CHK:
=27CD F6470104
=27D1 7501
=27D3 C3
=27D4 8A17
=27D6 32F6
=27D8 33C9
=27DA B001
=27DC EE
=27DD EC
=27DE 2401
=27EO 7502
=27E2 E2F6
=27E4 C3

TEST
JNZ
RET
P232CH10:
MOV
XOR
XOR
P232CH30:
MOV
OUT
IN
AND
27E4
JNZ
27DA
LOOP
P232CH20:
RET
27D4

QTFLAGS[BX] ,QMINIT
P232CH10

INITIALIZATION REQUIRED?
YES
ELSE RETURN

DL,QTPORT[BX]
DH,DH
CX,CX

GET PORT ADDRESS
MAKE 16 BIT AD DR
ZERO THE COUNTER

AL,l
DX,AL
AL,DX
AL,l
P232CH20
P232CH30

CONTROL REGISTER 1
SEND IT TO PORT
READ IT
CHECK FOR LAST
GO AWAY IF OK
LOOP UNTIL TIMOUT

P232INIT - INITIALIZE RS232 (SIO) PORTS
FUNCTION: INITIALIZES ALL RS232 PORTS FOR WHICH INITIALIZATION
IS REQUIRED.
ENTRY AND EXIT PAR.AMETERS: N/A
;

=27E5 BB1F27
=27E8 BEA427
=27EB E81200
=27EE BB4927
=27F1 BEAE27
=27F4 E80900
=27F7 BB7327
=27FA BEB127
=27FD E90000

P232INIT:
MOV
MOV
2800
CALL
MOV
MOV
2800
CALL
MOV
MOV
2800
JMP

BX,OFFSET TPRTCB
; PRINTER CONTROL BLOCK
SI,OFFSET TPRTISI
; PRINTER INIT SEQUENCE
INITIALIZE
P232IPR
BX,OFFSET TCOMCB
; COMM CONTROL BLOCK
SI,OFFSET TCOMISI
; COMM IN IT SEQUENCE
P232IPR
; INITIALIZE
BX,OFFSET TCOM2CB
; OPT COMM CONTROL BLOCK
SI,OFFSET TCOM2ISQ
; OPT COMM IN IT SEQUENCE
P232IPR
; INITIALIZE

P232IPR - INITIALIZE AN SIO PORT

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86

Customized Basic I/O System

PAGE

FUNCTION: INITIALIZES AN SIO PORT ASSOCIATED WITH A CONTROL BLOCK.
CHECKS CONTROL BLOCK FIRST TO SEE IF INITIALIZATION IS REQUIRED.
(DOES NOT INITIALIZE BAUD RATES.)
ENTRY:
=

BX
SI

POINTER TO CONTROL BLOCK
POINTER T0 INITIALIZATION SEQUENCE
(SEQUENCE ENDS WITH A ZERO BYTE)

EXIT : N/A
;

P232IPR:
=2800 F6470104
=2804 7501
=2806 C3
=
=2807 8A17
=2809 32F6
=280B FC
=280C AC
=280D 84CO
=280F 7501
=2811 C3
=2812 EE
=2813 EBF7

TEST
JNZ
RET
P232IP10:
MOV
XOR
CLD
P232IP20:
LODSB
TEST
JNZ
2812
RET
P232IP30:
OUT
280C
JMPS

2807

QTFLAGS[BX] ,QMINIT
P232IP10

INITIALIZATION REQUIRED?
YES
ELSE RETURN

DL,QTPORT[BX]
DH,DH

GET PORT ADDRESS
MAKE 16 BIT AD DR
SET FORWARD DIRECTION

AL,AL
P232IP30

GET A BYTE
END OF SEQUENCE?
NO
EXIT IF END

DX,AL
P232IP20

SEND IT TO PORT
GET NEXT BYTE

P232IN - READ A CHARACTER
FUNCTION: RETURNS ONE BYTE FROM CIRCULAR BUFFER FOR A SPECIFIED
DEVICE. WAITS IF THE BUFFER IS EMPTY.
IF XOFF HAS SUSPENDED INPUT,
AND THE BUFFER IS EMPTY, SEND AN XON.
ENTRY:
BX
=

POINTER TO CONTROL BLOCK

EXIT:
AL = CHARACTER

;

P232IN:
=2815 8A4702
=2818 84CO
=281A 74F9
2815
=281C FA
=281D FE4F02
=2820 7526
2848
=2822 FB
=2823 2EF687010002

MOV
TEST
JZ
CLI
DEC
JNZ
STI
TEST

AL,QTNRCHR[BX]
AL,AL
P232IN
QTNRCHR[BX]
P232IN1
CS:QTFLAGS[BX] ,QMTYPE

GET NUMBER OF CHARS. IN BUFFER
IS IT ZERO?
LOOP BACK IF SO
DISABLE WHILE MANIPULATING BUFFER
DECREMENT CHARACTER COUNT
JUMP AHEAD IF NOT ZERO
**
TURN ON INTERRUPTS
**
DO WE SUPPORT XON?
**

CP/M ASM86 1.1 SOURCE: CPLBIOS.A86
=2829 7510
2848
JNZ
=282B 2EF687010008
EST
=2831 7415
2848
JZ
P232IN2:
=2833 2EF687010001
TEST
=2839 75F8
2833
JNZ
=283B 2E80A70100F7
AND
=2841 51
PUSH
=2842 B111
MOV
=2844 E81900
2860
CALL
=2847 59
POP
P232IN1:
=2848 FA
CLI
=2849 8A470S
MOV
=284C 32E4
XOR
=284E 8BFO
MOV
=2850 FECO
INC
=2852 3A4706
CMP
=2855 7602
2859
JBE
=2857 BOOA
MOV
P232IN4:
=2859 884705
MOV
=285C 8AOO
MOV
=285E FB
STI
=285F C3
RET

Customized Basic I/O System
P232IN1
; NO. SKIP AHEAD
CS:QTFLAGS[BX] ,QMISUSP ; YES. IS INPUT SUSPENDED?
P232IN1
NO, BUFFER IS JUST EMPTY

CS:QTFLAGS[BX],QMSUSP
; IS OUTPUT SUSPENDED?
P232IN2
; YES, WAIT FOR IT
CS:QTFLAGS[BX] ,NOT QMISUSP
;INPUT NOT SUSPENDED
CX
(JIC)
CL,QKXON
OUTPUT AN •••
P2320UT
XON.
CX
AL,QTOTPTR[BX]
AH,AH
SI,AX
AL
AL,QTDEND[BX]
P232IN4
AL,QTDATA
QTOTPTR[BX],AL
AL, [BX+SI]

NO MORE INTERRUPTS
GET OUTPUT POINTER
MAKE 16 BIT OFFSET
MOVE TO INDEX REG.
INCREMENT OUTPUT POINTER
PAST END OF BUFFER?
NO
SET TO START OF BUFFER
STORE UPDATED POINTER
GET CHARACTER FROM BUFFER
RE-ENABLE
EXIT

=
P2320UT - WRITE A CHARACTER

=
=

FUNCTION: WRITES A CHARACTER TO A SPECIFIED DEVICE.
ENTRY:

BX
CL

POINTER TO CONTROL BLOCK
CHARACTER TO BE WRITTEN

=
=

EXIT: N/A

P2320UT:
=2860 8AE1
=
=2862 8A17
=2864 32F6
=2866 F6470102
=286A 7509
=286C 8AC4
=286E 247F
=2870 3Cl3
=2872 7501
=2874 C3

=2875 33C9

MOV
P2320UTO:
MOV
XOR
TEST
2875
JNZ
MOV
AND
CMP
2875
JNE
RET
P2320UT1:
XOR
P2320UT2:

AH,CL

SAVE THE CHARACTER

DL,QTPORT[BX]
DH,DH
QTFLAGS[BX],QMTYPE
P2320UT1
AL,AH
AL,07FH
AL,QKXOFF
P2320UT1

GET PORT ADDRESS
MAKE 16 BIT ADDRESS
OK TO SEND XOFF?
YES
GET CHARACTER FOR TESTS
STRIP PARITY
IS IT XOFF?
NO - SEND IT
EXIT WITHOUT SENDING

CX,CX

INIT TIMEOUT LOOP COUNTER

PAGE

**
**
**
**
**
**
**
**
**
**
**
**
**

CP/M ASM86 1.1
=2877 EC
=2878 A804
=287A 7522
=287C 51
=287D 59
=287E E2F7
=2880 50
=2881 53
=2882 8B4707
=2885 2EA35233
=2889 8A4709
=288C 2EA25433
=2890 BB4533
=2893 E879FD
=2896 E87306
=2899 5B
=289A 58
=289B 74C5
=289D C3
=289E F6470101
=28A2 75FA
=28A4 80EA02
=28A7 8AC4
=28A9 EE
=28AA C3

SOURCE: CPLBIOS.A86
IN
TEST
289E
JNZ
PUSH
POP
LOOP
2877
PUSH
PUSH
MOV
MOV
MOV
MOV
MOV
260F
CALL
2FOC
CALL
POP
POP
2862
JZ
RET
P2320UT3:
TEST
289E
JNZ
SUB
MOV
OUT
RET

P232STI

Customized Basic I/O System
AL,DX
GET PORT STATUS
AL,QMTXR
TX READY?
P2320UT3
YES - DO IT
CX
THESE 2 INSTRUCTIONS ARE FILLERS
TO MAKE A VALID TIMEOUT
CX
P2320UT2
TRY IT AGAIN IF NO TIMEOUT YET
AX
TIMEOUT - SOMETHING'S WRONG WITH
BX
UART
AX,QTDEVID[BX]
PUT DEVICE ID INTO MESSAGE
P232TOl,AX
AL , QTDEVID+ 2 [BX]
P232T02,AL
BX,OFFSET P232TO
PMSG
WRITE TIMEOUT MESSAGE
KQERY
GET USER OPTION
BX
SUBROUTINE WILL NOT RETURN IF CTL-C
AX
P2320UTO
TRY AGAIN IF SPACE BAR
PRETEND IT'S OK IF ANY OTHER KEY
QTFLAGS[BX] ,QMSUSP
P2320UT3
DL,2
AL,AH
DX,AL

IS OUTPUT SUSPENDED?
YES - WAIT UNTIL ENABLED
POINT TO DATA PORT
GET CHARACTER
SEND IT
EXIT

RETURN INPUT STATUS

FUNCTION: RETURNS A VALUE INDICATING WHETHER AN INPUT CHARACTER
IS AVAILABLE FROM A SPECIFIED DEVICE.
ENTRY:
BX

POINTER TO CONTROL BLOCK

AL
AL

0
IF NO CHARACTER IS READY (BUFFER EMPTY)
X'FF' IF ONE OR MORE CHAPACTERS ARE READY

EXIT:
;

P232STI:
=28AB 8A4702
=28AE 84CO
=2880 7501
=28B2 C3
=28B3 BOFF
=28B5 C3

MOV
TEST
28B3
JNZ
RET
P232STII :
MOV
RET

AL,QTNRCHR[BX]
AL,AL
P232STII

GET CURRENT NR OF CHARS.
IS IT ZERO?
NO
RETURN "NOT READY"

AL,OFFH

SET "READY"

PAGE

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86
P232STO

PAGE

Customized Basic I/O System
RETURN OUTPUT STATUS

FUNCTION: RETURNS A VALUE INDICATING WHETHER THE SPECIFIED DEVICE IS
READY TO ACCEPT AN OUTPUT CHARACTER.
ENTRY:
BX

POINTER TO CONTROL BLOCK

AL
AL

0
X'FF'

EXIT:
IF DEVICE IS NOT READY TO ACCEPT A CHARACTER
IF DEVICE IS READY TO ACCEPT A CHARACTER

P232STO:
=28B6 8A17
=28B8 32F6
=28BA EC
=28BB 2404
=28BD 7501
=28BF C3
=28CO
=28C2
=28C6
=28C8

32CO
F6470101
7401
C3

=28C9 F6DO
=28CB C3

MOV
XOR
IN
AND
28CO
JNZ
RET
P232ST01:
XOR
TEST
28C9
JZ
RET
P232ST03:
NOT
RET

1232RX

DL,QTPORT[BX]
DH,DH
AL,DX
AL,QMTXR
P232ST01

GET PORT ADDRESS
MAKE 16 BIT ADDRESS
GET PORT STATUS
IS TX READY?
YES
RETURN "NOT READY"

AL,AL
QTFLAGS[BX] ,QMSUSP
P232ST03

SET "NOT READY" VALUE
IS OUTPUT SUSPENDED?
NO
RETURN "NOT READY"

SET "READY"

HANDLE SIO RECEIVE INTERRUPTS

FUNCTION: PROCESS RECEIVE INTERRUPTS FROM ONE OR MORE SIO PORTS.
SET CONTROL BLOCK POINTERS AND CALL PORT INTERRUPT PROCESSOR.

ENTRY AND EXIT PARAMETERS: N/A

1232RX:
=28CC 50
=28CD 53
=28CE 52
=28CF BB1F27
=28D2 E81DOO
=28D5 BB4927
=28D8 E81700
=
=28DB 2E8A970000
=28EO 80E2FE
=28E3 B038
=28E5 EE

PUSH
AX
SAVE REGISTERS
PUSH
BX
PUSH
DX
POINT TO EACH CONTROL BLOCK AND CHECK RECEIVER
MOV
BX,OFFSET TPRTCB
PRINTER CONTROL BLOCK
28F2
CALL
1232RPT
MOV
BX,OFFSET TCOMCB
COMM PORT CONTROL BLOCK
1232RXX:
28F2
CALL
1232RPT
~ SEND END-OF-INTERRUPT
MOV
DL,CS:QTPORT[BX]
AND
DL,OFEH
MOV
AL,QKEOI
OUT
DX,AL

CP/M ASM86 1.1
=28E6
=28E7
=28E8
=28E9

5A
5B
58
CF

SOURCE: CPLBIOS.A86
Customized Basic I/O System
RESTORE REGISTERS AND EXIT
POP
DX
POP
BX
POP
AX
IRET

1232RX2

PAGE

HANDLE OPTIONAL SIO RECEIVE INTERRUPTS

FUNCTION: PROCESS RECEIVE INTERRUPTS FROM ONE OR MORE SIO PORTS.
SET CONTROL BLOCK POINTERS AND CALL PORT INTERRUPT PROCESSOR.

ENTRY AND EXIT PARAMETERS: N/A

1232RX2:
=28EA 50
=28EB 53
=28EC 52
=28ED BB7327
=28FO EBE6

PUSH
AX
; SAVE REGISTERS
BX
PUSH
PUSH
DX
POINT TO EACH CONTROL BLOCK AND CHECK RECEIVER
BX,OFFSET TCOM2CB
; COMM PORT CONTROL BLOCK
MOV
;SAVE REGISTERS AND EXIT
1232RXX
JMPS

28D8

1232RPT

PROCESS RECEIVED CHARACTER

FUNCTION:
IF A CHARACTER HAS BEEN RECEIVED AT A PORT, READS IT
AND PLACES IT IN A CIRCULAR BUFFER. IF REQUIRED, PROCESSES
XON/XOFF PROTOCOL AND SUBSTITUTES A 'SUB' CHARACTER WHEN A
PARITY ERROR OCCURS.
=

ENTRY:
=

BX
EXIT:

POINTER TO CONTROL BLOCK

N/A

PORT INPUT/OUTPUT
ERROR STATUS STORAGE
CONTROL BLOCK POINTER
PORT ADDRESS AND INPUT POINTER WORKING REG.

;

1232RPT:
=28F2 2E8A970000
=28F7 32F6
=28F9 EC
=28FA A801
=28FC 7501
=28FE C3

MOV
XOR
IN
TEST
28FF
JNZ
1232RPTX:
RET
1232RP05:

DL,CS:QTPORT[BXj
DH,DH
AL,DX
AL,QMRXR
1232RP05

GET PORT ADDRESS
MAKE 16 BIT ADDRESS
GET PORT STATUS
RECEIVE READY?
YES
EXIT - NO PROCESSING NECESSARY

CP/M ASM86 1.1 SOURCE: CPLBIOS.A86
Customized Basic I/O System
=28FF A880
TEST
AL,QMBRK
BREAK?
=2901 7409
290C
JZ
1232RP10
=2903 2E808F010010
OR
CS: QTFLAGS[BX] ,QMBREAK
SIGNAL IT
=2909 E9D100
29DD
JMP
1232RP40
; PROCESS A RECEIVED CHARACTER
1232RP10:
=290C 2EF687010010
TEST
CS:QTFLAGS[BX] ,QMBREAK
DO WE HAVE A BREAK?
=2912 7409
291D
JZ
1232RPll
; SKIP IF NOT
=2914 2E80A70100EF
AND
CS:QTFLAGS[BX] ,NOT QMBREAK
;ELSE CLEAR FLAG
=291A E9COOO
29DD
JMP
1232RP40
AND GO AWAY
1232RPll:
=2910 B001
MOV
AL,l
POINT TO RR1
=291F EE
OUT
DX,AL
WRITE TO SIO
=2920 EC
IN
AL,DX
READ RR1
=2921 8AEO
MOV
AH,AL
SAVE IT
=2923 B030
MOV
AL,QKRESERR
RESET SIO ERRORS (IF ANY)
=2925 EE
OUT
DX,AL
=2926 80EA02
SUB
DL,2
POINT TO DATA PORT
=2929 EC
IN
AL,DX
READ RECEIVED CHARACTER
CHECK FOR RECEIVE ERRORS
=292A F6C420
TEST
AH,QMOVRE
OVERRUN ERROR?
=292D 7406
2935
JZ
1232RP12
, NO
=292F 2E80A70100FE
AND
CS:QTFLAGS[BX],NOT QMSUSP ; ENABLE OUTPUT (ASSUME XON LOST)
1232RP12:
=
=2935 F6C410
TEST
AH,QMPARE
PARITY ERROR?
=2938 7402
293C
JZ
1232RP14
NO
=293A BOlA
MOV
AL,QKSUB
CHANGE RX CHAR. TO 'SUB'
1232RP14:
=
=293C 2EF687010002
TEST
CS:QTFLAGS[BX] ,QMTYPE
XON/XOFF APPLICABLE?
=2942 7530
2974
JNZ
1232RP20
NO - STORE CHARACTER
=
PROCESS XON/XOFF PROTOCOL
=2944 84CO
TEST
AL,AL
CHECK FOR NULL
=2946 7501
2949
JNZ
1232RP15
NOT A NULL
=2948 C3
RET
IGNORE NULL CHARACTERS
I232RP15:
=2949 3C93
CMP
AL,QKXOFFP
IS IT XOFF+?
=294B 7404
2951
JZ
1232RP15A
YES
=294D 3C13
CMP
AL,QKXOFF
IS IT XOFF?
=294F 7507
2958
JNE
1232RP16
NO
1232RP15A:
=2951 2E808F010001
OR
CS:QTFLAGS[BX],QMSUSP
SUSPEND OUTPUT
=2957 C3
RET
AND EXIT
1232RP16:
=2958 3C91
AL,QKXONP
CMP
IS IT XON?
=295A 7404
2960
JZ
1232RP16A
NO - STORE IT
=295C 3Cll
CMP
AL,QKXON
IS IT XON?
=295E 7514
2974
JNE
1232RP20
NO - STORE IT
1232RP16A:
=2960 F6C420
TEST
AH,QMOVRE
WAS THERE AN OVERRUN ERROR?
=2963 7508
296D
JNZ
1232RP18
YES - ASSUME AN XOFF WAS LOST
=2965 2EF687010001
TEST
CS:QTFLAGS[BX] ,QMSUSP
IS OUTPUT SUSPENDED?
=296B 7407
2974
JZ
1232RP20
NO - STORE XON IN BUFFER

PAGE

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86
Customized Basic I/O System
1232RP18:
=296D 2E80A70100FE
AND
CS:QTFLAGS[BX] ,NOT QMSUSP
; ENABLE OUTPUT
=2973 C3
RET
AND EXIT
; STORE CHARACTER IN BUFFER
1232R.P20:
=2974 2E8A970200
MOV
DL,CS:QTNRCHR[BX]
GET NR. OF CHARS. IN BUFFER
=2979 2E3A970300
CMP
DL,CS:QTCAP[BX]
IS BUFFER FULL?
=297E 744C
29CC
JE
1232RP30
YES
=2980 2EFE870200
INC
CS:QTNRCHR[BX]
INCREMENT CHARACTER COUNT
=2985 2E8A970400
MOV
DL,CS:QTINPTR[BX]
GET INPUT POINTER
=298A 2EFE870400
CS:QTINPTR[BX]
INC
INCREMENT POINTER
=298F 2E3A970600
CMP
DL,CS:QTDEND[BX]
PAST END OF BUFFER?
=2994 7206
JB
1232RP26
NO
299C
=2996 2EC68704000A
MOV
CS:QTINPTR[BX],QTDATA
SET TO START OF BUFFER
1232RP26:
=299C 53
PUSH
BX
NEED TO SAVE POINTER
=299D 03DA
ADD
BX,DX
STORE UPDATED POINTER
MOV
CS: [BX] ,AL
; STORE CHARACTER
=299F 2E88870000
NOW SEE IF BUFFER IS MORE THAN HALF FULL AND IF XOFF/XON
IS SUPPORTED. IF BOTH, SEND AN XOFF.
=29A4 5B
POP
BX
TEST
CS:QTFLAGS[BX],QMTYPE
XOFF SUPPORTED?
=29A5 2EF687010002
GO AWAY IF NOT
JNZ
1232RP28
=29AB 751E
29CB
GET NO. OF CHARACTERS
MOV
DL,CS:QTNRCHR[BXj
=29AD 2E8A970200
DOUBLE IT
ADD
DL,DL
=29B2 02D2
MORE THAN HALF-FULL?
CMP
DL,CS:QTCAP[BXj
=29B4 2E3A970300
GO AWAY IF NOT
JBE
1232RP28
=29B9 7610
29CB
OUTPUT A XOFF
1232RP27:
CS:QTFLAGS[BXj ,QMISUSP
UNLESS INPUT IS ALREADY SUSP=29BB 2EF687010008
TEST
ENDED.
1232RP28
=29Cl 7508
29CB
JNZ
SUSPEND INPUT
CS:QTFLAGS[BX] ,QMISUSP
=29C3 2E808FOI0008
OR
1232RP32
OUTPUT IT
=29C9 EBOI
JMPS
29CC
1232RP28:
AND EXIT
RET
=29CB C3

PAGE

**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**

ERROR CONDITION ROUTINES

,
=29CC 2E8A970000
=29Dl EC
=29D2 A804
=29D4 74FB
=29D6 B013
=29D8 80EA02
=29DB EE
=29DC C3

BUFFER IS FULL, OR HALF-FULL, OR SOMETHING

1232RP30:
1232RP32:
MOV
1232RP33:
IN
TEST
29D1
JZ
MOV
SUB
OUT
RET

ENTER HERE FOR XOFF
DL,CS:QTPORT[BXj
AL,DX
AL,QMTXR
1232RP33
AL,QKXOFF
DL,2
DX,AL

BREAK CONDITION

AND EXIT

CP/M ASMB6 1.1
=

SOURCE: CPLBIOS.AB6
1232RP40:
MOV
OUT
MOV
OUT
SUB
IN
RET

=29DD BOlO
=29DF EE
=29EO B030
=29E2 EE
=29E3 BOEA02
=29E6 EC
=29E7 C3

Customized Basic I/O System
AL,QKRESI
DX,AL
AL,QKRESERR
DX,AL
DL,2
AL,DX

PAGE
RESET BREAK CONDITION
RESET ANY OTHER ERRORS
POINT TO DATA PORT
CLEAR INPUT

**********************************************************************
PHYSICAL DEVICE DRIVERS

**********************************************************************;
PTR: AND PTP: DRIVERS
PTRIN:
=29EB BB4927
=29EB E927FE

2B15

MOV
JMP

BX,OFFSET TCOMCB
P232IN

POINT TO CONTROL BLOCK

MOV
JMP

BX,OFFSET TCOMCB
P2320UT

POINT TO CONTROL BLOCK

MOV
JMP

BX,OFFSET TCOMCB
P232STI

POINT TO CONTROL BLOCK

MOV
JMP

BX,OFFSET TPRTCB
P232IN

POINT TO CONTROL BLOCK

MOV
JMP

BX,OFFSET TPRTCB
P2320UT

POINT TO CONTROL BLOCK

MOV
JMP

BX,OFFSET TPRTCB
P232STI

POINT TO CONTROL BLOCK

MOV
JMP

BX,OFFSET TPRTCB
P232STO

POINT TO CONTROL BLOCK

PTPOUT:
=29EE BB4927
=29F1 E96CFE

2B60
PTRST:

=29F4 BB4927
=29F7 E9B1FE

2BAB

TTY: DRIVERS
TTYIN:
=29FA BB1F27
=29FD E915FE

2B15
TTYOUT:

=2AOO BB1F27
=2A03 E95AFE

2B60
TTYSTI:

=2A06 BB1F27
=2A09 E99FFE

2BAB
TTYSTO:

=2AOC BB1F27
=2AOF E9A4FE

2BB6

CP/M ASM86 1.1
=

SOURCE: CPLBIOS.A86
Customized Basic I/O System
: NULL DEVICE DRIVERS

PAGE

;

=
=

OOlA

QKCTLZ

EQU

MOV'
RET

AL,QKCTLZ

: END OF FILE (CTL-Z)

;

PNULIN:
=2A12 BOlA
=2A14 C3
=

·,
RET
,
·PNULSTI:

INDICATE END OF FILE

PNULOUT:
=2A15 C3
=
=2A16 BOFF
=2A18 C3
=

MOV
RET

:
PNULSTO EQU

2A16

ACCEPT ALL CHARACTERS
AL,OFFH

INDICATE DEVICE READY

PNULSTI

=
BATCH drivers
;

=
=
=

29F4
29E8
26D5

BATST
BATIN
BATOUT

=
=
=

EQU
EQU
EQU

PTRST
PTRIN
CRTOUT

LPT: DRIVERS
;

2AOO
2AOC

LPTOUT
LPTSTO

EQU
EQU

TTYOUT
TTYSTO

=
=

·
,

=
=2A19 BB7327
=2AlC E9F6FD

UCl: DRIVERS

UClIN:
2815

MOV
JMP

BX,OFFSET TCOM2CB
P232IN

POINT TO CONTROL BLOCK

MOV
JMP

BX,OFFSET TCOM2CB
P2320UT

POINT TO CONTROL BLOCK

MOV
JMP

BX,OFFSET TCOM2CB
P232STI

POINT TO CONTROL BLOCK

;

=
=2AIF BB7327
=2A22 E93BFE
=
=
=2A25 BB7327
=2A28 E980FE

UClOUT:
2860
;

UClST:
28AB

,
=

2A19
2A25

URI: DRIVERS

URIIN
URlST

EQU
EQU

UCIIN
UClST

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86

Customized Basic I/O System

;
; UR2: DRIVERS
;

=
2A12
2A16

UR2IN
UR2ST

EQU
EQU

PNULIN
PNULSTI

;
; UP1: AND UP2: DRIVERS
;

2A1F
2A15

=
2A15
2A16

=2A2B 2EFF264E2A

UPlOUT
UP20UT

EQU
EQU

UClOUT
PNULOUT

;
; UL1:
;

DRIVERS

UL10UT
UL1ST

EQU
EQU

CONST:

jmp word ptr constjmp

CONIN:

;conso1e input
jmp word ptr coninjmp

=2A30 2EFF26502A

PNULOUT
PNULSTO

;conso1e status

=2A35 2EFF26522A
=
=2A3A 2EFF26582A
=
=2A3F 2EFF265A2A

CONOUT: jmp word ptr conoutjmp

;console output

LISTST: jmp word ptr liststjmp

;list device status

LISTOUT: jmp word ptr listoutjmp

;output to list device

=2A44 2EFF26562A

PUNCH:

;output to punch

=2A49 2EFF26542A

READER: jmp word ptr readerjmp

=2A4E 1227
==2A50 DF26
=2A52 0526
=2A54 E829
=2A56 EE29
=2A58 OC2A
=2A5A 002A

;Indirect jump table for I/O
constjmp
dw
CRTSTI
dw
CRTIN
coninjmp
conoutjmp
dw
CRTOUT
readerjmp
PTRIN
dw
PTPOUT
punchjmp
dw
LPTSTO
liststjmp
dw
LPTOUT
listoutjmp
dw

jmp word ptr punchjmp

=
=
GETIOBF:
=2A5C 2EAOO232
=2A60 C3
=
=2A61 2E880E0232

mov al,IOBYTE
ret
SETIOBF:
mov IOBYTE,c1

;set iobyte

;input from reader

PAGE

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86
Customized Basic I/O System
IF
NOT LOADER BIOS

PAGE

i-----------------------------------------------i
=2A66 BF4E2A
=2A69 BE8E2A
=2A6C E85700
=2A6F E86000
=2A72 E85DOO
=2A75 E85AOO
=2A78 E84BOO
=2A7B E85400
=2A7E E84500
=2A8l E84EOO
=2A84 E83FOO
=2A87 E84800
=2A8A E84500
=2A8D C3
=2A8E
=2A90
=2A92
=2A94

062A
1227
F429
252A

i I

2AC6
2AD2
2AD2
2AD2
2AC6
2AD2
2AC6
2AD2
2AC6
2AD2
2AD2

mov di,offset constjmp
mov si,offset iojtbl
call cioset
call iojset
call iojset
call iojset
call cioset
call iojset
call cioset
call iojset
call cioset
call iojset
call iojset
ret
dw
dw
dw
dw

TTYSTI
CRTSTI
BATST
UCIST

iCONST

=2A96 FA29
=2A98 DF26
=2A9A E829
=2A9C 192A
=
"'2A9E 002A
=2AAO D526
=2AA2 D526
=2AA4 lF2A

dw
dw
dw
dw

TTYIN
CRTIN
BATIN
UClIN

iCONIN

dw
dw
dw
dw

TTYOUT
CRTOUT
BATOUT
UClOUT

iCONOUT

=2AA6 FA29
=2AA8 E829
=2AAA 192A
=2AAC l22A

dw
dw
dw
dw

TTYIN
PTRIN
URIIN
UR2IN

iREADER

=2AAE
=2ABO
=2AB2
=2AB4

002A
EE29
lF2A
l52A

dw
dw
dw
dw

TTYOUT
PTPOUT
UPlOUT
UP20UT

iPUNCH

=2AB6
=2AB8
=2ABA
=2ABC

OC2A
lC27
OC2A
l62A

dw
dw
dw
dw

TTYSTO
CRTSTO
LPTSTO
ULIST

iLISTST

=2ABE
=2ACO
=2AC2
=2AC4

002A
D526
002A
l52A

dw
dw
dw
dw

TTYOUT
CRTOUT
LPTOUT
ULIOUT

iLPTOUT

iojtbl

I
i low two bits

iconst
iconin
iconout
isecond two bits
ireader
ithird two bits
iPunch
ihigh two bits
i listst
i listout

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86

Customized Basic I/O System

PAGE

=2AC6 BB0300
=2AC9 22D9
=2ACB 03DB
=2ACD DOE9
=2ACF DOE9
=2ADI C3

cioset: ;Set the offsets in bx according to the low two bits in cl
mov bx,3
land then rotate cl twice
and bl,cl
;
add bx,bx
;twice the number for offset
shr cl,l
;shift cl right •..
shr cl,l
;twice
ret

=2AD2
=2AD4
=2AD9
=2ADC

iojset: ;Move the appropriate entry from the jump list to the indirect
mov cs:ax,[bx+si]
;jump table and then increment the pointers
mov cs: [dil ,ax
;for the next call
add si,8
add di,2

8BOO
2E89850000
83C608
83C702

; 1

;1------------------------------------------------------I
ENDIF
;not loader_bios
=2ADF C3

ret
GETSEGT:

=2AEO BB5E33
=2AE3 C3

;return address of physical memory table
mov bx,offset seg_table
ret

,
VIDEO:
=2AE4 IE
=2AE5 06
=2AE6 51
=2AE7 52
=2AE8 BF0800
=2AEB CD28
=2AED 5D
=2AEE 8EDD
=2AFO 5E
=2AFI 8B04
=2AF3 8B5C02
=2AF6 8B4C04
=2AF9 8B5406
=2AFC 8B7408
=2AFF BF1400
=2B02 CD28
=2B04 BFOAOO
=2B07 CD28
=2B09 07
=2BOA IF
=2BOB C3

;Output video directly to PC-lOO via int 40
push ds
push es
push cx
push dx
mov di,8
int 40
turn cursor off
pop bp
mov ds,bp
pop si
mov ax, lsi]
mov bx,2[si]
mov cx,4[si]
mov dx,6[si]
mov si,8[sil
mov di,14h
int 40
move in the video
mov di,Oah
int 40
turn cursor on
pop es
pop ds
ret
INCLUDE CPLBLOK.LIB
SECTOR BLOCKING/DEBLOCKING

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86

Customized Basic I/O System

PAGE

Modified for CP/M 86/80
May 1982 by CPL (RK)

,.*****************************************************
,.*
*

0000

= 0004

0800
0200
OOOA
0004
FOOO

CP/M to host disk constants

,· *
*
;*****************************************************
una

equ

byte ptr [BX]

;name for byte at BX

equ
equ
equ
equ
equ
equ

4
2048
512
10
hstsiz/128
pb2_adr+xdefbuf

;four disks allowed
;CP/M allocation size
;host disk sector size
;host disk sectors/trk
;CP/M sects/host buff
;buffer in shared memory

;

nrdisks
blksiz
hstsiz
hstspt
hstblk
xfrbuf

,.*****************************************************

,· *

=
=
=

;* secshf is log2(hstblk), and is listed below for
;* values of hstsiz up to 2048.

0002
0028
0003

*
*
*
*

,.*
,.*
hstblk
secshf
hstsiz
,· *
256
2
1
*
,· *
512
2
4
*
,· *
1024
8
3
*
.*
4
,
2048
16
*
·, *
*
,.*****************************************************
secshf
cpmspt
secmsk

equ
equ
equ

2
;log2(hstblk)
hstblk * hstspt ;CP/M sectors/track
hstblk-l
;sector mask

;

,.*****************************************************
,.*

,.*

*
*

BOOS constants on entry to write

,.*****************************************************

0000
0001
0002

wrall
wrdir
wrual

equ
equ
equ

;write to allocated
;write to directory
;write to unallocated

1
2

;

,.************************************************
,.*
*
;*

BOOS function table beginning

,.*
*
,.************************************************
if not loader bios
OA80
22EA

bdos fEbl
bdos=dlog

equ
equ

Oa80h
22eah

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86
endif

Customized Basic I/O System
;not loader_bios

,
,.*****************************************************
,.*
*
,.*
The BIOS entry points given below show the
*
,.*
code which is relevant to deblocking only.
*
,.*
*

,.*****************************************************
seldsk:
=2BOC 80F904
=2BOF 7204
=2B11 BBOOOO
=2B14 C3

cmp cl,nrdisks
;valid disk number?
jb seldskl
;go ahead if ok
mov bx,O
;else zero bx
ret
land let bdos take care of it
;select disk
lis this the first activation of the drive?

2B15

seldskl:
=2B15
=2B19
=2BIB
=2BID
=2B20
=
=2B22
=2B24

2EAOFE2F
3CFF
7409
F6C201
7510
3ACI
750C

mov al,hstdsk
;which disk?
;absolutely first activation?
cmp al,Offh
;go clear host buffer
je seldsk2
test DL,l
;lsb = O?
jnz selset
; i f this is the first activation, clear host buff
;but is this the same disk?
cmp al,cl
;if not, don't
jne selset

2B26
2B32
2B32
seldsk2:

=2B26 2EC606033000
=2B2C 2EC606053000

mov hstact,O
mov unacnt,O
selset:

=2B32 8ACl98
=2B35 2EA2FA2F
=2B39 BI04D2EO
=2B3D 051330
=2B40 8BD8

=2B42
=2B43
=2B44
=2B48
=2B4A
=2B4C
=2B4D
=2B4E
=2B51
=2B53
=2B55
=2B57
=2B5D
=2B61
=2B63

52
53
8BIEEA22
OBDB
7420
2B6C
5B
53
83C30A
8BIF
OBDB
7424
2B7B
2EC606123000
81FB5330
7406
2B69
2EC606123002

mov al,cl ! cbw
mov sekdsk,al
mov cl,4 ! shl al,cl
add ax,offset dpbase
mov bx,ax
if not loader bios

;put in AX
;seek disk number
;times 16

'~--~~--~~~--~~------------~--~~~~~--~~~
;check
for Robin media on any unallocated disk called
push dx
;save dx and bx
push bx
mov bx,word ptr .bdos dlog
;get allocation vector
or bx,bx
;any allocated?
jz seIdl
;skip ahead if none
pop bx
;else find out •••
push bx
;
add bx,Oah
;if this disk has been checked
mov bx,[bxl
;get dpb offset
or bx,bx
;zero? not checked yet
jz seld2
;go check it if so
mov mediatype,O
;assume Rainbow
cmp bx,dpbO
lis it really?
jz seldO
;move on if so
mov mediatype,2
;else mark as Robin

PAGE

CP/M ASM86 1.1
=2B69 5B
=2B6A SA
=286B C3

SOURCE: CPLBIOS.A86
Customized Basic I/O System
seldO: pop bx
ithen •.•
pop dx
i
ret
ireturn

=2B6C 33CO
=2B6E BBl030
=2B71 B90400
=2B74 8907
=2B76 83C3l0
=2B79 E2F9
=2B7B B8l500
=2B7E 50
=2B7F 2EAOFA2F
=2B83 BIOS
=2B85 03CO
=2B87 50
=2B88 B90200
=2B8B E827FA
=2B8E 58
=2B8F 58
=2B90 330B
=2B92 2E8826l230
=2B97 8AOC
=2B99 8lC39930
=2B90 8B17
=2B9F 5B
=2BAO 53
=2BAl 83C30A
=2BA4 8917
=2BA6 5B
=2BA7 SA

seIdl:

xor ax,ax
izero all dpb's
mov bx,offset dpbase+Oah
idpb offset from base
mov cx,nrdisks
iloop for all disks

seldll: mov [bxJ,ax
add bx,lOh
2B74
loop seIdl 1
seld2:

25B5

mov ax,15h
push ax
mov al,sekdsk
mov cl,5
rol ax,cl
push ax
mov cx,2
call packer
pop ax
pop ax
xor bx,bx
mov mediatype,ah
mov bl,ah
add bx,mediatbl
mov dx, [bxJ
pop bx
push bx
add bx,Oah
mov [bxJ ,dx
pop bx
pop dx
endif
ret

=2BA8 C3

izero a dpb
iget the next one
iloop till done
:get media type
ivia packer
iget disk number back again
and put in proper
position for packet
i

imove 2 words
:discard drive number
:ah has status/media type
:clean out a register
:mark the media type
:get the type {Rainbow = 0, robin
:add the table address
:get contents of table
:get dpb pointer
:put address ilnto pointer
:get return data

:not loader bios

home:
:home the selected disk
mov al,hstwrt
:check for pending write
test al,al
jnz homed
mov hstact,O
:clear host active flag

=2BA9 2EA00430
=2BAD 84CO
=2BAF 7506
2BB7
=2BBl 2EC606033000
homed:

:now, set track zero
mov cx,O
(continue HOME routine)

=2BB7 B90000

:
settrk:
=2BBA 2E890EFB2F
=2BBF C3
=

PAGE

:set track given by registers CX
mov sektrk,CX
:track to seek
ret

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86
Customized'Basic I/O System
setsec:
;set sector given by register c1
=2BCO 2E880EFD2F
mov seksec,c1
;sector to seek
=2BC5 C3
ret

PAGE

;

setdma:
;set dma address given by CX
mov dmc_off,CX
ret

=2BC6 2E890E1030
=2BCB C3
setdmab:

;set segment address given by CX
mov dma_seg,CX
ret

=2BCC 2E890EOE30
=2BD1 C3
;

sectran:
=2BD2 85D2
=2BD4 7409
=2BD6 8BD9
=2BD8 03DA
=2BDA 8A1F
=2BDC B700
=2BDE C3

;trans1ate sector number CX with table at [DX]
test DX,DX
;test for hard skewed
; (blocked must be hard skewed)
jz notran
mov BX,CX
add BX,DX
mov BL, [BX]
mov BH,O
;*** be compatible with 86/80
ret

2BDF

(fix 5/21/82) ***

no tran:
;hard skewed disk, physical
mov BX,CX
ret

=2BDF 8BD9
=2BE1 C3

logical sector

;

read:
=2BE2 2EC606053000
=2BE8 2EC6060C3001
=2BEE 2EC6060B3001
=2BF4 2EC6060D3002
=2BFA E9A800
2CA5

;read the selected CP/M sector
mov unacnt,O
;clear unallocated counter
mov readop,l
;read operation
mov rsf1ag,1
;must read data
mov wrtype,wrual
;treat as una110c
jmp rwoper
ito perform the read

write:
;write the selected CP/M sector
if not loader bios

=2BFD 2EF6061230FF
=2C03 7413
=2C05 BBOB33
=2C08 E804FA
=2COB E89B03
=2COE BB5432
=2Cll E8FBF9
=2C14 B80100
=2C17 C3

,------------------------------------------------------.,
test mediatype,Offh
jz okwrite
mov bx,offset unabl
call pmsg
call prthst
mov bx,offset endlin
call pmsg
mov ax,l
ret

2C18
260F
2FA9
260F
okwrite:

;is this Rainbow media?
;go write if so
; 'unable to write •.• '
;print it
;print drive no.
,
;print cr,lf.
;mark for error
;return

CP/M ASM86 1.1
=2C18
=2CIE
=2C23
=2C26

SOURCE: CPLBIOS.A86
Customized Basic I/O System
endif
:not loader_bios
2EC6060C3000
mov readop,O
:write operation
2E880EOD30
mov wrtype,cl
80F902
cmp cl,wrual
:write unallocated?
751E
2C46
jnz chkuna
:check for unalloc
write to unallocated, set parameters

=2C28
=2C2E
=2C32
=2C36
=2C3A
=2C3E
=2C42

2EC606053010
2EAOFA2F
2EA20630
2EAIFB2F
2EA30730
2EAOFD2F
2EA20930

mov
mov
mov
mov
mov
mov
mov

unacnt,(blksiz/128)
al,sekdsk
unadsk,al
ax,sektrk
unatrk,ax
al,seksec
unasec,al

:next unalloc recs
:disk to seek
:tinadsk
sekdsk
:unatrk

sektrk

:unasec

seksec

chkuna:
:check for write to unallocated sector
=2C46 BB0530
=2C49 8A0784CO
=2C4D 744A

2C99

mov bx ,offset unacnt
:point "UNA" at UNACNT
mov al,una ! test al,al :any unalloc remain?
jz alloc
:skip if not

2C99

more unallocated records remain
dec al
:unacnt = unacnt-l
mov una,al
mov al,sekdsk
:same disk?
mov BX,offset unadsk
cmp al,una
:sekdsk = unadsk?
jnz alloc
:skip if not

2C99

disks are the same
mov AX, unatrk
cmp AX, sektrk
jnz alloc

:skip if not

=2C69 2EAOFD2F

tracks are the same
mov al,seksec

:same sector?

=2C6D BB0930

mov BX,offset unasec

:point una at una sec

cmp al,una
jnz alloc

:seksec = unasec?
:skip if not

=2C4F FEC8
=2C51 8807
=2C53 2EAOFA2F
=2C57 BB0630
=2C5A 3A07
=2C5C 753B
=2C5E 2EAI0730
=2C62 2E3B06FB2F
=2C67 7530

=2C70 3A07
=2C72 7525

2C99

match, move to next sector for future ref
(Code modified for skewed sectors)
=2C74
=2C76
=2C78
=2C79
=2C7C

8CD9
8ECI
FC
B92700
BF6230

mov cx,ds
mov es,cx
cld
mov cx,cpmspt-l
mov di,xltO

set up ES
scan forward
set count for scan
point to translate table

PAGE

CP/M ASM86 1.1
=2C7F F2AE
=2C8l E306
=2C83 8A05
=2C85 8807
=2C87 EB08

Customized Basic I/O System
SOURCE: CPLBIOS.A86
repne scasb
scan for sector number
2C89
jcxz ovf
didn't find it
get nr of next sector
moval,[dil
mov una,al
2C9l
jmps noovf
overflow to next track
ovf:

=2C89 C60700
=2C8C 2EFF060730

mov una,O
inc unatrk

~unasec = 0
~unatrk=unatrk+l

noovf:
~match found, mark as unnecessary read
mov rsflag,O
~rsflag = 0
jmps rwoper
~to perform the write

=2C9l 2EC6060B3000
=2C97 EBOC
2CA5
~

alloc:
~not an unallocated record, requires pre-read
~unacnt = 0
mov unacnt,O
mov rsflag,l
~ rsflag = 1
~drop through to rwoper

=2C99 2EC606053000
=2C9F 2EC6060B3001

,
,.*****************************************************

., *
*
~*
Common code for READ and WRITE follows
*
,. *
*
,.*****************************************************

rwoper:
=2CA5 2EC6060A3000
=2CAB 2EAOFD2F
=2CAF BI02
=2CBl D2E8
=2CB3 FECO
=2CB5 2EA20230

~enter here to perform the read/write
~no errors (yet)
mov erflag,O
~compute host sector
mov aI, seksec
mov cl, secshf
shr al,cl
~*** added for I-based sectors ***
inc al
mov sekhst,al
~host sector to seek

=2CB9 BOOI
=2CBB 2E86060330
=2CCO 84CO
=2CC2 7437

2CFB

active host sector?
mov al,1
xchg al,hstact
test al,al
j z filhst

2CE5

host buffer active, same as seek buffer?
mov al,sekdsk
cmp al,hstdsk
isekdsk = hstdsk?
jnz nomatch

2CE5

same disk, same track?
mov ax,hsttrk
cmp ax,sektrk
jnz nomatch

=2CC4 2EAOFA2F
=2CC8 2E3A06FE2F
=2CCD 7516
=2CCF 2EAlFF2F
=2CD3 2E3B06FB2F
=2CD8 750B

~aIways
~was it
~fill

becomes I
already?
host if not

ihost track same as seek track

PAGE

CP/M ASM86 1.1

SOURCE: CPLBIOS.A86
Customized Basic I/O System
same disk, same track, same buffer?
=2CDA 2EA00230
mov al,sekhst
=2CDE 2E3A060130
cmp al,hstsec
;sekhst = hstsec?
=2CE3 744A
2D2F
jz match
; skip if match
nomatch:
;proper disk, but not correct sector
=2CE5 2EA00430
mov aI, hstwrt
=2CE9 84CO
test al,al
;"dirty" buffer?
=2CEB 740E
2CFB
jz filhst
;no, don't need to write
=2CED E87BOI
2E6B
call wr i tehst
;yes, clear host buff
(check errors here)
=2CFO 2EAOOA30
mov al,erflag
=2CF4 OACO
or al,al
;any?
=2CF6 7403
2CFB
jz filhst
;skip if none
=2CF8 E99700
2D92
jmp return rw
;exi t if so
;

filhst:
;may have to fill the host buffer
mov al,sekdsk
mov hstdsk,al

=2CFB 2EAOFA2F2EA2
FE2F
=2D03 2EAIFB2F2EA3
FF2F
=2DOB 2EA002302EA2
0130
=2D13 2EAOOB30
=2D17 84CO
=2D19 740E
2D29
=2DIB E8A301

2ECI

=2DIE 2EAOOA30
=2022 OACO
=2024 7403
=2D26 E96900

2D29
2D92

mov ax,sektrk

mov hsttrk,ax

mov al,sekhst

mov hstsec,al

mov al,rsflag
test al,al
jz filhstl

;need to read?

call readhst
(check errors here)
mov al,erflag
or al,al
jz filhstl
jmp return_rw

;yes, if 1

mov hstwrt,O

;no pending write

;any?
;skip if none
;exit if so

filhstl :
=2029 2EC606043000

,
match:

=2D2F 2EAOFD2F
=2D33 250300
=2D36 BI07D3EO

;copy data to or from buffer depending on "readop"
mov al,seksec
;mask buffer number
and ax,secmsk
;least signif bits are masked
mov cl, 7 ! shl ax,cl
;shift left 7 (* 128 = 2**7)
ax has relative host buffer offset

=2D3A 2E03064725
=2D3F 05A200
=2042 8BFO
=2D44 2E8B3EI030

add ax,dbptr
add ax, xshrbuf
mov si,ax
mov di ,dma_off

;put in source index register
;user buffer is dest if readop

=2D49 lE06

push DS ! push ES

;save segment registers

; address of data block
;*** new buffer for CP/M 86/80 ***

PAGE

CP/M ASMS6 1.1

SOURCE: CPLBIOS.AS6

=2D4B 2ESE060E30

mov ES,dma seg

=2050 2BCO
=2D52 SEOS
=2054 B98000
=2057 2EAOOC30
=205B S4CO
=2050 7511

sub ax,ax
mov ds,ax
mov cx,12S
mov al,readop
test al,al
jnz
rwmovx

2070

PAGE

Customized Basic I/O System
;set destseg to the users seg
;SI/DI and OS/ES is swapped
; if write op
;*** added for CP/M S6/S0 ***
;which needs ds=O (*** end add ***)
;length of move in bytes
;which way?
; skip i f read

=205F 2EC606043001
=2065 87F7
=2067 SC08
=2069 SECO
=206B 2E8ElEOE30
=2070 ES2000
2093 rwmovx:

write operation, mark and switch direction
;hstwrt = 1 (dirty buffer now)
mov hstwrt,l
xchg si,di
;source/dest index swap
mov ax,OS
mov ES ,ax
;setup OS,ES for write
mov OS,dma seg
call rwmove

=2073 071F

pop ES ! pop OS

movdone:
data has been moved to/from host buffer
;write type to directory?
cmp wrtype,wrdir
;in case of errors
mov al,erflag
;no further processing
jnz return rw

=2075 2E803E003001
=207B 2EAOOA30
=207F 7511
2092
=2081
=2083
=2085
=208B
=20SE

;restore segment registers

;

84CO
7500
2092
2EC606043000
E80000
2E6B
2EAOOA30

=2092 C3

clear host buffer for directory write
;errors?
test al,al
; skip i f so
jnz return rw
;buffer written
mov hstwrt~O
call writehst
mov al,erflag
return rw:
ret

,
,.************************************************
;*
this subroutine is made available
*
;*

for other parts of CP/M.

,.************************************************
rwmove:
if not loader bios

i-------------------------------------------Added for PClOO -- RK/CPL
4/l3/S2
test Z80FLAG,true
is z80 running?

=2093 2EF7064E25FF
FF
=209A 7503
209F
=209C E9C800
2E67
=209F 51

rwml:

jnz rwml
jmp move88

;normal move if z80 not running

push cx

;preserve the count

;

CP/M ASMS6 1.1
=2DAO SBC1
=2DA2 8CDB
=2DA4 8CC2
=2DA6 F7C380FF
=2DAA 750C
=2DAC B104
=2DAE D3E3
=2DBO 03DE
=2DB2 81FB0008
=2DB6 7251
=2DB8 F7C280FF
=2DBC 7403
=2DBE E9A500
=2DC1 B104
=2DC3 D3E2
=2DC5 03D7
=2DC7 SlFAO008
=2DCB 7203
=2DCD E99600
=2DDO
=2DD2
=2DD6
=2DD8
=2DDA
=2DDC
=2DDE
=2DEO
=2DE2

8CDB
F7C300FO
750C
B104
D3E3
03DE
7204
03D8
735D

=2DE4 59
=2DE5 81F98000
=2DE9 7603
=2DEB B98000
=2DEE IE
=2DEF 51
=2DFO 06
=2DF1 57
=2DF2 33CO
=2DF4 SECO
=2DF6 BFOOFD
=2DF9 E86BOO
=2DFC 5F
=2DFD 07
=2DFE 8ED8
=2EOO BEOOFD
=2E03 59
=2E04 E83BOO
=2E07 IF
=2E08 C3
=

SOURCE: CPLBIOS.A86
Customized Basic I/O System
mov ax,cx
;get the count into accum
mov bx,ds
;check the source segment
mov dx,es
land destination segment
test bx,Off80h
lout of Z80 private?
2DB8
jnz nsz80p
;jump ahead if it is
mov c1,4
;set for shl
sh1 bx,cl
;mult by 16
add bx,si
;get absolute address for Z80
cmp bx,800h
lin z80 pvt?
2E09
jb sz80p
;jump ahead so
nsz80p: test dx,Off80h
jz nsz1
jrnp notz80
nsz1:
mov cl,4
shl dx,cl
add dx,di
cmp dx,800h
2DDO
jb dz80p
2E66
jmp notz80
2DC1
2E66

dzROp:
2DE4

2DE4
2E41

mov bx,ds
test bx,OfOOOh
jnz dzs88p
mov c1;4
shl bx,cl
add bx,si
jc dzs88p
add bx,ax
jnc notSR

dzs88p: pop cx
cmp cx,12S
2DEE
jbe dzs1
mov cx,12S
dzs1:
push ds
push cx
push es
push di
xor ax,ax
mov es,ax
mov di,xfrbuf
2E67
call move88
pop di
pop es
mov ds,ax
mov si,xfrbuf
pop cx
call movz80
2E42
pop ds
ret

;source is not z80 private.
;

;jump ahead if destination isn't, either
;set for sh1
;mu1 dest seg by 16
;create absolute address
;dest in zao pvt?
;jump ahead if not
;destination is in zSO pvt, source isn't
;check for source in SOS8 pvt
;dest z80, source 80SS.
;

;absolute source
;dest z80, source S08S.
;how about the end of the source?
;z80 move if low enough
;dest in zSO pvt, source in SOSS pvt
lis count too big?
;

;make it maximum if so
;save ds for later
;save count for later
;zero
;the destination segment
;destination is buffer
;move source to buffer
;zero the source segment
;source is buffer
;

;move buffer to destination after restoring ex
;restore ds

PAGE

CP/M ASM86 1.1
=2E09 8CC2
=2E06 F7C200FO
=2EOF 750C
=2Ell Bl04
=2E13 D3E2
=2E15 03D7
=2E17 7204
=2E19 03DO
=2ElB 7324
=2ElD 59
=2ElE 8lF98000
=2E22 7603
=2E24 B98000
=2E27 IE
=2E28 51
=2E29 06
=2E2A 57
=2E2B 33CO
=2E2D 8ECO
=2E2F BFOOFD
=2E32 E80DOO
=2E35 SF
=2E36 07
=2E37 8ED8
=2E39 BEOOFD
=2E3C E82800
=2E3F IF.
=2E40 C3
=2E4l 59
=2E42 8CDB
=2E44 8CC2
=2E46 51
=2E47 Bl04
=2E49 D3E3
=2E4B D3E2
=2E4D 03DE
=2E4F 03D7
=2E5l B82200
=2E54 59
=2E55 50
=2E56 53
=2E57 52
=2E58 51
=2E59 690400
=2E5C 32CO
=2E5E E854F7
=2E61 58
=2E62 58
=2E63 58

SOURCE: CPLBIOS.A86
Customized Basic I/O System
sz80p: mov dx,es
1source is in z80 pvt, destination isn't
test dx,OfOOOh
1check for destination in 8088 pvt
2ElD
jnz d88szp
1dest 8088, source z80.
mov cl,4
shl dx,cl
1
add dx,di
1absolute destination
2ElD
jc d88szp
1source z80, destination 8088.
add dx,ax
1how about the end of the destination?
2E4l
jnc not88
1z80 move if low enough
d88szp: pop cx
cmp cJS,128
2E27
jbe d88sl
mov cx,128
d88sl: push ds
push cx
push es
push di
xor ax,ax
mov es,ax
mov di,xfrbuf
2E42
call movz80
pop di
pop es
mov ds,ax
mov si,xfrbuf
2E67
call move88
pop ds
ret
not88:

pop cx

movz80: mov bx,ds
mov dx,es
push cx
mov cl,4
shl bx,cl
shl dx,cl
add bx,si
add dx,di
mov ax,22h
pop cx
push ax
push bx
push dx
push cx
mov cx,0004
xor al,al
2585
call packer
pop ax
pop ax
pop ax

1dest in z80 pvt, source in 8088 pvt
1is count too big?

1make it maximum if so
1save ds for later
1save count for later
1zero
1the destination segment
1destination is buffer
1move source to buffer
1zero the source segment
1source is buffer
1move buffer to destination after restoring cx
1restore ds
1do a z80 move and exit
1Z80 move to emulate 8088 move

1bx has source absolute
1dx has destination absolute
1function: transfer •••
1to Z80 move routine
1via packer
1

14 words stacked
1zero for Z80 wait
1call interface layer
1after return,
1level the stack

PAGE

CP/M ASM86 1.1
=2E64 58
=2E65 C3

SOURCE: CPLBIOS.A86
Customized Basic I/O System
pop ax
ret
;go past 8088 move

=2E66 59

PAGE

notz80: pop cx

;don't use z80 move

move88:

;continue to normal -- end of additiion

i----------------------------------------------------- -endif
=2E67 FCF3A4
=2E6A C3

cld
ret

;not loader_bios
rep movs AL,AL

;move as bytes
lend of move subroutine

,.*****************************************************
,.*
*
;* WRITEHST performs the physical write to the host
;* disk, while READHST reads the physical disk.

., *

,.*****************************************************

;1------------------------------------------------------I
; 1 Code added for pclOO, CP/M 86/80 4/13/82
1
=2E6B B81400
=2E6E E84901
=2E71 F6C4FC
=2E74 7501
=2E76 C3

writehst:
rewhst: mov ax,0014h
2FBA
call rwhst
test ah,Ofch
jnz wragain
2E77
ret
wragain:

=2E77 F6C480
=2E7A 7514
=2E7C F6C440
=2E7F 7531
=2E81 F6C401
=2E84 7510
=2E86 BBC632
=2E89 E883F7
=2E8C E8CDOO
=2E8F C3
=2E90 E87000
=2E93 74D6
=2E95 C3
=2E96 BBDE32
=2E99 E873F7
=2E9C E80AOI
=2E9F BB3233
=2EA2 E86AF7
=2EA5 2EAIFF2F
=2EA9 E8EOOO

2E90
2EB2
2E96
260F
2F5C
2F03 wnrdy:
2E6B

test ah,80h
jnz wnrdy
test ah,40h
jnz writeprot
test ah,l
jnz wrsker
mov bx,offset biwmsg
call pmsg
call rwerr
ret
call notready
jz rewhst
ret

wrsker: mov bx,offset skmsg
call pmsg
call prthst
mov bx,offset trkmsg
260F
call pmsg
mov ax,hsttrk
2FBC
call decprt
260F
2FA9

;try once (or retry)
;

;check for error
;try if any error
;else it's done
;If at first .•.
lis the drive ready?
;error i f not
lis drive write-protected?
;error i f so
;seek error
;then give up.
;no sense making a fool of yourself
;print messages
;disk not ready, print message
;try again if so directed
;else return with error

;print drive number
;print 'track'
;get track number
;print decimal

CP/M ASM86 1.1
=2EAC E85DOO
=2EAF 74BA
=2EBI C3

PAGE

SOURCE: CPLBIOS.A86
Customized Basic I/O System
2FOC
call kqery
2E6B
jz rewhst
itry again?
ret
ior return with error

=2EB2 BB9332
=2EB5 E857F7
=2EB8 E8EEOO
=2EBB E84EOO
=2EBE 74AB
=2ECO C3

writeprot:
mov bx,offset wpmsg
260F
call pmsg
2FA9
call prthst
2FOC
call kqery
2E6B
jz rewhst
ret

=2ECI B8l300
=2EC4 E8F300
=2EC7 F6C4FC
=2ECA 7501
=2ECC C3

readhst:
rerhst: mov ax,0013h
2FBA
call rwhst
test ah,Ofch
2ECD
jnz rdagain
ret

idisk is write-protected
iprint error message
iprint which one
icheck keys
itry again if directed
ielse return with bios error

=2ECD F6C480
=2EDO 750F
=2ED2 F6C401
=2ED5 7510
=2ED7 BBAF32
=2EDA E832F7
=2EDD E87COO
=2EEO C3
=2EEI E8lFOO
=QEE4 74DB
=2EE6 C3
=2EE7 BBDE32
=2EEA E822F7
=2EED E8B900
=2EFO BB3233
=2EF3 E8l9F7
=2EF6 2EAlFF2F
=2EFA E88FOO
=2EFD E80COO
=2FOO 74BF
=2F02 C3
=2F03 BBF532
=2F06 E806F7
=2F09 E89DOO

icheck for error
ijump ahead if error

ielse you're done

rdagain:
test ah,80h
jnz rdnrdy
test ah,l
jnz rdsker
mov bx,offset birmsg
call pmsg
call rwerr
ret

2EEI
2EE7
260F
2F5C

2F03 rdnrdy: call notready
2ECI
jz readhst
ret
260F
2FA9
260F
2F8C
2FOC
2ECI

rdsker: mov bx,offset skmsg
call pmsg
call prthst
mov bx,offset trkmsg
call pmsg
mov ax,hsttrk
call decprt
call kqery
jz rerhst
ret

notready:
mov bx,offset nrmsg
260F
call pmsg
2FA9
call prthst
kqery:

=2FOC BB0632

iask interface layer

mov bx,offset kqmsg

idrive ready?

igo away if not
iseek error?
itake care of it
ithen give up.
iprint an error message
iprint messages
inot ready -- print message, etc.
itry again if directed
ielse return with error

iprint drive number
iprint 'track'
iget track number
iprint decimal
itry again?

ior return with error
iroutine to print "not ready"
iget message address
iprint it then fall through •.•
iprint which one
iroutine to check keyboard for
istandard keyboard message

CP/M ASMS6 1.1 SOURCE: CPLBIOS.AS6
Customized Basic I/O System
=2FOF ESFDF6
260F
call pmsg
iprint it
=2F12 ESIBFB
2A30
call CONIN
iget character
=2F15 3C03
cmp al,03
ictrl c?
=2F17 7523
2F3C
jnz kgnex
iskip ahead if .lOt
=2F19 2EC606053000
mov unacnt,O
iclear write flags
=2FIF 2EC606033000
mov hstact,O
=2F25 2EC6060D3002
mov wrtype,wrual
if not loader bios
=2F2B 2EC7064E2500
00
=2F32 ES3AF7
266F
=2F35 SAOEB724
=2F39 E9C7DO
0003

i----------------------------------------------------- -mov ZSOFLAG,false

iclear zSO flag

call revector
istart over if so
mov cl,byte ptr .curdrvs
jmp ccp+3
igo back to ccp

j-------------------------------------------------------

endif inot loader bios
if loader bios

i----------------------------------------------------- -jmp WBOOT

i----------------------------------------------------- -=2F3C
=2F3E
=2F40
=2F42
=2F43
=2F49
=2F4F
=2F55
=2F5B

endif iloader bios
3C20
kqnex:
cmp aI,' ,
7503
2F43
jnz kgret
32CO
xor al,al
C3
ret
2EC6060A3001
kqret: mov erflag,l
2EC606053000
mov unacnt,O
2EC606033000
mov hstact,O
2EC6060D3002
mov wrtype,wrual
C3
ret

ispace bar for retry
iother key for error return
izero it
ierror code
iclear write flags
i

ielse return

.******************************************

.*
I

print disk, track, sector

,.*
.******************************************
I

=2F5C EB4AOO
=2F5F BB3233
=2F62 EBAAF6
=2F65 2EAIFF2F
=2F69 EB2000
=2F6C BB3B33
=2F6F E89DF6
=2F72 2EAOO130
=2F76 32E4
=2F7B EBllOO
=2F7B BB5732
=2F7E EBBEF6
=2F81 EBACFA
=2F84 3COD
=2F86 7501

2FA9 rwerr:
260F
2FBC
260F
2FBC
260F
2A30
2FB9

call prthst
mov bx,offset trkmsg
call pmsg
mov ax,hsttrk
call decprt
mov bx,offset secmsg
call pmsg
mov a1,hstsec
xor ah,ah
call decprt
mov bx,offset kqxmsg
call pmsg
call CONIN
cmp al,cr
jne rwmker

iprint disk":"
iprint" TRACK "
iprint track no.
iprint

" SECTOR "

iprint sector no.
iask for options
i

icarriage return?
imark error if not

PAGE

CP/M ASM86 1.1
=2F88 C3
=2F89 E9B7FF

SOURCE: CPLBIOS.A86
Customized Basic I/O System
ret
:ignore i f return
2F43 rwmker: jmp kqret
:return with marked error

=2F8C 33C9
=2F8E 33D2
=2F90 BBOAOO
=2F93 F7F3
=2F95 41
=2F96 52
=2F97 OBCO
=2F99 75F3
=2F9B 5A
=2F9C 51
=2F9D 8ACA
=2F9F 80C130
=2FA2 E890FA
=2FA5 59
=2FA6 E2F3
=2FAB C3

decprt: :enter with number to be printed in ax
xor cx,cx
:count digits in cx
rediv: xor dx,dx
:clear the remainder
mov bx,10
div bx
:divide by 10
inc cx
:bump the count
push dx
istore digit
or ax,ax
:any more?
2F8E
jnz rediv
:loop i f so
redout: pop dx
ithe last shall be first
push cx
istore the count
mov cl,dl
:remainder in dl to cl
add c 1, '0 '
:ascii number
2A35
call CONOUT
:print digit
pop cx
:get the count
2F9B
loop redout
:loop back if more
ret
:else return

=2FA9 2E8AOEFE2F
=2FAE 80C14l
=2FBI E88lFA
=2FB4 B13A
=2FB6 E87CFA
=2FB9 C3

prthst: iprint disk, A:, B:, etc.
mov cl,hstdsk
:get the number
add cl,'A'
2A35
call CONOUT
iPrint it
mov cl,':'
2A35
call CONOUT
:print a colon
ret

,.******************************************

., *
:*
., *

read/write from host

,.******************************************

=2FBA 50
=2FBB B400
=2FBD Bl04
=2FBF 2EAOFE2F
=2FC3 D3CO
=2FC5 BB1330
=2FC8 03D8
=2FCA 8B17
"'''FCC 2E8AlE0130
=2FDI DlCO
=2FD3 80E3lF
=2FD6 OAC3
=2FD8 2E8BlEFF2F
=2F.DD 8AE3
=2FDF 50
=2FEO 2EA14725
=2FE4 05A200

rwhst:

push ax
mov ah,O
mov cl,4
mov al,hstdsk
rol ax,cl
mov bx,offset dpbase
add bx,ax
mov dx, [bx]
mov bl,hstsec
rol ax,l
and bl, lfh
or al,bl
mov bx,hsttrk
mov ah,bl
push ax
mov ax,dbptr
add ax,xshrbuf

:function set for packer
iclear high
:set for rol
:disk number
:times 32
:get disk data address
:for this disk
:get pointer in dx
;host sector
;rotate drive once more
imask sector number (j ic)
;combine sector
:and track
lin one byte
istack for packer (2 )
; point to data block
;point to buffer

PAGE

CP/M ASM86 1.1
=2FE7 50
=2FE8 B80100
=2FEB 50
=2FEC B80000
=2FEF B90400
=2FF2 E8COF5
=2FF5 58
=2FF6 58
=2FF7 58
=2FF8 58
=2FF9 C3

PAGE

SOURCE: CPLBIOS.A86
Customized Basic I/O System
push ax
i (3)
mov ax,OOOl
push ax
i (4)
mov ax,O
iwait for z80
mov cx,4
i4 words for packer
,
25B5
call packer
pop ax
ilevel the stack
pop ax
pop ax
pop ax
ret
igo away when done

i
i
i

1 End of added code
1
1------------------------------------------------------1

,.*****************************************************

·, *

i* Use the GENOEF utility to create disk def tables

·,, *
*
.*****************************************************
idpbase equ
offset $
disk parameter tables go here

,.*****************************************************
,.*
,.* Uninitialized RAM areas follow, including the
**

;* areas created by the GENOEF utility listed above. *
·,,.*****************************************************
*
*
=2FFA
=2FFB
=2FFO

sek dsk rb
sek-trk rw
sek-sec rb

;seek disk number

1
1

iseek track number

=2FFE FF
=2FFF
=3001

hst dsk db
hst trk rw
hst sec rb

Offh
1
1

;host disk number
;host track number
ihost sector number

=3002
=3003
=3004

sek hst rb
hst act rb
hst-wrt rb

1
1
1

iseek shr secshf
ihost active flag
ihost written flag

=3005
=3006
=3007
=3009

una cnt
una-dsk
una-trk
una sec

rb
rb
rw
rb

1
1
1
1

iunalloc rec cnt
;last unalloc disk
ilast unalloc track
ilast unalloc sector

rb
rb
rb
rb

1
1
1
1

ierror reporting
iread sector flag
; 1 i f read operation
;write operation type

;seek sector number

;

=300A
=300B
=300C
=3000

erflag
rsflag
readop
wrtype

CP/M ASM86 1.1
=300E
=3010
=3012

3013
=3013 62300000
=3017 00000000
=301B 9D305330
=301F 36311D31
=3023 62300000
=3027 00000000
=302B 9D305330
=302F 6F315631
=3033 62300000
=3037 00000000
=303B 9D305330
=303F A8318F31
=3043 62300000
=3047 00000000
=304B 9D305330
=304F E131C831
3053
=3053 2800
=3055 04
=3056 OF
=3057 01
=3058 C200
=305A 7FOO
=305C CO
=305D 00
=305E 2000
=3060 0200
3062
=3062 00010203
=3066 08090AOB
=306A 10111213
=306E 18191A1B
=3072 20212223
=3076 04050607
=307A OCODOEOF
=307E 14151617
=3082 1ClD1E1F
=3086 24252627
0019
0020

SOURCE: CPLBIOS.A86
Customized Basic I/O System
dma seg rw
1
11ast dma segment
dma-off rw
1
11ast dma offset
medlatype rb
1
1Rainbow or Robin media
1hstbuf rb
hstsiz
1host buffer (not in CP/M 86/80)
end
INCLUDE CAT.LIB
,
DISKS 5
dpbase equ
$
1Base of Disk Parameter Blocks
dpeO
dw
xltO,OOOOh
1Translate Table
dw
OOOOh,OOOOh
1Scratch Area
dirbuf,dpbO
1Dir Buff, Parm Block
dw
dw
csvO,alvO
1Check, Alloc Vectors
dpe1
dw
xltl,OOOOh
1Translate Table
dw
OOOOh,OOOOh
1Scratch Area
dw
dirbuf,dpbl
1Dir Buff, Parm Block
csv1,alv1
1Check, Alloc Vectors
dw
dpe2
dw
xlt2,0000h
1Translate Table
dw
OOOOh,OOOOh
1Scratch Area
dirbuf,dpb2
1Dir Buff, Parm Block
dw
csv2,alv2
1Check, Alloc Vectors
dw
dw
xlt3,0000h
1Translate Table
dpe3
dw
OOOOh,OOOOh
1Scratch Area
dw
dirbuf,dpb3
1Dir Buff, Parm Block
csv3,alv3
1Check, Alloc Vectors
dw
j - - DUMMY DISK FOR ROBIN MEDIA REFERENCE
DISKDEF 0,0,39,1,2048,195,128,128,2
1
dpbO
equ
offset $
1Disk Parameter Block
dw
40
1Sectors Per Track
db
4
1Block Shift
db
15
1Block Mask
db
1
1Extnt Mask
dw
194
;Disk Size - 1
dw
127
1Directory Max
db
192
1AllocO
o
1Alloc1
db
dw
32
1Check Size
dw
2
10ffset
xltO
equ
offset $
1Translate Table
1 ** Modified for Rainbow media
0,1,2,3
db
db
8,9,10,11
16,17,18,19
db
24,25,26,27
db
32,33,34,35
db
4,5,6,7
db
db
12,13,14,15
db
20,21,22,23
db
28,29,30,31
36,37,38,39
db
alsO
equ
25
1Allocation Vector Size
csso
equ
32
1Check Vector Size
DISKDEF 1,0

PAGE

CP/M ASM86 1.1
3053
0019
0020
3062
3053
0019
0020
3062
3053
0019
0020
3062
308A
=308A 2400
=308C 03
=308D 07
=308E 00
=308F AAOO
=3091 3FOO
=3093 CO
=3094 00
=3095 1000
=3097 0200
3062
OOOC
0010

SOURCE: CPLBIOS.A86
Customized Basic I/O System
dpbl
equ
dpbO
~Equivalent Parameters
alsl
equ
alsO
~Same ~llocation Vector Size
cssl
equ
cssO
~Same Checksum Vector Size
xltl
equ
xltO
~Same Translate Table
DISKDEF 2,0
dpb2
equ
c1pbO
~Equivalent Parameters
als2
equ
alsO
~Same ~llocation Vector Size
css2
equ
cssO
~Same Checksum Vector Size
xlt2
equ
xltO
~Same Translate Table
DISKDEF 3,0
~
equ
dpb3
dpbO
~Equivalent Parameters
als3
equ
alsO
~Same ~llocation Vector Size
css3
equ
cssO
~Same Checksum Vector Size
xlt3
equ
xltO
~Same Translate Table
DISKDEF 4,0,35,1,1024,171,64,64,2
~
dpb4
equ
offset $
~Disk Parameter Block
dw
36
~Sectors Per Track
db
3
~Block Shift
db
7
~Block Mask
db
0
~Extnt Mask
dw
170
~Disk Size - 1
dw
63
~Directory Max
192
db
~AllocO
0
db
~Allocl
dw
16
~Check Size
2
dw
~Offset
xlt4
xltO
equ
~Translate Table
als4
equ
12
~Allocation Vector Size
css4
equ
16
~Check Vector Size
ENDEF
Table for transfering dpb's between rainbow and robin media:

3099
=3099 5330
=309B 8A30

mediatbl

equ offset $
dw
dpbO
dw
dpb4

~Rainbow
~Robin

PC-I00

Uninitialized Scratch Memory Follows:
= 309D
=309D
=311D
=3136
=3156
=3l6F
=318F
=31AS
=31C8
=31El
3201
0164
=3201 00

begdat
dirbuf
alvO
csvO
alvl
csvl
alv2
csv2
alv3
csv3
enddat
datsiz

equ
rs
rs
rs
rs
rs
rs
rs
rs
rs
equ
equ
db

offset $
128
alsO
cssO
alsl
cssl
als2
css2
als3
css3
offset $
offset $-begdat
0

~Start of Scratch
~Directory Buffer
~Alloc Vector
~Check Vector
~ Alloc Vector
~Check Vector
~Alloc Vector

Area

~Check Vector
~Alloc Vector
~Check Vector
~End of Scratch Area
~Size of Scratch Area
~Marks End of Module

PAGE

CP/M ASM86 1.1

PAGE

SOURCE: CPLBIOS.A86
Customized Basic I/O System
INCLUDE CPLBIOS2.A86

,.*********************************************
*
,.*
;*

Data Areas

., *
*
,.*********************************************
3010
=3202 00
=3203 0000
=3205 00

dma adr equ dma off
IOBYTE db
BXHLD
dw
xoff_flg db
IF

o
o
o

;store bx here

loader bios

i--------------------------------------------;I
signon

db
db
DB

27,' [2J' ,27,' [3;lH'
cr,lf,cr,lf
'CP/M-86/80 Loading ••• ',CR,LF,O

;I
I
;--------------------------------------------ENDIF
;error messages:
=3206 ODOA50726573
73204354524C
2D4320746F20
726573746172
742C200DOA
=3223 737061636520
62617220746F
207265747279
2C206F722061
6E79206F7468
6572206B6579
20746F20636F
6E74696E7565
2E
=3254 ODOAOO

kqmsg

=3257 ODOA
=3259 507265737320
52657475726E
20746F206967
6E6F72652065
72726F722C20
616E79206F74

cr,lf,'Press CTRL-C to restart, ',cr,lf

'space bar to retry, or any other key to continue.'

endlin

cr,lf,O

kqxmsg

db
db

cr,lf
'Press

R~turn

to ignore error, any other key to continue'

CP/M ASM86 1.1 SOURCE: CPLBIOS.A86
686572206B65
7920746F2063
6F6E74696E75
65
=3290 OOOAOO
db

Customized Basic I/O System

cr,lf,O

=3293 000A44726976
652077726974
652070726F74
656374656420
20202000

wpmsg

cr,lf,'Orive write-protected -- ',0

=32AF 000A52656164
206572726F72
206F6E206472
6976652000
=32C6 000A57726974
65206572726F
72206F6E2064
726976652000
=320E 000A5365656B
206572726F72
206F6E206472
6976652000
=32F5 000A44726976
65206E6F7420
726561647920
20202000
=330B 000A43616E6E
6F7420777269
7465206F6E20
565431383020
6469736B206F
6E2064726976
652000
=3332 2C2074726163
6B2000
=3338 2C2073656374
6F722000

erl

cr,lf,'Read error on drive ',0

er2

cr,lf,'Write error on drive ',0

skmsg

cr,lf,'Seek error on drive ',0

er5

cr,lf,'Orive not ready -- ',0

unabl

cr,lf,'Cannot write on VT180 disk on drive ',0

trkmsg

track ',0

secmsg

sector ',0

birmsg
biwmsg
nrmsg

equ erl
equ er2
equ er5

p232to

32AF
32C6
32F5
=3345 000A54696065
6F7574206F6E
20
=3352 4544
=3354 563AOO

p232tol dw
p232to2 db
if

cr,lf,'Timeout on '
'DE'
'V: ' ,0
not loader bios

PAGE

CP/M ASM86 1.1
=3357 00

SOURCE: CPLBIOS.A86
Customized Basic I/O System
dispst db
o
endif
;

=3358
=335A
=335C

=
=

SEGHLD
RTNHLD
COUNT

rw 1
rw 1
rw 1

;save segment
;save return address

System Memory Segment Table

=335E
=335F

segtab1e rb 1
rw 4

=
=

;2 segments
;room for two segs

not loader bios

27,' [2J' ,27,' [3;lH'

,---------------------------------------------=3367 1B5B324A1B5B
333B3148
=3371 202020202043
502F4D2D3836
2F3830205665
7273696F6E20
=3389 31
=338A 2E
=338B 30
=
=338C 2028312E3129
ODOA
=3394 28632920436F
707972696768
742031393831
204469676974
616C20526573
656172636820
496E632EODOA
=33BE 28632920436F
707972696768
742031393832
204469676974
616C20457175
69706D656E74
20436F72706F
726174696F6E
ODOA
=33FO ODOAOO

signon

CP/M-86/80 Version '

db
db
db
db
db
db

version
number+'O'
, ,

cr,lf,O

rev number+'O'

, ,

mod number+'O'
, (1.1)' ,CR,LF

;I
;--------------------------------------------ENDIF
33F3

;not loader bios

lastoff equ offset S

PAGE

CP/M ASM86 1.1

PAGE

SOURCE: CPLBIOS.A86
Customized Basic I/O System
if not loader bios

,----------------------------------------------

org

3900h

;---------------------------------------------

endif ;not loader bios

=3900
3930

loc stk rw 24 ;loca1 stack for initialization
stkbase equ offset $

0380
OC77
=3930 00

tpa seg equ (lastoff+0400h+15) / 16
tpa_1en equ OFF7h - tpa seg
db 0
;fi11 last address for GENCMD
;*********************************************

.*
,
;*

,.*

Dummy Data Section

,.*********************************************

0000
=0000
=0002
=0004
=0380
=0382
=0090
=0092
=0094
=0096
=009C
=009E
=OOBO
=00B2
=0190
=0192

dseg
o
;abso1ute low memory
o
; (interrupt vectors)
org
intO offset
rw
1
intO-segment
rw
1
pad to system call vector
rw
2*(bdos int-1)
bdos offset
rw
rw
bdos=segment
org 36*4
sio offset
rw
sio seg
rw
sio2 offset
rw
rw
sio2 _seg
org 39*4
Z80 OFFSET
RW
Z80-SEG
RW
org 44*4
tp44_offset
rw
tp44_seg
rw
org 100*4
tp100_offset
rw
tp100_seg
rw

1
1
;type 36 service
1
1
1
1
;type 39 service
1
1
1
1
1
1

,.***********************************************************************
,

DUMMY CODE SECTION (FOR FAR CALL TO Z80CCP SERVICES)

,.***********************************************************************

0040
0006

CSEG
ORG
CCPSERV EQU

40h
6h
$

; ABSOLUTE LOCATION

END

CP/M ASM86 1.1 SOURCE: CPLBIOS.A86
END OF ASSEMBLY. NUMBER OF ERRORS:

Customized Basic I/O System
O. USE FACTOR: 43%

PAGE

CP/M ASM86 1.1

SOURCE: CPLPATCH.A86

PAGE

CPL PATCHES FOR CP/M 86/80

TITLE

'CPL PATCHES FOR CP/M

8~/80'

OOOA
008B
OOAF
00D2
00E9
OOED
034D
035E
046C
0727
0732
0738
0762
07BE
07F9
0803
0827
0939
093A
097B

COMLEN OFFSET
BDOS LaC
PRINT LOC
INITMEM LOC
OPEN LOC
OPENC LOC
BOOT PATCH LOC
CCP LOC
RESETDISK LOC
COM PATCH-LOC
LOADUSER LOC
GOUSER LOC
GOUSERT LOC
ZRUN PATCH LOC
IPO OFFSETPAGO OFFSET
COMFCB OFFSET
CDISK OFFSET
SDISK-OFFSET
LOADMSG OFFSET

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

OOOAH
008BH
OOAFH
00D2H
00E9H
OOEDH
034DH
035EH
046CH
0727H
0732H
0738H
0762H
07BEH
07F9H
0803H
0827H
0939H
093AH
097BH

VARIABLE LOCATION
LABEL LOCATION
LABEL LOCATION
LABEL LOCATION
LABEL LOCATION
LABEL LOCATION
PATCH 3 BYTES
LABEL LOCATION
LABEL LOCATION
PATCH 5 BYTES
LABEL LOCATION
LABEL LOCATION
NEW LABEL LOCATION
PATCH 6 BYTES
VARIABLE LOCATION
VARIABLE LOCATION
VARIABLE LOCATION
VARIABLE LOCATION
VARIABLE LOCATION
VARIABLE LOCATION

14EO
l4F2
1622

DOBACKSP LOC
EQU
DELETE PATCH LOC EQU
MOVE PATCH LOC EQU

l4EOH
l4F2H
1622H

NEW LABEL LOCATION
PATCH 12 BYTES
PATCH 3 BYTES

253F

ZMOVEF LOC

EQU

2500H+(3*21)

LABEL LOCATION

3400

CODE8680

EQU

03400H

OFFSET FOR ADDITIONAL CCP CODE
FOR CP/M-8680
(LOCATED AFTER BIOS)

.******************************************************************
EQUATES FOR PATCH TO ALLOW SUBMIT FILES FROM DISKS
i**
:**
OTHER THAN A.
i**
,******************************************************************

i**

0147
24B7
0939
01FF
0153
OODA
0202

READCP
CURDRVS
CDISK
DELSUBP
READCA LOC
SELECT-LOC
DELSUBR LOC

EQU
EQU
EQU
EQU
EQU
EQU
EQU

147H
24B7H
939H
lFFH
153H
ODAH
202H

,.******************************************************************

Page 2

,.******************************************************************
EQUATES FOR PATCH TO MAINTAIN BDOS CONSOLE IN STATUS
,.**
,.**
CP/M ASM86 1.1

,.**

i**
FOR Z80 PROGRAMS IN THE DATA BLOCK
SOURCE: CPLPATCH.A86 CPL PATCHES FOR CP/M 86/80

:******************************************************************
138B

CONIN PATCH LaC EQU

138BH

PATCH 3 BYTES

1407

CONBO PATCH LaC EQU

1407H

PATCH 3 BYTES

22E6
CP/M ASM86 1.1

KBCHAR OFFSET
EQU
22E6H
SOURCE: CPLPATCH.A86 CPL PATCHES FOR CP/M 86/80

VARIABLE LOCATION

EJECT
CSEG
ORG

BDOS LaC

ORG

PRINT LaC

ORG

INITMEM LaC

ORG

OPEN LaC

ORG

OPENC LOC

BDOS:

PRINT:

INITMEM:

OPEN:

OPENC:

034D E9B030

3400

ORG
JMP
BOOT RET:
ORG

BOOT PATCH LOC
BOOT-PATCH-

CCP LOC

CCP:
ORG
RESETDISK:

RESETDISK LaC

SAVE BOOT DRIVE#

Page 3

0727 E9DF2C
072A 90
072B 90

ORG
JMP
NOP
NOP

COM PATCH LOC
COM-PATCH-

ORG
LOADUSER:

LOADUSER LOC

3409

LOAD Z80CCP.SYS IF NECESSARY

COM RET:

ORG

GOUSER LOC

GOUSER:
CP/M ASM86 1.1

SOURCE: CPLPATCH.A86

ORG

CPL PATCHES FOR CP/M 86/80

GOUSER1 LOC

GOUSER1:

07BE
07C1
07C2
07C3

E9EE2C
90
90
90

34AF

l4F2 EBEC
14F4 90
l4F5 90
l4F6 90
14F7 90
l4F8 90
l4F9 90
14FA 90
14FB 90
14FC 90
l4FD 90

14EO

1622 E81AOF

253F

ORG
JMP
NOP
NOP
NOP
ZRUN RET:

ZRUN PATCH LOC
ZRUN-PATCH-

ORG
DOBACKSP:

DOBACKSP LOC

ORG
JMPS
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DELETE RET:

DELETE PATCH LOC
DOBACKSP

MAKE DELETE BEHAVE AS BACKSPACE

ORG
CALL
MOVE RET:

MOVE PATCH LOC
ZMOVEF

ALLOW MOVE TO Z80 PRIVATE SPACE

RUN Z80CCP.SYS IF LOADED

Page 4

ORG

ZMOVEF LOC

ZMOVEF.:
CP/M ASM86 1.1

SOURCE: CPLPATCH.A86

CPL PATCHES FOR CP/M 86/80

EJECT

:******************************************************************
;**
PATCH TO ALLOW SUBMIT FILES TO USE OTHER DISKS THAN
;**
A FOR SCRATCH FILE (SUBMIT.$$$)
;**
;**
,.******************************************************************
ORG REA DCA LOC
READCA:
ORG SELECT LOC
SELECT:
ORG DELSUBR LaC
DELSUBR:
0147 AOB724
014A 3A063909
014E 7403

0153

ORG
MOV
CMP
JE

READCP
AL,BYTE PTR .CURDRVS
AL,BYTE PTR .CDISK
READCA

01FF E90933

350B

ORG DELSUBP
DELSUBPA
JMP

,.***************************************************************.**
,
;**
PATCHES FOR BDOS CONIN STATUS IN DATA BLOCK
;**
,.******************************************************************
138B E98621

1407 E92221
CP/M ASM86 1.1

3514

ORG
JMP
CONIN RET.:

ORG
JMP
CONBO RET:
SOURCE: CPLPATCH.A86
352C

CONIN PATCH LaC
CONIN-PATCH-

RESET BDOS CONIN FLAG

CONBO PATCH LaC
CONBO-PATCH; SET BDOS CONIN FLAG
CPL PATCHES FOR CP/M 86/80

EJECT
INCLUDE DEFBUF.LIB

*************************************************************************
OFFSETS FROM START OF POINTERS/BUFFERS DATA BLOCK
FFAO
0000

XDPCX
XDEFBUF

EQU
EQU

-60H
OOOH

DISK PARAMETER STORAGE (60H)
MISC. BUFFER (LENGTH=80H)

Page 5
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

086H
086H
094H
094H
OA2H
2F8H
2FAH
2FCH
2FEH
2FOH
2F4H
2E7H

BIOS MESSAGE PACKET (LENGTH=OEH)
START PACKET BUFFER (LENGTH=OEH)
DATA PACKET (LENGTH=OEH)
MOVE PACKET BUFFER (LENGTH=OEH)
SEGMENT BUFFER (LENGTH=200H)
MEMORY SIZE (WORD)
PSEUDO CP/M ADDRESS (WORD)
PACKET POINTER FROM Z80 (WORD)
i PACKET POINTER FROM 8088 (WORD)
iTRACK TABLE
i FORMAT TABLE
i CONSOLE STATUS FLAG

0086
0086
0094
0094
00A2
02F8
02FA
02FC
02FE
02FO
02F4
02E7

XPACKET
XSTPKT
XADCPKT
XMVPKT
XSHRBUF
XMEMSIZE
XPCPMADR
XZ80PKT
XI88PKT
XTTRACK
XTFORMAT
XCSFLAG

0000
FFFE
FFFB

i OFFSETS FROM ZOT FOR CONVENIENCE
ZOTP
EQU
o
EQU
Z80FLAGPT
-2
CICCK
-5
EQU

Z80 FLAG
Z80-RUNNING FLAG
CONSOLE STATUS FLAG CHECK

0002
0001
0017

i OTHER USEFUL EQUATES
EQU
BDCS
BlOCS
EQU
BIOS JMPS
EQU

BDOS CHARACTER READY BIT
BIOS CONSOLE STATUS BIT
NUMBER OF FUNCTIONS IN JUMP TABLE

1
23

*************************************************************************

2500

BIOS OFFSET

EQU

2500H

OFFSET OF BIOS

0047

PBADR OFFSET

EQU

BIOS "JMPS*3+2

OFFSET (FROM START OF BIOS)
OF WORD THAT CONTAINS
ADDRESS OF POINTERS/BUFFERS
DATA BLOCK

02FA

PCPMADR OFFSET

EQU

XPCPMADR

OFFSET (FROM START OF PTRSBUFS)
OF WORD CONTAINING ADDRESS
OF PSEUDO CP/M
O=PSEUDO CP/M NOT LOADED

003B

LOADF

EQU

BDOS FUNCTION - LOAD FILE

OOOA
OOOD

LF
CR

EQU
EQU

OAH
ODH

CP/M ASM86 1.1

SOURCE: CPLPATCH.A86

CPL PATCHES FOR CP/M 86/80

EJECT
ORG
3400 A23909
3403 A24735
3406 E947CF

BOOT PATCH:
MOV
MOV
JMP
0350

CODE8680
.CDISK OFFSET,AL
BOOTDRV,AL
BOOT RET

Page 6

CP/M ASM86 1.1

SOURCE: CPLPATCH.A86

CPL PATCHES FOR CP/M 86/80

EJECT
3409 E8E1CC
340C 7403
340E E91700
3411 BF3008
3414 BE4435
3417 B90300
341A FC
341B F3A4
341D BA2708
3420 E8CACC
3423 752B
3425 E904D3

COM PATCH:
CALL
JZ
JMP
USERCOM:
MOV
MOV
MOV
CLD
REP MOVS
MOV
CALL
OOED
JNZ
3450
JMP
072C
OOED
3411
3428

OPENC
USERCOM
CMDTEST
TRY .COM FILE
DI,COMFCB OFFSET+9
ST,OFFSET-COMTYPE
CX,3
AL,AL
DX,COMFCB_OFFSET
OPENC
COMTEST
COM RET

CMDTEST:

344D

MOV
MOV
MOV
CLD
REPE CMPS
JCXZ

3436 BB4725
3439 8B1F
343B 81C3FA02
343F 06
3440 33CO
3442 8ECO
3444 26833FOO
3448 07
3449 7402
344B EB03

344D
3450

MOV
MOV
ADD
PUSH
XOR
MOV
CMP
POP
JZ
JMPS

3440 E9E2D2

0732

CMDTESTX:
JMP

3428 BE2808
342B BF4D35
342E B90800
3431 FC
3432 F3A6
3434 E317

ST,COMFCB OFFSET+1
DI,OFFSET-SAVEFCB
CX,8

FILE

AL,AL
CMDTESTX

SAVE.CMD?

YES - GO EXECUTE

BX,BIOS_OFFSET+PBADR_OFFSET
BX, [BX]
BX,PCPMADR_OFFSET
ES
AX,AX
ES,AX
ES:WORD PTR [BX] ,0
ES
CMDTESTX
LOADZSYS

IS PSEUDO CP/M LOADED?

NO - GO EXECUTE

LOADUSER

COMTEST:
3450 E87FCC
3453 BE2708
3456 BF7635
3459 B92100
345C FC
345D F3A4
345F A03A09
3462 A27635

00D2

LOADZSYS:
CALL
MOV
MOV
MOV
CLD
REP MOVS
MOV
MOV

INITMEM

RELEASE ALL MEMORY

ST,COMFCB OFFSET
DT,OFFSET-PARMFCB
CX,33

SAVE THIS FCB
•.• TO USE AS PARAMETER

AL,AL
AL, .SDISK OFFSET
PARMFCB,AL

DO NOT USE DEFAULT DISK

Page 7

3465 C6D69635DD
CP/M ASM86 1.1

MOV
SOURCE: CPLPATCH.A86

346A AD4735
346D FECD
346F A25535
3472 C6D67535DD
3477 BA5535
347A E86CCC
347D 750.3
347F E916DD

BYTE PTR PARMFCB+32,D
CPL PATCHES FOR CP/M 86/80.

i OPEN & LOAD Z8DCCP.SYS
MOV
AL,BOOTDRV
AL
INC
MOV
ZSYSFCB,AL
BYTE PTR ZSYSFCB+32,D
MOV
DX,OFFSET ZSYSFCB
MOV
CALL
OPEN
LZ8DA
JNZ
ERRZ8D
JMP

DDE9
3482
3498

REC CNT

SET FOR BOOT DRIVE
REC CNT = 0.

ERROR

LZ8DA:
3482 BA5535
3485 Bl3B
3487 E8DICC
348A 40.
348B 750.3
348D E9DDDD

DD8B
3490.
349D

MOV
MOV
CALL
INC
JNZ
JMP

DX,OFFSET ZSYSFCB
Cr:;,LOADF
BDOS
AX
LZ8DB
ERRLOAD

MOV
JMP

ZSYSFLAG,l
GOUSER

MOV
JMPS

CX,OFFSET NOZ8DCCP
ZERR

MOV

CX,OFFSET LOADZ8DERR

CALL
CALL
MOV
JMP

PRINT
RESETDISK
CS:BYTE PTR .COMLEN_OFFSET,D
CCP

LOAD Z8DCCP.SYS
ERROR

LZ8DB:

3490. C6D64835Dl
0.738

3495 E9Ao.D2

ERRZ8D:
3498 B99735
349B EBD3

34AO
ERRLOAD:

349D B9C435
ZERR:
34AD
34A3
34A6
34AC

E8DCCC

DDAF

E8C6CF

D46C

2EC6D6DADDDD
E9AFCE

CP/M ASM86 1.1

D35E

SOURCE: CPLPATCH.A86

CPL PATCHES FOR CP/M 86/80.

EJECT
34AF
34B5
34BA
34BC

2EC6D6DADDDD
8D3E4835Dl
740.3
34BF
E9D5D3
D7C4

ZRUN PATCH:
MOV
CMP
JZ
JMP

CS:BYTE PTR .COMLEN OFFSET,DDH
Z8DCCP.SYS LOADED?
ZSYSFLAG,l
RUNZSYS
YES
ZRUN RET

RUNZSYS.:
34BF C6D64835DD

MOV

34C4 BB4935
34C7 C7D77635

i SETUP PARAMETER BLOCK
BX,OFFSET ZSYSPARM
MOV
WORD PTR [BX] ,OFFSET PARMFCB
MOV

ZSYSFLAG,D

Page 8
34CB A03909
34CE 8A264735
34D2 894702

MOV
MOV
MOV

34D5
34D7
34D9
34DD
34E2
34E4

: SETUP REGISTERS FOR CALL
MOV
AX,DS
MOV
ES,AX
SET ES = CCP'S DS; BX = PARM OFFSET
MOV
DS,.PAGO OFFSET
; SET DS = Z80CCP'S DS
CALLF
CS:DWORD-PTR .IPO OFFSET
RUN Z80CCP.SYS
MOV
BX,CS
DS,BX
MOV
GET NEW DS VALUE

8CD8
8ECO
8EIE0308
2EFFIEF907
8CCB
8EDB

AL,.CDISK OFFSET
AH,BOOTDRV
2 [BX] ,AX

34E6 OACO
34E8 7403
34EA E971CE

34ED
035E

34ED E8E2CB

; EXECUTE ORIGINAL .CMD FILE
CMDRUN:
INITMEM
00D2
CALL

34FO BA7635
34F3 Bl3B
34F5 E893CB
34F8 40
34F9 7509
34FB B97B09
34FE E8AECB
3501 E95ACE

OR
JZ
JMP

008B
3504
OOAF
035E

AL,AL
CMDRUN
CCP

MOV
MOV
CALL
INC
JNZ
MOV
CALL
JMP

DX,OFFSET PARMFCB
Cr;,LOADF
BDOS
AX
CMDRUNI
CX,LOADMSG_OFFSET
PRINT
CCP

MOV
JMP

.PAGO OFFSET,BX
GOUSERI

Z80CCP.SYS ERROR?
YES - MSG ALREADY PRINTED

RESET BDOS' SEG TABLE

LOAD .CMD FILE
LOAD ERROR?
YES

CMDRUN1:
3504 891E0308
3508 E957D2
CP/M ASM86 1.1

0762

SOURCE: CPLPATCH.A86

CPL PATCHES FOR CP/M 86/80

EJECT

,.******************************************************************

;**
PATCH TO ALLOW SUBMIT FILES TO USE O~HER DISKS THAN
;**
;**
A FOR SCRATCH FILE (SUBMIT.$$$)
;**
,.******************************************************************
350B AOB724
350E E8C9CB
3511 E9EECC
CP/M ASM86 1.1

DELSUBPA:
MOV
OODA
CALL
0202
JMP
SOURCE.: CPLPATCH.A86

AL,BYTE PTR .CURDRVS
SELECT
DELSUBR
CPL PATCHES FOR CP/M 86/80

EJECT

,.******************************************************************

;**
PATCHES FOR BDOS CONIN STATUS MAINTENANCE IN DATA BLOCK ;**
,.******************************************************************
CONIN PATCH:

Page 9
3514 C60700
3517 IE
3518 53
3519 33DB
351B 8EDB
351D 2E8BIE4725
3522 80A7E702FD
3527 5B
3528 IF
3529 E962DE

138E

352C A2E622
352F IE
3530 53
3531 33DB
3533 8EDB
3535 2E8BIE4725
353A 808FE70202
353F 5B
3540 IF
3541 E9C6DE

CONBO PATCH:
MOV
PUSH
PUSH
XOR
MOV
MOV
OR
POP
POP
140A
JMP

CP/M ASM86 1.1

MOV
PUSH
PUSH
XOR
MOV
MOV
AND
POP
POP
JMP

SOURCE: CPLPATCH.A86

3544

EJECT
DATA OFFSET

PATCHED BDOS INSTRUCTION
BYTE PTR O[BX) ,0
SET DS TO ADDRESS SHARED RAM
DS
BX
BX,BX
DS,BX
DATA BLOCK ADDRESS
BX,CS: .BIOS OFFSET+PBADR OFFSET
RESET BDOS IN BIT
BYTE PTR .XCSFLAG[BXl',NOT-BDCS
BX
DS
CON IN RET

.KBCHAR OFFSET,AL
PATCHED BDOS INSTRUCTION
DS
SAME COMMENTS AS ABOVE, EXCEPT
BX
THAT BIT IS SET
BX,BX
DS,BX
BX,CS: .BIOS OFFSET+PBADR OFFSET
BYTE PTR .XCSFLAG[BXl',BDCS
BX
DS
CONBO RET
CPL PATCHES FOR CP/M 86/80

EQU
DSEG
ORG

OFFSET $

'COM'
1

DATA OFFSET

3544 434F4D
3547
3548 00
3549

COMTYPE
BOOTDRV
ZSYSFLAG
ZSYSPARM

DB
RB
DB
RB

354D 534156452020
2020
3555 005A38304343
502020535953
3561 000000000000
000000000000
000000000000
000000
3576

SAVEFCB

'SAVE

ZSYSFCB

0,'Z80CCP

a,a,o,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,o

PARMFCB

3597 ODOA54686520
66696C65205A
38304343502E
535953204E6F
7420466F756E
64206F6E2042
6F6F74204469
736BOO

NOZ80CCP

CR,LF,'The file Z80CCP.SYS Not Found on Boot

o
4

PARAMETER BLOCK FOR Z80CCP.SYS

','SYS'

Disk~,O

Page 10
35C4 ODOA54686520
66696C65205A
38304343502E
535953204361
6E6E6F742062
65204C6F6164
656400

LOADZ80ERR

CR,LF,'The file Z80CCP.SYS Cannot be Loaded',O

END
END OF ASSEMBLY.

NUMBER OF ERRORS:

USE FACTOR: 12%

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

TITLE

'CONFIG SYSTEM; INIT FOR .COM'

THIS MODULE WRITTEN FOR DEC RAINBOW 100
BY CPL
JULY 1982

THIS MODULE IS LOADED BY CP/M-86/80 CCP TO
A) RECONFIGURE THE SYSTEM PRIOR TO EXECUTION OF A .COM FILE,
B) EXECUTE A .COM FILE,
OR C) RECONFIGURE THE SYSTEM PRIOR TO RESUMED EXECUTION OF .CMD FILES.

UPON ENTRY:
ES

SEGMENT BASE OF CP/M

OFFSET TO PARAMETER BLOCK

PARAMETER BLOCK:
BYTES 0-1

OFFSET TO .COM FILE FCB

CURRENT DISK DRIVE

BOOT DRIVE

PARSED COMMAND LINE IS IN FCB LOCATION FOR THIS MODULE

PAGE

Page 2

FFFF

TRUE

EQU

-1

0000

FALSE

EQU

NOT TRUE

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

EJECT

MEMORY CONFIGURATION #1 (FOR 8088 .CMD FILES)

0100

PRMTVI ADR

EQU

0100H

STARTING ADDRESS FOR PRMTVPVT.SYS

0040

CPMl SEG

EQU

0040H

STARTING SEGMENT OF CP/M-86/80

3600

CPMl LEN

EQU

3600H

MAX LENGTH (IN BYTES) OF CP/M-86/80

3AOO

PBl ADR

EQU

(CPMl_SEG*16)+CPMl LEN
STARTING ADDRESS OF POINTERS/
BUFFERS DATA BLOCK

0300

PBl LEN

EQtT

0300H

LENGTH (IN BYTES) OF POINTERS/
BUFFERS DATA BLOCK

03DO

TPABEGI SEG

EQU

(PBl_ADR+PBl_LEN)/16
STARTING SEGMENT OF TPA

1000

TPAENDI SEG

EQU

1000H

OC30

TPAI LEN

EQU

TPAENDI SEG-TPABEGI SEG

ENDING SEGMENT OF TPA + 1

; LENGTH (IN PARAGRAPHS) OF TPA

MEMORY CONFIGURATION #2 (FOR Z80 .COM FILES)

Page 3

0300

PB2 LEN

EQU

PB1 LEN

LENGTH (IN BYTES) OF POINTERS/
BUFFERS DATA BLOCK

FDOO

PB2 ADR

EQU

(1000H-(PB2_LEN/16) )*16
STARTING ADDRESS OF POINTERS/
BUFFERS DATA BLOCK

F600

PCPM ADR

EQU

OF600H

STARTING ADDRESS OF PSEUDO CP/M

F603

PRMTV2 ADR

EQU

PC PM ADR+3

STARTING ADDRESS FOR PRMTVSHR.SYS

3600

CPM2 LEN

EQU

CPM1 LEN

; MAX LENGTH (IN BYTES) OF CP/M-86/80

OCOO

CPM2A SEG

EQU

(PCPM ADR-CPM2_LEN)/16
STARTING SEGMENT OF CP/M-86/80 -FOR SMALL SYSTEM

1000

CPM2B SEG

EQU

1000H

STARTING SEGMENT OF CP/M-86/80 -FOR LARGE SYSTEM

0040

TPABEG2 SEG

EQU

0040H

STARTING SEGMENT OF TPA

OCOO

TPAEND2A SEG

EQU

CPM2A SEG

ENDING SEGMENT OF TPA + 1 -FOR SMALL SYSTEM

OBCO

TPA2A LEN

EQU

TPAEND2A SEG-TPABEG2 SEG
LENGTH (IN PARAGRAPHS) OF TPA -FOR SMALL SYSTEM

OF60

TPAEND2B SEG

EQU

ENDING SEGMENT OF TPA + 1 -FOR LARGE SYSTEM

OF20

TPA2B LEN

EQU

TPAEND2B SEG-TPABEG2 SEG
; LENGTH (IN PARAGRAPHS) OF TPA -FOR LARGE SYSTEM

Page 4

,. *************************************************************
CP/M ASMS6 1.1

2202

SOURCE: ZSOCCP.AS6

BIOSCS OFFSET

CONFIG SYSTEM~ INIT FOR .COM

EQU

2202H

OFFSET FROM START OF CPM WHERE
WHERE BDOS STASHES BIOS' CS:

2500

BIOS OFFSE'r

EQU

2500H

OFFSET (FROM START OF CP/M-S6/S0)
OF BIOS

INCLUDE DEFBUF.LIB
*************************************************************************
OFFSETS FROM START OF POINTERS/BUFFERS DATA BLOCK

FFAO

XDPCX

EQU

-60H

DISK PARAMETER STORAGE (60H)

0000

XDEFBUF

EQU

OOOH

MISC. BUFFER (LENGTH=SOH)

0086

XPACKET

EQU

OS6H

BIOS MESSAGE PACKET (LENGTH=OEH)

0086

XSTPKT

EQU

OS6H

START PACKET BUFFER (LENGTH=OEH)

0094

XADCPKT

EQU

094H

DATA PACKET (LENGTH=OEH)

0094

XMVPKT

EQU

094H

MOVE PACKET BUFFER (LENGTH=OEH)

00A2

XSHRBUF

EQU

OA2H

SEGMENT BUFFER (LENGTH=200H)

02F8

XMEMSIZE

EQU

2FSH

MEMORY SIZE (WORD)

02FA

XPCPMADR

EQU

2FAH

PSEUDO CP/M ADDRESS (WORD)

02FC

XZ80PKT

EQU

2FCH

PACKET POINTER FROM Z80 (WORD)

02FE

XISSPKT

EQU

2FEH

PACKET POINTER FROM SOSS (WORD)

Page 5

02FO

XTTRACK

EQU

2FOH

02F4

XTFORMAT

EQU

2F4H

FORMAT TABLE

02E7

XCSFLAG

EQU

2E7H

CONSOLE STATUS FLAG

iTRACK TABLE

i OFFSETS FROM ZOT FOR CONVENIENCE

0000

ZOTP

EQU

Z80 FLAG

FFFE

Z80FLAGPT

EQU

-2

Z80-RUNNING FLAG

FFFB

CICCK

EQU

-5

CONSOLE STATUS FLAG CHECK

i OTHER USEFUL EQUATES

0002

BDCS

EQU

BDOS CHARACTER READY BIT

0001

BlOCS

EQU

BIOS CONSOLE STATUS BIT

0017

BIOS JMPS

EQU

NUMBER OF FUNCTIONS IN JUMP TABLE

*************************************************************************

0045

SEGTBL OFFSET

EQU

BIOS JMPS*3

OFFSET (FROM START OF BIOS)
OF WORD WITH OFFSET
(FROM START OF CP/M) TO
MEMORY SEGMENT TABLE

0047

PBADR OFFSET

EQU

SEGTBL OFFSET+2

OFFSET (FROM START OF BIOS)
OF WORD THAT CONTAINS
ADDRESS OF POINTERS/BUFFERS
DATA BLOCK

02FE

188PKT OFFSET

EQU

XI88PKT

OFFSET (FROM START OF PTRSBUFS)

Page 6

OF PACKET POINTER FROM 8088
02FC

Z80PKT OFFSET

EQU

XZ80PKT

OFFSET (FROM START OF PTRSBUFS)
OF PACKET POINTER FROM Z80

CP/M ASM86 1.1

02FA

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

PCPMADR OFFSET

EQU

XPCPMADR

OFFSET (FROM START OF PTRSBUFS)
OF WORD CONTAINING ADDRESS
OF PSEUDO CP/M
O=PSEUDO CP/M NOT LOADED

02F8

MEMSIZE OFFSET

EQU

XMEMSIZE

OFFSET (FROM START OF PTRSBUFS)
OF WORD INDICATING
*PARAGRAPHS ADDITIONAL MEMORY

0094

MOVEPKT OFFSET

EQU

XMVPKT

OFFSET (FROM START OF PTRSBUFS)
OF PACKET BUFFER TO BE USED FOR

Z8D MOVE FUNCTION
EQU

0022

MOVEFC

0086

STARTPKT OFFSET EQU

022H

MOVE FUNCTION CODE

XSTPKT

OFFSET (FROM START OF PTRSBUFS)
OF PACKET BUFFER TO BE USED FOR
Z80 START FUNCTION

0021

STARTFC

EQU

021H

START Z80 FUNCTION CODE

0100

STARTCOM

EQU

100H

.COM FILE STARTING ADDRESS

0100

PBIOS OFFSET

EQU

0100H

OFFSET (FROM START OF PSEUDO CP/M)
TO PSEUDO BIOS JUMP TABLE

0000

PBDOS OFFSET

EQU

OFFSET (FROM START OF PSEUDO CP/M)
TO PSEUDO BDOS ENTRY POINT

Page 7

F700

PBIOS ADR

EQU

PCPM ADR+PBIOS OFFSET
; ADDRESS OF PSEUDO BIOS JUMP TABLE

F600

PBDOS ADR

EQU

PCPM ADR+PBDOS OFFSET
; ADDRESS OF PSEUDO BDOS ENTRY POINT

00C3

JUMPINST

EQU

OC3H

Z80JUMP INSTRUCTION

005C

FCB OFFSET

EQU

05CH

FCB OFFSET

0000

RELO OFFSET

EQU

LOCATION IN 8088 PRIVATE MEMORY

0040

RELO SEG

EQU

40H

EQU

224

TO RELOCATE .COM-FILE-LOAD CODE

INTERRUPTS

OOEO

SDOS

0092

TYPE36SEG ADR

EQU

36*4+2

0096

TYPE37SEG ADR

EQU

37*4+2

009C

TYPE390FFSET ADR

EQU

39*4

009E

TYPE39SEG ADR

EQU

39*4+2

OOBO

TYPE440FFSET ADR

EQU

44*4

00B2

TYPE44SEG ADR

EQU

44*4+2

0190

TYPEI000FFSET ADR

EQU

100*4

0192

TYPEI00SEG ADR

EQU

100*4+2

0382

TYPE224SEG ADR

EQU

224*4+2

Page 8

OOOD
CP/M ASM86 1.1

OOOA

EQU

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

EQU

ODH

OAH

BDOS FUNCTION NUMBERS

0007

FIOB

EQU

GET I/O BYTE

0009

FPRINT

EQU

PRINT STRING

OOOF

FOPEN

EQU

OPEN FILE

0014

FREAD

EQU

READ SEQUENTIAL

001A

FDMA

EQU

SET DMA ADDRESS

0033

FDMAB

EQU

SET DMA SEGMENT BASE

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

EJECT

*************************************************************
*************************************************************

CSEG

Page 9

ORG

THE FOLLOWING CODE IS RELOCATED TO PRIVATE 8088 MEMORY BEFORE
BEING EXECUTED

MUST BE AT OFFSET 0

RELOBEG:
0000 E9DE03

JMP

03EI

0003 90

NOP

0004 90

NOP

0005 90

NOP

START

INCLUDE Z80SVC.LIB

,.*************************************

,.*

Z80 SERVICE ROUTINE

,.*

IN 8088

,.*

FOR PC-IOO

,.*

,.*************************************
EQU

009E

BDOS SEG

39*4+2

009C

PZOT

EQU

39*4

FDOO

DEFBUF

EQU

PB2 ADR + XDEFBUF

FD86

PACKET

EQU

PB2 ADR + XPACKET

FD94

ADCPAC

EQU

PB2 ADR + XADCPKT

0090

FDOSM

EQU

90H

0028

MAXBDOS EQU

28H

;Highest BDOS function serviced

Page 10

OOOF

DPBLEN

EQU

~Length

of disk parameter block

0019

ALVLEN

EQU

~Length

of allocation vector

002S

TRNLEN

EQU

~Length

of maximum translation table

FCAO

PSDPH

EQU

PB2 ADR+XDPCX

~Pseudo-DPH

FCBO

PSTRN

EQU

PSDPH+l6

~Pseudo

FCDS

PSDPB

EQU

PSTRN+TRNLEN

~Pseudo-DPB

FCE7

PSALV

EQU

PSDPB+DPBLEN

~Pseudo-ALV

translate table

,.****************************************
,.*

,.* Wait for a call from ZSO to bios or

,.* bdos, then set bx to point to the

,.* packet.

,.*

,.****************************************
WAIT FOR CALL:
=0006 ES4203

CALL WAIT39

034B

~Actual

wait loop

SERVICE CALL:
SUB BX,4

=0009 S3EB04
CP/M ASMS6 1.1

SOURCE: ZSOCCP.AS6

was set to packet pointer+4

CONFIG SYSTEM; INIT FOR .COM

MOV BX ,ES: [BX]

=OOOC 26SBIF

~BX

~Put

packet address in BX

;Then fall through

,.****************************************
,.*

Page 11

subroutine to unpack data packet,

call appropriate BIOS or BDOS routine*

then repack data to return to ZSO

operation.

,.*

,.****************************************

PACKIN:
~SAVE

CURRENT DS

MOV DS,AX

~Zero

data segment

=00.14 2E891E97o.2

MOV MAILBOX,BX

~save

packet address

=00.19 8BF3

MOV S1,BX

~Packet

address is in MAILBOX

=o.OIB 8A54o.8

MOV DL,08 lSI]

~IOBYTE

in packet +S

=OOIE 2E3A169602

CMP DL,IOBLCL

~check

JE PACKI

~skip

=0025 2ES8169602

MOV IOBLCL,DL

ielse save it as updated

=o.o.2A BI08

MOV CL,S

~BDOS

SET IOBYTE

=002C CDEO

INT 224

~ca11

BDOS

=002E 2E8B369702

MOV S1,MAILBOX

~restore

MOV AH, [51]

;function code in AR, by the way

=00.35 8B4Co.2

MOV CX, 0.2 [SI]

;same as ZSO BC

=003S SB5404

MOV DX,04[SI]

;same as ZSo. DE

=003B SOFC90

CMP AH,FDOSM

;is this a BDOS call?

JE BDOSSO

;go do BDOS

=OOOF IE

PUSH DS

=0010. 33Co.

XOR AX,AX

=0.012 8ED8

=0.023 740E

0033

PACKl:

=00.33 8A24

=Oo.3E 7445

00S5
BIOSSo.:

for changed iobyte
if it's ok

SI (jic)

if so

;else fall through to BIOS

Page 12
::1)''040 80EC40

SUB AH,40H

iremove function offset

='f)'f)43 BSOO

MOV CH,O

iPossible word needed

=9'045 80FCOI

CMP AH,l

iWARM BOOT?

=;IW48 7S03

0040

JNE BIOXX

=fl04A E9DlOO

OllE

JMP XINI

ig o away if so

CMP AH,lOH

iSECTRAN?

=:{),040 80FCIO

BIOXX:

'='O;QSO 7S02

00S4

JNE BIOS80A

iSKIP IF NOT

=0052 EB18

006C

JMPS YOK

i Z80 handles sectran.

CMP AH,9

iSELOSK?

OOSC

JNE BIOS80B

iskip if not

018C

JMP BSELD

ig o do table move i f so

=(lOSC 886401

MOV 01 [SI 1 ,AH

iBIOS function number.

=OOSF 8BD6

MOV OX,SI

ito cheat and use BOOS call SO

=0061 42

INC OX

iand the original packet for the

=0062 B93200

MOV CX,SO

iBIOS descripter block.

BIOS80A:
=e{)54 80FC09
=ol1)() S7

7S03

=f)OS9 E9300l

BIOS80B:

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

=O{)6S COEO
=0067 2E891E9402

We are going

CONFIG SYSTEMi INIT FOR .COM

INT 224

iOO BOOS direct BIOS call.

PACKUP: MOV BHLD,BX

;SAVE BX REG. (Z80 HL)

YOK:

iRETURN FROM BOOS
iOR BIOS

=O{)6C 2E8BIE9402

MOV BX,BHLO

iRESTORE BX REG. (Z80 HL)

Page 13

=0071 2E8B369702

MOV Sr,MAILBOX

=0076 884401

MOV 01[SI] ,AL

=0079 895C06

MOV 06 lSI] ,BX

=007C 8BCE

MOV CX,SI

=OO7E IF

POP DS

iPACKET ADDRESS

iPACKET ADDRESS IN CX

=007F E89102

0313

CALL XFERPKT

iSEND THE PACKET

=0082 E984FF

0009

JMP SERVICE CALL

iGO WAIT FOR ANOTHER ONE

BDOS80:
=0085 51

BDLPl:

iDO A BDOS FUNCTION
PUSH CX

iSAVE THE FUNCTION

=0086 B500

MOV CH,O

iMAKE A JUMP INSTRUCTION

=0088 03C9

ADD CX,CX

=008A BBF001

MOV BX,OFFSET BDJMPS

iBEGINNING OF TABLE

=008D 03D9

ADD BX,CX

iDIRECTOR

=008F 59

POP CX

iGET THE FUNCTION BACK

=0090 2EFFA70000

JMP CS: WORD PTR [BX]

iGO DO PRE-CONDITIONING

XADCS:

iWE HAVE A STRING
MOV ADCLEN,128

=0095 2EC706990280

iOF 128 BYTES OR LESS

00
=009C EB07

JMPS XADCO

00A5

=
XADC:
=009E 2EC706990224
00

iPRECOMPENSATION
MOV ADCLEN,36

i.FOR FCB (36 BYTES)

Page 14

XADCO:
=00A5 2E89169B02

MOV ADCFLG,DX

=OOAA 50

PUSH AX

=OOAB 33CO

XOR AX,AX

=OOAD 8ED8

MOV DS,AX

=OOAF 81FAOO08

CMP DX,800H

=00B3 732A

OODF

JAE XADC1

=00B5 2EC7069D0200

iSAVE THE ABSOLUTE ADDRESS

fJUMP IF ALL IS WELL

MOV CS.: WORD PTR ADCDES,DEFBUF

iDEST ADDRESS

FD
=OOBC E83AOO

CALL ZADC

00F9

=OOBF 80F90A
=00C2 7510

00D4

JMPS XADC1

OODF

=00D4 80F909

CP/M ASM86 1.1

iMAX .GT. 126?

iNO, SKIP AHEAD
iYES, MAKE IT 126.

iTHEN SKIP AHEAD

XADC01: CMP CL,9

iPRINT STRING?

JNZ XADC1

iNO, SKIP AHEAD

OODF

SOURCE: Z80CCP.A86

CONFIG SYSTEMi INIT FOR .COM

MOV ES: BYTE PTR .DEFBUF+127, '$'

=00D9 26C6067FFD24

=OODF 58

i-NOT READ CONSOLE STRING

MOV ES: BYTE PTR .DEFBUF,126

=OOCC 26C60600FD7E

=00D7 7506

JNZ XADC01

JB XADC1

OODF

=00D2 EBOB

iLIMIT STRINGS IN AND OUT TO 128 BYTES

CMP ES: BYTE PTR .DEFBUF,126

=00C4 26803EOOFD7E
=OOCA 7213

CMP CL,10

XADC1:

iYES, IMPLANT END-STRING (JIC)

POP AX

XOK:
=OOEO 51

PUSH CX

iSAVE FUNCTION CODE

Page 15

=OOEI 52

PUSH DX

iSAVE ADDRESS FOR ADC

=00E2 CDEO

INT 224

iDO BDOS FUNCTION

=00E4 SA

POP DX

iGET ADDRESS BACK

iCONTINUE AFTER BDOS
=00E5 2E891E9402

MOV BHLD,BX

iSAVE BX REG (Z80 HL)

=OOEA 59

POP CX

iRESTORE FUNCTION CODE

=OOEB B500

MOV CH,O

iMAKE 16 BIT NR

=OOED 03C9

ADD CX,CX

iDIRECTOR

=OOEF BB4202

MOV BX,OFFSET BDYJMPS

iTO ROUTINE

=00F2 03D9

ADD BX,CX

iOFFSET TO ROUTINE

=00F4 2EFFA70000

JMP CS: WORD PTR [BX]

iDO POST-CONDITIONING

ZADC:

iCOMMON ROUTINE TO MOVE A BLOCK.

SOURCE IS IN DX, DEST AND LENGTH

iIN ADCDES AND ADCLEN RESPECTIVELY
=00F9 53

PUSH BX

=OOFA 51

PUSH CX

=OOFB BB94FD

MOV BX,ADCPAC

=OOFE C60722

MOV BYTE PTR [BX] ,22H

iMOVE FUNCTION

=0101 895702

MOV 02[BX] ,DX

iSOURCE IN DX ON ENTRY

=0104 2E8B169D02

MOV DX,ADCDES

iDESTINATION

=0109 895704

MOV 04[BX] ,DX

iADDRESS

=010C 52

PUSH DX

iWE WANT THIS BACK

=010D 2E8B169902

MOV DX,ADCLEN

iLENGTH

=0112 895706

MOV 06[BX] ,DX

iFROM ENTRY VARIABLE

=0115 8BCB

MOV CX,BX

iINSTRUCTION TO INTERFACE

CALL XFERPKT

iCALL INTERFACE

=0117 E8F901

0313

iMOVING TO DO

iGET PACKET ADDRESS

Page 16
=Ol1A 5A

POP DX

=Ol1B 59

POP CX

=Ol1C 5B

POP BX

=Ol1D C3

RET

=Ol1E E8E501

0306 XINI:

;RESTORE REGS

CALL RESETZFLAG

=0121 33CO

XOR AX,AX

=0123 B200

MOV DL,O

;CODE TO RELEASE MEMORY

=0125 BI00

MOV CL,O

;RESET SYSTEM

=0127 EBB7

JMPS XOK

OOEO

XDCI:

=0129 80FAFF

CMP DL,OFFH

;CPM-80 USES FF FOR STATUS AND INPUT

=012C 7402

0130

JZ XDCIl

;SKIP AHEAD IF FF

=012E EBBO

OOEO

JMPS XOK

;ELSE EXIT

PUSH CX

; SAVE THE CX REG

=0131 FECA

DEC DL

;CL=OFEH FOR STATUS

=0133 CDEO

INT 224

;BDOS CALL

=0135 59

POP CX

;RESTORE THE CALL NO.

=0136 OACO

OR AL,AL

;CHECK FOR AL=O

XDCIl :

=0130 51

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

=0138 7503

013D

JNZ XDCI2

;SKIP IF NON-ZERO

=013A E92FFF

006C

JMP YOK

;ELSE ALL DONE, AL=O

MOV DL,OFFH

;CHARACTER IS READY, GO GET IT

JMPS XOK

;FROM BDOS

XDCI2:

=013D B2FF
=013F EB9F

OOEO

YADC:

iPOST-COMPENSATION

Page 17

=0141 2E3B169B02

CMP DX,ADCFLG

WE HAVE TO DO PRECOMPENSATION?

~DID

=0146 7503

014B

JNE YADC1

=0148 E921FF

006C

JMP YOK

~EXIT

IF NOT

PUSH AX

~ELSE

SAVE REGISTERS

~GET

OLD DESTINATION

=014B 50

YADCl:

=014C 52

PUSH DX-

=014D 2E8B169B02

MOV DX,ADCFLG

=0152 2E89169D02

MOV ADCDES,DX

=0157 5A

POP OX

=0158 E89EFF

YADC2.:

=015B 58
=015C E90DFF

006C

=015F OACO
=0161 7402

CALL ZADC

00F9

YGCS:
0165

=0163 BOFF
=0165 E904FF

006C YCG1:

=0168 2EA19402
=016C E9FDFE

YLIV:
006C

POP AX
JMP YOK

~BYE.

OR Ar;,AL

~WE

JZ YCG1

, ...

MOV Ar;,OFFH

~FF.

NEED ZERO OR

JMP YOK

MOV AX,BHLD

~CPM-80

EXPECTS A TO DUPLICATE H.

JMP YOK

=
=016F B90FOO

YDPB.:

=0172 B8D8FC
=0175 EB06

=0177 B91900

~Move

DPB to pseudo

~Move

ALV to pseudo

MOV AX,PSDPB
JMPS YALVX

0170

YALV:

=017A B8E7FC
=017D 2E8B1E9402

MOV CX,DPBLEN

MOV CX,ALVLEN
MOV AX,PSALV

YALVX:

MOV BX,BBLD

~RestoreBX

Page 18
=0182 2EA39402

MOV BHLO,AX

=0186 E85100

010A

CALL YO PM

=0189 E9EOFE

006C

JMP YOK

=018C 886401

BSELO:

iGive user pseudo-ALV address

MOV 01 lSI] ,AH

iBIOS function number.

=018F 8B06

MOV OX,SI

ito cheat and use BOOS call 50

=0191 42

INC OX

iand the original packet for the

=0192 B93200

MOV CX,50

iBIOS descripter block.

=0195 COEO

INT 224

JOO BOOS direct BIOS call.

=0197 OBOB

OR BX,BX

jCheck for zero here

We are going

=0199 7503

019E

JNZ BSELOI

jSkip if non-zero

=019B E9C9FE

0067

JMP PACKUP

jElse exit with zero to mark error

=019E IE

BSEL01: PUSH OS

jNeed it for later

=019F 52

PUSH OX

jSave for reference

=OlAO 53

PUSH BX

jBX has OPH offset

=OlAl 268BIF

MOV BX,ES: [BX]

jGet translate table address

=01A4 B92800

MOV CX,TRNLEN

=01A7 B8BOFC

MOV AX,PSTRN

jPseudo-translate address

CALL YDPM

JOO move

=OlAA E82000
CP/M ASM86 1.1

010A

SOURCE: Z80CCP.A86

CONFIG SYSTEMj INIT FOR .COM

=OlAO 5B

POP BX

jOPH address

=OlAE 83C30A

ADD BX,lO

jGet OPB address

=OlBl 53

PUSH BX

=01B2 268BIF

MOV BX,ES: [BX]

=01B5 B90FOO

MOV CX,OPBLEN

=01B8 B808FC

MOV AX,PSOPB

Page 19

=OlBB ESICOO

OIDA

CALL YDPM

=OlBE 5B

POP BX

=OlBF S3C304

ADD BX,4

=01C2 26SBIF

MOV BX,ES: [BXj

=01C5 B91900

MOV CX,ALVLEN

=OlCS BSE7FC

MOV AX,PSALV

=OlCB ESOCOO

OIDA

;Get ALV address

CALL YDPM

=OlCE 2EC7069402AO

MOV BHLD,PSDPH

;Furnish user with pseudo-DPH

=01D5 SA

POP DX

iReference

=01D6 IF

POP DS

;DS=O

=01D7 E992FE

=OlDA SBF3

JMP YOK

006C

YDPM:

MOV SI,BX

igo back to zSO

;Routine to move a block

=OlOC IE

PUSH DS

=OlOD 06

PUSH ES

BX has source offset

=OlOE SBFS

MOV DI,AX

AX has destination (absolute)

=OlEO 33CO

XOR AX,AX

ES has source segment

=01E2 2ES93E9402

MOV BHLD,DI

=01E7 IF

POP DS

;(shift former es to ds)

=OlES IE

PUSH DS

;save to restore es

=01E9 SECO

MOV ES,AX

=OlEB F3A4

REP MOVS AI;,AL

;move bytes

=OlED 07

POP ES

;Restore es and ds

=OlEE IF

POP DS

=OlEF C3

RET

ENTRY - CX has byte count

Page 20
=OlFO lEOl

BDJMPS

XINI

=01F2 EOOO

XOK

=01F4 EOOO

XOK

=01F6 EOOO

XOK

=01F8 EOOO

XOK

=OlFA EOOO

XOK

=OlFC 2901

XOCI

=OlFE EOOO

XOK

=0200 EOOO

XOK

=0202 9500

XAOCS

=0204 9500

XAOCS

:10

=0206 EOOO

XOK

:11

=0208 EOOO

XOK

:12

=020A EOOO

XOK

:13

=020C EOOO

XOK

:14

=020E 9EOO

XAOC

:15

=0210 9EOO

XAOC

:16

=0212 9EOO

XAOC

:17

=0214 EOOO

XOK

:18

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

=0216 9EOO

XAOC

:19

=0218 9EOO

XAOC

:20

=021A 9EOO

XAOC

;21

=021C 9EOO

XAOC

:22

=021E 9EOO

XAOC

:23

=0220 EOOO

XOK

:24

Page 21

=0222 EOOO

XOK

;25

=0224 EOOO

XOK

;26

=0226 EOOO

XOK

;27

=0228 EOOO

XOK

;28

=022A EOOO

XOK

;29

=022C 9EOO

XADC

;30

=022E EOOO

XOK

;31

=0230 EOOO

XOK

;32

=0232 9EOO

XADC

;33

=0234 9EOO

XADC

;34

=0236 9EOO

XADC

;35

=0238 9EOO

XADC

;36

=023A EOOO

XOK

;37

=023C EOOO

XOK

;38

=023E EOOO

XOK

:39

=0240 9EOO

XADC

:40

=0242 6COO

BDYJMPS DW

YOK

=0244 6COO

YOK

=0246 6COO

YOK

=0248 6COO

YOK

=024A 6COO

YOK

=024C 6COO

YOK

=024E 6COO

YOK

=0250 6COO

YOK

=0252 6COO

YOK

=0254 4101

YADC

Page 22
=0256 4101

YAOC

;10

=0258 5F01

YGCS

;11

=025A 6COO

YOK

;12

=025C 6COO

YOK

;13

=025E 6COO

YOK

;14

=0260 4101

YAOC

;15

=0262 4101

YAOC

;16

=0264 4101

YAOC

;17

=0266 6COO

YaK

;18

=0268 4101

YAOC

;19

=026A 4101

YAOC

;20

=026C 4101

YAOC

;21

=026E 4101

YAOC

;22

=0270 4101

YAOC

;23

=0272 6801

YLIV

;24

=0274 6COO

YaK

;25

=0276 6COO

YOK

;26

=0278 7701

YALV

;27

=027A 6COO

YaK

;28

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

=027C 6COO

YaK

;29

=027E 4101

YAOC

;30

=0280 6F01

YOPB

;31

=0282 6COO

YaK

;32

=0284 4101

YAOC

;33

=0286 4101

YAOC

;34

Page 23

=0288 4101

YADC

;35

=028A 4101

YADC

;36

=028C 6COO

YOK

;37

=028E 6COO

YOK

;38

=0290 6COO

YOK

;39

=0292 4101

YADC

;40

=0294 0000

BHLD

; SAVE LOC FOR BX REG

=0296 00

IOBLCL

; LOCAL COpy OF IOBYTE

=0297 0000

MAILBOX DW

=0299 0000

ADCLEN

=029B 0000

ADCFLG

=029D 0000

ADCDES

=029F 09

TMP50

=02AO 00000100

0',01

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

EJECT

RELOSTART:
02A4 8CC8

MOV

AX,CS

02A6 8ED8

MOV

DS,AX

02A8 BAOOOI

MOV

DX,STARTCOM

Page 24
LOADCOM:
02AB E84300

02F1

CALL

DMASET

PUSH

CALL

READCOM

02B2 SA

POP

02B3 3C01

CMP

ATI,OlH

EOF?

LOAD END

YES

02B7 81C28000

ADD

DX,80H

02BB 2E3B16A403

CMP

DX,MAXADR

02AE 52
02AF E84700

02B5 741B

02F9

02D2

02CO 7703

02C5

LOADERR

02C2 E9E6FF

02AB

JMP

LOADCOM

MOV

DX,OFFSET COMERR

SET DMA ADR

READ

TPA OVERFLOW?
YES

LOADERR:
02C5 BAC903
02C8 E82AOO

02F5

CALL

SPRINT

02CB E83800

0306

CALL

RESETZFLAG

02CE B8FFOO

MOV

AX,255

02D1 CB

RETF

RETURN TO CCP WITH ERROR

LOADEND:
02D2 BA8000

MOV

DX,80H

CALL

DMASET

02D8 33CO

XOR

AX,AX

02DA 8ECO

MOV

ES,AX

02DC BB86FD

MOV

BX,PB2_ADR+STARTPKT OFFSET

02DF 26C60721

MOV

ES:BYTE PTR[BX] ,STARTFC

02E3 26C747020001

MOV

ES:WORD PTR 2[BX] ,STARTCOM

02D5 E81900

02F1

SET DEFAULT BUFFER

Page 25

= PACKET POINTER

MOV

CX,BX

CALL

XFERPKT

EXECUTE .COM FILE

JMP

WAIT FOR CALL

GO WAIT FOR BDOS OR BIOS CALL

MOV

CL,FDMA

JMPS

INTBDOS

MOV

CL,FPRINT

JMPS

INTBDOS

02F9 B114

MOV

CL,FREAD

02FB BAA803

MOV

DX,OFFSET COMFCB

02E9 8BCB
02EB E82500

0313

LOADSTOP:
02EE E915FD

0006

DMASET:
02Fl B11A
02F3 EB09

02FE

SPRINT:
02F5 BI09
02F7 EB05

02FE

READCOM:

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

INTBDOS:
02FE CDEO

INT

0300 C3

RET

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

BDOS

CONFIG SYSTEM; INIT FOR .COM

Page 26
EJECT

****************************************************************

SET Z80-RUNNING-FLAG (THIS IS TO INDICATE TO BDOS THAT THE
DMA ADDRES IS IN Z80 SPACE)

NOTE: THESE ROUTINES DO NOT CHANGE THE SETTING OF CARRY FLAG

SETZFLAG:
0301 B8FFFF
0304 EB02

0308

MOV

AX,TRUE

JMPS

SETZFl

RESETZFLAG:
XOR

AX,AX

PUSH

CALL

FINDZOT

030C 4B

DEC

030D 4B

DEC

030E 58

POP

030F 268907

MOV

ES: [BX)" ,AX

0312 C3

RET

0306 33CO

SETZFl :
0308 50
0309 E87FOO

CP/M ASM86 1.1

038B

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

Page 27

EJECT

**************************************************************

SEND PACKET AND WAIT FOR Z80 TO FINISH

ENTRY: CX

PACKET ADDRESS

XFERPKT:
0313 2E8E06A203

MOV

ES, ZOTSEG

0318 2E8B1EA003

MOV

BX, ZOTADR

031D 26C7070000

MOV

ES:WORD PTR[BX] ,FALSE

0322 E80200

0327

CALL

SENDPKT

0325 EB24

034B

JMPS

WAIT39

RESET DONE FLAG

**************************************************************

SEND PACKET TO Z80

ENTRY: CX

PACKET ADDRESS

0002

GSCR

EQU

0000

INTZ80

EQU

0080

BIT7

EQU

80H

Page 2S
SENDPKT:
0327 2ESE06A603

MOV

ES,PARM_SEG

032C BB4725

MOV

BX,BIOS_OFFSET+PBADR_OFFSET

032F 26SBIF

MOV

BX,ES: [BX]

0332 S1C3FE02

ADD

BX,ISSPKT_OFFSET

0336 33CO

XOR

AX,AX

033S SECO

MOV

ES,AX

033A 26S90F

MOV

ES: [BX] ,CX

STORE POINTER

SIGNAL ZSO THEN WAIT FOR Z80 TO ACKNOWLEDGE
OUT

033D E600

INTZ80,AL

; INTERRUPT ZSO

SENDPKI0.:
033F E402

AL,GSCR

GET ZSO STATUS

0341 A880

TEST

AL,BIT7

INTERRUPT STILL PENDING?

SENDPKI0

0345 26C7070000

MOV

ES.: WORD PTR [BX] ,0

034A C3

RET

0343 74FA

033F

YES - CHECK AGAIN
THEN ZERO OUT THE PACKET POINTER

***************************************************************

WAIT FOR Z80 TO FINISH

CP/M ASM86 1.1

SOURCE: ZSOCCP.A86

CONFIG SYSTEM; INIT FOR .COM

Page 29

WAIT39:
034B 2E8E06A203

MOV

ES,ZOTSEG

0350 2E8B1EA003

MOV

BX, ZOTADR

WAIT39 LOOP:
0355 FA

CLI

0356 26F707FFFF

TEST

ES:WORD PTR[BX] ,TRUE

JNZ

WAIT39 DONE

TEST

ES:BYTE PTR .CICCK[BX]',TRUE

WAIT39 HALT

0364 06

PUSH

0365 53

PUSH

0366 BF0400

MOV

D1,4

0369 CD28

INT

036B 84C9

TEST

CL,CL

WAIT39 NEXT

036F 33CO

XOR

AX,AX

0371 8ECO

MOV

ES,AX

0373 BBOOFD

MOV

BX,PB2 ADR

0376 26808FE70201

ES:BYTE PTR .XCSFLAG[BX)"BIOCS

035B 752C

0389

035D 26F647FBFF
0362 7421

036D 740D

0385

037C

iROM ROUTINE TO GET CRT STATUS

WAIT39 NEXT:
037C 5B

POP

037D 07

POP

037E 26C647FBOO

MOV

ES:BYTE PTR • CICCK [BX] ,0

JMPS

WAIT39 LOOP

0383 EBDO

0355

WAIT39 HALT:
0385 FB

STI

0386 F4

HLT

Page 30
0387 EBCC

JMPS

0355

WAIT39 LOOP

WAIT39 DONE:
0389 FB

STI

038A C3

RET

FINDZOT:
038B 33CO

XOR

AX,AX

0380 8ECO

MOV

ES,AX

038F BB9EOO

MOV

BX,TYPE39SEG_ADR

0392 268B07

MOV

AX,ES: [BX]

0395 BB9COO

MOV

BX,TYPE390FFSET_ADR

0398 268BIF

MOV

BX,ES: [BX]

039B 4B

DEC

039C 4B

DEC

0390 8ECO

MOV

ES,AX

039F C3

RET

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

RETURN WITH ZOT

ES: [BX]

CONFIG SYSTEMi IN IT FOR .COM

EJECT

*********************************************************************

03AO

ZOTADR

iADDRESS OF ZOT

03A2

ZOTSEG

iSEGMENT OF ZOT

Page 31

03A4

MAXADR

03A6

LAST DMA ADDRESS BEFORE TPA OVERFLOW

PARM SEG RW

SEGMENT FOR CURRENT CPM

03A8

COMFCB

.COM FILE FCB

03C9 ODOA43414E4E

COMERR

CR,LF,'CANNOT LOAD .COM FILE$'

4F54204C4F41
44202E434F4D
2046494C4524

03El

CP/M ASM86 1.1

RELOEND EQU

SOURCE: Z80CCP.A86

END OF CODE TO BE RELOCATED

CONFIG SYSTEM; INIT FOR .COM

EJECT

**************************************************************
**************************************************************

START.:
03El 2E8C06A603

MOV

PARM_SEG, ES

03E6 891E0401

MOV

PARM_OFFSET,BX

03EA 268BIF

MOV

BX,ES: [BX]

GET FCB OFFSET

03ED 268A470A

MOV

AD,ES:BYTE PTR 10[BX]

GET MIDDLE LETTER OF TYPE

03Fl 247F

AND

AI,07FH

KILL UPPER BYTE

Page 32
03F3 3C4D
03F5 7477

046E

CMP

AL, 'M'

CONFGCMD

.CMD FILE?
YES

.COM FILE WAS REQUESTED

03F7 BB4725

MOV

BX,BIOS_OFFSET+PBADR_OFFSET

03FA 268B1F

MOV

BX,ES: [BX]

GET ADR OF DATA BLOCK

03FD 81C3FA02

ADD

BX,PCPMADR_OFFSET

GET ADR OF PSEUDO CPM INDICATOR

0401 33CO

XOR

AX,AX

0403 8ECO

MOV

ES,AX

0405 268B07

MOV

AX,ES:[BX]

0408 OBCO

AX,AX

JNZ

INITCOM

040A 7520

042C

IS PSEUDO CP/M LOADED ALREADY?
YES

CHANGE FROM CONFIGURATION #1 TO CONFIGURATION #2

040C E8CBOO

04DA

CALL

READ PC PM

READ PSEUDO CP/M AND ITS
PRIMITIVE ROUTINES

040F 727F

0490

RETERR

0411 E80C01

0520

CALL

MOVEBLOCK1

MOVE POINTERS/BUFFERS DATA BLOCK

0414 E82A01

0541

CALL

MOVECPM1

MOVE CP/M-86/80

ERROR

; SET ALL POINTERS/VALUES VALID
0417 E8AA01

05C4

CALL

SETPBADR

SET POINTER TO DATA BLOCK IN CP/M

041A E8B501

05D2

CALL

SETPCPM

INDICATE PSEUDO CP/M IS LOADED

NOW TRANSFER CONTROL TO NEW MODULES

Page 33

0410 E8DOOI

05FO

CALL

SETZ80SHR

ADJUST Z80 VECTORS AND STACK POINTER

0420 E8F601

0619

CALL

SET8088

ADJUST 8088 VECTORS AND
CCP RETURN ADDRESS

0423 8EDO

MOV

SS,AX

0425 AI0001

MOV

AX,NEWCPM_SEG

0428 2EA3A603

MOV

PARM_SEG,AX

ADJUST STACK SEGMENT

INITIALIZE Z80 MEMORY AND EXECUTE .COM FILE

INITCOM:
042C E85CFF

038B

042F 2E8C06A203
CP/M ASM86 1.1

CALL

FINDZOT

U# VER 1.0.4

MOV

ZOTSEG,ES

#U VER 1.0.4

SOURCE: Z80CCP.A86

0434 2E891EA003

CONFIG SYSTEM; IN IT FOR .COM

MOV

ZOTADR,BX

#U VER 1.0.4

0439 E81302

064F

CALL

INITZL07

INITIALIZE Z80 LOCATIONS 0-7

043C E88502

06C4

CALL

INITFCBBUF

INITIALIZE FCB AND DEFAULT BUFFER

043F E8B802

06FA

CALL

INITVECTOR

INITIALIZE PBDOS VECTOR

0442 E8C902

070E

CALL

SAVEFCB

SAVE .COM FILE FCB

; READY .COM FILE FOR LOADING
0445 BAA803

MOV

DX,OFFSET COMFCB

0448 IE

PUSH

0449 8CC8

MOV

AX,CS

044B 8ED8

MOV

DS,AX

CALL

OPENFILE

0440 E80D03

0750

OPEN .COM FILE

COMFCB IS IN CSEG

Page 34
0450 IF

POP

CALL

SETZFLAG

MOV

DX,O

CALL

SETDMAB

045A AI0EOI

MOV

AX,PCPMVECTOR

0450 2D8000

SUB

AX,80H

0460 2EA3A403

MOV

MAXADR,AX

0451 E8ADFE

0301

0454 BAOOOO
0457 E80703

0761

0464 E8E602

074D

CALL

INIDPH

0467 E8CB02

0735

CALL

RELOCATE

SAVE MAX LOAD ADR FOR .COM FILE

iINITIALIZE PSEUDO-DPH

RELOCATE LOAD CODE TO
PRIVATE 8088 MEMORY

JMPF

046A FF2EI001

DWORD PTR "JMPF OFFSET

LOAD .COM FILE AND EXECUTE IT

CHANGE FROM CONFIGURATION #2 TO CONFIGURATION #1

CONFGCMD:
046E E890FE

0301

CALL

SETZFLAG

0471 E82000

0494

CALL

READPVT

0474 E88FFE

0306

CALL

RESETZFLAG

0477 7217

0490

RETERR

0479 E8ACOO

0528

CALL

MOVEBLOCK2

MOVE POINTERS/BUFFERS DATA BLOCK

047C E8F500

0574

CALL

MOVECPM2

MOVE CP/M-86/80

READ PRMTVPVT.SYS

ERROR

Page 35

; SET ALL POINTERS/VALUES VALID
047F E84201

05C4

CALL

SETPBADR

SET POINTER TO DATA BLOCK IN CP/M

0482 E85201

05D7

CALL

RESETPCPM

INDICATE PSEUDO CP/M NOT LOADED

; NOW TRANSFTER CONTROL TO NEW MODULES
0485 E86DOI

05F5

CALL

SETZ80PVT

ADJUST Z80 VECTORS AND STACK POINTER

0488 E88EOI

0619

CALL

SET8088

ADJUST 8088 VECTORS AND
CCP RETURN ADDRESS

0488 8EDO

MOV

SS,AX

048D 33CO

XOR

AX,AX

048F CB

RETF

CP/M ASM86 1.1

SOURCE.: Z80CCP.A86

ADJUST STACK SEGMENT

; RETURN TO CCP TO RUN .CMD FILE
CONFIG SYSTEM; INIT FOR .COM

RETERR:
0490 B8FFOO

MOV

0493 CB

RETF

CP/M ASM86 1.1

SOURCE: zaOCCP.A86

AX,255
RETURN TO CCP WITH ERROR

CONFIG SYSTEM; INIT FOR .COM

EJECT

*****************************************************************

Page 36
READ PRMTVPVT.SYS INTO PRIVATE Z80 MEMORY
(Z80 RUNNING FLAG MUST BE SET BEFORE ENTERING ROUTINE AND MUST
BE RESET AFTER EXITING)

ENTRY: NONE

EXIT: CF=l

ERROR (MSG ALREADY PRINTED)

READPVT:
0494 2E8E06A603

MOV

ES,PARM_SEG

0499 8BIE0401

MOV

BX,PARM_OFFSET

049D 268A4703

MOV

Ar;,ES:3[BXj

04Al FECO

INC

04A3 A22401

MOV

PRMTVFCB,AL

04A6 BA2401

MOV

DX,OFFSET PRMTVFCB

CALL

OPENFILE

INC

READPERR

MOV

DX,O

CALL

SETDMAB

MOV

DX,PRMTVl_ADR

CALL

SETDMA

04BC 52

PUSH

04BD BA2401

MOV

DX,OFFSET PRMTVFCB

04A9 E8BI02

075D

04AC FECO
04AE 7422

04D2

04BO BAOOOO
04B3 E8AB02

0761

04B6 BAOOOI

GET BOOT DRIVE

SET FCB DISK DRIVE

GOOD FILE?
NO

READP2:
04B9 E8A902

0765

SET DMA OFFSET FOR •••

Page 37

04CO E8A602

CALL

READFILE

04C3 SA

POP

04C4 3COI

CMP

AL,OIH

READ PEND

ADD

DX,80H

JMP

READP2

04C6 7407

0769

04CF

04C8 81C28000
04CC E9EAFF

04B9

..• NEXT SECTOR READ

EOF?
YES
ADDRESS FOR NEXT RECORD

READPEND:
04CF 33CO

XOR

04Dl C3

RET

AX,AX

RESET CARRY

READPERR:
04D2 BA6601
04D5 E89902

0771

MOV

DX,OFFSET PRMTVERR

CALL

PRTSTRING

04D8 F9

STC

04D9 C3

RET

CP/M ASM86 1.1

SOURCE.: Z80CCP.A86

SET CARRY

CONFIG SYSTEM; INIT FOR .COM

EJECT

**************************************************************

READ PSEUDO CP/M AND ITS PRIMITIVE ROUTINES (Z80.SYS)

Page 38
ENTRY: NONE

EXIT,: CF=1

CF=O
AX

ERROR (MSG ALREADY PRINTED)

NORMAL
PSEUDO CP/M LOAD ADDRESS

READPCPM:
04DA 2E8E06A603

MOV

ES,PARM_SEG

04DF 8BIE0401

MOV

BX,PARM_OFFSET

04E3 268A4703

MOV

AL,ES:3[BXj

04E7 FECO

INC

04E9 A24501

MOV

Z80FCB,AL

04EC BA4501

MOV

DX,OFFSET Z80FCB

CALL

OPENFILE

INC

READCERR

MOV

DX,O

CALL

SETDMAB

MOV

DX,PCPM_ADR

CALL

SETDMA

0502 52

PUSH

0503 BA4501

MOV

DX,OFFSET Z80FCB

CALL

READFILE

04EF E86B02

075D

04F2 FECO
04F4 7422

0518

04F6 BAOOOO
04F9 E86502

0761

04FC BAOOF6

GET BOOT DRIVE

SET FCB DISK DRIVE

GOOD FILE?
NO

READCl:
04FF E86302

0506 E86002

0765

0769

SET DMA OFFSET FOR •••

••• NEXT SECTOR READ

Page 39

0509 5A

POP

050A 3COI

CMP

AL,OIH

READCEND

ADD

DX,80H

JMP

READCl

050C 7407

0515

050E 81C28000
0512 E9EAFF

04FF

EOF?
YES
ADDRESS FOR NEXT RECORD

READCEND:
0515 33CO

XOR

0517 C3

RET

AX,AX

RESET CARRY

READCERR:
0518 BA9501
051B E85302

0771

MOV

DX,OFFSET PCPMERR

CALL

PRTSTRING

051E F9

STC

051F C3

RET

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

SET CARRY

CONFIG SYSTEM; INIT FOR .COM

EJECT

******************************************************************

MOVE POINTERS/BUFFERS DATA BLOCK

MOVEBLOCKl:

Page 40

0520 BE003A

MOV

sr,PBl_AOR

0523 BFOOFO

MOV

Dr ,PB2_AOR

JMPS

MOVEBI

0526 EB06

052E

MOVEBLOCK2:
0528 BEOOFO

MOV

sr,PB2_AOR

052B BF003A

MOV

Dr ,PBl_AOR

052E 893E0201

MOV

NEWPB_AOR,OI

0532 IE

PUSH

0533 33CO

XOR

AX,AX

0535 8E08

MOV

OS,AX

0537 8ECO

MOV

ES,AX

0539 B90003

MOV

CX,PBl LEN

053C FC

CLO

MOVEB1:

0530 F3A4

REP MOVS

053F IF

pop

0540 C3

RET

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

SAVE POINTER TO NEW BLOCK

AI; ,AL

MOVE DATA BLOCK

CONFIG SYSTEM; INIT FOR .COM

EJECT

**************************************************************

Page 41

MOVE CP/M-86/80 AND ADJUST MEMORY REGION TABLE

MOVECPMl:
0541 2E8E06A603

MOV

ES,PARM_SEG

0546 BB4725

MOV

BX,BIOS_OFFSET+PBADR_OFFSET

0549 268BIF

MOV

BX,ES.: [BX]

GET ADR OF DATA BLOCK

054C 81C3F802

ADD

BX,MEMSIZE_OFFSET

GET ADR OF MEMORY SIZE

0550 33CO

XOR

AX,AX

0552 8ECO

MOV

ES,AX

0554 268B07

MOV

AX,ES: [BX]

GET MEMORY SIZE

0557 OBCO

AX,AX

LARGE SYSTEM?

JNZ

MCPMIA

055B B8000C

MOV

AX,CPM2A_SEG

055E 8ECO

MOV

ES,AX

SET DESTINATION SEGMENT

0560 B8COOB

MOV

AX, TPA2A_ LEN

SET TPA LENGTH

JMPS

MCPMIB

0565 B80010

MOV

AX,CPM2B_SEG

0568 8ECO

MOV

ES,AX

SET DESTINATION SEGMENT

056A B8200F

MOV

AX,TPA2B_ LEN

SET TPA LENGTH

056D 50

PUSH

056E B84000

MOV

AX,TPABEG2 SEG

0571 50

PUSH

JMPS

MCPM2

0559 750A

0563 EB08

0565

056D

YES

MCPMIA:

MCPMIB:

0572 EB23

0597

SET TPA START

Page 42

MOVECPM2:
0574 2E8E06A603

MOV

ES,PARM_SEG

0579 BB4725

MOV

BX,BIOS_OFFSET+PBADR_OFFSET

057C 268BIF

MOV

BX,ES:[BX]

GET ADR OF DATA BLOCK

057F 81C3F802

ADD

BX,MEMSIZE_OFFSET

GET ADR OF MEMORY SIZE

0583 33CO

XOR

AX,AX

0585 8ECO

MOV

ES,AX

0587 268B07

MOV

AX,ES: [BX]

GET #ADDITIONAL PARAGRAPHS

058A 05300C

ADD

AX,TPAl_LEN

SET TPA LENGTH

0580 50

PUSH

058E B8D003

MOV

AX,TPABEGl_SEG

0591 50

PUSH

0592 B84000

MOV

AX,CPMl_SEG

0595 8ECO

MOV

ES,AX

0597 IE

PUSH

0598 2E8EIEA603

MOV

DS,PARM_SEG

0590 BEOOOO

MOV

sr ,0

05AO BFOOOO

MOV

Dr ,0

05A3 B90036

MOV

CX,CPMl_LEN

SET TPA START

SET DESTINATION SEGMENT

MCPM2.:

CP/M ASM86 1.1

05A6 FC
05A7 F3A4
05A9 IF

SOURCE: zaOCCP.A86

CONFIG SYSTEM; IN IT FOR .COM

CLD
REP MOVS
POP

AL,AL
OS

GET CURRENT CP/M SEGMENT

Page 43

OSAA 8C060001

MOV

NEWCPM_SEG,ES

SAVE SEGMENT OF NEW CP/M

05AE BB4525

MOV

BX,BIOS_OFFSET+SEGTBL_OFFSET

05Bl 268BIF

MOV

BX,ES: [BX]

05B4 58

POP

05B5 26894701

MOV

ES: 1 [BX] ,AX

05B9 58

POP

05BA 26894703

MOV

ES: 3 [BX] ,AX

: GET SEG TBL OFFSET

SET START OF 1ST SEGMENT

SET LENGTH OF 1ST SEGMENT
IGNORE 2ND SEGMENT FOR
CONFIGURATION #2 -- LARGE SYSTEM

OSBE 268C060222

MOV

05C3 C3

RET

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

ES: WORD PTR .BIOSCS OFFSET,ES
-

: STASH NEW BIOS CS

CONFIG SYSTEM: INIT FOR .COM

EJECT

**************************************************************

SET CP/M'S POINTER TO POINTERS/BUFFERS DATA BLOCK

SETPBADR:
05C4 8E060001

MOV

ES,NEWCPM_SEG

Page 44
OSC8 BB4725

MOV

BX,BIOS_OFFSET+PBADR OFFSET

05CB AI0201

MOV

AX,NEWPB_ADR

05CE 268907

MOV

ES: [BX)',AX

05Dl C3

RET

*****************************************************************

INDICATE THAT PSEUDO CP/M IS LOADED

SETPCPM:
05D2 BAOOF6
05D5 EB03

05DA

MOV

DX,PCPM_ADR

JMPS

PCPMl

INDICATE THAT PSEUDO CP/M IS NOT LOADED

RESETPCPM:
MOV

DX,O

05DA 8E060001

MOV

ES,NEWCPM_SEG

05DE BB4725

MOV

BX,BIOS_OFFSET+PBADR_OFFSET

05El 268BIF

MOV

BX,ES: [BX]

GET ADR OF DATA BLOCK

05E4 81C3FA02

ADD

BX,PCPMADR_OFFSET

GET ADR OF PCPM LOAD ADR

05E8 33CO

XOR

AX,AX

05EA 8ECO

MOV

ES,AX

05D7 BAOOOO

PCPMl:

Page 45

OSEC 268917

MOV

OSEF C3

RET

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

ES: [BX] ,DX

CONFIG SYSTEM; INIT FOR .COM

EJECT

****************************************************************
ADJUST Z80 INTERRUPT VECTORS, STACK POINTER

SETZ80SHR:
OSFO BA03F6
05F3 EB03

05F8

MOV

DX,PRMTV2_ADR

JMPS

RESETPI

SETZ80PVT.:
MOV

DX,PRMTVl_ADR

OSF8 2E8E06A603

MOV

ES,PARM_SEG

OSFD BB4725

MOV

BX,BIOS_OFFSET+PBADR_OFFSET

0600 268BIF

MOV

BX,ES.: [BX]

GET ADR OF DATA BLOCK

0603 81C38600

ADD

BX, STARTPKT_OFFSET

GET ADR OF PACKET BUFFER TO USE

0607 33CO

XOR

AX,AX

0609 8ECO

MOV

ES,AX

05F5 BAOOOI

RESETPl:

Page 46

060B 26C60721

MOV

ES.: BYTE PTR [BX] ,STARTFC

060F 26895702

MOV

ES:2[BXr,DX

SET Z80 START ADR

0613 8BCB

MOV

CX,BX

CX = PACKET POINTER

CALL

SENDPKT

ADJUST VECTORS, STACK POINTER

0615 ESOFFD

0327

(Z80 WILL NOT SEND INTERRUPT BACK)

RET

0618 C3

CP/M ASM86 1.1

SOURCE: ZSOCCP.AS6

CONFIG SYSTEMl INIT FOR .COM

EJECT

**************************************************************
; ADJUST S08S INTERRUPT VECTORS AND CP/M RETURN
(AFTER EXITING, SS MUST BE SET TO VALUE IN AX)

; THIS ROUTINE ASSUMES THAT CP/M'S CS=DS=SS
AND THAT SP+4 CONTAINS THE CSEG VALUE FOR A RETURN FAR TO CCP

SET80SS:
0619 33CO

XOR

AX,AX

061B SECO

MOV

ES,AX

Page 47

061D AI0001

MOV

0620 FA

CLI

0621 BB9200

MOV

BX,TYPE36SEG_ADR

0624 268907

MOV

ES: [BX)"AX

0627 BB9600

MOV

BX,TYPE37SEG_ADR

062A 268907

MOV

ES: [BX)' ,AX

062D BB9EOO

MOV

BX,TYPE39SEG_ADR

0630 268907

MOV

ES: [BX)' ,AX

0633 BBB200

MOV

BX,TYPE44SEG_ADR

0636 268907

MOV

ES: [BX)' ,AX

0639 BB9201

MOV

BX,TYPEI00SEG_ADR

063C 268907

MOV

ES: [BXr ,AX

063F BB8203

MOV

BX,TYPE224SEG_ADR

0642 268907

MOV

ES: [BXr,AX

0645 FB

STI

0646 8ECO

MOV

ES,AX

0648 8BDC

MOV

BX,SP

064A 26894704

MOV

ES:4[BX)"AX

064E C3

RET

CP/M ASM86 1.1

SOUReR: Z80CCP.A86

EJECT

AX,NEWCPM_SEG

GET SEGMENT VALUE

CONFIG SYSTEM; IN IT FOR .COM

SET RETURN TO NEW CP/M SEGMENT

Page 48

****************************************************************

INTIALIZE Z80 LOCATION 0 THRU 7

INITZL07:
064F B803F7

MOV

AX,PBIOS_ADR+3

0652 BB0601

MOV

BX,OFFSET BUFFER

0655 C607C3

MOV

BYTE PTR [BX]',JUMPINST

0658 894701

MOV

1[BX],AX

PBIOS+3'

CALL

GET lOB

GET IOBYTE IN AL

065E 2E8E06A603

MOV

ES,PARM_ SEG

0663 8B1E0401

MOV

BX,PARM_OFFSET

0667 268A6702

MOV

AH,ES:2[BX]

066B BB0601

MOV

BX,OFFSET BUFFER

066E 894703

MOV

3 [BX] ,AX

065B E80F01

076D

GET ADDRESS OF PSEUDO BIOS

SET "JMP •..

GET CURRENT DISK

SET LOCATIONS 3-4

; COMPUTE LOCATION OF PBDOS VECTOR
0671 BB4525

MOV

BX,BIOS_OFFSET+SEGTBL_OFFSET

0674 268B1F

MOV

BX,ES: [BX]

0677 268B4701

MOV

AX,ES:1[BX]

GET START OF 1ST SEGMENT

067B 26034703

ADD

AX,ES:3[BX]

ADD LENGTH OF 1ST SEGMENT

067F B104

MOV

CL,4

0681 D3EO

SHL

AX,CL

0683 2DFAOO

SUB

AX,100H-6H

0686 A30E01

MOV

PCPMVECTOR,AX

0689 BB0601

MOV

BX,OFFSET BUFFER

SAVE LOCATION OF PBDOS VECTOR

Page 49

068C C64705C3

MOV

BYTE PTR 5[BX] ,JUMPINST

0690 894706

MOV

6 [BX] ,AX

0693 BB4725

MOV

BX,BIOS_OFFSET+PBADR_OFFSET

0696 268BlF

MOV

BX,ES:[BX]

GET ADR OF DATA BLOCK

0699 81C39400

ADD

BX,MOVEPKT_OFFSET

GET ADR OF PA·CKET BUFFER TO USE

069D 33CO

XOR

AX,AX

069F 8ECO

MOV

ES,AX

06Al 26C60722

MOV

ES:BYTE PTR [BX] ,MOVEFC

06A5 8CD8

MOV

AX,DS

06A7 BI04

MOV

CL,4

06A9 D3EO

SHL

AX,CL

06AB 050601

ADD

AX,OFFSET BUFFER

06AE 26894702

MOV

ES.: 2 [BX]' ,AX

SET FROM ADDRESS

06B2 26C747040000

MOV

ES:WORD PTR 4[BX],0

SET TO ADDRESS

06B8 26C747060800

MOV

ES:WORD PTR 6[BX] ,8

SET #BYTES

06BE 8BCB

MOV

CX,BX

CX = PACKET POINTER

CALL

XFERPKT

SEND AND WAIT FOR Z80 TO FINISH

06CO E850FC

06C3 C3

0313

SET • JMP •••
PBDOS-VECTOR'

RET

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

Page 50

EJECT

**************************************************************

INITIALIZE Z80 FCB AND DEFAULT BUFFER AREAS

INITFCBBUF:
06C4 2E8E06A603

MOV

ES,PARM_SEG

06C9 BB4725

MOV

BX,BIOS_OFFSET+PBADR_OFFSET

06CC 268B1F

MOV

BX,ES: [BX]

GET ADR OF DATA BLOCK

06CF 81C39400

ADD

BX,MOVEPKT_OFFSET

GET ADR OF PACKET BUFFER TO USE

06D3 33CO

XOR

AX,AX

06D5 8ECO

MOV

ES,AX

06D7 26C60722

MOV

ES.:BYTE PTR [BX],MOVEFC

06DB 8CD8

MOV

AX,DS

06DD B104

MOV

CL,4

06DF D3EO

SHL

AX,CL

06E1 055COO

ADD

AX,FCB_ OFFSET

06E4 26894702

MOV

ES: 2 [BX] ,AX

SET FROM ADDRESS

06E8 26C747045COO

MOV

ES.:WORD PTR 4 [BXr,FCB_OFFSET

SET TO ADDRESS

06EE 26C74706A400

MOV

ES.:WORD PTR 6 [BXr,100H-FCB_OFFSET

SET ltBYTES

06F4 8BCB

MOV

CX,BX

CX = PACKET POINTER

CALL

XFERPKT

SEND AND WAIT FOR Z80 TO FINISH

06F6 E81AFC

0313

Page 51

06F9 C3

CP/M ASM86 1.1

RET

SOURCE: Z80CCP.A86

CONFIG SYSTEM; IN IT FOR .COM

EJECT

******************************************************************

INITIALIZE PBDOS VECTOR

INITVECTOR:
06FA B800F6

MOV

AX,PBDOS_ADR

06FD 8BIEOEOI

MOV

BX,PCPMVECTOR

0701 33D2

XOR

DX,DX

0703 8EC2

MOV

ES,DX

0705 26C607C3

MOV

ES:BYTE PTR [BX1,JUMPINST

0709 26894701

MOV

ES:l[BXj',AX

070D C3

RET

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

GET ADDRESS OF PSEUDO BDOS

SET '"JMP .••
PBDOS'

CONFIG SYSTEM; IN IT FOR .COM

EJECT

****************************************************************

Page 52

SAVE .COM FILE FCB

SAVEFCB:
070E 2E8E06A603

MOV

ES,PARM_SEG

0713 8BIE0401

MOV

BX,PARM_OFFSET

0717 268B37

MOV

SI,ES: [BX]

GET FCB OFFSET

071A 8CC8

MOV

AX,CS

COMFCB IS IN CSEG

071C 8ECO

MOV

ES,AX

071E BFA803

MOV

Dr,OFFSET COMFCB

0721 IE

PUSH

0722 2E8EIEA603

MOV

DS,PARM_SEG

0727 B92000

MOV

CX,32

072A FC

CLD

072B F3A4

REP MOVS

AIJ,AL

072D IF

POP

072E 2EC606C80300

MOV

BYTE PTR COMFCB+32,0

0734 C3

RET

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

EJECT

*******************************************************************

RELOCATE .COM-FILE-LOAD-CODE TO PRIVATE 8088 MEMORY

Page 53

RELOCATE:
0735 B84000

MOV

AX,RELO_SEG

0738 8ECO

MOV

ES,AX

073A BFOOOO

MOV

D1,RELO_OFFSET

073D BEOOOO

MOV

S1,OFFSET RELOBEG

0740 IE

PUSH

0741 8CC8

MOV

AX,CS

0743 8ED8

MOV

DS,AX

0745 B9EI03

MOV

CX,OFFSET RELOEND

0748 FC

CLD

0749 F3A4

REP MOVS

074B IF

POP

074C C3

RET

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

AL,AL
DS

CONFIG SYSTEM; INIT FOR .COM

EJECT

**************************************

INITIALIZE PSEUDO-DPH

INIDPH:
074D 33CO

XOR

AX,AX

iWE NEED ES TO BE 0

Page 54
074F 8ECO

MOV

ES,AX

0751 B91000

MOV

CX,16

0754 BE1401

MOV

Sr,OFFSET DMYDPH

0757 BFAOFC

MOV

DI,PSDPH

075A F3A4

REP MOVS AD,AL

075C C3

RET

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

iMOVING 16 BYTES
iTABLE TO COpy
iPSEUDO ADDRESS (ABSOLUTE)

CONFIG SYSTEMi INIT FOR .COM

EJECT

*******************************************************************

BDOS ROUTINES

OPENFILE.:
0750 BI0F
075F EB12

0773

MOV

CL,FOPEN

JMPS

BDOSCALL

MOV

CL,FDMAB

JMPS

BDOSCALL

MOV

CL,FDMA

JMPS

BDOSCALL

SETOMAB:
0761 B133
0763 EBOE

0773

SETOMA:
0765 BllA
0767 EBOA

0773

Page 55

READFILE:
0769 B114
076B EB06

0773

MOV

CL,FREAD

JMPS

BDOSCALL

MOV

CL,FIOB

JMPS

BDOSCALL

GETIOB:
076D BI07
076F EB02

0773

PRTSTRING:
0771 BI09

MOV

CL,FPRINT

BDOSCALL:
0773 CDEO

INT

0775 C3

RET

CP/M ASM86 1.1

SOURCE: Z80CCP.A86

BDOS

CONFIG SYSTEM; INIT FOR .COM

EJECT

*******************************************************************
********************************************************************

DSEG
ORG

100H

Page 56
0100

NEWCPM SEG

SEGMENT FOR NEW CP/M-86/80

0102

NEWPB ADR

ADDRESS OF NEW POINTERS/BUFFERS
DATA BLOCK
OFFSET TO PARAMETER BLOCK FROM CCP

0104

PARM OFFSET

0106

BUFFER

010E

PCPMVECTOR

0110 A402

JMPF OFFSET

OFFSET RELOSTART

0112 4000

JMPF SEG

RELO SEG

0114 BOFC

OMYDPH

PSTRN

a,a,a,o

011E D8FCOOOO

PSDPB,O

0122 E7FC

PSALV

O,'PRMTVPVT~,'SYS'

a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,o

a, 'Z80

a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,o

0116 000000000000

ADDRESS OF VECTOR TO PSEUDO BOOS

LOCATION TO START EXECUTING
.COM-FILE-LOAD CODE

;OUMMY OPH TO COPY

0000

0124 005052405456

PRMTVFCB

505654535953
0130 000000000000
000000000000
000000000000
000000
0145 005A38302020

Z80FCB

t, 'SYS'

202020535953
0151 000000000000
000000000000

Page 57

000000000000
000000
0166 ODOA54686520

PRMTVERR

CR,LF,'The file PRMTVPVT.SYS Not Found on Boot Disk$'

PCPMERR

CR,LF,'The File Z80.SYS Not Found on Boot Disk$'

66696C652050
524054565056
542E53595320
4E6F7420466F
756E64206F6E
20426F6F7420
4469736B24
0195 ODOA54686520
46696C65205A
38302E535953
204E6F742046
6F756E64206F
CP/M ASM86 1.1

SOURCE: Z80CCP.A86

CONFIG SYSTEM; INIT FOR .COM

6E20426F6F74
204469736B24

END

END OF ASSEMBLY.

NUMBER OF ERRORS:

USE FACTOR: 25%

Page 1
CP/M MACRO ASSEM 2.0
1

2
3
0000
4
FFFF =
5
6
0000 =
7
8
9
10
11
FFFF
12
13
14
CP/M MACRO ASSEM 2.0

15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

VERSION

TITLE 'Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

VERSION'

#001

FALSE
TRUE

EQU
EQU

o
NOT FALSE

PRIVATE EQU

FALSE

EQU

NOT PRIVATE

#002

MACLIB Z80
PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED
IF

ASSEMBLE SHARED

VERSION

,.****************************************
,.*
,.*

,. *
,.*

PSEUDO-BIOS FOR Z80
CP/M 86/80

*
*
*
*
**

,.*
RDK
04/19/82
,.*
LZ
10/19/82 1100
,.*
LZ
11/22/82 1200
,.*
,.****************************************

F600

ORG

OF600H

0003
0090
FFE7
0001
0002

IOBYTE
FDOSM
CSFLAG
BlOCS
BDCS

EQU
EQU
EQU
EQU
EQU

F600 C306F6
F603 C343F8

iCHANGE THIS IF NECESSARY TO RE-ORG
3
90H
OFFE7H
1
2

i ** JUMP TABLE FOR STARTING:
PSBDOS:
JMP PSBDOS1
JMP START
i ** PSEUDO BDOS:

PSBDOS1:
F606 79
F607 FE29
F609 DO
F60A FEOB
F60C+2826
F60E+300E

MOV A,C
CPI 41
RNC
CPI 11
JRZ PCONS
28H,PCONS-$-1
DB
JRNC PSBD1
30H,PSBDl-$-1
DB

ilNITIALIZE RST 3 AND 6

,.** VER 1.0.3
,.** VER 1. 0.4
,.** VER 1. 0.4 BAD BDOS CALL
,.** VER 1. 0.3
,.** VEP 1. 0.3 CONSOLE STATUS

,.** VER 1. 0.4

Page 2
52
F610 FE06
53
F612+2835
54
F614 FE07
55
F616 CAE8F7
56
F619 FE08
57
F61B CAECF7
58
59
60
F61E CD7FF6
F621 21BAF6
61
62
F624 0600
F626 09
63
64
F627 7E
65
F628 320EF8
F62B 3E90
66
F62D CD58F6
67
F630 CDFBF7
68
F633 C9
69
70
CP/M MACRO ASSEM 2.0
71
72
73

F634 3AE7FF
F637 E602

F639+200A
F63B CDEOF7

75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104

F63E+20DE
F640 3AE7FF
F643 E601
F645 C8
F646 3EFF
F648 C9
F649 7B
F64A FEFF
F64C+2804
F64E 4B
F64F C36AF7
F652 CD4DF7

CPI 6
JRZ PDRC
28H,PDRC-$-1
DB
CPI 7
JZ PGIOB
CPI 8
JZ PSIOB

; * * VER 1. 0 . 3
;** VER 1.0.3 GET IOBYTE
;** VER 1.0.3
;** VER 1.0.3 STORE IOBYTE

PSBD1:

PSEUX:

lI003

CALL PACKIT
LXI H,GTABLE
MVI B,O
DAD B
MOV A,M
STA GONOW
MVI A,FDOSM
CALL PSEUD
CALL UNPSTAK
RET

;** VER 1.0.4 START CHECK TO SEE
;** VER 1.0.4 IF WE CAN RETURN BEFORE
;** VER 1.0.4 THE 8088 IS FINISHED
;** VER 1.0.4 GET CODE
;** VER 1.0.4 STORE IT
;BDOS FUNCTION CODE

Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

LDA CSFLAG
ANI BDCS
JRNZ PCONS1
DB
20H,PCONS1-$-1
CALL IOBCHK
JRNZ PSBD1
DB
20H,PSBD1-$-1
LDA CSFLAG
ANI BlOCS
PCONS1: RZ
MVI A,OFFH
RET

; * * VER 1. 0.3

PDRC:

;** VER 1.0.3
; * * VER 1. 0.3
;** VER 1.0.4

PCONS:

PDRC1:

F655+20C7
F657 C9
F658 3275F6
F65B 3AOEF8
F65E 3276F6
F661 2175F6
F664 CDC7F8
F667 3AOEF8
F66A B7
F66B C8
F66C CDE3F8
F66F CDA2F6

;** VER 1.0.3
;** VER 1.0.3 DIRECT I/O

MOV A,E
CPI OFFH
JRZ PDRC1
DB
28H,PDRC1-$-1
MOV C,E
JMP CONOUT
CALL CONST
JRNZ PSBD1
DB
20H,PSBD1-$-1
RET

STA PACKET
LDA GONOW
STA PACKET+1
LXI H,PACKET
CALL
188SVC
LDA GONOW
ORA A
RZ
CALL WAIT88
PSEUD1: CALL UNPACKIT

VERSION

;** VER 1.0.3
; ** VER 1. 0.4

; * * VER 1. 0 .4
;** VER 1.0.4
;** VER 1.0.4
;** VER 1.0.4
;** VER 1.0.3
;** VER 1.0.3
;** VER 1.0.3

;** VER 1.0.4
;** VER 1.0.4
;** VER 1.0.3
;** VER 1.0.3
;** VER 1.0.3

PSEUD:

; * * VER 1. 0.4
;** VER 1.0.4
; REQUEST 8080 PROCESSING ( 1.0.3)
;** VER 1.0.4
; * * VER 1. 0.4
;** VER 1.0.4
;** VER 1.0.4

Page 3
105
F672 C9
RET
106
107
108
109
110
i** DATA AREA
III
F673 0000
IPKT
DW
112
F675 OOOOOOOOOOPACKET DB 0,0,0,0,0,0,0,0,0,0
113
114
·, *
115
THE MESSAGE PACKET WILL LOOK LIKE THIS:
·, *
116
BYTE
USED
Z80
8088
USED
·, *
,· *
117
FOR
REG
REG
AT
118
·, *
119
FUNCTION
ENTRY
AH
·, *
120
RETURN (GONOW ON ENTRY)
1
RET VAL
A
AL
·, *
121
2
FUNCTION NO.
CL
ENTRY
C
·, *
122
CH
ENTRY
3
B
·, *
,*
4
123
E
DL
ENTRY
·
DH
124
ENTRY
5
D
·, *
RETURN
125
,· *
BL
6
L
RETURN
126
7
H
BH
i*
CP/M MACRO ASSEM 2.0
#004
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION

127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157

,.*
·, *

IOBYTE

BOTH

; ** SUBROUTINE TO PUT REGISTERS IN PACKET FOR BIOS OR BDOS CALLS
PACKIT:
REPSTAK:
F67F 220AF8
F682 F3
F683 El
F684+ED73
F686+0CF8
F688 314lF8
F68B E5
F68C FB
F68D 2AOAF8
F690 CDE3F8
F693+ED43
F695+77F6
F697+ED53
F699+79F6
F69B 3A0300
F69E 327DF6
F6Al C9

;ROUTINE TO SHIFT TO NEW STACK
SHLD HSAVE
iHANG ON TO HL
DI
;NO INTERRUPTS, PLEASE
POP H
;GET RETURN
SSPD PSTAKSAV
;STASH THE STACK POINTER
DB
OEDH,73H
DW
PSTAKSAV
LXI SP,PSTACK
;SET STACK TO NEW AREA
PUSH H
;SET UP RETURN
EI
iINTERUPTS OK
LHLD HSAVE
;RESTORE HL
CALL WAIT88
; * * VE R 1. 4
SBCD PACKET+2
iSTORE REGISTERS
DB
OEDH,43H
DW
PACKET+2
SDED PACKET+4
DB
OEDH,53H
PACKET+4
DW
LDA IOBYTE
STA PACKET+8
RET

°.

** SUBROUTINE TO PUT MESSAGE-PACKET DATA INTO PEGISTERS

Page 4
158
159
F6A2+DDE5
160
161
F6A4+DD2A
162
F6A6+73F6
163
164
165
F6A8+DD7E08
166
F6AB 320300
167
F6AE+DD7EOI
168
169
F6Bl+DD6E06
170
171
F6B4+DD6607
172
173
174
F6B7+DDEI
175
F6B9 C9
176
177
178
F6BA 01
179
F6BB 01
IBO
F6BC 00
181
F6BD 01
182
F6BE 00
CP/M MACRO ASSEM 2.0
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210

F6BF 00
F6CO 01
F6Cl 01
F6C2 01
F6C3 01
F6C4 01
F6C5 01
F6C6 01
F6C7 01
F6C8 01
F6C9 01
F6CA 01
F6CB 01
F6CC 01
F6CD 01
F6CE 01
F6CF 01
F6DO 01
F6Dl 01
F6D2 01
F6D3 01
F6D4 00
F6D5 01
F6D6 01
F6D7 01
F6D8 01
F6D9 01
F6DA 00

;
UNPACKIT:
PUSHIX
;STORE INDEX REG
DB
ODDH,OE5H
LIXD IPKT
; * * VER 1. 0.4
ODDH,2AH
DB
IPKT
DW
; IOBYTE
LDX A,8
ODDH,A*B+46H,8
DB
; (LOC3)
STA IOBYTE
LDX A,l
ODDH,A*B+46H,1
DB
LDX L,6
ODDH,L*B+46H,6
DB
LDX H,7
ODDH,H*B+46H,7
DB
POPIX
ODDH,OEIH
DB
RET

GTABLE:

#005

DON'T WAIT
;TABLE OF CRITERIA FOR WAITING AFTER A BDOS CALL. ZERO
;0
DB
1
;1
DB
1
DB
0
;2
DB
1
;3
DB
0
;4
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB
DB

0
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
0
1
1
1
1
1
0

;5
;6
;7
;8
;9
;10
;11
;12
;13
;14
;15
;16
;17
;18
;19
;20
;21
;22
;23
;24
;25
; 26
;27
;28
;29
;30
;31
;32

Page 5
211
F6DB 01
212
F6DC 01
213
F6DD 01
214
F6DE 01
215
F6DF 01
216
F6EO 01
217
F6E1 01
218
F6E2 01
219
220
CP/M MACRO ASSEM 2.0
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263

DB
DB
DB
DB
DB
DB
DB
DB
1006

F700

1
1
1
1
1
1
1
1

PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED
ORG

PSBDOS+100H

** BIOS JUMP TABLE
F700 C336F7
F703 C345F7
F706 C34DF7
F709 C362F7
F70C C36AF7
F70F C372F7
F712 C37AF7
F715 C382F7
F718 C38AF7
F71B C392F7
F71E C39AF7
F721 C3A4F7
F724 C3ACF7
F727 C3B4F7
F72A C3BCF7
F72D C3C4F7
F730 C3CCF7
F733 C3D4F7
F736
F739
F73B
F73E

CD7FF6
3E40
3275F6
2175F6

JMP BOOT
JMP WBOOT
JMP CONST
JMP CONIN
JMP CONOUT
JMP LIST
JMP PUNCH
JMP READER
JMP HOME
JMP SELDSK
JMP SETTRK
JMP SETSEC
JMP SETDMA
JMP READ
JMP WRITE
JMP LISTST
JMP SECTRAN
JMP VIDEO
BOOT:
XBOOT:

F741 CDC7F8
F744 E7
F745 CD7FF6
F748 3E41
F74A C33BF7

WBOOT:

CALL PACKIT
MVI A,40H
STA PACKET
LXI H,PACKET
CALL WAIT88
CALL
188SVC
RST 4

F750+2008
F752 3AE7FF
F755 E601

VERSION

PAGE BOUNDARY FOR BIOS JUMPS
;FUNCT NO.

;0
;1
;2

;3
;4

;5
;6

;7
;8
;9
;A
;B
;C
;D
;E
;F
;10
;11

;STORE CODE IN PACKET
;** VER 1.0.4
; REQUEST 8088 PROCESSING (1.0.3)
;BYE.

CALL PACKIT
MVI A, 41H
JMP XBOOT

CALL IOBCHK
JRNZ CONST1
DB
20H,CONST1-$-1
LDA CSFLAG
ANI BlOCS

; * * VER 1. a . 3
;** VER 1.0.3

CONST:
F74D CDEOF7

;33
;34
;35
;36
;37
;38
;39
;40

;DO IT TO IT
;2

;** VER 1.0.3

Page 6
264
F757 C345F6
265
F75A CD7FF6
266
267
F75D CDFIF7
268
F760 0142
269
270
F762 CD7FF6
271
F765 CDFIF7
272
F768 0143
273
274
F76A CD7FF6
275
F76D CDFIF7
F770 0044
276
CP/M MACRO ASSEM 2.0
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316

JMP PCONSI

.** VER 1. 0.3

CONSTl:
CALL PACKIT
PSEUN
1,42H
DB
CA~L

CONIN:

CALL PACKIT
CALL PSEUN
DB
1,43H

:** VER 1. 0.4
;3

.** VER 1. 0.4

;4
CONOUT: CALL PACKIT
.** VER 1. 0.4
CALL PSEUN
0,44H
DB
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED
*007
I

CALL PACKIT
CALL PSEUN
0,45H
DB

F772 CD7FF6
F775 CDFIF7
F778 0045

LIST:

F77A CD7FF6
F77D CDFIF7
F780 0046

PUNCH:

CALL PACKIT
CALL PSEUN
0,46H
DB

.** VER 1. 0.4

F782 CD7FF6
F785 CDFIF7
F788 0147

READER: CALL PACKIT
CALL PSEUN
1,47H
DB

,.** VER 1.0.4

F78A CD7FF6
F78D CDFIF7
F790 0048

HOME:

CALL PACKIT
CALL PSEUN
0,48H
DB

,.** VER 1.0.4

F792 CD7FF6
F795 CDFIF7
F798 0149

SELDSK: CALL PACKIT
CALL PSEUN
DB
1,49H

.** VER 1. 0.4

F79A
F79C
F79F
F7A2

0600
CD7FF6
CDFIF7
004A

SETTRK: MVI B,O
CALL PACKIT
CALL PSEUN
0,4AH
DB

,.** VER 1.0.4

F7A4 CD7FF6
F7A7 CDFIF7
FTAA 004B

SETSEC: CALL PACKIT
CALL PSEUN
0,4BH
DB

,.** VER 1.0.4

F7AC CD7FF6
F7AF CDFIF7
F7B2 004C

SETDMA: CALL PACKIT
CALL PSEUN
0,4CH
DB

,.** VER 1. 0.4

F7B4 CD7FF6
F7B7 CDFIF7
F7BA 014D

READ:

CALL PACKIT
CALL PSEUN
1,4DH
DB

,.** VER 1. 0.4

F7BC CD7FF6
F7BF CDFIF7

WRITE:

CALL PACKIT
CALL PSEUN

,.** VER 1.0.4

.** VER 1.0.4

;6
I

;9
I

;10

;11

;12

;13

;14

VERSION

Page 7
317
F7C2 014E
318
319
F7C4 CD7FF6
320
F7C7 CDF1F7
321
F7CA 014F
322
323
324
F7CC 0600
325
F7CE EB
326
F7CF 09
327
F7DO 6E
328
F7D1 2600
329
F7D3 C9
330
331
332
F7D4 1600
CP/M MACRO ASSEM 2.0
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369

1,4EH

LISTST: CALL PACKIT
CALL PSEUN
DB
1,4FH

;15

,.** VER 1.0.4

SECTRAN:

;16
;DOUBLE PRECISION IN BC
;TRANSLATE TABLE ADDRESS TO HL
;TRANSLATE SECTOR ADDRESS
;RETURN SECTOR IN L

MVI B,O
XCHG
DAD B
MOV L,M
MVI H,O
RET
VIDEO:
#008

F7D6 1EOO
F7D8 CD7FF6
F7DB CDF1F7
F7DE 0156

;

;DON'T BOTHER CP/M-86

;17
MVI D,O
;FAST VIDEO. NEED 0 SEG
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

VERSION

,.** VER 1.0.4

MVI E,O
CALL PACKIT
CALL PSEUN
1,56H
DB
IOBCHK: LDA IOBYTE
ANI 3
CPI 1
RET

,.** VER 1. 0.3
;** VER 1.0.3 CRT?
,.** VER 1.0.3 REALLY?
,.** VER 1.0.3

F7E8 3A0300
F7EB C9

PGIOB:

LDA IOBYTE
RET

,.** VER 1.0.3 GET IOBYTE
,.** VER 1.0.3

F7EC 7B
F7ED 320300
F7FO C9

PSIOB:

MOV A,E
STA IOBYTE
RET

,.** VER 1.0.3 STORE IOBYTE
; ** VER 1. 0.3
;** VER 1. O. 3

F7F1
F7F2
F7F3
F7F6
F7F7
F7F8

PSEUN:

POP H
MOV A,M
STA GONOW
INX H
MOV A,M
JMP PSEUX

;ROUTINE TO CARRY PARAMETERS FORWARD INTO
;THE PACKET FOR BIOS CALLS
;STORE WAIT CRITERION

F7EO
F7E3
F7E5
F7E7

3A0300
E603
FE01
C9

E1
7E
320EF8
23
7E
C32DF6

UNPSTAK:
F7FB 220AF8
F7FE F3
F7FF E1
F800+ED7B
F802+0CF8
F804 E5
F805 FB
F806 2AOAF8
F809 C9
F80A 0000

HSAVE:

;

;GET FUNCTION NUMBER
;GO TO PSEUDO-BIOS EXIT

;ROUTINE TO RESET TO OLD STACK
SHLD HSAVE
;HANG ON TO HL
DI
;NO INTERRUPTS, PLEASE
;GET RETURN ADDRESS
POP H
LSPD PSTAKSAV
;RESTORE USER STACK
OEDH,07BH
DB
DW
PSTAKSAV
PUSH H
;RESTORE RETURN
EI
; INTERRUPTS OK
LHLD HSAVE
;RESTORE HL
RET
DW

Page 8

370
F80C 0000
371
F80E 00
372
373
374
375
F80F
376
F841 0000
377
378
379
CP/M MACRO ASSEM 2.0
380
381
382

PSTAKSAV:
GONOW:

DW
DB

o
o

;SPACE FOR A STACK
DS
50
PSTACK: DW
0

#009

ENDIF
PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

VERSION

Z80 INTERFACE LAYER AND PRIMITIVE ROUTINES

383

384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422

REWRITTEN FOR DEC RAINBOW 100
BY CPL
JULY 1982
IF
START
EOU
INTFPTR EOU
ELSE
START
EOU
INTFPTR EOU
ENDIF

PRIVATE
00100H
03CFCH

STARTING ADDRESS OF CODE
LOCATION OF PACKET POINTERS

$
OFFFCH

STARTING ADDRESS OF CODE
LOCATION OF PACKET POINTERS

0018
0020
0030

RST3
RST4
RST6

EOU
EOU
EOU

18H
20H
30H

ADDRESS OF RST 18H (RST 3) VECTOR
ADDRESS OF RST 20H (RST 4) VECTOR
ADDRESS OF RST 30H (RST 6) VECTOR

0000
0020

188INT
INTSTA

EOU
EOU

0
20H

8088 INTERRUPT PORT
CROSS-CPU INTERRUPT STATUS PORT

00C3

JUMP

EOU

OC3H

OPCODE FOR JUMP INSTRUCTION

0004

INTBIT

EOU

INTERRUPT BIT
WHEN LOW, SHOWS 8088 INTERRUPT
FLOP IS INTERRUPTING THE 8088;
ORIGINALLY SET BY Z80

OOFO

FRANGE

EOU

OFOH

FUNCTION RANGE MASK
FOR HIGH NIBBLE OF FUNCTION CODE

0010
0020
0040

DSKFNC
OTHFNC
USRFNC

EOU
EOU
EOU

10H
20H
40H

DISK FUNCTION (HIGH NIBBLE VALUE)
OTHER Z80 FUNCTIONS (HIGH NIBBLE VALUE)
USER-DEFINED FUNCTIONS

0021
0022

Z80BGN
Z80MVE

EOU
EOU

21H
22H

ALLOW Z80 TPA EXECUTION
MOVE Z80 MEMORY CONTENTS
LOW VALUE LIMIT - 1

0007

LEG FUN

EOU

07H

FUNCTION CODE MASK

F843
FFFC

Page 9
423
424
425
OOFF
426
427
0014
428
429
OOOA
430
0200
431
432
0002
433
0003
434
435
0002
CP/M MACRO ASSEM 2.0
436
0003
437
0004
438
0005
439
0006
440
0007
441
442
CP/M MACRO ASSEM 2.0
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473

USE LOW 3 BITS
FNCNG

EQU

OFFH

FUNCTION CODE NO GOOD

DKWRIT

EQU

14H

PACKET DISK WRITE FUNCTION CODE

NUMSEC
SECSIZ

EQU
EQU

10
512

NUMBER OF SECTORS PER TRACK
NUMBER OF BYTES PER DISK SECTOR

STADRL
STADRH

EQU
EQU

2
3

START ADDRESS LSB PACKET OFFSET
START ADDRESS MSB PACKET OFFSET

SCADRL
#010

EQU
2
; SOURCE ADDRESS LSB PACKET OFFSET
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION

SCADRH
DSADRL
DSADRH
BYCNTL
BYCNTH

EQU
EQU
EQU
EQU
EQU

#011

PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

F843

ORG

4
5
6

SOURCE ADDRESS MSB PACKET OFFSET
DESTINATION ADDRESS LSB PACKET OFFSET
DESTINATION ADDRESS MSB PACKET OFFSET
BYTE COUNT ADDRESS LSB PACKET OFFSET
BYTE COUNT ADDRESS MSB PACKET OFFSET
VERSION

START

**************************************************************
NAME: INTSTR
FUNCTION: THIS ROUTINE WILL RE-INITIALIZE THE RST 6
VECTORS, SET UP THE Z80 SERVICE STACK POINTER,
AND DO A RST 4.
ENTRY: NONE
EXIT: NONE
;

INTSTR:
;

F843 2155F8
F846 223100

SET UP RST VECTORS
LXI
SHLD

H,PKTPRO
RST6+1

SET UP Z80 SERVICE STACK POINTER
F849 319CFC

LXI

SP,STACK

INITIALIZE FLAGS
F84C 3EOO
F84E 329DFC

MVI
STA

A,FALSE
DONEFL

SET UP RST 6 VECTOR

Page 10
474
475
476
FB51 FB
477
FB52 C32000
47B
CP/M MACRO ASSEM 2.0
479
4BO
481
482
4B3
4B4
4B5
486
4B7
4BB
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526

WAIT UNTIL NEEDED

#012

EI
: GO TO HALT AND WAIT FOR INTERRUPT
JMP
RST4
PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION

**************************************************************
NAME: PKTPRO
FUNCTION: THIS ROUTINE IS PASSED A PACKET ADDRESS IN 188PKT. IT USES
THAT TO GET THE FUNCTION NUMBER WHICH IT USES TO JUMP
TO THE SPECIFIC FUNCTION HANDLER ROUTINE.
THIS ROUTINE IS ENTERED VIA AN INTERRUPT FROM THE 8088 AT RST 6 THEREFORE, INTERRUPTS ARE OFF.
FOR ALL FUNCTIONS EXCEPT Z80START AND SERIAL SUPPORT FROM B08B,
WE WILL INTERRUPT THE 808B TO INDICATE WE HAVE FINISHED
THE FUNCTION
ENTRY: 188PKT = PACKET ADDRESS
EXIT: IX = PACKET ADDRESS

PKTPRO:
SAVE

F855+DDE5
F857 F5

PUSHIX
DB
PUSH

ODDH,OE5H
PSW

LIXD
DB
DW

188PKT
ODDH,2AH
IB8PKT

GET ADDRESS OF PACKET

F858+DD2A
F85A+FEFF
F85C DBOO

188INT

CLEAR 8088 INTERRUPT FLAG

F861+DDE5
F863 El
F864 7C
F865 B5
F866 CABCF8
F869 D5
F86A C5

PUSHIY
DB
PUSH
PUSHIX
DB
POP
MOV
ORA
JZ
PUSH
PUSH

ODDH,OE5H
H
A,H
L
HIFXIT
D
B

F86B 0195F8
F86E C5

LXI
PUSH

B,PKTRET
B

F86F FB

F85E+FDE5
F860 E5

SAVE REMAINING REGISTERS
OFDH,OE5H
H
CHECK FOR ZERO ADDRESS
MOVE IX TO H
PUT IN ACCUM
GET LOW-ORDER, TOO.
GO AWAY IF ZERO

PUSH RETURN ADDRESS ONTO STACK
RE-ENABLE INTERRUPTS

Page 11
527
528
F870+DD7EOO
529
530
F873 FEl3
531
F875 CA3BF9
532
533
F878 FE14
534
F87A CA3BF9
CP/M MACRO ASSEM 2.0
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579

lIOl3

F87D FE42

LOX
DB

A,FNCCOD
~ GET FUNCTION CODE
ODDH,A*8+46H,FNCCOD

CPI
JZ

QKRDCOM
DKREAD

READ FUNCTION

CPI
QKWTCOM
JZ
DKWRITE
~ WRITE FUNCTION
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED
USRFNC+2
HIFNC
30H,HIFNC-$-1

BIOS 42 - 4F, BOOS 90
YES

F87F+3033

CPI
JRNC
DB

F881 FE22
F883 CM 7FC

CPI
JZ

Z80MVE
ZMOVE

MOVE Z80 MEMORY

F886 FE15
F888 CAF2F8

CPI
JZ

QKCMCOM
DKCHECK

F88B FE21
F88D CA32FC

CPI
JZ

Z80BGN
ZSTART

POP
MVIX
DB

B
i EMPTY STACK OF RETURN ADR
FNCNG,STATUS
i SET ERROR STATUS
ODDH,36H,STATUS,FNCNG

VERSION

CHECK MEDIA FUNCTION
ALLOW Z80 TPA EXECUTION

ERROR:
F890 C1
F891+DD3601FF
PKTRET:
F895 FB

F896 C1
F897 01
F898 E1

B
D
H

F899+FDE1

POP
POP
POP
POPIY
DB
SIXD
DB
DW
OUT

Z80PKT
ODDH,22H
Z80PKT
188INT

SET UP RETURN PACKET POINTER

F89B+DD22
F89D+FCFF
F89F D300

IN
ANI
JZ

INTSTA
INTBIT
PKTR1

LOOP UNTIL 8088 CLEARS THE
INTERRUPT

LXIX
DB
OW
SIXD
DB
OW

0
ODDH,21H
0
Z80PKT
ODDH,22H
Z80PKT

RE-ENABLE INTERRUPTS IN CASE
THEY WERE OFF (DISK I/O)
RESTORE REGISTERS

OFDH,OE1H

AND PASS IT

PKTR1:
F8A1 DB20
F8A3 E604
F8A5 CAA1F8
F8A8+DD21
F8AA+0000
F8AC+DD22
F8AE+FCFF

iZERO ADDRESS (8088 HAS IT NOW)

Page 12
580
F8BO Fl
581
F8Bl+DDEl
582
583
584
F8B3 C9
585
586
587
588
589
F8B4 Cl
590
F8B5 3EFF
CP/M MACRO ASSEM 2.0
591
F8B7 329DFC
592
593
F8BA Cl
594
F8BB Dl
595
F8BC El
596
F8BD+FDEI
597
598
599
F8BF Fl
600
601
F8CO+DD22
602
F8C2+73F6
603
604
F8C4+DDEI
605
F8C6 C9
606
607
CP/M MACRO ASSEM 2.0
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630

POP
POPIX
DB

PSW
ODDH,OEIH

RET

PROCESS FUNCTION CODES

AND RETURN

42H TO 4FH, OR 90H

HIFNC:
#014

POP
B
1 FIX STACK
MVI
A,TRUE
1 SET DONE FLAG
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED
STA

POP
POP
HIFXIT: POP
POPIY
DB
POP
SIXD
DB
DW
POPIX
DB
RET
#015

DONEFL
B
D
H

RESTORE REGISTERS
EXCEPT HL,AF, AND IX

OFDH,OEIH
PSW
IPKT
ODDH,22H
IPKT

RESTORE
STASH PACKET ADDRESS

ODDH,OEIH

PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED
IF

VERSION

**********************************************************
NAME: 188SVC
FUNCTION: THIS ROUTINE REQUESTS SERVICE FROM THE 8088 FOR A
Z80-RESIDENT ROUTINE.
ENTRY: HL = PACKET ADDRESS

EXIT: HL = PACKET ADDRESS

188SVC:
F8C7 F3
F8C8 22FCFF

DI
SHLD

Z80PKT

WRITE ADDRESS OF PACKET

F8CB 3EOO
F8CD 329DFC

MVI
STA

A,FALSE
DONEFL

CLEAR DONE FLAG

F8DO D300

OUT

188INT

SET 8088 INTERRUPT FLAG

Page 13
631
632
F8D2 DB20
F8D4 E604
633
F8D6 CAD2F8
634
F8D9 E5
635
636
F8DA 210000
637
F8DD 22FCFF
F8EO E1
638
639
640
F8E1 FB
641
F8E2 C9
642
643
644
645
646
647
F8E3 F3
648
F8E4 3A9DFC
649
F8E7 FEFF
650
651
F8E9+2805
652
F8EB CD2300
653
654
655
F8EE+18F3
656
657
F8FO FB
658
F8F1 C9
659
660
CP/M MACRO ASSEM 2.0
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683

INTCLR:
IN
ANI
JZ
PUSH
LXI
SHLD
POP

INTSTA
INTBIT
INTCLR

LOOP UNTIL 8088 TURNS OFF
INTERRUPT FLAG

H,O
Z80PKT

ZERO THE PACKET ADDRESS

EI
RET

RE-ENABLE INTERRUPTS

ROUTINE TO WAIT FOR THE DONE FLAG
;

WAIT88:
01
LOA
CPI
JRZ
DB
CALL

DONEFL
TRUE
WAlTON
28H,WAITDN-$-1
23H

JR
DB

WAIT88
18H,WAIT88-$-1

JUMP IF DONE

WAIT UNTIL INTERRUPTED
JUMP TO MAKE SURE DONE FLAG IS TRUE

WAlTON: EI
RET
#016

PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

VERSION

ENDIF

****************************************************************
NAME: DSKPRO
FUNCTION: THIS ROUTINE IS THE ENTRY POINT FOR ALL OF THE
DISK I/O FUNCTIONS.
IT WILL DETERMINE WHICH
PRIMITIVE TO CALL, AND PASS CONTROL TO THAT PRIMITIVE.
ENTRY: IX = PACKET ADDRESS
EXIT: IX = PACKET ADDRESS

****************************************************************
PACKET OFFSETS
;

0000
0001
0002
0002

FNCCOD
STATUS
DRIVEN
SECTN

EQU
EQU
EQU
EQU

o
1

2
2

FUNCTION CODE
RETURNED STATUS
DRIVE NUMBER
SECTOR NUMBER

Page 14
684
0003
685
0004
686
0005
687
0006
688
689
0060
690
00lF
691
692
693
0013
694
0014
695
0015
696
697
698
699
0008
700
0004
701
0004
702
0008
703
0002
704
0010
705
706
707
708
0000
709
710
711
712
0008
713
001C
714
0018
715
0010
716
0048
CP/M MACRO ASSEM 2.0
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736

0068
0080
OOAO
OOFO
OOCO
OODO

TRACKN
DMALOW
DMAHI
NSECT

EQU
EQU
EQU
EQU

3
4
5
6

TRACK NUMBER
DMA ADDRESS (LSB)
DMA ADDRESS (MSB)
NUMBER OF SECTORS

DRVNUM
SECNUM

EQU
EQU

60H
1FH

MASK FOR DRIVE NUMBER
MASK FOR SECTOR NUMBER

; FUNCTION CODES
13H
QKRDCOM EQU
QKWTCOM EQU
14H
ISH
QKCMCOM EQU

READ FUNCTION CODE
WRITE FUNCTION CODE
CHECK MEDIA FUNCTION CODE

; FDC COMMAND FLAGS
;

QMHLD
QMVERF
QMEFLG
QMSSEL
QMSCOM
QMUPDT

EQU
EQU
EQU
EQU
EQU
EQU

10H

HEAD LOAD FLAG
VERIFY FLAG
HEAD LOAD FLAG FOR READ/WRITE
SIDE SELECT FLAG
SIDE COMPARE FLAG
UPDATE TRACK REG FLAG

6 MS RATE

8
4

4
8
2

;

; FDC STEP RATE
;

QKRATE

EQU

;

; FDC COMMANDS
;

RESTORE (RECAL)
QCREST EQU
O+QMHLD+QKRATE
SEEK (WITH VERIFY)
QCSEEK EQU
10H+QMHLD+QKRATE+QMVERF
SEEK (NO VERIFY)
QCSEEKN EQU
10H+QMHLD+QKRATE
SEEK - NO HEAD LOAD
QCSEKHO EQU
10H+QKRATE
QCSTEPIN EQU
40H+QMHLD+QKRATE
; STEP IN
#017
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED
QCSTEPOT EQU
QCREADS EQU
QCWRTS EQU
QCWRTRK EQU
QCRDADR EQU
QCTERM EQU

60H+QMHLD+QKRATE
80H
OAOH
OFOH
OCOH
ODOH

STEP OUT
READ SECTOR
WRITE SECTOR
WRITE TRACK
READ ADDRESS
TERMINATE COMMAND

;

; DISK CONTROLLER STATUS - TYPE 1 COMMANDS
0080
0040
0020
0010
0008
0004
0002
0001

QMNRDY EQU
QMWPROT EQU
QMHLT
EQU
QMSKERR EQU
QMCRC
EQU
QMTZERO EQU
QMINDEX EQU
QMBUSY EQU

80H
40H
20H
10H
8
4
2
1

NOT READY
WRITE PROTECTED
HEAD LOADED
SEEK ERROR
CRC ERROR
TRACK ZERO
INDEX
BUSY

DISK CONTROLLER STATUS - TYPE 2 AND 3 COMMANDS

VERSION

Page 15
737
0020
738
0010
739
0004
740
0002
741
0020
742
743
744
745
0091
746
0099
747
OOBD
748
OOFD
749
009D
750
751
752
753
OOCO
754
0020
0010
755
756
0008
757
0018
758
0004
759
0003
760
761
762
763
0004
9C40
764
765
003D
766
0040
767
004F
768
OOOA
769
0002
770
771
772
CP/M MACRO ASSEM 2.0

773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789

QMWRFLT EQU
QMRNF
EQU
QMLDATA EQU
QMDRQ
EQU
QMDELDM EQU

20H

QMNRDY+QMSKERR+QMBUSY
1 RESTORE
QMNRDY+QMSKERR+QMCRC+QMBUSY
1 SEEK
QMNRDY+QMRNF+QMCRC+QMLDATA+QMDELDM+QMBUSY
1 READ SECTOR
QMNRDY+QMRNF+QMCRC+QMLDATA+QMWRFLT+QMWPROT+QMBUSY 1 WRITE SECTOR
QMNRDY+QMRNF+QMCRC+QMLDATA+QMBUSY
1 READ ADDRESS

GENERAL STATUS PORT (QPSTAT) EQUATES

QMPRECMP EQU
QMPSIDE EQU
QMON1
EQU
QMONO
EQU
QMON
EQU
QMTG42 EQU
QMDRNR EQU

WRITE FAULT
RECORD NOT FOUND
LOST DATA
DATA REQUEST
DELETED DATA MARK

ERROR MASKS FOR OPERATIONS

QMREST EQU
QMSEEK EQU
QMREAD EQU
QMWRITE EQU
QMRDADR EQU

20H
10H
4

OCOH
1 PRECOMPENSATION BITS
20H
1 SIDE SIGNAL
10H
1 MOTOR 1 ON
8
1 MOTOR 0 ON
QMONO+QMON1
4
1 TG 42 SIGNAL
3
1 DRIVE NUMBER

MISCELLANEOUS EQUATES

QKDRETRY EQU
QKDRCNT EQU
QKPCTRK EQU
QKPCBIT EQU
QKMXTRK EQU
QKMXSECT EQU
QKROBIN EQU

4
40000
61
40H
79
10
2

,
*018

Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

VERSION

EQUATES FOR PHYSICAL DISK CONTROL
1

0040
0060
0061
0062
0063

QPSTAT EQU
QPCOMD EQU
QPTRKRG EQU
QPSECRG EQU
QPDATA EQU

40H
60H
61H
62H
63H

GENERAL DISK CONTROL/STATUS REG.
FDC COMMAND/STATUS REG.
FDC TRACK REG.
FDC SECTOR REG.
FDC DATA REG.

EQUATES FOR PRIVATE RAM I/O ROUTINE
1

0040
0046
004A

RDORWR EQU
INOROUT EQU
UDELAY EQU

0040H
0046H
004AH

ADDRESS OF ROUTINE
ADDRESS OF INI OR OUTI INSTR.
DELAY IN 0.500 MSEC INCREMENTS, C

COUNT

Page 16
790
A2ED
A3ED
791
63DB
792
793
794
CP/M MACRO ASSEM 2.0
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842

INII
OUT II
ININ

EQU
EQU
EQU

#019

PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

DKCHECK
FUNCTION:

RULES:

ENTRY:
EXIT:

OA2EDH
INI INSTRUCTION
OA3EDH: OUTI INSTRUCTION
QPDATA SHL 8 + IN : IN QPDATA INSTR.
VERSION

,
DKCHECK:
F8F2 3EFF
F8F4 CD1CFC
F8F7 CD32FB
F8FA+3805
F8FC CDA1FA
F8FF+2803
F901 AF
F902+1823
F904 AF
F905+DD7703
F908 CD1CFC
F90B+DD7E02
F90E E660
F910 47
F9ll 3EOA
F913 B7
F914+DD7702
F917 21DB63
F91A CDD1F9

MVI
CALL
CALL
JRC
DB
CALL
JRZ
DB
DKCHECK1:
XRA
JR
DB
DKCHECK2:
XRA
STX
DB
CALL
LDX
DB
ANI
MOV
MVI
ORA
STX
DB
LXI
CALL
JRZ

A,OFFH
SET "CURRENT TRACK" TO FF TO INDICATE
SETRAK
FIRST ACCESS AFTER RESET
DPSELDR
DKCHECK1
: DRIVE IS NOT READY
38H,DKCHECK1-$-1
DPRECAL
DKCHECK2
: FALL THROUGH = ERROR ON RESTORE
28H,DKCHECK2-$-1
A
DKCHECK3
18H,DKCHECK3-$-1

ERROR - ASSUME RAINBOW MEDIA

A,TRACKN
ODDH,70H+A,TRACKN
SETRAK
TRACK 0 INTO TABLE
A ,DRIVEN
: SETUP PACKET FOR THE READ ROUTINE
ODDH,A*8+46H,DRIVEN
DRVNUM
B,A
A,QKMXSECT
NOW TRY TO RAED SECTOR 10
A

A,SECTN
ODDH,70H+A,SECTN
H,ININ
DPREADZ
DKCHECK3

NO DATA TRANSFER INTO MEMORY
AND NO ERROR RECOVERY
GOOD READ

Page 17
843
F91D+2808
844
F91F FE10
845
F921 3EOO
846
F923+2002
847
848
F925 3E02
849
850
F927 47
CP/M MACRO ASSEM 2.0

DB
28H,DKCHECK3-$-1
CPI
QMRNF
IS RECORD NOT FOUND THE ONLY ERROR?
MVI
A,O
JRNZ
DKCHECK3
NO - SET RAINBOW MEDIA
DB
20H,DKCHECK3-$-1
MVI
YES - ROBIN MEDIA
A,QKROBIN
DKCHECK3:
MOV
B,A
#020
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION

851
F928 3A2EFC
852
F92B SF
853
F92C 1600
854
F92E 21F4FF
855
F931 19
856
F932 70
857
F933 78
858
F934 322FFC
859
860
F937+DD7701
861
F93A C9
862
CP/M MACRO ASSEM 2.0

LDA
BCURDRV
PUT MEDIA TYPE INTO FORMAT TABLE,
MOV
E,A
CURRENT FORMAT INDICATOR AND
MVI
D,O
INTO THE PACKET
LXI
H,TFORMAT
DAD
D
MOV
M,B
MOV
A,B
STA
BFORMAT
STX
A,STATUS
DB
ODDH,70H+A,STATUS
RET
PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION

863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
RQ.

#021

DKREAD/DKWRITE

READ OR WRITE SECTOR(S)

FUNCTION: READS OR WRITES 1 TO 10 SECTORS ON
SPECIFIED DRIVE AND TRACK.
;

DKREAD:
DKWRITE:
F93B CDA8F9
F93E D8
F93F CA4CF9
F942 CDC7FA
F945+2021
F947 DB61
F949 CD1CFC

CALL
RC
JZ
CALL
JRNZ
DB
IN
CALL

DKRWSET
DKRW20
DPSEEK
DKRW90
20H,DKRW90-$-1
QPTRKRG
SETRAK

MVI
CMPX
DB
JRNZ
DB
CALL
JR
DB

A,QKRDCOM
FNCCOD
ODDH,OBEH,FNCCOD
DKRW30
20H,DKRW30-$-1
DPREAD
DKRW40
18H,DKRW40-$-1

READ FUNCTION?

CALL

DPWRITE

NO - WRITE SECTOR

CALL
JRNC
DB

NEXTSEC
DKRW20
30H,DKRW20-$-1

CHECK FOR MULT. SECTOR OPERATION
LOOP UNTIL ALL SECTORS DONE

SET UP FOR READ/WRITE
EXIT - DRIVE NOT READY
NO SEEK NEEDED
PERFORM SEEK
SEEK ERROR
SET NEW TRACK IN TABLE

DKRW20:
F94C 3E13
F94E+DDBEOO
F951+2005
F953 CDCBF9
F956+1803

NO - WRITE
YES - READ SECTOR

DKRW30:
F958 CDE7F9
DKRW40:
F95B CD73F9
FQt;R+'ORC'

Page 18
894
F960+DD7701
895
F963 E601
896
F965 C8
897
898
899
F966+1805
900
901
902
903
F968 F601
904
F96A+DD7701
905
906
907
F96D 3EFF
908
F96F CDICFC
909
F972 C9
910
911
912
913
914
915
916
917
918
CP/M MACRO ASSEM 2.0
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946

STX
DB
ANI
RZ
JR
DB
; SEEK ERROR
DKRW90:
ORI
STX
DB
DKRW95:
MVI
CALL
RET

A,STATUS
; STORE STATUS
ODDH,70H+A,STATUS
QMBUSY
SEEK ERROR INDICATED?
NO - ALL DONE
DKRW95
YES - RESET TRACK TABLE RNTRY
18H,DKRW95-$-1

QMBUSY
MARK AS SEEK ERROR
A,STATUS
; STORE STATUS
ODDH,70H+A,STATUS
A,OFFH
SETRAK

FORCE RECAL ON NEXT R/W

SUBROUTINE TO CHECK FOR MULTIPLE SECTOR OPERATION
DECREMENTS SECTOR COUNT AND INCREMENTS SECTOR NUMBER.
SECTOR INTERLEAVE IS USED TO READ/WRITE SECTORS IN
LOGICAL ORDER.
ENTRY: STATUS OF READ/WRITE IS IN 'A'
i022

ZBO PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

EXIT: CARRY IS SET IF NO FURTHER READ/WRITE OPERATIONS
ARE NECESSARY (COUNT EXHAUSTED OR ERROR OCCURRED)
PACKET COUNT AND SECTOR NUMBER ARE UPDATED.

NEXTSEC:
F973 FEOI
F975 3F
F976 08
F977+DD3506
F97A 37
F97B C8

CPI
CMC
RC
DCRX
DB
STC
RZ

NSECT
ODDH,035H,NSECT

STATUS OK?
(REVERSE SENSE OF CARRY)
EXIT - ERROR OCCURRED
DECREMENT SECTOR COUNT
SET CARRY IN CASE COUNT
EXIT ON ZERO COUNT

INCREMENT DMA ADDRESS IN PACKET
F97C+DD7E05
F97F C602
F981+DD7705
F984+DD7E02
F987 C601
F989 47
F98A E61F
F98C FEOA
F98E+3813

LOX
DB
ADI
STX
DB
LOX
DB
ADI
MOV
ANI
CPI
JRC
DB

A,DMAHI
; TAKE CARE OF POSSIBLE CARRY
ODDH,A*B+46H,DMAHI
2

A,DMAHI
ODDH,70H+A,DMAHI
A,SECTN
; GET SECTOR NUMBER
ODDH,A*B+46H,SECTN
1
NEXT SECTOR
B,A
SECNUM
ISOLATE IT
QKMXSECT
OVER THE LIMIT ON THE TRACK?
NEXTSC15
; NO
38H,NEXTSC15-$-1

VERSION

Page 19
947
948
F990+2006
949
F992 3A2FFC
950
F995 A7
951
F996+280C
952
953
954
955
F998+DD7E02
F99B E6EO
956
957
F99D F601
958
F99F+DD7702
959
960
F9A2 C9
961
962
F9A3 3F
963
964
F9A4+DD701F
965
F9A7 C9
966
967
968
CP/M MACRO ASSEM 2.0
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999

JRNZ
DB
LOA
ANA
JRZ
DB
NEXTSC10:
LOX
DB
ANI
ORI
STX
DB
RET

NEXTSC10
20H,NEXTSC10-$-1
BFORMAT
A

DEFINITELY OVER THE LIMIT.
AT SECTOR 10. OVER THE LIMIT ONLY IF
ROBIN DISK;

NEXTSC20
28H,NEXTSC20-$-1
A,SECTN
ODDH,A*8+46H,SECTN
NOT SECNUM
1
A,SECTN
; STORE IT IN PACKET
ODDH,70H+A,SECTN

NEXTSC15: CMC
NEXTSC20:
STX
DB
RET
#023

B,SECNUM
ODDH,70H+B,SECNUM

PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

DKRWSET

VERSION

SET UP FOR READ OR WRITE

DKRWSET:
F9A8 CD32FB
F9AB 08
F9AC 3A31FC
F9AF FEFF
F9B1+2008
F9B3 CDA1FA
F9B6 CO
F9B7 AF
F9B8 CD1CFC

CALL
RC
LOA
CPI
JRNZ
DB
CALL
RNZ
XRA
CALL

DPSELDR

LOA
ANA
LOX
DB
JRZ
DB

BFORMAT

BTRACK
OFFH
DKRWS10
20H,DKRWS10-$-1
DPRECAL
A

SELECT DRIVE AND CHECK READY STATUS
EXIT - NOT READY
GET CURRENT TRACK
FIRST ACCESS?
NO
HOME DRIVE
EXIT ON HOME ERROR
SET TRACK ZERO IN TABLE

SETRAK

DKRWS10:
F9BB 3A2FFC
F9BE A7
F9BF+DD7E03
F9C2+2801

COMPARE DESIRED TRACK WITH
CURRENT TRACK. SINCE CURRENT
TRACK IS ALWAYS KEPT IN TRUE FORM,
A,TRACKN
;
ODDH,A*8+46H,TRACKN
MUST DOUBLE DESIRED TRACK IF
DKRWS20 28H,DKRWS20-$-1
A

Page 20
1000
F9C4 87
1001
F9C5 47
1002
F9C6 3A31FC
1003
F9C9 A8
1004
F9CA C9
1005
1006
1007
1008
CP/M MACRO ASSEM 2.0
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052

ADD

MOV
LDA
XRA
RET

B,A
BTRACK
B

ROBIN MEDIA

DKRWS20:
COMPARE WITH CURRENT TRACK (RESET CARRY)

PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

#024

VERSION

READ A SECTOR

DPREAD

FUNCTION: READS ONE SECTOR FROM DISK.
ENCOUNTERED.

RETRIES WHEN ERROR IS

ENTRY: SECTOR NUMBER AND DMA ADDRESS ARE IN PACKET
A = FDC STATUS

EXIT:
;

DPREAD:
F9CB CD47FA

CALL

DPRWEX

(RETURNS TO CALLER OF DPREAD)

LXI

H,INII

SET UP INI INSTR.

SHLD
LDX
DB
OUT
MVI
CALL
CALL
EI
IN
ANI
RET

INOROUT
A,TRACKN
; SET TRACK FOR SECTOR READ OR WRITE
ODDH,A*8+46H,TRACKN
QPTRKRG
WILL DIFFER FROM PHYS. TRACK IF ROBIN
E,QCREADS
SEND COMMAND TO FDC
DPRWSET
RDORWR
TRANSFER DATA
REENABLE
QPCOMD
GET STATUS
QMREAD
MASK ERRORS
RETURN WITH STATUS

;

DPREADX:
F9CE 21EDA2
DPREADZ:
F9Dl 224600
F9D4+DD7E03
F9D7 D361
F9D9 lE80
F9DB CDE5FB
F9DE CD4000
F9El FB
F9E2 DB60
F9E4 E6BD
F9E6 C9

DPWRITE

WRITE A SECTOR

FUNCTION: WRITES ONE SECTOR TO DISK.
ENCOUNTERED.

RETRIES WHEN ERROR IS

ENTRY: SECTOR NUMBER AND DMA ADDRESS ARE IN PACKET
EXIT:

A = FDC STATUS

;

DPWRITE:
F9E7 CD47FA

CALL

DPRWEX

(RETURNS TO CALLER OF DPWRITE)

Page 21
1053
1054
F9EA 21EDA3
1055
F9ED 224600
1056
F9FO+DD7E03
1057
1058
F9F3 D361
1059
1060
F9F5 CD19FA
1061
F9F8 D5
1062
F9F9 lEAD
1063
F9FB CDE5FB
1064
F9FE CD4000
CP/M MACRO ASSEM 2.0
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105

FADI FB
FAD2 DB60
FAD4 E6FD
FAD6 47
FA07 OE03
FA09 CD4AOO
FADC CD19FA
FADF Dl
FAI0 BA
FAll 3EOO
FA13+2802
FA15 3E08
FA17 BO
FA18 C9

DPWRTX:
LXI
SHLD
LDX
DB
OUT

*025

H ,OUTII
: SET UP OUTI INSTR.
INOROUT
A,TRACKN
: SET TRACK FOR SECTOR READ OR WRITE
ODDH,A*8+46H,TRACKN
QPTRKRG
WILL DIFFER FROM PHYS. TRACK IF ROBIN

CALL
GSODRV
GET "NOT READY" STATUS OF OTHER DRIVE
PUSH
SAVE FOR COMPARISON AFTER WRITE OF SECTOR
D
MVI
SEND THIS COMMAND TO FDC
E,QCWRTS
CALL
DPRWSET
RDORWR
CALL
: TRANSFER DATA
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION

EI
IN
ANI
MOV
MVI
CALL
CALL
POP
CMP
MVI
JRZ
DB
MVI
DPWRT3 : ORA
RET

QPCOMD
QMWRITE
B,A
C,3
UDELAY
GSODRV
D
D
A,O
DPWRT3
28H,DPWRT3-$-1
A,QMCRC
B

REENABLE
GET STATUS
MASK ERRORS
SAVE RESULT OF WRITE OPERATION
1.5 MSEC DELAY
FOR CONTROLLER TO FINISH WRT CLEANUP
GET "NOT READY" STATUS OF OTHER DRIVE
RESTORE OLD STATUS OF OTHER DRIVE
COMPARE WITH OLD STATUS
ASSUME DOOR OF OTHER DRIVE WAS NOT TOUCHED
IT WAS'NT
IT WAS - REPORT AS CRC ERROR
GET STATUS RESULT OF WRITE OPERATION
RETURN WITH STATUS

GET "NOT READY" STATUS OF OTHER DRIVE

:
GSODRV:
FA19 3A2EFC
FAIC EEOI
FAIE D340
FA20 CD2EFA
FA23 DB60
FA25 E680
FA27 57
FA28 3A30FC
FA2B D340
FA2D 7A
FA2E C9

LDA
XRI
OUT
CALL
IN
ANI
MOV
LDA
OUT
MOV
DELAY7: RET

BCURDRV
1
QPSTAT
DELAY7
QPCOMD
QMNRDY
D,A
TCURDRV
QPSTAT
A,D

DPRDADR

READ ADDRESS

FUNCTION: READS ADDRESS OF A DISK SECTOR
(USED TO DETERMINE TRACK NUMBER)
ENTRY: N/A
EXIT: TRACK NUMBER IS IN SECTOR REGISTER OF FDC
(NO DATA IS TRANSFERRED)

Page 22
1106
1107
1108
1109
FA2F CD47FA
1110
111i
1112
FA32 21DB63
1113
FA35 224600
1114
FA38 IE CO
1115
FA3A CDE5FB
1116
FA3D CD4000
1117
FA40 FB
1118
FA4l DB60
1119
FM3 E69D
1120
FM5 37
CP/M MACRO ASSEM 2.0
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158

,
DPRDADR:
CALL

DPRWEX

(RETURNS TO CALLER OF DPRDADR)

DPRDADRX:
H,ININ
SET UP IN QPDATA INSTR.
LXI
SHLD
INOROUT
E,QCRDADR
MVI
SEND COMMAND TO FDC
CALL
DPRWSET
CALL
RDORWR
TRANSFER DATA
EI
REENABLE
GET STATUS
IN
QPCOMD
MASK ERRORS
ANI
QMRDADR
STC
; INHIBIT ADVANCED ERROR RECOVERY
#026
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION

FM6 C9

RET

DPRWEX

RETURN WITH STATUS

EXECUTES A READ OR WRITE OPERATION

FUNCTION: EXECUTES A READ OR WRITE OPERATION AND PERFORMS
ERROR RECOVERY AS NECESSARY.
ENTRY: ADDRESS OF PHYSICAL I/O ROUTINE IS ON TOP OF STACK
EXIT:

A = FDC STATUS

;

DPRWEX:
FM7 E1
FM8 E5
FA49 CDAOFA
FMC E1
FMD C8

POP
H
PUSH
H
CALL
DPRWE90
POP
H
RZ
ERROR RECOVERY PROCESSING
MOV
E,A
JRC
DPRWE10
DB
38H,DPRWE10-$-1
ANI
QMCRC+QMRNF
JRNZ
DPRWE20
DB
20H,DPRWE20-$-1

FME SF
FMF+3804
FA51 E618
FA53+2014

GET I/O ROUTINE ADDRESS
SAVE FOR ERROR RECOVERY
EXECUTE THE ROUTINE
RECOVER I/O ROUTINE ADDRESS
EXIT IF NO ERRORS
SAVE ERROR CODES
JUST A FEW RETRIES IF CARRY SET
CRC ERROR OR RNF?
YES - PROCESS IT

REPEAT OPERATION UNTIL RETRY COUNT IS EXHAUSTED
;

DPRWE10:
FA55 1604

MVI

D,QKDRETRY

INITIALIZE RETRY COUNTER

PUSH
MVI
OUT
PUSH
CALL
POP

D
A,QCTERM
QPCOMD
H
DPRWE90
H

STASH RETRY COUNT AND ORIGINAL ERROR CODES

DPRWE15:
FA57 D5
FA58 3EDO
FA SA D360
FA5C E5
FA5D CDAOFA
FA60 E1

TERMINATE COMMAND
PRESERVE I/O ROUTINE ADDRESS
EXECUTE IT
GET BACK STUFF THAT WAS STASHED

Page 23
1159
FA61 Dl
1160
FM2 CS
1161
FA63 15
1162
1163
FA64+20Fl
1164
FA66 7B
1165
FA67 A7
1166
FA6S C9
1167
116S
1169
1170
1171
FA69 CD55FA
1172
FMC CS
1173
1174
FA6D D5
1175
FA6E E5
1176
FA6F CDAIFA
CP/M MACRO ASSEM 2.0
1177
117S
1179
l1S0
l1S1
l1S2
l1S3
l1S4
l1S5
l1S6
l1S7
l1SS
l1S9
1190
1191
1192
1193
1194
1195
1196
1197
119S
1199
1200
1201
1202
1203
1204
1205
1206
1207
120S
1209
1210
1211

POP
RZ
DCR
JRNZ
DB
MOV
ANA
RET

D
D

DPRWE15
20H,DPRWE15-$-1
A,E
A

EXIT IF SUCCESSFUL
ANY MORE RETRIES LEFT?
TRY AGAIN
GET FDC STATUS
SET TO NON-O TO INDICATE ERROR

REPEAT OPERATION, THEN PERFORM ADVANCED RECOVERY
;

DPRWE20:
CALL
DPRWEI0
; REPEAT OPERATION
RZ
; EXIT IF SUCCESSFULL
RESTORE DRIVE, SEEK AGAIN AND DO OPERATION ONE MORE
PUSH
D
SAVE I/O ROTINA ADDRESS, RETRY COUNT AND
PUSH
H
ORIGINAL ERROR STATUS
CALL
DPRECAL
; RESTORE
ZSO PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION
i027
JRNZ
DB
CALL
JRNZ
DB
POP
POP
CALL
RZ
LDX
DB
PUSH
PUSH
MVIX
DB
CALL
POP
STX
DB
PUSH
JRNZ
DB
CALL
JRNZ
DB
POP
POP
JR
DB

FA72+2027
FA74 CDCCFA
FA77+2022
FA79 El
FA7A Dl
FA7B CD55FA
FA7E CS
FA7F+DD5603
FAS2 E5
FAS3 D5
FAS4+DD36034F
FASS CDDFFA
FASB Dl
FASC+DD7203
FASF D5
FA90+2009
FA92 CDCCFA
FA95+2004
FA97 Dl
FA9S El
FA99+lSBA

DPRWESO
20H,DPRWESO-$-1
DPSEEKl
DPRWESO
20H,DPRWESO-$-1

HARD RESTORE ERROR

H
D

GET ALL THAT STUFF BACK

SEEK TO TRACK
HARD SEEK ERROR

DPRWEI0

AND DO SOME MORE RETRIES
SUCCESS
D,TRACKN
; NOW WE TRY TO SNEAK UP ON IT FROM
ODDH,D*S+46H,TRACKN
H
THE OTHER SIDE: SEEK TO TRACK 79
D
AND THEN BACK TO THE TARGET TRACK.
QKMXTRK,TRACKN;
TO DO THIS, WE MUST SVE TARGET TRACK NO.
ODDH,36H,TRACKN,QKMXTRK
DPSEEKX
AND SUBSTITUTE 79 IN PACKET
D
PUT BACK CORRECT TRACK INTO PACKET
D,TRACKN
ODDH,70H+D,TRACKN
D
REMEMBER: E HAS ORIGINAL ERROR STATUS
DPRWESO
OOPS: COLDN'T GET TO TRACK 79
20H,DPRWESO-$-1
DPSEEKI
BACK TO DESIRED TRACK
DPRWESO
SEEK ERROR
20H,DPRWE80-$-1
D
H

DPRWEI0
lSH,DPRWEI0-$-1

FINAL ATTEMPT. RETURN TO CALLER.

RESTORE/SEEK ERROR EXIT

DPRWESO:
FA9B El
FA9C El

POP
POP

H
H

FIXUP STACK

Page 24
1212
FA9D F601
1213
FA9F C9
1214
1215
1216
1217
1218
FAAO E9
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
CP/M MACRO ASSEM 2.0
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264

ORI
RET

MARK AS SEEK ERROR

QMBUSY

INDIRECT CALL

DPRWE90:
PCHL

DPRECAL

RESTORE DRIVE

FUNCTION - RETURNS THE HEAD TO TRACK ZERO
CHECKS FORMAT TO SEE IF VT-180 DISK IS IN DRIVE
ENTRY: N/A
EXIT:

,
#028

A = DISK CONTROLLER STATUS
ZERO FLAG IS SET IF RESTORE WAS SUCCESSFUL
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

;

DPRECAL:
FAA1 CDB2FA
FAM C8
FAA5 0605
FAA7 3E48
FAA9 CDDDFB
FAAC+10F9
FAAE CDB2FA
FAB1 C9

CALL
DPRECALX
; PERFORM RESTORE
RZ
OK
;
; ERROR RECOVERY - STEP IN FIVE TIMES AND REPEAT
MVI
B,5
SET NR OF STEPS
DPRECAL1:
MVI
A,QCSTEPIN
STEP IN ONCE
CALL
DPCOMD
REPEAT
DJNZ
DPRECAL1
DB
10H,DPRECAL1-$-1
CALL
DPRECALX
RESTORE AGAIN
RET
EXIT COME WHAT MAY

DPRECALX - DO RESTORE OPERATION
;

FAB2 3E08
FAB4 CDDDFB
FAB7 DB60
FAB9 4F
FABA E604
FABC+2004
FABE 2F
FABF B7
FACO 79
FAC1 C9
FAC2 79

DPRECALX:
MVI
CALL
IN
MOV
ANI
JRNZ
DB
CMA
ORA
MOV
RET
DPRECALX1:
MOV

A,QCREST
DPCOMD
DO RESTORE
QPCOMD
GET FDC STATUS
C,A
SAVE STATUS
QMTZERO
AT TRACK ZERO?
DPRECALX1
, YES
20H,DPRECALX1-$-1
SET NONZERO STATUS
A
SET FLAGS
A,C
GET STATUS BACK
EXIT - NOT AT TRACK ZERO

A,C

GET STATUS BACK

VERSION

Page 25
1265
FAC3 E691
1266
FAC5 79
1267
FAC6 C9
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
FAC7 3A31FC
1286
FACA D361
1287
1288
FACC 3A2FFC
CP/M MACRO ASS EM 2.0
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
l300
l301
l302
1303
l304
1305
1306
1307
l308
1309
l310
l311
1312
1313
1314
1315
1316
l317

ANI
MOV
RET
DPSEEK

QMREST
A,C

MASK ERRORS
RETURN FULL STATUS
RETURN WITH STATUS

SEEK TO TRACK

FUNCTION: SEEKS TO THE DESIRED TRACK. TESTS FOR ERRORS
AND RETRIES AS NECESSARY. SETS PRECOMPENSATION BITS FOR
RAINBOW DISKETTE. PERFORMS SPECIAL SEEK FOR VT180 FORMAT
DISKETTE.
ENTRY: DESIRED TRACK NUMBER IS IN PACKET
POINTER TO PACKET IS IN IX.
EXIT: A = FDC STATUS
ZERO FLAG IS SET IF SEEK WAS SUCCESSFUL
;

DPSEEK:
LDA
OUT

BTRACK
QPTRKRG

PUT CURRENT TRACK NO INTO REG

DPSEEKI :
*029

FACF A7
FADO C2F8FA
FAD3 CDDFFA
FAD6 C8

BFORMAT
; GET CURRENT FORMAT
LDA
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

VERSION

ANA
A
IS IT RAINBOW?
JNZ
DPSEEKV
NO - DO VT-180 SEEK
DO SEEK OPERATION
CALL
DPSEEKX
RZ
; OK
ERROR RECOVERY - RESTORE AND SEEK AGAIN
CALL
DPRECAL
RESTORE DRIVE
HARD RESTORE ERROR
RNZ
CALL
DPSEEKX
TRY SEEK AGAIN
RET

FAD7 CDAIFA
FADA CO
FADB CDDFFA
FADE C9

DPSEEKX

PERFORM SEEK OPERATION

;

DPSEEKX:
FADF+DD7E03
FAE2 FE50
FAE4+300E
FAE6 0363
FAE8 E3
FAE9 E3
FAEA 3EIC
FAEC CDDDFB
FAEF DB60
FAFI E699
FAF3 C9

LDX
DB
CPI
JRNC
DB
OUT
XTHL
XTHL
MVI
CALL
MVI
CALL
IN
ANI
RET

A,TRACKN
; GET TRACK NR FROM PACKET
ODDH,A*8+46H,TRACKN
QKMXTRK+l
CATCH ANY BAD TRACK REQUESTS SO AS NOT
DPSEEKE
TO FANG IN AN IMPOSSIBLE SEEK
30H,DPSEEKE-$-1
QPDATA
SEND IT TO FDC
DELAY A BIT BEFORE COMMAND REG WRITE
A,QCSEEK
DPCOMD
C,40
UDELAY
QPCOMD
QMSEEK

EXECUTE SEEK
DELAY FOR HEAD SETTLING
GET STATUS
MASK ERRORS
RETURN WITH STATUS

Page 26
1318
1319
FAF4 3E01
1320
FAF6 A7
1321
1322
FAF7 C9
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
FAF8 CD09FB
1339
FAFB CD09FB
1340
1341
1342
1343
1344
FAFE CDA1FA
CP/M MACRO ASSEM 2.0
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370

DPSEEKE:
MVI
ANA
RET

DPSEEKV

A,QMBUSY
A

ILLEGAL TRACK REQUESTED. INDICATE SEEK
ERROR WITH NO OTHER STATUS

VT-180 FORMAT SEEK ROUTINE

FUNCTION: PERFORMS SEEK ON A VT-180 FORMAT (40 TRACK)
DISKETTE. DOES A SEEK WITH NO VERIFICATION TO THE
SPECIFIED VT-180 TRACK MULTIPLIED BY TWO, THEN READS
AN ADDRESS FROM THE DISKETTE TO VERIFY THAT THE
SEEK WAS SUCCESSFUL.
ENTRY: IX = PACKET ADDRESS
EXIT:

A = STATUS

DPSEEKV:
CALL
CALL

DPSEEKVX
DPSEEKVX

; PERFORM SEEK
; SEEK ERROR - TRY AGAIN

SEEK ERROR AGAIN - HOME DISK AND RETRY
#030

FB01 CO
FB02 CD09FB
FB05 CD09FB
FB08 C9

CALL
DPRECAL
; HOME DISK
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED
RNZ
CALL
CALL
RET

DPSEEKVX
DPSEEKVX

VERSION

EXIT ON RECAL ERROR
TRY SEEK AGAIN
AND AGAIN

DPSEEKVX - PERFORM VT-180 SEEK OPERATION
;

FB09+DD7E03
FBOC 87
FBOD FE50
FBOF+30E3
FBll CD27FB
FB14 CD2FFA
FB17 4F
FB18 A7
FB19 CO
FB1A DB62
FB1C+DDBE03
FB1F 79
FB20 CO
FB21 E1

DPSEEKVX:
LDX
DB
ADD
CPI
JRNC
DB
CALL
CALL
MOV
ANA
RNZ
IN
CMPX
DB
MOV
RNZ
POP

A,TRACKN
; GET DESIRED TRACK
ODDH,A*8+46H,TRACKN
A
MULTIPLY TRACK BY 2
QKMXTRK+1
CATCH ANY BAD TRACK REQUESTS SO AS NOT
DPSEEKE
TO HANG IN AN IMPOSSIBLE SEEK
30H,DPSEEKE-$-1
DPSEEKN
SEEK WITH NO VERIFY
DPRDADR
READ ADDRESS
C,A
SAVE STATUS
A
READ ERROR?
YES - EXIT
QPSECRG
GET TRACK NUMBER
TRACKN
COMPARE WITH DESIRED TRACK
ODDH,OBEH,TRACKN
A,C
GET STATUS BACK
ERROR - NOT AT REQUESTED TRACK
H
NO ERROR - EMPTY STK FOR 'GOOD' RET

Page 27
1371
FB22 C9
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
FB23 1610
1385
1386
FB25+1802
1387
1388
1389
FB27 161S
1390
FB29 D363
1391
FB2B 7A
1392
FB2C E3
1393
FB2D E3
1394
FB2E CDDDFB
FB31 C9
1395
1396
1397
1398
1399
1400
CP/M MACRO ASSEM 2.0
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423

RET
DPSEEKN

SEEK WITH NO VERIFY

FUNCTION: SEEKS A SPECIFIED TRACK BUT DOES NO VERIFY THE
SUCCESS OF THE SEEK. USED FOR STARTING MOTOR AND
THE VT-1S0 SEEK.
ENTRY: A = DESIRED TRACK NUMBER
EXIT: N/A
i

DPSEKHO:
MVI
JR
DB

D,QCSEKHO
iSEEK WITH NO HEAD LOAD
DPSEKN3
lSH,DPSEKN3-$-1

DPSEEKN:
MVI
DPSEKN3: OUT
MOV
XTHL
XTHL
CALL
RET

D,QCSEEKN
QPDATA
A,D

i SEND TRACK NR TO FDC

iSEEK WITH HEAD LOAD

DPCOMD

iSEEK COMMAND
DO SEEK

i DPSELDR
SELECT DRIVE AND CHECK IF IT'S READY
t031
ZSO PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

VERSION

ENTRY: DRIVE NUMBER IS IN PACKET
EXIT: DRIVE NUMBER IN E
IF DRIVE WAS NOT READY, CARRY FLAG IS SET
AND 'NOT READY' STATUS IS STORED IN PACKET

,
DPSELDR:
FB32 CDl3FC
FB35 5F
FB36+DD7E03
FB39 FE3D
FB3B 3EOO
FB3D+3S02
FB3F 3E40

CALL
MOV
LOX
DB
CPI
MVI
JRC
DB
MVI

GETDRV
i GET DRIVE NUMBER
E,A
A,TRACKN
i NOW SEE IF WRITE PRECOMP BITS WILL BE
ODDH,A*8+46H,TRACKN
QKPCTRK
NEEDED: I.E., WHETHER WE ARE TO BE
A,O
BEYOND TRACK 60
DPSEL1
3SH,DPSEL1-$-1
A,QKPCBIT

ORA
STA
OUT

TCURDRV
QPSTAT

DPSEL1:
FB41 B3
FB42 3230FC
FB45 0340
DPSEL2:

DRIVE SELECTED WITH PRE COMP
SELECT DRIVE

Page 28
1424
FB47 DB60
1425
FB49 E681
1426
1427
FB4B+2811
1428
FB4D E601
1429
1430
FB4F+20F6
FB51 DB61
1431
1432
FB53 CD27FB
FB56 DB60
1433
FB58 E680
1434
1435
FB5A+206B
1436
1437
1438
FB5C+182A
1439
1440
1441
FB5E 3A2EFC
1442
FB61 AB
1443
FB62+2838
1444
1445
1446
FB64+DD7EOO
FB67 FE14
1447
1448
FB69+201D
1449
1450
1451
FB6B 3A2EFC
1452
FB6E E602
1453
FB70 57
1454
FB71 7B
1455
FB72 E602
1456
FB74 BA
CP/M MACRO ASSEM 2.0
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476

IN
ANI
JRZ
DB
ANI
JRNZ
DB
IN
CALL
IN
ANI
JRNZ
DB
JR
DB

QPCOMD
QMBUSY+QMNRDY
DPSEL3
28H,DPSEL3-$-1
QMBUSY
DPSEL2
20H,DPSEL2-$-1
QPTRKRG
DPSEEKN
QPCOMD
QMNRDY
DPSELS2
20H,DPSELS2-$-1
DPSEL3C
18H,DPSEL3C-$-1

GET FDC STATUS
READY AND NOT BUSY?
YES
BUSY?
YES - WAIT IT OUT
NO: NOT READY. DUMMY SEEK TO CURRENT TRACK
TO READY DRIVE IF POSSIBLE
GET FDC STATUS
STILL NOT READY?
YES - RETURN NOT READY STATUS
IGNORE CHECK FOR ISSUANCE OF 'HLT' TO 1793

;

DPSEL3:
LDA
XRA
JRZ
DB
LDX
DB
CPI
JRNZ
DB

#032

GET CURRENT DRIVE NR
SAME AS DESIRED DRIVE?
YES - GO SEE IF FIRST ACCESS AFTER RESET

DPSEL4
28H,DPSEL4-$-1
A,FNCCOD
; GET FUNCTION CODE
ODDH,A*8+46H.FNCCOD
QKWTCOM
WRITE TO BE DONE?
DPSEL3C
NO
20H,DPSEL3C-$-1

LDA
BCURDRV
YES - THEN GET CURRENT DRIVE
ANI
2
CHECK FOR SELECT OF A OR B
MOV
D,A
TO C OR D; C OR D TO A OR B
A,E
NEW DRIVE TO SELECT
MOV
ANI
2
CMP
D
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION
JRNZ
DB

FB75+2007

BCURDRV
E

DPSEL3A
20H,DPSEL3A-$-1

A TO B, B TO A, C TO D, D TO C
FB77 OE3C
FB79 CD4AOO

MVI
CALL
JR
DB

FB7C+180A

C,60
UDELAY
DPSEL3C
18H,DPSEL3C-$-1

DELAY FOR 30 MSEC TO ALLOW HEADS TO
SETTLE DURING HEAD LOAD

THE SELECT FROM A OR B TO C OR D; C OR D TO A OR B REQUIRES
THE ISSUANCE OF A SEEK WITH QMHLT = 0, THEN QMHLT = 1, WITH NO VERIFY
THIS INHIBITS THE "HLT" INPUT TO THE 1793 FOR - 500 MSECS
WHICH ALLOWS THE MOTOR TO GET UP TO SPEED.
i

DPSEL3A:
FB7E DB61
FB80 CD23FB
FB83 DB61
FB85 CD27FB

IN
CALL
IN
CALL

QPTRKRG
DPSEKHO
QPTRKRG
DPSEEKN

iCURRENT TRACK
iSEEK WITH NO HEAD LOAD
;SEEK WITH HEAD LOAD

Page 29
1477
1478
FB88 7B
1479
FB89 322EFC
1480
FB8C CDD2FB
1481
FB8F 3231FC
1482
1483
1484
1485
FB92 21F4FF
1486
FB95 1600
1487
FB97 19
1488
FB98 7E
1489
FB99 322FFC
1490
1491
FB9C 3A31FC
1492
FB9F 3C
1493
FBAO CO
1494
1495
FBA1 DB61
1496
FBA3 CD27FB
1497
1498
1499
1500
1501
1502
FBM 21409C
1503
1504
FBA9 DB60
1505
FBAB DB60
1506
FBAD E602
1507
FBAF 47
1508
FBBO CDB8FB
1509
FBB3 CDB8FB
1510
FBB6 A7
1511
FBB7 C9
1512
CP/M MACRO ASSEM 2.0
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529

;

DPSEL3C: MOV
A,E
STA
BCURDRV
CALL
GETRAK
STA
BTRACK
MVI
C,140
CALL
UDELAY
SET FORMAT AND TRACK REGISTER
LXI
H,TFORMAT
MVI
0,0
DAD
o
A,M
MOV
STA
BFORMAT
DPSEL4:
LOA
BTRACK
INR
A
RNZ
DPSEL5 :
IN
QPTRKRG
CALL
DPSEEKN

SET NEW DRIVE AS CURRENT
GET CURR TRACK FROM TABLE
AND STORE IT
DELAY FOR HEAD SETTLING
BASE OF FORMAT TABLE
OFFSET INTO TABLE
GET FORMAT INFO
STORE IN CURRENT FORMAT
CURR TRACK IS FF ON FIRST ACCESS AFTER DISK
SYSTEM RESET. IF NOT, CONSIDER DRIVE READY.
FORCE TYPE 1 STATUS
ON FIRST ACCESS TO A DRIVE AFTER A DISK
SYSTEM RESET, MAKE SURE DISK IS IN
DRIVE RIGHT SIDE UP BY LOOKING FOR A
CHANGE IN THE INDEX PULSE STATUS. ON A
TIMEOUT, DRIVE IS CONSIDERED NOT READY.

LXI

H,QKDRCNT

IN
IN
ANI
MOV
CALL
CALL
ANA
RET

QPCOMD
QPCOMD
QMINDEX
B,A
DPSELS
DPSELS
A

DCX
MOV
ORA
JRZ
DB
IN
ANI
CMP
MOV
RNZ
JR
DB

H
A,H
L
DPSELS1
28H,DPSELS1-$-1
QPCOMD
QMINDEX
B
B,A

POP

IN
CALL

QPTRKRG
DPSEKHO

DPSEL6:
READ STATUS ONCE TO GET RID OF SPURIOUS
INDEX STATUS
SAVE STARTING INDEX BIT STATE

WAIT FOR 1 CHANGE IN INDEX
WAIT FOR 2ND CHANGE
CLEAR CARRY
DISK IS OK
DPSELS:
; SUBROUTINE: CHECKS FOR CHANGE IN INDEX BIT
#033
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION

FBB8 2B
FBB9 7C
FBBA B5
FBBB+2809
FBBD DB60
FBBF E602
FBC1 B8
FBC2 47
FBC3 CO
FBC4+18F2

TIMEOUT: DISK NOT READY

SAVE NEW INDEX STATUS
AHA-- CHANGE HAS OCCURRED.

DPSELS
18H,DPSELS-$-1

DPSELS1 :
FBC6 C1
DPSELS2 :
FBC7 DB61
FBC9 CD23FB

GET CURRENT TRACK #
UNLOAD HEADS

Page 30
1530
FBCC+DD360180
1531
1532
FBDO 37
1533
FBD1 C9
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
FBD2 E602
FBD4 4F
1545
FBD5 0600
1546
1547
FBD7 21FOFF
FBDA 09
1548
FBDB 7E
1549
1550
FBDC C9
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
FBDD D360
1563
1564
FBDF DB40
1565
FBE1 87
FBE2 F8
1566
1567
1568
FBE3+18FA
CP/M MACRO ASSEM 2.0
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582

MVIX
DB
STC
RET

QMNRDY,STATUS
; SET NOT READY STATUS
ODDH,36H,STATUS,QMNRDY
; CARRY MEANS NOT READY

GETRAK -

GET CURRENT TRACK NUMBER FROM TRACK TABLE

ENTRY:

EXIT:

A
TRACK NUMBER
HL= TRACK TABLE POINTER FOR DRIVE

DRIVE NUMBER

;

GETRAK:
ANI
MOV
MVI
LXI
DAD
MOV
RET

DPCOMD

C,A
B,O
H,TTRACK
B

A,M

** FOR RX-50 COUPLED DRIVES
BASE OF TRACK TABLE
OFFSET INTO TRACK TABLE
GET TRACK FOR THIS DRIVE

EXECUTE A TYPE 1 COMMAND

WAITS UNTIL COMMAND IS COMPLETED BEFORE RETURNING

ENTRY: COMMAND CODE IS IN 'A' REG.

DPCOMD:
OUT

QPCOMD

SEND COMMAND TO FDC

DPCOMD1:

#034

QPSTAT
GET GENERAL STATUS
IN
SHIFT INT. BIT TO SIGN
ADD
A
EXIT ON INTERRUPT
RM
DPCOMD1
JR
LOOP UNTIL DONE
18H,DPCOMD1-$-1
DB
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

VERSION

DPRWSET - SET UP FDC AND SEND TYPE 2 OR 3 (READ/WRITE) COMMAND
FUNCTION: SENDS SECTOR TO FDC. ADDS HEAD LOAD BIT TO COMMAND
IF HEAD IS NOT ALREADY LOADED. SETS UP REGISTERS FORINI AND
OUTI INSTRUCTIONS. SENDS COMMAND TO FDC.
ENTRY: FDC COMMAND IS IN "E" REG.

SECTOR IS IN PACKET.

EXIT: N/A
DPRWSET:
FBE5 DB60

QPCOMD

GET CONTROLLER STATUS

Page 31
1583
FBE7 E601
1584
FBE9+20FA
1585
1586
FBEB E3
FBEC 3EDO
1587
1588
FBEE D360
1589
FBFO E3
1590
FBFl OE63
1591
1592
FBF3+DD6E04
1593
1594
FBF6+DD6605
1595
1596
FBF9+DD7E02
1597
FBFC E61F
1598
FBFE D362
1599
FCOO E3
1600
FCOI E3
1601
FC02 E3
1602
FC03 E3
1603
FC04 E3
1604
FC05 E3
1605
FC06 F3
1606
FC07 DB60
FC09 E620
1607
1608
FCOB 7B
1609
1610
FCOC+2002
1611
FCOE F604
1612
1613
FCI0 D360
1614
FC12 C9
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
CP/M MACRO ASSEM 2.0
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635

ANI
JRNZ
DB
XTHL
MVI
OUT
XTHL
MVI
LDX
DB
LDX
DB
LDX
DB
ANI
OUT
XTHL
XTHL
XTHL
XTHL
XTHL
XTHL
DI
IN
ANI
MOV
JRNZ
DB
ORI
DPRWSET4:
OUT
RET

QMBUSY
DPRWSET
20H,DPRWSET-$-1

BUSY?
YES - WAIT UNTIL NOT BUSY

NEED SOME DELAY. WE'LL UNDO IT SOON
SEND TERMINATE COMMAND
TO FORCE TYPE 1 STATUS
DELAY - MATCHES THE ONE ABOVE
C,QPDATA
SET UP DATA PORT NUMBER
L,DMALOW
; SET UP DMA ADDRESS
ODDH,L*8+46H,DMALOW
H,DMAHI
ODDH,H*8+46H,DMAHI
A,SECTN
; GET SECTOR NUMBER
ODDH,A*8+46H,SECTN
SECNUM
ISOLATE SECTOR NUMBER
QPSECRG
; SEND IT TO FDC
; DELAY BEFORE STATUS READ

A,QCTERM
QPCOMD

DISABLE FOR DISK I/O
QPCOMD
GET FDC STATUS
QMHLT
HEAD ALREADY LOADED?
A,E
GET COMMAND
DPRWSET4
, , SKIP IF HEAD ALREADY LOADED
20H,DPRWSET4-$-1
QMEFLG
ADD HEAD LOAD FLAG
QPCOMD

SEND TO CONTROLLER

GETDRV

GET DRIVE NUMBER FROM PACKET

ENTRY: IX

= PACKET ADDRESS

EXIT: A = DRIVE NUMBER
;

GETDRV:
#035

FC13+DD7E02
FC16 E660
FC18 07
FC19 07
FCIA 07
FC1B C9

LDX
A,DRIVEN
; GET DRIVE NUMBER
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED
DB
ANI
RLC
RLC
RLC
RET

SETRAK

ODDH,A*8+46H,DRIVEN
DRVNUM
; ISOLATE IT
; MOVE INTO BITS 0-2

STORE TRACK NUMBER IN TRACK TABLE

ENTRY: A = TRACK NUMBER

VERSION

Page 32
1636
1637
1638
1639
1640
1641
FC1C 3231FC
1642
FC1F 47
FC20 CD13FC
1643
1644
FC23 E602
FC25 5F
1645
FC26 1600
1646
FC28 21FOFF
1647
1648
FC2B 19
FC2C 70
1649
FC2D C9
1650
1651
1652
1653
CP/M MACRO ASS EM 2.0
1654
1655
1656
1657
1658
FC2E FF
1659
FC2F 00
1660
1661
FC30 FF
FC31 FF
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
CP/M MACRO ASSEM 2.0
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686

= PACKET ADDRESS

EXIT: TTRACK CONTAINS NEW TRACK VALUE
;

SETRAK:
STA
MOV
CALL
ANI
MOV
MVI
LXI
DAD
MOV
RET

#036

CURRENT TRACK FOR CURRENT DRIVE
SAVE TRACK
GET DRIVE NUMBER
** FOR RX-50 COUPLING
MAKE 16-BIT DRIVE NR

BTRACK
B,A
GETDRV
2
E,A
D,O
H,TTRACK
D
M,B

BASE OF TRACK TABLE
OFFSET INTO TABLE
STORE TRACK

PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

VERSION

DATA AREA
;

BCURDRV DB
BFORMAT DB
TCURDRV DB
BTRACK DB

OFFH
OFFH
°OFFH

: CURRENT DRIVE NUMBER
: FORMAT FOR CURRENT DRIVE (NONZERO = VT-180)
:CURRENT DRIVE # WITH PRE COMP SET IF NECESSARY
: CURRENT TRACK OF SELECTED DRIVE ("TRUE" TRACK)

OFFH,OFFH,OFFH,OFFH
i TRACK TABLE
:TTRACK DB
DB
0,0,0,0
; FORMAT TABLE (NONZERO = VT180)
:TFORMAT
:** NOTE: TTRACK AND TFORMAT ARE IN THE DATA BLOCK. THEY ARE DEFINED
AT THE END OF THIS MODULE (Z80CODE.ASM), NEXT TO THE PACKET
POINTER DEFINITIONS (Z80PKT AND I88PKT)

#037

PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

VERSION

*********************************************************
NAME: ZSTART
FUNCTION: THIS ROUTINE WILL SET UP THE STACK AND ALLOW THE Z80
TO EXECUTE AN APPLICATION.
ENTRY: IX

= PACKET ADDRESS

EXIT:

ZSTART:
FC32 F3
FC33 319CFC

DI
LXI

SP,STACK

DISABLE INTERRUPTS WHILE
SWAPPING STACKS

Page 33
1687
1688
FC36 210000
1689
1690
1691
1692
1693
FC39 E5
1694
1695
FC3A 3EFF
1696
FC3C 329DFC
1697
1698
1699
FC3F+DD6E02
1700
1701
FC42+DD6603
1702
1703
FC45 FB
1704
1705
FC46 E9
1706
CP/M MACRO ASSEM 2.0
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
FC47+DD6E02
1722
1723
FC4A+DD6603
1724
1725
1726
FC4D+DD5E04
1727
FC50+DD5605
1728
1729
1730
1731
FC53+DD4E06
1732
FC56+DD4607
1733
1734
1735
1736
FC59+EDBO
1737
FC5B C9
1738
CP/M MACRO ASSEM 2.0

LXI

H,O

PUSH

MVI
STA

A,TRUE
DONEFL

SET DONE FLAG

LDX
DB
LDX
DB

L,STADRL
ODDH,L*8+46H,STADRL
H,STADRH
ODDH,H*8+46H,STADRH

GET START ADDRESS FROM PACKET

ENABLE INTERRUPTS

#038

PUSH 00 ONTO STACK FOR CP/M-80
TRANSIENTS THAT END WITH 'RET'
SO IT WILL BE SAME AS ENDING
WITH 'JUMP 0'

PCHL
JUMP TO START ADDRESS
PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION

*****************************************************************
NAME: ZMOVE
FUNCTION: THIS ROUTINE WILL MOVE A BLOCK OF DATA FROM ANYWHERE IN
Z80 MEMORY TO ANYWHERE ELSE IN Z80 MEMORY.
ENTRY: IX

= PACKET ADDRESS

EXIT: IX = PACKET ADDRESS

ZMOVE:

#039

LDX
DB
LOX
DB

L,SCADRL
ODDH,L*8+46H,SCADRL
H,SCADRH
ODDH,H*8+46H,SCADRH

GET SOURCE ADDRESS INTO HL

LOX
DB
LOX
DB

E,DSADRL
ODDH,E*8+46H,DSADRL
D,DSADRH
ODDH,D*8+46H,DSADRH

GET DESTINATION ADDRESS INTO DE

LOX
DB
LOX
DB

C,BYCNTL
ODDH,C*8+46H,BYCNTL
B,BYCNTH
ODDH,B*8+46H,BYCNTH

GET BYTE COUNT INTO BC

MOVE THE BLOCK OF DATA
LOU
OEDH,OBOH
DB
AND RETURN
RET
PAGE
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED VERSION

Page 34

1739
1740
1741
1742
1743
FC9C
1744
1745
FC9D
1746
1747
FFFC
1748
1749
FFFE
1750
1751
1752
1753
1754
FFFO
1755
FFF4
1756
1757
FC9E
1758
1759
FC9E
CP/M MACRO ASSEM 2.0
BC
BCURDRV
BDCS
BFORMAT
BlOCS
BOOT
BTRACK
BYCNTH
BYCNTL
CONIN
CONOUT
CONST
CONSTI
CSFLAG
DE
DELAY7
DKCHECK
DKCHECKI
DKCHECK2
DKCHECK3
DKREAD
DKRW20
DKRW30
DKRW40
DKRW90
DKRW95
DKRWSI0
DKRWS20
DKRWSET
DKWRIT
DKWRITE

0000
FC2E
0002
FC2F
0001
F736
FC31
0007
0006
F762
F76A
F74D
F75A
FFE7
0002
FA2E
F8F2
F901
F904
F927
F93B
F94C
F958
F95B
F968
F96D
F9BB
F9C5
F9A8
0014
-93B

*****************************************************************
*****************************************************************
STACK

EQU

$+40H

SERVICE ROUTINE STACK POINTER

DONEFL

EQU

STA.CK+l

DONE FLAG

Z80PKT

EQU

INTFPTR

PACKET POINTER FOR PACKET FROM Z80

188PKT

EQU

INTFPTR+2

PA.CKET POINTER FOR PACKET FROM 8088

; FOLLOWING TWO DEFINITIONS ARE FOR THE DISK I/O ROUTINES.
; THE TABLES ARE LOCATED IN THE DATA BLOCK, INITIALIZED BY THE BIOS
; COLD BOOT ROUTINE AND MOVED BY Z80CCP WHEN A CONFIGURATION CHANGE OCCURS.
TTRA.CK EQU
INTFPTR-12
TRACK TABLE
TFORMAT EQU
INTFPTR-8
; FORMA.T TA.BLE
ORG
#040
851
35#
858
34#
226
985
440#
439#
229
89
90
260
33#

DONEFL+l

END
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED
1084

1441

1451

1479

1659#

994 1288
949
263
79
246#
1003 1285 1481
1732 1733
1730 1731
270#
230
274#
228
258#
265#
261
78
262
71

1489

1660#

1491

1641

1662#

846

847

849#

1087 1094#
544
814#
818
819
823#
822
821
827#
842
825
826
531
869#
873
879# 892
883
884
888#
887
890#
886
876
902#
875
899
906#
898
993#
987
988
998
999 1001#
871
982#
427#
534
8701l

843
893

VERSION

Page 35

DMAHI
0005
DMALOW
0004
DONEFL
FC9D
DPCOMD
FBDD
DPCOMD1
FBDF
DPRDADR
FA2F
DPRDADRX
FA32
DPREAD
F9CB
DPREADX
F9CE
DPREADZ
F9D1
DPRECAL
FAA1
DPRECAL1
FAA7
DPRECALX
FAB2
DPRECALX1
FAC2
DPRWE10
FA55
DPRWE15
FA57
DPRWE20
FA69
DPRWE80
FA9B
DPRWE90
FAAO
DPRWEX
FA47
DPRWSET
FBE5
DPRWSET4
FC10
DPSEEK
FAC7
DPSEEK1
FACC
DPSEEKE
FAF4
CP/M MACRO ASSEM 2.0

686# 934
935
937
938 1593 1594
685# 1591 1592
472
591
627
648 1696 1745# 1757
1241 1253 1312 1394 156U
1563# 1567 1568
1l08# 1361
1lIU
885 1020#
1023#
841 1025#
820
989 1176 1234# 1294 1344
1239# 1242 1243
1235 1244 125U
1257 1258 1263#
1142 1143 1150# 117l 1184 1204 1205
1152# 1162 1163
1145 1146 1170#
1177 1178 1180 1181 1197 1198 1200 1201 1209#
1137 1157 1217#
1021 1051 1109 1134#
1031 1063 1115 1581# 1584 1585
1609 1610 1612#
874 1284#
1179 1199 1287#
1306 1307 1319# 1358 1359
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED
#041

DPSEEKN
DPSEEKV
DPSEEKVX
DPSEEKX
DPSEKHO
DPSEKN3
DPSEL1
DPSEL2
DPSEL3
DPSEL3A
DPSEL3C
DPSEL4
DPSEL5
DPSEL6
DPSELDR
DPSELS
DPSELS1
DPSELS2
DPWRITE
DPWRT3
DPWRTX
DRIVEN
DRVNUM
DSADRH
DSADRL
DSKFNC
ERROR
FALSE

1360
1290
1339
1192
1383#
1385
1416
1423#
1426
1457
1437
1443
1494#
1503#
817
1508
1516
1435
889
1075
1053#
682#
689#
438#
437#
414#
549#
3#

FB27
FAF8
FB09
FADF
FB23
FB29
FB41
FB47
FB5E
FB7E
FB88
FB9C
FBA1
FBA9
FB32
FBB8
FBC6
FBC7
F9E7
FA17
F9EA
0002
0060
0005
0004
0010
F890
0000

1388#
1338#
1340
1291
1474
1386
1417
1429
1427
1458
1438
1444

1432

1476

1496

1346 1347 1353#
1296 1302#
1529
1390#
1419#
1430
1440#
1472#
1448 1449 1464 1465
1490#

983
1509
1517
1436
1050#
1076

1409#
1512# 1523
1525#
1527#

832
834
1727
1725

833
1626
1728
1726

1624

1625

471

626

1524

1078#

1478#

VERSION

Page 36
FDOSM
0090
FNCCOD
0000
OOFF
FNCNG
FRANGE
OOFO
GETDRV
FC13
GETRAK
FBD2
GONOW
F80E
FA19
GSODRV
GTABLE
F6BA
HIFNC
F8B4
HIFXIT
F8BC
HL
0004
F78A
HOME
F80A
HSAVE
0000
188INT
FFFE
188PKT
F8C7
188SVC
A2ED
INII
63DB
ININ
0046
INOROUT
INTBIT
0004
INTCLR
F8D2
INTFPTR
FFFC
INTSTA
0020
INTSTR
F843
IOBCHK
F7EO
IOBYTE
0003
IPKT
F673
CP/M MACRO ASSEM 2.0
IX
IY
JUMP
LEGFUN
LIST
LISTST
NEXTSC10
NEXTSC15
NEXTSC20
NEXTSEC
NSECT
NUMSEC
OTHFNC
OUT II
PACKET

0004
0004
00C3
0007
F772
F7C4
F998
F9A3
F9A4
F973
0006
OOOA
0020
A3ED
F675

PACKIT

F67F

PCONS
PCONS1
PDRC
PDRCl
PGIOB
PKTPRO
PKTRl

F634
F645
F649
F652
F7E8
F855
F8Al

32#
66
528
680#
527
552
425# 551
411#
1410 1623# 1643
1480 1543#
100
96
65
1060 1071 1083#
61
177#
588#
537
538
518
595#

881

882

352

371#

1445

1446

234
290#
144
358
366
369#
135
629
566
40U 508
504
506 1749#
251
62U
99
790# 1024
792# 840 1112
787# 1026 1055 1113
406# 570
633
63U 634
39U 394# 1747 1749 1754 1755
632
402# 569
458#
259
338#
75
343
347
166
338
3H 152
602
163
600
111# 161
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED
#042

404#
422#
278#
231
241
319#
948
947
945
946
951
952
891
923.
687# 927
429lJ:
415#
791# 1054
97
95
249
60
133#
294
290
49
48
73
74
53
54
86
87
56
343lJ:
462
499#
568lJ: 571

953#
962.
963.
928

112lJ:

146

148

149

151

153

248

246
299
71#
80#
8U
90#

254
303

266
307

270
311

274
315

278
319

282
334

286

264

VERSION

Page 37
PKTRET
PRIVATE
PSBD1
PSBDOS
PSBDOS1
PSEUD
PSEUDI
PSEUN

F895
0000
F61E
F600
F606
F658
F66F
F7F1

PSEUX
F62D
PSIOB
F7EC
PSTACK
F841
PSTAKSAV
F80C
PUNCH
F77A
QCRDADR
OOCO
QCREADS
0080
QCREST
0008
QCSEEK
001C
QCSEEKN
0018
QCSEKHO
0010
QCSTEPIN
0048
QCSTEPOT
0068
QCTERM
0000
QCWRTRK
OOFO
QCWRTS
OOM
QKCMCOM
0015
QKDRCNT
9C40
QKDRETRY
0004
QKMXSECT
OOOA
QKMXTRK
004F
QKPCBIT
0040
CP/M MACHO ASSEM 2.0
QKPCTRK
QKRATE
QKRDCOM
QKROBIN
QKWTCOM
QMBUSY

003D
0000
0013
0002
0014
0001

QMCRC
QMDELDM
QMDRNR
QMDRQ
QMEFLG
QMHLD
QMHLT
QMINDEX
QMLDATA
QMNRDY

0008
0020
0003
0002
0004
0008
0020
0002
0004
0080

QMON
QMONO
QMON1
QMPRECMP

0018
0008
0010
OOCO

522
5541
6#
11
389
50
51
59#
76
91
77
92
38# 222
39
43#
67
95#
1041
267
271
275
279
283
304
287
291
295
300
308
312
316
320
335
350#
67# 355
58
346#
141
376#
138
140
361
363
370#
232
282#
72U 1114
718# 1030
71U 1252
713# 1311
7141 1389
715# 1384
716# 1240
717#
722# 1154 1587
720#
719# 1062
543
695#
764# 1502
763# 1151
768# 836
944
767# 1190 1191 1305 1357
766# 1418
#043
Z80 PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED
765#
708#
530
769#
533
733#
1425
730#
74U
759#
740#
70U
699#
728#
732#
739#
726#
1531
757#
756#
755#
753#

1414
712
713
693# 880
848
694# 1447
745
746
1428 1583
746
747
747
1611
712
1607
1506
747
745
757
757

714

715

716

717

747

748

749

896

748

749

1077

1144

713

714

716

717

1519
748
746

749
747

748

749

1089

903

1212

1320

1425

1434

1530

VERSION

Page 38
QMPSIDE
QMRDADR
QMREAD
QMREST
QMRNF
QMSCOM
QMSEEK
QMSKERR
QMSSEL
QMTG42
QMTZERO
QMUPDT
QMVERF
QMWPROT
QMWRFLT
QMWRITE
QPCOMD

0020
009D
OOBD
0091
0010
0002
0099
0010
0008
0004
0004
0010
0004
0040
0020
OOFD
0060

QPDATA
QPSECRG
QPSTAT
QPTRKRG
RDORWR
READ
READER
REPSTAK
RST3
RST4
RST6
SCADRH
SCADRL
SECNUM
SECSIZ
SECTN
CP/M MACRO ASSEM

0063
0062
0040
0061
0040
F7B4
F782
F67F
0018
0020
0030
0003
0002
001F
0200
0002
2.0

SECTRAN
SELDSK
SETDMA
SETRAK
SETSEC
SETTRK
SHARE
STACK
STADRH
STADRL
START
STATUS

F7CC
F792
F7AC
FC1C
F7A4
F79A
FFFF
FC9C
0003
0002
F843
0001

TCURDRV
TFORMAT
TRACKN

FC30
FFF4
0003

754#
749#
747#
745#
738#
703#
746#
729#
702#
758#
731#
704#
700#
727#
737#
748#
778#
1504
781#
780#
777#
779#
786#
239
233
134#
397#
398#
399#
436#
435#
690#
430#
683#
#044
1596
242
235
238
816
237
236
11#
467
433#
432#
40
551
1531
1091
854
684#
1187
1367

1119
1035
1265
747

748

1316
745

746

749

844

1144

1088
1562
1390

1118
1582
1590

1155
1588

1254
1606

1315
1613

1424

1433

1422
1058
1116

1564
1286

1431

1473

1475

1495

1528

955

958

959

1595

1256
713
748
748
1067
1034
1505
792
1365
1086
877
1032
311#
286#

1066
1518
1308
1598
1092
1029
1064

477
463
1722
1720
943

1723
1721
956

964

965

1597

838

839

939

940

954

zao PSEUDO, INTERFACE AND PRIMITIVE ROUTINES - SHARED

323#
294#
307#
831
878
908
303#
298#
16
609
1686 1743# 1745
1700 1701
1698 1699
390# 393# 444
552
681# 859
1421
1485
829
1190
1412

1661#
1755#
830
996
1191 1194
1413

992

1640#

860

894

895

904

905

1530

997
1195

1027
1303

1028
1304

1056
1354

1057
1355

1186
1366

VERSION

Page 39
TRUE
TTRACK
UOELAY
UNPACKIT
UNPSTAK
USRFNC
VIDEO
WAIT8S
WAlTON
WBOOT
WRITE
XBOOT
Z80BGN
Z80MVE
Z80PKT
ZMOVE
ZSTART

FFFF
FFFO
004A
F6A2
F7FB
0040
. F704
F8E3
F8FO
F745
F7BC
F73B
0021
0022
FFFC
FC47
FC32

4#
1547
788#
104
68
416#
243
103
650
227
240
248#
418t
419#
563
541
547

590
649 1695
1647 1754#
1070 1463
158#
357#
536
331#
145
646# 654
651
657#
254#
315#
256
546
540
565
576
578
1719#
1684#

655

624

637

17471

Rainbow™ 100

CP/M-86/S0
BIOS Listings
AA-P31 OA-TV

READER'S COMMENTS
Did you find this manual understandable, usable, and well-organized? Please make
suggestions for improvement.

Did you find errors in this manual? If so, specify the error and the page number.

Please indicate the type of reader that you most nearly represent.

o First-time computer user
o Experienced computer user
o Application package user
[j Programmer
o Other (please specify)_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __
Name________________________________________________
Dme~

_________________________________________

Organization,___________----"""--_________________________
Street...___________________________________________
City_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ___
State______________________________________________
Zip Code
orCount~-------------------------------------------

I
I
I
I
I

---

,0"

-~- -aDOmNotaTear t- FOaid Hue
•

Tope - - - - - -

~ - - - - - - - - - - - - - - - ~ -111--------:~ ~o~~~ - - ~
Necessary
if Mailed in the
United States

•

:
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I

BUSINESSREPL Y MAIL
FIRST CLASS PERMIT
NO.
33 MAYNARD MASS.
.
..
POSTAGE WILL BE PAID BY ADDRESSEE

SOFTWARE PUBLICATIONS

200 FOREST STREET MR01-2/L12
MARLBOROUGH, MA 01752

'.-,,",-,

I
____________________________________________ 1

---- - -

Do Not Tear - Fold Here and Tape

1
1
1
1
1
1
1
1

\--1
1
1

1
1
1
1
1

,.)