Log inRegister an accountBrowse CSDbHelp & documentationFacts & StatisticsThe forumsAvailable RSS-feeds on CSDbSupport CSDb Commodore 64 Scene Database
 Welcome to our latest new user psenough ! (Registered 2024-05-21) You are not logged in - nap
CSDb User Forums


Forums > C64 Coding > ROL'in a byte onto itself
2016-03-01 17:04
mhindsbo
Account closed

Registered: Dec 2014
Posts: 50
ROL'in a byte onto itself

What is the fastest and/or shortest code for rolling a pattern through a byte? I use it to trigger an action following a certain pattern. I came up with (18 cycles worst case / 12 bytes):
          clc
          lda pattern
          bpl no_carry
          sec
no_carry  rol pattern
          bcs take_action 

if your pattern ends on a 1 (bit 0 = 1) then you could also do (17 cycles worst case / 13 bytes)
          lda pattern
          bne @cont
          lda #%00110101   ; restore pattern
@cont     asl
          sta pattern
          bcs take_action 

any other variations?
 
... 22 posts hidden. Click here to view all posts....
 
2016-03-03 22:12
Digger

Registered: Mar 2005
Posts: 422
What's could be a practical application for that?
2016-03-04 02:29
mhindsbo
Account closed

Registered: Dec 2014
Posts: 50
I use it for an alternating fire pattern. This piece of code sits in the fire function and decides if it fires or not when called
2016-03-06 00:36
Copyfault

Registered: Dec 2001
Posts: 467
Quoting Hoogo
asl pattern
bcc no_action
inc pattern


Wow, that's true art!

Thanks for being (or better getting) active again, Frank ;)
2016-03-06 09:51
Style

Registered: Jun 2004
Posts: 498
Quote: Quoting Hoogo
asl pattern
bcc no_action
inc pattern


Wow, that's true art!

Thanks for being (or better getting) active again, Frank ;)


Id use

ASL mem
ADC #0
2016-03-07 19:17
Hoogo

Registered: Jun 2002
Posts: 102
Quoting Style
ASL mem
ADC #0
It's easier, faster and shorter, but does not work :) Where's the Accu coming from, and where does it go?
2016-03-07 20:04
chatGPZ

Registered: Dec 2001
Posts: 11147
Quote:
It's easier, faster and shorter, but does not work

AEG would love it *g*
2016-03-08 23:29
Style

Registered: Jun 2004
Posts: 498
Quote: Quoting Style
ASL mem
ADC #0
It's easier, faster and shorter, but does not work :) Where's the Accu coming from, and where does it go?


Oh was that a prerequisite? :)


LDA groep
ASL
ADC #0
STA groep


There ;)

(wanders off to find copy of "coding drunk for beginners")
2016-03-09 13:41
mhindsbo
Account closed

Registered: Dec 2014
Posts: 50
Yes the requirement was code that works (checking chapter 1 in "coding drunk for beginners" ;-) just need to add the branch to take action ;-)

All in all Hoogo's solution is both shortest and fastest. Part of the joy I get from coding on the C64 are finding elegant short, fast and clean solutions, within the constraints of the system, and I really like the aesthetics of this one :-)
2016-03-09 19:08
Perplex

Registered: Feb 2009
Posts: 254
Edit: nevermind.
2016-03-09 19:30
Oswald

Registered: Apr 2002
Posts: 5028
yeah hype it some more, most beautiful 3 lines of code I've ever seen. I mean, really! :)
Previous - 1 | 2 | 3 | 4 - Next
RefreshSubscribe to this thread:

You need to be logged in to post in the forum.

Search the forum:
Search   for   in  
All times are CET.
Search CSDb
Advanced
Users Online
Colt45RPM
csabanw
KAL_123
Guests online: 59
Top Demos
1 Next Level  (9.8)
2 13:37  (9.7)
3 Coma Light 13  (9.7)
4 Edge of Disgrace  (9.6)
5 Mojo  (9.6)
6 Comaland 100%  (9.6)
7 Uncensored  (9.6)
8 No Bounds  (9.6)
9 Bromance  (9.5)
10 Wonderland XII  (9.5)
Top onefile Demos
1 Layers  (9.6)
2 Cubic Dream  (9.6)
3 Party Elk 2  (9.6)
4 Copper Booze  (9.6)
5 TRSAC, Gabber & Pebe..  (9.5)
6 Rainbow Connection  (9.5)
7 It's More Fun to Com..  (9.5)
8 Dawnfall V1.1  (9.5)
9 Quadrants  (9.5)
10 Daah, Those Acid Pil..  (9.5)
Top Groups
1 Oxyron  (9.3)
2 Booze Design  (9.3)
3 Censor Design  (9.3)
4 Crest  (9.3)
5 Performers  (9.3)
Top Graphicians
1 Sulevi  (9.9)
2 Mirage  (9.8)
3 Mikael  (9.7)
4 Lobo  (9.7)
5 Archmage  (9.7)

Home - Disclaimer
Copyright © No Name 2001-2024
Page generated in: 0.058 sec.