; Based on BSM (Bit Shifter's Monitor)


; *******
Mon_Fill:
; *******

	jsr  Get_Param_Range   ; Long_PC = target
	+bcs Mon_Error         ; Long_CT = count

	jsr  Get_Addr_To_LAC   ; Long_AC = fill byte
	+beq Mon_Error
	lda  Long_AC+1
	ora  Long_AC+2
	ora  Long_AC+3
	+bne Mon_Error         ; only 1 fill byte allowed

	jsr  Print_CR

	ldz  #$00

@loop:

	lda  Long_AC
	jsr  Put_To_Memory
	jsr  Inc_LPC
	jsr  Dec_LCT
	bpl  @loop

	jmp  Main