DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦b2312b7e8⟧ M200

    Length: 12800 (0x3200)
    Types: M200
    Notes: @(#)EMBALM,3.2,92/10/28,16:17:00, M200_PROGRAM
    Names: »EMBALM.M200«

Derivation

└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »EMBALM.M200« 

Disassembly

0x2127a


@ 2127a
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
    <POP 2127a-21322 Body>                                              
        <POP 2127a-21290 Prologue>                           Σ0         ↓
        <POP 21290-21292 RegCacheLoad>                       Σ0         ↓
        <POP 21292-212b4 Naked>                              Σ0         ↓ →0x212b6
            <MI 21292  MOVEQ.L #0x00,D0>                                        {}
            <MI 21294  MOVE.L  (A6+0xc),D1>                                     {}
            <POP 0x21298 LimitCheck 0x0 ≤ D1 ≤ 0x7>                             {}
            <MI 212a2  ASL.L   #0x1,D1>                                         {}
            <MI 212a4  LEA.L   0x20b82,A0>                                      {}
            <MI 212a8  CLR.L   D2>                                              {}
            <MI 212aa  MOVE.B  (A6+0x10),D2>                                    {}
            <MI 212ae  AND.W   (A0+D1.L),D2>                                    {}
            <MI 212b2  BEQ     0x212b6>                                         {}
        <POP 212b4-212b6 Naked>                              Σ0         ↓
            <MI 212b4  ADDQ.B  #0x1,D0>                                         {}
        <POP 212b6-212bc Naked>                              Σ0         ↓ →0x2131a ←0x21292
            <MI 212b6  CMP.B   (A6+0xa),D0>                                     {}
            <MI 212ba  BNE     0x2131a>                                         {}
        <POP 212bc-2131a Naked>                              Σ0         ↓
            <MI 212bc  MOVEA.L (A4+0x28),A0>                                    {}
            <MI 212c0  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 212c4  EXTB.W  D0>                                              {}
            <MI 212c6  MOVE.B  #0x01,(A0+D0.W)>                                 {}
            <Blob 0x212ca [2] @>                             Δ-2                {[«2""»]}
            <POP 212ce-212d0 StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <Lit 0x212d0 2>                                                     {[«2""»]|[$$__]}
            <Call 0x212e2 0x103d8>                                              {[«2""»]|[$$__]}
                WriteConsoleString(str : String)
            <POP 212e8-212ea StackAdj>                       Δ+6                {}
            <MI 212ea  ASL.W   #0x5,D0>                                         {}
            <MI 212ec  LEA.L   0x20cfa,A0>                                      {}
            <Blob 0x212f0 [30] (A0+D0.W+#0x1e)>              Δ-30               {[«30»]}
            <POP 212fc-212fe StackAdj>                       Δ-4                {[«30»]|[-4-]}
            <Lit 0x212fe>                                                       {[«30»]|[$$…]}
                <Pointer.sp 0x212fe 4>                       Δ-4        
                <Const 0x21302 0x1.2>                        Δ-2        
                <Const 0x21304 0x1e.2>                       Δ-2        
                <Call 0x21308 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2130e-21310 StackAdj>                   Δ+8        
            <Call 0x21310 0x103e0>                                              {[«30»]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 21316-2131a StackAdj>                       Δ+34               {}
        <POP 2131a-21322 Epilogue>                           Σ0         ←0x212b6

0x21322


@ 21322
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x003 @>
        <LVAR -0x005 @ 1(r)>
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x007 @ 1(r)>
        <LVAR -0x009 1(r)>
        <LVAR -0x00d @>
        <LVAR -0x012 1(r)>
        <LVAR -0x013 @ 1(r)>
        <LVAR -0x014 1(r)>
        <LVAR -0x018 @>
        <LVAR -0x01c 1(r)>
        <LVAR -0x01d @ 1(r)>
        <LVAR -0x01e 1(rw)>
        <LVAR -0x01f 1(rw)>
        <LVAR -0x020 @ 1(rw)>
    <POP 21322-2188c Body>                                   Δ+40       
        <POP 21322-21338 Prologue>                           Σ0         ↓
        <POP 21338-21352 RegCacheLoad>                       Σ0         ↓
        <POP 21352-21360 Naked>                              Σ0         ↓ →0x21362
            <MI 21352  MOVEQ.L #0x00,D7>                                        {}
            <MI 21354  MOVE.W  0x23058,D0>                                      {}
            <MI 2135a  ANDI.W  #0x4000,D0>                                      {}
            <MI 2135e  BEQ     0x21362>                                         {}
        <POP 21360-21362 Naked>                              Σ0         ↓
            <MI 21360  ADDQ.B  #0x1,D7>                                         {}
        <POP 21362-214d4 Naked>                              Σ0         ↓ →0x214f6 ←0x21352
            <MI 21362  MOVE.W  0x2305a,D0>                                      {}
            <MI 21368  ANDI.W  #0x3f00,D0>                                      {}
            <MI 2136c  LSR.W   #0x8,D0>                                         {}
            <MI 2136e  MOVE.B  D0,(A6-0x1f)>                                    {}
            <MI 21370  MOVE.W  0x2305a,D0>                                      {}
            <MI 21376  ANDI.W  #0x00ff,D0>                                      {}
            <MI 2137a  MOVE.B  D0,(A6-0x1e)>                                    {}
            <POP 2137e-21380 StackAdj>                       Δ-2                {[-2-]}
            <MI 21380  MOVE.B  (A6-0x1f),(A7)>                                  {[-2-]}
            <MI 21382  MOVE.B  (A6-0x1e),(A7+0x1)>                              {[-2-]}
            <MI 21388  CLR.B   -(A7)>                        Δ-2                {[-2-]|[#0]}
            <Pointer.fp 0x2138a <LVAR -0x013 @ 1(r)>>        Δ-4                {[-2-]|[#0]|[@@-19]}
            <Pointer.fp 0x2138e <LVAR -0x003 @>>             Δ-4                {[-2-]|[#0]|[@@-19]|[@@-3]}
            <Call 0x21392 0x22a4e>                                              {[-2-]|[#0]|[@@-19]|[@@-3]}
                exp_READ_WCS.TYP(Sw_2, Sw_1, &Sr_6, &Fr)
            <POP 21398-2139a StackAdj>                       Δ+10               {[-2-]}
            <MI 2139a  MOVE.B  (A6-0x1f),(A7)>                                  {[-2-]}
            <MI 2139c  MOVE.B  (A6-0x1e),(A7+0x1)>                              {[-2-]}
            <MI 213a2  CLR.B   -(A7)>                        Δ-2                {[-2-]|[#0]}
            <Pointer.fp 0x213a4 <LVAR -0x01d @ 1(r)>>        Δ-4                {[-2-]|[#0]|[@@-29]}
            <Pointer.fp 0x213a8 <LVAR -0x003 @>>             Δ-4                {[-2-]|[#0]|[@@-29]|[@@-3]}
            <Call 0x213ac 0x22a8a>                                              {[-2-]|[#0]|[@@-29]|[@@-3]}
                exp_READ_WCS.VAL(Sw_2, Sw_1, &Sr_5, &Fr)
            <POP 213b2-213b4 StackAdj>                       Δ+10               {[-2-]}
            <MI 213b4  MOVE.B  (A6-0x1f),(A7)>                                  {[-2-]}
            <MI 213b6  MOVE.B  (A6-0x1e),(A7+0x1)>                              {[-2-]}
            <MI 213bc  CLR.B   -(A7)>                        Δ-2                {[-2-]|[#0]}
            <Const 0x213be 0x230d8.4>                        Δ-4                {[-2-]|[#0]|[##143576]}
            <Pointer.fp 0x213c4 <LVAR -0x003 @>>             Δ-4                {[-2-]|[#0]|[##143576]|[@@-3]}
            <Call 0x213c8 0x22d90>                                              {[-2-]|[#0]|[##143576]|[@@-3]}
                exp_READ_WCS.IOC(Sw_2, Sw_1, &Sr_2, &Fr)
            <POP 213ce-213d0 StackAdj>                       Δ+12               {}
            <MI 213d0  MOVE.W  0x2305c,D0>                                      {}
            <MI 213d6  ANDI.W  #0x3f00,D0>                                      {}
            <MI 213da  LSR.W   #0x8,D0>                                         {}
            <MI 213dc  MOVE.B  D0,(A6-0x1f)>                                    {}
            <MI 213de  MOVE.W  0x2305c,D0>                                      {}
            <MI 213e4  ANDI.W  #0x00ff,D0>                                      {}
            <MI 213e8  MOVE.B  D0,(A6-0x1e)>                                    {}
            <POP 213ec-213ee StackAdj>                       Δ-2                {[-2-]}
            <MI 213ee  MOVE.B  (A6-0x1f),(A7)>                                  {[-2-]}
            <MI 213f0  MOVE.B  (A6-0x1e),(A7+0x1)>                              {[-2-]}
            <MI 213f6  CLR.B   -(A7)>                        Δ-2                {[-2-]|[#0]}
            <Pointer.fp 0x213f8 <LVAR -0x00d @>>             Δ-4                {[-2-]|[#0]|[@@-13]}
            <Pointer.fp 0x213fc <LVAR -0x003 @>>             Δ-4                {[-2-]|[#0]|[@@-13]|[@@-3]}
            <Call 0x21400 0x22a4e>                                              {[-2-]|[#0]|[@@-13]|[@@-3]}
                exp_READ_WCS.TYP(Sw_2, Sw_1, &Sr_6, &Fr)
            <POP 21406-21408 StackAdj>                       Δ+10               {[-2-]}
            <MI 21408  MOVE.B  (A6-0x1f),(A7)>                                  {[-2-]}
            <MI 2140a  MOVE.B  (A6-0x1e),(A7+0x1)>                              {[-2-]}
            <MI 21410  CLR.B   -(A7)>                        Δ-2                {[-2-]|[#0]}
            <Pointer.fp 0x21412 <LVAR -0x018 @>>             Δ-4                {[-2-]|[#0]|[@@-24]}
            <Pointer.fp 0x21416 <LVAR -0x003 @>>             Δ-4                {[-2-]|[#0]|[@@-24]|[@@-3]}
            <Call 0x2141a 0x22a8a>                                              {[-2-]|[#0]|[@@-24]|[@@-3]}
                exp_READ_WCS.VAL(Sw_2, Sw_1, &Sr_5, &Fr)
            <POP 21420-21422 StackAdj>                       Δ+10               {[-2-]}
            <MI 21422  MOVE.B  (A6-0x1f),(A7)>                                  {[-2-]}
            <MI 21424  MOVE.B  (A6-0x1e),(A7+0x1)>                              {[-2-]}
            <MI 2142a  CLR.B   -(A7)>                        Δ-2                {[-2-]|[#0]}
            <Const 0x2142c 0x230da.4>                        Δ-4                {[-2-]|[#0]|[##143578]}
            <Pointer.fp 0x21432 <LVAR -0x003 @>>             Δ-4                {[-2-]|[#0]|[##143578]|[@@-3]}
            <Call 0x21436 0x22d90>                                              {[-2-]|[#0]|[##143578]|[@@-3]}
                exp_READ_WCS.IOC(Sw_2, Sw_1, &Sr_2, &Fr)
            <POP 2143c-2143e StackAdj>                       Δ+10               {[-2-]}
            <MI 2143e  CLR.B   (A7)>                                            {[-2-]}
            <Pointer.fp 0x21440 <LVAR -0x020 @ 1(rw)>>       Δ-4                {[-2-]|[@@-32]}
            <Call 0x21442 0x22e06>                                              {[-2-]|[@@-32]}
                exp_READ_PAREG.IOC(Sw_1, &Sr_1)
            <POP 21448-2144a StackAdj>                       Δ+4                {[-2-]}
            <MI 2144a  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x2144c 0x4.4>                            Δ-4                {[-2-]|[##4]}
            <MI 21450  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##4]|[#0]}
            <Const 0x21452 0x2.2>                            Δ-2                {[-2-]|[##4]|[#0]|[#2]}
            <MI 21454  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##4]|[#0]|[#2]}
            <Call 0x21456 0x2127a>                                              {[-2-]|[##4]|[#0]|[#2]}
            <POP 21458-2145a StackAdj>                       Δ+8                {[-2-]}
            <MI 2145a  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x2145c 0x5.4>                            Δ-4                {[-2-]|[##5]}
            <MI 21460  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##5]|[#0]}
            <Const 0x21462 0x3.2>                            Δ-2                {[-2-]|[##5]|[#0]|[#3]}
            <MI 21464  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##5]|[#0]|[#3]}
            <Call 0x21466 0x2127a>                                              {[-2-]|[##5]|[#0]|[#3]}
            <POP 21468-2146a StackAdj>                       Δ+8                {[-2-]}
            <MI 2146a  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x2146c 0x6.4>                            Δ-4                {[-2-]|[##6]}
            <MI 21470  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##6]|[#0]}
            <Const 0x21472 0x1.2>                            Δ-2                {[-2-]|[##6]|[#0]|[#1]}
            <MI 21474  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##6]|[#0]|[#1]}
            <Call 0x21476 0x2127a>                                              {[-2-]|[##6]|[#0]|[#1]}
            <POP 21478-2147a StackAdj>                       Δ+8                {[-2-]}
            <MI 2147a  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x2147c 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <MI 2147e  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##7]|[#0]}
            <MI 21480  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##7]|[#0]|[#0]}
            <MI 21482  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#0]|[#0]}
            <Call 0x21484 0x2127a>                                              {[-2-]|[##7]|[#0]|[#0]}
            <POP 21486-21488 StackAdj>                       Δ+10               {}
            <Pointer.fp 0x21488 <LVAR -0x020 @ 1(rw)>>       Δ-4                {[@@-32]}
            <Call 0x2148a 0x22aa8>                                              {[@@-32]}
                exp_READ_PARITY.VAL(&Sr_1)
            <POP 21490-21492 StackAdj>                       Δ+2                {[-2-]}
            <MI 21492  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x21494 0x0.4>                            Δ-4                {[-2-]|[##0]}
            <MI 21498  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##0]|[#0]}
            <Const 0x2149a 0x4.2>                            Δ-2                {[-2-]|[##0]|[#0]|[#4]}
            <MI 2149e  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##0]|[#0]|[#4]}
            <Call 0x214a0 0x2127a>                                              {[-2-]|[##0]|[#0]|[#4]}
            <POP 214a2-214a4 StackAdj>                       Δ+8                {[-2-]}
            <MI 214a4  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x214a6 0x1.4>                            Δ-4                {[-2-]|[##1]}
            <MI 214aa  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##1]|[#0]}
            <Const 0x214ac 0x5.2>                            Δ-2                {[-2-]|[##1]|[#0]|[#5]}
            <MI 214b0  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##1]|[#0]|[#5]}
            <Call 0x214b2 0x2127a>                                              {[-2-]|[##1]|[#0]|[#5]}
            <POP 214b4-214b6 StackAdj>                       Δ+8                {[-2-]}
            <MI 214b6  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x214b8 0x3.4>                            Δ-4                {[-2-]|[##3]}
            <MI 214bc  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##3]|[#0]}
            <Const 0x214be 0x6.2>                            Δ-2                {[-2-]|[##3]|[#0]|[#6]}
            <MI 214c2  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##3]|[#0]|[#6]}
            <Call 0x214c4 0x2127a>                                              {[-2-]|[##3]|[#0]|[#6]}
            <POP 214c6-214c8 StackAdj>                       Δ+10               {}
            <MI 214c8  CLR.L   D0>                                              {}
            <MI 214ca  MOVE.B  (A6-0x1d),D0>                                    {}
            <MI 214ce  AND.W   #0x03,D0>                                        {}
            <MI 214d0  CMP.W   #0x01,D0>                                        {}
            <MI 214d2  BNE     0x214f6>                                         {}
        <POP 214d4-214e4 Naked>                              Σ0         ↓ →0x214f6
            <MI 214d4  CLR.L   D0>                                              {}
            <MI 214d6  MOVE.B  (A6-0x1c),D0>                                    {}
            <MI 214da  ANDI.W  #0x00f0,D0>                                      {}
            <MI 214de  CMPI.W  #0x0060,D0>                                      {}
            <MI 214e2  BNE     0x214f6>                                         {}
        <POP 214e4-214e8 Naked>                              Σ0         ↓ →0x214f6
            <MI 214e4  TST.B   D7>                                              {}
            <MI 214e6  BNE     0x214f6>                                         {}
        <POP 214e8-214f6 Naked>                              Σ0 Δ-10    →0x21502
            <MI 214e8  MOVE.B  (A6-0x20),-(A7)>              Δ-2                {[2, '(A6-0x20)']}
            <Const 0x214ea 0x2.4>                            Δ-4                {[2, '(A6-0x20)']|[##2]}
            <MI 214ee  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x20)']|[##2]|[#0]}
            <Const 0x214f0 0x8.2>                            Δ-2                {[2, '(A6-0x20)']|[##2]|[#0]|[#8]}
            <MI 214f4  BRA     0x21502>                                         {[2, '(A6-0x20)']|[##2]|[#0]|[#8]}
        <POP 214f6-21502 Naked>                              Σ0 Δ-10    ↓ ←0x21362 ←0x214d4 ←0x214e4
            <MI 214f6  MOVE.B  (A6-0x20),-(A7)>              Δ-2                {[2, '(A6-0x20)']}
            <Const 0x214f8 0x2.4>                            Δ-4                {[2, '(A6-0x20)']|[##2]}
            <MI 214fc  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x20)']|[##2]|[#0]}
            <Const 0x214fe 0x7.2>                            Δ-2                {[2, '(A6-0x20)']|[##2]|[#0]|[#7]}
        <POP 21502-21514 Naked>                              Σ-10 Δ+10  ↓ →0x2153c ←0x214e8
            <MI 21502  LEA.L   (A6-0x20),A4>                                    {[-10-]}
            <Call 0x21504 0x2127a>                                              {[-10-]}
            <POP 21506-21508 StackAdj>                       Δ+10               {}
            <MI 21508  CLR.L   D0>                                              {}
            <MI 2150a  MOVE.B  (A6-0x20),D0>                                    {}
            <MI 2150c  MOVE.W  D0,D1>                                           {}
            <MI 2150e  ANDI.W  #0x0004,D1>                                      {}
            <MI 21512  BEQ     0x2153c>                                         {}
        <POP 21514-2151e Naked>                              Σ0         ↓ →0x2152c
            <MI 21514  CLR.L   D1>                                              {}
            <MI 21516  MOVE.B  (A6-0x14),D1>                                    {}
            <MI 2151a  AND.W   #0x02,D1>                                        {}
            <MI 2151c  BNE     0x2152c>                                         {}
        <POP 2151e-2152c Naked>                              Σ0 Δ-10    →0x21536
            <MI 2151e  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x21520 0x4.4>                            Δ-4                {[2, 'D0']|[##4]}
            <Const 0x21524 0x1.2>                            Δ-2                {[2, 'D0']|[##4]|[#1]}
            <Const 0x21526 0x9.2>                            Δ-2                {[2, 'D0']|[##4]|[#1]|[#9]}
            <MI 2152a  BRA     0x21536>                                         {[2, 'D0']|[##4]|[#1]|[#9]}
        <POP 2152c-21536 Naked>                              Σ0 Δ-10    ↓ ←0x21514
            <MI 2152c  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x2152e 0x4.4>                            Δ-4                {[2, 'D0']|[##4]}
            <Const 0x21532 0x1.2>                            Δ-2                {[2, 'D0']|[##4]|[#1]}
            <Const 0x21534 0xa.2>                            Δ-2                {[2, 'D0']|[##4]|[#1]|[#10]}
        <POP 21536-2153c Naked>                              Σ-10 Δ+10  ↓ ←0x2151e
            <MI 21536  LEA.L   (A6-0x20),A4>                                    {[-10-]}
            <Call 0x21538 0x2127a>                                              {[-10-]}
            <POP 2153a-2153c StackAdj>                       Δ+10               {}
        <POP 2153c-21586 Naked>                              Σ0         ↓ →0x215a8 ←0x21502
            <Pointer.fp 0x2153c <LVAR -0x020 @ 1(rw)>>       Δ-4                {[@@-32]}
            <Call 0x2153e 0x22a6c>                                              {[@@-32]}
                exp_READ_PARITY.TYP(&Sr_1)
            <POP 21544-21546 StackAdj>                       Δ+2                {[-2-]}
            <MI 21546  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x21548 0x0.4>                            Δ-4                {[-2-]|[##0]}
            <MI 2154c  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##0]|[#0]}
            <Const 0x2154e 0xb.2>                            Δ-2                {[-2-]|[##0]|[#0]|[#11]}
            <MI 21552  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##0]|[#0]|[#11]}
            <Call 0x21554 0x2127a>                                              {[-2-]|[##0]|[#0]|[#11]}
            <POP 21556-21558 StackAdj>                       Δ+8                {[-2-]}
            <MI 21558  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x2155a 0x1.4>                            Δ-4                {[-2-]|[##1]}
            <MI 2155e  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##1]|[#0]}
            <Const 0x21560 0xc.2>                            Δ-2                {[-2-]|[##1]|[#0]|[#12]}
            <MI 21562  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##1]|[#0]|[#12]}
            <Call 0x21564 0x2127a>                                              {[-2-]|[##1]|[#0]|[#12]}
            <POP 21566-21568 StackAdj>                       Δ+8                {[-2-]}
            <MI 21568  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x2156a 0x3.4>                            Δ-4                {[-2-]|[##3]}
            <MI 2156e  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##3]|[#0]}
            <Const 0x21570 0xd.2>                            Δ-2                {[-2-]|[##3]|[#0]|[#13]}
            <MI 21574  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##3]|[#0]|[#13]}
            <Call 0x21576 0x2127a>                                              {[-2-]|[##3]|[#0]|[#13]}
            <POP 21578-2157a StackAdj>                       Δ+10               {}
            <MI 2157a  CLR.L   D0>                                              {}
            <MI 2157c  MOVE.B  (A6-0x13),D0>                                    {}
            <MI 21580  AND.W   #0x03,D0>                                        {}
            <MI 21582  CMP.W   #0x01,D0>                                        {}
            <MI 21584  BNE     0x215a8>                                         {}
        <POP 21586-21596 Naked>                              Σ0         ↓ →0x215a8
            <MI 21586  CLR.L   D0>                                              {}
            <MI 21588  MOVE.B  (A6-0x12),D0>                                    {}
            <MI 2158c  ANDI.W  #0x00f0,D0>                                      {}
            <MI 21590  CMPI.W  #0x0060,D0>                                      {}
            <MI 21594  BNE     0x215a8>                                         {}
        <POP 21596-2159a Naked>                              Σ0         ↓ →0x215a8
            <MI 21596  TST.B   D7>                                              {}
            <MI 21598  BNE     0x215a8>                                         {}
        <POP 2159a-215a8 Naked>                              Σ0 Δ-10    →0x215b4
            <MI 2159a  MOVE.B  (A6-0x20),-(A7)>              Δ-2                {[2, '(A6-0x20)']}
            <Const 0x2159c 0x2.4>                            Δ-4                {[2, '(A6-0x20)']|[##2]}
            <MI 215a0  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x20)']|[##2]|[#0]}
            <Const 0x215a2 0xf.2>                            Δ-2                {[2, '(A6-0x20)']|[##2]|[#0]|[#15]}
            <MI 215a6  BRA     0x215b4>                                         {[2, '(A6-0x20)']|[##2]|[#0]|[#15]}
        <POP 215a8-215b4 Naked>                              Σ0 Δ-10    ↓ ←0x2153c ←0x21586 ←0x21596
            <MI 215a8  MOVE.B  (A6-0x20),-(A7)>              Δ-2                {[2, '(A6-0x20)']}
            <Const 0x215aa 0x2.4>                            Δ-4                {[2, '(A6-0x20)']|[##2]}
            <MI 215ae  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x20)']|[##2]|[#0]}
            <Const 0x215b0 0xe.2>                            Δ-2                {[2, '(A6-0x20)']|[##2]|[#0]|[#14]}
        <POP 215b4-215c4 Naked>                              Σ-10 Δ+10  ↓ →0x215ee ←0x2159a
            <MI 215b4  LEA.L   (A6-0x20),A4>                                    {[-10-]}
            <Call 0x215b6 0x2127a>                                              {[-10-]}
            <POP 215b8-215ba StackAdj>                       Δ+10               {}
            <MI 215ba  CLR.L   D0>                                              {}
            <MI 215bc  MOVE.B  (A6-0x20),D0>                                    {}
            <MI 215be  MOVE.W  D0,D1>                                           {}
            <MI 215c0  AND.W   #0x02,D1>                                        {}
            <MI 215c2  BEQ     0x215ee>                                         {}
        <POP 215c4-215ce Naked>                              Σ0         ↓ →0x215dc
            <MI 215c4  CLR.L   D1>                                              {}
            <MI 215c6  MOVE.B  (A6-0x9),D1>                                     {}
            <MI 215ca  AND.W   #0x01,D1>                                        {}
            <MI 215cc  BNE     0x215dc>                                         {}
        <POP 215ce-215dc Naked>                              Σ0 Δ-10    →0x215e8
            <MI 215ce  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x215d0 0x5.4>                            Δ-4                {[2, 'D0']|[##5]}
            <Const 0x215d4 0x1.2>                            Δ-2                {[2, 'D0']|[##5]|[#1]}
            <Const 0x215d6 0x10.2>                           Δ-2                {[2, 'D0']|[##5]|[#1]|[#16]}
            <MI 215da  BRA     0x215e8>                                         {[2, 'D0']|[##5]|[#1]|[#16]}
        <POP 215dc-215e8 Naked>                              Σ0 Δ-10    ↓ ←0x215c4
            <MI 215dc  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x215de 0x5.4>                            Δ-4                {[2, 'D0']|[##5]}
            <Const 0x215e2 0x1.2>                            Δ-2                {[2, 'D0']|[##5]|[#1]}
            <Const 0x215e4 0x11.2>                           Δ-2                {[2, 'D0']|[##5]|[#1]|[#17]}
        <POP 215e8-215ee Naked>                              Σ-10 Δ+10  ↓ ←0x215ce
            <MI 215e8  LEA.L   (A6-0x20),A4>                                    {[-10-]}
            <Call 0x215ea 0x2127a>                                              {[-10-]}
            <POP 215ec-215ee StackAdj>                       Δ+10               {}
        <POP 215ee-21718 Naked>                              Σ0         ↓ →0x21764 ←0x215b4
            <Pointer.fp 0x215ee <LVAR -0x020 @ 1(rw)>>       Δ-4                {[@@-32]}
            <Call 0x215f0 0x22a2c>                                              {[@@-32]}
                exp_GET_MISC_ERRORS.SEQ(&Sr_1)
            <POP 215f6-215f8 StackAdj>                       Δ+2                {[-2-]}
            <MI 215f8  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x215fa 0x3.4>                            Δ-4                {[-2-]|[##3]}
            <MI 215fe  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##3]|[#0]}
            <Const 0x21600 0x12.2>                           Δ-2                {[-2-]|[##3]|[#0]|[#18]}
            <MI 21604  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##3]|[#0]|[#18]}
            <Call 0x21606 0x2127a>                                              {[-2-]|[##3]|[#0]|[#18]}
            <POP 21608-2160a StackAdj>                       Δ+8                {[-2-]}
            <MI 2160a  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x2160c 0x4.4>                            Δ-4                {[-2-]|[##4]}
            <MI 21610  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##4]|[#0]}
            <Const 0x21612 0x13.2>                           Δ-2                {[-2-]|[##4]|[#0]|[#19]}
            <MI 21616  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##4]|[#0]|[#19]}
            <Call 0x21618 0x2127a>                                              {[-2-]|[##4]|[#0]|[#19]}
            <POP 2161a-2161c StackAdj>                       Δ+8                {[-2-]}
            <MI 2161c  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x2161e 0x5.4>                            Δ-4                {[-2-]|[##5]}
            <MI 21622  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##5]|[#0]}
            <Const 0x21624 0x14.2>                           Δ-2                {[-2-]|[##5]|[#0]|[#20]}
            <MI 21628  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##5]|[#0]|[#20]}
            <Call 0x2162a 0x2127a>                                              {[-2-]|[##5]|[#0]|[#20]}
            <POP 2162c-2162e StackAdj>                       Δ+8                {[-2-]}
            <MI 2162e  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x21630 0x6.4>                            Δ-4                {[-2-]|[##6]}
            <MI 21634  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##6]|[#0]}
            <Const 0x21636 0x15.2>                           Δ-2                {[-2-]|[##6]|[#0]|[#21]}
            <MI 2163a  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##6]|[#0]|[#21]}
            <Call 0x2163c 0x2127a>                                              {[-2-]|[##6]|[#0]|[#21]}
            <POP 2163e-21640 StackAdj>                       Δ+8                {[-2-]}
            <MI 21640  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x21642 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <MI 21644  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##7]|[#0]}
            <Const 0x21646 0x16.2>                           Δ-2                {[-2-]|[##7]|[#0]|[#22]}
            <MI 2164a  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#0]|[#22]}
            <Call 0x2164c 0x2127a>                                              {[-2-]|[##7]|[#0]|[#22]}
            <POP 2164e-21650 StackAdj>                       Δ+10               {}
            <Pointer.fp 0x21650 <LVAR -0x002 @ 1(r)>>        Δ-4                {[@@-2]}
            <Call 0x21654 0x22a16>                                              {[@@-2]}
                exp_HALT.SEQ(&Fr)
            <POP 2165a-2165c StackAdj>                       Δ+4                {}
            <MI 2165c  MOVE.B  (A6-0x2),(A6-0x20)>                              {}
            <MI 21660  MOVE.B  (A6-0x20),-(A7)>              Δ-2                {[2, '(A6-0x20)']}
            <Const 0x21662 0x7.4>                            Δ-4                {[2, '(A6-0x20)']|[##7]}
            <Const 0x21664 0x1.2>                            Δ-2                {[2, '(A6-0x20)']|[##7]|[#1]}
            <Const 0x21666 0x17.2>                           Δ-2                {[2, '(A6-0x20)']|[##7]|[#1]|[#23]}
            <MI 2166a  LEA.L   (A6-0x20),A4>                                    {[2, '(A6-0x20)']|[##7]|[#1]|[#23]}
            <Call 0x2166c 0x2127a>                                              {[2, '(A6-0x20)']|[##7]|[#1]|[#23]}
            <POP 2166e-21670 StackAdj>                       Δ+8                {[2, '(A6-0x20)']}
            <MI 21670  CLR.B   (A7)>                                            {[2, '(A6-0x20)']}
            <Pointer.fp 0x21672 <LVAR -0x020 @ 1(rw)>>       Δ-4                {[2, '(A6-0x20)']|[@@-32]}
            <Call 0x21674 0x229f8>                                              {[2, '(A6-0x20)']|[@@-32]}
                exp_READ_PAREG.FIU(Sw_1, &Sr_1)
            <POP 2167a-2167c StackAdj>                       Δ+4                {[2, '(A6-0x20)']}
            <MI 2167c  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x2167e 0x0.4>                            Δ-4                {[-2-]|[##0]}
            <MI 21682  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##0]|[#0]}
            <Const 0x21684 0x18.2>                           Δ-2                {[-2-]|[##0]|[#0]|[#24]}
            <MI 21688  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##0]|[#0]|[#24]}
            <Call 0x2168a 0x2127a>                                              {[-2-]|[##0]|[#0]|[#24]}
            <POP 2168c-2168e StackAdj>                       Δ+8                {[-2-]}
            <MI 2168e  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x21690 0x1.4>                            Δ-4                {[-2-]|[##1]}
            <MI 21694  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##1]|[#0]}
            <Const 0x21696 0x19.2>                           Δ-2                {[-2-]|[##1]|[#0]|[#25]}
            <MI 2169a  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##1]|[#0]|[#25]}
            <Call 0x2169c 0x2127a>                                              {[-2-]|[##1]|[#0]|[#25]}
            <POP 2169e-216a0 StackAdj>                       Δ+8                {[-2-]}
            <MI 216a0  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x216a2 0x2.4>                            Δ-4                {[-2-]|[##2]}
            <MI 216a6  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##2]|[#0]}
            <Const 0x216a8 0x1a.2>                           Δ-2                {[-2-]|[##2]|[#0]|[#26]}
            <MI 216ac  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##2]|[#0]|[#26]}
            <Call 0x216ae 0x2127a>                                              {[-2-]|[##2]|[#0]|[#26]}
            <POP 216b0-216b2 StackAdj>                       Δ+8                {[-2-]}
            <MI 216b2  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x216b4 0x3.4>                            Δ-4                {[-2-]|[##3]}
            <MI 216b8  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##3]|[#0]}
            <Const 0x216ba 0x1b.2>                           Δ-2                {[-2-]|[##3]|[#0]|[#27]}
            <MI 216be  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##3]|[#0]|[#27]}
            <Call 0x216c0 0x2127a>                                              {[-2-]|[##3]|[#0]|[#27]}
            <POP 216c2-216c4 StackAdj>                       Δ+8                {[-2-]}
            <MI 216c4  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x216c6 0x4.4>                            Δ-4                {[-2-]|[##4]}
            <MI 216ca  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##4]|[#0]}
            <Const 0x216cc 0x1c.2>                           Δ-2                {[-2-]|[##4]|[#0]|[#28]}
            <MI 216d0  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##4]|[#0]|[#28]}
            <Call 0x216d2 0x2127a>                                              {[-2-]|[##4]|[#0]|[#28]}
            <POP 216d4-216d6 StackAdj>                       Δ+8                {[-2-]}
            <MI 216d6  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x216d8 0x5.4>                            Δ-4                {[-2-]|[##5]}
            <MI 216dc  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##5]|[#0]}
            <Const 0x216de 0x1d.2>                           Δ-2                {[-2-]|[##5]|[#0]|[#29]}
            <MI 216e2  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##5]|[#0]|[#29]}
            <Call 0x216e4 0x2127a>                                              {[-2-]|[##5]|[#0]|[#29]}
            <POP 216e6-216e8 StackAdj>                       Δ+8                {[-2-]}
            <MI 216e8  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x216ea 0x6.4>                            Δ-4                {[-2-]|[##6]}
            <MI 216ee  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##6]|[#0]}
            <Const 0x216f0 0x1e.2>                           Δ-2                {[-2-]|[##6]|[#0]|[#30]}
            <MI 216f4  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##6]|[#0]|[#30]}
            <Call 0x216f6 0x2127a>                                              {[-2-]|[##6]|[#0]|[#30]}
            <POP 216f8-216fa StackAdj>                       Δ+8                {[-2-]}
            <MI 216fa  MOVE.B  (A6-0x20),(A7)>                                  {[-2-]}
            <Const 0x216fc 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <MI 216fe  CLR.B   -(A7)>                        Δ-2                {[-2-]|[##7]|[#0]}
            <Const 0x21700 0x1f.2>                           Δ-2                {[-2-]|[##7]|[#0]|[#31]}
            <MI 21704  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#0]|[#31]}
            <Call 0x21706 0x2127a>                                              {[-2-]|[##7]|[#0]|[#31]}
            <POP 21708-2170a StackAdj>                       Δ+6                {[-2-]|[-2-]}
            <POP 2170a-2170b StackAdj>                       Δ+2                {[-2-]}
            <Const 0x2170b 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x2170c 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 21712-21714 StackAdj>                       Δ+2                {[-2-]}
            <MI 21714  TST.B   (A7)+>                        Δ+2                {}
            <MI 21716  BEQ     0x21764>                                         {}
        <POP 21718-21764 Naked>                              Σ0         ↓
            <Const 0x21718 0xc.2>                            Δ-2                {[#12]}
            <Pointer.fp 0x2171a <LVAR -0x007 @ 1(r)>>        Δ-4                {[#12]|[@@-7]}
            <Pointer.fp 0x2171e <LVAR -0x006 @ 1(r)>>        Δ-4                {[#12]|[@@-7]|[@@-6]}
            <Pointer.fp 0x21722 <LVAR -0x005 @ 1(r)>>        Δ-4                {[#12]|[@@-7]|[@@-6]|[@@-5]}
            <Call 0x21726 0x22cc6>                                              {[#12]|[@@-7]|[@@-6]|[@@-5]}
            <POP 2172c-2172e StackAdj>                       Δ+12               {[#12]}
            <MI 2172e  MOVE.B  (A6-0x7),(A7)>                                   {[-2-]}
            <Const 0x21732 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21734 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x21736 0x20.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#32]}
            <MI 2173a  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#32]}
            <Call 0x2173c 0x2127a>                                              {[-2-]|[##7]|[#1]|[#32]}
            <POP 2173e-21740 StackAdj>                       Δ+8                {[-2-]}
            <MI 21740  MOVE.B  (A6-0x6),(A7)>                                   {[-2-]}
            <Const 0x21744 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21746 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x21748 0x21.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#33]}
            <MI 2174c  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#33]}
            <Call 0x2174e 0x2127a>                                              {[-2-]|[##7]|[#1]|[#33]}
            <POP 21750-21752 StackAdj>                       Δ+8                {[-2-]}
            <MI 21752  MOVE.B  (A6-0x5),(A7)>                                   {[-2-]}
            <Const 0x21756 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21758 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x2175a 0x22.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#34]}
            <MI 2175e  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#34]}
            <Call 0x21760 0x2127a>                                              {[-2-]|[##7]|[#1]|[#34]}
            <POP 21762-21764 StackAdj>                       Δ+10               {}
        <POP 21764-21776 Naked>                              Σ0         ↓ →0x217c4 ←0x215ee
            <POP 21764-21766 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21766 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x2176a 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 21770-21772 StackAdj>                       Δ+2                {[-2-]}
            <MI 21772  TST.B   (A7)+>                        Δ+2                {}
            <MI 21774  BEQ     0x217c4>                                         {}
        <POP 21776-217c4 Naked>                              Σ0         ↓
            <Const 0x21776 0xd.2>                            Δ-2                {[#13]}
            <Pointer.fp 0x2177a <LVAR -0x007 @ 1(r)>>        Δ-4                {[#13]|[@@-7]}
            <Pointer.fp 0x2177e <LVAR -0x006 @ 1(r)>>        Δ-4                {[#13]|[@@-7]|[@@-6]}
            <Pointer.fp 0x21782 <LVAR -0x005 @ 1(r)>>        Δ-4                {[#13]|[@@-7]|[@@-6]|[@@-5]}
            <Call 0x21786 0x22cc6>                                              {[#13]|[@@-7]|[@@-6]|[@@-5]}
            <POP 2178c-2178e StackAdj>                       Δ+12               {[#13]}
            <MI 2178e  MOVE.B  (A6-0x7),(A7)>                                   {[-2-]}
            <Const 0x21792 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21794 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x21796 0x23.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#35]}
            <MI 2179a  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#35]}
            <Call 0x2179c 0x2127a>                                              {[-2-]|[##7]|[#1]|[#35]}
            <POP 2179e-217a0 StackAdj>                       Δ+8                {[-2-]}
            <MI 217a0  MOVE.B  (A6-0x6),(A7)>                                   {[-2-]}
            <Const 0x217a4 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x217a6 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x217a8 0x24.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#36]}
            <MI 217ac  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#36]}
            <Call 0x217ae 0x2127a>                                              {[-2-]|[##7]|[#1]|[#36]}
            <POP 217b0-217b2 StackAdj>                       Δ+8                {[-2-]}
            <MI 217b2  MOVE.B  (A6-0x5),(A7)>                                   {[-2-]}
            <Const 0x217b6 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x217b8 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x217ba 0x25.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#37]}
            <MI 217be  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#37]}
            <Call 0x217c0 0x2127a>                                              {[-2-]|[##7]|[#1]|[#37]}
            <POP 217c2-217c4 StackAdj>                       Δ+10               {}
        <POP 217c4-217d6 Naked>                              Σ0         ↓ →0x21824 ←0x21764
            <POP 217c4-217c6 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x217c6 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x217ca 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 217d0-217d2 StackAdj>                       Δ+2                {[-2-]}
            <MI 217d2  TST.B   (A7)+>                        Δ+2                {}
            <MI 217d4  BEQ     0x21824>                                         {}
        <POP 217d6-21824 Naked>                              Σ0         ↓
            <Const 0x217d6 0xe.2>                            Δ-2                {[#14]}
            <Pointer.fp 0x217da <LVAR -0x007 @ 1(r)>>        Δ-4                {[#14]|[@@-7]}
            <Pointer.fp 0x217de <LVAR -0x006 @ 1(r)>>        Δ-4                {[#14]|[@@-7]|[@@-6]}
            <Pointer.fp 0x217e2 <LVAR -0x005 @ 1(r)>>        Δ-4                {[#14]|[@@-7]|[@@-6]|[@@-5]}
            <Call 0x217e6 0x22cc6>                                              {[#14]|[@@-7]|[@@-6]|[@@-5]}
            <POP 217ec-217ee StackAdj>                       Δ+12               {[#14]}
            <MI 217ee  MOVE.B  (A6-0x7),(A7)>                                   {[-2-]}
            <Const 0x217f2 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x217f4 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x217f6 0x26.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#38]}
            <MI 217fa  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#38]}
            <Call 0x217fc 0x2127a>                                              {[-2-]|[##7]|[#1]|[#38]}
            <POP 217fe-21800 StackAdj>                       Δ+8                {[-2-]}
            <MI 21800  MOVE.B  (A6-0x6),(A7)>                                   {[-2-]}
            <Const 0x21804 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21806 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x21808 0x27.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#39]}
            <MI 2180c  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#39]}
            <Call 0x2180e 0x2127a>                                              {[-2-]|[##7]|[#1]|[#39]}
            <POP 21810-21812 StackAdj>                       Δ+8                {[-2-]}
            <MI 21812  MOVE.B  (A6-0x5),(A7)>                                   {[-2-]}
            <Const 0x21816 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21818 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x2181a 0x28.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#40]}
            <MI 2181e  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#40]}
            <Call 0x21820 0x2127a>                                              {[-2-]|[##7]|[#1]|[#40]}
            <POP 21822-21824 StackAdj>                       Δ+10               {}
        <POP 21824-21836 Naked>                              Σ0         ↓ →0x21884 ←0x217c4
            <POP 21824-21826 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21826 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x2182a 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 21830-21832 StackAdj>                       Δ+2                {[-2-]}
            <MI 21832  TST.B   (A7)+>                        Δ+2                {}
            <MI 21834  BEQ     0x21884>                                         {}
        <POP 21836-21884 Naked>                              Σ0         ↓
            <Const 0x21836 0xf.2>                            Δ-2                {[#15]}
            <Pointer.fp 0x2183a <LVAR -0x007 @ 1(r)>>        Δ-4                {[#15]|[@@-7]}
            <Pointer.fp 0x2183e <LVAR -0x006 @ 1(r)>>        Δ-4                {[#15]|[@@-7]|[@@-6]}
            <Pointer.fp 0x21842 <LVAR -0x005 @ 1(r)>>        Δ-4                {[#15]|[@@-7]|[@@-6]|[@@-5]}
            <Call 0x21846 0x22cc6>                                              {[#15]|[@@-7]|[@@-6]|[@@-5]}
            <POP 2184c-2184e StackAdj>                       Δ+12               {[#15]}
            <MI 2184e  MOVE.B  (A6-0x7),(A7)>                                   {[-2-]}
            <Const 0x21852 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21854 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x21856 0x29.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#41]}
            <MI 2185a  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#41]}
            <Call 0x2185c 0x2127a>                                              {[-2-]|[##7]|[#1]|[#41]}
            <POP 2185e-21860 StackAdj>                       Δ+8                {[-2-]}
            <MI 21860  MOVE.B  (A6-0x6),(A7)>                                   {[-2-]}
            <Const 0x21864 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21866 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x21868 0x2a.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#42]}
            <MI 2186c  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#42]}
            <Call 0x2186e 0x2127a>                                              {[-2-]|[##7]|[#1]|[#42]}
            <POP 21870-21872 StackAdj>                       Δ+8                {[-2-]}
            <MI 21872  MOVE.B  (A6-0x5),(A7)>                                   {[-2-]}
            <Const 0x21876 0x7.4>                            Δ-4                {[-2-]|[##7]}
            <Const 0x21878 0x1.2>                            Δ-2                {[-2-]|[##7]|[#1]}
            <Const 0x2187a 0x2b.2>                           Δ-2                {[-2-]|[##7]|[#1]|[#43]}
            <MI 2187e  LEA.L   (A6-0x20),A4>                                    {[-2-]|[##7]|[#1]|[#43]}
            <Call 0x21880 0x2127a>                                              {[-2-]|[##7]|[#1]|[#43]}
            <POP 21882-21884 StackAdj>                       Δ+10               {}
        <POP 21884-2188c Epilogue>                           Σ0         ←0x21824

0x2188c


@ 2188c
        <LVAR -0x003 1(w)>
        <LVAR -0x004 1(w) 2(r)>
        <LVAR -0x005 1(r)>
        <LVAR -0x006 @ 1(r) 2(r)>
        <LVAR -0x010 @>
        <LVAR -0x018 @>
        <LVAR -0x020 @>
        <LVAR -0x028 @>
        <LVAR -0x030 @>
        <LVAR -0x038 @>
        <LVAR -0x040 @>
        <LVAR -0x048 @>
        <LVAR -0x050 @>
        <LVAR -0x058 @>
        <LVAR -0x060 @>
        <LVAR -0x068 @>
        <LVAR -0x070 @>
        <LVAR -0x078 @>
        <LVAR -0x080 @>
        <LVAR -0x088 @>
        <LVAR -0x090 @>
    <POP 2188c-219cc Body>                                              
        <POP 2188c-218a2 Prologue>                           Σ0         ↓
        <POP 218a2-218a8 RegCacheLoad>                       Σ0         ↓
        <POP 218a8-2193e Naked>                              Σ0         ↓
            <MI 218a8  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x218aa <LVAR -0x006 @ 1(r) 2(r)>>   Δ-4                {[#0]|[@@-6]}
            <Call 0x218ac 0x22de0>                                              {[#0]|[@@-6]}
                exp_READ_TRACE_ADDRESS.IOC(Sw_1, &Sr_2)
            <POP 218b2-218b4 StackAdj>                       Δ+6                {}
            <MI 218b4  CLR.L   D0>                                              {}
            <MI 218b6  MOVE.B  (A6-0x6),D0>                                     {}
            <MI 218b8  ASL.W   #0x8,D0>                                         {}
            <MI 218ba  CLR.L   D1>                                              {}
            <MI 218bc  MOVE.B  (A6-0x5),D1>                                     {}
            <MI 218c0  ADD.W   D0,D1>                                           {}
            <MI 218c2  MOVE.W  D1,D5>                                           {}
            <MI 218c4  CLR.L   D0>                                              {}
            <MI 218c6  MOVE.W  D5,D0>                                           {}
            <MI 218c8  SUB.L   #0x40,D0>                                        {}
            <MI 218ca  SUBQ.L  #0x2,D0>                                         {}
            <MI 218cc  ANDI.L  #0x000007ff,D0>                                  {}
            <MI 218d2  MOVE.W  D0,D5>                                           {}
            <MI 218d4  MOVE.W  D5,D0>                                           {}
            <MI 218d6  LSR.W   #0x8,D0>                                         {}
            <MI 218d8  MOVE.B  D0,(A6-0x4)>                                     {}
            <MI 218dc  MOVE.W  D5,D0>                                           {}
            <MI 218de  ANDI.W  #0x00ff,D0>                                      {}
            <MI 218e2  MOVE.B  D0,(A6-0x3)>                                     {}
            <MI 218e6  MOVE.W  (A6-0x4),-(A7)>               Δ-2                {[2, '(A6-0x4)']}
            <MI 218ea  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x4)']|[#0]}
            <Call 0x218ec 0x22e24>                                              {[2, '(A6-0x4)']|[#0]}
                exp_LOAD_TRACE_ADDRESS.IOC(Sw_2, Sw_1)
            <POP 218f2-218f4 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x218f4 <LVAR -0x088 @>>             Δ-4                {[@@-136]}
            <Pointer.fp 0x218f8 <LVAR -0x080 @>>             Δ-4                {[@@-136]|[@@-128]}
            <Pointer.fp 0x218fc <LVAR -0x078 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]}
            <Pointer.fp 0x21900 <LVAR -0x070 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]}
            <Pointer.fp 0x21904 <LVAR -0x068 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]}
            <Pointer.fp 0x21908 <LVAR -0x060 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]}
            <Pointer.fp 0x2190c <LVAR -0x058 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]}
            <Pointer.fp 0x21910 <LVAR -0x050 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]}
            <Pointer.fp 0x21914 <LVAR -0x048 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]}
            <Pointer.fp 0x21918 <LVAR -0x040 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]}
            <Pointer.fp 0x2191c <LVAR -0x038 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]|[@@-56]}
            <Pointer.fp 0x21920 <LVAR -0x030 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]|[@@-56]|[@@-48]}
            <Pointer.fp 0x21924 <LVAR -0x028 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]|[@@-56]|[@@-48]|[@@-40]}
            <Pointer.fp 0x21928 <LVAR -0x020 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]|[@@-56]|[@@-48]|[@@-40]|[@@-32]}
            <Pointer.fp 0x2192c <LVAR -0x018 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]|[@@-56]|[@@-48]|[@@-40]|[@@-32]|[@@-24]}
            <Pointer.fp 0x21930 <LVAR -0x010 @>>             Δ-4                {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]|[@@-56]|[@@-48]|[@@-40]|[@@-32]|[@@-24]|[@@-16]}
            <Call 0x21934 0x22dae>                                              {[@@-136]|[@@-128]|[@@-120]|[@@-112]|[@@-104]|[@@-96]|[@@-88]|[@@-80]|[@@-72]|[@@-64]|[@@-56]|[@@-48]|[@@-40]|[@@-32]|[@@-24]|[@@-16]}
                exp_READ_TRACE_BLOCK.IOC(&Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8)
            <POP 2193a-2193c StackAdj>                       Δ+64               {}
            <MI 2193c  MOVEQ.L #0x00,D6>                                        {}
        <POP 2193e-21940 Naked>                              Σ0         ↓ ←0x219ae
            <MI 2193e  MOVEQ.L #0x00,D7>                                        {}
        <POP 21940-219ae Naked>                              Σ0         ↓ →0x21940 ←0x21940
            <MI 21940  MOVE.L  D6,D0>                                           {}
            <MI 21942  ASL.L   #0x2,D0>                                         {}
            <MI 21944  NEG.L   D0>                                              {}
            <MI 21946  ADDI.L  #0x0000003f,D0>                                  {}
            <MI 2194c  SUB.L   D7,D0>                                           {}
            <POP 0x2194e LimitCheck 0x0 ≤ D0 ≤ 0x3f>                            {}
            <MI 21958  ASL.L   #0x1,D0>                                         {}
            <MI 2195a  LEA.L   0x23050,A0>                                      {}
            <POP 0x21960 LimitCheck 0x0 ≤ D6 ≤ 0xf>                             {}
            <MI 2196a  MOVE.L  D6,D1>                                           {}
            <MI 2196c  ASL.L   #0x3,D1>                                         {}
            <MI 2196e  LEA.L   (A6-0x90),A1>                                    {}
            <MI 21972  MOVE.L  D7,D2>                                           {}
            <MI 21974  ASL.L   #0x1,D2>                                         {}
            <POP 0x21976 LimitCheck 0x0 ≤ D2 ≤ 0x7>                             {}
            <MI 21980  LEA.L   (A1+D1.L),A1>                                    {}
            <MI 21984  CLR.L   D1>                                              {}
            <MI 21986  MOVE.B  (A1+D2.L+#0x8),D1>                               {}
            <MI 2198a  ASL.W   #0x8,D1>                                         {}
            <MI 2198c  ADDQ.L  #0x1,D2>                                         {}
            <POP 0x2198e LimitCheck 0x0 ≤ D2 ≤ 0x7>                             {}
            <MI 21998  CLR.L   D3>                                              {}
            <MI 2199a  MOVE.B  (A1+D2.L+#0x8),D3>                               {}
            <MI 2199e  ADD.W   D1,D3>                                           {}
            <MI 219a0  MOVE.W  D3,(A0+D0.L+#0x8)>                               {}
            <MI 219a4  ADDQ.L  #0x1,D7>                                         {}
            <MI 219a6  CMPI.L  #0x00000003,D7>                                  {}
            <MI 219ac  BLE     0x21940>                                         {}
        <POP 219ae-219b8 Naked>                              Σ0         ↓ →0x2193e
            <MI 219ae  ADDQ.L  #0x1,D6>                                         {}
            <MI 219b0  CMPI.L  #0x0000000f,D6>                                  {}
            <MI 219b6  BLE     0x2193e>                                         {}
        <POP 219b8-219c4 Naked>                              Σ0         ↓
            <MI 219b8  MOVE.W  (A6-0x6),-(A7)>               Δ-2                {[2, '(A6-0x6)']}
            <MI 219ba  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x6)']|[#0]}
            <Call 0x219bc 0x22e24>                                              {[2, '(A6-0x6)']|[#0]}
                exp_LOAD_TRACE_ADDRESS.IOC(Sw_2, Sw_1)
            <POP 219c2-219c4 StackAdj>                       Δ+4                {}
        <POP 219c4-219cc Epilogue>                           Σ0         

0x219cc


@ 219cc
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x00a @ 4(r)>
        <LVAR -0x00b @ 1(r)>
    <POP 219cc-21bda Body>                                   Δ+2        
        <POP 219cc-219e2 Prologue>                           Σ0         ↓
        <POP 219e2-219fc RegCacheLoad>                       Σ0         ↓
        <POP 219fc-21a1c Naked>                              Σ0         ↓
            <Blob 0x219fc [14] @>                            Δ-14               {[«14""»]}
            <POP 21a08-21a0a StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x21a0a 14>                                                    {[«14""»]|[$$  uaddr trace:]}
            <Call 0x21a16 0x103d8>                                              {[«14""»]|[$$  uaddr trace:]}
                WriteConsoleString(str : String)
            <POP 21a18-21a1a StackAdj>                       Δ+18               {}
            <MI 21a1a  MOVEQ.L #0x04,D7>                                        {}
        <POP 21a1c-21a5e Naked>                              Σ0         ↓ →0x21a64 ←0x21a68
            <Blob 0x21a1c [2] @>                             Δ-2                {[«2""»]}
            <POP 21a20-21a22 StackAdj>                       Δ-8                {[«2""»]|[-8-]}
            <Lit 0x21a22 2>                                                     {[«2""»]|[-4-]|[$$ _]}
            <MI 21a2c  MOVE.L  D7,(A7)>                                         {[«2""»]|[-4-]|[4, 'D7']}
            <POP 21a2a-21a2c StackAdj>                       Δ-8                {[«2""»]|[-4-]|[4, 'D7']|[-8-]}
            <Call 0x21a2e 0x102e4>                                              {[«2""»]|[-4-]|[4, 'D7']|[-8-]}
                Long2String(a : Long) : String
            <POP 21a34-21a36 StackAdj>                       Δ+4                {[«2""»]|[-4-]|[4, 'D7']|[-4-]}
            <Call 0x21a36 0x102d0>                                              {[«2""»]|[-4-]|[4, 'D7']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21a3c-21a3e StackAdj>                       Δ+8                {[«2""»]|[-4-]}
            <Call 0x21a3e 0x103d8>                                              {[«2""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 21a40-21a42 StackAdj>                       Δ+6                {}
            <MI 21a42  MOVE.L  D7,D0>                                           {}
            <MI 21a44  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x21a46 LimitCheck 0x0 ≤ D0 ≤ 0x3f>                            {}
            <MI 21a4c  ASL.L   #0x1,D0>                                         {}
            <MI 21a4e  LEA.L   0x23050,A0>                                      {}
            <MI 21a54  MOVE.W  (A0+D0.L+#0x8),D0>                               {}
            <MI 21a58  ANDI.W  #0x8000,D0>                                      {}
            <MI 21a5c  BNE     0x21a64>                                         {}
        <POP 21a5e-21a64 Naked>                              Σ0 Δ-2     →0x21a68
            <Blob 0x21a5e [2] @>                             Δ-2                {[«2""»]}
            <MI 21a62  BRA     0x21a68>                                         {[«2""»]}
        <POP 21a64-21a68 Naked>                              Σ0 Δ-2     ↓ ←0x21a1c
            <Blob 0x21a64 [2] @>                             Δ-2                {[«2""»]}
        <POP 21a68-21ab2 Naked>                              Σ-2 Δ+2    ↓ →0x21a1c ←0x21a5e
            <POP 21a68-21a6a StackAdj>                       Δ-4                {[-6-]}
            <Lit 0x21a6a>                                                       {[-2-]|[$$…]}
                <Pointer.sp 0x21a6a 4>                       Δ-4        
                <Const 0x21a6e 0x1.2>                        Δ-2        
                <Const 0x21a70 0x2.2>                        Δ-2        
                <Call 0x21a72 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21a74-21a76 StackAdj>                   Δ+8        
            <Call 0x21a76 0x103d8>                                              {[-2-]|[$$…]}
                WriteConsoleString(str : String)
            <POP 21a78-21a7a StackAdj>                       Δ+6                {}
            <POP 21a7a-21a7c StackAdj>                       Δ-4                {[-4-]}
            <POP 0x21a7c LimitCheck 0x0 ≤ D7 ≤ 0x3f>                            {[-4-]}
            <MI 21a82  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 21a84  ASL.L   #0x1,D0>                                         {[-4-]}
            <MI 21a86  LEA.L   0x23050,A0>                                      {[-4-]}
            <MI 21a8c  MOVE.W  (A0+D0.L+#0x8),D0>                               {[-4-]}
            <MI 21a90  ANDI.W  #0x3fff,D0>                                      {[-4-]}
            <MI 21a94  CLR.L   D1>                                              {[-4-]}
            <MI 21a96  MOVE.W  D0,D1>                                           {[-4-]}
            <MI 21a98  MOVE.L  D1,-(A7)>                     Δ-4                {[-4-]|[4, 'D1']}
            <Const 0x21a9a 0x4.4>                            Δ-4                {[-4-]|[4, 'D1']|[##4]}
            <Call 0x21a9e 0x102e8>                                              {[-4-]|[4, 'D1']|[##4]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 21aa4-21aa6 StackAdj>                       Δ+8                {[-4-]}
            <Call 0x21aa6 0x103d8>                                              {[-4-]}
                WriteConsoleString(str : String)
            <POP 21aa8-21aaa StackAdj>                       Δ+4                {}
            <MI 21aaa  SUBQ.L  #0x1,D7>                                         {}
            <MI 21aac  CMP.L   #0x01,D7>                                        {}
            <MI 21aae  BGE     0x21a1c>                                         {}
        <POP 21ab2-21af0 Naked>                              Σ0         ↓ →0x21ba6
            <Blob 0x21ab2 [10] @>                            Δ-10               {[«10""»]}
            <POP 21abe-21ac0 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x21ac0 10>                                                    {[«10""»]|[$$LAST_UCODE]}
            <POP 21acc-21ace StackAdj>                       Δ-2                {[«10""»]|[$$LAST_UCODE]|[-2-]}
            <MI 21ace  CLR.B   (A7)>                                            {[«10""»]|[$$LAST_UCODE]|[-2-]}
            <MI 21ad0  CLR.B   -(A7)>                        Δ-2                {[«10""»]|[$$LAST_UCODE]|[-2-]|[#0]}
            <Const 0x21ad2 0x0.4>                            Δ-4                {[«10""»]|[$$LAST_UCODE]|[-2-]|[#0]|[##0]}
            <Pointer.fp 0x21ad6 <LVAR -0x00b @ 1(r)>>        Δ-4                {[«10""»]|[$$LAST_UCODE]|[-2-]|[#0]|[##0]|[@@-11]}
            <Pointer.fp 0x21ada <LVAR -0x00a @ 4(r)>>        Δ-4                {[«10""»]|[$$LAST_UCODE]|[-2-]|[#0]|[##0]|[@@-11]|[@@-10]}
            <Call 0x21ade 0x10380>                                              {[«10""»]|[$$LAST_UCODE]|[-2-]|[#0]|[##0]|[@@-11]|[@@-10]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 21ae4-21ae8 StackAdj>                       Δ+30               {}
            <MI 21ae8  TST.B   (A6-0xb)>                                        {}
            <MI 21aec  BNE     0x21ba6>                                         {}
        <POP 21af0-21b36 Naked>                              Σ0 Δ-2     ↓ →0x21b74
            <Pointer.fp 0x21af0 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x21af2 0x102b8>                                              {[@@-6]}
                NewString(VAR a : String)
            <MI 21af8  MOVE.L  (A6-0xa),(A7)>                                   {[4, '(A6-0xa)']}
            <MI 21afc  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0xa)']|[#0]}
            <MI 21afe  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0xa)']|[#0]|[#0]}
            <Const 0x21b00 0x40.2>                           Δ-2                {[4, '(A6-0xa)']|[#0]|[#0]|[#64]}
            <Const 0x21b04 0x2.2>                            Δ-2                {[4, '(A6-0xa)']|[#0]|[#0]|[#64]|[#2]}
            <MI 21b06  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0xa)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0x6)']}
            <Pointer.fp 0x21b08 <LVAR -0x00b @ 1(r)>>        Δ-4                {[4, '(A6-0xa)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0x6)']|[@@-11]}
            <Call 0x21b0c 0x10384>                                              {[4, '(A6-0xa)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0x6)']|[@@-11]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 21b12-21b14 StackAdj>                       Δ+18               {[-2-]}
            <POP 21b14-21b15 StackAdj>                       Δ+2                {}
            <Blob 0x21b15 [2] @>                             Δ-2                {[«2""»]}
            <POP 21b18-21b1a StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <MI 21b1a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[«2""»]|[-4-]|[4, '(A6-0x6)']}
            <POP 21b1c-21b1e StackAdj>                       Δ-4                {[«2""»]|[-4-]|[4, '(A6-0x6)']|[-4-]}
            <Lit 0x21b1e 2>                                                     {[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$. ]}
            <Call 0x21b2a 0x10300>                                              {[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$. ]}
                FSCALL_10300
            <POP 21b30-21b32 StackAdj>                       Δ+8                {[«2""»]|[-4-]}
            <MI 21b32  TST.L   (A7)+>                        Δ+4                {[«2""»]}
            <MI 21b34  BLE     0x21b74>                                         {[«2""»]}
        <POP 21b36-21b74 Naked>                              Σ-2        ↓
            <MI 21b36  MOVEA.L (A6-0x6),A0>                                     {[-2-]}
            <Blob 0x21b38 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <POP 21b3c-21b3e StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <MI 21b3e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']}
            <POP 21b40-21b42 StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[-4-]}
            <Lit 0x21b42 2>                                                     {[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$. ]}
            <Call 0x21b4e 0x10300>                                              {[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$. ]}
                FSCALL_10300
            <POP 21b54-21b56 StackAdj>                       Δ+8                {[-2-]|[«2""»]|[-4-]}
            <MI 21b56  MOVE.L  (A7)+,D0>                     Δ+4                {[-2-]|[«2""»]}
            <MI 21b58  SUBQ.L  #0x1,D0>                                         {[-2-]|[«2""»]}
            <POP 21b5a-21b5c StackAdj>                       Δ+2                {[-2-]}
            <POP 0x21b5c LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {[-2-]}
            <MI 21b72  MOVE.W  D0,(A0)>                                         {[-2-]}
        <POP 21b74-21ba6 Naked>                              Σ-2 Δ+2    →0x21bd2 ←0x21af0
            <POP 21b74-21b76 StackAdj>                       Δ+2                {}
            <Blob 0x21b76 [10] @>                            Δ-10               {[«10""»]}
            <POP 21b82-21b84 StackAdj>                       Δ-8                {[«10""»]|[-8-]}
            <Lit 0x21b84 10>                                                    {[«10""»]|[-4-]|[$$  --ucode_]}
            <POP 21b90-21b92 StackAdj>                       Δ-4                {[«10""»]|[-4-]|[$$  --ucode_]|[-4-]}
            <MI 21b92  MOVE.L  (A6-0x6),(A7)>                                   {[«10""»]|[-4-]|[$$  --ucode_]|[4, '(A6-0x6)']}
            <Call 0x21b94 0x102d0>                                              {[«10""»]|[-4-]|[$$  --ucode_]|[4, '(A6-0x6)']}
                StringCat2(a, b : String) : String
            <POP 21b9a-21b9c StackAdj>                       Δ+8                {[«10""»]|[-4-]}
            <Call 0x21b9c 0x103e0>                                              {[«10""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21ba2-21ba4 StackAdj>                       Δ+14               {}
            <MI 21ba4  BRA     0x21bd2>                                         {}
        <POP 21ba6-21bd2 Naked>                              Σ0         ↓ ←0x21ab2
            <Blob 0x21ba6 [22] @>                            Δ-22               {[«22""»]}
            <POP 21bb8-21bba StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x21bba 21>                                                    {[«22""»]|[$$  ** ucode version ??]}
            <Call 0x21bc8 0x103e0>                                              {[«22""»]|[$$  ** ucode version ??]}
                WriteConsoleStringCrLf(str : String)
            <POP 21bce-21bd2 StackAdj>                       Δ+26               {}
        <POP 21bd2-21bda Epilogue>                           Σ0         ←0x21b74

0x21bda


@ 21bda
        <LVAR  0x00c 1(rw)>
        <LVAR  0x008 4(r)>
    <POP 21bda-21c52 Body>                                              
        <POP 21bda-21bf0 Prologue>                           Σ0         ↓
        <POP 21bf0-21bf2 RegCacheLoad>                       Σ0         ↓
        <POP 21bf2-21bf4 Naked>                              Σ0         ↓
            <MI 21bf2  MOVEQ.L #0x01,D7>                                        {}
        <POP 21bf4-21c04 Naked>                              Σ0         ↓ →0x21bf4 ←0x21bf4
            <MI 21bf4  MOVE.B  D7,D0>                                           {}
            <MI 21bf6  EXTB.W  D0>                                              {}
            <MI 21bf8  CLR.B   (A6+D0.W-#0xe)>                                  {}
            <MI 21bfc  ADDQ.B  #0x1,D7>                                         {}
            <MI 21bfe  CMPI.B  #0x0b,D7>                                        {}
            <MI 21c02  BLE     0x21bf4>                                         {}
        <POP 21c04-21c06 Naked>                              Σ0         ↓
            <MI 21c04  MOVEQ.L #0x00,D6>                                        {}
        <POP 21c06-21c14 Naked>                              Σ0         ↓ →0x21c28 ←0x21c28
            <MI 21c06  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21c0a  MOVE.B  D6,D0>                                           {}
            <MI 21c0c  EXTB.W  D0>                                              {}
            <MI 21c0e  TST.B   (A0+D0.W)>                                       {}
            <MI 21c12  BEQ     0x21c28>                                         {}
        <POP 21c14-21c28 Naked>                              Σ0         ↓
            <MI 21c14  MOVE.B  D6,D0>                                           {}
            <MI 21c16  EXTB.W  D0>                                              {}
            <MI 21c18  ASL.W   #0x5,D0>                                         {}
            <MI 21c1a  LEA.L   0x20cfa,A0>                                      {}
            <MI 21c1e  MOVE.B  (A0+D0.W+#0x1f),D1>                              {}
            <MI 21c22  EXTB.W  D1>                                              {}
            <MI 21c24  MOVE.B  #0x01,(A6+D1.W-#0xe)>                            {}
        <POP 21c28-21c30 Naked>                              Σ0         ↓ →0x21c06 ←0x21c06
            <MI 21c28  ADDQ.B  #0x1,D6>                                         {}
            <MI 21c2a  CMPI.B  #0x2b,D6>                                        {}
            <MI 21c2e  BLE     0x21c06>                                         {}
        <POP 21c30-21c36 Naked>                              Σ0         ↓
            <MI 21c30  CLR.B   (A6+0xc)>                                        {}
            <MI 21c34  MOVEQ.L #0x0b,D7>                                        {}
        <POP 21c36-21c40 Naked>                              Σ0         ↓ →0x21c44 ←0x21c44
            <MI 21c36  MOVE.B  D7,D0>                                           {}
            <MI 21c38  EXTB.W  D0>                                              {}
            <MI 21c3a  TST.B   (A6+D0.W-#0xe)>                                  {}
            <MI 21c3e  BEQ     0x21c44>                                         {}
        <POP 21c40-21c44 Naked>                              Σ0         ↓
            <MI 21c40  MOVE.B  D7,(A6+0xc)>                                     {}
        <POP 21c44-21c4a Naked>                              Σ0         ↓ →0x21c36 ←0x21c36
            <MI 21c44  SUBQ.B  #0x1,D7>                                         {}
            <MI 21c46  CMP.B   #0x01,D7>                                        {}
            <MI 21c48  BGE     0x21c36>                                         {}
        <POP 21c4a-21c52 Epilogue>                           Σ0         

0x21c52


@ 21c52
        <LVAR  0x03a 4(w)>
        <LVAR  0x036 4(w)>
        <LVAR  0x008 1(r)>
        <LVAR -0x00a 4(r)>
        <LVAR -0x00e 4(r)>
    <POP 21c52-21d16 Body>                                              
        <POP 21c52-21c68 Prologue>                           Σ0         ↓
        <POP 21c68-21c6e RegCacheLoad>                       Σ0         ↓
        <POP 21c6e-21c70 Naked>                              Σ0         ↓
            <MI 21c6e  MOVEQ.L #0x00,D7>                                        {}
        <POP 21c70-21c80 Naked>                              Σ0         ↓ →0x21c70 ←0x21c70
            <POP 0x21c70 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <MI 21c76  CLR.B   (A6+D7.L-#0xe)>                                  {}
            <MI 21c7a  ADDQ.L  #0x1,D7>                                         {}
            <MI 21c7c  CMP.L   #0x07,D7>                                        {}
            <MI 21c7e  BLE     0x21c70>                                         {}
        <POP 21c80-21c86 Naked>                              Σ0         ↓
            <MI 21c80  MOVEQ.L #0x00,D7>                                        {}
            <MI 21c82  MOVEQ.L #0x0f,D6>                                        {}
            <MI 21c84  MOVEQ.L #0x00,D5>                                        {}
        <POP 21c86-21c90 Naked>                              Σ0         ↓ →0x21cfa ←0x21cfa
            <MI 21c86  MOVE.B  D5,D0>                                           {}
            <MI 21c88  EXTB.W  D0>                                              {}
            <MI 21c8a  TST.B   (A6+D0.W+#0xa)>                                  {}
            <MI 21c8e  BEQ     0x21cfa>                                         {}
        <POP 21c90-21ca2 Naked>                              Σ0         ↓ →0x21cfa
            <MI 21c90  MOVE.B  D5,D0>                                           {}
            <MI 21c92  EXTB.W  D0>                                              {}
            <MI 21c94  ASL.W   #0x5,D0>                                         {}
            <MI 21c96  LEA.L   0x20cfa,A0>                                      {}
            <MI 21c98  MOVE.B  (A6+0x8),D1>                                     {}
            <MI 21c9c  CMP.B   (A0+D0.W+#0x1f),D1>                              {}
            <MI 21ca0  BNE     0x21cfa>                                         {}
        <POP 21ca2-21caa Naked>                              Σ0         ↓ →0x21cfa
            <MI 21ca2  LEA.L   0x20cfa,A0>                                      {}
            <MI 21ca4  CMP.B   (A0+D0.W+#0x1e),D6>                              {}
            <MI 21ca8  BEQ     0x21cfa>                                         {}
        <POP 21caa-21cae Naked>                              Σ0         ↓ →0x21ce4
            <MI 21caa  CMP.L   #0x07,D7>                                        {}
            <MI 21cac  BLE     0x21ce4>                                         {}
        <POP 21cae-21ce4 Naked>                              Σ0         ↓
            <Blob 0x21cae [24] @>                            Δ-24               {[«24""»]}
            <Const 0x21cc0 0xe.2>                            Δ-2                {[«24""»]|[#14]}
            <POP 21cc4-21cc6 StackAdj>                       Δ-4                {[«24""»]|[#14]|[-4-]}
            <Lit 0x21cc6 23>                                                    {[«24""»]|[#14]|[$$Too many boards failed.]}
            <Call 0x21cda 0x103b8>                                              {[«24""»]|[#14]|[$$Too many boards failed.]}
                PopProgram(status : Byte; msg : String)
            <POP 21ce0-21ce4 StackAdj>                       Δ+30               {}
        <POP 21ce4-21cfa Naked>                              Σ0         ↓ ←0x21caa
            <POP 0x21ce4 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <MI 21cea  LEA.L   0x20cfa,A0>                                      {}
            <MI 21cec  MOVE.B  (A0+D0.W+#0x1e),(A6+D7.L-#0xe)>                  {}
            <MI 21cf2  LEA.L   0x20cfa,A0>                                      {}
            <MI 21cf4  MOVE.B  (A0+D0.W+#0x1e),D6>                              {}
            <MI 21cf8  ADDQ.L  #0x1,D7>                                         {}
        <POP 21cfa-21d02 Naked>                              Σ0         ↓ →0x21c86 ←0x21c86 ←0x21c90 ←0x21ca2
            <MI 21cfa  ADDQ.B  #0x1,D5>                                         {}
            <MI 21cfc  CMPI.B  #0x2b,D5>                                        {}
            <MI 21d00  BLE     0x21c86>                                         {}
        <POP 21d02-21d0e Naked>                              Σ0         ↓
            <MI 21d02  MOVE.L  (A6-0xe),(A6+0x36)>                              {}
            <MI 21d08  MOVE.L  (A6-0xa),(A6+0x3a)>                              {}
        <POP 21d0e-21d16 Epilogue>                           Σ0         

0x21d16


@ 21d16
        <LVAR  0x008 1(r)>
        <LVAR -0x003 @ 1(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x005 @ 1(r)>
        <LVAR -0x006 @ 1(r)>
    <POP 21d16-21e74 Body>                                   Δ+6        
        <POP 21d16-21d2c Prologue>                           Σ0         ↓
        <POP 21d2c-21d44 RegCacheLoad>                       Σ0         ↓
        <POP 21d44-21d6a Naked>                              Σ0         ↓ →0x21d78
            <MI 21d44  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Pointer.fp 0x21d48 <LVAR -0x006 @ 1(r)>>        Δ-4                {[2, '(A6+0x8)']|[@@-6]}
            <Pointer.fp 0x21d4c <LVAR -0x005 @ 1(r)>>        Δ-4                {[2, '(A6+0x8)']|[@@-6]|[@@-5]}
            <Pointer.fp 0x21d50 <LVAR -0x004 @ 1(r)>>        Δ-4                {[2, '(A6+0x8)']|[@@-6]|[@@-5]|[@@-4]}
            <Pointer.fp 0x21d54 <LVAR -0x003 @ 1(r)>>        Δ-4                {[2, '(A6+0x8)']|[@@-6]|[@@-5]|[@@-4]|[@@-3]}
            <Call 0x21d58 0x22bca>                                              {[2, '(A6+0x8)']|[@@-6]|[@@-5]|[@@-4]|[@@-3]}
            <POP 21d5e-21d60 StackAdj>                       Δ+18               {}
            <MI 21d60  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 21d64  CMPI.B  #0x0c,D0>                                        {}
            <MI 21d68  BNE     0x21d78>                                         {}
        <POP 21d6a-21d78 Naked>                              Σ0 Δ-6     →0x21d84
            <Blob 0x21d6a [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21d6e [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21d72 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <MI 21d76  BRA     0x21d84>                                         {[«2""»]|[«2""»]|[«2""»]}
        <POP 21d78-21d84 Naked>                              Σ0 Δ-6     ↓ ←0x21d44
            <Blob 0x21d78 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21d7c [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21d80 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
        <POP 21d84-21e6c Naked>                              Σ-6 Δ+6    ↓ ←0x21d6a
            <POP 21d84-21d86 StackAdj>                       Δ-4                {[-10-]}
            <Lit 0x21d86>                                                       {[-6-]|[$$…]}
                <Pointer.sp 0x21d86 4>                       Δ-4        
                <Const 0x21d8a 0x1.2>                        Δ-2        
                <Const 0x21d8c 0x6.2>                        Δ-2        
                <Call 0x21d90 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21d92-21d94 StackAdj>                   Δ+8        
            <Call 0x21d94 0x103d8>                                              {[-6-]|[$$…]}
                WriteConsoleString(str : String)
            <POP 21d9a-21d9e StackAdj>                       Δ+10               {}
            <Blob 0x21d9e [18] @>                            Δ-18               {[«18""»]}
            <Blob 0x21dae [18] @>                            Δ-18               {[«18""»]|[«18""»]}
            <POP 21dbe-21dc0 StackAdj>                       Δ-8                {[«18""»]|[«18""»]|[-8-]}
            <Lit 0x21dc0 17>                                                    {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]}
            <POP 21dca-21dcc StackAdj>                       Δ-4                {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]}
            <MI 21dcc  CLR.L   D0>                                              {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]}
            <MI 21dce  MOVE.B  (A6-0x6),D0>                                     {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]}
            <MI 21dd2  MOVE.L  D0,-(A7)>                     Δ-4                {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]|[4, 'D0']}
            <Const 0x21dd4 0x2.4>                            Δ-4                {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]|[4, 'D0']|[##2]}
            <Call 0x21dd6 0x102e8>                                              {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]|[4, 'D0']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 21dd8-21dda StackAdj>                       Δ+4                {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]|[4, 'D0']}
            <Lit 0x21dda 17>                                                    {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]|[$$, TSB_STORED_PAR=]}
            <POP 21de4-21de6 StackAdj>                       Δ-4                {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]|[$$, TSB_STORED_PAR=]|[-4-]}
            <MI 21de6  CLR.L   D0>                                              {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]|[$$, TSB_STORED_PAR=]|[-4-]}
            <MI 21de8  MOVE.B  (A6-0x4),D0>                                     {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]|[$$, TSB_STORED_PAR=]|[-4-]}
            <MI 21dec  MOVE.L  D0,-(A7)>                     Δ-4                {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]|[$$, TSB_STORED_PAR=]|[-4-]|[4, 'D0']}
            <Const 0x21dee 0x2.4>                            Δ-4                {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]|[$$, TSB_STORED_PAR=]|[-4-]|[4, 'D0']|[##2]}
            <Call 0x21df0 0x102e8>                                              {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]|[$$, TSB_STORED_PAR=]|[-4-]|[4, 'D0']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 21df2-21df4 StackAdj>                       Δ+8                {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]|[$$, TSB_STORED_PAR=]|[-4-]}
            <Call 0x21df4 0x102d8>                                              {[«18""»]|[«18""»]|[-4-]|[$$: TSA_STORED_PAR=]|[-4-]|[$$, TSB_STORED_PAR=]|[-4-]}
                StringCat4(a, b, c, d : String) : String
            <POP 21dfa-21dfc StackAdj>                       Δ+16               {[«18""»]|[«18""»]|[-4-]}
            <Call 0x21dfc 0x103e0>                                              {[«18""»]|[«18""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21e02-21e03 StackAdj>                       Δ+40       ↓       {}
            <Blob 0x21e03 [24] @>                            Δ-24               {[«24""»]}
            <Blob 0x21e12 [18] @>                            Δ-18               {[«24""»]|[«18""»]}
            <POP 21e22-21e24 StackAdj>                       Δ-8                {[«24""»]|[«18""»]|[-8-]}
            <Lit 0x21e24 23>                                                    {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]}
            <POP 21e30-21e32 StackAdj>                       Δ-4                {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]}
            <MI 21e32  CLR.L   D0>                                              {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]}
            <MI 21e34  MOVE.B  (A6-0x5),D0>                                     {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]}
            <MI 21e38  MOVE.L  D0,-(A7)>                     Δ-4                {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]|[4, 'D0']}
            <Const 0x21e3a 0x2.4>                            Δ-4                {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]|[4, 'D0']|[##2]}
            <Call 0x21e3c 0x102e8>                                              {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]|[4, 'D0']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 21e3e-21e40 StackAdj>                       Δ+4                {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]|[4, 'D0']}
            <Lit 0x21e40 17>                                                    {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]|[$$, TSB_EXPECT_PAR=]}
            <POP 21e4a-21e4c StackAdj>                       Δ-4                {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]|[$$, TSB_EXPECT_PAR=]|[-4-]}
            <MI 21e4c  CLR.L   D0>                                              {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]|[$$, TSB_EXPECT_PAR=]|[-4-]}
            <MI 21e4e  MOVE.B  (A6-0x3),D0>                                     {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]|[$$, TSB_EXPECT_PAR=]|[-4-]}
            <MI 21e52  MOVE.L  D0,-(A7)>                     Δ-4                {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]|[$$, TSB_EXPECT_PAR=]|[-4-]|[4, 'D0']}
            <Const 0x21e54 0x2.4>                            Δ-4                {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]|[$$, TSB_EXPECT_PAR=]|[-4-]|[4, 'D0']|[##2]}
            <Call 0x21e56 0x102e8>                                              {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]|[$$, TSB_EXPECT_PAR=]|[-4-]|[4, 'D0']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 21e58-21e5a StackAdj>                       Δ+8                {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]|[$$, TSB_EXPECT_PAR=]|[-4-]}
            <Call 0x21e5a 0x102d8>                                              {[«24""»]|[«18""»]|[-4-]|[$$        TSA_EXPECT_PAR=]|[-4-]|[$$, TSB_EXPECT_PAR=]|[-4-]}
                StringCat4(a, b, c, d : String) : String
            <POP 21e60-21e62 StackAdj>                       Δ+16               {[«24""»]|[«18""»]|[-4-]}
            <Call 0x21e62 0x103e0>                                              {[«24""»]|[«18""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21e68-21e6c StackAdj>                       Δ+46               {}
        <POP 21e6c-21e74 Epilogue>                           Σ0         

0x21e74


@ 21e74
        <LVAR  0x010 4(w)>
        <LVAR -0x00c @ 4(r)>
    <POP 21e74-21f26 Body>                                   Δ+4        
        <POP 21e74-21e8a Prologue>                           Σ0         ↓
        <POP 21e8a-21e94 RegCacheLoad>                       Σ0         ↓
        <POP 21e94-21ea0 Naked>                              Σ0         ↓
            <Pointer.fp 0x21e94 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Call 0x21e96 0x102b8>                                              {[@@-12]}
                NewString(VAR a : String)
            <POP 21e9c-21e9e StackAdj>                       Δ+4                {}
            <MI 21e9e  MOVEQ.L #0x00,D6>                                        {}
        <POP 21ea0-21eae Naked>                              Σ0         ↓ →0x21ebe ←0x21f14
            <MI 21ea0  MOVE.L  D6,D4>                                           {}
            <MI 21ea2  MOVEQ.L #0x02,D3>                                        {}
            <Call 0x21ea4 0x10294>                                              {}
                ?divs_d3_d4
            <MI 21eaa  TST.L   D3>                                              {}
            <MI 21eac  BNE     0x21ebe>                                         {}
        <POP 21eae-21ebe Naked>                              Σ0         →0x21ecc
            <POP 0x21eae LimitCheck 0x0 ≤ D4 ≤ 0x7>                             {}
            <MI 21eb4  CLR.L   D0>                                              {}
            <MI 21eb6  MOVE.B  (A6+D4.L+#0x8),D0>                               {}
            <MI 21eba  ASR.W   #0x4,D0>                                         {}
            <MI 21ebc  BRA     0x21ecc>                                         {}
        <POP 21ebe-21ecc Naked>                              Σ0         ↓ ←0x21ea0
            <POP 0x21ebe LimitCheck 0x0 ≤ D4 ≤ 0x7>                             {}
            <MI 21ec4  CLR.L   D0>                                              {}
            <MI 21ec6  MOVE.B  (A6+D4.L+#0x8),D0>                               {}
            <MI 21eca  AND.W   #0x0f,D0>                                        {}
        <POP 21ecc-21ed4 Naked>                              Σ0         ↓ →0x21ee6 ←0x21eae
            <MI 21ecc  EXTW.L  D0>                                              {}
            <MI 21ece  MOVE.L  D0,D7>                                           {}
            <MI 21ed0  CMP.L   #0x0a,D7>                                        {}
            <MI 21ed2  BGE     0x21ee6>                                         {}
        <POP 21ed4-21ee6 Naked>                              Σ0 Δ-4     →0x21ef8
            <MI 21ed4  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <MI 21ed6  MOVEQ.L #0x30,D0>                                        {[4, '(A6-0xc)']}
            <MI 21ed8  ADD.L   D7,D0>                                           {[4, '(A6-0xc)']}
            <POP 0x21eda LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[4, '(A6-0xc)']}
            <MI 21ee4  BRA     0x21ef8>                                         {[4, '(A6-0xc)']}
        <POP 21ee6-21ef8 Naked>                              Σ0 Δ-4     ↓ ←0x21ecc
            <MI 21ee6  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <MI 21ee8  MOVEQ.L #0x41,D0>                                        {[4, '(A6-0xc)']}
            <MI 21eea  ADD.L   D7,D0>                                           {[4, '(A6-0xc)']}
            <MI 21eec  SUB.L   #0x0a,D0>                                        {[4, '(A6-0xc)']}
            <POP 0x21eee LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[4, '(A6-0xc)']}
        <POP 21ef8-21f06 Naked>                              Σ-4 Δ+4    ↓ →0x21f14 ←0x21ed4
            <MI 21ef8  MOVE.B  D0,-(A7)>                     Δ-2                {[-4-]|[2, 'D0']}
            <Call 0x21efa 0x102c0>                                              {[-4-]|[2, 'D0']}
                AppendChar(MOD b : String; a : char)
            <POP 21f00-21f02 StackAdj>                       Δ+6                {}
            <MI 21f02  CMP.L   #0x07,D6>                                        {}
            <MI 21f04  BNE     0x21f14>                                         {}
        <POP 21f06-21f14 Naked>                              Σ0         ↓
            <MI 21f06  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <Const 0x21f08 0x5f.2>                           Δ-2                {[4, '(A6-0xc)']|[#95]}
            <Call 0x21f0c 0x102c0>                                              {[4, '(A6-0xc)']|[#95]}
                AppendChar(MOD b : String; a : char)
            <POP 21f12-21f14 StackAdj>                       Δ+6                {}
        <POP 21f14-21f1a Naked>                              Σ0         ↓ →0x21ea0 ←0x21ef8
            <MI 21f14  ADDQ.L  #0x1,D6>                                         {}
            <MI 21f16  CMP.L   #0x0f,D6>                                        {}
            <MI 21f18  BLE     0x21ea0>                                         {}
        <POP 21f1a-21f1e Naked>                              Σ0         ↓
            <MI 21f1a  MOVE.L  (A6-0xc),(A6+0x10)>                              {}
        <POP 21f1e-21f26 Epilogue>                           Σ0         

0x21f26


@ 21f26
        <LVAR  0x008 1(r)>
        <LVAR -0x009 @>
        <LVAR -0x011 @>
        <LVAR -0x012 @ 1(r)>
        <LVAR -0x013 @>
        <LVAR -0x014 1(r)>
        <LVAR -0x015 @ 1(r)>
        <LVAR -0x016 @ 1(r)>
        <LVAR -0x01a @ 4(r)>
    <POP 21f26-2222a Body>                                   Δ+6        
        <POP 21f26-21f3c Prologue>                           Σ0         ↓
        <POP 21f3c-21f56 RegCacheLoad>                       Σ0         ↓
        <POP 21f56-21f60 Naked>                              Σ0         ↓ →0x21f94
            <MI 21f56  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 21f5a  CMPI.B  #0x07,D0>                                        {}
            <MI 21f5e  BNE     0x21f94>                                         {}
        <POP 21f60-21f94 Naked>                              Σ0 Δ-6     →0x21fc6
            <Blob 0x21f60 [20] @>                            Δ-20               {[«20""»]}
            <POP 21f6c-21f6e StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x21f6e 20>                                                    {[«20""»]|[$$SEARCH_RF_ERRORS.VAL]}
            <Pointer.fp 0x21f7a <LVAR -0x01a @ 4(r)>>        Δ-4                {[«20""»]|[$$SEARCH_RF_ERRORS.VAL]|[@@-26]}
            <Call 0x21f7c 0x10460>                                              {[«20""»]|[$$SEARCH_RF_ERRORS.VAL]|[@@-26]}
                ExpLoad(a : String; b: Pointer)
            <POP 21f82-21f83 StackAdj>                       Δ+28       ↓       {}
            <Blob 0x21f83 [6] @>                             Δ-6                {[«6""»]}
            <MI 21f92  BRA     0x21fc6>                                         {[«6""»]}
        <POP 21f94-21fc6 Naked>                              Σ0 Δ-6     ↓ ←0x21f56
            <Blob 0x21f94 [20] @>                            Δ-20               {[«20""»]}
            <POP 21fa0-21fa2 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x21fa2 20>                                                    {[«20""»]|[$$SEARCH_RF_ERRORS.TYP]}
            <Pointer.fp 0x21fae <LVAR -0x01a @ 4(r)>>        Δ-4                {[«20""»]|[$$SEARCH_RF_ERRORS.TYP]|[@@-26]}
            <Call 0x21fb0 0x10460>                                              {[«20""»]|[$$SEARCH_RF_ERRORS.TYP]|[@@-26]}
                ExpLoad(a : String; b: Pointer)
            <POP 21fb6-21fb7 StackAdj>                       Δ+28       ↓       {}
            <Blob 0x21fb7 [6] @>                             Δ-6                {[«6""»]}
        <POP 21fc6-22080 Naked>                              Σ-6 Δ+6    ↓ →0x221f6 ←0x21f60
            <POP 21fc6-21fc8 StackAdj>                       Δ-4                {[-10-]}
            <Lit 0x21fc8>                                                       {[-6-]|[$$…]}
                <Pointer.sp 0x21fc8 4>                       Δ-4        
                <Const 0x21fcc 0x1.2>                        Δ-2        
                <Const 0x21fce 0x5.2>                        Δ-2        
                <Call 0x21fd2 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21fd4-21fd6 StackAdj>                   Δ+8        
            <Call 0x21fd6 0x103d8>                                              {[-6-]|[$$…]}
                WriteConsoleString(str : String)
            <POP 21fdc-21fe0 StackAdj>                       Δ+10               {}
            <MI 21fe0  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 21fe2  MOVE.B  D0,-(A7)>                     Δ-2                {[#0]|[2, 'D0']}
            <MI 21fe4  MOVE.L  (A6-0x1a),-(A7)>              Δ-4                {[#0]|[2, 'D0']|[4, '(A6-0x1a)']}
            <Call 0x21fe6 0x104ba>                                              {[#0]|[2, 'D0']|[4, '(A6-0x1a)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21fec-21fee StackAdj>                       Δ+4                {[#0]|[2, 'D0']}
            <MI 21fee  MOVE.L  (A6-0x1a),(A7)>                                  {[4, '(A6-0x1a)']}
            <Pointer.fp 0x21ff0 <LVAR -0x016 @ 1(r)>>        Δ-4                {[4, '(A6-0x1a)']|[@@-22]}
            <Call 0x21ff4 0x10478>                                              {[4, '(A6-0x1a)']|[@@-22]}
                ExpOutputFlag(exp : Pointer; VAR status : Bool)
            <POP 21ffa-21ffc StackAdj>                       Δ+4                {[4, '(A6-0x1a)']}
            <MI 21ffc  MOVE.L  (A6-0x1a),(A7)>                                  {[4, '(A6-0x1a)']}
            <Pointer.fp 0x21ffe <LVAR -0x015 @ 1(r)>>        Δ-4                {[4, '(A6-0x1a)']|[@@-21]}
            <Const 0x22002 0x0.4>                            Δ-4                {[4, '(A6-0x1a)']|[@@-21]|[##0]}
            <Const 0x22004 0x1.4>                            Δ-4                {[4, '(A6-0x1a)']|[@@-21]|[##0]|[##1]}
            <Call 0x22008 0x10472>                                              {[4, '(A6-0x1a)']|[@@-21]|[##0]|[##1]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 2200e-22010 StackAdj>                       Δ+12               {[4, '(A6-0x1a)']}
            <MI 22010  MOVE.L  (A6-0x1a),(A7)>                                  {[4, '(A6-0x1a)']}
            <Pointer.fp 0x22012 <LVAR -0x012 @ 1(r)>>        Δ-4                {[4, '(A6-0x1a)']|[@@-18]}
            <Const 0x22016 0x0.4>                            Δ-4                {[4, '(A6-0x1a)']|[@@-18]|[##0]}
            <Const 0x22018 0x0.4>                            Δ-4                {[4, '(A6-0x1a)']|[@@-18]|[##0]|[##0]}
            <Call 0x2201a 0x10472>                                              {[4, '(A6-0x1a)']|[@@-18]|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22020-22022 StackAdj>                       Δ+12               {[4, '(A6-0x1a)']}
            <MI 22022  MOVE.L  (A6-0x1a),(A7)>                                  {[4, '(A6-0x1a)']}
            <Pointer.fp 0x22024 <LVAR -0x011 @>>             Δ-4                {[4, '(A6-0x1a)']|[@@-17]}
            <Const 0x22028 0x0.4>                            Δ-4                {[4, '(A6-0x1a)']|[@@-17]|[##0]}
            <Const 0x2202a 0x7.4>                            Δ-4                {[4, '(A6-0x1a)']|[@@-17]|[##0]|[##7]}
            <Call 0x2202e 0x10472>                                              {[4, '(A6-0x1a)']|[@@-17]|[##0]|[##7]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22034-22036 StackAdj>                       Δ+12               {[4, '(A6-0x1a)']}
            <MI 22036  MOVE.L  (A6-0x1a),(A7)>                                  {[4, '(A6-0x1a)']}
            <Pointer.fp 0x22038 <LVAR -0x013 @>>             Δ-4                {[4, '(A6-0x1a)']|[@@-19]}
            <Const 0x2203c 0x0.4>                            Δ-4                {[4, '(A6-0x1a)']|[@@-19]|[##0]}
            <Const 0x2203e 0x0.4>                            Δ-4                {[4, '(A6-0x1a)']|[@@-19]|[##0]|[##0]}
            <Call 0x22040 0x10472>                                              {[4, '(A6-0x1a)']|[@@-19]|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22046-22048 StackAdj>                       Δ+12               {[4, '(A6-0x1a)']}
            <MI 22048  MOVE.L  (A6-0x1a),(A7)>                                  {[4, '(A6-0x1a)']}
            <Pointer.fp 0x2204a <LVAR -0x009 @>>             Δ-4                {[4, '(A6-0x1a)']|[@@-9]}
            <Const 0x2204e 0x0.4>                            Δ-4                {[4, '(A6-0x1a)']|[@@-9]|[##0]}
            <Const 0x22050 0x7.4>                            Δ-4                {[4, '(A6-0x1a)']|[@@-9]|[##0]|[##7]}
            <Call 0x22054 0x10472>                                              {[4, '(A6-0x1a)']|[@@-9]|[##0]|[##7]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 2205a-2205c StackAdj>                       Δ+12               {[4, '(A6-0x1a)']}
            <MI 2205c  MOVE.L  (A6-0x1a),(A7)>                                  {[4, '(A6-0x1a)']}
            <Pointer.fp 0x2205e <LVAR -0x013 @>>             Δ-4                {[4, '(A6-0x1a)']|[@@-19]}
            <Const 0x22062 0x0.4>                            Δ-4                {[4, '(A6-0x1a)']|[@@-19]|[##0]}
            <Const 0x22064 0x0.4>                            Δ-4                {[4, '(A6-0x1a)']|[@@-19]|[##0]|[##0]}
            <Call 0x22066 0x10472>                                              {[4, '(A6-0x1a)']|[@@-19]|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 2206c-2206e StackAdj>                       Δ+16               {}
            <Pointer.fp 0x2206e <LVAR -0x01a @ 4(r)>>        Δ-4                {[@@-26]}
            <Call 0x22070 0x10496>                                              {[@@-26]}
                ExpClose(exp : Pointer)
            <POP 22076-22078 StackAdj>                       Δ+4                {}
            <MI 22078  TST.B   (A6-0x16)>                                       {}
            <MI 2207c  BEQ     0x221f6>                                         {}
        <POP 22080-22104 Naked>                              Σ0         ↓ →0x2212c
            <Blob 0x22080 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22084 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x22088 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x2208c [2] @>                             Δ-2                {[«4""»]|[«4""»]|[«4""»]|[«2""»]}
            <Blob 0x22090 [2] @>                             Δ-2                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]}
            <Blob 0x22094 [2] @>                             Δ-2                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]}
            <POP 22098-2209a StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-8-]}
            <Lit 0x2209a 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]}
            <POP 220a4-220a6 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]}
            <MI 220a6  CLR.L   D0>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]}
            <MI 220a8  MOVE.B  (A6-0x15),D0>                                    {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]}
            <MI 220ac  ASL.W   #0x8,D0>                                         {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]}
            <MI 220ae  CLR.L   D1>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]}
            <MI 220b0  MOVE.B  (A6-0x14),D1>                                    {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]}
            <MI 220b4  ADD.W   D0,D1>                                           {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]}
            <MI 220b6  EXTW.L  D1>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]}
            <MI 220b8  MOVE.L  D1,-(A7)>                     Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]|[4, 'D1']}
            <Const 0x220ba 0x3.4>                            Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]|[4, 'D1']|[##3]}
            <Call 0x220be 0x102e8>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]|[4, 'D1']|[##3]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 220c4-220c6 StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]|[4, 'D1']}
            <Lit 0x220c6 6>                                                     {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]|[$$: ARF=]}
            <POP 220d2-220d3 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]|[$$: ARF=]|[-4-]}
            <Blob 0x220d3 [8] (A6-0x11)>                     Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]|[$$: ARF=]|[-4-]|[«8»]}
            <Call 0x220e2 0x21e74>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]|[$$: ARF=]|[-4-]|[«8»]}
            <POP 220e6-220e8 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]|[$$: ARF=]|[-4-]}
            <Call 0x220e8 0x102d8>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$ RF error @_]|[-4-]|[$$: ARF=]|[-4-]}
                StringCat4(a, b, c, d : String) : String
            <POP 220ee-220f0 StackAdj>                       Δ+16               {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Call 0x220f0 0x103d8>                                              {[«4""»]|[«4""»]|[«4""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 220f6-220f8 StackAdj>                       Δ+22               {}
            <MI 220f8  CLR.L   D0>                                              {}
            <MI 220fa  MOVE.B  (A6-0x12),D0>                                    {}
            <MI 220fe  MOVE.W  D0,D1>                                           {}
            <MI 22100  AND.W   #0x10,D1>                                        {}
            <MI 22102  BNE     0x2212c>                                         {}
        <POP 22104-2212c Naked>                              Σ0         →0x22158
            <Blob 0x22104 [12] @>                            Δ-12               {[«12""»]}
            <POP 22114-22116 StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x22116 11>                                                    {[«12""»]|[$$, parity ok]}
            <Call 0x22122 0x103e0>                                              {[«12""»]|[$$, parity ok]}
                WriteConsoleStringCrLf(str : String)
            <POP 22128-2212a StackAdj>                       Δ+16               {}
            <MI 2212a  BRA     0x22158>                                         {}
        <POP 2212c-22158 Naked>                              Σ0         ↓ ←0x22080
            <Blob 0x2212c [14] @>                            Δ-14               {[«14""»]}
            <POP 2213e-22140 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x22140 13>                                                    {[«14""»]|[$$, parity BAD!]}
            <Call 0x2214e 0x103e0>                                              {[«14""»]|[$$, parity BAD!]}
                WriteConsoleStringCrLf(str : String)
            <POP 22154-22158 StackAdj>                       Δ+18               {}
        <POP 22158-221a0 Naked>                              Σ0         ↓ →0x221c8 ←0x22104
            <Blob 0x22158 [26] @>                            Δ-26               {[«26""»]}
            <POP 22164-22166 StackAdj>                       Δ-8                {[«26""»]|[-8-]}
            <Lit 0x22166 26>                                                    {[«26""»]|[-4-]|[$$                      BRF=]}
            <POP 22172-22173 StackAdj>                       Δ-4                {[«26""»]|[-4-]|[$$                      BRF=]|[-4-]}
            <Blob 0x22173 [8] (A6-0x9)>                      Δ-8                {[«26""»]|[-4-]|[$$                      BRF=]|[-4-]|[«8»]}
            <Call 0x22182 0x21e74>                                              {[«26""»]|[-4-]|[$$                      BRF=]|[-4-]|[«8»]}
            <POP 22186-22188 StackAdj>                       Δ+8                {[«26""»]|[-4-]|[$$                      BRF=]|[-4-]}
            <Call 0x22188 0x102d0>                                              {[«26""»]|[-4-]|[$$                      BRF=]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2218e-22190 StackAdj>                       Δ+8                {[«26""»]|[-4-]}
            <Call 0x22190 0x103d8>                                              {[«26""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 22196-2219a StackAdj>                       Δ+30               {}
            <MI 2219a  ANDI.W  #0x0020,D0>                                      {}
            <MI 2219e  BNE     0x221c8>                                         {}
        <POP 221a0-221c8 Naked>                              Σ0         →0x221f4
            <Blob 0x221a0 [12] @>                            Δ-12               {[«12""»]}
            <POP 221b0-221b2 StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x221b2 11>                                                    {[«12""»]|[$$, parity ok]}
            <Call 0x221be 0x103e0>                                              {[«12""»]|[$$, parity ok]}
                WriteConsoleStringCrLf(str : String)
            <POP 221c4-221c6 StackAdj>                       Δ+16               {}
            <MI 221c6  BRA     0x221f4>                                         {}
        <POP 221c8-221f4 Naked>                              Σ0         ↓ ←0x22158
            <Blob 0x221c8 [14] @>                            Δ-14               {[«14""»]}
            <POP 221da-221dc StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x221dc 13>                                                    {[«14""»]|[$$, parity BAD!]}
            <Call 0x221ea 0x103e0>                                              {[«14""»]|[$$, parity BAD!]}
                WriteConsoleStringCrLf(str : String)
            <POP 221f0-221f4 StackAdj>                       Δ+18               {}
        <POP 221f4-221f6 Naked>                              Σ0         →0x22222 ←0x221a0
            <MI 221f4  BRA     0x22222>                                         {}
        <POP 221f6-22222 Naked>                              Σ0         ↓ ←0x21fc6
            <Blob 0x221f6 [62] @>                            Δ-62               {[«62""»]}
            <POP 22208-2220a StackAdj>                       Δ-4                {[«62""»]|[-4-]}
            <Lit 0x2220a 61>                                                    {[«62""»]|[$$ had an ARF or BRF parity error but its register files are OK]}
            <Call 0x22218 0x103e0>                                              {[«62""»]|[$$ had an ARF or BRF parity error but its register files are OK]}
                WriteConsoleStringCrLf(str : String)
            <POP 2221e-22222 StackAdj>                       Δ+66               {}
        <POP 22222-2222a Epilogue>                           Σ0         ←0x221f4

0x2222a


@ 2222a
    NB: STACK SKEW
        <LVAR  0x050 1(r)>
        <LVAR  0x04c 4(r)>
        <LVAR  0x049 1(r)>
        <LVAR  0x048 1(r) 4(r)>
        <LVAR  0x036 1(r)>
        <LVAR  0x035 1(r)>
        <LVAR  0x034 1(r)>
        <LVAR  0x030 1(r)>
        <LVAR  0x02f 1(r)>
        <LVAR  0x02e 1(r)>
        <LVAR  0x02c 1(r)>
        <LVAR  0x02b 1(r)>
        <LVAR  0x025 1(r)>
        <LVAR  0x024 1(r)>
        <LVAR  0x01f 1(r)>
        <LVAR  0x01e 1(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x001 @ 1(r)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x003 @>
        <LVAR -0x00a @ 1(r)>
    <POP 2222a-228a0 Body>                                   Δ+256      
        <POP 2222a-22240 Prologue>                           Σ0         ↓
        <POP 22240-2224a RegCacheLoad>                       Σ0         ↓
        <POP 2224a-222dc Naked>                              Σ0 Δ-8     ↓ →0x22894
            <MI 2224a  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 2224e  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 22250  MOVE.B  #0x01,(A0)>                                      {[4, 'A0']}
            <MI 22252  MOVEA.L (A6+0x14),A1>                                    {[4, 'A0']}
            <Blob 0x22256 [2] @>                             Δ-2                {[4, 'A0']|[«2""»]}
            <Blob 0x2225a [2] @>                             Δ-2                {[4, 'A0']|[«2""»]|[«2""»]}
            <Blob 0x2225e [2] @>                             Δ-2                {[4, 'A0']|[«2""»]|[«2""»]|[«2""»]}
            <POP 22262-22264 StackAdj>                       Δ-4                {[4, 'A0']|[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x22264 6>                                                     {[4, 'A0']|[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]}
            <MI 22274  MOVE.L  (A7)+,(A1)>                   Δ+4                {[4, 'A0']|[«2""»]|[«2""»]|[«2""»]}
            <POP 22276-22278 StackAdj>                       Δ+6                {[4, 'A0']}
            <MI 22278  MOVEA.L (A6+0x10),A2>                                    {[4, 'A0']}
            <MI 2227c  MOVE.B  (A6+0x50),D0>                                    {[4, 'A0']}
            <MI 22280  EXTB.W  D0>                                              {[4, 'A0']}
            <MI 22282  MOVEQ.L #0x1e,D1>                                        {[4, 'A0']}
            <MI 22284  MULS.W  D0,D1>                                           {[4, 'A0']}
            <MI 22286  LEA.L   0x20b92,A3>                                      {[4, 'A0']}
            <Blob 0x2228a [30] (A3+D1.W)>                    Δ-30               {[4, 'A0']|[«30»]}
            <POP 2229a-2229c StackAdj>                       Δ-4                {[4, 'A0']|[«30»]|[-4-]}
            <Lit 0x2229c>                                                       {[4, 'A0']|[«30»]|[$$…]}
                <Pointer.sp 0x2229c 4>                       Δ-4        
                <Const 0x222a0 0x1.2>                        Δ-2        
                <Const 0x222a2 0x1e.2>                       Δ-2        
                <Call 0x222a4 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 222aa-222ac StackAdj>                   Δ+8        
            <MI 222ac  MOVE.L  (A7)+,(A2)>                   Δ+4                {[4, 'A0']|[«30»]}
            <POP 222ae-222b2 StackAdj>                       Δ+26               {[4, 'A0']|[-4-]}
            <MI 222b2  MOVE.L  (A2),(A7)>                                       {[4, 'A0']|[4, '(A2)']}
            <Const 0x222b4 0x5c.2>                           Δ-2                {[4, 'A0']|[4, '(A2)']|[#92]}
            <Call 0x222b8 0x102c0>                                              {[4, 'A0']|[4, '(A2)']|[#92]}
                AppendChar(MOD b : String; a : char)
            <POP 222be-222c0 StackAdj>                       Δ+6                {[4, 'A0']}
            <MI 222c0  MOVEA.L (A6+0xc),A0>                                     {[4, 'A0']}
            <MI 222c4  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <MI 222c6  MOVE.B  #0x01,(A0)>                                      {[4, 'A0']|[4, 'A0']}
            <MI 222c8  MOVEA.L (A6+0x8),A3>                                     {[4, 'A0']|[4, 'A0']}
            <MI 222cc  MOVE.B  #0x27,(A3)>                                      {[4, 'A0']|[4, 'A0']}
            <MI 222d0  MOVE.W  D0,D1>                                           {[4, 'A0']|[4, 'A0']}
            <MI 222d2  SUBQ.W  #0x3,D1>                                         {[4, 'A0']|[4, 'A0']}
            <MI 222d4  CMPI.W  #0x0007,D1>                                      {[4, 'A0']|[4, 'A0']}
            <MI 222d8  BHI     0x22894>                                         {[4, 'A0']|[4, 'A0']}
        <POP 222dc-222e6 Naked>                              Σ-8        →0x222f6 →0x222f6 →0x222f6 →0x22894 →0x223d0 →0x22410 →0x22894 →0x2284a
            <MI 222dc  ADD.W   D1,D1>                                           {[-8-]}
            <MI 222de  SWITCH  D1.W>                                            {[-8-]}
        <POP 222f6-22362 Naked>                              Σ-8        ↓ →0x22370 ←0x222dc ←0x222dc ←0x222dc
            <Call 0x222f6 0x10538>                                              {[-8-]}
                IPC_Init(void)
            <MI 222fc  EXTW.L  D0>                                              {[-8-]}
            <MI 222fe  MOVE.L  D0,-(A7)>                     Δ-4                {[-8-]|[4, 'D0']}
            <Call 0x22300 0x1050e>                                              {[-8-]|[4, 'D0']}
                IPC_PutLong(a : L)
            <MI 22306  MOVE.L  (A6+0x4c),(A7)>                                  {[-8-]|[4, '(A6+0x4c)']}
            <MI 2230a  MOVE.L  (A6+0x48),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x4c)']|[4, '(A6+0x48)']}
            <MI 2230e  PEA.L   (A7)>                         Δ-4                {[-8-]|[4, '(A6+0x4c)']|[4, '(A6+0x48)']|[4, '^(A7)']}
            <Const 0x22310 0x0.4>                            Δ-4                {[-8-]|[4, '(A6+0x4c)']|[4, '(A6+0x48)']|[4, '^(A7)']|[##0]}
            <Const 0x22314 0x7.4>                            Δ-4                {[-8-]|[4, '(A6+0x4c)']|[4, '(A6+0x48)']|[4, '^(A7)']|[##0]|[##7]}
            <Call 0x22318 0x104fc>                                              {[-8-]|[4, '(A6+0x4c)']|[4, '(A6+0x48)']|[4, '^(A7)']|[##0]|[##7]}
                IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 2231e-22322 StackAdj>                       Δ+20               {[-8-]}
            <Call 0x22322 0x10514>                                              {[-8-]}
                IPC_PutEnd(void)
            <Blob 0x22328 [2] @>                             Δ-2                {[-8-]|[«2""»]}
            <Blob 0x2232c [2] @>                             Δ-2                {[-8-]|[«2""»]|[«2""»]}
            <Blob 0x22330 [2] @>                             Δ-2                {[-8-]|[«2""»]|[«2""»]|[«2""»]}
            <POP 22334-22336 StackAdj>                       Δ-4                {[-8-]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x22336 6>                                                     {[-8-]|[«2""»]|[«2""»]|[«2""»]|[$$EMWCSP]}
            <Const 0x22346 0x1.4>                            Δ-4                {[-8-]|[«2""»]|[«2""»]|[«2""»]|[$$EMWCSP]|[##1]}
            <Const 0x2234a 0x2.2>                            Δ-2                {[-8-]|[«2""»]|[«2""»]|[«2""»]|[$$EMWCSP]|[##1]|[#2]}
            <Pointer.fp 0x2234e <LVAR -0x00a @ 1(r)>>        Δ-4                {[-8-]|[«2""»]|[«2""»]|[«2""»]|[$$EMWCSP]|[##1]|[#2]|[@@-10]}
            <Call 0x22352 0x103b0>                                              {[-8-]|[«2""»]|[«2""»]|[«2""»]|[$$EMWCSP]|[##1]|[#2]|[@@-10]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 22358-2235c StackAdj>                       Δ+20               {[-8-]}
            <MI 2235c  TST.B   (A6-0xa)>                                        {[-8-]}
            <MI 22360  BEQ     0x22370>                                         {[-8-]}
        <POP 22362-22370 Naked>                              Σ-8        ↓
            <Const 0x22362 0x6.2>                            Δ-2                {[-8-]|[#6]}
            <Const 0x22364 0x1.4>                            Δ-4                {[-8-]|[#6]|[##1]}
            <Call 0x22368 0x103b8>                                              {[-8-]|[#6]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 2236e-22370 StackAdj>                       Δ+6                {[-8-]}
        <POP 22370-223d0 Naked>                              Σ-8 Δ+8    →0x22898 ←0x222f6
            <Call 0x22370 0x10538>                                              {[-8-]}
                IPC_Init(void)
            <MI 22376  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 2237a  PEA.L   (A0)>                         Δ-4                {[-8-]|[4, '^(A0)']}
            <Call 0x2237c 0x10526>                                              {[-8-]|[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 22382-22384 StackAdj>                       Δ+4                {[-8-]}
            <MI 22384  PEA.L   (A1)>                         Δ-4                {[-8-]|[4, '^(A1)']}
            <Call 0x22386 0x1052c>                                              {[-8-]|[4, '^(A1)']}
                IPC_GetString(VAR retval : String)
            <POP 2238c-2238e StackAdj>                       Δ+4                {[-8-]}
            <MI 2238e  PEA.L   (A2)>                         Δ-4                {[-8-]|[4, '^(A2)']}
            <Call 0x22390 0x1052c>                                              {[-8-]|[4, '^(A2)']}
                IPC_GetString(VAR retval : String)
            <POP 22396-22398 StackAdj>                       Δ+4                {[-8-]}
            <MI 22398  MOVEA.L (A7),A0>                                         {[-8-]}
            <MI 2239a  PEA.L   (A0)>                         Δ-4                {[-8-]|[4, '^(A0)']}
            <Const 0x2239c 0x0.4>                            Δ-4                {[-8-]|[4, '^(A0)']|[##0]}
            <Const 0x223a0 0x0.4>                            Δ-4                {[-8-]|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x223a4 0x10520>                                              {[-8-]|[4, '^(A0)']|[##0]|[##0]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 223aa-223ac StackAdj>                       Δ+12               {[-8-]}
            <MI 223ac  PEA.L   (A3)>                         Δ-4                {[-8-]|[4, '^(A3)']}
            <Const 0x223ae 0x0.4>                            Δ-4                {[-8-]|[4, '^(A3)']|[##0]}
            <Const 0x223b2 0x7.4>                            Δ-4                {[-8-]|[4, '^(A3)']|[##0]|[##7]}
            <Call 0x223b6 0x10520>                                              {[-8-]|[4, '^(A3)']|[##0]|[##7]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 223bc-223be StackAdj>                       Δ+12               {[-8-]}
            <Call 0x223be 0x1051a>                                              {[-8-]}
                IPC_GetEnd(void)
            <Call 0x223c4 0x105c8>                                              {[-8-]}
                And_fc0c_7f(void)
            <POP 223ca-223cc StackAdj>                       Δ+8                {}
            <MI 223cc  BRA     0x22898>                                         {}
        <POP 223d0-223da Naked>                              Σ-8        ↓ →0x223e4 ←0x222dc
            <MI 223d0  CLR.L   D0>                                              {[-8-]}
            <MI 223d2  MOVE.B  (A6+0x48),D0>                                    {[-8-]}
            <MI 223d6  CMP.W   #0x06,D0>                                        {[-8-]}
            <MI 223d8  BEQ     0x223e4>                                         {[-8-]}
        <POP 223da-223e4 Naked>                              Σ-8        ↓ →0x223ec
            <MI 223da  CLR.L   D1>                                              {[-8-]}
            <MI 223dc  MOVE.B  (A6+0x49),D1>                                    {[-8-]}
            <MI 223e0  CMP.W   #0x06,D1>                                        {[-8-]}
            <MI 223e2  BNE     0x223ec>                                         {[-8-]}
        <POP 223e4-223ec Naked>                              Σ-8        ↓ ←0x223d0
            <Const 0x223e4 0x6.2>                            Δ-2                {[-8-]|[#6]}
            <Call 0x223e6 0x21f26>                                              {[-8-]|[#6]}
            <POP 223ea-223ec StackAdj>                       Δ+2                {[-8-]}
        <POP 223ec-223f2 Naked>                              Σ-8        ↓ →0x223fe ←0x223da
            <MI 223ec  CMPI.W  #0x0007,D0>                                      {[-8-]}
            <MI 223f0  BEQ     0x223fe>                                         {[-8-]}
        <POP 223f2-223fe Naked>                              Σ-8        ↓ →0x22408
            <MI 223f2  CLR.L   D0>                                              {[-8-]}
            <MI 223f4  MOVE.B  (A6+0x49),D0>                                    {[-8-]}
            <MI 223f8  CMPI.W  #0x0007,D0>                                      {[-8-]}
            <MI 223fc  BNE     0x22408>                                         {[-8-]}
        <POP 223fe-22408 Naked>                              Σ-8        ↓ ←0x223ec
            <Const 0x223fe 0x7.2>                            Δ-2                {[-8-]|[#7]}
            <Call 0x22402 0x21f26>                                              {[-8-]|[#7]}
            <POP 22406-22408 StackAdj>                       Δ+2                {[-8-]}
        <POP 22408-22410 Naked>                              Σ-8 Δ+8    →0x22898 ←0x223f2
            <MI 22408  CLR.B   (A0)>                                            {[-8-]}
            <POP 2240a-2240c StackAdj>                       Δ+8                {}
            <MI 2240c  BRA     0x22898>                                         {}
        <POP 22410-22414 Naked>                              Σ-8        ↓ ←0x222dc
            <MI 22410  MOVEA.W #0x01,A4>                                        {[-8-]}
            <MI 22412  MOVEQ.L #0x0f,D7>                                        {[-8-]}
        <POP 22414-22418 Naked>                              Σ-8        ↓ →0x2245a ←0x2245a
            <MI 22414  CMPA.W  #0x01,A4>                                        {[-8-]}
            <MI 22416  BNE     0x2245a>                                         {[-8-]}
        <POP 22418-22428 Naked>                              Σ-8        ↓ →0x2245a
            <POP 22418-2241a StackAdj>                       Δ-2                {[-10-]}
            <MI 2241a  MOVE.B  D7,-(A7)>                     Δ-2                {[-10-]|[2, 'D7']}
            <Call 0x2241c 0x104c0>                                              {[-10-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 22422-22424 StackAdj>                       Δ+2                {[-10-]}
            <MI 22424  TST.B   (A7)+>                        Δ+2                {[-8-]}
            <MI 22426  BEQ     0x2245a>                                         {[-8-]}
        <POP 22428-22446 Naked>                              Σ-8        ↓ →0x2244c
            <MI 22428  MOVE.B  D7,-(A7)>                     Δ-2                {[-8-]|[2, 'D7']}
            <Pointer.fp 0x2242a <LVAR -0x002 @ 1(r)>>        Δ-4                {[-8-]|[2, 'D7']|[@@-2]}
            <Pointer.fp 0x2242e <LVAR -0x001 @ 1(r)>>        Δ-4                {[-8-]|[2, 'D7']|[@@-2]|[@@-1]}
            <Pointer.fp 0x22432 <LVAR -0x003 @>>             Δ-4                {[-8-]|[2, 'D7']|[@@-2]|[@@-1]|[@@-3]}
            <Call 0x22436 0x22ade>                                              {[-8-]|[2, 'D7']|[@@-2]|[@@-1]|[@@-3]}
            <POP 2243c-22440 StackAdj>                       Δ+14               {[-8-]}
            <MI 22440  TST.B   (A6-0x1)>                                        {[-8-]}
            <MI 22444  BNE     0x2244c>                                         {[-8-]}
        <POP 22446-2244c Naked>                              Σ-8        ↓ →0x2245a
            <MI 22446  TST.B   (A6-0x2)>                                        {[-8-]}
            <MI 2244a  BEQ     0x2245a>                                         {[-8-]}
        <POP 2244c-2245a Naked>                              Σ-8        ↓ ←0x22428
            <POP 2244c-2244e StackAdj>                       Δ-4                {[-12-]}
            <MI 2244e  MOVE.B  D7,-(A7)>                     Δ-2                {[-12-]|[2, 'D7']}
            <Call 0x22450 0x1049c>                                              {[-12-]|[2, 'D7']}
                BoardName(address : B) : String
            <POP 22456-22458 StackAdj>                       Δ+2                {[-12-]}
            <MI 22458  MOVEA.L (A7)+,A4>                     Δ+4                {[-8-]}
        <POP 2245a-22460 Naked>                              Σ-8        ↓ →0x22414 ←0x22414 ←0x22418 ←0x22446
            <MI 2245a  SUBQ.B  #0x1,D7>                                         {[-8-]}
            <MI 2245c  CMP.B   #0x0c,D7>                                        {[-8-]}
            <MI 2245e  BGE     0x22414>                                         {[-8-]}
        <POP 22460-22464 Naked>                              Σ-8        ↓ →0x22480
            <MI 22460  CMPA.W  #0x01,A4>                                        {[-8-]}
            <MI 22462  BNE     0x22480>                                         {[-8-]}
        <POP 22464-22480 Naked>                              Σ-8        ↓
            <Blob 0x22464 [4] @>                             Δ-4                {[-8-]|[«4""»]}
            <POP 22468-2246a StackAdj>                       Δ-4                {[-8-]|[«4""»]|[-4-]}
            <Lit 0x2246a 4>                                                     {[-8-]|[«4""»]|[$$MEM0]}
            <MI 2247c  MOVEA.L (A7)+,A4>                     Δ+4                {[-8-]|[«4""»]}
            <POP 2247e-22480 StackAdj>                       Δ+4                {[-8-]}
        <POP 22480-22486 Naked>                              Σ-8        ↓ →0x2249a ←0x22460
            <MI 22480  TST.B   (A6+0x36)>                                       {[-8-]}
            <MI 22484  BNE     0x2249a>                                         {[-8-]}
        <POP 22486-2248c Naked>                              Σ-8        ↓ →0x2249a
            <MI 22486  TST.B   (A6+0x30)>                                       {[-8-]}
            <MI 2248a  BNE     0x2249a>                                         {[-8-]}
        <POP 2248c-22492 Naked>                              Σ-8        ↓ →0x2249a
            <MI 2248c  TST.B   (A6+0x2b)>                                       {[-8-]}
            <MI 22490  BNE     0x2249a>                                         {[-8-]}
        <POP 22492-2249a Naked>                              Σ-8        ↓ →0x225aa
            <MI 22492  TST.B   (A6+0x1e)>                                       {[-8-]}
            <MI 22496  BEQ     0x225aa>                                         {[-8-]}
        <POP 2249a-224ae Naked>                              Σ-8        ↓ →0x2257c ←0x22480 ←0x22486 ←0x2248c
            <MI 2249a  CLR.L   D0>                                              {[-8-]}
            <MI 2249c  MOVE.B  0x230d9,D0>                                      {[-8-]}
            <MI 224a2  ANDI.W  #0x000f,D0>                                      {[-8-]}
            <MI 224a6  CMPI.W  #0x000f,D0>                                      {[-8-]}
            <MI 224aa  BHI     0x2257c>                                         {[-8-]}
        <POP 224ae-224b8 Naked>                              Σ-8        →0x224d8 →0x224d8 →0x2250a →0x2250a →0x2251c →0x2252e →0x2257c →0x2257c →0x224d8 →0x224d8 →0x2250a →0x2250a →0x22540 →0x22540 →0x22540 →0x22540
            <MI 224ae  ADD.W   D0,D0>                                           {[-8-]}
            <MI 224b0  SWITCH  D0.W>                                            {[-8-]}
        <POP 224d8-224e8 Naked>                              Σ-8 Δ-24   ↓ ←0x224ae ←0x224ae ←0x224ae ←0x224ae
            <Blob 0x224d8 [24] @>                            Δ-24               {[-8-]|[«24""»]}
        <POP 224e8-2250a Naked>                              Σ-32 Δ+24  →0x225aa ←0x2250a ←0x2251c ←0x2252e
            <POP 224e8-224ea StackAdj>                       Δ-4                {[-36-]}
            <Lit 0x224ea>                                                       {[-32-]|[$$…]}
                <Pointer.sp 0x224ea 4>                       Δ-4        
                <Const 0x224ee 0x1.2>                        Δ-2        
                <Const 0x224f0 0x17.2>                       Δ-2        
                <Call 0x224f4 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 224fa-224fc StackAdj>                   Δ+8        
            <Call 0x224fc 0x103e0>                                              {[-32-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 22502-22506 StackAdj>                       Δ+28               {[-8-]}
            <MI 22506  BRA     0x225aa>                                         {[-8-]}
        <POP 2250a-2251c Naked>                              Σ-8 Δ-24   →0x224e8 ←0x224ae ←0x224ae ←0x224ae ←0x224ae
            <Blob 0x2250a [24] @>                            Δ-24               {[-8-]|[«24""»]}
            <MI 2251a  BRA     0x224e8>                                         {[-8-]|[«24""»]}
        <POP 2251c-2252e Naked>                              Σ-8 Δ-24   →0x224e8 ←0x224ae
            <Blob 0x2251c [24] @>                            Δ-24               {[-8-]|[«24""»]}
            <MI 2252c  BRA     0x224e8>                                         {[-8-]|[«24""»]}
        <POP 2252e-22540 Naked>                              Σ-8 Δ-24   →0x224e8 ←0x224ae
            <Blob 0x2252e [24] @>                            Δ-24               {[-8-]|[«24""»]}
            <MI 2253e  BRA     0x224e8>                                         {[-8-]|[«24""»]}
        <POP 22540-2257c Naked>                              Σ-8        →0x225aa ←0x224ae ←0x224ae ←0x224ae ←0x224ae
            <Blob 0x22540 [48] @>                            Δ-48               {[-8-]|[«48""»]}
            <POP 2254c-2254e StackAdj>                       Δ-8                {[-8-]|[«48""»]|[-8-]}
            <MI 2254e  MOVE.L  A4,-(A7)>                     Δ-4                {[-8-]|[«48""»]|[-8-]|[4, 'A4']}
            <Call 0x22550 0x102cc>                                              {[-8-]|[«48""»]|[-8-]|[4, 'A4']}
                StringDup(a : String) : String
            <Lit 0x22556 48>                                                    {[-8-]|[«48""»]|[-8-]|[$$ RDR or IOC drove TYP bus & IOC drove the parity]}
            <Call 0x22568 0x102d0>                                              {[-8-]|[«48""»]|[-8-]|[$$ RDR or IOC drove TYP bus & IOC drove the parity]}
                StringCat2(a, b : String) : String
            <POP 2256e-22570 StackAdj>                       Δ+8                {[-8-]|[«48""»]|[-4-]}
            <Call 0x22570 0x103e0>                                              {[-8-]|[«48""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22576-2257a StackAdj>                       Δ+52               {[-8-]}
            <MI 2257a  BRA     0x225aa>                                         {[-8-]}
        <POP 2257c-225aa Naked>                              Σ-8        ↓ ←0x2249a ←0x224ae ←0x224ae
            <Blob 0x2257c [30] @>                            Δ-30               {[-8-]|[«30""»]}
            <POP 2258c-2258e StackAdj>                       Δ-4                {[-8-]|[«30""»]|[-4-]}
            <Lit 0x2258e 29>                                                    {[-8-]|[«30""»]|[$$*** illegal TYP bus src field]}
            <Call 0x225a0 0x103e0>                                              {[-8-]|[«30""»]|[$$*** illegal TYP bus src field]}
                WriteConsoleStringCrLf(str : String)
            <POP 225a6-225aa StackAdj>                       Δ+34               {[-8-]}
        <POP 225aa-225b0 Naked>                              Σ-8        ↓ →0x225c4 ←0x22492 ←0x224e8 ←0x22540
            <MI 225aa  TST.B   (A6+0x35)>                                       {[-8-]}
            <MI 225ae  BNE     0x225c4>                                         {[-8-]}
        <POP 225b0-225b6 Naked>                              Σ-8        ↓ →0x225c4
            <MI 225b0  TST.B   (A6+0x2f)>                                       {[-8-]}
            <MI 225b4  BNE     0x225c4>                                         {[-8-]}
        <POP 225b6-225bc Naked>                              Σ-8        ↓ →0x225c4
            <MI 225b6  TST.B   (A6+0x24)>                                       {[-8-]}
            <MI 225ba  BNE     0x225c4>                                         {[-8-]}
        <POP 225bc-225c4 Naked>                              Σ-8        ↓ →0x22710
            <MI 225bc  TST.B   (A6+0x1f)>                                       {[-8-]}
            <MI 225c0  BEQ     0x22710>                                         {[-8-]}
        <POP 225c4-225d8 Naked>                              Σ-8        ↓ →0x226e2 ←0x225aa ←0x225b0 ←0x225b6
            <MI 225c4  CLR.L   D0>                                              {[-8-]}
            <MI 225c6  MOVE.B  0x230d9,D0>                                      {[-8-]}
            <MI 225cc  ANDI.W  #0x000f,D0>                                      {[-8-]}
            <MI 225d0  CMPI.W  #0x000f,D0>                                      {[-8-]}
            <MI 225d4  BHI     0x226e2>                                         {[-8-]}
        <POP 225d8-225e2 Naked>                              Σ-8        →0x22602 →0x22634 →0x22602 →0x22634 →0x22646 →0x22658 →0x226e2 →0x226e2 →0x2266a →0x2266a →0x2266a →0x2266a →0x226a6 →0x226a6 →0x226a6 →0x226a6
            <MI 225d8  ADD.W   D0,D0>                                           {[-8-]}
            <MI 225da  SWITCH  D0.W>                                            {[-8-]}
        <POP 22602-22612 Naked>                              Σ-8 Δ-24   ↓ ←0x225d8 ←0x225d8
            <Blob 0x22602 [24] @>                            Δ-24               {[-8-]|[«24""»]}
        <POP 22612-22634 Naked>                              Σ-32 Δ+24  →0x22710 ←0x22634 ←0x22646 ←0x22658
            <POP 22612-22614 StackAdj>                       Δ-4                {[-36-]}
            <Lit 0x22614>                                                       {[-32-]|[$$…]}
                <Pointer.sp 0x22614 4>                       Δ-4        
                <Const 0x22618 0x1.2>                        Δ-2        
                <Const 0x2261a 0x17.2>                       Δ-2        
                <Call 0x2261e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22624-22626 StackAdj>                   Δ+8        
            <Call 0x22626 0x103e0>                                              {[-32-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 2262c-22630 StackAdj>                       Δ+28               {[-8-]}
            <MI 22630  BRA     0x22710>                                         {[-8-]}
        <POP 22634-22646 Naked>                              Σ-8 Δ-24   →0x22612 ←0x225d8 ←0x225d8
            <Blob 0x22634 [24] @>                            Δ-24               {[-8-]|[«24""»]}
            <MI 22644  BRA     0x22612>                                         {[-8-]|[«24""»]}
        <POP 22646-22658 Naked>                              Σ-8 Δ-24   →0x22612 ←0x225d8
            <Blob 0x22646 [24] @>                            Δ-24               {[-8-]|[«24""»]}
            <MI 22656  BRA     0x22612>                                         {[-8-]|[«24""»]}
        <POP 22658-2266a Naked>                              Σ-8 Δ-24   →0x22612 ←0x225d8
            <Blob 0x22658 [24] @>                            Δ-24               {[-8-]|[«24""»]}
            <MI 22668  BRA     0x22612>                                         {[-8-]|[«24""»]}
        <POP 2266a-226a6 Naked>                              Σ-8        →0x22710 ←0x225d8 ←0x225d8 ←0x225d8 ←0x225d8
            <Blob 0x2266a [18] @>                            Δ-18               {[-8-]|[«18""»]}
            <POP 22676-22678 StackAdj>                       Δ-8                {[-8-]|[«18""»]|[-8-]}
            <MI 22678  MOVE.L  A4,-(A7)>                     Δ-4                {[-8-]|[«18""»]|[-8-]|[4, 'A4']}
            <Call 0x2267a 0x102cc>                                              {[-8-]|[«18""»]|[-8-]|[4, 'A4']}
                StringDup(a : String) : String
            <Lit 0x22680 18>                                                    {[-8-]|[«18""»]|[-8-]|[$$ TVR drove VAL bus]}
            <Call 0x22692 0x102d0>                                              {[-8-]|[«18""»]|[-8-]|[$$ TVR drove VAL bus]}
                StringCat2(a, b : String) : String
            <POP 22698-2269a StackAdj>                       Δ+8                {[-8-]|[«18""»]|[-4-]}
            <Call 0x2269a 0x103e0>                                              {[-8-]|[«18""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 226a0-226a4 StackAdj>                       Δ+22               {[-8-]}
            <MI 226a4  BRA     0x22710>                                         {[-8-]}
        <POP 226a6-226e2 Naked>                              Σ-8        →0x22710 ←0x225d8 ←0x225d8 ←0x225d8 ←0x225d8
            <Blob 0x226a6 [48] @>                            Δ-48               {[-8-]|[«48""»]}
            <POP 226b2-226b4 StackAdj>                       Δ-8                {[-8-]|[«48""»]|[-8-]}
            <MI 226b4  MOVE.L  A4,-(A7)>                     Δ-4                {[-8-]|[«48""»]|[-8-]|[4, 'A4']}
            <Call 0x226b6 0x102cc>                                              {[-8-]|[«48""»]|[-8-]|[4, 'A4']}
                StringDup(a : String) : String
            <Lit 0x226bc 48>                                                    {[-8-]|[«48""»]|[-8-]|[$$ RDR or IOC drove VAL bus & IOC drove the parity]}
            <Call 0x226ce 0x102d0>                                              {[-8-]|[«48""»]|[-8-]|[$$ RDR or IOC drove VAL bus & IOC drove the parity]}
                StringCat2(a, b : String) : String
            <POP 226d4-226d6 StackAdj>                       Δ+8                {[-8-]|[«48""»]|[-4-]}
            <Call 0x226d6 0x103e0>                                              {[-8-]|[«48""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 226dc-226e0 StackAdj>                       Δ+52               {[-8-]}
            <MI 226e0  BRA     0x22710>                                         {[-8-]}
        <POP 226e2-22710 Naked>                              Σ-8        ↓ ←0x225c4 ←0x225d8 ←0x225d8
            <Blob 0x226e2 [30] @>                            Δ-30               {[-8-]|[«30""»]}
            <POP 226f2-226f4 StackAdj>                       Δ-4                {[-8-]|[«30""»]|[-4-]}
            <Lit 0x226f4 29>                                                    {[-8-]|[«30""»]|[$$*** illegal VAL bus src field]}
            <Call 0x22706 0x103e0>                                              {[-8-]|[«30""»]|[$$*** illegal VAL bus src field]}
                WriteConsoleStringCrLf(str : String)
            <POP 2270c-22710 StackAdj>                       Δ+34               {[-8-]}
        <POP 22710-22718 Naked>                              Σ-8        ↓ →0x227a8 ←0x225bc ←0x22612 ←0x2266a ←0x226a6
            <MI 22710  TST.B   (A6+0x34)>                                       {[-8-]}
            <MI 22714  BEQ     0x227a8>                                         {[-8-]}
        <POP 22718-22738 Naked>                              Σ-8        →0x22740 →0x22752 →0x22764 →0x22776
            <MI 22718  CLR.L   D0>                                              {[-8-]}
            <MI 2271a  MOVE.B  0x230d9,D0>                                      {[-8-]}
            <MI 22720  ASR.W   #0x4,D0>                                         {[-8-]}
            <MI 22722  ANDI.W  #0x0003,D0>                                      {[-8-]}
            <POP 0x22726 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {[-8-]}
            <MI 2272e  ADD.W   D0,D0>                                           {[-8-]}
            <MI 22730  SWITCH  D0.W>                                            {[-8-]}
        <POP 22740-22752 Naked>                              Σ-8 Δ-24   →0x22786 ←0x22718
            <Blob 0x22740 [24] @>                            Δ-24               {[-8-]|[«24""»]}
            <MI 22750  BRA     0x22786>                                         {[-8-]|[«24""»]}
        <POP 22752-22764 Naked>                              Σ-8 Δ-24   →0x22786 ←0x22718
            <Blob 0x22752 [24] @>                            Δ-24               {[-8-]|[«24""»]}
            <MI 22762  BRA     0x22786>                                         {[-8-]|[«24""»]}
        <POP 22764-22776 Naked>                              Σ-8 Δ-24   →0x22786 ←0x22718
            <Blob 0x22764 [24] @>                            Δ-24               {[-8-]|[«24""»]}
            <MI 22774  BRA     0x22786>                                         {[-8-]|[«24""»]}
        <POP 22776-22786 Naked>                              Σ-8 Δ-24   ↓ ←0x22718
            <Blob 0x22776 [24] @>                            Δ-24               {[-8-]|[«24""»]}
        <POP 22786-227a8 Naked>                              Σ-32 Δ+24  →0x22844 ←0x22740 ←0x22752 ←0x22764
            <POP 22786-22788 StackAdj>                       Δ-4                {[-36-]}
            <Lit 0x22788>                                                       {[-32-]|[$$…]}
                <Pointer.sp 0x22788 4>                       Δ-4        
                <Const 0x2278c 0x1.2>                        Δ-2        
                <Const 0x2278e 0x17.2>                       Δ-2        
                <Call 0x22792 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22798-2279a StackAdj>                   Δ+8        
            <Call 0x2279a 0x103e0>                                              {[-32-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 227a0-227a4 StackAdj>                       Δ+28               {[-8-]}
            <MI 227a4  BRA     0x22844>                                         {[-8-]}
        <POP 227a8-227ae Naked>                              Σ-8        ↓ →0x227bc ←0x22710
            <MI 227a8  TST.B   (A6+0x2e)>                                       {[-8-]}
            <MI 227ac  BNE     0x227bc>                                         {[-8-]}
        <POP 227ae-227b4 Naked>                              Σ-8        ↓ →0x227bc
            <MI 227ae  TST.B   (A6+0x25)>                                       {[-8-]}
            <MI 227b2  BNE     0x227bc>                                         {[-8-]}
        <POP 227b4-227bc Naked>                              Σ-8        ↓ →0x22844
            <MI 227b4  TST.B   (A6+0x2c)>                                       {[-8-]}
            <MI 227b8  BEQ     0x22844>                                         {[-8-]}
        <POP 227bc-227dc Naked>                              Σ-8        →0x227e4 →0x227f6 →0x22808 →0x2281a ←0x227a8 ←0x227ae
            <MI 227bc  CLR.L   D0>                                              {[-8-]}
            <MI 227be  MOVE.B  0x230db,D0>                                      {[-8-]}
            <MI 227c4  ASR.W   #0x4,D0>                                         {[-8-]}
            <MI 227c6  ANDI.W  #0x0003,D0>                                      {[-8-]}
            <POP 0x227ca LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {[-8-]}
            <MI 227d2  ADD.W   D0,D0>                                           {[-8-]}
            <MI 227d4  SWITCH  D0.W>                                            {[-8-]}
        <POP 227e4-227f6 Naked>                              Σ-8 Δ-24   →0x2282a ←0x227bc
            <Blob 0x227e4 [24] @>                            Δ-24               {[-8-]|[«24""»]}
            <MI 227f4  BRA     0x2282a>                                         {[-8-]|[«24""»]}
        <POP 227f6-22808 Naked>                              Σ-8 Δ-24   →0x2282a ←0x227bc
            <Blob 0x227f6 [24] @>                            Δ-24               {[-8-]|[«24""»]}
            <MI 22806  BRA     0x2282a>                                         {[-8-]|[«24""»]}
        <POP 22808-2281a Naked>                              Σ-8 Δ-24   →0x2282a ←0x227bc
            <Blob 0x22808 [24] @>                            Δ-24               {[-8-]|[«24""»]}
            <MI 22818  BRA     0x2282a>                                         {[-8-]|[«24""»]}
        <POP 2281a-2282a Naked>                              Σ-8 Δ-24   ↓ ←0x227bc
            <Blob 0x2281a [24] @>                            Δ-24               {[-8-]|[«24""»]}
        <POP 2282a-22844 Naked>                              Σ-32 Δ-4   ↓ ←0x227e4 ←0x227f6 ←0x22808
            <POP 2282a-2282c StackAdj>                       Δ-4                {[-36-]}
            <Lit 0x2282c>                                                       {[-32-]|[$$…]}
                <Pointer.sp 0x2282c 4>                       Δ-4        
                <Const 0x22830 0x1.2>                        Δ-2        
                <Const 0x22832 0x17.2>                       Δ-2        
                <Call 0x22836 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2283c-2283e StackAdj>                   Δ+8        
            <Call 0x2283e 0x103e0>                                              {[-32-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
        <POP 22844-2284a Naked>                              Σ-8 Δ+36   →0x22898 ←0x22786 ←0x227b4
            <POP 22844-22848 StackAdj>                       Δ+36               {MANGLED}
            <MI 22848  BRA     0x22898>                                         {MANGLED}
        <POP 2284a-22856 Naked>                              Σ-8        ↓ →0x22890 ←0x222dc
            <POP 2284a-2284c StackAdj>                       Δ-2                {[-10-]}
            <Call 0x2284c 0x104cc>                                              {[-10-]}
                MemOnly2MB() : Bool
            <MI 22852  TST.B   (A7)+>                        Δ+2                {[-8-]}
            <MI 22854  BNE     0x22890>                                         {[-8-]}
        <POP 22856-22860 Naked>                              Σ-8        ↓ →0x2286a
            <MI 22856  CLR.L   D0>                                              {[-8-]}
            <MI 22858  MOVE.B  (A6+0x48),D0>                                    {[-8-]}
            <MI 2285c  CMP.W   #0x0c,D0>                                        {[-8-]}
            <MI 2285e  BEQ     0x2286a>                                         {[-8-]}
        <POP 22860-2286a Naked>                              Σ-8        ↓ →0x22872
            <MI 22860  CLR.L   D1>                                              {[-8-]}
            <MI 22862  MOVE.B  (A6+0x49),D1>                                    {[-8-]}
            <MI 22866  CMP.W   #0x0c,D1>                                        {[-8-]}
            <MI 22868  BNE     0x22872>                                         {[-8-]}
        <POP 2286a-22872 Naked>                              Σ-8        ↓ ←0x22856
            <Const 0x2286a 0xc.2>                            Δ-2                {[-8-]|[#12]}
            <Call 0x2286c 0x21d16>                                              {[-8-]|[#12]}
            <POP 22870-22872 StackAdj>                       Δ+2                {[-8-]}
        <POP 22872-22878 Naked>                              Σ-8        ↓ →0x22884 ←0x22860
            <MI 22872  CMPI.W  #0x000e,D0>                                      {[-8-]}
            <MI 22876  BEQ     0x22884>                                         {[-8-]}
        <POP 22878-22884 Naked>                              Σ-8        ↓ →0x2288e
            <MI 22878  CLR.L   D0>                                              {[-8-]}
            <MI 2287a  MOVE.B  (A6+0x49),D0>                                    {[-8-]}
            <MI 2287e  CMPI.W  #0x000e,D0>                                      {[-8-]}
            <MI 22882  BNE     0x2288e>                                         {[-8-]}
        <POP 22884-2288e Naked>                              Σ-8        ↓ ←0x22872
            <Const 0x22884 0xe.2>                            Δ-2                {[-8-]|[#14]}
            <Call 0x22888 0x21d16>                                              {[-8-]|[#14]}
            <POP 2288c-2288e StackAdj>                       Δ+2                {[-8-]}
        <POP 2288e-22890 Naked>                              Σ-8        ↓ ←0x22878
            <MI 2288e  CLR.B   (A0)>                                            {[-8-]}
        <POP 22890-22894 Naked>                              Σ-8 Δ+8    →0x22898 ←0x2284a
            <POP 22890-22892 StackAdj>                       Δ+8                {}
            <MI 22892  BRA     0x22898>                                         {}
        <POP 22894-22898 Naked>                              Σ-8 Δ+8    ↓ ←0x2224a ←0x222dc ←0x222dc
            <MI 22894  MOVE.B  #0x01,(A0)>                                      {[-8-]}
            <POP 22896-22898 StackAdj>                       Δ+8                {}
        <POP 22898-228a0 Epilogue>                           Σ0         ←0x22370 ←0x22408 ←0x22844 ←0x22890

0x228a0


@ 228a0
START
    <POP 228a0--0001 Body>                                              
        <POP 228a0-228aa Prologue>                           Σ0         
        <POP 228aa-228be RegCacheLoad>                       Σ0         ↓
        <POP 228be-228ec Naked>                              Σ0         ↓
            <Call 0x228be 0x10398>                                              {}
                FSCALL_10398
            <Const 0x228c4 0x230e2.4>                        Δ-4                {[##143586]}
            <Const 0x228ca 0x230e3.4>                        Δ-4                {[##143586]|[##143587]}
            <Call 0x228cc 0x10544>                                              {[##143586]|[##143587]}
                IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
            <POP 228d2-228d4 StackAdj>                       Δ+8                {}
            <Const 0x228d4 0x0.4>                            Δ-4                {[##0]}
            <Call 0x228d8 0x104d8>                                              {[##0]}
                ExpInit(a : Long)
            <POP 228de-228e0 StackAdj>                       Δ+2                {[-2-]}
            <POP 228e0-228e1 StackAdj>                       Δ+2                {}
            <Blob 0x228e1 [2] 0x230e3>                       Δ-2                {[«2»]}
            <Call 0x228e2 0x104d2>                                              {[«2»]}
                SetExpInitDone(a : Byte)
            <POP 228e8-228ea StackAdj>                       Δ+2                {}
            <MI 228ea  MOVEQ.L #0x00,D0>                                        {}
        <POP 228ec-2290c Naked>                              Σ0         ↓ →0x228ec ←0x228ec
            <MI 228ec  MOVE.B  D0,0x230e4>                                      {}
            <MI 228f2  MOVE.B  D0,D1>                                           {}
            <MI 228f4  EXTB.W  D1>                                              {}
            <MI 228f6  MOVE.W  D1,-(A7)>                     Δ-2                {[2, 'D1']}
            <MI 228f8  LEA.L   0x23050,A0>                                      {[2, 'D1']}
            <MI 228fa  LEA.L   (A0+D1.W),A0>                                    {[2, 'D1']}
            <MI 228fe  CLR.B   (A0+0xa7)>                                       {[2, 'D1']}
            <MI 22902  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 22904  ADDQ.W  #0x1,D0>                                         {}
            <MI 22906  CMPI.W  #0x002b,D0>                                      {}
            <MI 2290a  BLE     0x228ec>                                         {}
        <POP 2290c-2290e Naked>                              Σ0         ↓
            <MI 2290c  MOVEQ.L #0x00,D0>                                        {}
        <POP 2290e-2292a Naked>                              Σ0         ↓ →0x2290e ←0x2290e
            <MI 2290e  MOVE.L  D0,0x230de>                                      {}
            <POP 0x22914 LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {}
            <MI 2291a  LEA.L   0x23050,A0>                                      {}
            <MI 2291c  LEA.L   (A0+D0.L),A0>                                    {}
            <MI 22920  CLR.B   (A0+0x9f)>                                       {}
            <MI 22924  ADDQ.L  #0x1,D0>                                         {}
            <MI 22926  CMP.L   #0x07,D0>                                        {}
            <MI 22928  BLE     0x2290e>                                         {}
        <POP 2292a-229f2 Naked>                              Σ0         ↓
            <Call 0x2292a 0x2188c>                                              {}
            <Call 0x2292e 0x219cc>                                              {}
            <Const 0x22932 0x230f7.4>                        Δ-4                {[##143607]}
            <Call 0x22934 0x21322>                                              {[##143607]}
            <POP 22938-2293a StackAdj>                       Δ+2                {[-2-]}
            <Const 0x2293a 0x230f7.4>                        Δ-4                {[-2-]|[##143607]}
            <Call 0x2293c 0x21bda>                                              {[-2-]|[##143607]}
            <POP 22940-22942 StackAdj>                       Δ+4                {[-2-]}
            <MI 22942  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 22944  EXTB.W  D0>                                              {}
            <POP 0x22946 LimitCheck 0x0 ≤ D0 ≤ 0xb>                             {}
            <MI 2294a  MOVE.B  D0,0x23123>                                      {}
            <POP 22950-22951 StackAdj>                       Δ-8        ↓       {[-8-]}
            <Blob 0x22951 [44] 0x230f7>                      Δ-44               {[-8-]|[«44»]}
            <MI 22960  MOVE.B  D0,-(A7)>                     Δ-2                {[-8-]|[«44»]|[2, 'D0']}
            <Call 0x22962 0x21c52>                                              {[-8-]|[«44»]|[2, 'D0']}
            <POP 22966-2296a StackAdj>                       Δ+46               {[-8-]}
            <MI 2296a  MOVE.L  (A7)+,0x23124>                Δ+4                {[-4-]}
            <MI 22970  MOVE.L  (A7)+,0x23128>                Δ+4                {}
            <Blob 0x22976 [2] 0x23123>                       Δ-2                {[«2»]}
            <Blob 0x2297c [4] 0x23128>                       Δ-4                {[«2»]|[«4»]}
            <Blob 0x22982 [4] 0x23124>                       Δ-4                {[«2»]|[«4»]|[«4»]}
            <Blob 0x22988 [44] 0x230f7>                      Δ-44               {[«2»]|[«4»]|[«4»]|[«44»]}
            <Const 0x22998 0x230e5.4>                        Δ-4                {[«2»]|[«4»]|[«4»]|[«44»]|[##143589]}
            <Const 0x2299e 0x230e6.4>                        Δ-4                {[«2»]|[«4»]|[«4»]|[«44»]|[##143589]|[##143590]}
            <Const 0x229a4 0x230ea.4>                        Δ-4                {[«2»]|[«4»]|[«4»]|[«44»]|[##143589]|[##143590]|[##143594]}
            <Const 0x229aa 0x230ee.4>                        Δ-4                {[«2»]|[«4»]|[«4»]|[«44»]|[##143589]|[##143590]|[##143594]|[##143598]}
            <Const 0x229b0 0x230ef.4>                        Δ-4                {[«2»]|[«4»]|[«4»]|[«44»]|[##143589]|[##143590]|[##143594]|[##143598]|[##143599]}
            <Call 0x229b6 0x2222a>                                              {[«2»]|[«4»]|[«4»]|[«44»]|[##143589]|[##143590]|[##143594]|[##143598]|[##143599]}
            <POP 229ba-229be StackAdj>                       Δ+72               {[«2»]}
            <POP 229be-229bf StackAdj>                       Δ+2                {}
            <Blob 0x229bf [2] 0x230e5>                       Δ-2                {[«2»]}
            <Blob 0x229c4 [4] 0x230e6>                       Δ-4                {[«2»]|[«4»]}
            <Blob 0x229ca [4] 0x230ea>                       Δ-4                {[«2»]|[«4»]|[«4»]}
            <Blob 0x229d0 [2] 0x230ee>                       Δ-2                {[«2»]|[«4»]|[«4»]|[«2»]}
            <Blob 0x229d6 [8] 0x230ef>                       Δ-8                {[«2»]|[«4»]|[«4»]|[«2»]|[«8»]}
            <Call 0x229e8 0x1054a>                                              {[«2»]|[«4»]|[«4»]|[«2»]|[«8»]}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 229ee-229f2 StackAdj>                       Δ+20               {}
        <POP 229f2-229f8 Naked>                              Σ0         
            <Call 0x229f2 0x10284>                                              {}
                ?exit

0x22ade


@ 22ade
        <LVAR  0x014 1(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 22ade-22ba6 Body>                                   Δ+12       
        <POP 22ade-22af4 Prologue>                           Σ0         ↓
        <POP 22af4-22afa RegCacheLoad>                       Σ0         ↓
        <POP 22afa-22b06 Naked>                              Σ0         ↓ →0x22b18
            <POP 22afa-22afc StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22afc 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 22b02  TST.B   (A7)+>                        Δ+2                {}
            <MI 22b04  BEQ     0x22b18>                                         {}
        <POP 22b06-22b18 Naked>                              Σ0 Δ-12    →0x22b28
            <Blob 0x22b06 [12] @>                            Δ-12               {[«12""»]}
            <MI 22b16  BRA     0x22b28>                                         {[«12""»]}
        <POP 22b18-22b28 Naked>                              Σ0 Δ-12    ↓ ←0x22afa
            <Blob 0x22b18 [12] @>                            Δ-12               {[«12""»]}
        <POP 22b28-22b9e Naked>                              Σ-12 Δ+12  ↓ ←0x22b06
            <POP 22b28-22b2a StackAdj>                       Δ-4                {[-16-]}
            <Lit 0x22b2a>                                                       {[-12-]|[$$…]}
                <Pointer.sp 0x22b2a 4>                       Δ-4        
                <Const 0x22b2e 0x1.2>                        Δ-2        
                <Const 0x22b32 0xb.2>                        Δ-2        
                <Call 0x22b36 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22b3c-22b3e StackAdj>                   Δ+8        
            <Pointer.fp 0x22b3e <LVAR -0x006 @ 4(r)>>        Δ-4                {[-12-]|[$$…]|[@@-6]}
            <Call 0x22b40 0x10460>                                              {[-12-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 22b46-22b4a StackAdj>                       Δ+20               {}
            <MI 22b4a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 22b4c  MOVE.B  (A6+0x14),-(A7)>              Δ-2                {[#0]|[2, '(A6+0x14)']}
            <MI 22b50  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x14)']|[4, '(A6-0x6)']}
            <Call 0x22b52 0x104ba>                                              {[#0]|[2, '(A6+0x14)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 22b58-22b5a StackAdj>                       Δ+4                {[#0]|[2, '(A6+0x14)']}
            <MI 22b5a  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22b5c  MOVEA.L (A6+0x10),A0>                                    {[4, '(A6-0x6)']}
            <MI 22b60  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Call 0x22b62 0x10478>                                              {[4, '(A6-0x6)']|[4, '^(A0)']}
                ExpOutputFlag(exp : Pointer; VAR status : Bool)
            <POP 22b68-22b6a StackAdj>                       Δ+4                {[4, '(A6-0x6)']}
            <MI 22b6a  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22b6c  MOVEA.L (A6+0xc),A0>                                     {[4, '(A6-0x6)']}
            <MI 22b70  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Call 0x22b72 0x10478>                                              {[4, '(A6-0x6)']|[4, '^(A0)']}
                ExpOutputFlag(exp : Pointer; VAR status : Bool)
            <POP 22b78-22b7a StackAdj>                       Δ+4                {[4, '(A6-0x6)']}
            <MI 22b7a  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22b7c  MOVEA.L (A6+0x8),A0>                                     {[4, '(A6-0x6)']}
            <MI 22b80  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x22b82 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x22b86 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x22b8a 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22b90-22b94 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x22b94 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x22b96 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 22b9c-22b9e StackAdj>                       Δ+4                {}
        <POP 22b9e-22ba6 Epilogue>                           Σ0         

0x22bca


@ 22bca
        <LVAR  0x018 1(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 22bca-22ca6 Body>                                   Δ+18       
        <POP 22bca-22be0 Prologue>                           Σ0         ↓
        <POP 22be0-22bf2 RegCacheLoad>                       Σ0         ↓
        <POP 22bf2-22bfe Naked>                              Σ0         ↓ →0x22c10
            <POP 22bf2-22bf4 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22bf4 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 22bfa  TST.B   (A7)+>                        Δ+2                {}
            <MI 22bfc  BEQ     0x22c10>                                         {}
        <POP 22bfe-22c10 Naked>                              Σ0 Δ-18    →0x22c20
            <Blob 0x22bfe [18] @>                            Δ-18               {[«18""»]}
            <MI 22c0e  BRA     0x22c20>                                         {[«18""»]}
        <POP 22c10-22c20 Naked>                              Σ0 Δ-18    ↓ ←0x22bf2
            <Blob 0x22c10 [18] @>                            Δ-18               {[«18""»]}
        <POP 22c20-22c9e Naked>                              Σ-18 Δ+18  ↓ ←0x22bfe
            <POP 22c20-22c22 StackAdj>                       Δ-4                {[-22-]}
            <Lit 0x22c22>                                                       {[-18-]|[$$…]}
                <Pointer.sp 0x22c22 4>                       Δ-4        
                <Const 0x22c26 0x1.2>                        Δ-2        
                <Const 0x22c2a 0x11.2>                       Δ-2        
                <Call 0x22c2e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22c34-22c36 StackAdj>                   Δ+8        
            <Pointer.fp 0x22c36 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-18-]|[$$…]|[@@-6]}
            <Call 0x22c38 0x10460>                                              {[-18-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 22c3e-22c42 StackAdj>                       Δ+26               {}
            <MI 22c42  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 22c44  MOVE.B  (A6+0x18),-(A7)>              Δ-2                {[#0]|[2, '(A6+0x18)']}
            <MI 22c48  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x18)']|[4, '(A6-0x6)']}
            <Call 0x22c4a 0x104ba>                                              {[#0]|[2, '(A6+0x18)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 22c50-22c52 StackAdj>                       Δ+4                {[#0]|[2, '(A6+0x18)']}
            <MI 22c52  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22c54  MOVEA.L (A6+0x14),A0>                                    {[4, '(A6-0x6)']}
            <MI 22c58  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x22c5a 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x22c5c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x22c5e 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22c60-22c62 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22c62  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22c64  MOVEA.L (A6+0x10),A0>                                    {[4, '(A6-0x6)']}
            <MI 22c68  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x22c6a 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x22c6c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x22c6e 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22c70-22c72 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22c72  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22c74  MOVEA.L (A6+0xc),A0>                                     {[4, '(A6-0x6)']}
            <MI 22c78  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x22c7a 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x22c7c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x22c7e 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22c80-22c82 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22c82  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22c84  MOVEA.L (A6+0x8),A0>                                     {[4, '(A6-0x6)']}
            <MI 22c88  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x22c8a 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x22c8c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x22c8e 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22c90-22c94 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x22c94 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x22c96 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 22c9c-22c9e StackAdj>                       Δ+4                {}
        <POP 22c9e-22ca6 Epilogue>                           Σ0         

0x22cc6


@ 22cc6
        <LVAR  0x014 1(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 22cc6-22d90 Body>                                   Δ+16       
        <POP 22cc6-22cdc Prologue>                           Σ0         ↓
        <POP 22cdc-22cee RegCacheLoad>                       Σ0         ↓
        <POP 22cee-22cfa Naked>                              Σ0         ↓ →0x22d0c
            <POP 22cee-22cf0 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22cf0 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 22cf6  TST.B   (A7)+>                        Δ+2                {}
            <MI 22cf8  BEQ     0x22d0c>                                         {}
        <POP 22cfa-22d0c Naked>                              Σ0 Δ-16    →0x22d1c
            <Blob 0x22cfa [16] @>                            Δ-16               {[«16""»]}
            <MI 22d0a  BRA     0x22d1c>                                         {[«16""»]}
        <POP 22d0c-22d1c Naked>                              Σ0 Δ-16    ↓ ←0x22cee
            <Blob 0x22d0c [16] @>                            Δ-16               {[«16""»]}
        <POP 22d1c-22d88 Naked>                              Σ-16 Δ+16  ↓ ←0x22cfa
            <POP 22d1c-22d1e StackAdj>                       Δ-4                {[-20-]}
            <Lit 0x22d1e>                                                       {[-16-]|[$$…]}
                <Pointer.sp 0x22d1e 4>                       Δ-4        
                <Const 0x22d22 0x1.2>                        Δ-2        
                <Const 0x22d26 0xf.2>                        Δ-2        
                <Call 0x22d2a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22d30-22d32 StackAdj>                   Δ+8        
            <Pointer.fp 0x22d32 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-16-]|[$$…]|[@@-6]}
            <Call 0x22d34 0x10460>                                              {[-16-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 22d3a-22d3e StackAdj>                       Δ+24               {}
            <MI 22d3e  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 22d40  MOVE.B  (A6+0x14),-(A7)>              Δ-2                {[#0]|[2, '(A6+0x14)']}
            <MI 22d44  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x14)']|[4, '(A6-0x6)']}
            <Call 0x22d46 0x104ba>                                              {[#0]|[2, '(A6+0x14)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 22d4c-22d4e StackAdj>                       Δ+4                {[#0]|[2, '(A6+0x14)']}
            <MI 22d4e  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22d50  MOVEA.L (A6+0x10),A0>                                    {[4, '(A6-0x6)']}
            <MI 22d54  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x22d56 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x22d58 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x22d5a 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22d5c-22d5e StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22d5e  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22d60  MOVEA.L (A6+0xc),A0>                                     {[4, '(A6-0x6)']}
            <MI 22d64  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x22d66 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x22d68 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x22d6a 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22d6c-22d6e StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22d6e  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22d70  MOVEA.L (A6+0x8),A0>                                     {[4, '(A6-0x6)']}
            <MI 22d74  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x22d76 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x22d78 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x22d7a 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22d7c-22d7e StackAdj>                       Δ+16               {}
            <Pointer.fp 0x22d7e <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x22d80 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 22d86-22d88 StackAdj>                       Δ+4                {}
        <POP 22d88-22d90 Epilogue>                           Σ0         

0x22e58


@ 22e58
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 22e58-22ec0 Body>                                              
        <POP 22e58-22e6e Prologue>                           Σ0         ↓
        <POP 22e6e-22eb8 Naked>                              Σ0         ↓
            <Blob 0x22e6e [14] @>                            Δ-14               {[«14""»]}
            <Const 0x22e7a 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 22e7e-22e80 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x22e80 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 22e92-22e94 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22e94  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22e98  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22e9a  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22e9c  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x22e9e 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 22ea4-22ea6 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x22ea6 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 22eac-22eae StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x22eae 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 22eb4-22eb8 StackAdj>                       Δ+20               {}
        <POP 22eb8-22ec0 Epilogue>                           Σ0         

0x22f14


@ 22f14
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 22f14-23050 Body>                                              
        <POP 22f14-22f2a Prologue>                           Σ0         ↓
        <POP 22f2a-22f40 RegCacheLoad>                       Σ0         ↓
        <POP 22f40-22fa0 Naked>                              Σ0         ↓ →0x22fe8
            <Call 0x22f40 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x22f46 [18] @>                            Δ-18               {[«18""»]}
            <POP 22f52-22f54 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x22f54 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x22f60 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 22f62-22f63 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x22f63 [14] @>                            Δ-14               {[«14""»]}
            <POP 22f72-22f74 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x22f74 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 22f7e-22f80 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 22f80  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x22f84 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 22f8a-22f8c StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x22f8c 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 22f92-22f94 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x22f94 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22f96-22f98 StackAdj>                       Δ+18               {}
            <MI 22f98  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 22f9c  CMPA.W  #0x01,A0>                                        {}
            <MI 22f9e  BEQ     0x22fe8>                                         {}
        <POP 22fa0-22fe8 Naked>                              Σ0         ↓
            <Blob 0x22fa0 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x22fb0 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 22fc0-22fc2 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x22fc2 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 22fcc-22fce StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x22fce>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x22fce 12>                      Δ-4        
                <Const 0x22fd2 0x1.2>                        Δ-2        
                <Const 0x22fd4 0x1e.2>                       Δ-2        
                <Call 0x22fd6 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22fd8-22fda StackAdj>                   Δ+8        
            <Call 0x22fda 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 22fe0-22fe2 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x22fe2 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22fe4-22fe8 StackAdj>                       Δ+48               {}
        <POP 22fe8-23048 Naked>                              Σ0         ↓ ←0x22f40
            <Blob 0x22fe8 [14] @>                            Δ-14               {[«14""»]}
            <POP 22ff8-22ffa StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x22ffa 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 23004-23006 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 23006  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x2300a 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 23010-23012 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x23012 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 23018-2301a StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x2301a 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2301c-2301d StackAdj>                       Δ+18       ↓       {}
            <Blob 0x2301d [24] @>                            Δ-24               {[«24""»]}
            <Const 0x2302c 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 23030-23032 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x23032 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x23040 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 23046-23048 StackAdj>                       Δ+30               {}
        <POP 23048-23050 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.9ed829eb3d4cd566
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 28 a0              |  (     |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 31 54              |  1T    |		.PTR	0x23154
00020010					code.end:
00020010 00 02 30 50              |  0P    |		.PTR	0x23050
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 2e 58              |  .X    |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 2f 14              |  /     |		.CODE	EXP_FAIL
00020020 00 00 00 00              |        |		.CONST	0x00000000
00020024					exp_init_done:
00020024 00                       |        |		.CONST	0x00
00020025 00                       |        |		.CONST	0x00
00020026 00 00                    |        |		.CONST	0x0000
00020028 00 00                    |        |		.CONST	0x0000
0002002a 00 00                    |        |		.XXX[0x2]
0002002c 00 00                    |        |		.CONST	0x0000
0002002e 00 00                    |        |		.CONST	0x0000
00020030 00 00                    |        |		.CONST	0x0000
00020032 00 00 00 00 00 00        |        |		.XXX[0x6]
00020038 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0xb0]
000200e8 00 00 00 00              |        |		.XXX[0x4]
000200ec 00 00 00 00              |        |		.PTR	0x0
000200f0					is_open_ERROR_LOG:
000200f0 00                       |        |		.CONST	0x0
000200f1					write_error_ERROR_LOG:
000200f1 00                       |        |		.CONST	0x0
000200f2 00 00 00 00              |        |		.CONST	0x00000000
000200f6 00 00 00 00              |        |		.CONST	0x00000000
000200fa 00                       |        |		.CONST	0x00
000200fb 00                       |        |		.CONST	0x00
000200fc					file_ERROR_LOG:
000200fc 00 00 00 00              |        |		.CONST	0x00000000
00020100 00 00 00 00              |        |		.CONST	0x00000000
00020104 00 00                    |        |		.CONST	0x0000
00020106 00 00                    |        |		.CONST	0x0000
00020108					somekindoffsflag:
00020108 00                       |        |		.CONST	0x00
00020109 00                       |        |		.CONST	0x00
0002010a 40 28 23 29 45 4d        |@(#)EM  |		.XXX[0x6]
00020110 42 41 4c 4d 2c 33 2e 32  |BALM,3.2|		.XXX[0x38]
00020118 2c 39 32 2f 31 30 2f 32  |,92/10/2|
00020120 38 2c 31 36 3a 31 37 3a  |8,16:17:|
00020128 30 30 5c 20 55 6e 6b 6e  |00\ Unkn|
00020130 6f 77 6e 20 65 72 72 6f  |own erro|
00020138 72 20 20 20 20 20 20 20  |r       |
00020140 20 20 20 20 20 20 20 20  |        |
00020148 20 20                    |        |		.XXX[0x2]
0002014a 48 61 6c 74 20 20        |Halt    |		.XXX[0x6]
00020150 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x18]
00020168 52 65 66 72 65 73 68 20  |Refresh |		.XXX[0x3f8]
00020170 6d 61 63 68 69 6e 65 20  |machine |
00020178 63 68 65 63 6b 20 20 20  |check   |
00020180 20 20 20 20 20 20 4d 69  |      Mi|
00020188 63 72 6f 61 64 64 72 65  |croaddre|
00020190 73 73 20 62 75 73 20 70  |ss bus p|
00020198 61 72 69 74 79 20 20 20  |arity   |
000201a0 20 20 20 20 57 43 53 20  |    WCS |
000201a8 52 41 4d 20 70 61 72 69  |RAM pari|
000201b0 74 79 20 65 72 72 6f 72  |ty error|
000201b8 20 20 20 20 20 20 20 20  |        |
000201c0 20 20 44 65 63 6f 64 65  |  Decode|
000201c8 20 52 41 4d 20 70 61 72  | RAM par|
000201d0 69 74 79 20 65 72 72 6f  |ity erro|
000201d8 72 20 20 20 20 20 20 20  |r       |
000201e0 53 63 61 76 65 6e 67 65  |Scavenge|
000201e8 72 20 52 41 4d 20 70 61  |r RAM pa|
000201f0 72 69 74 79 20 65 72 72  |rity err|
000201f8 6f 72 20 20 20 20 52 65  |or    Re|
00020200 67 69 73 74 65 72 20 46  |gister F|
00020208 69 6c 65 20 52 41 4d 20  |ile RAM |
00020210 70 61 72 69 74 79 20 65  |parity e|
00020218 72 72 6f 72 46 6f 72 65  |rrorFore|
00020220 70 6c 61 6e 65 20 62 75  |plane bu|
00020228 73 20 70 61 72 69 74 79  |s parity|
00020230 20 65 72 72 6f 72 20 20  | error  |
00020238 20 20 41 64 64 72 65 73  |  Addres|
00020240 73 20 62 75 73 20 70 61  |s bus pa|
00020248 72 69 74 79 20 65 72 72  |rity err|
00020250 6f 72 20 20 20 20 20 20  |or      |
00020258 54 61 67 73 74 6f 72 65  |Tagstore|
00020260 20 52 41 4d 20 70 61 72  | RAM par|
00020268 69 74 79 20 65 72 72 6f  |ity erro|
00020270 72 20 20 20 20 20 57 44  |r     WD|
00020278 52 2f 46 6f 72 65 70 6c  |R/Forepl|
00020280 61 6e 65 5f 62 75 73 20  |ane_bus |
00020288 65 72 72 6f 72 20 20 20  |error   |
00020290 20 20 20 20 49 4f 43 20  |    IOC |
00020298 62 6f 61 72 64 20 75 41  |board uA|
000202a0 44 44 52 20 70 61 72 69  |DDR pari|
000202a8 74 79 20 65 72 72 6f 72  |ty error|
000202b0 20 20 49 4f 43 20 62 6f  |  IOC bo|
000202b8 61 72 64 20 57 43 53 20  |ard WCS |
000202c0 52 41 4d 20 70 61 72 69  |RAM pari|
000202c8 74 79 20 65 72 72 6f 72  |ty error|
000202d0 49 4f 43 20 62 6f 61 72  |IOC boar|
000202d8 64 20 54 59 50 20 62 75  |d TYP bu|
000202e0 73 20 70 61 72 69 74 79  |s parity|
000202e8 20 65 72 72 6f 72 49 4f  | errorIO|
000202f0 43 20 62 6f 61 72 64 20  |C board |
000202f8 56 41 4c 20 62 75 73 20  |VAL bus |
00020300 70 61 72 69 74 79 20 65  |parity e|
00020308 72 72 6f 72 56 41 4c 20  |rrorVAL |
00020310 62 6f 61 72 64 20 75 41  |board uA|
00020318 44 44 52 20 70 61 72 69  |DDR pari|
00020320 74 79 20 65 72 72 6f 72  |ty error|
00020328 20 20 56 41 4c 20 62 6f  |  VAL bo|
00020330 61 72 64 20 57 43 53 20  |ard WCS |
00020338 52 41 4d 20 70 61 72 69  |RAM pari|
00020340 74 79 20 65 72 72 6f 72  |ty error|
00020348 56 41 4c 20 62 6f 61 72  |VAL boar|
00020350 64 20 41 52 46 20 52 41  |d ARF RA|
00020358 4d 20 70 61 72 69 74 79  |M parity|
00020360 20 65 72 72 6f 72 56 41  | errorVA|
00020368 4c 20 62 6f 61 72 64 20  |L board |
00020370 42 52 46 20 52 41 4d 20  |BRF RAM |
00020378 70 61 72 69 74 79 20 65  |parity e|
00020380 72 72 6f 72 56 41 4c 20  |rrorVAL |
00020388 62 6f 61 72 64 20 56 41  |board VA|
00020390 4c 20 62 75 73 20 70 61  |L bus pa|
00020398 72 69 74 79 20 65 72 72  |rity err|
000203a0 6f 72 56 41 4c 20 62 6f  |orVAL bo|
000203a8 61 72 64 20 46 49 55 20  |ard FIU |
000203b0 62 75 73 20 70 61 72 69  |bus pari|
000203b8 74 79 20 65 72 72 6f 72  |ty error|
000203c0 56 41 4c 20 62 6f 61 72  |VAL boar|
000203c8 64 20 57 44 52 20 70 61  |d WDR pa|
000203d0 72 69 74 79 20 65 72 72  |rity err|
000203d8 6f 72 20 20 20 20 54 59  |or    TY|
000203e0 50 20 62 6f 61 72 64 20  |P board |
000203e8 75 41 44 44 52 20 70 61  |uADDR pa|
000203f0 72 69 74 79 20 65 72 72  |rity err|
000203f8 6f 72 20 20 54 59 50 20  |or  TYP |
00020400 62 6f 61 72 64 20 57 43  |board WC|
00020408 53 20 52 41 4d 20 70 61  |S RAM pa|
00020410 72 69 74 79 20 65 72 72  |rity err|
00020418 6f 72 54 59 50 20 62 6f  |orTYP bo|
00020420 61 72 64 20 41 52 46 20  |ard ARF |
00020428 52 41 4d 20 70 61 72 69  |RAM pari|
00020430 74 79 20 65 72 72 6f 72  |ty error|
00020438 54 59 50 20 62 6f 61 72  |TYP boar|
00020440 64 20 42 52 46 20 52 41  |d BRF RA|
00020448 4d 20 70 61 72 69 74 79  |M parity|
00020450 20 65 72 72 6f 72 54 59  | errorTY|
00020458 50 20 62 6f 61 72 64 20  |P board |
00020460 54 59 50 20 62 75 73 20  |TYP bus |
00020468 70 61 72 69 74 79 20 65  |parity e|
00020470 72 72 6f 72 54 59 50 20  |rrorTYP |
00020478 62 6f 61 72 64 20 46 49  |board FI|
00020480 55 20 62 75 73 20 70 61  |U bus pa|
00020488 72 69 74 79 20 65 72 72  |rity err|
00020490 6f 72 54 59 50 20 62 6f  |orTYP bo|
00020498 61 72 64 20 57 44 52 20  |ard WDR |
000204a0 70 61 72 69 74 79 20 65  |parity e|
000204a8 72 72 6f 72 20 20 20 20  |rror    |
000204b0 53 45 51 20 62 6f 61 72  |SEQ boar|
000204b8 64 20 46 49 55 20 62 75  |d FIU bu|
000204c0 73 20 70 61 72 69 74 79  |s parity|
000204c8 20 65 72 72 6f 72 53 45  | errorSE|
000204d0 51 20 62 6f 61 72 64 20  |Q board |
000204d8 56 41 4c 20 62 75 73 20  |VAL bus |
000204e0 70 61 72 69 74 79 20 65  |parity e|
000204e8 72 72 6f 72 53 45 51 20  |rrorSEQ |
000204f0 62 6f 61 72 64 20 54 59  |board TY|
000204f8 50 20 62 75 73 20 70 61  |P bus pa|
00020500 72 69 74 79 20 65 72 72  |rity err|
00020508 6f 72 53 45 51 20 62 6f  |orSEQ bo|
00020510 61 72 64 20 57 43 53 20  |ard WCS |
00020518 52 41 4d 20 70 61 72 69  |RAM pari|
00020520 74 79 20 65 72 72 6f 72  |ty error|
00020528 53 45 51 20 62 6f 61 72  |SEQ boar|
00020530 64 20 44 45 43 20 52 41  |d DEC RA|
00020538 4d 20 70 61 72 69 74 79  |M parity|
00020540 20 65 72 72 6f 72 4d 69  | errorMi|
00020548 63 72 6f 63 6f 64 65 20  |crocode |
00020550 48 41 4c 54 20 20 20 20  |HALT    |
00020558 20 20 20 20 20 20 20 20  |        |
00020560 20 20 20 20              |        |		.XXX[0x4]
00020564 46 49 55 20              |FIU     |		.XXX[0x4]
00020568 62 6f 61 72 64 20 46 49  |board FI|		.XXX[0x250]
00020570 55 20 62 75 73 20 70 61  |U bus pa|
00020578 72 69 74 79 20 65 72 72  |rity err|
00020580 6f 72 46 49 55 20 62 6f  |orFIU bo|
00020588 61 72 64 20 56 41 4c 20  |ard VAL |
00020590 62 75 73 20 70 61 72 69  |bus pari|
00020598 74 79 20 65 72 72 6f 72  |ty error|
000205a0 46 49 55 20 62 6f 61 72  |FIU boar|
000205a8 64 20 54 59 50 20 62 75  |d TYP bu|
000205b0 73 20 70 61 72 69 74 79  |s parity|
000205b8 20 65 72 72 6f 72 46 49  | errorFI|
000205c0 55 20 62 6f 61 72 64 20  |U board |
000205c8 41 44 52 20 62 75 73 20  |ADR bus |
000205d0 70 61 72 69 74 79 20 65  |parity e|
000205d8 72 72 6f 72 52 65 66 72  |rrorRefr|
000205e0 65 73 68 20 4d 61 63 68  |esh Mach|
000205e8 69 6e 65 20 43 68 65 63  |ine Chec|
000205f0 6b 20 65 72 72 6f 72 20  |k error |
000205f8 20 20 46 49 55 20 62 6f  |  FIU bo|
00020600 61 72 64 20 57 43 53 20  |ard WCS |
00020608 52 41 4d 20 70 61 72 69  |RAM pari|
00020610 74 79 20 65 72 72 6f 72  |ty error|
00020618 46 49 55 20 62 6f 61 72  |FIU boar|
00020620 64 20 75 41 44 44 52 20  |d uADDR |
00020628 70 61 72 69 74 79 20 65  |parity e|
00020630 72 72 6f 72 20 20 46 49  |rror  FI|
00020638 55 20 62 6f 61 72 64 20  |U board |
00020640 53 43 41 56 52 41 4d 20  |SCAVRAM |
00020648 70 61 72 69 74 79 20 65  |parity e|
00020650 72 72 6f 72 4d 45 4d 30  |rrorMEM0|
00020658 20 54 61 67 73 74 6f 72  | Tagstor|
00020660 65 20 30 20 70 61 72 69  |e 0 pari|
00020668 74 79 20 65 72 72 6f 72  |ty error|
00020670 20 20 4d 45 4d 30 20 54  |  MEM0 T|
00020678 61 67 73 74 6f 72 65 20  |agstore |
00020680 31 20 70 61 72 69 74 79  |1 parity|
00020688 20 65 72 72 6f 72 20 20  | error  |
00020690 4d 45 4d 30 20 41 64 64  |MEM0 Add|
00020698 72 65 73 73 20 62 75 73  |ress bus|
000206a0 20 70 61 72 69 74 79 20  | parity |
000206a8 65 72 72 6f 72 20 4d 45  |error ME|
000206b0 4d 31 20 54 61 67 73 74  |M1 Tagst|
000206b8 6f 72 65 20 30 20 70 61  |ore 0 pa|
000206c0 72 69 74 79 20 65 72 72  |rity err|
000206c8 6f 72 20 20 4d 45 4d 31  |or  MEM1|
000206d0 20 54 61 67 73 74 6f 72  | Tagstor|
000206d8 65 20 31 20 70 61 72 69  |e 1 pari|
000206e0 74 79 20 65 72 72 6f 72  |ty error|
000206e8 20 20 4d 45 4d 31 20 41  |  MEM1 A|
000206f0 64 64 72 65 73 73 20 62  |ddress b|
000206f8 75 73 20 70 61 72 69 74  |us parit|
00020700 79 20 65 72 72 6f 72 20  |y error |
00020708 4d 45 4d 32 20 54 61 67  |MEM2 Tag|
00020710 73 74 6f 72 65 20 30 20  |store 0 |
00020718 70 61 72 69 74 79 20 65  |parity e|
00020720 72 72 6f 72 20 20 4d 45  |rror  ME|
00020728 4d 32 20 54 61 67 73 74  |M2 Tagst|
00020730 6f 72 65 20 31 20 70 61  |ore 1 pa|
00020738 72 69 74 79 20 65 72 72  |rity err|
00020740 6f 72 20 20 4d 45 4d 32  |or  MEM2|
00020748 20 41 64 64 72 65 73 73  | Address|
00020750 20 62 75 73 20 70 61 72  | bus par|
00020758 69 74 79 20 65 72 72 6f  |ity erro|
00020760 72 20 4d 45 4d 33 20 54  |r MEM3 T|
00020768 61 67 73 74 6f 72 65 20  |agstore |
00020770 30 20 70 61 72 69 74 79  |0 parity|
00020778 20 65 72 72 6f 72 20 20  | error  |
00020780 4d 45 4d 33 20 54 61 67  |MEM3 Tag|
00020788 73 74 6f 72 65 20 31 20  |store 1 |
00020790 70 61 72 69 74 79 20 65  |parity e|
00020798 72 72 6f 72 20 20 4d 45  |rror  ME|
000207a0 4d 33 20 41 64 64 72 65  |M3 Addre|
000207a8 73 73 20 62 75 73 20 70  |ss bus p|
000207b0 61 72 69 74 79 20 65 72  |arity er|
000207b8 72 6f 72 20              |ror     |		.XXX[0x4]
000207bc 5f 5f                    |__      |		.TXT	'__'
000207be 20 20 75 61 64 64 72 20  |  uaddr |		.TXT	'  uaddr trace:'
000207cc 20 5f                    | _      |		.TXT	' _'
000207ce 3d 20                    |=       |		.TXT	'= '
000207d0 23 20                    |#       |		.TXT	'# '
000207d2 4c 41 53 54 5f 55 43 4f  |LAST_UCO|		.TXT	'LAST_UCODE'
000207dc 2e 20                    |.       |		.TXT	'. '
000207de 2e 20                    |.       |		.TXT	'. '
000207e0 20 20 2d 2d 75 63 6f 64  |  --ucod|		.TXT	'  --ucode_'
000207ea 20 20 2a 2a 20 75 63 6f  |  ** uco|		.TXT	'  ** ucode version ?? '
00020800 54 6f 6f 20 6d 61 6e 79  |Too many|		.TXT	'Too many boards failed. '
00020818 20 20                    |        |		.TXT	'  '
0002081a 4d 45                    |ME      |		.TXT	'ME'
0002081c 4d 30                    |M0      |		.TXT	'M0'
0002081e 20 20                    |        |		.TXT	'  '
00020820 4d 45                    |ME      |		.TXT	'ME'
00020822 4d 32                    |M2      |		.TXT	'M2'
00020824 3a 20 54 53 41 5f 53 54  |: TSA_ST|		.TXT	': TSA_STORED_PAR= '
00020836 2c 20 54 53 42 5f 53 54  |, TSB_ST|		.TXT	', TSB_STORED_PAR= '
00020848 20 20 20 20 20 20 20 20  |        |		.TXT	'        TSA_EXPECT_PAR= '
00020860 2c 20 54 53 42 5f 45 58  |, TSB_EX|		.TXT	', TSB_EXPECT_PAR= '
00020872 53 45 41 52 43 48 5f 52  |SEARCH_R|		.TXT	'SEARCH_RF_ERRORS.VAL'
00020886 20 20 56 41 4c 20        |  VAL   |		.TXT	'  VAL '
0002088c 53 45 41 52 43 48 5f 52  |SEARCH_R|		.TXT	'SEARCH_RF_ERRORS.TYP'
000208a0 20 20 54 59 50 20        |  TYP   |		.TXT	'  TYP '
000208a6 20 52 46 20              | RF     |		.TXT	' RF '
000208aa 65 72 72 6f              |erro    |		.TXT	'erro'
000208ae 72 20 40 5f              |r @_    |		.TXT	'r @_'
000208b2 3a 20                    |:       |		.TXT	': '
000208b4 41 52                    |AR      |		.TXT	'AR'
000208b6 46 3d                    |F=      |		.TXT	'F='
000208b8 2c 20 70 61 72 69 74 79  |, parity|		.TXT	', parity ok '
000208c4 2c 20 70 61 72 69 74 79  |, parity|		.TXT	', parity BAD! '
000208d2 20 20 20 20 20 20 20 20  |        |		.TXT	'                      BRF='
000208ec 2c 20 70 61 72 69 74 79  |, parity|		.TXT	', parity ok '
000208f8 2c 20 70 61 72 69 74 79  |, parity|		.TXT	', parity BAD! '
00020906 20 68 61 64 20 61 6e 20  | had an |		.TXT	' had an ARF or BRF parity error but its register files are OK '
00020944 45 4d                    |EM      |		.TXT	'EM'
00020946 42 41                    |BA      |		.TXT	'BA'
00020948 4c 4d                    |LM      |		.TXT	'LM'
0002094a 45 4d                    |EM      |		.TXT	'EM'
0002094c 57 43                    |WC      |		.TXT	'WC'
0002094e 53 50                    |SP      |		.TXT	'SP'
00020950 4d 45 4d 30              |MEM0    |		.TXT	'MEM0'
00020954 54 59 50 20 62 6f 61 72  |TYP boar|		.TXT	'TYP board drove TYP bus '
0002096c 46 49 55 20 62 6f 61 72  |FIU boar|		.TXT	'FIU board drove TYP bus '
00020984 49 4f 43 20 62 6f 61 72  |IOC boar|		.TXT	'IOC board drove TYP bus '
0002099c 53 45 51 20 62 6f 61 72  |SEQ boar|		.TXT	'SEQ board drove TYP bus '
000209b4 20 52 44 52 20 6f 72 20  | RDR or |		.TXT	' RDR or IOC drove TYP bus & IOC drove the parity'
000209e4 2a 2a 2a 20 69 6c 6c 65  |*** ille|		.TXT	'*** illegal TYP bus src field '
00020a02 56 41 4c 20 62 6f 61 72  |VAL boar|		.TXT	'VAL board drove VAL bus '
00020a1a 46 49 55 20 62 6f 61 72  |FIU boar|		.TXT	'FIU board drove VAL bus '
00020a32 49 4f 43 20 62 6f 61 72  |IOC boar|		.TXT	'IOC board drove VAL bus '
00020a4a 53 45 51 20 62 6f 61 72  |SEQ boar|		.TXT	'SEQ board drove VAL bus '
00020a62 20 54 56 52 20 64 72 6f  | TVR dro|		.TXT	' TVR drove VAL bus'
00020a74 20 52 44 52 20 6f 72 20  | RDR or |		.TXT	' RDR or IOC drove VAL bus & IOC drove the parity'
00020aa4 2a 2a 2a 20 69 6c 6c 65  |*** ille|		.TXT	'*** illegal VAL bus src field '
00020ac2 46 49 55 20 62 6f 61 72  |FIU boar|		.TXT	'FIU board drove FIU bus '
00020ada 56 41 4c 20 62 6f 61 72  |VAL boar|		.TXT	'VAL board drove FIU bus '
00020af2 54 59 50 20 62 6f 61 72  |TYP boar|		.TXT	'TYP board drove FIU bus '
00020b0a 53 45 51 20 62 6f 61 72  |SEQ boar|		.TXT	'SEQ board drove FIU bus '
00020b22 46 49 55 20 62 6f 61 72  |FIU boar|		.TXT	'FIU board drove FIU bus '
00020b3a 56 41 4c 20 62 6f 61 72  |VAL boar|		.TXT	'VAL board drove FIU bus '
00020b52 54 59 50 20 62 6f 61 72  |TYP boar|		.TXT	'TYP board drove FIU bus '
00020b6a 53 45 51 20 62 6f 61 72  |SEQ boar|		.TXT	'SEQ board drove FIU bus '
00020b82 00 80 00 40 00 20        |   @    |		.XXX[0x6]
00020b88 00 10 00 08 00 04 00 02  |        |		.XXX[0x18]
00020b90 00 01 55 6e 6b 6e 6f 77  |  Unknow|
00020b98 6e 20 65 72 72 6f 72 20  |n error |
00020ba0 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00020bb0 48 61 6c 74 20 20 20 20  |Halt    |		.XXX[0x8]
00020bb8 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00020bc8 20 20 20 20 20 20 52 65  |      Re|		.XXX[0x420]
00020bd0 66 72 65 73 68 20 6d 61  |fresh ma|
00020bd8 63 68 69 6e 65 20 63 68  |chine ch|
00020be0 65 63 6b 20 20 20 20 20  |eck     |
00020be8 20 20 20 20 4d 69 63 72  |    Micr|
00020bf0 6f 61 64 64 72 65 73 73  |oaddress|
00020bf8 20 62 75 73 20 70 61 72  | bus par|
00020c00 69 74 79 20 20 20 20 20  |ity     |
00020c08 20 20 57 43 53 20 52 41  |  WCS RA|
00020c10 4d 20 70 61 72 69 74 79  |M parity|
00020c18 20 65 72 72 6f 72 20 20  | error  |
00020c20 20 20 20 20 20 20 20 20  |        |
00020c28 44 65 63 6f 64 65 20 52  |Decode R|
00020c30 41 4d 20 70 61 72 69 74  |AM parit|
00020c38 79 20 65 72 72 6f 72 20  |y error |
00020c40 20 20 20 20 20 20 53 63  |      Sc|
00020c48 61 76 65 6e 67 65 72 20  |avenger |
00020c50 52 41 4d 20 70 61 72 69  |RAM pari|
00020c58 74 79 20 65 72 72 6f 72  |ty error|
00020c60 20 20 20 20 52 65 67 69  |    Regi|
00020c68 73 74 65 72 20 46 69 6c  |ster Fil|
00020c70 65 20 52 41 4d 20 70 61  |e RAM pa|
00020c78 72 69 74 79 20 65 72 72  |rity err|
00020c80 6f 72 46 6f 72 65 70 6c  |orForepl|
00020c88 61 6e 65 20 62 75 73 20  |ane bus |
00020c90 70 61 72 69 74 79 20 65  |parity e|
00020c98 72 72 6f 72 20 20 20 20  |rror    |
00020ca0 41 64 64 72 65 73 73 20  |Address |
00020ca8 62 75 73 20 70 61 72 69  |bus pari|
00020cb0 74 79 20 65 72 72 6f 72  |ty error|
00020cb8 20 20 20 20 20 20 54 61  |      Ta|
00020cc0 67 73 74 6f 72 65 20 52  |gstore R|
00020cc8 41 4d 20 70 61 72 69 74  |AM parit|
00020cd0 79 20 65 72 72 6f 72 20  |y error |
00020cd8 20 20 20 20 57 44 52 2f  |    WDR/|
00020ce0 46 6f 72 65 70 6c 61 6e  |Foreplan|
00020ce8 65 5f 62 75 73 20 65 72  |e_bus er|
00020cf0 72 6f 72 20 20 20 20 20  |ror     |
00020cf8 20 20 49 4f 43 20 62 6f  |  IOC bo|
00020d00 61 72 64 20 75 41 44 44  |ard uADD|
00020d08 52 20 70 61 72 69 74 79  |R parity|
00020d10 20 65 72 72 6f 72 20 20  | error  |
00020d18 04 03 49 4f 43 20 62 6f  |  IOC bo|
00020d20 61 72 64 20 57 43 53 20  |ard WCS |
00020d28 52 41 4d 20 70 61 72 69  |RAM pari|
00020d30 74 79 20 65 72 72 6f 72  |ty error|
00020d38 04 04 49 4f 43 20 62 6f  |  IOC bo|
00020d40 61 72 64 20 54 59 50 20  |ard TYP |
00020d48 62 75 73 20 70 61 72 69  |bus pari|
00020d50 74 79 20 65 72 72 6f 72  |ty error|
00020d58 04 08 49 4f 43 20 62 6f  |  IOC bo|
00020d60 61 72 64 20 56 41 4c 20  |ard VAL |
00020d68 62 75 73 20 70 61 72 69  |bus pari|
00020d70 74 79 20 65 72 72 6f 72  |ty error|
00020d78 04 08 56 41 4c 20 62 6f  |  VAL bo|
00020d80 61 72 64 20 75 41 44 44  |ard uADD|
00020d88 52 20 70 61 72 69 74 79  |R parity|
00020d90 20 65 72 72 6f 72 20 20  | error  |
00020d98 07 03 56 41 4c 20 62 6f  |  VAL bo|
00020da0 61 72 64 20 57 43 53 20  |ard WCS |
00020da8 52 41 4d 20 70 61 72 69  |RAM pari|
00020db0 74 79 20 65 72 72 6f 72  |ty error|
00020db8 07 04 56 41 4c 20 62 6f  |  VAL bo|
00020dc0 61 72 64 20 41 52 46 20  |ard ARF |
00020dc8 52 41 4d 20 70 61 72 69  |RAM pari|
00020dd0 74 79 20 65 72 72 6f 72  |ty error|
00020dd8 07 07 56 41 4c 20 62 6f  |  VAL bo|
00020de0 61 72 64 20 42 52 46 20  |ard BRF |
00020de8 52 41 4d 20 70 61 72 69  |RAM pari|
00020df0 74 79 20 65 72 72 6f 72  |ty error|
00020df8 07 07 56 41 4c 20 62 6f  |  VAL bo|
00020e00 61 72 64 20 56 41 4c 20  |ard VAL |
00020e08 62 75 73 20 70 61 72 69  |bus pari|
00020e10 74 79 20 65 72 72 6f 72  |ty error|
00020e18 07 08 56 41 4c 20 62 6f  |  VAL bo|
00020e20 61 72 64 20 46 49 55 20  |ard FIU |
00020e28 62 75 73 20 70 61 72 69  |bus pari|
00020e30 74 79 20 65 72 72 6f 72  |ty error|
00020e38 07 08 56 41 4c 20 62 6f  |  VAL bo|
00020e40 61 72 64 20 57 44 52 20  |ard WDR |
00020e48 70 61 72 69 74 79 20 65  |parity e|
00020e50 72 72 6f 72 20 20 20 20  |rror    |
00020e58 07 0b 54 59 50 20 62 6f  |  TYP bo|
00020e60 61 72 64 20 75 41 44 44  |ard uADD|
00020e68 52 20 70 61 72 69 74 79  |R parity|
00020e70 20 65 72 72 6f 72 20 20  | error  |
00020e78 06 03 54 59 50 20 62 6f  |  TYP bo|
00020e80 61 72 64 20 57 43 53 20  |ard WCS |
00020e88 52 41 4d 20 70 61 72 69  |RAM pari|
00020e90 74 79 20 65 72 72 6f 72  |ty error|
00020e98 06 04 54 59 50 20 62 6f  |  TYP bo|
00020ea0 61 72 64 20 41 52 46 20  |ard ARF |
00020ea8 52 41 4d 20 70 61 72 69  |RAM pari|
00020eb0 74 79 20 65 72 72 6f 72  |ty error|
00020eb8 06 07 54 59 50 20 62 6f  |  TYP bo|
00020ec0 61 72 64 20 42 52 46 20  |ard BRF |
00020ec8 52 41 4d 20 70 61 72 69  |RAM pari|
00020ed0 74 79 20 65 72 72 6f 72  |ty error|
00020ed8 06 07 54 59 50 20 62 6f  |  TYP bo|
00020ee0 61 72 64 20 54 59 50 20  |ard TYP |
00020ee8 62 75 73 20 70 61 72 69  |bus pari|
00020ef0 74 79 20 65 72 72 6f 72  |ty error|
00020ef8 06 08 54 59 50 20 62 6f  |  TYP bo|
00020f00 61 72 64 20 46 49 55 20  |ard FIU |
00020f08 62 75 73 20 70 61 72 69  |bus pari|
00020f10 74 79 20 65 72 72 6f 72  |ty error|
00020f18 06 08 54 59 50 20 62 6f  |  TYP bo|
00020f20 61 72 64 20 57 44 52 20  |ard WDR |
00020f28 70 61 72 69 74 79 20 65  |parity e|
00020f30 72 72 6f 72 20 20 20 20  |rror    |
00020f38 06 0b 53 45 51 20 62 6f  |  SEQ bo|
00020f40 61 72 64 20 46 49 55 20  |ard FIU |
00020f48 62 75 73 20 70 61 72 69  |bus pari|
00020f50 74 79 20 65 72 72 6f 72  |ty error|
00020f58 02 08 53 45 51 20 62 6f  |  SEQ bo|
00020f60 61 72 64 20 56 41 4c 20  |ard VAL |
00020f68 62 75 73 20 70 61 72 69  |bus pari|
00020f70 74 79 20 65 72 72 6f 72  |ty error|
00020f78 02 08 53 45 51 20 62 6f  |  SEQ bo|
00020f80 61 72 64 20 54 59 50 20  |ard TYP |
00020f88 62 75 73 20 70 61 72 69  |bus pari|
00020f90 74 79 20 65 72 72 6f 72  |ty error|
00020f98 02 08 53 45 51 20 62 6f  |  SEQ bo|
00020fa0 61 72 64 20 57 43 53 20  |ard WCS |
00020fa8 52 41 4d 20 70 61 72 69  |RAM pari|
00020fb0 74 79 20 65 72 72 6f 72  |ty error|
00020fb8 02 04 53 45 51 20 62 6f  |  SEQ bo|
00020fc0 61 72 64 20 44 45 43 20  |ard DEC |
00020fc8 52 41 4d 20 70 61 72 69  |RAM pari|
00020fd0 74 79 20 65 72 72 6f 72  |ty error|
00020fd8 02 05 4d 69 63 72 6f 63  |  Microc|
00020fe0 6f 64 65 20 48 41 4c 54  |ode HALT|
00020fe8 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00020ff8 02 01 46 49 55 20 62 6f  |  FIU bo|		.XXX[0x280]
00021000 61 72 64 20 46 49 55 20  |ard FIU |
00021008 62 75 73 20 70 61 72 69  |bus pari|
00021010 74 79 20 65 72 72 6f 72  |ty error|
00021018 03 08 46 49 55 20 62 6f  |  FIU bo|
00021020 61 72 64 20 56 41 4c 20  |ard VAL |
00021028 62 75 73 20 70 61 72 69  |bus pari|
00021030 74 79 20 65 72 72 6f 72  |ty error|
00021038 03 08 46 49 55 20 62 6f  |  FIU bo|
00021040 61 72 64 20 54 59 50 20  |ard TYP |
00021048 62 75 73 20 70 61 72 69  |bus pari|
00021050 74 79 20 65 72 72 6f 72  |ty error|
00021058 03 08 46 49 55 20 62 6f  |  FIU bo|
00021060 61 72 64 20 41 44 52 20  |ard ADR |
00021068 62 75 73 20 70 61 72 69  |bus pari|
00021070 74 79 20 65 72 72 6f 72  |ty error|
00021078 03 09 52 65 66 72 65 73  |  Refres|
00021080 68 20 4d 61 63 68 69 6e  |h Machin|
00021088 65 20 43 68 65 63 6b 20  |e Check |
00021090 65 72 72 6f 72 20 20 20  |error   |
00021098 03 02 46 49 55 20 62 6f  |  FIU bo|
000210a0 61 72 64 20 57 43 53 20  |ard WCS |
000210a8 52 41 4d 20 70 61 72 69  |RAM pari|
000210b0 74 79 20 65 72 72 6f 72  |ty error|
000210b8 03 04 46 49 55 20 62 6f  |  FIU bo|
000210c0 61 72 64 20 75 41 44 44  |ard uADD|
000210c8 52 20 70 61 72 69 74 79  |R parity|
000210d0 20 65 72 72 6f 72 20 20  | error  |
000210d8 03 03 46 49 55 20 62 6f  |  FIU bo|
000210e0 61 72 64 20 53 43 41 56  |ard SCAV|
000210e8 52 41 4d 20 70 61 72 69  |RAM pari|
000210f0 74 79 20 65 72 72 6f 72  |ty error|
000210f8 03 06 4d 45 4d 30 20 54  |  MEM0 T|
00021100 61 67 73 74 6f 72 65 20  |agstore |
00021108 30 20 70 61 72 69 74 79  |0 parity|
00021110 20 65 72 72 6f 72 20 20  | error  |
00021118 0c 0a 4d 45 4d 30 20 54  |  MEM0 T|
00021120 61 67 73 74 6f 72 65 20  |agstore |
00021128 31 20 70 61 72 69 74 79  |1 parity|
00021130 20 65 72 72 6f 72 20 20  | error  |
00021138 0c 0a 4d 45 4d 30 20 41  |  MEM0 A|
00021140 64 64 72 65 73 73 20 62  |ddress b|
00021148 75 73 20 70 61 72 69 74  |us parit|
00021150 79 20 65 72 72 6f 72 20  |y error |
00021158 0c 09 4d 45 4d 31 20 54  |  MEM1 T|
00021160 61 67 73 74 6f 72 65 20  |agstore |
00021168 30 20 70 61 72 69 74 79  |0 parity|
00021170 20 65 72 72 6f 72 20 20  | error  |
00021178 0d 0a 4d 45 4d 31 20 54  |  MEM1 T|
00021180 61 67 73 74 6f 72 65 20  |agstore |
00021188 31 20 70 61 72 69 74 79  |1 parity|
00021190 20 65 72 72 6f 72 20 20  | error  |
00021198 0d 0a 4d 45 4d 31 20 41  |  MEM1 A|
000211a0 64 64 72 65 73 73 20 62  |ddress b|
000211a8 75 73 20 70 61 72 69 74  |us parit|
000211b0 79 20 65 72 72 6f 72 20  |y error |
000211b8 0d 09 4d 45 4d 32 20 54  |  MEM2 T|
000211c0 61 67 73 74 6f 72 65 20  |agstore |
000211c8 30 20 70 61 72 69 74 79  |0 parity|
000211d0 20 65 72 72 6f 72 20 20  | error  |
000211d8 0e 0a 4d 45 4d 32 20 54  |  MEM2 T|
000211e0 61 67 73 74 6f 72 65 20  |agstore |
000211e8 31 20 70 61 72 69 74 79  |1 parity|
000211f0 20 65 72 72 6f 72 20 20  | error  |
000211f8 0e 0a 4d 45 4d 32 20 41  |  MEM2 A|
00021200 64 64 72 65 73 73 20 62  |ddress b|
00021208 75 73 20 70 61 72 69 74  |us parit|
00021210 79 20 65 72 72 6f 72 20  |y error |
00021218 0e 09 4d 45 4d 33 20 54  |  MEM3 T|
00021220 61 67 73 74 6f 72 65 20  |agstore |
00021228 30 20 70 61 72 69 74 79  |0 parity|
00021230 20 65 72 72 6f 72 20 20  | error  |
00021238 0f 0a 4d 45 4d 33 20 54  |  MEM3 T|
00021240 61 67 73 74 6f 72 65 20  |agstore |
00021248 31 20 70 61 72 69 74 79  |1 parity|
00021250 20 65 72 72 6f 72 20 20  | error  |
00021258 0f 0a 4d 45 4d 33 20 41  |  MEM3 A|
00021260 64 64 72 65 73 73 20 62  |ddress b|
00021268 75 73 20 70 61 72 69 74  |us parit|
00021270 79 20 65 72 72 6f 72 20  |y error |
00021278 0f 09                    |        |		.XXX[0x2]
0002127a ; --------------------------------------------------------------------------------------
0002127a ; OMSI PASCAL Function
0002127a ;    <LVAR  0x010 1(r)>
0002127a ;    <LVAR  0x00c 4(r)>
0002127a ;    <LVAR  0x00a 1(r)>
0002127a ;    <LVAR  0x008 1(r)>
0002127a ; --------------------------------------------------------------------------------------
0002127a 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
0002127e bf d5                    |        |		CMPA.L	(A5),A7
00021280 62 06                    |b       |		BHI	0x21288
00021282 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021286 4e 76                    |Nv      |		TRAPV
00021288 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
0002128c 48 e7 f0 80              |H       |		MOVEM.L	A0+D3+D2+D1+D0,-(A7)
00021290 76 01                    |v       |		MOVEQ.L	#0x01,D3
00021292 70 00                    |p       |		MOVEQ.L	#0x00,D0
00021294 22 2e 00 0c              |".      |		MOVE.L	(A6+0xc),D1
00021298 0c 81 00 00 00 07        |        |		CMPI.L	#0x00000007,D1
0002129e 63 02                    |c       |		BLS	0x212a2
000212a0 4e 4f                    |NO      |		TRAP	#15
000212a2 e3 81                    |        |		ASL.L	#0x1,D1
000212a4 41 fa f8 dc              |A       |		LEA.L	0x20b82,A0
000212a8 42 82                    |B       |		CLR.L	D2
000212aa 14 2e 00 10              | .      |		MOVE.B	(A6+0x10),D2
000212ae c4 70 18 00              | p      |		AND.W	(A0+D1.L),D2
000212b2 67 02                    |g       |		BEQ	0x212b6
000212b4 52 00                    |R       |		ADDQ.B	#0x1,D0
000212b6 b0 2e 00 0a              | .      |		CMP.B	(A6+0xa),D0
000212ba 66 5e                    |f^      |		BNE	0x2131a
000212bc 20 6c 00 28              | l (    |		MOVEA.L	(A4+0x28),A0
000212c0 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000212c4 48 80                    |H       |		EXTB.W	D0
000212c6 11 83 00 00              |        |		MOVE.B	D3,(A0+D0.W)
000212ca 3f 3a f4 f0              |?:      |		MOVE.W	0x207bc,-(A7)
000212ce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000212d0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000212d4 3f 03                    |?       |		MOVE.W	D3,-(A7)
000212d6 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
000212da 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000212e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212e2 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000212e8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000212ea eb 40                    | @      |		ASL.W	#0x5,D0
000212ec 41 fa fa 0c              |A       |		LEA.L	0x20cfa,A0
000212f0 41 f0 00 1e              |A       |		LEA.L	(A0+D0.W+#0x1e),A0
000212f4 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000212f6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000212f8 51 c8 ff fc              |Q       |		DBF	D0,0x212f6
000212fc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000212fe 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021302 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021304 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00021308 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002130e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021310 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021316 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
0002131a 4c df 01 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0
0002131e 4e 5e                    |N^      |		UNLK	A6
00021320 4e 75                    |Nu      |		RTS
00021322 ; --------------------------------------------------------------------------------------
00021322 ; OMSI PASCAL Function
00021322 ;    <LVAR -0x002 @ 1(r)>
00021322 ;    <LVAR -0x003 @>
00021322 ;    <LVAR -0x005 @ 1(r)>
00021322 ;    <LVAR -0x006 @ 1(r)>
00021322 ;    <LVAR -0x007 @ 1(r)>
00021322 ;    <LVAR -0x009 1(r)>
00021322 ;    <LVAR -0x00d @>
00021322 ;    <LVAR -0x012 1(r)>
00021322 ;    <LVAR -0x013 @ 1(r)>
00021322 ;    <LVAR -0x014 1(r)>
00021322 ;    <LVAR -0x018 @>
00021322 ;    <LVAR -0x01c 1(r)>
00021322 ;    <LVAR -0x01d @ 1(r)>
00021322 ;    <LVAR -0x01e 1(rw)>
00021322 ;    <LVAR -0x01f 1(rw)>
00021322 ;    <LVAR -0x020 @ 1(rw)>
00021322 ; --------------------------------------------------------------------------------------
00021322 4e 56 ff 9a              |NV      |		LINK.W	A6,#0xff9a
00021326 bf d5                    |        |		CMPA.L	(A5),A7
00021328 62 06                    |b       |		BHI	0x21330
0002132a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002132e 4e 76                    |Nv      |		TRAPV
00021330 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00021334 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021338 41 ee ff e0              |A       |		LEA.L	(A6-0x20),A0
0002133c 43 fa ff 3c              |C  <    |		LEA.L	0x2127a,A1
00021340 45 f8 00 07              |E       |		LEA.L	0x7,A2
00021344 47 ee ff e1              |G       |		LEA.L	(A6-0x1f),A3
00021348 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002134a 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
0002134c 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
0002134e 7a 02                    |z       |		MOVEQ.L	#0x02,D5
00021350 7c 03                    ||       |		MOVEQ.L	#0x03,D6
00021352 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021354 30 39 00 02 30 58        |09  0X  |		MOVE.W	0x23058,D0
0002135a 02 40 40 00              | @@     |		ANDI.W	#0x4000,D0
0002135e 67 02                    |g       |		BEQ	0x21362
00021360 52 07                    |R       |		ADDQ.B	#0x1,D7
00021362 30 39 00 02 30 5a        |09  0Z  |		MOVE.W	0x2305a,D0
00021368 02 40 3f 00              | @?     |		ANDI.W	#0x3f00,D0
0002136c e0 48                    | H      |		LSR.W	#0x8,D0
0002136e 16 80                    |        |		MOVE.B	D0,(A3)
00021370 30 39 00 02 30 5a        |09  0Z  |		MOVE.W	0x2305a,D0
00021376 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
0002137a 1d 40 ff e2              | @      |		MOVE.B	D0,(A6-0x1e)
0002137e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021380 1e 93                    |        |		MOVE.B	(A3),(A7)
00021382 1f 6e ff e2 00 01        | n      |		MOVE.B	(A6-0x1e),(A7+0x1)
00021388 42 27                    |B'      |		CLR.B	-(A7)
0002138a 48 6e ff ed              |Hn      |		PEA.L	(A6-0x13)
0002138e 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00021392 4e b9 00 02 2a 4e        |N   *N  |		JSR	exp_READ_WCS.TYP(Sw_2, Sw_1, &Sr_6, &Fr)
00021398 de c3                    |        |		ADDA.W	D3,A7
0002139a 1e 93                    |        |		MOVE.B	(A3),(A7)
0002139c 1f 6e ff e2 00 01        | n      |		MOVE.B	(A6-0x1e),(A7+0x1)
000213a2 42 27                    |B'      |		CLR.B	-(A7)
000213a4 48 6e ff e3              |Hn      |		PEA.L	(A6-0x1d)
000213a8 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
000213ac 4e b9 00 02 2a 8a        |N   *   |		JSR	exp_READ_WCS.VAL(Sw_2, Sw_1, &Sr_5, &Fr)
000213b2 de c3                    |        |		ADDA.W	D3,A7
000213b4 1e 93                    |        |		MOVE.B	(A3),(A7)
000213b6 1f 6e ff e2 00 01        | n      |		MOVE.B	(A6-0x1e),(A7+0x1)
000213bc 42 27                    |B'      |		CLR.B	-(A7)
000213be 48 79 00 02 30 d8        |Hy  0   |		PEA.L	0x230d8
000213c4 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
000213c8 4e b9 00 02 2d 90        |N   -   |		JSR	exp_READ_WCS.IOC(Sw_2, Sw_1, &Sr_2, &Fr)
000213ce de c4                    |        |		ADDA.W	D4,A7
000213d0 30 39 00 02 30 5c        |09  0\  |		MOVE.W	0x2305c,D0
000213d6 02 40 3f 00              | @?     |		ANDI.W	#0x3f00,D0
000213da e0 48                    | H      |		LSR.W	#0x8,D0
000213dc 16 80                    |        |		MOVE.B	D0,(A3)
000213de 30 39 00 02 30 5c        |09  0\  |		MOVE.W	0x2305c,D0
000213e4 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
000213e8 1d 40 ff e2              | @      |		MOVE.B	D0,(A6-0x1e)
000213ec 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000213ee 1e 93                    |        |		MOVE.B	(A3),(A7)
000213f0 1f 6e ff e2 00 01        | n      |		MOVE.B	(A6-0x1e),(A7+0x1)
000213f6 42 27                    |B'      |		CLR.B	-(A7)
000213f8 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
000213fc 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00021400 4e b9 00 02 2a 4e        |N   *N  |		JSR	exp_READ_WCS.TYP(Sw_2, Sw_1, &Sr_6, &Fr)
00021406 de c3                    |        |		ADDA.W	D3,A7
00021408 1e 93                    |        |		MOVE.B	(A3),(A7)
0002140a 1f 6e ff e2 00 01        | n      |		MOVE.B	(A6-0x1e),(A7+0x1)
00021410 42 27                    |B'      |		CLR.B	-(A7)
00021412 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00021416 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
0002141a 4e b9 00 02 2a 8a        |N   *   |		JSR	exp_READ_WCS.VAL(Sw_2, Sw_1, &Sr_5, &Fr)
00021420 de c3                    |        |		ADDA.W	D3,A7
00021422 1e 93                    |        |		MOVE.B	(A3),(A7)
00021424 1f 6e ff e2 00 01        | n      |		MOVE.B	(A6-0x1e),(A7+0x1)
0002142a 42 27                    |B'      |		CLR.B	-(A7)
0002142c 48 79 00 02 30 da        |Hy  0   |		PEA.L	0x230da
00021432 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00021436 4e b9 00 02 2d 90        |N   -   |		JSR	exp_READ_WCS.IOC(Sw_2, Sw_1, &Sr_2, &Fr)
0002143c de c3                    |        |		ADDA.W	D3,A7
0002143e 42 17                    |B       |		CLR.B	(A7)
00021440 48 50                    |HP      |		PEA.L	(A0)
00021442 4e b9 00 02 2e 06        |N   .   |		JSR	exp_READ_PAREG.IOC(Sw_1, &Sr_1)
00021448 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002144a 1e 90                    |        |		MOVE.B	(A0),(A7)
0002144c 48 78 00 04              |Hx      |		PEA.L	0x4
00021450 42 27                    |B'      |		CLR.B	-(A7)
00021452 1f 05                    |        |		MOVE.B	D5,-(A7)
00021454 28 48                    |(H      |		MOVEA.L	A0,A4
00021456 4e 91                    |N       |		JSR	(A1)
00021458 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002145a 1e 90                    |        |		MOVE.B	(A0),(A7)
0002145c 48 78 00 05              |Hx      |		PEA.L	0x5
00021460 42 27                    |B'      |		CLR.B	-(A7)
00021462 1f 06                    |        |		MOVE.B	D6,-(A7)
00021464 28 48                    |(H      |		MOVEA.L	A0,A4
00021466 4e 91                    |N       |		JSR	(A1)
00021468 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002146a 1e 90                    |        |		MOVE.B	(A0),(A7)
0002146c 48 78 00 06              |Hx      |		PEA.L	0x6
00021470 42 27                    |B'      |		CLR.B	-(A7)
00021472 1f 02                    |        |		MOVE.B	D2,-(A7)
00021474 28 48                    |(H      |		MOVEA.L	A0,A4
00021476 4e 91                    |N       |		JSR	(A1)
00021478 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002147a 1e 90                    |        |		MOVE.B	(A0),(A7)
0002147c 48 52                    |HR      |		PEA.L	(A2)
0002147e 42 27                    |B'      |		CLR.B	-(A7)
00021480 42 27                    |B'      |		CLR.B	-(A7)
00021482 28 48                    |(H      |		MOVEA.L	A0,A4
00021484 4e 91                    |N       |		JSR	(A1)
00021486 de c3                    |        |		ADDA.W	D3,A7
00021488 48 50                    |HP      |		PEA.L	(A0)
0002148a 4e b9 00 02 2a a8        |N   *   |		JSR	exp_READ_PARITY.VAL(&Sr_1)
00021490 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021492 1e 90                    |        |		MOVE.B	(A0),(A7)
00021494 48 78 00 00              |Hx      |		PEA.L	0x0
00021498 42 27                    |B'      |		CLR.B	-(A7)
0002149a 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
0002149e 28 48                    |(H      |		MOVEA.L	A0,A4
000214a0 4e 91                    |N       |		JSR	(A1)
000214a2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214a4 1e 90                    |        |		MOVE.B	(A0),(A7)
000214a6 48 78 00 01              |Hx      |		PEA.L	0x1
000214aa 42 27                    |B'      |		CLR.B	-(A7)
000214ac 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
000214b0 28 48                    |(H      |		MOVEA.L	A0,A4
000214b2 4e 91                    |N       |		JSR	(A1)
000214b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214b6 1e 90                    |        |		MOVE.B	(A0),(A7)
000214b8 48 78 00 03              |Hx      |		PEA.L	0x3
000214bc 42 27                    |B'      |		CLR.B	-(A7)
000214be 1f 3c 00 06              | <      |		MOVE.B	#0x06,-(A7)
000214c2 28 48                    |(H      |		MOVEA.L	A0,A4
000214c4 4e 91                    |N       |		JSR	(A1)
000214c6 de c3                    |        |		ADDA.W	D3,A7
000214c8 42 80                    |B       |		CLR.L	D0
000214ca 10 2e ff e3              | .      |		MOVE.B	(A6-0x1d),D0
000214ce c0 46                    | F      |		AND.W	D6,D0
000214d0 b0 42                    | B      |		CMP.W	D2,D0
000214d2 66 22                    |f"      |		BNE	0x214f6
000214d4 42 80                    |B       |		CLR.L	D0
000214d6 10 2e ff e4              | .      |		MOVE.B	(A6-0x1c),D0
000214da 02 40 00 f0              | @      |		ANDI.W	#0x00f0,D0
000214de 0c 40 00 60              | @ `    |		CMPI.W	#0x0060,D0
000214e2 66 12                    |f       |		BNE	0x214f6
000214e4 4a 07                    |J       |		TST.B	D7
000214e6 66 0e                    |f       |		BNE	0x214f6
000214e8 1f 10                    |        |		MOVE.B	(A0),-(A7)
000214ea 48 78 00 02              |Hx      |		PEA.L	0x2
000214ee 42 27                    |B'      |		CLR.B	-(A7)
000214f0 1f 3c 00 08              | <      |		MOVE.B	#0x08,-(A7)
000214f4 60 0c                    |`       |		BRA	0x21502
000214f6 1f 10                    |        |		MOVE.B	(A0),-(A7)
000214f8 48 78 00 02              |Hx      |		PEA.L	0x2
000214fc 42 27                    |B'      |		CLR.B	-(A7)
000214fe 1f 3c 00 07              | <      |		MOVE.B	#0x07,-(A7)
00021502 28 48                    |(H      |		MOVEA.L	A0,A4
00021504 4e 91                    |N       |		JSR	(A1)
00021506 de c3                    |        |		ADDA.W	D3,A7
00021508 42 80                    |B       |		CLR.L	D0
0002150a 10 10                    |        |		MOVE.B	(A0),D0
0002150c 32 00                    |2       |		MOVE.W	D0,D1
0002150e 02 41 00 04              | A      |		ANDI.W	#0x0004,D1
00021512 67 28                    |g(      |		BEQ	0x2153c
00021514 42 81                    |B       |		CLR.L	D1
00021516 12 2e ff ec              | .      |		MOVE.B	(A6-0x14),D1
0002151a c2 45                    | E      |		AND.W	D5,D1
0002151c 66 0e                    |f       |		BNE	0x2152c
0002151e 1f 00                    |        |		MOVE.B	D0,-(A7)
00021520 48 78 00 04              |Hx      |		PEA.L	0x4
00021524 1f 02                    |        |		MOVE.B	D2,-(A7)
00021526 1f 3c 00 09              | <      |		MOVE.B	#0x09,-(A7)
0002152a 60 0a                    |`       |		BRA	0x21536
0002152c 1f 00                    |        |		MOVE.B	D0,-(A7)
0002152e 48 78 00 04              |Hx      |		PEA.L	0x4
00021532 1f 02                    |        |		MOVE.B	D2,-(A7)
00021534 1f 03                    |        |		MOVE.B	D3,-(A7)
00021536 28 48                    |(H      |		MOVEA.L	A0,A4
00021538 4e 91                    |N       |		JSR	(A1)
0002153a de c3                    |        |		ADDA.W	D3,A7
0002153c 48 50                    |HP      |		PEA.L	(A0)
0002153e 4e b9 00 02 2a 6c        |N   *l  |		JSR	exp_READ_PARITY.TYP(&Sr_1)
00021544 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021546 1e 90                    |        |		MOVE.B	(A0),(A7)
00021548 48 78 00 00              |Hx      |		PEA.L	0x0
0002154c 42 27                    |B'      |		CLR.B	-(A7)
0002154e 1f 3c 00 0b              | <      |		MOVE.B	#0x0b,-(A7)
00021552 28 48                    |(H      |		MOVEA.L	A0,A4
00021554 4e 91                    |N       |		JSR	(A1)
00021556 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021558 1e 90                    |        |		MOVE.B	(A0),(A7)
0002155a 48 78 00 01              |Hx      |		PEA.L	0x1
0002155e 42 27                    |B'      |		CLR.B	-(A7)
00021560 1f 04                    |        |		MOVE.B	D4,-(A7)
00021562 28 48                    |(H      |		MOVEA.L	A0,A4
00021564 4e 91                    |N       |		JSR	(A1)
00021566 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021568 1e 90                    |        |		MOVE.B	(A0),(A7)
0002156a 48 78 00 03              |Hx      |		PEA.L	0x3
0002156e 42 27                    |B'      |		CLR.B	-(A7)
00021570 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
00021574 28 48                    |(H      |		MOVEA.L	A0,A4
00021576 4e 91                    |N       |		JSR	(A1)
00021578 de c3                    |        |		ADDA.W	D3,A7
0002157a 42 80                    |B       |		CLR.L	D0
0002157c 10 2e ff ed              | .      |		MOVE.B	(A6-0x13),D0
00021580 c0 46                    | F      |		AND.W	D6,D0
00021582 b0 42                    | B      |		CMP.W	D2,D0
00021584 66 22                    |f"      |		BNE	0x215a8
00021586 42 80                    |B       |		CLR.L	D0
00021588 10 2e ff ee              | .      |		MOVE.B	(A6-0x12),D0
0002158c 02 40 00 f0              | @      |		ANDI.W	#0x00f0,D0
00021590 0c 40 00 60              | @ `    |		CMPI.W	#0x0060,D0
00021594 66 12                    |f       |		BNE	0x215a8
00021596 4a 07                    |J       |		TST.B	D7
00021598 66 0e                    |f       |		BNE	0x215a8
0002159a 1f 10                    |        |		MOVE.B	(A0),-(A7)
0002159c 48 78 00 02              |Hx      |		PEA.L	0x2
000215a0 42 27                    |B'      |		CLR.B	-(A7)
000215a2 1f 3c 00 0f              | <      |		MOVE.B	#0x0f,-(A7)
000215a6 60 0c                    |`       |		BRA	0x215b4
000215a8 1f 10                    |        |		MOVE.B	(A0),-(A7)
000215aa 48 78 00 02              |Hx      |		PEA.L	0x2
000215ae 42 27                    |B'      |		CLR.B	-(A7)
000215b0 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000215b4 28 48                    |(H      |		MOVEA.L	A0,A4
000215b6 4e 91                    |N       |		JSR	(A1)
000215b8 de c3                    |        |		ADDA.W	D3,A7
000215ba 42 80                    |B       |		CLR.L	D0
000215bc 10 10                    |        |		MOVE.B	(A0),D0
000215be 32 00                    |2       |		MOVE.W	D0,D1
000215c0 c2 45                    | E      |		AND.W	D5,D1
000215c2 67 2a                    |g*      |		BEQ	0x215ee
000215c4 42 81                    |B       |		CLR.L	D1
000215c6 12 2e ff f7              | .      |		MOVE.B	(A6-0x9),D1
000215ca c2 42                    | B      |		AND.W	D2,D1
000215cc 66 0e                    |f       |		BNE	0x215dc
000215ce 1f 00                    |        |		MOVE.B	D0,-(A7)
000215d0 48 78 00 05              |Hx      |		PEA.L	0x5
000215d4 1f 02                    |        |		MOVE.B	D2,-(A7)
000215d6 1f 3c 00 10              | <      |		MOVE.B	#0x10,-(A7)
000215da 60 0c                    |`       |		BRA	0x215e8
000215dc 1f 00                    |        |		MOVE.B	D0,-(A7)
000215de 48 78 00 05              |Hx      |		PEA.L	0x5
000215e2 1f 02                    |        |		MOVE.B	D2,-(A7)
000215e4 1f 3c 00 11              | <      |		MOVE.B	#0x11,-(A7)
000215e8 28 48                    |(H      |		MOVEA.L	A0,A4
000215ea 4e 91                    |N       |		JSR	(A1)
000215ec de c3                    |        |		ADDA.W	D3,A7
000215ee 48 50                    |HP      |		PEA.L	(A0)
000215f0 4e b9 00 02 2a 2c        |N   *,  |		JSR	exp_GET_MISC_ERRORS.SEQ(&Sr_1)
000215f6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000215f8 1e 90                    |        |		MOVE.B	(A0),(A7)
000215fa 48 78 00 03              |Hx      |		PEA.L	0x3
000215fe 42 27                    |B'      |		CLR.B	-(A7)
00021600 1f 3c 00 12              | <      |		MOVE.B	#0x12,-(A7)
00021604 28 48                    |(H      |		MOVEA.L	A0,A4
00021606 4e 91                    |N       |		JSR	(A1)
00021608 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002160a 1e 90                    |        |		MOVE.B	(A0),(A7)
0002160c 48 78 00 04              |Hx      |		PEA.L	0x4
00021610 42 27                    |B'      |		CLR.B	-(A7)
00021612 1f 3c 00 13              | <      |		MOVE.B	#0x13,-(A7)
00021616 28 48                    |(H      |		MOVEA.L	A0,A4
00021618 4e 91                    |N       |		JSR	(A1)
0002161a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002161c 1e 90                    |        |		MOVE.B	(A0),(A7)
0002161e 48 78 00 05              |Hx      |		PEA.L	0x5
00021622 42 27                    |B'      |		CLR.B	-(A7)
00021624 1f 3c 00 14              | <      |		MOVE.B	#0x14,-(A7)
00021628 28 48                    |(H      |		MOVEA.L	A0,A4
0002162a 4e 91                    |N       |		JSR	(A1)
0002162c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002162e 1e 90                    |        |		MOVE.B	(A0),(A7)
00021630 48 78 00 06              |Hx      |		PEA.L	0x6
00021634 42 27                    |B'      |		CLR.B	-(A7)
00021636 1f 3c 00 15              | <      |		MOVE.B	#0x15,-(A7)
0002163a 28 48                    |(H      |		MOVEA.L	A0,A4
0002163c 4e 91                    |N       |		JSR	(A1)
0002163e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021640 1e 90                    |        |		MOVE.B	(A0),(A7)
00021642 48 52                    |HR      |		PEA.L	(A2)
00021644 42 27                    |B'      |		CLR.B	-(A7)
00021646 1f 3c 00 16              | <      |		MOVE.B	#0x16,-(A7)
0002164a 28 48                    |(H      |		MOVEA.L	A0,A4
0002164c 4e 91                    |N       |		JSR	(A1)
0002164e de c3                    |        |		ADDA.W	D3,A7
00021650 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00021654 4e b9 00 02 2a 16        |N   *   |		JSR	exp_HALT.SEQ(&Fr)
0002165a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002165c 10 ae ff fe              |        |		MOVE.B	(A6-0x2),(A0)
00021660 1f 10                    |        |		MOVE.B	(A0),-(A7)
00021662 48 52                    |HR      |		PEA.L	(A2)
00021664 1f 02                    |        |		MOVE.B	D2,-(A7)
00021666 1f 3c 00 17              | <      |		MOVE.B	#0x17,-(A7)
0002166a 28 48                    |(H      |		MOVEA.L	A0,A4
0002166c 4e 91                    |N       |		JSR	(A1)
0002166e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021670 42 17                    |B       |		CLR.B	(A7)
00021672 48 50                    |HP      |		PEA.L	(A0)
00021674 4e b9 00 02 29 f8        |N   )   |		JSR	exp_READ_PAREG.FIU(Sw_1, &Sr_1)
0002167a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002167c 1e 90                    |        |		MOVE.B	(A0),(A7)
0002167e 48 78 00 00              |Hx      |		PEA.L	0x0
00021682 42 27                    |B'      |		CLR.B	-(A7)
00021684 1f 3c 00 18              | <      |		MOVE.B	#0x18,-(A7)
00021688 28 48                    |(H      |		MOVEA.L	A0,A4
0002168a 4e 91                    |N       |		JSR	(A1)
0002168c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002168e 1e 90                    |        |		MOVE.B	(A0),(A7)
00021690 48 78 00 01              |Hx      |		PEA.L	0x1
00021694 42 27                    |B'      |		CLR.B	-(A7)
00021696 1f 3c 00 19              | <      |		MOVE.B	#0x19,-(A7)
0002169a 28 48                    |(H      |		MOVEA.L	A0,A4
0002169c 4e 91                    |N       |		JSR	(A1)
0002169e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216a0 1e 90                    |        |		MOVE.B	(A0),(A7)
000216a2 48 78 00 02              |Hx      |		PEA.L	0x2
000216a6 42 27                    |B'      |		CLR.B	-(A7)
000216a8 1f 3c 00 1a              | <      |		MOVE.B	#0x1a,-(A7)
000216ac 28 48                    |(H      |		MOVEA.L	A0,A4
000216ae 4e 91                    |N       |		JSR	(A1)
000216b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216b2 1e 90                    |        |		MOVE.B	(A0),(A7)
000216b4 48 78 00 03              |Hx      |		PEA.L	0x3
000216b8 42 27                    |B'      |		CLR.B	-(A7)
000216ba 1f 3c 00 1b              | <      |		MOVE.B	#0x1b,-(A7)
000216be 28 48                    |(H      |		MOVEA.L	A0,A4
000216c0 4e 91                    |N       |		JSR	(A1)
000216c2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216c4 1e 90                    |        |		MOVE.B	(A0),(A7)
000216c6 48 78 00 04              |Hx      |		PEA.L	0x4
000216ca 42 27                    |B'      |		CLR.B	-(A7)
000216cc 1f 3c 00 1c              | <      |		MOVE.B	#0x1c,-(A7)
000216d0 28 48                    |(H      |		MOVEA.L	A0,A4
000216d2 4e 91                    |N       |		JSR	(A1)
000216d4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216d6 1e 90                    |        |		MOVE.B	(A0),(A7)
000216d8 48 78 00 05              |Hx      |		PEA.L	0x5
000216dc 42 27                    |B'      |		CLR.B	-(A7)
000216de 1f 3c 00 1d              | <      |		MOVE.B	#0x1d,-(A7)
000216e2 28 48                    |(H      |		MOVEA.L	A0,A4
000216e4 4e 91                    |N       |		JSR	(A1)
000216e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216e8 1e 90                    |        |		MOVE.B	(A0),(A7)
000216ea 48 78 00 06              |Hx      |		PEA.L	0x6
000216ee 42 27                    |B'      |		CLR.B	-(A7)
000216f0 1f 3c 00 1e              | <      |		MOVE.B	#0x1e,-(A7)
000216f4 28 48                    |(H      |		MOVEA.L	A0,A4
000216f6 4e 91                    |N       |		JSR	(A1)
000216f8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216fa 1e 90                    |        |		MOVE.B	(A0),(A7)
000216fc 48 52                    |HR      |		PEA.L	(A2)
000216fe 42 27                    |B'      |		CLR.B	-(A7)
00021700 1f 3c 00 1f              | <      |		MOVE.B	#0x1f,-(A7)
00021704 28 48                    |(H      |		MOVEA.L	A0,A4
00021706 4e 91                    |N       |		JSR	(A1)
00021708 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002170a 1e 84                    |        |		MOVE.B	D4,(A7)
0002170c 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00021712 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021714 4a 1f                    |J       |		TST.B	(A7)+
00021716 67 4c                    |gL      |		BEQ	0x21764
00021718 1f 04                    |        |		MOVE.B	D4,-(A7)
0002171a 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
0002171e 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00021722 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00021726 4e b9 00 02 2c c6        |N   ,   |		JSR	0x22cc6
0002172c de c4                    |        |		ADDA.W	D4,A7
0002172e 1e ae ff f9              |        |		MOVE.B	(A6-0x7),(A7)
00021732 48 52                    |HR      |		PEA.L	(A2)
00021734 1f 02                    |        |		MOVE.B	D2,-(A7)
00021736 1f 3c 00 20              | <      |		MOVE.B	#0x20,-(A7)
0002173a 28 48                    |(H      |		MOVEA.L	A0,A4
0002173c 4e 91                    |N       |		JSR	(A1)
0002173e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021740 1e ae ff fa              |        |		MOVE.B	(A6-0x6),(A7)
00021744 48 52                    |HR      |		PEA.L	(A2)
00021746 1f 02                    |        |		MOVE.B	D2,-(A7)
00021748 1f 3c 00 21              | < !    |		MOVE.B	#0x21,-(A7)
0002174c 28 48                    |(H      |		MOVEA.L	A0,A4
0002174e 4e 91                    |N       |		JSR	(A1)
00021750 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021752 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
00021756 48 52                    |HR      |		PEA.L	(A2)
00021758 1f 02                    |        |		MOVE.B	D2,-(A7)
0002175a 1f 3c 00 22              | < "    |		MOVE.B	#0x22,-(A7)
0002175e 28 48                    |(H      |		MOVEA.L	A0,A4
00021760 4e 91                    |N       |		JSR	(A1)
00021762 de c3                    |        |		ADDA.W	D3,A7
00021764 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021766 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
0002176a 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00021770 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021772 4a 1f                    |J       |		TST.B	(A7)+
00021774 67 4e                    |gN      |		BEQ	0x217c4
00021776 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
0002177a 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
0002177e 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00021782 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00021786 4e b9 00 02 2c c6        |N   ,   |		JSR	0x22cc6
0002178c de c4                    |        |		ADDA.W	D4,A7
0002178e 1e ae ff f9              |        |		MOVE.B	(A6-0x7),(A7)
00021792 48 52                    |HR      |		PEA.L	(A2)
00021794 1f 02                    |        |		MOVE.B	D2,-(A7)
00021796 1f 3c 00 23              | < #    |		MOVE.B	#0x23,-(A7)
0002179a 28 48                    |(H      |		MOVEA.L	A0,A4
0002179c 4e 91                    |N       |		JSR	(A1)
0002179e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217a0 1e ae ff fa              |        |		MOVE.B	(A6-0x6),(A7)
000217a4 48 52                    |HR      |		PEA.L	(A2)
000217a6 1f 02                    |        |		MOVE.B	D2,-(A7)
000217a8 1f 3c 00 24              | < $    |		MOVE.B	#0x24,-(A7)
000217ac 28 48                    |(H      |		MOVEA.L	A0,A4
000217ae 4e 91                    |N       |		JSR	(A1)
000217b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217b2 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
000217b6 48 52                    |HR      |		PEA.L	(A2)
000217b8 1f 02                    |        |		MOVE.B	D2,-(A7)
000217ba 1f 3c 00 25              | < %    |		MOVE.B	#0x25,-(A7)
000217be 28 48                    |(H      |		MOVEA.L	A0,A4
000217c0 4e 91                    |N       |		JSR	(A1)
000217c2 de c3                    |        |		ADDA.W	D3,A7
000217c4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000217c6 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000217ca 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
000217d0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000217d2 4a 1f                    |J       |		TST.B	(A7)+
000217d4 67 4e                    |gN      |		BEQ	0x21824
000217d6 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000217da 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
000217de 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000217e2 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
000217e6 4e b9 00 02 2c c6        |N   ,   |		JSR	0x22cc6
000217ec de c4                    |        |		ADDA.W	D4,A7
000217ee 1e ae ff f9              |        |		MOVE.B	(A6-0x7),(A7)
000217f2 48 52                    |HR      |		PEA.L	(A2)
000217f4 1f 02                    |        |		MOVE.B	D2,-(A7)
000217f6 1f 3c 00 26              | < &    |		MOVE.B	#0x26,-(A7)
000217fa 28 48                    |(H      |		MOVEA.L	A0,A4
000217fc 4e 91                    |N       |		JSR	(A1)
000217fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021800 1e ae ff fa              |        |		MOVE.B	(A6-0x6),(A7)
00021804 48 52                    |HR      |		PEA.L	(A2)
00021806 1f 02                    |        |		MOVE.B	D2,-(A7)
00021808 1f 3c 00 27              | < '    |		MOVE.B	#0x27,-(A7)
0002180c 28 48                    |(H      |		MOVEA.L	A0,A4
0002180e 4e 91                    |N       |		JSR	(A1)
00021810 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021812 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
00021816 48 52                    |HR      |		PEA.L	(A2)
00021818 1f 02                    |        |		MOVE.B	D2,-(A7)
0002181a 1f 3c 00 28              | < (    |		MOVE.B	#0x28,-(A7)
0002181e 28 48                    |(H      |		MOVEA.L	A0,A4
00021820 4e 91                    |N       |		JSR	(A1)
00021822 de c3                    |        |		ADDA.W	D3,A7
00021824 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021826 1f 3c 00 0f              | <      |		MOVE.B	#0x0f,-(A7)
0002182a 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00021830 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021832 4a 1f                    |J       |		TST.B	(A7)+
00021834 67 4e                    |gN      |		BEQ	0x21884
00021836 1f 3c 00 0f              | <      |		MOVE.B	#0x0f,-(A7)
0002183a 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
0002183e 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00021842 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00021846 4e b9 00 02 2c c6        |N   ,   |		JSR	0x22cc6
0002184c de c4                    |        |		ADDA.W	D4,A7
0002184e 1e ae ff f9              |        |		MOVE.B	(A6-0x7),(A7)
00021852 48 52                    |HR      |		PEA.L	(A2)
00021854 1f 02                    |        |		MOVE.B	D2,-(A7)
00021856 1f 3c 00 29              | < )    |		MOVE.B	#0x29,-(A7)
0002185a 28 48                    |(H      |		MOVEA.L	A0,A4
0002185c 4e 91                    |N       |		JSR	(A1)
0002185e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021860 1e ae ff fa              |        |		MOVE.B	(A6-0x6),(A7)
00021864 48 52                    |HR      |		PEA.L	(A2)
00021866 1f 02                    |        |		MOVE.B	D2,-(A7)
00021868 1f 3c 00 2a              | < *    |		MOVE.B	#0x2a,-(A7)
0002186c 28 48                    |(H      |		MOVEA.L	A0,A4
0002186e 4e 91                    |N       |		JSR	(A1)
00021870 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021872 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
00021876 48 52                    |HR      |		PEA.L	(A2)
00021878 1f 02                    |        |		MOVE.B	D2,-(A7)
0002187a 1f 3c 00 2b              | < +    |		MOVE.B	#0x2b,-(A7)
0002187e 28 48                    |(H      |		MOVEA.L	A0,A4
00021880 4e 91                    |N       |		JSR	(A1)
00021882 de c3                    |        |		ADDA.W	D3,A7
00021884 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021888 4e 5e                    |N^      |		UNLK	A6
0002188a 4e 75                    |Nu      |		RTS
0002188c ; --------------------------------------------------------------------------------------
0002188c ; OMSI PASCAL Function
0002188c ;    <LVAR -0x003 1(w)>
0002188c ;    <LVAR -0x004 1(w) 2(r)>
0002188c ;    <LVAR -0x005 1(r)>
0002188c ;    <LVAR -0x006 @ 1(r) 2(r)>
0002188c ;    <LVAR -0x010 @>
0002188c ;    <LVAR -0x018 @>
0002188c ;    <LVAR -0x020 @>
0002188c ;    <LVAR -0x028 @>
0002188c ;    <LVAR -0x030 @>
0002188c ;    <LVAR -0x038 @>
0002188c ;    <LVAR -0x040 @>
0002188c ;    <LVAR -0x048 @>
0002188c ;    <LVAR -0x050 @>
0002188c ;    <LVAR -0x058 @>
0002188c ;    <LVAR -0x060 @>
0002188c ;    <LVAR -0x068 @>
0002188c ;    <LVAR -0x070 @>
0002188c ;    <LVAR -0x078 @>
0002188c ;    <LVAR -0x080 @>
0002188c ;    <LVAR -0x088 @>
0002188c ;    <LVAR -0x090 @>
0002188c ; --------------------------------------------------------------------------------------
0002188c 4e 56 ff 00              |NV      |		LINK.W	A6,#0xff00
00021890 bf d5                    |        |		CMPA.L	(A5),A7
00021892 62 06                    |b       |		BHI	0x2189a
00021894 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021898 4e 76                    |Nv      |		TRAPV
0002189a de fc 00 70              |   p    |		ADDA.W	#0x70,A7
0002189e 48 e7 ff e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000218a2 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000218a6 78 40                    |x@      |		MOVEQ.L	#0x40,D4
000218a8 42 27                    |B'      |		CLR.B	-(A7)
000218aa 48 52                    |HR      |		PEA.L	(A2)
000218ac 4e b9 00 02 2d e0        |N   -   |		JSR	exp_READ_TRACE_ADDRESS.IOC(Sw_1, &Sr_2)
000218b2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000218b4 42 80                    |B       |		CLR.L	D0
000218b6 10 12                    |        |		MOVE.B	(A2),D0
000218b8 e1 40                    | @      |		ASL.W	#0x8,D0
000218ba 42 81                    |B       |		CLR.L	D1
000218bc 12 2e ff fb              | .      |		MOVE.B	(A6-0x5),D1
000218c0 d2 40                    | @      |		ADD.W	D0,D1
000218c2 3a 01                    |:       |		MOVE.W	D1,D5
000218c4 42 80                    |B       |		CLR.L	D0
000218c6 30 05                    |0       |		MOVE.W	D5,D0
000218c8 90 84                    |        |		SUB.L	D4,D0
000218ca 55 80                    |U       |		SUBQ.L	#0x2,D0
000218cc 02 80 00 00 07 ff        |        |		ANDI.L	#0x000007ff,D0
000218d2 3a 00                    |:       |		MOVE.W	D0,D5
000218d4 30 05                    |0       |		MOVE.W	D5,D0
000218d6 e0 48                    | H      |		LSR.W	#0x8,D0
000218d8 1d 40 ff fc              | @      |		MOVE.B	D0,(A6-0x4)
000218dc 30 05                    |0       |		MOVE.W	D5,D0
000218de 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
000218e2 1d 40 ff fd              | @      |		MOVE.B	D0,(A6-0x3)
000218e6 3f 2e ff fc              |?.      |		MOVE.W	(A6-0x4),-(A7)
000218ea 42 27                    |B'      |		CLR.B	-(A7)
000218ec 4e b9 00 02 2e 24        |N   .$  |		JSR	exp_LOAD_TRACE_ADDRESS.IOC(Sw_2, Sw_1)
000218f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000218f4 48 6e ff 78              |Hn x    |		PEA.L	(A6-0x88)
000218f8 48 6e ff 80              |Hn      |		PEA.L	(A6-0x80)
000218fc 48 6e ff 88              |Hn      |		PEA.L	(A6-0x78)
00021900 48 6e ff 90              |Hn      |		PEA.L	(A6-0x70)
00021904 48 6e ff 98              |Hn      |		PEA.L	(A6-0x68)
00021908 48 6e ff a0              |Hn      |		PEA.L	(A6-0x60)
0002190c 48 6e ff a8              |Hn      |		PEA.L	(A6-0x58)
00021910 48 6e ff b0              |Hn      |		PEA.L	(A6-0x50)
00021914 48 6e ff b8              |Hn      |		PEA.L	(A6-0x48)
00021918 48 6e ff c0              |Hn      |		PEA.L	(A6-0x40)
0002191c 48 6e ff c8              |Hn      |		PEA.L	(A6-0x38)
00021920 48 6e ff d0              |Hn      |		PEA.L	(A6-0x30)
00021924 48 6e ff d8              |Hn      |		PEA.L	(A6-0x28)
00021928 48 6e ff e0              |Hn      |		PEA.L	(A6-0x20)
0002192c 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00021930 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00021934 4e b9 00 02 2d ae        |N   -   |		JSR	exp_READ_TRACE_BLOCK.IOC(&Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8)
0002193a de c4                    |        |		ADDA.W	D4,A7
0002193c 7c 00                    ||       |		MOVEQ.L	#0x00,D6
0002193e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021940 20 06                    |        |		MOVE.L	D6,D0
00021942 e5 80                    |        |		ASL.L	#0x2,D0
00021944 44 80                    |D       |		NEG.L	D0
00021946 06 80 00 00 00 3f        |     ?  |		ADDI.L	#0x0000003f,D0
0002194c 90 87                    |        |		SUB.L	D7,D0
0002194e 0c 80 00 00 00 3f        |     ?  |		CMPI.L	#0x0000003f,D0
00021954 63 02                    |c       |		BLS	0x21958
00021956 4e 4f                    |NO      |		TRAP	#15
00021958 e3 80                    |        |		ASL.L	#0x1,D0
0002195a 41 f9 00 02 30 50        |A   0P  |		LEA.L	0x23050,A0
00021960 0c 86 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D6
00021966 63 02                    |c       |		BLS	0x2196a
00021968 4e 4f                    |NO      |		TRAP	#15
0002196a 22 06                    |"       |		MOVE.L	D6,D1
0002196c e7 81                    |        |		ASL.L	#0x3,D1
0002196e 43 ee ff 70              |C  p    |		LEA.L	(A6-0x90),A1
00021972 24 07                    |$       |		MOVE.L	D7,D2
00021974 e3 82                    |        |		ASL.L	#0x1,D2
00021976 0c 82 00 00 00 07        |        |		CMPI.L	#0x00000007,D2
0002197c 63 02                    |c       |		BLS	0x21980
0002197e 4e 4f                    |NO      |		TRAP	#15
00021980 43 f1 18 00              |C       |		LEA.L	(A1+D1.L),A1
00021984 42 81                    |B       |		CLR.L	D1
00021986 12 31 28 08              | 1(     |		MOVE.B	(A1+D2.L+#0x8),D1
0002198a e1 41                    | A      |		ASL.W	#0x8,D1
0002198c 52 82                    |R       |		ADDQ.L	#0x1,D2
0002198e 0c 82 00 00 00 07        |        |		CMPI.L	#0x00000007,D2
00021994 63 02                    |c       |		BLS	0x21998
00021996 4e 4f                    |NO      |		TRAP	#15
00021998 42 83                    |B       |		CLR.L	D3
0002199a 16 31 28 08              | 1(     |		MOVE.B	(A1+D2.L+#0x8),D3
0002199e d6 41                    | A      |		ADD.W	D1,D3
000219a0 31 83 08 08              |1       |		MOVE.W	D3,(A0+D0.L+#0x8)
000219a4 52 87                    |R       |		ADDQ.L	#0x1,D7
000219a6 0c 87 00 00 00 03        |        |		CMPI.L	#0x00000003,D7
000219ac 6f 92                    |o       |		BLE	0x21940
000219ae 52 86                    |R       |		ADDQ.L	#0x1,D6
000219b0 0c 86 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D6
000219b6 6f 86                    |o       |		BLE	0x2193e
000219b8 3f 12                    |?       |		MOVE.W	(A2),-(A7)
000219ba 42 27                    |B'      |		CLR.B	-(A7)
000219bc 4e b9 00 02 2e 24        |N   .$  |		JSR	exp_LOAD_TRACE_ADDRESS.IOC(Sw_2, Sw_1)
000219c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219c4 4c df 07 ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2
000219c8 4e 5e                    |N^      |		UNLK	A6
000219ca 4e 75                    |Nu      |		RTS
000219cc ; --------------------------------------------------------------------------------------
000219cc ; OMSI PASCAL Function
000219cc ;    <LVAR -0x006 @ 4(r)>
000219cc ;    <LVAR -0x00a @ 4(r)>
000219cc ;    <LVAR -0x00b @ 1(r)>
000219cc ; --------------------------------------------------------------------------------------
000219cc 4e 56 ff 96              |NV      |		LINK.W	A6,#0xff96
000219d0 bf d5                    |        |		CMPA.L	(A5),A7
000219d2 62 06                    |b       |		BHI	0x219da
000219d4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000219d8 4e 76                    |Nv      |		TRAPV
000219da de fc 00 5a              |   Z    |		ADDA.W	#0x5a,A7
000219de 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000219e2 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000219e8 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
000219ec 49 f9 00 01 03 d8        |I       |		LEA.L	WriteConsoleString(str : String),A4
000219f2 74 01                    |t       |		MOVEQ.L	#0x01,D2
000219f4 76 02                    |v       |		MOVEQ.L	#0x02,D3
000219f6 78 0e                    |x       |		MOVEQ.L	#0x0e,D4
000219f8 7a 12                    |z       |		MOVEQ.L	#0x12,D5
000219fa 7c 3f                    ||?      |		MOVEQ.L	#0x3f,D6
000219fc 41 fa ed ce              |A       |		LEA.L	0x207cc,A0
00021a00 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021a02 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021a04 51 c8 ff fc              |Q       |		DBF	D0,0x21a02
00021a08 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a0a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a0e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021a10 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021a12 4e 92                    |N       |		JSR	(A2)
00021a14 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a16 4e 94                    |N       |		JSR	(A4)
00021a18 de c5                    |        |		ADDA.W	D5,A7
00021a1a 7e 04                    |~       |		MOVEQ.L	#0x04,D7
00021a1c 3f 3a ed ae              |?:      |		MOVE.W	0x207cc,-(A7)
00021a20 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021a22 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021a26 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021a28 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021a2a 4e 92                    |N       |		JSR	(A2)
00021a2c 2e 87                    |.       |		MOVE.L	D7,(A7)
00021a2e 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021a34 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a36 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021a3c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a3e 4e 94                    |N       |		JSR	(A4)
00021a40 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021a42 20 07                    |        |		MOVE.L	D7,D0
00021a44 53 80                    |S       |		SUBQ.L	#0x1,D0
00021a46 b0 86                    |        |		CMP.L	D6,D0
00021a48 63 02                    |c       |		BLS	0x21a4c
00021a4a 4e 4f                    |NO      |		TRAP	#15
00021a4c e3 80                    |        |		ASL.L	#0x1,D0
00021a4e 41 f9 00 02 30 50        |A   0P  |		LEA.L	0x23050,A0
00021a54 30 30 08 08              |00      |		MOVE.W	(A0+D0.L+#0x8),D0
00021a58 02 40 80 00              | @      |		ANDI.W	#0x8000,D0
00021a5c 66 06                    |f       |		BNE	0x21a64
00021a5e 3f 3a ed 6e              |?: n    |		MOVE.W	0x207ce,-(A7)
00021a62 60 04                    |`       |		BRA	0x21a68
00021a64 3f 3a ed 6a              |?: j    |		MOVE.W	0x207d0,-(A7)
00021a68 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a6a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a6e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021a70 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021a72 4e 92                    |N       |		JSR	(A2)
00021a74 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a76 4e 94                    |N       |		JSR	(A4)
00021a78 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021a7a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a7c be 86                    |        |		CMP.L	D6,D7
00021a7e 63 02                    |c       |		BLS	0x21a82
00021a80 4e 4f                    |NO      |		TRAP	#15
00021a82 20 07                    |        |		MOVE.L	D7,D0
00021a84 e3 80                    |        |		ASL.L	#0x1,D0
00021a86 41 f9 00 02 30 50        |A   0P  |		LEA.L	0x23050,A0
00021a8c 30 30 08 08              |00      |		MOVE.W	(A0+D0.L+#0x8),D0
00021a90 02 40 3f ff              | @?     |		ANDI.W	#0x3fff,D0
00021a94 42 81                    |B       |		CLR.L	D1
00021a96 32 00                    |2       |		MOVE.W	D0,D1
00021a98 2f 01                    |/       |		MOVE.L	D1,-(A7)
00021a9a 48 78 00 04              |Hx      |		PEA.L	0x4
00021a9e 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00021aa4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021aa6 4e 94                    |N       |		JSR	(A4)
00021aa8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021aaa 53 87                    |S       |		SUBQ.L	#0x1,D7
00021aac be 82                    |        |		CMP.L	D2,D7
00021aae 6c 00 ff 6c              |l  l    |		BGE	0x21a1c
00021ab2 41 fa ed 28              |A  (    |		LEA.L	0x207dc,A0
00021ab6 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021ab8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021aba 51 c8 ff fc              |Q       |		DBF	D0,0x21ab8
00021abe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ac0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ac4 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021ac6 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00021aca 4e 92                    |N       |		JSR	(A2)
00021acc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021ace 42 17                    |B       |		CLR.B	(A7)
00021ad0 42 27                    |B'      |		CLR.B	-(A7)
00021ad2 48 78 00 00              |Hx      |		PEA.L	0x0
00021ad6 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
00021ada 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00021ade 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00021ae4 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00021ae8 4a 2e ff f5              |J.      |		TST.B	(A6-0xb)
00021aec 66 00 00 b8              |f       |		BNE	0x21ba6
00021af0 48 53                    |HS      |		PEA.L	(A3)
00021af2 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021af8 2e ae ff f6              |.       |		MOVE.L	(A6-0xa),(A7)
00021afc 42 67                    |Bg      |		CLR.W	-(A7)
00021afe 42 67                    |Bg      |		CLR.W	-(A7)
00021b00 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
00021b04 1f 03                    |        |		MOVE.B	D3,-(A7)
00021b06 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021b08 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
00021b0c 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00021b12 de c5                    |        |		ADDA.W	D5,A7
00021b14 3e ba ec c6              |>       |		MOVE.W	0x207dc,(A7)
00021b18 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b1a 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021b1c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b1e 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021b22 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021b24 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021b26 4e 92                    |N       |		JSR	(A2)
00021b28 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b2a 4e b9 00 01 03 00        |N       |		JSR	FSCALL_10300
00021b30 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b32 4a 9f                    |J       |		TST.L	(A7)+
00021b34 6f 3e                    |o>      |		BLE	0x21b74
00021b36 20 53                    | S      |		MOVEA.L	(A3),A0
00021b38 3f 3a ec a4              |?:      |		MOVE.W	0x207de,-(A7)
00021b3c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b3e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021b40 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b42 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021b46 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021b48 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021b4a 4e 92                    |N       |		JSR	(A2)
00021b4c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b4e 4e b9 00 01 03 00        |N       |		JSR	FSCALL_10300
00021b54 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b56 20 1f                    |        |		MOVE.L	(A7)+,D0
00021b58 53 80                    |S       |		SUBQ.L	#0x1,D0
00021b5a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b5c 04 80 ff ff 80 00        |        |		SUBI.L	#0xffff8000,D0
00021b62 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021b68 63 02                    |c       |		BLS	0x21b6c
00021b6a 4e 4f                    |NO      |		TRAP	#15
00021b6c 06 80 ff ff 80 00        |        |		ADDI.L	#0xffff8000,D0
00021b72 30 80                    |0       |		MOVE.W	D0,(A0)
00021b74 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b76 41 fa ec 72              |A  r    |		LEA.L	0x207ea,A0
00021b7a 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021b7c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021b7e 51 c8 ff fc              |Q       |		DBF	D0,0x21b7c
00021b82 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b84 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021b88 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021b8a 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00021b8e 4e 92                    |N       |		JSR	(A2)
00021b90 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021b92 2e 93                    |.       |		MOVE.L	(A3),(A7)
00021b94 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021b9a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b9c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021ba2 de c4                    |        |		ADDA.W	D4,A7
00021ba4 60 2c                    |`,      |		BRA	0x21bd2
00021ba6 9e fc 00 16              |        |		SUBA.W	#0x16,A7
00021baa 20 4f                    | O      |		MOVEA.L	A7,A0
00021bac 43 fa ec 3c              |C  <    |		LEA.L	0x207ea,A1
00021bb0 70 14                    |p       |		MOVEQ.L	#0x14,D0
00021bb2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021bb4 51 c8 ff fc              |Q       |		DBF	D0,0x21bb2
00021bb8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021bba 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021bbe 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021bc0 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
00021bc4 4e 92                    |N       |		JSR	(A2)
00021bc6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021bc8 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021bce de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00021bd2 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021bd6 4e 5e                    |N^      |		UNLK	A6
00021bd8 4e 75                    |Nu      |		RTS
00021bda ; --------------------------------------------------------------------------------------
00021bda ; OMSI PASCAL Function
00021bda ;    <LVAR  0x00c 1(rw)>
00021bda ;    <LVAR  0x008 4(r)>
00021bda ; --------------------------------------------------------------------------------------
00021bda 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00021bde bf d5                    |        |		CMPA.L	(A5),A7
00021be0 62 06                    |b       |		BHI	0x21be8
00021be2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021be6 4e 76                    |Nv      |		TRAPV
00021be8 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021bec 48 e7 e3 80              |H       |		MOVEM.L	A0+D7+D6+D2+D1+D0,-(A7)
00021bf0 74 01                    |t       |		MOVEQ.L	#0x01,D2
00021bf2 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00021bf4 10 07                    |        |		MOVE.B	D7,D0
00021bf6 48 80                    |H       |		EXTB.W	D0
00021bf8 42 36 00 f2              |B6      |		CLR.B	(A6+D0.W-#0xe)
00021bfc 52 07                    |R       |		ADDQ.B	#0x1,D7
00021bfe 0c 07 00 0b              |        |		CMPI.B	#0x0b,D7
00021c02 6f f0                    |o       |		BLE	0x21bf4
00021c04 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00021c06 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021c0a 10 06                    |        |		MOVE.B	D6,D0
00021c0c 48 80                    |H       |		EXTB.W	D0
00021c0e 4a 30 00 00              |J0      |		TST.B	(A0+D0.W)
00021c12 67 14                    |g       |		BEQ	0x21c28
00021c14 10 06                    |        |		MOVE.B	D6,D0
00021c16 48 80                    |H       |		EXTB.W	D0
00021c18 eb 40                    | @      |		ASL.W	#0x5,D0
00021c1a 41 fa f0 de              |A       |		LEA.L	0x20cfa,A0
00021c1e 12 30 00 1f              | 0      |		MOVE.B	(A0+D0.W+#0x1f),D1
00021c22 48 81                    |H       |		EXTB.W	D1
00021c24 1d 82 10 f2              |        |		MOVE.B	D2,(A6+D1.W-#0xe)
00021c28 52 06                    |R       |		ADDQ.B	#0x1,D6
00021c2a 0c 06 00 2b              |   +    |		CMPI.B	#0x2b,D6
00021c2e 6f d6                    |o       |		BLE	0x21c06
00021c30 42 2e 00 0c              |B.      |		CLR.B	(A6+0xc)
00021c34 7e 0b                    |~       |		MOVEQ.L	#0x0b,D7
00021c36 10 07                    |        |		MOVE.B	D7,D0
00021c38 48 80                    |H       |		EXTB.W	D0
00021c3a 4a 36 00 f2              |J6      |		TST.B	(A6+D0.W-#0xe)
00021c3e 67 04                    |g       |		BEQ	0x21c44
00021c40 1d 47 00 0c              | G      |		MOVE.B	D7,(A6+0xc)
00021c44 53 07                    |S       |		SUBQ.B	#0x1,D7
00021c46 be 02                    |        |		CMP.B	D2,D7
00021c48 6c ec                    |l       |		BGE	0x21c36
00021c4a 4c df 01 c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0
00021c4e 4e 5e                    |N^      |		UNLK	A6
00021c50 4e 75                    |Nu      |		RTS
00021c52 ; --------------------------------------------------------------------------------------
00021c52 ; OMSI PASCAL Function
00021c52 ;    <LVAR  0x03a 4(w)>
00021c52 ;    <LVAR  0x036 4(w)>
00021c52 ;    <LVAR  0x008 1(r)>
00021c52 ;    <LVAR -0x00a 4(r)>
00021c52 ;    <LVAR -0x00e 4(r)>
00021c52 ; --------------------------------------------------------------------------------------
00021c52 4e 56 ff 9e              |NV      |		LINK.W	A6,#0xff9e
00021c56 bf d5                    |        |		CMPA.L	(A5),A7
00021c58 62 06                    |b       |		BHI	0x21c60
00021c5a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021c5e 4e 76                    |Nv      |		TRAPV
00021c60 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
00021c64 48 e7 e7 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00021c68 45 fa f0 90              |E       |		LEA.L	0x20cfa,A2
00021c6c 74 07                    |t       |		MOVEQ.L	#0x07,D2
00021c6e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021c70 be 82                    |        |		CMP.L	D2,D7
00021c72 63 02                    |c       |		BLS	0x21c76
00021c74 4e 4f                    |NO      |		TRAP	#15
00021c76 42 36 78 f2              |B6x     |		CLR.B	(A6+D7.L-#0xe)
00021c7a 52 87                    |R       |		ADDQ.L	#0x1,D7
00021c7c be 82                    |        |		CMP.L	D2,D7
00021c7e 6f f0                    |o       |		BLE	0x21c70
00021c80 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021c82 7c 0f                    ||       |		MOVEQ.L	#0x0f,D6
00021c84 7a 00                    |z       |		MOVEQ.L	#0x00,D5
00021c86 10 05                    |        |		MOVE.B	D5,D0
00021c88 48 80                    |H       |		EXTB.W	D0
00021c8a 4a 36 00 0a              |J6      |		TST.B	(A6+D0.W+#0xa)
00021c8e 67 6a                    |gj      |		BEQ	0x21cfa
00021c90 10 05                    |        |		MOVE.B	D5,D0
00021c92 48 80                    |H       |		EXTB.W	D0
00021c94 eb 40                    | @      |		ASL.W	#0x5,D0
00021c96 20 4a                    | J      |		MOVEA.L	A2,A0
00021c98 12 2e 00 08              | .      |		MOVE.B	(A6+0x8),D1
00021c9c b2 30 00 1f              | 0      |		CMP.B	(A0+D0.W+#0x1f),D1
00021ca0 66 58                    |fX      |		BNE	0x21cfa
00021ca2 20 4a                    | J      |		MOVEA.L	A2,A0
00021ca4 bc 30 00 1e              | 0      |		CMP.B	(A0+D0.W+#0x1e),D6
00021ca8 67 50                    |gP      |		BEQ	0x21cfa
00021caa be 82                    |        |		CMP.L	D2,D7
00021cac 6f 36                    |o6      |		BLE	0x21ce4
00021cae 9e fc 00 18              |        |		SUBA.W	#0x18,A7
00021cb2 20 4f                    | O      |		MOVEA.L	A7,A0
00021cb4 43 fa eb 4a              |C  J    |		LEA.L	0x20800,A1
00021cb8 72 16                    |r       |		MOVEQ.L	#0x16,D1
00021cba 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021cbc 51 c9 ff fc              |Q       |		DBF	D1,0x21cba
00021cc0 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00021cc4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021cc6 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021cca 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021cce 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021cd2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021cd8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021cda 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021ce0 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00021ce4 be 82                    |        |		CMP.L	D2,D7
00021ce6 63 02                    |c       |		BLS	0x21cea
00021ce8 4e 4f                    |NO      |		TRAP	#15
00021cea 20 4a                    | J      |		MOVEA.L	A2,A0
00021cec 1d b0 00 1e 78 f2        |    x   |		MOVE.B	(A0+D0.W+#0x1e),(A6+D7.L-#0xe)
00021cf2 20 4a                    | J      |		MOVEA.L	A2,A0
00021cf4 1c 30 00 1e              | 0      |		MOVE.B	(A0+D0.W+#0x1e),D6
00021cf8 52 87                    |R       |		ADDQ.L	#0x1,D7
00021cfa 52 05                    |R       |		ADDQ.B	#0x1,D5
00021cfc 0c 05 00 2b              |   +    |		CMPI.B	#0x2b,D5
00021d00 6f 84                    |o       |		BLE	0x21c86
00021d02 2d 6e ff f2 00 36        |-n   6  |		MOVE.L	(A6-0xe),(A6+0x36)
00021d08 2d 6e ff f6 00 3a        |-n   :  |		MOVE.L	(A6-0xa),(A6+0x3a)
00021d0e 4c df 07 e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2
00021d12 4e 5e                    |N^      |		UNLK	A6
00021d14 4e 75                    |Nu      |		RTS
00021d16 ; --------------------------------------------------------------------------------------
00021d16 ; OMSI PASCAL Function
00021d16 ;    <LVAR  0x008 1(r)>
00021d16 ;    <LVAR -0x003 @ 1(r)>
00021d16 ;    <LVAR -0x004 @ 1(r)>
00021d16 ;    <LVAR -0x005 @ 1(r)>
00021d16 ;    <LVAR -0x006 @ 1(r)>
00021d16 ; --------------------------------------------------------------------------------------
00021d16 4e 56 ff 88              |NV      |		LINK.W	A6,#0xff88
00021d1a bf d5                    |        |		CMPA.L	(A5),A7
00021d1c 62 06                    |b       |		BHI	0x21d24
00021d1e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021d22 4e 76                    |Nv      |		TRAPV
00021d24 de fc 00 72              |   r    |		ADDA.W	#0x72,A7
00021d28 48 e7 f8 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
00021d2c 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021d32 47 f8 00 02              |G       |		LEA.L	0x2,A3
00021d36 49 f9 00 01 02 e8        |I       |		LEA.L	Long2HexString(val : Long; ndig : Long) : String,A4
00021d3c 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021d3e 74 12                    |t       |		MOVEQ.L	#0x12,D2
00021d40 76 11                    |v       |		MOVEQ.L	#0x11,D3
00021d42 78 10                    |x       |		MOVEQ.L	#0x10,D4
00021d44 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00021d48 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00021d4c 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00021d50 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021d54 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00021d58 4e b9 00 02 2b ca        |N   +   |		JSR	0x22bca
00021d5e de c2                    |        |		ADDA.W	D2,A7
00021d60 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021d64 0c 00 00 0c              |        |		CMPI.B	#0x0c,D0
00021d68 66 0e                    |f       |		BNE	0x21d78
00021d6a 3f 3a ea b0              |?:      |		MOVE.W	0x2081c,-(A7)
00021d6e 3f 3a ea aa              |?:      |		MOVE.W	0x2081a,-(A7)
00021d72 3f 3a ea a4              |?:      |		MOVE.W	0x20818,-(A7)
00021d76 60 0c                    |`       |		BRA	0x21d84
00021d78 3f 3a ea a8              |?:      |		MOVE.W	0x20822,-(A7)
00021d7c 3f 3a ea a2              |?:      |		MOVE.W	0x20820,-(A7)
00021d80 3f 3a ea 9c              |?:      |		MOVE.W	0x2081e,-(A7)
00021d84 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d86 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d8a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d8c 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021d90 4e 92                    |N       |		JSR	(A2)
00021d92 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d94 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00021d9a de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021d9e 9e c2                    |        |		SUBA.W	D2,A7
00021da0 20 4f                    | O      |		MOVEA.L	A7,A0
00021da2 43 fa ea 80              |C       |		LEA.L	0x20824,A1
00021da6 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021da8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021daa 51 c8 ff fc              |Q       |		DBF	D0,0x21da8
00021dae 9e c2                    |        |		SUBA.W	D2,A7
00021db0 20 4f                    | O      |		MOVEA.L	A7,A0
00021db2 43 fa ea 82              |C       |		LEA.L	0x20836,A1
00021db6 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021db8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021dba 51 c8 ff fc              |Q       |		DBF	D0,0x21db8
00021dbe 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021dc0 48 6f 00 1a              |Ho      |		PEA.L	(A7+0x1a)
00021dc4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021dc6 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021dc8 4e 92                    |N       |		JSR	(A2)
00021dca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021dcc 42 80                    |B       |		CLR.L	D0
00021dce 10 2e ff fa              | .      |		MOVE.B	(A6-0x6),D0
00021dd2 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021dd4 48 53                    |HS      |		PEA.L	(A3)
00021dd6 4e 94                    |N       |		JSR	(A4)
00021dd8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021dda 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00021dde 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021de0 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021de2 4e 92                    |N       |		JSR	(A2)
00021de4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021de6 42 80                    |B       |		CLR.L	D0
00021de8 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00021dec 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021dee 48 53                    |HS      |		PEA.L	(A3)
00021df0 4e 94                    |N       |		JSR	(A4)
00021df2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021df4 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00021dfa de c4                    |        |		ADDA.W	D4,A7
00021dfc 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021e02 de c4                    |        |		ADDA.W	D4,A7
00021e04 20 4f                    | O      |		MOVEA.L	A7,A0
00021e06 43 fa ea 40              |C  @    |		LEA.L	0x20848,A1
00021e0a 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021e0c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021e0e 51 c8 ff fc              |Q       |		DBF	D0,0x21e0c
00021e12 9e c2                    |        |		SUBA.W	D2,A7
00021e14 20 4f                    | O      |		MOVEA.L	A7,A0
00021e16 43 fa ea 48              |C  H    |		LEA.L	0x20860,A1
00021e1a 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021e1c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021e1e 51 c8 ff fc              |Q       |		DBF	D0,0x21e1c
00021e22 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021e24 48 6f 00 1a              |Ho      |		PEA.L	(A7+0x1a)
00021e28 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021e2a 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021e2e 4e 92                    |N       |		JSR	(A2)
00021e30 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e32 42 80                    |B       |		CLR.L	D0
00021e34 10 2e ff fb              | .      |		MOVE.B	(A6-0x5),D0
00021e38 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021e3a 48 53                    |HS      |		PEA.L	(A3)
00021e3c 4e 94                    |N       |		JSR	(A4)
00021e3e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e40 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00021e44 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021e46 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021e48 4e 92                    |N       |		JSR	(A2)
00021e4a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e4c 42 80                    |B       |		CLR.L	D0
00021e4e 10 2e ff fd              | .      |		MOVE.B	(A6-0x3),D0
00021e52 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021e54 48 53                    |HS      |		PEA.L	(A3)
00021e56 4e 94                    |N       |		JSR	(A4)
00021e58 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e5a 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00021e60 de c4                    |        |		ADDA.W	D4,A7
00021e62 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021e68 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00021e6c 4c df 1f 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3+A4
00021e70 4e 5e                    |N^      |		UNLK	A6
00021e72 4e 75                    |Nu      |		RTS
00021e74 ; --------------------------------------------------------------------------------------
00021e74 ; OMSI PASCAL Function
00021e74 ;    <LVAR  0x010 4(w)>
00021e74 ;    <LVAR -0x00c @ 4(r)>
00021e74 ; --------------------------------------------------------------------------------------
00021e74 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00021e78 bf d5                    |        |		CMPA.L	(A5),A7
00021e7a 62 06                    |b       |		BHI	0x21e82
00021e7c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021e80 4e 76                    |Nv      |		TRAPV
00021e82 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00021e86 48 e7 ff 80              |H       |		MOVEM.L	A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021e8a 41 ee ff f4              |A       |		LEA.L	(A6-0xc),A0
00021e8e 72 07                    |r       |		MOVEQ.L	#0x07,D1
00021e90 74 0f                    |t       |		MOVEQ.L	#0x0f,D2
00021e92 7a 0a                    |z       |		MOVEQ.L	#0x0a,D5
00021e94 48 50                    |HP      |		PEA.L	(A0)
00021e96 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021e9c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e9e 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00021ea0 28 06                    |(       |		MOVE.L	D6,D4
00021ea2 76 02                    |v       |		MOVEQ.L	#0x02,D3
00021ea4 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00021eaa 4a 83                    |J       |		TST.L	D3
00021eac 66 10                    |f       |		BNE	0x21ebe
00021eae b8 81                    |        |		CMP.L	D1,D4
00021eb0 63 02                    |c       |		BLS	0x21eb4
00021eb2 4e 4f                    |NO      |		TRAP	#15
00021eb4 42 80                    |B       |		CLR.L	D0
00021eb6 10 36 48 08              | 6H     |		MOVE.B	(A6+D4.L+#0x8),D0
00021eba e8 40                    | @      |		ASR.W	#0x4,D0
00021ebc 60 0e                    |`       |		BRA	0x21ecc
00021ebe b8 81                    |        |		CMP.L	D1,D4
00021ec0 63 02                    |c       |		BLS	0x21ec4
00021ec2 4e 4f                    |NO      |		TRAP	#15
00021ec4 42 80                    |B       |		CLR.L	D0
00021ec6 10 36 48 08              | 6H     |		MOVE.B	(A6+D4.L+#0x8),D0
00021eca c0 42                    | B      |		AND.W	D2,D0
00021ecc 48 c0                    |H       |		EXTW.L	D0
00021ece 2e 00                    |.       |		MOVE.L	D0,D7
00021ed0 be 85                    |        |		CMP.L	D5,D7
00021ed2 6c 12                    |l       |		BGE	0x21ee6
00021ed4 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021ed6 70 30                    |p0      |		MOVEQ.L	#0x30,D0
00021ed8 d0 87                    |        |		ADD.L	D7,D0
00021eda 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00021ee0 63 02                    |c       |		BLS	0x21ee4
00021ee2 4e 4f                    |NO      |		TRAP	#15
00021ee4 60 12                    |`       |		BRA	0x21ef8
00021ee6 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021ee8 70 41                    |pA      |		MOVEQ.L	#0x41,D0
00021eea d0 87                    |        |		ADD.L	D7,D0
00021eec 90 85                    |        |		SUB.L	D5,D0
00021eee 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00021ef4 63 02                    |c       |		BLS	0x21ef8
00021ef6 4e 4f                    |NO      |		TRAP	#15
00021ef8 1f 00                    |        |		MOVE.B	D0,-(A7)
00021efa 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00021f00 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021f02 bc 81                    |        |		CMP.L	D1,D6
00021f04 66 0e                    |f       |		BNE	0x21f14
00021f06 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021f08 1f 3c 00 5f              | < _    |		MOVE.B	#0x5f,-(A7)
00021f0c 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00021f12 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021f14 52 86                    |R       |		ADDQ.L	#0x1,D6
00021f16 bc 82                    |        |		CMP.L	D2,D6
00021f18 6f 86                    |o       |		BLE	0x21ea0
00021f1a 2d 50 00 10              |-P      |		MOVE.L	(A0),(A6+0x10)
00021f1e 4c df 01 ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0
00021f22 4e 5e                    |N^      |		UNLK	A6
00021f24 4e 75                    |Nu      |		RTS
00021f26 ; --------------------------------------------------------------------------------------
00021f26 ; OMSI PASCAL Function
00021f26 ;    <LVAR  0x008 1(r)>
00021f26 ;    <LVAR -0x009 @>
00021f26 ;    <LVAR -0x011 @>
00021f26 ;    <LVAR -0x012 @ 1(r)>
00021f26 ;    <LVAR -0x013 @>
00021f26 ;    <LVAR -0x014 1(r)>
00021f26 ;    <LVAR -0x015 @ 1(r)>
00021f26 ;    <LVAR -0x016 @ 1(r)>
00021f26 ;    <LVAR -0x01a @ 4(r)>
00021f26 ; --------------------------------------------------------------------------------------
00021f26 4e 56 ff 64              |NV d    |		LINK.W	A6,#0xff64
00021f2a bf d5                    |        |		CMPA.L	(A5),A7
00021f2c 62 06                    |b       |		BHI	0x21f34
00021f2e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021f32 4e 76                    |Nv      |		TRAPV
00021f34 de fc 00 82              |        |		ADDA.W	#0x82,A7
00021f38 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021f3c 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021f42 47 ee ff e6              |G       |		LEA.L	(A6-0x1a),A3
00021f46 49 f8 00 00              |I       |		LEA.L	0x0,A4
00021f4a 74 01                    |t       |		MOVEQ.L	#0x01,D2
00021f4c 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00021f4e 78 10                    |x       |		MOVEQ.L	#0x10,D4
00021f50 7a 16                    |z       |		MOVEQ.L	#0x16,D5
00021f52 7c 14                    ||       |		MOVEQ.L	#0x14,D6
00021f54 7e 0b                    |~       |		MOVEQ.L	#0x0b,D7
00021f56 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021f5a 0c 00 00 07              |        |		CMPI.B	#0x07,D0
00021f5e 66 34                    |f4      |		BNE	0x21f94
00021f60 41 fa e9 24              |A  $    |		LEA.L	0x20886,A0
00021f64 72 04                    |r       |		MOVEQ.L	#0x04,D1
00021f66 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021f68 51 c9 ff fc              |Q       |		DBF	D1,0x21f66
00021f6c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f6e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f72 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021f74 3f 06                    |?       |		MOVE.W	D6,-(A7)
00021f76 4e 92                    |N       |		JSR	(A2)
00021f78 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f7a 48 53                    |HS      |		PEA.L	(A3)
00021f7c 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021f82 de c5                    |        |		ADDA.W	D5,A7
00021f84 20 4f                    | O      |		MOVEA.L	A7,A0
00021f86 43 fa e8 fe              |C       |		LEA.L	0x20886,A1
00021f8a 72 04                    |r       |		MOVEQ.L	#0x04,D1
00021f8c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f8e 51 c9 ff fc              |Q       |		DBF	D1,0x21f8c
00021f92 60 32                    |`2      |		BRA	0x21fc6
00021f94 41 fa e9 0a              |A       |		LEA.L	0x208a0,A0
00021f98 72 04                    |r       |		MOVEQ.L	#0x04,D1
00021f9a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021f9c 51 c9 ff fc              |Q       |		DBF	D1,0x21f9a
00021fa0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021fa2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021fa6 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021fa8 3f 06                    |?       |		MOVE.W	D6,-(A7)
00021faa 4e 92                    |N       |		JSR	(A2)
00021fac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fae 48 53                    |HS      |		PEA.L	(A3)
00021fb0 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021fb6 de c5                    |        |		ADDA.W	D5,A7
00021fb8 20 4f                    | O      |		MOVEA.L	A7,A0
00021fba 43 fa e8 e4              |C       |		LEA.L	0x208a0,A1
00021fbe 72 04                    |r       |		MOVEQ.L	#0x04,D1
00021fc0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021fc2 51 c9 ff fc              |Q       |		DBF	D1,0x21fc0
00021fc6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021fc8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021fcc 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021fce 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00021fd2 4e 92                    |N       |		JSR	(A2)
00021fd4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fd6 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00021fdc de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021fe0 42 27                    |B'      |		CLR.B	-(A7)
00021fe2 1f 00                    |        |		MOVE.B	D0,-(A7)
00021fe4 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021fe6 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021fec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021fee 2e 93                    |.       |		MOVE.L	(A3),(A7)
00021ff0 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
00021ff4 4e b9 00 01 04 78        |N    x  |		JSR	ExpOutputFlag(exp : Pointer; VAR status : Bool)
00021ffa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ffc 2e 93                    |.       |		MOVE.L	(A3),(A7)
00021ffe 48 6e ff eb              |Hn      |		PEA.L	(A6-0x15)
00022002 48 54                    |HT      |		PEA.L	(A4)
00022004 48 78 00 01              |Hx      |		PEA.L	0x1
00022008 4e b9 00 01 04 72        |N    r  |		JSR	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
0002200e de c3                    |        |		ADDA.W	D3,A7
00022010 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022012 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00022016 48 54                    |HT      |		PEA.L	(A4)
00022018 48 54                    |HT      |		PEA.L	(A4)
0002201a 4e b9 00 01 04 72        |N    r  |		JSR	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
00022020 de c3                    |        |		ADDA.W	D3,A7
00022022 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022024 48 6e ff ef              |Hn      |		PEA.L	(A6-0x11)
00022028 48 54                    |HT      |		PEA.L	(A4)
0002202a 48 78 00 07              |Hx      |		PEA.L	0x7
0002202e 4e b9 00 01 04 72        |N    r  |		JSR	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
00022034 de c3                    |        |		ADDA.W	D3,A7
00022036 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022038 48 6e ff ed              |Hn      |		PEA.L	(A6-0x13)
0002203c 48 54                    |HT      |		PEA.L	(A4)
0002203e 48 54                    |HT      |		PEA.L	(A4)
00022040 4e b9 00 01 04 72        |N    r  |		JSR	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
00022046 de c3                    |        |		ADDA.W	D3,A7
00022048 2e 93                    |.       |		MOVE.L	(A3),(A7)
0002204a 48 6e ff f7              |Hn      |		PEA.L	(A6-0x9)
0002204e 48 54                    |HT      |		PEA.L	(A4)
00022050 48 78 00 07              |Hx      |		PEA.L	0x7
00022054 4e b9 00 01 04 72        |N    r  |		JSR	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
0002205a de c3                    |        |		ADDA.W	D3,A7
0002205c 2e 93                    |.       |		MOVE.L	(A3),(A7)
0002205e 48 6e ff ed              |Hn      |		PEA.L	(A6-0x13)
00022062 48 54                    |HT      |		PEA.L	(A4)
00022064 48 54                    |HT      |		PEA.L	(A4)
00022066 4e b9 00 01 04 72        |N    r  |		JSR	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
0002206c de c4                    |        |		ADDA.W	D4,A7
0002206e 48 53                    |HS      |		PEA.L	(A3)
00022070 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00022076 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022078 4a 2e ff ea              |J.      |		TST.B	(A6-0x16)
0002207c 67 00 01 78              |g  x    |		BEQ	0x221f6
00022080 2f 3a e8 2c              |/: ,    |		MOVE.L	0x208ae,-(A7)
00022084 2f 3a e8 24              |/: $    |		MOVE.L	0x208aa,-(A7)
00022088 2f 3a e8 1c              |/:      |		MOVE.L	0x208a6,-(A7)
0002208c 3f 3a e8 28              |?: (    |		MOVE.W	0x208b6,-(A7)
00022090 3f 3a e8 22              |?: "    |		MOVE.W	0x208b4,-(A7)
00022094 3f 3a e8 1c              |?:      |		MOVE.W	0x208b2,-(A7)
00022098 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002209a 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
0002209e 3f 02                    |?       |		MOVE.W	D2,-(A7)
000220a0 3f 03                    |?       |		MOVE.W	D3,-(A7)
000220a2 4e 92                    |N       |		JSR	(A2)
000220a4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000220a6 42 80                    |B       |		CLR.L	D0
000220a8 10 2e ff eb              | .      |		MOVE.B	(A6-0x15),D0
000220ac e1 40                    | @      |		ASL.W	#0x8,D0
000220ae 42 81                    |B       |		CLR.L	D1
000220b0 12 2e ff ec              | .      |		MOVE.B	(A6-0x14),D1
000220b4 d2 40                    | @      |		ADD.W	D0,D1
000220b6 48 c1                    |H       |		EXTW.L	D1
000220b8 2f 01                    |/       |		MOVE.L	D1,-(A7)
000220ba 48 78 00 03              |Hx      |		PEA.L	0x3
000220be 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
000220c4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000220c6 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
000220ca 3f 02                    |?       |		MOVE.W	D2,-(A7)
000220cc 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
000220d0 4e 92                    |N       |		JSR	(A2)
000220d2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000220d4 20 4f                    | O      |		MOVEA.L	A7,A0
000220d6 43 ee ff ef              |C       |		LEA.L	(A6-0x11),A1
000220da 70 07                    |p       |		MOVEQ.L	#0x07,D0
000220dc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000220de 51 c8 ff fc              |Q       |		DBF	D0,0x220dc
000220e2 4e ba fd 90              |N       |		JSR	0x21e74
000220e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000220e8 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
000220ee de c4                    |        |		ADDA.W	D4,A7
000220f0 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000220f6 de c5                    |        |		ADDA.W	D5,A7
000220f8 42 80                    |B       |		CLR.L	D0
000220fa 10 2e ff ee              | .      |		MOVE.B	(A6-0x12),D0
000220fe 32 00                    |2       |		MOVE.W	D0,D1
00022100 c2 44                    | D      |		AND.W	D4,D1
00022102 66 28                    |f(      |		BNE	0x2212c
00022104 9e c3                    |        |		SUBA.W	D3,A7
00022106 20 4f                    | O      |		MOVEA.L	A7,A0
00022108 43 fa e7 ae              |C       |		LEA.L	0x208b8,A1
0002210c 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
0002210e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022110 51 c9 ff fc              |Q       |		DBF	D1,0x2210e
00022114 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022116 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002211a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002211c 3f 07                    |?       |		MOVE.W	D7,-(A7)
0002211e 4e 92                    |N       |		JSR	(A2)
00022120 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022122 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022128 de c4                    |        |		ADDA.W	D4,A7
0002212a 60 2c                    |`,      |		BRA	0x22158
0002212c 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00022130 20 4f                    | O      |		MOVEA.L	A7,A0
00022132 43 fa e7 90              |C       |		LEA.L	0x208c4,A1
00022136 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00022138 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002213a 51 c9 ff fc              |Q       |		DBF	D1,0x22138
0002213e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022140 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022144 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022146 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002214a 4e 92                    |N       |		JSR	(A2)
0002214c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002214e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022154 de fc 00 12              |        |		ADDA.W	#0x12,A7
00022158 41 fa e7 92              |A       |		LEA.L	0x208ec,A0
0002215c 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
0002215e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022160 51 c9 ff fc              |Q       |		DBF	D1,0x2215e
00022164 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022166 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002216a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002216c 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
00022170 4e 92                    |N       |		JSR	(A2)
00022172 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022174 20 4f                    | O      |		MOVEA.L	A7,A0
00022176 43 ee ff f7              |C       |		LEA.L	(A6-0x9),A1
0002217a 72 07                    |r       |		MOVEQ.L	#0x07,D1
0002217c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002217e 51 c9 ff fc              |Q       |		DBF	D1,0x2217c
00022182 4e ba fc f0              |N       |		JSR	0x21e74
00022186 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022188 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002218e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022190 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00022196 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
0002219a 02 40 00 20              | @      |		ANDI.W	#0x0020,D0
0002219e 66 28                    |f(      |		BNE	0x221c8
000221a0 9e c3                    |        |		SUBA.W	D3,A7
000221a2 20 4f                    | O      |		MOVEA.L	A7,A0
000221a4 43 fa e7 46              |C  F    |		LEA.L	0x208ec,A1
000221a8 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000221aa 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000221ac 51 c8 ff fc              |Q       |		DBF	D0,0x221aa
000221b0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000221b2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000221b6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000221b8 3f 07                    |?       |		MOVE.W	D7,-(A7)
000221ba 4e 92                    |N       |		JSR	(A2)
000221bc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221be 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000221c4 de c4                    |        |		ADDA.W	D4,A7
000221c6 60 2c                    |`,      |		BRA	0x221f4
000221c8 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
000221cc 20 4f                    | O      |		MOVEA.L	A7,A0
000221ce 43 fa e7 28              |C  (    |		LEA.L	0x208f8,A1
000221d2 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000221d4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000221d6 51 c8 ff fc              |Q       |		DBF	D0,0x221d4
000221da 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000221dc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000221e0 3f 02                    |?       |		MOVE.W	D2,-(A7)
000221e2 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
000221e6 4e 92                    |N       |		JSR	(A2)
000221e8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221ea 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000221f0 de fc 00 12              |        |		ADDA.W	#0x12,A7
000221f4 60 2c                    |`,      |		BRA	0x22222
000221f6 9e fc 00 3e              |   >    |		SUBA.W	#0x3e,A7
000221fa 20 4f                    | O      |		MOVEA.L	A7,A0
000221fc 43 fa e7 08              |C       |		LEA.L	0x20906,A1
00022200 70 3c                    |p<      |		MOVEQ.L	#0x3c,D0
00022202 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022204 51 c8 ff fc              |Q       |		DBF	D0,0x22202
00022208 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002220a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002220e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022210 3f 3c 00 3d              |?< =    |		MOVE.W	#0x3d,-(A7)
00022214 4e 92                    |N       |		JSR	(A2)
00022216 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022218 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002221e de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00022222 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022226 4e 5e                    |N^      |		UNLK	A6
00022228 4e 75                    |Nu      |		RTS
0002222a ; --------------------------------------------------------------------------------------
0002222a ; OMSI PASCAL Function
0002222a ;    <LVAR  0x050 1(r)>
0002222a ;    <LVAR  0x04c 4(r)>
0002222a ;    <LVAR  0x049 1(r)>
0002222a ;    <LVAR  0x048 1(r) 4(r)>
0002222a ;    <LVAR  0x036 1(r)>
0002222a ;    <LVAR  0x035 1(r)>
0002222a ;    <LVAR  0x034 1(r)>
0002222a ;    <LVAR  0x030 1(r)>
0002222a ;    <LVAR  0x02f 1(r)>
0002222a ;    <LVAR  0x02e 1(r)>
0002222a ;    <LVAR  0x02c 1(r)>
0002222a ;    <LVAR  0x02b 1(r)>
0002222a ;    <LVAR  0x025 1(r)>
0002222a ;    <LVAR  0x024 1(r)>
0002222a ;    <LVAR  0x01f 1(r)>
0002222a ;    <LVAR  0x01e 1(r)>
0002222a ;    <LVAR  0x018 4(r)>
0002222a ;    <LVAR  0x014 4(r)>
0002222a ;    <LVAR  0x010 4(r)>
0002222a ;    <LVAR  0x00c 4(r)>
0002222a ;    <LVAR  0x008 4(r)>
0002222a ;    <LVAR -0x001 @ 1(r)>
0002222a ;    <LVAR -0x002 @ 1(r)>
0002222a ;    <LVAR -0x003 @>
0002222a ;    <LVAR -0x00a @ 1(r)>
0002222a ; --------------------------------------------------------------------------------------
0002222a 4e 56 ff 64              |NV d    |		LINK.W	A6,#0xff64
0002222e bf d5                    |        |		CMPA.L	(A5),A7
00022230 62 06                    |b       |		BHI	0x22238
00022232 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022236 4e 76                    |Nv      |		TRAPV
00022238 de fc 00 92              |        |		ADDA.W	#0x92,A7
0002223c 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022240 74 01                    |t       |		MOVEQ.L	#0x01,D2
00022242 76 18                    |v       |		MOVEQ.L	#0x18,D3
00022244 78 06                    |x       |		MOVEQ.L	#0x06,D4
00022246 7a 0c                    |z       |		MOVEQ.L	#0x0c,D5
00022248 7c 1e                    ||       |		MOVEQ.L	#0x1e,D6
0002224a 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
0002224e 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022250 10 82                    |        |		MOVE.B	D2,(A0)
00022252 22 6e 00 14              |"n      |		MOVEA.L	(A6+0x14),A1
00022256 3f 3a e6 f0              |?:      |		MOVE.W	0x20948,-(A7)
0002225a 3f 3a e6 ea              |?:      |		MOVE.W	0x20946,-(A7)
0002225e 3f 3a e6 e4              |?:      |		MOVE.W	0x20944,-(A7)
00022262 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022264 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022268 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002226a 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002226c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022272 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022274 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00022276 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022278 24 6e 00 10              |$n      |		MOVEA.L	(A6+0x10),A2
0002227c 10 2e 00 50              | . P    |		MOVE.B	(A6+0x50),D0
00022280 48 80                    |H       |		EXTB.W	D0
00022282 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
00022284 c3 c0                    |        |		MULS.W	D0,D1
00022286 47 fa e9 0a              |G       |		LEA.L	0x20b92,A3
0002228a 9e c6                    |        |		SUBA.W	D6,A7
0002228c 20 4f                    | O      |		MOVEA.L	A7,A0
0002228e 47 f3 10 00              |G       |		LEA.L	(A3+D1.W),A3
00022292 72 1d                    |r       |		MOVEQ.L	#0x1d,D1
00022294 10 db                    |        |		MOVE.B	(A3)+,(A0)+
00022296 51 c9 ff fc              |Q       |		DBF	D1,0x22294
0002229a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002229c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000222a0 3f 02                    |?       |		MOVE.W	D2,-(A7)
000222a2 3f 06                    |?       |		MOVE.W	D6,-(A7)
000222a4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000222aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000222ac 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000222ae de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000222b2 2e 92                    |.       |		MOVE.L	(A2),(A7)
000222b4 1f 3c 00 5c              | < \    |		MOVE.B	#0x5c,-(A7)
000222b8 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000222be 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000222c0 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000222c4 2f 08                    |/       |		MOVE.L	A0,-(A7)
000222c6 10 82                    |        |		MOVE.B	D2,(A0)
000222c8 26 6e 00 08              |&n      |		MOVEA.L	(A6+0x8),A3
000222cc 16 bc 00 27              |   '    |		MOVE.B	#0x27,(A3)
000222d0 32 00                    |2       |		MOVE.W	D0,D1
000222d2 57 41                    |WA      |		SUBQ.W	#0x3,D1
000222d4 0c 41 00 07              | A      |		CMPI.W	#0x0007,D1
000222d8 62 00 05 ba              |b       |		BHI	switch@0x222de[0x3]
000222dc d2 41                    | A      |		ADD.W	D1,D1
000222de 32 3b 10 06 4e fb 10 02  |2;  N   |		SWITCH	D1.W
000222e6 00 10                    |        |		.CONST	0x10			; [0x0] -> 0x222f6
000222e8 00 10                    |        |		.CONST	0x10			; [0x1] -> 0x222f6
000222ea 00 10                    |        |		.CONST	0x10			; [0x2] -> 0x222f6
000222ec 05 ae                    |        |		.CONST	0x5ae			; [0x3] -> 0x22894
000222ee 00 ea                    |        |		.CONST	0xea			; [0x4] -> 0x223d0
000222f0 01 2a                    | *      |		.CONST	0x12a			; [0x5] -> 0x22410
000222f2 05 ae                    |        |		.CONST	0x5ae			; [0x6] -> 0x22894
000222f4 05 64                    | d      |		.CONST	0x564			; [0x7] -> 0x2284a
000222f6					switch@0x222de[0x0]:
000222f6					switch@0x222de[0x1]:
000222f6					switch@0x222de[0x2]:
000222f6 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000222fc 48 c0                    |H       |		EXTW.L	D0
000222fe 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022300 4e b9 00 01 05 0e        |N       |		JSR	IPC_PutLong(a : L)
00022306 2e ae 00 4c              |.  L    |		MOVE.L	(A6+0x4c),(A7)
0002230a 2f 2e 00 48              |/. H    |		MOVE.L	(A6+0x48),-(A7)
0002230e 48 57                    |HW      |		PEA.L	(A7)
00022310 48 78 00 00              |Hx      |		PEA.L	0x0
00022314 48 78 00 07              |Hx      |		PEA.L	0x7
00022318 4e b9 00 01 04 fc        |N       |		JSR	IPC_PutVar(src : Pointer; length : Long ; type : Long)
0002231e de fc 00 14              |        |		ADDA.W	#0x14,A7
00022322 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00022328 3f 3a e6 24              |?: $    |		MOVE.W	0x2094e,-(A7)
0002232c 3f 3a e6 1e              |?:      |		MOVE.W	0x2094c,-(A7)
00022330 3f 3a e6 18              |?:      |		MOVE.W	0x2094a,-(A7)
00022334 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022336 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002233a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002233c 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002233e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022344 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022346 48 78 00 01              |Hx      |		PEA.L	0x1
0002234a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002234e 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00022352 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00022358 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002235c 4a 2e ff f6              |J.      |		TST.B	(A6-0xa)
00022360 67 0e                    |g       |		BEQ	0x22370
00022362 1f 04                    |        |		MOVE.B	D4,-(A7)
00022364 48 78 00 01              |Hx      |		PEA.L	0x1
00022368 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002236e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022370 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00022376 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
0002237a 48 50                    |HP      |		PEA.L	(A0)
0002237c 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00022382 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022384 48 51                    |HQ      |		PEA.L	(A1)
00022386 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
0002238c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002238e 48 52                    |HR      |		PEA.L	(A2)
00022390 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
00022396 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022398 20 57                    | W      |		MOVEA.L	(A7),A0
0002239a 48 50                    |HP      |		PEA.L	(A0)
0002239c 48 78 00 00              |Hx      |		PEA.L	0x0
000223a0 48 78 00 00              |Hx      |		PEA.L	0x0
000223a4 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
000223aa de c5                    |        |		ADDA.W	D5,A7
000223ac 48 53                    |HS      |		PEA.L	(A3)
000223ae 48 78 00 00              |Hx      |		PEA.L	0x0
000223b2 48 78 00 07              |Hx      |		PEA.L	0x7
000223b6 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
000223bc de c5                    |        |		ADDA.W	D5,A7
000223be 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
000223c4 4e b9 00 01 05 c8        |N       |		JSR	And_fc0c_7f(void)
000223ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000223cc 60 00 04 ca              |`       |		BRA	0x22898
000223d0					switch@0x222de[0x4]:
000223d0 42 80                    |B       |		CLR.L	D0
000223d2 10 2e 00 48              | . H    |		MOVE.B	(A6+0x48),D0
000223d6 b0 44                    | D      |		CMP.W	D4,D0
000223d8 67 0a                    |g       |		BEQ	0x223e4
000223da 42 81                    |B       |		CLR.L	D1
000223dc 12 2e 00 49              | . I    |		MOVE.B	(A6+0x49),D1
000223e0 b2 44                    | D      |		CMP.W	D4,D1
000223e2 66 08                    |f       |		BNE	0x223ec
000223e4 1f 04                    |        |		MOVE.B	D4,-(A7)
000223e6 4e ba fb 3e              |N  >    |		JSR	0x21f26
000223ea 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000223ec 0c 40 00 07              | @      |		CMPI.W	#0x0007,D0
000223f0 67 0c                    |g       |		BEQ	0x223fe
000223f2 42 80                    |B       |		CLR.L	D0
000223f4 10 2e 00 49              | . I    |		MOVE.B	(A6+0x49),D0
000223f8 0c 40 00 07              | @      |		CMPI.W	#0x0007,D0
000223fc 66 0a                    |f       |		BNE	0x22408
000223fe 1f 3c 00 07              | <      |		MOVE.B	#0x07,-(A7)
00022402 4e ba fb 22              |N  "    |		JSR	0x21f26
00022406 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022408 42 10                    |B       |		CLR.B	(A0)
0002240a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002240c 60 00 04 8a              |`       |		BRA	0x22898
00022410					switch@0x222de[0x5]:
00022410 38 42                    |8B      |		MOVEA.W	D2,A4
00022412 7e 0f                    |~       |		MOVEQ.L	#0x0f,D7
00022414 b8 c2                    |        |		CMPA.W	D2,A4
00022416 66 42                    |fB      |		BNE	0x2245a
00022418 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002241a 1f 07                    |        |		MOVE.B	D7,-(A7)
0002241c 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00022422 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022424 4a 1f                    |J       |		TST.B	(A7)+
00022426 67 32                    |g2      |		BEQ	0x2245a
00022428 1f 07                    |        |		MOVE.B	D7,-(A7)
0002242a 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
0002242e 48 6e ff ff              |Hn      |		PEA.L	(A6-0x1)
00022432 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00022436 4e b9 00 02 2a de        |N   *   |		JSR	0x22ade
0002243c de fc 00 0e              |        |		ADDA.W	#0xe,A7
00022440 4a 2e ff ff              |J.      |		TST.B	(A6-0x1)
00022444 66 06                    |f       |		BNE	0x2244c
00022446 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
0002244a 67 0e                    |g       |		BEQ	0x2245a
0002244c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002244e 1f 07                    |        |		MOVE.B	D7,-(A7)
00022450 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00022456 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022458 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002245a 53 07                    |S       |		SUBQ.B	#0x1,D7
0002245c be 05                    |        |		CMP.B	D5,D7
0002245e 6c b4                    |l       |		BGE	0x22414
00022460 b8 c2                    |        |		CMPA.W	D2,A4
00022462 66 1c                    |f       |		BNE	0x22480
00022464 2f 3a e4 ea              |/:      |		MOVE.L	0x20950,-(A7)
00022468 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002246a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002246e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022470 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00022474 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002247a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002247c 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002247e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022480 4a 2e 00 36              |J. 6    |		TST.B	(A6+0x36)
00022484 66 14                    |f       |		BNE	0x2249a
00022486 4a 2e 00 30              |J. 0    |		TST.B	(A6+0x30)
0002248a 66 0e                    |f       |		BNE	0x2249a
0002248c 4a 2e 00 2b              |J. +    |		TST.B	(A6+0x2b)
00022490 66 08                    |f       |		BNE	0x2249a
00022492 4a 2e 00 1e              |J.      |		TST.B	(A6+0x1e)
00022496 67 00 01 12              |g       |		BEQ	0x225aa
0002249a 42 80                    |B       |		CLR.L	D0
0002249c 10 39 00 02 30 d9        | 9  0   |		MOVE.B	0x230d9,D0
000224a2 02 40 00 0f              | @      |		ANDI.W	#0x000f,D0
000224a6 0c 40 00 0f              | @      |		CMPI.W	#0x000f,D0
000224aa 62 00 00 d0              |b       |		BHI	switch@0x224b0[0x6]
000224ae d0 40                    | @      |		ADD.W	D0,D0
000224b0 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000224b8 00 20                    |        |		.CONST	0x20			; [0x0] -> 0x224d8
000224ba 00 20                    |        |		.CONST	0x20			; [0x1] -> 0x224d8
000224bc 00 52                    | R      |		.CONST	0x52			; [0x2] -> 0x2250a
000224be 00 52                    | R      |		.CONST	0x52			; [0x3] -> 0x2250a
000224c0 00 64                    | d      |		.CONST	0x64			; [0x4] -> 0x2251c
000224c2 00 76                    | v      |		.CONST	0x76			; [0x5] -> 0x2252e
000224c4 00 c4                    |        |		.CONST	0xc4			; [0x6] -> 0x2257c
000224c6 00 c4                    |        |		.CONST	0xc4			; [0x7] -> 0x2257c
000224c8 00 20                    |        |		.CONST	0x20			; [0x8] -> 0x224d8
000224ca 00 20                    |        |		.CONST	0x20			; [0x9] -> 0x224d8
000224cc 00 52                    | R      |		.CONST	0x52			; [0xa] -> 0x2250a
000224ce 00 52                    | R      |		.CONST	0x52			; [0xb] -> 0x2250a
000224d0 00 88                    |        |		.CONST	0x88			; [0xc] -> 0x22540
000224d2 00 88                    |        |		.CONST	0x88			; [0xd] -> 0x22540
000224d4 00 88                    |        |		.CONST	0x88			; [0xe] -> 0x22540
000224d6 00 88                    |        |		.CONST	0x88			; [0xf] -> 0x22540
000224d8					switch@0x224b0[0x0]:
000224d8					switch@0x224b0[0x1]:
000224d8					switch@0x224b0[0x8]:
000224d8					switch@0x224b0[0x9]:
000224d8 9e c3                    |        |		SUBA.W	D3,A7
000224da 20 4f                    | O      |		MOVEA.L	A7,A0
000224dc 43 fa e4 76              |C  v    |		LEA.L	0x20954,A1
000224e0 70 16                    |p       |		MOVEQ.L	#0x16,D0
000224e2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000224e4 51 c8 ff fc              |Q       |		DBF	D0,0x224e2
000224e8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000224ea 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000224ee 3f 02                    |?       |		MOVE.W	D2,-(A7)
000224f0 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000224f4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000224fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224fc 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022502 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00022506 60 00 00 a2              |`       |		BRA	0x225aa
0002250a					switch@0x224b0[0x2]:
0002250a					switch@0x224b0[0x3]:
0002250a					switch@0x224b0[0xa]:
0002250a					switch@0x224b0[0xb]:
0002250a 9e c3                    |        |		SUBA.W	D3,A7
0002250c 20 4f                    | O      |		MOVEA.L	A7,A0
0002250e 43 fa e4 5c              |C  \    |		LEA.L	0x2096c,A1
00022512 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022514 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022516 51 c8 ff fc              |Q       |		DBF	D0,0x22514
0002251a 60 cc                    |`       |		BRA	0x224e8
0002251c					switch@0x224b0[0x4]:
0002251c 9e c3                    |        |		SUBA.W	D3,A7
0002251e 20 4f                    | O      |		MOVEA.L	A7,A0
00022520 43 fa e4 62              |C  b    |		LEA.L	0x20984,A1
00022524 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022526 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022528 51 c8 ff fc              |Q       |		DBF	D0,0x22526
0002252c 60 ba                    |`       |		BRA	0x224e8
0002252e					switch@0x224b0[0x5]:
0002252e 9e c3                    |        |		SUBA.W	D3,A7
00022530 20 4f                    | O      |		MOVEA.L	A7,A0
00022532 43 fa e4 68              |C  h    |		LEA.L	0x2099c,A1
00022536 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022538 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002253a 51 c8 ff fc              |Q       |		DBF	D0,0x22538
0002253e 60 a8                    |`       |		BRA	0x224e8
00022540					switch@0x224b0[0xc]:
00022540					switch@0x224b0[0xd]:
00022540					switch@0x224b0[0xe]:
00022540					switch@0x224b0[0xf]:
00022540 41 fa e4 a2              |A       |		LEA.L	0x209e4,A0
00022544 70 0b                    |p       |		MOVEQ.L	#0x0b,D0
00022546 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022548 51 c8 ff fc              |Q       |		DBF	D0,0x22546
0002254c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002254e 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00022550 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022556 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002255a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002255c 3f 3c 00 30              |?< 0    |		MOVE.W	#0x30,-(A7)
00022560 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022566 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022568 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002256e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022570 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022576 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
0002257a 60 2e                    |`.      |		BRA	0x225aa
0002257c					switch@0x224b0[0x6]:
0002257c					switch@0x224b0[0x7]:
0002257c 9e c6                    |        |		SUBA.W	D6,A7
0002257e 20 4f                    | O      |		MOVEA.L	A7,A0
00022580 43 fa e4 62              |C  b    |		LEA.L	0x209e4,A1
00022584 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00022586 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022588 51 c8 ff fc              |Q       |		DBF	D0,0x22586
0002258c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002258e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022592 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022594 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
00022598 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002259e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000225a0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000225a6 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
000225aa 4a 2e 00 35              |J. 5    |		TST.B	(A6+0x35)
000225ae 66 14                    |f       |		BNE	0x225c4
000225b0 4a 2e 00 2f              |J. /    |		TST.B	(A6+0x2f)
000225b4 66 0e                    |f       |		BNE	0x225c4
000225b6 4a 2e 00 24              |J. $    |		TST.B	(A6+0x24)
000225ba 66 08                    |f       |		BNE	0x225c4
000225bc 4a 2e 00 1f              |J.      |		TST.B	(A6+0x1f)
000225c0 67 00 01 4e              |g  N    |		BEQ	0x22710
000225c4 42 80                    |B       |		CLR.L	D0
000225c6 10 39 00 02 30 d9        | 9  0   |		MOVE.B	0x230d9,D0
000225cc 02 40 00 0f              | @      |		ANDI.W	#0x000f,D0
000225d0 0c 40 00 0f              | @      |		CMPI.W	#0x000f,D0
000225d4 62 00 01 0c              |b       |		BHI	switch@0x225da[0x6]
000225d8 d0 40                    | @      |		ADD.W	D0,D0
000225da 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000225e2 00 20                    |        |		.CONST	0x20			; [0x0] -> 0x22602
000225e4 00 52                    | R      |		.CONST	0x52			; [0x1] -> 0x22634
000225e6 00 20                    |        |		.CONST	0x20			; [0x2] -> 0x22602
000225e8 00 52                    | R      |		.CONST	0x52			; [0x3] -> 0x22634
000225ea 00 64                    | d      |		.CONST	0x64			; [0x4] -> 0x22646
000225ec 00 76                    | v      |		.CONST	0x76			; [0x5] -> 0x22658
000225ee 01 00                    |        |		.CONST	0x100			; [0x6] -> 0x226e2
000225f0 01 00                    |        |		.CONST	0x100			; [0x7] -> 0x226e2
000225f2 00 88                    |        |		.CONST	0x88			; [0x8] -> 0x2266a
000225f4 00 88                    |        |		.CONST	0x88			; [0x9] -> 0x2266a
000225f6 00 88                    |        |		.CONST	0x88			; [0xa] -> 0x2266a
000225f8 00 88                    |        |		.CONST	0x88			; [0xb] -> 0x2266a
000225fa 00 c4                    |        |		.CONST	0xc4			; [0xc] -> 0x226a6
000225fc 00 c4                    |        |		.CONST	0xc4			; [0xd] -> 0x226a6
000225fe 00 c4                    |        |		.CONST	0xc4			; [0xe] -> 0x226a6
00022600 00 c4                    |        |		.CONST	0xc4			; [0xf] -> 0x226a6
00022602					switch@0x225da[0x0]:
00022602					switch@0x225da[0x2]:
00022602 9e c3                    |        |		SUBA.W	D3,A7
00022604 20 4f                    | O      |		MOVEA.L	A7,A0
00022606 43 fa e3 fa              |C       |		LEA.L	0x20a02,A1
0002260a 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002260c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002260e 51 c8 ff fc              |Q       |		DBF	D0,0x2260c
00022612 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022614 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022618 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002261a 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
0002261e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022624 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022626 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002262c de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00022630 60 00 00 de              |`       |		BRA	0x22710
00022634					switch@0x225da[0x1]:
00022634					switch@0x225da[0x3]:
00022634 9e c3                    |        |		SUBA.W	D3,A7
00022636 20 4f                    | O      |		MOVEA.L	A7,A0
00022638 43 fa e3 e0              |C       |		LEA.L	0x20a1a,A1
0002263c 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002263e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022640 51 c8 ff fc              |Q       |		DBF	D0,0x2263e
00022644 60 cc                    |`       |		BRA	0x22612
00022646					switch@0x225da[0x4]:
00022646 9e c3                    |        |		SUBA.W	D3,A7
00022648 20 4f                    | O      |		MOVEA.L	A7,A0
0002264a 43 fa e3 e6              |C       |		LEA.L	0x20a32,A1
0002264e 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022650 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022652 51 c8 ff fc              |Q       |		DBF	D0,0x22650
00022656 60 ba                    |`       |		BRA	0x22612
00022658					switch@0x225da[0x5]:
00022658 9e c3                    |        |		SUBA.W	D3,A7
0002265a 20 4f                    | O      |		MOVEA.L	A7,A0
0002265c 43 fa e3 ec              |C       |		LEA.L	0x20a4a,A1
00022660 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022662 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022664 51 c8 ff fc              |Q       |		DBF	D0,0x22662
00022668 60 a8                    |`       |		BRA	0x22612
0002266a					switch@0x225da[0x8]:
0002266a					switch@0x225da[0x9]:
0002266a					switch@0x225da[0xa]:
0002266a					switch@0x225da[0xb]:
0002266a 41 fa e4 08              |A       |		LEA.L	0x20a74,A0
0002266e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022670 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022672 51 c8 ff fc              |Q       |		DBF	D0,0x22670
00022676 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022678 2f 0c                    |/       |		MOVE.L	A4,-(A7)
0002267a 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022680 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00022684 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022686 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
0002268a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022690 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022692 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022698 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002269a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000226a0 de fc 00 16              |        |		ADDA.W	#0x16,A7
000226a4 60 6a                    |`j      |		BRA	0x22710
000226a6					switch@0x225da[0xc]:
000226a6					switch@0x225da[0xd]:
000226a6					switch@0x225da[0xe]:
000226a6					switch@0x225da[0xf]:
000226a6 41 fa e3 fc              |A       |		LEA.L	0x20aa4,A0
000226aa 70 0b                    |p       |		MOVEQ.L	#0x0b,D0
000226ac 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000226ae 51 c8 ff fc              |Q       |		DBF	D0,0x226ac
000226b2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000226b4 2f 0c                    |/       |		MOVE.L	A4,-(A7)
000226b6 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000226bc 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000226c0 3f 02                    |?       |		MOVE.W	D2,-(A7)
000226c2 3f 3c 00 30              |?< 0    |		MOVE.W	#0x30,-(A7)
000226c6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000226cc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226ce 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000226d4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226d6 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000226dc de fc 00 34              |   4    |		ADDA.W	#0x34,A7
000226e0 60 2e                    |`.      |		BRA	0x22710
000226e2					switch@0x225da[0x6]:
000226e2					switch@0x225da[0x7]:
000226e2 9e c6                    |        |		SUBA.W	D6,A7
000226e4 20 4f                    | O      |		MOVEA.L	A7,A0
000226e6 43 fa e3 bc              |C       |		LEA.L	0x20aa4,A1
000226ea 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
000226ec 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000226ee 51 c8 ff fc              |Q       |		DBF	D0,0x226ec
000226f2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000226f4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000226f8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000226fa 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
000226fe 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022704 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022706 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002270c de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00022710 4a 2e 00 34              |J. 4    |		TST.B	(A6+0x34)
00022714 67 00 00 92              |g       |		BEQ	0x227a8
00022718 42 80                    |B       |		CLR.L	D0
0002271a 10 39 00 02 30 d9        | 9  0   |		MOVE.B	0x230d9,D0
00022720 e8 40                    | @      |		ASR.W	#0x4,D0
00022722 02 40 00 03              | @      |		ANDI.W	#0x0003,D0
00022726 0c 40 00 03              | @      |		CMPI.W	#0x0003,D0
0002272a 63 02                    |c       |		BLS	0x2272e
0002272c 4e 4e                    |NN      |		TRAP	#14
0002272e d0 40                    | @      |		ADD.W	D0,D0
00022730 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00022738 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x22740
0002273a 00 1a                    |        |		.CONST	0x1a			; [0x1] -> 0x22752
0002273c 00 2c                    | ,      |		.CONST	0x2c			; [0x2] -> 0x22764
0002273e 00 3e                    | >      |		.CONST	0x3e			; [0x3] -> 0x22776
00022740					switch@0x22730[0x0]:
00022740 9e c3                    |        |		SUBA.W	D3,A7
00022742 20 4f                    | O      |		MOVEA.L	A7,A0
00022744 43 fa e3 7c              |C  |    |		LEA.L	0x20ac2,A1
00022748 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002274a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002274c 51 c8 ff fc              |Q       |		DBF	D0,0x2274a
00022750 60 34                    |`4      |		BRA	0x22786
00022752					switch@0x22730[0x1]:
00022752 9e c3                    |        |		SUBA.W	D3,A7
00022754 20 4f                    | O      |		MOVEA.L	A7,A0
00022756 43 fa e3 82              |C       |		LEA.L	0x20ada,A1
0002275a 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002275c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002275e 51 c8 ff fc              |Q       |		DBF	D0,0x2275c
00022762 60 22                    |`"      |		BRA	0x22786
00022764					switch@0x22730[0x2]:
00022764 9e c3                    |        |		SUBA.W	D3,A7
00022766 20 4f                    | O      |		MOVEA.L	A7,A0
00022768 43 fa e3 88              |C       |		LEA.L	0x20af2,A1
0002276c 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002276e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022770 51 c8 ff fc              |Q       |		DBF	D0,0x2276e
00022774 60 10                    |`       |		BRA	0x22786
00022776					switch@0x22730[0x3]:
00022776 9e c3                    |        |		SUBA.W	D3,A7
00022778 20 4f                    | O      |		MOVEA.L	A7,A0
0002277a 43 fa e3 8e              |C       |		LEA.L	0x20b0a,A1
0002277e 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022780 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022782 51 c8 ff fc              |Q       |		DBF	D0,0x22780
00022786 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022788 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002278c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002278e 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00022792 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022798 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002279a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000227a0 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000227a4 60 00 00 9e              |`       |		BRA	0x22844
000227a8 4a 2e 00 2e              |J. .    |		TST.B	(A6+0x2e)
000227ac 66 0e                    |f       |		BNE	0x227bc
000227ae 4a 2e 00 25              |J. %    |		TST.B	(A6+0x25)
000227b2 66 08                    |f       |		BNE	0x227bc
000227b4 4a 2e 00 2c              |J. ,    |		TST.B	(A6+0x2c)
000227b8 67 00 00 8a              |g       |		BEQ	0x22844
000227bc 42 80                    |B       |		CLR.L	D0
000227be 10 39 00 02 30 db        | 9  0   |		MOVE.B	0x230db,D0
000227c4 e8 40                    | @      |		ASR.W	#0x4,D0
000227c6 02 40 00 03              | @      |		ANDI.W	#0x0003,D0
000227ca 0c 40 00 03              | @      |		CMPI.W	#0x0003,D0
000227ce 63 02                    |c       |		BLS	0x227d2
000227d0 4e 4e                    |NN      |		TRAP	#14
000227d2 d0 40                    | @      |		ADD.W	D0,D0
000227d4 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000227dc 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x227e4
000227de 00 1a                    |        |		.CONST	0x1a			; [0x1] -> 0x227f6
000227e0 00 2c                    | ,      |		.CONST	0x2c			; [0x2] -> 0x22808
000227e2 00 3e                    | >      |		.CONST	0x3e			; [0x3] -> 0x2281a
000227e4					switch@0x227d4[0x0]:
000227e4 9e c3                    |        |		SUBA.W	D3,A7
000227e6 20 4f                    | O      |		MOVEA.L	A7,A0
000227e8 43 fa e3 38              |C  8    |		LEA.L	0x20b22,A1
000227ec 70 16                    |p       |		MOVEQ.L	#0x16,D0
000227ee 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000227f0 51 c8 ff fc              |Q       |		DBF	D0,0x227ee
000227f4 60 34                    |`4      |		BRA	0x2282a
000227f6					switch@0x227d4[0x1]:
000227f6 9e c3                    |        |		SUBA.W	D3,A7
000227f8 20 4f                    | O      |		MOVEA.L	A7,A0
000227fa 43 fa e3 3e              |C  >    |		LEA.L	0x20b3a,A1
000227fe 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022800 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022802 51 c8 ff fc              |Q       |		DBF	D0,0x22800
00022806 60 22                    |`"      |		BRA	0x2282a
00022808					switch@0x227d4[0x2]:
00022808 9e c3                    |        |		SUBA.W	D3,A7
0002280a 20 4f                    | O      |		MOVEA.L	A7,A0
0002280c 43 fa e3 44              |C  D    |		LEA.L	0x20b52,A1
00022810 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022812 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022814 51 c8 ff fc              |Q       |		DBF	D0,0x22812
00022818 60 10                    |`       |		BRA	0x2282a
0002281a					switch@0x227d4[0x3]:
0002281a 9e c3                    |        |		SUBA.W	D3,A7
0002281c 20 4f                    | O      |		MOVEA.L	A7,A0
0002281e 43 fa e3 4a              |C  J    |		LEA.L	0x20b6a,A1
00022822 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022824 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022826 51 c8 ff fc              |Q       |		DBF	D0,0x22824
0002282a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002282c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022830 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022832 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00022836 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002283c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002283e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022844 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00022848 60 4e                    |`N      |		BRA	0x22898
0002284a					switch@0x222de[0x7]:
0002284a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002284c 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00022852 4a 1f                    |J       |		TST.B	(A7)+
00022854 66 3a                    |f:      |		BNE	0x22890
00022856 42 80                    |B       |		CLR.L	D0
00022858 10 2e 00 48              | . H    |		MOVE.B	(A6+0x48),D0
0002285c b0 45                    | E      |		CMP.W	D5,D0
0002285e 67 0a                    |g       |		BEQ	0x2286a
00022860 42 81                    |B       |		CLR.L	D1
00022862 12 2e 00 49              | . I    |		MOVE.B	(A6+0x49),D1
00022866 b2 45                    | E      |		CMP.W	D5,D1
00022868 66 08                    |f       |		BNE	0x22872
0002286a 1f 05                    |        |		MOVE.B	D5,-(A7)
0002286c 4e ba f4 a8              |N       |		JSR	0x21d16
00022870 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022872 0c 40 00 0e              | @      |		CMPI.W	#0x000e,D0
00022876 67 0c                    |g       |		BEQ	0x22884
00022878 42 80                    |B       |		CLR.L	D0
0002287a 10 2e 00 49              | . I    |		MOVE.B	(A6+0x49),D0
0002287e 0c 40 00 0e              | @      |		CMPI.W	#0x000e,D0
00022882 66 0a                    |f       |		BNE	0x2288e
00022884 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00022888 4e ba f4 8c              |N       |		JSR	0x21d16
0002288c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002288e 42 10                    |B       |		CLR.B	(A0)
00022890 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022892 60 04                    |`       |		BRA	0x22898
00022894					switch@0x222de[0x3]:
00022894					switch@0x222de[0x6]:
00022894 10 82                    |        |		MOVE.B	D2,(A0)
00022896 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022898 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002289c 4e 5e                    |N^      |		UNLK	A6
0002289e 4e 75                    |Nu      |		RTS
000228a0 ; --------------------------------------------------------------------------------------
000228a0 ; OMSI PASCAL Function
000228a0 ; --------------------------------------------------------------------------------------
000228a0					START:
000228a0 4f fa 00 08              |O       |		LEA.L	MAIN,A7
000228a4 4e f9 00 01 02 80        |N       |		JMP	?start_program
000228aa					MAIN:
000228aa 45 f9 00 02 30 f7        |E   0   |		LEA.L	0x230f7,A2
000228b0 47 f9 00 02 30 e3        |G   0   |		LEA.L	0x230e3,A3
000228b6 49 f9 00 02 30 50        |I   0P  |		LEA.L	0x23050,A4
000228bc 74 07                    |t       |		MOVEQ.L	#0x07,D2
000228be 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
000228c4 48 79 00 02 30 e2        |Hy  0   |		PEA.L	0x230e2
000228ca 48 53                    |HS      |		PEA.L	(A3)
000228cc 4e b9 00 01 05 44        |N    D  |		JSR	IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
000228d2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228d4 48 78 00 00              |Hx      |		PEA.L	0x0
000228d8 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
000228de 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000228e0 1e 93                    |        |		MOVE.B	(A3),(A7)
000228e2 4e b9 00 01 04 d2        |N       |		JSR	SetExpInitDone(a : Byte)
000228e8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000228ea 70 00                    |p       |		MOVEQ.L	#0x00,D0
000228ec 13 c0 00 02 30 e4        |    0   |		MOVE.B	D0,0x230e4
000228f2 12 00                    |        |		MOVE.B	D0,D1
000228f4 48 81                    |H       |		EXTB.W	D1
000228f6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228f8 20 4c                    | L      |		MOVEA.L	A4,A0
000228fa 41 f0 10 00              |A       |		LEA.L	(A0+D1.W),A0
000228fe 42 28 00 a7              |B(      |		CLR.B	(A0+0xa7)
00022902 30 1f                    |0       |		MOVE.W	(A7)+,D0
00022904 52 40                    |R@      |		ADDQ.W	#0x1,D0
00022906 0c 40 00 2b              | @ +    |		CMPI.W	#0x002b,D0
0002290a 6f e0                    |o       |		BLE	0x228ec
0002290c 70 00                    |p       |		MOVEQ.L	#0x00,D0
0002290e 23 c0 00 02 30 de        |#   0   |		MOVE.L	D0,0x230de
00022914 b0 82                    |        |		CMP.L	D2,D0
00022916 63 02                    |c       |		BLS	0x2291a
00022918 4e 4f                    |NO      |		TRAP	#15
0002291a 20 4c                    | L      |		MOVEA.L	A4,A0
0002291c 41 f0 08 00              |A       |		LEA.L	(A0+D0.L),A0
00022920 42 28 00 9f              |B(      |		CLR.B	(A0+0x9f)
00022924 52 80                    |R       |		ADDQ.L	#0x1,D0
00022926 b0 82                    |        |		CMP.L	D2,D0
00022928 6f e4                    |o       |		BLE	0x2290e
0002292a 4e ba ef 60              |N  `    |		JSR	0x2188c
0002292e 4e ba f0 9c              |N       |		JSR	0x219cc
00022932 48 52                    |HR      |		PEA.L	(A2)
00022934 4e ba e9 ec              |N       |		JSR	0x21322
00022938 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002293a 48 52                    |HR      |		PEA.L	(A2)
0002293c 4e ba f2 9c              |N       |		JSR	0x21bda
00022940 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022942 10 1f                    |        |		MOVE.B	(A7)+,D0
00022944 48 80                    |H       |		EXTB.W	D0
00022946 41 bc 00 0b              |A       |		CHK.W	#0xb,D0
0002294a 13 c0 00 02 31 23        |    1#  |		MOVE.B	D0,0x23123
00022950 9e fc 00 34              |   4    |		SUBA.W	#0x34,A7
00022954 20 4f                    | O      |		MOVEA.L	A7,A0
00022956 22 4a                    |"J      |		MOVEA.L	A2,A1
00022958 72 2b                    |r+      |		MOVEQ.L	#0x2b,D1
0002295a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002295c 51 c9 ff fc              |Q       |		DBF	D1,0x2295a
00022960 1f 00                    |        |		MOVE.B	D0,-(A7)
00022962 4e ba f2 ee              |N       |		JSR	0x21c52
00022966 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
0002296a 23 df 00 02 31 24        |#   1$  |		MOVE.L	(A7)+,0x23124
00022970 23 df 00 02 31 28        |#   1(  |		MOVE.L	(A7)+,0x23128
00022976 1f 39 00 02 31 23        | 9  1#  |		MOVE.B	0x23123,-(A7)
0002297c 2f 39 00 02 31 28        |/9  1(  |		MOVE.L	0x23128,-(A7)
00022982 2f 39 00 02 31 24        |/9  1$  |		MOVE.L	0x23124,-(A7)
00022988 9e fc 00 2c              |   ,    |		SUBA.W	#0x2c,A7
0002298c 20 4f                    | O      |		MOVEA.L	A7,A0
0002298e 22 4a                    |"J      |		MOVEA.L	A2,A1
00022990 70 2b                    |p+      |		MOVEQ.L	#0x2b,D0
00022992 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022994 51 c8 ff fc              |Q       |		DBF	D0,0x22992
00022998 48 79 00 02 30 e5        |Hy  0   |		PEA.L	0x230e5
0002299e 48 79 00 02 30 e6        |Hy  0   |		PEA.L	0x230e6
000229a4 48 79 00 02 30 ea        |Hy  0   |		PEA.L	0x230ea
000229aa 48 79 00 02 30 ee        |Hy  0   |		PEA.L	0x230ee
000229b0 48 79 00 02 30 ef        |Hy  0   |		PEA.L	0x230ef
000229b6 4e ba f8 72              |N  r    |		JSR	0x2222a
000229ba de fc 00 48              |   H    |		ADDA.W	#0x48,A7
000229be 1e b9 00 02 30 e5        |    0   |		MOVE.B	0x230e5,(A7)
000229c4 2f 39 00 02 30 e6        |/9  0   |		MOVE.L	0x230e6,-(A7)
000229ca 2f 39 00 02 30 ea        |/9  0   |		MOVE.L	0x230ea,-(A7)
000229d0 1f 39 00 02 30 ee        | 9  0   |		MOVE.B	0x230ee,-(A7)
000229d6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000229d8 20 4f                    | O      |		MOVEA.L	A7,A0
000229da 43 f9 00 02 30 ef        |C   0   |		LEA.L	0x230ef,A1
000229e0 70 07                    |p       |		MOVEQ.L	#0x07,D0
000229e2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000229e4 51 c8 ff fc              |Q       |		DBF	D0,0x229e2
000229e8 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
000229ee de fc 00 14              |        |		ADDA.W	#0x14,A7
000229f2 4e b9 00 01 02 84        |N       |		JSR	?exit
000229f8					exp_READ_PAREG.FIU(Sw_1, &Sr_1):
000229f8 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000229fe 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00022a00 0e 52 45 41 44 5f 50 41  | READ_PA|		.TXT	14,'READ_PAREG.FIU'
00022a0f 00                       |        |		.CONST	0x0
00022a10 03                       |        |		.CONST	0x3			; DIPROC address
00022a11 01                       |        |		.CONST	0x1			; Output Parameters
00022a12 01                       |        |		.CONST	0x1			; Input Parameters
00022a13 00                       |        |		.CONST	0x0			; In arg [1]
00022a14 00                       |        |		.CONST	0x0			; Out arg [1]
00022a15 00                       |        |		.PAD	0x0
00022a16					exp_HALT.SEQ(&Fr):
00022a16 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022a1c 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00022a1e 08 48 41 4c 54 2e 53 45  | HALT.SE|		.TXT	8,'HALT.SEQ'
00022a27 00                       |        |		.CONST	0x0
00022a28 02                       |        |		.CONST	0x2			; DIPROC address
00022a29 01                       |        |		.CONST	0x1			; Output Parameters
00022a2a 00                       |        |		.CONST	0x0			; Input Parameters
00022a2b 08                       |        |		.CONST	0x8			; Out arg flag
00022a2c					exp_GET_MISC_ERRORS.SEQ(&Sr_1):
00022a2c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022a32 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00022a34 13 47 45 54 5f 4d 49 53  | GET_MIS|		.TXT	19,'GET_MISC_ERRORS.SEQ'
00022a48 00                       |        |		.CONST	0x0
00022a49 02                       |        |		.CONST	0x2			; DIPROC address
00022a4a 01                       |        |		.CONST	0x1			; Output Parameters
00022a4b 00                       |        |		.CONST	0x0			; Input Parameters
00022a4c 00                       |        |		.CONST	0x0			; Out arg [1]
00022a4d 00                       |        |		.PAD	0x0
00022a4e					exp_READ_WCS.TYP(Sw_2, Sw_1, &Sr_6, &Fr):
00022a4e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022a54 00 14                    |        |		.CONST	0x0014			; Stack-delta
00022a56 0c 52 45 41 44 5f 57 43  | READ_WC|		.TXT	12,'READ_WCS.TYP'
00022a63 00                       |        |		.CONST	0x0
00022a64 06                       |        |		.CONST	0x6			; DIPROC address
00022a65 02                       |        |		.CONST	0x2			; Output Parameters
00022a66 02                       |        |		.CONST	0x2			; Input Parameters
00022a67 01                       |        |		.CONST	0x1			; In arg [2]
00022a68 00                       |        |		.CONST	0x0			; In arg [1]
00022a69 05                       |        |		.CONST	0x5			; Out arg [6]
00022a6a 08                       |        |		.CONST	0x8			; Out arg flag
00022a6b 00                       |        |		.PAD	0x0
00022a6c					exp_READ_PARITY.TYP(&Sr_1):
00022a6c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022a72 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00022a74 0f 52 45 41 44 5f 50 41  | READ_PA|		.TXT	15,'READ_PARITY.TYP'
00022a84 00                       |        |		.CONST	0x0
00022a85 06                       |        |		.CONST	0x6			; DIPROC address
00022a86 01                       |        |		.CONST	0x1			; Output Parameters
00022a87 00                       |        |		.CONST	0x0			; Input Parameters
00022a88 00                       |        |		.CONST	0x0			; Out arg [1]
00022a89 00                       |        |		.PAD	0x0
00022a8a					exp_READ_WCS.VAL(Sw_2, Sw_1, &Sr_5, &Fr):
00022a8a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022a90 00 14                    |        |		.CONST	0x0014			; Stack-delta
00022a92 0c 52 45 41 44 5f 57 43  | READ_WC|		.TXT	12,'READ_WCS.VAL'
00022a9f 00                       |        |		.CONST	0x0
00022aa0 07                       |        |		.CONST	0x7			; DIPROC address
00022aa1 02                       |        |		.CONST	0x2			; Output Parameters
00022aa2 02                       |        |		.CONST	0x2			; Input Parameters
00022aa3 01                       |        |		.CONST	0x1			; In arg [2]
00022aa4 00                       |        |		.CONST	0x0			; In arg [1]
00022aa5 04                       |        |		.CONST	0x4			; Out arg [5]
00022aa6 08                       |        |		.CONST	0x8			; Out arg flag
00022aa7 00                       |        |		.PAD	0x0
00022aa8					exp_READ_PARITY.VAL(&Sr_1):
00022aa8 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022aae 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00022ab0 0f 52 45 41 44 5f 50 41  | READ_PA|		.TXT	15,'READ_PARITY.VAL'
00022ac0 00                       |        |		.CONST	0x0
00022ac1 07                       |        |		.CONST	0x7			; DIPROC address
00022ac2 01                       |        |		.CONST	0x1			; Output Parameters
00022ac3 00                       |        |		.CONST	0x0			; Input Parameters
00022ac4 00                       |        |		.CONST	0x0			; Out arg [1]
00022ac5 00                       |        |		.PAD	0x0
00022ac6 57 48 4f 5f 48 49 54 2e  |WHO_HIT.|		.TXT	'WHO_HIT.MEM '
00022ad2 57 48 4f 5f 48 49 54 2e  |WHO_HIT.|		.TXT	'WHO_HIT.M32 '
00022ade ; --------------------------------------------------------------------------------------
00022ade ; OMSI PASCAL Function
00022ade ;    <LVAR  0x014 1(r)>
00022ade ;    <LVAR  0x010 4(r)>
00022ade ;    <LVAR  0x00c 4(r)>
00022ade ;    <LVAR  0x008 4(r)>
00022ade ;    <LVAR -0x006 @ 4(r)>
00022ade ; --------------------------------------------------------------------------------------
00022ade 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
00022ae2 bf d5                    |        |		CMPA.L	(A5),A7
00022ae4 62 06                    |b       |		BHI	0x22aec
00022ae6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022aea 4e 76                    |Nv      |		TRAPV
00022aec de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00022af0 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00022af4 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00022af8 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00022afa 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022afc 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00022b02 4a 1f                    |J       |		TST.B	(A7)+
00022b04 67 12                    |g       |		BEQ	0x22b18
00022b06 9e c1                    |        |		SUBA.W	D1,A7
00022b08 20 4f                    | O      |		MOVEA.L	A7,A0
00022b0a 43 fa ff ba              |C       |		LEA.L	0x22ac6,A1
00022b0e 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022b10 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022b12 51 c8 ff fc              |Q       |		DBF	D0,0x22b10
00022b16 60 10                    |`       |		BRA	0x22b28
00022b18 9e c1                    |        |		SUBA.W	D1,A7
00022b1a 20 4f                    | O      |		MOVEA.L	A7,A0
00022b1c 43 fa ff b4              |C       |		LEA.L	0x22ad2,A1
00022b20 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022b22 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022b24 51 c8 ff fc              |Q       |		DBF	D0,0x22b22
00022b28 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022b2a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022b2e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022b32 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00022b36 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022b3c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022b3e 48 52                    |HR      |		PEA.L	(A2)
00022b40 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00022b46 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022b4a 42 27                    |B'      |		CLR.B	-(A7)
00022b4c 1f 2e 00 14              | .      |		MOVE.B	(A6+0x14),-(A7)
00022b50 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022b52 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00022b58 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b5a 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022b5c 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00022b60 48 50                    |HP      |		PEA.L	(A0)
00022b62 4e b9 00 01 04 78        |N    x  |		JSR	ExpOutputFlag(exp : Pointer; VAR status : Bool)
00022b68 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b6a 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022b6c 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022b70 48 50                    |HP      |		PEA.L	(A0)
00022b72 4e b9 00 01 04 78        |N    x  |		JSR	ExpOutputFlag(exp : Pointer; VAR status : Bool)
00022b78 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b7a 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022b7c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022b80 48 50                    |HP      |		PEA.L	(A0)
00022b82 48 78 00 00              |Hx      |		PEA.L	0x0
00022b86 48 78 00 00              |Hx      |		PEA.L	0x0
00022b8a 4e b9 00 01 04 72        |N    r  |		JSR	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
00022b90 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022b94 48 52                    |HR      |		PEA.L	(A2)
00022b96 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00022b9c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b9e 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00022ba2 4e 5e                    |N^      |		UNLK	A6
00022ba4 4e 75                    |Nu      |		RTS
00022ba6 52 45 41 44 5f 50 41 52  |READ_PAR|		.TXT	'READ_PAR_ERRS.MEM '
00022bb8 52 45 41 44 5f 50 41 52  |READ_PAR|		.TXT	'READ_PAR_ERRS.M32 '
00022bca ; --------------------------------------------------------------------------------------
00022bca ; OMSI PASCAL Function
00022bca ;    <LVAR  0x018 1(r)>
00022bca ;    <LVAR  0x014 4(r)>
00022bca ;    <LVAR  0x010 4(r)>
00022bca ;    <LVAR  0x00c 4(r)>
00022bca ;    <LVAR  0x008 4(r)>
00022bca ;    <LVAR -0x006 @ 4(r)>
00022bca ; --------------------------------------------------------------------------------------
00022bca 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
00022bce bf d5                    |        |		CMPA.L	(A5),A7
00022bd0 62 06                    |b       |		BHI	0x22bd8
00022bd2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022bd6 4e 76                    |Nv      |		TRAPV
00022bd8 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00022bdc 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00022be0 45 f8 00 00              |E       |		LEA.L	0x0,A2
00022be4 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
00022be8 49 f9 00 01 04 72        |I    r  |		LEA.L	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L),A4
00022bee 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00022bf0 74 12                    |t       |		MOVEQ.L	#0x12,D2
00022bf2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022bf4 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00022bfa 4a 1f                    |J       |		TST.B	(A7)+
00022bfc 67 12                    |g       |		BEQ	0x22c10
00022bfe 9e c2                    |        |		SUBA.W	D2,A7
00022c00 20 4f                    | O      |		MOVEA.L	A7,A0
00022c02 43 fa ff a2              |C       |		LEA.L	0x22ba6,A1
00022c06 70 10                    |p       |		MOVEQ.L	#0x10,D0
00022c08 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022c0a 51 c8 ff fc              |Q       |		DBF	D0,0x22c08
00022c0e 60 10                    |`       |		BRA	0x22c20
00022c10 9e c2                    |        |		SUBA.W	D2,A7
00022c12 20 4f                    | O      |		MOVEA.L	A7,A0
00022c14 43 fa ff a2              |C       |		LEA.L	0x22bb8,A1
00022c18 70 10                    |p       |		MOVEQ.L	#0x10,D0
00022c1a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022c1c 51 c8 ff fc              |Q       |		DBF	D0,0x22c1a
00022c20 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c22 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c26 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022c2a 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
00022c2e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022c34 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c36 48 53                    |HS      |		PEA.L	(A3)
00022c38 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00022c3e de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00022c42 42 27                    |B'      |		CLR.B	-(A7)
00022c44 1f 2e 00 18              | .      |		MOVE.B	(A6+0x18),-(A7)
00022c48 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022c4a 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00022c50 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c52 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022c54 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00022c58 48 50                    |HP      |		PEA.L	(A0)
00022c5a 48 52                    |HR      |		PEA.L	(A2)
00022c5c 48 52                    |HR      |		PEA.L	(A2)
00022c5e 4e 94                    |N       |		JSR	(A4)
00022c60 de c1                    |        |		ADDA.W	D1,A7
00022c62 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022c64 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00022c68 48 50                    |HP      |		PEA.L	(A0)
00022c6a 48 52                    |HR      |		PEA.L	(A2)
00022c6c 48 52                    |HR      |		PEA.L	(A2)
00022c6e 4e 94                    |N       |		JSR	(A4)
00022c70 de c1                    |        |		ADDA.W	D1,A7
00022c72 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022c74 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022c78 48 50                    |HP      |		PEA.L	(A0)
00022c7a 48 52                    |HR      |		PEA.L	(A2)
00022c7c 48 52                    |HR      |		PEA.L	(A2)
00022c7e 4e 94                    |N       |		JSR	(A4)
00022c80 de c1                    |        |		ADDA.W	D1,A7
00022c82 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022c84 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022c88 48 50                    |HP      |		PEA.L	(A0)
00022c8a 48 52                    |HR      |		PEA.L	(A2)
00022c8c 48 52                    |HR      |		PEA.L	(A2)
00022c8e 4e 94                    |N       |		JSR	(A4)
00022c90 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022c94 48 53                    |HS      |		PEA.L	(A3)
00022c96 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00022c9c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c9e 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00022ca2 4e 5e                    |N^      |		UNLK	A6
00022ca4 4e 75                    |Nu      |		RTS
00022ca6 52 45 41 44 5f 50 41 52  |READ_PAR|		.TXT	'READ_PARITY.MEM '
00022cb6 52 45 41 44 5f 50 41 52  |READ_PAR|		.TXT	'READ_PARITY.M32 '
00022cc6 ; --------------------------------------------------------------------------------------
00022cc6 ; OMSI PASCAL Function
00022cc6 ;    <LVAR  0x014 1(r)>
00022cc6 ;    <LVAR  0x010 4(r)>
00022cc6 ;    <LVAR  0x00c 4(r)>
00022cc6 ;    <LVAR  0x008 4(r)>
00022cc6 ;    <LVAR -0x006 @ 4(r)>
00022cc6 ; --------------------------------------------------------------------------------------
00022cc6 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
00022cca bf d5                    |        |		CMPA.L	(A5),A7
00022ccc 62 06                    |b       |		BHI	0x22cd4
00022cce 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022cd2 4e 76                    |Nv      |		TRAPV
00022cd4 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00022cd8 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00022cdc 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00022ce0 47 f8 00 00              |G       |		LEA.L	0x0,A3
00022ce4 49 f9 00 01 04 72        |I    r  |		LEA.L	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L),A4
00022cea 72 10                    |r       |		MOVEQ.L	#0x10,D1
00022cec 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00022cee 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022cf0 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00022cf6 4a 1f                    |J       |		TST.B	(A7)+
00022cf8 67 12                    |g       |		BEQ	0x22d0c
00022cfa 9e c1                    |        |		SUBA.W	D1,A7
00022cfc 20 4f                    | O      |		MOVEA.L	A7,A0
00022cfe 43 fa ff a6              |C       |		LEA.L	0x22ca6,A1
00022d02 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022d04 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022d06 51 c8 ff fc              |Q       |		DBF	D0,0x22d04
00022d0a 60 10                    |`       |		BRA	0x22d1c
00022d0c 9e c1                    |        |		SUBA.W	D1,A7
00022d0e 20 4f                    | O      |		MOVEA.L	A7,A0
00022d10 43 fa ff a4              |C       |		LEA.L	0x22cb6,A1
00022d14 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022d16 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022d18 51 c8 ff fc              |Q       |		DBF	D0,0x22d16
00022d1c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d1e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d22 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022d26 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00022d2a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022d30 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d32 48 52                    |HR      |		PEA.L	(A2)
00022d34 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00022d3a de fc 00 18              |        |		ADDA.W	#0x18,A7
00022d3e 42 27                    |B'      |		CLR.B	-(A7)
00022d40 1f 2e 00 14              | .      |		MOVE.B	(A6+0x14),-(A7)
00022d44 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022d46 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00022d4c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022d4e 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022d50 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00022d54 48 50                    |HP      |		PEA.L	(A0)
00022d56 48 53                    |HS      |		PEA.L	(A3)
00022d58 48 53                    |HS      |		PEA.L	(A3)
00022d5a 4e 94                    |N       |		JSR	(A4)
00022d5c de c2                    |        |		ADDA.W	D2,A7
00022d5e 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022d60 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00022d64 48 50                    |HP      |		PEA.L	(A0)
00022d66 48 53                    |HS      |		PEA.L	(A3)
00022d68 48 53                    |HS      |		PEA.L	(A3)
00022d6a 4e 94                    |N       |		JSR	(A4)
00022d6c de c2                    |        |		ADDA.W	D2,A7
00022d6e 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022d70 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022d74 48 50                    |HP      |		PEA.L	(A0)
00022d76 48 53                    |HS      |		PEA.L	(A3)
00022d78 48 53                    |HS      |		PEA.L	(A3)
00022d7a 4e 94                    |N       |		JSR	(A4)
00022d7c de c1                    |        |		ADDA.W	D1,A7
00022d7e 48 52                    |HR      |		PEA.L	(A2)
00022d80 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00022d86 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022d88 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00022d8c 4e 5e                    |N^      |		UNLK	A6
00022d8e 4e 75                    |Nu      |		RTS
00022d90					exp_READ_WCS.IOC(Sw_2, Sw_1, &Sr_2, &Fr):
00022d90 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022d96 00 14                    |        |		.CONST	0x0014			; Stack-delta
00022d98 0c 52 45 41 44 5f 57 43  | READ_WC|		.TXT	12,'READ_WCS.IOC'
00022da5 00                       |        |		.CONST	0x0
00022da6 04                       |        |		.CONST	0x4			; DIPROC address
00022da7 02                       |        |		.CONST	0x2			; Output Parameters
00022da8 02                       |        |		.CONST	0x2			; Input Parameters
00022da9 01                       |        |		.CONST	0x1			; In arg [2]
00022daa 00                       |        |		.CONST	0x0			; In arg [1]
00022dab 01                       |        |		.CONST	0x1			; Out arg [2]
00022dac 08                       |        |		.CONST	0x8			; Out arg flag
00022dad 00                       |        |		.PAD	0x0
00022dae					exp_READ_TRACE_BLOCK.IOC(&Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8, &Sr_8):
00022dae 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022db4 00 48                    | H      |		.CONST	0x0048			; Stack-delta
00022db6 14 52 45 41 44 5f 54 52  | READ_TR|		.TXT	20,'READ_TRACE_BLOCK.IOC'
00022dcb 00                       |        |		.CONST	0x0
00022dcc 04                       |        |		.CONST	0x4			; DIPROC address
00022dcd 10                       |        |		.CONST	0x10			; Output Parameters
00022dce 00                       |        |		.CONST	0x0			; Input Parameters
00022dcf 07                       |        |		.CONST	0x7			; Out arg [8]
00022dd0 07                       |        |		.CONST	0x7			; Out arg [8]
00022dd1 07                       |        |		.CONST	0x7			; Out arg [8]
00022dd2 07                       |        |		.CONST	0x7			; Out arg [8]
00022dd3 07                       |        |		.CONST	0x7			; Out arg [8]
00022dd4 07                       |        |		.CONST	0x7			; Out arg [8]
00022dd5 07                       |        |		.CONST	0x7			; Out arg [8]
00022dd6 07                       |        |		.CONST	0x7			; Out arg [8]
00022dd7 07                       |        |		.CONST	0x7			; Out arg [8]
00022dd8 07                       |        |		.CONST	0x7			; Out arg [8]
00022dd9 07                       |        |		.CONST	0x7			; Out arg [8]
00022dda 07                       |        |		.CONST	0x7			; Out arg [8]
00022ddb 07                       |        |		.CONST	0x7			; Out arg [8]
00022ddc 07                       |        |		.CONST	0x7			; Out arg [8]
00022ddd 07                       |        |		.CONST	0x7			; Out arg [8]
00022dde 07                       |        |		.CONST	0x7			; Out arg [8]
00022ddf 00                       |        |		.PAD	0x0
00022de0					exp_READ_TRACE_ADDRESS.IOC(Sw_1, &Sr_2):
00022de0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022de6 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00022de8 16 52 45 41 44 5f 54 52  | READ_TR|		.TXT	22,'READ_TRACE_ADDRESS.IOC'
00022dff 00                       |        |		.CONST	0x0
00022e00 04                       |        |		.CONST	0x4			; DIPROC address
00022e01 01                       |        |		.CONST	0x1			; Output Parameters
00022e02 01                       |        |		.CONST	0x1			; Input Parameters
00022e03 00                       |        |		.CONST	0x0			; In arg [1]
00022e04 01                       |        |		.CONST	0x1			; Out arg [2]
00022e05 00                       |        |		.PAD	0x0
00022e06					exp_READ_PAREG.IOC(Sw_1, &Sr_1):
00022e06 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022e0c 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00022e0e 0e 52 45 41 44 5f 50 41  | READ_PA|		.TXT	14,'READ_PAREG.IOC'
00022e1d 00                       |        |		.CONST	0x0
00022e1e 04                       |        |		.CONST	0x4			; DIPROC address
00022e1f 01                       |        |		.CONST	0x1			; Output Parameters
00022e20 01                       |        |		.CONST	0x1			; Input Parameters
00022e21 00                       |        |		.CONST	0x0			; In arg [1]
00022e22 00                       |        |		.CONST	0x0			; Out arg [1]
00022e23 00                       |        |		.PAD	0x0
00022e24					exp_LOAD_TRACE_ADDRESS.IOC(Sw_2, Sw_1):
00022e24 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022e2a 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00022e2c 16 4c 4f 41 44 5f 54 52  | LOAD_TR|		.TXT	22,'LOAD_TRACE_ADDRESS.IOC'
00022e43 00                       |        |		.CONST	0x0
00022e44 04                       |        |		.CONST	0x4			; DIPROC address
00022e45 00                       |        |		.CONST	0x0			; Output Parameters
00022e46 02                       |        |		.CONST	0x2			; Input Parameters
00022e47 01                       |        |		.CONST	0x1			; In arg [2]
00022e48 00                       |        |		.CONST	0x0			; In arg [1]
00022e49 00                       |        |		.PAD	0x0
00022e4a 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00022e58 ; --------------------------------------------------------------------------------------
00022e58 ; OMSI PASCAL Function
00022e58 ;    <LVAR  0x008 1(r)>
00022e58 ; --------------------------------------------------------------------------------------
00022e58					PROG_FAIL:
00022e58 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00022e5c bf d5                    |        |		CMPA.L	(A5),A7
00022e5e 62 06                    |b       |		BHI	0x22e66
00022e60 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022e64 4e 76                    |Nv      |		TRAPV
00022e66 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00022e6a 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00022e6e 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00022e72 70 06                    |p       |		MOVEQ.L	#0x06,D0
00022e74 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022e76 51 c8 ff fc              |Q       |		DBF	D0,0x22e74
00022e7a 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00022e7e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022e80 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00022e84 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022e88 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00022e8c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022e92 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022e94 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00022e98 48 80                    |H       |		EXTB.W	D0
00022e9a 48 c0                    |H       |		EXTW.L	D0
00022e9c 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022e9e 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00022ea4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022ea6 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022eac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022eae 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022eb4 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022eb8 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00022ebc 4e 5e                    |N^      |		UNLK	A6
00022ebe 4e 75                    |Nu      |		RTS
00022ec0 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00022ece 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00022edc 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00022eea 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00022efc 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00022f14 ; --------------------------------------------------------------------------------------
00022f14 ; OMSI PASCAL Function
00022f14 ;    <LVAR  0x00e 1(r)>
00022f14 ;    <LVAR  0x00a 4(r)>
00022f14 ;    <LVAR  0x008 1(r)>
00022f14 ; --------------------------------------------------------------------------------------
00022f14					EXP_FAIL:
00022f14 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00022f18 bf d5                    |        |		CMPA.L	(A5),A7
00022f1a 62 06                    |b       |		BHI	0x22f22
00022f1c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022f20 4e 76                    |Nv      |		TRAPV
00022f22 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00022f26 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00022f2a 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00022f30 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00022f36 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022f38 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00022f3a 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00022f3c 78 12                    |x       |		MOVEQ.L	#0x12,D4
00022f3e 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00022f40 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00022f46 41 fa ff b4              |A       |		LEA.L	0x22efc,A0
00022f4a 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022f4c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022f4e 51 c8 ff fc              |Q       |		DBF	D0,0x22f4c
00022f52 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f54 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022f58 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022f5a 3f 04                    |?       |		MOVE.W	D4,-(A7)
00022f5c 4e 93                    |N       |		JSR	(A3)
00022f5e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f60 4e 94                    |N       |		JSR	(A4)
00022f62 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f64 20 4f                    | O      |		MOVEA.L	A7,A0
00022f66 43 fa ff 58              |C  X    |		LEA.L	0x22ec0,A1
00022f6a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022f6c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022f6e 51 c8 ff fc              |Q       |		DBF	D0,0x22f6c
00022f72 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022f74 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00022f78 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022f7a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022f7c 4e 93                    |N       |		JSR	(A3)
00022f7e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022f80 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00022f84 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00022f8a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022f8c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022f92 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f94 4e 94                    |N       |		JSR	(A4)
00022f96 de c4                    |        |		ADDA.W	D4,A7
00022f98 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00022f9c b0 c1                    |        |		CMPA.W	D1,A0
00022f9e 67 48                    |gH      |		BEQ	0x22fe8
00022fa0 9e c5                    |        |		SUBA.W	D5,A7
00022fa2 22 4f                    |"O      |		MOVEA.L	A7,A1
00022fa4 45 fa ff 28              |E  (    |		LEA.L	0x22ece,A2
00022fa8 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022faa 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022fac 51 c8 ff fc              |Q       |		DBF	D0,0x22faa
00022fb0 9e c3                    |        |		SUBA.W	D3,A7
00022fb2 22 4f                    |"O      |		MOVEA.L	A7,A1
00022fb4 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00022fb8 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00022fba 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00022fbc 51 c8 ff fc              |Q       |		DBF	D0,0x22fba
00022fc0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022fc2 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00022fc6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022fc8 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022fca 4e 93                    |N       |		JSR	(A3)
00022fcc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022fce 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00022fd2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022fd4 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022fd6 4e 93                    |N       |		JSR	(A3)
00022fd8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022fda 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022fe0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022fe2 4e 94                    |N       |		JSR	(A4)
00022fe4 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00022fe8 9e c5                    |        |		SUBA.W	D5,A7
00022fea 20 4f                    | O      |		MOVEA.L	A7,A0
00022fec 43 fa fe ee              |C       |		LEA.L	0x22edc,A1
00022ff0 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022ff2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022ff4 51 c8 ff fc              |Q       |		DBF	D0,0x22ff2
00022ff8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022ffa 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00022ffe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023000 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023002 4e 93                    |N       |		JSR	(A3)
00023004 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023006 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
0002300a 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
00023010 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023012 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023018 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002301a 4e 94                    |N       |		JSR	(A4)
0002301c 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002301e 20 4f                    | O      |		MOVEA.L	A7,A0
00023020 43 fa fe da              |C       |		LEA.L	0x22efc,A1
00023024 70 16                    |p       |		MOVEQ.L	#0x16,D0
00023026 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023028 51 c8 ff fc              |Q       |		DBF	D0,0x23026
0002302c 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00023030 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023032 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00023036 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023038 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
0002303c 4e 93                    |N       |		JSR	(A3)
0002303e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023040 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00023046 de c3                    |        |		ADDA.W	D3,A7
00023048 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
0002304c 4e 5e                    |N^      |		UNLK	A6
0002304e 4e 75                    |Nu      |		RTS