3 ms·

; http://forum.6502.org/viewtopic.php?t=1206 http://forum.6502.org/viewtopic.php?t=1206 LDX #$00 ; clear bit count loop ASL ; shift a bit

; http://forum.6502.org/viewtopic.php?t=1206 http://forum.6502.org/viewtopic.php?t=1206 LDX #$00 ; clear bit count loop ASL ; shift a bit BCC skip ; did one shift out? INX ; add one to count skip BNE loop ; repeat till zero RTS

mark-r 4y ago
You could remove one branch by doing add 0 with carry instead of the increment.
- mmphosis 4y ago
  ; yes, A becomes the counter, and shift a zero page byte byte EQU $EB STA byte LDA #$00 CLC loop ADC #$00 LSR byte BNE loop ADC #$00 RTS