crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

autopsy: cleaner disassembly output

Browse source 
FossilOrigin-Name: 5e533b1dc36ebc23640f1219db3e111dc880901378d29b8e0b238b87376ca056
This commit is contained in:
crc 2018-02-07 21:22:48 +00:00
parent 35e3fec7e4
commit d36bf95ff6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
autopsy.forth
View file

@ -246,7 +246,7 @@ So helpers for displaying things:
~~~
:display-status
@RP @SP [IP] unpack @IP
'IP:%n_[%n,%n,%n,%n]_SP:%n_RP:%n__ s:with-format puts ;
'IP:%n_[%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 ;