From b59c164e1a31ed1943c03635489bd1da29c5a247 Mon Sep 17 00:00:00 2001 From: crc Date: Wed, 7 Feb 2018 21:24:11 +0000 Subject: [PATCH] autopsy: cleaner step output FossilOrigin-Name: bcb75017fabb255e6b055f7d2b9d730c8f45868b7dcc83cc933078c5374dd3a7 --- autopsy.forth | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/autopsy.forth b/autopsy.forth index f5b66a2..97c8639 100644 --- a/autopsy.forth +++ b/autopsy.forth @@ -239,14 +239,15 @@ This will display output indicating state. It'll provide: E.g., - IP:13966 [19,0,0,0] SP:3 RP:1 Stack: 9 3 3 -> 9 9 + IP:13966 [19,0,0,0] SP:3 RP:1 + Stack: 9 3 3 -> 9 9 So helpers for displaying things: ~~~ :display-status @RP @SP [IP] unpack @IP - 'IP:%n_[%n,%n,%n,%n]\tSP:%n_RP:%n\t s:with-format puts ; + 'IP:%n\t[%n,%n,%n,%n]\tSP:%n_RP:%n\t s:with-format puts ; :display-data-stack #0 @SP [ &DataStack over + fetch putn sp n:inc ] times drop ; @@ -262,9 +263,9 @@ And then using the display helpers and instruction processor, a single stepper. :step (-) display-status - 'Stack:_ puts display-data-stack '_->_ puts + nl '__Stack:_ puts display-data-stack '_->_ puts [IP] process-packed-opcode &IP v:inc - display-data-stack nl + display-data-stack nl nl &Steps v:inc ; ~~~