etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-19 04:15:10 +00:00
Code Issues Projects Releases Wiki Activity

Added simple macros to Neralie

Browse source
This commit is contained in:
Andrew Alderwick 2021-04-23 09:58:19 +01:00
parent 4edb709c90
commit 37e7c0f88b
1 changed files with 14 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
projects/software/neralie.usm
View file

@ -5,6 +5,10 @@
- Implement higher resolution time rather than counting fps - Implement higher resolution time rather than counting fps
) )
%h { .DateTime/hour DEI }
%m { .DateTime/minute DEI }
%s { .DateTime/second DEI }
( devices ) ( devices )
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ] |00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
@ -61,22 +65,22 @@
@neralie-calc ( -- ) @neralie-calc ( -- )
( add up fractions of a pulse, store tenths in n6 ) ( add up fractions of a pulse, store tenths in n6 )
#0120 #00 .DateTime/hour DEI MUL2 #0120 #00 h MUL2
#00c0 #00 .DateTime/minute DEI MUL2 ADD2 #00c0 #00 m MUL2 ADD2
#00f8 #00 .DateTime/second DEI MUL2 ADD2 #00f8 #00 s MUL2 ADD2
#0271 #00 .fps/next PEK MUL2 #00 .fps/current PEK DIV2 #0008 MUL2 ADD2 #0271 #00 .fps/next PEK MUL2 #00 .fps/current PEK DIV2 #0008 MUL2 ADD2
#01b0 ;modf JSR2 SWP2 #0017 MUL2 #03e8 DIV2 .neralie/n6 POK POP #01b0 ;modf JSR2 SWP2 #0017 MUL2 #03e8 DIV2 .neralie/n6 POK POP
( add up units and tens of pulses, store in n5 and n4 ) ( add up units and tens of pulses, store in n5 and n4 )
#0042 #00 .DateTime/hour DEI MUL2 ADD2 #0042 #00 h MUL2 ADD2
#005e #00 .DateTime/minute DEI MUL2 ADD2 #005e #00 m MUL2 ADD2
#000b #00 .DateTime/second DEI MUL2 ADD2 #000b #00 s MUL2 ADD2
#000a ;modf JSR2 SWP2 .neralie/n5 POK POP #000a ;modf JSR2 SWP2 .neralie/n5 POK POP
#000a ;modf JSR2 SWP2 .neralie/n4 POK POP #000a ;modf JSR2 SWP2 .neralie/n4 POK POP
( add up hundreds of pulses + 10 x beats, store in n0123 ) ( add up hundreds of pulses + 10 x beats, store in n0123 )
#01a0 #00 .DateTime/hour DEI MUL2 ADD2 #01a0 #00 h MUL2 ADD2
#0006 #00 .DateTime/minute DEI MUL2 ADD2 .neralie/n0123 POK2 #0006 #00 m MUL2 ADD2 .neralie/n0123 POK2
JMP2r JMP2r
@ -192,8 +196,8 @@
@update-fps ( -- ) @update-fps ( -- )
#00 .DateTime/refresh DEO #00 .DateTime/refresh DEO
.fps/next PEK #01 ADD .fps/next POK .fps/next PEK #01 ADD .fps/next POK
.DateTime/second DEI .fps/second PEK NEQ JMP JMP2r s .fps/second PEK NEQ JMP JMP2r
.DateTime/second DEI .fps/second POK s .fps/second POK
.fps/next PEK .fps/current POK .fps/next PEK .fps/current POK
( ~fps.next ^print-byte-decimal JSR ( ~fps.next ^print-byte-decimal JSR