; ������������ �������� ����������� ������������ �����������
; (������ ���������)
; BMS corp. 1994-Jan-12 
; �����: R5, ����������� ���� ������������ �����������

LBON:	  MOV     R4,-(SP)
	       MOV     R3,-(SP)
	       MOV     #177130,R4
	       MOV     #4,R5
	       CLR     -(SP)   ; 2(SP)
	       CLR     -(SP)   ; (SP)
	       INC     (SP)
0:	     MOV     (SP),(R4)
	       CLR     2(R4)
	       MOV     2(R4),-(SP)
	       MOV     #100,R3
1:	     SOB     R3,1
	       CCC
	       CMP     2(R4),(SP)+
	       BEQ     2
	       BIS     (SP),2(SP)
2:	     ASL     (SP)
	       CLR     (R4)
	       MOV     #100,R3
3:	     SOB     R3,3
	       SOB     R5,0
	       MOV     2(SP),R5
	       ADD     #4,SP
	       BIC     #177760,R5
	       MOV     (SP)+,R3
	       MOV     (SP)+,R4
	       RETURN

	       .END