| |
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....
|
| |
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 |
| |
Cruzer
Registered: Dec 2001
Posts: 1048 |
;Flag of Libya... =)
lda #$00
sta $d011
lda #$05
sta $d020
|
| |
Scout
Registered: Dec 2002
Posts: 1570 |
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
|
| |
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
|
| |
blinkenlichten
Account closed
Registered: Aug 2003
Posts: 4 |
umm
got garbled
try the upper half! |
| |
Scout
Registered: Dec 2002
Posts: 1570 |
Quote: umm
got garbled
try the upper half!
We want sourcecodes, not encoded binaries! >:-( |
| |
tlr
Registered: Sep 2003
Posts: 1787 |
Quote: We want sourcecodes, not encoded binaries! >:-(
Maybe he wrote it in straight uuencoded ascii? That would be the stupidest ever! :) |
| |
Scout
Registered: Dec 2002
Posts: 1570 |
Quote: Maybe he wrote it in straight uuencoded ascii? That would be the stupidest ever! :)
Indeed =) |
| |
Richard
Registered: Dec 2001
Posts: 621 |
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
|
| |
Oswald
Registered: Apr 2002
Posts: 5086 |
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 |
