WIP: fixed problem with man released from a hole.

Author: nzeemin

MAIN.MAC

@@ -1079,7 +1079,7 @@ Z13350:
 Z13540:		; ���� �� 8-�� �������� ��� ��������� ���������, �� 10. ���� �� ������
 	.WORD	000000,000000,000000,000000,000000,000000,000000,000000,000000,000000	; 0 -- �����
 	.WORD	177400,177400,177400,177400,177400,177400,177400,177400,177400,177400	; 1 -- �������� �����
-	.WORD	175400,175400,175400,175400,000000,157400,157400,157400,157400,000000	; 2 -- ��������� �����
+Z13610:	.WORD	175400,175400,175400,175400,000000,157400,157400,157400,157400,000000	; 2 -- ��������� �����
 	.WORD	000000,177777,000000,000000,000000,000000,000000,000000,000000,000000	; 3 -- ������
 Z13660:	.WORD	014030,055132,045122,077176,036074,036074,014030,022044,022044,022044	; 4 -- ���� (�����)
 Z13704:	.WORD	014030,055132,045122,036074,014030,014030,002040,022044,022044,063146	; 5 -- ������� (�����)
@@ -1411,19 +1411,19 @@ Z15772:	JMP	Z22664
 ;Z15776:	NOP
 
 	.=016000
-; ������������ ??? ������� ������
+; ������������ -- ������� ������, ��������� ����������� ��
 Z16000::
-	CMP	Z01740, #Z11200
-	BLE	Z16164
+	CMP	Z01740, #Z11200	; ���� ����������� ���?
+	BLE	Z16164		;   ��� => �������
 	MOV	#Z11204, R0	; ����� ������� � ���� + 4 ����� -- � ������ ��� ���������� �����
 	MOV	#000010, R3	; ������� = 8
 Z16020:	DEC	(R0)		;   ��������� �����??
 	ADD	#000006, R0	;   � ��������� ������
 	SOB	R3, Z16020	;   ���������
-	TST	Z11204
-	BGT	Z16164
+	TST	Z11204		; ����� �����������?
+	BGT	Z16164          ;   ��� => �������
 	MOV	Z11202, R1	; ���� ����� � ������
-	MOV	#013610, R2
+	MOV	#Z13610, R2	; ������ "��������� �����"
 	MOV	#000012, R3	; 10. ���
 Z16052:	MOV	R1, @#176640
 	MOV	(R2)+, @#176642	; ����� � �����
@@ -1435,14 +1435,14 @@ Z16052:	MOV	R1, @#176640
 ;
 Z16072:	NOP	
 	MOV	#011206, R3
-Z16100:	MOV	(R3)+, (R2)+
+Z16100:	MOV	(R3)+, (R2)+	; ���� ����������� ������� � ����������� ����
 	CMP	R3, #Z11300
 	BNE	Z16100
 	SUB	#000006, Z01740	; ��������� ����� ��������� ������ ��� ��� �� ���� ������
-	CMPB	(R1), #000005
-	BNE	Z16146
-	JMP	Z16626
-Z16130:	CALL	Z17114
+	CMPB	(R1), #000005	; � ����������� ������ -- �������?
+	BNE	Z16146		;   ��� => ���������
+	JMP	Z16626		;   �� => ���������
+Z16130:	CALL	Z17114		; ����
 Z16134:	MOV	R5, @#176640
 	BIS	(R0)+, @#176642	;   ������ 8 �������� ������
 	ADD	#80., R5	;   � ��������� ������ ������
@@ -1466,8 +1466,8 @@ Z16212:	MOV	#027000, R1	; 
 Z16216:	SOB	R1, Z16216	; ���� ��������
 	CALL	Z17044
 Z16224:	RETURN
-Z16226:	SUB	#000036, Z11102	; ��������� �� ����?
-	SUB	#001200, Z11100
+Z16226:	SUB	#000036, Z11102	; ��������� �� ���� -- �� ������ ����
+	SUB	#800., Z11100	; �� 10 ����� ������ ����
 	BR	Z16130
 Z16244:	CALL	Z17030
 Z16250:	RETURN	
@@ -1560,6 +1560,7 @@ Z16600:	MOV	#000001, Z01732
 	ADD	#000036, Z01730	; ��������� � ��������� ������ ���������
 	ADD	#800., Z01726	; �� 10. ����� ������ ����
 	JMP	Z15260
+; ������� ���, � ��� ��� ������� -- ����������� ��� �����
 Z16626:	MOV	#Z13660, R0
 	MOV	#Z22072, R2	; 022070 + 2
 Z16636:	CMP	(R2), R1
@@ -1604,14 +1605,14 @@ Z17004:	MOV	#000070, Z11310	; 
 	RETURN	
 ;
 Z17014:	MOV	Z01726, R2	; ���� ����� � ������
-	ADD	#000003, Z11310
+	ADD	#000003, Z11310	; ��������� �� �������
 Z17026:	RETURN	
 ;
 Z17030:	MOVB	#000002, (R1)
-	SUB	#000003, Z11310
+	SUB	#000003, Z11310	; ��������� �����
 	RETURN	
 ; ������������ ??? ������� ������
-Z17044:	CALL	Z16000
+Z17044:	CALL	Z16000		; ��������� ����������� ��
 	TST	Z11104		; ����?
 	BNE	Z17100		; ��� => �� �����
 	TST	Z11106		; ����?
@@ -1626,7 +1627,7 @@ Z17102:	ADD	#800., R2	; 
 	CALL	Z17252		; ����
 	RETURN	
 Z17114:	MOV	R5, R3
-	CALL	Z20430
+	CALL	Z20430		; ����
 	RETURN	
 Z17124:	RETURN
 Z17126:	DEC	Z01766		; �������� ����� ������ �� ����