Differences

This shows you the differences between two versions of the page.

--- base:approximation_to_distance [2020-02-09 14:43] – djmips
+++ base:approximation_to_distance [2020-02-10 21:45] – djmips
@@ Line 17: / Line 17: @@
 ; than (9/8) + one bit uncertainty.
- lda x1          ; x1 - x2
+; input: x1,y1  x2,y2
+; uses: A xd,yd
+; output: approximate distance between x1,y1 and x2,y2 in A
+Dist:
+ lda x1
  sec
  sbc x2
  sta xd
- bpl .posxdiff   ; abs()
+ bcs posxdiff
- lda #00         ;
+ eor #$FF
- sec
+ adc #1
- sbc xd
+posxdiff:
-.posxdiff:
  sta xd
- lda y1          ; y1 - y2
+ lda y1
  sec
  sbc y2
- sta yd
+ bcs posydiff
- bpl .posydiff   ; abs()
+ eor #$FF
- lda #00
+ adc #1
- sec
+posydiff:
- sbc yd
-.posydiff:
  cmp xd
- bcs .ygreater
+ bcs ygreater
- lsr              ; ydelta / 2
+ lsr
- adc xd           ; + xdelta
+ clc
+ adc xd
+ rts
+ygreater:
+ lsr xd
+ clc
+ adc xd
  rts
-.ygreater:
- sta yd
- lda xd
- lsr              ; xdelta / 2
- cls
- adc yd           ; + ydelta
- rts
 </code>