mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
55 lines
1.6 KiB
55 lines
1.6 KiB
; Z80
|
|
;***********************************
|
|
;* Z80 TEST PROTOTYPE
|
|
;* LOAD MONITOR FROM ROM INTO RAM AND EXECUTE PROGRAM
|
|
;* ANDREW LYNCH
|
|
;* LYNCHAJ@YAHOO COM
|
|
;* 15 FEB 2007
|
|
;***********************************
|
|
|
|
|
|
;********************* CONSTANTS ****************************************
|
|
|
|
RAMTOP: .EQU 0FFFFh ; HIGHEST ADDRESSABLE MEMORY LOCATION
|
|
MONSTART: .EQU 08000h ; START OF 6116 SRAM 2KB X 8 RAM F800H-FFFFH
|
|
RAMBOTTOM: .EQU 08000h ; BEGINNING OF UPPER 32K RAM PAGE
|
|
END: .EQU 0FFh ; MARK END OF TEXT
|
|
CR: .EQU 0DH ; ASCII CARRIAGE RETURN CHARACTER
|
|
LF: .EQU 0AH ; ASCII LINE FEED CHARACTER
|
|
ESC: .EQU 1BH ; ASCII ESCAPE CHARACTER
|
|
|
|
ROMSTART_MON: .EQU 00200h ; WHERE THE DBGMON IS STORED IN ROM
|
|
RAMTARG_MON: .EQU 08000h ; WHERE THE DBGMON STARTS IN RAM (ENTRY POINT)
|
|
MOVSIZ_MON: .EQU 01000h ; DBGMON IS 4096 BYTES IN LENGTH
|
|
|
|
MON_ENTRY: .EQU 08000h ; DBGMON ENTRY POINT (MAY CHANGE)
|
|
|
|
|
|
|
|
;*******************************************************************
|
|
;* START AFTER RESET
|
|
;* FUNCTION : READY SYSTEM, LOAD MONITOR INTO RAM AND START
|
|
;*******************************************************************
|
|
|
|
.ORG 00100h
|
|
|
|
; DI ; DISABLE INTERRUPT
|
|
LD SP,RAMTOP ; SET STACK POINTER TO TOP OF RAM
|
|
; IM 1 ; SET INTERRUPT MODE 1
|
|
|
|
LD HL,ROMSTART_MON ; WHERE IN ROM DBGMON IS STORED (FIRST BYTE)
|
|
LD DE,RAMTARG_MON ; WHERE IN RAM TO MOVE MONITOR TO (FIRST BYTE)
|
|
LD BC,MOVSIZ_MON ; NUMBER OF BYTES TO MOVE FROM ROM TO RAM
|
|
LDIR ; PERFORM BLOCK COPY OF DBGMON TO UPPER RAM PAGE
|
|
|
|
; EI ; ENABLE INTERRUPTS (ACCESS TO MONITOR WHILE CP/M RUNNING)
|
|
|
|
JP MON_ENTRY ; JUMP TO START OF MONITOR
|
|
|
|
.FILL 001FFh-$
|
|
|
|
.ORG 001FFh
|
|
FLAG:
|
|
.DB 0FFh
|
|
|
|
.END
|
|
|