; ; ( ) ; 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