Bump Version

Update PPIDE, added MSX BEER

.github/pull_request_template.md

@@ -7,5 +7,7 @@ BEFORE YOU CREATE A PULL REQUEST:
 
 Thank you for contributing to RomWBW!  I will review your pull request as soon as possible.
 
+-Wayne
+
 DELETE EVERYTHING IN THIS COMMENT BLOCK AND REPLACE WITH YOUR COMMENTS
 -->

.github/workflows/commit.yml

@@ -26,7 +26,8 @@ jobs:
         run: |
           export TZ='America/Los_Angeles'
           sudo apt-get install srecord
-          make distlog
+          make transpile-c-code
+          make distlog --trace
           rm -rf .git*
 
       - name: List Output

.github/workflows/release.yml

@@ -19,7 +19,8 @@ jobs:
           export TZ='America/Los_Angeles'
           sudo apt-get install libncurses-dev
           sudo apt-get install srecord
-          make distlog
+          make transpile-c-code
+          make distlog --trace
           rm -rf .git*
       
       - name: Create Package Archive
@@ -52,6 +53,21 @@ jobs:
           title: "${{env.TITLE}} ${{github.ref_name}}"
           files: |
             RomWBW-${{github.ref_name}}-Package.zip
+
+      - name: Build Docs
+        run: |
+          export TZ='America/Los_Angeles'
+          sudo apt-get install gpp pandoc
+          pip install mkdocs
+          make -C Source/Doc deploy_mkdocs
+          mkdocs build -f Source/Doc/mkdocs.yml
+
+      - name: Deploy Docs
+        uses: peaceiris/actions-gh-pages@v4
+#       if: github.ref == 'refs/heads/master'
+        with:
+          github_token: ${{ secrets.GITHUB_TOKEN }}
+          publish_dir: Source/Doc/site
       
 #      - name: Upload Package Archive
 #        uses: AButler/upload-release-assets@v2.0.2

.gitignore

@@ -77,7 +77,6 @@ Tools/unix/zx/zx
 
 !Source/ver.lib
 !Source/Apps/FAT/FAT.COM
-!Source/Apps/copysl/copysl.com
 !Source/Apps/ZMP/zmpx.com
 !Source/Apps/ZMD/zmdsubs.rel
 !Source/Apps/Test/vdctest/font.asm
@@ -101,7 +100,7 @@ Tools/unix/zx/zx
 !Source/EZ512/*.bin
 !Source/Z1RCC/*.bin
 !Source/ZZRCC/*.bin
-!Source/FZ80/*.bin
+!Source/SZ80/*.bin
 !Tools/cpm/**
 !Tools/unix/zx/*
 !Tools/zx/*
@@ -115,16 +114,23 @@ Source/ZPM3/genbnk.dat
 Source/ZSDOS/zsdos.err
 
 # Lets explicit list all generate untracked binary files
+Binary/*.upd
+Binary/Apps/bbcbasic.txt
+Binary/Apps/copysl.doc
+Binary/Apps/copysl.doc
+Binary/Apps/fdu.doc
+Binary/Apps/fdu.doc
 Binary/Apps/Tunes/bgm.vgm
 Binary/Apps/Tunes/ending.vgm
 Binary/Apps/Tunes/inchina.vgm
 Binary/Apps/Tunes/shirakaw.vgm
 Binary/Apps/Tunes/startdem.vgm
 Binary/Apps/Tunes/wonder01.vgm
-Binary/Apps/fdu.doc
 Binary/Apps/zmconfig.ovr
 Binary/Apps/zminit.ovr
+Binary/Apps/zmp.cfg
 Binary/Apps/zmp.doc
+Binary/Apps/zmp.fon
 Binary/Apps/zmp.hlp
 Binary/Apps/zmterm.ovr
 Binary/Apps/zmxfer.ovr
@@ -144,14 +150,12 @@ Binary/CPNET/cpn12ser.lbr
 Binary/CPNET/cpn3duo.lbr
 Binary/CPNET/cpn3mt.lbr
 Binary/CPNET/cpn3ser.lbr
-Binary/RCEZ80_std.upd
-Binary/RCZ80_std.upd
+Binary/hd1k_prefix.dat
 Binary/ZPM3/bnkbdos3.spr
 Binary/ZPM3/bnkbios3.spr
 Binary/ZPM3/gencpm.dat
 Binary/ZPM3/resbdos3.spr
 Binary/ZPM3/zinstal.zpm
-Binary/hd1k_prefix.dat
 Source/BPBIOS/def-ww.lib
 Source/CPNET/cpn12duo.lbr
 Source/CPNET/cpn12mt.lbr
@@ -168,80 +172,28 @@ Source/Fonts/font8x16u.asm
 Source/Fonts/font8x8c.asm
 Source/Fonts/font8x8c.bin
 Source/Fonts/font8x8u.asm
+Source/Fonts/font6x8c.asm
+Source/Fonts/font6x8c.bin
+Source/Fonts/font6x8u.asm
 Source/Fonts/fontcgac.asm
 Source/Fonts/fontcgac.bin
 Source/Fonts/fontcgau.asm
 Source/Fonts/fontvgarcc.asm
 Source/Fonts/fontvgarcc.bin
 Source/Fonts/fontvgarcu.asm
-Source/HBIOS/RCEZ80_std.upd
-Source/HBIOS/RCZ80_std.upd
+Source/HBIOS/*.upd
+Source/HBIOS/build_env.cmd
 Source/HBIOS/build_env.cmd
 Source/HBIOS/hbios_env.sh
+Source/HBIOS/hbios_env.sh
+Source/HBIOS/netboot.mod
+Source/Images/*.cat
+Source/Images/*.img
 Source/Images/blank144
 Source/Images/blankhd1k
 Source/Images/blankhd512
-Source/Images/fd144_aztecc.img
-Source/Images/fd144_bascomp.img
-Source/Images/fd144_cowgol.img
-Source/Images/fd144_cpm22.img
-Source/Images/fd144_cpm3.img
-Source/Images/fd144_fortran.img
-Source/Images/fd144_games.img
-Source/Images/fd144_hitechc.img
-Source/Images/fd144_nzcom.img
-Source/Images/fd144_qpm.img
-Source/Images/fd144_tpascal.img
-Source/Images/fd144_ws4.img
-Source/Images/fd144_z80asm.img
-Source/Images/fd144_zpm3.img
-Source/Images/fd144_zsdos.img
-Source/Images/hd1k_aztecc.img
-Source/Images/hd1k_bascomp.img
-Source/Images/hd1k_blank.img
-Source/Images/hd1k_bp.img
-Source/Images/hd1k_combo.img
-Source/Images/hd1k_cowgol.img
-Source/Images/hd1k_cpm22.img
-Source/Images/hd1k_cpm3.img
-Source/Images/hd1k_fortran.img
-Source/Images/hd1k_games.img
-Source/Images/hd1k_hitechc.img
-Source/Images/hd1k_nzcom.img
-Source/Images/hd1k_qpm.img
-Source/Images/hd1k_tpascal.img
-Source/Images/hd1k_ws4.img
-Source/Images/hd1k_z80asm.img
-Source/Images/hd1k_zpm3.img
-Source/Images/hd1k_zsdos.img
-Source/Images/hd512_aztecc.img
-Source/Images/hd512_bascomp.img
-Source/Images/hd512_blank.img
-Source/Images/hd512_combo.img
-Source/Images/hd512_cowgol.img
-Source/Images/hd512_cpm22.img
-Source/Images/hd512_cpm3.img
-Source/Images/hd512_dos65.img
-Source/Images/hd512_fortran.img
-Source/Images/hd512_games.img
-Source/Images/hd512_hitechc.img
-Source/Images/hd512_nzcom.img
-Source/Images/hd512_qpm.img
-Source/Images/hd512_tpascal.img
-Source/Images/hd512_ws4.img
-Source/Images/hd512_z80asm.img
-Source/Images/hd512_zpm3.img
-Source/Images/hd512_zsdos.img
-Source/RomDsk/rom0_una.dat
-Source/RomDsk/rom0_wbw.dat
-Source/RomDsk/rom128_una.dat
-Source/RomDsk/rom128_wbw.dat
-Source/RomDsk/rom256_una.dat
-Source/RomDsk/rom256_wbw.dat
-Source/RomDsk/rom384_una.dat
-Source/RomDsk/rom384_wbw.dat
-Source/RomDsk/rom896_una.dat
-Source/RomDsk/rom896_wbw.dat
+Source/RomDsk/*.cat
+Source/RomDsk/*.dat
 Source/ZCPR-DJ/zcprdemo.com
 Source/ZPM3/autotog.com
 Source/ZPM3/clrhist.com
@@ -250,4 +202,3 @@ Source/ZPM3/setz3.com
 Tools/unix/OpenSpin/build/
 Tools/unix/zxcc/config.h
 Tools/unix/zxcc/zxcc
-Binary/Apps/bbcbasic.txt

.vscode/settings.json

@@ -1,4 +1,38 @@
 {
+  "z80-macroasm.format.enabled": true,
+  "z80-macroasm.format.baseIndent": 1,
+  "z80-macroasm.format.whitespaceAfterInstruction": "tab",
+  "z80-macroasm.format.uppercaseKeywords": true,
+  "z80-macroasm.format.spaceAfterArgument": true,
+  "z80-macroasm.format.hexaNumberStyle": "motorola",
+  "z80-macroasm.format.hexaNumberCase": true,
   "files.trimTrailingWhitespace": false,
-  "files.eol": "\r\n"
+  "files.eol": "\r\n",
+  "files.associations": {
+    "*.inc": "z80-macroasm",
+    "*.asm": "z80-macroasm",
+    "*.180": "z80-macroasm",
+    "*.asm.m4": "z80-macroasm",
+    "*.inc.m4": "z80-macroasm",
+    "*.mac": "z80-macroasm",
+    "*.asmpp": "z80-macroasm",
+    "*.zdsproj": "xml",
+    "*.Z80": "z80-macroasm",
+    "ch376.h": "c",
+    "protocol.h": "c",
+    "usb_state.h": "c",
+    "functional": "c",
+    "class_scsi.h": "c",
+    "z80.h": "c",
+    "dev_transfers.h": "c",
+    "usb-base-drv.h": "c",
+    "critical-section.h": "c",
+    "enumerate.h": "c",
+    "ch376inc.h": "c",
+    "enumerate_storage.h": "c",
+    "work-area.h": "c",
+    "hbios-driver-storage.h": "c",
+    "class_hid_keyboard.h": "c",
+    "print.h": "c"
+  }
 }

Binary/Apps/Clean.cmd

@@ -9,6 +9,8 @@ if exist Tunes\*.pt? del Tunes\*.pt?
 if exist Tunes\*.mym del Tunes\*.mym
 if exist Tunes\*.vgm del Tunes\*.vgm
 if exist bbcbasic.txt del bbcbasic.txt
+if exist *.cfg del *.cfg
+if exist *.fon del *.fon
 
 pushd Test && call Clean || exit /b 1 & popd
 pushd ZDE && call Clean || exit /b 1 & popd

Binary/Apps/Makefile

@@ -8,4 +8,4 @@ all::
 	mkdir -p Tunes
 
 clean::
-	@rm -f *.bin *.com *.img *.rom *.pdf *.log *.eeprom *.ovr *.hlp *.doc *.COM *.BIN Tunes/*.mym Tunes/*.pt? Tunes/*.vgm bbcbasic.txt
+	@rm -f *.bin *.com *.img *.rom *.pdf *.log *.eeprom *.ovr *.hlp *.doc *.COM *.BIN Tunes/*.mym Tunes/*.pt? Tunes/*.vgm bbcbasic.txt *.cfg *.fon

Doc/CPM/BPBIOS/BPBIOS_1_Introduction.md

@@ -0,0 +1,81 @@
+# B/P Bios
+# Banked and Portable Basic IO System
+
+# 1 Introduction
+
+The Banked and Portable (B/P) Basic I/O System (BIOS) is an effort to standardize many of the logical to physical mapping mechanisms on Microcomputers running Z-Systems with ZSDOS. In expanding the capabilities of such systems, it became apparent that standard BIOSes do not contain the functionality necessary, adequate standardization in extended BIOS calls, nor an internal structure to fully support external determination of system parameters. B/P Bios provides a method of achieving these goals, while also possessing the flexibility to operate on a wide range of hardware systems with a much smaller level of systems programming than previously required.
+
+
+## 1.1 About This Manual
+
+Documentation on B/P Bios consists of this manual plus the latest addendum on the distribution disk in the file README.2ND. This manual is divided into the following sections:
+
+* The Features of B/P Bios summarizes the significant features of B/P Bios in general, highlighting advantages and the few limitations in the system.
+
+* Tailoring B/P Bios contains details on altering the many options to generate a customized `.REL` file tailored to your system.
+
+* Installing a B/P Bios details the installation of B/P Bios in both Unbanked and Banked configurations in a "how to" fashion.
+
+* Programming for B/P Bios describes the interfaces, data structures and recommended programming practices to insure the maximum benefit and performance from systems with B/P Bios.
+
+* The B/P Bios Utilities describes the purpose, operation, and customization of all supplied B/P Bios utilities and support routines.
+
+* Appendices which summarize various technical information.
+
+* A glossary defining many technical terms used in this Manual.
+
+* An index of key words and phrases used in this Manual.
+
+For those not interested in the technical details, or who want to bring the system up with a pre-configured version as quickly as possible, Section 4, Installing a B/P Bios, will lead you through the installation steps needed to perform the final tailoring to your specific computer. Other chapters cover details of the individual software modules comprising the B/P Bios, and specifics on the utilities provided to ease you use of this product.
+
+
+## 1.2 Notational Conventions
+
+Various shorthand terms and notations are used throughout this manual. Terms are listed in the Glossary at the end of this manual.
+
+Though the symbols seem cryptic at first, they are a consistent way of briefly summarizing program syntax. Once you learn to read them you can tell at a glance how to enter even the most complicated commands.
+
+Several special symbols are used in program syntax descriptions. By convention, square brackets (\[\]) indicate optional command line items. You may or may not include items shown between brackets in your command, but if you do not, programs usually substitute a default value of their own. If items between brackets are used in a command, all other items between the brackets must also be used, unless these items are themselves bracketed.
+
+All of the support utilities developed to support the B/P Bios system contain built-in help screens which use the above conventions to display helpful syntax summaries. Help is always invoked by following the command with two slashes (`//`). So for example,
+
+`ZXD //`
+
+invokes help for ZXD, the ZSDOS extended directory program. Interactive ZSDOS programs such as BPCNFG2 also contain more detailed help messages which appear as a session progresses.
+
+Many utilities may be invoked from the command line with options which command the programs to behave in slightly different ways. By convention, options are given after other command parameters. For example, the `P` option in the command
+
+`ZXD *.* P`
+
+causes the ZXD directory utility to list all files (*.*) and send its output to the printer (P). For convenience, a single slash character (/) can often be used in place of leading parameters to signify that the rest of the command line consists of option characters. Therefore, the command
+
+`ZXD /P`
+
+is identical in meaning to the previous example (see 6.23 for more on ZXD).
+
+
+## 1.3 What is B/P Bios?
+
+B/P Bios is a set of software subroutines which directly control the chips and other hardware in your computer and present a standard software interface to the Operating System such as our ZSDOS/ZDDOS, Echelon's ZRDOS, or even Digital Research's CP/M 2.2. These routines comply with the CP/M 2.2 standards for a Basic IO System (BIOS) with many extensions; some based on CP/M 3.x (aka CP/M Plus), and others developed to provide necessary capabilities of modern software. When properly coded, the modules comprising a B/P Bios perform with all the standard support utilities, nearly all Z-System utilities, and most application programs without alteration.
+
+The ability to operate Banked, Non-banked and Boot System versions of the Bios with a single suite of software, across a number of different hardware machines, plus the maximization of Transient Program Area for application programs in banked systems are features which are offered by no other system of which we are aware.
+
+
+## 1.4 The History of B/P Bios
+
+Our earlier work developing ZSDOS convinced us that we needed to attack the machine-dependent software in Z80-compatible computers and develop some standard enhancements in order to exercise the full potential of our machines. This premise is even more true today with large Hard Disks (over 100 Megabytes) being very common, needs for large RAM Drives, and an ever shrinking Transient Program Area. Attempts to gain flexibility with normal operating systems were constrained by the 64k addressable memory range in Z80-compatible systems, and forced frequent operating system changes exemplified by NZCOM and NZBLITZ where different operating configurations could be quickly changed to accommodate application program needs.
+
+In the mid to late 1980's, several efforts had been made to bank portions of CP/M 2.2 "type" systems. XBIOS was a banked Bios for only the HD64180-based MicroMint SB-180 family. While it displayed an excellent and flexible interface and the ability to operate with a variety of peripherals, it had several quirks and noticeably degraded the computer performance. A banked Bios was also produced for the XLM-180 single board S-100 computer, but required special versions of many Z-System utilities, and was not produced in any significant quantity. Other spinoffs, such as the Epson portable, attempted banking of the Bios, but most failed to achieve our comprehensive goals of compatibility with the existing software base, high performance, and portability.
+
+In 1989, Cam developed the first prototype of B/P Bios in a Non-banked mode on his TeleTek while Hal concentrated on extending ZSDOS and the Command Processor. As of 1997, B/P Bios has been installed on:
+
+| Computer | Features |
+| :--- | :--- |
+| YASBEC | Z180 CPU, FD1772 FDC, DP8490 SCSI, 1MB RAM |
+| Ampro LB w/MDISK | Z80 CPU, FD1770 FDC, MDISK 1MB RAM |
+| MicroMint SB-180 | HD64180 CPU, SMS9266 FDC, 256KB RAM |
+| MicroMint SB180FX | HD64180Z CPU, SMS9266 FDC, 512KB RAM |
+| Compu/Time S-100 | Z80 CPU, FD1795 FDC, 1 MB RAM |
+| Teletek | Z80 CPU, NEC765 FDC, 64KB RAM |
+| D-X Designs P112 | Z182 CPU, SMC FDC37C665 FDC, Flash ROM, 512KB RAM (mods for 5380 SCSI and GIDE) |
+

Doc/CPM/BPBIOS/BPBIOS_2_Features.md

@@ -0,0 +1,36 @@
+# 2 Features of B/P Bios
+
+B/P BIOS is designed to be completely compatible with the CP/M 2.2 standards for a Basic IO System, as well as to provide many extensions needed for banked memory which is becoming so prevalent with newer systems and processors. Additionally, strict coding standards used in the various modules forming the BIOS ease interface problems with applications programs and provide a more robust framework for future development. The extensions added to the basic CP/M 2.2 foundation include many elements from Digital Research's CP/M 3 (aka CP/M Plus), but in a more logically consistent manner. Also included in banked versions are provisions for managing up to 8 MB of extended memory for banked applications, RAM Drives and potentially multitasking in future versions. To provide insight into the methodology used, let us now examine some of the features in a generic B/P Bios.
+
+
+## 2.1 Character IO
+
+As defined by Digital Research in their CP/M 2.2 standards, character IO consisted of logical devices referred to as TTY, CRT, UC1, CON, etc. B/P Bios extends and generalizes these interfaces using the IOBYTE to define four physical devices called COM1, COM2, PIO and NUL. The first two, COM1 and COM2, are serial ports; PIO is a Parallel port, while NUL is a "bit-bucket" which can be replaced by a customized driver, or used in lieu of an actual device. Digital Research provided only a limited interface capability to the character devices in CP/M 2.2, consisting of a Console (CON), an auxiliary Input and Output (RDR/PUN), and a Printer (LST). The ability to sense Input and Output Status with these devices was extremely limited and was enhanced in CP/M 3. These enhanced capabilities are completely incorporated into B/P Bios with the addition of strict register usage so that only relevant registers may be altered in the respective routines. By manipulating the IOBYTE, any of the four physical devices may be used in the three logical devices of CONsole, AUXiliary, and Printer (LST).
+
+Also featured in B/P Bios are modifications of CP/M 3 functions to initialize (or re-initialize) all devices and parameters, and return the address of a table which contains names and parameters of the defined character devices. While not totally compatible with CP/M 3 equivalents, these functions are consistent with the spirit and functionality needed with this advanced system. Included in the device table are; flags defining whether the device is capable of Input, Output or Both, Data rates for serial devices (Maximum and Set), Serial data format where applicable, and Handshaking method (CTS/RTS, XON/XOFF or None), as well as Input and Output Data masks for stripping unneeded bits from characters during IO.
+
+
+## 2.2 Mass Storage IO
+
+All versions of Digital Research's CP/M BIOSes define only a generic Disk driver with implementations of Floppy, Hard, RAM and Tape drives left to the user or developer. In B/P Bios, we went several steps further to ease many problems. First, we retained all standard CP/M 2.2 functions and parameters, added CP/M 3 features for returning the Disk Parameter Header (DPH) table address, and flushing of the software deblocking code segment, and added a new vector to the BIOS jump table to provide a standard method of directly addressing low-level device functions. Several standard low-level Floppy Disk functions are supported and used by the standard utilities, including a function to return the type of Disk Controller in use which permits a single support utility to adapt to a wide variety of hardware platforms. In a like manner, low-level functions are provided for SCSI/SASI Hard Disk drives, and provisions for RAM Disk drives in the event special hardware is implemented. The methods used to implement these access mechanisms may be logically extended to handle Tape Drives or Network Interfaces.
+
+
+## 2.3 Clock Support for Time and Date
+
+Many Hardware vendors have added provisions for Time and Date as non-standard extensions to CP/M 2.2 BIOSes, and more have incorporated such support into CP/M 3 BIOSes. We opted to define the CP/M 3 clock vector as a ZSDOS-standard clock building on our previous Operating System work. This entry point into the Bios completely complies with our ZSDOS standards and can completely replace the separate clock driver when used with ZSDOS. For systems capable of returning tenths-of-seconds, such as the YASBEC and SB-180, the standard has been enhanced to support this capability as well.
+
+
+## 2.4 Banked Memory Support
+
+While Digital Research added banked memory support to their CP/M 3, it was in a manner incompatible with Bios interface standards defined for earlier CP/M standards. The method used in B/P Bios is compliant with CP/M 2.2 in direct accessing of Bios functions with only one minor exception when using the Banked ZSDOS2, and contains many of the CP/M 3 extensions added for banked memory support, with some being modified to be consistent with standards adopted for Z-System software. The exception to CP/M 2.2 accesses occurs when the Operating System can access certain buffers in the System Memory Bank. With ZSDOS 2, Allocation Bit Buffers (ALV), Check Buffers (CSV), and the Disk Host Buffer are all contained in the System Bank and not directly accessible from Transient Programs. To compensate for this, we have added a command to ZSDOS 2 to return the free space on disks (the most common reason for accessing these buffers) and tailored several utilities to adapt to banked and non-banked systems.
+
+In addition to the primitives initiated by Digital Research, we added functions to directly access Words and Bytes in extended banks of memory, Directly accessing software routines contained in alternate memory banks, and properly managing the system when errors occur. These features make B/P Bios much more robust and resilient than other products. These features are implemented by methods transparent to the system utilities so that the same functions are available in both banked and non-banked versions.
+
+
+## 2.5 Other Features
+
+B/P Bios contains a standardized identification method which may be used to determine the hardware on which the software is operating. This allows applications to "adapt" to the environment in a manner similar to that used in the rest of the Z-System community. It also minimizes system "crashes" by executing programs which assume certain hardware features which may be detrimental if executed on other systems. The effects of identification of physical system parameters is most readily noticed by virtue of a single suite of support programs performing low-level functions such as formatting and diagnostics which function across widely differing hardware platforms. Portability on this scale can rarely be seen in other computer systems.
+
+The ZCPR 3.4 Environment with extensions is mandatory in a B/P Bios system. Beginning with the addition of System Segment address and size information for CPR, DOS and BIOS which were added in the ZCPR 3.4 Environment, B/P Bios also adds a Resident User Space which may be used to locate unique routines for custom applications in a manner similar to, but more consistent than NZ-COM. An Environment Version number of 90H identifies the Z3 Environment as being compliant with B/P definitions.
+
+In Banked systems, application programs may also be placed in alternate memory banks using location and sizing information contained at standard positions within the Bios Header Structure. This feature permits significantly greater functionality without sacrificing precious Transient Program Area. While the scheme employed in the initial distribution is subject to minor adjustments as the banked ZSDOS2 becomes more firmly developed, experimentation and suggestions into this realm are encouraged.

Doc/CPM/BPBIOS/BPBIOS_3_Tailoring.md

@@ -0,0 +1,232 @@
+# 3 Tailoring a B/P Bios
+
+To customize a B/P Bios for your use, or adapt it to a new hardware set, you will need an editor and an assembler capable of producing standard Microsoft Relocatable files. Systems using the Hitachi HD64180 or Zilog Z180 must be assembled with either ZMAC or SLR180 which recognize the extended mnemonic set, or with a Z80 assembler and MACRO file which permits assembly of the extended instructions. For Z80 and compatible processors, suitable assemblers include ZMAC and Z80ASM. For any assembler, failure to produce standard Microsoft Relocatable code will preclude the ability of our Standard utilities to properly install B/P Bios systems.
+
+
+## 3.1 Theory of Operation
+
+In order to understand the need for, and principles behind B/P Bios, you must understand the way in which CP/M 2.2, as modified by the Z-System, uses the available memory address space of a Z80 microprocessor. For standard versions of CP/M and compatible systems, the only absolute memory addresses are contained in the Base Page which is the range of 0 to 100H. All addresses above this point are variable (within certain limits). User programs are normally run from the Transient Program Area (TPA) which is the remaining space after all Operating System components have been allocated. The following depicts the assigned areas pictorially along with some common elements assigned to each memory area:
+
+```generic
+FFFFH /------------------\
+      | Z-System Buffers |   ENV, TCAP, IOP, FCP, RCP
+      |------------------|
+      |       Bios       |   Code + ALV, CSV, Sector Buffers
+      |------------------|
+      | Operating System |   CP/M 2.2, ZRDOS, ZSDOS1
+      |------------------|
+      | Command Processor|   CCP, ZCPR3.x
+      |------------------|
+      |   Transient      |
+      |                  |
+      |      Program     |
+      |                  |
+      |          Area    |
+0100H |------------------|
+      |    Base Page     |   IOBYTE, Jmp WB, Jmp Dos, FCB, Buffer
+0000H \------------------/
+```
+
+As more and more functionality was added to the Z-System Buffers, bigger drives were added using more ALV space, and additional functionality was added to Bios code in recent systems, the available TPA space has become increasingly scarce.
+
+B/P Bios attacks this problem at the source in a manner which is easily adaptable to different hardware platforms. It uses additional memory for more than the traditional role of simple RAM Disks, it moves much of the added overhead to alternate memory banks. The generic scheme appears pictorially as:
+
+```generic
+FFFFH /----------\
+      |          |
+      |   BNK1   |
+      |          |
+8000H |----------| /----------\    /----------\   /----------\
+      |          | |          |\   |          |\  |          |\
+      |   BNK0   | |   BNK2   |    |   BNKU   |   |   BNK3   ||\
+      |          | |          ||   |          ||  |          |||
+0000H \----------/ \----------/    \----------/   \----------/
+                    \- - - - - /    \- - - - - /   \- - - - - /|
+                                                    |   BNKM   |
+                                                    \----------/
+          TPA         SYSTEM           USER          RAM DISK
+```
+
+As can be seen from the above diagram, multiple banks of memory may be assigned to different functional regions of memory, with each 32k bank (except for the one defined as BNK1) being switched in and out of the lower 32k of the processor's memory map. The bank defined as BNK1 is ALWAYS present and is referred to as the Common Bank. This bank holds the portions of the Operating System (Command Processor, Operating System, BIOS, and Z-System tables) which may be accessed from other areas, and which therefore must always be "visible" in the processor's memory. It also contains the code to control the Bank switching mechanisms within the B/P Bios.
+
+To illustrate this functional division, the memory map of a basic B/P Bios system is divided as:
+
+```generic
+FFFFH /------------------\
+      | Z-System Buffers |
+      |------------------|
+      |    User Space    |
+      |------------------|
+      |       Bios       |
+      |------------------|
+      | Operating System |
+      |------------------|
+      | Command Processor|   /------------------\ 8000H
+      |------------------| / |   Bios Buffers   |
+8000H |   Transient      |   | Banked Bios Part |
+      |                  |   |------------------|
+      |                  |   | Banked Dos Part  |
+      |      Program     |   |------------------|
+      |                  |   | Banked CCP Part  |
+      |                  |   |------------------|
+      |          Area    |   |  CCP Restoral    |
+0100H |------------------|   |------------------| 0100H
+      |    Base Page     |   |  Base Page Copy  |
+0000H \------------------/   \------------------/ 0000H
+        TPA (BNK0/BNK1)       System Bank (BNK2)
+```
+
+The B/P Bios banking concept defines a one byte Bank Number permitting up to 8 Megabytes to be directly controlled. Certain assumptions are made in the numbering scheme, the foremost of which is that BNK0 is the lowest physical RAM bank, BNK1 is the next incremental RAM bank, with others follow in incrementing sequential order. A couple of examples may serve to illustrate this process. The YASBEC is offered with a couple of options in the Memory Map. Units with the MEM-1, 2 or 3 decoder PALs assign the first 128k bytes of physical memory to the Boot ROM, so BNK0 is set to 4 (Banks 0-3 are the ROM). The MEM-4 PAL only uses the first 32k (Physical Bank 0) for the ROM which means that BNK0 is assigned to 1, BNK1 to 2 and so on up to the 1 Megabyte maximum where BNKM is 31.
+
+The Ampro Little Board equipped with MDISK, on the other hand, completely removes the Boot ROM from the memory map leaving a maximum of 1 MB of contiguous RAM space. In this system, BNK0 is set to 0 and BNKM to 31 of a fully equipped 1 MB MDISK board.
+
+The region beginning after BNK1 is referred to as the System Bank. It begins at the bank number assigned to BNK2 and ends at the bank number immediately before that assigned to the User Bank, BNKU if present, or BNK3 if no User Bank area is defined.
+
+If present, one or more 32k banks of memory may be defined with the BNKU equate for unique user programs or storage areas. This area begins with the bank number set to the label and ends at the bank number immediately before the BNK3 label. BNK3 defines a high area of physical memory which is most often used for a RAM Disk providing fast temporary workspace in the form of an emulated disk drive.
+
+B/P Bios contains protection mechanisms in the form of software checks to insure that critical portions of the memory map are enforced. In the case of Non-banked systems, a check is made to insure that the system size is not so great that the Bios may overwrite reserved Z-System areas in high memory (RCP, IOP, etc). If a possible overflow condition is detected, the message
+
+`++ mem ovfl ++`
+
+will be issued when the system is started. In Banked Bios systems, this message will be displayed if the top of the system portions in the SYStem Bank exceeds the 32k bank size. For most systems, this space still permits drives of several hundred megabytes to be accommodated.
+
+Since the Common portions of the operating system components must remain visible to applications, a similar check is made to insure that the lowest address used by the Command Processor is equal to or greater than 8000H. This factor is checked both in both MOVxSYS and BPBUILD with either a warning issued in the case of the former, or validity checks on entry in the case of the latter.
+
+
+## 3.2 B/P Bios Files
+
+This BIOS is divided into a number of files, some of which depend highly on the specific hardware used on the computer, and some of which are generic and need not be edited to assemble a working system. Much use is made of conditional assembly to tailor the resulting Bios file to the desired configuration. The Basic file, `BPBIO-xx.Z80`, specifies which files are used to assemble the Bios image under the direction of an included file, `DEF-xx.LIB`. It is this file which selects features and contains the Hardware-dependent mnemonic equates. By maintaining the maximum possible code in common modules which require no alterations, versions of B/P Bios are relatively easy to convert to different machines. The independent modules used in the B/P Bios system are:
+
+| Filename | Description |
+| :--- | :--- |
+| `BOOTRAM.Z80` | (only needed in BOOT ROM applications) |
+| `BOOTROM.Z80` | (only needed in BOOT ROM applications) |
+| `BYTEIO.Z80` | Character IO per IOBYTE using IIO-xx routines |
+| `DEBLOCK.Z80` | Disk Deblocking routines |
+| `DPB.LIB` | 3.5/5.25" Floppy Format Definitions (if AutoSelect) |
+| `DPB8.LIB` | 8"/Hi-Density Floppy Format Definitions (if AutoSelect) |
+| `DPB2.LIB` | Additional Floppy Definitions (optional if AutoSelect) |
+| `DPBRAM.LIB` | Fixed Floppy Format Definitions (if Not AutoSelect) |
+| `DPH.LIB` | Disk Parameter Header Table & Floppy definitions |
+| `FLOPPY.Z80` | Floppy Disk High-Level Control |
+| `SECTRAN.Z80` | Sector Translate routines |
+| `SELFLP1.Z80` | Floppy Select routine (if Not auto selecting) |
+| `SELFLP2.Z80` | Floppy Select routine (if auto selecting) |
+| `SELRWD.Z80` | Generic Read/Write routines |
+| `Z3BASE.LIB` | ZCPR 3.x file equate for Environment settings |
+
+Other files are hardware version dependent to varying extents. These modules requiring customization for different hardware systems are given names which end with a generic "-xx" designator to identify specific versions. Tailoring these modules ranges from simple prompt line customization to complete re-writes. Versions of B/P Bios generated to date are identified as:
+
+| ID | Computer system |
+| :---: | :--- |
+| `-18` | MicroMint SB-180 | (64180 CPU, 9266 FDC, 5380 SCSI) |
+| `-YS` | YASBEC | (Z180 CPU, 1772 FDC, DP8490 SCSI) |
+| `-AM` | Ampro Little Board | (Z80 CPU, 1770 FDC, 1MB MDISK) |
+| `-CT` | Compu/Time S-100 board set | (Z80 CPU, 1795 FDC, 1MB Memory) |
+| `-TT` | Teletek | (Z80 CPU, 765 FDC) |
+
+Files associated with specific hardware versions or require tailoring are:
+
+| Filename | Description |
+| :--- | :--- |
+| `BPBIO-xx.Z80` | Basic file, tailored for included file names |
+| `CBOOT-xx.Z80` | Cold Boot routines, Sign-on prompts |
+| `DEF-xx.LIB` | Equates for option settings, mode, speed, etc. |
+| `DPBHD-xx.LIB` | Hard Drive Partition Definitions (optional) |
+| `DPBM-xx.LIB` | Ram Drive Definition (optional) |
+| `DPHHD-xx.LIB` | Hard Drive DPH definitions (optional) |
+| `DPHM-xx.LIB` | Ram Drive DPH Definition (optional) |
+| `FDC-xx.Z80` | Floppy Disk Low-Level interface/driver routines |
+| `HARD-xx.Z80` | Hard Drive Low-Level interface/driver routines (optional) |
+| `IBMV-xx.Z80` | Banking Support Routines (if banked) |
+| `ICFG-xx.Z80` | Configuration file for speed, Physical Disks, etc. |
+| `IIO-xx.Z80` | Character IO definitions and routines |
+| `RAMD-xx.Z80` | Ram Drive interface/driver routines (optional) |
+| `TIM-xx.Z80` | Counter/Timer routines and ZSDOS Clock Driver |
+| `WBOOT-xx.Z80` | Warm Boot and re-initialization routines |
+
+
+## 3.3 B/P Bios Options
+
+The most logical starting point in beginning a configuration is to edit the `DEF-xx.LIB` file to select your desired options. This file is the basic guide to choosing the options for your system, and some careful choices here will minimize the Bios size and maximize your functionality. Some of the more important options and a brief description of them are:
+
+**MOVCPM** - Integrate into MOVCPM "type" loader? If the system is to be integrated into a MOVCPM system, the Environment descriptor contained in the CBOOT routine is always moved into position as part of the Cold Start process. If set to NO, a check will be made to see if an Environment Descriptor is already loaded, and the Bios copy will not be loaded if one is present.
+
+NOTE: When assembling a Bios for Boot Track Installation (MOVCPM set to YES), many options are deleted to conserve space and the Bios Version Number is forced to 1.1.
+
+**BANKED** - Is this a banked BIOS? If set to YES, the Bank control module, IBMV, is included in the assembly, and much of the code is relocated to the system bank. Note that a Banked system CANNOT be placed on the System Tracks, or integrated into a MOVCPM image.
+
+**IBMOVS** - Are Direct Inter-Bank Moves possible? If set to YES, direct transfer of data between banks is possible such as with the Zilog Z180/Hitachi 64180. If NO, a 256-byte transfer buffer is included in high Common Memory and Interbank moves require transfer of bytes through this buffer.
+
+**ZSDOS2** - Assemble this for a Banked ZSDOS2 system? If YES, the ALV and CSV buffers will be placed in the System bank invisible to normal programs. This has the side effect that many CP/M programs which perform sizing of files (Directory Listers, DATSWEEP, MEX, etc) which do not know about this function will report erroneous sizes. The advantage is that no sacrifice in TPA is required for large Hard Disks. Set this to NO if you want strict CP/M 2.2 compatibility.
+
+**FASTWB** - Restore the Command Processor from the System Bank RAM? If set to YES, Warm Boots will restore the Command Processor from a reserved area in the System RAM bank rather than from the boot tracks. For the maximum benefit of B/P Bios, always attempt to set this to YES. In systems without extended memory, it MUST be set to NO.
+
+**MHZ** - Set to Processor Speed in closest even Megahertz (e.g. for a 9.216 MHz clock rate, set to 9). The value entered here is used in many systems to compute Timing values and/or serial data rate parameters.
+
+**CALCSK** - Calculate Diskette Skew Table? If NO, a Skew table is used for each floppy format included in the image. Calculating Skew is generally more efficient from a size perspective, although slightly slower by factors which are so small as to be practically unmeasurable.
+
+**HAVIOP** - Include IOP code into Jump table? If the IOPINIT routine satisfies your IOP initialization requirements, you may turn this off by setting to NO and save a little space. This typically will be turned off when generating a system for MOVCPM integration to conserve space.
+
+**INROM** - Is the Alternate Bank in ROM? Set to NO for Normal Disk-based systems. Please contact the authors if you need additional information concerning ROM-based system components.
+
+**BIOERM** - Print BIOS error messages? Set this to YES if you desire direct BIOS printing of Floppy Disk Error Messages. If you are building a BIOS for placement on Boot Tracks, however, you will probably not have room and must turn this Off. Set to NO to simply return the normal Success/Fail error flag with no Message printout.
+
+**FLOPY8** - Include 8"/Hi-Density Floppy Formats? Some systems (SB-180, Compu/Time) can handle both 5.25" and 8" disks. If your hardware supports the capability and you want use 8" disks as well as the normal 3.5 and 5.25" diskettes, setting this to YES will add formats contained in `DPB8.LIB` and control logic to the assembly. Future systems may take advantage of the "High-Density" 3.5 and 5.25" Floppy Disks which use higher data rates. Their definitions will be controlled by this flag as well.
+
+NOTE: If AUTOSL is set to NO, this option will probably cause the BIOS to be larger than necessary since these additional formats may not be accessible.
+
+**MORDPB** - Use more Floppy DPB's (in addition to normal 4-5.25" and optional 8")? If YES, the file `DPB2.LIB` is included. Many of the formats are Dummies and may be filled with any non-conflicting formats you desire.
+
+NOTE: If AUTOSL if set to NO, this option will probably cause the BIOS to be larger than necessary since these additional formats may not be accessible.
+
+**MORDEV** - Include Additional Character Device Drivers? Is set to YES, user-defined drivers are added to the Character IO table, and associated driver code is assembled. Systems featuring expansion board such as the SB-180 and YASBEC may now take advantage of additional serial and parallel interfaces within the basic Bios. Set to NO to limit code to the basic 4 drivers.
+
+NOTE: When assembling a Bios for Boot Track Installation (MOVCPM set to YES), MORDEV is overridden to conserve space, and the Bios Version Number is forced to 1.1 in the distribution files.
+
+**BUFCON** - Use type ahead buffer for the Console? If set to YES, code is added to create and manage a type-ahead buffer for the driver assembled as the console. This device will be controlled by either interrupts (in systems such as the YASBEC and SB-180) or background polling (in Ampro and Compu/Time). This means that characters typed while the computer is doing something else will not be lost, but will be held until requested.
+
+**BUFAUX** - Use type ahead buffer on Auxiliary Port? As with BUFCON above, setting to YES will add code to create and manage a type ahead buffer for the auxiliary device. Since the AUX port typically is used for Modem connections, buffering the input will minimize the loss of characters from the remote end.
+
+**AUTOSL** - Auto-select floppy formats? If set to YES, selection of Floppy disks will use an algorithm in `SELFLP2.Z80` to identify the format of the disk from the DPB files included (`DPB.LIB`, optional `DPB8.LIB`, and optional `DPB2.LIB`) and log the disk if a match is found. There must be NO conflicting definitions included in the various files for this to function properly. See the notes in the various files to clarify the restrictions. If set to NO, the single file `DPBRAM.LIB` is included which may be tailored to contain only the fixed format or formats desired per disk drive. This results in the smallest code requirement, but least flexibility.
+
+**RAMDSK** - Include code for a RAM-Disk? If set to YES, any memory above the System or User bank may be used for a RAM Drive (default is drive M:) by including the file `RAMD-xx.Z80`. Parameters to determine the size and configuration are also included in the files `DPHM-xx.LIB` and `DPBM-xx.LIB`. In systems without extended memory, or to conserve space such as when building a system for the boot tracks, this may be disabled by setting to NO.
+
+**HARDDSK** - Include SCSI Hard Disk Driver? Set to YES if you wish to include the ability to access Hard Disk Drives. In a floppy-only system, a NO entry will minimize BIOS code.
+
+**HDINTS** - (System Dependent) In some systems such as the YASBEC, Interrupt-driven Hard Disk Controllers using DMA transfer capabilities may be used. If you wish to use this type of driver specified in the file `HARDI-xx.Z80` instead of the normal polled routines included in `HARD-xx.Z80`, set this option to TRUE. In most cases, this driver will require more Transient Program Area since the Interrupt Handling routine must be in Common Memory.
+
+**CLOCK** - Include ZSDOS Clock Driver Code? If set to YES, the vector at BIOS+4EH will contain a ZSDOS-compatible clock driver with the physical code contained in the `TIM-xx.Z80` module. If set to NO, calls to BIOS+4EH return an error code.
+
+**TICTOC** - (System Dependent) Use pseudo heartbeat counter? This feature is used in systems such as the Ampro Little Board and Compu/Time SBC880 which do not have an Interrupt scheme to control a Real Time Clock. Instead, a series of traps are included in the code (Character IO Status polls, Floppy Disk Status polls) to check for overflow of a 1-Second Counter. It is less desirable than an Interrupt based system, but suffices when no other method is available. Set to NO if not needed.
+
+**QSIZE** - Size in bytes of type ahead buffers controlled by BUFCON and BUFAUX.
+
+**REFRSH** - Activate Dynamic Refresh features of Z180/HD64180 processors? In some computers using these processors such as the YASBEC, refresh is not needed and merely slows down processing. Set to NO if you do not need this feature. If your processor uses dynamic memory, or needs the signal for other purposes (e.g. The SB180 uses Refresh for Floppy Disk DMA), Set this to YES.
+
+**Z3** - Include ZCPR init code? Since a Z3 Environment is mandatory in a B/P Bios (which now "owns" the Environment), this option has little effect.
+
+For assembly of a Banked version of B/P Bios, the identification of various banks of memory must be made so that the various system components "know" where things are located. Refer to Section 3.1 above for a description of these areas. The BNK0 value should be the first bank of RAM in the System unless other decoding is done. The following equates must be set:
+
+| Equate | Description |
+| :--- | :--- |
+| BNK0 | First 32k TPA Bank (switched in/out) |
+| BNK1 | Second 32k TPA Bank (Common Bank) |
+| BNK2 | Beginning of System Bank (BIOS, DOS, CPR) area |
+| BNKU | Beginning of Bank sequence for User Applications |
+| BNK3 | Beginning of Extra Banks (first bank to use for RAM Disk) |
+| BNKM | Maximum Bank Number assigned |
+
+
+## 3.4 Configuration Considerations
+
+When assembling a version of B/P Bios for integration into an IMG file, size of the resulting image is not much of a concern, so you need not worry about minor issues of size. For integration into a system for loading onto diskette boot tracks, however, the limitation is very real in order to insure that the CPR/DOS/BIOS and Boot Sector(s) can fit on the reserved system tracks. Typically, a limit of slightly under 4.5k exists for the Bios component. When the MOVCPM flag is set to YES for this type of assembly, warnings will be issued when the image exceeds 4352 bytes (the maximum for systems with 2 boot records), and 4480 bytes (the maximum for systems with a single boot record). Achieving these limits often requires disabling many of the features.
+
+The first thing you should do before assembling the BIOS is to back up the entire disk, then copy only the necessary files onto a work disk for any editing. After setting the options as desired, edit the hardware definitions in `ICFG-xx.Z80` to reflect the physical characteristics of your floppy and hard drives, as well as any other pertinent items. Then edit the logical characteristics for your Hard and Ram Drives (if any) in `DPBHD-xx.LIB` and `DPBM-xx.LIB`. If you do not desire any of the standard floppy formats or want to change them, edit `DPB.LIB` and/or `DPB2.LIB` (if using auto selection) or `DPBRAM.LIB` if you are using fixed floppy formats. Finally edit the DPH files to place the logical drives where desired in the range A..P.
+
+Decide whether you want to generate a system using the Image file construct developed in support of B/P Bios (BPBUILD/LDSYS), or for integration on a floppy disk's boot tracks. If the latter, you probably will not be able to have all options turned on. For example, with the MicroMint SB-180, the following options must be turned Off: BANKED, ZSDOS2, BIOERM, FLOPY8, MORDPB, BUFAUX and usually either CLOCK or RAMDSK. As an aid to space reduction, conditional assembly based on the MOVCPM flag automatically inhibits all but double-sided Floppy formats from `DPB.LIB`. If configuring for Floppy Boot tracks (MOVCPM flag set to TRUE), a warning will be printed during assembly if the size exceeds that available for a One or Two-sector boot record. Using the BPBUILD/LDSYS method, you may vary nearly all system parameters, even making different systems for later dynamic loading.
+
+If you are using a version of the B/P Bios already set for your type of computer, you are now ready to assemble, build a system and execute it. The only remaining task would be an optional tailoring of the sign on banner in the file `CBOOT-xx.Z80` and reassembly to a `.REL` file.
+
+For those converting a standard version of the B/P Bios to a new hardware system, we recommend that you begin with a Floppy-only system in Non-Banked mode then expand from there. The easiest way to test out new versions is to use the System Image (IMG file) mode, then advance to boot track installations if that is desired. Enhancements that can be added after testing previous versions may be to add Hard Drives, RAM Drive, and finally Banking.
+

Doc/CPM/BPBIOS/BPBIOS_4_Installation.md

@@ -0,0 +1,200 @@
+# 4 Installing a B/P Bios
+
+The Distribution diskette(s) on which B/P Bios is furnished are configured for booting from the vanilla hardware for the version ordered. A 9600 bps serial terminal is standard, and will allow you to immediately bring up a minimal Non-Banked Floppy Disk system. Due to the variety of different system configurations and size restrictions in some versions, only the Floppy Disk Mass Storage capability can be assured on the initial boot disk. Where space remained on the boot tracks, limited Hard Drive support is also provided, and in some configurations, even RAM Drive support exists.
+
+After booting from either an established system, or the boot tracks of the distribution disk, format one or more fresh diskettes and copy the distribution diskette(s) contents to the backup diskette(s). Copy the boot tracks from the master to the copies using BPSYSGEN (see 6.6). Remove the master diskette(s) for safekeeping and work only with the copies you just made.
+
+Using the backup diskette with the B/P utilities on it, execute BPCNFG in the Boot Track configuration mode (see 6.2), adjusting all the options to your specific operating environment. When you have completed tailoring the system, it is ready for booting by placing the diskette in drive A: and resetting the system.
+
+The sample `STARTUP.COM` file on the distribution disk will automatically execute a sequence of instructions when the system is booted. It contains various instructions which further tailor the system and load portions of the operating system which are too big to fit on the boot tracks. The default instruction sequence is:
+
+| Command | Explanation |
+| :--- | :--- |
+| `LDDS`                        | Load the DateStamper style File Stamp routine and clock |
+| `LDR SYS.RCP,SYS.FCP,SYS.NDR` | Load ZCPR 3 Environment segments for Resident Command Processor, Flow Control Pkg and Named Dirs |
+| `IOPINIT`                     | Initialize the IO Processor Pkg |
+| `TD S`                        | Prompt for Date and Time, Set Clk / Alternatives are to use `TDD` (6.21) or `SETCLOK` (6.18) |
+| `IF ~EX MYTERM.Z3T`           | If the file `MYTERM.Z3T` does Not exist... |
+| `TCSELECT MYTERM.Z3T`         | ..select which terminal you have creating a `MYTERM.Z3T` file |
+| `FI`                          | ...end of the `IF` |
+| `LDR MYTERM.Z3T`              | Load the Terminal Definition data |
+
+If you wish to alter any of these initial instructions to, for example, initialize the RAM drive using INIRAMD, add File Time Stamp capabilities to it with INITDIR or PUTDS and copy some files there with COPY, these may be added with ALIAS, VALIAS, SALIAS or other compatible files available from the ZSYSTEM or ZCPR33 areas on Z-Nodes.
+
+After the initial system is up and running from the Default Boot Track system, you may expand the operation by generating systems for different purposes in order to gain the most advantage from your system. Many types of installation are possible, the simplest of which is a Non-Banked system using only 64k of the systems memory, all of which is in primary memory. Such a system uses a normal Command Processor such as the ZCPR3.x family, and a Non-Banked Operating System such as our ZSDOS Version 1. Non-Banked systems may be installed on a Disk's Boot Tracks, or created as an Image File for dynamic loading using the LDSYS Utility (see 6.15).
+
+Banked systems MUST be created with the BPBUILD Utility (see 6.1) and loaded with LDSYS (see 6.15). The techniques to manage different memory banks to form a complete Operating Environment are rather intricate and are best handled by our utilities. Many Image files may be created and loaded as needed to tailor your system for optimum performance. The following sections describe these various types of installations in detail.
+
+
+## 4.1 Boot Track Installation
+
+For most of the existing CP/M compatible computers to begin executing a Disk Operating System, a program must be placed on a specified area of a Floppy or Hard Disk Drive. Normally, the first two or three tracks on the disk are reserved for this purpose and are referred to as the "Boot Tracks". Since the space so defined is generally restricted, neither a complete B/P Bios nor a Banked installation is possible. Instead, a scaled-down system roughly equivalent to those currently in use is used to start the computer and serve as the Operating System, with larger systems loaded later as needed.
+
+If you are using a pre-configured version of B/P Bios for your hardware, you may simply continue to use the Boot Track system from the distribution disk(s) by copying the system as described in Section 4 above using BPSYSGEN (see 6.6). If you elect to alter or otherwise customize the Boot Track system, you must assemble the B/P Bios source setting certain of the equates in the `DEF-xx.LIB` file to insure a correct type of system. To assemble a Boot Track system, the most important equates are:
+
+| Equate |  |
+| :---: | :--- |
+| `MOVCPM` | Set to `YES` |
+| `BANKED` | Set to `NO` |
+| `ZSDOS2` | Set to `NO` |
+
+One element of Banked Systems is available in a Boot Track installation if additional memory is available, and your B/P Bios routines support such a feature. This feature reloads the Command Processor from Banked memory instead of from the Boot Tracks of a disk, and generally produces less code (taking less space on the Boot Tracks) and executes faster. It is set with:
+
+| Equate |  |
+| :---: | :--- |
+| `FASTWB` | Set to `YES` if desired, `NO` if Warm Boot from disk |
+
+Some of the features that generally need to be disabled to scale a smaller system are set as:
+
+| Equate |  |
+| :---: | :--- |
+| `MORDPB` | Set to `NO` |
+| `DPB8`   | Set to `NO` |
+| `MORDEV` | Set to `NO` |
+
+When at least these equates and any others you desire to change (see section 4) have been made to the component files of the system, assemble your `BPBIO-xx` file to a Microsoft standard `.REL` file. This output file may be used to overlay the Bios portion of the `MOVxSYS.COM` system generation utility (see 6.16) furnished with your distribution disk, or an equivalent program provided with your computer. MOVxSYS or its equivalent (MOVCPM, MOVZSYS, etc) is a special program customized for your particular hardware containing all the Operating System components which will be placed on the Boot Tracks, along with a routine to alter the internal addresses to correspond to a specified memory size.
+
+To Add the new Bios you just assembled, execute INSTAL12 (see procedures in 6.13) specifying your computer's MOVxSYS or equivalent program and follow the prompts to overlay the new Bios. Once INSTAL12 has saved a relocatable or absolute file, you are ready to create a boot disk containing the modified system.
+
+If you used the command INSTAL12 to install system segments on MOVxSYS or equivalent program, you must first create an Absolute System Model file. Since the functional portion of your new program is identical to the original MOVxSYS or equivalent, use the method explained in your original documentation to generate a new system. With MOVxSYS, the command is:
+
+| Command |  |
+| :---: | :--- |
+| `MOVxSYS nn *` | replace MOVxSYS with your version |
+
+Where `nn` is the size of the system (typically 51 for a moderate boot system). The asterisk tells the program to retain the image in memory and not write it to a disk file. You may now use BPSYSGEN to write the new image to the system tracks of your boot diskette. Do this by executing BPSYSGEN with no arguments and issue a single Carriage Return when asked for the source of the Image.
+
+If you used the command `INSTAL12 /A` to install replacement system segments over a System Image file, or used a utility which wrote the new image to a disk file, use BPSYSGEN to write the image file to the system tracks of your boot disk. The proper command is
+
+`BPSYSGEN filename`
+
+where filename is the name of the disk file you just created by executing MOVxSYS or equivalent with output to a disk file, or with INSTAL12 on an existing image file.
+
+If the system is written to a Hard Disk, and your system supports booting from a Hard Disk such as the YASBEC, you normally must alter the default Boot Sector from the default Floppy Disk Boot Sector contained in MOVxSYS or equivalent. This alteration is accomplished by HDBOOT (see 6.9) which must be customized to the specific Hardware System used.
+
+After the above actions have been completed as appropriate, tailor the Boot Track system to reflect the desired starting configurations with BPCNFG (see 6.2). Such items as the desired Startup file name, Bank Numbers (critical if FASTWB is used), and drive types and assignments are routinely tailored at this point. When the you have finished this step, test your new system by resetting the system, or cycling the power and you should be up and running!
+
+
+## 4.2 Non-Banked Image Installation
+
+A Non-Banked system may be installed as an Image File as opposed to the basic Boot Track installation covered in 4.1 above. To create an Image File, you must have `.REL` or `.ZRL` versions of a Command Processor (ZCPR3.x or equivalent recommended), an Operating (`ZSDOS.ZRL` recommended), and a REL version of B/P Bios for your system assembled with the MOVCPM equate in `DEF-xx.LIB` set to NO. Other equates in this file may be set as described above for the Boot Track system. Since Image Files are not as constrained in size as is installation for Boot Tracks, more features may generally be activated such as Error Messages, RAM Drive, additional Hard Drive partitions, and complete Floppy Format suites. The main precaution here is that large Hard Drives will rapidly cause significant loss of Transient Program Area since all Drive parameters must be in protected high memory above the Bios.
+
+After the Bios has been assembled, an Image file must be produced. This is accomplished with the BPBUILD Utility (see 6.1). Set the File names in Menu 1 to reflect only Non-Banked files (or minimally banked Bios if FASTWB is set to YES), and let BPBUILD do the work. Since the standard Non-Banked System segments are normally set to the "standard" CP/M 2.2 sizes, you may answer the "autosize" query with a Y to obtain the maximum Transient Program Area in the resulting system. When BPBUILD completes its work, a file, normally with the default type of `.IMG`, will have been placed in the currently logged Drive/User area and you are ready to perform the next step in preparation of the Non-Banked Image.
+
+As with the Boot Track installation covered above, several system items must be tailored before the Image may be safely loaded and executed. This is done by calling BPCNFG with the Image file name as an argument, or specify Image configuration from the interactive menu (see 6.2). Set all items as you desire them in the operating system, particularly the Bank Numbers (if FASTWB is active), and the Disk Drive characteristics and assignments. When this has been satisfactorily completed, you are ready to load and execute the newly-created system.
+
+Installing an Image File (default file type of `.IMG`) is extremely easy. Only the utility `LDSYS.COM` (see 6.15) is needed. If the file type has not been changed from the default `.IMG`, only the basic name of the Image File need be passed to LDSYS when executed as:
+
+| Command |  |
+| :---: | :--- |
+| `LDSYS IMGFILE` | where IMGFILE.IMG is your Image file name |
+
+The operating parameters of the currently-executing system are first examined for suitability of loading the Image File. If it is possible to proceed, the Image File is loaded, placed in the proper memory locations, and commanded to begin execution by calling the B/P Bios Cold Boot Vector. The Cold Boot (Bios Function 0) performs final installation, displays any desired opening prompt and transfers control to the Command Processor with any specified Startup file for use by a ZCPR3.x Command Processor Replacement.
+
+Since a non-banked Image File will probably closely resemble that contained on the Boot Tracks, the same STARTUP file may generally be used to complete the initial tailoring sequence. If a different file is desired, the Image File may be altered to specify a different file using BPCNFG.
+
+
+## 4.3 Banked Bios, Non-banked System Installation
+
+With the B/P Bios system, an Image system may be created and loaded which places portions of the Bios Only in the System bank, retaining a non-banked Operating System and therefore maximum compatibility with existing applications software. A few thousand bytes can normally be reclaimed for Transient Programs in this manner, although large and/or increasing numbers of logical drives will still reduce TPA space because of the need to store Allocation Vector information in Common Memory.
+
+To prepare such a system, simply edit the needed Bios files if necessary with particular emphasis on the `DEF-xx.LIB` file where the following equates must be set as:
+
+| Equate |  |
+| :---: | :--- |
+| `MOVCPM` | Set to `NO` |
+| `BANKED` | Set to `YES` |
+| `ZSDOS2` | Set to `NO` |
+
+Since banked memory MUST be available for this type of installation, you will probably want the Fast Warm Boot feature available to maximize system performance. To activate this option, set the following equate as:
+
+| Equate |  |
+| :---: | :--- |
+| `FASTWB` | Set to `YES` |
+
+When the editing is complete, assemble the Bios to a Microoft `.REL` file with an appropriate assembler such as ZMAC and build an Image system with BPBUILD (see 6.1) changing the Bios file name in menu 1 to the name of the newly created Bios file. Next, configure the default conditions if necessary with BPCNFG (see 6.2) and you are ready to activate the new system in the same manner as all Image files by calling LDSYS with the Image file argument as:
+
+| Command |  |
+| :---: | :--- |
+| `LDSYS BBSYS` | where BBSYS.IMG is your Image File Name |
+
+As with the completely Non-Banked system described above in Section 4.2, no new requirements are established for a Startup file over that used for the initial Boot System, since both the Command Processor and Disk Operating System are unbanked, and no data areas needed by application programs are placed in the System Bank. As with all Image Files, additional features such as full Bios Error Messages, more extensive Floppy Disk Formats and RAM drive may generally be included in the System definition prior to assembly since the size constraints of Boot Track systems do not apply.
+
+
+## 4.4 Fully Banked Image Installation
+
+To create a system taking maximum advantage of banked memory, a special banked Operating System and Command Processor are needed. These have been furnished in initial form with this package as `ZSDOS20.ZRL` and `Z40.ZRL` respectively. They use the Banking features of B/P Bios and locate the maximum practicable amount of executable code and data in the System Bank. Of significant importance to maximizing the Transient Program Area is that the Drive Allocation Bit maps are placed in the System Bank meaning that adding large hard drives, or multiple drives produce only minimal expansion to the resident portion of the Bios.
+
+NOTE: The latest versions are `ZS203.ZRL`, `ZS227G.ZRL`, and `Z41.ZRL` as included in the public release of B/P Bios. See also sections 7 and 8.
+
+A Fully banked Bios is created by editing the B/P Bios files as needed to customize the system to your desires. Insure that the following `DEF-xx.LIB` equates are set as:
+
+| Equate |  |
+| :---: | :--- |
+| `MOVCPM` | Set to `NO` |
+| `BANKED` | Set to `YES` |
+| `ZSDOS2` | Set to `YES` |
+
+Assemble the resultant B/P Bios to a Microsoft `.REL` file, Build an Image file with BPBUILD (see 6.1) and configure the produced Image file with BPCNFG (see 6.2). When you are confident that all default settings have been made, activate the file by entering:
+
+| Command |  |
+| :---: | :--- |
+| `LDSYS FBANKSYS` | where FBANKSYS.IMG is your Image File Name |
+
+Several differences may exist in the Startup file used for a Fully banked system. Generally the changes amount to deleting items such as a File Stamp module for the Non-banked ZSDOS1 which is not necessary with the fully-banked ZSDOS 2 and Z40. Only the type of clock need be specified for ZSDOS2. Furthermore, since the Z40 Command Processor Replacement contains most commonly-used commands gathered from a number of Resident Command Processor (RCP) packages, there is normally no need to load an RCP. A simple Startup file found adequate during development of the fully-banked B/P system is:
+
+| Command | Explanation |
+| :--- | :--- |
+| `ZSCFG2 CB`           | Set ZSDOS 2 clock to Bios+4EH |
+| `LDR SYS.FCP,SYS.NDR` | Load ZCPR 3 Environment segments for Flow Control and Named Dirs |
+| `IOPINIT`             | Initialize the IO Processor Pkg |
+| `TD S`                | Prompt for Date and Time, Set Clk / Alternatives are to use `TDD` (6.21) or `SETCLOK` (6.18) |
+| `IF ~EX MYTERM.Z3T`   | If the file `MYTERM.Z3T` does Not exist... |
+| `TCSELECT MYTERM.Z3T` | ..select which terminal you have creating a `MYTERM.Z3T` file |
+| `FI`                  | ...end if the `IF` |
+| `LDR MYTERM.Z3T`      | Load the Terminal Definition data |
+
+Since the requirements for a fully-banked system differ significantly from a non-banked one, we recommend that you use a different name for the Startup file. For example, `STARTUP.COM` is the default name used with Boot Track systems for initial operation, and with Non-banked Image Files, while STARTB may be a suitable name for the script to be executed upon loading a fully-banked system. The name of the desired Startup file may be easily altered in either Boot Track or Image systems from Option 1 in BPCNFG (see 6.2).
+
+An option available to start from a large Image File is to configure a Startup file for execution by the Boot Track system containing a single command. The command would simply invoke LDSYS with the desired Banked Image File as an argument such as:
+
+| Command |  |
+| :---: | :--- |
+| `LDSYS BANKSYS` | where BANKSYS.IMG is your Image file |
+
+In this case, none of the normal initialization sequences cited above would be executed by the Boot Track system, and only those contained in the Startup for `BANKSYS.IMG` would occur. Other options abound and are left to the community to invent new combinations and sequences.
+
+
+## 4.5 In Case of Problems...
+
+While We attempted to outline procedures for the majority of installations we considered feasible, there may be occasions where you inadvertently find yourself in a position where you seem to have lost the ability to get your system up and running.
+
+**PROBLEM:** When loading an `.IMG` file with LDSYS, the screen displays the LDSYS banner, system addresses, and halts with the last screen displaying: "...loading banked system".
+
+_SOLUTION:_ Something is not set correctly in the Bios, since all lines after the last one displayed are printed from the newly-loaded Bios. One of the most common causes for this problem is incorrect bank number settings. Use the hidden selection in Menu 1 of BPCNFG (see 6.2) to verify that the correct bank numbers have been set for TPA and SYStem banks. Another common cause of this problem is incorrect settings for the Console port, or a setting in the IOBYTE which directs Console data to a device other than the one intended. Use Menu 2 BPCNFG to properly set the IOBYTE and the console parameters.
+
+**PROBLEM:** You boot from or load a B/P Bios system from a Hard Drive, and immediately after starting, the system attempts to log onto Floppy Drive 0.
+
+_SOLUTION:_ The most common cause for this symptom is that the desired Hard Drive and Floppy Drive definitions were not swapped to define a Hard Drive Partition as the A: drive. Use BPCNFG (see 6.2), Menu 5 to exchange drives to the desired configuration. A similar situation may exist where a Hard Drive is activated immediately after booting when a Floppy drive is desired as the A: Drive.
+
+**PROBLEM:** The computer seems to boot satisfactorily, but after a few programs or any program which executes a Warm Boot (or entering Control-C), the system goes into "Never-never Land" and must be reset.
+
+_SOLUTION:_ This symptom is most often caused by an inability to access and load the Command Processor. This is most probably caused by assembling B/P Bios with the FASTWB equate in `DEF-xx.LIB` set to YES when the system contains no extended memory, or incorrect settings of the Bank Numbers. To check Bank Number settings, use the hidden function in BPCNFG, Menu 1 (see 6.2).
+
+**PROBLEM:** When doing a Cold Boot from a Hard Drive (from Power up or Reset), the system goes to a Floppy Drive before displaying the initial sign on messages, and remains logged on the Floppy.
+
+_SOLUTION:_ This is most often due to your forgetting to run the HDBOOT utility on the Hard Drive Boot system after applying it with BPSYSGEN. Normally, systems created with MOVxSYS contain a Floppy Disk Boot sector which will load the initial Operating System from a Floppy. HDBOOT (see 6.9) modifies this record on a specified Hard Drive Unit so that the Operating System is loaded from a Hard Drive. Run HDBOOT on the Desired Hard Drive, then use BPCNFG (see 6.2) to insure that the logical drives are positioned as desired (Menu 5).
+
+**PROBLEM:** When Booting, the system console either doesn't display anything, or prints strange characters.
+
+_SOLUTION:_ This is most often due to incorrect settings for the current Console, most probably the Data rate, or CPU Clock Frequency. Boot from a good system, then use BPCNFG (see 6.2) to adjust the settings on the problem system. Pay particular attention to Menu 1 (CPU Clock Rate) and Menu 2 (IOBYTE and Serial Port Data Rates).
+
+**PROBLEM:** When running a fully-banked system with ZSDOS 2, some programs seem to "hang" or "lock up" the system on exit.
+
+_SOLUTION:_ One of the most common sources of this symptom is with the application program where the author used code which assumes that the BDOS and Command Processor are of a certain size, or bear a fixed relationship to the addresses in page 0. You may experience this most often when using an IMG system built by answering YES to the Autosizing query in BPBUILD (see 6.1). To compensate for such ill-behaved programs, you may use a two-step build process as:
+
+1. Use BPBUILD to create an IMG file answering YES to Autosizing on exit. This maximizes TPA placing the Resident Bios as high as possible in memory.
+
+2. Execute BPBUILD again with an argument of the name you gave to the file just created above. This loads the definition from the IMG file. Immediately exit with a Carriage Return, and answer NO to Autosizing, and YES to placing system segments at standard locations. This procedure keeps the Bios address constant, but will move the starting addresses of BDOS and Command Processor down, if possible, to simulate "standard" sizes used in CP/M 2.2.
+
+

Doc/CPM/BPBIOS/BPBIOS_7_ZSDOS2.md

@@ -0,0 +1,37 @@
+# 7 ZSDOS Version 2
+
+Version 2 of ZSDOS is currently in a developmental phase. The version provided with this package is preliminary and should not be considered a final work. Be sure you back up any files which you don't mind sacrificing, and please let us know in as much detail as possible any problems you experience.
+
+In addition to the ZSDOS Version call (Function 48) returning 20H signifying ZSDOS2, three new Operating System functions have been added. They are:
+
+| Function 46 | Return Disk Free Space |
+| ---: | :--- |
+| Enter: | C = 46 (function #) |
+|        | E = Drive # (A=0..P=15) |
+| Exit:  | A = 0 if Ok, <>0 if Error |
+|        | Disk Free Space in kilobytes is placed in DMA+0 (LSB) thru DMA+3 (MSB) |
+
+This function returns Disk Free Space from fully-banked systems where the ALV buffers are not directly accessible by applications programs. It **MUST** be used to reliably determine free space since there is no way for programs to ascertain which System Bank (if more than one) contains the Allocation Bit Map. For most reasonably-sized systems, only the lower two or three bytes will be used, but four bytes are allocated to accommodate a maximally-sized system.
+
+| Function  | Return Environment Descriptor Address |
+| ---: | :--- |
+| Enter: | C = 49 (function #) |
+| Exit:  | HL = Address of Env Desc. |
+
+This function returns the address of a ZCPR 3.4 "type" Environment Descriptor needed in B/P Bios systems. Rather than rely on the Command Processor inserting the ENV address into application programs upon execution, this function may be used to reliably acquire the ENV address at any time.
+
+| Function 152 | Parse File Name |
+| ---: | :--- |
+| Enter: | C = 152 (function #) |
+|        | DE = Pointer to dest FCB |
+|        | DMA --> start of parse string |
+| Exit:  | A = Number of "?" in fn.ft |
+|        | DE = points to delimiter |
+|        | FCB+15 will be 0 if parse Ok, 0FFH if errors occurred |
+
+This function may be used to replace Z3LIB library routines in a more robust manner and produce consequently smaller applications programs. It is fully compliant with ZCPR 3.4 parse specifications.
+
+
+## 7.1 NOTES Spring 2001
+
+The versions of ZSDOS2 (the Banked Z-System DOS) and Z4x Banked Command Processor Replacement have been modified over the years. The manual may refer to specific versions, or by generic names. As of the Spring 2001 release under the GNU General Public License, Two versions of ZSDOS2 are provided; `ZS203.ZRL` which contains code for hashed directories, and `ZS227G,ZRL` which does not.

Doc/CPM/BPBIOS/BPBIOS_8_ZCPR4.md

@@ -0,0 +1,10 @@
+# 8 ZCPR Version 4
+
+`Z40.ZRL` is a consolidation of ZCPR34 and many of the RCP features commonly in use, modified by the need to bank as much of the Command Processor as possible. When Z40 is used in a Fully-Banked system, you may not need much of, or any Resident Command Processor with your system. Z40 relys on ZSDOS2 and will **NOT** work without it since the Command Line Parser and disk free space calculations have been removed in favor of ZSDOS2 services. Additionally, the prompt line displays the time and will only function correctly if he ZSDOS2 clock is enabled. Comments on how these new System components work would be appreciated.
+
+More complete documentation is provided in the `Z40.HLP` files included with the distribution diskettes, and a list of active functions is available with the H command at the prompt. To read the On-line help files, use `HELP.COM` available for downloading from any Z-Node.
+
+
+## 8.1 NOTES Spring 2001
+
+The versions of ZSDOS2 (the Banked Z-System DOS) and Z4x Banked Command Processor Replacement have been modified over the years. The manual may refer to specific versions, or by generic names. As of the Spring 2001 release under the GNU General Public License, the latest version of the Z4x Processor Replacement is `Z41.ZRL` which features a small amount of tailoring. A new utility; **`CONFZ4.COM`** is available for this purpose.

Doc/CPM/BPBIOS/BPBIOS_9_Glossary.md

@@ -0,0 +1,100 @@
+# GLOSSARY
+
+
+
+**Application Programs**
+
+In contrast to utility programs (see), application programs or applications are larger programs such as word processors which function interactively with the user.
+
+
+
+**BDOS**
+
+Basic Disk Operating System. The machine-independent, but usually processor-dependent, program which controls the interface between application programs and the machine-dependent hardware devices such as printers, disk drives, clocks, etc. It also establishes the concept of files on media and controls the opening, reading, writing, and closing of such constructs.
+
+
+
+**BGii**
+
+BackGrounder ii from Plu*Perfect Systems, a windowing task-switching system for CP/M users with hard or RAM disks.
+
+
+
+**BIOS**
+
+Basic Input/Output System. Machine-dependent routines which perform actual peripheral device control such as sending and receiving characters to the console, reading and writing to disk drives, etc.
+
+
+
+**Bit**
+
+BInary digiT. An element which can have only a single on or off state.
+
+
+
+**Bit Map**
+
+An array of bits used to represent or map large arrays of binary information in a compact form.
+
+
+
+**Boot**
+
+The term used for the starting sequence of a computer. Generally applies to starting from a "Cold," or power-off state, and includes the loading of Operating System, and configuration steps.
+
+
+
+**Byte**
+
+A grouping of eight bits.
+
+
+
+**CPR**
+
+Command Processor Replacement. Replaces CCP (see below). Example: ZCPR
+
+
+
+**CCP**
+
+Console Command Processor. The portion of the operating system that interprets user's commands and either executes them directly or loads application programs from disk for execution. The CCP may be overwritten by applications, and is reloaded by the "Warm Boot" function of the BIOS.
+
+
+
+**Checksum**
+
+An value which arithmetically summarizes the contents of a series of memory locations, and used to check the current contents for errors.
+
+
+
+**Clock Driver**
+
+A software link between a Non-banked ZSDOS and the clock on your system. The clock driver allows ZSDOS and its utilities to read the clock which is normally inherent in the B/P Bios.
+
+
+
+**Command Script**
+
+Sometimes called simply scripts, command scripts allow you to create a single command which issues other commands to perform a unique set of actions. CP/M submit files are one kind of command script familiar to all CP/M users. ZCPR also offers more sophisticated types of scripts such as aliases and command files (e.g., ALIAS.CMD).
+
+
+
+**DateStamper**
+
+A software package developed by Plu*Perfect Systems to allow time and date stamping of files. The Boot System uses an external module in the file LDDS.COM to implement DateStamper, while ZSDOS2 automatically supports this stamping method. DateStamper is unique among file stampers for microcomputers for two reasons: first, it maintains all file stamps within a file; second, it maintains stamps for create, access, and modify time/date for each file.
+
+
+
+**DDT**
+
+Dynamic Debugging Tool. A utility distributed with CP/M 2.2 which can display, disassemble, or alter disk files or areas of memory using opcodes or hexadecimal values.
+
+
+
+**DOS**
+
+Disk Operating System. Often used term for the BDOS, but generally refers to the aggregate of CCP, BDOS and BIOS.
+
+
+

Doc/CPM/ReadMe.txt

@@ -62,9 +62,22 @@ ZCPR D&J User Manual.  This manual supplements the ZCPR Manual.
 
 
 ZSDOS Manual ("ZSDOS Manual.pdf")
+ZSDOS Programmer's Manual ("ZSDOS Programmers Manual.pdf")
 ---------------------------------
 
 ZSDOS is the DOS portion of Z-System.  This is the manual for ZSDOS
 1.x as included in RomWBW.  The installation instructions can be
 ignored since that work has already been completed as part of the
 RomWBW distribution.
+
+The ZSDOS Programmer's Manual is also included courtesy of Wayne 
+Hortensius and Randy Merkel.  This manual includes documentation of the
+ZSDOS BDOS API enhancements.
+
+ZPM3 ("ZPM3.txt")
+-----------------
+
+A Z80 coded CP/M 3.0 compatible BDOS replacement with ZCPR support.
+This minimal documentation is all that is provided with ZPM3.
+
+-- WBW 8:38 AM 6/6/2025

Doc/CPM/ZPM3.txt

@@ -0,0 +1,483 @@
+
+                    Z P M 3   by Simeon Cran
+                    ========================
+
+          A Z80 coded CP/M 3.0 compatible BDOS replacement.
+
+               The first public release: 27/3/92
+                    This document dated: 16/6/92
+
+          Distributed at: Z-Node 62 (Perth, Western Australia)
+                     V21,V22,V22bis 09 450 0200
+
+
+WELCOME TO ZPM3
+~~~~~~~~~~~~~~~
+Welcome to the best CP/M compatible operating system for Z80 
+based computers with banked memory. The best? Yes, we believe so. 
+CP/M 3.0 has had bad press, but the fact is that it is faster 
+than CP/M 2.2 ever was, and it offered more integrated 
+facilities. Perhaps it was all the Z80 replacement BDOSes for 
+CP/M 2.2 which stole the limelight from CP/M 3.0, or was it just 
+that few computers had the required banked memory?
+
+Whatever the reason for CP/M 3.0's lack of success in the 
+marketplace, there are still plenty of users who will stand by 
+its wonderful facilities and speed. For those users ZPM3 provides 
+the long awaited Z80 coded update.
+
+ZPM3 offers all the good things that CP/M 3.0 does, and then it 
+offers more. Because ZPM3 is written in Z80 code rather than the 
+8080 code of CP/M 3.0, it can do everything that CP/M 3.0 does, 
+but in much less space. With the extra space recovered, ZPM3 
+packs in a number of new facilities. Yet the whole package fits 
+in exactly the same space as CP/M 3.0 so you can directly replace 
+your old CP/M 3.0 BDOS with ZPM3 without a worry.
+
+ZPM3 is also fast. Faster, in fact, than CP/M 3.0. This is 
+possible because the rich Z80 instruction set allows many 
+algorithms to be implemented more efficiently. In addition, the 
+extra space available in ZPM3 has been put to use to further 
+optimise the code. Lots of small optimisations smooth the 
+execution flow, so ZPM3 becomes the fastest operating system on 
+most banked CP/M computers.
+
+
+THE FEATURES
+~~~~~~~~~~~~
+ZPM3, in addition to complete CP/M 3.0 compatibility, offers the 
+following features:
+
+
+Random Read Bug fixed.
+++++++++++++++++++++++
+Maybe you didn't know, but CP/M 3.0 has a bug. It affects random 
+reads under very specific circumstances, and can result in a 
+program thinking that you don't have some pieces of data in a 
+file when in fact you do. The bug would occur very, very rarely, 
+but it is real. ZPM3 finally squashes it.
+
+
+Protected SCB User code
++++++++++++++++++++++++
+The System Control Block of CP/M 3.0 was a revolution at the 
+time. ZCPR has a system environment and most other operating 
+systems have other similar structures, but the SCB of CP/M 3.0 
+was one of the very first.
+
+Unfortunately, Digital Research never properly documented it, and 
+some programmers found things out about it that weren't quite 
+true and started programming accordingly. As well, because it is 
+available in the TPA bank, runaway programs can overwrite it 
+causing problems.
+
+Mostly though, the SCB will survive, or at least any problems 
+will be so obvious that the user will realise that a crash has 
+occurred and will reboot. A real problem exists with the CP/M 3.0 
+code however when the user value is written over with a value 
+above 15. Many programs now directly write to this byte, and if 
+they put a value in that is above 15, all sorts of havoc can 
+happen with the disk system. Actually, CP/M 3.0 will handle user 
+areas above 15 with this method, and all seems ok until the 
+operating system mistakes one of these directory entries as an 
+XFCB. Simply put, user areas above 15 must not be used with CP/M 
+3.0.
+
+ZPM3 has code which prevents these problems, making the system 
+even more stable.
+
+
+Obsoleted Trap system.
+++++++++++++++++++++++
+One of the problems of the banked operating system was that it 
+was possible to redirect the BIOS to code below common memory, in 
+which case the banked BDOS could not access it. One solution is 
+to call all BIOS code from common memory, but this involves a 
+bank switch for every BIOS call, and this slows things down 
+considerably.
+
+CP/M 3.0 got around the problem by providing special code just 
+below the SCB. If you redirected the BIOS, you also had to change 
+this code which caused a bank switch when your new BIOS routine 
+was called. When you removed the redirection, you also had to 
+restore the special code.
+
+This system has major drawbacks. For a start, if you redirect the 
+BIOS, then another program redirects your redirection, then you 
+remove your first redirection (along with the special code), the 
+bank switch won't happen for the second redirection and the 
+system will crash.
+
+If a CP/M 2.2 program tried to do the redirection, it would know 
+nothing about CP/M 3.0 and would not adjust the special code, so 
+a crash would result in that case too.
+
+The special code was called the "Trap System" as it was meant to 
+trap redirection (as long as you set the trap). ZPM3 has 
+eliminated the need for the traps. They are still there, and 
+programs can still fiddle with them, but it doesn't matter how 
+they are set, they are ignored. There is simply no need for them 
+anymore. And this has been achieved without a performance 
+penalty. In fact, in the case of a program which sets the traps 
+but forgets to restore them, performance is now much better.
+
+
+Semi-Permanent Read Only status for drives.
++++++++++++++++++++++++++++++++++++++++++++
+In recent years, a trend in CP/M 2.2 is to make drives which have 
+been set read only to remain that way until explicitly changed by 
+function 37. ZPM3 now adopts this logic. Previously a control-C 
+would return a read only drive to read write. The advantage is 
+that a program can now make a drive read only for a session and 
+know that it will stay that way.
+
+
+ZCPR compatible function 152
+++++++++++++++++++++++++++++
+Function 152 is the CP/M 3.0 parser. It was a great innovation at 
+the time as parsing is one of the more tedious aspects of 
+programming for CP/M. Unfortunately, almost as soon as it 
+appeared, it was made obsolete by the fact that it didn't handle 
+references to user number (DU references). A line such as 
+A:FILE.TYP would be correctly parsed, but A3:FILE.TYP would not. 
+CP/M 3.0 programs would often parse the drive and user 
+separately, then give function 152 the line without the DU: 
+reference. All this extra work should not have been necessary if 
+CP/M 3.0 had included user number parsing.
+
+ZPM3 parses the user number, and goes even further by handling 
+named directories for ZCPR. This is possible as long as you set a 
+special word in the SCB which tells ZPM3 where to find the ZCPR 
+system environment descriptor. ZCCP, a companion CCP for ZPM3, 
+handles this automatically, but for Z3PLUS users, a special 
+utility is available which automatically sets this word.
+
+The result is that CP/M 3.0 programs will not balk at DU: 
+references and ZPM3 aware programs can use the full DU: and DIR: 
+facilities of function 152. It has also made the brilliant ZCCP 
+code possible.
+
+
+New Functions 54 and 55
++++++++++++++++++++++++
+Datestamps in CP/M 3.0 are wonderful, but difficult to 
+manipulate. Two new functions make them easier to handle and at 
+the same time give compatibility to Z80DOS aware programs.
+
+Function 54 (Get Stamp) returns a Z80DOS compatible datestamp. 
+Any program (such as many directory programs) which recognise the 
+Z80DOS standard can make use of function 54. There is only one 
+slight difference between Z80DOS datestamps and ZPM3's which you 
+should be aware of. Z80DOS will return a correct datestamp after 
+any successful open or search of any extent. ZPM3 can only return 
+a correct datestamp after a successful open or search of the 
+first extent of the file. This is because CP/M 3.0 datestamps are 
+only saved for the first extents of each file, in order to 
+provide the highest performance.
+
+Even more interesting is Function 55 (Use Stamp) which provides a 
+mechanism for changing datestamps on files. Trying to do this 
+with CP/M 3.0 was virtually impossible because it involved direct 
+sector writes. With Function 55 you can simply set the stamp and 
+then write.
+
+
+Wheel protected files
++++++++++++++++++++++
+If you are using a ZCPR system (ZCCP or Z3PLUS), ZPM3 has access 
+to the wheel byte and supports wheel protected files. Such files 
+act normally if the wheel is set (signifying a priveleged user), 
+but if the wheel is not set, the files can not be changed. This 
+is of most benefit to BBS systems. The implementation is 
+virtually the same as most current Z80 CP/M 2.2 compatible 
+BDOSes.
+
+
+Better error messages
++++++++++++++++++++++
+CP/M 3.0 introduced the best error messages that CP/M had ever 
+had. ZPM3 goes further. The main difference you will notice is 
+that the user number as well as the drive is shown in the error 
+message. This is invaluable in helping you identify which file 
+might have caused a problem.
+
+
+Function 10 history buffer and improved editing.
+++++++++++++++++++++++++++++++++++++++++++++++++
+Function 10 is used by the CCP to input command lines. Many other 
+programs use function 10 for input.
+
+CP/M 3.0 introduced a history buffer for function 10. You press 
+control-W and you were returned the last command. It is a great 
+facility, but because it only remembers one command it is rather 
+limited. There have been RSXes written which give a much larger 
+history buffer, but RSXes take up extra program memory so are 
+undesirable.
+
+ZPM3 gives a large (approximately 250 bytes) history buffer which 
+can store multiple commands. It also makes very intelligent use 
+of the buffer so that identical commands are not stored twice, 
+and commands of less than three characters are not stored. The 
+history buffer takes up no additional memory, and is always 
+available.
+
+For security, it is possible to clear the history buffer so that 
+other users can not see what commands you have used.
+
+The ZPM3 history buffer feature is so good, that for many users, 
+the ZPM3 upgrade is completely justified by it.
+
+As part of the history buffer system, ZPM3 also offers a facility 
+called Automatic Command Prompting. This can be disabled, or can 
+be made switchable from the keyboard. When it is on, ZPM3 tries 
+to fill in the rest of your command based on what commands you 
+used most recently. It is like magic, and can save you typing out 
+complicated commands many times. In effect, it looks through the 
+history buffer for you and finds the command it thinks you want. 
+As you keep typing, if it turns out that the command doesn't 
+match anymore, it will try to match another command, and if it 
+can't, it lets you make the command by yourself. This facility is 
+quite amazing to watch.
+
+And to integrate the history buffer and the automatic command 
+prompting, function 10 has the best command line editing you'll 
+find anywhere. Most of the control keys do something when you are 
+editing a function 10 line, and for the most part they mimic the 
+standard WordStar/NewWord/ZDE functions. You can jump to 
+different words in the command, delete individual words, delete 
+individual letters, insert letters, and a whole lot more.
+
+
+Here is a list of what the various control keys do for function 
+10:
+
+A    Move left one word
+B    Go to the beginning or end of the line
+C    Warm boot if at start of line, otherwise nothing
+D    Go right one character
+E    Go backwards one command in the history buffer
+F    Go right one word
+G    Delete current character
+H    Destructive backspace
+I
+J    Enter line
+K    Delete all to the right
+L
+M    Enter line
+N
+O
+P    Toggle printing
+Q    Toggle automatic command prompting (if enabled)
+R
+S    Go left one character
+T    Delete current word
+U    Add current line to history buffer
+V    Clear line and delete from history buffer
+W    Go forwards one command in the history buffer
+X    Delete all to the left
+Y    Clear the whole line
+Z
+
+
+CPMLDR.REL bug fixed.
++++++++++++++++++++++
+If you have ever tried to use the CPMLDR.REL code supplied with 
+CP/M 3.0 to load a CPM3.SYS file larger than 16k, you have 
+probably come across the CPMLDR.REL bug. The computer probably 
+crashed, and you were left wondering what you did wrong in your 
+bios.
+
+Well CPMLDR.REL has a bug. To solve this for you ZPM3 comes with 
+ZPM3LDR.REL which directly replaces CPMLDR.REL. It is also 
+somewhat better in that all the messages, and the fcb for loading 
+CPM3.SYS, are at the start of the file along with plenty of spare 
+room. As a result you can easily patch the signon and error 
+messages to say whatever you like and even change the FCB to load 
+a file called something other than CPM3.SYS.
+
+
+
+
+All About the Random Read Bug.
+==============================
+Never heard of it? Well it's there in CP/M 3.0. I spent a lot of 
+time trying to work out what it was and just why it was 
+happening, and if you are interested, here are the details.
+
+CP/M 3.0 uses the Record Count byte of an active FCB a little 
+differently from the way CP/M 2.2 does. It is mentioned in the 
+CP/M 3.0 manuals that the record count may contain numbers 
+greater than 128, but in such a case it implies that the record 
+count is really 128. CP/M 2.2 would not return record counts 
+greater than 128.
+
+The reason for the use of the record count in this way is to help 
+speed up some of the logic used to find records in a file. It 
+works very well for sequential access. When it comes to random 
+access, the system has some failings.
+
+The idea behind CP/M 3.0's unusual use of the record count is to 
+keep the record count of the last logical extent of the current 
+physical extent always in the Record Count byte. When accessing 
+extents before the last one, bit 7 of the byte is set. That way 
+it will always be at least 128 for logical extents before the 
+last (which CP/M 3.0 translates to mean equal to 128), and the 
+lower 7 bits are used as convenient storage for the record count 
+of the last logical extent. This is particularly convenient 
+because it means there is no need to go and read the directory 
+entry again when it comes time to read the last logical extent.
+
+I hope you have followed that! In sequential access, this scheme 
+is great. The problem occurs with random access. In this case it 
+is possible to access a logical extent which has no records in 
+it. This could be any logical extent past the last one. In such a 
+case the record count must be returned as 0 (which is correct). 
+If we then go back to a previous logical extent in the same 
+physical extent, CP/M 3.0 gets confused and assumes that there 
+must be 128 records in that extent because the one we just came 
+from had no records and we are now accessing an earlier extent. 
+You're probably well and truly lost by now!
+
+Anyhow, the assumption that CP/M 3.0 makes is quite wrong. The 
+record count ends up being set to 128, a read is allowed to go 
+ahead as if nothing was wrong, no error is returned, and the 
+record count remains incorrectly set until a different physical 
+extent is opened. The result could be chaos, but mostly it just 
+means that a program returns the wrong information.
+
+Remember, a logical extent is always 16k. A physical extent can 
+be a multiple of 16k and is all the data described by one 
+directory entry. If your system has physical extents which are 
+16k, you would never have the problem because a new physical 
+extent would be properly opened for every new logical extent that 
+was accessed.
+
+Typically though, a physical extent is 32k, so it holds 2 logical 
+extents. The problem won't arise until the file grows past the 
+32k mark in such a case. And when the file gets over 48k the 
+problem can't occur again until it gets over 64k... and so on. 
+Even then, it can only happen if reads are attempted to 
+particular extents in a particular order. So you shouldn't be too 
+surprised if the bug hasn't been too noticeable to you.
+
+ZPM3 squashes the bug once and for all by using the correct 
+logic. In the situation where the bug would normally occur, ZPM3 
+makes sure it gets the correct record count information, and the 
+reads return the correct record count every time.
+
+If you are interested in seeing a demonstration of the bug in 
+action (on CP/M 3.0) and comparing it with ZPM3, there is a file 
+floating around various bulletin boards which contains 
+demonstrations for the bug and an RSX to fix it. The RSX is a 
+less than perfect way of overcoming the bug, although it seems to 
+work. However, now that you have ZPM3, you don't need to worry.
+
+
+
+
+Other things you should know about ZPM3
+=======================================
+ZPM3 has worked on EVERY CP/M 3.0 system tried so far except one. 
+This is a Bondwell computer, and as yet it isn't clear why it 
+won't work. I will study the source code of its BIOS and come up 
+with a fix shortly.
+
+The MAKEDOS.COM utility is not perfect (as mentioned previously) 
+and it seems that nobody has managed to get it to work with the 
+Commodore C128 system. You must use the conventional method for 
+installing ZPM3 on such systems.
+
+If you have a computer that ZPM3 will not install on with MAKEDOS 
+and you do not have access to the files required to do a 
+conventional install, please contact me. I am interested in 
+making ZPM3 as universal as possible and will help you to install 
+it on your system.
+
+The ESCAPE key is ignored by function 10. There has been some 
+lively discussion about this but the decision is final: it stays 
+ignored. Remember what function 10 is for and you will understand 
+why I made it ignore the ESCAPE key. The argument against this 
+has been from people who control their terminals from the command 
+line. Apparently some people type in an escape sequence at the 
+command line (which CP/M 3.0 will not output correctly anyhow 
+(converting the escape character to ^[)) then press return to 
+have the CCP echo back the line including the escape character.
+
+Sorry folks, that is a KLUDGE in my books! Anybody using Z-System 
+would of course use an ALIAS and ECHO to do this properly, but 
+for those who will continue to complain that I have sacrificed 
+CP/M 3.0 compatibility I am now including ECHOTERM.COM to solve 
+your problems. Run it and whatever you type will be sent to the 
+terminal correctly after you press RETURN. Press RETURN twice to 
+exit the program.
+
+And a reminder that the ability to put control characters into 
+function 10 lines was always limited by the fact that some 
+control keys were used to edit the command line. CP/M 3.0 added 
+even more, and ZPM3 uses virtually all the control keys. The few 
+that aren't used are ignored, and this is in fact a FEATURE which 
+guarantees that unusable characters can't get into function 10 
+lines by accident.
+
+
+
+
+LEGALS and SUCH
+===============
+The ZPM3 package is supplied free of charge, on the condition 
+that you don't use it to make money. If you want to use it 
+commercially you must contact me to get the OK (and negotiate our 
+fee).
+
+If you find anyone (except myself) charging money for ZPM3, 
+please inform me!
+
+Nobody is making any guarantees about this software. None at all. 
+If it causes your house to burn down, or a divorce, or just a bad 
+day, this is unfortunate, regrettable, but there is nothing that 
+I can or will do about it. You have been warned.
+
+The ZPM3 package must only be distributed in the form that you 
+found it. Do not change or add anything. Don't even change it 
+into a different type of archive. Just leave it alone. However 
+you are free to distribute it to as many places and people that 
+you can. Just don't charge for it.
+
+
+
+If in using ZPM3 you find that it doesn't act as described, 
+please forward the details to me so that either the ZPM3 code or 
+the documentation can be changed. If you would like further 
+details, please forward your specific questions to me. SJC.
+
+
+
+
+As a service to all our ZPM3 fans, the latest version of the ZPM3 
+package can now be ordered. At this stage we can only supply IBM 
+formatted 3.5 inch 720k disks, however if you are keen enough 
+that shouldn't matter. ZPM3 remains free, however this service 
+will cost you $15 Australian (for the disk, copying, postage and 
+packing) to most places in the Western World (others by 
+arrangement).
+
+This is a good way to guarantee you have the latest version, and 
+to guarantee that your package has not been corrupted by some 
+unscrupulous person.
+
+When we fill your order, we will make sure to include the latest 
+demonstration copy of MYZ80 - the fastest and best Z80 emulator 
+for IBM AT (and better) compatibles. MYZ80 can run ZPM3 with 
+ease. It also handles ZCPR and CP/M 2.2. And yes, we do mean 
+FASTEST.
+
+Send your international money order to:
+
+          Software by Simeon
+          ZPM3 Package
+          2 Maytone Ave
+          Killara   NSW
+          Australia 2071
+
+Your order will be promptly filled.
+

Doc/ChangeLog.txt

@@ -1,3 +1,46 @@
+Version 3.6
+-----------
+- RDG: Added VDA driver for Xosera FPGA-based VDC
+- MGG: Added COBOL language disk image
+- WDC: Added config options to PCF driver
+- WBW: Enabled dynamic CPU speed update on LCD screen
+- WBW: Improve LPT driver boot messaging when not detected (per Robb Bates)
+- WBW: Correct DS1307 boot date/time display (per Tadeusz Pycio)
+- WBW: Add -DELAY option to TUNE app (per Robb Bates)
+- RDG: Add online documentation site
+- WBW: Added enhanced Hi-Tech C Compiler files from Ladislau Szilagyi
+- WBW: Added boundary check to ram/rom disk driver
+- WBW: Per Peter Onion, switch KERMIT default file xfer mode to binary
+- J?L: Source for ZSDOS2 and BPBIOS Utilities (from disassembly)
+- WBW: Support ROM-based font storage
+- MAP: New Slice Inventory Rom App "S" display bootable slices, during boot
+- MAP: Device Inventory moved from HBIOS to Rom App, saving >1k space in HBIOS
+- MAP: Added disk image for all Infocom text adventure Games
+- M?R: Fixed formatting issue with SLABEL where Slice # < 10
+- WBW: Improved image creation process to allow user defined aggregates
+- WBW: Implemented config driven slice name and system image specification
+- D?N: Added native USB driver support (keyboard, floppy, mass storage)
+- MGG: Added sample program source files for all language disk iamges
+- WBW: Added support for S100 Dual CF Interface
+- WBW: Added support for S100 ESP32 SD Interface
+- MAP: User guide. Reorder sections around disk formatting
+- R?M: Randy Merkel provided ZSDOS Programmer's Manual as translated by Wayne Hortensius
+- WBW: Updated Cowgol disk image with latest COWFIX.COM from Ladislau Szilagyi
+- WBW: Preliminary support for S100 Computers Z80 CPU
+- HJB: Added MSX platform
+- M?R: Update Timer app with "zero" option
+- HJB: Update PPIDE driver, add support for MSX BEER IDE interface
+
+Version 3.5.1
+-------------
+- WBW: Fix CPMLDR.SYS & ZPMLDR.SYS for SYSCOPY (reported by Guido Santer)
+- MAP: Enhanced SLR Tools Disk Image with Plus versions
+- WBW: Add missing BCLOAD file to MS BASIC Compiler Disk Image (reported by Marshall Gates)
+- WBW: Doc improvements (per Fraser and Rob Gowin)
+- WBW: Correct ZMP application crash
+- MAP: Contribution of the SLABEL.COM tool for displaying and changing slice labels.
+- MAP: Hardware documentation, Significant new content added with project links.
+
 Version 3.5
 -----------
 - M?F: Fix for hours display in HBRTC application
@@ -56,6 +99,8 @@ Version 3.5
 - D?M: Added NetBoot support for Duodyne
 - WBW: Add options to TUNE/HBIOS to force detection of MSX and RC AY/YM standard PSG ports
 - MAP: Added /B=OPTIONS for automated drive assignment to ASSIGN.COM
+- WBW: Added TE Editor (Ladislau Szilagyi)
+- WBW: Refresh Cowgol disk image (Ladislau Szilagyi)
 
 Version 3.4
 -----------

Doc/Language/HI-TECH Z80 C Compiler Messages.txt

@@ -0,0 +1,99 @@
+1	"dimension required"
+2	"functions can't return arrays"
+3	"functions can't return functions"
+4	"can't have array of functions"
+5	"argument redeclared: %s"
+6	"not an argument: %s"
+7	"undefined struct/union: %s"
+8	"can't have array of functions"
+9	"only functions may be void"
+10	"functions can't return arrays"
+11	"declarator too complex"
+12	"no identifier in declaration"
+13	"can't initialize arg"
+14	"argument redeclared: %s"
+15	"bad storage class"
+16	"can't mix proto and non-proto args"
+17	"type specifier reqd. for proto arg"
+18	"can't initialise auto aggregates"
+19	"integer expression required"
+20	"undefined enum tag: %s"
+21	"integer constant expected"
+22	"bad bitfield type"
+23	"members cannot be functions"
+24	"struct/union redefined: %s"
+25	"can't be unsigned"
+26	"can't be short"
+27	"can't be long"
+28	"can't be register"
+29	"inconsistent type"
+30	"bad storage class"
+31	"storage class illegal"
+32	"inconsistent storage class"
+33	"illegal initialisation"
+34	"only register storage class allowed"
+35	"too much indirection"
+36	"argument list conflicts with prototype"
+37	"identifier redefined: %s"
+38	"not a label identifier: %s"
+39	"'case' not in switch"
+40	"'default' not in switch"
+41	"default case redefined"
+42	"inappropriate break/continue"
+43	"illegal type for switch expression"
+44	"inappropriate 'else'"
+45	"illegal initialisation"
+46	"initialisation syntax"
+47	"illegal initialisation"
+48	"%s expected"
+49	"close error (disk space?)"
+50	"digit out of range"
+51	"hex digit expected"
+52	"exponent expected"
+53	"'.' expected after '..'"
+54	"char const too long"
+55	"illegal character (0%o)"
+56	"illegal conversion"
+57	"logical type required"
+58	"type conflict"
+59	"simple type required for %.3s"
+60	"integral type required"
+61	"illegal use of void expression"
+62	"void function cannot return value"
+63	"pointer required"
+64	"only lvalues may be assigned to or modified"
+65	"can't take this address"
+66	"can't take address of register variable"
+67	"undefined struct/union: %s"
+68	"struct/union member expected"
+69	"struct/union required"
+70	"illegal type for index expression"
+71	"not a variable identifier: %s"
+72	"undefined identifier: %s"
+73	"expression syntax"
+74	"illegal type for array dimension"
+75	"constant expression required"
+76	"too few arguments"
+77	"too many arguments"
+78	"function does not take arguments"
+79	"float param coerced to double"
+80	"non-void function returns no value"
+81	"Unreachable code"
+82	"implicit return at end of non-void function"
+83	"Can't create xref file %s"
+84	"implicit conversion of float to integer"
+85	"illegal conversion between pointer types"
+86	"illegal conversion of pointer to integer"
+87	"illegal conversion of integer to pointer"
+88	"%s() declared implicit int"
+89	"operands of %.3s not same type"
+90	"operands of %.3s not same pointer type"
+91	"function or function pointer required"
+92	"Can't create xref file %s"
+93	"close error (disk space?)"
+94	"Can't reopen %s"
+95	"can't open %s"
+96	"illegal '#' directive"
+97	"EOF in #asm"
+98	"Too many cases in switch"
+99	"unexpected EOF"

Doc/Language/ReadMe.txt

@@ -11,45 +11,53 @@ distribution archive.  It contains documentation for Programming
 Languages provided with the system.
 
 
-Aztec C Compiler User Manual (Aztec_C_1.06_User_Manual_Mar84.pdf)
+Aztec C Compiler User Manual ("Aztec_C_1.06_User_Manual_Mar84.pdf")
 -----------------------------------------------------------------
 
 Official user manual for the Aztec C Compiler included in the aztecc disk image.
 
 
-Borland TurboPascal User Manual (Turbo_Pascal_Version_3.0_Reference_Manual_1986.pdf)
+Borland TurboPascal User Manual ("Turbo_Pascal_Version_3.0_Reference_Manual_1986.pdf")
 ------------------------------------------------------------------------------------
 
 Official user manual Borland TurboPascal included in the pascal disk image.
 
 
-Cowgol Lanaguage (Cowgol Language.pdf)
+The Cowgol Lanaguage ("The Cowgol Language.pdf")
+Cowgol Compiler Manual ("Cowgol Compiler Manual.pdf")
+
 --------------------------------------
 
-Documentation for Cowgol Language included in the cowgol disk image
+Documentation for Cowgol Language included in the cowgol disk image.
+The Cowgol Language describes the Cowgol Language itself while the
+Cowgol Compiler Manual describes the compiler operation.
 
 
-HI-TECH C Compiler User Manual (HI-TECH Z80 C Compiler Manual.txt)
+HI-TECH C Compiler User Manual ("HI-TECH Z80 C Compiler Manual.txt")
+HI-TECH C Compiler Messages ("HI-TECH Z80 C Compiler Messages.txt")
 ------------------------------------------------------------------
 
 Official user manual for the HI-TECH C Compiler included in the
-hitechc disk image.
+hitechc disk image.  The Compiler Messages file provides textual
+descriptions of all compiler error and warning codes.  These textual
+messages have been omitted from the size optimized version of
+HI-TECH C found in User Area 1 of the disk image.  See the ReadMe.txt
+file in the hitechc disk image for more information.
 
-
-Microsoft Basic-80 Reference Manual v5.0 (Microsoft Basic-80 Reference Manual v5.0.pdf)
+Microsoft Basic-80 Reference Manual v5.0 ("Microsoft Basic-80 Reference Manual v5.0.pdf")
 ---------------------------------------------------------------------------------------
 
 Official manual for Microsoft BASIC as included in RomWBW.
 
 
-Microsoft FORTRAN-80 User Manual (Microsoft_FORTRAN-80_Users_Manual_1977.pdf)
+Microsoft FORTRAN-80 User Manual ("Microsoft_FORTRAN-80_Users_Manual_1977.pdf")
 -----------------------------------------------------------------------------
 
 Official user manual for Microsoft's FORTRAN-80 compiler included in the fortran
 disk image.
 
 
-Z80 Assembler User Manual (z80asm (SLR Systems).pdf)
+Z80 Assembler User Manual ("z80asm (SLR Systems).pdf")
 ----------------------------------------------------
 
 Official user manual for the Z80 Macro Assembler by SLR Systems

Doc/ReadMe.txt

@@ -28,6 +28,7 @@ ChangeLog.txt
 Log of changes in RomWBW by version.
 
 
+RomWBW Introduction ("RomWBW Introduction.pdf")
 RomWBW User Guide ("RomWBW User Guide.pdf")
 RomWBW System Guide ("RomWBW System Guide.pdf")
 RomWBW Applications ("RomWBW Applications.pdf")
@@ -84,4 +85,4 @@ UCSD p-System Users Manual ("UCSD p-System Users Manual.pdf")
 Official user manual for p-System operating system included with
 RomWBW.
 
---WBW 5:18 PM 6/14/2023
+--WBW 8:37 AM 6/6/2025

Dockerfile

@@ -1,4 +1,4 @@
-FROM ubuntu:jammy-20240111 as basebuilder
+FROM ubuntu:jammy-20240111 AS basebuilder
 
 # This docker file can be used to build a tool chain docker image for building RomWBW images.
 
@@ -10,7 +10,7 @@ FROM ubuntu:jammy-20240111 as basebuilder
 # After you have built the above image (called romwbw-chain), you can use it to compile and build the RomWBW images
 # as per the standard make scripts within RomWBW.
 # Start a new terminal, cd to where you have clone RomWBW, and then run this command: 
-# docker run -v ${PWD}:/src/ --privileged=true -u $(id -u ${USER}):$(id -g ${USER}) -it romwbw-chain:latest
+# docker run --rm -v ${PWD}:/src/ --privileged=true -u $(id -u ${USER}):$(id -g ${USER}) -it romwbw-chain
 
 # you can now compile and build the required images:
 
@@ -21,13 +21,11 @@ FROM ubuntu:jammy-20240111 as basebuilder
 # when finish, type 'exit' to return to back to your standard terminal session
 
 LABEL Maintainer="Dean Netherton" \
-      Description="spike to use clang for ez80 target"
+      Description="RomWBW builder platform"
 
 ENV DEBIAN_FRONTEND=noninteractive
 
-
 RUN dpkg --add-architecture i386
-RUN sed -i 's/http:\/\/archive\.ubuntu\.com\/ubuntu/http:\/\/au.archive.ubuntu.com\/ubuntu/g' /etc/apt/sources.list
 RUN apt update -y
 RUN apt dist-upgrade -y
 RUN apt install -y --no-install-recommends cmake lzip ca-certificates mtools build-essential dos2unix libboost-all-dev texinfo texi2html libxml2-dev subversion bison flex zlib1g-dev m4 git wget dosfstools curl
@@ -35,10 +33,10 @@ RUN apt install -y --no-install-recommends cmake lzip ca-certificates mtools bui
 RUN mkdir work
 WORKDIR /work
 
-FROM basebuilder as main
+FROM basebuilder AS main
 
 LABEL Maintainer="Dean Netherton" \
-      Description="spike to build RomWBW"
+      Description="RomWBW builder platform"
 
 RUN mkdir /src
 WORKDIR /src/

Makefile

@@ -1,7 +1,7 @@
 .PHONY: tools source clean clobber diff dist
 
 .ONESHELL:
-.SHELLFLAGS = -cex
+.SHELLFLAGS = -ce
 
 all: tools source
 
@@ -22,6 +22,11 @@ clobber: clean
 diff:
 	$(MAKE) --directory Source diff
 
+# Convert c code to assembly code
+transpile-c-code:
+	@cd Source/HBIOS/ch376-native
+	$(MAKE) -j
+
 dist:
 	$(MAKE) ROM_PLATFORM=dist
 	$(MAKE) --directory Tools clean

RELEASE_NOTES.md

@@ -8,10 +8,45 @@ release of RomWBW.
 - **Please** review the "Upgrading" Section of the RomWBW User Guide.
 
 - The RomWBW ROM and the RomWBW disk images are intended to be a
-  matched set.  After upgrading your ROM, it is important to update
-  the OS boot tracks of your disks as well as the RomWBW-specific
-  applications.  This is discussed in the "Upgrading" section of the
-  RomWBW User Guide.
+  matched set.  After upgrading your ROM, you need to update your
+  boot disk media by doing one of the following:
+  
+  - Write a new disk image (typically hd1k_combo.img) onto your
+    disk media (will overwrite existing data/files).
+  - Update the boot tracks of the bootable OS images as described in
+    the RomWBW User Guid.
+
+## Version 3.6
+
+### Upgrade Notes
+
+- The FZ80 (S100 FPGA Z80) platform has been renamed to SZ80 (S100 Z80)
+  and has two configurations.  SZ80_std is for the generic S100
+  Z80 CPU.  SZ80_fpga is for the FPGA Z80 SBC.
+
+### New Features
+
+### New Hardware Support
+
+- Support for MSX systems.
+
+## Version 3.5.1
+
+This is a patch release of v3.5.
+
+### Fixes
+
+- Corrects an issue with the `CPMLDR.SYS` and `ZPMLDR.SYS` files that
+  caused `SYSCOPY` to fail when used with them.
+
+- Added missing `BCLOAD` file to the MS BASIC Compiler disk image.
+  
+### New Features
+
+- Added `SLABEL` application (Mark Pruden).
+
+- Variety of documentation improvements, especially an overhaul of
+  the Hardware Document (Mark Pruden).
 
 ## Version 3.5
 
@@ -67,6 +102,8 @@ release of RomWBW.
 
 - `COPYSL` slice copy application (Mark Pruden).
 
+- `SLABEL` slice label display/edit tool (Mark Pruden).
+
 - Improved disk slice management and protection (Mark Pruden).
 
 - Initial NVRAM configuration support (Mark Pruden).
@@ -74,7 +111,6 @@ release of RomWBW.
 - Enhancements to ASSIGN command to automatically assign drives
   (Mark Pruden).
 
-
 ### New Hardware Support
 
 - NABU w/ RomWBW Option Board.

ReadMe.md

@@ -5,14 +5,14 @@
 
 
 **RomWBW Introduction** \
-Version 3.5 \
+Version 3.6 \
 Wayne Warthen  ([wwarthen@gmail.com](mailto:wwarthen@gmail.com)) \
-04 Apr 2025
+29 Sep 2025
 
 # Overview
 
 RomWBW software provides a complete, commercial quality implementation
-of CP/M (and workalike) operating systems and applications for modern
+of CP/M (and work-alike) operating systems and applications for modern
 Z80/180/280 retro-computing hardware systems.
 
 A wide variety of platforms are supported including those produced by
@@ -49,7 +49,7 @@ Supported hardware features of RomWBW include:
 - Disk drivers for RAM, ROM, Floppy, IDE ATA/ATAPI, CF, SD, USB, Zip,
   Iomega
 - Serial drivers including UART (16550-like), ASCI, ACIA, SIO
-- Video drivers including TMS9918, SY6545, MOS8563, HD6445
+- Video drivers including TMS9918, SY6545, MOS8563, HD6445, Xosera
 - Keyboard (PS/2) drivers via VT8242 or PPI interfaces
 - Real time clock drivers including DS1302, BQ4845
 - Support for CP/NET networking using Wiznet, MT011 or Serial
@@ -80,7 +80,7 @@ Some of the included software:
 - Support for other operating systems, p-System, FreeRTOS, and FUZIX.
 - Programming Tools (Z80ASM, Turbo Pascal, Forth, Cowgol)
 - C Compiler’s including Aztec-C, and HI-TECH C
-- Microsoft Basic Compiler, and Microsoft Fortran
+- Microsoft Basic Compiler, Microsoft Fortran, and Microsoft COBOL
 - Some games such as Colossal Cave, Zork, etc
 - Wordstar Word processing software
 
@@ -191,6 +191,9 @@ documentation:
   discusses much of the internal design and construction of RomWBW. It
   includes a reference for the RomWBW HBIOS API functions.
 
+An online HTML version of this documentation is hosted at
+<https://wwarthen.github.io/RomWBW>.
+
 Each of the operating systems and ROM applications included with RomWBW
 are sophisticated tools in their own right. It is not reasonable to
 fully document their usage. However, you will find complete manuals in
@@ -287,8 +290,12 @@ let me know if I missed you!
 
 - Tasty Basic is a product of Dimitri Theulings.
 
-- Dean Netherton contributed eZ80 CPU support, the sound driver
-  interface, and the SN76489 sound driver.
+- Dean Netherton contributed multiple components:
+
+  - eZ80 CPU support
+  - Sound driver infrastructure
+  - SN76489 sound driver
+  - Native USB driver (keyboard, floppy, mass storage)
 
 - The RomWBW Disk Catalog document was produced by Mykl Orders.
 
@@ -304,7 +311,10 @@ let me know if I missed you!
   - significant content in the Disk Catalog and User Guide
   - creation of the Introduction and Hardware documents
   - Z3PLUS operating system disk image
-  - COPYSL utility
+  - Infocom text adventure game disk image
+  - COPYSL, and SLABEL utilities
+  - Display of bootable slices via “S” command during startup
+  - Optimisations of HBIOS and CBIOS to reduce overall code size
   - a feature for RomWBW configuration by NVRAM
   - the /B bulk mode of disk assignment to the ASSIGN utility
 
@@ -339,6 +349,20 @@ let me know if I missed you!
 
 - Les Bird has contributed support for the NABU w/ Option Board
 
+- Rob Gowin created an online documentation site via MkDocs, and
+  contributed a driver for the Xosera FPGA-based video controller.
+
+- Jörg Linder has contributed disassembled and nicely commented source
+  for ZSDOS2 and the BPBIOS utilities.
+
+- Marshall Gates has contriubed sample program source files for all of
+  the language disk images.
+
+- Randy Merkel provided the ZSDOS Programmer’s Manual as translated by
+  Wayne Hortensius.
+
+- Henk Berends added support for the MSX platform.
+
 ## Related Projects
 
 Outside of the hardware platforms adapted to RomWBW, there are a variety

ReadMe.txt

@@ -1,6 +1,6 @@
 RomWBW Introduction
 Wayne Warthen (wwarthen@gmail.com)
-04 Apr 2025
+29 Sep 2025
 
 
 
@@ -11,7 +11,7 @@ OVERVIEW
 
 
 RomWBW software provides a complete, commercial quality implementation
-of CP/M (and workalike) operating systems and applications for modern
+of CP/M (and work-alike) operating systems and applications for modern
 Z80/180/280 retro-computing hardware systems.
 
 A wide variety of platforms are supported including those produced by
@@ -46,7 +46,7 @@ Supported hardware features of RomWBW include:
 - Disk drivers for RAM, ROM, Floppy, IDE ATA/ATAPI, CF, SD, USB, Zip,
   Iomega
 - Serial drivers including UART (16550-like), ASCI, ACIA, SIO
-- Video drivers including TMS9918, SY6545, MOS8563, HD6445
+- Video drivers including TMS9918, SY6545, MOS8563, HD6445, Xosera
 - Keyboard (PS/2) drivers via VT8242 or PPI interfaces
 - Real time clock drivers including DS1302, BQ4845
 - Support for CP/NET networking using Wiznet, MT011 or Serial
@@ -78,7 +78,7 @@ Some of the included software:
 - Support for other operating systems, p-System, FreeRTOS, and FUZIX.
 - Programming Tools (Z80ASM, Turbo Pascal, Forth, Cowgol)
 - C Compiler’s including Aztec-C, and HI-TECH C
-- Microsoft Basic Compiler, and Microsoft Fortran
+- Microsoft Basic Compiler, Microsoft Fortran, and Microsoft COBOL
 - Some games such as Colossal Cave, Zork, etc
 - Wordstar Word processing software
 
@@ -193,6 +193,9 @@ documentation:
   construction of RomWBW. It includes a reference for the RomWBW HBIOS
   API functions.
 
+An online HTML version of this documentation is hosted at
+https://wwarthen.github.io/RomWBW.
+
 Each of the operating systems and ROM applications included with RomWBW
 are sophisticated tools in their own right. It is not reasonable to
 fully document their usage. However, you will find complete manuals in
@@ -294,8 +297,12 @@ let me know if I missed you!
 
 - Tasty Basic is a product of Dimitri Theulings.
 
-- Dean Netherton contributed eZ80 CPU support, the sound driver
-  interface, and the SN76489 sound driver.
+- Dean Netherton contributed multiple components:
+
+  - eZ80 CPU support
+  - Sound driver infrastructure
+  - SN76489 sound driver
+  - Native USB driver (keyboard, floppy, mass storage)
 
 - The RomWBW Disk Catalog document was produced by Mykl Orders.
 
@@ -311,7 +318,10 @@ let me know if I missed you!
   - significant content in the Disk Catalog and User Guide
   - creation of the Introduction and Hardware documents
   - Z3PLUS operating system disk image
-  - COPYSL utility
+  - Infocom text adventure game disk image
+  - COPYSL, and SLABEL utilities
+  - Display of bootable slices via “S” command during startup
+  - Optimisations of HBIOS and CBIOS to reduce overall code size
   - a feature for RomWBW configuration by NVRAM
   - the /B bulk mode of disk assignment to the ASSIGN utility
 
@@ -346,6 +356,20 @@ let me know if I missed you!
 
 - Les Bird has contributed support for the NABU w/ Option Board
 
+- Rob Gowin created an online documentation site via MkDocs, and
+  contributed a driver for the Xosera FPGA-based video controller.
+
+- Jörg Linder has contributed disassembled and nicely commented source
+  for ZSDOS2 and the BPBIOS utilities.
+
+- Marshall Gates has contriubed sample program source files for all of
+  the language disk images.
+
+- Randy Merkel provided the ZSDOS Programmer’s Manual as translated by
+  Wayne Hortensius.
+
+- Henk Berends added support for the MSX platform.
+
 
 Related Projects
 

Source/Apps/Build.cmd

@@ -29,6 +29,7 @@ call :build Survey || exit /b
 call :build HTalk || exit /b
 call :build BBCBASIC || exit /b
 call :build copysl || exit /b
+call :build slabel || exit /b
 call :build ZDE || exit /b
 
 goto :eof

Source/Apps/Clean.cmd

@@ -24,6 +24,7 @@ call :clean Survey || exit /b
 call :clean HTalk || exit /b
 call :clean BBCBASIC || exit /b
 call :clean copysl || exit /b
+call :clean slabel || exit /b
 call :clean ZDE || exit /b
 
 goto :eof

Source/Apps/FAT/ReadMe.md

@@ -1,7 +1,7 @@
 # RomWBW HBIOS CP/M FAT Utility ("FAT.COM")
 
 Author: Wayne Warthen \
-Updated: 6-May-2024
+Updated: 27-Aug-2025
 
 This application allows copying files between CP/M filesystems and FAT 
 filesystems (DOS, Windows, Mac, Linux, etc.).  The application runs on 
@@ -142,10 +142,10 @@ creation.
 
 | Date        | Version | Notes                                                       |
 |------------:|-------- |-------------------------------------------------------------|
-| 2-May-2019  | v0.9    | (beta) initial release                                      |
-| 7-May-2019  | v0.9.1  | (beta) added REN and DEL                                    |
-| 8-May-2019  | v0.9.2  | (beta) handle file collisions w/ user prompt                |
-| 8-Oct-2019  | v0.9.3  | (beta) fixed incorrect filename buffer size (MAX_FN)        |
+|  2-May-2019 | v0.9    | (beta) initial release                                      |
+|  7-May-2019 | v0.9.1  | (beta) added REN and DEL                                    |
+|  8-May-2019 | v0.9.2  | (beta) handle file collisions w/ user prompt                |
+|  8-Oct-2019 | v0.9.3  | (beta) fixed incorrect filename buffer size (MAX_FN)        |
 | 10-Oct-2019 | v0.9.4  | (beta) upgraded to FatFs R0.13c                             |
 | 10-Oct-2019 | v0.9.5  | (beta) added MD (make directory)                            |
 | 10-Oct-2019 | v0.9.6  | (beta) added FORMAT                                         |
@@ -153,6 +153,7 @@ creation.
 |             |         | add attributes to directory listing                         |
 | 12-Apr-2021 | v0.9.8  | (beta) support CP/NET drives                                |
 | 12-Oct-2023 | v0.9.9  | (beta) handle updated HBIOS Disk Device call                |
-| 6-Jan-2024  | v1.0.0  | updated to latest FsFat (v0.15)                             |
+|  6-Jan-2024 | v1.0.0  | updated to latest FsFat (v0.15)                             |
 |             |         | updated to latest SDCC (v4.3)                               |
-| 6-May-2024  | v1.1.0  | improve floppy format boot record                           |
+|  6-May-2024 | v1.1.0  | improve floppy format boot record                           |
+| 27-Aug-2025 | v1.2.0  | update location of RomWBW IDENT pointer                     |

Source/Apps/HTalk/htalk.asm

@@ -31,7 +31,7 @@ STKSIZ	.EQU	$FF
 ;
 ; HBIOS SYSTEM CALLS AND ID STRING ADDRESS
 ; 
-ROMWBW_ID	.EQU		$FFFE	; ROMWBW ID STRING ADDRESS
+ROMWBW_ID	.EQU		$FFFC	; ROMWBW ID STRING ADDRESS
 HBIOS_SYS	.EQU		$FFF0 	; HBIOS SYSCALL ADDRESS
 
 H_SYSGET	.EQU		$F8		;	GET SYSTEM INFO

Source/Apps/Makefile

@@ -1,5 +1,5 @@
 SUBDIRS = HTalk XM FDU FAT Tune Test ZMP ZMD Dev VGM cpuspd reboot Survey BBCBASIC copysl \
-	sysgen syscopy assign format talk mode rtc timer ZDE
+	slabel sysgen syscopy assign format talk mode rtc timer ZDE
 TOOLS =../../Tools
 
 include $(TOOLS)/Makefile.inc

Source/Apps/Tune/cli.inc

@@ -23,6 +23,19 @@ CLI_HAVE_HBIOS_SWITCH1			; NOT MATCHED --HBIOS
 	LD	(HBIOSMD), A
 	RET
 
+CLI_HAVE_DELAY_SWITCH:
+ 	LD	HL, CLIARGS		; TEST FOR --DELAY ON COMMAND LINE
+	LD	DE, DELAYOPT
+	CALL	STRINDEX
+	JR	NZ, CLI_HAVE_DELAY_SWITCH1
+	OR	$FF			; MATCHED --DELAY
+	LD	(DELAYMD), A
+	RET
+CLI_HAVE_DELAY_SWITCH1			; NOT MATCHED --HBIOS
+	XOR	A
+	LD	(DELAYMD), A
+	RET
+
 CLI_PORTS:
  	LD	HL, CLIARGS		; TEST FOR -MSX ON COMMAND LINE
 	LD	DE, OPT_MSX
@@ -101,7 +114,8 @@ CLI_OCTAVE_ADJST5:
 
 OPT_MSX		.DB	"-MSX", 0			; USE MSX PORTS
 OPT_RC		.DB	"-RC", 0			; USE RC PORTS
-HBIOSOPT:	.DB	"--HBIOS", 0
+HBIOSOPT:	.DB	"--HBIOS", 0			; USE HBIOS API FOR PLAYBACK
+DELAYOPT:	.DB	"-DELAY",0			; FORCE DELAY MODE
 DOWN1		.DB	"-t1", 0			; DOWN AN OCTAVE
 DOWN2		.DB	"-t2", 0			; DOWN TWO OCTAVE
 UP1		.DB	"+t1", 0			; UP AN OCTAVE

Source/Apps/Tune/hbios.inc

@@ -1,4 +1,4 @@
-IDENT		.EQU	$FFFE		; loc of RomWBW HBIOS ident ptr
+IDENT		.EQU	$FFFC		; loc of RomWBW HBIOS ident ptr
 ;
 BF_SYSVER	.EQU	$F1		; BIOS: VER function
 BF_SYSGET	.EQU	$F8		; HBIOS: SYSGET function
@@ -7,6 +7,6 @@ BF_SND		.EQU	$50
 BF_SNDRESET	.EQU	BF_SND + 0	; RESET SOUND SYSTEM
 BF_SNDVOL	.EQU	BF_SND + 1	; REQUEST SOUND VOL - L CONTAINS VOLUME (255 MAX, 0 SILENT) - SCALED AS REQUIRED BY DRIVER (EG: MAPS TO JUST 4 BIT RESOLUTION FOR SN76489)
 BF_SNDPRD	.EQU	BF_SND + 2	; REQUEST SOUND PERIOD - HL CONTAINS DRIVER SPECIFIC VALUE
-BF_SNDNOTE	.EQU	BF_SND + 3	; REQUEST NOTE - L CONTAINS NOTE - EACH VALUE IS QUARTER NOTE
+BF_SNDNOTE	.EQU	BF_SND + 3	; REQUEST NOTE - L CONTAINS NOTE - EACH VALUE IS AN EIGHTH TONE
 BF_SNDPLAY	.EQU	BF_SND + 4	; INITIATE THE REQUESTED SOUND COMMAND
 BF_SNDQUERY	.EQU	BF_SND + 5	; E IS SUBFUNCTION

Source/Apps/Tune/timing.inc

@@ -41,8 +41,14 @@ DLY1	DEC	BC              	; [6]
 ; Test for timer running to determine if it can be used for delay
 ; Return string message in DE
 ; Assigned (WMOD) with 0 if no hardware time, 1 if hardware timer found
+; If -DELAY on command line, force delay mode
 ;
 PROBETIMER:
+	LD	A,(DELAYMD)		; GET COMMAND LINE DELAY FLAG
+	OR	A			; TEST IT
+	LD	A,0			; ASSUME NO TIMER
+	LD	DE,MSGDLY		; DELAY MODE MESSAGE
+	JR	NZ,SETDLY		; IF TRUE, DONE
 	LD	B,BF_SYSGET		; HBIOS: GET function
 	LD	C,$D0			; TIMER subfunction
 	RST	08			; DE:HL := current tick count

Source/Apps/Tune/tune.asm

@@ -53,6 +53,7 @@
 ;   2024-07-11 [WBW] Updated, Les Bird's module now uses same settings as EB6
 ;   2024-09-17 [WBW] Add support for HEATH H8 with Les Bird's MSX Card
 ;   2024-12-12 [WBW] Add options to force standard MSX or RC ports
+;   2025-05-28 [WBW] Add option to force delay mode
 ;_______________________________________________________________________________
 ;
 ; ToDo:
@@ -113,6 +114,7 @@ Id		.EQU	1	; 5) Insert official identificator
 	CALL	CLI_ABRT_IF_OPT_FIRST
 	CALL	CLI_PORTS
 	CALL	CLI_HAVE_HBIOS_SWITCH
+	CALL	CLI_HAVE_DELAY_SWITCH
 	CALL	CLI_OCTAVE_ADJST
 	JP	CONTINUE
 
@@ -444,7 +446,7 @@ IDBIO:
 ;
 IDBIO1:
 	; Check for RomWBW (HBIOS)
-	LD	HL,($FFFE)	; HL := HBIOS ident location
+	LD	HL,($FFFC)	; HL := HBIOS ident location
 	LD	A,'W'		; First byte of ident
 	CP	(HL)		; Compare
 	JR	NZ,IDBIO2	; Not HBIOS
@@ -703,15 +705,16 @@ FILTYP		.DB	0	; Sound file type (TYPPT2, TYPPT3, TYPMYM)
 TMP		.DB	0	; work around use of undocumented Z80
 
 HBIOSMD		.DB	0	; NON-ZERO IF USING HBIOS SOUND DRIVER, ZERO OTHERWISE
+DELAYMD		.DB	0	; FORCE DELAY MODE IF TRUE (NON-ZERO)
 OCTAVEADJ	.DB	0	; AMOUNT TO ADJUST OCTAVE UP OR DOWN
 
 USEPORTS	.DB	0	; AUDIO CHIP PORT SELECTION MODE
 
-MSGBAN		.DB	"Tune Player for RomWBW v3.12, 12-Dec-2024",0
-MSGUSE		.DB	"Copyright (C) 2024, Wayne Warthen, GNU GPL v3",13,10
+MSGBAN		.DB	"Tune Player for RomWBW v3.13, 28-May-2025",0
+MSGUSE		.DB	"Copyright (C) 2025, Wayne Warthen, GNU GPL v3",13,10
 		.DB	"PTxPlayer Copyright (C) 2004-2007 S.V.Bulba",13,10
 		.DB	"MYMPlay by Marq/Lieves!Tuore",13,10,13,10
-		.DB	"Usage: TUNE <filename>.[PT2|PT3|MYM] [-msx|-rc] [--hbios] [+tn|-tn]",0
+		.DB	"Usage: TUNE <filename>.[PT2|PT3|MYM] [-msx|-rc] [-delay] [--hbios] [+tn|-tn]",0
 MSGBIO		.DB	"Incompatible BIOS or version, "
 		.DB	"HBIOS v", '0' + RMJ, ".", '0' + RMN, " required",0
 MSGPLT		.DB	"Hardware error, system not supported!",0

Source/Apps/XM/xmhb.z80

@@ -239,7 +239,7 @@ IDBIO:
 ;
 IDBIO1:
 	; Check for RomWBW (HBIOS)
-	LD	HL,(0FFFEH)	; HL := HBIOS ident location
+	LD	HL,(0FFFCH)	; HL := HBIOS ident location
 	LD	A,'W'		; First byte of ident
 	CP	(HL)		; Compare
 	JR	NZ,IDBIO2	; Not HBIOS
@@ -291,7 +291,7 @@ EXTRA3:
 BIOID	DB	0		; BIOS ID, 1=HBIOS, 2=UBIOS
 CPUSPD	DB	10		; CPU speed in MHz
 RCVSCL	DW	6600		; RECV loop timeout scalar
-UNIT	DB	0		; BIOS serial device unit number
+UNIT	DB	0FFH		; BIOS serial device unit number
 BIOSBID	DB	00H		; BIOS bank id
 ;
 TAG	DB	"RomWBW, 30-May-2020$"
@@ -330,7 +330,7 @@ HB_JPTBL:
 	JP	HB_GETCHR	; get character from modem
 	JP	HB_RCVRDY	; check receive ready
 	JP	HB_SNDRDY	; check send ready
-	JP	HB_SPEED		; get speed value for file transfer time
+	JP	HB_SPEED	; get speed value for file transfer time
 ;
 ;-----------------------------------------------------------------------
 ;
@@ -819,7 +819,6 @@ UF_INIT:
 ; Send character on top of stack
 ;
 UF_SENDR:
-
 	POP	AF		; get character to send from stack
 	OUT	(0FFH),A	; write to fifo
 UF_SCDP	EQU	$-1		; data port

Source/Apps/XM/xmhb_old.z80

@@ -180,7 +180,7 @@ IDBIO:
 ;
 IDBIO1:
 	; Check for RomWBW (HBIOS)
-	LD	HL,(0FFFEH)	; HL := HBIOS ident location
+	LD	HL,(0FFFCH)	; HL := HBIOS ident location
 	LD	A,'W'		; First byte of ident
 	CP	(HL)		; Compare
 	JR	NZ,IDBIO2	; Not HBIOS

Source/Apps/XM/xmuf.z80

@@ -175,7 +175,7 @@ IDBIO:
 ;
 IDBIO1:
 	; Check for RomWBW (HBIOS)
-	LD	HL,(0FFFEH)	; HL := HBIOS ident location
+	LD	HL,(0FFFCH)	; HL := HBIOS ident location
 	LD	A,'W'		; First byte of ident
 	CP	(HL)		; Compare
 	JR	NZ,IDBIO2	; Not HBIOS

Source/Apps/ZMD/zmdhb.z80

@@ -81,7 +81,7 @@ MINIT1:
 	SUB	'0'		; Got it, convert to binary
 	LD	(UNIT),A	; Save it
 	LD	A,' '		; Space character to accum
-	LD	(HL),A		; Remove numberic from FCB
+	LD	(HL),A		; Remove numeric from FCB
 	JR	MINIT3		; Proceed with initialization
 
 MINIT2:
@@ -188,7 +188,6 @@ MINIT_UB1:
 	LD	(UNIT),A	; and save it
 ;
 MINIT_UB2:
-;
 	JP	UB_INIT		; UNA BIOS init
 ;
 MINIT_RET:
@@ -221,7 +220,6 @@ MINIT_RET:
 ;
 	; Return with CPU speed in A
 	LD	A,(CPUSPD)	; A := CPU speed in MHz
-	LD	HL,(RCVSCL)	; HL := receive scalar
 	RET			; and return
 ;
 ;-----------------------------------------------------------------------
@@ -275,7 +273,7 @@ IDBIO:
 ;
 IDBIO1:
 	; Check for RomWBW (HBIOS)
-	LD	HL,(0FFFEH)	; HL := HBIOS ident location
+	LD	HL,(0FFFCH)	; HL := HBIOS ident location
 	LD	A,'W'		; First byte of ident
 	CP	(HL)		; Compare
 	JR	NZ,IDBIO2	; Not HBIOS
@@ -307,6 +305,22 @@ FAIL:
 	CALL	BDOS		; Do it
 	JP	0		; Bail out!
 ;
+; Adjust CPUSPD to account for overhead of HBIOS or UBIOS.  It appears
+; that dividing CPU speed in MHz by 8 results in timeouts that are
+; roughly correct.
+;
+SLOW:
+	LD	A,(CPUSPD)	; Get true CPU speed
+	ADD	A,4		; Add for rounding
+	SRL	A		; Divide by 8
+	SRL	A
+	SRL	A
+	JR	NZ,SLOW1	; If not zero, we are good
+	LD	A,1		; else, make it 1
+SLOW1:
+	LD	(CPUSPD),A	; Save it
+	RET
+;
 ;-----------------------------------------------------------------------
 ;
 ; The following are all dummy routines that are unused because MINIT
@@ -326,7 +340,6 @@ EXTRA3:
 ;
 BIOID	DB	0		; BIOS ID, 1=HBIOS, 2=UBIOS
 CPUSPD	DB	10		; CPU speed in MHz
-RCVSCL	DW	6600		; RECV loop timeout scalar
 UNIT	DB	0FFH		; BIOS serial device unit number
 BIOSBID	DB	00H		; BIOS bank id
 ;
@@ -373,8 +386,7 @@ HB_JPTBL:
 ; HBIOS initialization
 ;
 HB_INIT:
-	LD	HL,2150		; Smaller receive loop timeout scalar
-	LD	(RCVSCL),HL	; ... to compensate for BIOS overhead
+	CALL	SLOW		; Adjust CPUSPD for HBIOS overhead
 ;
 	; Patch SENDR w/ FastPath addresses
 	LD	BC,0F801H	; Get CIO func/data adr
@@ -412,10 +424,6 @@ HB_INIT:
 	RST	08
 	JP	NZ,APIERR	; handle API error
 	LD	(HB_SRFN),HL	; Plug in func adr
-;
-	; Claim 1 MHz CPU to offset overhead of HBIOS
-	LD	A,1
-	LD	(CPUSPD),A	; Save it
 ;
 	LD	HL,HB_JPTBL
 	LD	DE,HB_LBL
@@ -564,14 +572,8 @@ UB_INIT:
 ;
 ; TODO:
 ;   - TEST!!!
-;   - ADJUST RCVSCL?
 ;
-	LD	HL,3000		; Smaller receive loop timeout scalar
-	LD	(RCVSCL),HL	; ... to compensate for BIOS overhead
-;
-	; Claim 1 MHz CPU to offset overhead of HBIOS
-	LD	A,1
-	LD	(CPUSPD),A	; Save it
+	CALL	SLOW		; Adjust CPUSPD for UBIOS overhead
 ;
 	LD	HL,UB_JPTBL
 	LD	DE,UB_LBL
@@ -721,9 +723,6 @@ UA_JPTBL:
 ; UART initialization
 ;
 UA_INIT:
-	LD	DE,13000	; receive loop timeout scalar
-	LD	(RCVSCL),DE	; ... for UART RCVRDY timing
-;
 	LD	A,L		; get base I/O port address
 	LD	(UA_SCP),A	; set port value in SENDR
 	LD	(UA_GCP),A	; set port value in GETCHR
@@ -842,9 +841,6 @@ UF_JPTBL:
 ; USB-FIFO initialization
 ;
 UF_INIT:
-	LD	DE,12000	; receive loop timeout scalar
-	LD	(RCVSCL),DE	; ... for UART RCVRDY timing
-;
 	LD	A,L		; get base I/O port address (data port)
 	LD	(UF_SCDP),A	; set data port in SENDR
 	LD	(UF_GCDP),A	; set data port in GETCHR/MDIN
@@ -863,7 +859,6 @@ UF_INIT:
 ; Send character on top of stack
 ;
 UF_SENDR:
-
 	POP	AF		; get character to send from stack
 	OUT	(0FFH),A	; write to fifo
 UF_SCDP	EQU	$-1		; data port

Source/Apps/ZMP/Build.cmd

@@ -7,10 +7,13 @@ set PATH=%TOOLS%\zxcc;%PATH%
 
 set CPMDIR80=%TOOLS%/cpm/
 
-zxcc Z80ASM -ZMO-RW01/H || exit /b
-zxcc MLOAD25 -ZMP.COM=ZMPX.COM,ZMO-RW01 || exit /b
+:: zxcc Z80ASM -ZMO-RW01/LH || exit /b
+zxcc Z80ASM -ZMO-WBW/LH || exit /b
+zxcc MLOAD25 -ZMP.COM=ZMPX.COM,ZMO-WBW || exit /b
 
 copy /Y zmp.com ..\..\..\Binary\Apps\ || exit /b
 copy /Y *.ovr ..\..\..\Binary\Apps\ || exit /b
+copy /Y zmp.cfg ..\..\..\Binary\Apps\ || exit /b
+copy /Y zmp.fon ..\..\..\Binary\Apps\ || exit /b
 copy /Y *.hlp ..\..\..\Binary\Apps\ || exit /b
 copy /Y zmp.doc ..\..\..\Binary\Apps\ || exit /b

Source/Apps/ZMP/Makefile

@@ -1,10 +1,10 @@
-OBJECTS = zmp.com *.ovr *.hlp zmp.doc
+OBJECTS = zmp.com *.ovr zmp.cfg zmp.fon *.hlp zmp.doc
 DEST = ../../../Binary/Apps
 TOOLS = ../../../Tools
 OTHERS = *.hex
-NODELETE = *.ovr zmp.doc *.hlp
+NODELETE = *.ovr zmp.doc zmp.cfg zmp.fon *.hlp
 
 include $(TOOLS)/Makefile.inc
 
-zmp.com: zmo-rw01.hex
-	$(ZXCC) MLOAD25 -ZMP.COM=ZMPX.COM,ZMO-RW01
+zmp.com: zmo-wbw.hex
+	$(ZXCC) MLOAD25 -ZMP.COM=ZMPX.COM,ZMO-WBW

Source/Apps/ZMP/Notes.txt

@@ -27,4 +27,15 @@ as at Aug 23rd, 2021.
   Untested on Ron Murrays ZMP15
 - Space getting short so messages shortened. 
 
---PMS 8/24/2021
+--PMS 8/24/2021
+
+- Refactored overlay to resolve some stack issues.
+- Removed support for setport because it didn't make much sense
+  with ability to specify port on command line.
+- Added an equate (pcfg) which controls whether port configuration
+  is implemented.  It is set to false (no port configuration).
+  because ZMP it is unable to handle   many RomWBW serial port settings 
+  (notably the hard-wired 115200 baud of many RCBus systems).  You 
+  must now used MODE to configure port before starting ZMP.
+
+--WBW 1:55 PM 4/16/2025

Source/Apps/ZMP/zmo-wbw.z80

@@ -0,0 +1,844 @@
+;-----------------------------------------------------------------------------
+;
+;	Overlay for ZMP (Z-Modem Program)
+;
+;	Name	ZMO-WBW.Z80
+;
+;	Dated April 14, 2025
+;
+;	Written by -
+;	  Phil Summers, Wayne Warthen
+;
+;	ROMWBW version using HBIOS and https://github.com/mecparts/zmp
+;       version of zmodem
+;
+;	  - All modem/serial i/o is through RomWBW HBIOS.
+;
+;	  - Data bits, stop bits, and parity are determined by HBIOS.
+;           The ZMP settings will have no effect.  Use RomWBW MODE
+;	    command to set serial port config before starting ZMP.
+;
+;	  - Timing delay calculations based on HBIOS reported CPU speed.
+;
+;	  - The pcfg equate determines whether the overlay will
+;           implement port initialization.  Normally, pcfg will be
+;           set to false because ZMP does not allow configuring
+;           many HBIOS speeds (notably the 115200 baud hardwired
+;           into many RCBus systems).  In this case, you must
+;	    configure the modem port using the RomWBW
+;	    MODE command as desired before starting ZMP.
+;
+;	  - The modem port is assigned to an HBIOS character unit.  By
+;	    default, the modem is assigned to HBIOS character unit 1.
+;           An alternate HBIOS character unit may be specified as a
+;	    parameter on the command line as a single number.  For
+;	    example, the following will assign HBIOS port 3 as the
+;	    ZMP modem port:
+;
+;	    ZMP 3
+;
+;         - The original version of ZMP from Ron Murray allows you to
+;           select from 2 logical modem ports.  This overlay ignores
+;	    any attempt to select ports from within ZMP.  The desired
+;	    modem port should be assigned using the command line
+;	    parameter as described above.
+;
+;         - Teraterm users may need to change the ZmodemWinSize value
+;           to 1024 in the teraterm.ini configuration file.
+;
+;-----------------------------------------------------------------------------
+;
+;
+;	System-dependent code overlay for ZMODEM
+;
+;
+;
+;    Insert your own code as necessary in this file. Code contained herein
+; has been written in Z80 code for use with M80 or SLR. Assemble as follows:
+;
+;	SLR ZMO-xx01/h
+;	MLOAD ZMP.COM=ZMODEM.COM,ZMO-xx01.HEX
+; or
+;	M80 =ZMO-xx01.Z80
+;	RELHEX ZMO-xx01
+;	MLOAD ZMP.COM=ZMODEM.COM,ZMO-xx01.HEX
+;
+;
+;       (Don't use L80 without changing the source for assembly as a
+;         cseg file.)
+;
+;-----------------------------------------------------------------------------
+;
+;
+; Notes on modifying this file:
+;
+;    C requires that functions do not change either index register (IX or IY).
+; If your overlay requires either of these to be changed, ensure they are
+; restored to the original values on return.
+;    Since collecting parameters from C functions can be tricky, only change
+; the parts marked 'Insert your own code here'. Do NOT modify the jump
+; table at the start. Do NOT modify the entry/exit sections of each
+; function. Do NOT pass 'GO'. Do NOT collect $200.
+;    Apart from defining modem functions, this file also defines terminal
+; characteristics. Examples provided are for ADM-3A (with a few of my own
+; additions). Modify to suit your own terminal. An inline print routine
+; is provided for printing strings in the usual way: usage is
+;
+;	call	print
+;	db	'required string',0
+;
+;-----------------------------------------------------------------------------
+;
+;
+;    Don't forget to set your clock speed at the clkspd variable.
+;
+;
+;    If you find your overlay exceeds the maximum size (currently 0400h),
+; you will have to contact me for another version. If too many people need 
+; to do it, we haven't allowed enough room.
+;
+; Ron Murray 15/8/88
+;
+;
+;
+;---------------------------------------------------------------------------
+
+false	equ	0
+true	equ	not false
+
+;------------------------------------------------------------------------------
+
+; User-set variables: 
+
+debug	equ	false		; to allow debugging of overlay with Z8E etc.
+clkspd	equ	8		; Processor clock speed in MHz
+pcfg	equ	false		; Allow ZMP to configure port
+
+;
+;Set the following two equates to the drive and user area which will contain
+;   ZMP's .OVR files, .CFG file, .FON file and .HLP file. Set both to zero
+;   (null) to locate them on the drive from which ZMP was invoked.
+
+overdrive	equ	0	; Drive to find overlay files on ('A'-'P')
+overuser	equ	0	; User area to find files
+
+;------------------------------------------------------------------------------
+
+
+; NOT user-set variables
+
+userdef	equ	0145h		; origin of this overlay
+				; This address should not change with
+				; subsequent revisions.
+mspeed	equ	03ch		; location of current baud rate. 
+ovsize	equ	0400h		; max size of this overlay
+
+fcb	equ	05ch		; primary command line CP/M fcb
+
+	.z80			; use z80 code
+	aseg			; absolute
+
+	 if	debug
+	org	100h		; so you can debug it with cebug, zsid, etc
+	 else
+	org	userdef
+	 endif
+
+
+esc	equ	1bh
+ctrlq	equ	11h
+cr	equ	0dh
+lf	equ	0ah
+bdos	equ	5
+
+
+codebgn	equ	$
+
+;Jump table for the overlay: do NOT change this
+jump_tab:
+	jp	scrnpr		; screen print
+	jp	mrd		; modem read with timeout
+	jp	mchin		; get a character from modem
+	jp	mchout		; send a character to the modem
+	jp	mordy		; test for tx buffer empty
+	jp	mirdy		; test for character received
+	jp	sndbrk		; send break
+	jp	cursadd		; cursor addressing
+	jp	cls		; clear screen
+	jp	invon		; inverse video on
+	jp	invoff		; inverse video off
+	jp	hide		; hide cursor
+	jp	show		; show cursor
+	jp	savecu		; save cursor position
+	jp	rescu		; restore cursor position
+	jp	mint		; service modem interrupt
+	jp	invec		; initialise interrupt vectors
+	jp	dinvec		; de-initialise interrupt vectors
+	jp	mdmerr		; test uart flags for error
+	jp	dtron		; turn DTR on
+	jp	dtroff		; turn DTR OFF
+	jp	init		; initialise uart
+	jp	wait		; wait seconds
+	jp	mswait		; wait milliseconds
+	jp	userin		; user-defined entry routine
+	jp	userout		; user-defined exit routine
+	jp	getvars		; get system variables
+	jp	setport		; set port (0 or 1)
+
+; Spare jumps for compatibility with future versions
+	jp	spare		; spare for later use
+	jp	spare		; spare for later use
+	jp	spare		; spare for later use
+	jp	spare		; spare for later use
+	jp	spare		; spare for later use
+	jp	spare		; spare for later use
+
+; Local storage
+
+hbunit	db	1		; Active HBIOS unit for modem I/O
+cpumhz	db	clkspd		; CPU clock speed in MHz
+
+;
+; Main code starts here
+;
+;Screen print function
+scrnpr:
+				; <== Insert your own code here
+	call	print
+	db	'Screen print not supported.',cr,lf,0
+				; <== End of your own code
+spare:
+	ret
+
+
+; User-defined entry routine: leave empty if not needed
+userin:
+	push	bc
+	push	de
+	push	hl
+	
+	call	print
+	db	cr,lf,'ZMP Overlay for RomWBW HBIOS v1.0',cr,lf,0
+	
+	; Scan and parse default FCB to initialize HBIOS unit if
+	; specified.
+	ld	a,(fcb + 1)	; get parm from fcb
+	cp	' '		; anything there?
+	jr	z,userin1	; if empty, done
+	sub	'0'		; ASCII to binary
+	jr	c,parmerr	; less than 0, parm error
+	cp	10		; >= 10?
+	jr	nc,parmerr	; greater than 9, parm error
+	ld	(hbunit),a	; save it
+
+userin1:
+	call	showcom		; show com port info
+
+	; check that unit is actually available in HBIOS
+	ld	bc,0f800h	; get HBIOS char unit count
+	rst	8		; do it
+	ld	a,(hbunit)	; get active modem unit
+	cp	e		; compare to units available
+	jr	nc,porterr	; unit too high, port error
+
+	if pcfg
+
+	; Force port initialization by setting an invalid
+	; baud rate (mspeed).
+	; speed to an arbitrary value of 8 (9600 baud).
+	ld	a,-1
+	ld	(mspeed),a
+
+	else
+
+	; We don't support port configuration.  Here we set the modem
+	; speed to an arbitrary value of 8 (9600 baud).
+	ld	a,8
+	ld	(mspeed),a
+
+	endif
+
+	
+	ld	bc,0f8f0h	; HBIOS func get CPU info
+	rst	08		; do it, l = CPU speed in MHz
+	ld	a,l		; to accum
+	ld	(cpumhz),a	; and save it for wait loop
+	
+	ld	hl,2
+	call	waithls
+
+	pop	hl
+	pop	de
+	pop	bc
+	ret
+
+parmerr:
+	; Handle a bad parameter
+	call	print		; print error message
+	db	cr,lf,'ZMP parameter error!',cr,lf,0
+	rst	0		; bail out to OS
+
+porterr:
+	; Handle a bad port
+	call	print		; print error message
+	db	cr,lf,'Invalid HBIOS unit for ZMP Modem port!',cr,lf,0
+	rst	0		; bail out to OS
+
+showcom:
+	; Display the HBIOS unit to be used for the ZMP Modem
+	call	print
+	db	cr,lf,'ZMP Modem on HBIOS Unit #',0
+	ld	a,(hbunit)
+	add	a,'0'
+	call	cout
+	call	print
+	db	cr,lf,0
+
+; User-defined exit routine: leave empty if not needed
+userout:
+	ret
+
+;Get a character from the modem: return in HL
+mchin:
+	push	bc
+
+	; <== Insert your own code here
+	ld	a,(hbunit)
+	ld	c,a
+	ld	b,00h
+	rst	08
+	ld	a,e
+	; <== End of your own code
+
+	ld	l,a		; put in HL
+	ld	h,0
+	or	a		; set/clear Z
+	pop	bc
+	ret
+
+;Send a character to the modem
+mchout:
+	ld	hl,2		; get the character
+	add	hl,sp
+	ld	a,(hl)
+	
+	; <== Insert your own code here
+	push	bc
+	ld	e,a
+	ld	a,(hbunit)
+	ld	c,a
+	ld	b,01h
+	rst	08
+	pop	bc
+	; <== End of your own code
+
+	ret			; done
+
+;Test for output ready: return TRUE (1) in HL if ok
+mordy:
+	; <== Insert your own code here
+	push	bc
+	ld	a,(hbunit)
+	ld	c,a
+	ld	b,03h
+	rst	08
+	ld	h,0
+	ld	l,a
+	pop	bc
+	; <== End of your own code
+
+	ld	a,l		; set/clear Z
+	or	a
+	ret
+
+;Test for character at modem: return TRUE (1) in HL if so
+mirdy:
+	; <== Insert your own code here
+	push	bc
+	ld	a,(hbunit)
+	ld	c,a
+	ld	b,02h
+	rst	08
+	ld	h,0
+	ld	l,a
+	pop	bc
+	; <== End of your own code
+
+	ld	a,l		; set/clear Z
+	or	a
+	ret
+
+;Send a break to the modem: leave empty if your system can't do it
+sndbrk:
+	; <== Insert your own code here
+	ld	hl,300		; wait 300 mS
+	call	waithlms
+	; <== End of your own code
+
+	ret
+;
+;Test UART flags for error: return TRUE (1) in HL if error.
+mdmerr:
+	; <== Insert your own code here
+	xor	a		; not implemented
+	; <== End of your own code
+
+	ld	a,l		; set/clear Z
+	or	a
+	ret
+
+
+
+;Turn DTR ON
+dtron:
+				; <== Insert your own code here
+
+				; <== End of your own code
+	ret
+
+
+
+;Turn DTR OFF
+dtroff:
+				; <== Insert your own code here
+
+
+				; <== End of your own code
+	ret
+
+
+
+;Initialise the uart
+init:
+	ld	hl,2		; get parameters
+	add	hl,sp
+	ex	de,hl
+	call	getparm		; in HL
+	ld	(brate),hl	; baud rate
+	call	getparm
+	ld	(parity),hl	; parity
+	call	getparm
+	ld	(data),hl	; data bits (BINARY 7 or 8)
+	call	getparm
+	ld	(stop),hl	; stop bits (BINARY 1 or 2)
+
+	; <== Insert your own code here
+	; using values below
+	; don't forget to load mspeed with the
+	; current brate value if the new rate is
+	; valid. See table of values below.
+
+	push	bc
+
+	; If pcfg is true, attempt to initialize the active
+	; HBIOS unit.  If false, initialization if bypassed with
+	; the assumption that the RomWBW MODE command was used
+	; to initialize the port priot to running ZMP.
+	
+	if pcfg
+
+	call	print
+	db	'Initializing device: ',0
+	call	diport
+
+	ld	a,(hbunit)	; get device type
+	ld	c,a
+	ld	b,06h
+	rst	08
+	or	a		; check if valid
+	jr	nz,initerr
+
+	ld	a,(brate)	; get baud rate to set
+	ld	c,a
+	ld	b,0
+	ld	hl,baudtbl
+	add	hl,bc
+	ld	a,(hl)		; convert to encoded hbios
+	cp	a,-1
+	jr	z,initerr
+
+	push	af
+	ld	a,(hbunit)	; get line characteristics
+	ld	c,a
+	ld	b,05h
+	rst	08
+	ld	a,d		; mask out exisitng
+	and	11100000b	; replace with rate
+	ld	d,a
+	pop	af
+	or	d
+	ld	d,a
+
+	ld	b,04h		; set new
+	ld	a,(hbunit)	; speed
+	ld	c,a
+	rst	08
+	or	a
+	jr	nz,initerr
+
+	ld	a,(brate)	; load mspeed with the current brate value if
+	ld	(mspeed),a	; the new rate is valid. See table of values below.
+
+	call	print
+	db	lf,lf,'Initization completed, device: ',0
+	call	diport
+
+	jr	init_z
+
+initerr:call	print
+	db	lf,lf,'Initization failed, device: ',0
+	call	diport
+
+	jr	init_z
+
+diport:	ld	a,(hbunit)	; Display port
+diport1:add	a,'0'
+	call	cout
+	call	print
+	db	cr,lf,0
+	ld	hl,2
+	call	waithls
+	ret
+	
+	else
+	
+	;call	print
+	;db	cr,lf,'Modem port initialization...',0
+	;ld	hl,2
+	;call	waithls
+
+	ld	b,05h		; HBIOS port reset function
+	ld	a,(hbunit)	; get active modem port
+	ld	c,a		; and put in accum
+	rst	8		; reset port
+	or	a		; check result
+	jr	nz,init1	; if error, handle it
+	ld	a,8		; dummy value for speed
+	ld	(mspeed),a	; save it
+	jr	init_z		; done
+
+init1:
+	; Handle error return from initialization
+	call	print
+	db	cr,lf,'Modem port initialization failed!',cr,lf,0
+	ld	hl,2
+	call	waithls
+
+	jr	init_z
+
+	endif
+
+init_z:
+	pop	bc
+
+	; <== End of your own code
+
+	ret
+;--------------------------------------------------------------------------
+
+stop:	dw	1		; stop bits
+parity:	dw	'N'		; parity
+data:	dw	8		; data bits
+brate:	dw	7		; baud rate:
+
+;--------------------------------------------------------------------------
+;
+;Values of brate for each baud rate
+;
+; 		hb encode	baud rate    brate
+;
+baudtbl:
+	db	-1		; 110		 0	not supported
+	db	2		; 300		 1
+	db	17		; 450		 2
+	db	3		; 600		 3
+	db	-1		; 710		 4	not supported
+	db	4		; 1200		 5
+	db	5		; 2400		 6
+	db	6		; 4800		 7
+	db	7		; 9600		 8
+	db	8		; 19200		 9
+	db	9		; 38400		10
+	db	24		; 57600         11
+	db	10		; 76800         12
+;
+; Set the port. ZMP supplies either 0 or 1 as a parameter. You're on your
+; own here -- your system is bound to be different from any other! You may
+; implement a software switch on all the modem-dependent routines, or perhaps
+; you can have one or two centralised routines for accessing the UARTs and
+; modify the code from this routine to select one or the other. (Who said
+; there was anything wrong with self-modifying code?). If you have only one
+; UART port, or if you don't want to go through all the hassles, just have
+; this routine returning with no changes made. Note that ZMP calls this
+; routine with both values for the port on initialisation.
+;
+; Only originl ZMP calls setport. MECPARTS variant does not.
+;
+; We ignore this call.  Since we are using a command line parameter
+; to specify the desired modem port, it makes no sense.
+;
+setport:
+	ld	hl,2		; get port number
+	add	hl,sp
+	ex	de,hl
+	call	getparm		; in HL (values are 0 and 1)
+
+	; <== Insert your own code here
+
+	; <== End of your own code
+
+	ret
+
+
+;
+;****************************************************************************
+;Video terminal sequences: these are for VT-100: Modify as you wish
+;Cursor addressing: 
+cursadd:
+	ld	hl,2		; get parameters
+	add	hl,sp
+	ex	de,hl
+	call	getparm		; in HL
+	inc	hl
+	ld	(row),hl	; row
+	call	getparm
+	inc	hl
+	ld	(col),hl	; column
+;
+	push	bc
+
+	call	print
+	db	esc,'[',0
+	ld	a,(row)		; row first
+	call	cursconv
+	ld	a,';'
+	call	cout
+	ld	a,(col)		; same for column
+	call	cursconv
+	ld	a,'H'
+	call	cout
+
+	pop	bc
+
+	ret
+;
+cursconv:
+	ld	b,a
+	xor	a
+ca1:	add	a,1
+	daa
+	djnz	ca1
+	ld	(num),a
+	and	0f0h
+	jr	z,ca2
+	srl	a
+	srl	a
+	srl	a
+	srl	a
+	or	'0'
+	call	cout
+ca2:	ld	a,(num)
+	and	0fh
+	or	'0'
+	call	cout
+	ret
+;
+row:	ds	2		; row
+col:	ds	2		; column
+num:	ds	1
+;
+;Clear screen:
+cls:
+	call	print
+	db	esc,"[H",esc,"[2J",0
+	ret
+;
+;Inverse video on:
+invon:
+	call	print
+	db	esc,"[7m",0
+	ret
+;
+;Inverse video off:
+invoff:
+	call	print
+	db	esc,"[m",0
+	ret
+;
+;Turn off cursor:
+hide:
+	call	print
+	db	esc,'[?25l',0
+	ret
+;
+;Turn on cursor:
+show:
+	call	print
+	db	esc,'[?25h',0
+	ret
+;
+;Save cursor position:
+savecu:
+	call	print
+	db	esc,'[7',0
+	ret
+;
+;Restore cursor position:
+rescu:
+	call	print
+	db	esc,'[8',0
+	ret
+
+;****************************************************************************
+
+;Service modem interrupt:
+mint:
+	ret			; handled in HBIOS
+
+;Initialise interrupt vectors:
+invec:
+	ret			; ditto
+
+;De-initialise interrupt vectors:
+dinvec:
+	ret			; ditto
+
+;****************** End of user-defined code ********************************
+;		Do not change anything below here.
+
+;Modem character test for 100 ms
+mrd:
+	push	bc		; save bc
+	ld	bc,100		; set limit
+mrd1:
+	call	mirdy		; char at modem?
+	jr	nz,mrd2		; yes, exit
+	ld	hl,1		; else wait 1ms
+	call	waithlms
+	dec	bc		; loop till done
+	ld	a,b
+	or	c
+	jr	nz,mrd1
+	ld	hl,0		; none there, result=0
+	xor	a
+mrd2:
+	pop	bc
+	ret
+
+; Inline print routine: destroys A and HL
+
+print:
+	ex	(sp),hl		; get address of string
+ploop:
+	ld	a,(hl)		; get next
+	inc	hl		; bump pointer
+	or	a		; done if zero
+	jr	z,pdone
+	call	cout		; else print
+	jr	ploop		; and loop
+pdone:
+	ex	(sp),hl		; restore return address
+	ret			; and quit
+
+;
+;Output a character in A to the console
+;
+cout:
+	push	bc		; save regs
+	push	de
+	push	hl
+	ld	e,a		; character to E
+	ld	c,2
+	call	bdos		; print it
+	pop	hl
+	pop	de
+	pop	bc
+	ret
+
+
+;Wait seconds
+wait:
+	ld	hl,2
+	add	hl,sp
+	ex	de,hl		; get delay size
+	call	getparm
+				; fall thru to..
+;Wait seconds in HL
+waithls:
+	push	hl		; save loop control
+	ld	hl,1000		; 1000ms = 1 second
+	call	waithlms
+	pop	hl		; restore loop control
+	dec	hl
+	ld	a,h
+	or	l
+	jr	nz,waithls
+	ret
+
+
+
+;Wait milliseconds
+mswait:
+	ld	hl,2
+	add	hl,sp
+	ex	de,hl		; get delay size
+	call	getparm
+				; fall thru to..
+;Wait milliseconds in HL
+waithlms:
+	; burn 1000us (1ms)
+	ld	a,(cpumhz)	
+	ld	e,a
+hlms1:
+	; burn 1000 t-states
+	; 50 * 20 = 1000 t-states
+	ld	d,50
+hlms2:
+	nop			; 4
+	dec	d		; 4
+	jr	nz,hlms2	; 12	20
+
+	dec	e
+	jr	nz,hlms1
+
+	dec	hl
+	ld	a,h
+	or	l
+	jr	nz,waithlms
+
+	ret
+
+
+
+
+
+
+
+
+;Get next parameter from (de) into hl
+getparm:
+	ex	de,hl		; get address into hl
+	ld	e,(hl)		; get lo
+	inc	hl
+	ld	d,(hl)		; then hi
+	inc	hl		; bump for next
+	ex	de,hl		; result in hl, address still in de
+	ret
+
+;Get address of user-defined variables
+
+getvars:
+	ld	hl,uservars
+	ret
+
+uservars:
+	dw	overdrive	; .OVR etc. drive/user
+	dw	overuser
+
+
+	 if	($ - codebgn) gt ovsize
+toobig:	jp	errval		; Overlay too large!
+	 endif
+
+	end
+

Source/Apps/ZMP/zmp-blnk.z80

@@ -26,11 +26,11 @@
 ; has been written in Z80 code for use with M80 or SLR. Assemble as follows:
 ;
 ;	SLR ZMO-xx01/h
-;	MLOAD ZMP.COM=ZMODEM.COM,ZMO-xx01.HEX
+;	MLOAD ZMP.COM=ZMPX.COM,ZMO-xx01.HEX
 ; or
 ;	M80 =ZMO-xx01.Z80
 ;	RELHEX ZMO-xx01
-;	MLOAD ZMP.COM=ZMODEM.COM,ZMO-xx01.HEX
+;	MLOAD ZMP.COM=ZMPX.COM,ZMO-xx01.HEX
 ;
 ;
 ;       (Don't use L80 without changing the source for assembly as a
@@ -570,4 +570,3 @@ toobig:	jp	errval		; Overlay too large!
 	 endif
 
 	end
-

Source/Apps/ZMP/zmp15+-.new

@@ -12,6 +12,10 @@ awhile (some, a few decades):
 * In keyboard macros, ! translates to a CR now, not CR/LF.
 * \ escapes ! and ~ so those literal characters can be used in
   keyboard macros.
+* Waits in keyboard macros now allow characters from the modem to
+  be handled.
+* Keys in keyboard macros now have 25ms waits between them as to
+  not overrun the remove system.
 * Long distance access code has been removed.
 * Quick dialing letters limited to A-T.
 
@@ -23,5 +27,5 @@ version in ZMP15.LBR. So, to quote the original author,
 new one with the config option.  There have again been changes to 
 the format of this file."
 
-June 7, 2021
-
+August 15, 2023
+

Source/Apps/assign/assign.asm

@@ -38,6 +38,8 @@
 ;   2024-12-17 [MAP] Added new /B=opt feaure to assign drives
 ;   2024-12-21 [MAP] Added CBIOS heap estimation to /B to prevent
 ;                    overflow when the drives are finally added
+;   2025-07-19 [D?N] Support for native USB drivers
+;   2025-08-09 [WBW] Support for ESPSD driver
 ;_______________________________________________________________________________
 ;
 ; ToDo:
@@ -188,7 +190,7 @@ init:
 	ldir			; do the copy
 ;
 	; determine end of CBIOS (assume HBIOS for now)
-	ld	hl,($FFFE)	; get proxy start address
+	ld	hl,($FFFC)	; get proxy start address
 	ld	(bioend),hl	; save as CBIOS end address
 ;
 	; check for UNA (UBIOS)
@@ -1179,8 +1181,9 @@ makdphwbw:	; determine appropriate dpb (WBW mode, unit number in A)
 	jr	makdph0		; jump ahead
 makdph00:
 	ld	e,MID_FD144	; assume floppy
-	cp	DIODEV_FD	; floppy?
-	jr	z,makdph0	; yes, jump ahead
+	;cp	DIODEV_FD	; floppy?
+	bit	7,c		; floppy?
+	jr	nz,makdph0	; yes, jump ahead
 	ld	e,MID_RF	; assume ram floppy
 	cp	DIODEV_RF	; ram floppy?
 	jr	z,makdph0	; yes, jump ahead
@@ -1560,7 +1563,7 @@ drvmap:
 	jr	nz,drvmapu	; do UNA mode drvmap
 ;
 		; determine device code by scanning for string
-	ld	b,16		; device table always has 16 entries
+	ld	b,devcnt	; number of entries in devtbl
 	ld	c,0		; c is used to track table entry num
 	ld	de,tmpstr	; de points to specified device name
 	ld	hl,devtbl	; hl points to first entry of devtbl
@@ -1826,7 +1829,7 @@ prtdev:
 	rst	08		; call hbios, D := device, E := unit
 	push	de		; save results
 	ld	a,d		; device to A
-	and	$0F		; mask out undesired bits
+	and	$1F		; mask out undesired bits
 	push	hl		; save HL
 	add	a,a		; multiple A by two for word table
 	ld	hl,devtbl	; point to start of device name table
@@ -2427,6 +2430,7 @@ devtbl:				; device table
 	.dw	dev04, dev05, dev06, dev07
 	.dw	dev08, dev09, dev10, dev11
 	.dw	dev12, dev13, dev14, dev15
+	.dw	dev16, dev17
 ;
 devunk	.db	"?",0
 dev00	.db	"MD",0
@@ -2444,9 +2448,11 @@ dev11	.db	"IMM",0
 dev12	.db	"SYQ",0
 dev13	.db	"CHUSB",0
 dev14	.db	"CHSD",0
-dev15	.equ	devunk
+dev15	.db	"USB",0
+dev16	.db	"ESPSD",0
+dev17	.equ	devunk
 ;
-devcnt	.equ	10		; 10 devices defined
+devcnt	.equ	18		; 18 device types defined
 ;
 udevram		.db	"RAM",0
 udevrom		.db	"ROM",0
@@ -2464,13 +2470,13 @@ stack	.equ	$		; stack top
 ; Messages
 ;
 indent	.db	"   ",0
-msgban1	.db	"ASSIGN v2.0 for RomWBW CP/M ",0
+msgban1	.db	"ASSIGN v2.2 for RomWBW CP/M ",0
 msg22	.db	"2.2",0
 msg3	.db	"3",0
-msbban2	.db	", 21-Dec-2024",0
+msbban2	.db	", 9-Aug-2025",0
 msghb	.db	" (HBIOS Mode)",0
 msgub	.db	" (UBIOS Mode)",0
-msgban3	.db	"Copyright 2024, Wayne Warthen, GNU GPL v3",0
+msgban3	.db	"Copyright 2025, Wayne Warthen, GNU GPL v3",0
 msguse	.db	"Usage: ASSIGN D:[=[{D:|<device>[<unitnum>]:[<slicenum>]}]][,...]",13,10
 	.db	"  ex. ASSIGN           (display all active assignments)",13,10
 	.db	"      ASSIGN /?        (display version and usage)",13,10

Source/Apps/cpuspd/cpuspd.asm

@@ -29,7 +29,7 @@ bf_sysres_int	.equ	$00		; reset hbios internal
 bf_sysres_warm	.equ	$01		; warm start (restart boot loader)
 bf_sysres_cold	.equ	$02		; cold start
 ;
-ident		.equ	$FFFE		; loc of RomWBW HBIOS ident ptr
+ident		.equ	$FFFC		; loc of RomWBW HBIOS ident ptr
 ;
 ;=======================================================================
 ;

Source/Apps/reboot/reboot.asm

@@ -1,299 +1,299 @@
-;==============================================================================
-; REBOOT - Allows the user to Cold or Warm Boot the RomWBW System
-; Version 1.0 12-October-2024
-;==============================================================================
-;
-; Author: MartinR (October 2024)
-;    Based **very heavily** on code by Wayne Warthen (wwarthen@gmail.com)
-;______________________________________________________________________________
-;
-; Usage:
-;   REBOOT [/C] [/W] [/?]
-;     ex: REBOOT	Display version and usage
-;         REBOOT /?	Display version and usage
-;         REBOOT /C	Cold boot RomWBW system
-;	  REBOOT /W	Warm boot RomWBW system
-;
-; Operation:
-;   Cold or warm boots a RomWBW system depending on the user option selected.
-;
-; This code will only execute on a Z80 CPU (or derivitive)
-;
-; This source code assembles with TASM V3.2 under Windows-11 using the
-; following command line:
-;	tasm -80 -g3 -l REBOOT.ASM REBOOT.COM
-;	ie: Z80 CPU; output format 'binary' named .COM (rather than .OBJ)
-;	and includes a symbol table as part of the listing file.
-;______________________________________________________________________________
-;
-; Change Log:
-;   2024-09-11 [WBW] Release of RomWBW CPU Speed Selector v1.0 used as the basis
-;   2024-10-12 [MR ] Initial release of version 1.0
-;______________________________________________________________________________
-;
-; Include Files
-;
-#include "../../ver.inc"		; Used for building RomWBW
-#include "../../HBIOS/hbios.inc"
-
-;#include "ver.inc"			; Used for testing purposes....
-;#include "hbios.inc"			; ....during code development
-;
-;===============================================================================
-;
-; General operational equates (should not requre adjustment)
-;
-stksiz		.equ	$40		; Working stack size
-;
-restart		.equ	$0000		; CP/M restart vector
-bdos		.equ	$0005		; BDOS invocation vector
-;
-bf_sysreset	.equ	$F0		; restart system
-bf_sysres_int	.equ	$00		; reset hbios internal
-bf_sysres_warm	.equ	$01		; warm start (restart boot loader)
-bf_sysres_cold	.equ	$02		; cold start
-;
-ident		.equ	$FFFE		; loc of RomWBW HBIOS ident ptr
-;
-;===============================================================================
-;
-	.org	$0100			; standard CP/M TPA executable
-;
-	; setup stack (save old value)
-	ld	(stksav),sp		; save stack
-	ld	sp,stack		; set new stack
-;
-	call	crlf
-	ld	de,str_banner		; banner
-	call	prtstr
-;
-	; initialization
-	call	init			; initialize
-	jr	nz,exit			; abort if init fails
-;
-	call	main			; do the real work
-;
-exit:
-	; clean up and return to command processor
-	call	crlf			; formatting
-	ld	sp,(stksav)		; restore stack
-	jp	restart			; return to CP/M via restart
-;
-;
-;===============================================================================
-; Main Program
-;===============================================================================
-;
-; Initialization
-;
-init:
-	; check for UNA (UBIOS)
-	ld	a,($FFFD)	; fixed location of UNA API vector
-	cp	$C3		; jp instruction?
-	jr	nz,initwbw	; if not, not UNA
-	ld	hl,($FFFE)	; get jp address
-	ld	a,(hl)		; get byte at target address
-	cp	$FD		; first byte of UNA push ix instruction
-	jr	nz,initwbw	; if not, not UNA
-	inc	hl		; point to next byte
-	ld	a,(hl)		; get next byte
-	cp	$E5		; second byte of UNA push ix instruction
-	jr	nz,initwbw	; if not, not UNA
-	jp	err_una		; UNA not supported
-;
-initwbw:
-	; get location of config data and verify integrity
-	ld	hl,(ident)	; HL := adr or RomWBW HBIOS ident
-	ld	a,(hl)		; get first byte of RomWBW marker
-	cp	'W'		; match?
-	jp	nz,err_inv	; abort with invalid config block
-	inc	hl		; next byte (marker byte 2)
-	ld	a,(hl)		; load it
-	cp	~'W'		; match?
-	jp	nz,err_inv	; abort with invalid config block
-	inc	hl		; next byte (major/minor version)
-	ld	a,(hl)		; load it
-	cp	rmj << 4 | rmn	; match?
-	jp	nz,err_ver	; abort with invalid os version
-;
-initz:
-	; initialization complete
-	xor	a		; signal success
-	ret			; return
-;
-;
-;
-main:
-	; skip to start of first command line parameter
-	ld	ix,$0081	; point to start of parm area (past length byte)
-	call	nonblank	; skip to next non-blank char
-	cp	'/'		; option prefix?
-	jr	nz,usage	; display help info & exit if nothing to do
-;
-	; process any options
-	inc	ix		; fetch next character and process
-	ld	a,(ix)
-	call	upcase		; ensure it's an upper case character
-	cp	'C'		; if it's a 'C' then
-	jr	z,cboot		; do a cold boot.
-	cp	'W'		; if it's a 'W' then
-	jr	z,wboot		; do a warm boot.
-	cp	'?'		; if it's a '?' then
-	jr	z,usage		; display usage info and exit.
-	jr	err_parm	; or not a recognised option, so report and exit.
-;
-; Handle Usage Information
-;
-usage:
-	call	crlf2		; display the options for this utility
-	ld	de,str_usage
-	call	prtstr
-	or	$FF
-	ret			; exit back out to CP/M CCP
-;
-; Handle Warm Boot
-;
-wboot:
-	ld	de,str_warmboot		; message
-	call	prtstr			; display it
-	ld	b,bf_sysreset		; system restart
-	ld	c,bf_sysres_warm	; warm start
-	call	$fff0			; call hbios
-;
-; Handle Cold Boot
-;
-cboot:
-	ld	de,str_coldboot		; message
-	call	prtstr			; display it
-	ld	b,bf_sysreset		; system restart
-	ld	c,bf_sysres_cold	; cold start
-	call	$fff0			; call hbios
-;
-;===============================================================================
-; Error Handlers
-;===============================================================================
-;
-err_una:
-	ld	de,str_err_una
-	jr	err_ret
-err_inv:
-	ld	de,str_err_inv
-	jr	err_ret
-err_ver:
-	ld	de,str_err_ver
-	jr	err_ret
-err_parm:
-	ld	de,str_err_parm
-	jr	err_ret
-
-;
-err_ret:
-	call	crlf2
-	call	prtstr
-	or	$FF			; signal error
-	ret
-;
-;===============================================================================
-; Utility Routines
-;===============================================================================
-;
-; Print character in A without destroying any registers
-;
-prtchr:
-	push	af
-	push	bc		; save registers
-	push	de
-	push	hl
-	ld	e,a		; character to print in E
-	ld	c,$02		; BDOS function to output a character
-	call	bdos		; do it
-	pop	hl		; restore registers
-	pop	de
-	pop	bc
-	pop	af
-	ret
-;
-; Start a new line
-;
-crlf2:
-	call	crlf		; two of them
-crlf:
-	push	af		; preserve AF
-	ld	a,13		; <CR>
-	call	prtchr		; print it
-	ld	a,10		; <LF>
-	call	prtchr		; print it
-	pop	af		; restore AF
-	ret
-;
-; Print a zero terminated string at (de) without destroying any registers
-;
-prtstr:
-	push	af
-	push	de
-;
-prtstr1:
-	ld	a,(de)		; get next char
-	or	a
-	jr	z,prtstr2
-	call	prtchr
-	inc	de
-	jr	prtstr1
-;
-prtstr2:
-	pop	de		; restore registers
-	pop	af
-	ret
-;
-; Get the next non-blank character from (ix)
-;
-nonblank:
-	ld	a,(ix)		; load next character
-	or	a		; string ends with a null
-	ret	z		; if null, return pointing to null
-	cp	' '		; check for blank
-	ret	nz		; return if not blank
-	inc	ix		; if blank, increment character pointer
-	jr	nonblank	; and loop
-;
-; Convert character in A to uppercase
-;
-upcase:
-	cp	'a'		; if below 'a'
-	ret	c		; ... do nothing and return
-	cp	'z' + 1		; if above 'z'
-	ret	nc		; ... do nothing and return
-	res	5,a		; clear bit 5 to make lower case -> upper case
-	ret			; and return
-;
-;===============================================================================
-; Constants
-;===============================================================================
-;
-str_banner	.db	"RomWBW Reboot Utility, Version 1.0, 12-Oct-2024\r\n"
-		.db	"   Wayne Warthen (wwarthen@gmail.com) & MartinR",0
-;
-str_warmboot	.db	"\r\n\r\nWarm booting...\r\n",0
-str_coldboot	.db	"\r\n\r\nCold booting...\r\n",0
-;
-str_err_una	.db	"  ERROR: UNA not supported by application",0
-str_err_inv	.db	"  ERROR: Invalid BIOS (signature missing)",0
-str_err_ver	.db	"  ERROR: Unexpected HBIOS version",0
-str_err_parm	.db	"  ERROR: Parameter error (REBOOT /? for usage)",0
-;
-str_usage	.db	"  Usage: REBOOT /? - Display this help info.\r\n"
-		.db	"         REBOOT /W - Warm boot system\r\n"
-		.db	"         REBOOT /C - Cold boot system\r\n"
-		.db	"         Options are case insensitive.\r\n",0
-;
-;===============================================================================
-; Working data
-;===============================================================================
-;
-stksav		.dw	0		; stack pointer saved at start
-		.fill	stksiz,0	; stack
-stack		.equ	$		; stack top
-;
-;===============================================================================
-;
+;==============================================================================
+; REBOOT - Allows the user to Cold or Warm Boot the RomWBW System
+; Version 1.0 12-October-2024
+;==============================================================================
+;
+; Author: MartinR (October 2024)
+;    Based **very heavily** on code by Wayne Warthen (wwarthen@gmail.com)
+;______________________________________________________________________________
+;
+; Usage:
+;   REBOOT [/C] [/W] [/?]
+;     ex: REBOOT	Display version and usage
+;         REBOOT /?	Display version and usage
+;         REBOOT /C	Cold boot RomWBW system
+;	  REBOOT /W	Warm boot RomWBW system
+;
+; Operation:
+;   Cold or warm boots a RomWBW system depending on the user option selected.
+;
+; This code will only execute on a Z80 CPU (or derivitive)
+;
+; This source code assembles with TASM V3.2 under Windows-11 using the
+; following command line:
+;	tasm -80 -g3 -l REBOOT.ASM REBOOT.COM
+;	ie: Z80 CPU; output format 'binary' named .COM (rather than .OBJ)
+;	and includes a symbol table as part of the listing file.
+;______________________________________________________________________________
+;
+; Change Log:
+;   2024-09-11 [WBW] Release of RomWBW CPU Speed Selector v1.0 used as the basis
+;   2024-10-12 [MR ] Initial release of version 1.0
+;______________________________________________________________________________
+;
+; Include Files
+;
+#include "../../ver.inc"		; Used for building RomWBW
+#include "../../HBIOS/hbios.inc"
+
+;#include "ver.inc"			; Used for testing purposes....
+;#include "hbios.inc"			; ....during code development
+;
+;===============================================================================
+;
+; General operational equates (should not requre adjustment)
+;
+stksiz		.equ	$40		; Working stack size
+;
+restart		.equ	$0000		; CP/M restart vector
+bdos		.equ	$0005		; BDOS invocation vector
+;
+bf_sysreset	.equ	$F0		; restart system
+bf_sysres_int	.equ	$00		; reset hbios internal
+bf_sysres_warm	.equ	$01		; warm start (restart boot loader)
+bf_sysres_cold	.equ	$02		; cold start
+;
+ident		.equ	$FFFC		; loc of RomWBW HBIOS ident ptr
+;
+;===============================================================================
+;
+	.org	$0100			; standard CP/M TPA executable
+;
+	; setup stack (save old value)
+	ld	(stksav),sp		; save stack
+	ld	sp,stack		; set new stack
+;
+	call	crlf
+	ld	de,str_banner		; banner
+	call	prtstr
+;
+	; initialization
+	call	init			; initialize
+	jr	nz,exit			; abort if init fails
+;
+	call	main			; do the real work
+;
+exit:
+	; clean up and return to command processor
+	call	crlf			; formatting
+	ld	sp,(stksav)		; restore stack
+	jp	restart			; return to CP/M via restart
+;
+;
+;===============================================================================
+; Main Program
+;===============================================================================
+;
+; Initialization
+;
+init:
+	; check for UNA (UBIOS)
+	ld	a,($FFFD)	; fixed location of UNA API vector
+	cp	$C3		; jp instruction?
+	jr	nz,initwbw	; if not, not UNA
+	ld	hl,($FFFE)	; get jp address
+	ld	a,(hl)		; get byte at target address
+	cp	$FD		; first byte of UNA push ix instruction
+	jr	nz,initwbw	; if not, not UNA
+	inc	hl		; point to next byte
+	ld	a,(hl)		; get next byte
+	cp	$E5		; second byte of UNA push ix instruction
+	jr	nz,initwbw	; if not, not UNA
+	jp	err_una		; UNA not supported
+;
+initwbw:
+	; get location of config data and verify integrity
+	ld	hl,(ident)	; HL := adr or RomWBW HBIOS ident
+	ld	a,(hl)		; get first byte of RomWBW marker
+	cp	'W'		; match?
+	jp	nz,err_inv	; abort with invalid config block
+	inc	hl		; next byte (marker byte 2)
+	ld	a,(hl)		; load it
+	cp	~'W'		; match?
+	jp	nz,err_inv	; abort with invalid config block
+	inc	hl		; next byte (major/minor version)
+	ld	a,(hl)		; load it
+	cp	rmj << 4 | rmn	; match?
+	jp	nz,err_ver	; abort with invalid os version
+;
+initz:
+	; initialization complete
+	xor	a		; signal success
+	ret			; return
+;
+;
+;
+main:
+	; skip to start of first command line parameter
+	ld	ix,$0081	; point to start of parm area (past length byte)
+	call	nonblank	; skip to next non-blank char
+	cp	'/'		; option prefix?
+	jr	nz,usage	; display help info & exit if nothing to do
+;
+	; process any options
+	inc	ix		; fetch next character and process
+	ld	a,(ix)
+	call	upcase		; ensure it's an upper case character
+	cp	'C'		; if it's a 'C' then
+	jr	z,cboot		; do a cold boot.
+	cp	'W'		; if it's a 'W' then
+	jr	z,wboot		; do a warm boot.
+	cp	'?'		; if it's a '?' then
+	jr	z,usage		; display usage info and exit.
+	jr	err_parm	; or not a recognised option, so report and exit.
+;
+; Handle Usage Information
+;
+usage:
+	call	crlf2		; display the options for this utility
+	ld	de,str_usage
+	call	prtstr
+	or	$FF
+	ret			; exit back out to CP/M CCP
+;
+; Handle Warm Boot
+;
+wboot:
+	ld	de,str_warmboot		; message
+	call	prtstr			; display it
+	ld	b,bf_sysreset		; system restart
+	ld	c,bf_sysres_warm	; warm start
+	call	$fff0			; call hbios
+;
+; Handle Cold Boot
+;
+cboot:
+	ld	de,str_coldboot		; message
+	call	prtstr			; display it
+	ld	b,bf_sysreset		; system restart
+	ld	c,bf_sysres_cold	; cold start
+	call	$fff0			; call hbios
+;
+;===============================================================================
+; Error Handlers
+;===============================================================================
+;
+err_una:
+	ld	de,str_err_una
+	jr	err_ret
+err_inv:
+	ld	de,str_err_inv
+	jr	err_ret
+err_ver:
+	ld	de,str_err_ver
+	jr	err_ret
+err_parm:
+	ld	de,str_err_parm
+	jr	err_ret
+
+;
+err_ret:
+	call	crlf2
+	call	prtstr
+	or	$FF			; signal error
+	ret
+;
+;===============================================================================
+; Utility Routines
+;===============================================================================
+;
+; Print character in A without destroying any registers
+;
+prtchr:
+	push	af
+	push	bc		; save registers
+	push	de
+	push	hl
+	ld	e,a		; character to print in E
+	ld	c,$02		; BDOS function to output a character
+	call	bdos		; do it
+	pop	hl		; restore registers
+	pop	de
+	pop	bc
+	pop	af
+	ret
+;
+; Start a new line
+;
+crlf2:
+	call	crlf		; two of them
+crlf:
+	push	af		; preserve AF
+	ld	a,13		; <CR>
+	call	prtchr		; print it
+	ld	a,10		; <LF>
+	call	prtchr		; print it
+	pop	af		; restore AF
+	ret
+;
+; Print a zero terminated string at (de) without destroying any registers
+;
+prtstr:
+	push	af
+	push	de
+;
+prtstr1:
+	ld	a,(de)		; get next char
+	or	a
+	jr	z,prtstr2
+	call	prtchr
+	inc	de
+	jr	prtstr1
+;
+prtstr2:
+	pop	de		; restore registers
+	pop	af
+	ret
+;
+; Get the next non-blank character from (ix)
+;
+nonblank:
+	ld	a,(ix)		; load next character
+	or	a		; string ends with a null
+	ret	z		; if null, return pointing to null
+	cp	' '		; check for blank
+	ret	nz		; return if not blank
+	inc	ix		; if blank, increment character pointer
+	jr	nonblank	; and loop
+;
+; Convert character in A to uppercase
+;
+upcase:
+	cp	'a'		; if below 'a'
+	ret	c		; ... do nothing and return
+	cp	'z' + 1		; if above 'z'
+	ret	nc		; ... do nothing and return
+	res	5,a		; clear bit 5 to make lower case -> upper case
+	ret			; and return
+;
+;===============================================================================
+; Constants
+;===============================================================================
+;
+str_banner	.db	"RomWBW Reboot Utility, Version 1.0, 12-Oct-2024\r\n"
+		.db	"   Wayne Warthen (wwarthen@gmail.com) & MartinR",0
+;
+str_warmboot	.db	"\r\n\r\nWarm booting...\r\n",0
+str_coldboot	.db	"\r\n\r\nCold booting...\r\n",0
+;
+str_err_una	.db	"  ERROR: UNA not supported by application",0
+str_err_inv	.db	"  ERROR: Invalid BIOS (signature missing)",0
+str_err_ver	.db	"  ERROR: Unexpected HBIOS version",0
+str_err_parm	.db	"  ERROR: Parameter error (REBOOT /? for usage)",0
+;
+str_usage	.db	"  Usage: REBOOT /? - Display this help info.\r\n"
+		.db	"         REBOOT /W - Warm boot system\r\n"
+		.db	"         REBOOT /C - Cold boot system\r\n"
+		.db	"         Options are case insensitive.\r\n",0
+;
+;===============================================================================
+; Working data
+;===============================================================================
+;
+stksav		.dw	0		; stack pointer saved at start
+		.fill	stksiz,0	; stack
+stack		.equ	$		; stack top
+;
+;===============================================================================
+;
 	.end

Source/Apps/slabel/Build.cmd

@@ -0,0 +1,10 @@
+@echo off
+setlocal
+
+set TOOLS=../../../Tools
+set PATH=%TOOLS%\tasm32;%PATH%
+set TASMTABS=%TOOLS%\tasm32
+
+tasm -t80 -g3 -fFF slabel.asm slabel.com slabel.lst || exit /b
+
+copy /Y slabel.com ..\..\..\Binary\Apps\ || exit /b

Source/Apps/slabel/Clean.cmd

@@ -0,0 +1,6 @@
+@echo off
+setlocal
+
+if exist *.com del *.com
+if exist *.lst del *.lst
+if exist *.bin del *.bin

Source/Apps/slabel/Makefile

@@ -0,0 +1,7 @@
+OBJECTS = slabel.com
+DEST = ../../../Binary/Apps
+TOOLS =../../../Tools
+
+USETASM=1
+
+include $(TOOLS)/Makefile.inc

Source/Apps/slabel/slabel.asm

@@ -0,0 +1,779 @@
+;==============================================================================
+; SLICE LABEL - Update Disk Labels
+; Version  December-2024
+;==============================================================================
+;
+; Author: Mark Pruden
+;
+; This is a SUPERSET of INVNTSLC.ASM -> Please See this program also when
+; making changes, as code ( in routine prtslc: ) exists there also
+;______________________________________________________________________________
+;
+; Usage:
+;   SLABEL [unit.slice,label] [/?]
+;     ex: SLABEL			Display current list of Labels
+;     	  SLABEL unit.slice=label	Assign a disk Label to the Slice on Unit
+;         SLABEL /?			Display version and usage
+;
+; Operation:
+;   Print and Assign a Disk Label to a Hard Disk Slice.
+;
+; Technical:
+;   On the third sector of "bootable" Disk Slice there is metadata used by RomWBW to know how
+;   to boot the OS found on the slice. This includes a Label for the volume, which is printed
+;   out by RomWBW during the boot process.
+;   Note this label is not associated to any label the OS may assign to the volume.
+;   See loader.asm in each of the O/S directories e.g. /src/CPM22 which describe these sectors
+;
+;   This ony works on slices which have existing media information in the third sector.
+;   There is no capabiity to write this information on demand.
+;
+; known Issues:
+;   - Listing the slabel for all slices can be time consuming, because of the use of the EXT_MEDIA
+;     function call. This function reads the partition table (on each call) to assert (if valid)
+;     the LBA location of the requested slice. Ideally we would only need to read the partition
+;     table once (per device), and work out all the LBA's from this single read.
+;     Note this doesnt omit the fact that the 3 rd sector of each slice wold need to be read regarless.
+;     To slightly reduce some IO only slices < 64 are considered.
+;   - Output formatting misaligned with storage units enumerated as greater than 9 (ie 2 digits)
+;
+; This code will only execute on a Z80 CPU (or derivitive)
+; This code requirs the use of HBIOS
+;
+;______________________________________________________________________________
+;
+; Change Log:
+;   2024-12-11 [MAP] Started - Reboot v1.0 used as the basis for this code
+;   2024-12-14 [MAP] Initial 0.9 alpha with basic working functionality
+;   2025-04-21 [MAP] Initial v1.0 release for distribution, fixing all issues
+;   2025-07-12 [MR]  Minor tweak to partially tidy up output formatting
+;______________________________________________________________________________
+;
+; Include Files
+;
+#include "../../ver.inc"		; to ensure it is the correct ver
+#include "../../HBIOS/hbios.inc"
+;
+;===============================================================================
+;
+; General operational equates (should not requre adjustment)
+;
+stksiz		.equ	$40		; Working stack size
+;
+restart		.equ	$0000		; CP/M restart vector
+bdos		.equ	$0005		; BDOS invocation vector
+cmdbuf		.equ	$0081		; CPM command buffer
+;
+bf_sysreset	.equ	$F0		; restart system
+bf_sysres_int	.equ	$00		; reset hbios internal
+bf_sysres_warm	.equ	$01		; warm start (restart boot loader)
+;
+ident		.equ	$FFFC		; loc of RomWBW HBIOS ident ptr
+;
+sigbyte1	.equ	$A5		; 1st sig byte boot info sector (bb_sig)
+sigbyte2	.equ	$5A		; 2nd sig byte boot info sector (bb_sig)
+;
+labelterm	.equ	'$'		; terminating charater for disk label
+;
+;===============================================================================
+;
+	.org	$0100			; standard CP/M TPA executable
+;
+	ld	(stksav),sp		; save stack
+	ld	sp,stack		; set new stack
+;
+	ld	de,str_banner
+	call	prtstr			; print the banner
+;
+	call	init			; initialize
+	jr	nz,exit			; abort if init fails
+;
+	call	main			; do the real work
+;
+exit:
+	call	crlf			; print terminating crlf
+	ld	sp,(stksav)		; restore stack to prior state
+	jp	restart			; return to CP/M via restart
+;
+;===============================================================================
+; Initialisation
+;
+init:
+	; check for UNA (UBIOS)
+	ld	a,($FFFD)	; fixed location of UNA API vector
+	cp	$C3		; jp instruction?
+	jr	nz,initwbw	; if not, not UNA
+	ld	hl,($FFFE)	; get jp address
+	ld	a,(hl)		; get byte at target address
+	cp	$FD		; first byte of UNA push ix instruction
+	jr	nz,initwbw	; if not, not UNA
+	inc	hl		; point to next byte
+	ld	a,(hl)		; get next byte
+	cp	$E5		; second byte of UNA push ix instruction
+	jr	nz,initwbw	; if not, not UNA
+	jp	err_una		; UNA not supported
+;
+initwbw:
+	; get location of config data and verify integrity
+	ld	hl,(ident)	; HL := adr or RomWBW HBIOS ident
+	ld	a,(hl)		; get first byte of RomWBW marker
+	cp	'W'		; match?
+	jp	nz,err_inv	; abort with invalid config block
+	inc	hl		; next byte (marker byte 2)
+	ld	a,(hl)		; load it
+	cp	~'W'		; match?
+	jp	nz,err_inv	; abort with invalid config block
+	inc	hl		; next byte (major/minor version)
+	ld	a,(hl)		; load it
+	cp	rmj << 4 | rmn	; match?
+	jp	nz,err_ver	; abort with invalid os version
+;
+initz:
+	; initialization complete
+	xor	a		; signal success
+	ret			; return
+;
+;===============================================================================
+; Main Execution
+;
+main:
+	call	initdiskio		; initi DiskIO routines (bank ID)
+;
+	ld	de,cmdbuf		; start of command input buffer
+	call	skipws			; skip whitespace on cmd line
+;
+	ld	a,(de)			; get first non-ws char
+	or	a			; test for terminator, no parms
+	jr	z,prtslc		; if so, print details, and return
+;
+	call	isnum			; do we have a number?
+	jp	z,setlabel		; if so, then we are setting Label.
+;
+	jp	usage			; otherwise print usage and return
+	ret				; and exit
+;
+;===============================================================================
+; Print Usage /? Information
+;
+usage:
+	ld	de,str_usage	; display the cmd options for this utility
+	call	prtstr
+	;
+	ret			; exit back out to CP/M CCP
+;
+;===============================================================================
+; Print list of all slices
+;
+prtslc:
+	ld	de,PRTSLC_HDR		; Header for list of Slices
+	call	prtstr			; Print It
+	;
+	ld	bc,BC_SYSGET_DIOCNT	; FUNC: SYSTEM INFO GET DISK DRIVES
+	rst	08			; E := UNIT COUNT
+	;
+	ld	b,e			; MOVE Disk CNT TO B FOR LOOP COUNT
+	ld	c,0			; C WILL BE UNIT INDEX
+prtslc1:
+	ld	a,b			; loop counter
+	or	a			; set flags
+	ret	z			; IF no more drives, finished
+	;
+	ld	a,c			; unit index
+	ld	(currunit),a		; store the unit number
+	;
+	push	bc			; save loop vars
+	call	prtslc2			; for each disk Unit, print its details
+	pop	bc			; restore loop variables
+	;
+	inc	c			; bump the unit number
+	djnz	prtslc1			; main disk loop
+	;
+	ret				; loop has finished
+;
+;-------------------------------------------------------------------------------
+; Print list of All Slices for a given Unit
+;
+prtslc2:
+	; get the media infor
+	ld	b,BF_DIOMEDIA		; get media information
+	ld	e,1			; with media discovery
+	rst	08			; do media discovery
+	ret	nz			; an error
+	;
+	ld	a,MID_HD		; hard disk
+	cp	e			; is it  hard disk
+	ret	nz			; if not noting to do
+	;
+	; setup the loop
+	ld	b,64			; arbitrary (?) number of slices to check.
+					; NOTE: could be higher, but each slice check has disk IO
+	ld	c,0			; starting at slice 0
+;
+prtslc2a:
+	ld	a,c			; slice number
+	ld	(currslice),a		; save slice number
+	;
+	push	bc			; save loop counter
+	call	prtslc3			; print detals of the slice
+	pop	bc			; restore loop counter
+	ret	nz			; if error don't continue
+	;
+	inc	c			; next slice number
+	djnz	prtslc2a		; loop if more slices
+	;
+	ret				; return from Slice Loop
+;
+;-------------------------------------------------------------------------------
+; Print details of a Slice for a given Unit/Slice
+;
+prtslc3:
+	; get the details of the device / slice
+	ld	a,(currunit)
+	ld	d,a			; unit
+	ld	a,(currslice)
+	ld	e,a			; slice
+	ld	b,BF_EXTSLICE		; EXT function to check compute slice offset
+	rst	08			; noting this call checks partition table.
+	ret	NZ			; an error, for lots of reasons, e.g. Slice not valid
+	;
+	call	thirdsector		; point to the third sector of partition
+	;
+	call	diskread		; do the sector read
+	ret	nz			; read error. exit the slice loop
+	;
+	; Check signature
+	ld	bc,(bb_sig)		; get signature read
+	ld	a,sigbyte1		; expected value of first byte
+	cp	b			; compare
+	jr	nz,prtslc5		; ignore missing signature and loop
+	ld	a,sigbyte2		; expected value of second byte
+	cp	c			; compare
+	jr	nz,prtslc5		; ignore missing signature and loop
+	;
+        ; Print slice label string at HL, '$' terminated, 16 chars max
+	ld	a,(currunit)
+	call	prtdecb			; print unit number as decimal
+	call 	pdot			; print a DOT
+	ld	a, (currslice)		; fetch the current slice numeric
+	call	prtdecb
+;
+;-------------------------------------------------------------------------------
+; Added by MartinR, July 2025, to help neaten the output formatting.
+; Note - this is not a complete fix and will still result in misaligned output
+; where the unit number exceeds 9 (ie - uses 2 digits).
+	cp	10			; is it less than 10?
+	ld	a,' '
+	jr	nc,jr01			; If not, then we don't need an extra space printed
+	call	cout			; print the extra space	necessary
+jr01:	call	cout			; print a space
+	call	cout			; print a space
+;-------------------------------------------------------------------------------
+;
+	ld	hl,bb_label		; point to label
+	call	pvol			; print it
+	call	crlf
+	;
+prtslc5:
+	xor	a
+	ret
+;
+;-------------------------------------------------------------------------------
+; Print volume label string at HL, '$' terminated, 16 chars max
+;
+pvol:
+	ld	b,16			; init max char downcounter
+pvol1:
+	ld	a,(hl)			; get next character
+	cp	labelterm		; set flags based on terminator $
+	inc	hl			; bump pointer regardless
+	ret	z			; done if null
+	call	cout			; display character
+	djnz	pvol1			; loop till done
+	ret				; hit max of 16 chars
+;
+;===============================================================================
+; Set Label Information onto disk
+;
+setlabel:
+	call	getnum			; parse a number
+	jp	c,err_parm		; handle overflow error
+	ld	(currunit),a		; save boot unit
+	xor	a			; zero accum
+	ld	(currslice),a		; save default slice
+	call	skipws			; skip possible whitespace
+	ld	a,(de)			; get separator char
+	or	a			; test for terminator
+	jp	z,err_parm		; if so, incomplete
+	cp	'='			; otherwise, is ','?
+	jr	z,setlabel4		; if so, skip the Slice parm
+	cp	'.'			; otherwise, is '.'?
+	jp	NZ,err_parm		; if not, format error
+;
+	inc	de			; bump past separator
+	call	skipws			; skip possible whitespace
+	call	isnum			; do we have a number?
+	jp	nz,err_parm		; if not, format error
+	call	getnum			; get number
+	jp	c,err_parm		; handle overflow error
+	ld	(currslice),a		; save boot slice
+setlabel3:
+	call	skipws			; skip possible whitespace
+	ld	a,(de)			; get separator char
+	or	a			; test for terminator
+	jp	z,err_parm		; if so, then an error
+	cp	'='			; otherwise, is ','?
+	jp	nz,err_parm		; if not, format error
+setlabel4:
+	inc	de			; bump past separator
+	call	skipws			; skip possible whitespace
+	ld	(newlabel),de		; address of disk label after '='
+	;
+	ld	a,(currunit)		; passing boot unit
+	ld	d,a
+	ld	a,(currslice)		; and slice
+	ld	e,a
+	ld	b,BF_EXTSLICE		; HBIOS func: SLICE CALC - extended
+	rst	08			; info for the Device, and Slice
+;
+	; Check errors from the Function
+	cp	ERR_NOUNIT		; compare to no unit error
+	jp	z,err_nodisk		; handle no disk err
+	cp	ERR_NOMEDIA		; no media in the device
+	jp	z,err_nomedia		; handle the error
+	cp	ERR_RANGE		; slice is invalid
+	jp	z,err_badslice		; bad slice, handle err
+	or	a			; any other error
+	jp	nz,err_diskio		; handle as general IO error
+	;
+	call	thirdsector		; point to the third sector of partition
+	;
+	call	diskread		; read the sector
+	jp	nz,err_diskio		; abort on error
+	;
+	; Check signature
+	ld	de,(bb_sig)		; get signature read
+	ld	a,sigbyte1		; expected value of first byte
+	cp	d			; compare
+	jp	nz,err_sig		; handle error
+	ld	a,sigbyte2		; expected value of second byte
+	cp	e			; compare
+	jp	nz,err_sig		; handle error
+	;
+	ld	b,16			; loop down counter (max size of label)
+	ld	de,(newlabel)		; reading from cmd line
+	ld	hl,bb_label		; writing to disk label in sector buffer
+updatelabel:
+	ld	a,(de)			; read input
+	or	a			; look for string terminator
+	jr	z,updatelabel2		; if terminator then complete
+	ld 	(hl),a			; store char in sector buff
+	inc	de			; update pointers
+	inc	hl
+	djnz	updatelabel		; loop for next character
+updatelabel2:
+	ld	a,labelterm
+	ld	(hl),a			; store the final terminator $ char
+writelabel:
+	; write the sector
+	ld	hl,(lba)		; lba, low word, same as read sector
+	ld	de,(lba+2)		; lba, high word
+	call	diskwrite		; write the sector back to disk
+	jp	nz,err_diskio		; abort on error
+	;
+	; print the outcome.
+	ld	de,PRTSLC_HDR		; Header for list of Slices
+	call	prtstr			; Print header
+	call	prtslc3			; print updated label for unit/slice
+	;
+	ret
+;
+;-------------------------------------------------------------------------------
+; advance the DE HL LBA sector by 2, ie third sector
+;
+thirdsector:
+	ld	bc,2			; sector offset
+	add	hl,bc			; add to LBA value low word
+	jr	nc,sectornum		; check for carry
+	inc	de			; if so, bump high word
+sectornum:
+	ld	(lba),hl		; update lba, low word
+	ld	(lba+2),de		; update lba, high word
+	ret
+;
+;===============================================================================
+; Error Handlers
+;
+err_una:
+	ld	de,str_err_una
+	jr	err_ret
+err_inv:
+	ld	de,str_err_inv
+	jr	err_ret
+err_ver:
+	ld	de,str_err_ver
+	jr	err_ret
+err_parm:
+	ld	de,str_err_parm
+	jr	err_ret
+err_nodisk:
+	ld	de,str_err_nodisk
+	jr	err_ret
+err_nomedia:
+	ld	de,str_err_nomedia
+	jr	err_ret
+err_badslice:
+	ld	de,str_err_badslc
+	jr	err_ret
+err_sig:
+	ld	de,str_err_sig
+	jr	err_ret
+err_diskio:
+	ld	de,str_err_diskio
+	jr	err_ret
+err_ret:
+	call	crlf2
+	call	prtstr
+	or	$FF			; signal error
+	ret
+;
+;===============================================================================
+; Utility Routines
+;-------------------------------------------------------------------------------
+; Print a dot on console
+;
+pdot:
+	push	af
+	ld	a,'.'
+	call	cout
+	pop	af
+	ret
+;
+;-------------------------------------------------------------------------------
+; Print character in A without destroying any registers
+; Use CP/M BDOS function $02 - Console Output
+;
+prtchr:
+cout:
+	push	af		; save registers
+	push	bc
+	push	de
+	push	hl
+	ld	e,a		; character to print in E
+	ld	c,$02		; BDOS function to output a character
+	call	bdos		; do it
+	pop	hl		; restore registers
+	pop	de
+	pop	bc
+	pop	af
+	ret
+;
+;-------------------------------------------------------------------------------
+; Start a newline on console (cr/lf)
+;
+crlf2:
+	call	crlf		; two of them
+crlf:
+	push	af		; preserve AF
+	ld	a,13		; <CR>
+	call	prtchr		; print it
+	ld	a,10		; <LF>
+	call	prtchr		; print it
+	pop	af		; restore AF
+	ret
+;
+;-------------------------------------------------------------------------------
+; Print a zero terminated string at (de) without destroying any registers
+;
+prtstr:
+	push	af
+	push	de
+;
+prtstr1:
+	ld	a,(de)		; get next char
+	or	a
+	jr	z,prtstr2
+	call	prtchr
+	inc	de
+	jr	prtstr1
+;
+prtstr2:
+	pop	de		; restore registers
+	pop	af
+	ret
+;
+;-------------------------------------------------------------------------------
+; Print value of a in decimal with leading zero suppression
+;
+prtdecb:
+	push	hl
+	push	af
+	ld	l,a
+	ld	h,0
+	call	prtdec
+	pop	af
+	pop	hl
+	ret
+;
+;-------------------------------------------------------------------------------
+; Print value of HL in decimal with leading zero suppression
+;
+prtdec:
+	push	bc
+	push	de
+	push	hl
+	ld	e,'0'
+	ld	bc,-10000
+	call	prtdec1
+	ld	bc,-1000
+	call	prtdec1
+	ld	bc,-100
+	call	prtdec1
+	ld	c,-10
+	call	prtdec1
+	ld	e,0
+	ld	c,-1
+	call	prtdec1
+	pop	hl
+	pop	de
+	pop	bc
+	ret
+prtdec1:
+	ld	a,'0' - 1
+prtdec2:
+	inc	a
+	add	hl,bc
+	jr	c,prtdec2
+	sbc	hl,bc
+	cp	e
+	jr	z,prtdec3
+	ld	e,0
+	call	cout
+prtdec3:
+	ret
+;
+;-------------------------------------------------------------------------------
+; INPUT ROUTINES
+;-------------------------------------------------------------------------------
+; Skip whitespace at buffer adr in DE, returns with first
+; non-whitespace character in A.
+;
+skipws:
+	ld	a,(de)			; get next char
+	or	a			; check for eol
+	ret	z			; done if so
+	cp	' '			; blank?
+	ret	nz			; nope, done
+	inc	de			; bump buffer pointer
+	jr	skipws			; and loop
+;
+;-------------------------------------------------------------------------------
+; Convert character in A to uppercase
+;
+upcase:
+	cp	'a'		; if below 'a'
+	ret	c		; ... do nothing and return
+	cp	'z' + 1		; if above 'z'
+	ret	nc		; ... do nothing and return
+	res	5,a		; clear bit 5 to make lower case -> upper case
+	ret			; and return
+;
+;-------------------------------------------------------------------------------
+; Get numeric chars at DE and convert to number returned in A
+; Carry flag set on overflow
+;
+getnum:
+	ld	c,0		; C is working register
+getnum1:
+	ld	a,(de)		; get the active char
+	cp	'0'		; compare to ascii '0'
+	jr	c,getnum2	; abort if below
+	cp	'9' + 1		; compare to ascii '9'
+	jr	nc,getnum2	; abort if above
+;
+	; valid digit, add new digit to C
+	ld	a,c		; get working value to A
+	rlca			; multiply by 10
+	ret	c		; overflow, return with carry set
+	rlca			; ...
+	ret	c		; overflow, return with carry set
+	add	a,c		; ...
+	ret	c		; overflow, return with carry set
+	rlca			; ...
+	ret	c		; overflow, return with carry set
+	ld	c,a		; back to C
+	ld	a,(de)		; get new digit
+	sub	'0'		; make binary
+	add	a,c		; add in working value
+	ret	c		; overflow, return with carry set
+	ld	c,a		; back to C
+;
+	inc	de		; bump to next char
+	jr	getnum1		; loop
+;
+getnum2:	; return result
+	ld	a,c		; return result in A
+	or	a		; with flags set, CF is cleared
+	ret
+;
+;-------------------------------------------------------------------------------
+; Is character in A numeric? NZ if not
+;
+isnum:
+	cp	'0'		; compare to ascii '0'
+	jr	c,isnum1	; abort if below
+	cp	'9' + 1		; compare to ascii '9'
+	jr	nc,isnum1	; abort if above
+	cp	a		; set Z
+	ret
+isnum1:
+	or	$FF		; set NZ
+	ret			; and done
+;
+;-------------------------------------------------------------------------------
+; DISK IO ROUTINES
+;-------------------------------------------------------------------------------
+; Init Disk IO
+;
+initdiskio:
+	; Get current RAM bank
+	ld      b,BF_SYSGETBNK  	; HBIOS GetBank function
+	RST     08          		; do it via RST vector, C=bank id
+	RET     NZ          		; had to replace this line below.
+	ld      a,c         		; put bank id in A
+	ld      (BID_USR),a  		; put bank id in Argument
+	RET
+;
+;-------------------------------------------------------------------------------
+; Read disk sector(s)
+; DE:HL is LBA, B is sector count, C is disk unit
+;
+diskread:
+;
+	; Seek to requested sector in DE:HL
+	ld	a,(currunit)
+	ld	c,a			; from the specified unit
+	set	7,d			; set LBA access flag
+	ld	b,BF_DIOSEEK		; HBIOS func: seek
+	rst	08			; do it
+	ret	nz			; handle error
+;
+	; Read sector(s) into buffer
+	ld	a,(currunit)
+	ld	c,a			; from the specified unit
+	ld	e,1			; read 1 sector
+	ld	hl,(dma)		; read into info sec buffer
+	ld	a,(BID_USR)		; get user bank to accum
+	ld	d,a			; and move to D
+	ld	b,BF_DIOREAD		; HBIOS func: disk read
+	rst	08			; do it
+	ret				; and done
+;
+;-------------------------------------------------------------------------------
+; WRITE disk sector(s)
+; DE:HL is LBA, B is sector count, C is disk unit
+;
+diskwrite:
+;
+	ld	a,(currunit)		; disk unit to read
+	ld	c,a			; put in C
+	ld	b,1			; one sector
+;
+	; Seek to requested sector in DE:HL
+	push	bc			; save unit & count
+	set	7,d			; set LBA access flag
+	ld	b,BF_DIOSEEK		; HBIOS func: seek
+	rst	08			; do it
+	pop	bc			; recover unit & count
+	ret	nz			; handle error
+;
+	; Read sector(s) into buffer
+	ld	e,b			; transfer count
+	ld	b,BF_DIOWRITE		; HBIOS func: disk read
+	ld	hl,(dma)		; read into info sec buffer
+	ld	a,(BID_USR)		; get user bank to accum
+	ld	d,a			; and move to D
+	rst	08			; do it
+	ret				; and done
+;
+;===============================================================================
+; Constants
+;===============================================================================
+;
+str_banner	.db	"\r\n"
+		.db	"Slice Label, v1.1, July 2025 - M.Pruden",0
+;
+str_err_una	.db	"  ERROR: UNA not supported by application",0
+str_err_inv	.db	"  ERROR: Invalid BIOS (signature missing)",0
+str_err_ver	.db	"  ERROR: Unexpected HBIOS version",0
+str_err_parm	.db	"  ERROR: Parameter error (SLABEL /? for usage)",0
+str_err_nodisk	.db	"  ERROR: Disk unit not available",0
+str_err_nomedia	.db	"  ERROR: Media not present",0
+str_err_badslc 	.db	"  ERROR: Slice specified is illegal",0
+str_err_sig	.db	"  ERROR: No system image on disk",0
+str_err_diskio	.db	"  ERROR: Disk I/O failure",0
+;
+str_usage	.db	"\r\n\r\n"
+		.db	"  Usage: SLABEL - list current labels\r\n"
+		.db	"         SLABEL unit[.slice]=label - Defines a label\r\n"
+		.db	"         SLABEL /? - Display this help info.\r\n"
+		.db	"         Options are case insensitive.\r\n",0
+;
+PRTSLC_HDR	.TEXT	"\r\n\r\n"
+		.TEXT	"Un.Sl Label           \r\n"
+		.TEXT	"----- ----------------\r\n"
+		.DB	0
+;
+;===============================================================================
+; Working data
+;===============================================================================
+;
+currunit	.db	0		; parameters for disk unit, current unit
+currslice	.db	0		; parameters for disk slice, current slice
+lba		.dw	0, 0		; lba address (4 bytes), of slice
+newlabel	.dw	0		; address of parameter, new label to write
+;
+BID_USR		.db	0		; Bank ID for user bank
+dma		.dw	bl_infosec	; address for disk buffer
+;
+stksav		.dw	0		; stack pointer saved at start
+		.fill	stksiz,0	; stack
+stack		.equ	$		; stack top
+;
+;===============================================================================
+; Disk Buffer
+;===============================================================================
+;
+		; define origin of disk buffer above 8000 for performance.
+		.org	$8000
+;
+; Below is copied from ROM LDR
+; Boot info sector is read into area below.
+; The third sector of a disk device is reserved for boot info.
+;
+bl_infosec	.equ	$
+		.ds	(512 - 128)
+bb_metabuf	.equ	$
+bb_sig		.ds	2		; signature (0xA55A if set)
+bb_platform	.ds	1		; formatting platform
+bb_device	.ds	1		; formatting device
+bb_formatter	.ds	8		; formatting program
+bb_drive	.ds	1		; physical disk drive #
+bb_lu		.ds	1		; logical unit (lu)
+		.ds	1		; msb of lu, now deprecated
+		.ds	(bb_metabuf + 128) - $ - 32
+bb_protect	.ds	1		; write protect boolean
+bb_updates	.ds	2		; update counter
+bb_rmj		.ds	1		; rmj major version number
+bb_rmn		.ds	1		; rmn minor version number
+bb_rup		.ds	1		; rup update number
+bb_rtp		.ds	1		; rtp patch level
+bb_label	.ds	16		; 16 character drive label
+bb_term		.ds	1		; label terminator ('$')
+bb_biloc	.ds	2		; loc to patch boot drive info
+bb_cpmloc	.ds	2		; final ram dest for cpm/cbios
+bb_cpmend	.ds	2		; end address for load
+bb_cpment	.ds	2		; CP/M entry point (cbios boot)
+;
+;===============================================================================
+;
+	.end

Source/Apps/startup/startup.asm

@@ -1,399 +1,399 @@
-;===============================================================================
-; STARTUP - Application run automatically at OS startup
-;
-;===============================================================================
-;
-;	Author:  Wayne Warthen (wwarthen@gmail.com)
-;_______________________________________________________________________________
-;
-; Usage:
-;   MODE [/?]
-;
-; Operation:
-;   Determines if STARTUP.CMD exists on startup drive, user 0.  If it is
-;   found, it is run via SUBMIT.
-;_______________________________________________________________________________
-;
-; Change Log:
-;   2017-12-01 [WBW] Initial release
-;_______________________________________________________________________________
-;
-; ToDo:
-;  1) Detect OS type (CP/M or ZSYS) and run different batch files as a result.
-;_______________________________________________________________________________
-;
-;===============================================================================
-; Definitions
-;===============================================================================
-;
-stksiz	.equ	$40		; Working stack size
-;
-restart	.equ	$0000		; CP/M restart vector
-bdos	.equ	$0005		; BDOS invocation vector
-;
-ident	.equ	$FFFE		; loc of RomWBW HBIOS ident ptr
-;
-rmj	.equ	2		; intended CBIOS version - major
-rmn	.equ	9		; intended CBIOS version - minor
-;
-bf_cioinit	.equ	$04	; HBIOS: CIOINIT function
-bf_cioquery	.equ	$05	; HBIOS: CIOQUERY function
-bf_ciodevice	.equ	$06	; HBIOS: CIODEVICE function
-bf_sysget	.equ	$F8	; HBIOS: SYSGET function
-;
-;===============================================================================
-; Code Section
-;===============================================================================
-;
-	.org	$100
-;
-	; setup stack (save old value)
-	ld	(stksav),sp	; save stack
-	ld	sp,stack	; set new stack
-;
-	; initialization
-	call	init		; initialize
-	jr	nz,exit		; abort if init fails
-;
-	; process
-	call 	process		; do main processing
-	jr	nz,exit		; abort on error
-;
-exit:	; clean up and return to command processor
-	call	crlf		; formatting
-	ld	sp,(stksav)	; restore stack
-	;jp	restart		; return to CP/M via restart
-	ret			; return to CP/M w/o restart
-;
-; Initialization
-;
-init:
-;
-initx
-	; initialization complete
-	xor	a		; signal success
-	ret			; return
-;
-; Process
-;
-process:
-	; skip to start of first parm
-	ld	ix,$81		; point to start of parm area (past len byte)
-	call	nonblank	; skip to next non-blank char
-	jp	z,runcmd	; no parms, do command processing
-;
-process1:
-	; process options (if any)
-	cp	'/'		; option prefix?
-	jp	nz,erruse	; invalid option introducer
-	call	option		; process option
-	ret	nz		; some options mean we are done (e.g., "/?")
-	inc	ix		; skip option character
-	call 	nonblank	; skip whitespace
-	jr	nz,process1	; continue option checking
-	jp	runcmd		; end of parms, do cmd processing
-;
-;
-;
-runcmd:
-	call	ldfil		; load executable
-	ret	nz		; abort on error
-;
-	xor	a
-	ret
-;
-; Load file for execution
-;
-ldfil:
-	ld	c,15		; BDOS function: Open File
-	ld	de,fcb		; pointer to FCB
-	call	bdos		; do it
-	inc	a		; check for err, 0xFF --> 0x00
-	jp	z,errfil	; handle file not found err
-;
-	ld	c,16		; BDOS function: Close File
-	ld	de,fcb		; pointer to FCB
-	call	bdos		; do it
-	inc	a		; check for err, 0xFF --> 0x00
-	jp	z,errfil	; handle file close err
-;
-	xor	a		; signal success
-	ret			; done
-
-	
-;
-; Handle options
-;
-option:
-;
-	inc	ix		; next char
-	ld	a,(ix)		; get it
-	cp	'?'		; is it a '?' as expected?
-	jp	z,usage		; yes, display usage
-	jp	errprm		; anything else is an error
-;
-; Display usage
-;
-usage:
-;
-	call	crlf		; formatting
-	ld	de,msgban	; point to version message part 1
-	call	prtstr		; print it
-	call	crlf2		; blank line
-	ld	de,msguse	; point to usage message
-	call	prtstr		; print it
-	or	$FF		; signal no action performed
-	ret			; and return
-;
-; Print character in A without destroying any registers
-;
-prtchr:
-	push	bc		; save registers
-	push	de
-	push	hl
-	ld	e,a		; character to print in E
-	ld	c,$02		; BDOS function to output a character
-	call	bdos		; do it
-	pop	hl		; restore registers
-	pop	de
-	pop	bc
-	ret
-;
-prtdot:
-;
-	; shortcut to print a dot preserving all regs
-	push	af		; save af
-	ld	a,'.'		; load dot char
-	call	prtchr		; print it
-	pop	af		; restore af
-	ret			; done
-;
-; Print a zero terminated string at (DE) without destroying any registers
-;
-prtstr:
-	push	de
-;
-prtstr1:
-	ld	a,(de)		; get next char
-	or	a
-	jr	z,prtstr2
-	call	prtchr
-	inc	de
-	jr	prtstr1
-;
-prtstr2:
-	pop	de		; restore registers
-	ret	
-;
-; Print the value in A in hex without destroying any registers
-;
-prthex:
-	push	af		; save AF
-	push	de		; save DE
-	call	hexascii	; convert value in A to hex chars in DE
-	ld	a,d		; get the high order hex char
-	call	prtchr		; print it
-	ld	a,e		; get the low order hex char
-	call	prtchr		; print it
-	pop	de		; restore DE
-	pop	af		; restore AF
-	ret			; done
-;
-; print the hex word value in bc
-;
-prthexword:
-	push	af
-	ld	a,b
-	call	prthex
-	ld	a,c
-	call	prthex 
-	pop	af
-	ret
-;
-; print the hex dword value in de:hl
-;
-prthex32:
-	push	bc
-	push	de
-	pop	bc
-	call	prthexword
-	push	hl
-	pop	bc
-	call	prthexword
-	pop	bc
-	ret
-;
-; Convert binary value in A to ascii hex characters in DE
-;
-hexascii:
-	ld	d,a		; save A in D
-	call	hexconv		; convert low nibble of A to hex
-	ld	e,a		; save it in E
-	ld	a,d		; get original value back
-	rlca			; rotate high order nibble to low bits
-	rlca
-	rlca
-	rlca
-	call	hexconv		; convert nibble
-	ld	d,a		; save it in D
-	ret			; done
-;
-; Convert low nibble of A to ascii hex
-;
-hexconv:
-	and	$0F	     	; low nibble only
-	add	a,$90
-	daa	
-	adc	a,$40
-	daa	
-	ret
-;
-; Print value of A or HL in decimal with leading zero suppression
-; Use prtdecb for A or prtdecw for HL
-;
-prtdecb:
-	push	hl
-	ld	h,0
-	ld	l,a
-	call	prtdecw		; print it
-	pop	hl
-	ret
-;
-prtdecw:
-	push	af
-	push	bc
-	push	de
-	push	hl
-	call	prtdec0
-	pop	hl
-	pop	de
-	pop	bc
-	pop	af
-	ret
-;
-prtdec0:
-	ld	e,'0'
-	ld	bc,-10000
-	call	prtdec1
-	ld	bc,-1000
-	call	prtdec1
-	ld	bc,-100
-	call	prtdec1
-	ld	c,-10
-	call	prtdec1
-	ld	e,0
-	ld	c,-1
-prtdec1:
-	ld	a,'0' - 1
-prtdec2:
-	inc	a
-	add	hl,bc
-	jr	c,prtdec2
-	sbc	hl,bc
-	cp	e
-	ret	z
-	ld	e,0
-	call	prtchr
-	ret
-;
-; Start a new line
-;
-crlf2:
-	call	crlf		; two of them
-crlf:
-	push	af		; preserve AF
-	ld	a,13		; <CR>
-	call	prtchr		; print it
-	ld	a,10		; <LF>
-	call	prtchr		; print it
-	pop	af		; restore AF
-	ret
-;
-; Get the next non-blank character from (HL).
-;
-nonblank:
-	ld	a,(ix)		; load next character
-	or	a		; string ends with a null
-	ret	z		; if null, return pointing to null
-	cp	' '		; check for blank
-	ret	nz		; return if not blank
-	inc	ix		; if blank, increment character pointer
-	jr	nonblank	; and loop
-;
-; Convert character in A to uppercase
-;
-ucase:
-	cp	'a'		; if below 'a'
-	ret	c		; ... do nothing and return
-	cp	'z' + 1		; if above 'z'
-	ret	nc		; ... do nothing and return
-	res	5,a		; clear bit 5 to make lower case -> upper case
-	ret			; and return
-;
-; Add the value in A to HL (HL := HL + A)
-;
-addhl:
-	add	a,l		; A := A + L
-	ld	l,a		; Put result back in L
-	ret	nc		; if no carry, we are done
-	inc	h		; if carry, increment H
-	ret			; and return
-;
-; Jump indirect to address in HL
-;
-jphl:
-	jp	(hl)
-;
-; Errors
-;
-erruse:	; command usage error (syntax)
-	ld	de,msguse
-	jr	err
-;
-errprm:	; command parameter error (syntax)
-	ld	de,msgprm
-	jr	err
-;
-errfil:	; STARTUP.CMD file not present
-	ld	de,msgfil
-	jr	err
-;
-err:	; print error string and return error signal
-	call	crlf		; print newline
-;
-err1:	; without the leading crlf
-	call	prtstr		; print error string
-;
-err2:	; without the string
-;	call	crlf		; print newline
-	or	$FF		; signal error
-	ret			; done
-;
-;===============================================================================
-; Storage Section
-;===============================================================================
-;
-fcb	.db	0		; Drive code, 0 = current drive
-	.db	"START   "	; File name, 8 chars
-	.db	"COM"		; File type, 3 chars
-	.fill	36-($-fcb),0	; zero fill remainder of fcb
-;
-cmdblk	.db	cmdlen		; length
-cmdtxt	.db	"        B:SUBMIT START"
-	.db	0		; null terminator
-cmdlen	.equ	$ - cmdtxt
-cmdend	.equ	$
-;
-stksav	.dw	0		; stack pointer saved at start
-	.fill	stksiz,0	; stack
-stack	.equ	$		; stack top
-;
-; Messages
-;
-msgban	.db	"STARTUP v1.0, 01-Dec-2017",13,10
-	.db	"Copyright (C) 2017, Wayne Warthen, GNU GPL v3",0
-msguse	.db	"Usage: STARTUP [/?]",0
-msgprm	.db	"Parameter error (STARTUP /? for usage)",0
-msgfil	.db	"STARTUP.CMD file missing",0
-;
-	.end
+;===============================================================================
+; STARTUP - Application run automatically at OS startup
+;
+;===============================================================================
+;
+;	Author:  Wayne Warthen (wwarthen@gmail.com)
+;_______________________________________________________________________________
+;
+; Usage:
+;   MODE [/?]
+;
+; Operation:
+;   Determines if STARTUP.CMD exists on startup drive, user 0.  If it is
+;   found, it is run via SUBMIT.
+;_______________________________________________________________________________
+;
+; Change Log:
+;   2017-12-01 [WBW] Initial release
+;_______________________________________________________________________________
+;
+; ToDo:
+;  1) Detect OS type (CP/M or ZSYS) and run different batch files as a result.
+;_______________________________________________________________________________
+;
+;===============================================================================
+; Definitions
+;===============================================================================
+;
+stksiz	.equ	$40		; Working stack size
+;
+restart	.equ	$0000		; CP/M restart vector
+bdos	.equ	$0005		; BDOS invocation vector
+;
+ident	.equ	$FFFC		; loc of RomWBW HBIOS ident ptr
+;
+rmj	.equ	2		; intended CBIOS version - major
+rmn	.equ	9		; intended CBIOS version - minor
+;
+bf_cioinit	.equ	$04	; HBIOS: CIOINIT function
+bf_cioquery	.equ	$05	; HBIOS: CIOQUERY function
+bf_ciodevice	.equ	$06	; HBIOS: CIODEVICE function
+bf_sysget	.equ	$F8	; HBIOS: SYSGET function
+;
+;===============================================================================
+; Code Section
+;===============================================================================
+;
+	.org	$100
+;
+	; setup stack (save old value)
+	ld	(stksav),sp	; save stack
+	ld	sp,stack	; set new stack
+;
+	; initialization
+	call	init		; initialize
+	jr	nz,exit		; abort if init fails
+;
+	; process
+	call 	process		; do main processing
+	jr	nz,exit		; abort on error
+;
+exit:	; clean up and return to command processor
+	call	crlf		; formatting
+	ld	sp,(stksav)	; restore stack
+	;jp	restart		; return to CP/M via restart
+	ret			; return to CP/M w/o restart
+;
+; Initialization
+;
+init:
+;
+initx
+	; initialization complete
+	xor	a		; signal success
+	ret			; return
+;
+; Process
+;
+process:
+	; skip to start of first parm
+	ld	ix,$81		; point to start of parm area (past len byte)
+	call	nonblank	; skip to next non-blank char
+	jp	z,runcmd	; no parms, do command processing
+;
+process1:
+	; process options (if any)
+	cp	'/'		; option prefix?
+	jp	nz,erruse	; invalid option introducer
+	call	option		; process option
+	ret	nz		; some options mean we are done (e.g., "/?")
+	inc	ix		; skip option character
+	call 	nonblank	; skip whitespace
+	jr	nz,process1	; continue option checking
+	jp	runcmd		; end of parms, do cmd processing
+;
+;
+;
+runcmd:
+	call	ldfil		; load executable
+	ret	nz		; abort on error
+;
+	xor	a
+	ret
+;
+; Load file for execution
+;
+ldfil:
+	ld	c,15		; BDOS function: Open File
+	ld	de,fcb		; pointer to FCB
+	call	bdos		; do it
+	inc	a		; check for err, 0xFF --> 0x00
+	jp	z,errfil	; handle file not found err
+;
+	ld	c,16		; BDOS function: Close File
+	ld	de,fcb		; pointer to FCB
+	call	bdos		; do it
+	inc	a		; check for err, 0xFF --> 0x00
+	jp	z,errfil	; handle file close err
+;
+	xor	a		; signal success
+	ret			; done
+
+	
+;
+; Handle options
+;
+option:
+;
+	inc	ix		; next char
+	ld	a,(ix)		; get it
+	cp	'?'		; is it a '?' as expected?
+	jp	z,usage		; yes, display usage
+	jp	errprm		; anything else is an error
+;
+; Display usage
+;
+usage:
+;
+	call	crlf		; formatting
+	ld	de,msgban	; point to version message part 1
+	call	prtstr		; print it
+	call	crlf2		; blank line
+	ld	de,msguse	; point to usage message
+	call	prtstr		; print it
+	or	$FF		; signal no action performed
+	ret			; and return
+;
+; Print character in A without destroying any registers
+;
+prtchr:
+	push	bc		; save registers
+	push	de
+	push	hl
+	ld	e,a		; character to print in E
+	ld	c,$02		; BDOS function to output a character
+	call	bdos		; do it
+	pop	hl		; restore registers
+	pop	de
+	pop	bc
+	ret
+;
+prtdot:
+;
+	; shortcut to print a dot preserving all regs
+	push	af		; save af
+	ld	a,'.'		; load dot char
+	call	prtchr		; print it
+	pop	af		; restore af
+	ret			; done
+;
+; Print a zero terminated string at (DE) without destroying any registers
+;
+prtstr:
+	push	de
+;
+prtstr1:
+	ld	a,(de)		; get next char
+	or	a
+	jr	z,prtstr2
+	call	prtchr
+	inc	de
+	jr	prtstr1
+;
+prtstr2:
+	pop	de		; restore registers
+	ret	
+;
+; Print the value in A in hex without destroying any registers
+;
+prthex:
+	push	af		; save AF
+	push	de		; save DE
+	call	hexascii	; convert value in A to hex chars in DE
+	ld	a,d		; get the high order hex char
+	call	prtchr		; print it
+	ld	a,e		; get the low order hex char
+	call	prtchr		; print it
+	pop	de		; restore DE
+	pop	af		; restore AF
+	ret			; done
+;
+; print the hex word value in bc
+;
+prthexword:
+	push	af
+	ld	a,b
+	call	prthex
+	ld	a,c
+	call	prthex 
+	pop	af
+	ret
+;
+; print the hex dword value in de:hl
+;
+prthex32:
+	push	bc
+	push	de
+	pop	bc
+	call	prthexword
+	push	hl
+	pop	bc
+	call	prthexword
+	pop	bc
+	ret
+;
+; Convert binary value in A to ascii hex characters in DE
+;
+hexascii:
+	ld	d,a		; save A in D
+	call	hexconv		; convert low nibble of A to hex
+	ld	e,a		; save it in E
+	ld	a,d		; get original value back
+	rlca			; rotate high order nibble to low bits
+	rlca
+	rlca
+	rlca
+	call	hexconv		; convert nibble
+	ld	d,a		; save it in D
+	ret			; done
+;
+; Convert low nibble of A to ascii hex
+;
+hexconv:
+	and	$0F	     	; low nibble only
+	add	a,$90
+	daa	
+	adc	a,$40
+	daa	
+	ret
+;
+; Print value of A or HL in decimal with leading zero suppression
+; Use prtdecb for A or prtdecw for HL
+;
+prtdecb:
+	push	hl
+	ld	h,0
+	ld	l,a
+	call	prtdecw		; print it
+	pop	hl
+	ret
+;
+prtdecw:
+	push	af
+	push	bc
+	push	de
+	push	hl
+	call	prtdec0
+	pop	hl
+	pop	de
+	pop	bc
+	pop	af
+	ret
+;
+prtdec0:
+	ld	e,'0'
+	ld	bc,-10000
+	call	prtdec1
+	ld	bc,-1000
+	call	prtdec1
+	ld	bc,-100
+	call	prtdec1
+	ld	c,-10
+	call	prtdec1
+	ld	e,0
+	ld	c,-1
+prtdec1:
+	ld	a,'0' - 1
+prtdec2:
+	inc	a
+	add	hl,bc
+	jr	c,prtdec2
+	sbc	hl,bc
+	cp	e
+	ret	z
+	ld	e,0
+	call	prtchr
+	ret
+;
+; Start a new line
+;
+crlf2:
+	call	crlf		; two of them
+crlf:
+	push	af		; preserve AF
+	ld	a,13		; <CR>
+	call	prtchr		; print it
+	ld	a,10		; <LF>
+	call	prtchr		; print it
+	pop	af		; restore AF
+	ret
+;
+; Get the next non-blank character from (HL).
+;
+nonblank:
+	ld	a,(ix)		; load next character
+	or	a		; string ends with a null
+	ret	z		; if null, return pointing to null
+	cp	' '		; check for blank
+	ret	nz		; return if not blank
+	inc	ix		; if blank, increment character pointer
+	jr	nonblank	; and loop
+;
+; Convert character in A to uppercase
+;
+ucase:
+	cp	'a'		; if below 'a'
+	ret	c		; ... do nothing and return
+	cp	'z' + 1		; if above 'z'
+	ret	nc		; ... do nothing and return
+	res	5,a		; clear bit 5 to make lower case -> upper case
+	ret			; and return
+;
+; Add the value in A to HL (HL := HL + A)
+;
+addhl:
+	add	a,l		; A := A + L
+	ld	l,a		; Put result back in L
+	ret	nc		; if no carry, we are done
+	inc	h		; if carry, increment H
+	ret			; and return
+;
+; Jump indirect to address in HL
+;
+jphl:
+	jp	(hl)
+;
+; Errors
+;
+erruse:	; command usage error (syntax)
+	ld	de,msguse
+	jr	err
+;
+errprm:	; command parameter error (syntax)
+	ld	de,msgprm
+	jr	err
+;
+errfil:	; STARTUP.CMD file not present
+	ld	de,msgfil
+	jr	err
+;
+err:	; print error string and return error signal
+	call	crlf		; print newline
+;
+err1:	; without the leading crlf
+	call	prtstr		; print error string
+;
+err2:	; without the string
+;	call	crlf		; print newline
+	or	$FF		; signal error
+	ret			; done
+;
+;===============================================================================
+; Storage Section
+;===============================================================================
+;
+fcb	.db	0		; Drive code, 0 = current drive
+	.db	"START   "	; File name, 8 chars
+	.db	"COM"		; File type, 3 chars
+	.fill	36-($-fcb),0	; zero fill remainder of fcb
+;
+cmdblk	.db	cmdlen		; length
+cmdtxt	.db	"        B:SUBMIT START"
+	.db	0		; null terminator
+cmdlen	.equ	$ - cmdtxt
+cmdend	.equ	$
+;
+stksav	.dw	0		; stack pointer saved at start
+	.fill	stksiz,0	; stack
+stack	.equ	$		; stack top
+;
+; Messages
+;
+msgban	.db	"STARTUP v1.0, 01-Dec-2017",13,10
+	.db	"Copyright (C) 2017, Wayne Warthen, GNU GPL v3",0
+msguse	.db	"Usage: STARTUP [/?]",0
+msgprm	.db	"Parameter error (STARTUP /? for usage)",0
+msgfil	.db	"STARTUP.CMD file missing",0
+;
+	.end

Source/BPBIOS/@WBW Issues.txt

@@ -15,8 +15,7 @@ as needed.  The RomWBW ASSIGN command is not supported.  BPBIOS
 will boot from the first hard disk unit number you assign and
 always from the first slice.
 
-BPBIOS does not yet understand the 1024 directory entry
-hard disk format.  You must use the 512 directory entry
-format images.
+BPBIOS is hard-coded to use the 1024 directory entry hard disk
+format (hd1k).  The hd512 format is not supported at all.
 
---WBW 1:25 PM 10/7/2021
+--WBW 5:04 PM 6/16/2025

Source/BPBIOS/Build.cmd

@@ -2,6 +2,7 @@
 setlocal
 
 pushd ZCPR33 && call Build || exit /b & popd
+pushd UTIL && call Build || exit /b & popd
 
 set TOOLS=..\..\Tools
 set PATH=%PATH%;%TOOLS%\zxcc;%TOOLS%\cpmtools;

Source/BPBIOS/Clean.cmd

@@ -11,3 +11,4 @@ if exist *.bak del *.bak
 if exist def-ww.lib del def-ww.lib
 
 pushd ZCPR33 && call Clean.cmd & popd
+pushd UTIL && call Clean.cmd & popd

Source/BPBIOS/Makefile

@@ -13,7 +13,7 @@ OTHERS = zcpr33.rel bp*.prn bp*.rel \
 
 TOOLS = ../../Tools
 
-SUBDIRS = ZCPR33
+SUBDIRS = ZCPR33 UTIL
 include $(TOOLS)/Makefile.inc
 
 zcpr33.rel:

Source/BPBIOS/UTIL/Build.cmd

@@ -0,0 +1,55 @@
+@echo off
+setlocal
+
+set TOOLS=..\..\..\Tools
+set PATH=%PATH%;%TOOLS%\zxcc;%TOOLS%\cpmtools;
+set CPMDIR80=%TOOLS%/cpm/
+
+zxcc Z80ASM -BPBUILD/RFS || exit /b
+zxcc SLRNK -BPBUILD/N,/A:100,/D:23E0,BPBUILD,B:SLINK0,B:VLIBS/S,B:Z3LIBS/S,B:SYSLIBS/S,/E || exit /b
+
+zxcc Z80ASM -BPCNFG/RFS || exit /b
+zxcc SLRNK -BPCNFG/N,/A:100,/D:3A55,BPCNFG,B:VLIBS/S,B:Z3LIBS/S,B:SYSLIBS/S,/E || exit /b
+
+zxcc Z80ASM -BPSWAP/RFS || exit /b
+zxcc SLRNK -BPSWAP/N,/A:100,/D:0854,BPSWAP,B:VLIBS/S,B:Z3LIBS/S,B:SYSLIBS/S,/E || exit /b
+
+zxcc Z80ASM -BPSYSGEN/RFS || exit /b
+zxcc SLRNK -BPSYSGEN/N,/A:100,/D:08CD,BPSYSGEN,B:Z3LIBS/S,B:SYSLIBS/S,/E || exit /b
+
+zxcc Z80ASM -CONFZ4/RFS || exit /b
+zxcc SLRNK -CONFZ4/N,/A:100,/D:080A,CONFZ4,B:Z3LIBS/S,B:SYSLIBS/S,/E || exit /b
+
+zxcc Z80ASM -HASHINI/RFS || exit /b
+zxcc SLRNK -HASHINI/N,/A:100,/D:09E5,HASHINI,B:Z3LIBS/S,B:SYSLIBS/S,/E || exit /b
+
+zxcc Z80ASM -LDSYS/RFS || exit /b
+zxcc SLRNK -LDSYS/N,/A:100,/D:0CF8,LDSYS,B:VLIBS/S,B:Z3LIBS/S,B:SYSLIBS/S,/E || exit /b
+
+zxcc Z80ASM -SHOWHD/RFS || exit /b
+zxcc SLRNK -SHOWHD/N,/A:100,/D:064D,SHOWHD,B:SYSLIBS/S,/E || exit /b
+
+zxcc Z80ASM -SIZERAM/RFS || exit /b
+zxcc SLRNK -SIZERAM/N,/A:100,/D:0750,SIZERAM,B:VLIBS/S,B:Z3LIBS/S,B:SYSLIBS/S,/E || exit /b
+
+zxcc Z80ASM -ZSCFG2/RFS || exit /b
+zxcc SLRNK -ZSCFG2/N,/A:100,/D:145E,ZSCFG2,B:VLIBS/S,B:Z3LIBS/S,B:SYSLIBS/S,/E || exit /b
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+:: zxcc Z80ASM 
+:: zxcc ZMAC -zcpr33.z80 -/P || exit /b

Source/BPBIOS/UTIL/Clean.cmd

@@ -0,0 +1,6 @@
+@echo off
+setlocal
+
+if exist *.com del *.com
+if exist *.lst del *.lst
+if exist *.rel del *.rel

Source/BPBIOS/UTIL/Makefile

@@ -0,0 +1,40 @@
+OBJECTS = bpbuild.com bpcnfg.com bpswap.com bpsysgen.com confz4.com hashini.com \
+	ldsys.com showhd.com sizeram.com zscfg2.com
+TOOLS = ../../../Tools
+# DEST = ..
+OTHERS = *.rel
+
+include $(TOOLS)/Makefile.inc
+
+%.rel: %.z80
+	@$(ZXCC) $(CPM)/Z80ASM -$(basename $<)/RFS
+
+bpbuild.com : bpbuild.rel
+	$(ZXCC) $(CPM)/SLRNK -bpbuild/n,/a:100,/d:23e0,bpbuild,b:slink0,b:vlibs/s,b:z3libs/s,b:syslibs/s,/e
+
+bpcnfg.com : bpcnfg.rel
+	$(ZXCC) $(CPM)/SLRNK -bpcnfg/n,/a:100,/d:3a55,bpcnfg,b:vlibs/s,b:z3libs/s,b:syslibs/s,/e
+
+bpswap.com : bpswap.rel
+	$(ZXCC) $(CPM)/SLRNK -bpswap/n,/a:100,/d:0854,bpswap,b:vlibs/s,b:z3libs/s,b:syslibs/s,/e
+
+bpsysgen.com : bpsysgen.rel
+	$(ZXCC) $(CPM)/SLRNK -bpsysgen/n,/a:100,/d:08cd,bpsysgen,b:z3libs/s,b:syslibs/s,/e
+
+confz4.com : confz4.rel
+	$(ZXCC) $(CPM)/SLRNK -confz4/n,/a:100,/d:080a,confz4,b:z3libs/s,b:syslibs/s,/e
+
+hashini.com : hashini.rel
+	$(ZXCC) $(CPM)/SLRNK -hashini/n,/a:100,/d:09e5,hashini,b:z3libs/s,b:syslibs/s,/e
+
+ldsys.com : ldsys.rel
+	$(ZXCC) $(CPM)/SLRNK -ldsys/n,/a:100,/d:0cf8,ldsys,b:vlibs/s,b:z3libs/s,b:syslibs/s,/e
+
+showhd.com : showhd.rel
+	$(ZXCC) $(CPM)/SLRNK -showhd/n,/a:100,/d:064d,showhd,b:syslibs/s,/e
+
+sizeram.com : sizeram.rel
+	$(ZXCC) $(CPM)/SLRNK -sizeram/n,/a:100,/d:0750,sizeram,b:vlibs/s,b:z3libs/s,b:syslibs/s,/e
+
+zscfg2.com : zscfg2.rel
+	$(ZXCC) $(CPM)/SLRNK -zscfg2/n,/a:100,/d:145e,zscfg2,b:vlibs/s,b:z3libs/s,b:syslibs/s,/e

Source/BPBIOS/UTIL/bpswap.z80

@@ -0,0 +1,483 @@
+	TITLE	"Swap drives under B/P Bios"
+;************************************************************************
+;*  B P S W A P								*
+;* Swap two drive letters in a running B/P Bios system			*
+;*  by Harold F. Bower and Cameron W. Cotrill				*
+;*----------------------------------------------------------------------*
+;* Disassembly:	jxl					Dec 2024	*
+;*		public release 1.0			Apr 2025	*
+;*		see remarks at the end					*
+;*----------------------------------------------------------------------*
+;* LINK with Version 4 libraries: VLIB, Z3LIB, SYSLIB			*
+;*									*
+;* A>Z80ASM BPSWAP/RS							*
+;* A>SLRNK BPSWAP/N,/A:100,/D:0854,BPSWAP,VLIBS/S,Z3LIBS/S,SYSLIBS/S,/E	*
+;************************************************************************
+
+VER	EQU	10
+REV	EQU	' '
+
+DATE	MACRO
+	DEFB	'31 Aug 92'
+	ENDM
+
+
+CTRLC	EQU	03H		; Control-C character
+BEL	EQU	07H		; Bell character
+TAB	EQU	09H		; Tab character
+LF	EQU	0AH		; Line Feed character
+CR	EQU	0DH		; Carriage Return character
+
+CPMBIOS	EQU	0		; CP/M BIOS warm boot (JP)
+CPMBDOS	EQU	5		; CP/M BDOS entry point (JP)
+CPMFCB	EQU	5CH		; CP/M standard FCB #1 (+1 filename, +9 filetype)
+CPMDMA	EQU	80H		; CP/M standard DMA buffer
+
+
+;  From VLIB Get..
+	EXTRN	VPRINT, Z3VINIT
+
+;  From Z3LIB Get..
+	EXTRN	GETNAME, PRTNAME, WHRENV
+
+;  From SYSLIB Get..
+	EXTRN	CRLF, CAPINE, COUT
+
+
+;::::: PROGRAM START
+
+	ORG	100H
+	CSEG
+
+
+BPSWAP: JP	START		; bypass header
+	DEFB	'Z3ENV'		; this is a ZCPR3 utility
+	DEFB	1		; show external environment
+
+ENVADR: DEFW	0		; addr of Z3 environment
+
+START:	LD	HL,(CPMBDOS)	; ##### BUG: should be CPMBDOS+1 ?
+	CALL	WHRENV		; find Z3 Environment Descriptor
+	LD	(ENVADR),HL	; store addr
+	CALL	Z3VINIT		; ..and init for Z3LIB routines
+	CALL	GETNAME		; get actual program name
+	CALL	GQFLAG
+	AND	A		; running in quiet mode ?
+	JR	NZ,START0	; ..if so, skip over
+	CALL	VPRINT
+	DEFB	1,'B/P Drive Swap',2,' V',VER/10+'0','.',VER MOD 10 + '0',', '
+	DATE
+	DEFB	CR,LF
+	DEFB	0
+
+START0:	LD	(STACK),SP
+	LD	SP,STACK
+
+	; get first token from command line (in FCB #1)
+	LD	A,(CPMFCB+1)	; get char
+	CP	'/'		; is this a help request ?
+	JP	Z,HELP		; ..if so, show help screen
+	LD	HL,(CPMBIOS+1)	; get warm boot addr (BIOS fn #1)
+	LD	L,30*3		; adjust ptr to fn #30
+	LD	A,(HL)		; check byte at ptr location
+	CP	0C3H		; is it opcode 0xC3 (JP) ?
+	JR	NZ,E$BPBIO	; ..if not, jump error and exit
+	CALL	JUMPHL		;   else, "call" B/P Bios fn #30 (RETBIO)
+	LD	(BPBASE),BC	; store B/P Bios base addr
+	LD	HL,-6		; move ptr 6 bytes backward
+	ADD	HL,DE		;   (signature string)
+	LD	A,(HL)		; get byte
+	CP	'B'		; is it 'B' ?
+	JR	NZ,E$BPBIO	; ..if not, error and exit
+	INC	HL		; ptr fwd
+	LD	A,(HL)		; get byte
+	CP	'/'		; is it '/' ?
+	JR	NZ,E$BPBIO	; ..if not, error and exit
+	INC	HL		; ptr fwd
+	LD	A,(HL)		; get byte
+	CP	'P'		; is it 'P' ?
+	JR	Z,EVALCMD	; ..if so, jump to continue
+				;   else, fall through (error and exit)
+
+E$BPBIO: CALL	VPRINT
+	DEFB	CR,LF,BEL,'+++ Not B/P Bios ... aborting +++',CR,LF
+	DEFB	0
+	JP	EXIT
+
+
+	; evaluate command line
+EVALCMD: LD	HL,CPMDMA	; ptr to standard DMA buffer (holds command line)
+	LD	A,(HL)		; get length of first token
+	INC	HL		; +1
+	CALL	ADDHLA		; move ptr fwd
+	LD	(HL),0		; set <NUL> terminator
+	LD	HL,CPMDMA+1	; set ptr to start of string
+	CALL	FINDDRV		; find letter of first drive
+	JR	C,RUNIMOD	; ..if invalid/not found, switch to interactive mode
+	LD	(DRV1ST),A	;   else, store # of first drive
+	LD	A,(HL)		; get following byte
+	CALL	EVALSEP		; is it a separator char ?
+	JP	C,M$ABORT	; ..if not, abort program
+	CALL	FINDDRV		; find letter of second drive
+	JR	C,RUNIM0	; ..if invalid/not found, switch to interactive mode
+	LD	(DRV2ND),A	;   else, store # of second drive
+	LD	A,(HL)		; get following byte
+	CALL	EVALSEP		; is it a separator char ?
+	JP	C,M$ABORT	; ..if not, abort program
+	JR	SWAPDRV		;   else, jump to continue
+
+
+	; run in interactive mode
+RUNIMOD: CALL	VPRINT
+	DEFB	'  First Drive to Swap [A..P] : '
+	DEFB	0
+	CALL	CAPINE		; get input
+	CALL	CRLF
+	CP	CTRLC		; is it <Ctrl-C> ?
+	JP	Z,M$ABORT	; ..if so, abort program
+	CALL	EVALDRV		; check if drive letter is valid (A..P)
+	JR	C,RUNIMOD	; ..if not, loop ask for new input
+	LD	(DRV1ST),A	;   else, store drive #
+RUNIM0:	CALL	VPRINT
+	DEFB	'  Second Drive to Swap [A..P] : '
+	DEFB	0
+	CALL	CAPINE		; get input
+	CALL	CRLF
+	CP	CTRLC		; is it <Ctrl-C> ?
+	JP	Z,M$ABORT	; ..if so, abort program
+	CALL	EVALDRV		; check if drive letter is valid (A..P)
+	JR	C,RUNIM0	; ..if not, loop ask for new input
+	LD	(DRV2ND),A	;   else, store drive #
+
+
+;::::: PROCESS
+
+SWAPDRV: LD	HL,(BPBASE)	; get B/P Bios base addr
+	LD	L,22*3		; adjust ptr to fn #22 (DRVTBL)
+	CALL	JUMPHL		; ..and "call" fn
+	PUSH	HL		; save ptr to DRVTBL
+	LD	A,(DRV1ST)	; get # of first drive
+	ADD	A,A		; *2 for 16-bit entries
+	CALL	ADDHLA		; ..and move ptr fwd
+	EX	DE,HL		; swap regs
+	POP	HL		; restore ptr to DRVTBL
+	LD	A,(DRV2ND)	; get # of second drive
+	ADD	A,A		; *2
+	CALL	ADDHLA		; ..and move ptr fwd
+
+	; DE= addr DPH first drive
+	; HL= addr DPH second drive
+	LD	C,(HL)		; swap addr's in DRVTBL using
+	LD	A,(DE)		;   regs DE, HL as pointers
+	LD	(HL),A		;   and regs A, C holding bytes to copy
+	LD	A,C
+	LD	(DE),A
+	INC	HL
+	INC	DE
+	LD	C,(HL)
+	LD	A,(DE)
+	LD	(HL),A
+	LD	A,C
+	LD	(DE),A
+	LD	HL,0
+	LD	(PDRVVCT),HL	; init new Drive Vector (pos) with 0x0000
+	DEC	HL
+	LD	(NDRVVCT),HL	; init new Drive Vector (neg) with 0xFFFF
+	LD	HL,(ENVADR)	; get ENV addr
+	LD	DE,52		; offset to Drive Vector
+	ADD	HL,DE		; move ptr
+	PUSH	HL		; ..and save it
+	LD	E,(HL)		; get Drive Vector in DE
+	INC	HL
+	LD	D,(HL)
+	LD	A,(DRV1ST)	; get # of first drive
+	CALL	MKDRMSK		; get bit mask for first drive
+	LD	C,L		; ..and move it to BC
+	LD	B,H
+	LD	A,(DRV2ND)	; get # of second drive
+	CALL	MKDRMSK		; get bit mask for second drive
+	EX	DE,HL		; ..and move it to DE
+	CALL	MKVCMSK		; update new Drive Vector for first drive
+	PUSH	BC		; swap BC and DE
+	PUSH	DE
+	POP	BC
+	POP	DE
+	CALL	MKVCMSK		; update new Drive Vector for second drive
+
+	; (Stack) = addr of Drive Vector in ENV - PUSH HL
+	; HL= current Drive Vector, DE= bit mask first drive, BC= bit mask second drive
+	EX	DE,HL		; swap regs (save current Drive Vector in DE)
+	ADD	HL,BC		; add/merge bit masks
+	EX	(SP),HL		; put merged mask on stack - used by SWAPDRX
+				; get addr of Drive Vector in ENV
+	PUSH	HL		; ..and save it
+	EX	DE,HL		; swap regs back (current Drive Vector in HL)
+	LD	BC,(PDRVVCT)	; get new Drive Vector (pos)
+	LD	DE,(NDRVVCT)	;   and (neg)
+	LD	A,L		; low byte of current Drive Vector
+	AND	E		;   reset bit (neg)
+	OR	C		;   set bit (pos)
+	LD	E,A		;   ..and store result in E
+	LD	A,H		; high byte of current Drive Vector
+	AND	D		;   reset bit (neg)
+	OR	B		;   set bit (pos)
+	LD	D,A		;   ..and store result in D
+	POP	HL		; get addr of Drive Vector in ENV
+	LD	(HL),E		; store new Drive Vector (low byte)
+	INC	HL
+	LD	(HL),D		; ..and high byte
+	CALL	GQFLAG
+	OR	A		; check quiet flag
+	JR	NZ,SWAPDRX	; ..if quiet mode, skip over
+	CALL	VPRINT
+	DEFB	'  ...Drives '
+	DEFB	0
+	LD	A,(DRV1ST)	; get # of first drive
+	ADD	A,'A'		; make ascii letter
+	CALL	COUT		; ..and display it
+	CALL	VPRINT
+	DEFB	': and '
+	DEFB	0
+	LD	A,(DRV2ND)	; get # of second drive
+	ADD	A,'A'		; make ascii letter
+	CALL	COUT		; ..and display it
+	CALL	VPRINT
+	DEFB	': exchanged',CR,LF
+	DEFB	0
+
+	; exit function
+SWAPDRX: POP	DE		; restore merged bit masked 1st+2nd drive
+	LD	C,37		; BDOS fn #37 Reset Drive(s)
+	CALL	CPMBDOS
+	JP	EXIT
+
+
+M$ABORT: CALL	VPRINT
+	DEFB	'   ...aborting...',CR,LF
+	DEFB	0
+	JP	EXIT
+
+
+;::::: HELP SCREEN
+
+HELP:	CALL	VPRINT
+	DEFB	CR,LF,1
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	VPRINT
+	DEFB	2,' exchanges the logical definition '
+	DEFB	'of two physical disk drives',CR,LF
+	DEFB	' or partitions.  Drive letters must be '
+	DEFB	'in the range of "A"-"P".',CR,LF
+	DEFB	' The program is re-executable under '
+	DEFB	'ZCPR with the "GO" command',CR,LF,LF
+	DEFB	' Syntax:    '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	VPRINT
+	DEFB	' <Drv1>[:] <tab| |,> <Drv2>[:]',CR,LF,LF
+	DEFB	' Examples:',CR,LF,'        '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	VPRINT
+	DEFB	' A: E:  - Exchange E drive with A',CR,LF
+	DEFB	'        '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	VPRINT
+	DEFB	' D,H    - Exchange D drive with H',CR,LF
+	DEFB	'        '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	VPRINT
+	DEFB	' //     - display this message',CR,LF
+	DEFB	0
+
+
+;::::: EXIT PROGRAM
+
+EXIT:	LD	SP,(STACK)	; restore stack
+	RET			; ..and return to system
+
+
+;::::: SUPPORT FUNCTIONS
+
+	; "called" as a pseudo-routine that returns to caller
+	;  in: HL= target addr
+JUMPHL: JP	(HL)		; jump to addr in HL regs
+
+
+	; parse nul-terminated string skipping separator chars
+	;  then fall through and check/convert drive letter
+	;  in: HL= ptr to string
+	; out: A= drive number (or <NUL> if invalid letter)
+	;      HL= ptr to byte after end of string
+	;      C-Flag set if <NUL> (end of string) reached
+FINDDRV: LD	A,(HL)		; get byte
+	INC	HL		; move ptr fwd
+	OR	A		; check if <NUL> (zero) = end of string
+	SCF			; prepare status indicator (C-Flag set)
+	RET	Z		; ..if <NUL> byte, return
+	CALL	EVALSEP		; check if byte is a separator
+	JR	NC,FINDDRV	; ..if so, get next char
+				;   else, fall through and check if letter is valid
+
+
+	; evaluate if letter is a valid drive (A..P) and return as number
+	;  in: A= letter to check
+	; out: A= drive number
+	;      C-Flag set if error, NC= ok
+EVALDRV: CP	'A'		; is it lower than ascii 'A' ?
+	RET	C		; ..return with C-Flag already set
+	CP	'P'+1		; is it greater than ascii 'P' ?
+	CCF			; ..reverse C-Flag to set correct status
+	RET	C		;   and return
+	SUB	'A'		; else, convert to number
+	RET
+
+
+	; evaluate char in register A whether it is a separator
+	; (space, comma, colon, tab, zero)
+	;  in: A= char
+	; out: C-Flag set if not separator, NC= char is separator
+EVALSEP: CP	' '		; is it <SP> ?
+	RET	Z
+	CP	','		; Comma ?
+	RET	Z
+	CP	':'		; Colon ?
+	RET	Z
+	CP	TAB		; <TAB> ?
+	RET	Z
+	OR	A		; <NUL> (zero) ?
+	RET	Z
+	SCF			; set C-Flag
+	RET
+
+
+	; make bit mask for specified drive #
+	; position of 1-bit represents drive in 16-bit word (similar to Drive Vector)
+	;  in: A= drive number
+	; out: HL= bit mask
+MKDRMSK: LD	HL,1		; set bit 0
+	INC	A		; ahead of loop, increase A
+MKDRMS0: DEC	A		; decrease A
+	RET	Z		; ..if zero, finished
+	ADD	HL,HL		; *2 (shift 1-bit to next position)
+	JR	MKDRMS0		; loop
+
+
+	; make bit masks for new Drive Vector
+	; maintaining a positive (bits set) map, and a negate version (bits reset)
+	;  in: HL= current Drive Vector (from ENV)
+	;      BC= bit mask w/ old position
+	;      DE= bit mask w/ new position
+MKVCMSK: PUSH	BC		; save regs
+	LD	A,B
+	AND	H		; mask high byte
+	LD	B,A		; ..and store result back in B
+	LD	A,C
+	AND	L		; mask low byte
+	OR	B		; check if invalid (= zero), ie. not mapped in Vector
+	POP	BC		; restore regs
+	JR	Z,MKVCMS0	; if invalid drive, jump
+
+	; drive at new position exists in Drive Vector - set bit
+	PUSH	HL
+	LD	HL,(PDRVVCT)
+	LD	A,H		; high byte first
+	OR	D		; ..merge with new position
+	LD	H,A		;   and store result back in H
+	LD	A,L		; low byte
+	OR	E		; ..merge with new position
+	LD	L,A		;   and store result back in L
+	LD	(PDRVVCT),HL	; save final result
+	POP	HL
+	RET
+
+	; drive at new position does _not_ exist in Drive Vector - reset bit
+MKVCMS0: PUSH	HL
+	LD	HL,(NDRVVCT)
+	LD	A,D		; get high byte of new position
+	CPL			; invert it
+	AND	H		; reset corresponding bit
+	LD	H,A		; ..and store result in H
+	LD	A,E		; get low byte of new position
+	CPL			; invert it
+	AND	L		; reset corresponding bit
+	LD	L,A		; ..and store result in L
+	LD	(NDRVVCT),HL	; save final result
+	POP	HL
+	RET
+
+
+	; get Quiet Flag from Z3 Environment
+	;  in: -
+	; out: A= Quiet Flag, defaults to A= 0 (not quiet)
+GQFLAG:	LD	HL,(ENVADR)	; get ENV addr
+	LD	A,H		; check if invalid (= zero)
+	OR	L
+	RET	Z		; ..if so, return
+	LD	A,40		;   else, move ptr forward
+	CALL	ADDHLA		;   to Quiet Flag
+	LD	A,(HL)		; get value
+	RET			; ..and return
+
+
+	; add A to HL (result in HL)
+ADDHLA:	ADD	A,L		; add L
+	LD	L,A		; store result in L
+	RET	NC		; ..if no overflow, return
+	INC	H		;   else, increment H
+	RET
+
+
+	; print program name on CON: device
+	; (either the actual name, or fallback to default)
+	; only used by HELP
+PPRGNAM: LD	A,(ENVADR+1)	; get high byte of ENVPTR
+	OR	A		; check if valid (<> zero)
+	JP	NZ,PRTNAME	; ..if so, display actual name
+				;   and let return from there
+	CALL	VPRINT		; else, display default
+	DEFB	'BPSWAP'
+	DEFB	0
+	RET
+
+
+;:::::::::::::::::::::::::::::::::::::::::::::::::::::
+; VLIB - 0x0536
+; Z3LIB - 0x0757
+; SYSLIB - 0x0805
+; end addr 0x0854 (begin DSEG)
+;:::::::::::::::::::::::::::::::::::::::::::::::::::::
+
+
+;::::: RAM STORAGE
+
+	DSEG
+
+PDRVVCT:	DEFW	0	; new Drive Vector
+				; (positive notation, bit _set_ for existing drives)
+NDRVVCT:	DEFW	0	; new Drive Vector
+				; (negative notation, bits _reset_ for existing drives)
+BPBASE:		DEFW	0	; B/P Bios base addr
+DRV1ST:		DEFB	0	; # of first drive
+DRV2ND:		DEFB	0	; # of second drive
+
+		DEFS	40H	; room for stack
+STACK:		DEFW	0	; stack storage location
+
+	END
+
+
+;************************************************************************
+; Remarks jxl:
+;   BPSWAP.COM, included in available B/P Bios package(s), was dis-
+; assembled and extensively commented. Labels are up to seven chars long
+; to comply with M-REL standards. However, it is recommended to use SLR
+; tools that support labels up to sixteen chars.
+;   In its current state, the compiled/linked file matches exactly the
+; original BPSWAP.COM, i.e. no changes to the source were made. There
+; seems to be one bug (marked with "##### BUG") at the beginning of the
+; program.
+;************************************************************************

Source/BPBIOS/UTIL/bpsysgen.z80

@@ -0,0 +1,636 @@
+	TITLE	"Write B/P Bios System to system tracks of a disk"
+;************************************************************************
+;*  B P S Y S G E N							*
+;* Copy B/P Bios based Operating System to system tracks		*
+;*  by Harold F. Bower and Cameron W. Cotrill				*
+;*----------------------------------------------------------------------*
+;* Disassembly:	jxl					Dec 2024	*
+;*		public release 1.0			Apr 2025	*
+;*		see remarks at the end					*
+;*----------------------------------------------------------------------*
+;* LINK with Version 4 libraries: VLIB, Z3LIB, SYSLIB			*
+;*									*
+;* A>Z80ASM BPSYSGEN/RS							*
+;* A>SLRNK BPSYSGEN/N,/A:100,/D:08CD,BPSYSGEN,Z3LIBS/S,SYSLIBS/S,/E	*
+;************************************************************************
+
+VER	EQU	10
+REV	EQU	' '
+
+DATE	MACRO
+	DEFB	'31 Aug 92'
+	ENDM
+
+
+CTRLC	EQU	03H		; Control-C character
+BEL	EQU	07H		; Bell character
+LF	EQU	0AH		; Line Feed character
+CR	EQU	0DH		; Carriage Return character
+
+CPMBIOS	EQU	0		; CP/M BIOS warm boot (JP)
+CPMBDOS	EQU	5		; CP/M BDOS entry point (JP)
+CPMFCB	EQU	5CH		; CP/M standard FCB #1 (+1 filename, +9 filetype)
+CPMFCB2	EQU	6CH		; CP/M standard FCB #2
+
+;  From Z3LIB Get..
+	EXTRN	GETNAME, PRTNAME, Z3INIT, WHRENV
+
+;  From SYSLIB Get..
+	EXTRN	PUTUD, GETUD, SUA, EPRINT, CRLF, CAPINE, CIN, COUT
+
+
+;::::: PROGRAM START
+
+	ORG	100H
+	CSEG
+
+
+BPSYSGEN: JP	START		; bypass header
+	DEFB	'Z3ENV'		; this is a ZCPR3 utility
+	DEFB	1		; show external environment
+
+ENVADR: DEFW	0		; addr of Z3 environment
+
+START:	LD	HL,(CPMBDOS+1)	; BDOS entry as starting point for Z3ENV search
+	CALL	WHRENV		; get Z3 Environment
+	LD	(ENVADR),HL	; ..store it
+	CALL	Z3INIT		; init ENV ptr for Z3LIB modules
+	CALL	GETNAME		; get actual program name
+	CALL	GETQFLG		; check ENV quiet flag
+	AND	A		;   zero means 'verbose' i.e. not quiet
+	JR	NZ,START1	; ..if quiet mode, skip msg
+START0:	CALL	EPRINT
+	DEFB	'B/P SYSGEN Utility V',VER/10+'0','.',VER MOD 10 + '0',REV
+	DATE
+	DEFB	CR,LF,LF
+	DEFB	0
+
+START1:	CALL	PUTUD		; currently logged in drive/user
+	LD	HL,RESDISK	; prepare exit with resetting disk system
+	PUSH	HL		;   by putting addr of 'RESDISK' on stack
+	LD	HL,(CPMBIOS+1)	; get BIOS entry addr
+	LD	A,8*3		; move forward to fn #9 SELDSK
+	CALL	ADDHLA
+	LD	DE,BIOSELD	; ptr to target addr
+	LD	BC,8*3		; bytes to copy (8 JP instructions, 3 bytes each)
+	LDIR			; ..copy
+
+
+	; Evaluate command line (if invalid parameters, switch to interactive mode)
+EVALCMD: LD	HL,CPMFCB	; set ptr to standard FCB #1
+	LD	A,(HL)		; get drive
+	LD	(SRCDRV),A	; ..and store it (SRC)
+	INC	HL		; move ptr forard
+	LD	A,(HL)		; get byte/char
+	CP	'/'		; is this a help request ?
+	JP	Z,HELP		; ..if so, jump display help
+				;   ..and quit (addr of exit routine on stack)
+
+	; syntax:  BPSYSGEN [d:]fn[.ft] [d:]
+	; drive #1 = source, drive #2 = destination
+	LD	A,(CPMFCB2)	; get first byte of standard FCB #2
+	LD	(DSTDRV),A	; store drive # (DEST)
+	LD	(DSTDR2),A	; ..and a copy (as indicator for cmdline input)
+	LD	B,A		; remember value
+	LD	A,(HL)		; get first char of filename in FCB #1
+	CP	' '		; is it <SP> ?
+	JP	NZ,SRCRD0       ; ..if not, jump read sys file
+	LD	A,B		;   else, restore char (from FCB #2)
+	AND	A		; is it <NUL> ?
+	JP	NZ,SRCREAD	; ..if not, jump read sys tracks
+				;   else, no source specified in command line
+				;   (switch to interactive mode)
+	LD	A,(SRCDRV)	; get source drive number
+	LD	(DSTDRV),A	; ..and overwrite destination drive number
+
+
+;::::: SOURCE DRIVE
+
+	; interactive mode
+SRCINP:	CALL	EPRINT
+	DEFB	'Source Drive (CR to skip)? '
+	DEFB	0
+	CALL	CAPINE		; get user input
+	CALL	CRLF
+	CP	CR		; is it <CR> ?
+	JP	Z,SRCRD1	; ..if so, skip
+	SUB	40H		;   else, convert ascii to number
+	LD	(SRCDRV),A	;   ..and store it
+	CALL	EPRINT
+	DEFB	'Place source disk in drive '
+	DEFB	0
+	LD	A,(SRCDRV)	; get source drive number
+	ADD	A,40H		; convert to ascii
+	CALL	COUT		; ..and display it
+	CALL	EPRINT
+	DEFB	': and press return to continue...'
+	DEFB	0
+SRCINP0: CALL	CIN		; get input
+	CP	CTRLC		; is it <Ctrl-C> ?
+	RET	Z		; ..if so, return
+	CP	CR		; <CR> ?
+	JR	NZ,SRCINP0	; ..if not, loop ask for new input
+	CALL	CRLF
+
+
+	; start reading
+SRCREAD: CALL	RDTRACK		; read system tracks of source disk
+	JR	SRCRD1		; ..and skip over
+SRCRD0: CALL	RDFILE		; read system file
+SRCRD1:	CALL	CHKSYS		; check if a valid system was loaded/read
+				;   (fn _not_ implemented, simply returns)
+	JP	NZ,E$NOSYS	; ..if not, jump error and exit
+	LD	A,(DSTDRV)	; get # of destination disk
+	AND	A
+	JP	NZ,DSTINP0	; ..if not empty (= zero), jump to continue
+				;   else, fall through and ask user
+
+
+;::::: DESTINATION DRIVE
+
+	; interactive mode
+DSTINP:	CALL	EPRINT
+	DEFB	CR,LF,'Destination Drive (^C quits)? '
+	DEFB	0
+	CALL	CAPINE		; get user input
+	CP	CTRLC		; is it <Ctrl-C> ?
+	RET	Z		; ..if so, return
+	SUB	40H		;   else, convert ascii to number
+	LD	(DSTDRV),A	;   ..and store it
+	CALL	CRLF
+DSTINP0: LD	A,(DSTDR2)	; get copy of # destination disk
+	AND	A		; check if valid
+	JR	NZ,DSTWRIT  	; ..if so, running in command line mode
+				;   ..continue writing to destination immediately
+				;   else, fall through and ask user for input
+	CALL	EPRINT
+	DEFB	'Place destination disk in drive '
+	DEFB	0
+	LD	A,(DSTDRV)	; get destination drive number
+	ADD	A,40H		; convert to ascii
+	CALL	COUT		; ..and display it
+	CALL	EPRINT
+	DEFB	': and press return to continue...'
+	DEFB	0
+DSTINP1: CALL	CIN		; get input
+	CP	CTRLC		; is it <Ctrl-C> ?
+	RET	Z		; ..if so, return
+	CP	CR		; <CR> ?
+	JR	NZ,DSTINP1    	; ..if not, loop ask for new input
+	CALL	CRLF
+
+
+	; start writing
+	; exit through "RET", addr of RESDISK routine is on stack
+DSTWRIT: CALL	WRTRACK
+	CALL	GETQFLG
+	AND	A		; check if quiet flag is set
+	RET	NZ		; ..if not (= verbose), exit program
+	LD	A,(DSTDR2)	;   else, get copy of # dest. disk (indicator cmdline mode)
+	AND	A		; check if valid
+	RET	NZ		; ..if not, exit program
+	JP	DSTINP		;   else, loop ask for input
+
+
+	; initiate a reset of disk system when returning to system
+RESDISK: LD	C,13		; BDOS fn #13 (reset disk system)
+	CALL	CPMBDOS
+	JP	GETUD		; set Drive/User and let return from there
+
+
+;::::: HELP SCREEN
+
+HELP:	CALL	PRGNAME
+	CALL	EPRINT
+	DEFB	' Places a copy of the operating '
+	DEFB	'system onto the system',CR,LF
+	DEFB	' tracks of  a drive on the system.',CR,LF,LF
+	DEFB	' Syntax:   '
+	DEFB	0
+	CALL	PRGNAME
+	CALL	EPRINT
+	DEFB	' [DIR:[Ufn.Ft]] [D:]',CR,LF,LF
+	DEFB	' Examples:',CR,LF,LF
+	DEFB	'        '
+	DEFB	0
+	CALL	PRGNAME
+	CALL	EPRINT
+	DEFB	'                 - Execute in Interactive Mode',CR,LF
+	DEFB	'        '
+	DEFB	0
+	CALL	PRGNAME
+	CALL	EPRINT
+	DEFB	' A:              - Prompt for Source, '
+	DEFB	'Place System onto A',CR,LF
+	DEFB	'        '
+	DEFB	0
+	CALL	PRGNAME
+	CALL	EPRINT
+	DEFB	' B:ZSDOS64.COM   - Get System from File, '
+	DEFB	'Prompt for Drive',CR,LF
+	DEFB	'        '
+	DEFB	0
+	CALL	PRGNAME
+	CALL	EPRINT
+	DEFB	' A: B:           - Copy System from Drive A '
+	DEFB	'to Drive B',CR,LF
+	DEFB	'        '
+	DEFB	0
+	CALL	PRGNAME
+	CALL	EPRINT
+	DEFB	' //              - display this help',CR,LF
+	DEFB	0
+	RET
+
+
+;::::: SUPPORT FUNCTIONS
+
+	; get Quiet Flag from Z3 Environment
+	;  in: -
+	; out: A= Quiet Flag, defaults to A= 0 (not quiet)
+GETQFLG: LD	HL,(ENVADR)	; get local ENVPTR
+	LD	A,H		; check if invalid (= zero)
+	OR	L
+	RET	Z		; ..if so, return
+	LD	A,40		;   else, move ptr forward
+	CALL	ADDHLA		;   to Quiet Flag
+	LD	A,(HL)		; get value
+	RET			; ..and return
+
+
+	; print program name on CON: device
+	; (either the actual name, or fallback to default)
+	; only used by HELP
+PRGNAME: LD	A,(ENVADR+1)	; get high byte of ENVPTR
+	OR	A		; check if valid (<> zero)
+	JP	NZ,PRTNAME	; ..if so, display actual name
+				;   and let return from there
+	CALL	EPRINT		; else, display default
+	DEFB	'BPSYSGEN'
+	DEFB	0
+	RET
+
+
+	; Read system tracks - source
+RDTRACK: LD	A,(SRCDRV)	; get source drive
+	CALL	SELDRV		; and select it
+	JP	Z,E$SRC		; ..if error, jump
+	LD	(SRCDPH),HL	; store addr of DPH
+	LD	A,10		; move forward to DPB addr
+	CALL	ADDHLA		;   at DPH+10
+	LD	E,(HL)		; get DPB addr in DE
+	INC	HL
+	LD	D,(HL)
+	EX	DE,HL		; swap regs
+	LD	(SRCDPB),HL	; ..and store DPB addr
+	LD	E,(HL)		; get sectors per track in DE
+	INC	HL		;   at DPB+0
+	LD	D,(HL)
+	LD	(SECTTRK),DE	; store value
+	LD	A,12		; move forward to track offset
+	CALL	ADDHLA		;   (beginning of directory) at DPB+13
+	LD	E,(HL)		; get track offset in DE
+	INC	HL
+	LD	D,(HL)
+	LD	A,D		; check upper nybble
+	AND	A		; is it zero ?
+	JP	NZ,RDTRK0	; ..if not, jump to adjust
+	OR	E		; check lower nybble
+	JP	Z,E$NOSYS	; ..if also zero, jump to error and exit
+	CP	4		; check upper limit for # of system tracks
+	JR	C,RDTRK1	; ..if within boundaries, skip over
+RDTRK0:	LD	DE,2		; set (default) # of system tracks
+
+RDTRK1:	LD	B,E		; trk offset in B (counter)
+	LD	DE,(SECTTRK)	; get sect/trk
+	LD	HL,0		; set initial value
+RDTRK2:	ADD	HL,DE		; multiply by addition
+	DJNZ	RDTRK2		; loop till done
+	XOR	A		; nullify A
+	OR	H		; check if H is zero
+	JP	NZ,E$NOSYS	; ..if not, jump error and exit
+	PUSH	HL		; save regs
+	LD	BC,0
+	CALL	BIOSTTR		; set track # 0
+	POP	HL		; restore regs
+	LD	C,H		; move # of sectors containing system
+	LD	B,L		;   to BC (as counter)
+	LD	DE,0		; set intial value
+	LD	HL,FILEBUF	; set target addr to file buffer
+				; (at 0x0900, page-aligned after end of program)
+
+RDTRK3:	PUSH	DE		; save regs
+	PUSH	BC
+	PUSH	HL
+	LD	HL,(SRCDPH)	; get addr of DPH
+	LD	E,(HL)		; get skew table ptr in DE
+	INC	HL
+	LD	D,(HL)
+	CALL	BIOSTRN		; translate logical sector # in BC
+	LD	B,H		; move physical sector # to BC
+	LD	C,L
+	CALL	BIOSTSE		; ..and set (physical) sector
+	POP	BC		; restore target addr
+	PUSH	BC
+	CALL	BIOSTDM		; set as DMA buffer addr
+	CALL	BIOREAD		; read one sector
+	OR	A		; check for error (A <> 0)
+	JP	NZ,E$READ	; ..if error, jump
+	POP	HL		; restore target addr
+	LD	DE,128		; increase by 128 bytes (1 sector)
+	ADD	HL,DE
+	POP	BC		; restore regs / clear stack
+	POP	DE
+	DEC	B		; decrease counter
+	RET	Z		; ..if finished, return
+	INC	C
+	LD	A,C
+	AND	00000011b	; mask lower 2 bits
+	LD	A,'.'
+	CALL	Z,COUT		; display progress every 4 sectors (0.5 kB)
+	LD	A,(SECTTRK)
+	CP	C		; max. # sect/trk reached ?
+	JR	NZ,RDTRK3	; ..if not, loop
+	INC	DE		; increase trk counter
+	LD	C,0		; reset sect counter
+	PUSH	DE		; save regs
+	PUSH	BC
+	PUSH	HL
+	LD	B,D		; copy trk # in BC
+	LD	C,E
+	CALL	BIOSTTR		; ..and set track #
+	POP	HL		; restore regs
+	POP	BC
+	POP	DE
+	JR	RDTRK3		; loop
+
+
+	; Read system file (img) - source
+RDFILE:	LD	A,(ENVADR+1)	; get base addr of ENV
+	AND	A		; check if invalid (= zero)
+	JR	Z,RDFIL0	; ..if no ENV, skip over
+	LD	A,(CPMFCB+0DH)	;   else, get user no from standard FCB #1
+	CALL	SUA		;   ..and log in
+RDFIL0:	LD	DE,CPMFCB	; set ptr to standard FCB #1
+	LD	C,15		; BDOS fn #15 Open File
+	CALL	BDOSSV
+	JP	Z,E$SOPEN
+	LD	HL,32		; ptr to current record
+	ADD	HL,DE
+	LD	(HL),16		; set # of current record
+				; (skip 16 records = 2kB, MOVSYS boot loader code)
+	LD	HL,FILEBUF-128	; set addr of file buffer (-128 ahead of loop)
+
+RDFIL1:	LD	A,128		; move forward by 128 bytes (1 sector)
+	CALL	ADDHLA
+	EX	DE,HL		; swap regs
+	LD	C,26		; BDOS fn #26 Set DMA Address
+	CALL	BDOSSV
+	EX	DE,HL		; swap regs back
+	LD	C,20		; BDOS fn #20 Read Sequentially
+	CALL	BDOSSV
+	DEC	A		; A= 1 returned means EOF, so decrease A
+	JR	Z,RDFIL1	; ..if zero, continue with next sector
+	LD	C,16		; BDOS fn #16 Close File
+	JP	BDOSSV
+
+
+	; Write system tracks - destination
+WRTRACK: LD	A,(DSTDRV)	; get destination drive
+	CALL	SELDRV		; and select it
+	JP	Z,E$DEST	; ..if error, jump and exit
+	LD	(DSTDPH),HL	; store addr of DPH
+	LD	A,10		; move forward to DPB addr
+	CALL	ADDHLA		;   at DPH+10
+	LD	E,(HL)		; get DPB addr in DE
+	INC	HL
+	LD	D,(HL)
+	EX	DE,HL		; swap regs
+	LD	(DSTDPB),HL	; ..and store DPB addr
+	LD	E,(HL)		; get sectors per track in DE
+	INC	HL		;   at DPB+0
+	LD	D,(HL)
+	LD	(SECTTRK),DE	; store value
+	LD	A,12		; move forward to track offset
+	CALL	ADDHLA		;   (beginning of directory) at DPB+13
+	LD	E,(HL)		; get track offset in DE
+	INC	HL
+	LD	D,(HL)
+	LD	A,D		; check upper nybble
+	AND	A		; is it zero ?
+	JP	NZ,WRTRK0	; ..if not, jump to adjust
+	OR	E		; check lower nybble
+	JP	Z,E$NOSYS	; ..if also zero, jump to error and exit
+	CP	4		; check upper limit for # of system tracks
+	JR	C,WRTRK1	; ..if within boundaries, skip over
+
+WRTRK0:	LD	DE,2		; set (default) # of system tracks
+
+WRTRK1:	LD	B,E		; trk offset in B (counter)
+	LD	DE,(SECTTRK)	; get sect/trk
+	LD	HL,0		; set initial value
+WRTRK2:	ADD	HL,DE		; multiply by addition
+	DJNZ	WRTRK2     	; loop till done
+	XOR	A		; nullify A
+	OR	H		; check if H is zero
+	JP	NZ,E$NOSYS	; ..if not, jump error and exit
+	PUSH	HL		; save regs
+	LD	BC,0
+	CALL	BIOSTTR		; set track # 0
+	POP	HL		; save regs
+	LD	C,H		; move # of sectors containing system
+	LD	B,L		;   to BC (as counter)
+	LD	DE,0		; set initial value
+	LD	HL,FILEBUF	; set origin addr (file buffer)
+
+WRTRK3:	PUSH	DE		; save regs
+	PUSH	BC
+	PUSH	HL
+	LD	HL,(DSTDPH)	; get addr of DPH
+	LD	E,(HL)		; get skew table ptr in DE
+	INC	HL
+	LD	D,(HL)
+	CALL	BIOSTRN		; translate logical sector # in BC
+	LD	B,H		; move physical sector # to BC
+	LD	C,L
+	CALL	BIOSTSE		; ..and set (physical) sector
+	POP	BC		; restore origin addr
+	PUSH	BC
+	CALL	BIOSTDM		; set as DMA buffer addr
+	LD	C,0
+	CALL	BIOWRIT		; write one sector
+	OR	A		; check for error (A <> 0)
+	JP	NZ,E$WRITE	; ..if error, jump
+	POP	HL		; restore origin addr
+	LD	DE,128		; ..and increase by 128 bytes (1 sector)
+	ADD	HL,DE
+	POP	BC		; restore regs / clear stack
+	POP	DE
+	DEC	B		; decrease counter
+	JR	NZ,WRTRK4	; ..if not finished, continue
+	LD	C,1		;   else, force write (flush to disk)
+	JP	BIOWRIT		;   ..and let return from there
+
+WRTRK4:	INC	C
+	LD	A,C
+	AND	00000011b	; mask lower 2 bits
+	LD	A,'.'
+	CALL	Z,COUT		; display progress every 4 sectors (0.5 kB)
+	LD	A,(SECTTRK)
+	CP	C		; max. # sect/trk reached ?
+	JR	NZ,WRTRK3	; ..if not, loop
+	INC	DE		; increase trk counter
+	LD	C,0		; reset sect counter
+	PUSH	DE		; save regs
+	PUSH	BC
+	PUSH	HL
+	LD	B,D		; copy trk # in BC
+	LD	C,E
+	CALL	BIOSTTR		; ..and set track
+	POP	HL		; restore regs
+	POP	BC
+	POP	DE
+	JR	WRTRK3		; loop
+
+
+	; check if a valid B/P Bios was loaded
+	; *** function not implemented ***
+	;  in: -
+	; out: Z-Flag set if ok, NZ= error
+CHKSYS:	XOR	A		; always return Z-Flag set
+	RET
+
+
+	; select disk drive
+	;  in: A= drive number (one-based)
+	; out: Z-Flag set if error
+SELDRV:	DEC	A		; -1 to comply with CP/M BIOS standards
+	LD	C,A
+	LD	E,0
+	CALL	BIOSELD		; call BIOS fn #9 directly
+	LD	A,H
+	OR	L
+	RET
+
+
+	; call BDOS saving regs BC, DE, HL
+	; out: A= 0 and Z-Flag set if not found
+BDOSSV:	PUSH	BC
+	PUSH	DE
+	PUSH	HL
+	CALL	CPMBDOS
+	INC	A		; 0xFF --> 0x00 if not found
+	POP	HL
+	POP	DE
+	POP	BC
+	RET
+
+
+	; add A to HL (result in HL)
+ADDHLA:	ADD	A,L		; add L
+	LD	L,A		; store result in L
+	RET	NC		; ..if no overflow, return
+	INC	H		;   else, increment H
+	RET
+
+
+;::::: ERROR MESSAGES
+
+	; display msg on CON: then exit with warm boot
+E$READ:	CALL	EPRINT
+	DEFB	BEL,'*** Read error'
+	DEFB	0
+	JP	EXIT
+
+E$SRC:	CALL	EPRINT
+	DEFB	BEL,'*** Bad source!'
+	DEFB	0
+	JP	EXIT
+
+E$WRITE: CALL	EPRINT
+	DEFB	BEL,'*** Write error'
+	DEFB	0
+	JP	EXIT
+
+E$DEST:	CALL	EPRINT
+	DEFB	BEL,'*** Bad destination!'
+	DEFB	0
+	JP	EXIT
+
+E$NOSYS: CALL	EPRINT
+	DEFB	BEL,'*** No system!'
+	DEFB	0
+	JP	EXIT
+
+E$SOPEN: CALL	EPRINT
+	DEFB	BEL,"*** Can't open source file!"
+	DEFB	0
+
+
+;::::: EXIT PROGRAM
+
+EXIT:	CALL	CRLF
+	LD	HL,0		; set addr
+	JP	(HL)		; and jump to CP/M WBOOT
+
+
+;::::: BIOS JUMPS (for direct calls)
+
+	; area is filled with actual jumps at runtime
+	; to call BIOS fn's directly
+BIOSELD: JP	0		; fn #9 SELDSK select disk
+BIOSTTR: JP	0		; fn #10 SETTRK set track
+BIOSTSE: JP	0		; fn #11 SETSEC set sector
+BIOSTDM: JP	0		; fn #12 SETDMA set buffer addr
+BIOREAD: JP	0		; fn #13 READ read one sector
+BIOWRIT: JP	0		; fn #14 WRITE write one sector
+BIOLIST: JP	0		; fn #15 LISTST list status (not used)
+BIOSTRN: JP	0		; fn #16 SECTRN sector translation
+
+
+
+;::::: RAM STORAGE (not in DSEG !)
+
+SECTTRK:	DEFW	0	; sectors per track (sect/trk), used for src+dst
+SRCDPH:		DEFW	0	; source: addr of Disk Parameter Header (DPH)
+SRCDPB:		DEFW	0	; source: addr of Disk Parameter Block (DPB)
+DSTDPH:		DEFW	0	; destination: addr of DPH
+DSTDPB:		DEFW	0	; destination: addr of DPB
+SRCDRV:		DEFB	0	; source: drive # (from standard FCB #1)
+DSTDRV:		DEFB	0	; destination drive #
+DSTDR2:		DEFB	0	; destination drive # (copy)
+				;   extracted from cmdline, used as indicator for run mode
+
+
+
+;:::::::::::::::::::::::::::::::::::::::::::::::::::::
+; Z3LIB - 0x0735
+; SYSLIB - 0x07e3
+; end addr 0x08cc (DSEG Z3+SYS = 4 bytes)
+;:::::::::::::::::::::::::::::::::::::::::::::::::::::
+
+		; buffer start addr = 0x0900
+FILEBUF:	EQU	$+512-($-BPSYSGEN AND 255)
+
+	DSEG
+
+	END
+
+
+;************************************************************************
+; Remarks jxl:
+;   BPSYSGEN.COM, included in available B/P Bios package(s), was dis-
+; assembled and extensively commented. Labels are up to seven chars long
+; to comply with M-REL standards. However, it is recommended to use SLR
+; tools that support labels up to sixteen chars.
+;   In its current state, the compiled/linked file matches exactly the
+; original BPSYSGEN.COM, i.e. no changes to the source were made.
+;   The program is pretty straightforward. It supports a command line
+; mode and an interactive mode. (Code portions for the latter are pretty
+; short.) Functionality to check if the running system is valid, was
+; not implemented. Since other B/P Bios tools perform such checks, this
+; is rather surprising.
+;   An interesting approach was used to end the program and literally
+; return to the system. The address of RESDISK routine is pushed on the
+; stack at the very beginning.
+;************************************************************************

Source/BPBIOS/UTIL/confz4.z80

@@ -0,0 +1,489 @@
+	TITLE	"ZCPR 4 Configuration Utility"
+;************************************************************************
+;*  C O N F Z 4								*
+;* Configure ZCPR 4 options						*
+;*  by Harold F. Bower and Cameron W. Cotrill				*
+;*----------------------------------------------------------------------*
+;* Disassembly:	jxl					Jan 2025	*
+;*		public release 1.0			Apr 2025	*
+;*		see remarks at the end					*
+;*----------------------------------------------------------------------*
+;* LINK with Version 4 libraries: Z3LIB, SYSLIB				*
+;*									*
+;* A>Z80ASM CONFZ4/RS							*
+;* A>SLRNK CONFZ4/N,/A:100,/D:080A,CONFZ4,Z3LIBS/S,SYSLIBS/S,/E		*
+;************************************************************************
+
+VER	EQU	10
+REV	EQU	' '
+
+DATE	MACRO
+	DEFB	'18 Nov 95'
+	ENDM
+
+
+BEL	EQU	07H		; Bell character
+BS	EQU	08H		; Backspace character
+TAB	EQU	09H		; Tab character
+LF	EQU	0AH		; Line Feed character
+CR	EQU	0DH		; Carriage Return character
+
+CPMBIOS	EQU	0		; CP/M BIOS warm boot (JP)
+CPMBDOS	EQU	5		; CP/M BDOS entry point (JP)
+CPMFCB	EQU	5CH		; CP/M standard FCB #1 (+1 filename, +9 filetype)
+CPMDMA	EQU	80H		; CP/M standard DMA buffer
+
+
+; From Z3LIB Get..
+	EXTRN	GETNAME, PRTNAME, Z3INIT, WHRENV
+
+; From SYSLIB Get..
+	EXTRN	EPRINT, CRLF, CAPIN, PA2HC, COUT
+
+
+;::::: PROGRAM START
+
+	ORG	100H
+	CSEG
+
+
+CONFZ4:	JP	START		; bypass header
+	DEFB	'Z3ENV'		; this is a ZCPR3 utility
+	DEFB	1		; show external environment
+
+ENVADR: DEFW	0		; addr of Z3 environment
+	DEFW	CONFZ4		; type 4 filler
+
+	DEFB	'CONFZ41 ',0	; configuration name
+
+START:	LD	(STACK),SP
+	LD	SP,STACK
+	CALL	EPRINT
+	DEFB	'B/P System Command Processor Configuration  V'
+	DEFB	VER/10+'0','.',VER MOD 10 + '0',REV,' '
+	DATE
+	DEFB	CR,LF
+	DEFB	0
+
+	CALL	INITZ3		; find Z3ENV and check Wheel Byte
+	CALL	GETNAME		; get actual program name
+	CALL	CHKHLP		; check if help was requested
+	SUB	' '		; ##### convert to ... ??
+	LD	(UNUSED1),A	; #####  and store (not used at all)
+	CALL	CHKSYS		; check if running B/P Bios
+	LD	HL,(BPCNFG)	; addr CONFIG area
+	INC	HL		; move ptr fwd
+	INC	HL
+	LD	A,(HL)		; get option flags (OPTF1)
+	AND	00000001B	; mask bit 0 (0= unbanked, 1= banked)
+	LD	(BPBNKD),A	; store indicator
+	JR	NZ,CHKXENV	; ..if banked, jump to continue
+	CALL	EPRINT		;   else, display msg and exit
+	DEFB	CR,LF,'+++ Not Banked System..aborting...!',BEL
+	DEFB	0
+	JP	EXIT
+
+	; check for extended environment
+CHKXENV: INC	HL		; move ptr fwd
+	INC	HL
+	INC	HL
+	LD	A,(HL)		; get first system bank (SYSBNK)
+	LD	(SYSBNK),A	; store it
+	LD	HL,(ENVADR)	; addr ENV
+	LD	DE,8		; offset to type
+	ADD	HL,DE		; move ptr
+	BIT	7,(HL)		; check high bit (= 0x80+ for extended Z3ENV)
+	JR	NZ,CHKVERS	; ..if set, jump to continue
+	CALL	EPRINT
+	DEFB	CR,LF,'+++ Not Extended Environment..aborting..!',BEL
+	DEFB	0
+	JP	EXIT
+
+	; check ZCPR version
+CHKVERS
+	LD	DE,55		; offset addr CPR (8+55 = 63)
+	ADD	HL,DE		; move ptr
+	LD	E,(HL)		; get addr in DE
+	INC	HL
+	LD	D,(HL)
+	LD	HL,5		; offset to version byte in ZCPR 4.x
+				;   (code starts with JP.., JR.., VERSION)
+	ADD	HL,DE		; move ptr
+	LD	A,(HL)		; get byte
+	CP	41H		; is it 4.1 (or higher) ?
+	JR	NC,PVRSION	; ..if so, jump to continue
+	PUSH	AF		;   else, display error msg and exit
+	CALL	EPRINT
+	DEFB	CR,LF,BEL,"+++ Can't Configure Vers : "
+	DEFB	0
+	POP	AF
+	CALL	PA2HC
+	CALL	EPRINT
+	DEFB	' of Command Processor!'
+	DEFB	0
+	JP	EXIT
+
+	; display version
+PVRSION: PUSH	AF
+	CALL	EPRINT
+	DEFB	CR,LF,' Configuring Options for CPR Version : '
+	DEFB	0
+	POP	AF		; restore version #
+	PUSH	AF
+	RRCA			; rotate upper nybble to lower
+	RRCA			;   (major version #)
+	RRCA
+	RRCA
+	AND	00001111B	; mask lower nybble
+	ADD	A,'0'		; ..and convert to ascii
+	CALL	COUT		; display major version #
+	LD	A,'.'
+	CALL	COUT
+	POP	AF		; restore version #
+	AND	00001111B	; mask lower nybble
+	ADD	A,'0'		; ..and convert to ascii
+	CALL	COUT		; display minor version #
+	CALL	CRLF
+	LD	DE,10		; move forward by another 10 bytes
+	ADD	HL,DE		;   (in Z40-1.Z80 three bytes are defined as 'Space 
+				;    reserved for expansion' - this is the last byte)
+	LD	(PFLGADR),HL	; store addr
+
+	; branch interactive/cmdline mode
+	LD	A,(CPMFCB+1)	; get first char from cmdline
+	CP	' '		; is it <SP> ?
+	JP	NZ,EVALCMD	; ..if not, jump cmdline mode
+	CALL	EPRINT		;   else, interactive mode
+	DEFB	CR,LF,'Turn Time ON in Prompt Line ([Y]/N)? : '
+	DEFB	0
+	CALL	CAPIN		; get user input
+	LD	BC,0FE01H	; default to ON, European format
+				;   ( 11111110 00000001 B )
+	CP	'N'		; is it 'N' ?
+	JR	NZ,RUNIMOD	; ..if not, skip over
+	LD	C,0		;   else, clear C (indicating OFF)
+
+	; run interactive mode
+RUNIMOD: CALL	SETOPTB		; set byte
+	CALL	EPRINT
+	DEFB	CR,LF,'US (mm/dd/yy) or European (dd.mm.yy) Dates ([U]/E) : '
+	DEFB	0
+	CALL	CAPIN		; get user input
+	LD	BC,0FD00H	; default to US format
+				;   ( 11111101 00000000 B )
+	CP	'E'		; is it 'E' ?
+	JR	NZ,RUNIM0	; ..if not, skip over
+	LD	C,00000010B	;   else, set European format
+RUNIM0:	CALL	SETOPTB		; set byte
+	JP	EXIT
+
+	; evaluate command line
+EVALCMD: LD	HL,CPMDMA
+	LD	A,(HL)		; get # of chars
+	INC	HL		; set ptr to start of cmdline
+	PUSH	HL		; save regs
+	CALL	ADDHLA		; move ptr to end of cmdline
+	LD	(HL),0		; set <NUL> terminator
+	POP	HL		; restore start of cmdline
+	CALL	SKPWHSP		; skip any whitespace at the beginning
+	LD	A,(HL)		; get char
+	CP	'/'		; is it option char ?
+	JR	NZ,ECMD0	; ..if not, skip over
+	INC	HL		;   else, move ptr forward
+ECMD0:	LD	A,(HL)		; get byte
+	OR	A
+	JR	Z,ECMD1		; ..if zero, jump and exit
+	CALL	CMPRMPT		;   else, attempt processing option
+	JR	ECMD0		;   ..and loop
+
+ECMD1:	JP	EXIT
+
+
+	; cmdline: /T[+|-] Toggle Time in Prompt
+	; option byte, bit 0 = 0 off / 1 on
+	;
+	; cmdline: /U /E  US/Europe format
+	; option byte, bit 1 = 0 US / 1 European
+
+	; process prompt on/off
+CMPRMPT: CP	'T'		; is char 'T' (Toggle) ?
+	JR	NZ,CMFORMT	; ..if not, try processing format option
+	INC	HL
+	LD	C,00000001B	; prepare for ON
+	LD	A,(HL)		; get next char
+	CP	'+'		; is it '+' ?
+	JR	Z,CMPRMP0	; ..if so, skip over
+	LD	C,00000000B	;   else, prepare for OFF
+	CP	'-'		; is it '-' ?
+	JR	NZ,CMFORMT	; ..if not, rather check format
+CMPRMP0: LD	B,11111110B	;   default to European format
+
+CMSETOP: CALL	SETOPTB		; set
+CMSETX:	INC	HL		; move ptr fwd
+	RET			; ..and exit
+
+	; process format
+CMFORMT: LD	B,11111101B	; default to ON (else, format wouldn't make sense)
+	LD	C,00000010B	; prepare for European
+	CP	'E'		; is it 'E' ?
+	JR	Z,CMSETOP	; ..if so, set byte
+	LD	C,00000000B	;   else, prepare for US
+	CP	'U'		; is it 'U' ?
+	JR	Z,CMSETOP	; ..if so, set byte
+	JR	CMSETX		; jump exit
+
+
+	; set option byte
+	;  in: B= format (US/European)
+	;      C= on/off
+SETOPTB: EX	DE,HL		; swap regs (save HL)
+	LD	HL,(PFLGADR)	; addr of Prompt flag in ZCPR4 config area
+	LD	A,(HL)		; get byte
+	AND	B		; apply format setting
+	OR	C		; merge on/off setting
+	LD	(HL),A		; ..and save byte
+	LD	HL,010FH	; offset to option byte in SYSBNK
+	CALL	GETFRB		; get current setting
+	AND	B		; apply format setting
+	OR	C		; merge on/off setting
+	CALL	SETINB		; ..and write back
+	EX	DE,HL
+	RET
+
+
+	; check if help was requested
+	; get first token from command line (in FCB #1)
+CHKHLP:	LD	HL,CPMFCB+1
+	LD	A,(HL)		; get char
+	CP	'/'		; is this a help request ?
+	RET	NZ		; ..if not, return
+	INC	HL		; move ptr fwd
+	LD	A,(HL)		; check following char
+	CP	'/'		; if it is also '/'
+	RET	NZ		; ..if not, return
+				; else, fall through and show help screen
+
+
+;::::: HELP SCREEN
+
+HELP:	CALL	EPRINT
+	DEFB	CR,LF,'  '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	' Configure Running B/P Command Processor Options.',CR,LF,LF
+	DEFB	' Syntax:',CR,LF,'       '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	'          - Configure in Interactive Mode',CR,LF,'       '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	' /T[+|-]  - Toggle Time in Prompt [Set On/Off]',CR,LF,'       '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	' /E       - Display Date in European (dd.mm.yy) form',CR,LF,'       '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	' /U       - Display Date in US (mm/dd/yy) form',CR,LF,'       '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	' //   - display this screen',CR,LF,LF
+	DEFB	'   Arguments may be combined as:',CR,LF,'       '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	' /T+U     - Turn Time On, US-style Date Display',CR,LF,LF
+	DEFB	'This program will only run in Banked B/P Systems.',CR,LF
+	DEFB	0
+
+
+;::::: EXIT PROGRAM
+
+EXIT:	CALL	CRLF
+	LD	SP,(STACK)	; restore stack
+	RET			; ..and return to system
+
+
+;::::: SUPPORT FUNCTIONS
+
+	; init Z3ENV and check Wheel byte
+	; if not successful, exit program
+INITZ3:	LD	HL,(CPMBDOS+1)
+	CALL	WHRENV		; find Z3 Environment Descriptor
+	LD	(ENVADR),HL	; store ENV addr
+	LD	A,H		; check if invalid (= zero)
+	OR	L
+	JP	Z,E$BPBIO	; ..if so, jump exit
+	CALL	Z3INIT		; init for Z3LIB routines
+	LD	A,41		; offset to addr wheel byte (Z3WHL)
+	CALL	ADDHLA		; move ptr fwd
+	LD	E,(HL)		; get addr in DE
+	INC	HL
+	LD	D,(HL)
+	EX	DE,HL		; swap regs
+	LD	A,(HL)		; get value of wheel byte
+	AND	A		; check if zero
+	RET	NZ		; ..if not ON, return
+	CALL	EPRINT		;   else, display message and exit
+	DEFB	BEL,CR,LF,'Must be wheel to Execute !',CR,LF
+	DEFB	0
+	JR	EXIT
+
+
+	; check if running under B/P Bios
+	; if not, program is terminated
+CHKSYS:	LD	HL,(CPMBIOS+1)	; get warm boot addr (BIOS fn #1)
+	LD	L,30*3		; adjust ptr to fn #30
+	LD	A,(HL)		; check byte at ptr location
+	CP	0C3H		; is it opcode 0xC3 (JP) ?
+	JR	NZ,E$BPBIO	; ..if not, jump error and exit
+	CALL	JUMPHL		;   else, "call" B/P Bios fn #30 (RETBIO)
+	LD	(BPADDR),BC	; store base addr of B/P Bios
+	LD	(BPCNFG),DE	;   "   config area addr
+	LD	HL,-6		; move ptr 6 bytes backward
+	ADD	HL,DE		;   (signature string)
+	LD	A,(HL)		; get byte
+	CP	'B'		; is it 'B' ?
+	JR	NZ,E$BPBIO	; ..if not, jump error and exit
+	INC	HL
+	LD	A,(HL)		; get next byte
+	CP	'/'		; is it '/' ?
+	JR	NZ,E$BPBIO	; ..if not, jump error and exit
+	INC	HL
+	LD	A,(HL)		; and get next byte
+	CP	'P'		; is it 'P' ?
+	RET	Z		; ..if so, return
+				;   else, fall through (error and exit)
+
+
+	; error msg
+E$BPBIO: CALL	EPRINT
+	DEFB	CR,LF,BEL,'Not B/P Bios, aborting...!',CR,LF
+	DEFB	0
+	RST	0
+
+
+	; print program name on CON: device
+	; (either the actual name, or fallback to default)
+	; only used by HELP
+PPRGNAM: LD	A,(ENVADR+1)	; get high byte of local ENVPTR
+	OR	A		; check if valid (<> zero)
+	JP	NZ,PRTNAME	; ..if so, display actual name
+				;   and let return from there
+	CALL	EPRINT		; else, display default
+	DEFB	'SIZERAM'	; apparently wrong :-)
+	DEFB	0
+	RET
+
+
+	; skip whitespace (<SP> or <TAB>)
+	;  in: HL= ptr to string
+	; out: HL= ptr to first char <> whitespace
+SKPWHSP: DEC	HL		; prior to loop, set ptr back
+SKPWH0:	INC	HL		; move ptr fwd
+	LD	A,(HL)		; get byte
+	CP	' '		; is it <SP> ?
+	JR	Z,SKPWH0	; ..if so, loop
+	CP	TAB		; is it <TAB> ?
+	JR	Z,SKPWH0	; ..if so, loop
+	RET			;   else, return
+
+
+	; add A to HL (result in HL)
+ADDHLA:	ADD	A,L		; add L
+	LD	L,A		; store result in L
+	RET	NC		; ..if no overflow, return
+	INC	H		;   else, increment H
+	RET
+
+
+	; the following routines rearrange Top of Stack by injecting an
+	; intermediate return addr, and putting the Bios fn call on top
+	; so that HL regs are preserved
+	; order of steps:
+	;   [1]  HL (= addr) is pushed onto stack
+	;   [2]  intermediate return addr is swapped to Top of Stack
+	;   [3]  HL (= addr) is pushed onto stack again
+	;   [4]  Bios fn JP addr is swapped to Top of Stack
+	;   [5]  Bios is "called" through RET, and returns to intermediate addr
+
+	; get byte from ram bank (in C) - in the form LD A,(HL)
+	;  in: HL= addr
+	; out: A= byte
+GETFRB:	PUSH	BC
+	PUSH	HL		; save addr
+	LD	BC,(SYSBNK)	; C= System Bank, B= not used
+	LD	HL,GETFRB0	; load return addr
+	EX	(SP),HL		; put it on stack
+	PUSH	HL		; save HL again (previous top of stack)
+	LD	HL,(BPADDR)	; get B/P Bios base addr
+	LD	L,35*3		; adjust ptr to fn #35 (FRGETB)
+	EX	(SP),HL		; put addr on stack
+	RET			; ..and "call" Bios fn through stack
+
+GETFRB0: POP	BC		; restore regs
+	RET			; ..and finally return
+
+	; set byte in ram bank (in C) - in the form LD (HL),A
+	;  in: HL= addr,  A= byte to set
+SETINB:	PUSH	BC
+	PUSH	HL		; save addr
+	LD	BC,(SYSBNK)
+	LD	HL,GETFRB0	; load return addr
+	EX	(SP),HL		; put it on stack
+	PUSH	HL		; save HL again (previous top of stack)
+	LD	HL,(BPADDR)	; get B/P Bios base addr
+	LD	L,37*3		; adjust ptr to fn #37 (FRPUTB)
+	EX	(SP),HL
+	RET			; ..and "call" Bios fn through stack
+
+
+	; "called" as a pseudo-routine that returns to caller
+	;  in: HL= target addr
+JUMPHL:	JP	(HL)		; jump to addr in HL regs
+
+
+;::::: RAM STORAGE (_no_ DSEG !)
+
+PFLGADR:	DEFW	0	; addr of Prompt flag (last reserved option byte)
+SYSBNK:		DEFB	0	; beginning of System Bank(s)
+UNUSED1:	DEFB	0	; #####
+BPADDR:		DEFW	0	; base addr B/P Bios
+BPCNFG:		DEFW	0	; addr of B/P Bios CONFIG area
+BPBNKD:		DEFB	0	; indicator banked system
+				; (bit 0 of OPTF1, 0= unbanked, 1= banked)
+
+		DEFS	30H	; room for stack
+STACK:		DEFW	0	; stack storage location
+
+
+	END
+
+
+;:::::::::::::::::::::::::::::::::::::::::::::::::::::
+; Z3LIB - 0x06b4
+; SYSLIB - 0x0762
+; end addr 0x080a (begin DSEG of LIB's)
+;:::::::::::::::::::::::::::::::::::::::::::::::::::::
+
+
+;************************************************************************
+; Remarks jxl:
+;   CONFZ4.COM, included in available B/P Bios package(s), was dis-
+; assembled and extensively commented. Labels are up to seven chars long
+; to comply with M-REL standards. However, it is recommended to use SLR
+; tools that support labels up to sixteen chars.
+;   In its current state, the compiled/linked file matches exactly the
+; original CONFZ4.COM, i.e. no changes to the source were made. Possible
+; optimisations detected during disassembly are marked with "#####" in the
+; comment.
+;   The program seems to be in an early stage as it does not comply with
+; general coding standards seen by HFB/CWC. For instance, no DSEG is used.
+; Only 2 options can be configured with this program. It is not known
+; whether provisions were made in ZCPR v4.1 for further options.
+;************************************************************************

Source/BPBIOS/UTIL/hashini.z80

@@ -0,0 +1,752 @@
+	TITLE	"HASHINI Drive Utility"
+;************************************************************************
+;*  H A S H I N I							*
+;* Set Drive Volume Name and Init for File Stamps			*
+;*  by Harold F. Bower and Cameron W. Cotrill				*
+;*----------------------------------------------------------------------*
+;* Disassembly:	jxl					Mar 2025	*
+;*		public release 1.0			Apr 2025	*
+;*		see remarks at the end					*
+;*----------------------------------------------------------------------*
+;* LINK with Version 4 libraries: Z3LIB, SYSLIB				*
+;*									*
+;* A>Z80ASM HASHINI/RS							*
+;* A>SLRNK HASHINI/N,/A:100,/D:09E5,HASHINI,Z3LIBS/S,SYSLIBS/S,/E	*
+;************************************************************************
+
+VER	EQU	02
+REV	EQU	' '
+
+DATE	MACRO
+	DEFB	'12 Sep 93'
+	ENDM
+
+
+CTRLC	EQU	03H		; Control-C character
+BEL	EQU	07H		; Bell character
+BS	EQU	08H		; Backspace character
+TAB	EQU	09H		; Tab character
+LF	EQU	0AH		; Line Feed character
+CR	EQU	0DH		; Carriage Return character
+ESC	EQU	1BH		; Escape character
+
+CPMBIOS	EQU	0		; CP/M BIOS warm boot (JP)
+CPMBDOS	EQU	5		; CP/M BDOS entry point (JP)
+CPMFCB	EQU	5CH		; CP/M standard FCB #1 (+1 filename, +9 filetype)
+CPMFCB2	EQU	6CH		; CP/M standard FCB #2
+CPMDMA	EQU	80H		; CP/M standard DMA buffer
+
+
+; From Z3LIB Get..
+	EXTRN	GETNAME, PRTNAME, GETQUIET, Z3INIT
+
+; From SYSLIB Get..
+	EXTRN	BLINE, EPRINT, CRLF, CAPIN, COUT, CODEND
+
+
+;::::: PROGRAM START
+
+	ORG	100H
+	CSEG
+
+
+HASHINI: JP	START		; bypass header
+	DEFB	'Z3ENV'		; this is a ZCPR3 utility
+	DEFB	1		; show external environment
+	DEFB	1
+
+ENVADR: DEFW	0		; addr of Z3 environment
+
+	DEFB	1
+	DEFB	'HASHINI '
+	DEFB	0
+
+	; config area (for ZNCFG.COM)
+CFGAREA: DEFB	0		; default value for program quiet flag
+	DEFB	0FFH
+
+START:	LD	(STACK),SP	; save stack
+	LD	SP,STACK
+	CALL	Z3INIT		; init ENVPTR for Z3LIB routines
+	CALL	GETNAME		; get ptr to program name
+	CALL	GETQUIET	; check ENV quiet flag
+	LD	HL,CFGAREA	; ptr to config area
+	OR	(HL)		; merge flags (ENV + program)
+	LD	(PRGQFLG),A	; store program quiet flag
+	CALL	EPRINT
+	DEFB	CR,LF,'Initialize Volume Label and File Stamps   Ver '
+	DEFB	VER/10+'0','.',VER MOD 10 + '0',REV,'  '
+	DATE
+	DEFB	CR,LF
+	DEFB	0
+	LD	C,25		; get current disk (BDOS fn #25)
+	CALL	CPMBDOS
+	LD	(OLDDRV),A	; remember drive #
+	CALL	EVALCMD		; evaluate command line
+	JR	INITWSPC
+
+
+;::::: MAIN LOOP
+
+START0:	LD	SP,STACK	; reset stack pointer
+	CALL	EPRINT
+	DEFB	CR,LF,LF,'Initialize another Disk?  (Y/[N]) : '
+	DEFB	0
+	CALL	CINPUT		; get user input
+	CP	'Y'		; is it 'Y' ?
+	JP	NZ,EXIT		; ..if not, jump to exit
+	CALL	SELODRV		; restore previously logged drive
+	CALL	CRLF
+	OR	0FFH		; from now on run interactively
+
+	; init workspace (ram storage)
+INITWSPC: LD	(RUNMODE),A	; store mode
+	LD	HL,WSPC		; clear workspace data area
+	LD	B,(STACK-WSPC)-3
+	CALL	FILLZ
+
+
+;::::: DISK DRIVE
+
+GETDISK: LD	A,(RUNMODE)	; get mode
+	OR	A		; running in cmdline mode ?
+	JR	Z,GETVOLN	; ..if so, drive is known, jump to continue
+
+	; interactive mode - ask for disk to initialize
+IMDISK:	CALL	EPRINT
+	DEFB	CR,LF,LF,'Initialize which Disk for '
+	DEFB	0
+	LD	A,(STMPTYP)	; stamp format indicator
+	OR	A		; is it P2Dos ?
+	JR	NZ,IMDISK1	; ..if not, jump to continue
+	CALL	EPRINT		; display chosen format
+	DEFB	'P2DOS'
+	DEFB	0
+	JR	IMDISK2		; skip over
+IMDISK1: CALL	EPRINT
+	DEFB	'NZTIME'
+	DEFB	0
+
+IMDISK2: CALL	EPRINT
+	DEFB	' Date/Time Stamps? : '
+	DEFB	0
+	CALL	CINPUT		; get user input
+	CP	'A'		; disk drive letter must be
+	JR	C,IMDISK3	;   between 'A' and 'P'
+	CP	'P'+1
+	JR	C,IMDISK4
+IMDISK3: CALL	EPRINT		; else, notify user and loop
+	DEFB	BEL,BS,' ',BS
+	DEFB	0
+	JR	IMDISK
+
+IMDISK4: LD	(CURRDSK),A	; store disk drive letter
+
+
+;::::: VOLUME NAME
+
+GETVOLN: LD	A,(VOLNAME)
+	OR	A
+	JR	NZ,IMVOLN3
+
+	; interactive mode - ask for volume name
+IMVOLN:	CALL	EPRINT
+	DEFB	CR,LF,'Enter Volume Name [1-11 chars] : '
+	DEFB	0
+	LD	HL,CPMDMA	; set ptr to standard buffer
+	LD	(HL),11		; prepare char count (max. 11 chars)
+	XOR	A		; clear A
+	LD	(CPMDMA+1),A	; prepare end-of-string
+	DEC	A		; let capitalize (A= non-zero)
+	CALL	BLINE		; get user input
+	LD	A,(HL)		; check char count
+	OR	A		; is it empty string (nothing entered) ?
+	JR	Z,IMVOLN	; ..if so, loop
+	LD	DE,VOLNAME	; point to volname buffer
+IMVOLN1: LD	A,(HL)		; get char
+	LDI			; ..and copy over
+	OR	A		; end of string ?
+	JR	NZ,IMVOLN1	; ..if not, loop
+
+IMVOLN3: LD	A,(PRGQFLG)	; get program quiet flag
+	OR	A		; running in quiet mode ?
+	JR	Z,DSKPROC	; ..if so, skip over
+	CALL	EPRINT
+	DEFB	CR,LF,'     Confirm Initialize Drive '
+	DEFB	0
+	LD	A,(CURRDSK)
+	CALL	COUT
+	CALL	EPRINT
+	DEFB	': (Y/[N]) '
+	DEFB	0
+	CALL	CINPUT		; get user input
+	CP	'Y'
+	JP	NZ,FINISH
+
+
+;::::: PROCESS DISK
+
+DSKPROC: LD	A,(CURRDSK)	; get current disk drive letter
+	SUB	'A'		; make numeric
+	PUSH	AF		; save regs
+	LD	E,A		; drive # in E
+	CALL	BDSELD		; select disk drive (BDOS call)
+	CALL	EPRINT		; display warning
+	DEFB	BEL,CR,LF,'+++ Existing Files will be ERASED! +++'
+	DEFB	CR,LF,' --- Proceed anyway (Y/[N]) : '
+	DEFB	0
+
+	CALL	CINPUT		; get user input
+	CP	'Y'		; is it 'Y' ?
+	JP	NZ,FINISH	; ..if not, jump to finish processing
+	POP	AF		; restore regs
+	LD	C,A		; drive # in C
+	CALL	BIOSELD		; select disk drive (BIOS call)
+	LD	A,H		; check if DPH addr is valid
+	OR	L
+	JP	Z,E$DRVILL	; ..if not, jump display error msg and exit
+
+	; get parameters of current disk drive
+	LD	E,(HL)		; get addr of skew table in DE
+	INC	HL
+	LD	D,(HL)
+	LD	(SKEWTBL),DE	; and store value
+	LD	DE,9
+	ADD	HL,DE		; move ptr fwd (to DPH+10)
+	LD	E,(HL)		; addr of DPB in DE
+	INC	HL
+	LD	D,(HL)
+	PUSH	DE		; move addr to IX
+	POP	IX
+
+	; ??? ##### CODEND not used
+	CALL	CODEND		; get first free memory page addr in HL
+
+	LD	D,(IX+8)	; get DirMax in DE
+	LD	E,(IX+7)	;   (max. dir entries -1)
+	INC	DE		; +1
+	LD	(DIRMAX),DE	; store value
+	SRL	D		; /2
+	RR	E
+	SRL	D		; /4
+	RR	E
+	LD	(STMPMAX),DE	; store value
+				; (1 stamp dir entry for 4 file dir entries)
+	LD	BC,0
+	LD	HL,CPMDMA	; set to standard buffer
+	PUSH	DE		; save regs
+	PUSH	BC
+	LD	DE,VOLNAME	; ptr to volume name
+	LD	A,(DE)		; get char
+	OR	A		; is it zero ? (<NUL> means empty string)
+	LD	B,3*32		; prepare counter for 3 stamp entries
+	JR	Z,MKSTMP	; ..if no volume name, jump to continue
+
+	; make a volume name entry
+	; HL= ptr to standard buffer, DE= ptr to VOLNAME
+	; B= char count, C= char
+	LD	(HL),020H	; set first byte of dir entry (user area)
+				; to 0x20 - indicates time stamp
+	INC	HL		; move ptr fwd
+	LD	B,11		; number of chars
+MKVOLN:	LD	A,(DE)		; get VOLNAME char in A
+	LD	C,' '		; prepare for <NUL> byte
+	OR	A		; end of string ?
+	JR	Z,MKVOLN1	; ..if so, skip over
+	LD	C,A		;   else, get char in C
+	INC	DE		; move VOLNAME ptr forward
+MKVOLN1: LD	(HL),C		; copy char to buffer
+	INC	HL		; move ptr fwd
+	DJNZ	MKVOLN		; loop till done
+	LD	B,32-12		; clear remaining bytes of stamp entry
+	CALL	FILLZ
+	LD	B,2*32		; fill next 2 stamp entries
+
+	; make a stamp entry and write to dir
+MKSTMP:	LD	A,0E5H		; CP/M default byte for free dir entries
+	CALL	FILLA		; fill stamp entries
+	LD	A,(STMPTYP)	; get chosen stamp format (0x00 = P2Dos, 0xFF = NZTime)
+	OR	A		; ..and check
+	LD	A,021H		; prepare for P2Dos
+	JR	Z,MKSTMP1	; ..if so, skip over
+	LD	A,0A1H		;   else, prepare for NZTime
+MKSTMP1: LD	(HL),A		; store byte
+	INC	HL		; move ptr fwd
+	LD	B,32-1		; ..and clear remaining bytes of stamp entry
+	CALL	FILLZ
+	POP	BC		; restore regs
+	POP	DE
+	CALL	PVBOSE		; if verbose mode, display msg
+	DEFB	CR,LF,'...Writing Initialized Directory...'
+	DEFB	0
+
+	LD	DE,0		; initial start #
+	LD	(STMPCUR),DE	; set # of current stamp entry
+	CALL	WRSTMP		; ..and write stamp to directory
+	LD	HL,CPMDMA	; reset ptr to begin of standard buffer
+	LD	A,0E5H		; clear first part of stamp entry
+	LD	B,32
+	CALL	FILLA
+MKSTMP2: CALL	WRSTMP		; ..and write next stamp entry
+	LD	HL,(STMPCUR)	; get current #
+	LD	DE,(STMPMAX)	; get max. #
+	OR	A		; clear flags
+	SBC	HL,DE		; check if all entries were written
+	ADD	HL,DE
+	JR	NZ,MKSTMP2	; ..if not, loop
+	LD	BC,1		; set C= 1 to indicate Directory Write (forced)
+	CALL	BIOWRIT		; ..and perform through BIOS
+	JP	DSKDONE
+
+
+	; display help and exit
+HLPEXIT: XOR	A		; clear A
+	LD	(RUNMODE),A	; ..and store mode (cmdline)
+	JR	HELP
+
+E$DRVILL: CALL	EPRINT		; display error msg and fall through
+	DEFB	CR,LF,LF,BEL,'Illegal drive name'
+	DEFB	0
+
+
+;::::: HELP
+
+HELP:	CALL	EPRINT
+	DEFB	CR,LF,'Usage: Set Drive Volume Name & '
+	DEFB	'Initialize for P2Dos/NzTime file stamps',CR,LF,LF
+	DEFB	'Syntax:',CR,LF,TAB
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	' [d:][volname] [/][P | Z | Q]',CR,LF
+	DEFB	'Examples:',CR,LF,TAB
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	TAB,'- Enter Interactive Mode',CR,LF,TAB
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	' /P',TAB,'- Init Drive interactively w/P2D stamps',CR,LF,TAB
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	' d:',TAB,'- Initialize drive "d" w/default Stamp',CR,LF,TAB
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	' d:name',TAB,'- Init drive "d" adding Vol ID "name"',CR,LF,TAB
+	DEFB	TAB,TAB,'   file with default Stamps',CR,LF,TAB
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	' d: ZQ',TAB,'- Init drive "d" for NZTime Stamps',CR,LF,TAB
+	DEFB	TAB,TAB,'   suppressing unneeded messages',CR,LF,TAB
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	' //',TAB,'- Display this message',CR,LF,LF
+	DEFB	'Note: ZCNFG may be used to configure a flag to suppress',CR,LF
+	DEFB	'      drive confirmation prompt and status messages',CR,LF
+	DEFB	0
+
+	JP	FINISH
+
+
+	; print program name on CON: device
+	; (either the actual name, or fallback to default)
+	; only used by HELP
+PPRGNAM: LD	A,(ENVADR)	; get high byte of ENV ptr
+	OR	A		; check if valid (<> zero)
+	JP	NZ,PRTNAME	; ..if so, display actual name
+				;   and let return from there
+	CALL	EPRINT		; else, display default name
+	DEFB	'HASHINI'
+	DEFB	0
+	RET
+
+
+	; write a stamp entry to directory
+	;  in: IX= ptr DPB
+	;      STMPCUR= # of current stamp entry
+WRSTMP:	PUSH	BC		; save regs
+	PUSH	DE
+	PUSH	HL
+	LD	HL,0
+	LD	BC,(STMPCUR)	; get # of current stamp entry
+	LD	D,(IX+1)	; get sectors per track (DPB+0)
+	LD	E,(IX+0)
+	LD	A,17		; set counter
+
+	; determine track # (in BC) and sector # (in HL)
+WRSTMP1: OR	A		; clear flags
+	SBC	HL,DE		; divide by subtraction
+	CCF			; inverse C-flag
+	JR	C,WRSTMP2
+	ADD	HL,DE		; compensate overflow
+	OR	A		; clear flags
+WRSTMP2: RL	C		; divide BC by 2 (track #)
+	RL	B
+	DEC	A		; decrease counter
+	JR	Z,WRSTMP3	; ..if zero, exit loop
+	RL	L		;   else, also divide HL by 2 (sector #)
+	RL	H
+	JR	WRSTMP1		; and continue
+
+WRSTMP3: PUSH	HL		; save (log.) sector #
+	LD	H,(IX+14)	; get track offset (# sys tracks)
+	LD	L,(IX+13)
+	ADD	HL,BC		; add to calculated track #
+	LD	B,H
+	LD	C,L
+	CALL	BIOSTTR		; set track
+	POP	BC		; restore (log.) sector #
+	LD	DE,(SKEWTBL)	; get addr of skew table
+	CALL	BIOSTRN		; translate logical to physical sector
+	LD	B,H
+	LD	C,L
+	CALL	BIOSTSE		; set (phys.) sector
+	LD	BC,CPMDMA	; set buffer addr
+	CALL	BIOSTDM
+	LD	BC,0		; set C= 0 to indicate Unallocated Write
+	CALL	BIOWRIT		; ..and perform through BIOS
+	OR	A		; check for error
+	JR	Z,WRSTMPX	; ..if not, jump to exit subroutine
+	CALL	EPRINT		;   else, display msg
+	DEFB	CR,LF,BEL,'Directory write error'
+	DEFB	0
+	JR	FINISH
+
+WRSTMPX: LD	BC,(STMPCUR)	; get current stamp #
+	INC	BC		; increase
+	LD	(STMPCUR),BC	; ..and save again
+	POP	HL		; restore regs
+	POP	DE
+	POP	BC
+	RET
+
+
+	; select disk drive that was logged at start of program
+	; using BIOS fn first, then BDOS fn
+SELODRV: LD	A,(OLDDRV)	; get # of old logged disk drive
+	LD	C,A		; in C
+	LD	B,0
+	PUSH	BC		; save it
+	LD	DE,1		; ???  ##### not necessary
+	CALL	BIOSELD		; select disk drive (through BIOS)
+	POP	DE		; restore drive # in E
+				; ..and fall through
+
+
+	; call BDOS fn #14 SELDSK
+	;  in: E= drive #
+BDSELD:	LD	C,14
+	JP	CPMBDOS		; jump BDOS and let return from there
+
+
+;::::: FINISH PROCESSING DISK
+
+FINISH:	CALL	SELODRV		; restore previously logged drive
+				; ..and fall through
+
+DSKDONE: LD	A,(CURRDSK)
+	SUB	40H		; make numeric
+	LD	B,A		; use value as counter
+	SCF			; set C-flag
+	LD	HL,0		; start with all bits cleared
+DSKDN0:	ADC	HL,HL		; shift Carry bit into position
+	DJNZ	DSKDN0		; loop till done
+	EX	DE,HL		; bit mask in DE (selected disk drive)
+	LD	C,37		; BDOS fn #37 RESDSK reset disk system
+	CALL	CPMBDOS
+	LD	A,(RUNMODE)	; get mode
+	OR	A		; running in cmdline mode ?
+	JP	NZ,START0	; ..if not, loop for next drive
+				;   else, fall through and exit
+
+
+;::::: EXIT PROGRAM
+
+EXIT:	LD	SP,(STACK)	; restore stack
+	RET			; ..and return to system
+
+
+;::::: SUPPORT FUNCTIONS
+
+	; EVALCMD Evaluate command line
+	; based on tokens provided by CP/M parser in FCB #1/#2
+	;  in: A= # of current drive
+	; out: A= 0x00 cmdline mode, 0xFF interactive mode
+	; Syntax: [d:][volname] [/][P | Z | Q]
+EVALCMD: XOR	A		; clear A
+	LD	(CURRDSK),A	; ..and variables
+	LD	(RUNMODE),A
+	LD	HL,CPMFCB	; set ptr to standard FCB #1
+	LD	A,(HL)		; get drive #
+	OR	A		; check if zero
+	JR	Z,ECMD1		; ..if so, skip over
+	ADD	A,40H		;   else, make ascii
+	CP	'P'+1		; check if valid
+	JR	NC,ECMD1	; ..if not, skip over
+	LD	(CURRDSK),A	;   else, save disk drive letter
+ECMD1
+	INC	HL		; move ptr fwd
+	LD	A,(HL)		; get char
+	LD	DE,VOLNAME	; ptr to buffer for volume name
+	LD	B,11		; max. 11 chars
+	CP	' '		; is it <SP> ?
+	JR	Z,ECMD2		; ..if so, jump to continue
+	CP	'/'		; is it option or help request ?
+	JR	NZ,ECMD1V	; ..if not, jump to copy volume name
+	INC	HL		; else, move ptr fwd
+	CP	(HL)		; and check next char
+	JP	Z,HLPEXIT	; ..if also '/', jump to display help
+	JR	ECMD3OPT	;   else, this char indicates an option
+
+	; volume name found, copy it
+ECMD1V0: LD	A,(HL)		; get char
+ECMD1V:	CP	' '		; is it <SP> ?
+	JR	Z,ECMD2		; ..if so, jump to continue
+	LD	(DE),A		; save char in VOLNAME buffer
+	INC	DE		; move both ptr's forward
+	INC	HL
+	DJNZ	ECMD1V0		; loop till done
+
+	; eval 2nd cmdline token (FCB #2)
+ECMD2:	XOR	A		; clear A
+	LD	(DE),A		; store in VOLNAME to indicate no name
+	LD	HL,CPMFCB2+1	; set ptr to standard FCB #2, after drive letter
+	LD	A,(HL)		; get char
+	CP	'/'		; is it option or help request ?
+	JR	NZ,ECMD3OPT	; ..if not, letter must be an option, so skip over
+	INC	HL		; else, move ptr fwd
+	CP	(HL)		; and check next char
+	JP	Z,HLPEXIT	; ..if also '/', jump to display help
+
+	; eval option and done
+ECMD3OPT: CALL	EVLOPT		; eval option
+	RET	NZ		; if error, switch to interactive mode and return
+				;   else, continue final check
+	LD	HL,CPMFCB	; set ptr to standard FCB #1
+	LD	A,(HL)		; get byte
+	OR	A		; is it zero ?
+	JR	Z,ECMDIM	; ..if so, jump done (interactive mode)
+	INC	HL		; move ptr fwd
+	LD	A,(HL)		; get char
+	CP	' '		; is it <SP> ?
+	JR	NZ,ECMDCM	; ..if not, jump done (cmdline mode)
+	LD	A,(CPMFCB2+1)	; get char of 2nd token
+	CP	' '		; is it <SP> ?
+	JR	NZ,ECMDCM	; ..if not, jump done (cmdline mode)
+				;   else, fall through (interactive mode)
+
+ECMDIM:	OR	0FFH		; set status (interactive mode)
+	RET
+ECMDCM:	XOR	A		; set status (cmdline mode)
+	RET
+
+
+	; evaluate _one_ option on cmdline
+	;  in: HL= ptr to char  (already behind a leading '/')
+	; out: A= 0x00 cmdline mode, 0xFF interactive mode
+	;      Z-flag reset (NZ) in case of error, i.e. interactive mode
+	; possible flags are /Q (quiet),  /P (P2Dos stamps),  /Z (NZTime stamps)
+EVLOPT:	LD	B,7		; max. 7 chars
+
+EVLOPTQ: LD	A,(HL)		; get char
+	CP	'Q'		; option /Q - quiet ?
+	JR	NZ,EVLOPTP	; ..if not, jump to check next option
+	LD	A,(PRGQFLG)	; get program quiet flag
+	XOR	0FFH		; toggle
+	LD	(PRGQFLG),A	; ..and save back
+	JR	EVLONXT		; jump to continue
+
+EVLOPTP: CP	'P'		; option /P - P2Dos stamps ?
+	JR	NZ,EVLOPTZ	; ..if not, jump to check next option
+	XOR	A		; clear A
+	LD	(STMPTYP),A	; ..and store stamp type
+	JR	EVLONXT		; jump to continue
+
+EVLOPTZ: CP	'Z'		; option /Z - NZTime stamps ?
+	JR	NZ,EVLONX1	; ..if not, jump to check for whitespace
+	OR	0FFH		; set A= 0xFF
+	LD	(STMPTYP),A	; store stamp type
+				; ..and fall through to read next char
+
+EVLONXT: INC	HL		; move ptr fwd
+	LD	A,(HL)		; get char
+				; options are separated by whitespace
+EVLONX1: CP	' '		; is it <SP> ?
+	JR	Z,EVLOXIT	; ..if so, jump to exit loop
+	CP	TAB		; is it <TAB> ?
+	JR	Z,EVLOXIT	; ..if so, jump to exit loop
+	JR	NZ,EVLOERR	;   else, invalid option char found
+	DJNZ	EVLOPTQ		; loop till done
+
+EVLOXIT: XOR	A		; set return code 0x00 (clear A and flags)
+	RET
+
+EVLOERR: LD	A,(PRGQFLG)	; get program quiet flag
+	OR	A		; running in verbose mode ?
+	LD	A,BEL
+	CALL	Z,COUT		; ..if so, notify user
+	CALL	EPRINT
+	DEFB	CR,LF,'+++ Unrecognized Option "'
+	DEFB	0
+	LD	A,(HL)
+	CALL	COUT
+	CALL	EPRINT
+	DEFB	'" ... Setting Interactive'
+	DEFB	0
+	OR	0FFH		; set return code 0xFF
+	RET
+
+
+	; get console input
+	; and check for abort request
+CINPUT:	CALL	CAPIN		; get char and capitalize
+	CP	CTRLC		; is it <Ctrl-C> ?
+	JP	Z,EXIT
+	CP	ESC		; is it <ESC> ?
+	JP	Z,EXIT
+	CP	'a'		; below 'a' ?  (not possible, CAPIN capitalizes)
+	RET	C
+	CP	'z'+1		; between lowercase 'a' and lowercase 'z' ?
+	RET	NC
+	AND	01011111b	; remove bit 5 to capitalize
+	RET
+
+
+	; ##### unreferenced code (not used)
+	; copy 32 (0x20) bytes from (HL) to (DE)
+	LD	B,32
+UNUSED1: LD	A,(HL)
+	LD	(DE),A
+	INC	HL
+	INC	DE
+	DJNZ	UNUSED1
+	RET
+	; #####
+
+
+	; fill memory with zero, or byte
+	;  in: A= byte
+	;      B= # of bytes
+	;      HL= target addr
+FILLZ:	XOR	A		; clear A
+FILLA:	LD	(HL),A		; store byte
+	INC	HL		; move ptr fwd
+	DJNZ	FILLA		; loop
+	RET
+
+
+	; verbose print - print string to CON: if quiet flag is off
+	;  in: (Stack) contains start addr of nul-terminated string
+PVBOSE:	LD	A,(PRGQFLG)	; get program quiet flag
+	OR	A		; running in verbose mode ?
+	JP	Z,EPRINT	; ..if so, jump to print and let return from there
+	EX	(SP),HL		;   else, swap HL and top-of-stack
+PVBOSE0: LD	A,(HL)		; get char
+	INC	HL		; move ptr fwd
+	OR	A		; is byte = zero ?
+	JR	NZ,PVBOSE0	; ..if not, loop
+	EX	(SP),HL		;   else, swap back
+	RET
+
+
+	; entry points for indirect BIOS calls
+	; BC is loaded with absolute offset from WBOOT (fn #1)
+	; to respective jump instruction, i.e. 3 bytes per fn
+BIOSELD: PUSH	BC
+	LD	BC,3*8		; fn #9 SELDSK select disk
+	JR	BIOSFN
+
+BIOSTTR: PUSH	BC
+	LD	BC,3*9		; fn #10 SETTRK set track
+	JR	BIOSFN
+
+BIOSTSE: PUSH	BC
+	LD	BC,3*10		; fn #11 SETSEC set sector
+	JR	BIOSFN
+
+BIOSTDM: PUSH	BC
+	LD	BC,3*11		; fn #12 SETDMA set buffer addr
+	JR	BIOSFN
+
+BIOREAD: PUSH	BC
+	LD	BC,3*12		; fn #13 READ read one sector (not used)
+	JR	BIOSFN
+
+BIOWRIT: PUSH	BC
+	LD	BC,3*13		; fn #14 WRITE write one sector
+	JR	BIOSFN
+
+BIOSTRN: PUSH	BC
+	LD	BC,3*15		; fn #16 SECTRN sector translation
+	JR	BIOSFN
+
+
+	; call BIOS fn indirectly
+	;  in: BC= offset to fn in Bios jump table
+BIOSFN:	EX	(SP),HL		; swap HL and top-of-stack (= prev. BC)
+	PUSH	HL		; save HL (prev. BC)
+	LD	HL,(CPMBIOS+1)	; Bios base addr
+	ADD	HL,BC		; add offset to fn #
+	POP	BC		; restore BC
+	EX	(SP),HL		; swap HL and top-of-stack again
+	RET			; "call" by returning to Bios fn
+
+
+UNUSED2:
+	DEFB	0,0,0,0,0,0	; ##### unreferenced chunk of data
+	DEFB	'!!!TIME&DAT'	; obviously not used
+	DEFB	0,0,0,0,0,0,0,0
+	DEFB	0,0,0,0,0,0,0,0
+	DEFB	0,0,0,0,0,0,0,0
+
+
+;:::::::::::::::::::::::::::::::::::::::::::::::::::::
+; Z3LIB - 0x08a7
+; SYSLIB - 0x091a
+; end addr 0x09e5 (begin DSEG)
+;:::::::::::::::::::::::::::::::::::::::::::::::::::::
+
+
+	DSEG
+
+STMPTYP:	DEFB	0	; stamp type flag, 0x00 = P2Dos, 0xFF = NZTime
+PRGQFLG:	DEFB	0	; program quiet flag, 0x00 = verbose
+VOLNAME:	DEFS	12	; buffer for volume name, 11 bytes + <NUL> terminator
+
+RUNMODE:	DEFB	0	; indicator, 0x00 = cmdline mode / 0xFF = interactive mode
+OLDDRV:		DEFB	0	; logged drive at program start
+CURRDSK:	DEFB	0	; current disk drive letter
+
+WSPC:				; workspace starts here
+DIRMAX:		DEFW	0	; max. # of dir entries (from DPH +1)
+STMPMAX:	DEFW	0	; max. # of stamp entries (= DIRMAX / 4)
+STMPCUR:	DEFW	0	; current # of stamp entry (used as counter)
+SKEWTBL:	DEFW	0	; addr of skew table (from DPH)
+
+		DEFS	070H	; room for stack
+STACK:		DEFW	0	; stack storage location
+
+	END
+
+
+;************************************************************************
+; Remarks jxl:
+;   HASHINI.COM, included in available B/P Bios package(s), was dis-
+; assembled and extensively commented. Labels are up to seven chars long
+; to comply with M-REL standards. However, it is recommended to use SLR
+; tools that support labels up to sixteen chars.
+;   In its current state, the compiled/linked file matches exactly the
+; original SHOWHD.COM, i.e. no changes to the source were made. Possible
+; optimisations detected during disassembly are marked with "#####" in the
+; comment. It is fair to say that the program seems to be in an early
+; stage; as the version number indicates. Apparently, provisions were made
+; to test exitence, or even generate a DateStamper !!!TIME&.DAT file
+; (which is not the case right now.)
+;   The program supports an interactive and a command line mode. Labels
+; start with "IM" to indicate code specifically for interactive mode.
+;************************************************************************

Source/BPBIOS/UTIL/ldsys.z80

@@ -0,0 +1,640 @@
+	TITLE	"B/P Bios System Loader"
+;************************************************************************
+;*  L D S Y S								*
+;* Load a B/P Bios based system into RAM memory for direct execution	*
+;*  by Harold F. Bower and Cameron W. Cotrill				*
+;*----------------------------------------------------------------------*
+;* Disassembly:	jxl					Dec 2024	*
+;*		public release 1.0			Apr 2025	*
+;*		see remarks at the end					*
+;*----------------------------------------------------------------------*
+;* LINK with Version 4 libraries: VLIB, Z3LIB, SYSLIB			*
+;*									*
+;* A>Z80ASM LDSYS/RS							*
+;* A>SLRNK LDSYS/N,/A:100,/D:0CF8,LDSYS,VLIBS/S,Z3LIBS/S,SYSLIBS/S,/E	*
+;************************************************************************
+
+VER	EQU	12
+REV	EQU	' '
+
+DATE	MACRO
+	DEFB	'17 Jul 96'
+	ENDM
+
+
+BEL	EQU	07H		; Bell character
+LF	EQU	0AH		; Line Feed character
+CR	EQU	0DH		; Carriage Return character
+
+CPMBDOS	EQU	5		; CP/M BDOS entry point (JP)
+CPMFCB	EQU	5CH		; CP/M standard FCB #1 (+1 filename, +9 filetype)
+CPMDMA	EQU	80H		; CP/M standard DMA buffer
+
+
+; From VLIB Get..
+	EXTRN	VPRINT, Z3VINIT
+
+; From Z3LIB Get..
+	EXTRN	GETNAME, PRTNAME, ZFNAME, Z3LOG, WHRENV
+	EXTRN	GZMTOP		; ##### not used, but linked
+
+; From SYSLIB Get..
+	EXTRN	PUTUD, GETUD, F$OPEN, F$READ, SETDMA, PFN3, PHL4HC, COUT, CODEND
+	EXTRN	F$CLOSE, CRLF	; ##### not used, but linked
+
+
+;::::: PROGRAM START
+
+	ORG	100H
+	CSEG
+
+
+LDSYS:	JP	START		; bypass header
+	DEFB	'Z3ENV'		; this is a ZCPR3 utility
+	DEFB	1		; show external environment
+
+ENVADR: DEFW	0		; addr of Z3 environment
+	DEFW	LDSYS		; type 4 filler
+
+	DEFB	'LDSYS   ',0	; configuration name
+
+FTYPE:	DEFB	'IMG'		; standard file type
+
+START:	LD	(STACK),SP
+	LD	SP,STACK
+	CALL	PUTUD		; currently logged drive/user
+	LD	HL,(CPMBDOS+1)
+	CALL	WHRENV		; find Z3 Environment Descriptor
+	PUSH	AF
+	LD	(ENVADR),HL	; store ENV addr
+	CALL	Z3VINIT		; ..and init for Z3LIB routines
+	CALL	GETNAME		; get actual program name
+	CALL	VPRINT
+	DEFB	CR,LF,1,'B/P Bios System Loader',2,'   Vers ',VER/10+'0','.'
+	DEFB	VER MOD 10 + '0',REV,' '
+	DATE
+	DEFB	CR,LF,' Copyright (C) 1991,3 by H.F.Bower & C.W.Cotrill',CR,LF
+	DEFB	0
+
+	; get first token from command line (in FCB #1)
+	LD	A,(CPMFCB+1)
+	CP	'/'		; is this a help request ?
+	JP	Z,HELP		; ..if so, jump display help screen
+	POP	AF
+	JR	Z,E$NOFIL	;   else, jump error no file specified
+
+	LD	HL,(ENVADR)	; get addr Z3ENV
+	LD	DE,70		; offset to high byte BIOS addr
+	ADD	HL,DE		; move ptr
+	LD	H,(HL)		; get high byte of B/P Bios page addr
+	LD	L,30*3		; ..and set low byte to fn #30
+	LD	A,(HL)		; check byte at ptr location
+	CP	0C3H		; is it opcode 0xC3 (JP) ?
+	JR	NZ,E$NOFIL	; ..if not, jump error and exit
+	CALL	JUMPHL		; else, "call" B/P Bios fn #30 (RETBIO)
+	LD	HL,-6		; move ptr 6 bytes backward
+	ADD	HL,DE		;   (signature string)
+	LD	A,(HL)		; get byte
+	CP	'B'		; is it 'B' ?
+	JR	NZ,E$NOFIL	; ..if not, jump error and exit
+	INC	HL		; ptr fwd
+	LD	A,(HL)		; get byte
+	CP	'/'		; is it '/' ?
+	JR	NZ,E$NOFIL	; ..if not, jump error and exit
+	INC	HL		; ptr fwd
+	LD	A,(HL)		; get byte
+	CP	'P'		; is it 'P' ?
+	JR	NZ,E$NOFIL	; ..if not, jump error and exit
+	LD	DE,6		;   else, set ptr to OPTF1 (Bios Option Flags)
+	ADD	HL,DE		;   at CONFIG+2
+	BIT	7,(HL)		; check bit 7 (0= not locked, 1= locked, can't reload)
+	JR	Z,E$NOFIL	; ..if not set, skip over
+
+
+E$RUNBP: CALL	VPRINT
+	DEFB	CR,LF,BEL,'*** Running Bios Cannot be Replaced ! ***',CR,LF
+	DEFB	0
+	JP	EXIT
+
+E$NOFIL: LD	A,(CPMFCB+1)
+	CP	' '
+	JR	NZ,EVALCMD
+	CALL	VPRINT
+	DEFB	'  *** No file specified ! ***',CR,LF,BEL
+	DEFB	0
+
+
+;::::: EXIT PROGRAM
+
+EXIT:	CALL	GETUD		; set previous drive/user
+	LD	SP,(STACK)	; set stack to initial location
+	RET			; ..and return to system
+
+
+;::::: EVALUATE COMMAND LINE
+
+EVALCMD: LD	DE,CPMFCB
+	LD	HL,CPMDMA+1	; set ptr to start of string
+ECMD1: LD	A,(HL)		; get char
+	INC	HL		; move ptr fwd
+	CP	' '		; is it <SP> ?
+	JR	Z,ECMD1		; ..if so, loop get next char
+	DEC	HL		; non-blank char found, move ptr back
+	XOR	A		;   and nullify A
+	CALL	ZFNAME		; parse token into FCB
+	JP	NZ,E$AMBIG	; filename must be unambiguous, jump if error
+	LD	HL,9		; move ptr to file type
+	ADD	HL,DE
+	LD	A,(HL)		; get char
+	CP	' '		; is it <SP> ?
+	JR	NZ,RDIMG	; ..if not, skip over
+	PUSH	DE		; else, save regs
+	EX	DE,HL		; swap regs
+	LD	HL,FTYPE	; ptr to standard file type
+	LD	BC,3		;   3 chars
+	LDIR			;   ... and copy
+	POP	DE		; restore ptr to ZCPR3 FCB
+
+
+;::::: READ IMAGE FILE
+
+RDIMG:	CALL	Z3LOG		; log in drive/user
+	CALL	F$OPEN		; attempt to open file
+	OR	A
+	JP	NZ,E$OPEN	; ..if error, jump error and exit
+	CALL	CODEND		; get first available page after code end
+	LD	(WSPCBEG),HL	; ..and store it
+RDIMG0: PUSH	HL
+	CALL	SETDMA		; set DMA buffer addr (HL)
+	LD	DE,CPMFCB	; set standard FCB #1
+	CALL	F$READ		; read one sector (128 bytes)
+	POP	HL		; restore start addr
+	JR	NZ,RDIMG1	; ..if end of file, jump exit loop
+	LD	DE,128		; else, move buffer addr forward
+	ADD	HL,DE
+	JR	RDIMG0		; ..and loop
+RDIMG1: CALL	GETUD		; set previously logged drive/user
+	CALL	VPRINT
+	DEFB	CR,LF,' CCP starts at    : '
+	DEFB	0
+
+
+;::::: READ IMAGE HEADER
+
+; header contains information at following offsets:
+; ZCPR CCP	0x10 (16) filename
+; 		0x1B (27) Unbanked base addr, 0x1D (29) Unbanked size
+; 		0x1F (31) Banked base addr,   0x22 (33) Banked size
+; ZSDOS		0x30 (48) filename
+; 		0x3B (59) Unbanked base addr, 0x3D (61) Unbanked size
+; 		0x3F (63) Banked base addr,   0x41 (65) Banked size
+; B/P Bios	0x50 (80) filename
+; 		0x5B (91) Unbanked base addr, 0x5D (93) Unbanked size
+; 		0x5F (95) Banked base addr,   0x62 (98) Banked size
+; 		0x70 (112) IMG filename
+
+RDHDR:	LD	DE,27		; offset CCP Unbanked base addr
+	CALL	PSEGAS		; display addr and size of segment
+	LD	DE,33		; offset CCP Banked size
+	CALL	GBYTEWS		; check if empty (0x0000)
+	JR	Z,RDHDR0	; ..if so, skip over
+	CALL	VPRINT
+	DEFB	'   Banked Ccp at  : '
+	DEFB	0
+	LD	DE,31		; offset to CCP Banked base addr
+	CALL	PSEGAS		; display addr and size
+RDHDR0: CALL	VPRINT
+	DEFB	' DOS starts at    : '
+	DEFB	0
+	LD	DE,59		; offset to DOS Unbanked base addr
+	CALL	PSEGAS		; display addr and size of segment
+	LD	DE,65		; offset to DOS Banked size
+	CALL	GBYTEWS		; check if empty (0x0000)
+	JR	Z,RDHDR1	; ..if so, skip over
+	CALL	VPRINT
+	DEFB	'   Banked Dos at  : '
+	DEFB	0
+	LD	DE,63		; offset to DOS Banked base addr
+	CALL	PSEGAS		; display addr and size
+RDHDR1: CALL	VPRINT
+	DEFB	' BIOS starts at   : '
+	DEFB	0
+	LD	DE,91		; offset to B/P Bios Unbanked base addr
+	CALL	PSEGAS		; display addr and size of segment
+	LD	DE,97		; offset to B/P Bios Banked size
+	CALL	GBYTEWS		; check if empty (0x0000)
+	JR	Z,LDSEG		; ..if so, skip over
+	CALL	VPRINT
+	DEFB	'   Banked Bios at : '
+	DEFB	0
+	LD	DE,95		; offset to B/P Bios Banked base addr
+	CALL	PSEGAS		; display addr and size
+
+
+;::::: LOAD SYSTEM SEGMENTS
+
+LDSEG:	CALL	VPRINT
+	DEFB	CR,LF,' ...installing '
+	DEFB	0
+	CALL	CHKBNKD		; check options flag if banked system
+	JR	Z,LDSEG0	; ..if not, skip over
+	CALL	VPRINT
+	DEFB	'Banked '
+	DEFB	0
+LDSEG0: CALL	VPRINT
+	DEFB	'System',CR,LF,LF
+	DEFB	0
+
+LDSEG1: DI			; disable interrupts
+	LD	HL,(WSPCBEG)	; get addr WSPC area
+	LD	DE,100H		; + 100H to account for file base
+	ADD	HL,DE
+
+	; ZCPR Unbanked portion
+	LD	(CCPUSTRT),HL	; store start in WSPC area
+	LD	DE,27		; file offset to ZCPR Unbanked base addr
+	CALL	G2WRDWS
+	LD	(CCPUSIZ),BC	; store size
+	LD	(CCPUADR),DE	; store base addr
+	LD	HL,(CCPUSTRT)	; get start in WSPC
+	PUSH	HL
+	ADD	HL,BC		; calc end / start of ZSDOS Unbanked portion
+	LD	(DOSUSTRT),HL	; ..and store it
+	POP	HL		; restore start
+	LDIR			; copy ZCPR Unbanked
+				; from img file to target addr
+
+	; ZCPR Banked portion
+	LD	DE,31		; offset to ZCPR Banked base addr
+	CALL	G2WRDWS
+	LD	(CCPBSIZ),BC	; store size
+	LD	(CCPBADR),DE	; store base addr
+	LD	HL,(DOSUSTRT)	; get previously calc'd end
+	LD	(CCPBSTRT),HL	; ..and store it as Banked start in WSPC
+	LD	A,B		; check if size is zero
+	OR	C
+	JR	Z,LDSEG2	; ..if so, skip over
+	ADD	HL,BC		;   else, calc new start of ZSDOS Unbanked
+	LD	(DOSUSTRT),HL	;   ..and update it
+
+	; ZSDOS Unbanked portion
+LDSEG2: LD	DE,59		; offset to ZSDOS Unbanked base addr
+	CALL	G2WRDWS		; DE= base addr, BC= size
+	LD	(DOSUSIZ),BC	; store size
+	LD	HL,(DOSUSTRT)	; get ZSDOS Unbanked start in WSPC area
+	PUSH	HL
+	ADD	HL,BC		; calc end / start of B/P Bios Unbanked portion
+	LD	(BIOUSTRT),HL	; ..and store it
+	POP	HL		; restore start
+	LDIR			; copy ZSDOS Unbanked
+				; from img file to target addr
+
+	; ZSDOS Banked portion
+	LD	DE,63		; offset to ZSDOS Banked base addr
+	CALL	G2WRDWS
+	LD	(DOSBSIZ),BC	; store size
+	LD	(DOSBADR),DE	; store base addr
+	LD	HL,(BIOUSTRT)	; get previously calc'd end
+	LD	(DOSBSTRT),HL	; ..and store it as Banked start in WSPC
+	LD	A,B		; check if size is zero
+	OR	C
+	JR	Z,LDSEG3	; ..if so, skip over
+	ADD	HL,BC		;   else, calc new start of B/P Bios Unbanked
+	LD	(BIOUSTRT),HL	;   ..and update it
+
+	; B/P Bios Unbanked portion
+LDSEG3: LD	DE,91		; offset to B/P Bios Unbanked base addr
+	CALL	G2WRDWS
+	LD	(BIOUSIZ),BC	; store size
+	LD	(BIOUADR),DE	; store base addr
+	LD	HL,(BIOUSTRT)	; get start in WSPC area
+	PUSH	HL
+	ADD	HL,BC		; calc end / beginning of Banked portion
+	LD	(BIOBSTRT),HL	; ..and store it
+	POP	HL		; restore start
+	LDIR			; copy B/P Bios Unbanked
+				; from img file to target addr
+
+	; B/P Bios Banked portion
+	LD	DE,95		; offset to B/P Bios Banked base addr
+	CALL	G2WRDWS
+	LD	(BIOBSIZ),BC	; store size
+	LD	(BIOBADR),DE	; store base addr
+
+	; use B/P Bios functions at new location (Unbanked portion was just loaded)
+	LD	HL,(BIOUADR)	; get (new) B/P Bios base addr
+	LD	L,82h		; offset to TPABNK in config area
+	LD	A,(HL)		; get value
+	LD	L,27*3		; offset to B/P Bios fn #27 (SELMEM)
+	CALL	JUMPHL		; "call" fn
+	LD	HL,CCPBSIZ	; ptr to stored ZCPR Banked size
+	CALL	LDBNKD
+	LD	HL,DOSBSIZ	; ptr to stored ZSDOS Banked size
+	CALL	LDBNKD
+	LD	HL,BIOBSIZ	; ptr to stored B/P Bios Banked size
+	CALL	LDBNKD
+
+	; Z3ENV Descriptor
+	LD	BC,(WSPCBEG)	; get (new) B/P Bios base addr
+	LD	HL,155		; offset to addr of Z3 Environment Descriptor
+	ADD	HL,BC		;   in B/P Bios config area (CONFIG+26)
+	LD	E,(HL)		; get addr in DE
+	INC	HL
+	LD	D,(HL)
+	LD	HL,128		; offset from start of WSPC area (img file)
+	ADD	HL,BC
+	LD	BC,128		; bytes to copy
+	LDIR
+
+	; boot new system
+	LD	SP,80H		; set stack pointer to default
+	XOR	A		; nullify A
+				; ..and fall through, initiating a cold boot
+
+
+;::::: SUPPORT FUNCTIONS
+
+	; call B/P Bios function (at new base addr in RAM)
+	;  in: A= offset to JP (fn # *3)
+BIOSFN: LD	HL,(BIOUADR)	; get (new) B/P Bios base addr
+	LD	L,A		; adjust to JP of fn #
+				; ..and fall through
+
+
+	; "called" as a pseudo-routine that returns to caller
+	;  in: HL= target addr
+JUMPHL:	JP	(HL)		; jump to addr in HL regs
+
+
+	; load banked portions of (new) system from WSPC area to SYSBNK
+	; segment information is stored as consecutive 16-bit words
+	; in the order  <size>  <base addr>  <start addr in WSPC>
+	;  in: HL= ptr to <size>
+	; uses B/P Bios functions at new location (Unbanked portion)
+LDBNKD:	LD	C,(HL)		; get <size> low byte
+	LD	A,C
+	INC	HL		; move ptr fwd
+	LD	B,(HL)		; get <size> high byte
+	INC	HL		; ptr fwd
+	OR	B		; check if <size> is zero
+	RET	Z		; ..if so, return
+
+	PUSH	BC		; save regs
+	PUSH	HL
+	LD	HL,(BIOUADR)	; get (new) B/P Bios base addr
+	LD	L,82H		; offset to TPABNK in config area
+	LD	C,(HL)		; get value
+	INC	HL		; move ptr to SYSBNK
+	LD	B,(HL)		; get value
+	LD	A,29*3		; offset to B/P Bios fn #29 (XMOVE)
+	CALL	BIOSFN
+	POP	DE		; restore regs, DE now ptr to <base addr>
+	POP	BC
+	LD	HL,(BIOUADR)	; get (new) B/P Bios base addr
+	LD	L,25*3		; offset to B/P Bios fn #25 (MOVE)
+	PUSH	HL		; put on stack, so it is called at return
+				;   and let Bios routine return to initial caller
+	EX	DE,HL		; swap regs
+	LD	E,(HL)		; get <base addr> in DE
+	INC	HL
+	LD	D,(HL)
+	INC	HL
+	LD	A,(HL)
+	INC	HL
+	LD	H,(HL)		; get <start addr in WSPC> in HL
+	LD	L,A
+	RET			; ..and call B/P Bios fn #25 (MOVE)
+				;   to copy banked segment to SYSBNK
+
+
+	; get _two_ consecutive 16-bit words from offset addr in WSPC area
+	;  in: DE= offset
+	; out: DE= first value (at addr)
+	;      BC= second value (at addr+2)
+	;      HL= ptr to high byte of second value in WSPC area
+	; uses BC, DE, HL
+G2WRDWS: CALL	G1WRDWS		; get first word in HL
+	EX	DE,HL		; swap regs
+	INC	HL		; move ptr fwd
+	LD	C,(HL)		; get second word in BC
+	INC	HL
+	LD	B,(HL)
+	RET
+
+
+	; print base addr and size of system segment ton CON:
+	;  in: DE= offset in WSPC area
+PSEGAS: CALL	G1WRDWS		; get 16-bit word (in HL) at offset (in DE)
+	CALL	PHL4HC		; ..and print to CON: as hex digits
+	EX	DE,HL		; swap regs
+	INC	HL		; move ptr fwd
+	LD	E,(HL)		; get next 16-bit word in DE
+	INC	HL
+	LD	D,(HL)
+	CALL	VPRINT
+	DEFB	'  ('
+	DEFB	0
+	EX	DE,HL		; swap regs
+	CALL	PHL4HC		; print value (now in HL) to CON: as hex digits
+	CALL	VPRINT
+	DEFB	'H Bytes)',CR,LF
+	DEFB	0
+	RET
+
+
+	; get _one_ 16-bit word from offset addr in WSPC area
+	;  in: DE= offset
+	; out: HL= value
+	;      DE= ptr to high byte in WSPC area
+G1WRDWS: LD	HL,(WSPCBEG)	; addr WSPC area
+	ADD	HL,DE		; add offset
+	LD	E,(HL)		; get low byte at ptr addr in E
+	INC	HL
+	LD	D,(HL)		; get high byte at ptr addr in D
+	EX	DE,HL		; swap regs
+	RET
+
+
+	; get byte from offset addr in WSPC area
+	;  in: DE= offset
+	; out: A= value, Z-Flag set if following byte is eqal
+	;      HL= ptr to next byte in WSPC area
+GBYTEWS: LD	HL,(WSPCBEG)	; addr WSPC area
+	ADD	HL,DE		; add offset
+	LD	A,(HL)		; get byte
+	INC	HL		; move ptr fwd
+	OR	(HL)		; check if next byte has same value
+	RET
+
+
+	; check if img file contains a banked system
+	;  in: -
+	; out: Z-Flag set for Unbanked Bios, NZ= Banked
+CHKBNKD: LD	HL,(WSPCBEG)	; addr WSPC area
+	INC	H		; + 100H to account for file base
+	EX	DE,HL		; swap regs, DE holds result over next calc's
+	LD	BC,29		; offset to ZCPR Unbanked size
+	CALL	SEGTSIZ		; ..add ZCPR size(s) to DE
+	LD	BC,61		; offset to ZSDOS Unbanked size
+	CALL	SEGTSIZ		; ..add ZSDOS size(s) to DE
+	LD	HL,128		; DE= offset to beginning of B/P Bios in
+	ADD	HL,DE		;   img file, move fwd by 128 more bytes
+	LD	A,(HL)		; get B/P Bios options flag OPTF1 (at CONFIG+2)
+	AND	00000001b	; check bit 0, and set Z-Flag accordingly
+	RET
+
+
+	; get total size of a system segment (add Unbanked and Banked sizes)
+	;  in: BC= offset in WSPC area to Unbanked size
+	; out: DE= sum of segment sizes
+SEGTSIZ: LD	HL,(WSPCBEG)	; addr WSPC area
+	ADD	HL,BC		; add offset
+	LD	C,(HL)		; get 16-bit word in BC
+	INC	HL		;   (Unbanked size)
+	LD	B,(HL)
+	EX	DE,HL		; swap regs
+	ADD	HL,BC		; add retrieved value
+	EX	DE,HL		; ..and swap regs back
+	INC	HL		; move ptr 3 bytes fwd
+	INC	HL
+	INC	HL
+	LD	C,(HL)		; get 16-bit value in BC
+	INC	HL		;   (Banked size)
+	LD	B,(HL)
+	EX	DE,HL		; swap regs
+	ADD	HL,BC		; add retrieved value
+	EX	DE,HL		; ..and swap regs back
+	RET
+
+
+;::::: ERROR MESSAGES
+
+E$AMBIG: CALL	VPRINT
+	DEFB	CR,LF,BEL,' --- Ambiguous File: '
+	DEFB	0
+	JR	E$FNAME
+
+E$OPEN:	CALL	VPRINT
+	DEFB	CR,LF,BEL,' --- Error Opening: '
+	DEFB	0
+
+E$FNAME: LD	DE,CPMFCB+1	; ptr to file name in standard FCB #1
+	CALL	PFN3		; print it
+	JP	EXIT
+
+
+;::::: HELP SCREEN
+
+HELP:	CALL	VPRINT
+	DEFB	CR,LF,1
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	VPRINT
+	DEFB	2,' Loads and executes a System image prepared by',CR,LF
+	DEFB	' BPBUILD containing a B/P Bios.',CR,LF,LF
+	DEFB	'  Syntax:',CR,LF
+	DEFB	'     '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	VPRINT
+	DEFB	' //                  - print this message',CR,LF
+	DEFB	'     '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	VPRINT
+	DEFB	' [du|dir:]name[.typ] - load system image',CR,LF,LF
+	DEFB	'  File Type Defaults to "'
+	DEFB	0
+	LD	HL,FTYPE	; ptr to default file type
+	LD	B,3		; # of chars
+HELP0:	LD	A,(HL)		; get char
+	INC	HL		; move ptr fwd
+	CALL	COUT		; display char on CON:
+	DJNZ	HELP0		; ..and loop
+	CALL	VPRINT
+	DEFB	'" if not explicitly entered',CR,LF,LF
+	DEFB	'NOTE: This utility will NOT load a system '
+	DEFB	'if the "Lock" bit in',CR,LF
+	DEFB	'the Option Byte (Bit 7 of CONFIG+2) is Set to "1"',CR,LF
+	DEFB	0
+	JP	EXIT
+
+
+	; print program name on CON: device
+	; (either the actual name, or fallback to default)
+	; only used by HELP
+PPRGNAM: LD	A,(ENVADR+1)	; get high byte of ENVPTR
+	OR	A		; check if valid (<> zero)
+	JP	NZ,PRTNAME	; ..if so, display actual name
+				;     and let return from there
+	CALL	VPRINT		; else, display default
+	DEFB	'LDSYS'
+	DEFB	0
+	RET
+
+
+;:::::::::::::::::::::::::::::::::::::::::::::::::::::
+; VLIB - 0x06db
+; Z3LIB - 0x08fc
+; SYSLIB - 0x0bcf
+; end addr 0x0bf8 (begin DSEG)
+;:::::::::::::::::::::::::::::::::::::::::::::::::::::
+
+
+;::::: RAM STORAGE
+
+	DSEG
+
+WSPCBEG: 	DEFW	0	; begin of workspace
+				; (first available page, returned by CODEND)
+
+				; addresses of new system as extracted from img file
+				; first _Unbanked_, then _Banked_
+BIOUADR:	DEFW	0	; B/P Bios Unbanked base addr
+CCPUADR:	DEFW	0	; ZCPR Unbanked base addr
+CCPUSTRT:	DEFW	0	;               start in WSPC area
+CCPUSIZ:	DEFW	0	;               size
+DOSUSTRT:	DEFW	0	; ZSDOS Unbanked start
+DOSUSIZ:	DEFW	0	;                size
+BIOUSTRT:	DEFW	0	; B/P Bios Unbanked start
+BIOUSIZ:	DEFW	0	;                   size
+
+CCPBSIZ:	DEFW	0	; ZCPR Banked size
+CCPBADR:	DEFW	0	;             base addr
+CCPBSTRT:	DEFW	0	;             start
+DOSBSIZ:	DEFW	0	; ZSDOS Banked size
+DOSBADR:	DEFW	0	;              base addr
+DOSBSTRT:	DEFW	0	;              start
+BIOBSIZ:	DEFW	0	; B/P Bios Banked size
+BIOBADR:	DEFW	0	;                 base addr
+BIOBSTRT:	DEFW	0	;                 start
+
+
+	DEFW	GZMTOP		; reference Z3LIB/SYSLIB routines, so they are linked
+	DEFW	F$CLOSE
+	DEFW	CRLF
+
+		DEFS	30H-6	; room for stack
+				; -6 to account for above ref's
+STACK:		DEFW   0       	; stack storage location
+
+	END
+
+
+;************************************************************************
+; Remarks jxl:
+;   LDSYS.COM, included in available B/P Bios package(s), was dis-
+; assembled and extensively commented. Labels are unique up to the seventh
+; character to comply with M-REL standards. However, it is recommended to
+; use SLR tools that support labels up to sixteen chars.
+;   In its current state, the compiled/linked file _almost_ matches the
+; original LDSYS.COM with the exception of Z3LIB routine GZMTOP, and
+; SYSLIB routines F$CLOSE and CRLF. Even though they are part of the
+; original program, they are neither needed nor referenced. This seems
+; to indicate that other versions of the LIB's were used. To reproduce
+; the original program, the above mentioned routines are referenced (in
+; stack area) to have them included when linking.
+;
+;   As a byproduct of the disassembly, the structure of a B/P Bios image
+; file was documented. This file contains an excerpt.
+;************************************************************************

Source/BPBIOS/UTIL/showhd.z80

@@ -0,0 +1,409 @@
+	TITLE	"B/P Bios HD drive partition display"
+;************************************************************************
+;*  S H O W H D								*
+;* Display DPH and DPB data for making B/P HD Partition data the same	*
+;*  by Harold F. Bower and Cameron W. Cotrill				*
+;*----------------------------------------------------------------------*
+;* Disassembly:	jxl					Jan 2025	*
+;*		public release 1.0			Apr 2025	*
+;*		see remarks at the end					*
+;*----------------------------------------------------------------------*
+;* LINK with Version 4 libraries: SYSLIB				*
+;*									*
+;* A>Z80ASM SHOWHD/RS							*
+;* A>SLRNK SHOWHD/N,/A:100,/D:064D,SHOWHD,SYSLIBS/S,/E			*
+;************************************************************************
+
+VER	EQU	10
+REV	EQU	' '
+
+DATE	MACRO
+	DEFB	'2 Nov 91'
+	ENDM
+
+
+CTRLC	EQU	03H		; Control-C character
+BEL	EQU	07H		; Bell character
+TAB	EQU	09H		; Tab character
+LF	EQU	0AH		; Line Feed character
+CR	EQU	0DH		; Carriage Return character
+ESC	EQU	1BH		; Escape character
+
+CPMBIOS	EQU	0		; CP/M BIOS warm boot (JP)
+CPMFCB	EQU	5CH		; CP/M standard FCB #1 (+1 filename, +9 filetype)
+
+
+; For SYSLIB make visible...
+	PUBLIC	COUT
+
+; From SYSLIB Get..
+	EXTRN	EPRINT, BOUT, CAPINE, PAFDC, PHLFDC, PA2HC
+
+
+;::::: PROGRAM START
+
+	ORG	100H
+	CSEG
+
+
+SHOWHD:	JP	START		; bypass header
+	DEFB	'Z3ENV'		; this is (not really) a Z3CPR utility
+	DEFB	1		; show external environment
+
+ENVADR: DEFW	0		; addr of Z3 environment
+
+START:	LD	(STACK),SP
+	LD	SP,STACK
+	CALL	EPRINT
+	DEFB	CR,LF,'Show Hard Drive Partition Data - '
+	DATE
+	DEFB	CR,LF
+	DEFB	0
+
+	LD	A,(CPMFCB+1)	; check first char of cmdline
+	CP	'/'		; is this a help request ?
+	JP	Z,HELP		; ..if so, jump
+
+START0:	CALL	EPRINT
+	DEFB	CR,LF,'Enter Drive Letter [A..P] : '
+	DEFB	0
+	CALL	CAPINE		; get user input
+	CP	CTRLC		; is it <Ctrl-C> ?
+	JP	Z,0		; ..abort
+	CP	ESC		; is it <ESC> ?
+	JP	Z,0		; ..abort
+	CP	'A'		; below ascii 'A' ?
+	JR	C,START0	; ..if so, loop ask for new input
+	CP	'P'+1		; greater than ascii 'P' ?
+	JR	NC,START0	; ..if so, loop ask for new input
+	LD	(DRLTR),A	; store drive letter
+
+	CALL	EPRINT
+	DEFB	CR,LF,LF,'Drive: '
+	DEFB	0
+	CALL	COUT	; display drive
+	CALL	EPRINT
+	DEFB	CR,LF,TAB,'DPH Info',TAB,TAB,'BPCNFG Info',CR,LF
+	DEFB	0
+
+	CALL	GDPHADR		; get DPH addr for selected Disk drive
+	LD	(DPHADR),HL	; ..and store it
+	LD	A,H		; check if invalid (= zero)
+	OR	L
+	JR	NZ,PDSKDAT	; ..if not, skip over
+	CALL	EPRINT
+	DEFB	CR,LF,BEL,'+++ Invalid Drive : '
+	DEFB	0
+	LD	A,(DRLTR)	; get drive letter
+	CALL	COUT		; ..and display it
+	JP	START0		; then loop to ask for new input
+
+
+;::::: DISPLAY DISK DRIVE DATA
+
+PDSKDAT: LD	DE,10		; offset in DPH to DPB addr
+	ADD	HL,DE
+	LD	E,(HL)		; DPB addr in DE
+	INC	HL
+	LD	D,(HL)
+	EX	DE,HL		; swap regs
+	LD	(DPBADR),HL	; ..and store DPB addr
+	CALL	EPRINT
+	DEFB	CR,LF,LF,'  Sectors/Track  = '
+	DEFB	0
+	LD	E,(HL)		; get Sect/Trk from DPB in DE
+	INC	HL
+	LD	D,(HL)
+	INC	HL
+	EX	DE,HL		; swap regs
+	CALL	PHLFDC		; ..and display (as decimal)
+	SRL	H		; divide by 2
+	RR	L
+	SRL	H		; .. /4
+	RR	L
+	SRL	H		; .. /8
+	RR	L
+	LD	(KBTRK),HL	; store kByte/Trk
+	EX	DE,HL		; swap regs
+	CALL	P2TAB
+	CALL	EPRINT
+	DEFB	'(same)',CR,LF,'  Blk Shift Fctr = '
+	DEFB	0
+	LD	A,(HL)		; get next byte from DPB (= BSH, Block Shift Factor)
+	INC	HL		; move ptr fwd
+	CALL	PAFDC		; display BSH
+	CALL	P2TAB
+	SUB	3		; BSH -3
+	LD	B,A		; use as counter for multiplication
+	LD	(BSH3),A	; ..and also store it
+	LD	A,1		; set initial value
+	JR	Z,PBLKSIZ	; if BSH -3 = 0, skip over
+
+BLKSZLP: ADD	A,A		; *2
+	DJNZ	BLKSZLP		; loop
+
+PBLKSIZ: CALL	PAFDC		; display block size
+				;   (BSH= 3 -> 1k, 4 -> 2k, ... 8 -> 32k)
+	CALL	EPRINT
+	DEFB	'k/Block',CR,LF,'  Block Mask     = '
+	DEFB	0
+	LD	A,(HL)		; next byte from DPB (= BSM, Block Mask)
+	INC	HL
+	CALL	PAFDC		; ..display it
+	CALL	EPRINT
+	DEFB	CR,LF,'  Extent Mask    = '
+	DEFB	0
+	LD	A,(HL)		; next byte from DPB (= EXM, Extent Mask)
+	INC	HL
+	CALL	PAFDC		; ..display it
+	CALL	EPRINT
+	DEFB	CR,LF,'  Disk Blocks-1  = '
+	DEFB	0
+	LD	E,(HL)		; next 16-bit value from DPB in DE
+	INC	HL		;   (= Disk Size in BLS units -1)
+	LD	D,(HL)
+	INC	HL
+	EX	DE,HL		; swap regs
+	CALL	PHLFDC		; display value
+	CALL	P2TAB
+	INC	HL		; +1 (= Disk Size)
+	LD	A,(BSH3)	; get BSH-3
+	LD	B,A		; set as initial loop counter
+	OR	A		; check if zero (means single density 1k/block)
+	LD	A,0		; nullify A
+	JR	Z,PDSKCAP	; ..if already zero, no more calc needed
+
+DSKCLP:	ADD	HL,HL		; double HL (2, 4, 8 etc. k/block)
+	ADC	A,0		;   a power-of-two multiple
+	DJNZ	DSKCLP		;   ..and loop
+	LD	(DCAPH),A	; store disk capacity in kByte
+	LD	(DCAPML),HL	;   as 24-bit value
+
+PDSKCAP: CALL	PDSKSZ		; ..and display it
+	CALL	EPRINT
+	DEFB	'k Total ('
+	DEFB	0
+	PUSH	DE
+	LD	DE,(KBTRK)	; kByte/Trk
+	LD	HL,(DCAPML)	; disk capacity in kByte
+	LD	A,(DCAPH)
+	LD	BC,-1		; set initial counter value
+	OR	A
+
+DSKTRLP: INC	BC		; increase counter (quotient)
+	SBC	HL,DE		; divide by subtraction
+	SBC	A,0		; check for underflow
+	JR	NC,DSKTRLP	; ..and loop while more to go
+
+	LD	H,B		; result in HL
+	LD	L,C
+	CALL	PHLFDC		; ..display it
+	CALL	EPRINT
+	DEFB	' Tracks)'
+	DEFB	0
+	POP	DE		; restore DPB ptr
+	EX	DE,HL		; swap to HL
+	CALL	EPRINT
+	DEFB	CR,LF,'  Max Dirs - 1   = '
+	DEFB	0
+	LD	E,(HL)		; get next 16-bit value from DPB in DE
+	INC	HL		;   (= Dir Max -1)
+	LD	D,(HL)
+	INC	HL
+	EX	DE,HL		; swap regs
+	CALL	PHLFDC		; ..and display value
+	CALL	P2TAB
+	INC	HL		; +1 (= Dir Max)
+	CALL	PHLFDC		; ..and display, too
+	EX	DE,HL
+	CALL	EPRINT
+	DEFB	' Dir Entries',CR,LF,'  Alloc bytes    = '
+	DEFB	0
+	LD	A,(HL)		; next byte from DPB (= AL0, Allocation byte 0)
+	INC	HL
+	LD	D,(HL)		;   (= AL1, Allocation byte 1)
+	INC	HL
+	CALL	PA2HC		; display AL0 as hex
+	CALL	EPRINT
+	DEFB	'H, '
+	DEFB	0
+	LD	A,D		; AL1 in A
+	CALL	PA2HC		; ..and display as hex
+	CALL	EPRINT
+	DEFB	'H',CR,LF,'  Check Size     = '
+	DEFB	0
+	LD	E,(HL)		; next 16-bit value from DPB in DE
+	INC	HL		;   (= CKS, Check Size)
+	LD	D,(HL)
+	INC	HL
+	EX	DE,HL		; swap regs
+	CALL	PHLFDC		; display value
+	EX	DE,HL		; swap regs back
+	CALL	EPRINT
+	DEFB	CR,LF,'  Track Offset   = '
+	DEFB	0
+	LD	E,(HL)		; next 16-bit value from DPB in DE
+	INC	HL		;   (= Track Offset)
+	LD	D,(HL)
+	INC	HL
+	EX	DE,HL		; swap regs
+	CALL	PHLFDC		; display value
+	EX	DE,HL		; swap regs back
+	CALL	P2TAB
+	CALL	EPRINT
+	DEFB	'(same)',CR,LF
+	DEFB	0
+	JP	0		; and exit with Warm Boot
+
+
+	; print 2 tabs on CON:
+P2TAB:	PUSH	AF
+	LD	A,TAB		; <TAB> in A
+	CALL	COUT		; display on CON:
+	CALL	COUT		; 2x
+	POP	AF		; restore
+	RET
+
+
+;::::: HELP
+
+HELP
+	CALL	EPRINT
+	DEFB	CR,LF,'SHOWHD - Display DPH and DPB data for '
+	DEFB	'specified drive for making B/P',CR,LF
+	DEFB	' Hard Drive Partition data the same as '
+	DEFB	'an operating system.',CR,LF,LF
+	DEFB	'  Syntax:',CR,LF,LF
+	DEFB	TAB,'SHOWHD        <-- Execute program interactively',CR,LF
+	DEFB	TAB,'SHOWHD //     <-- Display this message',CR,LF
+	DEFB	0
+	LD	SP,(STACK)
+	RET
+
+
+;::::: SUPPORT FUNCTIONS
+
+	; get addr of Disk Parameter Header (DPH)
+	;  in: Disk drive letter in mem variable
+	; out: HL= addr DPH
+GDPHADR: LD	HL,(CPMBIOS+1)	; addr Bios fn #1 (WBOOT)
+	LD	L,9*3		; adjust ptr to fn #9 (SELDSK)
+	LD	A,(DRLTR)	; get drive letter
+	SUB	'A'		; ..and convert to number
+	LD	C,A		; copy to reg. C (for Bios call)
+	LD	E,0
+	JP	(HL)		; "call" Bios fn #9 and let return from there
+				;   (SELDSK returns DPH addr in HL)
+
+
+	; print disk size to CON: (capacity of a drive in kB)
+	; output as decimal with provision for 3-byte values - see ZXD21.Z80 PRBIG
+	;  in: 24-bit value to print in A,H,L
+PDSKSZ:	PUSH	DE		; save regs
+	PUSH	BC
+	EX	AF,AF'		; swap AF
+	PUSH	AF		; save it
+	EX	AF,AF'		; ..and swap back
+	LD	B,0
+	LD	C,-1		; set initial result
+	LD	DE,86A0H	; 100,000 = 0x0186A0, set lower 2 bytes
+	OR	A		; clear C-Flag
+PDSKSZ0: INC	C		; accumulate count
+	SBC	HL,DE		; subtract lower 2 bytes
+	SBC	A,1		; ..and upper byte
+	JR	NC,PDSKSZ0	; loop till done
+	ADD	HL,DE		; adjust underflow
+	ADC	A,1
+	CALL	PHLD1
+	LD	DE,10000	; print 10000's
+	CALL	PHLD
+	LD	DE,1000		; print 1000's
+	CALL	PHLD
+	LD	DE,100		; print 100's
+	CALL	PHLD
+	LD	DE,10		; print 10's
+	CALL	PHLD
+	LD	A,L		; print 1's
+	CALL	PHLD2
+	POP	AF		; restore regs
+	EX	AF,AF'		; swap
+	POP	BC		; ..and also restore other regs
+	POP	DE
+	RET
+
+
+	; print content of HL to CON: as decimal
+	; divide HL by DE, convert remainder to ascii digit and print it
+	; (similar to SYSLIB's PHLFDC/PHDC1 - see ZXD21.Z80 DECDSP)
+	;  in: HL= value, DE= divisor
+PHLD:	LD	C,-1		; set initial count
+	OR	A		; clear C-Flag
+PHLD0:	INC	C		; accumulate count
+	SBC	HL,DE		; divide by subtraction
+	SBC	A,0
+	JR	NC,PHLD0	; ..and loop while more to go
+	ADD	HL,DE		; compensate underflow
+	ADC	A,0
+PHLD1:	EX	AF,AF'		; swap to retain flags
+	LD	A,C		; get result (quotient)
+	OR	A		; is it zero ?
+	JR	NZ,PHLD2	; ..if not, skip over
+	OR	B		; get prior digit print flag
+	JR	Z,PHLD3		; ..if anything printed yet, jump
+	XOR	A		;   else, print a zero
+PHLD2:	ADD	A,'0'		; convert to ascii
+	LD	B,A		; remember for next loop
+	CALL	COUT		; ..and display it
+PHLD3:	EX	AF,AF'		; swap regs back
+	RET
+
+
+	; intercept COUT to re-route SYSLIB calls to to BOUT
+	;   --> declare COUT as PUBLIC, and do _not_ import from SYSLIB
+COUT:	JP	BOUT
+
+
+;:::::::::::::::::::::::::::::::::::::::::::::::::::::
+; SYSLIB - 0x0530
+; end addr 0x064d (begin DSEG)
+;:::::::::::::::::::::::::::::::::::::::::::::::::::::
+
+
+;::::: RAM STORAGE
+
+	DSEG
+
+KBTRK:		DEFW	0	; kByte/Trk  (Sect/Trk divided by 8)
+BSH3:		DEFB	0	; BSH -3     (Block Shift Factor -3)
+
+				; disk capacity as 24-bit value
+DCAPH:		DEFB	0	; high byte
+DCAPML:		DEFW	0	; middle and low byte
+
+DRLTR:		DEFB	0	; drive letter (entered by user)
+DPHADR:		DEFW	0	; addr DPH     (not used)
+DPBADR:		DEFW	0	; addr DPB     (not used)
+
+		DEFS	30H	; room for stack
+STACK:		DEFW	0	; stack storage location
+
+	END
+
+
+;************************************************************************
+; Remarks jxl:
+;   SHOWHD.COM, included in available B/P Bios package(s), was dis-
+; assembled and extensively commented. Labels are up to seven chars long
+; to comply with M-REL standards. However, it is recommended to use SLR
+; tools that support labels up to sixteen chars.
+;   In its current state, the compiled/linked file matches exactly the
+; original SHOWHD.COM, i.e. no changes to the source were made.
+;
+;   The program is not very complex. However, one thing might be worth
+; to be pointed out: SYSLIB's routine COUT is replaced with an own
+; implementation. While it is just a re-routing to another SYSLIB routine,
+; it shows how simply this can be achieved. Bear in mind that _all_
+; SYSLIB routines calling COUT would now call the local implementation
+; instead. With this technique existing routines can be modified without
+; rewriting them entirely.
+;************************************************************************

Source/BPBIOS/UTIL/sizeram.z80

@@ -0,0 +1,546 @@
+	TITLE	"B/P Bios RAM size display"
+;************************************************************************
+;*  S I Z E R A M							*
+;* Determine size and location of (banked) Memory			*
+;*  by Harold F. Bower and Cameron W. Cotrill				*
+;*----------------------------------------------------------------------*
+;* Disassembly:	jxl					Dec 2024	*
+;*		public release 1.0			Apr 2025	*
+;*		see remarks at the end					*
+;*----------------------------------------------------------------------*
+;* LINK with Version 4 libraries: VLIB, Z3LIB, SYSLIB			*
+;*									*
+;* A>Z80ASM SIZERAM/RS							*
+;* A>SLRNK SIZERAM/N,/A:100,/D:0750,SIZERAM,VLIBS/S,Z3LIBS/S,SYSLIBS/S,/E *
+;************************************************************************
+
+VER	EQU	12
+REV	EQU	' '
+
+DATE	MACRO
+	DEFB	'30 Aug 01'
+	ENDM
+
+
+BEL	EQU	07H		; Bell character
+LF	EQU	0AH		; Line Feed character
+CR	EQU	0DH		; Carriage Return character
+
+CPMBIOS	EQU	0		; CP/M BIOS warm boot (JP)
+CPMBDOS	EQU	5		; CP/M BDOS entry point (JP)
+CPMFCB	EQU	5CH		; CP/M standard FCB #1 (+1 filename, +9 filetype)
+
+
+; From Z3LIB Get..
+	EXTRN	GETNAME, PRTNAME, Z3INIT, WHRENV
+
+; From SYSLIB Get..
+	EXTRN	EPRINT, CRLF, PAFDC, PHLFDC, COUT, CODEND
+
+
+;::::: PROGRAM START
+
+	ORG	100H
+	CSEG
+
+
+SIZERAM: JP	START		; bypass header
+	DEFB	'Z3ENV'		; this is a ZCPR3 utility
+	DEFB	1		; show external environment
+
+ENVADR: DEFW	0		; addr of Z3 environment
+	DEFW	SIZERAM		; type 4 filler
+
+	DEFB	'SIZERAM ',0	; configuration name
+
+START:	LD	(STACK),SP
+	LD	SP,STACK
+	CALL	EPRINT
+	DEFB	'B/P Banked RAM Sizing Utility   V',VER/10+'0','.'
+	DEFB	VER MOD 10 + '0',REV,' '
+	DATE
+	DEFB	CR,LF
+	DEFB	0
+	CALL	CHKZ3E		; check if Z3 Environment is valid
+	CALL	GETNAME		; get actual program name
+	CALL	CHKHELP		; check cmdline for help request
+	CALL	CHKSYS		; check if running under B/P Bios
+	CALL	M$BVER		; display version # msg
+	LD	HL,(BPCNFG)	; get addr of config area
+	INC	HL		; move ptr fwd
+	INC	HL
+	LD	A,(HL)		; get OPTF1 (option flag at CONFIG+2)
+	AND	00000001b	; mask bit 0
+	LD	(BPBNKD),A	; ..and store it
+	JP	NZ,BNKDSYS	; if banked, jump to continue
+
+
+;::::: NON-BANKED SYSTEM
+
+NBNKSYS: INC	HL		; move ptr to TPABNK in config area
+	INC	HL
+	CALL	EPRINT
+	DEFB	CR,LF,LF,'Non-Banked System using TPA Banks = '
+	DEFB	0
+	LD	A,(HL)		; get value
+	PUSH	AF
+	CALL	PAFDC		; ..and display
+	LD	A,'/'
+	CALL	COUT
+	POP	AF		; restore value
+	INC	A		; increase it
+	CALL	PAFDC		; ..and display
+	CALL	CRLF
+	JP	EXIT
+
+
+;::::: BANKED SYSTEM
+
+BNKDSYS: INC	HL		; move ptr to UABNK in config area
+	LD	DE,UABNK	; ..and make local copies
+	LD	BC,5		;   (5 bytes, UABNK..MAXBNK)
+	LDIR
+	CALL	CODEND		; get first available page after code end
+	LD	(WSPCBEG),HL	;   and store it
+	EX	DE,HL		; swap regs
+
+	; memory read/write tests for all ram banks at addr 0x0000
+	; building a map in WSPC area: b1= zero if no bank found, b2= initially read byte
+
+	; test #1: 0x00/0xFF byte - iterate over banks in forward order
+	LD	HL,0		; set addr 0x0000
+	LD	C,0		; start with bank #0 (TPA)
+MEMRW:	CALL	GETFRB		; get byte
+	LD	B,A		; store in B
+	CPL			; invert (complement) byte
+	CALL	SETINB		; write it back
+	CALL	GETFRB		; read again
+	CPL			; ..and invert
+	XOR	B		; xor'd with initially read byte
+	JR	NZ,MEMRW0	; ..if no match, skip over
+	LD	A,B		; get initially read byte
+	CALL	SETINB		; write it
+	CALL	GETFRB		;   and read again
+	SUB	B		; subtract initially read byte
+	JR	NZ,MEMRW0	; ..if not zero, skip over
+
+				; injected opcode 0xF6 (OR n) to skip following XOR A
+	DEFB	0F6h		; = OR 0AFH  (write non-zero)
+MEMRW0:	XOR	A		; nullify A
+	LD	(DE),A		; store in WSPC area
+	INC	DE		; move ptr fwd
+	LD	A,B		; get initially read byte
+	LD	(DE),A		; store it, too
+	INC	DE		; move ptr fwd
+	INC	C		; bank # +1
+	JR	NZ,MEMRW	; ..loop till all possible (256 / 0x100) banks tested
+
+	; test #2: write no. in each bank (iterate backward), then read and compare (forward)
+	DEC	C		; correct bank # (loop was 1 ahead)
+MEMWRB:	DEC	DE		; move ptr back
+	DEC	DE
+	LD	A,(DE)		; get byte
+	OR	A		; check if bank exists
+	JR	Z,MEMWRB0	; ..if not, skip over
+	LD	A,C		;   else, get bank #
+	CALL	SETINB		; and write in bank
+MEMWRB0: LD	A,C		; get bank #
+	SUB	1		; -1
+	LD	C,A		; set bank #
+	JR	NC,MEMWRB	; ..if not below zero, loop
+	INC	C		; correct bank #
+
+MEMRDB:	LD	A,(DE)		; get byte from WSPC area
+	OR	A		; check if bank exists
+	JR	Z,MEMRDB0	; ..if not, skip over
+	CALL	GETFRB		; read byte from bank
+	CP	C		; compare to bank #
+	JR	Z,MEMRDB0	; ..if match, skip over
+	XOR	A		;   else, set <NUL> as indicator
+	LD	(DE),A		;   that bank doesn't exist
+MEMRDB0: INC	DE		; move ptr fwd
+	INC	DE
+	INC	C		; bank # +1
+	JR	NZ,MEMRDB	; ..loop till all possible (256 / 0x100) banks tested
+
+	; restore bytes initially read in all banks
+	LD	DE,(WSPCBEG)	; set ptr to start of WSPC addr
+MEMRST:	LD	A,(DE)		; get byte
+	OR	A		; check bank exists
+	JR	Z,MEMRST0	; ..if not, skip over
+	INC	DE		; move ptr fwd
+	LD	A,(DE)		; get initially read byte
+	CALL	SETINB		; ..and restore it
+	INC	DE		; ptr fwd
+	JR	MEMRST1		; skip over
+MEMRST0: INC	DE		; ptr fwd
+	INC	DE
+MEMRST1: INC	C		; bank # +1
+	JR	NZ,MEMRST	; loop till done
+				; ..then fall through to display collected data
+
+
+	; display information for Banked System
+	; detect ranges of continuous ram banks
+	;
+	;  HL= ptr in WSPC area
+	;  C= counter (up) bank #,  B= counter (down) for outer loop
+	;  D= bank # begin of range, E= bank # end of range
+	LD	BC,0
+	LD	HL,(WSPCBEG)	; set ptr to start of WSPC addr
+BRANGLP: LD	A,(HL)		; get byte
+	OR	A		; check bank exists
+	JR	NZ,BRANGE	; ..if so, skip over
+	INC	HL		;   else, use a shorter loop
+	INC	HL		;   ..move ptr fwd
+	INC	C		;   ..and bank #
+	JR	NZ,BRANGLP	; loop until max. reached (256 / 0x100)
+	JR	PCNFIG		;   else, display Bios config report
+
+BRANGE: LD	D,C		; store start of range (bank # in D)
+BRANG0:	INC	HL		; ptr fwd
+	INC	HL
+	INC	C		; bank # +1
+	JR	NZ,BRANG1	; ..if not max., skip over
+	DEC	B
+	JR	PBRANG		;   else, display bank ranges
+
+BRANG1: LD	A,(HL)		; get byte
+	OR	A		; check bank exists
+	JR	NZ,BRANG0	; ..if so, loop
+				;   else, fall through
+
+	; display collected information
+PBRANG:	LD	E,C		; get current bank # in E
+	DEC	E		; loop is ahead, so -1
+	CALL	EPRINT
+	DEFB	CR,LF,'RAM Banks '
+	DEFB	0
+	LD	A,D		; get begin of range
+	CALL	PAFDC		; ..and display it
+	CALL	EPRINT
+	DEFB	' - '
+	DEFB	0
+	LD	A,E		; get end of range
+	CALL	PAFDC		; ..and display it
+	CALL	EPRINT
+	DEFB	'  ('
+	DEFB	0
+	LD	A,E		; get end of range
+	INC	A		; adjust for correct calc
+	SUB	D		; calc difference of begin/end
+	PUSH	HL
+	LD	L,A		; get value in L
+	LD	H,0		; ..and multiply for display
+	ADD	HL,HL		; *2
+	ADD	HL,HL		; *4
+	ADD	HL,HL		; *8
+	ADD	HL,HL		; *16
+	ADD	HL,HL		; *32  (fixed bank size of 32k assumed)
+	CALL	PHLFDC		; ..and display
+	POP	HL
+	CALL	EPRINT
+	DEFB	'k Bytes)'
+	DEFB	0
+	LD	A,B		; check if more to go
+	OR	A
+	JR	Z,BRANGLP	; loop till done
+
+	; display information as stored in B/P Bios config area
+PCNFIG:	CALL	EPRINT
+	DEFB	CR,LF,LF,'Bios Reports:',CR,LF
+	DEFB	'   TPA Banks      = '
+	DEFB	0
+	LD	A,(TPABNK)	; get TPA bank #
+	PUSH	AF		; save regs
+	CALL	PAFDC		;   and display it
+	LD	A,'/'
+	CALL	COUT
+	POP	AF		; restore value
+	INC	A		; +1  (TPA bank is build by 2 consecutive banks)
+				; fixed size of 32k per bank is assumed
+	CALL	PAFDC		;   and display it
+	CALL	EPRINT
+	DEFB	CR,LF,'   System Bank    = '
+	DEFB	0
+	LD	A,(SYSBNK)	; get SYSTEM bank #
+	CALL	PAFDC		;   and display it
+	CALL	EPRINT
+	DEFB	CR,LF,'   User Bank      = '
+	DEFB	0
+	LD	A,(UABNK)	; get # of USER banks
+	OR	A
+	JR	NZ,PCNFIG0	; ..if not zero, skip over
+	CALL	EPRINT
+	DEFB	'(None)'
+	DEFB	0
+	JR	PCNFIG1
+PCNFIG0: CALL	PAFDC		; display # of USER banks
+PCNFIG1: CALL	EPRINT
+	DEFB	CR,LF,'   RAM Disk Start = '
+	DEFB	0
+	LD	A,(RAMBNK)	; get # of begin RAM Disk
+	CALL	PAFDC
+	CALL	EPRINT
+	DEFB	CR,LF,'   Last Used Bank = '
+	DEFB	0
+	LD	A,(MAXBNK)	; get max. available bank #
+	CALL	PAFDC
+	CALL	EPRINT
+	DEFB	CR,LF,LF,' -- Scan Complete.',CR,LF
+	DEFB	0
+	JP	EXIT
+
+
+;::::: SUPPORT FUNCTIONS
+
+	; get first token from command line (in FCB #1)
+	; and check if help was requested
+CHKHELP: LD	HL,CPMFCB+1
+	LD	A,(HL)		; get byte
+	CP	'/'		; is this a help request ?
+	RET	NZ		; ..if not, return
+	INC	HL		;   else, move ptr fwd
+	LD	A,(HL)		; and get next byte
+	CP	'/'		; is it also '/' ?
+	RET	NZ		; ..if not, return
+				;   else, fall through and display help
+
+
+;::::: HELP SCREEN
+
+HELP:	CALL	EPRINT
+	DEFB	CR,LF,'  '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	' Determines location and Size of Banked Memory.',CR,LF
+	DEFB	'    (Only TPA Banks printed if Non-Banked)',CR,LF,LF
+	DEFB	' Syntax:',CR,LF
+	DEFB	'       '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	'      - Print 32k RAM banks present and B/P Allocations',CR,LF
+	DEFB	'       '
+	DEFB	0
+	CALL	PPRGNAM
+	CALL	EPRINT
+	DEFB	' //   - display this screen',CR,LF
+	DEFB	0		; fall through and exit
+
+
+;::::: EXIT PROGRAM
+
+EXIT:	CALL	CRLF
+	LD	SP,(STACK)	; restore stack pointer
+	RET			; ..and return to system
+
+
+;::::: SUPPORT FUNCTIONS
+
+	; check if running under ZCPR3 and status of wheel byte
+	; terminate program if not succesful
+CHKZ3E:	LD	HL,(CPMBDOS+1)
+	CALL	WHRENV		; find Z3 Environment Descriptor
+	LD	(ENVADR),HL	; store ENV ptr
+	LD	A,H		; check if invalid (= zero)
+	OR	L
+	JP	Z,E$BPBIO	; ..if so, jump error and terminate
+	CALL	Z3INIT		;   else, init for Z3LIB routines
+	LD	A,41		; offset to addr of wheel byte (Z3WHL)
+	CALL	ADDHLA		; adjust ptr
+	LD	E,(HL)		; get addr in DE
+	INC	HL
+	LD	D,(HL)
+	EX	DE,HL		; swap regs
+	LD	A,(HL)		; get value of wheel byte
+	AND	A		; check if zero
+	RET	NZ		; ..if not (wheel on), return
+	CALL	EPRINT		;   else, display message and exit
+	DEFB	BEL,CR,LF,'Must be wheel to Execute !',CR,LF
+	DEFB	0
+	JR	EXIT
+
+
+	; check if running under B/P Bios
+	; if not, program is terminated
+CHKSYS:	LD	HL,(CPMBIOS+1)	; get warm boot addr (BIOS fn #1)
+	LD	L,30*3		; adjust ptr to fn #30
+	LD	A,(HL)		; check byte at ptr location
+	CP	0C3H		; is it opcode 0xC3 (JP) ?
+	JR	NZ,E$BPBIO	; ..if not, jump error and terminate
+	CALL	JUMPHL		;   else, "call" B/P Bios fn #30 (RETBIO)
+	LD	(BPVERS),A	; store version of B/P Bios
+	LD	(BPADDR),BC	;   "   base addr
+	LD	(BPCNFG),DE	;   "   config area addr
+	LD	HL,-6		; move ptr 6 bytes backward
+	ADD	HL,DE		;   (signature string)
+	LD	A,(HL)		; get byte
+	CP	'B'		; is it 'B' ?
+	JR	NZ,E$BPBIO	; ..if not, jump error and exit
+	INC	HL		; ptr fwd
+	LD	A,(HL)		; get byte
+	CP	'/'		; is it '/' ?
+	JR	NZ,E$BPBIO	; ..if not, jump error and exit
+	INC	HL		; ptr fwd
+	LD	A,(HL)		; get byte
+	CP	'P'		; is it 'P' ?
+	RET	Z		; ..if so, return
+				;   else, fall through (error and exit)
+
+
+	; msg aborting
+E$BPBIO: CALL	EPRINT
+	DEFB	CR,LF,BEL,'Not B/P Bios, aborting...!',CR,LF
+	DEFB	0
+	RST	0
+
+
+	; print program name on CON: device
+	; (either the actual name, or fallback to default)
+	; only used by HELP
+PPRGNAM: LD	A,(ENVADR+1)	; get high byte of ENVPTR
+	OR	A		; check if valid (<> zero)
+	JP	NZ,PRTNAME	; ..if so, display actual name
+				;   ..and let return from there
+	CALL	EPRINT		;   else, display default
+	DEFB	'SIZERAM'
+	DEFB	0
+	RET
+
+
+	; msg B/P Bios Vers x.x
+M$BVER:	CALL	EPRINT
+	DEFB	'  (B/P Bios Vers '
+	DEFB	0
+	LD	A,(BPVERS)	; get version #
+	RRCA			; reverse nybbles in A
+	RRCA
+	RRCA
+	RRCA
+	AND	00001111b	; mask lower nybble
+	ADD	A,'0'		; make it ascii
+	CALL	COUT		; ..and display
+	LD	A,'.'
+	CALL	COUT
+	LD	A,(BPVERS)	; get version #
+	AND	00001111b	; mask lower nybble
+	ADD	A,'0'		; make it ascii
+	CALL	COUT		; ..and display
+	CALL	EPRINT
+	DEFB	')',CR,LF
+	DEFB	0
+	RET
+
+
+	; add A to HL (result in HL)
+ADDHLA:	ADD	A,L		; add L
+	LD	L,A		; store result in L
+	RET	NC		; ..if no overflow, return
+	INC	H		;   else, increment H
+	RET
+
+
+	; the following routines rearrange Top of Stack by injecting an
+	; intermediate return addr, and putting the Bios fn call on top
+	; so that HL regs are preserved
+	; order of steps:
+	;   [1]  HL (= addr) is pushed onto stack
+	;   [2]  intermediate return addr is swapped to Top of Stack
+	;   [3]  HL (= addr) is pushed onto stack again
+	;   [4]  Bios fn JP addr is swapped to Top of Stack
+	;   [5]  Bios is "called" through RET, and returns to intermediate addr
+
+	; get byte from ram bank - in the form LD A,(HL)
+	;  in: C= bank #,  HL= addr
+	; out: A= byte
+GETFRB:	PUSH	BC
+	PUSH	HL		; save addr
+	LD	HL,GETFRB0	; load return addr
+	EX	(SP),HL		; put it on stack
+	PUSH	HL		; save HL again (previous top of stack)
+	LD	HL,(BPADDR)	; get B/P Bios base addr
+	LD	L,35*3		; adjust ptr to fn #35 (FRGETB)
+	EX	(SP),HL		; put addr on stack
+	RET			; ..and "call" Bios fn through stack
+
+GETFRB0: POP	BC		; restore regs
+	RET			; ..and finally return
+
+	; set byte in ram bank - in the form LD (HL),A
+	;  in: C= bank #,  HL= addr,  A= byte to set
+SETINB:	PUSH	BC
+	PUSH	HL		; save addr
+	LD	HL,GETFRB0	; load return addr
+	EX	(SP),HL		; put it on stack
+	PUSH	HL		; save HL again (previous top of stack)
+	LD	HL,(BPADDR)	; get B/P Bios base addr
+	LD	L,37*3		; adjust ptr to fn #37 (FRPUTB)
+	EX	(SP),HL		; put addr on stack
+	RET			; ..and "call" Bios fn through stack
+
+
+	; "called" as a pseudo-routine that returns to caller
+	;  in: HL= target addr
+JUMPHL:	JP	(HL)		; jump to addr in HL regs
+
+
+;::::: LOCAL DATA (not in DSEG)
+
+WSPCBEG:	DEFW	0	; addr begin of workspace area
+				; (first available page, returned by CODEND)
+
+	; data retrieved from running system
+BPVERS:		DEFB	0	; B/P Bios version
+BPADDR:		DEFW	0	; B/P Bios base addr
+BPCNFG:		DEFW	0	; addr of Config Area
+BPBNKD:		DEFB	0	; indicator banked system (bit 0 of OPTF1)  --> not used
+
+	; local copies of RAM bank configuration
+UABNK:		DEFB	0	; beginning of User Bank(s)
+TPABNK:		DEFB	0	; TPA Bank
+SYSBNK:		DEFB	0	; beginning of System Bank(s)
+RAMBNK:		DEFB	0	; base bank # for Ram Disk
+MAXBNK:		DEFB	0	; highest permissible Bank #
+
+
+		DEFS	30H	; room for stack
+STACK:		DEFW	0	; stack storage location
+
+
+;:::::::::::::::::::::::::::::::::::::::::::::::::::::
+; Z3LIB - 0x05ae
+; SYSLIB - 0x065c
+; end addr 0x0750 (begin DSEG)
+;:::::::::::::::::::::::::::::::::::::::::::::::::::::
+
+
+;::::: RAM STORAGE
+
+	DSEG
+
+	END
+
+
+;************************************************************************
+; Remarks jxl:
+;   SIZERAM.COM, included in available B/P Bios package(s), was dis-
+; assembled and extensively commented. Labels are up to seven chars long
+; to comply with M-REL standards. However, it is recommended to use SLR
+; tools that support labels up to sixteen chars.
+;   In its current state, the compiled/linked file matches exactly the
+; original INITRAM.COM, i.e. no changes to the source were made.
+;
+;   The program uses an interesting technique to read and write data in
+; alternative ram banks utilizing B/P Bios functions no. 35 FRGETB and
+; no. 37 FRPUTB. Top of Stack is manipulated to keep registers intact
+; and "call" functions through a RET statement (instead of CALL.)
+;   Another specialty which is worth mentioning: Routine MEMRW (memory
+; read/write) contains an "injected" opcode to alter the behaviour at
+; runtime. Otherwise a more complex logic and/or additional routine
+; would have been necessary.
+;   Storage of local data is in CSEG (code segment), not DSEG. There
+; seems to be no particular reason for this. So, it can be assumed that
+; this just happened by mistake.
+;************************************************************************

Source/Build.cmd

@@ -4,14 +4,13 @@ setlocal
 :: call BuildDoc || exit /b
 call BuildProp || exit /b
 call BuildShared || exit /b
-call BuildBP || exit /b
 call BuildImages || exit /b
 call BuildROM %* || exit /b
 call BuildZRC || exit /b
 call BuildZ1RCC || exit /b
 call BuildZZRCC || exit /b
 call BuildZRC512 || exit /b
-call BuildFZ80 || exit /b
+call BuildSZ80 || exit /b
 call BuildEZ512 || exit /b
 
 if "%1" == "dist" (

Source/BuildBP.cmd

@@ -1,4 +0,0 @@
-@echo off
-setlocal
-
-pushd BPBIOS && call Build || exit /b & popd

Source/BuildFZ80.cmd

@@ -1,4 +0,0 @@
-@echo off
-setlocal
-
-pushd FZ80 && call Build || exit /b & popd

Source/BuildSZ80.cmd

@@ -0,0 +1,4 @@
+@echo off
+setlocal
+
+pushd SZ80 && call Build || exit /b & popd

Source/BuildShared.cmd

@@ -8,8 +8,10 @@ pushd QPM && call Build || exit /b & popd
 pushd ZCPR && call Build || exit /b & popd
 pushd ZCPR-DJ && call Build || exit /b & popd
 pushd ZSDOS && call Build || exit /b & popd
+pushd ZSDOS2 && call Build || exit /b & popd
 pushd CPM3 && call Build || exit /b & popd
 pushd ZPM3 && call Build || exit /b & popd
+pushd BPBIOS && call Build || exit /b & popd
 pushd CPNET && call Build || exit /b & popd
 pushd pSys && call Build || exit /b & popd
 pushd Apps && call Build || exit /b & popd

Source/CBIOS/cbios.asm

@@ -3201,8 +3201,9 @@ MAKDPH0:	; HANDLE RAM/ROM
 	CP	DIODEV_MD	; RAM/ROM DISK?
 	JR	Z,MAKDPH0	; HANDLE SPECIAL
 	LD	DE,DPB_FD144	; PRELOAD FLOPPY DPB
-	CP	DIODEV_FD	; FLOPPY?
-	JR	Z,MAKDPH1	; IF SO, PROCEED TO DPH CREATION
+	;CP	DIODEV_FD	; FLOPPY?
+	BIT	7,C		; FLOPPY?
+	JR	NZ,MAKDPH1	; IF SO, PROCEED TO DPH CREATION
 	LD	DE,DPB_RF	; PRELOAD RAM FLOPPY DPB
 	CP	DIODEV_RF	; RAM FLOPPY?
 	JR	Z,MAKDPH1	; IF SO, PROCEED TO DPH CREATION
@@ -3381,7 +3382,7 @@ DEVUNK		.DB	"UNK$"
 	RST	08		; CALL HBIOS
 	LD	A,D		; RESULTANT DEVICE TYPE
 	PUSH	DE		; NEED TO SAVE UNIT NUMBER (IN E)
-	AND	$0F		; ISOLATE DEVICE BITS
+	AND	$1F		; ISOLATE DEVICE BITS
 	ADD	A,A		; MULTIPLY BY TWO FOR WORD TABLE
 	LD	HL,DEVTBL	; POINT TO START OF DEVICE NAME TABLE
 	CALL	ADDHLA		; ADD A TO HL TO POINT TO TABLE ENTRY
@@ -3407,6 +3408,7 @@ DEVTBL:	; DEVICE TABLE
 	.DW	DEV04, DEV05, DEV06, DEV07
 	.DW	DEV08, DEV09, DEV10, DEV11
 	.DW	DEV12, DEV13, DEV14, DEV15
+	.DW	DEV16, DEV17
 ;
 DEVUNK	.DB	"???$"
 DEV00	.DB	"MD$"
@@ -3424,7 +3426,9 @@ DEV11	.DB	"IMM$"
 DEV12	.DB	"SYQ$"
 DEV13	.DB	"CHUSB$"
 DEV14	.DB	"CHSD$"
-DEV15	.EQU	DEVUNK
+DEV15	.DB	"USB$"
+DEV16	.DB	"ESPSD$"
+DEV17	.EQU	DEVUNK
 ;
 #ENDIF
 ;

Source/CPM22/ReadMe.txt

@@ -38,7 +38,7 @@ It is an independent disassembly and reconstruction of CCP/BDOS.
 DRI CPM22PAT01 was already applied.  Unclear why, but the BDOS
 source was checking for a blank instead of a ctrl-s in the
 KBSTAT routine.  Ctrl-s seems to be correct based on all other
-BDOS images I have encountered.  Also, these files imbed the
+BDOS images I have encountered.  Also, these files embed the
 CP/M version number into the serial number fields.  Other than
 this, they are byte identical to the OS2CCP/OS3BDOS images above.
 
@@ -51,17 +51,24 @@ BDOS22.ASM - Modified ORG & fix for ctrl-S
 CCPB03 & BDOSB01
 ----------------
 
-Sourced from N8VEM effort to create an enhanced
-variant of CP/M 2.2.
+These files were derived from a disassembly of the Jade DD CP/M-80
+image by William Beech in 1982.
 
-It appears to be a disassembly and reconstruction of CCP/BDOS,
-but there are no comments attributing the work.  DRI CPM22PAT01
-was already applied.  The message string literals are all
+- Modified by Bill Beech for global CP/M size configuration
+  and separate CCP and BDOSE 2013.
+
+- Modified by Bill Beech for addition of MON
+  command and display/change of user on command line
+  1984.  Also removed all SN checks.
+
+Eventually modified as part of the N8VEM project and converted to
+the Z80 instruction set.
+
+DRI CPM22PAT01 has been applied.  The message string literals are all
 in CAPS in BDOS.  Additionally, there is explicit filler of 0x55
 value bytes at the end of the CCP/BDOS files padding their
 length out to full page.  Other than this, the BDOS
-is byte identical to the others above.  CCP contains multiple
-enhancements and is, therefore, not identical to others.
+is byte identical to the others above.
 
 CCPB03.ASM - Enhanced reassembly of CCP
 

Source/CPM3/biosldr.z80

@@ -668,15 +668,15 @@ lba	ds	4	; current lba
 stack	equ	$
 stksav	ds	2
 
-csvbufs	equ	256
-alvbufs	equ	512
-dirbufs	equ	512
-dtabufs	equ	512
+	; CPMLDR.SYS must be a multiple of 512 bytes (one sector)
+	; for the RomWBW loader.  Below padding as needed to force
+	; this.
+	ds	80h
 
-;csvbuf	ds	256	; length (CSV) = ((DRM+1)/4)
-;alvbuf	ds	512	; length (ALV) = ((DSM+1)/4)
-;dirbuf	ds	512	; sector buffer
-;dtabuf	ds	512	; sector buffer
+csvbufs	equ	256	; length (CSV) = ((DRM+1)/4)
+alvbufs	equ	512     ; length (ALV) = ((DSM+1)/4)
+dirbufs	equ	512     ; sector buffer
+dtabufs	equ	512     ; sector buffer
 
 ; Trying to save space.  The loader must fit underneath
 ; the start of BNKBDOS3 and we have a big BNKBDOS because

Source/Clean.cmd

@@ -8,6 +8,7 @@ pushd QPM && call Clean.cmd & popd
 pushd ZCPR && call Clean.cmd & popd
 pushd ZCPR-DJ && call Clean.cmd & popd
 pushd ZSDOS && call Clean.cmd & popd
+pushd ZSDOS2 && call Clean.cmd & popd
 pushd CBIOS && call Clean.cmd & popd
 pushd CPM3 && call Clean.cmd & popd
 pushd ZPM3 && call Clean.cmd & popd