mirror of
https://github.com/a2stuff/prodos-drivers.git
synced 2024-12-20 22:30:36 +00:00
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
|
||||
BELL := $FF3A
|
||||
|
||||
;;; ============================================================
|
||||
;;; Applesoft ROM routines
|
||||
;;; ============================================================
|
||||
;;; These require various ZP locations to be initialized.
|
||||
|
||||
LINPRNT := $ED24 ; print X,A as integer
|
||||
|
||||
;;; ============================================================
|
||||
;;; Well-known RAM locations
|
||||
;;; ============================================================
|
||||
@ -75,3 +82,13 @@ BELL := $FF3A
|
||||
INPUT_BUFFER := $200
|
||||
RESETVEC := $3F2
|
||||
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 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
|
||||
|
||||
rts
|
||||
|
Loading…
Reference in New Issue
Block a user