Log inRegister an accountBrowse CSDbHelp & documentationFacts & StatisticsThe forumsAvailable RSS-feeds on CSDbSupport CSDb Commodore 64 Scene Database
You are not logged in - nap
CSDb User Forums


Forums > C64 Coding > Stupid Routines ....
2006-11-27 22:55
General Zoff
Account closed

Registered: Dec 2004
Posts: 7
Stupid Routines ....

Found this one on one of my old work disks ...
Let's collect the most stupid routines you have written on your old C64 ... ;-)

.C:6000 78 SEI
.C:6001 A2 00 LDX #$00
.C:6003 BD 11 60 LDA $6011,X
.C:6006 9D 00 00 STA $0000,X
.C:6009 E8 INX
.C:600a E0 40 CPX #$40
.C:600c D0 F5 BNE $6003
.C:600e 4C 00 00 JMP $0000
.C:6011 2F 34 A9 RLA $A934
.C:6014 A9 EA LDA #$EA
.C:6016 8D 34 A9 STA $A934
.C:6019 F0 24 BEQ $603F
.C:601b A2 00 LDX #$00
.C:601d A9 EA LDA #$EA
.C:601f 9D 40 00 STA $0040,X
.C:6022 E8 INX
.C:6023 D0 F8 BNE $601D
.C:6025 EE 10 00 INC $0010
.C:6028 AD 10 00 LDA $0010
.C:602b C9 00 CMP #$00
.C:602d F0 0B BEQ $603A
.C:602f C9 FF CMP #$FF
.C:6031 D0 E8 BNE $601B
.C:6033 A9 00 LDA #$00
.C:6035 8D 0F 00 STA $000F
.C:6038 F0 E1 BEQ $601B
.C:603a A9 D0 LDA #$D0
.C:603c 8D 08 00 STA $0008
.C:603f A9 37 LDA #$37
.C:6041 85 01 STA $01
.C:6043 EE 20 D0 INC $D020
.C:6046 A9 34 LDA #$34
.C:6048 85 01 STA $01
.C:604a EA NOP
.C:604b EA NOP
.C:604c EA NOP
.C:604d EA NOP
.C:604e EA NOP
.C:604f EA NOP
.C:6050 EA NOP




 
... 42 posts hidden. Click here to view all posts....
 
2007-03-30 19:21
TDJ

Registered: Dec 2001
Posts: 1879
*=$1000

     lda $00
     sta $d011
     sei

loop ldy #$70
     lda $02
     cpy $d012
     bne *-3
     sta $d020

     ldy #$80
     lda $01
     cpy $d012
     bne *-3
     sta $d020

     ldy #$90
     lda $06
     cpy $d012
     bne *-3
     sta $d020

     ldy #$80
     lda $00
     cpy $d012
     bne *-3
     sta $d020
     jmp loop


Flag of Luxembourg on black screen
2007-03-30 19:35
Cruzer

Registered: Dec 2001
Posts: 1048
;Flag of Libya... =)

	lda #$00
	sta $d011
	lda #$05
	sta $d020

2007-03-30 20:10
Scout

Registered: Dec 2002
Posts: 1568
2 times Belgium :)

		*=$1000

		sei
		lda #$0b
		sta $d011
		lda #$00
		ldy #$07
		ldx #$02
loop
		sta $d020
		nop
		sty $d020
		nop
		stx $d020
		nop
		jmp loop
2007-03-30 22:04
blinkenlichten
Account closed

