Merge pull request #77 from b1ackmai1er/master

Add a user rom pack template to romldr

Source/HBIOS/Build.ps1

@@ -163,7 +163,7 @@ Copy-Item '..\Fonts\font*.asm' '.'
 
 # Assemble individual components.  Note in the case of UNA, there is less to build.
 #
-$RomComponentList = "dbgmon", "prefix", "romldr", "eastaegg", "nascom", "tastybasic", "game", "imgpad", "imgpad0"
+$RomComponentList = "dbgmon", "prefix", "romldr", "eastaegg", "nascom", "tastybasic", "game", "usrrom", "imgpad", "imgpad0"
 ForEach ($RomComponentName in $RomComponentList) {Asm $RomComponentName}
 
 if ($Platform -ne "UNA")
@@ -181,7 +181,7 @@ if ($Platform -ne "UNA")
 
 # Build 32K OS chunk containing the loader, debug monitor, and OS images
 Concat 'romldr.bin', 'eastaegg.bin','dbgmon.bin', "..\cpm22\cpm_${Bios}.bin", "..\zsdos\zsys_${Bios}.bin" osimg.bin
-Concat 'camel80.bin', 'nascom.bin', 'tastybasic.bin', 'game.bin', 'imgpad0.bin' osimg1.bin
+Concat 'camel80.bin', 'nascom.bin', 'tastybasic.bin', 'game.bin', 'imgpad0.bin', 'usrrom.bin' osimg1.bin
 
 #
 # Now the ROM disk image is created.  This is done by starting with a

Source/HBIOS/imgpad0.asm

@@ -1,6 +1,6 @@
 #INCLUDE "std.asm"
 ;
-SLACK		.EQU	($8000-BAS_SIZ-TBC_SIZ-FTH_SIZ-GAM_SIZ)
+SLACK		.EQU	($8000-BAS_SIZ-TBC_SIZ-FTH_SIZ-GAM_SIZ-USR_SIZ)
 		.FILL	SLACK,00H
 ;
 MON_STACK	.EQU	$

Source/HBIOS/romldr.asm

@@ -423,6 +423,7 @@ MENU_1:	MENU_L("~CP/M$    ", "C", KY_BK, CPM_ENT,     2000h,  CPM_LOC,   CPM_SIZ
 	MENU_L("~BASIC$   ", "B", KY_DE, BAS_LOC,     1700h,  BAS_LOC,   BAS_SIZ,  BID_IMG1,    BID_USR, "Nascom BASIC$")
 	MENU_L("~T-BASIC$ ", "T", KY_EN, TBC_LOC,     3700h,  TBC_LOC,   TBC_SIZ,  BID_IMG1,    BID_USR, "Tasty BASIC$ ")
 	MENU_L("~PLAY$    ", "P", $FF,   GAM_LOC,     4000h,  GAM_LOC,   GAM_SIZ,  BID_IMG1,    BID_USR, "Game$        ")
+	MENU_L("~USER ROM$", "U", $FF,   USR_LOC,     7000h,  USR_LOC,   USR_SIZ,  BID_IMG1,    BID_USR, "User ROM$    ")
 #ENDIF
 #IF (DSKYENABLE)
 	MENU_L("~DSKY$    ", "D", KY_GO, MON_DSKY,    1000h,  MON_LOC,   MON_SIZ,  BID_CUR,     BID_USR, "DSKY Monitor$")

Source/HBIOS/std.asm

@@ -425,6 +425,10 @@ GAM_LOC		.EQU	$0200			; GAME 2048
 GAM_SIZ		.EQU	$0900
 GAM_END		.EQU	GAM_LOC + GAM_SIZ
 
+USR_LOC		.EQU	$0200			; USER 
+USR_SIZ		.EQU	$1000
+USR_END		.EQU	USR_LOC + USR_SIZ
+
 MON_DSKY	.EQU	MON_LOC + (0 * 3)	; MONITOR ENTRY (DSKY)
 MON_SERIAL	.EQU	MON_LOC + (1 * 3)	; MONITOR ENTRY (SERIAL PORT)
 ;

Source/HBIOS/usrrom.asm

@@ -0,0 +1,80 @@
+;
+; USRROM	TEMPLATE FOR A CUSTOM USER ROM
+;
+#INCLUDE	"std.asm"
+;
+CR	.EQU    0DH
+LF	.EQU    0AH
+;
+	.ORG    USR_LOC
+;           
+	LD	HL,BOOTMSG	; INTRODUCTION
+	CALL	PRTSTR
+
+	CALL	CIN		; DO STUFF
+;
+	LD      A,00H		; RETURN TO ROM LOADER
+	LD      HL,0000H
+        JP	0FFF9H
+;       RET
+;
+;
+;
+; PRINT A STRING AT ADDRESS SPECIFIED IN HL
+; STRING MUST BE TERMINATED BY '$'
+; USAGE:
+;   LD	HL,MYSTR
+;   CALL PRTSTR
+;   ...
+;   MYSTR: .DB  "HELLO$"
+;
+PRTSTR:	LD	A,(HL)
+	INC	HL
+	CP	'$'
+	RET	Z
+	CALL	COUT
+	JR	PRTSTR
+;
+; OUTPUT CHARACTER IN A TO CONSOLE DEVICE
+;
+COUT:	PUSH	AF
+	PUSH	BC
+	PUSH	DE
+	LD	B,01H
+	LD	C,0
+	LD	E,A
+	RST	08
+	POP	DE
+	POP	BC
+	POP	AF
+	RET
+;
+; OUTPUT CHARACTER IN A TO CONSOLE DEVICE
+;
+COUTE:	PUSH	AF
+	LD	A,E
+	CALL	COUT
+	POP	AF
+	RET
+;
+; WAIT FOR A CHARACTER FROM THE CONSOLE DEVICE AND RETURN IT IN A
+;
+CIN:	PUSH	BC
+	LD	B,00H
+	LD	C,00H
+	RST	08
+	LD	A,E
+	POP	BC
+	RET
+;
+BOOTMSG:.DB	"No User ROM Installed."
+	.DB	CR,LF
+	.DB	"Press a key to return to Boot Loader.$"
+;				
+SLACK	.EQU	(USR_END - $)
+	.FILL	SLACK,00
+	.ECHO	"User ROM space remaining: "
+	.ECHO	SLACK
+	.ECHO	" bytes.\n"
+        .END
+