llvm-6502/projects/Stacker/test/shl.st

8 lines
141 B
Smalltalk
Raw Normal View History

#
# SHL test
#
FORWARD success;
FORWARD failure;
: show_failure >d SPACE failure ;
: MAIN 64 3 << 512 = IF success ELSE show_failure ENDIF ;