Build updates for FusionX

This commit is contained in:
Philip Smart
2023-05-10 09:56:17 +01:00
parent a4333c203c
commit 3693b10207
3 changed files with 6 additions and 5 deletions

View File

@@ -415,7 +415,7 @@ FDCJMPL2: JP (IX)
;------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------
; 0 + <- 39 ; 0 + <- 39
; ----------------------------------------- ; -----------------------------------------
MSGSON: DB "+ TZFS v1.7 ", NULL ; Version 1.0-> first split from RFS v2.0 MSGSON: DB "+ TZFS v1.7.1 ", NULL ; Version 1.0-> first split from RFS v2.0
MSGSONEND: DB " **", CR, NULL ; Signon banner termination. MSGSONEND: DB " **", CR, NULL ; Signon banner termination.
IF BUILD_FUSIONX = 0 IF BUILD_FUSIONX = 0
MSGSONT80: DB "(T80)", NULL ; T80 CPU detected. MSGSONT80: DB "(T80)", NULL ; T80 CPU detected.

View File

@@ -737,16 +737,17 @@ RD1: CALL MOTOR
JR C,STPEIR JR C,STPEIR
CALL RTAPETZFS CALL RTAPETZFS
JR C,STPEIR JR C,STPEIR
RET2S: BIT 3,D JR EIRTN
JR Z,EIRTN ;RET2S: BIT 3,D
; JR Z,EIRTN
STPEIR: CALL BRKEY ; Double check reason for exit, was it a break key? STPEIR: CALL BRKEY ; Double check reason for exit, was it a break key?
LD A,01H LD A,01H
JR NC,STPEIR1 JR NC,STPEIR1
LD A,02H LD A,02H
STPEIR1: LD (RESULT),A ; Store result for later use. STPEIR1: LD (RESULT),A ; Store result for later use.
CALL MSTOP
SCF ; Indicate error condition. SCF ; Indicate error condition.
EIRTN: EI EIRTN: CALL MSTOP
EI
RET RET
;READ DATA ;READ DATA

BIN
roms/tzfs.rom vendored

Binary file not shown.