Twitcode.org // share your code on twitter

Name Forth
Type Text
Modified 2012-02-04
User john_metcalf

Description
Looking through the trace of the Forth interpreter trying to find a couple of bugs. They're hiding here somewhere!
Copy code

9FFF 20CD 0000 0000 #tib
20CD 0000 0000 021C @
20CD 0000 0000 0000 >in
0000 0000 0000 0211 @
0000 0000 0000 0000 =
20CD 0000 0000 FFFF 0branch
9FFF 20CD 0000 0000 tib
20CD 0000 0000 8000 lit
0000 0000 8000 0032 accept
base @
20CD 0000 0000 0006 #tib
0000 0000 0006 021C !
9FFF 20CD 0000 0000 lit
20CD 0000 0000 0000 >in
0000 0000 0000 0211 !
9FFF 20CD 0000 0000 lit
20CD 0000 0000 0020 word
20CD 0000 0000 05C5 find
0000 0000 0238 FFFF dup
0000 0238 FFFF FFFF 0branch
0000 0000 0238 FFFF 0<
0000 0000 0238 FFFF state
0000 0238 FFFF 0207 @
0000 0238 FFFF 0000 and
0000 0000 0238 0000 0branch
20CD 0000 0000 0238 execute
20CD 0000 0000 023A branch
20CD 0000 0000 023A branch
20CD 0000 0000 023A #tib
0000 0000 023A 021C @
0000 0000 023A 0006 >in
0000 023A 0006 0211 @
0000 023A 0006 0005 =
0000 0000 023A 0000 0branch
20CD 0000 0000 023A lit
0000 0000 023A 0020 word
0000 0000 023A 05C5 find
0000 023A 02F6 FFFF dup
023A 02F6 FFFF FFFF 0branch
0000 023A 02F6 FFFF 0<
0000 023A 02F6 FFFF state
023A 02F6 FFFF 0207 @
023A 02F6 FFFF 0000 and
0000 023A 02F6 0000 0branch
0000 0000 023A 02F6 execute
20CD 0000 0000 000A branch
20CD 0000 0000 000A branch
20CD 0000 0000 000A #tib
0000 0000 000A 021C @
0000 0000 000A 0006 >in
0000 000A 0006 0211 @
0000 000A 0006 0006 =
0000 0000 000A FFFF 0branch
20CD 0000 0000 000A tib
0000 0000 000A 8000 lit
0000 000A 8000 0032 accept
dup + dup +
0000 0000 000A 000B #tib
0000 000A 000B 021C !
20CD 0000 0000 000A lit
0000 0000 000A 0000 >in
0000 000A 0000 0211 !
20CD 0000 0000 000A lit
0000 0000 000A 0020 word
0000 0000 000A 05C5 find
0000 000A 02B8 FFFF dup
000A 02B8 FFFF FFFF 0branch
0000 000A 02B8 FFFF 0<
0000 000A 02B8 FFFF state
000A 02B8 FFFF 0207 @
000A 02B8 FFFF 0000 and
0000 000A 02B8 0000 0branch
0000 0000 000A 02B8 execute
0000 0000 000A 000A branch
0000 0000 000A 000A branch
0000 0000 000A 000A #tib
0000 000A 000A 021C @
0000 000A 000A 000B >in
000A 000A 000B 0211 @
000A 000A 000B 0004 =
0000 000A 000A 0000 0branch
0000 0000 000A 000A lit
0000 000A 000A 0020 word
0000 000A 000A 05C5 find
000A 000A 0240 FFFF dup
000A 0240 FFFF FFFF 0branch
000A 000A 0240 FFFF 0<
000A 000A 0240 FFFF state
000A 0240 FFFF 0207 @
000A 0240 FFFF 0000 and
000A 000A 0240 0000 0branch
0000 000A 000A 0240 execute
20CD 0000 0000 0014 branch
20CD 0000 0000 0014 branch
20CD 0000 0000 0014 #tib
0000 0000 0014 021C @
0000 0000 0014 000B >in
0000 0014 000B 0211 @
0000 0014 000B 0006 =
0000 0000 0014 0000 0branch
20CD 0000 0000 0014 lit
0000 0000 0014 0020 word
0000 0000 0014 05C5 find
0000 0014 02B8 FFFF dup
0014 02B8 FFFF FFFF 0branch
0000 0014 02B8 FFFF 0<
0000 0014 02B8 FFFF state
0014 02B8 FFFF 0207 @
0014 02B8 FFFF 0000 and
0000 0014 02B8 0000 0branch
0000 0000 0014 02B8 execute
0000 0000 0014 0014 branch
0000 0000 0014 0014 branch
0000 0000 0014 0014 #tib
0000 0014 0014 021C @
0000 0014 0014 000B >in
0014 0014 000B 0211 @
0014 0014 000B 000A =
0000 0014 0014 0000 0branch
0000 0000 0014 0014 lit
0000 0014 0014 0020 word
0000 0014 0014 05C5 find
0014 0014 0240 FFFF dup
0014 0240 FFFF FFFF 0branch
0014 0014 0240 FFFF 0<
0014 0014 0240 FFFF state
0014 0240 FFFF 0207 @
0014 0240 FFFF 0000 and
0014 0014 0240 0000 0branch
0000 0014 0014 0240 execute
20CD 0000 0000 0028 branch
20CD 0000 0000 0028 branch
20CD 0000 0000 0028 #tib
0000 0000 0028 021C @
0000 0000 0028 000B >in
0000 0028 000B 0211 @
0000 0028 000B 000B =
0000 0000 0028 FFFF 0branch
20CD 0000 0000 0028 tib
0000 0000 0028 8000 lit
0000 0028 8000 0032 accept
emit
0000 0000 0028 0004 #tib
0000 0028 0004 021C !
20CD 0000 0000 0028 lit
0000 0000 0028 0000 >in
0000 0028 0000 0211 !
20CD 0000 0000 0028 lit
0000 0000 0028 0020 word
0000 0000 0028 05C5 find
0000 0028 02A8 FFFF dup
0028 02A8 FFFF FFFF 0branch
0000 0028 02A8 FFFF 0<
0000 0028 02A8 FFFF state
0028 02A8 FFFF 0207 @
0028 02A8 FFFF 0000 and
0000 0028 02A8 0000 0branch
0000 0000 0028 02A8 execute
(
9FFF 20CD 0000 0000 branch
9FFF 20CD 0000 0000 branch
9FFF 20CD 0000 0000 #tib
20CD 0000 0000 021C @
20CD 0000 0000 0004 >in
0000 0000 0004 0211 @
0000 0000 0004 0004 =
20CD 0000 0000 FFFF 0branch
9FFF 20CD 0000 0000 tib
20CD 0000 0000 8000 lit
0000 0000 8000 0032 accept
sys
20CD 0000 0000 0003 #tib
0000 0000 0003 021C !
9FFF 20CD 0000 0000 lit
20CD 0000 0000 0000 >in
0000 0000 0000 0211 !
9FFF 20CD 0000 0000 lit
20CD 0000 0000 0020 word
20CD 0000 0000 05C5 find
0000 0000 0272 FFFF dup
0000 0272 FFFF FFFF 0branch
0000 0000 0272 FFFF 0<
0000 0000 0272 FFFF state
0000 0272 FFFF 0207 @
0000 0272 FFFF 0000 and
0000 0000 0272 0000 0branch
20CD 0000 0000 0272 execute
 

Tags: FORTH

0000 9FFF 20CD 0000 0000 #tib
0000 20CD 0000 0000 021C @
0000 20CD 0000 0000 0000 >in
0000 0000 0000 0000 0211 @
0000 0000 0000 0000 0000 =
0000 20CD 0000 0000 FFFF 0branch
0000 9FFF 20CD 0000 0000 tib
0000 20CD 0000 0000 8000 lit
0000 0000 0000 8000 0032 accept
base @
0000 20CD 0000 0000 0006 #tib
0000 0000 0000 0006 021C !
0000 9FFF 20CD 0000 0000 lit
0000 20CD 0000 0000 0000 >in
0000 0000 0000 0000 0211 !
0000 9FFF 20CD 0000 0000 lit
0000 20CD 0000 0000 0020 word
0000 20CD 0000 0000 05C5 find
0000 0000 0000 0238 FFFF dup
0000 0000 0238 FFFF FFFF 0branch
0000 0000 0000 0238 FFFF 0<
0000 0000 0000 0238 FFFF state
0000 0000 0238 FFFF 0207 @
0000 0000 0238 FFFF 0000 and
0000 0000 0000 0238 0000 0branch
0000 20CD 0000 0000 0238 execute
0000 20CD 0000 0000 023A branch
0000 20CD 0000 0000 023A branch
0000 20CD 0000 0000 023A #tib
0000 0000 0000 023A 021C @
0000 0000 0000 023A 0006 >in
0000 0000 023A 0006 0211 @
0000 0000 023A 0006 0005 =
0000 0000 0000 023A 0000 0branch
0000 20CD 0000 0000 023A lit
0000 0000 0000 023A 0020 word
0000 0000 0000 023A 05C5 find
0000 0000 023A 02F6 FFFF dup
0000 023A 02F6 FFFF FFFF 0branch
0000 0000 023A 02F6 FFFF 0<
0000 0000 023A 02F6 FFFF state
0000 023A 02F6 FFFF 0207 @
0000 023A 02F6 FFFF 0000 and
0000 0000 023A 02F6 0000 0branch
0000 0000 0000 023A 02F6 execute
0000 20CD 0000 0000 000A branch
0000 20CD 0000 0000 000A branch
0000 20CD 0000 0000 000A #tib
0000 0000 0000 000A 021C @
0000 0000 0000 000A 0006 >in
0000 0000 000A 0006 0211 @
0000 0000 000A 0006 0006 =
0000 0000 0000 000A FFFF 0branch
0000 20CD 0000 0000 000A tib
0000 0000 0000 000A 8000 lit
0000 0000 000A 8000 0032 accept
dup + dup +
0000 0000 0000 000A 000B #tib
0000 0000 000A 000B 021C !
0000 20CD 0000 0000 000A lit
0000 0000 0000 000A 0000 >in
0000 0000 000A 0000 0211 !
0000 20CD 0000 0000 000A lit
0000 0000 0000 000A 0020 word
0000 0000 0000 000A 05C5 find
0000 0000 000A 02B8 FFFF dup
0000 000A 02B8 FFFF FFFF 0branch
0000 0000 000A 02B8 FFFF 0<
0000 0000 000A 02B8 FFFF state
0000 000A 02B8 FFFF 0207 @
0000 000A 02B8 FFFF 0000 and
0000 0000 000A 02B8 0000 0branch
0000 0000 0000 000A 02B8 execute
0000 0000 0000 000A 000A branch
0000 0000 0000 000A 000A branch
0000 0000 0000 000A 000A #tib
0000 0000 000A 000A 021C @
0000 0000 000A 000A 000B >in
0000 000A 000A 000B 0211 @
0000 000A 000A 000B 0004 =
0000 0000 000A 000A 0000 0branch
0000 0000 0000 000A 000A lit
0000 0000 000A 000A 0020 word
0000 0000 000A 000A 05C5 find
0000 000A 000A 0240 FFFF dup
0000 000A 0240 FFFF FFFF 0branch
0000 000A 000A 0240 FFFF 0<
0000 000A 000A 0240 FFFF state
0000 000A 0240 FFFF 0207 @
0000 000A 0240 FFFF 0000 and
0000 000A 000A 0240 0000 0branch
0000 0000 000A 000A 0240 execute
0000 20CD 0000 0000 0014 branch
0000 20CD 0000 0000 0014 branch
0000 20CD 0000 0000 0014 #tib
0000 0000 0000 0014 021C @
0000 0000 0000 0014 000B >in
0000 0000 0014 000B 0211 @
0000 0000 0014 000B 0006 =
0000 0000 0000 0014 0000 0branch
0000 20CD 0000 0000 0014 lit
0000 0000 0000 0014 0020 word
0000 0000 0000 0014 05C5 find
0000 0000 0014 02B8 FFFF dup
0000 0014 02B8 FFFF FFFF 0branch
0000 0000 0014 02B8 FFFF 0<
0000 0000 0014 02B8 FFFF state
0000 0014 02B8 FFFF 0207 @
0000 0014 02B8 FFFF 0000 and
0000 0000 0014 02B8 0000 0branch
0000 0000 0000 0014 02B8 execute
0000 0000 0000 0014 0014 branch
0000 0000 0000 0014 0014 branch
0000 0000 0000 0014 0014 #tib
0000 0000 0014 0014 021C @
0000 0000 0014 0014 000B >in
0000 0014 0014 000B 0211 @
0000 0014 0014 000B 000A =
0000 0000 0014 0014 0000 0branch
0000 0000 0000 0014 0014 lit
0000 0000 0014 0014 0020 word
0000 0000 0014 0014 05C5 find
0000 0014 0014 0240 FFFF dup
0000 0014 0240 FFFF FFFF 0branch
0000 0014 0014 0240 FFFF 0<
0000 0014 0014 0240 FFFF state
0000 0014 0240 FFFF 0207 @
0000 0014 0240 FFFF 0000 and
0000 0014 0014 0240 0000 0branch
0000 0000 0014 0014 0240 execute
0000 20CD 0000 0000 0028 branch
0000 20CD 0000 0000 0028 branch
0000 20CD 0000 0000 0028 #tib
0000 0000 0000 0028 021C @
0000 0000 0000 0028 000B >in
0000 0000 0028 000B 0211 @
0000 0000 0028 000B 000B =
0000 0000 0000 0028 FFFF 0branch
0000 20CD 0000 0000 0028 tib
0000 0000 0000 0028 8000 lit
0000 0000 0028 8000 0032 accept
emit
0000 0000 0000 0028 0004 #tib
0000 0000 0028 0004 021C !
0000 20CD 0000 0000 0028 lit
0000 0000 0000 0028 0000 >in
0000 0000 0028 0000 0211 !
0000 20CD 0000 0000 0028 lit
0000 0000 0000 0028 0020 word
0000 0000 0000 0028 05C5 find
0000 0000 0028 02A8 FFFF dup
0000 0028 02A8 FFFF FFFF 0branch
0000 0000 0028 02A8 FFFF 0<
0000 0000 0028 02A8 FFFF state
0000 0028 02A8 FFFF 0207 @
0000 0028 02A8 FFFF 0000 and
0000 0000 0028 02A8 0000 0branch
0000 0000 0000 0028 02A8 execute
(
0000 9FFF 20CD 0000 0000 branch
0000 9FFF 20CD 0000 0000 branch
0000 9FFF 20CD 0000 0000 #tib
0000 20CD 0000 0000 021C @
0000 20CD 0000 0000 0004 >in
0000 0000 0000 0004 0211 @
0000 0000 0000 0004 0004 =
0000 20CD 0000 0000 FFFF 0branch
0000 9FFF 20CD 0000 0000 tib
0000 20CD 0000 0000 8000 lit
0000 0000 0000 8000 0032 accept
sys
0000 20CD 0000 0000 0003 #tib
0000 0000 0000 0003 021C !
0000 9FFF 20CD 0000 0000 lit
0000 20CD 0000 0000 0000 >in
0000 0000 0000 0000 0211 !
0000 9FFF 20CD 0000 0000 lit
0000 20CD 0000 0000 0020 word
0000 20CD 0000 0000 05C5 find
0000 0000 0000 0272 FFFF dup
0000 0000 0272 FFFF FFFF 0branch
0000 0000 0000 0272 FFFF 0<
0000 0000 0000 0272 FFFF state
0000 0000 0272 FFFF 0207 @
0000 0000 0272 FFFF 0000 and
0000 0000 0000 0272 0000 0branch
0000 20CD 0000 0000 0272 execute

Recent comments: ( 0 )

Latest Snippets