Mini Competition Teil 4

Roland · 4. September 2006, 08:36

hmmmm..... we discussed that $jsr$e544 in an earlier mini-compo, and came to the result, to expect that $0286 routine (the later and most common) is used by the kernal...

so...if you like to use that routine for screen-clear and color set... go for it!

BastetFurry · 4. September 2006, 08:44

This is the same discussion that we had over at remakes.org.
It walked along the line of "Dont assume somebody has DX10, but DX8 should be standard by now."

So, if someone has a THAT old Kernal he should think about promming himself a newer one.

tnt · 4. September 2006, 09:56

Ok, I just remebered some early demos which have wrong colors as people assumed $0286 works on every machine. I admit R2 kernals are quite rare.

I'm not using $e544 myself, "st? $0286;jsr $e544" takes too many bytes. Speaking of which, my routine is again several percent shorter - it's good to be at work again

Roland · 9. September 2006, 14:35

so....letztes wochenende vor der deadline (15.9)...

wer hat denn vor mitzumachen ?

Mafiosino · 10. September 2006, 07:50

Ich mache mit!

Mein Programm ist aber schon fertig und ich habe es abgeschickt.

greg · 10. September 2006, 17:49

Wenn ich etwas ordentliches zusammenbekomme, dann mache ich auch mit. Bin aber zur Zeit eigentlich mit anderen Dingen beschäftigt...

hannenz · 10. September 2006, 19:33

Original von BastetFurry
Joah, wenn man ein Programm mit SYS (auch aus einer Basiczeile) startet stehen in den Regs alles Nullen.

Nein, SYS holt sich die Registerinhalte aus den Spiecherstellen 780-784 (A,X,Y,Statusregister), und JSRt dann zu der Adresse, danach speichert es die neuen Registerinhalte wieder dort ab.

Roland · 13. September 2006, 20:14

wie läuft das denn wieder ab?

sollen wir unseren code an hannenz schicken? und wenn ja bis wann (uhrzeit)

hannenz · 13. September 2006, 22:13

neeee - ich hab diesmal nix damit zu tun, ich mach weder mit, noch hab ich die Aufgabe gstellt usw.
ist nicht BastetFurry dafür verantwortlich, da er die Aufgabe gestellt hat??

Roland · 13. September 2006, 22:25

ahh...stimmt...sorry!

geht also alles an den kater? wann?

BastetFurry · 14. September 2006, 01:15

Am 15. ich sach ma so 20 Uhr, Auswertung mach ich dann nächsten Tag über.
Ich seh das alles nicht so eng und bin auch nicht pästlicher wie der Papst

DrCreep · 14. September 2006, 01:44

Ach du meine Güte - das hab ich ja völlig verpennt. :wand

Ich hoffe, daß ich heut abend noch ein wenig zeit dafür hab, ansonsten wirds eng :schreck!:

Roland · 14. September 2006, 08:28

yo... sollten die deadlines nicht so weit in die zukunft setzen.
da denkt man sonst immer, "ach, hat ja noch zeit", und dann hat man es vergessen.

DrCreep · 14. September 2006, 08:33

Original von Roland
yo... sollten die deadlines nicht so weit in die zukunft setzen.
da denkt man sonst immer, "ach, hat ja noch zeit", und dann hat man es vergessen.

beruhigend, daß es nicht nur mir so geht

DrCreep · 16. September 2006, 08:38

Als hätt ich's geahnt : Wieder mal verschludert :zzz:

- Sorry !

Aber beim nächsten mal fang ich früh genug an...

Roland · 16. September 2006, 14:03

hmmm....mist, hab eben nochmal eine version gemacht, die 4 bytes kürzer ist,
aber leider scrollt die nach links OBEN anstatt nach links UNTEN. :wand

naja....mal sehen ob ich das noch umbiegen kann...

BastetFurry · 16. September 2006, 14:18

Ich stell mal Online was ich gekriegt habe:
Binarys im Anhang

Platz 1 für "Roland" mit 60 Byte

@Roland: Du hast den Source vergessen, bitte Posten!

Platz 2 "Mafiosino" mit 64 byte

Extremst Inovativ, beim Starten kurz warten, der rechnet sich da irgendwas zurecht bis es passt.

Quellcode

processor 6502
;;;
mac decdig
dc.b '0 + [{1}]
endm
;;;
mac decnum
if [{1}] > 9
decnum [{1}] / 10
endif
decdig [{1}] % 10
endm
;;;
org $0801
;*********************************************************************
;Header
;*********************************************************************
dc.w ende ; Zeiger auf nächste Zeile
start sei
inx
dc $9e ; SYS
decnum start-1
;*********************************************************************
;Füllen des Bildschirms und der Chars $20 und $21
;*********************************************************************
stx $0286
l2
dec $0107,x
lda #$10
sta $d3d7,x
jsr $e8ec
ora $0798
tay
l1
dc $f3, $d1 ;inc ($d1),y
dey
dey
bpl l1
dc $4b, $01 ;lda #0
tsx
pha
bne l2
;*********************************************************************
;Anzeigeschleife
;*********************************************************************
schleife jsr $ff5e
l3
lda ($91),y
asl
sbc #$ff
eor #1
l4
pha
cpy #$fb
dey
bcs schleife
bne l3
lda $0110
bcc l4
ende

Alles anzeigen

Platz 3 für "tnt" mit 82 Byte

Quellcode

0801 hex 5108 d8d6 9e32303538
080a ldx #$02
080c inc $3a
080e inc $76
0810 txa
0811 sta ($75),y
0813 eor #$01
0815 lsr a
0816 sta ($39),y
0818 rol a
0819 dey
081a bpl $0811
081c ldy #$28
081e tax
081f tya
0820 adc $39
0822 sta $39
0824 sta $75
0826 bcc $0810
0828 cmp #$10
082a bne $080c
082c sta $d017,y
082f dey
0830 bpl $082c
0832 sty $d007
0835 tya
0836 ldy #$10
0838 sta $20,x
083a eor $d03f,y
083d inx
083e bmi $0842
0840 ldx #$f0
0842 dey
0843 bpl $0838
0845 cmp #$80
0847 rol $62
0849 rol a
084a cpy $d012
084d bne $084a
084f beq $0836

Alles anzeigen

Wer noch was fertig hat bitte wenigstens posten

@tnt:
Its your turn to make the next compo >^_^<

Roland · 16. September 2006, 14:42

ahhh, ich schick mal mein neues das nochmal 2 bytes kürzer ist...

Roland · 16. September 2006, 14:53

hier meine 56 byte version (+2 bytes ladeadresse)

sourcecode kommt später...ich hab doch kein source-code---muss ich erstmal als text abtippen.

sauhund · 16. September 2006, 15:15

sourcecode kommt später...ich hab doch kein source-code---muss ich erstmal als text abtippen.

abtippen? in den vice einladen, vice monitor aufmachen, disassemble, cut'n'paste ...

Mini Competition Teil 4

RE: Mini Competition Teil 4

Quellcode

Quellcode

Tags