RAM.DRV.SYSTEM: Show block count. Resolves #2

inc/apple2.inc

@@ -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

ram.drv/ram.drv.system.s

@@ -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