und hier in 29 bytes
Code
- .C:1000 9A TXS
- .C:1001 A0 D8 LDY #$D8
- .C:1003 BF 28 03 LAX $0328,Y
- .C:1006 CA DEX
- .C:1007 E0 1A CPX #$1A
- .C:1009 B0 04 BCS $100F
- .C:100b 48 PHA
- .C:100c C8 INY
- .C:100d D0 F4 BNE $1003
- .C:100f BA TSX
- .C:1010 F0 02 BEQ $1014
- .C:1012 68 PLA
- .C:1013 88 DEY
- .C:1014 8D 28 04 STA $0428
- .C:1017 EE 15 10 INC $1015
- .C:101a 10 F0 BPL $100C
- .C:101c 02 JAM