46 lines
631 B
ArmAsm
46 lines
631 B
ArmAsm
|
|
; Based on BSM (Bit Shifter's Monitor)
|
|
|
|
|
|
Mon_Compare:
|
|
|
|
jsr Get_Param_Range ; Long_PC = source
|
|
+bcs Mon_Error ; Long_CT = count
|
|
lda #$00
|
|
sta Addr_Mode
|
|
jsr Get_Val_To_LAC ; Long_AC = target
|
|
+beq Mon_Error
|
|
|
|
lda Src_Addr_Mode
|
|
ora Dst_Addr_Mode
|
|
sta Src_Addr_Mode
|
|
|
|
lda Addr_Mode
|
|
sta Dst_Addr_Mode
|
|
|
|
jsr Print_CR
|
|
ldz #0
|
|
|
|
@loop:
|
|
|
|
lda Dst_Addr_Mode
|
|
sta Addr_Mode
|
|
jsr Get_From_Memory_LAC
|
|
sta Byte_TMP
|
|
|
|
lda Src_Addr_Mode
|
|
sta Addr_Mode
|
|
jsr Get_From_Memory_LPC
|
|
|
|
cmp Byte_TMP
|
|
beq @laba
|
|
jsr Print_LPC_Addr
|
|
|
|
@laba:
|
|
|
|
jsr Inc_LAC
|
|
jsr Inc_LPC
|
|
jsr Dec_LCT
|
|
bpl @loop
|
|
jmp Main
|