Òàáëèöà 2 
;ÏÐÎÃÐÀÌÌÀ ÐÀÑÏÀÊÎÂÊÈ ÓÏÀÊÎÂÀÍÍÎÃÎ ÃÐÀÔÈ×ÅÑÊÎÃÎ 
;ÔÀÉËÀ "RISI.PC" Â 5ÓÔÅÐ ÑÏÐÀÉÒÎÂ È ÂÛÂÎÄ ÅÃÎ ÍÀ ÝÊÐÀÍ 
;ÈÑÏÎËÜÇÓÅÌÛÅ ÑÈÑÒÅÌÍÛÅ ÓÒÈËÈÒÛ ÎÑ "ORDOS"
; ATPLDiEGHJ BBPCDH SDMAlEGHJ àÂÐÐÂÍ
;WDNiEQU B5FD6H RDISKlEQU BBFDCH PSGFlEQU CreFESH DOSlEQU CIBFFDH
; ÏÎÄÏÐÎÃÐÀÌÌÛ ÌÎÍÈÒÎÐÀ e KBRDlEQU BF803H WBP2iEOU BF87?H
	CALL UNPACK  	; ÐÀÑÏÀÊÎÂÀÒÜ ÔÀÉË Â ÁÓÔÅÐ 
	LHLB 7FFCH   	; ÐÀÇÌÅÐÛ ÑÏÐÀÉÒÀ" 
	MOV C,L      	; ÂÛÑÎÒÀ 
	MOV Ý,Í      	; ØÈÐÈÍÀ 
	LHLD 7FFEH   	; ÍÀ×ÀËÜÍÛÉ ÀÄÐÅÑ ÁÓÔÅÐÀ YPHI" 
	LXI Í,ÂÑÂÂÂÍ 	; ËÅÂÛÌ ÂÅÐÕÍÈÕ ÓÃÎË ÝÊÐÀÍÀ1 ;
			; ÂÛÂÎÄ ÍÀ ÝÊÐÀÍ ÀÒÐÈÁÓÒÎÂ ÖÂÅÒÀ"
	PUSH Í 
	PUSH Â
CVC2 :	PUSH Í 
	PUSH Â
CYC1:	LDAX D       	; ×ÈÒÀÒÜ Î×ÅÐÅÄÍÎÉ ÁÀÉÒ ÈÇ ÁÓÔÅÐÀ
	PUSH Â 
	MOV Ñ,À
	MVI À,1      	; ÇÀÏÈÑÀÒÜ ÅÃÎ Â ÝÊÐÀÍÍÓÞ ÎÁËÀÑÒÜ CALL WBP2    
			;  ÎÇÓ ÄÎÏÎËÍÈÒÅËÜÍÎÉ ÑÒÐÀÍÈÖÛ POP Â 
	INX D
	INR L        	; "ÑÏÓÑÒÈÒÜÑß ÍÈÆÅ" ÍÀ 1 ÑÒÐÎÊÓ ÝÊÐÀÍÀ 
	DCR Ñ        	; Ñ×ÅÒ×ÈÊ ÁÀÉÒΠ ÊÎËÎÍÊÅ 
	JN2 CYC1 
	POP Â 
	POP Í
	INR Í        	; ÏÅÐÅÉÒÈ ÍÀ ÑËÅÄÓÞÙÓÞ ÊÎËÎÍÊÓ 
	DCR         	; Ñ×ÅÒ×ÈÊ ÊÎËÎÍÎÊ 
	JNZ CYC2 
	POP Â 
	POP Í  		; ÂÛÂÅÑÒÈ ÍÀ ÝÊÐÀÍ ÏÅÐÅÄÍÈÉ ÏËÀÍ;
CYC4:	PUSH Í 
	PUSH Â 
CYC5:	LDAX D       	; ×ÈÒÀÒÜ Î×ÅÐÅÄÍÎÉ ÁÀÉÒ ÈÇ ÁÓÔÅÐÀ
	MOV Ì,À      	; ÂÛÂÅÑÒÈ ÅÃÎ ÍÀ ÝÊÐÀÍ ZNX D
	INR L        	; "ÑÏÓÑÒÈÒÜÑß ÍÈÆÅ" ÍÀ 1 ÑÒÐÎÊÓ ÝÊÐÀÍÀ 
	DCR Ñ        	; Ñ×ÅÒ×ÈÊ ÁÀÉÒΠ ÊÎËÎÍÊÅ 
	JNZ CYC3 
	POP Â 
	POP Í
	INR Í        	; ÏÅÐÅÉÒÈ ÍÀ ÑËÅÄÓÞÙÓÞ ÊÎËÎÍÊÓ 
	DCR         	; Ñ×ÅÒ×ÈÊ ÊÎËÎÍÎÊ 
	JNZ CYC4
	CALL KBRD    	; ÆÄÀÒÜ ÍÀÆÀÒÈß ËÞÁÎÉ ÊËÀÂÈØÈ 
	JMP DOS      	; ÏÅÐÅÉÒÈ Â ÎÑ
