[OpenBIOS] b?branch

[Jd Lyons]

I don’t know if this is helpful at all, trying with debug b?branch:

400af3d : (compile) b?branch [ 0x14 ]

: b?branch  (  ) 
fff46cbc: ?compile-mode  (  ) 
fff46cc0: do?branch  (  ) 
fff46cc8: read-fcode-offset        (offset) b 
 (  ) 
fff46ccc: ?negative  (  ) 
fff46cd0: do?branch  (  ) 
fff46cd8: dest-on-top  (  ) 
fff46cdc: (lit)  (  ) 
fff46ce4: ,  (  ) 
fff46ce8: dobranch  (  ) 
fff46cf4: dobranch  (  ) 
fff46d20: (semis) 
[ Finished b?branch ] 400af40 : (compile) b(lit) [ 0x10 ]
400af45 : (compile) bbranch [ 0x13 ]
       (offset) 5 
400af48 : (compile) b(>resolve) [ 0xb2 ]
400af49 : (compile) 0 [ 0xa5 ]
400af4a : (compile) b(>resolve) [ 0xb2 ]
400af4c : (compile)  [ 0xda2 ]
400af4d : (compile) b(lit) [ 0x10 ]
400af52 : (compile) and [ 0x23 ]
400af53 : (compile) 3 [ 0xa8 ]
400af54 : (compile) rshift [ 0x28 ]
400af55 : (compile) or [ 0x24 ]
400af57 : (compile)  [ 0xcfb ]
400af58 : (compile) 1 [ 0xa6 ]
400af59 : (compile) - [ 0x1f ]
400af5a : (compile) b(lit) [ 0x10 ]
400af5f : (compile) and [ 0x23 ]
400af60 : (compile) b(lit) [ 0x10 ]
400af65 : (compile) rshift [ 0x28 ]
400af66 : (compile) or [ 0x24 ]
400af67 : (compile) b(lit) [ 0x10 ]
400af6d : (compile)  [ 0xbd2 ]
400af6f : (compile)  [ 0xd00 ]
400af70 : (compile) b(lit) [ 0x10 ]
400af75 : (compile) and [ 0x23 ]
400af76 : (compile) b(lit) [ 0x10 ]
400af7c : (compile)  [ 0xbd2 ]
400af7e : (compile)  [ 0xd01 ]
400af7f : (compile) b(lit) [ 0x10 ]
400af84 : (compile) and [ 0x23 ]
400af85 : (compile) b(lit) [ 0x10 ]
400af8b : (compile)  [ 0xbd2 ]
400af8d : (compile)  [ 0xcfb ]
400af8e : (compile) 1 [ 0xa6 ]
400af8f : (compile) - [ 0x1f ]
400af90 : (compile) b(lit) [ 0x10 ]
400af95 : (compile) and [ 0x23 ]
400af96 : (compile) b(lit) [ 0x10 ]
400af9c : (compile)  [ 0xbd2 ]
400af9e : (compile)  [ 0xb3a ]
400af9f : (compile) b(lit) [ 0x10 ]
400afa4 : (compile) / [ 0x21 ]
400afa6 : (compile)  [ 0xcfa ]
400afa7 : (compile) * [ 0x20 ]
400afa9 : (compile)  [ 0xdaf ]
400afaa : (compile) b(lit) [ 0x10 ]
400afaf : (compile) / [ 0x21 ]
400afb0 : (compile) b(to) [ 0xc3 ]
400afb4 : (compile)  [ 0xb3a ]
400afb5 : (compile) b(lit) [ 0x10 ]
400afba : (compile) = [ 0x3c ]
400afbb : (compile) b?branch [ 0x14 ]

: b?branch  (  ) 
fff46cbc: ?compile-mode  (  ) 
fff46cc0: do?branch  (  ) 
fff46cc8: read-fcode-offset        (offset) 7 
 (  ) 
fff46ccc: ?negative  (  ) 
fff46cd0: do?branch  (  ) 
fff46cd8: dest-on-top  (  ) 
fff46cdc: (lit)  (  ) 
fff46ce4: ,  (  ) 
fff46ce8: dobranch  (  ) 
fff46cf4: dobranch  (  ) 
fff46d20: (semis) 
[ Finished b?branch ] 400afbe : (compile) 3 [ 0xa8 ]
400afbf : (compile) bbranch [ 0x13 ]
       (offset) c 
