joppe/z80_monitor
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed MC_ bios calls from basic

Browse Source
This commit is contained in:
Joppe Blondel
2026-10-10 11:20:42 +02:00
parent af3dcaf5fb
commit 6374a070ea
1 changed files with 11 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
apps/basic/basic.asm
+11 -17
View File
@@ -42,13 +42,7 @@
#include "../../bios.inc" #include "../../bios.inc"
; MACHINE CONFIG ; MACHINE CONFIG
MC_BIOS_PUTC .EQU BIOS_PUTC
MC_BIOS_TRY_GETC .EQU BIOS_TRY_GETC
MC_BIOS_GETC .EQU BIOS_GETC
MC_BIOS_FLUSH .EQU BIOS_FLUSH
MC_BIOS_MONITOR .EQU BIOS_RAM_START MC_BIOS_MONITOR .EQU BIOS_RAM_START
MC_BIOS_ROM .EQU BIOS_ROM
MC_BIOS_BANK .EQU BIOS_BANK
MC_CODE_START .EQU BASIC_RAM_START MC_CODE_START .EQU BASIC_RAM_START
MC_RAM_START .EQU BASIC_RAM_START + BASIC_ROM_SIZE MC_RAM_START .EQU BASIC_RAM_START + BASIC_ROM_SIZE
MC_RAM_END .EQU 0FFFFH MC_RAM_END .EQU 0FFFFH
@@ -1364,7 +1358,7 @@ UPDATA: LD (NXTDAT),HL ; Update DATA pointer
TSTBRK: ;RST 18H ; Check input status TSTBRK: ;RST 18H ; Check input status
CALL MC_BIOS_TRY_GETC CALL BIOS_TRY_GETC
OR A OR A
RET Z ; No key, go back RET Z ; No key, go back
;RST 10H ; Get the key into A ;RST 10H ; Get the key into A
@@ -1377,7 +1371,7 @@ TSTBRK: ;RST 18H ; Check input status
STALL: ;RST 10H ; Wait for key STALL: ;RST 10H ; Wait for key
CALL MC_BIOS_GETC CALL BIOS_GETC
CP CTRLQ ; Resume scrolling? CP CTRLQ ; Resume scrolling?
RET Z ; Release the chokehold RET Z ; Release the chokehold
CP CTRLC ; Second break? CP CTRLC ; Second break?
@@ -4218,7 +4212,7 @@ ATNTAB: .BYTE 9 ; Table used by ATN
ARET: RET ; A RETurn instruction ARET: RET ; A RETurn instruction
GETINP: JP MC_BIOS_GETC ;input a character GETINP: JP BIOS_GETC ;input a character
CLS: CLS:
LD A,CS ; ASCII Clear screen LD A,CS ; ASCII Clear screen
@@ -4430,12 +4424,12 @@ BINERR: LD E,BN ; ?BIN Error
JJUMP1: LD IX,-1 ; Flag cold start JJUMP1: LD IX,-1 ; Flag cold start
JP CSTART ; Go and initialise JP CSTART ; Go and initialise
MONOUT: JP MC_BIOS_PUTC ; output a char MONOUT: JP BIOS_PUTC ; output a char
MONITR: CALL MC_BIOS_FLUSH MONITR: CALL BIOS_FLUSH
LD A,1 ; enable rom LD A,1 ; enable rom
call MC_BIOS_ROM call BIOS_ROM
JP 0 ; reboot JP 0 ; reboot
INITST: LD A,0 ; Clear break flag INITST: LD A,0 ; Clear break flag
@@ -4523,7 +4517,7 @@ DROM: ; disable ROM
CP 0C0H CP 0C0H
JP C,FCERR ; Return error in full mode JP C,FCERR ; Return error in full mode
LD A,0 LD A,0
call MC_BIOS_ROM call BIOS_ROM
RET RET
EROM: ; enable ROM EROM: ; enable ROM
@@ -4532,7 +4526,7 @@ EROM: ; enable ROM
CP 0C0H CP 0C0H
JP C,FCERR ; Return error in full mode JP C,FCERR ; Return error in full mode
LD A,1 LD A,1
call MC_BIOS_ROM call BIOS_ROM
RET RET
BANK0: ; Bank 0 BANK0: ; Bank 0
@@ -4541,7 +4535,7 @@ BANK0: ; Bank 0
CP 0C0H CP 0C0H
JP C,FCERR ; Return error in full mode JP C,FCERR ; Return error in full mode
LD A,0 LD A,0
call MC_BIOS_BANK call BIOS_BANK
RET RET
BANK1: ; Bank 1 BANK1: ; Bank 1
@@ -4550,7 +4544,7 @@ BANK1: ; Bank 1
CP 0C0H CP 0C0H
JP C,FCERR ; Return error in full mode JP C,FCERR ; Return error in full mode
LD A,1 LD A,1
call MC_BIOS_BANK call BIOS_BANK
RET RET
FULL: ; New entry. exposes full 48k ram to basic FULL: ; New entry. exposes full 48k ram to basic
@@ -4559,7 +4553,7 @@ FULL: ; New entry. exposes full 48k ram to basic
; FULL BOOT SEQUENCE ; FULL BOOT SEQUENCE
; ------------------ ; ------------------
LD A,0 LD A,0
CALL MC_BIOS_ROM ; Expose RAM below the ROM CALL BIOS_ROM ; Expose RAM below the ROM
LD HL,WRKSPC ; Start of workspace RAM LD HL,WRKSPC ; Start of workspace RAM
LD SP,HL ; Set up a temporary stack LD SP,HL ; Set up a temporary stack