Ich hatte leider letzte Woche zu viel um die Ohren um mich länger mit der Aufgabe zu beschäftigen, daher hat's für einen eigenen Beitrag nicht gereicht. Und auf so etwas abgefahrenes wäre ich vermutlich eh nicht gekommen.
Auf der Basis von Roland habe ich aber eben noch eine 50 Byte-Version hinbekommen:
Basic-Zeile:
und dann
Code
- .C:080a A8 TAY
- .C:080b D0 03 BNE $0810
- .C:080d 20 C9 BD JSR $BDC9
- .C:0810 20 B6 E6 JSR $E6B6
- .C:0813 E6 39 INC $39
- .C:0815 30 FE BMI $0815
- .C:0817 46 0F LSR $0F
- .C:0819 A7 0A LAX $0A
- .C:081b 90 0A BCC $0827
- .C:081d A8 TAY
- .C:081e 69 03 ADC #$03
- .C:0820 95 0F STA $0F,X
- .C:0822 85 B7 STA $B7
- .C:0824 20 C7 F5 JSR $F5C7
- .C:0827 16 30 ASL $30,X
- .C:0829 90 DF BCC $080A
- .C:082b A9 04 LDA #$04
- .C:082d A2 21 LDX #$21
- .C:082f D0 EC BNE $081D
Zumindest bei mir lief's...