498 lines
26 KiB
NASM
498 lines
26 KiB
NASM
;--------------------------------------------------------------------------------------------------------
|
|
;-
|
|
;- Name: rfs_bank6.asm
|
|
;- Created: July 2019
|
|
;- Author(s): Philip Smart
|
|
;- Description: Sharp MZ series Rom Filing System.
|
|
;- This assembly language program is written to utilise the banked flashroms added with
|
|
;- the MZ-80A RFS hardware upgrade.
|
|
;-
|
|
;- Credits:
|
|
;- Copyright: (c) 2018-2020 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
|
|
; latch adds additional instruction overhead as the control latches share
|
|
; the same address space as the Flash RAMS thus the extra hardware to
|
|
; only enable the control registers if a fixed number of reads is made
|
|
; into the upper 8 bytes which normally wouldnt occur. Caveat - ensure
|
|
; that no loop instruction is ever placed into EFF8H - EFFFH.
|
|
; July 2020 - Updated for the v2.1 hardware. RFS can run with a tranZPUter board with
|
|
; or without the K64 I/O processor. RFS wont use the K64 processor all
|
|
; operations are done by the Z80 under RFS.
|
|
;-
|
|
;--------------------------------------------------------------------------------------------------------
|
|
;- 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 <http://www.gnu.org/licenses/>.
|
|
;--------------------------------------------------------------------------------------------------------
|
|
|
|
|
|
;======================================
|
|
;
|
|
; USER ROM BANK 6
|
|
;
|
|
;======================================
|
|
ORG UROMADDR
|
|
|
|
;--------------------------------
|
|
; Common code spanning all banks.
|
|
;--------------------------------
|
|
NOP
|
|
LD B,16 ; If we read the bank control reset register 15 times then this will enable bank control and then the 16th read will reset all bank control registers to default.
|
|
ROMFS6_0: LD A,(BNKCTRLRST)
|
|
DJNZ ROMFS6_0 ; Apply the default number of coded latch reads to enable the bank control registers.
|
|
LD A,BNKCTRLDEF ; Set coded latch, SDCS high, BBMOSI to high and BBCLK to high which enables SDCLK.
|
|
LD (BNKCTRL),A
|
|
NOP
|
|
NOP
|
|
NOP
|
|
XOR A ; We shouldnt arrive here after a reset, if we do, select UROM bank 0
|
|
LD (BNKSELMROM),A
|
|
NOP
|
|
NOP
|
|
NOP
|
|
LD (BNKSELUSER),A ; and start up - ie. SA1510 Monitor - this occurs as User Bank 0 is enabled and the jmp to 0 is coded in it.
|
|
;
|
|
; No mans land... this should have switched to Bank 0 and at this point there is a jump to 00000H.
|
|
JP 00000H ; This is for safety!!
|
|
|
|
|
|
;------------------------------------------------------------------------------------------
|
|
; Bank switching code, allows a call to code in another bank.
|
|
; This code is duplicated in each bank such that a bank switch doesnt affect logic flow.
|
|
;------------------------------------------------------------------------------------------
|
|
ALIGN_NOPS UROMBSTBL
|
|
;
|
|
BKSW6to0: PUSH AF
|
|
LD A, ROMBANK6 ; Calling bank (ie. us).
|
|
PUSH AF
|
|
LD A, ROMBANK0 ; Required bank to call.
|
|
JR BKSW6_0
|
|
BKSW6to1: PUSH AF
|
|
LD A, ROMBANK6 ; Calling bank (ie. us).
|
|
PUSH AF
|
|
LD A, ROMBANK1 ; Required bank to call.
|
|
JR BKSW6_0
|
|
BKSW6to2: PUSH AF
|
|
LD A, ROMBANK6 ; Calling bank (ie. us).
|
|
PUSH AF
|
|
LD A, ROMBANK2 ; Required bank to call.
|
|
JR BKSW6_0
|
|
BKSW6to3: PUSH AF
|
|
LD A, ROMBANK6 ; Calling bank (ie. us).
|
|
PUSH AF
|
|
LD A, ROMBANK3 ; Required bank to call.
|
|
JR BKSW6_0
|
|
BKSW6to4: PUSH AF
|
|
LD A, ROMBANK6 ; Calling bank (ie. us).
|
|
PUSH AF
|
|
LD A, ROMBANK4 ; Required bank to call.
|
|
JR BKSW6_0
|
|
BKSW6to5: PUSH AF
|
|
LD A, ROMBANK6 ; Calling bank (ie. us).
|
|
PUSH AF
|
|
LD A, ROMBANK5 ; Required bank to call.
|
|
JR BKSW6_0
|
|
BKSW6to6: PUSH AF
|
|
LD A, ROMBANK6 ; Calling bank (ie. us).
|
|
PUSH AF
|
|
LD A, ROMBANK6 ; Required bank to call.
|
|
JR BKSW6_0
|
|
BKSW6to7: PUSH AF
|
|
LD A, ROMBANK6 ; Calling bank (ie. us).
|
|
PUSH AF
|
|
LD A, ROMBANK7 ; Required bank to call.
|
|
;
|
|
BKSW6_0: PUSH HL ; Place function to call on stack
|
|
LD HL, BKSWRET6 ; Place bank switchers return address on stack.
|
|
EX (SP),HL
|
|
LD (TMPSTACKP),SP ; Save the stack pointer as some old code corrupts it.
|
|
LD (BNKSELUSER), A ; Repeat the bank switch B times to enable the bank control register and set its value.
|
|
JP (HL) ; Jump to required function.
|
|
BKSWRET6: POP AF ; Get bank which called us.
|
|
LD (BNKSELUSER), A ; Return to that bank.
|
|
POP AF
|
|
RET
|
|
|
|
;-------------------------------------------------------------------------------
|
|
; START OF PRINT ROUTINE METHODS
|
|
;-------------------------------------------------------------------------------
|
|
|
|
; Method to print out a true ASCII character, not the Sharp values. This is done using the mapping table ATBL for the
|
|
; range 0..127, 128.. call the original Sharp routine.
|
|
; Input: A = Ascii character.
|
|
PRINTASCII: PUSH HL
|
|
PUSH BC
|
|
CP 080H ; Anything above 080H isnt ascii so call original routine.
|
|
JR NC,PRINTASCII1
|
|
CP 00DH ; Carriage Return? Dont map just execute via original Sharp call.
|
|
JR Z,PRINTASCII1
|
|
LD HL,ATBL
|
|
LD C,A
|
|
LD B,0
|
|
ADD HL,BC
|
|
LD A,(HL)
|
|
CALL ?DSP
|
|
PRINTASCII0:POP BC
|
|
POP HL
|
|
RET
|
|
PRINTASCII1:CALL PRNT
|
|
JR PRINTASCII0
|
|
|
|
; Method to print out a string residing in this bank.
|
|
;
|
|
; As string messages take up space and banks are limited, it makes sense to locate all strings in one
|
|
; bank and print them out from here, hence this method.
|
|
;
|
|
; Also, as strings often require embedded values to be printed (aka printf), a basic mechanism for printing out stack
|
|
; parameters is provided. A PUSH before calling this method followed by an embedded marker (ie. 0xFF) will see the stack
|
|
; value printed in hex at the point in the string where the marker appears.
|
|
;
|
|
; Input: DE = Address, in this bank or any other location EXCEPT another bank.
|
|
; BC = Value to print with marker 0xFB if needed.
|
|
; Upto 4 stack values accessed by markers 0xFF, 0xFE, 0xFD, 0xFC
|
|
PRINTMSG: LD A,(DE)
|
|
CP 000H ; End of string?
|
|
RET Z
|
|
CP 0FFH ; Marker to print out first stack parameter.
|
|
JR Z,PRINTMSG3
|
|
CP 0FEH ; Marker to print out second stack parameter.
|
|
JR Z,PRINTMSG6
|
|
CP 0FDH ; Marker to print out third stack parameter.
|
|
JR Z,PRINTMSG7
|
|
CP 0FCH ; Marker to print out fourth stack parameter.
|
|
JR Z,PRINTMSG8
|
|
CP 0FBH ; Marker to print out BC.
|
|
JR Z,PRINTMSG9
|
|
CP 0FAH ; Marker to print out a filename with filename address stored in BC.
|
|
JR Z,PRINTMSG10
|
|
CP 0F9H ; Marker to print out C as a character.
|
|
JR NZ,PRINTMSG1
|
|
LD A,C
|
|
PRINTMSG1: CALL PRINTASCII
|
|
PRINTMSG2: INC DE
|
|
JR PRINTMSG
|
|
PRINTMSG3: LD HL,8+0 ; Get first stack parameter, there are 2 pushes on the stack plus return address before the parameters.
|
|
PRINTMSG4: ADD HL,SP
|
|
LD A,(HL)
|
|
INC HL
|
|
LD H,(HL)
|
|
LD L,A
|
|
PRINTMSG5: CALL PRTHL
|
|
JR PRINTMSG2
|
|
PRINTMSG6: LD HL,8+2
|
|
JR PRINTMSG4
|
|
PRINTMSG7: LD HL,8+4
|
|
JR PRINTMSG4
|
|
PRINTMSG8: LD HL,8+6
|
|
JR PRINTMSG4
|
|
PRINTMSG9: PUSH BC ; Print out contents of BC as 4 digit hex.
|
|
POP HL
|
|
JR PRINTMSG5
|
|
PRINTMSG10: PUSH DE ; Print out a filename with pointer stored in BC.
|
|
PUSH BC
|
|
POP DE
|
|
CALL PRTFN
|
|
POP DE
|
|
JR PRINTMSG2
|
|
|
|
|
|
; Method to print out the filename within an MZF header or SD Card header.
|
|
; The name may not be terminated as the full 17 chars are used, so this needs
|
|
; to be checked. Also, the filename uses Sharp Ascii so call the original Sharp
|
|
; print routine.
|
|
;
|
|
; Input: DE = Address of filename.
|
|
;
|
|
PRTFN: PUSH BC
|
|
LD B,FNSIZE ; Maximum size of filename.
|
|
PRTMSG: LD A,(DE)
|
|
INC DE
|
|
CP 000H ; If there is a valid terminator, exit.
|
|
JR Z,PRTMSGE
|
|
CP 00DH
|
|
JR Z,PRTMSGE
|
|
CALL PRNT
|
|
DJNZ PRTMSG ; Else print until 17 chars have been processed.
|
|
CALL NL
|
|
PRTMSGE: POP BC
|
|
RET
|
|
;-------------------------------------------------------------------------------
|
|
; END OF PRINT ROUTINE METHODS
|
|
;-------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
;-------------------------------------------------------------------------------
|
|
; START OF HELP SCREEN FUNCTIONALITY
|
|
;-------------------------------------------------------------------------------
|
|
|
|
; Simple help screen to display commands.
|
|
HELP: CALL NL
|
|
LD DE, HELPSCR
|
|
CALL PRTSTR
|
|
RET
|
|
|
|
; A modified print string routine with full screen pause to print out the help screen text. The routine prints out true ascii
|
|
; as opposed to Sharp modified ascii.
|
|
; A string is NULL terminated.
|
|
PRTSTR: PUSH AF
|
|
PUSH BC
|
|
PUSH DE
|
|
LD A,0
|
|
LD (TMPLINECNT),A
|
|
PRTSTR1: LD A,(DE)
|
|
CP 000H ; NULL terminates the string.
|
|
JR Z,PRTSTRE
|
|
CP 00DH ; As does CR.
|
|
JR Z,PRTSTR3
|
|
PRTSTR2: CALL PRINTASCII
|
|
INC DE
|
|
JR PRTSTR1
|
|
PRTSTR3: PUSH AF
|
|
LD A,(TMPLINECNT)
|
|
CP 24
|
|
JR Z,PRTSTR5
|
|
INC A
|
|
PRTSTR4: LD (TMPLINECNT),A
|
|
POP AF
|
|
JR PRTSTR2
|
|
PRTSTR5: CALL GETKY
|
|
CP ' '
|
|
JR NZ,PRTSTR5
|
|
XOR A
|
|
JR PRTSTR4
|
|
PRTSTRE: POP DE
|
|
POP BC
|
|
POP AF
|
|
RET
|
|
|
|
; Help text. Use of lower case, due to Sharp's non standard character set, is not easy, you have to manually code each byte
|
|
; hence using upper case.
|
|
; 1 40
|
|
HELPSCR: DB "0..9 - select RFS Drive.", 00DH
|
|
DB "40 - 40 col mode.", 00DH
|
|
DB "80 - 80 col mode.", 00DH
|
|
;DB "700 - Select MZ-700 Mode.", 00DH
|
|
;DB "7008 - Select MZ-700 80 col Mode.", 00DH
|
|
DB "B - toggle keyboard bell.", 00DH
|
|
DB "BASIC - Load BASIC SA-5510.", 00DH
|
|
DB "C - clear memory $1200-$D000.", 00DH
|
|
DB "CPXXXXYYYYZZZZ - copy memory", 00DH
|
|
DB " XXXX=src,YYYY=dst,ZZZZ=size", 00DH
|
|
DB "CPM - Load CPM.", 00DH
|
|
DB "DXXXX[YYYY] - dump mem XXXX to YYYY.", 00DH
|
|
DB "EC[FN]- erase file, FN=No, or Filename", 00DH
|
|
DB "F[X] - boot fd drive X.", 00DH
|
|
DB "f - boot fd original rom.", 00DH
|
|
DB "H - this help screen.", 00DH
|
|
DB "IR/IC - rfs dir listing rom/sd card.", 00DH
|
|
DB "JXXXX - jump to location XXXX.", 00DH
|
|
DB "LT[FN]- load tape, FN=Filename", 00DH
|
|
DB "LR[FN]- load rom, FN=No. or Filename", 00DH
|
|
DB "LC[FN]- load sdcard, FN=No. or Filename", 00DH
|
|
DB " - add NX for no exec, ie.LRNX.", 00DH
|
|
DB "MXXXX - edit memory starting at XXXX.", 00DH
|
|
DB "P - test printer.", 00DH
|
|
DB "R - test dram memory.", 00DH
|
|
DB "SD2T - copy sd card to tape.", 00DH
|
|
DB "ST[XXXXYYYYZZZZ] - save mem to tape.", 00DH
|
|
DB "SC[XXXXYYYYZZZZ] - save mem to card.", 00DH
|
|
DB " XXXX=start,YYYY=end,ZZZZ=exec", 00DH
|
|
DB "T - test timer.", 00DH
|
|
DB "T2SD - copy tape to sd card.", 00DH
|
|
DB "V - verify tape save.", 00DH
|
|
DB 000H
|
|
|
|
;-------------------------------------------------------------------------------
|
|
; END OF HELP SCREEN FUNCTIONALITY
|
|
;-------------------------------------------------------------------------------
|
|
|
|
; TRUE ASCII TO DISPLAY CODE TABLE
|
|
;
|
|
ATBL: DB 0CCH ; NUL '\0' (null character)
|
|
DB 0E0H ; SOH (start of heading)
|
|
DB 0F2H ; STX (start of text)
|
|
DB 0F3H ; ETX (end of text)
|
|
DB 0CEH ; EOT (end of transmission)
|
|
DB 0CFH ; ENQ (enquiry)
|
|
DB 0F6H ; ACK (acknowledge)
|
|
DB 0F7H ; BEL '\a' (bell)
|
|
DB 0F8H ; BS '\b' (backspace)
|
|
DB 0F9H ; HT '\t' (horizontal tab)
|
|
DB 0FAH ; LF '\n' (new line)
|
|
DB 0FBH ; VT '\v' (vertical tab)
|
|
DB 0FCH ; FF '\f' (form feed)
|
|
DB 0FDH ; CR '\r' (carriage ret)
|
|
DB 0FEH ; SO (shift out)
|
|
DB 0FFH ; SI (shift in)
|
|
DB 0E1H ; DLE (data link escape)
|
|
DB 0C1H ; DC1 (device control 1)
|
|
DB 0C2H ; DC2 (device control 2)
|
|
DB 0C3H ; DC3 (device control 3)
|
|
DB 0C4H ; DC4 (device control 4)
|
|
DB 0C5H ; NAK (negative ack.)
|
|
DB 0C6H ; SYN (synchronous idle)
|
|
DB 0E2H ; ETB (end of trans. blk)
|
|
DB 0E3H ; CAN (cancel)
|
|
DB 0E4H ; EM (end of medium)
|
|
DB 0E5H ; SUB (substitute)
|
|
DB 0E6H ; ESC (escape)
|
|
DB 0EBH ; FS (file separator)
|
|
DB 0EEH ; GS (group separator)
|
|
DB 0EFH ; RS (record separator)
|
|
DB 0F4H ; US (unit separator)
|
|
DB 000H ; SPACE
|
|
DB 061H ; !
|
|
DB 062H ; "
|
|
DB 063H ; #
|
|
DB 064H ; $
|
|
DB 065H ; %
|
|
DB 066H ; &
|
|
DB 067H ; '
|
|
DB 068H ; (
|
|
DB 069H ; )
|
|
DB 06BH ; *
|
|
DB 06AH ; +
|
|
DB 02FH ; ,
|
|
DB 02AH ; -
|
|
DB 02EH ; .
|
|
DB 02DH ; /
|
|
DB 020H ; 0
|
|
DB 021H ; 1
|
|
DB 022H ; 2
|
|
DB 023H ; 3
|
|
DB 024H ; 4
|
|
DB 025H ; 5
|
|
DB 026H ; 6
|
|
DB 027H ; 7
|
|
DB 028H ; 8
|
|
DB 029H ; 9
|
|
DB 04FH ; :
|
|
DB 02CH ; ;
|
|
DB 051H ; <
|
|
DB 02BH ; =
|
|
DB 057H ; >
|
|
DB 049H ; ?
|
|
DB 055H ; @
|
|
DB 001H ; A
|
|
DB 002H ; B
|
|
DB 003H ; C
|
|
DB 004H ; D
|
|
DB 005H ; E
|
|
DB 006H ; F
|
|
DB 007H ; G
|
|
DB 008H ; H
|
|
DB 009H ; I
|
|
DB 00AH ; J
|
|
DB 00BH ; K
|
|
DB 00CH ; L
|
|
DB 00DH ; M
|
|
DB 00EH ; N
|
|
DB 00FH ; O
|
|
DB 010H ; P
|
|
DB 011H ; Q
|
|
DB 012H ; R
|
|
DB 013H ; S
|
|
DB 014H ; T
|
|
DB 015H ; U
|
|
DB 016H ; V
|
|
DB 017H ; W
|
|
DB 018H ; X
|
|
DB 019H ; Y
|
|
DB 01AH ; Z
|
|
DB 052H ; [
|
|
DB 059H ; \ '\\'
|
|
DB 054H ; ]
|
|
DB 0BEH ; ^
|
|
DB 03CH ; _
|
|
DB 0C7H ; `
|
|
DB 081H ; a
|
|
DB 082H ; b
|
|
DB 083H ; c
|
|
DB 084H ; d
|
|
DB 085H ; e
|
|
DB 086H ; f
|
|
DB 087H ; g
|
|
DB 088H ; h
|
|
DB 089H ; i
|
|
DB 08AH ; j
|
|
DB 08BH ; k
|
|
DB 08CH ; l
|
|
DB 08DH ; m
|
|
DB 08EH ; n
|
|
DB 08FH ; o
|
|
DB 090H ; p
|
|
DB 091H ; q
|
|
DB 092H ; r
|
|
DB 093H ; s
|
|
DB 094H ; t
|
|
DB 095H ; u
|
|
DB 096H ; v
|
|
DB 097H ; w
|
|
DB 098H ; x
|
|
DB 099H ; y
|
|
DB 09AH ; z
|
|
DB 0BCH ; {
|
|
DB 080H ; |
|
|
DB 040H ; }
|
|
DB 0A5H ; ~
|
|
DB 0C0H ; DEL
|
|
|
|
;--------------------------------------
|
|
;
|
|
; Message table
|
|
;
|
|
;--------------------------------------
|
|
MSGSONTZ: DB "+ TZ" ; Version 2.x with version 2.1+ of tranZPUter board installed.
|
|
MSGSON: DB "+ RFS ", 0ABh, "2.1a **", 00DH, 000H ; Version 2.x-> as we are now using the v2.x PCB with 4 devices on-board
|
|
MSGNOTFND: DB "Not Found", 00DH, 000H
|
|
MSGRDIRLST: DB "ROM Directory:", 00DH, 000H
|
|
MSGTRM: DB 00DH, 000H
|
|
MSGBADCMD: DB "???", 00DH, 000H
|
|
MSGSDINITER:DB "SD Card Error ", 0F9H, 00DH, 000H
|
|
MSGCDIRLST: DB "SD Card Directory ",0F9H,":", 00DH, 000H
|
|
MSGSDRERR: DB "Read error, Sec:",0FBH, 000H
|
|
MSGSDWERR: DB "Write error, Sec:",0FBH, 000H
|
|
MSGSVFAIL: DB "Error, save failed.", 00DH, 000H
|
|
MSGERAFAIL: DB "Dir update failed.", 00DH, 000H
|
|
MSGSVDIRENT:DB "Saving into dir entry:",0FBH, 00DH, 000H
|
|
MSGERASEDIR:DB "Deleted dir entry:",0FBH, 000H
|
|
MSGCMTDATA: DB "Load:",0FEH,",Exec:",0FFH, ",Size:",0FBH, 00DH, 000H
|
|
MSGNOTBIN: DB "Not binary", 00DH, 000H
|
|
MSGLOAD: DB 00DH, "Loading ",'"',0FAH,'"', 00DH, 000H
|
|
MSGSAVE: DB 00DH, "Filename: ", 000H
|
|
MSGDIRFULL: DB "Directory full", 00DH, 000H
|
|
MSGE1: DB 00DH, "Check sum error!", 00DH, 000H ; Check sum error.
|
|
MSGCMTWRITE:DB 00DH, "Writing ", '"',0FAH,'"', 00DH, 000H
|
|
MSGOK: DB 00DH, "OK!", 00DH, 000H
|
|
MSGSAVEOK: DB "Tape image saved.", 00DH, 000H
|
|
MSGBOOTDRV: DB 00DH, "Floppy boot drive ?", 000H
|
|
MSGLOADERR: DB 00DH, "Disk loading error", 00DH, 000H
|
|
MSGIPLLOAD: DB 00DH, "Disk loading ", 000H
|
|
MSGDSKNOTMST:DB 00DH, "Not a boot disk", 00Dh, 000H
|
|
MSGINITM: DB "Init memory", 00DH, 000H
|
|
MSGREAD4HEX:DB "Bad hex number", 00DH, 000H
|
|
MSGT2SDERR: DB "Copy from Tape to SD Failed", 00DH, 000H
|
|
MSGSD2TERR: DB "Copy from SD to Tape Failed", 00DH, 000H
|
|
MSGT2SDOK: DB "Success, Tape to SD done.", 00DH, 000H
|
|
MSGSD2TOK: DB "Success, SD to Tape done.", 00DH, 000H
|
|
MSGNOTZINST:DB "No tranZPUter >=v2 card installed.", 00DH, 000H
|
|
MSGNOCMTDIR:DB "CMT has no directory.", 00DH, 000H
|
|
MSGINVDRV: DB "Invalid drive, SD=0..9 or C=CMT", 00DH, 000H
|
|
MSGNOVERIFY:DB "No Verify for SD!", 00DH, 000H
|
|
|
|
ALIGN 0EFF8h
|
|
ORG 0EFF8h
|
|
DB 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|