From 7e4cb5fd1e50751f88aea5be6ff4f4ad735c9c68 Mon Sep 17 00:00:00 2001 From: neauoire Date: Sat, 3 Jul 2021 10:38:20 -0700 Subject: [PATCH] Minor optimization to font.tal --- projects/examples/demos/font.tal | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/projects/examples/demos/font.tal b/projects/examples/demos/font.tal index 62bca24..3de3889 100644 --- a/projects/examples/demos/font.tal +++ b/projects/examples/demos/font.tal @@ -62,19 +62,19 @@ BRK @draw-uf3 ( x* y* text* color -- ) STH - STH2 - .Screen/y DEO2 - .Screen/x DEO2 - STH2r + SWP2 .Screen/y DEO2 + SWP2 DUP2 .Screen/x DEO2 SWP2 &loop - LDAk #0a ! ,&no-linebreak JCN - #0000 .Screen/x DEO2 - .Screen/y DEI2 #0018 ++ .Screen/y DEO2 - &no-linebreak - LDAk STHkr ,&sprite JSR - #0001 ++ + LDAk + DUP #0a ! ,&no-linebreak JCN + ( move down ) OVR2 .Screen/x DEO2 + ( incr y ) .Screen/y DEI2 #0010 ++ .Screen/y DEO2 + POP ,&continue JMP &no-linebreak + STHkr ,&sprite JSR + &continue + ( incr addr ) #0001 ++ LDAk ,&loop JCN - POP2 POPr + POP2 POP2 POPr RTN &sprite ( char color -- )