;-------------------------------------------------------------------------------------------------------- ;- ;- Name: MSBASIC_Definitions.asm ;- Created: June 2020 ;- Author(s): Philip Smart ;- Description: Sharp MZ series CPM v2.23 ;- Definitions for the Sharp MZ80A CPM v2.23 OS used in the RFS ;- ;- Credits: ;- Copyright: (c) 2019-20 Philip Smart ;- ;- History: Jan 2020 - Initial version. ; May 2020 - Advent of the new RFS PCB v2.0, quite a few changes to accommodate the ; additional and different hardware. The SPI is now onboard the PCB and ; not using the printer interface card. ; Jun 2020 - Copied and strpped from TZFS for BASIC. ; Mar 2021 - Updates to backport changes from the RFS version after v2.1 hw changes. ; ;-------------------------------------------------------------------------------------------------------- ;- This source file is free software: you can redistribute it and-or modify ;- it under the terms of the GNU General Public License as published ;- by the Free Software Foundation, either version 3 of the License, or ;- (at your option) any later version. ;- ;- This source file is distributed in the hope that it will be useful, ;- but WITHOUT ANY WARRANTY; without even the implied warranty of ;- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;- GNU General Public License for more details. ;- ;- You should have received a copy of the GNU General Public License ;- along with this program. If not, see . ;-------------------------------------------------------------------------------------------------------- ;----------------------------------------------- ; Features. ;----------------------------------------------- ;----------------------------------------------- ;----------------------------------------------- ; Configurable settings. ;----------------------------------------------- ; Build options. Set just one to '1' the rest to '0'. ; NB: As there are now 4 versions and 1 or more need to be built, ie. MZ-80A and RFS version for RFS, a flag is set in the file ; BASIC_build.asm which configures the equates below for the correct build. ; MZ-80A Standard Machine Configuration. IF BUILD_VERSION = 0 BUILD_MZ80A EQU 1 ; Build for the standard Sharp MZ80A, no lower memory. Manually change MAXMEM above. BUILD_MZ700 EQU 0 ; Build for the Sharp MZ-700 base hardware. BUILD_MZ1500 EQU 0 ; Build for the Sharp MZ-1500 base hardware. BUILD_MZ80A_TZFS EQU 0 ; Build for TZFS running on an MZ-80A where extended memory is available. BUILD_MZ700_TZFS EQU 0 ; Build for TZFS running on an MZ-700 where extended memory is available. BUILD_MZ1500_TZFS EQU 0 ; Build for TZFS running on an MZ-1500 where extended memory is available. BUILD_VIDEOMODULE EQU 0 ; Build for the Video Module v2 board (=1) otherwise build for the 80Char Colour Board v1.0 BUILD_80C EQU 0 INCLUDE_ANSITERM EQU 1 ; Include the Ansi terminal emulation processor in the build. ENDIF ; MZ-700 Standard Machine Configuration. IF BUILD_VERSION = 1 BUILD_MZ80A EQU 0 BUILD_MZ700 EQU 1 ; Build for the Sharp MZ-700 base hardware. BUILD_MZ1500 EQU 0 ; Build for the Sharp MZ-1500 base hardware. BUILD_MZ80A_TZFS EQU 0 ; Build for TZFS running on an MZ-80A where extended memory is available. BUILD_MZ700_TZFS EQU 0 ; Build for TZFS running on an MZ-700 where extended memory is available. BUILD_MZ1500_TZFS EQU 0 ; Build for TZFS running on an MZ-1500 where extended memory is available. BUILD_VIDEOMODULE EQU 0 ; Build for the Video Module v2 board (=1) otherwise build for the 80Char Colour Board v1.0 BUILD_80C EQU 0 INCLUDE_ANSITERM EQU 1 ; Include the Ansi terminal emulation processor in the build. ENDIF ; TZFS Enhanced MZ-80A/MZ-700 with no video card upgrade. IF BUILD_VERSION = 2 BUILD_MZ80A EQU 0 BUILD_MZ700 EQU 0 ; Build for the Sharp MZ-700 base hardware. BUILD_MZ1500 EQU 0 ; Build for the Sharp MZ-1500 base hardware. BUILD_MZ80A_TZFS EQU 0 ; Build for TZFS running on an MZ-80A where extended memory is available. BUILD_MZ700_TZFS EQU 1 ; Build for TZFS running on an MZ-700 where extended memory is available. BUILD_MZ1500_TZFS EQU 0 ; Build for TZFS running on an MZ-1500 where extended memory is available. BUILD_VIDEOMODULE EQU 0 ; Build for the Video Module v2 board (=1) otherwise build for the 80Char Colour Board v1.0 BUILD_80C EQU 0 INCLUDE_ANSITERM EQU 1 ; Include the Ansi terminal emulation processor in the build. ENDIF ; TZFS Enhanced MZ-80A/MZ-700 with VideoModule (or 40/80 Colour Board on MZ-80A). IF BUILD_VERSION = 3 BUILD_MZ80A EQU 0 BUILD_MZ700 EQU 0 ; Build for the Sharp MZ-700 base hardware. BUILD_MZ1500 EQU 0 ; Build for the Sharp MZ-1500 base hardware. BUILD_MZ80A_TZFS EQU 0 ; Build for TZFS running on an MZ-80A where extended memory is available. BUILD_MZ700_TZFS EQU 1 ; Build for TZFS running on an MZ-700 where extended memory is available. BUILD_MZ1500_TZFS EQU 0 ; Build for TZFS running on an MZ-1500 where extended memory is available. BUILD_VIDEOMODULE EQU 1 ; Build for the Video Module v2 board (=1) otherwise build for the 80Char Colour Board v1.0 BUILD_80C EQU 1 INCLUDE_ANSITERM EQU 1 ; Include the Ansi terminal emulation processor in the build. ENDIF ; MZ-1500 Standard Machine Configuration. IF BUILD_VERSION = 4 BUILD_MZ80A EQU 0 BUILD_MZ700 EQU 0 ; Build for the Sharp MZ-700 base hardware. BUILD_MZ1500 EQU 1 ; Build for the Sharp MZ-1500 base hardware. BUILD_MZ80A_TZFS EQU 0 ; Build for TZFS running on an MZ-80A where extended memory is available. BUILD_MZ700_TZFS EQU 0 ; Build for TZFS running on an MZ-700 where extended memory is available. BUILD_MZ1500_TZFS EQU 0 ; Build for TZFS running on an MZ-1500 where extended memory is available. BUILD_VIDEOMODULE EQU 0 ; Build for the Video Module v2 board (=1) otherwise build for the 80Char Colour Board v1.0 BUILD_80C EQU 0 INCLUDE_ANSITERM EQU 1 ; Include the Ansi terminal emulation processor in the build. ENDIF ; TZFS Enhanced MZ-1500 with no video card upgrade. IF BUILD_VERSION = 5 BUILD_MZ80A EQU 0 BUILD_MZ700 EQU 0 ; Build for the Sharp MZ-700 base hardware. BUILD_MZ1500 EQU 0 ; Build for the Sharp MZ-1500 base hardware. BUILD_MZ80A_TZFS EQU 0 ; Build for TZFS running on an MZ-80A where extended memory is available. BUILD_MZ700_TZFS EQU 0 ; Build for TZFS running on an MZ-700 where extended memory is available. BUILD_MZ1500_TZFS EQU 1 ; Build for TZFS running on an MZ-1500 where extended memory is available. BUILD_VIDEOMODULE EQU 0 ; Build for the Video Module v2 board (=1) otherwise build for the 80Char Colour Board v1.0 BUILD_80C EQU 0 INCLUDE_ANSITERM EQU 1 ; Include the Ansi terminal emulation processor in the build. ENDIF IF BUILD_80C = 1 COLW: EQU 80 ; Width of the display screen (ie. columns). ELSE COLW: EQU 40 ; Width of the display screen (ie. columns). ENDIF TMRTICKINTV EQU 5 ; Number of 0.010mSec ticks per interrupt, ie. resolution of RTC. ROW: EQU 25 ; Number of rows on display screen. SCRNSZ: EQU COLW * ROW ; Total size, in bytes, of the screen display area. SCRLW: EQU COLW / 8 ; Number of 8 byte regions in a line for hardware scroll. ; BIOS equates KEYBUFSIZE EQU 64 ; Ensure this is a power of 2, max size 256. IF BUILD_MZ80A = 1 MAXMEM EQU 0CFFFH ; Top of RAM on a standard Sharp MZ80A. ELSE MAXMEM EQU 10000H - TZSVCSIZE ; Top of RAM on the tranZPUter ENDIF ; Tape load/save modes. Used as a flag to enable common code. TAPELOAD EQU 1 CTAPELOAD EQU 2 TAPESAVE EQU 3 CTAPESAVE EQU 4 ; Debugging ENADEBUG EQU 0 ; Enable debugging logic, 1 = enable, 0 = disable ;----------------------------------------------- ; CMT Object types. ;----------------------------------------------- ATR_OBJ EQU 1 ATR_BASIC_PROG EQU 2 ATR_BASIC_DATA EQU 3 ATR_SRC_FILE EQU 4 ATR_RELOC_FILE EQU 5 ATR_BASIC_MSCAS EQU 07EH ATR_BASIC_MSTXT EQU 07FH ATR_PASCAL_PROG EQU 0A0H ATR_PASCAL_DATA EQU 0A1H CMTATRB EQU 010F0H CMTNAME EQU 010F1H ;------------------------------------------------------- ; Function entry points in the standard SA-1510 Monitor. ;------------------------------------------------------- QWRI EQU 00021h QWRD EQU 00024h QRDI EQU 00027h QRDD EQU 0002Ah QVRFY EQU 0002Dh ;----------------------------------------------- ; BASIC ERROR CODE VALUES ;----------------------------------------------- NF EQU 00H ; NEXT without FOR SN EQU 02H ; Syntax error RG EQU 04H ; RETURN without GOSUB OD EQU 06H ; Out of DATA FC EQU 08H ; Function call error OV EQU 0AH ; Overflow OM EQU 0CH ; Out of memory UL EQU 0EH ; Undefined line number BS EQU 10H ; Bad subscript DDA EQU 12H ; Re-DIMensioned array DZ EQU 14H ; Division by zero (/0) ID EQU 16H ; Illegal direct TM EQU 18H ; Type miss-match OS EQU 1AH ; Out of string space LS EQU 1CH ; String too long ST EQU 1EH ; String formula too complex CN EQU 20H ; Can't CONTinue UF EQU 22H ; UnDEFined FN function MO EQU 24H ; Missing operand HX EQU 26H ; HEX error BN EQU 28H ; BIN error BV EQU 2AH ; Bad Value error IO EQU 2CH ; IO error ;----------------------------------------------- ; Memory mapped ports in hardware. ;----------------------------------------------- SCRN: EQU 0D000H ARAM: EQU 0D800H DSPCTL: EQU 0DFFFH ; Screen 40/80 select register (bit 7) KEYPA: EQU 0E000h KEYPB: EQU 0E001h KEYPC: EQU 0E002h KEYPF: EQU 0E003h CSTR: EQU 0E002h CSTPT: EQU 0E003h CONT0: EQU 0E004h CONT1: EQU 0E005h CONT2: EQU 0E006h CONTF: EQU 0E007h SUNDG: EQU 0E008h TEMP: EQU 0E008h MEMSW: EQU 0E00CH MEMSWR: EQU 0E010H INVDSP: EQU 0E014H NRMDSP: EQU 0E015H SCLDSP: EQU 0E200H SCLBASE: EQU 0E2H ;----------------------------------------------- ; IO Registers ;----------------------------------------------- FDC EQU 0D8h ; MB8866 IO Region 0D8h - 0DBh FDC_CR EQU FDC + 000h ; Command Register FDC_STR EQU FDC + 000h ; Status Register FDC_TR EQU FDC + 001h ; Track Register FDC_SCR EQU FDC + 002h ; Sector Register FDC_DR EQU FDC + 003h ; Data Register FDC_MOTOR EQU FDC + 004h ; DS[0-3] and Motor control. 4 drives DS= BIT 0 -> Bit 2 = Drive number, 2=1,1=0,0=0 DS0, 2=1,1=0,0=1 DS1 etc ; bit 7 = 1 MOTOR ON LOW (Active) FDC_SIDE EQU FDC + 005h ; Side select, Bit 0 when set = SIDE SELECT LOW ;----------------------------------------------- ; Common character definitions. ;----------------------------------------------- SCROLL EQU 001H ;Set scroll direction UP. BELL EQU 007H SPACE EQU 020H TAB EQU 009H ;TAB ACROSS (8 SPACES FOR SD-BOARD) CR EQU 00DH LF EQU 00AH FF EQU 00CH CS EQU 0CH ; Clear screen DELETE EQU 07FH BACKS EQU 008H SOH EQU 1 ; For XModem etc. EOT EQU 4 ACK EQU 6 NAK EQU 015H NUL EQU 000H ;NULL EQU 000H CTRL_A EQU 001H CTRL_B EQU 002H CTRL_C EQU 003H CTRL_D EQU 004H CTRL_E EQU 005H CTRL_F EQU 006H CTRL_G EQU 007H CTRL_H EQU 008H CTRL_I EQU 009H CTRL_J EQU 00AH CTRL_K EQU 00BH CTRL_L EQU 00CH CTRL_M EQU 00DH CTRL_N EQU 00EH CTRL_O EQU 00FH CTRL_P EQU 010H CTRL_Q EQU 011H CTRL_R EQU 012H CTRL_S EQU 013H CTRL_T EQU 014H CTRL_U EQU 015H CTRL_V EQU 016H CTRL_W EQU 017H CTRL_X EQU 018H CTRL_Y EQU 019H CTRL_Z EQU 01AH ESC EQU 01BH CTRL_SLASH EQU 01CH CTRL_LB EQU 01BH CTRL_RB EQU 01DH CTRL_CAPPA EQU 01EH CTRL_UNDSCR EQU 01FH CTRL_AT EQU 000H NOKEY EQU 0F0H CURSRIGHT EQU 0F1H CURSLEFT EQU 0F2H CURSUP EQU 0F3H CURSDOWN EQU 0F4H DBLZERO EQU 0F5H INSERT EQU 0F6H CLRKEY EQU 0F7H HOMEKEY EQU 0F8H BREAKKEY EQU 0FBH GRAPHKEY EQU 0FCH ALPHAKEY EQU 0FDH ;----------------------------------------------- ; IO ports in hardware and values. ;----------------------------------------------- MMCFG EQU 060H ; Memory management configuration latch. SETXMHZ EQU 062H ; Select the alternate clock frequency. SET2MHZ EQU 064H ; Select the system 2MHz clock frequency. CLKSELRD EQU 066H ; Read clock selected setting, 0 = 2MHz, 1 = XMHz SVCREQ EQU 068H ; I/O Processor service request. CPLDSTATUS EQU 06BH ; Version 2.1 CPLD status register. CPUCFG EQU 06CH ; Version 2.2 CPU configuration register. CPUSTATUS EQU 06CH ; Version 2.2 CPU runtime status register. CPUINFO EQU 06DH ; Version 2.2 CPU information register. CPLDCFG EQU 06EH ; Version 2.1 CPLD configuration register. CPLDINFO EQU 06FH ; Version 2.1 CPLD version information register. VMPNUM EQU 0A0H ; Set the parameter number to update. VMPLBYTE EQU 0A1H ; Update the lower selected parameter byte. VMPUBYTE EQU 0A2H ; Update the upper selected parameter byte. PALSLCTOFF EQU 0A3H ; set the palette slot Off position to be adjusted. PALSLCTON EQU 0A4H ; set the palette slot On position to be adjusted. PALSETRED EQU 0A5H ; set the red palette value according to the PALETTE_PARAM_SEL address. PALSETGREEN EQU 0A6H ; set the green palette value according to the PALETTE_PARAM_SEL address. PALSETBLUE EQU 0A7H ; set the blue palette value according to the PALETTE_PARAM_SEL address. VMPALETTE EQU 0B0H ; Select Palette: ; 0xB0 sets the palette. The Video Module supports 4 bit per colour output but there is only enough RAM for 1 bit per colour so the pallette is used to change the colours output. ; Bits [7:0] defines the pallete number. This indexes a lookup table which contains the required 4bit output per 1bit input. ; GPU: GPUPARAM EQU 0B2H ; 0xB2 set parameters. Store parameters in a long word to be used by the graphics command processor. ; The parameter word is 128 bit and each write to the parameter word shifts left by 8 bits and adds the new byte at bits 7:0. GPUCMD EQU 0B3H ; 0xB3 set the graphics processor unit commands. GPUSTATUS EQU 0B3H ; [7;1] - FSM state, [0] - 1 = busy, 0 = idle ; Bits [5:0] - 0 = Reset parameters. ; 1 = Clear to val. Start Location (16 bit), End Location (16 bit), Red Filter, Green Filter, Blue Filter ; VMCTRL EQU 0B8H ; Video Module control register. [2:0] - 000 (default) = MZ80A, 001 = MZ-700, 010 = MZ800, 011 = MZ80B, 100 = MZ80K, 101 = MZ80C, 110 = MZ1200, 111 = MZ2000. [3] = 0 - 40 col, 1 - 80 col. VMGRMODE EQU 0B9H ; Video Module graphics mode. 7/6 = Operator (00=OR,01=AND,10=NAND,11=XOR), 5=GRAM Output Enable, 4 = VRAM Output Enable, 3/2 = Write mode (00=Page 1:Red, 01=Page 2:Green, 10=Page 3:Blue, 11=Indirect), 1/0=Read mode (00=Page 1:Red, 01=Page2:Green, 10=Page 3:Blue, 11=Not used). VMREDMASK EQU 0BAH ; Video Module Red bit mask (1 bit = 1 pixel, 8 pixels per byte). VMGREENMASK EQU 0BBH ; Video Module Green bit mask (1 bit = 1 pixel, 8 pixels per byte). VMBLUEMASK EQU 0BCH ; Video Module Blue bit mask (1 bit = 1 pixel, 8 pixels per byte). VMPAGE EQU 0BDH ; Video Module memory page register. [1:0] switches in 1 16Kb page (3 pages) of graphics ram to C000 - FFFF. Bits [1:0] = page, 00 = off, 01 = Red, 10 = Green, 11 = Blue. This overrides all MZ700/MZ80B page switching functions. [7] 0 - normal, 1 - switches in CGROM for upload at D000:DFFF. VMVGATTR EQU 0BEH ; Select VGA Border colour and attributes. Bit 2 = Red, 1 = Green, 0 = Blue. VMVGAMODE EQU 0BFH ; Select VGA output mode. Bits [3:0] - Output mode. GDCRTC EQU 0CFH ; MZ-800 CRTC control register GDCMD EQU 0CEH ; MZ-800 CRTC Mode register GDGRF EQU 0CDH ; MZ-800 read format register GDGWF EQU 0CCH ; MZ-800 write format register MMIO0 EQU 0E0H ; MZ-700/MZ-800 Memory Management Set 0 MMIO1 EQU 0E1H ; MZ-700/MZ-800 Memory Management Set 1 MMIO2 EQU 0E2H ; MZ-700/MZ-800 Memory Management Set 2 MMIO3 EQU 0E3H ; MZ-700/MZ-800 Memory Management Set 3 MMIO4 EQU 0E4H ; MZ-700/MZ-800 Memory Management Set 4 MMIO5 EQU 0E5H ; MZ-700/MZ-800 Memory Management Set 5 MMIO6 EQU 0E6H ; MZ-700/MZ-800 Memory Management Set 6 MMIO7 EQU 0E7H ; MZ-700/MZ-800 Memory Management Set 7 SYSCTRL EQU 0F0H ; System board control register. [2:0] - 000 MZ80A Mode, 2MHz CPU/Bus, 001 MZ80B Mode, 4MHz CPU/Bus, 010 MZ700 Mode, 3.54MHz CPU/Bus. GRAMMODE EQU 0F4H ; MZ80B Graphics mode. Bit 0 = 0, Write to Graphics RAM I, Bit 0 = 1, Write to Graphics RAM II. Bit 1 = 1, blend Graphics RAM I output on display, Bit 2 = 1, blend Graphics RAM II output on display. ;----------------------------------------------- ; CPLD Configuration constants. ;----------------------------------------------- MODE_MZ80K EQU 0 ; Set to MZ-80K mode. MODE_MZ80C EQU 1 ; Set to MZ-80C mode. MODE_MZ1200 EQU 2 ; Set to MZ-1200 mode. MODE_MZ80A EQU 3 ; Set to MZ-80A mode (base mode on MZ-80A hardware). MODE_MZ700 EQU 4 ; Set to MZ-700 mode (base mode on MZ-700 hardware). MODE_MZ800 EQU 5 ; Set to MZ-800 mode. MODE_MZ80B EQU 6 ; Set to MZ-80B mode. MODE_MZ2000 EQU 7 ; Set to MZ-2000 mode. MODE_VIDEO_FPGA EQU 8 ; Bit flag (bit 3) to switch CPLD into using the new FPGA video hardware. MODE_RESET_PRESERVE EQU 080H ; Preserve register configuration through reset. ;----------------------------------------------- ; CPLD Command Instruction constants. ;----------------------------------------------- CPLD_RESET_HOST EQU 1 ; CPLD level command to reset the host system. CPLD_HOLD_HOST_BUS EQU 2 ; CPLD command to hold the host bus. CPLD_RELEASE_HOST_BUS EQU 3 ; CPLD command to release the host bus. ;----------------------------------------------- ; FPGA CPU enhancement control bits. ;----------------------------------------------- CPUMODE_SET_Z80 EQU 000H ; Set the CPU to the hard Z80. CPUMODE_SET_T80 EQU 001H ; Set the CPU to the soft T80. CPUMODE_SET_ZPU_EVO EQU 002H ; Set the CPU to the soft ZPU Evolution. CPUMODE_SET_AAA EQU 004H ; Place holder for a future soft CPU. CPUMODE_SET_BBB EQU 008H ; Place holder for a future soft CPU. CPUMODE_SET_CCC EQU 010H ; Place holder for a future soft CPU. CPUMODE_SET_DDD EQU 020H ; Place holder for a future soft CPU. CPUMODE_IS_Z80 EQU 000H ; Status value to indicate if the hard Z80 available. CPUMODE_IS_T80 EQU 001H ; Status value to indicate if the soft T80 available. CPUMODE_IS_ZPU_EVO EQU 002H ; Status value to indicate if the soft ZPU Evolution available. CPUMODE_IS_AAA EQU 004H ; Place holder to indicate if a future soft CPU is available. CPUMODE_IS_BBB EQU 008H ; Place holder to indicate if a future soft CPU is available. CPUMODE_IS_CCC EQU 010H ; Place holder to indicate if a future soft CPU is available. CPUMODE_IS_DDD EQU 020H ; Place holder to indicate if a future soft CPU is available. CPUMODE_RESET_CPU EQU 080H ; Reset the soft CPU. Active high, when high the CPU is held in RESET, when low the CPU runs. CPUMODE_IS_SOFT_AVAIL EQU 040H ; Marker to indicate if the underlying FPGA can support soft CPU's. CPUMODE_IS_SOFT_MASK EQU 0C0H ; Mask to filter out the Soft CPU availability flags. CPUMODE_IS_CPU_MASK EQU 03FH ; Mask to filter out which soft CPU's are available. ;----------------------------------------------- ; Video Module control bits. ;----------------------------------------------- MODE_80CHAR EQU 010H ; Enable 80 character display. MODE_COLOUR EQU 020H ; Enable colour display. SYSMODE_MZ80A EQU 000H ; System board mode MZ80A, 2MHz CPU/Bus. SYSMODE_MZ80B EQU 020H ; System board mode MZ80B, 4MHz CPU/Bus. SYSMODE_MZ2000 EQU 020H ; System board mode MZ2000, 4MHz CPU/Bus. SYSMODE_MZ700 EQU 042H ; System board mode MZ700, 3.54MHz CPU/Bus. VMMODE_MZ80K EQU 000H ; Video mode = MZ80K VMMODE_MZ80C EQU 001H ; Video mode = MZ80C VMMODE_MZ1200 EQU 002H ; Video mode = MZ1200 VMMODE_MZ80A EQU 003H ; Video mode = MZ80A VMMODE_MZ700 EQU 004H ; Video mode = MZ700 VMMODE_MZ800 EQU 005H ; Video mode = MZ800 VMMODE_MZ1500 EQU 006H ; Video mode = MZ1500 VMMODE_MZ80B EQU 007H ; Video mode = MZ80B VMMODE_MZ2000 EQU 008H ; Video mode = MZ2000 VMMODE_MZ2200 EQU 009H ; Video mode = MZ2200 VMMODE_MZ2500 EQU 00AH ; Video mode = MZ2500 VMMODE_PCGRAM EQU 020H ; Enable PCG RAM. VMMODE_VGA_OFF EQU 000H ; Set VGA mode off, external monitor is driven by standard internal 60Hz signals. VMMODE_VGA_INT EQU 000H ; Set VGA mode off, external monitor is driven by standard internal 60Hz signals. VMMODE_VGA_INT50 EQU 001H ; Set VGA mode off, external monitor is driven by standard internal 50Hz signals. VMMODE_VGA_640x480 EQU 002H ; Set external monitor to VGA 640x480 @ 60Hz mode. VMMODE_VGA_800x600 EQU 003H ; Set external monitor to VGA 800x600 @ 60Hz mode. ;----------------------------------------------- ; GPU commands. ;----------------------------------------------- GPUCLEARVRAM EQU 001H ; Clear the VRAM without updating attributes. GPUCLEARVRAMCA EQU 002H ; Clear the VRAM/ARAM with given attribute byte, GPUCLEARVRAMP EQU 003H ; Clear the VRAM/ARAM with parameters. GPUCLEARGRAM EQU 081H ; Clear the entire Framebuffer. GPUCLEARGRAMP EQU 082H ; Clear the Framebuffer according to parameters. GPURESET EQU 0FFH ; Reset the GPU, return to idle state. ;----------------------------------------------- ; tranZPUter SW Memory Management modes ;----------------------------------------------- TZMM_ENIOWAIT EQU 020H ; Memory management IO Wait State enable - insert a wait state when an IO operation to E0-FF is executed. TZMM_ORIG EQU 000H ; Original Sharp MZ80A mode, no tranZPUter features are selected except the I/O control registers (default: 0x60-063). TZMM_BOOT EQU 001H ; Original mode but E800-EFFF is mapped to tranZPUter RAM so TZFS can be booted. TZMM_TZFS EQU 002H + TZMM_ENIOWAIT ; TZFS main memory configuration. all memory is in tranZPUter RAM, E800-FFFF is used by TZFS, SA1510 is at 0000-1000 and RAM is 1000-CFFF, 64K Block 0 selected. TZMM_TZFS2 EQU 003H + TZMM_ENIOWAIT ; TZFS main memory configuration. all memory is in tranZPUter RAM, E800-EFFF is used by TZFS, SA1510 is at 0000-1000 and RAM is 1000-CFFF, 64K Block 0 selected, F000-FFFF is in 64K Block 1. TZMM_TZFS3 EQU 004H + TZMM_ENIOWAIT ; TZFS main memory configuration. all memory is in tranZPUter RAM, E800-EFFF is used by TZFS, SA1510 is at 0000-1000 and RAM is 1000-CFFF, 64K Block 0 selected, F000-FFFF is in 64K Block 2. TZMM_TZFS4 EQU 005H + TZMM_ENIOWAIT ; TZFS main memory configuration. all memory is in tranZPUter RAM, E800-EFFF is used by TZFS, SA1510 is at 0000-1000 and RAM is 1000-CFFF, 64K Block 0 selected, F000-FFFF is in 64K Block 3. TZMM_CPM EQU 006H + TZMM_ENIOWAIT ; CPM main memory configuration, all memory on the tranZPUter board, 64K block 4 selected. Special case for F3C0:F3FF & F7C0:F7FF (floppy disk paging vectors) which resides on the mainboard. TZMM_CPM2 EQU 007H + TZMM_ENIOWAIT ; CPM main memory configuration, F000-FFFF are on the tranZPUter board in block 4, 0040-CFFF and E800-EFFF are in block 5, mainboard for D000-DFFF (video), E000-E800 (Memory control) selected. ; Special case for 0000:003F (interrupt vectors) which resides in block 4, F3C0:F3FF & F7C0:F7FF (floppy disk paging vectors) which resides on the mainboard. TZMM_COMPAT EQU 008H + TZMM_ENIOWAIT ; Original mode but with main DRAM in Bank 0 to allow bootstrapping of programs from other machines such as the MZ700. TZMM_HOSTACCESS EQU 009H + TZMM_ENIOWAIT ; Mode to allow code running in Bank 0, address E800:FFFF to access host memory. Monitor ROM 0000-0FFF and Main DRAM 0x1000-0xD000, video and memory mapped I/O are on the host machine, User/Floppy ROM E800-FFFF are in tranZPUter memory. TZMM_MZ700_0 EQU 00AH + TZMM_ENIOWAIT ; MZ700 Mode - 0000:0FFF is on the tranZPUter board in block 6, 1000:CFFF is on the tranZPUter board in block 0, D000:FFFF is on the mainboard. TZMM_MZ700_1 EQU 00BH + TZMM_ENIOWAIT ; MZ700 Mode - 0000:0FFF is on the tranZPUter board in block 0, 1000:CFFF is on the tranZPUter board in block 0, D000:FFFF is on the tranZPUter in block 6. TZMM_MZ700_2 EQU 00CH + TZMM_ENIOWAIT ; MZ700 Mode - 0000:0FFF is on the tranZPUter board in block 6, 1000:CFFF is on the tranZPUter board in block 0, D000:FFFF is on the tranZPUter in block 6. TZMM_MZ700_3 EQU 00DH + TZMM_ENIOWAIT ; MZ700 Mode - 0000:0FFF is on the tranZPUter board in block 0, 1000:CFFF is on the tranZPUter board in block 0, D000:FFFF is inaccessible. TZMM_MZ700_4 EQU 00EH + TZMM_ENIOWAIT ; MZ700 Mode - 0000:0FFF is on the tranZPUter board in block 6, 1000:CFFF is on the tranZPUter board in block 0, D000:FFFF is inaccessible. TZMM_MZ800 EQU 00FH + TZMM_ENIOWAIT ; MZ800 Mode - Tracks original hardware mode offering MZ700/MZ800 configurations. TZMM_MZ2000 EQU 010H + TZMM_ENIOWAIT; ; MZ2000 Mode - Running on MZ2000 hardware, configuration set according to runtime configuration registers. TZMM_FPGA EQU 015H + TZMM_ENIOWAIT ; Open up access for the K64F to the FPGA resources such as memory. All other access to RAM or mainboard is blocked. TZMM_TZPUM EQU 016H + TZMM_ENIOWAIT ; Everything in on mainboard, no access to tranZPUter memory. TZMM_TZPU EQU 017H + TZMM_ENIOWAIT ; Everything is in tranZPUter domain, no access to underlying Sharp mainboard unless memory management mode is switched. tranZPUter RAM 64K block 0 is selected. ;TZMM_TZPU0 EQU 018H + TZMM_ENIOWAIT ; Everything is in tranZPUter domain, no access to underlying Sharp mainboard unless memory management mode is switched. tranZPUter RAM 64K block 0 is selected. ;TZMM_TZPU1 EQU 019H + TZMM_ENIOWAIT ; Everything is in tranZPUter domain, no access to underlying Sharp mainboard unless memory management mode is switched. tranZPUter RAM 64K block 1 is selected. ;TZMM_TZPU2 EQU 01AH + TZMM_ENIOWAIT ; Everything is in tranZPUter domain, no access to underlying Sharp mainboard unless memory management mode is switched. tranZPUter RAM 64K block 2 is selected. ;TZMM_TZPU3 EQU 01BH + TZMM_ENIOWAIT ; Everything is in tranZPUter domain, no access to underlying Sharp mainboard unless memory management mode is switched. tranZPUter RAM 64K block 3 is selected. ;TZMM_TZPU4 EQU 01CH + TZMM_ENIOWAIT ; Everything is in tranZPUter domain, no access to underlying Sharp mainboard unless memory management mode is switched. tranZPUter RAM 64K block 4 is selected. ;TZMM_TZPU5 EQU 01DH + TZMM_ENIOWAIT ; Everything is in tranZPUter domain, no access to underlying Sharp mainboard unless memory management mode is switched. tranZPUter RAM 64K block 5 is selected. ;TZMM_TZPU6 EQU 01EH + TZMM_ENIOWAIT ; Everything is in tranZPUter domain, no access to underlying Sharp mainboard unless memory management mode is switched. tranZPUter RAM 64K block 6 is selected. ;TZMM_TZPU7 EQU 01FH + TZMM_ENIOWAIT ; Everything is in tranZPUter domain, no access to underlying Sharp mainboard unless memory management mode is switched. tranZPUter RAM 64K block 7 is selected. ;----------------------------------------------- ; TZ File System Header (MZF) ;----------------------------------------------- TZFS_ATRB: EQU 00000h ; Code Type, 01 = Machine Code. TZFS_NAME: EQU 00001h ; Title/Name (17 bytes). TZFS_SIZE: EQU 00012h ; Size of program. TZFS_DTADR: EQU 00014h ; Load address of program. TZFS_EXADR: EQU 00016h ; Exec address of program. TZFS_COMNT: EQU 00018h ; Comment TZFS_MZFLEN: EQU 128 ; Length of the MZF header. TZFS_CMTLEN: EQU 104 ; Length of the comment field ;----------------------------------------------- ; BIOS WORK AREA (MZ80A) ;----------------------------------------------- ; Variables and control structure used by the I/O processor for service calls and requests. ORG TZSVCMEM TZSVCMEM: EQU 0FD80H ; Start of a memory structure used to communicate with the K64F I/O processor for services such as disk access. TZSVCSIZE: EQU 00280H ; TZSVCDIRSZ: EQU 20 ; Size of the directory/file name. TZSVCFILESZ: EQU 17 ; Size of a Sharp filename. TZSVCLONGFILESZ: EQU 31 ; Size of a standard filename. TZSVCLONGFMTSZ: EQU 20 ; Size of a formatted standard filename for use in directory listings. TZSVCWILDSZ: EQU 20 ; Size of the wildcard. TZSVCSECSIZE: EQU 512 TZSVCDIR_ENTSZ: EQU 32 ; Size of a directory entry. TZSVCWAITIORETRIES: EQU 500 ; Wait retries for IO response. TZSVCWAITCOUNT: EQU 65535 ; Wait retries for IO request response. TZSVC_FTYPE_MZF: EQU 0 ; File type being handled is an MZF TZSVC_FTYPE_MZFHDR: EQU 1 ; File type being handled is an MZF Header. TZSVC_FTYPE_CAS: EQU 2 ; File type being handled is an CASsette BASIC script. TZSVC_FTYPE_BAS: EQU 3 ; File type being handled is an BASic script TZSVC_FTYPE_ALL: EQU 10 ; Handle any filetype. TZSVC_FTYPE_ALLFMT: EQU 11 ; Special case for directory listings, all files but truncated and formatted. TZSVCCMD: DS virtual 1 ; Service command. TZSVCRESULT: DS virtual 1 ; Service command result. TZSVCDIRSEC: DS virtual 1 ; Storage for the directory sector number. TZSVC_FILE_SEC: EQU TZSVCDIRSEC ; Union of the file and directory sector as only one can be used at a time. TZSVC_TRACK_NO: DS virtual 2 ; Storage for the virtual drive track number. TZSVC_SECTOR_NO: DS virtual 2 ; Storage for the virtual drive sector number. TZSVC_FILE_NO: DS virtual 1 ; File number to be opened in a file service command. TZSVC_FILE_TYPE: DS virtual 1 ; Type of file being accessed to differentiate between Sharp MZF files and other handled files. TZSVC_LOADADDR: DS virtual 2 ; Dynamic load address for rom/images. TZSVC_SAVEADDR: EQU TZSVC_LOADADDR ; Union of the load address and the cpu frequency change value, the address of data to be saved. TZSVC_CPU_FREQ: EQU TZSVC_LOADADDR ; Union of the load address and the save address value, only one can be used at a time. TZSVC_LOADSIZE: DS virtual 2 ; Size of image to load. TZSVC_SAVESIZE: EQU TZSVC_LOADSIZE ; Size of image to be saved. TZSVC_DIRNAME: DS virtual TZSVCDIRSZ ; Service directory/file name. TZSVC_FILENAME: DS virtual TZSVCFILESZ ; Filename to be opened/created. TZSVCWILDC: DS virtual TZSVCWILDSZ ; Directory wildcard for file pattern matching. TZSVCSECTOR: DS virtual TZSVCSECSIZE ; Service command sector - to store directory entries, file sector read or writes. TZSVC_CMD_READDIR EQU 01H ; Service command to open a directory and return the first block of entries. TZSVC_CMD_NEXTDIR EQU 02H ; Service command to return the next block of an open directory. TZSVC_CMD_READFILE EQU 03H ; Service command to open a file and return the first block. TZSVC_CMD_NEXTREADFILE EQU 04H ; Service command to return the next block of an open file. TZSVC_CMD_WRITEFILE EQU 05H ; Service command to create a file and save the first block. TZSVC_CMD_NEXTWRITEFILE EQU 06H ; Service command to write the next block to the open file. TZSVC_CMD_CLOSE EQU 07H ; Service command to close any open file or directory. TZSVC_CMD_LOADFILE EQU 08H ; Service command to load a file directly into tranZPUter memory. TZSVC_CMD_SAVEFILE EQU 09H ; Service command to save a file directly from tranZPUter memory. TZSVC_CMD_ERASEFILE EQU 0aH ; Service command to erase a file on the SD card. TZSVC_CMD_CHANGEDIR EQU 0bH ; Service command to change the active directory on the SD card. TZSVC_CMD_LOAD40ABIOS EQU 20H ; Service command requesting that the 40 column version of the SA1510 BIOS is loaded. TZSVC_CMD_LOAD80ABIOS EQU 21H ; Service command requesting that the 80 column version of the SA1510 BIOS is loaded. TZSVC_CMD_LOAD700BIOS40 EQU 22H ; Service command requesting that the MZ700 1Z-013A 40 column BIOS is loaded. TZSVC_CMD_LOAD700BIOS80 EQU 23H ; Service command requesting that the MZ700 1Z-013A 80 column patched BIOS is loaded. TZSVC_CMD_LOAD80BIPL EQU 24H ; Service command requesting the MZ-80B IPL is loaded. TZSVC_CMD_LOAD800BIOS EQU 25H ; Service command requesting that the MZ800 9Z-504M BIOS is loaded. TZSVC_CMD_LOAD2000IPL EQU 26H ; Service command requesting the MZ-2000 IPL is loaded. TZSVC_CMD_LOADTZFS EQU 2FH ; Service command requesting the loading of TZFS. This service is for machines which normally dont have a monitor BIOS. ie. MZ-80B/MZ-2000 and manually request TZFS. TZSVC_CMD_LOADBDOS EQU 30H ; Service command to reload CPM BDOS+CCP. TZSVC_CMD_ADDSDDRIVE EQU 31H ; Service command to attach a CPM disk to a drive number. TZSVC_CMD_READSDDRIVE EQU 32H ; Service command to read an attached SD file as a CPM disk drive. TZSVC_CMD_WRITESDDRIVE EQU 33H ; Service command to write to a CPM disk drive which is an attached SD file. TZSVC_CMD_CPU_BASEFREQ EQU 40H ; Service command to switch to the mainboard frequency. TZSVC_CMD_CPU_ALTFREQ EQU 41H ; Service command to switch to the alternate frequency provided by the K64F. TZSVC_CMD_CPU_CHGFREQ EQU 42H ; Service command to set the alternate frequency in hertz. TZSVC_CMD_CPU_SETZ80 EQU 50H ; Service command to switch to the external Z80 hard cpu. TZSVC_CMD_CPU_SETT80 EQU 51H ; Service command to switch to the internal T80 soft cpu. TZSVC_CMD_CPU_SETZPUEVO EQU 52H ; Service command to switch to the internal ZPU Evolution soft cpu. TZSVC_CMD_EMU_SETMZ80K EQU 53H ; Service command to switch to the internal Sharp MZ Series Emulation of the MZ80K. TZSVC_CMD_EMU_SETMZ80C EQU 54H ; "" "" "" MZ80C. TZSVC_CMD_EMU_SETMZ1200 EQU 55H ; "" "" "" MZ1200. TZSVC_CMD_EMU_SETMZ80A EQU 56H ; "" "" "" MZ80A. TZSVC_CMD_EMU_SETMZ700 EQU 57H ; "" "" "" MZ700. TZSVC_CMD_EMU_SETMZ800 EQU 58H ; "" "" "" MZ800. TZSVC_CMD_EMU_SETMZ1500 EQU 59H ; "" "" "" MZ1500. TZSVC_CMD_EMU_SETMZ80B EQU 5AH ; "" "" "" MZ80B. TZSVC_CMD_EMU_SETMZ2000 EQU 5BH ; "" "" "" MZ2000. TZSVC_CMD_EMU_SETMZ2200 EQU 5CH ; "" "" "" MZ2200. TZSVC_CMD_EMU_SETMZ2500 EQU 5DH ; "" "" "" MZ2500. TZSVC_CMD_EXIT EQU 07FH ; Service command to terminate TZFS and restart the machine in original mode. TZSVC_STATUS_OK EQU 000H ; Flag to indicate the K64F processing completed successfully. TZSVC_STATUS_REQUEST EQU 0FEH ; Flag to indicate the Z80 has made a request to the K64F. TZSVC_STATUS_PROCESSING EQU 0FFH ; Flag to indicate the K64F is processing a command.