From 6ffedca0b4f01c6608d87ab18651d7cccd50c5a7 Mon Sep 17 00:00:00 2001 From: neauoire Date: Sun, 13 Mar 2022 20:39:03 -0700 Subject: [PATCH] (polycat.tal) Cleanup --- projects/examples/demos/polycat.tal | 62 +++++++++++++---------------- 1 file changed, 28 insertions(+), 34 deletions(-) diff --git a/projects/examples/demos/polycat.tal b/projects/examples/demos/polycat.tal index e7e5333..2d95699 100644 --- a/projects/examples/demos/polycat.tal +++ b/projects/examples/demos/polycat.tal @@ -1,11 +1,5 @@ ( polycat ) -%2// { #01 SFT2 } -%!~ { NEQk NIP } -%AUTO-XADDR { #05 .Screen/auto DEO } - -( devices ) - |00 @System &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 |90 @Mouse &vector $2 &x $2 &y $2 &state $1 &pad $3 &scrollx $2 &scrolly $2 @@ -14,18 +8,18 @@ |0000 -@cat +@cat &x $2 &y $2 &timer $1 -@pointer +@pointer &x $2 &y $2 ( program ) |0100 ( -> ) - ( theme ) - #0a3f .System/r DEO2 - #05df .System/g DEO2 + ( theme ) + #0a3f .System/r DEO2 + #05df .System/g DEO2 #0caf .System/b DEO2 ( DOS resolution ) #0140 .Screen/width DEO2 @@ -33,10 +27,10 @@ ( vectors ) ;on-mouse .Mouse/vector DEO2 ( find center ) - .Screen/width DEI2 2// .cat/x STZ2 - .Screen/height DEI2 2// .cat/y STZ2 - ( set screen mode ) - AUTO-XADDR + .Screen/width DEI2 #01 SFT2 .cat/x STZ2 + .Screen/height DEI2 #01 SFT2 .cat/y STZ2 + ( set screen mode auto-x ) + #05 .Screen/auto DEO ( init ) #ff ;draw-eye/last STA #ff ;draw-tail/last STA @@ -50,7 +44,7 @@ BRK .cat/y LDZ2 #0018 ADD2 .Screen/y DEO2 .cat/x LDZ2 #0010 SUB2 .Screen/x DEO2 ;ground .Screen/addr DEO2 - #1000 + #1000 &loop #01 .Screen/sprite DEO INC GTHk ,&loop JCN @@ -92,7 +86,7 @@ BRK DUP ,&last LDR NEQ ,&changed JCN POP JMP2r &changed ( only redraw on change ) - DUP + DUP #00 SWP ;eye ADD2 .Screen/addr DEO2 .cat/y LDZ2 #0008 ADD2 .Screen/y DEO2 .cat/x LDZ2 #0008 SUB2 .Screen/x DEO2 @@ -107,9 +101,9 @@ JMP2r DUP ,&last LDR NEQ ,&changed JCN POP JMP2r &changed ( only redraw on change ) - DUP - ;frames ROT #00 SWP ADD2 LDA - #00 SWP #40 SFT2 ;body/tail ADD2 + DUP + ;frames ROT #00 SWP ADD2 LDA + #00 SWP #40 SFT2 ;body/tail ADD2 .Screen/addr DEO2 .cat/x LDZ2 .Screen/x DEO2 .cat/y LDZ2 #0010 ADD2 .Screen/y DEO2 @@ -122,27 +116,27 @@ JMP2r @draw-cursor ( -- ) ( last cursor ) - ;cursor STH2k .Screen/addr DEO2 - .pointer/x LDZ2 .Screen/x DEO2 - .pointer/y LDZ2 .Screen/y DEO2 + ;cursor STH2k .Screen/addr DEO2 + .pointer/x LDZ2 .Screen/x DEO2 + .pointer/y LDZ2 .Screen/y DEO2 #40 .Screen/sprite DEO ( new cursor ) - STH2r .Screen/addr DEO2 + STH2r .Screen/addr DEO2 .Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2 - .Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2 + .Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2 #41 .Mouse/state DEI #00 NEQ ADD .Screen/sprite DEO JMP2r -@cursor - 80c0 e0f0 f8e0 1000 +@cursor + 80c0 e0f0 f8e0 1000 @frames 00 01 02 03 02 01 00 00 00 00 00 00 00 00 00 00 -@ears +@ears 081c 3e3e 7f7f ffff 081c 3e3e 7f7f fffc - 081c 3c3e 7e7e ffff 081c 3c3e 7e7e ff1f -@eye + 081c 3c3e 7e7e ffff 081c 3c3e 7e7e ff1f +@eye ffff ffff ff7f 3f0f f7ef cfe7 f07c 3f0f ffff ffff fffe fcf0 87c3 c183 071e fcf0 ffff ffff ff7f 3f0f f0e1 c1e0 f07c 3f0f @@ -151,7 +145,7 @@ JMP2r ffff ffff fffe fcf0 0783 c1c3 871e fcf0 ffff ffff ff7f 3f0f f0e0 c1e1 f07c 3f0f ffff ffff fffe fcf0 07f3 f9fb f71e fcf0 -@body +@body 0707 0707 0302 0200 0107 0707 0300 0000 &tail e0f0 f0e0 e080 8000 c0f2 f9f9 fef8 b000 @@ -159,7 +153,7 @@ JMP2r e0f0 f0e0 e080 8000 c0f2 faf9 fef8 b000 e0f0 f0e0 e080 8000 c0f1 faf9 fef8 b000 0707 0707 0f08 1000 0307 0707 0f00 0000 - e0e0 e0e0 e080 8000 f2f9 f9fe b884 8400 -@ground + e0e0 e0e0 e080 8000 f2f9 f9fe b884 8400 +@ground bf00 5c02 0202 020c ef10 6f90 8080 8074 - ff00 fe01 0100 0116 fd00 3c40 4040 4028 + ff00 fe01 0100 0116 fd00 3c40 4040 4028