From 5ee8f7e01dfbcb03c705f8bb6f252c2f1b829b46 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Thu, 26 Oct 2023 19:54:29 -0400
Subject: add .R PAD U.R U> UNUSED WITHIN

---
 msp430/alee-msp430.cpp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'msp430')

diff --git a/msp430/alee-msp430.cpp b/msp430/alee-msp430.cpp
index 6328419..4bb82ef 100644
--- a/msp430/alee-msp430.cpp
+++ b/msp430/alee-msp430.cpp
@@ -143,13 +143,13 @@ void printint(DoubleCell n, char *buf)
 void user_sys(State& state)
 {
     switch (state.pop()) {
-    case 0:
+    case 0: // .
         printint(state.pop(), strbuf);
         break;
-    case 1:
-        printint(static_cast<Addr>(state.pop()), strbuf);
+    case 1: // unused
+        state.push(static_cast<Addr>(state.dict.capacity() - state.dict.here()));
         break;
-    case 2:
+    case 2: // emit
         serput(state.pop());
         break;
     case 3:
-- 
cgit v1.2.3