Mona demo

[Nick Westgate]

I ported this simple Atari XL demo to the Apple II. There is art in numbers ...

(Warning, this stomps on various zero page locations.)

8000:20 E2 F3 A9 C8 85 7E A9
8008:7E 85 7F A9 3F 85 71 29
8010:03 AA 20 F0 F6 A5 71 0A
8018:AA BD 7E 80 85 7C 85 55
8020:E8 BD 7E 80 85 7D 85 54
8028:A9 1F 85 72 06 7C 26 7D
8030:26 7E 26 7F 90 0E A2 03
8038:B5 7C 5D 7A 80 95 7C CA
8040:10 F6 85 7B A2 C8 A5 7B
8048:29 82 10 02 A2 88 8E 57
8050:80 29 02 4A AA B4 54 C8
8058:98 29 7F 95 54 A6 55 30
8060:0B A5 54 C9 60 B0 05 A0
8068:00 20 57 F4 C6 72 10 BC
8070:C6 71 10 B4 CE 0C 80 10
8078:92 60 B7 1D C1 04 39 21
8080:B9 2B 44 2C 37 9E A7 25
8088:CE 96 2E 31 9D AF 7B C0
8090:8F 23 3D B2 14 1E 63 AD
8098:AF 3E 3C 8D 40 52 C7 80
80A0:72 AC E2 B8 77 18 16 E9
80A8:BB 3E 09 0A 13 04 2C 53
80B0:F1 B0 14 29 96 8A 14 B1
80B8:42 B2 2B 54 31 D4 51 30
80C0:7A D5 7D 0D FC 7D 2C A3
80C8:AD 29 59 08 F7 8A 47 A3
80D0:A3 90 F5 97 19 DF D6 26
80D8:11 3D 9C 20 93 20 D2 9C
80E0:B1 D0 80 02 B5 70 5A B0
80E8:3E B8 78 93 BD 0E 0B 1B
80F0:91 8A 9B F5 3C 0E 2B 07
80F8:9B 2F BE 37 0A 03
8000G

The original is 250 bytes:
http://www.pouet.net/prod.php?which=62917

It could be as short on the Apple II if placed in zero page, but mine is 254 bytes - 257 bytes if you set up the only byte needed to re-run it. (800C:3F)

Also, my version isn't pixel identical to the original. To get closer you'd have to plot 4 pixels at a time which gets a bit unwieldy. The colour mapping could be improved too, and in fact a better option might be double hires - except that would be really unwieldy.

People are code golfing it in other languages here - but note that a 6502 version is "not allowed".
https://codegolf.stackexchange.com/questions/126738/lets-draw-mona-lisa

They don't disallow a 65816 version though. Who's up for the IIgs?

Cheers,
Nick.

[Tom Porter]

That is some very clever and serious art Nick!
Thanks for sharing it... clever isn't even the word for it.

[Nick Westgate]

On Sunday, 25 March 2018 02:19:10 UTC+13, Tom Porter wrote:
> That is some very clever and serious art Nick!
> Thanks for sharing it... clever isn't even the word for it.

Yes, the author comments a bit here about how he did it:
http://www.pouet.net/prod.php?which=62917

And now I notice someone else posted a link to a forum thread with the source:
http://atariage.com/forums/topic/224259-mona-250-bytes-intro/?p=2967959

That would have been handy when I was porting it! : - |

And not only does that thread have the source, but it has the original release which contains a heavy readme dedicating it to his late wife.

Anyway, my source and a disk image are available here:
https://goo.gl/fh9S66

Cheers,
Nick.

[Antoine Vignau]

Nice work, Nick! Congrats!
av

[frank_...@hotmail.com]

Pretty cool!
f

[Nick Westgate]

On Sunday, 25 March 2018 01:48:54 UTC+13, Nick Westgate wrote:
> Who's up for the IIgs?

Well here's a first cut for the IIgs.

1000:A9 80 0C 29 C0 18 FB E2 30 A9 20 8D 13 10 A2 00
1010:8A 9F 00 20 E1 E8 D0 F9 EE 13 10 AC 13 10 C0 9E
1020:D0 EF A2 08 BD 68 11 9F 00 9E E1 CA 10 F6 A9 C8
1030:85 7E A9 7E 85 7F A9 3F 8D 3C 10 A9 3F 85 71 29
1040:03 85 01 0A 0A 0A 0A 85 00 A5 71 0A AA BD E8 10
1050:85 7C 85 55 E8 BD E8 10 85 7D 85 54 A9 1F 85 72
1060:06 7C 26 7D 26 7E 26 7F 90 0E A2 03 B5 7C 5D E4
1070:10 95 7C CA 10 F6 85 7B A2 C8 A5 7B 29 82 10 02
1080:A2 88 8E 8B 10 29 02 4A AA B4 54 C8 98 29 7F 95
1090:54 A6 55 30 09 A5 54 C9 60 B0 03 20 B6 10 C6 72
10A0:10 BE C6 71 10 B6 CE 3C 10 10 90 20 0C FD A9 80
10B0:1C 29 C0 38 FB 60 A8 C2 21 A9 00 20 88 30 05 69
10C0:A0 00 80 F8 8D D0 10 8D E0 10 E2 20 8A 4A AA BF
10D0:00 20 E1 B0 06 29 0F 05 00 80 04 29 F0 05 01 9F
10E0:00 20 E1 60 B7 1D C1 04 39 21 B9 2B 44 2C 37 9E
10F0:A7 25 CE 96 2E 31 9D AF 7B C0 8F 23 3D B2 14 1E
1100:63 AD AF 3E 3C 8D 40 52 C7 80 72 AC E2 B8 77 18
1110:16 E9 BB 3E 09 0A 13 04 2C 53 F1 B0 14 29 96 8A
1120:14 B1 42 B2 2B 54 31 D4 51 30 7A D5 7D 0D FC 7D
1130:2C A3 AD 29 59 08 F7 8A 47 A3 A3 90 F5 97 19 DF
1140:D6 26 11 3D 9C 20 93 20 D2 9C B1 D0 80 02 B5 70
1150:5A B0 3E B8 78 93 BD 0E 0B 1B 91 8A 9B F5 3C 0E
1160:2B 07 9B 2F BE 37 0A 03 00 00 60 0A A4 0F E9 0F
1000G

It waits for a keypress at the end since SHR has no mixed text mode.

And it's $170 bytes for the same reason the C64 port is $1C0 bytes - it includes graphics setup and plot code. Here's the C64 port:
http://www.pouet.net/prod.php?which=66134

Still, I'm sure it could be a bit smaller ...

Cheers,
Nick.