Minor updates, some due to perl changes, discovered during FusionX port

This commit is contained in:
Philip Smart
2023-02-14 12:04:30 +00:00
parent 4871d04cf0
commit 16ae2b068b
31 changed files with 51 additions and 43 deletions

View File

@@ -10,7 +10,7 @@
;-
;- Credits: Some of the comments and parts of the standard CPM deblocking/blocking algorithm
;- come from the Z80-MBC2 project, (C) SuperFabius.
;- Copyright: (c) 2018-21 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-23 Philip Smart <philip.smart@net2net.org>
;-
;- History: Jan 2020 - Seperated Bank from RFS for dedicated use with CPM CBIOS.
;- May 2020 - Advent of the new RFS PCB v2.0, quite a few changes to accommodate the

View File

@@ -9,7 +9,7 @@
;- CPM TPA programs.
;-
;- Credits:
;- Copyright: (c) 2018-21 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-23 Philip Smart <philip.smart@net2net.org>
;-
;- History: Jan 2020 - Seperated Bank from RFS for dedicated use with CPM CBIOS.
;- May 2020 - Advent of the new RFS PCB v2.0, quite a few changes to accommodate the

View File

@@ -12,7 +12,7 @@
; Ansi Parser.
;
; (C) Oct 2000 - only the ansiterm.22b module was used with a lot stripped out.
;- Copyright: (c) 2018-21 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-23 Philip Smart <philip.smart@net2net.org>
;-
;- History: Jan 2020 - Seperated Bank from RFS for dedicated use with CPM CBIOS.
;- May 2020 - Advent of the new RFS PCB v2.0, quite a few changes to accommodate the

View File

@@ -9,7 +9,7 @@
;- CPM TPA programs.
;-
;- Credits:
;- Copyright: (c) 2018-21 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-23 Philip Smart <philip.smart@net2net.org>
;-
;- History: Jan 2020 - Seperated Bank from RFS for dedicated use with CPM CBIOS.
;- May 2020 - Advent of the new RFS PCB v2.0, quite a few changes to accommodate the

View File

@@ -9,7 +9,7 @@
;- CPM TPA programs.
;-
;- Credits:
;- Copyright: (c) 2018-21 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-23 Philip Smart <philip.smart@net2net.org>
;-
;- History: Jan 2020 - Seperated Bank from RFS for dedicated use with CPM CBIOS.
;- May 2020 - Advent of the new RFS PCB v2.0, quite a few changes to accommodate the

View File

@@ -10,7 +10,7 @@
;-
;- Credits: Some of the comments and parts of the deblocking/blocking algorithm come from the
; Z80-MBC2 project, (C) SuperFabius.
;- Copyright: (c) 2020 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2020-2023 Philip Smart <philip.smart@net2net.org>
;-
;- History: January 2020 - Initial creation.
;-

View File

@@ -7,7 +7,7 @@
;- Definitions for the Sharp MZ80A CPM v2.23 OS used in the RFS
;-
;- Credits:
;- Copyright: (c) 2019-21 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2019-23 Philip Smart <philip.smart@net2net.org>
;-
;- History: Jan 2020 - Initial version.
; May 2020 - Advent of the new RFS PCB v2.0, quite a few changes to accommodate the

View File

@@ -7,7 +7,7 @@
;- Definitions for the Sharp MZ80A CPM v2.23 OS used in the RFS
;-
;- Credits:
;- Copyright: (c) 2019-20 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2019-23 Philip Smart <philip.smart@net2net.org>
;-
;- History: Jan 2020 - Initial version.
; May 2020 - Advent of the new RFS PCB v2.0, quite a few changes to accommodate the

View File

