Browse code
(screen.auto) Added a auto port testing file
neauoire authored on 19/12/2023 18:52:15
Showing 2 changed files
| 1 | 1 |
new file mode 100644 |
| ... | ... |
@@ -0,0 +1,152 @@ |
| 1 |
+( All five portraits should look right ) |
|
| 2 |
+ |
|
| 3 |
+|00 @System &vector $2 &wst $1 &rst $1 &eaddr $2 &ecode $1 &pad $1 &r $2 &g $2 &b $2 &debug $1 &halt $1 |
|
| 4 |
+|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 |
|
| 5 |
+ |
|
| 6 |
+|0100 |
|
| 7 |
+ ( | size ) |
|
| 8 |
+ #00a0 .Screen/width DEO2 |
|
| 9 |
+ #0020 .Screen/height DEO2 |
|
| 10 |
+ ( | theme ) |
|
| 11 |
+ #05ae .System/r DEO2 |
|
| 12 |
+ #0a9f .System/g DEO2 |
|
| 13 |
+ #097f .System/b DEO2 |
|
| 14 |
+ ( | normal horizontal ) |
|
| 15 |
+ #0000 .Screen/x DEO2 |
|
| 16 |
+ #0000 .Screen/y DEO2 |
|
| 17 |
+ [ LIT2 35 -Screen/auto ] DEO |
|
| 18 |
+ ;img-hor .Screen/addr DEO2 |
|
| 19 |
+ #85 <draw-4times> |
|
| 20 |
+ ( | normal vertical ) |
|
| 21 |
+ #0020 .Screen/x DEO2 |
|
| 22 |
+ #0000 .Screen/y DEO2 |
|
| 23 |
+ [ LIT2 36 -Screen/auto ] DEO |
|
| 24 |
+ ;img-ver .Screen/addr DEO2 |
|
| 25 |
+ #85 <draw-4times> |
|
| 26 |
+ ( | flipped horizontal ) |
|
| 27 |
+ #0058 .Screen/x DEO2 |
|
| 28 |
+ #0000 .Screen/y DEO2 |
|
| 29 |
+ [ LIT2 36 -Screen/auto ] DEO |
|
| 30 |
+ ;img-x-flipped .Screen/addr DEO2 |
|
| 31 |
+ #95 <draw-4times> |
|
| 32 |
+ ( | flipped vertical ) |
|
| 33 |
+ #0060 .Screen/x DEO2 |
|
| 34 |
+ #0018 .Screen/y DEO2 |
|
| 35 |
+ [ LIT2 36 -Screen/auto ] DEO |
|
| 36 |
+ ;img-y-flipped .Screen/addr DEO2 |
|
| 37 |
+ #a5 <draw-4times> |
|
| 38 |
+ ( | flipped horizontal/vertical ) |
|
| 39 |
+ #0098 .Screen/x DEO2 |
|
| 40 |
+ #0018 .Screen/y DEO2 |
|
| 41 |
+ [ LIT2 36 -Screen/auto ] DEO |
|
| 42 |
+ ;img-xy-flipped .Screen/addr DEO2 |
|
| 43 |
+ #b5 <draw-4times> |
|
| 44 |
+ BRK |
|
| 45 |
+ |
|
| 46 |
+@<draw-4times> ( color -- ) |
|
| 47 |
+ .Screen/sprite DEOk DEOk DEOk DEO |
|
| 48 |
+ JMP2r |
|
| 49 |
+ |
|
| 50 |
+@draw-fast ( w h addr* color -- ) |
|
| 51 |
+ ,&color STR |
|
| 52 |
+ .Screen/addr DEO2 |
|
| 53 |
+ SWP #01 SUB #40 SFT #06 ORA .Screen/auto DEO |
|
| 54 |
+ #00 SWP SUB |
|
| 55 |
+ × ( -- ) |
|
| 56 |
+ [ LIT2 &color $1 -Screen/sprite ] DEO |
|
| 57 |
+ INC DUP ?× |
|
| 58 |
+ POP JMP2r |
|
| 59 |
+ |
|
| 60 |
+( |
|
| 61 |
+@|assets ) |
|
| 62 |
+ |
|
| 63 |
+@img-ver [ |
|
| 64 |
+ 0000 0008 0404 0501 ffff fff7 fbfa f9f9 |
|
| 65 |
+ 0000 1000 21ff ffff ffff efde 21ff ffff |
|
| 66 |
+ 2020 0060 f8ff fffc dfdf 9f67 f8ff fffc |
|
| 67 |
+ 0703 2110 0888 c851 e7fb ddee 76b6 d64d |
|
| 68 |
+ 0307 0617 172f 080c fbf7 f6e5 e7cf e8ec |
|
| 69 |
+ ffef 1fff ff1f 0f37 f7ef 1fff 8f07 0733 |
|
| 70 |
+ fbff ffff fcf8 f3f7 fbf7 fff8 f0f0 f1f1 |
|
| 71 |
+ d3d7 c783 0100 0040 8bc7 d79b 1d3e 3e5e |
|
| 72 |
+ 0e06 0301 0101 0505 eef6 fbfd fdfd f9f9 |
|
| 73 |
+ 7bfb 3fff ffff ffff 3b3b 3fff ffff ffff |
|
| 74 |
+ f7f7 f7ff fff7 fffb f3ff fff3 fbff ffe3 |
|
| 75 |
+ c0e0 e0e4 e5e3 c7cf feee eeea e9eb f7cf |
|
| 76 |
+ 3800 0103 c7ff ffff c6fe fd3b c7ff ffff |
|
| 77 |
+ ff7f 3f0f a0b8 bebf ff7f 3f5f b1bf bfbf |
|
| 78 |
+ dfbf fefd fb07 0fdf c387 fefd fb07 efdf |
|
| 79 |
+ bf7f ffff ffff ffff bf7f ffff ffff ffff ] |
|
| 80 |
+ |
|
| 81 |
+@img-hor [ |
|
| 82 |
+ 0000 0008 0404 0501 ffff fff7 fbfa f9f9 |
|
| 83 |
+ 0307 0617 172f 080c fbf7 f6e5 e7cf e8ec |
|
| 84 |
+ 0e06 0301 0101 0505 eef6 fbfd fdfd f9f9 |
|
| 85 |
+ 3800 0103 c7ff ffff c6fe fd3b c7ff ffff |
|
| 86 |
+ 0000 1000 21ff ffff ffff efde 21ff ffff |
|
| 87 |
+ ffef 1fff ff1f 0f37 f7ef 1fff 8f07 0733 |
|
| 88 |
+ 7bfb 3fff ffff ffff 3b3b 3fff ffff ffff |
|
| 89 |
+ ff7f 3f0f a0b8 bebf ff7f 3f5f b1bf bfbf |
|
| 90 |
+ 2020 0060 f8ff fffc dfdf 9f67 f8ff fffc |
|
| 91 |
+ fbff ffff fcf8 f3f7 fbf7 fff8 f0f0 f1f1 |
|
| 92 |
+ f7f7 f7ff fff7 fffb f3ff fff3 fbff ffe3 |
|
| 93 |
+ dfbf fefd fb07 0fdf c387 fefd fb07 efdf |
|
| 94 |
+ 0703 2110 0888 c851 e7fb ddee 76b6 d64d |
|
| 95 |
+ d3d7 c783 0100 0040 8bc7 d79b 1d3e 3e5e |
|
| 96 |
+ c0e0 e0e4 e5e3 c7cf feee eeea e9eb f7cf |
|
| 97 |
+ bf7f ffff ffff ffff bf7f ffff ffff ffff ] |
|
| 98 |
+ |
|
| 99 |
+@img-x-flipped [ |
|
| 100 |
+ e0c0 8408 1011 138a e7df bb77 6e6d 6bb2 |
|
| 101 |
+ 0404 0006 1fff ff3f fbfb f9e6 1fff ff3f |
|
| 102 |
+ 0000 0800 84ff ffff ffff f77b 84ff ffff |
|
| 103 |
+ 0000 0010 2020 a080 ffff ffef df5f 9f9f |
|
| 104 |
+ cbeb e3c1 8000 0002 d1e3 ebd9 b87c 7c7a |
|
| 105 |
+ dfff ffff 3f1f cfef dfef ff1f 0f0f 8f8f |
|
| 106 |
+ fff7 f8ff fff8 f0ec eff7 f8ff f1e0 e0cc |
|
| 107 |
+ c0e0 60e8 e8f4 1030 dfef 6fa7 e7f3 1737 |
|
| 108 |
+ 0307 0727 a7c7 e3f3 7f77 7757 97d7 eff3 |
|
| 109 |
+ efef efff ffef ffdf cfff ffcf dfff ffc7 |
|
| 110 |
+ dedf fcff ffff ffff dcdc fcff ffff ffff |
|
| 111 |
+ 7060 c080 8080 a0a0 776f dfbf bfbf 9f9f |
|
| 112 |
+ fdfe ffff ffff ffff fdfe ffff ffff ffff |
|
| 113 |
+ fbfd 7fbf dfe0 f0fb c3e1 7fbf dfe0 f7fb |
|
| 114 |
+ fffe fcf0 051d 7dfd fffe fcfa 8dfd fdfd |
|
| 115 |
+ 1c00 80c0 e3ff ffff 637f bfdc e3ff ffff ] |
|
| 116 |
+ |
|
| 117 |
+@img-y-flipped [ |
|
| 118 |
+ ffff ffc7 0301 0038 ffff ffc7 3bfd fec6 |
|
| 119 |
+ bfbe b8a0 0f3f 7fff bfbf bfb1 5f3f 7fff |
|
| 120 |
+ df0f 07fb fdfe bfdf dfef 07fb fdfe 87c3 |
|
| 121 |
+ ffff ffff ffff 7fbf ffff ffff ffff 7fbf |
|
| 122 |
+ 0505 0101 0103 060e f9f9 fdfd fdfb f6ee |
|
| 123 |
+ ffff ffff ff3f fb7b ffff ffff ff3f 3b3b |
|
| 124 |
+ fbff f7ff fff7 f7f7 e3ff fffb f3ff fff3 |
|
| 125 |
+ cfc7 e3e5 e4e0 e0c0 cff7 ebe9 eaee eefe |
|
| 126 |
+ 0c08 2f17 1706 0703 ece8 cfe7 e5f6 f7fb |
|
| 127 |
+ 370f 1fff ff1f efff 3307 078f ff1f eff7 |
|
| 128 |
+ f7f3 f8fc ffff fffb f1f1 f0f0 f8ff f7fb |
|
| 129 |
+ 4000 0001 83c7 d7d3 5e3e 3e1d 9bd7 c78b |
|
| 130 |
+ 0105 0404 0800 0000 f9f9 fafb f7ff ffff |
|
| 131 |
+ ffff ff21 0010 0000 ffff ff21 deef ffff |
|
| 132 |
+ fcff fff8 6000 2020 fcff fff8 679f dfdf |
|
| 133 |
+ 51c8 8808 1021 0307 4dd6 b676 eedd fbe7 ] |
|
| 134 |
+ |
|
| 135 |
+@img-xy-flipped [ |
|
| 136 |
+ ffff ffff ffff fefd ffff ffff ffff fefd |
|
| 137 |
+ fbf0 e0df bf7f fdfb fbf7 e0df bf7f e1c3 |
|
| 138 |
+ fd7d 1d05 f0fc feff fdfd fd8d fafc feff |
|
| 139 |
+ ffff ffe3 c080 001c ffff ffe3 dcbf 7f63 |
|
| 140 |
+ f3e3 c7a7 2707 0703 f3ef d797 5777 777f |
|
| 141 |
+ dfff efff ffef efef c7ff ffdf cfff ffcf |
|
| 142 |
+ ffff ffff fffc dfde ffff ffff fffc dcdc |
|
| 143 |
+ a0a0 8080 80c0 6070 9f9f bfbf bfdf 6f77 |
|
| 144 |
+ 0200 0080 c1e3 ebcb 7a7c 7cb8 d9eb e3d1 |
|
| 145 |
+ efcf 1f3f ffff ffdf 8f8f 0f0f 1fff efdf |
|
| 146 |
+ ecf0 f8ff fff8 f7ff cce0 e0f1 fff8 f7ef |
|
| 147 |
+ 3010 f4e8 e860 e0c0 3717 f3e7 a76f efdf |
|
| 148 |
+ 8a13 1110 0884 c0e0 b26b 6d6e 77bb dfe7 |
|
| 149 |
+ 3fff ff1f 0600 0404 3fff ff1f e6f9 fbfb |
|
| 150 |
+ ffff ff84 0008 0000 ffff ff84 7bf7 ffff |
|
| 151 |
+ 80a0 2020 1000 0000 9f9f 5fdf efff ffff ] |
|
| 152 |
+ |