просто глянуть - TEST_SCREEN

DOOM2.asm

@@ -5,6 +5,9 @@
 ;---------------------------------------
 */
 
+	DEFINE	TEST_SCREEN	0
+
+
 ScreenStartAddress	EQU #C040
 ;ScreenStartAddress	EQU #C000
 ;
@@ -443,6 +446,14 @@ MAIN:	CALL INIT_TABLE
 	RST ToBIOS
 ;---------------------------------------
 
+ IF	TEST_SCREEN
+	;
+	CALL	MAKE_SCR_ST1
+	;
+ ENDIF
+
+
+
 	LD	A,(RESTORE_ALL.scr)
 	OUT	(SCREEN_SWITCH),A
 
@@ -1165,7 +1176,7 @@ RAMBlkIDs:	BLOCK FilesTBL.END,0
 ;---------------------------------------
 ;
 
-		DS #8B00-$						;‚›�€‚�ˆ‚€�ˆ…
+		BLOCK #8B00-$,0						;‚›�€‚�ˆ‚€�ˆ…
 
 RECALC_MAP:
 ; ¯¥à¥áç¥â ª àâë ­  ॠ«ì­ë¥ ­®¬¥à 
@@ -1594,8 +1605,8 @@ RESTORE_ALL:
 .scr+2:	LD	BC,Dss.SetVMod
 	RST	ToDSS
 	;
-	;LD	BC,Dss.Lib_Sub.RestoreFont
-	;RST	ToDSS
+	LD	BC,Dss.Lib_Sub.RestoreFont
+	RST	ToDSS
 	;
 	LD	A,(.mode)
 	CP	#80
@@ -1710,6 +1721,147 @@ MESSAGES_TXT:
 .Loading:	DZ "\r\nPlease wait, resources are loading...\r\n"
 .NormExit:	DZ "DOOM 2 demo for DSS says goodbye to you...\r\n"
 ;-----------------------------------------------------------------------;
+
+
+;-----------------------------------------------------------------------;
+ IF	TEST_SCREEN
+MAKE_SCR_ST1:	IN	A,(SLOT3)
+		PUSH	AF
+		LD	A,#50
+		OUT	(SLOT3),A
+		LD	A,1	
+		OUT	(PORT_Y),A
+		LD	HL,#C300
+		;
+.big_loop:	LD	C,20
+		;
+.mid_loop:	LD	B,16
+		LD	DE,#C37C
+		LD	HL,#C33C
+		;
+.sml_loop:	PUSH	BC	
+		LDI		
+		LDI		
+		LD	A,%0000'0110	
+		LD	(DE),A	
+		DEC	HL	
+		DEC	HL	
+		DEC	DE	
+		DEC	DE	
+		DEC	DE	
+		DEC	DE	
+		DEC	DE	
+		DEC	DE	
+		LDI		
+		LDI		
+		LD	A,%0000'0100	
+		LD	(DE),A	
+		DEC	HL	
+		DEC	HL	
+		DEC	HL	
+		DEC	HL	
+		DEC	HL	
+		DEC	HL	
+		DEC	DE	
+		DEC	DE	
+		DEC	DE	
+		DEC	DE	
+		DEC	DE	
+		DEC	DE	
+		POP	BC	
+		DJNZ	.sml_loop
+		;
+		IN	A,(PORT_Y)
+		INC	A	
+		INC	A	
+		OUT	(PORT_Y),A
+		DEC	C	
+		JR	NZ,.mid_loop
+		;
+		IN	A,(PORT_Y)
+		AND	#80
+		JR	NZ,MAKE_SCR_ST2
+		LD	A,#81
+		OUT	(PORT_Y),A
+		JR	.big_loop
+		;
+MAKE_SCR_ST2:	LD	HL,#C300
+.big_loop:	EXX		
+		 LD	D,#4F		; 79 port_y line
+		 LD	E,#27		; 39 port_y line
+		 LD	C,PORT_Y	
+		 LD	B,#14		; áçñâ稪
+		EXX		
+.mid_loop:	EXX		
+		 OUT	(C),E	
+		EXX
+		;	
+		LD	E,(HL)	
+		INC	HL	
+		LD	D,(HL)	
+		INC	HL
+		LD	B,(HL)	
+		DEC	HL
+		DEC	HL
+		;
+		EXX
+		 OUT	(C),D	
+		EXX
+		;	
+		LD	(HL),E	
+		INC	HL	
+		LD	(HL),D	
+		INC	HL	
+		LD	(HL),B	
+		SET	0,(HL)
+		;
+		EXX		
+		 DEC	D	
+		 DEC	D	
+		 OUT	(C),D	
+		EXX
+		;		
+		LD	(HL),B	
+		DEC	HL	
+		LD	(HL),D	
+		DEC	HL	
+		LD	(HL),E	
+		;
+		EXX		
+		 DEC	D	
+		 DEC	D	
+		 DEC	E	
+		 DEC	E	
+		 DEC	B	
+		EXX		
+		JR	NZ,.mid_loop
+		;
+		EXX		
+		 BIT	7,E	
+		EXX		
+		JR	Z,.HZ
+		;
+		EXX		
+		 LD	D,#CF		; 207 port_y line
+		 LD	E,#A7		; 167 port_y line
+		 LD	C,PORT_Y	
+		 LD	B,20		; áçñâ稪	
+		EXX		
+		JR	.mid_loop
+		;
+.HZ:		INC	HL	
+		INC	HL	
+		INC	HL	
+		INC	HL	
+		LD	A,L	
+		CP	#80	
+		JR	NZ,.big_loop
+		;
+		POP	AF	
+		OUT	(SLOT3),A
+		RET
+ ENDIF
+;-----------------------------------------------------------------------;
 	OUTEND								; ª®­¥æ ä ©«  doom2.exe
 ;-----------------------------------------------------------------------;