Registered: Aug 2003
Posts: 4
begin 644 SWAP.prg
M`,"M`MT)`XT"W:T`W2G\"0&-`-U,O<`.&=`8K9_`:0$I`XV?P(WGA_`#3);`
MC>:'KJ'`O0"02DI*"AAI"H7[K:#`20&-H,!(J0"%_:D$A?RIA(7^HAF@)FA)
M`4C0`<BQ^Y']B(@0^!BE^VDHA?N0`N;\&*7]:2B%_9`"YO[*T-9HJ1N-$="B
M#^XTP:PTP;D`D)T`T,K*$/GNH<#NH<!,,>H`````"0($#@,-`PX$`@D``0`!
M``$``0`!``$``0#8>*D?C0W<C0W=J16-%`.IP(T5`ZD!C1K0J1N-$="I;(T2
MT*G@.*(.G0#0Z1C*RA#WJ7@@]L!88`"L]<#0.*!_C/7`H@"I`!AI`(T#P:D`
J:0"-"\&=@)"9`)!)?YT`D)F`D*T&P1AI"(T&P9`#[@W!Z(C@0-#/8```
`
end

start with sys49152 — btw: uses that tiny sine generator from “formula too complex” which is not that stupid…
2007-03-30 22:09
blinkenlichten
Account closed

Registered: Aug 2003
Posts: 4
umm … got garbled … try the upper half!
2007-03-30 23:32
Scout

Registered: Dec 2002
Posts: 1568
Quote: umm … got garbled … try the upper half!

We want sourcecodes, not encoded binaries! >:-(
2007-03-31 10:47
tlr

Registered: Sep 2003
Posts: 1701
Quote: We want sourcecodes, not encoded binaries! >:-(

Maybe he wrote it in straight uuencoded ascii? That would be the stupidest ever! :)
2007-03-31 13:35
Scout

Registered: Dec 2002
Posts: 1568
Quote: Maybe he wrote it in straight uuencoded ascii? That would be the stupidest ever! :)

Indeed =)
2007-03-31 14:16
Richard

Registered: Dec 2001
Posts: 619
Here's something probably useless, but was useful for me. Creating short term delays :)

* = $1000
SEI
DELAY LDX #$00
LOOP2 LDY #$00
LOOP1 INY
BNE LOOP1
INX
BNE LOOP2
RTS

To make things interestingly wild, or silly. Before LDX #$00 add the following:

JSR DELAY
INC $D020

JSR DELAY
INC $D020

JSR DELAY
INC $D020

JSR DELAY
INC $D020

JSR DELAY
INC $D020

JSR DELAY
INC $D020
RTS
2007-03-31 17:35
Oswald

Registered: Apr 2002
Posts: 5007
sometime in 91, before learning to use irqs d012 etc, I have made a little "game" which moved around a little aeroplane sprite according to the joystick. now the routine was too fast at first. Then simply I have introduced a 3 or 4 times nested delay loop....
Previous - 1 | 2 | 3 | 4 | 5 | 6 - 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
MAT64
Sixx
Gordian
Exile/Anubis
jmin
Didi/Laxity
Mibri/ATL^MSL^PRX
WVL/Xenon
Guests online: 356
Top Demos
1 Next Level  (9.8)
2 Mojo  (9.7)
3 Coma Light 13  (9.7)
4 Edge of Disgrace  (9.6)
5 No Bounds  (9.6)
6 Comaland 100%  (9.6)
7 Uncensored  (9.6)
8 The Ghost  (9.6)
9 Wonderland XIV  (9.6)
10 Bromance  (9.6)
Top onefile Demos
1 Party Elk 2  (9.7)
2 Cubic Dream  (9.6)
3 Copper Booze  (9.5)
4 Rainbow Connection  (9.5)
5 TRSAC, Gabber & Pebe..  (9.5)
6 Onscreen 5k  (9.5)
7 Dawnfall V1.1  (9.5)
8 Quadrants  (9.5)
9 Daah, Those Acid Pil..  (9.5)
10 Birth of a Flower  (9.5)
Top Groups
1 Booze Design  (9.3)
2 Nostalgia  (9.3)
3 Oxyron  (9.3)
4 Censor Design  (9.3)
5 Crest  (9.3)
Top Crackers
1 Mr. Z  (9.9)
2 S!R  (9.9)
3 Mr Zero Page  (9.8)
4 Antitrack  (9.8)
5 OTD  (9.8)

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