@@ -7,7 +7,7 @@
;- Definitions for the RFS including SA1510 locations.
;-
;- Credits:
;- Copyright: (c) 2019-21 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2019-23 Philip Smart <philip.smart@net2net.org>
;-
;- History: Sep 2019 - Initial version.
;- May 2020 - Advent of the new RFS PCB v2.0, quite a few changes to accommodate the
@@ -40,6 +40,7 @@
HW_SPI_ENA EQU 1 ; Set to 1 if hardware SPI is present on the RFS PCB v2 board.
SW_SPI_ENA EQU 0 ; Set to 1 if software SPI is present on the RFS PCB v2 board.
PP_SPI_ENA EQU 0 ; Set to 1 if using the SPI interface via the Parallel Port, ie. for RFS PCB v1 which doesnt have SPI onboard.
FUSIONX_ENA EQU 1 ; Set to 1 if using RFS on the tranZPUter FusionX board.
; Debugging
ENADEBUG EQU 0 ; Enable debugging logic, 1 = enable, 0 = disable

View File

@@ -8,7 +8,7 @@
;- the MZ-80A RFS hardware upgrade.
;-
;- Credits:
;- Copyright: (c) 2019-20 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2019-23 Philip Smart <philip.smart@net2net.org>
;-
;- History: September 2018 - Merged 2 utilities to create this compilation.
;-

View File

@@ -23,7 +23,7 @@
; Original source is: (C) 1978 Microsoft
; Updates (some reversed out): Grant Searle, http://searle.hostei.com/grant/index.html
; eMail: home.micros01@btinternet.com
; All other updates (C) Philip Smart, 2020-21. http://www.eaw.app philip.smart\@net2net.org
; All other updates (C) Philip Smart, 2020-23. http://www.eaw.app philip.smart\@net2net.org
;-----------------------------------------------------------------------------------------------

View File

@@ -8,7 +8,7 @@
;- the MZ-80A RFS hardware upgrade.
;-
;- Credits:
;- Copyright: (c) 2018-2020 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-2023 Philip Smart <philip.smart@net2net.org>
;-
;- History: July 2019 - Merged 2 utilities to create this compilation.
; May 2020 - Bank switch changes with release of v2 pcb with coded latch. The coded
@@ -174,17 +174,21 @@ ROMFS_3: LD (BNKSELMROM),A ; start
;
; Replacement command processor in place of the SA1510 command processor.
;
MONITOR: IN A,(CPLDINFO) ; See if a tranZPUter board is present.
AND 0E7H ; Mask out the CPLD Version and host HW.
LD C,A
CP 020H ; Upper bits specify the version, should be at least 1.
JR C,CHKTZ1
AND 007H ; Get Hardware, should be an MZ-80A for RFS.
CP MODE_MZ80A
LD A,C
JR Z,CHKTZ1
XOR A
CHKTZ1: AND 0E0H
MONITOR: IF FUSIONX_ENA = 0
IN A,(CPLDINFO) ; See if a tranZPUter board is present.
AND 0E7H ; Mask out the CPLD Version and host HW.
LD C,A
CP 020H ; Upper bits specify the version, should be at least 1.
JR C,CHKTZ1
AND 007H ; Get Hardware, should be an MZ-80A for RFS.
CP MODE_MZ80A
LD A,C
JR Z,CHKTZ1
XOR A
CHKTZ1: AND 0E0H
ELSE
XOR A
ENDIF
LD (TZPU), A ; Flag = 0 if no tranZPUter present otherwise contains version (1 - 15).
LD HL,DSPCTL ; Setup address of display control register latch.
;
@@ -226,6 +230,7 @@ SIGNON1: CALL DPCT
SIGNON2: LD DE,MSGSON ; Sign on message,
SIGNON3: LD HL,PRINTMSG
CALL BKSW0to6
; JR ST1X
; Initialise SD card, report any errors.
LD HL, SDINIT ; SD Card Initialisation

View File

@@ -8,7 +8,7 @@
;- the MZ-80A RFS hardware upgrade.
;-
;- Credits:
;- Copyright: (c) 2018-2020 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-2023 Philip Smart <philip.smart@net2net.org>
;-
;- History: July 2019 - Merged 2 utilities to create this compilation.
; May 2020 - Bank switch changes with release of v2 pcb with coded latch. The coded

