409 lines
4.5 KiB
Plaintext
409 lines
4.5 KiB
Plaintext
|
|
|
|
include 'gsos.equ'
|
|
include 'minix.equ'
|
|
include 'records.equ'
|
|
|
|
include 'fst.equ'
|
|
|
|
include 'fst.macros'
|
|
|
|
include 'M16.Debug'
|
|
|
|
|
|
; id_disk
|
|
; identify disk in device.
|
|
;
|
|
; inputs:
|
|
; a = device id
|
|
;
|
|
; outputs:
|
|
; (registers)
|
|
; c = 1 for error
|
|
; a = error code or 0
|
|
; (dp)
|
|
; my_vcr
|
|
;
|
|
|
|
entry check_super
|
|
entry build_vcr
|
|
|
|
entry calc_free_blocks
|
|
entry bitcount
|
|
|
|
import device_read
|
|
import read_data_block
|
|
|
|
id_disk procname export
|
|
|
|
;
|
|
; read the superblock
|
|
;
|
|
;
|
|
; note - minix has 1024-k blocks. I'm only reading 512
|
|
; since there's nothing of interest in the second half of the
|
|
; superblock.
|
|
|
|
with dev_parms
|
|
with v1
|
|
|
|
|
|
|
|
sta dev_num
|
|
|
|
lda #512
|
|
;sta dev_blk_size
|
|
sta dev_req_cnt
|
|
|
|
|
|
lda #SUPER_BLOCK*2
|
|
sta dev_blk_num
|
|
|
|
|
|
jsr device_read
|
|
bcs exit
|
|
|
|
jsr check_super
|
|
bcs exit
|
|
|
|
;
|
|
; if my_vcr is set, we only need to verify this is a minix disk,
|
|
; not building a new vcr.
|
|
lda dp.my_vcr
|
|
ora dp.my_vcr+2
|
|
bne done
|
|
|
|
jsr build_vcr
|
|
bcs exit
|
|
|
|
done
|
|
; error priority $8000?
|
|
lda #0
|
|
clc
|
|
exit
|
|
rts
|
|
|
|
|
|
endp
|
|
|
|
;
|
|
; checks if the super block is valid for minix.
|
|
; returns a = error / 0
|
|
;
|
|
check_super procname
|
|
|
|
with dev_parms
|
|
with v1_super
|
|
with dp
|
|
|
|
check_magic
|
|
ldy #magic
|
|
lda [dev_buff],y
|
|
cmp #v1.MAGIC
|
|
beq @ok
|
|
cmp #v1L.MAGIC
|
|
bne no
|
|
@ok
|
|
check_log_zone
|
|
; should be 0
|
|
ldy #log_zone_size
|
|
lda [dev_buff],y
|
|
bne no
|
|
|
|
|
|
; todo
|
|
; if my_vcr is valid, check the volume name...
|
|
;
|
|
;
|
|
|
|
|
|
yes
|
|
clc
|
|
rts
|
|
no
|
|
lda #unknown_vol
|
|
sec
|
|
rts
|
|
endp
|
|
|
|
build_vcr procname
|
|
|
|
; for now, volume hard coded as 'minix'.
|
|
|
|
;
|
|
; todo --
|
|
; offset 128 $6502 (magic word)
|
|
; 130 (minix) volume name, terminated w/ 0
|
|
; 14 chars for minix, 30 chars for linux.
|
|
;
|
|
|
|
with v1
|
|
with dp
|
|
|
|
ldx #default_name
|
|
ldy #^default_name
|
|
lda #0
|
|
jsl find_vcr
|
|
bcs create_vcr
|
|
jsl deref
|
|
|
|
stx my_vcr
|
|
sty my_vcr+2
|
|
ldy #vcr.fst_id
|
|
lda [my_vcr],y
|
|
cmp #fst_id
|
|
bne dump_vcr
|
|
|
|
ldy #vcr.status
|
|
lda [my_vcr],y
|
|
and #vcr_swapped
|
|
beq @exit
|
|
|
|
and #vcr_swapped_in
|
|
sta [my_vcr],y
|
|
|
|
;lda device
|
|
lda dev_parms.dev_num
|
|
ldy #vcr.device
|
|
sta [my_vcr],y
|
|
|
|
@exit
|
|
lda #0
|
|
clc
|
|
rts
|
|
|
|
dump_vcr
|
|
; vcr exists for the filename but it's not mine.
|
|
; if inactive, kick it out. otherwise, return dup error.
|
|
|
|
;
|
|
; todo -- prodos fst has kludge for change path which
|
|
; allows duplicates if using a device name or something...
|
|
;
|
|
|
|
ldy #vcr.open_count
|
|
lda [my_vcr],y
|
|
beq @dump
|
|
|
|
lda #dup_volume
|
|
sec
|
|
rts
|
|
|
|
@dump
|
|
ldy #vcr.id
|
|
lda [my_vcr],y
|
|
jsl release_vcr
|
|
; drop through.
|
|
|
|
create_vcr
|
|
lda #vcr.__sizeof
|
|
ldx #default_name
|
|
ldy #^default_name
|
|
jsl alloc_vcr
|
|
lda #out_of_mem
|
|
bcs exit
|
|
|
|
jsl deref
|
|
stx my_vcr
|
|
sty my_vcr+2
|
|
|
|
lda #0
|
|
ldy #vcr.status
|
|
sta [my_vcr],y
|
|
ldy #vcr.open_count
|
|
sta [my_vcr],y
|
|
|
|
lda #fst_id
|
|
ldy #vcr.fst_id
|
|
sta [my_vcr],y
|
|
|
|
lda dev_parms.dev_num
|
|
ldy #vcr.device
|
|
sta [my_vcr],y
|
|
|
|
; copy over the super block...
|
|
clc
|
|
lda #vcr.super
|
|
adc my_vcr
|
|
sta ptr
|
|
lda #0
|
|
adc my_vcr+2
|
|
sta ptr+2
|
|
|
|
ldy #v1_super.__sizeof-2
|
|
@loop
|
|
lda [dev_parms.dev_buff],y
|
|
sta [ptr],y
|
|
dey
|
|
dey
|
|
bpl @loop
|
|
|
|
|
|
;
|
|
; boot
|
|
; super
|
|
; imap blocks
|
|
; zmap blocks
|
|
; inodes
|
|
; zones
|
|
|
|
|
|
; calculate offsets
|
|
lda #2 ; hard-coded.
|
|
ldy #vcr.first_imap_block
|
|
sta [my_vcr],y
|
|
|
|
clc
|
|
ldy #vcr.super.imap_blocks
|
|
adc [my_vcr],y
|
|
ldy #vcr.first_zmap_block
|
|
sta [my_vcr],y
|
|
|
|
clc
|
|
ldy #vcr.super.zmap_blocks
|
|
adc [my_vcr],y
|
|
ldy #vcr.first_inode_block
|
|
sta [my_vcr],y
|
|
|
|
|
|
|
|
|
|
|
|
vname
|
|
|
|
; also need to copy over the volume name...
|
|
;ldy #vcr.vname
|
|
lda default_name_colon
|
|
;sta [my_vcr],y
|
|
|
|
inc a
|
|
tax
|
|
clc
|
|
adc #vcr.vname
|
|
tay
|
|
short m
|
|
@loop
|
|
lda default_name_colon,x
|
|
sta [my_vcr],y
|
|
dey
|
|
dex
|
|
bpl @loop
|
|
long m
|
|
|
|
|
|
; store free blocks in the vcr?
|
|
jsr calc_free_blocks
|
|
bcs exit
|
|
|
|
|
|
; ~DebugHexDump <my_vcr,#vcr.__sizeof
|
|
|
|
lda #0
|
|
clc
|
|
exit
|
|
rts
|
|
|
|
default_name_colon
|
|
str.w ':minix'
|
|
|
|
default_name
|
|
str.w 'minix'
|
|
|
|
endp
|
|
|
|
calc_free_blocks procname
|
|
|
|
with dp
|
|
|
|
|
|
stz count
|
|
|
|
ldy #vcr.first_inode_block
|
|
lda [my_vcr],y
|
|
sta endb
|
|
|
|
|
|
ldy #vcr.first_zmap_block
|
|
lda [my_vcr],y
|
|
sta block
|
|
|
|
loop
|
|
jsr read_data_block
|
|
bcs error
|
|
|
|
jsr bitcount
|
|
clc
|
|
adc count
|
|
sta count
|
|
|
|
lda block
|
|
inc a
|
|
cmp endb
|
|
bcc loop
|
|
; done!
|
|
ldy #vcr.free_blocks
|
|
lda count
|
|
sta [my_vcr],y
|
|
lda #0
|
|
clc
|
|
error
|
|
rts
|
|
|
|
block ds.w 1
|
|
endb ds.w 1
|
|
count ds.w 1
|
|
endp
|
|
|
|
bitcount procname
|
|
; count up a page of bitmaps...
|
|
; count the 0s, not the 1s.
|
|
|
|
with dp
|
|
|
|
|
|
ldy #1024-2
|
|
ldx #0
|
|
|
|
loop
|
|
lda [io_buffer],y
|
|
beq add16
|
|
eor #$ffff
|
|
beq next
|
|
|
|
; now inverted, so count the 1s.
|
|
|
|
; kernighan / wegner
|
|
; 1 pass per bit.
|
|
pha
|
|
bloop
|
|
dec a
|
|
and 1,s
|
|
beq bdone
|
|
inx
|
|
sta 1,s
|
|
bra bloop
|
|
bdone
|
|
pla
|
|
bra next
|
|
|
|
add16
|
|
txa
|
|
clc
|
|
adc #16
|
|
tax
|
|
|
|
next
|
|
dey
|
|
dey
|
|
bpl loop
|
|
|
|
txa
|
|
rts
|
|
|
|
endp
|
|
|
|
|
|
end
|
|
|
|
|