| |
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....
|
| |
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.... |
| |
The Phantom
Registered: Jan 2004
Posts: 360 |
Wow.. This forum is great. Made me laugh so hard.
I'd post some of the stupid code I've done, but i'm NTSC. Nuff said?
Honestly, I think the stupidest code i've written was this:
lda #$0b
clc
adc #$1f
sta firstline+1
tax
lda $2000,x
sta $0400,x
clc
rts
I think I used it for a cheesy text displayer. Changing either the #$0b or #$1f created a different text display effect (thinking about it, I used this in WICKED/FOE).
Die Zhen Gebote |
| |
Platoon
Account closed
Registered: Mar 2004
Posts: 40 |
*=$1000
start : sei
inc $d020
jmp start
|
| |
lan64+
Account closed
Registered: Mar 2007
Posts: 10 |
Send me please a "little routine" for "Load the Next Part" after the press the Space Key.
Thnx |
| |
Scout
Registered: Dec 2002
Posts: 1570 |
Quote: Send me please a "little routine" for "Load the Next Part" after the press the Space Key.
Thnx
Yes, try it in this thread too... :-(
I guess we gave you enough sourcecodes and hints to get you going.
|
| |
TDJ
Registered: Dec 2001
Posts: 1879 |
Scout, could you please post your code for your new gfx mode here? |
| |
Scout
Registered: Dec 2002
Posts: 1570 |
Quote: Scout, could you please post your code for your new gfx mode here?
Do you want it in ascii, petscii, "monitor-format" or uu-encoded? |
| |
TDJ
Registered: Dec 2001
Posts: 1879 |
Quote: Do you want it in ascii, petscii, "monitor-format" or uu-encoded?
YES! |
| |
Fungus
Registered: Sep 2002
Posts: 680 |
j0x one runs max 15 iterations, the other runs forever.
inc $d020
bne *-2
will never end
|
| Previous - 1 | 2 | 3 | 4 | 5 | 6 - Next |
