RAM.DRV.SYSTEM: Show block count. Resolves #2
This commit is contained in:
parent
1260999b6c
commit
cc49835c9f
|
@ -68,6 +68,13 @@ SETKBD := $FE89
|
||||||
SETVID := $FE93
|
SETVID := $FE93
|
||||||
BELL := $FF3A
|
BELL := $FF3A
|
||||||
|
|
||||||
|
;;; ============================================================
|
||||||
|
;;; Applesoft ROM routines
|
||||||
|
;;; ============================================================
|
||||||
|
;;; These require various ZP locations to be initialized.
|
||||||
|
|
||||||
|
LINPRNT := $ED24 ; print X,A as integer
|
||||||
|
|
||||||
;;; ============================================================
|
;;; ============================================================
|
||||||
;;; Well-known RAM locations
|
;;; Well-known RAM locations
|
||||||
;;; ============================================================
|
;;; ============================================================
|
||||||
|
@ -75,3 +82,13 @@ BELL := $FF3A
|
||||||
INPUT_BUFFER := $200
|
INPUT_BUFFER := $200
|
||||||
RESETVEC := $3F2
|
RESETVEC := $3F2
|
||||||
COL80HPOS := $57B
|
COL80HPOS := $57B
|
||||||
|
|
||||||
|
;;; ============================================================
|
||||||
|
;;; Applesoft Zero Page Locations
|
||||||
|
;;; ============================================================
|
||||||
|
|
||||||
|
TEMPPT := $52
|
||||||
|
TEMPST := $55
|
||||||
|
SHIFT_SIGN_EXT := $A4
|
||||||
|
SPEEDZ := $F1
|
||||||
|
FLASH_BIT := $F3
|
||||||
|
|
|
@ -411,7 +411,21 @@ install_success:
|
||||||
|
|
||||||
jsr HOME
|
jsr HOME
|
||||||
jsr zstrout
|
jsr zstrout
|
||||||
scrcode "\r\r\r", PRODUCT, " - Installed"
|
scrcode "\r\r\r", PRODUCT, " - "
|
||||||
|
.byte 0
|
||||||
|
|
||||||
|
;; Initialize Applesoft zero page locations required by LINPRNT
|
||||||
|
copy #0, SHIFT_SIGN_EXT ; required by FP routines
|
||||||
|
copy #TEMPST, TEMPPT ; string descriptor pointer
|
||||||
|
copy #1, SPEEDZ ; output delay
|
||||||
|
copy #0, FLASH_BIT ; character set mask
|
||||||
|
|
||||||
|
ldx vol_dir_header+VolumeDirectoryHeader::total_blocks
|
||||||
|
lda vol_dir_header+VolumeDirectoryHeader::total_blocks+1
|
||||||
|
jsr LINPRNT
|
||||||
|
|
||||||
|
jsr zstrout
|
||||||
|
scrcode " Blocks"
|
||||||
.byte 0
|
.byte 0
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
Loading…
Reference in New Issue