; ÏÎÄÏÐÎÃÐÀÌÌÀ ÐÀÑÏÀÊÎÂÊÈ"
UNPACK:	MVI À,'Â'
	CALL WDN     	; ÓÑÒÀÍÎÂÈÒÜ ÀÊÒÈÂÍÛÉ ÄÈÑÊ - "Â" LXI H,NAME
	CALL SDMA    	; ÓÊÀÇÀÒÜ ÎÑ ÀÄÐÅÑ, ÍÀ×ÈÍÀß Ñ ÊÎÒÎÐÎÃÎ 
;  ÇÀÏÈÑÀÍÎ ÈÌß ÈÑÊÎÌÎÃÎ ÔÀÉËÀ 
	CALL PSCF    	; ÏÎÈÑÊ ÍÀ ÄÈÑÊÅ ÔÀÉËÀ Ñ ÝÒÈÌ ÈÌÅÍÅÌ 
	INR A
	JNZ DOS      	; ÅÑËÈ ÔÀÉË ÍÅ ÍÀÉÄÅÍ, ÏÅÐÅÉÒÈ Â ÎÑ 
	CALL ATFLD   	;  HL - ÀÄÐÅÑ ÍÀ×ÀËÀ ÇÀÏÈÑÈ Â ÔÀÉËÅ
UNPCK1: CALL RDISK   	; ×ÈÒÀÒÜ 1-É ÁÀÉÒ ÀÄÐÅÑÀ ÁÓÔÅÐÀ
	MOV Å,À 
	INX H
	CALL RDISK   	; ×ÈÒÀÒÜ 2-È ÁÀÉÒ ÀÄÐÅÑÀ ÁÓÔÅÐÀ 
	MOV D,A 
	INX Í
	INX Í        	; ÏÐÎÏÓÑÒÈÒÜ 2 ÁÀÉÒÀ (ÐÀÇÌÅÐÛ) 
	INX Í 		;   .  -
UNPB:	CALL RDISK   	; ×ÈÒÀÒÜ ÁÀÉÒ Ñ Ê/ÄÈÑÊÀ
	INX Í
	RLC         	; ÏÐÎÂÅÐÈÒÜ, D7"l ? 
	JC TW2       	; ÅÑËÈ ÄÀ, ÒÎ ÑËÅÄÓÅÒ ÑÅÐÈß ÎÄÈÍÀÊÎÂÛÕ 
; ÅÑËÈ ÍÒ, ÒÎ ÑÅÐÈß ÐÀÇËÈ×ÍÛÕ" 
	RRC 		; MR À 
	MOV Â,À      	; ÄËÈÍÀ ÑÅÐÈÈ
UNP1:	CALL RDISK   	; ×ÈÒÀÒÜ ÁÀÉÒ Ñ Ê/ÄÈÑÊÀ
	INX Í
	STAX D       	; ÇÀÏÈÑÀÒÜ ÅÃÎ Â ÁÓÔÅÐ 
	INX D 
	MOV A,D 
	ÑÐI âàÍ
	RZ           	; ÇÀÊÎÍ×ÈÒÜ, ÅÑËÈ ÁÓÔÅÐ ÇÀÏÎËÍÅÍ 
	DCR         	; ÓÌÅÍÜØÈÒÜ Ñ×ÅÒ×ÈÊ 
	JNZ UNP1 
	JMP UNPB
TW2:	CMC 
	RAR 
	INR À 
	MOV Â,À      	; ÄËÈÍÀ ÑÅÐÈÈ ÎÄÈÍÀÊÎÂÛÕ ÁÀÉÒÎÂ
	CALL RDISK   	; ×ÈÒÀÒÜ ÁÀÉÒ Ñ Ê/ÄÈÑÊÀ 
	INX Í 
	MOV Ñ,À 
TW3:	MOV  À, Ñ
	STAX D       	; ÇÀÏÈÑÀÒÜ Â ÁÓÔÅÐ 
	INX D 
	MOV A,D 
	CPI ààí
	RZ           	; ÇÀÊÎÍ×ÈÒÜ, ÅÑËÈ ÁÓÔÅÐ ÇÀÏÎËÍÅÍ 
	DCR         	; ÓÌÅÍÜØÈÒÜ Ñ×ÅÒ×ÈÊ 
	JNZ TW3 
	JMP UNPa
NAME:	DB 	'RISI.PC
	END