Minor updates, some due to perl changes, discovered during FusionX port
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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.
|
||||
;-
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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.
|
||||
;-
|
||||
|
||||
@@ -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
|
||||
;-----------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
@@ -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,7 +174,8 @@ 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.
|
||||
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.
|
||||
@@ -185,6 +186,9 @@ MONITOR: IN A,(CPLDINFO) ; See i
|
||||
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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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.
@@ -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.
|
||||
##
|
||||
|
||||
@@ -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.
|
||||
##
|
||||
|
||||
@@ -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.
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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.
|
||||
|
||||
@@ -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.
|
||||
|
||||
@@ -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);
|
||||
|
||||
|
||||
@@ -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.
|
||||
|
||||
Reference in New Issue
Block a user