; ŠŽ”ˆƒ“€–ˆŸ 1: [ 0αβΰ ]  [ 7αβΰ ]  [ 1αβΰ ]
; ŠŽ”ˆƒ“€–ˆŸ 2: [ 0αβΰ ]  [ 7αβΰ ]  [ 6αβΰ ]

SYSTEM=100064

WORK:	  INC     MCH	    ; ˆŠ…Œ…’ˆŽ‚€ˆ…
	       CMP     IMCH,MCH        ; ‘€‚…ˆ…
	       BEQ     STAR	   ; ……•Ž„ Š Ž€Ž’Š…
	       BIT     #100,@#177716   ; Ž‚…Š€ €Ž’›
	       BNE     0
	       CLR     MCH	    ; Ž—ˆ‘’Š€ ‘—…’—ˆŠ€
0:	     RETURN


STAR:	  BIS     #100,@#177660   ; ‡€…’ 60 ˆ 270
	       BIS     #10000,@#177716 ; ‡€…’ 4(‘’Ž)
INIT:	  MOV     #SYSTEM,@#100   ; “‘’€Ž‚Š€ ’€‰Œ…€
	       MOV     #67400,@#177716 ; ŠŽ”ˆƒ 2
	       BIS     #40000,@#177662 ; Ž’Š‹ž—…ˆ… ’€‰Œ…€
	       BIS     #100000,@#177662; “”… Š€€ 1
	       CLR     MCH
	       MOV     R0,-(SP)        ; €Ž’€ ‘Ž ‘’…ŠŽŒ
	       MOV     R1,-(SP)
	       MOV     R2,-(SP)
	       MOV     R4,-(SP)
	       MOV     #100000,R5      ; Ž—ˆ‘’Š€ Š€€
	       MOV     #40000,R4       ; 6αβΰ
0:	     CLR     (R5)+
	       SOB     R4,0
1:	     CALL    LRND	   ; Ž‹“—…ˆ… ‘‹“—€‰ŽƒŽ
	       BIS     #100000,R4      ; —ˆ‘‹€, “‘’€Ž‚Š€  
	       CMP     #137777,R4      ; ˆ ‘Ÿ’ˆ… ’Ž—Šˆ 
	       BLO     1
	       COMB    (R4) 
	       MOV     #100,R0
2:	     SOB     R0,2
	       COMB    (R4)
	       BIT     #100,@#177716   ; Ž‚…Š€ €†€’ˆŸ
	       BNE     1	      ; Š‹€‚ˆ˜ˆ, ˆ€—… -
				    ; ‘€—€‹€	
	       MOV     (SP)+,R4        ; €Ž’€ ‘Ž ‘’…ŠŽŒ
	       MOV     (SP)+,R2
	       MOV     (SP)+,R1
	       MOV     (SP)+,R0
UNINIT:	MOV     #64000,@#177716 ; ŠŽ”ˆƒ 1
	       BIC     #100,@#177660   ; ‚Š‹ 60 ˆ 274
	       BIC     #10000,@#177716 ; ‚Š‹ 4(‘’Ž)
	       BIC     #40000,@#177662 ; ‚Š‹ž—…ˆ… ’€‰Œ…€
	       BIC     #100000,@#177662; “”… Š€€ 0
	       RETURN	       



IMCH:	  .W      10000
MCH:	   .W      0

; Ž„Žƒ€ŒŒ€ ‚›€Ž’Šˆ ‘‹“—€‰ŽƒŽ —ˆ‘‹€, ‚›•Ž„ - R4
; MRND - ‡€ŽŒˆ€ˆ… …„›„“™…‰ ‚›ŽŠˆ ‘‹“—€‰ŽƒŽ —ˆ‘‹€

LRND:	  MOV     R5,-(SP)
	       MOV     MRND,R5
	       CMP     #140000,R5
	       BLO     1
0:	     MOV     #140000,R5
1:	     MOV     (R5)+,R4	       
	       SWAB    R4
	       ADD     7(R5),R4
	       ADC     R4
	       ADD     15(R5),R4
	       CMP     #157650,R5
	       BLO     0
	       MOV     R5,MRND
	       MOV     (SP)+,R5
	       RET

MRND:	  .W      140000



	       .END