total blocks -- longword, not word.

This commit is contained in:
Kelvin Sherlock 2015-09-15 14:18:39 -04:00
parent f7bdc1df9b
commit 499e287ad2
1 changed files with 10 additions and 0 deletions

View File

@ -171,11 +171,18 @@ do_total_blocks proc
phy ; save
ldy #vcr.super.nzones
lda [my_vcr],y
ply
sta [param_blk_ptr],y
iny
iny
lda #0
sta [param_blk_ptr],y
rts
endp
@ -202,6 +209,7 @@ do_free_blocks proc
do_vol_name_0 proc
; store the volume name (class 0)
; todo -- error if name > 16 chars? see HFS.
with fst_parms
with dp, my_dp
@ -317,5 +325,7 @@ error
endp
end