reorganize ESOP stdlib

2022-07-30 20:18:39 +03:00
parent 8b1456a49c
commit bfbe94d018
3 changed files with 79 additions and 70 deletions
@@ -0,0 +1,67 @@
+( ESOP stdlib, macro part )
+( by Luxferre, 2022, public domain )
+
+|00 @Control [ &framevec $2 &io $2 &random $1 &status $1 &sound $1 &syscall $1 ]
+
+( control block macros )
+
+%SETSCRVEC { .Control/framevec DEO2 }
+%INKEY { .Control/io DEI2 }
+%PXL { .Control/io DEO2 }
+%PXLk { DUP2 PXL }
+%RND { .Control/random DEI }
+%STACKTRACE { #ff .Control/random DEO }
+%DEVSTAT { .Control/status DEI }
+%SND { .Control/sound DEO }
+%SYS { .Control/syscall DEO }
+
+( some syscall macros )
+
+%HLT { #1f SYS }
+( val -- )
+%DBG { #20 SYS SYS }
+( val -- val )
+%DBGBYTE { DUP DBG }
+( val* -- val* )
+%DBGSHORT { DUP2 SWP DBG DBG }
+
+( input helper macros )
+
+%KP-0 { #0001 }
+%KP-1 { #0002 }
+%KP-2 { #0004 }
+%KP-3 { #0008 }
+%KP-4 { #0010 }
+%KP-5 { #0020 }
+%KP-6 { #0040 }
+%KP-7 { #0080 }
+%KP-8 { #0100 }
+%KP-9 { #0200 }
+%KP-A { #0400 }
+%KP-B { #0800 }
+%KP-C { #1000 }
+%KP-D { #2000 }
+%KP-STAR { #4000 }
+%KP-HASH { #8000 }
+
+( jump to label or subroutine if a particular key is pressed )
+( label* keymask* -- )
+%JMPKEY { INKEY AND2 ORA ROT ROT JCN2 }
+%JSRKEY { INKEY AND2 SWP2 JSR2 }
+
+( misc macros )
+
+( byte to short )
+%BTS { #00 SWP }
+
+( decrement )
+%DEC { #01 SUB }
+
+( get the bit or the nibble of a specific number )
+( val bitnum -- bit )
+%GETBIT { SFT #01 AND }
+( val* bitnum -- bit )
+%GETBIT2 { SFT2 #0001 AND2 NIP }
+( val* nibnum -- nibble )
+%GETNIBBLE { #20 SFT SFT2 NIP #0f AND }
+