;
; You should have received a copy of the GNU General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
+;
+; $Id$
+;
msize: equ 62 ;size of available RAM in k
bias: equ (msize-20) * 1024
-ccp: equ $3400+bias ;base of cpm ccp
-bdos: equ ccp+$806 ;base of bdos
-bios: equ ccp+$1600 ;base of bios
-cdisk: equ $0004 ;current disk number (0 ... 15)
-iobyte: equ $0003 ;intel iobyte
-buff: equ $0080 ;default buffer address
+ccp: equ 3400h+bias ;base of cpm ccp
+bdos: equ ccp+806h ;base of bdos
+bios: equ ccp+1600h ;base of bios
+cdisk: equ 0004h ;current disk number (0 ... 15)
+iobyte: equ 0003h ;intel iobyte
+buff: equ 0080h ;default buffer address
retry: equ 3 ;max retries on disk i/o before error
cr: equ 13
conin:
in a,(0)
- cp $ff
+ cp 0ffh
jp nz,conin
in a,(1)
ret
reader:
- ld a,$1F
+ ld a,01Fh
ret
prmsg:
; fall thru
prhexdigit:
- and $0f
+ and 00fh
cp 10
jp c,prd1
- add 7
+ add a,7
prd1:
- add '0'
+ add a,'0'
ld c,a
jp conout
add hl,de
ld a,(hl) ;get drm
inc a
- and $0fc
+ and 0fch
rrca ;4 dir entries per sector
rrca ;Number of sectors to init
push af
push de
ld hl,dirbuf ;Clear dirbuf
ld c,128
- ld a,$E5
+ ld a,0E5h
boot_cl:
ld (hl),a
inc hl
db 7 ;BLM: Data Allocation Mask
db 0 ;Extent mask
dw 55 ;DSM: Disk storage capacity
- dw 15 ;DRM, no of directory entries
+ dw 31 ;DRM, no of directory entries
db 128 ;AL0
db 0 ;AL1
dw 0 ;CKS, size of dir check vector