home *** CD-ROM | disk | FTP | other *** search
/ Syzygy Magazine 7 / Syzygy_Magazine_7_1999___pl_Disk_2_of_2_Side_B.atr / lekcja.arc / SQRT.ASM < prev    next >
Assembly Source File  |  1999-09-09  |  669b  |  1 lines
  1. * A = SQRT(AX)¢¢_wrd equ $32¢_sqr equ $34¢_aux equ $36¢¢sqrt sta _wrd¢     stx _wrd+1¢     lda #0¢     sta _sqr¢     sta _sqr+1¢     sta _aux¢     lda #$40¢     sta _aux+1¢¢_lp  sec¢     lda _wrd¢     sbc _aux¢     tax¢     lda _wrd+1¢     sbc _aux+1¢     bcc _skp¢¢     tay¢     txa¢     sbc _sqr¢     tax¢     tya¢     sbc _sqr+1¢     bcc _skp¢¢     stx _wrd¢     sta _wrd+1¢¢     lda _sqr+1¢     lsr @¢     ora _aux+1¢     sta _sqr+1¢     lda _sqr¢     ror @¢     ora _aux¢     sta _sqr¢     jmp _nxt¢¢_skp lsr _sqr+1¢     ror _sqr¢¢_nxt lda _aux+1¢     lsr @¢     ror _aux¢     lsr @¢     ror _aux¢     sta _aux+1¢     ora _aux¢     bne _lp¢¢_ext lda _sqr¢     rts¢