Parcourir la source

Added examples directory.

Paul Onions il y a 11 ans
Parent
commit
5a29f00668
1 fichiers modifiés avec 21 ajouts et 0 suppressions
  1. 21 0
      examples/timedone.s

+ 21 - 0
examples/timedone.s

@@ -0,0 +1,21 @@
+* -*- mode:sysrpl -*-
+*
+* TIMEDONE example from page 41 of the book
+*
+*   An Introduction to HP48 System RPL and Assembly Language
+*   Programming by James Donnelly.
+*
+* TIMEDONE ( -> $ )
+*
+::
+  0LASTOWDOB!
+  CK0NOLASTWD
+  "Program complete"
+  FORTY SysITE
+    ::
+      " at "
+      TOD TOD>t$ &$
+    ;
+  "."
+  &$
+;