400afc2 : (compile) b(>resolve) [ 0xb2 ]
400afc4 : (compile)  [ 0xb3a ]
400afc5 : (compile) b(lit) [ 0x10 ]
400afca : (compile) / [ 0x21 ]
400afcb : (compile) b(>resolve) [ 0xb2 ]
400afcc : (compile) b(lit) [ 0x10 ]
400afd2 : (compile)  [ 0xbd1 ]
400afd3 : (compile) b(lit) [ 0x10 ]
400afd8 : (compile) and [ 0x23 ]
400afd9 : (compile) or [ 0x24 ]
400afda : (compile) b(lit) [ 0x10 ]
400afe0 : (compile)  [ 0xbd2 ]
400afe2 : (compile)  [ 0xda3 ]
400afe3 : (compile) b(lit) [ 0x10 ]
400afe8 : (compile) and [ 0x23 ]
400afe9 : (compile) b(lit) [ 0x10 ]
400afef : (compile)  [ 0xbd2 ]
400aff0 : (compile) 0 [ 0xa5 ]
400aff1 : (compile) b(lit) [ 0x10 ]
400aff7 : (compile)  [ 0xbd2 ]
400aff9 : (compile)  [ 0xcfb ]
400affa : (compile) 1 [ 0xa6 ]
400affb : (compile) - [ 0x1f ]
400affc : (compile) b(lit) [ 0x10 ]
400b001 : (compile) and [ 0x23 ]
400b002 : (compile) b(lit) [ 0x10 ]
400b008 : (compile)  [ 0xbd2 ]
400b00a : (compile)  [ 0xcff ]
400b00b : (compile) 1 [ 0xa6 ]
400b00c : (compile) - [ 0x1f ]
400b00d : (compile) b(lit) [ 0x10 ]
400b012 : (compile) and [ 0x23 ]
400b013 : (compile) b(lit) [ 0x10 ]
400b019 : (compile)  [ 0xbd2 ]
400b01a : (compile) b(lit) [ 0x10 ]
400b01f : (compile) b(lit) [ 0x10 ]
400b025 : (compile)  [ 0xbd2 ]
400b027 : (compile)  [ 0xda2 ]
400b028 : (compile) b(lit) [ 0x10 ]
400b02d : (compile) and [ 0x23 ]
400b02e : (compile) b(lit) [ 0x10 ]
400b034 : (compile)  [ 0xbd2 ]
400b036 : (compile)  [ 0xda3 ]
400b037 : (compile) b(lit) [ 0x10 ]
400b03c : (compile) and [ 0x23 ]
400b03d : (compile) b(lit) [ 0x10 ]
400b042 : (compile) rshift [ 0x28 ]
400b043 : (compile) b(lit) [ 0x10 ]
400b048 : (compile) lshift [ 0x27 ]
400b049 : (compile) b(lit) [ 0x10 ]
400b04f : (compile)  [ 0xbd2 ]
400b051 : (compile)  [ 0x93d ]
400b052 : (compile) b(lit) [ 0x10 ]
400b057 : (compile) >= [ 0x42 ]
400b059 : (compile)  [ 0x93d ]
400b05a : (compile) b(lit) [ 0x10 ]
400b05f : (compile) <> [ 0x3d ]
400b060 : (compile) and [ 0x23 ]
400b061 : (compile) b?branch [ 0x14 ]

: b?branch  (  ) 
fff46cbc: ?compile-mode  (  ) 
fff46cc0: do?branch  (  ) 
fff46cc8: read-fcode-offset        (offset) 18 
 (  ) 
fff46ccc: ?negative  (  ) 
fff46cd0: do?branch  (  ) 
fff46cd8: dest-on-top  (  ) 
fff46cdc: (lit)  (  ) 
fff46ce4: ,  (  ) 
fff46ce8: dobranch  (  ) 
fff46cf4: dobranch  (  ) 
fff46d20: (semis) 
[ Finished b?branch ] 400b065 : (compile)  [ 0xda3 ]
400b066 : (compile) b(lit) [ 0x10 ]
400b06b : (compile) and [ 0x23 ]
400b06c : (compile) b(lit) [ 0x10 ]
400b071 : (compile) rshift [ 0x28 ]
400b072 : (compile) b(lit) [ 0x10 ]
400b078 : (compile)  [ 0xbd2 ]
400b079 : (compile) b(>resolve) [ 0xb2 ]
400b07a : (compile) b(lit) [ 0x10 ]
400b07f : (compile) b(lit) [ 0x10 ]
400b085 : (compile)  [ 0xbd2 ]
400b087 : (compile)  [ 0xcfb ]
400b088 : (compile) b(lit) [ 0x10 ]
400b08d : (compile) < [ 0x3a ]
400b08e : (compile) b?branch [ 0x14 ]

: b?branch  (  ) 
fff46cbc: ?compile-mode  (  ) 
fff46cc0: do?branch  (  ) 
fff46cc8: read-fcode-offset        (offset) 1b 
 (  ) 
fff46ccc: ?negative  (  ) 
fff46cd0: do?branch  (  ) 
fff46cd8: dest-on-top  (  ) 
fff46cdc: (lit)  (  ) 
fff46ce4: ,  (  ) 
fff46ce8: dobranch  (  ) 
fff46cf4: dobranch  (  ) 
fff46d20: (semis) 
[ Finished b?branch ] 400b092 : (compile)  [ 0xcfa ]
400b093 : (compile) b(lit) [ 0x10 ]
400b098 : (compile) < [ 0x3a ]
400b099 : (compile) b?branch [ 0x14 ]

: b?branch  (  ) 
fff46cbc: ?compile-mode  (  ) 
fff46cc0: do?branch  (  ) 
fff46cc8: read-fcode-offset        (offset) f 
 (  ) 
fff46ccc: ?negative  (  ) 
fff46cd0: do?branch  (  ) 
fff46cd8: dest-on-top  (  ) 
fff46cdc: (lit)  (  ) 
fff46ce4: ,  (  ) 
fff46ce8: dobranch  (  ) 
fff46cf4: dobranch  (  ) 
fff46d20: (semis) 
[ Finished b?branch ] 400b09c : (compile) b(lit) [ 0x10 ]
400b0a1 : (compile) b(lit) [ 0x10 ]
400b0a7 : (compile)  [ 0xbd2 ]
400b0a8 : (compile) b(>resolve) [ 0xb2 ]
400b0a9 : (compile) b(>resolve) [ 0xb2 ]

We hang here with no further debugging………………………….