View File

@@ -8,7 +8,7 @@
;- the MZ-80A RFS hardware upgrade.
;-
;- Credits:
;- Copyright: (c) 2018-2020 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-2023 Philip Smart <philip.smart@net2net.org>
;-
;- History: July 2019 - Merged 2 utilities to create this compilation.
; May 2020 - Bank switch changes with release of v2 pcb with coded latch. The coded
@@ -388,7 +388,7 @@ SDCMD2: PUSH HL
CALL SPIIN
POP HL
CP 0FFH
JR NZ,SDCMD4
JR NZ,SDCMD4 ; If != 0xFF then byte received is response R1.
DEC HL
LD A,H
OR L
@@ -689,7 +689,7 @@ SD_READ1: ; A = ACMD to send
CALL SDCMDNP ; Execute SD Command, parameters already loaded into command buffer.
LD A,(SDBUF+6) ; Fetch result and store.
AND A
JP NZ,SD_READ6
JP NZ,SD_READ6 ; If R1 is positive then an error occurred, get out.
LD HL,1000 ; Sit in a tight loop waiting for the data packet arrival (ie. not 0xFF).
SD_READ2: PUSH HL

View File

@@ -8,7 +8,7 @@
;- the MZ-80A RFS hardware upgrade.
;-
;- Credits:
;- Copyright: (c) 2018-2020 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-2023 Philip Smart <philip.smart@net2net.org>
;-
;- History: July 2019 - Merged 2 utilities to create this compilation.
; May 2020 - Bank switch changes with release of v2 pcb with coded latch. The coded

View File

@@ -8,7 +8,7 @@
;- the MZ-80A RFS hardware upgrade.
;-
;- Credits:
;- Copyright: (c) 2018-2020 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-2023 Philip Smart <philip.smart@net2net.org>
;-
;- History: July 2019 - Merged 2 utilities to create this compilation.
; May 2020 - Bank switch changes with release of v2 pcb with coded latch. The coded

View File

@@ -8,7 +8,7 @@
;- the MZ-80A RFS hardware upgrade.
;-
;- Credits:
;- Copyright: (c) 2018-2020 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-2023 Philip Smart <philip.smart@net2net.org>
;-
;- History: July 2019 - Merged 2 utilities to create this compilation.
; May 2020 - Bank switch changes with release of v2 pcb with coded latch. The coded

View File

@@ -8,7 +8,7 @@
;- the MZ-80A RFS hardware upgrade.
;-
;- Credits:
;- Copyright: (c) 2018-2020 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-2023 Philip Smart <philip.smart@net2net.org>
;-
;- History: July 2019 - Merged 2 utilities to create this compilation.
; May 2020 - Bank switch changes with release of v2 pcb with coded latch. The coded

View File

@@ -8,7 +8,7 @@
;- the MZ-80A RFS hardware upgrade.
;-
;- Credits:
;- Copyright: (c) 2018-2020 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-2023 Philip Smart <philip.smart@net2net.org>
;-
;- History: July 2019 - Merged 2 utilities to create this compilation.
; May 2020 - Bank switch changes with release of v2 pcb with coded latch. The coded

View File

@@ -10,7 +10,7 @@
;- the RFS can read the User Banks and extract required programs.
;-
;- Credits:
;- Copyright: (c) 2018-2020 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-2023 Philip Smart <philip.smart@net2net.org>
;-
;- History: Sep 2019 - Initial version.
; May 2020 - Bank switch changes with release of v2 pcb with coded latch. The coded

View File

@@ -14,7 +14,7 @@
;- 4. Graphics RAM Test
;-
;- Credits:
;- Copyright: (c) 2018 Philip Smart <philip.smart@net2net.org>
;- Copyright: (c) 2018-2023 Philip Smart <philip.smart@net2net.org>
;-
;- History: October 2018 - Merged 2 utilities to create this compilation.
;-

