32 lines
443 B
ArmAsm
32 lines
443 B
ArmAsm
|
|
; 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
|