title System scratch RAM used by ROM software and OVL. (C) 1983 By NLS .comment % ######################################################## ## ## ## KAYPRO 10 System ## ## ## ## By G. Ohnysty ## ## ## ## System scratch RAM used by ROM & OVL software ## ## ## ## Copyright (C) 1983 By Non-Linear Systems, Inc ## ## No warranty is made, expressed or implied. ## ## ## ######################################################## ## Date: 04/14/83 [01] ## ######################################################## % .z80 public @sekdsk, @sektrk, @seksec, @hstdsk, @hsttrk, @hstsec public @sekhst, @hstact, @hstwrt, @unacnt, @unadsk, @unatrk public @unasec, @erflag, @rsflag, @readop, @wrtype, @dmaadr public @hstbuf, @move, @dirbuf, @alva, @alvb, @dpha, @dphb, @dpbh public sekdsk, sektrk, seksec, hstdsk, hsttrk, hstsec public sekhst, hstact, hstwrt, unacnt, unadsk, unatrk public unasec, erflag, rsflag, readop, wrtype, dmaadr public hstbuf, dsk, dirbuf, move public csva, alva, dpha, rd128, rd512 public wrt128, wrt512, stack, leadflg, crow, ccol, row, row2 public col, col2, onoff, newc, pix, esccmd, saddr, vidram, ramlen public xoff, yoff, difx, dify, vrbase, cursor, vatt, sidflg public $dpb, adrbuf, adsk, dsktyp, sectrk, precur, vgb1 public wrt.err, rd.err, pixon, pixoff, lineon, lineoff ovlram equ 0EE00H ; overlay ram wrt.err equ ovlram ; write sector error handler rd.err equ wrt.err+3 ; read sector error handler pixon equ rd.err+3 ; plot a pixel pixoff equ pixon+3 ; erase a pixel lineon equ pixoff+3 ; draw a line lineoff equ lineon+3 ; erase a line ramscratch equ 0F700H ; scratch ram dsktyp equ ramscratch ;hard or floppy disk currently selected flag adsk equ dsktyp+1 ;hard or floppy is A: flag sectrk equ adsk+1 ;sectors per track @sekdsk equ sectrk+1 ;seek disk number @sektrk equ @sekdsk+1 ;seek track number @seksec equ @sektrk+2 ;seek sector number @hstdsk equ @seksec+1 ;host disk number @hsttrk equ @hstdsk+1 ;host track number @hstsec equ @hsttrk+2 ;host sector number @sekhst equ @hstsec+1 ;seek shr secshf @hstact equ @sekhst+1 ;host active flag @hstwrt equ @hstact+1 ;host written flag @unacnt equ @hstwrt+1 ;@unalloc rec cnt @unadsk equ @unacnt+1 ;last @unalloc disk @unatrk equ @unadsk+1 ;last @unalloc track @unasec equ @unatrk+2 ;last @unalloc sector @erflag equ @unasec+1 ;error reporting @rsflag equ @erflag+1 ;read sector flag @readop equ @rsflag+1 ;1 if read operation @wrtype equ @readop+1 ;write operation type @dmaadr equ @wrtype+1 ;last dma address @hstbuf equ @dmaadr+2 ;host buffer @move equ @hstbuf+512 ;move routine for deblocking @dirbuf equ @move+15 ;directory buffer for hard disk @alva equ @dirbuf+128 ; alocation map for hd A @alvb equ @alva+162 ; alocation map for hd B @dpha equ @alvb+162 ; dph for hd A @dphb equ @dpha+16 ; dph for hd B @dpbh equ @dphb+16 ; dpb for hd sekdsk equ @dpbh+15 ;seek disk number sektrk equ sekdsk+1 ;seek track number seksec equ sektrk+2 ;seek sector number hstdsk equ seksec+1 ;host disk number hsttrk equ hstdsk+1 ;host track number hstsec equ hsttrk+2 ;host sector number sekhst equ hstsec+1 ;seek shr secshf hstact equ sekhst+1 ;host active flag hstwrt equ hstact+1 ;host written flag unacnt equ hstwrt+1 ;unalloc rec cnt unadsk equ unacnt+1 ;last unalloc disk unatrk equ unadsk+1 ;last unalloc track unasec equ unatrk+2 ;last unalloc sector erflag equ unasec+1 ;error reporting rsflag equ erflag+1 ;read sector flag readop equ rsflag+1 ;1 if read operation wrtype equ readop+1 ;write operation type dmaadr equ wrtype+1 ;last dma address hstbuf equ dmaadr+2 ;host buffer dsk equ hstbuf+512 ; current disk drive sidflg equ dsk+1 ; single/double sided flag csva equ sidflg+1 ; directory check alva equ csva+16 ; allocation map leadflg equ alva+25 ; video graphics data storage vidram equ leadflg ; initialization pointer crow equ leadflg+1 ccol equ crow+1 vatt equ ccol+1 cursor equ vatt+1 vrbase equ cursor+2 esccmd equ vrbase+2 precur equ esccmd+1 ramlen equ 12 ; number of bytes to initialize col equ precur+2 col2 equ col+1 row equ col2+1 row2 equ row+1 onoff equ row2+1 newc equ onoff+1 pix equ newc+1 saddr equ pix+1 xoff equ saddr+2 yoff equ xoff+1 difx equ yoff+1 dify equ difx+1 vgb1 equ dify+1 dpha equ vgb1+1 ; DPH for A $dpb equ dpha+16 ; single density dpb adrbuf equ $dpb+15 ; read address buffer move equ adrbuf+6 ; move logical sector from hstbuf rd128 equ move+15 ; routine to read 128 byte sector rd512 equ rd128+7 ; routine to read 512 byte sector wrt128 equ rd512+10 ; routine to write 128 byte sector wrt512 equ wrt128+7 ; routine to wrtie 512 byte sector rdwrtend equ rd128+145 ; end of read and write routines dirbuf equ rdwrtend+1 ; bdos directory buffer stack equ 0FFFFH ; boot up stack space end