Binary file not shown.

View File

@@ -8,7 +8,7 @@
## This script builds a CPM version compatible with the MZ-80A RFS system.
##
## Credits:
## Copyright: (c) 2020-21 Philip Smart <philip.smart@net2net.org>
## Copyright: (c) 2020-23 Philip Smart <philip.smart@net2net.org>
##
## History: January 2020 - Initial script written.
##

View File

@@ -9,7 +9,7 @@
## into a ROM file using the GLASS Z80 assembler.
##
## Credits:
## Copyright: (c) 2018-21 Philip Smart <philip.smart@net2net.org>
## Copyright: (c) 2018-23 Philip Smart <philip.smart@net2net.org>
##
## History: August 2018 - Initial script written.
##

View File

@@ -9,7 +9,7 @@
## into a ROM file using the GLASS Z80 assembler.
##
## Credits:
## Copyright: (c) 2018-21 Philip Smart <philip.smart@net2net.org>
## Copyright: (c) 2018-23 Philip Smart <philip.smart@net2net.org>
##
## History: August 2018 - Initial script written.
## March 2021 - Updated to compile different versions of Microsoft BASIC.

View File

@@ -12,7 +12,7 @@
## Credit goes to Grant Searle for the CPM_MC series of disks which can be found on his
## multicomputer project and to the various CPM archives on the net.
## Credits:
## Copyright: (c) 2020 Philip Smart <philip.smart@net2net.org>
## Copyright: (c) 2020-2023 Philip Smart <philip.smart@net2net.org>
##
## History: Jan 2020 - Initial script written.
## May 2020 - Updated to allow 240/320K Rom RFS images to be built

View File

@@ -11,7 +11,7 @@
## and flash the images created into the Flast ROMS.
##
## Credits:
## Copyright: (c) 2020-21 Philip Smart <philip.smart@net2net.org>
## Copyright: (c) 2020-23 Philip Smart <philip.smart@net2net.org>
##
## History: January 2020 - Initial script written.
## March 2021 - Updates for the RFS v2.1 board.

View File

@@ -10,7 +10,7 @@
## ie. <RFS IMAGE> + <CPM DISK IMAGE 0> .. <CPM DIK IMAGE n>.
##
## Credits:
## Copyright: (c) 2020-21 Philip Smart <philip.smart@net2net.org>
## Copyright: (c) 2020-23 Philip Smart <philip.smart@net2net.org>
##
## History: March 2020 - Initial script written.
## March 2021 - Updated the file list and filter out files stored in the ROM Drives.

View File

@@ -10,12 +10,13 @@
## Also useful to add headers to homegrow machine code programs.
##
## Credits:
## Copyright: (c) 2018-2021 Philip Smart <philip.smart@net2net.org>
## Copyright: (c) 2018-2023 Philip Smart <philip.smart@net2net.org>
##
## History: August 2018 - Initial script written.
## March 2021 - Updated to fix MZF header files. Some programs have encoded ASCII
## into the header along with other strange characters, these need to
## be in Sharp ASCII format.
## February 2023 - POSIX::tmpnam obsolete, using File::Temp::tmpnam
##
#########################################################################################################
## This source file is free software: you can redistribute it and#or modify
@@ -46,7 +47,7 @@ use IO::File;
use File::stat;
use File::Copy;
use Time::localtime;
use POSIX qw(tmpnam);
use File::Temp qw(tmpnam);
use Env qw(KPLUSHOME3 SYBASE SYBASE_OCS DSQUERY);
use sigtrap qw(die normal-signals);

View File

@@ -11,7 +11,7 @@
## according to its configuration.
##
## Credits:
## Copyright: (c) 2020 Philip Smart <philip.smart@net2net.org>
## Copyright: (c) 2020-2023 Philip Smart <philip.smart@net2net.org>
##
## History: January 2020 - Initial script written.
## March 2021 - Small updates to pull programs from machine model sorted directories.