From 8ba855386d72229007755457e2994fd8c8f58b44 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Mon, 20 Mar 2023 21:07:28 -0700 Subject: [PATCH] Added loader.tal --- gui/loader/build.sh | 28 ++++++++ gui/loader/loader.tal | 33 ++++++++++ gui/loader/polycat.tal | 145 +++++++++++++++++++++++++++++++++++++++++ gui/sixels/sixels.tal | 29 +++++++++ 4 files changed, 235 insertions(+) create mode 100755 gui/loader/build.sh create mode 100644 gui/loader/loader.tal create mode 100644 gui/loader/polycat.tal create mode 100644 gui/sixels/sixels.tal diff --git a/gui/loader/build.sh b/gui/loader/build.sh new file mode 100755 index 0000000..1c2487c --- /dev/null +++ b/gui/loader/build.sh @@ -0,0 +1,28 @@ +#!/bin/sh -e + +ASM="uxnasm" +EMU="uxnemu" +LIN="uxncli $HOME/roms/uxnlin.rom" + +SRC="loader.tal" +DST="loader.rom" +CPY="$HOME/roms" +ARG="" + +# special +$ASM polycat.tal polycat.rom + +if [[ "$*" == *"--lint"* ]] +then + $LIN $SRC +fi + +$ASM $SRC $DST + +if [[ "$*" == *"--save"* ]] +then + cp $DST $CPY +fi + +$EMU $DST $ARG + diff --git a/gui/loader/loader.tal b/gui/loader/loader.tal new file mode 100644 index 0000000..65a7919 --- /dev/null +++ b/gui/loader/loader.tal @@ -0,0 +1,33 @@ +|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 + +|0100 + + ;rom-name !open-rom + +BRK + @rom-name "polycat.rom $1 + +@open-rom ( file* -- ) + + .File/name DEO2 + #fe00 .File/length DEO2 + ;loader-rom #ffd6 #0029 mcpy + #ffd6 + +JMP2 ( -> ) + +@mcpy ( src* dst* len* -- ) + + SWP2 STH2 OVR2 ADD2 SWP2 + &l + LDAk STH2kr STA + INC2r INC2 GTH2k ?&l + POP2 POP2 POP2r + +JMP2r + +@loader-rom + 8000 8000 0711 0106 20ff f702 a001 00af + 80ac 37a0 ffd5 80a2 36ef 38af 8000 6f15 + 21aa 20ff f622 226f 2c00 + diff --git a/gui/loader/polycat.tal b/gui/loader/polycat.tal new file mode 100644 index 0000000..b1b1075 --- /dev/null +++ b/gui/loader/polycat.tal @@ -0,0 +1,145 @@ +( Polycat: + A cat with one eye, and the hind and tail of a lizard. + Original character by Rekka Bellum ) + +|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 &pixeld $1 &sprite $1 +|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &pad $3 &scrollx $2 &scrolly $2 + +|0000 + +@cat &x $2 &y $2 &timer $1 +@pointer &x $2 &y $2 + +|0100 ( -> ) + + ( theme ) + #0a3f .System/r DEO2 + #05df .System/g DEO2 + #0caf .System/b DEO2 + ( DOS resolution ) + #0140 .Screen/width DEO2 + #00c8 .Screen/height DEO2 + ( vectors ) + ;on-mouse .Mouse/vector DEO2 + ( find center ) + .Screen/width DEI2 #01 SFT2 .cat/x STZ2 + .Screen/height DEI2 #01 SFT2 .cat/y STZ2 + ( draw ground ) + #f6 .Screen/auto DEO + .cat/y LDZ2 #0018 ADD2 .Screen/y DEO2 + .cat/x LDZ2 #0010 SUB2 .Screen/x DEO2 + ;ground .Screen/addr DEO2 + #01 .Screen/sprite DEO + ( init ) + #ff ;draw-eye/last STA + #ff ;draw-tail/last STA + ( set screen mode auto-x ) + #05 .Screen/auto DEO + ,draw-polycat JSR + +BRK + +@draw-polycat ( -- ) + + ( ears ) + .cat/y LDZ2 .Screen/y DEO2 + .cat/x LDZ2 #0008 SUB2 .Screen/x DEO2 + ;ears .Screen/addr DEO2 + #81 .Screen/sprite DEOk DEO + ( body ) + .cat/y LDZ2 #0010 ADD2 .Screen/y DEO2 + .cat/x LDZ2 #0008 SUB2 .Screen/x DEO2 + ;body .Screen/addr DEO2 + #81 .Screen/sprite DEO + ( eye/tail ) + #00 ,draw-eye JSR + #00 ;draw-tail ( .. ) + +JMP2 + +@on-mouse ( -> ) + + .Mouse/x DEI2 .cat/x LDZ2 GTH2 #50 SFT + .Mouse/y DEI2 .cat/y LDZ2 GTH2 #60 SFT + ADD ,draw-eye JSR + .cat/timer LDZ INC [ DUP ] .cat/timer STZ + #04 SFT ,draw-tail JSR + ,draw-cursor JSR + +BRK + +@draw-eye ( quad -- ) + + DUP ,&last LDR NEQ ,&changed JCN + POP JMP2r &changed + ( only redraw on change ) + #00 OVR ;eye ADD2 .Screen/addr DEO2 + .cat/y LDZ2 #0008 ADD2 .Screen/y DEO2 + .cat/x LDZ2 #0008 SUB2 .Screen/x DEO2 + #81 .Screen/sprite DEOk DEO + ,&last STR + +JMP2r + &last $1 + +@draw-tail ( frame -- ) + + STHk ,&last LDR NEQ ,&changed JCN + POPr JMP2r &changed + ( only redraw on change ) + STHr #00 OVR ;frames 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 + #81 .Screen/sprite DEO + ,&last STR + +JMP2r + &last $1 + +@draw-cursor ( -- ) + + ( last cursor ) + ;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 + .Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x 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 +@frames + 00 01 02 03 02 01 00 00 + 00 00 00 00 00 00 00 00 +@ears + 081c 3e3e 7f7f ffff 081c 3e3e 7f7f fffc + 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 + ffff ffff fffe fcf0 f7fb f9f3 071e fcf0 + ffff ffff ff7f 3f0f f0e7 cfef f77c 3f0f + 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 + 0707 0707 0302 0200 0107 0707 0300 0000 + &tail + e0f0 f0e0 e080 8000 c0f2 f9f9 fef8 b000 + e0f0 f0e0 e080 8000 c0f2 f9f9 fef8 b000 + 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 + bf00 5c02 0202 020c ef10 6f90 8080 8074 + ff00 fe01 0100 0116 fd00 3c40 4040 4028 diff --git a/gui/sixels/sixels.tal b/gui/sixels/sixels.tal new file mode 100644 index 0000000..7abd15c --- /dev/null +++ b/gui/sixels/sixels.tal @@ -0,0 +1,29 @@ +@draw-sixel ( str* -- str* ) + + [ LITr -Screen/y ] DEI2r + .Screen/x DEI2 ,&x STR2 + INC2 + &w + LDAk #21 LTH ?&end + ( line feed ) + LDAk LIT "- NEQ ?&no-lf + [ LIT2 &x $2 ] .Screen/x DEO2 + .Screen/y DEI2k #0006 ADD2 ROT DEO2 + INC2 !&w + &no-lf + ( pixel ) + LDAk LIT "? SUB ,&t STR + is-selected ,&sel STR + .Screen/y DEI2 + #0600 + &col + DUP #05 NEQ INC .Screen/auto DEO + [ LIT &t $1 ] OVR SFT #01 AND [ LIT &sel $1 ] ADD .Screen/pixel DEO + INC GTHk ?&col + POP2 + .Screen/y DEO2 + INC2 !&w &end + STH2r .Screen/y DEO2 + #15 .Screen/auto DEO + +JMP2r