Browse Source

SLABEL Follow Up

- Source corrections related to TASM assembly
- Regen documentation
pull/539/head
Wayne Warthen 9 months ago
parent
commit
d0aad220df
No known key found for this signature in database GPG Key ID: 8B34ED29C07EEB0A
  1. BIN
      Doc/RomWBW Applications.pdf
  2. BIN
      Doc/RomWBW Disk Catalog.pdf
  3. BIN
      Doc/RomWBW Hardware.pdf
  4. BIN
      Doc/RomWBW Introduction.pdf
  5. BIN
      Doc/RomWBW System Guide.pdf
  6. BIN
      Doc/RomWBW User Guide.pdf
  7. 2
      RELEASE_NOTES.md
  8. 2
      ReadMe.md
  9. 2
      ReadMe.txt
  10. 10
      Source/Apps/slabel/slabel.asm

BIN
Doc/RomWBW Applications.pdf

Binary file not shown.

BIN
Doc/RomWBW Disk Catalog.pdf

Binary file not shown.

BIN
Doc/RomWBW Hardware.pdf

Binary file not shown.

BIN
Doc/RomWBW Introduction.pdf

Binary file not shown.

BIN
Doc/RomWBW System Guide.pdf

Binary file not shown.

BIN
Doc/RomWBW User Guide.pdf

Binary file not shown.

2
RELEASE_NOTES.md

@ -67,6 +67,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).

2
ReadMe.md

@ -7,7 +7,7 @@
**RomWBW Introduction** \
Version 3.5 \
Wayne Warthen ([wwarthen@gmail.com](mailto:wwarthen@gmail.com)) \
24 Apr 2025
25 Apr 2025
# Overview

2
ReadMe.txt

@ -1,6 +1,6 @@
RomWBW Introduction
Wayne Warthen (wwarthen@gmail.com)
24 Apr 2025
25 Apr 2025

10
Source/Apps/slabel/slabel.asm

@ -288,7 +288,7 @@ setlabel:
call skipws ; skip possible whitespace
ld a,(de) ; get separator char
or a ; test for terminator
jr z,err_parm ; if so, incomplete
jp z,err_parm ; if so, incomplete
cp '=' ; otherwise, is ','?
jr z,setlabel4 ; if so, skip the Slice parm
cp '.' ; otherwise, is '.'?
@ -305,7 +305,7 @@ setlabel3:
call skipws ; skip possible whitespace
ld a,(de) ; get separator char
or a ; test for terminator
jr z,err_parm ; if so, then an error
jp z,err_parm ; if so, then an error
cp '=' ; otherwise, is ','?
jp nz,err_parm ; if not, format error
setlabel4:
@ -646,7 +646,8 @@ diskread:
ld c,a ; from the specified unit
ld e,1 ; read 1 sector
ld hl,(dma) ; read into info sec buffer
ld d,BID_USR ; user bank
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
@ -673,7 +674,8 @@ diskwrite:
ld e,b ; transfer count
ld b,BF_DIOWRITE ; HBIOS func: disk read
ld hl,(dma) ; read into info sec buffer
ld d,BID_USR ; user bank
ld a,(BID_USR) ; get user bank to accum
ld d,a ; and move to D
rst 08 ; do it
ret ; and done
;

Loading…
Cancel
Save