...

constants/SP2000.inc

@@ -1935,6 +1935,30 @@ REG:
 ; 	RET
 
 
+	;=======================================================================;
+	;			<EFBFBD><EFBFBD>Ž <EFBFBD><EFBFBD>ˆŠŽ‹ ‚ˆ<EFBFBD>’€				;
+	;=======================================================================;
+; ¥á«¨ ª ­ « ¯ãá⮩, â® ç¨â ¥âáï ¨§ ¯®àâ  â®, çâ® ¡ë«® ¢ëáâ ¢«¥­®
+; ¯®á«¥¤­¨¬ ­  設ã c çñâ­®£®  ¤à¥á  ¢ ¯ ¬ï⨠  íâ® ¯¥à¢ë© ¨«¨ ¢â®à®©
+; ¡ ©â ª®¤  ª®¬ ­¤ë
+; 		ALIGN	2 ; âã⠭㦭® ¢ëà ¢­¨¢ ­¨¥ ¯® § ¤ã¬ ­­ë¬  ¤à¥á ¬ ¤«ï ª®¬ ­¤ ç⥭¨ï ¨§ ¯®à⮢
+; .CheckChanel:	LD	BC,IDE.Read.Status
+; 		IN	A,(C)			;#ED78	A=#78
+; 		IN	L,(C)			;#ED68	L=#68
+; 		LD	D,A
+; 		IN	A,(C)			;#ED60	A=#ED
+; 		LD	E,L
+; 		; ¥á«¨ ¯ãá⮩: DE=#7868, A=#ED
+; 		;
+; 		LD	HL,#7868 + #ED
+; 		AND	A
+; 		SBC	HL,DE
+; 		XOR	L
+; 		RET	NZ			; not absent
+; 		SCF
+; 		RET				; absent
+;==============================================================================================================;
+
 
 	;=======================================================================;
 	;			<EFBFBD><EFBFBD>Ž Š‚€„<EFBFBD>€’› ˆ<EFBFBD>’€				;
@@ -1982,10 +2006,8 @@ REG:
 ; ª¢ ¤à â ­¥ ᬮ£ãâ ¯®¢«¨ïâì ¯®â®¬ã çâ® ¨­â «¨¡® ¡ã¤¥â ¢áñ ¥éñ ¢¨á¥âì ¨ íâ® ¡ã¤¥â § ¬¥­  1 ­  1))) «¨¡® ¨­â
 ; á­¨¬¥âáï ç¥à¥§ IO ¨ M1 ãáâ ­®¢¨¢ S ¢ ¯®«®¦¥­¨¥ ?¯®å¥à ­  D ¨ C?, ª®â®à®¥ ᬥ­¨âáï ⮫쪮 ¯®á«¥ ⮣® ª ª
 ; ¯à®â¨ª îâ «¥¢ë¥ áçñâ稪¨.
+;==============================================================================================================;
 
-	;=======================================================================;
-	;			<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>				;
-	;=======================================================================;
 
 ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
 ;³ <EFBFBD>«®ª-‘奬  ‚¨¤¥®ª®­â஫«¥à  ³ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿               ³