neauoire authored on 01/05/2021 15:58:42
Showing 1 changed files
| ... | ... |
@@ -1,26 +1,15 @@ |
| 1 | 1 |
( polycat ) |
| 2 | 2 |
|
| 3 | 3 |
%RTN { JMP2r }
|
| 4 |
-%8+ { #0008 ADD2 }
|
|
| 5 |
-%2/ { #0002 DIV2 }
|
|
| 6 |
-%MOD { DUP2 DIV MUL SUB }
|
|
| 7 |
-%INC { #01 ADD }
|
|
| 8 |
-%TOS { #00 SWP }
|
|
| 4 |
+%+ { ADD2 } %- { SUB2 }
|
|
| 5 |
+%* { MUL2 } %/ { DIV2 }
|
|
| 6 |
+%> { GTH2 }
|
|
| 9 | 7 |
|
| 10 | 8 |
( devices ) |
| 11 | 9 |
|
| 12 | 10 |
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 ] |
| 13 |
-|10 @Console [ &pad $8 &char $1 &byte $1 &short $2 &string $2 ] |
|
| 14 | 11 |
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &color $1 ] |
| 15 |
-|30 @Audio0 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ] |
|
| 16 |
-|40 @Audio1 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ] |
|
| 17 |
-|50 @Audio2 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ] |
|
| 18 |
-|60 @Audio3 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ] |
|
| 19 |
-|70 @Midi [ &vector $2 &channel $1 ¬e $1 &velocity $1 ] |
|
| 20 |
-|80 @Controller [ &vector $2 &button $1 &key $1 ] |
|
| 21 | 12 |
|90 @Mouse [ &vector $2 &x $2 &y $2 &state $1 &chord $1 ] |
| 22 |
-|a0 @File [ &vector $2 &success $2 &offset $2 &pad $2 &name $2 &length $2 &load $2 &save $2 ] |
|
| 23 |
-|b0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ] |
|
| 24 | 13 |
|
| 25 | 14 |
( variables ) |
| 26 | 15 |
|
| ... | ... |
@@ -39,8 +28,8 @@ |
| 39 | 28 |
#0caf .System/b DEO2 |
| 40 | 29 |
|
| 41 | 30 |
( find center ) |
| 42 |
- .Screen/width DEI2 2/ #0008 SUB2 .cat/x POK2 |
|
| 43 |
- .Screen/height DEI2 #0004 DIV2 #0003 MUL2 #0018 SUB2 .cat/y POK2 |
|
| 31 |
+ .Screen/width DEI2 #0002 / #0008 - .cat/x POK2 |
|
| 32 |
+ .Screen/height DEI2 #0004 / #0003 * #0018 - .cat/y POK2 |
|
| 44 | 33 |
|
| 45 | 34 |
( place polycat ) |
| 46 | 35 |
|
| ... | ... |
@@ -57,8 +46,8 @@ BRK |
| 57 | 46 |
|
| 58 | 47 |
;draw-cursor JSR2 |
| 59 | 48 |
|
| 60 |
- .Mouse/x DEI2 .cat/x PEK2 GTH2 #20 MUL |
|
| 61 |
- .Mouse/y DEI2 .cat/y PEK2 GTH2 #40 MUL |
|
| 49 |
+ .Mouse/x DEI2 .cat/x PEK2 > #20 MUL |
|
| 50 |
+ .Mouse/y DEI2 .cat/y PEK2 > #40 MUL |
|
| 62 | 51 |
ADD #00 SWP ;draw-eye JSR2 |
| 63 | 52 |
|
| 64 | 53 |
BRK |
| ... | ... |
@@ -81,11 +70,11 @@ BRK |
| 81 | 70 |
( ears ) |
| 82 | 71 |
.cat/y PEK2 .Screen/y DEO2 |
| 83 | 72 |
|
| 84 |
- .cat/x PEK2 #0008 SUB2 .Screen/x DEO2 |
|
| 73 |
+ .cat/x PEK2 #0008 - .Screen/x DEO2 |
|
| 85 | 74 |
;ears .Screen/addr DEO2 |
| 86 | 75 |
#41 .Screen/color DEO |
| 87 | 76 |
.cat/x PEK2 .Screen/x DEO2 |
| 88 |
- ;ears #0010 ADD2 .Screen/addr DEO2 |
|
| 77 |
+ ;ears #0010 + .Screen/addr DEO2 |
|
| 89 | 78 |
#41 .Screen/color DEO |
| 90 | 79 |
|
| 91 | 80 |
#0000 ;draw-eye JSR2 |
| ... | ... |
@@ -95,26 +84,26 @@ RTN |
| 95 | 84 |
|
| 96 | 85 |
@draw-eye ( quad* -- ) |
| 97 | 86 |
|
| 98 |
- .cat/y PEK2 #0008 ADD2 .Screen/y DEO2 |
|
| 99 |
- .cat/x PEK2 #0008 SUB2 .Screen/x DEO2 |
|
| 87 |
+ .cat/y PEK2 #0008 + .Screen/y DEO2 |
|
| 88 |
+ .cat/x PEK2 #0008 - .Screen/x DEO2 |
|
| 100 | 89 |
|
| 101 |
- DUP2 ;eye ADD2 .Screen/addr DEO2 |
|
| 90 |
+ DUP2 ;eye + .Screen/addr DEO2 |
|
| 102 | 91 |
#41 .Screen/color DEO |
| 103 | 92 |
.cat/x PEK2 .Screen/x DEO2 |
| 104 |
- ;eye #0010 ADD2 ADD2 .Screen/addr DEO2 |
|
| 93 |
+ ;eye #0010 + + .Screen/addr DEO2 |
|
| 105 | 94 |
#41 .Screen/color DEO |
| 106 | 95 |
|
| 107 | 96 |
RTN |
| 108 | 97 |
|
| 109 | 98 |
@draw-tail ( frame* -- ) |
| 110 | 99 |
|
| 111 |
- .cat/y PEK2 #0010 ADD2 .Screen/y DEO2 |
|
| 100 |
+ .cat/y PEK2 #0010 + .Screen/y DEO2 |
|
| 112 | 101 |
|
| 113 |
- .cat/x PEK2 #0008 SUB2 .Screen/x DEO2 |
|
| 102 |
+ .cat/x PEK2 #0008 - .Screen/x DEO2 |
|
| 114 | 103 |
;body .Screen/addr DEO2 |
| 115 | 104 |
#41 .Screen/color DEO |
| 116 | 105 |
.cat/x PEK2 .Screen/x DEO2 |
| 117 |
- #0010 MUL2 ;body #0010 ADD2 ADD2 .Screen/addr DEO2 |
|
| 106 |
+ #0010 * ;body #0010 + + .Screen/addr DEO2 |
|
| 118 | 107 |
#41 .Screen/color DEO |
| 119 | 108 |
|
| 120 | 109 |
RTN |
| ... | ... |
@@ -140,15 +129,15 @@ RTN |
| 140 | 129 |
|
| 141 | 130 |
@draw-ground ( -- ) |
| 142 | 131 |
|
| 143 |
- .cat/y PEK2 #0018 ADD2 .Screen/y DEO2 |
|
| 144 |
- .cat/x PEK2 #0010 SUB2 .Screen/x DEO2 |
|
| 132 |
+ .cat/y PEK2 #0018 + .Screen/y DEO2 |
|
| 133 |
+ .cat/x PEK2 #0010 - .Screen/x DEO2 |
|
| 145 | 134 |
;ground .Screen/addr DEO2 |
| 146 | 135 |
|
| 147 | 136 |
#00 #10 |
| 148 | 137 |
&loop |
| 149 | 138 |
#21 .Screen/color DEO |
| 150 |
- .Screen/addr DEI2 #0008 ADD2 .Screen/addr DEO2 |
|
| 151 |
- .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2 |
|
| 139 |
+ .Screen/addr DEI2 #0008 + .Screen/addr DEO2 |
|
| 140 |
+ .Screen/x DEI2 #0008 + .Screen/x DEO2 |
|
| 152 | 141 |
SWP #01 ADD SWP |
| 153 | 142 |
DUP2 LTH ,&loop JNZ |
| 154 | 143 |
POP2 |