Browse Source

Added examples directory.

Paul Onions 11 years ago
parent
commit
5a29f00668
1 changed files with 21 additions and 0 deletions
  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$ &$
+    ;
+  "."
+  &$
+;