IF I696
DB ' -- IEEE 696 Host Adapter.'
ENDIF
IF I796
DB ' -- IEEE 796 Host Adapter.'
ENDIF
DB CR,LF,MSIZE/10+'0',MSIZE mod 10 +'0'
DB 'K CP/M ',VERS/10+'0','.',VERS mod 10 +'0'
DB CBIOSV+'@',0
;
;
ORG URINIT
;
;
; CP/M disk work space.
ALV:
IF LUN0
DS LUN0NLD*(((((LUN0SEC/HSTSPT-2)*CPMSPT/HSTSIB)-1)+7)/8)
ENDIF
IF LUN1
DS LUN1NLD*(((((LUN1SEC/HSTSPT-2)*CPMSPT/HSTSIB)-1)+7)/8)
ENDIF
IF LUN2
DS LUN2NLD*(((((LUN2SEC/HSTSPT-2)*CPMSPT/HSTSIB)-1)+7)/8)
ENDIF
IF LUN3
DS LUN3NLD*(((((LUN3SEC/HSTSPT-2)*CPMSPT/HSTSIB)-1)+7)/8)
ENDIF
CSV: DS (NOFDD+NOMINI)*32
; Disk access information.
; This area is organized into the following groups
; disk drive
; track number
; sector number
; drive type
; Each of these groups has four cells for the
; current disk request, ACTual disk transfer,
; and active host disk.
ACTDSK: DS 1 ;Actual transfer operation
ACTTYP: DS 1 ;Actual disk's type
ACTTRK: DS 2 ;Actual transfer operation
ACTSEC: DS 1 ;Actual transfer operation
HSTDSK: DS 1 ;Active host disk
HSTTYP: DS 1 ;Active disk's type
HSTTRK: DS 2 ;Active host disk
HSTSEC: DS 1 ;Active host disk
;
;
;
;
; Disk transfer flags and counters.
RDFLAG: DS 1 ;Read flag
ERFLAG: DS 1 ;Error reporting
WRTYPE: DS 1 ;Write operation type
