mirror of https://git.sr.ht/~rabbits/nasu
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
54 lines
1.7 KiB
54 lines
1.7 KiB
4 years ago
|
|
||
|
|
( generics )
|
||
|
|
|
||
|
|
%+ { ADD } %- { SUB } %* { MUL } %/ { DIV }
|
||
|
|
%< { LTH } %> { GTH } %= { EQU } %! { NEQ }
|
||
|
|
%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
|
||
|
|
%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
|
||
|
|
|
||
|
|
%=~ { EQUk NIP } %!~ { NEQk NIP }
|
||
|
|
%<~ { LTHk NIP } %>~ { GTHk NIP }
|
||
|
|
|
||
|
|
%2* { #10 SFT } %2/ { #01 SFT } %2** { #10 SFT2 } %2// { #01 SFT2 }
|
||
|
|
%4* { #20 SFT } %4/ { #02 SFT } %4** { #20 SFT2 } %4// { #02 SFT2 }
|
||
|
|
%8* { #30 SFT } %8/ { #03 SFT } %8** { #30 SFT2 } %8// { #03 SFT2 }
|
||
|
|
%10* { #40 SFT } %10/ { #04 SFT } %10** { #40 SFT2 } %10// { #04 SFT2 }
|
||
|
|
%20* { #50 SFT } %20/ { #05 SFT } %20** { #50 SFT2 } %20// { #05 SFT2 }
|
||
|
|
%40* { #60 SFT } %40/ { #06 SFT } %40** { #60 SFT2 } %60// { #05 SFT2 }
|
||
|
|
|
||
|
|
%2MOD { #01 AND } %2MOD2 { #0001 AND2 }
|
||
|
|
%4MOD { #03 AND } %4MOD2 { #0003 AND2 }
|
||
|
|
%8MOD { #07 AND } %8MOD2 { #0007 AND2 }
|
||
|
|
%10MOD { #0f AND } %10MOD2 { #000f AND2 }
|
||
|
|
|
||
|
|
%EMIT { #18 DEO }
|
||
|
|
%PRINT { ;print-str JSR2 #0a EMIT }
|
||
|
|
%DEBUG { ;print-hex/byte JSR2 #0a EMIT }
|
||
|
|
%DEBUG2 { ;print-hex JSR2 #0a EMIT }
|
||
|
|
|
||
|
|
%IS-VALID { DUP #1f > SWP #7f < AND }
|
||
|
|
%IS-UC { DUP #40 > SWP #5b < AND }
|
||
|
|
%IS-LC { DUP #60 > SWP #7b < AND }
|
||
|
|
%IS-NUM { DUP #2f > SWP #3a < AND }
|
||
|
|
%IS-PUNC { DUP #2b > SWP #30 < AND }
|
||
|
|
%IS-SPACER { #21 < } ( char -- flag )
|
||
|
|
%IS-LABEL { STHk #40 = STHr #26 = ORA } ( char -- flag )
|
||
|
|
%NOT-LINEBREAK { STHk #0d ! STHr #0a ! AND } ( char -- flag )
|
||
|
|
|
||
|
|
%TOGGLE { LDZk #00 = SWP STZ }
|
||
|
|
%TOS { #00 SWP }
|
||
|
|
%RTN { JMP2r }
|
||
|
|
|
||
|
|
%MIN2 { GTH2k JMP SWP2 POP2 }
|
||
|
|
%MAX2 { LTH2k JMP SWP2 POP2 }
|
||
|
|
%ROL { DUP #07 SFT SWP #10 SFT + }
|
||
|
|
%ROR { DUP #70 SFT SWP #01 SFT + }
|
||
|
|
|
||
|
|
%RELEASE-MOUSE { #0096 DEO }
|
||
|
|
|
||
|
|
%AUTO-NONE { #00 .Screen/auto DEO }
|
||
|
|
%AUTO-X { #01 .Screen/auto DEO }
|
||
|
|
%AUTO-Y { #02 .Screen/auto DEO }
|
||
|
|
%AUTO-ADDR { #04 .Screen/auto DEO }
|
||
|
|
%AUTO-Y-ADDR { #06 .Screen/auto DEO }
|