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

⟦1884974ed⟧ M200

    Length: 10240 (0x2800)
    Types: M200
    Notes: @(#)FPTEST,2.0,89/09/04,17:18:19, M200_PROGRAM
    Names: »P2FP.M200«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »P2FP.M200« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »P2FP.M200« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »P2FP.M200« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »P2FP.M200« 
    └─ ⟦this⟧ »P2FP.M200« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »P2FP.M200« 

Disassembly

0x204e0


@ 204e0
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 204e0-2061c Body>                                              
        <POP 204e0-204f6 Prologue>                           Σ0         ↓
        <POP 204f6-2050c RegCacheLoad>                       Σ0         ↓
        <POP 2050c-2056c Naked>                              Σ0         ↓ →0x205b4
            <Call 0x2050c 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x20512 [18] @>                            Δ-18               {[«18""»]}
            <POP 2051e-20520 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x20520 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x2052c 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 2052e-2052f StackAdj>                       Δ+22       ↓       {}
            <Blob 0x2052f [14] @>                            Δ-14               {[«14""»]}
            <POP 2053e-20540 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x20540 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 2054a-2054c StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 2054c  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x20550 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 20556-20558 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x20558 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2055e-20560 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x20560 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20562-20564 StackAdj>                       Δ+18               {}
            <MI 20564  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 20568  CMPA.W  #0x01,A0>                                        {}
            <MI 2056a  BEQ     0x205b4>                                         {}
        <POP 2056c-205b4 Naked>                              Σ0         ↓
            <Blob 0x2056c [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x2057c [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 2058c-2058e StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x2058e 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 20598-2059a StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x2059a>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x2059a 12>                      Δ-4        
                <Const 0x2059e 0x1.2>                        Δ-2        
                <Const 0x205a0 0x1e.2>                       Δ-2        
                <Call 0x205a2 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 205a4-205a6 StackAdj>                   Δ+8        
            <Call 0x205a6 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 205ac-205ae StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x205ae 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 205b0-205b4 StackAdj>                       Δ+48               {}
        <POP 205b4-20614 Naked>                              Σ0         ↓ ←0x2050c
            <Blob 0x205b4 [14] @>                            Δ-14               {[«14""»]}
            <POP 205c4-205c6 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x205c6 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 205d0-205d2 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 205d2  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x205d6 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 205dc-205de StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x205de 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 205e4-205e6 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x205e6 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 205e8-205e9 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x205e9 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x205f8 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 205fc-205fe StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x205fe 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x2060c 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 20612-20614 StackAdj>                       Δ+30               {}
        <POP 20614-2061c Epilogue>                           Σ0         

0x2061c


@ 2061c
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 2061c-20684 Body>                                              
        <POP 2061c-20632 Prologue>                           Σ0         ↓
        <POP 20632-2067c Naked>                              Σ0         ↓
            <Blob 0x20632 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x2063e 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 20642-20644 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x20644 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 20656-20658 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20658  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2065c  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2065e  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20660  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x20662 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 20668-2066a StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x2066a 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20670-20672 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x20672 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 20678-2067c StackAdj>                       Δ+20               {}
        <POP 2067c-20684 Epilogue>                           Σ0         

0x20684


@ 20684
        <LVAR  0x016 1(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @>
    <POP 20684-2074c Body>                                   Δ+10       
        <POP 20684-2069a Prologue>                           Σ0         ↓
        <POP 2069a-206a2 RegCacheLoad>                       Σ0         ↓
        <POP 206a2-206c2 Naked>                              Σ0         ↓ →0x206d0
            <Call 0x206a2 0x10538>                                              {}
                IPC_Init(void)
            <MI 206a8  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[4, '(A6+0x12)']}
            <Call 0x206ac 0x10508>                                              {[4, '(A6+0x12)']}
                IPC_PutString(a : String)
            <POP 206b2-206b4 StackAdj>                       Δ+2                {[-2-]}
            <MI 206b4  MOVE.B  (A6+0x10),(A7)>                                  {[-2-]}
            <Call 0x206b8 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 206ba-206bc StackAdj>                       Δ+2                {}
            <MI 206bc  TST.B   (A6+0x16)>                                       {}
            <MI 206c0  BNE     0x206d0>                                         {}
        <POP 206c2-206d0 Naked>                              Σ0         ↓
            <MI 206c2  MOVE.B  (A6+0xe),-(A7)>               Δ-2                {[2, '(A6+0xe)']}
            <Call 0x206c6 0x10502>                                              {[2, '(A6+0xe)']}
                IPC_PutBool(a : Bool)
            <MI 206c8  MOVE.B  (A6+0xc),(A7)>                                   {[-2-]}
            <Call 0x206cc 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 206ce-206d0 StackAdj>                       Δ+2                {}
        <POP 206d0-206dc Naked>                              Σ0         ↓ →0x206ee ←0x206a2
            <Call 0x206d0 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 206d6  TST.B   (A6+0x16)>                                       {}
            <MI 206da  BEQ     0x206ee>                                         {}
        <POP 206dc-206ee Naked>                              Σ0 Δ-10    →0x206fe
            <Blob 0x206dc [10] @>                            Δ-10               {[«10""»]}
            <MI 206ec  BRA     0x206fe>                                         {[«10""»]}
        <POP 206ee-206fe Naked>                              Σ0 Δ-10    ↓ ←0x206d0
            <Blob 0x206ee [10] @>                            Δ-10               {[«10""»]}
        <POP 206fe-20744 Naked>                              Σ-10 Δ+10  ↓ ←0x206dc
            <POP 206fe-20700 StackAdj>                       Δ-4                {[-14-]}
            <Lit 0x20700>                                                       {[-10-]|[$$…]}
                <Pointer.sp 0x20700 4>                       Δ-4        
                <Const 0x20704 0x1.2>                        Δ-2        
                <Const 0x20708 0x9.2>                        Δ-2        
                <Call 0x2070c 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20712-20714 StackAdj>                   Δ+8        
            <Const 0x20714 0x1.4>                            Δ-4                {[-10-]|[$$…]|[##1]}
            <Const 0x20718 0x2.2>                            Δ-2                {[-10-]|[$$…]|[##1]|[#2]}
            <Pointer.fp 0x2071c <LVAR -0x004 @>>             Δ-4                {[-10-]|[$$…]|[##1]|[#2]|[@@-4]}
            <Call 0x20720 0x103b0>                                              {[-10-]|[$$…]|[##1]|[#2]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 20726-2072a StackAdj>                       Δ+24               {}
            <Call 0x2072a 0x10538>                                              {}
                IPC_Init(void)
            <MI 20730  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20734  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20736 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 2073c-2073e StackAdj>                       Δ+4                {}
            <Call 0x2073e 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 20744-2074c Epilogue>                           Σ0         

0x2074c


@ 2074c
        <LVAR  0x008 @ 4(r)>
    <POP 2074c-207e0 Body>                                   Δ+4        
        <POP 2074c-20762 Prologue>                           Σ0         ↓
        <POP 20762-20778 RegCacheLoad>                       Σ0         ↓
        <POP 20778-20782 Naked>                              Σ0         ↓ →0x2078e
            <MI 20778  ADDQ.L  #0x1,0x226a8>                                    {}
            <MI 2077a  TST.B   0x226b0>                                         {}
            <MI 20780  BEQ     0x2078e>                                         {}
        <POP 20782-2078a Naked>                              Σ0 Δ-4     ↓
            <MI 20782  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Call 0x20784 0x103e0>                                              {[4, '(A6+0x8)']}
                WriteConsoleStringCrLf(str : String)
        <POP 2078a-2078e Naked>                              Σ-4 Δ+4    →0x207d8 ←0x20798
            <POP 2078a-2078c StackAdj>                       Δ+4                {}
            <MI 2078c  BRA     0x207d8>                                         {}
        <POP 2078e-20798 Naked>                              Σ0         ↓ →0x207a2 ←0x20778
            <MI 2078e  MOVE.L  0x226a8,D0>                                      {}
            <MI 20790  CMPI.L  #0x00000004,D0>                                  {}
            <MI 20796  BLT     0x207a2>                                         {}
        <POP 20798-207a2 Naked>                              Σ0 Δ-4     →0x2078a
            <Pointer.fp 0x20798 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x2079a 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <MI 207a0  BRA     0x2078a>                                         {[@@8]}
        <POP 207a2-207aa Naked>                              Σ0         ↓ →0x207c8 ←0x2078e
            <MI 207a2  CMPI.L  #0x00000001,D0>                                  {}
            <MI 207a8  BLE     0x207c8>                                         {}
        <POP 207aa-207c8 Naked>                              Σ0         ↓
            <Blob 0x207aa [4] @>                             Δ-4                {[«4""»]}
            <Const 0x207ac 0xd.2>                            Δ-2                {[«4""»]|[#13]}
            <Call 0x207b0 0x102c0>                                              {[«4""»]|[#13]}
                AppendChar(MOD b : String; a : char)
            <POP 207b2-207b4 StackAdj>                       Δ+2                {[«4""»]}
            <POP 207b4-207b5 StackAdj>                       Δ+4                {}
            <Blob 0x207b5 [4] @>                             Δ-4                {[«4""»]}
            <Const 0x207b6 0xa.2>                            Δ-2                {[«4""»]|[#10]}
            <Call 0x207ba 0x102c0>                                              {[«4""»]|[#10]}
                AppendChar(MOD b : String; a : char)
            <POP 207bc-207be StackAdj>                       Δ+2                {[«4""»]}
            <POP 207be-207bf StackAdj>                       Δ+4                {}
            <Blob 0x207bf [4] @>                             Δ-4                {[«4""»]}
            <Const 0x207c0 0x20.2>                           Δ-2                {[«4""»]|[#32]}
            <Call 0x207c4 0x102c0>                                              {[«4""»]|[#32]}
                AppendChar(MOD b : String; a : char)
            <POP 207c6-207c8 StackAdj>                       Δ+6                {}
        <POP 207c8-207d8 Naked>                              Σ0         ↓ ←0x207a2
            <POP 207c8-207ca StackAdj>                       Δ-4                {[-4-]}
            <Blob 0x207ca [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <MI 207cc  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[«4""»]|[4, '(A6+0x8)']}
            <Call 0x207ce 0x102d0>                                              {[-4-]|[«4""»]|[4, '(A6+0x8)']}
                StringCat2(a, b : String) : String
            <POP 207d4-207d6 StackAdj>                       Δ+8                {[-4-]}
            <MI 207d6  MOVE.L  (A7)+,0x226ac>                Δ+4                {}
        <POP 207d8-207e0 Epilogue>                           Σ0         ←0x2078a

0x207e0


@ 207e0
        <LVAR  0x008 4(r)>
        <LVAR -0x00a @ 2(r)>
        <LVAR -0x00c 1(rw)>
    <POP 207e0-20a04 Body>                                              
        <POP 207e0-207f6 Prologue>                           Σ0         ↓
        <POP 207f6-2081a RegCacheLoad>                       Σ0         ↓
        <POP 2081a-20826 Naked>                              Σ0         ↓ →0x2082a
            <POP 2081a-2081c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2081c 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 20822  TST.B   (A7)+>                        Δ+2                {}
            <MI 20824  BEQ     0x2082a>                                         {}
        <POP 20826-2082a Naked>                              Σ0         →0x2082e
            <MI 20826  CLR.B   (A6-0xc)>                                        {}
            <MI 20828  BRA     0x2082e>                                         {}
        <POP 2082a-2082e Naked>                              Σ0         ↓ ←0x2081a
            <MI 2082a  MOVE.B  #0xff,(A6-0xc)>                                  {}
        <POP 2082e-2083a Naked>                              Σ0         ↓ →0x20842 ←0x20826
            <POP 2082e-20830 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20830 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x20832 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20834-20836 StackAdj>                       Δ+2                {[-2-]}
            <MI 20836  TST.B   (A7)+>                        Δ+2                {}
            <MI 20838  BEQ     0x20842>                                         {}
        <POP 2083a-20842 Naked>                              Σ0         ↓
            <Const 0x2083a 0xc.2>                            Δ-2                {[#12]}
            <MI 2083c  MOVE.B  (A6-0xc),-(A7)>               Δ-2                {[#12]|[2, '(A6-0xc)']}
            <Call 0x2083e 0x222e0>                                              {[#12]|[2, '(A6-0xc)']}
            <POP 20840-20842 StackAdj>                       Δ+4                {}
        <POP 20842-2084e Naked>                              Σ0         ↓ →0x20856 ←0x2082e
            <POP 20842-20844 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20844 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x20846 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20848-2084a StackAdj>                       Δ+2                {[-2-]}
            <MI 2084a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2084c  BEQ     0x20856>                                         {}
        <POP 2084e-20856 Naked>                              Σ0         ↓
            <Const 0x2084e 0xd.2>                            Δ-2                {[#13]}
            <MI 20850  MOVE.B  (A6-0xc),-(A7)>               Δ-2                {[#13]|[2, '(A6-0xc)']}
            <Call 0x20852 0x222e0>                                              {[#13]|[2, '(A6-0xc)']}
            <POP 20854-20856 StackAdj>                       Δ+4                {}
        <POP 20856-20862 Naked>                              Σ0         ↓ →0x2086a ←0x20842
            <POP 20856-20858 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20858 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x2085a 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2085c-2085e StackAdj>                       Δ+2                {[-2-]}
            <MI 2085e  TST.B   (A7)+>                        Δ+2                {}
            <MI 20860  BEQ     0x2086a>                                         {}
        <POP 20862-2086a Naked>                              Σ0         ↓
            <Const 0x20862 0xe.2>                            Δ-2                {[#14]}
            <MI 20864  MOVE.B  (A6-0xc),-(A7)>               Δ-2                {[#14]|[2, '(A6-0xc)']}
            <Call 0x20866 0x222e0>                                              {[#14]|[2, '(A6-0xc)']}
            <POP 20868-2086a StackAdj>                       Δ+4                {}
        <POP 2086a-20876 Naked>                              Σ0         ↓ →0x2087e ←0x20856
            <POP 2086a-2086c StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2086c 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x2086e 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20870-20872 StackAdj>                       Δ+2                {[-2-]}
            <MI 20872  TST.B   (A7)+>                        Δ+2                {}
            <MI 20874  BEQ     0x2087e>                                         {}
        <POP 20876-2087e Naked>                              Σ0         ↓
            <Const 0x20876 0xf.2>                            Δ-2                {[#15]}
            <MI 20878  MOVE.B  (A6-0xc),-(A7)>               Δ-2                {[#15]|[2, '(A6-0xc)']}
            <Call 0x2087a 0x222e0>                                              {[#15]|[2, '(A6-0xc)']}
            <POP 2087c-2087e StackAdj>                       Δ+4                {}
        <POP 2087e-20890 Naked>                              Σ0         ↓ →0x20896 ←0x2086a
            <Call 0x2087e 0x22156>                                              {}
                exp_INIT_MRU.FIU()
            <POP 20884-20886 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20886 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x20888 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2088a-2088c StackAdj>                       Δ+2                {[-2-]}
            <MI 2088c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2088e  BEQ     0x20896>                                         {}
        <POP 20890-20896 Naked>                              Σ0         ↓
            <Const 0x20890 0xc.2>                            Δ-2                {[#12]}
            <Call 0x20892 0x22512>                                              {[#12]}
            <POP 20894-20896 StackAdj>                       Δ+2                {}
        <POP 20896-208a2 Naked>                              Σ0         ↓ →0x208a8 ←0x2087e
            <POP 20896-20898 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20898 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x2089a 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2089c-2089e StackAdj>                       Δ+2                {[-2-]}
            <MI 2089e  TST.B   (A7)+>                        Δ+2                {}
            <MI 208a0  BEQ     0x208a8>                                         {}
        <POP 208a2-208a8 Naked>                              Σ0         ↓
            <Const 0x208a2 0xd.2>                            Δ-2                {[#13]}
            <Call 0x208a4 0x22512>                                              {[#13]}
            <POP 208a6-208a8 StackAdj>                       Δ+2                {}
        <POP 208a8-208b4 Naked>                              Σ0         ↓ →0x208ba ←0x20896
            <POP 208a8-208aa StackAdj>                       Δ-2                {[-2-]}
            <Const 0x208aa 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x208ac 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 208ae-208b0 StackAdj>                       Δ+2                {[-2-]}
            <MI 208b0  TST.B   (A7)+>                        Δ+2                {}
            <MI 208b2  BEQ     0x208ba>                                         {}
        <POP 208b4-208ba Naked>                              Σ0         ↓
            <Const 0x208b4 0xe.2>                            Δ-2                {[#14]}
            <Call 0x208b6 0x22512>                                              {[#14]}
            <POP 208b8-208ba StackAdj>                       Δ+2                {}
        <POP 208ba-208c6 Naked>                              Σ0         ↓ →0x208cc ←0x208a8
            <POP 208ba-208bc StackAdj>                       Δ-2                {[-2-]}
            <Const 0x208bc 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x208be 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 208c0-208c2 StackAdj>                       Δ+2                {[-2-]}
            <MI 208c2  TST.B   (A7)+>                        Δ+2                {}
            <MI 208c4  BEQ     0x208cc>                                         {}
        <POP 208c6-208cc Naked>                              Σ0         ↓
            <Const 0x208c6 0xf.2>                            Δ-2                {[#15]}
            <Call 0x208c8 0x22512>                                              {[#15]}
            <POP 208ca-208cc StackAdj>                       Δ+2                {}
        <POP 208cc-208ce Naked>                              Σ0         ↓ ←0x208ba
            <MI 208cc  MOVEQ.L #0x0c,D7>                                        {}
        <POP 208ce-208da Naked>                              Σ0         ↓ →0x208e4 ←0x208e4
            <POP 208ce-208d0 StackAdj>                       Δ-2                {[-2-]}
            <MI 208d0  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x208d2 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 208d4-208d6 StackAdj>                       Δ+2                {[-2-]}
            <MI 208d6  TST.B   (A7)+>                        Δ+2                {}
            <MI 208d8  BEQ     0x208e4>                                         {}
        <POP 208da-208e4 Naked>                              Σ0         ↓
            <MI 208da  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x208dc 0x22468>                                              {[2, 'D7']}
            <POP 208e2-208e4 StackAdj>                       Δ+2                {}
        <POP 208e4-208ea Naked>                              Σ0         ↓ →0x208ce ←0x208ce
            <MI 208e4  ADDQ.B  #0x1,D7>                                         {}
            <MI 208e6  CMP.B   #0x0f,D7>                                        {}
            <MI 208e8  BLE     0x208ce>                                         {}
        <POP 208ea-20920 Naked>                              Σ0         ↓
            <Const 0x208ea 0x200.2>                          Δ-2                {[#512]}
            <Call 0x208ec 0x2223c>                                              {[#512]}
                exp_PREP_RUN.TYP(Sw_2)
            <POP 208f2-208f3 StackAdj>                       Δ+2                {}
            <Const 0x208f3 0x200.2>                          Δ-2                {[#512]}
            <Call 0x208f4 0x222ae>                                              {[#512]}
                exp_PREP_RUN.VAL(Sw_2)
            <POP 208fa-208fb StackAdj>                       Δ+2                {}
            <Const 0x208fb 0x200.2>                          Δ-2                {[#512]}
            <Call 0x208fc 0x221ca>                                              {[#512]}
                exp_PREP_RUN.SEQ(Sw_2)
            <POP 20902-20904 StackAdj>                       Δ+2                {}
            <Const 0x20904 0x200.2>                          Δ-2                {[#512]}
            <Call 0x20906 0x22686>                                              {[#512]}
                exp_PREP_RUN.IOC(Sw_2)
            <POP 2090c-2090e StackAdj>                       Δ+2                {}
            <Const 0x2090e 0x200.2>                          Δ-2                {[#512]}
            <Call 0x20910 0x2213c>                                              {[#512]}
                exp_PREP_RUN.FIU(Sw_2)
            <POP 20916-20918 StackAdj>                       Δ+2                {}
            <Call 0x20918 0x22170>                                              {}
                exp_FREEZE_WORLD.FIU()
            <MI 2091e  MOVEQ.L #0x0c,D7>                                        {}
        <POP 20920-2092c Naked>                              Σ0         ↓ →0x20936 ←0x20936
            <POP 20920-20922 StackAdj>                       Δ-2                {[-2-]}
            <MI 20922  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x20924 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20926-20928 StackAdj>                       Δ+2                {[-2-]}
            <MI 20928  TST.B   (A7)+>                        Δ+2                {}
            <MI 2092a  BEQ     0x20936>                                         {}
        <POP 2092c-20936 Naked>                              Σ0         ↓
            <MI 2092c  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x2092e 0x223aa>                                              {[2, 'D7']}
            <POP 20934-20936 StackAdj>                       Δ+2                {}
        <POP 20936-2093c Naked>                              Σ0         ↓ →0x20920 ←0x20920
            <MI 20936  ADDQ.B  #0x1,D7>                                         {}
            <MI 20938  CMP.B   #0x0f,D7>                                        {}
            <MI 2093a  BLE     0x20920>                                         {}
        <POP 2093c-20998 Naked>                              Σ0         ↓
            <Call 0x2093c 0x22220>                                              {}
                exp_RUN_NOCHECK.TYP()
            <Call 0x20942 0x22292>                                              {}
                exp_RUN_NOCHECK.VAL()
            <Call 0x20948 0x2218e>                                              {}
                exp_RUN_NOCHECK.SEQ()
            <Call 0x2094e 0x2266a>                                              {}
                exp_RUN_NOCHECK.IOC()
            <Call 0x20954 0x22120>                                              {}
                exp_RUN_NOCHECK.FIU()
            <Const 0x2095a 0x28c.4>                          Δ-4                {[##652]}
            <Call 0x2095e 0x10224>                                              {[##652]}
                KC12_Sleep(dur: Long)
            <POP 20964-20966 StackAdj>                       Δ+4                {}
            <Call 0x20966 0x22170>                                              {}
                exp_FREEZE_WORLD.FIU()
            <Const 0x2096c 0xa.2>                            Δ-2                {[#10]}
            <Const 0x20970 0x2.2>                            Δ-2                {[#10]|[#2]}
            <Call 0x20972 0x1048a>                                              {[#10]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 20978-2097a StackAdj>                       Δ+2                {[#10]}
            <POP 2097a-2097b StackAdj>                       Δ+2                {}
            <Const 0x2097b 0x8.2>                            Δ-2                {[#8]}
            <Const 0x2097e 0x2.2>                            Δ-2                {[#8]|[#2]}
            <Call 0x20980 0x1048a>                                              {[#8]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 20986-20988 StackAdj>                       Δ+2                {[#8]}
            <POP 20988-20989 StackAdj>                       Δ+2                {}
            <Const 0x20989 0x3.2>                            Δ-2                {[#3]}
            <Const 0x2098c 0x2.2>                            Δ-2                {[#3]|[#2]}
            <Call 0x2098e 0x1048a>                                              {[#3]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 20994-20996 StackAdj>                       Δ+4                {}
            <MI 20996  MOVEQ.L #0x0c,D7>                                        {}
        <POP 20998-209a4 Naked>                              Σ0         ↓ →0x209ae ←0x209ae
            <POP 20998-2099a StackAdj>                       Δ-2                {[-2-]}
            <MI 2099a  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x2099c 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2099e-209a0 StackAdj>                       Δ+2                {[-2-]}
            <MI 209a0  TST.B   (A7)+>                        Δ+2                {}
            <MI 209a2  BEQ     0x209ae>                                         {}
        <POP 209a4-209ae Naked>                              Σ0         ↓
            <MI 209a4  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x209a6 0x225be>                                              {[2, 'D7']}
            <POP 209ac-209ae StackAdj>                       Δ+2                {}
        <POP 209ae-209b4 Naked>                              Σ0         ↓ →0x20998 ←0x20998
            <MI 209ae  ADDQ.B  #0x1,D7>                                         {}
            <MI 209b0  CMP.B   #0x0f,D7>                                        {}
            <MI 209b2  BLE     0x20998>                                         {}
        <POP 209b4-209fc Naked>                              Σ0         ↓
            <Pointer.fp 0x209b4 <LVAR -0x00a @ 2(r)>>        Δ-4                {[@@-10]}
            <Call 0x209b8 0x221aa>                                              {[@@-10]}
                exp_READ_CUR_UADR.SEQ(&Sr_2)
            <POP 209be-209c0 StackAdj>                       Δ+4                {}
            <MI 209c0  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 209c4  MOVE.W  (A6-0xa),-(A7)>               Δ-2                {[2, '(A6-0xa)']}
            <Const 0x209c8 0x201.2>                          Δ-2                {[2, '(A6-0xa)']|[#513]}
            <POP 209cc-209ce StackAdj>                       Δ-2                {[2, '(A6-0xa)']|[#513]|[-2-]}
            <Pointer.sp 0x209ce 4>                           Δ-4                {[2, '(A6-0xa)']|[#513]|[-2-]|[^^4]}
            <Const 0x209d2 0x0.4>                            Δ-4                {[2, '(A6-0xa)']|[#513]|[-2-]|[^^4]|[##0]}
            <Const 0x209d6 0x1.4>                            Δ-4                {[2, '(A6-0xa)']|[#513]|[-2-]|[^^4]|[##0]|[##1]}
            <Pointer.sp 0x209da 14>                          Δ-4                {[2, '(A6-0xa)']|[#513]|[-2-]|[^^4]|[##0]|[##1]|[^^14]}
            <Const 0x209de 0x0.4>                            Δ-4                {[2, '(A6-0xa)']|[#513]|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]}
            <Const 0x209e2 0x1.4>                            Δ-4                {[2, '(A6-0xa)']|[#513]|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]|[##1]}
            <Call 0x209e6 0x104a8>                                              {[2, '(A6-0xa)']|[#513]|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]|[##1]}
                ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
            <POP 209ec-209f0 StackAdj>                       Δ+24               {[2, '(A6-0xa)']|[#513]|[-2-]}
            <MI 209f0  MOVE.B  (A7)+,D0>                     Δ+2                {[2, '(A6-0xa)']|[#513]}
            <MI 209f2  EXTB.W  D0>                                              {[2, '(A6-0xa)']|[#513]}
            <POP 0x209f4 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, '(A6-0xa)']|[#513]}
            <POP 209f8-209fa StackAdj>                       Δ+4                {}
            <MI 209fa  MOVE.B  D0,(A0)>                                         {}
        <POP 209fc-20a04 Epilogue>                           Σ0         

0x20a04


@ 20a04
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 4(r)>
        <LVAR -0x00a @ 4(r)>
        <LVAR -0x00e 4(r)>
        <LVAR -0x012 @ 4(r)>
        <LVAR -0x013 1(w)>
        <LVAR -0x014 1(w) 2(r)>
    <POP 20a04-20a7e Body>                                              
        <POP 20a04-20a1a Prologue>                           Σ0         ↓
        <POP 20a1a-20a76 Naked>                              Σ0         ↓
            <MI 20a1a  MOVE.B  #0xff,(A6-0x14)>                                 {}
            <MI 20a20  MOVE.L  #0xc0,D0>                                        {}
            <MI 20a26  ADD.L   (A6+0x8),D0>                                     {}
            <POP 0x20a2a LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20a34  MOVE.B  D0,(A6-0x13)>                                    {}
            <MI 20a38  MOVE.W  (A6-0x14),-(A7)>              Δ-2                {[2, '(A6-0x14)']}
            <MI 20a3c  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x14)']|[#0]}
            <Pointer.fp 0x20a3e <LVAR -0x012 @ 4(r)>>        Δ-4                {[2, '(A6-0x14)']|[#0]|[@@-18]}
            <Call 0x20a42 0x221e4>                                              {[2, '(A6-0x14)']|[#0]|[@@-18]}
                exp_READ_RF_B.TYP(Sw_2, Sw_1, &Sr_8)
            <POP 20a48-20a4a StackAdj>                       Δ+4                {[2, '(A6-0x14)']|[#0]}
            <MI 20a4a  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <MI 20a4e  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <MI 20a52  PEA.L   (A7)>                         Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']}
            <Const 0x20a54 0x0.4>                            Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]}
            <Const 0x20a58 0x7.4>                            Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##7]}
            <Pointer.fp 0x20a5c <LVAR -0x00a @ 4(r)>>        Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##7]|[@@-10]}
            <Call 0x20a60 0x104b4>                                              {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##7]|[@@-10]}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 20a66-20a6a StackAdj>                       Δ+24               {}
            <MI 20a6a  MOVE.L  (A6-0xa),(A6+0xc)>                               {}
            <MI 20a70  MOVE.L  (A6-0x6),(A6+0x10)>                              {}
        <POP 20a76-20a7e Epilogue>                           Σ0         

0x20a7e


@ 20a7e
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 4(r)>
        <LVAR -0x00a @ 4(r)>
        <LVAR -0x00e 4(r)>
        <LVAR -0x012 @ 4(r)>
        <LVAR -0x013 1(w)>
        <LVAR -0x014 1(w) 2(r)>
    <POP 20a7e-20af8 Body>                                              
        <POP 20a7e-20a94 Prologue>                           Σ0         ↓
        <POP 20a94-20af0 Naked>                              Σ0         ↓
            <MI 20a94  MOVE.B  #0xff,(A6-0x14)>                                 {}
            <MI 20a9a  MOVE.L  #0xc0,D0>                                        {}
            <MI 20aa0  ADD.L   (A6+0x8),D0>                                     {}
            <POP 0x20aa4 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20aae  MOVE.B  D0,(A6-0x13)>                                    {}
            <MI 20ab2  MOVE.W  (A6-0x14),-(A7)>              Δ-2                {[2, '(A6-0x14)']}
            <MI 20ab6  CLR.B   -(A7)>                        Δ-2                {[2, '(A6-0x14)']|[#0]}
            <Pointer.fp 0x20ab8 <LVAR -0x012 @ 4(r)>>        Δ-4                {[2, '(A6-0x14)']|[#0]|[@@-18]}
            <Call 0x20abc 0x22256>                                              {[2, '(A6-0x14)']|[#0]|[@@-18]}
                exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8)
            <POP 20ac2-20ac4 StackAdj>                       Δ+4                {[2, '(A6-0x14)']|[#0]}
            <MI 20ac4  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <MI 20ac8  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
            <MI 20acc  PEA.L   (A7)>                         Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']}
            <Const 0x20ace 0x0.4>                            Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]}
            <Const 0x20ad2 0x7.4>                            Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##7]}
            <Pointer.fp 0x20ad6 <LVAR -0x00a @ 4(r)>>        Δ-4                {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##7]|[@@-10]}
            <Call 0x20ada 0x104b4>                                              {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##7]|[@@-10]}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 20ae0-20ae4 StackAdj>                       Δ+24               {}
            <MI 20ae4  MOVE.L  (A6-0xa),(A6+0xc)>                               {}
            <MI 20aea  MOVE.L  (A6-0x6),(A6+0x10)>                              {}
        <POP 20af0-20af8 Epilogue>                           Σ0         

0x20af8


@ 20af8
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 4(rw)>
        <LVAR -0x00a 4(rw)>
        <LVAR -0x00c @ 1(r)>
    <POP 20af8-20f42 Body>                                              
        <POP 20af8-20b0e Prologue>                           Σ0         ↓
        <POP 20b0e-20b14 RegCacheLoad>                       Σ0         ↓
        <POP 20b14-20f3a Naked>                              Σ0         ↓
            <MI 20b14  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x20b16 <LVAR -0x00c @ 1(r)>>        Δ-4                {[#0]|[@@-12]}
            <Call 0x20b1a 0x22102>                                              {[#0]|[@@-12]}
                exp_READ_PAREG.FIU(Sw_1, &Sr_1)
            <POP 20b20-20b22 StackAdj>                       Δ-2                {[#0]|[@@-12]|[-2-]}
            <MI 20b22  CLR.L   D0>                                              {[#0]|[@@-12]|[-2-]}
            <MI 20b24  MOVE.B  (A6-0xc),D0>                                     {[#0]|[@@-12]|[-2-]}
            <MI 20b28  MOVE.L  D0,-(A7)>                     Δ-4                {[#0]|[@@-12]|[-2-]|[4, 'D0']}
            <Call 0x20b2a 0x10354>                                              {[#0]|[@@-12]|[-2-]|[4, 'D0']}
                Long2Quad(a : Long) : Quad
            <POP 20b30-20b32 StackAdj>                       Δ+4                {[#0]|[@@-12]|[-2-]}
            <MI 20b32  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {[#0]|[-2-]}
            <MI 20b36  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {}
            <MI 20b3a  MOVEA.L (A6+0x18),A0>                                    {}
            <POP 20b3e-20b42 StackAdj>                       Δ-10               {[-10-]}
            <MI 20b42  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']}
            <MI 20b46  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20b4a 0x3e.4>                           Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##62]}
            <Const 0x20b4e 0x1.4>                            Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##62]|[##1]}
            <Call 0x20b52 0x1034c>                                              {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##62]|[##1]}
                FSCALL_1034c
            <POP 20b58-20b5a StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x6)']}
            <POP 20b5a-20b5b StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x20b5b [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x20b5e [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x20b62 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20b68-20b6a StackAdj>                       Δ+16               {[-2-]}
            <MI 20b6a  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 20b6c  EXTB.W  D0>                                              {}
            <POP 0x20b6e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20b70  MOVE.B  D0,(A0)>                                         {}
            <MI 20b72  MOVEA.L (A6+0x14),A1>                                    {}
            <POP 20b76-20b7a StackAdj>                       Δ-10               {[-10-]}
            <MI 20b7a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']}
            <MI 20b7e  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20b82 0x3d.4>                           Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##61]}
            <Const 0x20b86 0x1.4>                            Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##61]|[##1]}
            <Call 0x20b8a 0x1034c>                                              {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##61]|[##1]}
                FSCALL_1034c
            <POP 20b90-20b92 StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x6)']}
            <POP 20b92-20b93 StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x20b93 [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x20b96 [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x20b9a 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20ba0-20ba2 StackAdj>                       Δ+16               {[-2-]}
            <MI 20ba2  MOVE.B  (A7)+,D1>                     Δ+2                {}
            <MI 20ba4  EXTB.W  D1>                                              {}
            <POP 0x20ba6 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {}
            <MI 20ba8  MOVE.B  D1,(A1)>                                         {}
            <MI 20baa  MOVEA.L (A6+0x10),A2>                                    {}
            <POP 20bae-20bb2 StackAdj>                       Δ-10               {[-10-]}
            <MI 20bb2  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']}
            <MI 20bb6  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20bba 0x3a.4>                           Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##58]}
            <Const 0x20bbe 0x1.4>                            Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##58]|[##1]}
            <Call 0x20bc2 0x1034c>                                              {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##58]|[##1]}
                FSCALL_1034c
            <POP 20bc8-20bca StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x6)']}
            <POP 20bca-20bcb StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x20bcb [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x20bce [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x20bd2 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20bd8-20bda StackAdj>                       Δ+16               {[-2-]}
            <MI 20bda  MOVE.B  (A7)+,D2>                     Δ+2                {}
            <MI 20bdc  EXTB.W  D2>                                              {}
            <POP 0x20bde LimitCheck 0x0 ≤ D2 ≤ 0x1>                             {}
            <MI 20be0  MOVE.B  D2,(A2)>                                         {}
            <MI 20be2  MOVEA.L (A6+0xc),A3>                                     {}
            <POP 20be6-20bea StackAdj>                       Δ-10               {[-10-]}
            <MI 20bea  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']}
            <MI 20bee  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20bf2 0x39.4>                           Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##57]}
            <Const 0x20bf6 0x1.4>                            Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##57]|[##1]}
            <Call 0x20bfa 0x1034c>                                              {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##57]|[##1]}
                FSCALL_1034c
            <POP 20c00-20c02 StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x6)']}
            <POP 20c02-20c03 StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x20c03 [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x20c06 [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x20c0a 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20c10-20c12 StackAdj>                       Δ+16               {[-2-]}
            <MI 20c12  MOVE.B  (A7)+,D3>                     Δ+2                {}
            <MI 20c14  EXTB.W  D3>                                              {}
            <POP 0x20c16 LimitCheck 0x0 ≤ D3 ≤ 0x1>                             {}
            <MI 20c18  MOVE.B  D3,(A3)>                                         {}
            <MI 20c1a  MOVEA.L (A6+0x8),A4>                                     {}
            <POP 20c1e-20c22 StackAdj>                       Δ-10               {[-10-]}
            <MI 20c22  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']}
            <MI 20c26  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20c2a 0x38.4>                           Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##56]}
            <Const 0x20c2e 0x1.4>                            Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##56]|[##1]}
            <Call 0x20c32 0x1034c>                                              {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##56]|[##1]}
                FSCALL_1034c
            <POP 20c38-20c3a StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x6)']}
            <POP 20c3a-20c3b StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x20c3b [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x20c3e [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x20c42 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20c48-20c4a StackAdj>                       Δ+16               {[-2-]}
            <MI 20c4a  MOVE.B  (A7)+,D4>                     Δ+2                {}
            <MI 20c4c  EXTB.W  D4>                                              {}
            <POP 0x20c4e LimitCheck 0x0 ≤ D4 ≤ 0x1>                             {}
            <MI 20c50  MOVE.B  D4,(A4)>                                         {}
            <MI 20c52  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x20c54 <LVAR -0x00c @ 1(r)>>        Δ-4                {[#0]|[@@-12]}
            <Call 0x20c58 0x2264c>                                              {[#0]|[@@-12]}
                exp_READ_PAREG.IOC(Sw_1, &Sr_1)
            <POP 20c5e-20c60 StackAdj>                       Δ-2                {[#0]|[@@-12]|[-2-]}
            <MI 20c60  CLR.L   D0>                                              {[#0]|[@@-12]|[-2-]}
            <MI 20c62  MOVE.B  (A6-0xc),D0>                                     {[#0]|[@@-12]|[-2-]}
            <MI 20c66  MOVE.L  D0,-(A7)>                     Δ-4                {[#0]|[@@-12]|[-2-]|[4, 'D0']}
            <Call 0x20c68 0x10354>                                              {[#0]|[@@-12]|[-2-]|[4, 'D0']}
                Long2Quad(a : Long) : Quad
            <POP 20c6e-20c70 StackAdj>                       Δ+4                {[#0]|[@@-12]|[-2-]}
            <MI 20c70  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {[#0]|[-2-]}
            <MI 20c74  MOVE.L  (A7),(A6-0x6)>                                   {[#0]|[-2-]}
            <POP 20c78-20c7a StackAdj>                       Δ-6                {[#0]|[-8-]}
            <MI 20c7a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[-8-]|[4, '(A6-0x6)']}
            <MI 20c7e  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[#0]|[-8-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20c82 0x3f.4>                           Δ-4                {[#0]|[-8-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##63]}
            <Const 0x20c86 0x1.4>                            Δ-4                {[#0]|[-8-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##63]|[##1]}
            <Call 0x20c8a 0x1034c>                                              {[#0]|[-8-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##63]|[##1]}
                FSCALL_1034c
            <POP 20c90-20c92 StackAdj>                       Δ+12               {[#0]|[-8-]|[4, '(A6-0x6)']}
            <POP 20c92-20c93 StackAdj>                       Δ+4                {[#0]|[-8-]}
            <Blob 0x20c93 [4] @>                             Δ-4                {[#0]|[-8-]|[«4""»]}
            <Blob 0x20c96 [4] @>                             Δ-4                {[#0]|[-8-]|[«4""»]|[«4""»]}
            <Call 0x20c9a 0x1032c>                                              {[#0]|[-8-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20ca0-20ca2 StackAdj>                       Δ+16               {[#0]}
            <MI 20ca2  MOVE.B  (A0),D0>                                         {[#0]}
            <MI 20ca4  OR.B    (A7)+,D0>                     Δ+2                {}
            <MI 20ca6  EXTB.W  D0>                                              {}
            <POP 0x20ca8 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20caa  MOVE.B  D0,(A0)>                                         {}
            <POP 20cac-20cb0 StackAdj>                       Δ-10               {[-10-]}
            <MI 20cb0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']}
            <MI 20cb4  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20cb8 0x3e.4>                           Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##62]}
            <Const 0x20cbc 0x1.4>                            Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##62]|[##1]}
            <Call 0x20cc0 0x1034c>                                              {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##62]|[##1]}
                FSCALL_1034c
            <POP 20cc6-20cc8 StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x6)']}
            <POP 20cc8-20cc9 StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x20cc9 [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x20ccc [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x20cd0 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20cd6-20cd8 StackAdj>                       Δ+16               {[-2-]}
            <MI 20cd8  MOVE.B  (A1),D0>                                         {[-2-]}
            <MI 20cda  OR.B    (A7)+,D0>                     Δ+2                {}
            <MI 20cdc  EXTB.W  D0>                                              {}
            <POP 0x20cde LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20ce0  MOVE.B  D0,(A1)>                                         {}
            <POP 20ce2-20ce6 StackAdj>                       Δ-10               {[-10-]}
            <MI 20ce6  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']}
            <MI 20cea  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20cee 0x3c.4>                           Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##60]}
            <Const 0x20cf2 0x1.4>                            Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##60]|[##1]}
            <Call 0x20cf6 0x1034c>                                              {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##60]|[##1]}
                FSCALL_1034c
            <POP 20cfc-20cfe StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x6)']}
            <POP 20cfe-20cff StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x20cff [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x20d02 [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x20d06 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20d0c-20d0e StackAdj>                       Δ+16               {[-2-]}
            <MI 20d0e  MOVE.B  (A2),D0>                                         {[-2-]}
            <MI 20d10  OR.B    (A7)+,D0>                     Δ+2                {}
            <MI 20d12  EXTB.W  D0>                                              {}
            <POP 0x20d14 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20d16  MOVE.B  D0,(A2)>                                         {}
            <POP 20d18-20d1c StackAdj>                       Δ-10               {[-10-]}
            <MI 20d1c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']}
            <MI 20d20  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20d24 0x3d.4>                           Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##61]}
            <Const 0x20d28 0x1.4>                            Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##61]|[##1]}
            <Call 0x20d2c 0x1034c>                                              {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##61]|[##1]}
                FSCALL_1034c
            <POP 20d32-20d34 StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x6)']}
            <POP 20d34-20d35 StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x20d35 [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x20d38 [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x20d3c 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20d42-20d44 StackAdj>                       Δ+16               {[-2-]}
            <MI 20d44  MOVE.B  (A3),D0>                                         {[-2-]}
            <MI 20d46  OR.B    (A7)+,D0>                     Δ+2                {}
            <MI 20d48  EXTB.W  D0>                                              {}
            <POP 0x20d4a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20d4c  MOVE.B  D0,(A3)>                                         {}
            <Pointer.fp 0x20d4e <LVAR -0x00c @ 1(r)>>        Δ-4                {[@@-12]}
            <Call 0x20d52 0x22202>                                              {[@@-12]}
                exp_READ_PARITY.TYP(&Sr_1)
            <POP 20d58-20d5a StackAdj>                       Δ-4                {[@@-12]|[-4-]}
            <MI 20d5a  CLR.L   D0>                                              {[@@-12]|[-4-]}
            <MI 20d5c  MOVE.B  (A6-0xc),D0>                                     {[@@-12]|[-4-]}
            <MI 20d60  MOVE.L  D0,-(A7)>                     Δ-4                {[@@-12]|[-4-]|[4, 'D0']}
            <Call 0x20d62 0x10354>                                              {[@@-12]|[-4-]|[4, 'D0']}
                Long2Quad(a : Long) : Quad
            <POP 20d68-20d6a StackAdj>                       Δ+4                {[@@-12]|[-4-]}
            <MI 20d6a  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {[@@-12]}
            <MI 20d6e  MOVE.L  (A7),(A6-0x6)>                                   {[@@-12]}
            <POP 20d72-20d74 StackAdj>                       Δ-6                {[@@-12]|[-6-]}
            <MI 20d74  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[@@-12]|[-6-]|[4, '(A6-0x6)']}
            <MI 20d78  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[@@-12]|[-6-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20d7c 0x38.4>                           Δ-4                {[@@-12]|[-6-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##56]}
            <Const 0x20d80 0x1.4>                            Δ-4                {[@@-12]|[-6-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##56]|[##1]}
            <Call 0x20d84 0x1034c>                                              {[@@-12]|[-6-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##56]|[##1]}
                FSCALL_1034c
            <POP 20d8a-20d8c StackAdj>                       Δ+12               {[@@-12]|[-6-]|[4, '(A6-0x6)']}
            <POP 20d8c-20d8d StackAdj>                       Δ+4                {[@@-12]|[-6-]}
            <Blob 0x20d8d [4] @>                             Δ-4                {[@@-12]|[-6-]|[«4""»]}
            <Blob 0x20d90 [4] @>                             Δ-4                {[@@-12]|[-6-]|[«4""»]|[«4""»]}
            <Call 0x20d94 0x1032c>                                              {[@@-12]|[-6-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20d9a-20d9c StackAdj>                       Δ+16               {[-2-]}
            <MI 20d9c  MOVE.B  (A0),D0>                                         {[-2-]}
            <MI 20d9e  OR.B    (A7)+,D0>                     Δ+2                {}
            <MI 20da0  EXTB.W  D0>                                              {}
            <POP 0x20da2 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20da4  MOVE.B  D0,(A0)>                                         {}
            <POP 20da6-20daa StackAdj>                       Δ-10               {[-10-]}
            <MI 20daa  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']}
            <MI 20dae  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20db2 0x39.4>                           Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##57]}
            <Const 0x20db6 0x1.4>                            Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##57]|[##1]}
            <Call 0x20dba 0x1034c>                                              {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##57]|[##1]}
                FSCALL_1034c
            <POP 20dc0-20dc2 StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x6)']}
            <POP 20dc2-20dc3 StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x20dc3 [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x20dc6 [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x20dca 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20dd0-20dd2 StackAdj>                       Δ+16               {[-2-]}
            <MI 20dd2  MOVE.B  (A1),D1>                                         {[-2-]}
            <MI 20dd4  OR.B    (A7)+,D1>                     Δ+2                {}
            <MI 20dd6  EXTB.W  D1>                                              {}
            <POP 0x20dd8 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {}
            <MI 20dda  MOVE.B  D1,(A1)>                                         {}
            <POP 20ddc-20de0 StackAdj>                       Δ-10               {[-10-]}
            <MI 20de0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']}
            <MI 20de4  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20de8 0x3a.4>                           Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##58]}
            <Const 0x20dec 0x1.4>                            Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##58]|[##1]}
            <Call 0x20df0 0x1034c>                                              {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##58]|[##1]}
                FSCALL_1034c
            <POP 20df6-20df8 StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x6)']}
            <POP 20df8-20df9 StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x20df9 [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x20dfc [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x20e00 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20e06-20e08 StackAdj>                       Δ+16               {[-2-]}
            <MI 20e08  MOVE.B  (A2),D2>                                         {[-2-]}
            <MI 20e0a  OR.B    (A7)+,D2>                     Δ+2                {}
            <MI 20e0c  EXTB.W  D2>                                              {}
            <POP 0x20e0e LimitCheck 0x0 ≤ D2 ≤ 0x1>                             {}
            <MI 20e10  MOVE.B  D2,(A2)>                                         {}
            <POP 20e12-20e16 StackAdj>                       Δ-10               {[-10-]}
            <MI 20e16  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']}
            <MI 20e1a  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20e1e 0x3d.4>                           Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##61]}
            <Const 0x20e22 0x2.4>                            Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##61]|[##2]}
            <Call 0x20e26 0x1034c>                                              {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##61]|[##2]}
                FSCALL_1034c
            <POP 20e2c-20e2e StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x6)']}
            <POP 20e2e-20e2f StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x20e2f [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x20e32 [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x20e36 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20e3c-20e3e StackAdj>                       Δ+16               {[-2-]}
            <MI 20e3e  OR.B    (A7)+,D4>                     Δ+2                {}
            <MI 20e40  EXTB.W  D4>                                              {}
            <POP 0x20e42 LimitCheck 0x0 ≤ D4 ≤ 0x1>                             {}
            <MI 20e44  MOVE.B  D4,(A4)>                                         {}
            <Pointer.fp 0x20e46 <LVAR -0x00c @ 1(r)>>        Δ-4                {[@@-12]}
            <Call 0x20e4a 0x22274>                                              {[@@-12]}
                exp_READ_PARITY.VAL(&Sr_1)
            <POP 20e50-20e52 StackAdj>                       Δ-4                {[@@-12]|[-4-]}
            <MI 20e52  CLR.L   D2>                                              {[@@-12]|[-4-]}
            <MI 20e54  MOVE.B  (A6-0xc),D2>                                     {[@@-12]|[-4-]}
            <MI 20e58  MOVE.L  D2,-(A7)>                     Δ-4                {[@@-12]|[-4-]|[4, 'D2']}
            <Call 0x20e5a 0x10354>                                              {[@@-12]|[-4-]|[4, 'D2']}
                Long2Quad(a : Long) : Quad
            <POP 20e60-20e62 StackAdj>                       Δ+4                {[@@-12]|[-4-]}
            <MI 20e62  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {[@@-12]}
            <MI 20e66  MOVE.L  (A7),(A6-0x6)>                                   {[@@-12]}
            <POP 20e6a-20e6c StackAdj>                       Δ-6                {[@@-12]|[-6-]}
            <MI 20e6c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[@@-12]|[-6-]|[4, '(A6-0x6)']}
            <MI 20e70  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[@@-12]|[-6-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20e74 0x38.4>                           Δ-4                {[@@-12]|[-6-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##56]}
            <Const 0x20e78 0x1.4>                            Δ-4                {[@@-12]|[-6-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##56]|[##1]}
            <Call 0x20e7c 0x1034c>                                              {[@@-12]|[-6-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##56]|[##1]}
                FSCALL_1034c
            <POP 20e82-20e84 StackAdj>                       Δ+12               {[@@-12]|[-6-]|[4, '(A6-0x6)']}
            <POP 20e84-20e85 StackAdj>                       Δ+4                {[@@-12]|[-6-]}
            <Blob 0x20e85 [4] @>                             Δ-4                {[@@-12]|[-6-]|[«4""»]}
            <Blob 0x20e88 [4] @>                             Δ-4                {[@@-12]|[-6-]|[«4""»]|[«4""»]}
            <Call 0x20e8c 0x1032c>                                              {[@@-12]|[-6-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20e92-20e94 StackAdj>                       Δ+16               {[-2-]}
            <MI 20e94  OR.B    (A7)+,D0>                     Δ+2                {}
            <MI 20e96  EXTB.W  D0>                                              {}
            <POP 0x20e98 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20e9a  MOVE.B  D0,(A0)>                                         {}
            <POP 20e9c-20ea0 StackAdj>                       Δ-10               {[-10-]}
            <MI 20ea0  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']}
            <MI 20ea4  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20ea8 0x39.4>                           Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##57]}
            <Const 0x20eac 0x1.4>                            Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##57]|[##1]}
            <Call 0x20eb0 0x1034c>                                              {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##57]|[##1]}
                FSCALL_1034c
            <POP 20eb6-20eb8 StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x6)']}
            <POP 20eb8-20eb9 StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x20eb9 [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x20ebc [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x20ec0 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20ec6-20ec8 StackAdj>                       Δ+16               {[-2-]}
            <MI 20ec8  OR.B    (A7)+,D1>                     Δ+2                {}
            <MI 20eca  EXTB.W  D1>                                              {}
            <POP 0x20ecc LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {}
            <MI 20ece  MOVE.B  D1,(A1)>                                         {}
            <POP 20ed0-20ed4 StackAdj>                       Δ-10               {[-10-]}
            <MI 20ed4  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']}
            <MI 20ed8  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20edc 0x3a.4>                           Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##58]}
            <Const 0x20ee0 0x1.4>                            Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##58]|[##1]}
            <Call 0x20ee4 0x1034c>                                              {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##58]|[##1]}
                FSCALL_1034c
            <POP 20eea-20eec StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x6)']}
            <POP 20eec-20eed StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x20eed [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x20ef0 [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x20ef4 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20efa-20efc StackAdj>                       Δ+16               {[-2-]}
            <MI 20efc  MOVE.B  (A3),D0>                                         {[-2-]}
            <MI 20efe  OR.B    (A7)+,D0>                     Δ+2                {}
            <MI 20f00  EXTB.W  D0>                                              {}
            <POP 0x20f02 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 20f04  MOVE.B  D0,(A3)>                                         {}
            <POP 20f06-20f0a StackAdj>                       Δ-10               {[-10-]}
            <MI 20f0a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']}
            <MI 20f0e  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <Const 0x20f12 0x3c.4>                           Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##60]}
            <Const 0x20f16 0x2.4>                            Δ-4                {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##60]|[##2]}
            <Call 0x20f1a 0x1034c>                                              {[-10-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']|[##60]|[##2]}
                FSCALL_1034c
            <POP 20f20-20f22 StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x6)']}
            <POP 20f22-20f23 StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x20f23 [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x20f26 [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x20f2a 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 20f30-20f32 StackAdj>                       Δ+16               {[-2-]}
            <MI 20f32  OR.B    (A7)+,D4>                     Δ+2                {}
            <MI 20f34  EXTB.W  D4>                                              {}
            <POP 0x20f36 LimitCheck 0x0 ≤ D4 ≤ 0x1>                             {}
            <MI 20f38  MOVE.B  D4,(A4)>                                         {}
        <POP 20f3a-20f42 Epilogue>                           Σ0         

0x20f42


@ 20f42
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 20f42-20fea Body>                                              
        <POP 20f42-20f58 Prologue>                           Σ0         ↓
        <POP 20f58-20f5e RegCacheLoad>                       Σ0         ↓
        <POP 20f5e-20f6a Naked>                              Σ0         ↓
            <Pointer.fp 0x20f5e <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x20f60 0x102b8>                                              {[@@-4]}
                NewString(VAR a : String)
            <POP 20f66-20f68 StackAdj>                       Δ+4                {}
            <MI 20f68  MOVEQ.L #0x00,D7>                                        {}
        <POP 20f6a-20fba Naked>                              Σ0         ↓ →0x20fca ←0x20fd8
            <POP 20f6a-20f6e StackAdj>                       Δ-12               {[-12-]}
            <MI 20f6e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 20f72  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 20f76  MOVE.L  D7,D0>                                           {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 20f78  ASL.L   #0x2,D0>                                         {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 20f7a  MOVE.L  D0,-(A7)>                     Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D0']}
            <Const 0x20f7c 0x4.4>                            Δ-4                {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D0']|[##4]}
            <Call 0x20f80 0x1034c>                                              {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D0']|[##4]}
                FSCALL_1034c
            <POP 20f86-20f8a StackAdj>                       Δ+16               {[-12-]}
            <Call 0x20f8a 0x10350>                                              {[-12-]}
                Quad2Long(a : Quad) : Long
            <POP 20f90-20f92 StackAdj>                       Δ+8                {[-4-]}
            <MI 20f92  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 20f94  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 20f96  MOVE.L  D6,D0>                                           {[4, '(A6-0x4)']}
            <MI 20f98  ADDQ.L  #0x1,D0>                                         {[4, '(A6-0x4)']}
            <MI 20f9a  SUBQ.L  #0x1,D0>                                         {[4, '(A6-0x4)']}
            <POP 0x20f9c LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {[4, '(A6-0x4)']}
            <MI 20fa2  LEA.L   0x201a2,A0>                                      {[4, '(A6-0x4)']}
            <MI 20fa6  MOVE.B  (A0+D0.L),-(A7)>              Δ-2                {[4, '(A6-0x4)']|[2, '(A0+D0.L)']}
            <Call 0x20faa 0x102c0>                                              {[4, '(A6-0x4)']|[2, '(A0+D0.L)']}
                AppendChar(MOD b : String; a : char)
            <POP 20fb0-20fb2 StackAdj>                       Δ+6                {}
            <MI 20fb2  CMPI.L  #0x00000003,D7>                                  {}
            <MI 20fb8  BEQ     0x20fca>                                         {}
        <POP 20fba-20fc2 Naked>                              Σ0         ↓ →0x20fca
            <MI 20fba  CMPI.L  #0x00000007,D7>                                  {}
            <MI 20fc0  BEQ     0x20fca>                                         {}
        <POP 20fc2-20fca Naked>                              Σ0         ↓ →0x20fd8
            <MI 20fc2  CMPI.L  #0x0000000b,D7>                                  {}
            <MI 20fc8  BNE     0x20fd8>                                         {}
        <POP 20fca-20fd8 Naked>                              Σ0         ↓ ←0x20f6a ←0x20fba
            <MI 20fca  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <Const 0x20fcc 0x5f.2>                           Δ-2                {[4, '(A6-0x4)']|[#95]}
            <Call 0x20fd0 0x102c0>                                              {[4, '(A6-0x4)']|[#95]}
                AppendChar(MOD b : String; a : char)
            <POP 20fd6-20fd8 StackAdj>                       Δ+6                {}
        <POP 20fd8-20fde Naked>                              Σ0         ↓ →0x20f6a ←0x20fc2
            <MI 20fd8  ADDQ.L  #0x1,D7>                                         {}
            <MI 20fda  CMP.L   #0x0f,D7>                                        {}
            <MI 20fdc  BLE     0x20f6a>                                         {}
        <POP 20fde-20fe2 Naked>                              Σ0         ↓
            <MI 20fde  MOVE.L  (A6-0x4),(A6+0x10)>                              {}
        <POP 20fe2-20fea Epilogue>                           Σ0         

0x20fea


@ 20fea
        <LVAR  0x010 @ 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 20fea-21056 Body>                                   Δ+4        
        <POP 20fea-20ffc Prologue>                           Σ0         ↓
        <POP 20ffc-21022 Naked>                              Σ0         ↓ →0x21046
            <POP 20ffc-20ffe StackAdj>                       Δ-2                {[-2-]}
            <MI 20ffe  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0xc)']}
            <MI 21002  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 21006-21008 StackAdj>                       Δ-8                {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]}
            <Const 0x21008 0x0.4>                            Δ-4                {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]|[##0]}
            <Call 0x2100c 0x10354>                                              {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]|[##0]}
                Long2Quad(a : Long) : Quad
            <POP 21012-21014 StackAdj>                       Δ+4                {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]}
            <Call 0x21014 0x1032c>                                              {[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]}
                IsEqual(a, b : Quad) : Bool
            <POP 2101a-2101e StackAdj>                       Δ+16               {[-2-]}
            <MI 2101e  TST.B   (A7)+>                        Δ+2                {}
            <MI 21020  BNE     0x21046>                                         {}
        <POP 21022-21046 Naked>                              Σ0 Δ-4     →0x21050
            <POP 21022-21024 StackAdj>                       Δ-4                {[-4-]}
            <MI 21024  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x10)']}
            <POP 21028-2102a StackAdj>                       Δ-4                {[-4-]|[4, '(A6+0x10)']|[-4-]}
            <MI 2102a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']}
            <MI 2102e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x21032 0x20f42>                                              {[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 21036-21038 StackAdj>                       Δ+8                {[-4-]|[4, '(A6+0x10)']|[-4-]}
            <Call 0x21038 0x102d0>                                              {[-4-]|[4, '(A6+0x10)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2103e-21040 StackAdj>                       Δ+8                {[-4-]}
            <Call 0x21040 0x2074c>                                              {[-4-]}
            <MI 21044  BRA     0x21050>                                         {[-4-]}
        <POP 21046-21050 Naked>                              Σ0 Δ-4     ↓ ←0x20ffc
            <Pointer.fp 0x21046 <LVAR  0x010 @ 4(r)>>        Δ-4                {[@@16]}
            <Call 0x2104a 0x102bc>                                              {[@@16]}
                FreeString(VAR a : String)
        <POP 21050-21052 Naked>                              Σ-4 Δ+4    ↓ ←0x21022
            <POP 21050-21052 StackAdj>                       Δ+4                {}
        <POP 21052-21056 Epilogue>                           Σ0         

0x21056


@ 21056
        <LVAR  0x008 4(r)>
    <POP 21056-211b8 Body>                                              
        <POP 21056-2106c Prologue>                           Σ0         ↓
        <POP 2106c-21080 RegCacheLoad>                       Σ0         ↓
        <POP 21080-21098 Naked>                              Σ0         ↓ →0x21172
            <Const 0x21080 0x5.2>                            Δ-2                {[#5]}
            <Const 0x21084 0x2.2>                            Δ-2                {[#5]|[#2]}
            <Call 0x21086 0x1048a>                                              {[#5]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 2108c-2108e StackAdj>                       Δ+4                {}
            <MI 2108e  TST.B   0x226b0>                                         {}
            <MI 21094  BEQ     0x21172>                                         {}
        <POP 21098-210a0 Naked>                              Σ0         ↓ →0x210c8
            <MI 21098  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 2109c  CMP.L   #0x01,D0>                                        {}
            <MI 2109e  BNE     0x210c8>                                         {}
        <POP 210a0-210c8 Naked>                              Σ0         →0x21166
            <Blob 0x210a0 [38] @>                            Δ-38               {[«38""»]}
            <POP 210b0-210b2 StackAdj>                       Δ-4                {[«38""»]|[-4-]}
            <Lit 0x210b2 37>                                                    {[«38""»]|[$$Microcode halted at the wrong address]}
            <MI 210c0  MOVEA.L (A7)+,A4>                     Δ+4                {[«38""»]}
            <POP 210c2-210c4 StackAdj>                       Δ+38               {}
            <MI 210c4  BRA     0x21166>                                         {}
        <POP 210c8-210cc Naked>                              Σ0         ↓ →0x210ec ←0x21098
            <MI 210c8  CMP.L   #0x02,D0>                                        {}
            <MI 210ca  BNE     0x210ec>                                         {}
        <POP 210cc-210ec Naked>                              Σ0         →0x21166
            <Blob 0x210cc [30] @>                            Δ-30               {[«30""»]}
            <POP 210d8-210da StackAdj>                       Δ-4                {[«30""»]|[-4-]}
            <Lit 0x210da 30>                                                    {[«30""»]|[$$Micro address bus parity error]}
            <MI 210e6  MOVEA.L (A7)+,A4>                     Δ+4                {[«30""»]}
            <POP 210e8-210ea StackAdj>                       Δ+30               {}
            <MI 210ea  BRA     0x21166>                                         {}
        <POP 210ec-210f4 Naked>                              Σ0         ↓ →0x2111a ←0x210c8
            <MI 210ec  CMPI.L  #0x00000003,D0>                                  {}
            <MI 210f2  BNE     0x2111a>                                         {}
        <POP 210f4-2111a Naked>                              Σ0         →0x21166
            <Blob 0x210f4 [20] @>                            Δ-20               {[«20""»]}
            <POP 21104-21106 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x21106 19>                                                    {[«20""»]|[$$WCS parity error(s)]}
            <MI 21114  MOVEA.L (A7)+,A4>                     Δ+4                {[«20""»]}
            <POP 21116-21118 StackAdj>                       Δ+20               {}
            <MI 21118  BRA     0x21166>                                         {}
        <POP 2111a-21122 Naked>                              Σ0         ↓ →0x21142 ←0x210ec
            <MI 2111a  CMPI.L  #0x00000006,D0>                                  {}
            <MI 21120  BNE     0x21142>                                         {}
        <POP 21122-21142 Naked>                              Σ0         →0x21166
            <Blob 0x21122 [22] @>                            Δ-22               {[«22""»]}
            <POP 2112e-21130 StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x21130 22>                                                    {[«22""»]|[$$FIU board VI bus error]}
            <MI 2113c  MOVEA.L (A7)+,A4>                     Δ+4                {[«22""»]}
            <POP 2113e-21140 StackAdj>                       Δ+22               {}
            <MI 21140  BRA     0x21166>                                         {}
        <POP 21142-21166 Naked>                              Σ0         ↓ ←0x2111a
            <Blob 0x21142 [14] @>                            Δ-14               {[«14""»]}
            <POP 21152-21154 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x21154 13>                                                    {[«14""»]|[$$Unknown error]}
            <MI 21162  MOVEA.L (A7)+,A4>                     Δ+4                {[«14""»]}
            <POP 21164-21166 StackAdj>                       Δ+14               {}
        <POP 21166-21172 Naked>                              Σ0         ↓ ←0x210a0 ←0x210cc ←0x210f4 ←0x21122
            <Const 0x21166 0xe.2>                            Δ-2                {[#14]}
            <MI 21168  MOVE.L  A4,-(A7)>                     Δ-4                {[#14]|[4, 'A4']}
            <Call 0x2116a 0x103b8>                                              {[#14]|[4, 'A4']}
                PopProgram(status : Byte; msg : String)
            <POP 21170-21172 StackAdj>                       Δ+6                {}
        <POP 21172-211b0 Naked>                              Σ0         ↓ ←0x21080
            <MI 21172  MOVE.L  (A6+0x8),D0>                                     {}
            <POP 0x21176 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21180  MOVE.B  D0,0x226b9>                                      {}
            <MI 21186  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Blob 0x21188 [4] @>                             Δ-4                {[#0]|[«4""»]}
            <Blob 0x2118e [4] @>                             Δ-4                {[#0]|[«4""»]|[«4""»]}
            <MI 21194  MOVE.B  D0,-(A7)>                     Δ-2                {[#0]|[«4""»]|[«4""»]|[2, 'D0']}
            <Blob 0x21196 [8] @>                             Δ-8                {[#0]|[«4""»]|[«4""»]|[2, 'D0']|[«8""»]}
            <Call 0x211a8 0x1054a>                                              {[#0]|[«4""»]|[«4""»]|[2, 'D0']|[«8""»]}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 211ae-211b0 StackAdj>                       Δ+20               {}
        <POP 211b0-211b8 Epilogue>                           Σ0         

0x211b8


@ 211b8
        <LVAR -0x003 @ 1(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x005 @ 1(r)>
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x007 @ 1(r)>
        <LVAR -0x008 @ 1(r)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
        <LVAR -0x018 4(r)>
        <LVAR -0x01c 4(r)>
        <LVAR -0x020 4(r)>
        <LVAR -0x024 4(r)>
        <LVAR -0x028 4(r)>
        <LVAR -0x02c 4(r)>
        <LVAR -0x030 4(r)>
        <LVAR -0x034 4(r)>
        <LVAR -0x038 4(rw)>
        <LVAR -0x03c 4(rw)>
        <LVAR -0x040 4(rw)>
        <LVAR -0x044 4(rw)>
        <LVAR -0x048 4(rw)>
        <LVAR -0x04c 4(rw)>
        <LVAR -0x050 4(rw)>
        <LVAR -0x054 4(rw)>
        <LVAR -0x058 4(rw)>
        <LVAR -0x05c 4(rw)>
        <LVAR -0x060 4(r)>
        <LVAR -0x064 4(r)>
        <LVAR -0x068 4(r)>
        <LVAR -0x06c 4(r)>
        <LVAR -0x070 4(r)>
        <LVAR -0x074 4(r)>
        <LVAR -0x078 4(r)>
        <LVAR -0x07c 4(r)>
        <LVAR -0x080 4(rw)>
        <LVAR -0x084 4(rw)>
        <LVAR -0x088 4(rw)>
        <LVAR -0x08c 4(rw)>
        <LVAR -0x090 4(rw)>
        <LVAR -0x094 4(rw)>
        <LVAR -0x098 4(rw)>
        <LVAR -0x09c 4(rw)>
        <LVAR -0x0a0 4(rw)>
        <LVAR -0x0a4 4(rw)>
        <LVAR -0x0a8 4(rw)>
        <LVAR -0x0ac 4(rw)>
        <LVAR -0x0b0 4(rw)>
        <LVAR -0x0b4 4(rw)>
        <LVAR -0x0b8 4(rw)>
        <LVAR -0x0bc 4(rw)>
        <LVAR -0x0c0 4(rw)>
        <LVAR -0x0c4 4(rw)>
        <LVAR -0x0c8 4(rw)>
        <LVAR -0x0cc 4(rw)>
        <LVAR -0x0d0 4(rw)>
        <LVAR -0x0d4 4(rw)>
        <LVAR -0x0dc @>
    <POP 211b8-21ef6 Body>                                              
        <POP 211b8-211ce Prologue>                           Σ0         ↓
        <POP 211ce-211de RegCacheLoad>                       Σ0         ↓
        <POP 211de-211f4 Naked>                              Σ0         ↓ →0x211fe
            <MI 211de  CLR.L   0x226a8>                                         {}
            <Pointer.fp 0x211e4 <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Call 0x211e8 0x207e0>                                              {[@@-8]}
            <POP 211ec-211ee StackAdj>                       Δ+4                {}
            <MI 211ee  TST.B   (A6-0x8)>                                        {}
            <MI 211f2  BNE     0x211fe>                                         {}
        <POP 211f4-211fe Naked>                              Σ0         ↓
            <Const 0x211f4 0x1.4>                            Δ-4                {[##1]}
            <Call 0x211f8 0x21056>                                              {[##1]}
            <POP 211fc-211fe StackAdj>                       Δ+4                {}
        <POP 211fe-21220 Naked>                              Σ0         ↓ →0x2122a ←0x211de
            <Pointer.fp 0x211fe <LVAR -0x007 @ 1(r)>>        Δ-4                {[@@-7]}
            <Pointer.fp 0x21202 <LVAR -0x006 @ 1(r)>>        Δ-4                {[@@-7]|[@@-6]}
            <Pointer.fp 0x21206 <LVAR -0x004 @ 1(r)>>        Δ-4                {[@@-7]|[@@-6]|[@@-4]}
            <Pointer.fp 0x2120a <LVAR -0x003 @ 1(r)>>        Δ-4                {[@@-7]|[@@-6]|[@@-4]|[@@-3]}
            <Pointer.fp 0x2120e <LVAR -0x005 @ 1(r)>>        Δ-4                {[@@-7]|[@@-6]|[@@-4]|[@@-3]|[@@-5]}
            <Call 0x21212 0x20af8>                                              {[@@-7]|[@@-6]|[@@-4]|[@@-3]|[@@-5]}
            <POP 21216-2121a StackAdj>                       Δ+20               {}
            <MI 2121a  TST.B   (A6-0x7)>                                        {}
            <MI 2121e  BEQ     0x2122a>                                         {}
        <POP 21220-2122a Naked>                              Σ0         ↓
            <Const 0x21220 0x2.4>                            Δ-4                {[##2]}
            <Call 0x21224 0x21056>                                              {[##2]}
            <POP 21228-2122a StackAdj>                       Δ+4                {}
        <POP 2122a-21230 Naked>                              Σ0         ↓ →0x2123a ←0x211fe
            <MI 2122a  TST.B   (A6-0x6)>                                        {}
            <MI 2122e  BEQ     0x2123a>                                         {}
        <POP 21230-2123a Naked>                              Σ0         ↓
            <Const 0x21230 0x3.4>                            Δ-4                {[##3]}
            <Call 0x21234 0x21056>                                              {[##3]}
            <POP 21238-2123a StackAdj>                       Δ+4                {}
        <POP 2123a-212aa Naked>                              Σ0         ↓ ←0x2122a
            <POP 2123a-2123c StackAdj>                       Δ-8                {[-8-]}
            <Const 0x2123c 0x4.4>                            Δ-4                {[-8-]|[##4]}
            <Call 0x21240 0x20a04>                                              {[-8-]|[##4]}
            <POP 21244-21246 StackAdj>                       Δ+4                {[-8-]}
            <MI 21246  MOVE.L  (A7)+,(A6-0x84)>              Δ+4                {[-4-]}
            <MI 21248  MOVE.L  (A7),(A6-0x80)>                                  {[-4-]}
            <POP 2124a-2124c StackAdj>                       Δ-4                {[-8-]}
            <Const 0x2124c 0x4.4>                            Δ-4                {[-8-]|[##4]}
            <Call 0x21250 0x20a7e>                                              {[-8-]|[##4]}
            <POP 21252-21254 StackAdj>                       Δ+4                {[-8-]}
            <MI 21254  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {[-4-]}
            <MI 21258  MOVE.L  (A7),(A6-0x38)>                                  {[-4-]}
            <POP 2125c-2125e StackAdj>                       Δ-4                {[-8-]}
            <Const 0x2125e 0x5.4>                            Δ-4                {[-8-]|[##5]}
            <Call 0x21262 0x20a04>                                              {[-8-]|[##5]}
            <POP 21266-21268 StackAdj>                       Δ+4                {[-8-]}
            <MI 21268  MOVE.L  (A7)+,(A6-0x94)>              Δ+4                {[-4-]}
            <MI 2126c  MOVE.L  (A7),(A6-0x90)>                                  {[-4-]}
            <POP 21270-21272 StackAdj>                       Δ-4                {[-8-]}
            <Const 0x21272 0x5.4>                            Δ-4                {[-8-]|[##5]}
            <Call 0x21276 0x20a7e>                                              {[-8-]|[##5]}
            <POP 21278-2127a StackAdj>                       Δ+4                {[-8-]}
            <MI 2127a  MOVE.L  (A7)+,(A6-0x4c)>              Δ+4                {[-4-]}
            <MI 2127e  MOVE.L  (A7),(A6-0x48)>                                  {[-4-]}
            <POP 21282-21284 StackAdj>                       Δ-4                {[-8-]}
            <Const 0x21284 0x6.4>                            Δ-4                {[-8-]|[##6]}
            <Call 0x21288 0x20a04>                                              {[-8-]|[##6]}
            <POP 2128c-2128e StackAdj>                       Δ+4                {[-8-]}
            <MI 2128e  MOVE.L  (A7)+,(A6-0x8c)>              Δ+4                {[-4-]}
            <MI 21292  MOVE.L  (A7),(A6-0x88)>                                  {[-4-]}
            <POP 21296-21298 StackAdj>                       Δ-4                {[-8-]}
            <Const 0x21298 0x6.4>                            Δ-4                {[-8-]|[##6]}
            <Call 0x2129c 0x20a7e>                                              {[-8-]|[##6]}
            <POP 2129e-212a0 StackAdj>                       Δ+4                {[-8-]}
            <MI 212a0  MOVE.L  (A7)+,(A6-0x44)>              Δ+4                {[-4-]}
            <MI 212a4  MOVE.L  (A7)+,(A6-0x40)>              Δ+4                {}
            <MI 212a8  MOVEQ.L #0x0c,D7>                                        {}
        <POP 212aa-212fa Naked>                              Σ0         ↓ →0x212aa ←0x212aa
            <MI 212aa  MOVE.B  D7,D0>                                           {}
            <MI 212ac  EXTB.W  D0>                                              {}
            <MI 212ae  SUBI.W  #0x000c,D0>                                      {}
            <POP 0x212b2 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 212b6  ASL.W   #0x3,D0>                                         {}
            <MI 212b8  LEA.L   (A6-0xdc),A0>                                    {}
            <MI 212bc  MOVE.B  D7,D1>                                           {}
            <MI 212be  EXTB.W  D1>                                              {}
            <MI 212c0  ADDQ.W  #0x7,D1>                                         {}
            <MI 212c2  SUBI.W  #0x000c,D1>                                      {}
            <POP 212c6-212c8 StackAdj>                       Δ-8                {[-8-]}
            <MI 212c8  MOVE.W  D1,D2>                                           {[-8-]}
            <MI 212ca  EXTW.L  D2>                                              {[-8-]}
            <MI 212cc  MOVE.L  D2,-(A7)>                     Δ-4                {[-8-]|[4, 'D2']}
            <Call 0x212ce 0x20a04>                                              {[-8-]|[4, 'D2']}
            <POP 212d2-212d4 StackAdj>                       Δ+4                {[-8-]}
            <MI 212d4  MOVE.L  (A7)+,(A0+D0.W+#0x60)>        Δ+4                {[-4-]}
            <MI 212d8  MOVE.L  (A7)+,(A0+D0.W+#0x64)>        Δ+4                {}
            <MI 212dc  LEA.L   (A0+D0.W),A0>                                    {}
            <POP 212e0-212e2 StackAdj>                       Δ-8                {[-8-]}
            <MI 212e2  EXTW.L  D1>                                              {[-8-]}
            <MI 212e4  MOVE.L  D1,-(A7)>                     Δ-4                {[-8-]|[4, 'D1']}
            <Call 0x212e6 0x20a7e>                                              {[-8-]|[4, 'D1']}
            <POP 212e8-212ea StackAdj>                       Δ+4                {[-8-]}
            <MI 212ea  MOVE.L  (A7)+,(A0+0xa8)>              Δ+4                {[-4-]}
            <MI 212ee  MOVE.L  (A7)+,(A0+0xac)>              Δ+4                {}
            <MI 212f2  ADDQ.B  #0x1,D7>                                         {}
            <MI 212f4  CMPI.B  #0x0f,D7>                                        {}
            <MI 212f8  BLE     0x212aa>                                         {}
        <POP 212fa-213ae Naked>                              Σ0         ↓ →0x213e8
            <POP 212fa-212fc StackAdj>                       Δ-8                {[-8-]}
            <Const 0x212fc 0xc.4>                            Δ-4                {[-8-]|[##12]}
            <Call 0x21300 0x20a7e>                                              {[-8-]|[##12]}
            <POP 21302-21304 StackAdj>                       Δ+4                {[-8-]}
            <MI 21304  MOVE.L  (A7)+,(A6-0xcc)>              Δ+4                {[-4-]}
            <MI 21308  MOVE.L  (A7),(A6-0xc8)>                                  {[-4-]}
            <POP 2130c-2130e StackAdj>                       Δ-4                {[-8-]}
            <Const 0x2130e 0xd.4>                            Δ-4                {[-8-]|[##13]}
            <Call 0x21312 0x20a7e>                                              {[-8-]|[##13]}
            <POP 21314-21316 StackAdj>                       Δ+4                {[-8-]}
            <MI 21316  MOVE.L  (A7)+,(A6-0xbc)>              Δ+4                {[-4-]}
            <MI 2131a  MOVE.L  (A7),(A6-0xb8)>                                  {[-4-]}
            <POP 2131e-21320 StackAdj>                       Δ-4                {[-8-]}
            <Const 0x21320 0xe.4>                            Δ-4                {[-8-]|[##14]}
            <Call 0x21324 0x20a7e>                                              {[-8-]|[##14]}
            <POP 21326-21328 StackAdj>                       Δ+4                {[-8-]}
            <MI 21328  MOVE.L  (A7)+,(A6-0xb4)>              Δ+4                {[-4-]}
            <MI 2132c  MOVE.L  (A7),(A6-0xb0)>                                  {[-4-]}
            <POP 21330-21332 StackAdj>                       Δ-4                {[-8-]}
            <Const 0x21332 0xf.4>                            Δ-4                {[-8-]|[##15]}
            <Call 0x21336 0x20a7e>                                              {[-8-]|[##15]}
            <POP 21338-2133a StackAdj>                       Δ+4                {[-8-]}
            <MI 2133a  MOVE.L  (A7)+,(A6-0xac)>              Δ+4                {[-4-]}
            <MI 2133e  MOVE.L  (A7),(A6-0xa8)>                                  {[-4-]}
            <POP 21342-21344 StackAdj>                       Δ-4                {[-8-]}
            <Const 0x21344 0xe.4>                            Δ-4                {[-8-]|[##14]}
            <Call 0x21348 0x20a04>                                              {[-8-]|[##14]}
            <POP 2134c-2134e StackAdj>                       Δ+4                {[-8-]}
            <MI 2134e  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[-4-]}
            <MI 21352  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <Const 0x21356 0x5.2>                            Δ-2                {[#5]}
            <Const 0x2135a 0x2.2>                            Δ-2                {[#5]|[#2]}
            <Call 0x2135e 0x1048a>                                              {[#5]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 21364-21366 StackAdj>                       Δ-4                {[#5]|[#2]|[-4-]}
            <MI 21366  MOVE.L  (A6-0xa8),-(A7)>              Δ-4                {[#5]|[#2]|[-4-]|[4, '(A6-0xa8)']}
            <MI 2136a  MOVE.L  (A6-0xac),-(A7)>              Δ-4                {[#5]|[#2]|[-4-]|[4, '(A6-0xa8)']|[4, '(A6-0xac)']}
            <POP 2136e-21370 StackAdj>                       Δ-8                {[#5]|[#2]|[-4-]|[4, '(A6-0xa8)']|[4, '(A6-0xac)']|[-8-]}
            <MI 21370  MOVE.L  (A6-0xb8),-(A7)>              Δ-4                {[#5]|[#2]|[-4-]|[4, '(A6-0xa8)']|[4, '(A6-0xac)']|[-8-]|[4, '(A6-0xb8)']}
            <MI 21374  MOVE.L  (A6-0xbc),-(A7)>              Δ-4                {[#5]|[#2]|[-4-]|[4, '(A6-0xa8)']|[4, '(A6-0xac)']|[-8-]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']}
            <Call 0x21378 0x10338>                                              {[#5]|[#2]|[-4-]|[4, '(A6-0xa8)']|[4, '(A6-0xac)']|[-8-]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']}
                BitNot(a : Quad) : Quad
            <POP 2137e-21380 StackAdj>                       Δ+8                {[#5]|[#2]|[-4-]|[4, '(A6-0xa8)']|[4, '(A6-0xac)']|[-8-]}
            <Call 0x21380 0x10330>                                              {[#5]|[#2]|[-4-]|[4, '(A6-0xa8)']|[4, '(A6-0xac)']|[-8-]}
                BitAnd(a, b : Quad) : Quad
            <POP 21386-21388 StackAdj>                       Δ+16               {[#5]|[#2]|[-4-]}
            <MI 21388  MOVE.L  (A7)+,(A6-0xac)>              Δ+4                {[#5]|[#2]}
            <MI 2138c  MOVE.L  (A7),(A6-0xa8)>                                  {[#5]|[#2]}
            <POP 21390-21392 StackAdj>                       Δ+2                {[#5]}
            <MI 21392  MOVE.L  (A6-0xa8),-(A7)>              Δ-4                {[#5]|[4, '(A6-0xa8)']}
            <MI 21396  MOVE.L  (A6-0xac),-(A7)>              Δ-4                {[#5]|[4, '(A6-0xa8)']|[4, '(A6-0xac)']}
            <Blob 0x2139a [4] @>                             Δ-4                {[#5]|[4, '(A6-0xa8)']|[4, '(A6-0xac)']|[«4""»]}
            <Blob 0x2139e [4] @>                             Δ-4                {[#5]|[4, '(A6-0xa8)']|[4, '(A6-0xac)']|[«4""»]|[«4""»]}
            <Call 0x213a2 0x1032c>                                              {[#5]|[4, '(A6-0xa8)']|[4, '(A6-0xac)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 213a8-213aa StackAdj>                       Δ+16               {[#5]}
            <MI 213aa  TST.B   (A7)+>                        Δ+2                {}
            <MI 213ac  BNE     0x213e8>                                         {}
        <POP 213ae-213e8 Naked>                              Σ0         ↓
            <POP 213ae-213b0 StackAdj>                       Δ-4                {[-4-]}
            <MI 213b0  MOVE.L  (A6-0xa8),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0xa8)']}
            <MI 213b4  MOVE.L  (A6-0xac),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0xa8)']|[4, '(A6-0xac)']}
            <Call 0x213b8 0x20f42>                                              {[-4-]|[4, '(A6-0xa8)']|[4, '(A6-0xac)']}
            <POP 213bc-213be StackAdj>                       Δ+8                {[-4-]}
            <MI 213be  MOVE.L  (A7)+,0x226ac>                Δ+4                {}
            <Blob 0x213c4 [4] @>                             Δ-4                {[«4""»]}
            <Const 0x213ca 0x5c.2>                           Δ-2                {[«4""»]|[#92]}
            <Call 0x213ce 0x102c0>                                              {[«4""»]|[#92]}
                AppendChar(MOD b : String; a : char)
            <POP 213d4-213d6 StackAdj>                       Δ+6                {}
            <MI 213d6  MOVE.B  #0x06,0x226b1>                                   {}
            <Const 0x213de 0x6.4>                            Δ-4                {[##6]}
            <Call 0x213e2 0x21056>                                              {[##6]}
            <POP 213e6-213e8 StackAdj>                       Δ+4                {}
        <POP 213e8-2144c Naked>                              Σ0         ↓ ←0x212fa
            <POP 213e8-213ea StackAdj>                       Δ-8                {[-8-]}
            <MI 213ea  MOVE.L  (A6-0xc8),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc8)']}
            <MI 213ee  MOVE.L  (A6-0xcc),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']}
            <MI 213f2  MOVE.L  (A6-0xb8),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[4, '(A6-0xb8)']}
            <MI 213f6  MOVE.L  (A6-0xbc),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']}
            <Call 0x213fa 0x10330>                                              {[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']}
                BitAnd(a, b : Quad) : Quad
            <POP 21400-21402 StackAdj>                       Δ+16               {[-8-]}
            <MI 21402  MOVE.L  (A7)+,(A6-0xc4)>              Δ+4                {[-4-]}
            <MI 21406  MOVE.L  (A7),(A6-0xc0)>                                  {[-4-]}
            <POP 2140a-2140c StackAdj>                       Δ-4                {[-8-]}
            <MI 2140c  MOVE.L  (A6-0x80),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x80)']}
            <MI 2140e  MOVE.L  (A6-0x84),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']}
            <MI 21410  MOVE.L  (A6-0x90),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[4, '(A6-0x90)']}
            <MI 21414  MOVE.L  (A6-0x94),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[4, '(A6-0x90)']|[4, '(A6-0x94)']}
            <Call 0x21418 0x10330>                                              {[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[4, '(A6-0x90)']|[4, '(A6-0x94)']}
                BitAnd(a, b : Quad) : Quad
            <POP 2141e-21420 StackAdj>                       Δ+16               {[-8-]}
            <MI 21420  MOVE.L  (A7)+,(A6-0x9c)>              Δ+4                {[-4-]}
            <MI 21424  MOVE.L  (A7),(A6-0x98)>                                  {[-4-]}
            <POP 21428-2142a StackAdj>                       Δ-4                {[-8-]}
            <MI 2142a  MOVE.L  (A6-0x38),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x38)']}
            <MI 2142e  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']}
            <MI 21432  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[4, '(A6-0x48)']}
            <MI 21436  MOVE.L  (A6-0x4c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[4, '(A6-0x48)']|[4, '(A6-0x4c)']}
            <Call 0x2143a 0x10330>                                              {[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[4, '(A6-0x48)']|[4, '(A6-0x4c)']}
                BitAnd(a, b : Quad) : Quad
            <POP 21440-21442 StackAdj>                       Δ+16               {[-8-]}
            <MI 21442  MOVE.L  (A7)+,(A6-0x54)>              Δ+4                {[-4-]}
            <MI 21446  MOVE.L  (A7)+,(A6-0x50)>              Δ+4                {}
            <MI 2144a  MOVEQ.L #0x0c,D7>                                        {}
        <POP 2144c-2145c Naked>                              Σ0         ↓ →0x214b6 ←0x214b6
            <POP 2144c-2144e StackAdj>                       Δ-2                {[-2-]}
            <MI 2144e  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x21450 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 21456-21458 StackAdj>                       Δ+2                {[-2-]}
            <MI 21458  TST.B   (A7)+>                        Δ+2                {}
            <MI 2145a  BEQ     0x214b6>                                         {}
        <POP 2145c-214b6 Naked>                              Σ0         ↓
            <MI 2145c  MOVE.B  D7,D0>                                           {}
            <MI 2145e  EXTB.W  D0>                                              {}
            <MI 21460  SUBI.W  #0x000c,D0>                                      {}
            <POP 0x21464 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21468  ASL.W   #0x3,D0>                                         {}
            <MI 2146a  LEA.L   (A6-0xdc),A0>                                    {}
            <POP 2146e-21470 StackAdj>                       Δ-8                {[-8-]}
            <MI 21470  MOVE.L  (A6-0x98),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x98)']}
            <MI 21474  MOVE.L  (A6-0x9c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']}
            <MI 21478  MOVE.L  (A0+D0.W+#0x64),-(A7)>        Δ-4                {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[4, '(A0+D0.W+#0x64)']}
            <MI 2147c  MOVE.L  (A0+D0.W+#0x60),-(A7)>        Δ-4                {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[4, '(A0+D0.W+#0x64)']|[4, '(A0+D0.W+#0x60)']}
            <Call 0x21480 0x10330>                                              {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[4, '(A0+D0.W+#0x64)']|[4, '(A0+D0.W+#0x60)']}
                BitAnd(a, b : Quad) : Quad
            <POP 21486-21488 StackAdj>                       Δ+16               {[-8-]}
            <MI 21488  MOVE.L  (A7)+,(A6-0x9c)>              Δ+4                {[-4-]}
            <MI 2148c  MOVE.L  (A7),(A6-0x98)>                                  {[-4-]}
            <POP 21490-21492 StackAdj>                       Δ-4                {[-8-]}
            <MI 21492  MOVE.L  (A6-0x50),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x50)']}
            <MI 21496  MOVE.L  (A6-0x54),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']}
            <MI 2149a  LEA.L   (A0+D0.W),A0>                                    {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']}
            <MI 2149e  MOVE.L  (A0+0xac),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[4, '(A0+0xac)']}
            <MI 214a2  MOVE.L  (A0+0xa8),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[4, '(A0+0xac)']|[4, '(A0+0xa8)']}
            <Call 0x214a6 0x10330>                                              {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[4, '(A0+0xac)']|[4, '(A0+0xa8)']}
                BitAnd(a, b : Quad) : Quad
            <POP 214ac-214ae StackAdj>                       Δ+16               {[-8-]}
            <MI 214ae  MOVE.L  (A7)+,(A6-0x54)>              Δ+4                {[-4-]}
            <MI 214b2  MOVE.L  (A7)+,(A6-0x50)>              Δ+4                {}
        <POP 214b6-214be Naked>                              Σ0         ↓ →0x2144c ←0x2144c
            <MI 214b6  ADDQ.B  #0x1,D7>                                         {}
            <MI 214b8  CMPI.B  #0x0f,D7>                                        {}
            <MI 214bc  BLE     0x2144c>                                         {}
        <POP 214be-21644 Naked>                              Σ0         ↓
            <POP 214be-214c0 StackAdj>                       Δ-8                {[-8-]}
            <MI 214c0  MOVE.L  (A6-0xc8),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc8)']}
            <MI 214c4  MOVE.L  (A6-0xcc),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']}
            <POP 214c8-214ca StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[-8-]}
            <MI 214ca  MOVE.L  (A6-0xc0),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[-8-]|[4, '(A6-0xc0)']}
            <MI 214ce  MOVE.L  (A6-0xc4),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']}
            <Call 0x214d2 0x10338>                                              {[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']}
                BitNot(a : Quad) : Quad
            <POP 214d8-214da StackAdj>                       Δ+8                {[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[-8-]}
            <Call 0x214da 0x10330>                                              {[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[-8-]}
                BitAnd(a, b : Quad) : Quad
            <POP 214e0-214e2 StackAdj>                       Δ+16               {[-8-]}
            <MI 214e2  MOVE.L  (A7)+,(A6-0xcc)>              Δ+4                {[-4-]}
            <MI 214e6  MOVE.L  (A7),(A6-0xc8)>                                  {[-4-]}
            <POP 214ea-214ec StackAdj>                       Δ-4                {[-8-]}
            <MI 214ec  MOVE.L  (A6-0xb8),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xb8)']}
            <MI 214f0  MOVE.L  (A6-0xbc),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']}
            <POP 214f4-214f6 StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']|[-8-]}
            <MI 214f6  MOVE.L  (A6-0xc0),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']|[-8-]|[4, '(A6-0xc0)']}
            <MI 214fa  MOVE.L  (A6-0xc4),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']|[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']}
            <Call 0x214fe 0x10338>                                              {[-8-]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']|[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']}
                BitNot(a : Quad) : Quad
            <POP 21504-21506 StackAdj>                       Δ+8                {[-8-]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']|[-8-]}
            <Call 0x21506 0x10330>                                              {[-8-]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']|[-8-]}
                BitAnd(a, b : Quad) : Quad
            <POP 2150c-2150e StackAdj>                       Δ+16               {[-8-]}
            <MI 2150e  MOVE.L  (A7)+,(A6-0xbc)>              Δ+4                {[-4-]}
            <MI 21512  MOVE.L  (A7),(A6-0xb8)>                                  {[-4-]}
            <POP 21516-21518 StackAdj>                       Δ-4                {[-8-]}
            <MI 21518  MOVE.L  (A6-0xb0),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xb0)']}
            <MI 2151c  MOVE.L  (A6-0xb4),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xb0)']|[4, '(A6-0xb4)']}
            <POP 21520-21522 StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0xb0)']|[4, '(A6-0xb4)']|[-8-]}
            <MI 21522  MOVE.L  (A6-0xc0),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xb0)']|[4, '(A6-0xb4)']|[-8-]|[4, '(A6-0xc0)']}
            <MI 21526  MOVE.L  (A6-0xc4),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xb0)']|[4, '(A6-0xb4)']|[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']}
            <Call 0x2152a 0x10338>                                              {[-8-]|[4, '(A6-0xb0)']|[4, '(A6-0xb4)']|[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']}
                BitNot(a : Quad) : Quad
            <POP 21530-21532 StackAdj>                       Δ+8                {[-8-]|[4, '(A6-0xb0)']|[4, '(A6-0xb4)']|[-8-]}
            <Call 0x21532 0x10330>                                              {[-8-]|[4, '(A6-0xb0)']|[4, '(A6-0xb4)']|[-8-]}
                BitAnd(a, b : Quad) : Quad
            <POP 21538-2153a StackAdj>                       Δ+16               {[-8-]}
            <MI 2153a  MOVE.L  (A7)+,(A6-0xb4)>              Δ+4                {[-4-]}
            <MI 2153e  MOVE.L  (A7),(A6-0xb0)>                                  {[-4-]}
            <POP 21542-21544 StackAdj>                       Δ-4                {[-8-]}
            <MI 21544  MOVE.L  (A6-0x88),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x88)']}
            <MI 21548  MOVE.L  (A6-0x8c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']}
            <POP 2154c-2154e StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']|[-8-]}
            <MI 2154e  MOVE.L  (A6-0x98),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']|[-8-]|[4, '(A6-0x98)']}
            <MI 21552  MOVE.L  (A6-0x9c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']|[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']}
            <Call 0x21556 0x10338>                                              {[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']|[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']}
                BitNot(a : Quad) : Quad
            <POP 2155c-2155e StackAdj>                       Δ+8                {[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']|[-8-]}
            <Call 0x2155e 0x10330>                                              {[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']|[-8-]}
                BitAnd(a, b : Quad) : Quad
            <POP 21564-21566 StackAdj>                       Δ+16               {[-8-]}
            <MI 21566  MOVE.L  (A7)+,(A6-0x8c)>              Δ+4                {[-4-]}
            <MI 2156a  MOVE.L  (A7),(A6-0x88)>                                  {[-4-]}
            <POP 2156e-21570 StackAdj>                       Δ-4                {[-8-]}
            <MI 21570  MOVE.L  (A6-0x80),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x80)']}
            <MI 21572  MOVE.L  (A6-0x84),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']}
            <POP 21574-21576 StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[-8-]}
            <MI 21576  MOVE.L  (A6-0x98),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[-8-]|[4, '(A6-0x98)']}
            <MI 2157a  MOVE.L  (A6-0x9c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']}
            <Call 0x2157e 0x10338>                                              {[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']}
                BitNot(a : Quad) : Quad
            <POP 21584-21586 StackAdj>                       Δ+8                {[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[-8-]}
            <Call 0x21586 0x10330>                                              {[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[-8-]}
                BitAnd(a, b : Quad) : Quad
            <POP 2158c-2158e StackAdj>                       Δ+16               {[-8-]}
            <MI 2158e  MOVE.L  (A7)+,(A6-0x84)>              Δ+4                {[-4-]}
            <MI 21590  MOVE.L  (A7),(A6-0x80)>                                  {[-4-]}
            <POP 21592-21594 StackAdj>                       Δ-4                {[-8-]}
            <MI 21594  MOVE.L  (A6-0x90),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x90)']}
            <MI 21598  MOVE.L  (A6-0x94),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x90)']|[4, '(A6-0x94)']}
            <POP 2159c-2159e StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0x90)']|[4, '(A6-0x94)']|[-8-]}
            <MI 2159e  MOVE.L  (A6-0x98),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x90)']|[4, '(A6-0x94)']|[-8-]|[4, '(A6-0x98)']}
            <MI 215a2  MOVE.L  (A6-0x9c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x90)']|[4, '(A6-0x94)']|[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']}
            <Call 0x215a6 0x10338>                                              {[-8-]|[4, '(A6-0x90)']|[4, '(A6-0x94)']|[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']}
                BitNot(a : Quad) : Quad
            <POP 215ac-215ae StackAdj>                       Δ+8                {[-8-]|[4, '(A6-0x90)']|[4, '(A6-0x94)']|[-8-]}
            <Call 0x215ae 0x10330>                                              {[-8-]|[4, '(A6-0x90)']|[4, '(A6-0x94)']|[-8-]}
                BitAnd(a, b : Quad) : Quad
            <POP 215b4-215b6 StackAdj>                       Δ+16               {[-8-]}
            <MI 215b6  MOVE.L  (A7)+,(A6-0x94)>              Δ+4                {[-4-]}
            <MI 215ba  MOVE.L  (A7),(A6-0x90)>                                  {[-4-]}
            <POP 215be-215c0 StackAdj>                       Δ-4                {[-8-]}
            <MI 215c0  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x40)']}
            <MI 215c4  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']}
            <POP 215c8-215ca StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']|[-8-]}
            <MI 215ca  MOVE.L  (A6-0x50),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']|[-8-]|[4, '(A6-0x50)']}
            <MI 215ce  MOVE.L  (A6-0x54),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']|[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']}
            <Call 0x215d2 0x10338>                                              {[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']|[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']}
                BitNot(a : Quad) : Quad
            <POP 215d8-215da StackAdj>                       Δ+8                {[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']|[-8-]}
            <Call 0x215da 0x10330>                                              {[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']|[-8-]}
                BitAnd(a, b : Quad) : Quad
            <POP 215e0-215e2 StackAdj>                       Δ+16               {[-8-]}
            <MI 215e2  MOVE.L  (A7)+,(A6-0x44)>              Δ+4                {[-4-]}
            <MI 215e6  MOVE.L  (A7),(A6-0x40)>                                  {[-4-]}
            <POP 215ea-215ec StackAdj>                       Δ-4                {[-8-]}
            <MI 215ec  MOVE.L  (A6-0x38),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x38)']}
            <MI 215f0  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']}
            <POP 215f4-215f6 StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[-8-]}
            <MI 215f6  MOVE.L  (A6-0x50),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[-8-]|[4, '(A6-0x50)']}
            <MI 215fa  MOVE.L  (A6-0x54),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']}
            <Call 0x215fe 0x10338>                                              {[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']}
                BitNot(a : Quad) : Quad
            <POP 21604-21606 StackAdj>                       Δ+8                {[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[-8-]}
            <Call 0x21606 0x10330>                                              {[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[-8-]}
                BitAnd(a, b : Quad) : Quad
            <POP 2160c-2160e StackAdj>                       Δ+16               {[-8-]}
            <MI 2160e  MOVE.L  (A7)+,(A6-0x3c)>              Δ+4                {[-4-]}
            <MI 21612  MOVE.L  (A7),(A6-0x38)>                                  {[-4-]}
            <POP 21616-21618 StackAdj>                       Δ-4                {[-8-]}
            <MI 21618  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x48)']}
            <MI 2161c  MOVE.L  (A6-0x4c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x48)']|[4, '(A6-0x4c)']}
            <POP 21620-21622 StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0x48)']|[4, '(A6-0x4c)']|[-8-]}
            <MI 21622  MOVE.L  (A6-0x50),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x48)']|[4, '(A6-0x4c)']|[-8-]|[4, '(A6-0x50)']}
            <MI 21626  MOVE.L  (A6-0x54),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x48)']|[4, '(A6-0x4c)']|[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']}
            <Call 0x2162a 0x10338>                                              {[-8-]|[4, '(A6-0x48)']|[4, '(A6-0x4c)']|[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']}
                BitNot(a : Quad) : Quad
            <POP 21630-21632 StackAdj>                       Δ+8                {[-8-]|[4, '(A6-0x48)']|[4, '(A6-0x4c)']|[-8-]}
            <Call 0x21632 0x10330>                                              {[-8-]|[4, '(A6-0x48)']|[4, '(A6-0x4c)']|[-8-]}
                BitAnd(a, b : Quad) : Quad
            <POP 21638-2163a StackAdj>                       Δ+16               {[-8-]}
            <MI 2163a  MOVE.L  (A7)+,(A6-0x4c)>              Δ+4                {[-4-]}
            <MI 2163e  MOVE.L  (A7)+,(A6-0x48)>              Δ+4                {}
            <MI 21642  MOVEQ.L #0x0c,D7>                                        {}
        <POP 21644-21654 Naked>                              Σ0         ↓ →0x216c4 ←0x216f2
            <POP 21644-21646 StackAdj>                       Δ-2                {[-2-]}
            <MI 21646  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x21648 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2164e-21650 StackAdj>                       Δ+2                {[-2-]}
            <MI 21650  TST.B   (A7)+>                        Δ+2                {}
            <MI 21652  BEQ     0x216c4>                                         {}
        <POP 21654-216c4 Naked>                              Σ0         →0x216f2
            <MI 21654  MOVE.B  D7,D0>                                           {}
            <MI 21656  EXTB.W  D0>                                              {}
            <MI 21658  SUBI.W  #0x000c,D0>                                      {}
            <POP 0x2165c LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21660  ASL.W   #0x3,D0>                                         {}
            <MI 21662  LEA.L   (A6-0xdc),A0>                                    {}
            <POP 21666-21668 StackAdj>                       Δ-8                {[-8-]}
            <MI 21668  MOVE.L  (A0+D0.W+#0x64),-(A7)>        Δ-4                {[-8-]|[4, '(A0+D0.W+#0x64)']}
            <MI 2166c  MOVE.L  (A0+D0.W+#0x60),-(A7)>        Δ-4                {[-8-]|[4, '(A0+D0.W+#0x64)']|[4, '(A0+D0.W+#0x60)']}
            <POP 21670-21672 StackAdj>                       Δ-8                {[-8-]|[4, '(A0+D0.W+#0x64)']|[4, '(A0+D0.W+#0x60)']|[-8-]}
            <MI 21672  MOVE.L  (A6-0x98),-(A7)>              Δ-4                {[-8-]|[4, '(A0+D0.W+#0x64)']|[4, '(A0+D0.W+#0x60)']|[-8-]|[4, '(A6-0x98)']}
            <MI 21676  MOVE.L  (A6-0x9c),-(A7)>              Δ-4                {[-8-]|[4, '(A0+D0.W+#0x64)']|[4, '(A0+D0.W+#0x60)']|[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']}
            <Call 0x2167a 0x10338>                                              {[-8-]|[4, '(A0+D0.W+#0x64)']|[4, '(A0+D0.W+#0x60)']|[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']}
                BitNot(a : Quad) : Quad
            <POP 21680-21682 StackAdj>                       Δ+8                {[-8-]|[4, '(A0+D0.W+#0x64)']|[4, '(A0+D0.W+#0x60)']|[-8-]}
            <Call 0x21682 0x10330>                                              {[-8-]|[4, '(A0+D0.W+#0x64)']|[4, '(A0+D0.W+#0x60)']|[-8-]}
                BitAnd(a, b : Quad) : Quad
            <POP 21688-2168a StackAdj>                       Δ+16               {[-8-]}
            <MI 2168a  MOVE.L  (A7)+,(A0+D0.W+#0x60)>        Δ+4                {[-4-]}
            <MI 2168e  MOVE.L  (A7)+,(A0+D0.W+#0x64)>        Δ+4                {}
            <MI 21692  LEA.L   (A0+D0.W),A0>                                    {}
            <POP 21696-21698 StackAdj>                       Δ-8                {[-8-]}
            <MI 21698  MOVE.L  (A0+0xac),-(A7)>              Δ-4                {[-8-]|[4, '(A0+0xac)']}
            <MI 2169c  MOVE.L  (A0+0xa8),-(A7)>              Δ-4                {[-8-]|[4, '(A0+0xac)']|[4, '(A0+0xa8)']}
            <POP 216a0-216a2 StackAdj>                       Δ-8                {[-8-]|[4, '(A0+0xac)']|[4, '(A0+0xa8)']|[-8-]}
            <MI 216a2  MOVE.L  (A6-0x50),-(A7)>              Δ-4                {[-8-]|[4, '(A0+0xac)']|[4, '(A0+0xa8)']|[-8-]|[4, '(A6-0x50)']}
            <MI 216a6  MOVE.L  (A6-0x54),-(A7)>              Δ-4                {[-8-]|[4, '(A0+0xac)']|[4, '(A0+0xa8)']|[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']}
            <Call 0x216aa 0x10338>                                              {[-8-]|[4, '(A0+0xac)']|[4, '(A0+0xa8)']|[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']}
                BitNot(a : Quad) : Quad
            <POP 216b0-216b2 StackAdj>                       Δ+8                {[-8-]|[4, '(A0+0xac)']|[4, '(A0+0xa8)']|[-8-]}
            <Call 0x216b2 0x10330>                                              {[-8-]|[4, '(A0+0xac)']|[4, '(A0+0xa8)']|[-8-]}
                BitAnd(a, b : Quad) : Quad
            <POP 216b8-216ba StackAdj>                       Δ+16               {[-8-]}
            <MI 216ba  MOVE.L  (A7)+,(A0+0xa8)>              Δ+4                {[-4-]}
            <MI 216be  MOVE.L  (A7)+,(A0+0xac)>              Δ+4                {}
            <MI 216c2  BRA     0x216f2>                                         {}
        <POP 216c4-216f2 Naked>                              Σ0         ↓ ←0x21644
            <MI 216c4  MOVE.B  D7,D0>                                           {}
            <MI 216c6  EXTB.W  D0>                                              {}
            <MI 216c8  SUBI.W  #0x000c,D0>                                      {}
            <POP 0x216cc LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 216d0  ASL.W   #0x3,D0>                                         {}
            <MI 216d2  LEA.L   (A6-0xdc),A0>                                    {}
            <MI 216d6  MOVE.L  0x204c8,(A0+D0.W+#0x60)>                         {}
            <MI 216dc  MOVE.L  0x204cc,(A0+D0.W+#0x64)>                         {}
            <MI 216e2  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 216e6  MOVE.L  0x204c8,(A0+0xa8)>                               {}
            <MI 216ec  MOVE.L  0x204cc,(A0+0xac)>                               {}
        <POP 216f2-216fc Naked>                              Σ0         ↓ →0x21644 ←0x21654
            <MI 216f2  ADDQ.B  #0x1,D7>                                         {}
            <MI 216f4  CMPI.B  #0x0f,D7>                                        {}
            <MI 216f8  BLE     0x21644>                                         {}
        <POP 216fc-21b02 Naked>                              Σ0         ↓ →0x21b48
            <Blob 0x216fc [20] @>                            Δ-20               {[«20""»]}
            <POP 21708-2170a StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x2170a 20>                                                    {[«20""»]|[$$TYP  bad FIU bits =_]}
            <POP 2171a-2171c StackAdj>                       Δ-4                {[«20""»]|[$$TYP  bad FIU bits =_]|[-4-]}
            <MI 2171c  MOVE.L  (A6-0xc8),(A7)>                                  {[«20""»]|[$$TYP  bad FIU bits =_]|[4, '(A6-0xc8)']}
            <MI 21720  MOVE.L  (A6-0xcc),-(A7)>              Δ-4                {[«20""»]|[$$TYP  bad FIU bits =_]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']}
            <Call 0x21724 0x20fea>                                              {[«20""»]|[$$TYP  bad FIU bits =_]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']}
            <POP 21728-2172c StackAdj>                       Δ+32               {}
            <Blob 0x2172c [20] @>                            Δ-20               {[«20""»]}
            <POP 21738-2173a StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x2173a 20>                                                    {[«20""»]|[$$VAL  bad FIU bits =_]}
            <POP 2174a-2174c StackAdj>                       Δ-4                {[«20""»]|[$$VAL  bad FIU bits =_]|[-4-]}
            <MI 2174c  MOVE.L  (A6-0xc0),(A7)>                                  {[«20""»]|[$$VAL  bad FIU bits =_]|[4, '(A6-0xc0)']}
            <MI 21750  MOVE.L  (A6-0xc4),-(A7)>              Δ-4                {[«20""»]|[$$VAL  bad FIU bits =_]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']}
            <Call 0x21754 0x20fea>                                              {[«20""»]|[$$VAL  bad FIU bits =_]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']}
            <POP 21758-2175c StackAdj>                       Δ+32               {}
            <Blob 0x2175c [20] @>                            Δ-20               {[«20""»]}
            <POP 21768-2176a StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x2176a 20>                                                    {[«20""»]|[$$FIU  bad FIU bits =_]}
            <POP 2177a-2177c StackAdj>                       Δ-4                {[«20""»]|[$$FIU  bad FIU bits =_]|[-4-]}
            <MI 2177c  MOVE.L  (A6-0xb8),(A7)>                                  {[«20""»]|[$$FIU  bad FIU bits =_]|[4, '(A6-0xb8)']}
            <MI 21780  MOVE.L  (A6-0xbc),-(A7)>              Δ-4                {[«20""»]|[$$FIU  bad FIU bits =_]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']}
            <Call 0x21784 0x20fea>                                              {[«20""»]|[$$FIU  bad FIU bits =_]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']}
            <POP 21788-2178c StackAdj>                       Δ+32               {}
            <Blob 0x2178c [20] @>                            Δ-20               {[«20""»]}
            <POP 21798-2179a StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x2179a 20>                                                    {[«20""»]|[$$SEQ  bad FIU bits =_]}
            <POP 217aa-217ac StackAdj>                       Δ-4                {[«20""»]|[$$SEQ  bad FIU bits =_]|[-4-]}
            <MI 217ac  MOVE.L  (A6-0xb0),(A7)>                                  {[«20""»]|[$$SEQ  bad FIU bits =_]|[4, '(A6-0xb0)']}
            <MI 217b0  MOVE.L  (A6-0xb4),-(A7)>              Δ-4                {[«20""»]|[$$SEQ  bad FIU bits =_]|[4, '(A6-0xb0)']|[4, '(A6-0xb4)']}
            <Call 0x217b4 0x20fea>                                              {[«20""»]|[$$SEQ  bad FIU bits =_]|[4, '(A6-0xb0)']|[4, '(A6-0xb4)']}
            <POP 217b8-217bc StackAdj>                       Δ+32               {}
            <Blob 0x217bc [20] @>                            Δ-20               {[«20""»]}
            <POP 217c8-217ca StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x217ca 20>                                                    {[«20""»]|[$$TYP  bad TYP bits =_]}
            <POP 217da-217dc StackAdj>                       Δ-4                {[«20""»]|[$$TYP  bad TYP bits =_]|[-4-]}
            <MI 217dc  MOVE.L  (A6-0x98),(A7)>                                  {[«20""»]|[$$TYP  bad TYP bits =_]|[4, '(A6-0x98)']}
            <MI 217e0  MOVE.L  (A6-0x9c),-(A7)>              Δ-4                {[«20""»]|[$$TYP  bad TYP bits =_]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']}
            <Call 0x217e4 0x20fea>                                              {[«20""»]|[$$TYP  bad TYP bits =_]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']}
            <POP 217e8-217ec StackAdj>                       Δ+32               {}
            <Blob 0x217ec [20] @>                            Δ-20               {[«20""»]}
            <POP 217f8-217fa StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x217fa 20>                                                    {[«20""»]|[$$FIU  bad TYP bits =_]}
            <POP 2180a-2180c StackAdj>                       Δ-4                {[«20""»]|[$$FIU  bad TYP bits =_]|[-4-]}
            <MI 2180c  MOVE.L  (A6-0x90),(A7)>                                  {[«20""»]|[$$FIU  bad TYP bits =_]|[4, '(A6-0x90)']}
            <MI 21810  MOVE.L  (A6-0x94),-(A7)>              Δ-4                {[«20""»]|[$$FIU  bad TYP bits =_]|[4, '(A6-0x90)']|[4, '(A6-0x94)']}
            <Call 0x21814 0x20fea>                                              {[«20""»]|[$$FIU  bad TYP bits =_]|[4, '(A6-0x90)']|[4, '(A6-0x94)']}
            <POP 21818-2181c StackAdj>                       Δ+32               {}
            <Blob 0x2181c [20] @>                            Δ-20               {[«20""»]}
            <POP 21828-2182a StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x2182a 20>                                                    {[«20""»]|[$$SEQ  bad TYP bits =_]}
            <POP 2183a-2183c StackAdj>                       Δ-4                {[«20""»]|[$$SEQ  bad TYP bits =_]|[-4-]}
            <MI 2183c  MOVE.L  (A6-0x88),(A7)>                                  {[«20""»]|[$$SEQ  bad TYP bits =_]|[4, '(A6-0x88)']}
            <MI 21840  MOVE.L  (A6-0x8c),-(A7)>              Δ-4                {[«20""»]|[$$SEQ  bad TYP bits =_]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']}
            <Call 0x21844 0x20fea>                                              {[«20""»]|[$$SEQ  bad TYP bits =_]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']}
            <POP 21848-2184c StackAdj>                       Δ+32               {}
            <Blob 0x2184c [20] @>                            Δ-20               {[«20""»]}
            <POP 21858-2185a StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x2185a 20>                                                    {[«20""»]|[$$IOC  bad TYP bits =_]}
            <POP 2186a-2186c StackAdj>                       Δ-4                {[«20""»]|[$$IOC  bad TYP bits =_]|[-4-]}
            <MI 2186c  MOVE.L  (A6-0x80),(A7)>                                  {[«20""»]|[$$IOC  bad TYP bits =_]|[4, '(A6-0x80)']}
            <MI 2186e  MOVE.L  (A6-0x84),-(A7)>              Δ-4                {[«20""»]|[$$IOC  bad TYP bits =_]|[4, '(A6-0x80)']|[4, '(A6-0x84)']}
            <Call 0x21870 0x20fea>                                              {[«20""»]|[$$IOC  bad TYP bits =_]|[4, '(A6-0x80)']|[4, '(A6-0x84)']}
            <POP 21874-21878 StackAdj>                       Δ+32               {}
            <Blob 0x21878 [20] @>                            Δ-20               {[«20""»]}
            <POP 21884-21886 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x21886 20>                                                    {[«20""»]|[$$MEM0 bad TYP bits =_]}
            <POP 21896-21898 StackAdj>                       Δ-4                {[«20""»]|[$$MEM0 bad TYP bits =_]|[-4-]}
            <MI 21898  MOVE.L  (A6-0x78),(A7)>                                  {[«20""»]|[$$MEM0 bad TYP bits =_]|[4, '(A6-0x78)']}
            <MI 2189c  MOVE.L  (A6-0x7c),-(A7)>              Δ-4                {[«20""»]|[$$MEM0 bad TYP bits =_]|[4, '(A6-0x78)']|[4, '(A6-0x7c)']}
            <Call 0x218a0 0x20fea>                                              {[«20""»]|[$$MEM0 bad TYP bits =_]|[4, '(A6-0x78)']|[4, '(A6-0x7c)']}
            <POP 218a4-218a8 StackAdj>                       Δ+32               {}
            <Blob 0x218a8 [20] @>                            Δ-20               {[«20""»]}
            <POP 218b4-218b6 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x218b6 20>                                                    {[«20""»]|[$$MEM1 bad TYP bits =_]}
            <POP 218c6-218c8 StackAdj>                       Δ-4                {[«20""»]|[$$MEM1 bad TYP bits =_]|[-4-]}
            <MI 218c8  MOVE.L  (A6-0x70),(A7)>                                  {[«20""»]|[$$MEM1 bad TYP bits =_]|[4, '(A6-0x70)']}
            <MI 218cc  MOVE.L  (A6-0x74),-(A7)>              Δ-4                {[«20""»]|[$$MEM1 bad TYP bits =_]|[4, '(A6-0x70)']|[4, '(A6-0x74)']}
            <Call 0x218d0 0x20fea>                                              {[«20""»]|[$$MEM1 bad TYP bits =_]|[4, '(A6-0x70)']|[4, '(A6-0x74)']}
            <POP 218d4-218d8 StackAdj>                       Δ+32               {}
            <Blob 0x218d8 [20] @>                            Δ-20               {[«20""»]}
            <POP 218e4-218e6 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x218e6 20>                                                    {[«20""»]|[$$MEM2 bad TYP bits =_]}
            <POP 218f6-218f8 StackAdj>                       Δ-4                {[«20""»]|[$$MEM2 bad TYP bits =_]|[-4-]}
            <MI 218f8  MOVE.L  (A6-0x68),(A7)>                                  {[«20""»]|[$$MEM2 bad TYP bits =_]|[4, '(A6-0x68)']}
            <MI 218fc  MOVE.L  (A6-0x6c),-(A7)>              Δ-4                {[«20""»]|[$$MEM2 bad TYP bits =_]|[4, '(A6-0x68)']|[4, '(A6-0x6c)']}
            <Call 0x21900 0x20fea>                                              {[«20""»]|[$$MEM2 bad TYP bits =_]|[4, '(A6-0x68)']|[4, '(A6-0x6c)']}
            <POP 21904-21908 StackAdj>                       Δ+32               {}
            <Blob 0x21908 [20] @>                            Δ-20               {[«20""»]}
            <POP 21914-21916 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x21916 20>                                                    {[«20""»]|[$$MEM3 bad TYP bits =_]}
            <POP 21926-21928 StackAdj>                       Δ-4                {[«20""»]|[$$MEM3 bad TYP bits =_]|[-4-]}
            <MI 21928  MOVE.L  (A6-0x60),(A7)>                                  {[«20""»]|[$$MEM3 bad TYP bits =_]|[4, '(A6-0x60)']}
            <MI 2192c  MOVE.L  (A6-0x64),-(A7)>              Δ-4                {[«20""»]|[$$MEM3 bad TYP bits =_]|[4, '(A6-0x60)']|[4, '(A6-0x64)']}
            <Call 0x21930 0x20fea>                                              {[«20""»]|[$$MEM3 bad TYP bits =_]|[4, '(A6-0x60)']|[4, '(A6-0x64)']}
            <POP 21934-21938 StackAdj>                       Δ+32               {}
            <Blob 0x21938 [20] @>                            Δ-20               {[«20""»]}
            <POP 21944-21946 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x21946 20>                                                    {[«20""»]|[$$VAL  bad VAL bits =_]}
            <POP 21956-21958 StackAdj>                       Δ-4                {[«20""»]|[$$VAL  bad VAL bits =_]|[-4-]}
            <MI 21958  MOVE.L  (A6-0x50),(A7)>                                  {[«20""»]|[$$VAL  bad VAL bits =_]|[4, '(A6-0x50)']}
            <MI 2195c  MOVE.L  (A6-0x54),-(A7)>              Δ-4                {[«20""»]|[$$VAL  bad VAL bits =_]|[4, '(A6-0x50)']|[4, '(A6-0x54)']}
            <Call 0x21960 0x20fea>                                              {[«20""»]|[$$VAL  bad VAL bits =_]|[4, '(A6-0x50)']|[4, '(A6-0x54)']}
            <POP 21964-21968 StackAdj>                       Δ+32               {}
            <Blob 0x21968 [20] @>                            Δ-20               {[«20""»]}
            <POP 21974-21976 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x21976 20>                                                    {[«20""»]|[$$FIU  bad VAL bits =_]}
            <POP 21986-21988 StackAdj>                       Δ-4                {[«20""»]|[$$FIU  bad VAL bits =_]|[-4-]}
            <MI 21988  MOVE.L  (A6-0x48),(A7)>                                  {[«20""»]|[$$FIU  bad VAL bits =_]|[4, '(A6-0x48)']}
            <MI 2198c  MOVE.L  (A6-0x4c),-(A7)>              Δ-4                {[«20""»]|[$$FIU  bad VAL bits =_]|[4, '(A6-0x48)']|[4, '(A6-0x4c)']}
            <Call 0x21990 0x20fea>                                              {[«20""»]|[$$FIU  bad VAL bits =_]|[4, '(A6-0x48)']|[4, '(A6-0x4c)']}
            <POP 21994-21998 StackAdj>                       Δ+32               {}
            <Blob 0x21998 [20] @>                            Δ-20               {[«20""»]}
            <POP 219a4-219a6 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x219a6 20>                                                    {[«20""»]|[$$SEQ  bad VAL bits =_]}
            <POP 219b6-219b8 StackAdj>                       Δ-4                {[«20""»]|[$$SEQ  bad VAL bits =_]|[-4-]}
            <MI 219b8  MOVE.L  (A6-0x40),(A7)>                                  {[«20""»]|[$$SEQ  bad VAL bits =_]|[4, '(A6-0x40)']}
            <MI 219bc  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[«20""»]|[$$SEQ  bad VAL bits =_]|[4, '(A6-0x40)']|[4, '(A6-0x44)']}
            <Call 0x219c0 0x20fea>                                              {[«20""»]|[$$SEQ  bad VAL bits =_]|[4, '(A6-0x40)']|[4, '(A6-0x44)']}
            <POP 219c4-219c8 StackAdj>                       Δ+32               {}
            <Blob 0x219c8 [20] @>                            Δ-20               {[«20""»]}
            <POP 219d4-219d6 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x219d6 20>                                                    {[«20""»]|[$$IOC  bad VAL bits =_]}
            <POP 219e6-219e8 StackAdj>                       Δ-4                {[«20""»]|[$$IOC  bad VAL bits =_]|[-4-]}
            <MI 219e8  MOVE.L  (A6-0x38),(A7)>                                  {[«20""»]|[$$IOC  bad VAL bits =_]|[4, '(A6-0x38)']}
            <MI 219ec  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[«20""»]|[$$IOC  bad VAL bits =_]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']}
            <Call 0x219f0 0x20fea>                                              {[«20""»]|[$$IOC  bad VAL bits =_]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']}
            <POP 219f4-219f8 StackAdj>                       Δ+32               {}
            <Blob 0x219f8 [20] @>                            Δ-20               {[«20""»]}
            <POP 21a04-21a06 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x21a06 20>                                                    {[«20""»]|[$$MEM0 bad VAL bits =_]}
            <POP 21a16-21a18 StackAdj>                       Δ-4                {[«20""»]|[$$MEM0 bad VAL bits =_]|[-4-]}
            <MI 21a18  MOVE.L  (A6-0x30),(A7)>                                  {[«20""»]|[$$MEM0 bad VAL bits =_]|[4, '(A6-0x30)']}
            <MI 21a1c  MOVE.L  (A6-0x34),-(A7)>              Δ-4                {[«20""»]|[$$MEM0 bad VAL bits =_]|[4, '(A6-0x30)']|[4, '(A6-0x34)']}
            <Call 0x21a20 0x20fea>                                              {[«20""»]|[$$MEM0 bad VAL bits =_]|[4, '(A6-0x30)']|[4, '(A6-0x34)']}
            <POP 21a24-21a28 StackAdj>                       Δ+32               {}
            <Blob 0x21a28 [20] @>                            Δ-20               {[«20""»]}
            <POP 21a34-21a36 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x21a36 20>                                                    {[«20""»]|[$$MEM1 bad VAL bits =_]}
            <POP 21a46-21a48 StackAdj>                       Δ-4                {[«20""»]|[$$MEM1 bad VAL bits =_]|[-4-]}
            <MI 21a48  MOVE.L  (A6-0x28),(A7)>                                  {[«20""»]|[$$MEM1 bad VAL bits =_]|[4, '(A6-0x28)']}
            <MI 21a4c  MOVE.L  (A6-0x2c),-(A7)>              Δ-4                {[«20""»]|[$$MEM1 bad VAL bits =_]|[4, '(A6-0x28)']|[4, '(A6-0x2c)']}
            <Call 0x21a50 0x20fea>                                              {[«20""»]|[$$MEM1 bad VAL bits =_]|[4, '(A6-0x28)']|[4, '(A6-0x2c)']}
            <POP 21a54-21a58 StackAdj>                       Δ+32               {}
            <Blob 0x21a58 [20] @>                            Δ-20               {[«20""»]}
            <POP 21a64-21a66 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x21a66 20>                                                    {[«20""»]|[$$MEM2 bad VAL bits =_]}
            <POP 21a76-21a78 StackAdj>                       Δ-4                {[«20""»]|[$$MEM2 bad VAL bits =_]|[-4-]}
            <MI 21a78  MOVE.L  (A6-0x20),(A7)>                                  {[«20""»]|[$$MEM2 bad VAL bits =_]|[4, '(A6-0x20)']}
            <MI 21a7c  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[«20""»]|[$$MEM2 bad VAL bits =_]|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <Call 0x21a80 0x20fea>                                              {[«20""»]|[$$MEM2 bad VAL bits =_]|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <POP 21a84-21a88 StackAdj>                       Δ+32               {}
            <Blob 0x21a88 [20] @>                            Δ-20               {[«20""»]}
            <POP 21a94-21a96 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x21a96 20>                                                    {[«20""»]|[$$MEM3 bad VAL bits =_]}
            <POP 21aa6-21aa8 StackAdj>                       Δ-4                {[«20""»]|[$$MEM3 bad VAL bits =_]|[-4-]}
            <MI 21aa8  MOVE.L  (A6-0x18),(A7)>                                  {[«20""»]|[$$MEM3 bad VAL bits =_]|[4, '(A6-0x18)']}
            <MI 21aac  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[«20""»]|[$$MEM3 bad VAL bits =_]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x21ab0 0x20fea>                                              {[«20""»]|[$$MEM3 bad VAL bits =_]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <POP 21ab4-21ab8 StackAdj>                       Δ+20               {[-12-]}
            <MI 21ab8  MOVE.L  (A6-0xc0),(A7)>                                  {[-8-]|[4, '(A6-0xc0)']}
            <MI 21abc  MOVE.L  (A6-0xc4),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']}
            <POP 21ac0-21ac2 StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']|[-8-]}
            <MI 21ac2  MOVE.L  (A6-0xc8),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']|[-8-]|[4, '(A6-0xc8)']}
            <MI 21ac6  MOVE.L  (A6-0xcc),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']|[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']}
            <POP 21aca-21acc StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']|[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[-8-]}
            <MI 21acc  MOVE.L  (A6-0xb8),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']|[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[-8-]|[4, '(A6-0xb8)']}
            <MI 21ad0  MOVE.L  (A6-0xbc),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']|[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[-8-]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']}
            <MI 21ad4  MOVE.L  (A6-0xb0),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']|[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[-8-]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']|[4, '(A6-0xb0)']}
            <MI 21ad8  MOVE.L  (A6-0xb4),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']|[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[-8-]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']|[4, '(A6-0xb0)']|[4, '(A6-0xb4)']}
            <Call 0x21adc 0x10334>                                              {[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']|[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[-8-]|[4, '(A6-0xb8)']|[4, '(A6-0xbc)']|[4, '(A6-0xb0)']|[4, '(A6-0xb4)']}
                BitOr(a, b : Quad) : Quad
            <POP 21ae2-21ae4 StackAdj>                       Δ+16               {[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']|[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[-8-]}
            <Call 0x21ae4 0x10334>                                              {[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']|[-8-]|[4, '(A6-0xc8)']|[4, '(A6-0xcc)']|[-8-]}
                BitOr(a, b : Quad) : Quad
            <POP 21aea-21aec StackAdj>                       Δ+16               {[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']|[-8-]}
            <Call 0x21aec 0x10334>                                              {[-8-]|[4, '(A6-0xc0)']|[4, '(A6-0xc4)']|[-8-]}
                BitOr(a, b : Quad) : Quad
            <POP 21af2-21af4 StackAdj>                       Δ+16               {[-8-]}
            <MI 21af4  MOVE.L  (A7)+,(A6-0xd4)>              Δ+4                {[-4-]}
            <MI 21af8  MOVE.L  (A7)+,(A6-0xd0)>              Δ+4                {}
            <MI 21afc  TST.B   (A6-0x5)>                                        {}
            <MI 21b00  BEQ     0x21b48>                                         {}
        <POP 21b02-21b20 Naked>                              Σ0         ↓ →0x21b48
            <POP 21b02-21b04 StackAdj>                       Δ-2                {[-2-]}
            <MI 21b04  MOVE.L  (A6-0xd0),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0xd0)']}
            <MI 21b08  MOVE.L  (A6-0xd4),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0xd0)']|[4, '(A6-0xd4)']}
            <Blob 0x21b0c [4] @>                             Δ-4                {[-2-]|[4, '(A6-0xd0)']|[4, '(A6-0xd4)']|[«4""»]}
            <Blob 0x21b10 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0xd0)']|[4, '(A6-0xd4)']|[«4""»]|[«4""»]}
            <Call 0x21b14 0x1032c>                                              {[-2-]|[4, '(A6-0xd0)']|[4, '(A6-0xd4)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 21b1a-21b1c StackAdj>                       Δ+16               {[-2-]}
            <MI 21b1c  TST.B   (A7)+>                        Δ+2                {}
            <MI 21b1e  BEQ     0x21b48>                                         {}
        <POP 21b20-21b48 Naked>                              Σ0         ↓
            <Blob 0x21b20 [18] @>                            Δ-18               {[«18""»]}
            <POP 21b2c-21b2e StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x21b2e 18>                                                    {[«18""»]|[$$FIU bus parity bad]}
            <Call 0x21b40 0x2074c>                                              {[«18""»]|[$$FIU bus parity bad]}
            <POP 21b44-21b48 StackAdj>                       Δ+22               {}
        <POP 21b48-21b8c Naked>                              Σ0         ↓ ←0x216fc ←0x21b02
            <POP 21b48-21b4a StackAdj>                       Δ-8                {[-8-]}
            <MI 21b4a  MOVE.L  (A6-0x98),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x98)']}
            <MI 21b4e  MOVE.L  (A6-0x9c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']}
            <POP 21b52-21b54 StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[-8-]}
            <MI 21b54  MOVE.L  (A6-0x88),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[-8-]|[4, '(A6-0x88)']}
            <MI 21b58  MOVE.L  (A6-0x8c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']}
            <POP 21b5c-21b5e StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']|[-8-]}
            <MI 21b5e  MOVE.L  (A6-0x80),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']|[-8-]|[4, '(A6-0x80)']}
            <MI 21b60  MOVE.L  (A6-0x84),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']|[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']}
            <MI 21b62  MOVE.L  (A6-0x90),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']|[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[4, '(A6-0x90)']}
            <MI 21b66  MOVE.L  (A6-0x94),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']|[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[4, '(A6-0x90)']|[4, '(A6-0x94)']}
            <Call 0x21b6a 0x10334>                                              {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']|[-8-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[4, '(A6-0x90)']|[4, '(A6-0x94)']}
                BitOr(a, b : Quad) : Quad
            <POP 21b70-21b72 StackAdj>                       Δ+16               {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']|[-8-]}
            <Call 0x21b72 0x10334>                                              {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[-8-]|[4, '(A6-0x88)']|[4, '(A6-0x8c)']|[-8-]}
                BitOr(a, b : Quad) : Quad
            <POP 21b78-21b7a StackAdj>                       Δ+16               {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[-8-]}
            <Call 0x21b7a 0x10334>                                              {[-8-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[-8-]}
                BitOr(a, b : Quad) : Quad
            <POP 21b80-21b82 StackAdj>                       Δ+16               {[-8-]}
            <MI 21b82  MOVE.L  (A7)+,(A6-0xa4)>              Δ+4                {[-4-]}
            <MI 21b86  MOVE.L  (A7)+,(A6-0xa0)>              Δ+4                {}
            <MI 21b8a  MOVEQ.L #0x0c,D7>                                        {}
        <POP 21b8c-21bc8 Naked>                              Σ0         ↓ →0x21b8c ←0x21b8c
            <POP 21b8c-21b8e StackAdj>                       Δ-8                {[-8-]}
            <MI 21b8e  MOVE.L  (A6-0xa0),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xa0)']}
            <MI 21b92  MOVE.L  (A6-0xa4),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0xa0)']|[4, '(A6-0xa4)']}
            <MI 21b96  MOVE.B  D7,D0>                                           {[-8-]|[4, '(A6-0xa0)']|[4, '(A6-0xa4)']}
            <MI 21b98  EXTB.W  D0>                                              {[-8-]|[4, '(A6-0xa0)']|[4, '(A6-0xa4)']}
            <MI 21b9a  SUBI.W  #0x000c,D0>                                      {[-8-]|[4, '(A6-0xa0)']|[4, '(A6-0xa4)']}
            <POP 0x21b9e LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {[-8-]|[4, '(A6-0xa0)']|[4, '(A6-0xa4)']}
            <MI 21ba2  ASL.W   #0x3,D0>                                         {[-8-]|[4, '(A6-0xa0)']|[4, '(A6-0xa4)']}
            <MI 21ba4  LEA.L   (A6-0xdc),A0>                                    {[-8-]|[4, '(A6-0xa0)']|[4, '(A6-0xa4)']}
            <MI 21ba8  MOVE.L  (A0+D0.W+#0x64),-(A7)>        Δ-4                {[-8-]|[4, '(A6-0xa0)']|[4, '(A6-0xa4)']|[4, '(A0+D0.W+#0x64)']}
            <MI 21bac  MOVE.L  (A0+D0.W+#0x60),-(A7)>        Δ-4                {[-8-]|[4, '(A6-0xa0)']|[4, '(A6-0xa4)']|[4, '(A0+D0.W+#0x64)']|[4, '(A0+D0.W+#0x60)']}
            <Call 0x21bb0 0x10334>                                              {[-8-]|[4, '(A6-0xa0)']|[4, '(A6-0xa4)']|[4, '(A0+D0.W+#0x64)']|[4, '(A0+D0.W+#0x60)']}
                BitOr(a, b : Quad) : Quad
            <POP 21bb6-21bb8 StackAdj>                       Δ+16               {[-8-]}
            <MI 21bb8  MOVE.L  (A7)+,(A6-0xa4)>              Δ+4                {[-4-]}
            <MI 21bbc  MOVE.L  (A7)+,(A6-0xa0)>              Δ+4                {}
            <MI 21bc0  ADDQ.B  #0x1,D7>                                         {}
            <MI 21bc2  CMPI.B  #0x0f,D7>                                        {}
            <MI 21bc6  BLE     0x21b8c>                                         {}
        <POP 21bc8-21bce Naked>                              Σ0         ↓ →0x21c14
            <MI 21bc8  TST.B   (A6-0x4)>                                        {}
            <MI 21bcc  BEQ     0x21c14>                                         {}
        <POP 21bce-21bec Naked>                              Σ0         ↓ →0x21c14
            <POP 21bce-21bd0 StackAdj>                       Δ-2                {[-2-]}
            <MI 21bd0  MOVE.L  (A6-0xa0),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0xa0)']}
            <MI 21bd4  MOVE.L  (A6-0xa4),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0xa0)']|[4, '(A6-0xa4)']}
            <Blob 0x21bd8 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0xa0)']|[4, '(A6-0xa4)']|[«4""»]}
            <Blob 0x21bdc [4] @>                             Δ-4                {[-2-]|[4, '(A6-0xa0)']|[4, '(A6-0xa4)']|[«4""»]|[«4""»]}
            <Call 0x21be0 0x1032c>                                              {[-2-]|[4, '(A6-0xa0)']|[4, '(A6-0xa4)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 21be6-21be8 StackAdj>                       Δ+16               {[-2-]}
            <MI 21be8  TST.B   (A7)+>                        Δ+2                {}
            <MI 21bea  BEQ     0x21c14>                                         {}
        <POP 21bec-21c14 Naked>                              Σ0         ↓
            <Blob 0x21bec [18] @>                            Δ-18               {[«18""»]}
            <POP 21bf8-21bfa StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x21bfa 18>                                                    {[«18""»]|[$$TYP bus parity bad]}
            <Call 0x21c0c 0x2074c>                                              {[«18""»]|[$$TYP bus parity bad]}
            <POP 21c10-21c14 StackAdj>                       Δ+22               {}
        <POP 21c14-21c5c Naked>                              Σ0         ↓ ←0x21bc8 ←0x21bce
            <POP 21c14-21c16 StackAdj>                       Δ-8                {[-8-]}
            <MI 21c16  MOVE.L  (A6-0x50),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x50)']}
            <MI 21c1a  MOVE.L  (A6-0x54),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']}
            <POP 21c1e-21c20 StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[-8-]}
            <MI 21c20  MOVE.L  (A6-0x40),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[-8-]|[4, '(A6-0x40)']}
            <MI 21c24  MOVE.L  (A6-0x44),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']}
            <POP 21c28-21c2a StackAdj>                       Δ-8                {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']|[-8-]}
            <MI 21c2a  MOVE.L  (A6-0x38),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']|[-8-]|[4, '(A6-0x38)']}
            <MI 21c2e  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']|[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']}
            <MI 21c32  MOVE.L  (A6-0x48),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']|[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[4, '(A6-0x48)']}
            <MI 21c36  MOVE.L  (A6-0x4c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']|[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[4, '(A6-0x48)']|[4, '(A6-0x4c)']}
            <Call 0x21c3a 0x10334>                                              {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']|[-8-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[4, '(A6-0x48)']|[4, '(A6-0x4c)']}
                BitOr(a, b : Quad) : Quad
            <POP 21c40-21c42 StackAdj>                       Δ+16               {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']|[-8-]}
            <Call 0x21c42 0x10334>                                              {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[-8-]|[4, '(A6-0x40)']|[4, '(A6-0x44)']|[-8-]}
                BitOr(a, b : Quad) : Quad
            <POP 21c48-21c4a StackAdj>                       Δ+16               {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[-8-]}
            <Call 0x21c4a 0x10334>                                              {[-8-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[-8-]}
                BitOr(a, b : Quad) : Quad
            <POP 21c50-21c52 StackAdj>                       Δ+16               {[-8-]}
            <MI 21c52  MOVE.L  (A7)+,(A6-0x5c)>              Δ+4                {[-4-]}
            <MI 21c56  MOVE.L  (A7)+,(A6-0x58)>              Δ+4                {}
            <MI 21c5a  MOVEQ.L #0x0c,D7>                                        {}
        <POP 21c5c-21c9c Naked>                              Σ0         ↓ →0x21c5c ←0x21c5c
            <POP 21c5c-21c5e StackAdj>                       Δ-8                {[-8-]}
            <MI 21c5e  MOVE.L  (A6-0x58),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x58)']}
            <MI 21c62  MOVE.L  (A6-0x5c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']}
            <MI 21c66  MOVE.B  D7,D0>                                           {[-8-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']}
            <MI 21c68  EXTB.W  D0>                                              {[-8-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']}
            <MI 21c6a  SUBI.W  #0x000c,D0>                                      {[-8-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']}
            <POP 0x21c6e LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {[-8-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']}
            <MI 21c72  ASL.W   #0x3,D0>                                         {[-8-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']}
            <MI 21c74  LEA.L   (A6-0xdc),A0>                                    {[-8-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']}
            <MI 21c78  LEA.L   (A0+D0.W),A0>                                    {[-8-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']}
            <MI 21c7c  MOVE.L  (A0+0xac),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']|[4, '(A0+0xac)']}
            <MI 21c80  MOVE.L  (A0+0xa8),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']|[4, '(A0+0xac)']|[4, '(A0+0xa8)']}
            <Call 0x21c84 0x10334>                                              {[-8-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']|[4, '(A0+0xac)']|[4, '(A0+0xa8)']}
                BitOr(a, b : Quad) : Quad
            <POP 21c8a-21c8c StackAdj>                       Δ+16               {[-8-]}
            <MI 21c8c  MOVE.L  (A7)+,(A6-0x5c)>              Δ+4                {[-4-]}
            <MI 21c90  MOVE.L  (A7)+,(A6-0x58)>              Δ+4                {}
            <MI 21c94  ADDQ.B  #0x1,D7>                                         {}
            <MI 21c96  CMPI.B  #0x0f,D7>                                        {}
            <MI 21c9a  BLE     0x21c5c>                                         {}
        <POP 21c9c-21ca2 Naked>                              Σ0         ↓ →0x21ce8
            <MI 21c9c  TST.B   (A6-0x3)>                                        {}
            <MI 21ca0  BEQ     0x21ce8>                                         {}
        <POP 21ca2-21cc0 Naked>                              Σ0         ↓ →0x21ce8
            <POP 21ca2-21ca4 StackAdj>                       Δ-2                {[-2-]}
            <MI 21ca4  MOVE.L  (A6-0x58),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x58)']}
            <MI 21ca8  MOVE.L  (A6-0x5c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']}
            <Blob 0x21cac [4] @>                             Δ-4                {[-2-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']|[«4""»]}
            <Blob 0x21cb0 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']|[«4""»]|[«4""»]}
            <Call 0x21cb4 0x1032c>                                              {[-2-]|[4, '(A6-0x58)']|[4, '(A6-0x5c)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 21cba-21cbc StackAdj>                       Δ+16               {[-2-]}
            <MI 21cbc  TST.B   (A7)+>                        Δ+2                {}
            <MI 21cbe  BEQ     0x21ce8>                                         {}
        <POP 21cc0-21ce8 Naked>                              Σ0         ↓
            <Blob 0x21cc0 [18] @>                            Δ-18               {[«18""»]}
            <POP 21ccc-21cce StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x21cce 18>                                                    {[«18""»]|[$$VAL bus parity bad]}
            <Call 0x21ce0 0x2074c>                                              {[«18""»]|[$$VAL bus parity bad]}
            <POP 21ce4-21ce8 StackAdj>                       Δ+22               {}
        <POP 21ce8-21cee Naked>                              Σ0         ↓ ←0x21c9c ←0x21ca2
            <MI 21ce8  MOVEQ.L #0x01,D5>                                        {}
            <MI 21cea  MOVEQ.L #0x3c,D6>                                        {}
            <MI 21cec  MOVEQ.L #0x0c,D7>                                        {}
        <POP 21cee-21cfe Naked>                              Σ0         ↓ →0x21d18 ←0x21d7c
            <POP 21cee-21cf0 StackAdj>                       Δ-2                {[-2-]}
            <MI 21cf0  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x21cf2 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 21cf8-21cfa StackAdj>                       Δ+2                {[-2-]}
            <MI 21cfa  TST.B   (A7)+>                        Δ+2                {}
            <MI 21cfc  BNE     0x21d18>                                         {}
        <POP 21cfe-21d18 Naked>                              Σ0         →0x21d7c
            <MI 21cfe  MOVE.B  D7,D0>                                           {}
            <MI 21d00  EXTB.W  D0>                                              {}
            <MI 21d02  SUBI.W  #0x000c,D0>                                      {}
            <POP 0x21d06 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21d0a  LEA.L   (A6-0xdc),A0>                                    {}
            <MI 21d0e  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 21d12  CLR.B   (A0+0xd0)>                                       {}
            <MI 21d16  BRA     0x21d7c>                                         {}
        <POP 21d18-21d48 Naked>                              Σ0         ↓ →0x21d62 ←0x21cee
            <POP 21d18-21d1c StackAdj>                       Δ-10               {[-10-]}
            <MI 21d1c  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x10)']}
            <MI 21d20  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-10-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <MI 21d24  MOVE.L  D6,-(A7)>                     Δ-4                {[-10-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[4, 'D6']}
            <Const 0x21d26 0x1.4>                            Δ-4                {[-10-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[4, 'D6']|[##1]}
            <Call 0x21d2a 0x1034c>                                              {[-10-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[4, 'D6']|[##1]}
                FSCALL_1034c
            <POP 21d30-21d34 StackAdj>                       Δ+12               {[-10-]|[4, '(A6-0x10)']}
            <POP 21d34-21d35 StackAdj>                       Δ+4                {[-10-]}
            <Blob 0x21d35 [4] @>                             Δ-4                {[-10-]|[«4""»]}
            <Blob 0x21d38 [4] @>                             Δ-4                {[-10-]|[«4""»]|[«4""»]}
            <Call 0x21d3c 0x1032c>                                              {[-10-]|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 21d42-21d44 StackAdj>                       Δ+16               {[-2-]}
            <MI 21d44  TST.B   (A7)+>                        Δ+2                {}
            <MI 21d46  BNE     0x21d62>                                         {}
        <POP 21d48-21d62 Naked>                              Σ0         →0x21d7c
            <MI 21d48  MOVE.B  D7,D0>                                           {}
            <MI 21d4a  EXTB.W  D0>                                              {}
            <MI 21d4c  SUBI.W  #0x000c,D0>                                      {}
            <POP 0x21d50 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21d54  LEA.L   (A6-0xdc),A0>                                    {}
            <MI 21d58  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 21d5c  MOVE.B  #0x01,(A0+0xd0)>                                 {}
            <MI 21d60  BRA     0x21d7c>                                         {}
        <POP 21d62-21d7c Naked>                              Σ0         ↓ ←0x21d18
            <MI 21d62  MOVE.B  D7,D0>                                           {}
            <MI 21d64  EXTB.W  D0>                                              {}
            <MI 21d66  SUBI.W  #0x000c,D0>                                      {}
            <POP 0x21d6a LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21d6e  LEA.L   (A6-0xdc),A0>                                    {}
            <MI 21d72  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 21d76  CLR.B   (A0+0xd0)>                                       {}
            <MI 21d7a  MOVEQ.L #0x00,D5>                                        {}
        <POP 21d7c-21d88 Naked>                              Σ0         ↓ →0x21cee ←0x21cfe ←0x21d48
            <MI 21d7c  ADDQ.L  #0x1,D6>                                         {}
            <MI 21d7e  ADDQ.B  #0x1,D7>                                         {}
            <MI 21d80  CMPI.B  #0x0f,D7>                                        {}
            <MI 21d84  BLE     0x21cee>                                         {}
        <POP 21d88-21da8 Naked>                              Σ0         ↓ →0x21eee
            <POP 21d88-21d8a StackAdj>                       Δ-2                {[-2-]}
            <MI 21d8a  MOVE.L  (A6-0x98),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x98)']}
            <MI 21d8e  MOVE.L  (A6-0x9c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']}
            <Blob 0x21d92 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[«4""»]}
            <Blob 0x21d96 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[«4""»]|[«4""»]}
            <Call 0x21d9a 0x1032c>                                              {[-2-]|[4, '(A6-0x98)']|[4, '(A6-0x9c)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 21da0-21da2 StackAdj>                       Δ+16               {[-2-]}
            <MI 21da2  TST.B   (A7)+>                        Δ+2                {}
            <MI 21da4  BEQ     0x21eee>                                         {}
        <POP 21da8-21dc8 Naked>                              Σ0         ↓ →0x21eee
            <POP 21da8-21daa StackAdj>                       Δ-2                {[-2-]}
            <MI 21daa  MOVE.L  (A6-0x50),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x50)']}
            <MI 21dae  MOVE.L  (A6-0x54),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']}
            <Blob 0x21db2 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[«4""»]}
            <Blob 0x21db6 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[«4""»]|[«4""»]}
            <Call 0x21dba 0x1032c>                                              {[-2-]|[4, '(A6-0x50)']|[4, '(A6-0x54)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 21dc0-21dc2 StackAdj>                       Δ+16               {[-2-]}
            <MI 21dc2  TST.B   (A7)+>                        Δ+2                {}
            <MI 21dc4  BEQ     0x21eee>                                         {}
        <POP 21dc8-21de4 Naked>                              Σ0         ↓ →0x21eee
            <POP 21dc8-21dca StackAdj>                       Δ-2                {[-2-]}
            <MI 21dca  MOVE.L  (A6-0x80),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x80)']}
            <MI 21dcc  MOVE.L  (A6-0x84),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']}
            <Blob 0x21dce [4] @>                             Δ-4                {[-2-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[«4""»]}
            <Blob 0x21dd2 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[«4""»]|[«4""»]}
            <Call 0x21dd6 0x1032c>                                              {[-2-]|[4, '(A6-0x80)']|[4, '(A6-0x84)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 21ddc-21dde StackAdj>                       Δ+16               {[-2-]}
            <MI 21dde  TST.B   (A7)+>                        Δ+2                {}
            <MI 21de0  BEQ     0x21eee>                                         {}
        <POP 21de4-21e04 Naked>                              Σ0         ↓ →0x21eee
            <POP 21de4-21de6 StackAdj>                       Δ-2                {[-2-]}
            <MI 21de6  MOVE.L  (A6-0x38),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x38)']}
            <MI 21dea  MOVE.L  (A6-0x3c),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']}
            <Blob 0x21dee [4] @>                             Δ-4                {[-2-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[«4""»]}
            <Blob 0x21df2 [4] @>                             Δ-4                {[-2-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[«4""»]|[«4""»]}
            <Call 0x21df6 0x1032c>                                              {[-2-]|[4, '(A6-0x38)']|[4, '(A6-0x3c)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 21dfc-21dfe StackAdj>                       Δ+16               {[-2-]}
            <MI 21dfe  TST.B   (A7)+>                        Δ+2                {}
            <MI 21e00  BEQ     0x21eee>                                         {}
        <POP 21e04-21e08 Naked>                              Σ0         ↓ →0x21e34
            <MI 21e04  TST.B   D5>                                              {}
            <MI 21e06  BEQ     0x21e34>                                         {}
        <POP 21e08-21e34 Naked>                              Σ0         →0x21eee
            <Blob 0x21e08 [36] @>                            Δ-36               {[«36""»]}
            <POP 21e14-21e16 StackAdj>                       Δ-4                {[«36""»]|[-4-]}
            <Lit 0x21e16 36>                                                    {[«36""»]|[$$Bad checkbits on IOC or all MEMories]}
            <Call 0x21e28 0x2074c>                                              {[«36""»]|[$$Bad checkbits on IOC or all MEMories]}
            <POP 21e2c-21e30 StackAdj>                       Δ+40               {}
            <MI 21e30  BRA     0x21eee>                                         {}
        <POP 21e34-21e36 Naked>                              Σ0         ↓ ←0x21e04
            <MI 21e34  MOVEQ.L #0x0c,D7>                                        {}
        <POP 21e36-21e5a Naked>                              Σ0         ↓ →0x21ee4 ←0x21ee4
            <MI 21e36  MOVE.B  D7,D0>                                           {}
            <MI 21e38  EXTB.W  D0>                                              {}
            <MI 21e3a  SUBI.W  #0x000c,D0>                                      {}
            <POP 0x21e3e LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21e42  MOVE.W  D0,D1>                                           {}
            <MI 21e44  ASL.W   #0x3,D1>                                         {}
            <MI 21e46  LEA.L   (A6-0xdc),A0>                                    {}
            <MI 21e4a  LEA.L   (A6-0xdc),A1>                                    {}
            <MI 21e4e  LEA.L   (A1+D0.W),A1>                                    {}
            <MI 21e52  TST.B   (A1+0xd0)>                                       {}
            <MI 21e56  BEQ     0x21ee4>                                         {}
        <POP 21e5a-21e78 Naked>                              Σ0         ↓ →0x21ee4
            <POP 21e5a-21e5c StackAdj>                       Δ-2                {[-2-]}
            <MI 21e5c  MOVE.L  (A0+D1.W+#0x64),-(A7)>        Δ-4                {[-2-]|[4, '(A0+D1.W+#0x64)']}
            <MI 21e60  MOVE.L  (A0+D1.W+#0x60),-(A7)>        Δ-4                {[-2-]|[4, '(A0+D1.W+#0x64)']|[4, '(A0+D1.W+#0x60)']}
            <Blob 0x21e64 [4] @>                             Δ-4                {[-2-]|[4, '(A0+D1.W+#0x64)']|[4, '(A0+D1.W+#0x60)']|[«4""»]}
            <Blob 0x21e68 [4] @>                             Δ-4                {[-2-]|[4, '(A0+D1.W+#0x64)']|[4, '(A0+D1.W+#0x60)']|[«4""»]|[«4""»]}
            <Call 0x21e6c 0x1032c>                                              {[-2-]|[4, '(A0+D1.W+#0x64)']|[4, '(A0+D1.W+#0x60)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 21e72-21e74 StackAdj>                       Δ+16               {[-2-]}
            <MI 21e74  TST.B   (A7)+>                        Δ+2                {}
            <MI 21e76  BEQ     0x21ee4>                                         {}
        <POP 21e78-21e9a Naked>                              Σ0         ↓ →0x21ee4
            <POP 21e78-21e7a StackAdj>                       Δ-2                {[-2-]}
            <MI 21e7a  LEA.L   (A0+D1.W),A0>                                    {[-2-]}
            <MI 21e7e  MOVE.L  (A0+0xac),-(A7)>              Δ-4                {[-2-]|[4, '(A0+0xac)']}
            <MI 21e82  MOVE.L  (A0+0xa8),-(A7)>              Δ-4                {[-2-]|[4, '(A0+0xac)']|[4, '(A0+0xa8)']}
            <Blob 0x21e86 [4] @>                             Δ-4                {[-2-]|[4, '(A0+0xac)']|[4, '(A0+0xa8)']|[«4""»]}
            <Blob 0x21e8a [4] @>                             Δ-4                {[-2-]|[4, '(A0+0xac)']|[4, '(A0+0xa8)']|[«4""»]|[«4""»]}
            <Call 0x21e8e 0x1032c>                                              {[-2-]|[4, '(A0+0xac)']|[4, '(A0+0xa8)']|[«4""»]|[«4""»]}
                IsEqual(a, b : Quad) : Bool
            <POP 21e94-21e96 StackAdj>                       Δ+16               {[-2-]}
            <MI 21e96  TST.B   (A7)+>                        Δ+2                {}
            <MI 21e98  BEQ     0x21ee4>                                         {}
        <POP 21e9a-21ee4 Naked>                              Σ0         ↓
            <Blob 0x21e9a [24] @>                            Δ-24               {[«24""»]}
            <POP 21eac-21eae StackAdj>                       Δ-8                {[«24""»]|[-8-]}
            <Lit 0x21eae 23>                                                    {[«24""»]|[-4-]|[$$Bad checkbit on memory_]}
            <POP 21ebe-21ec0 StackAdj>                       Δ-4                {[«24""»]|[-4-]|[$$Bad checkbit on memory_]|[-4-]}
            <MI 21ec0  MOVE.B  D7,D0>                                           {[«24""»]|[-4-]|[$$Bad checkbit on memory_]|[-4-]}
            <MI 21ec2  EXTB.W  D0>                                              {[«24""»]|[-4-]|[$$Bad checkbit on memory_]|[-4-]}
            <MI 21ec4  SUBI.W  #0x000c,D0>                                      {[«24""»]|[-4-]|[$$Bad checkbit on memory_]|[-4-]}
            <MI 21ec8  EXTW.L  D0>                                              {[«24""»]|[-4-]|[$$Bad checkbit on memory_]|[-4-]}
            <MI 21eca  MOVE.L  D0,-(A7)>                     Δ-4                {[«24""»]|[-4-]|[$$Bad checkbit on memory_]|[-4-]|[4, 'D0']}
            <Call 0x21ecc 0x102e4>                                              {[«24""»]|[-4-]|[$$Bad checkbit on memory_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 21ed2-21ed4 StackAdj>                       Δ+4                {[«24""»]|[-4-]|[$$Bad checkbit on memory_]|[-4-]}
            <Call 0x21ed4 0x102d0>                                              {[«24""»]|[-4-]|[$$Bad checkbit on memory_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21eda-21edc StackAdj>                       Δ+8                {[«24""»]|[-4-]}
            <Call 0x21edc 0x2074c>                                              {[«24""»]|[-4-]}
            <POP 21ee0-21ee4 StackAdj>                       Δ+28               {}
        <POP 21ee4-21eee Naked>                              Σ0         ↓ →0x21e36 ←0x21e36 ←0x21e5a ←0x21e78
            <MI 21ee4  ADDQ.B  #0x1,D7>                                         {}
            <MI 21ee6  CMPI.B  #0x0f,D7>                                        {}
            <MI 21eea  BLE     0x21e36>                                         {}
        <POP 21eee-21ef6 Epilogue>                           Σ0         ←0x21d88 ←0x21da8 ←0x21dc8 ←0x21de4 ←0x21e08

0x21ef6


@ 21ef6
START
    <POP 21ef6--0001 Body>                                              
        <POP 21ef6-21f00 Prologue>                           Σ0         
        <POP 21f00-21f1a RegCacheLoad>                       Σ0         ↓
        <POP 21f1a-21f32 Naked>                              Σ0         ↓ →0x21f34
            <Call 0x21f1a 0x10398>                                              {}
                FSCALL_10398
            <POP 21f20-21f22 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x21f22 0x103c4>                                              {[-4-]}
                GetArgv() : String
            <MI 21f28  MOVE.L  (A7)+,0x226c6>                Δ+4                {}
            <MI 21f2a  CLR.B   0x226b0>                                         {}
            <MI 21f2c  MOVEA.L 0x226c6,A0>                                      {}
            <MI 21f2e  TST.W   (A0)>                                            {}
            <MI 21f30  BEQ     0x21f34>                                         {}
        <POP 21f32-21f34 Naked>                              Σ0         ↓
            <MI 21f32  ADDQ.B  #0x1,0x226b0>                                    {}
        <POP 21f34-21f42 Naked>                              Σ0         ↓ →0x21f4a ←0x21f1a
            <Const 0x21f34 0x226c6.4>                        Δ-4                {[##140998]}
            <Call 0x21f36 0x102bc>                                              {[##140998]}
                FreeString(VAR a : String)
            <POP 21f3c-21f3e StackAdj>                       Δ+4                {}
            <MI 21f3e  TST.B   0x226b0>                                         {}
            <MI 21f40  BEQ     0x21f4a>                                         {}
        <POP 21f42-21f4a Naked>                              Σ0         →0x21f5e
            <MI 21f42  MOVE.B  #0x01,0x226c3>                                   {}
            <MI 21f48  BRA     0x21f5e>                                         {}
        <POP 21f4a-21f5e Naked>                              Σ0         ↓ ←0x21f34
            <Const 0x21f4a 0x226c2.4>                        Δ-4                {[##140994]}
            <Const 0x21f50 0x226c3.4>                        Δ-4                {[##140994]|[##140995]}
            <Call 0x21f56 0x10544>                                              {[##140994]|[##140995]}
                IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
            <POP 21f5c-21f5e StackAdj>                       Δ+8                {}
        <POP 21f5e-21f80 Naked>                              Σ0         ↓ ←0x21f42
            <Const 0x21f5e 0xf.4>                            Δ-4                {[##15]}
            <Call 0x21f62 0x104d8>                                              {[##15]}
                ExpInit(a : Long)
            <POP 21f68-21f6a StackAdj>                       Δ+4                {}
            <MI 21f6a  MOVE.B  0x226c3,D0>                                      {}
            <MI 21f70  EXTB.W  D0>                                              {}
            <POP 0x21f72 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21f74  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x21f76 0x104d2>                                              {[2, 'D0']}
                SetExpInitDone(a : Byte)
            <POP 21f7c-21f7e StackAdj>                       Δ+2                {}
            <MI 21f7e  MOVEQ.L #0x00,D0>                                        {}
        <POP 21f80-21f9c Naked>                              Σ0         ↓ →0x21f80 ←0x21f80
            <MI 21f80  MOVE.L  D0,0x226be>                                      {}
            <POP 0x21f86 LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {}
            <MI 21f8c  LEA.L   0x226a0,A0>                                      {}
            <MI 21f92  CLR.B   (A0+D0.L+#0x11)>                                 {}
            <MI 21f96  ADDQ.L  #0x1,D0>                                         {}
            <MI 21f98  CMP.L   #0x07,D0>                                        {}
            <MI 21f9a  BLE     0x21f80>                                         {}
        <POP 21f9c-22004 Naked>                              Σ0         ↓
            <Blob 0x21f9c [18] @>                            Δ-18               {[«18""»]}
            <MI 21fae  CLR.B   -(A7)>                        Δ-2                {[«18""»]|[#0]}
            <POP 21fb0-21fb2 StackAdj>                       Δ-4                {[«18""»]|[#0]|[-4-]}
            <Lit 0x21fb2 17>                                                    {[«18""»]|[#0]|[$$FPTEST.M200_UCODE]}
            <POP 21fc2-21fc4 StackAdj>                       Δ-2                {[«18""»]|[#0]|[$$FPTEST.M200_UCODE]|[-2-]}
            <POP 21fc4-21fc5 StackAdj>                       Δ+2                {[«18""»]|[#0]|[$$FPTEST.M200_UCODE]}
            <Const 0x21fc5 0x1.2>                            Δ-2                {[«18""»]|[#0]|[$$FPTEST.M200_UCODE]|[#1]}
            <Const 0x21fc6 0x1.2>                            Δ-2                {[«18""»]|[#0]|[$$FPTEST.M200_UCODE]|[#1]|[#1]}
            <Const 0x21fc8 0x1.2>                            Δ-2                {[«18""»]|[#0]|[$$FPTEST.M200_UCODE]|[#1]|[#1]|[#1]}
            <Const 0x21fca 0x226c4.4>                        Δ-4                {[«18""»]|[#0]|[$$FPTEST.M200_UCODE]|[#1]|[#1]|[#1]|[##140996]}
            <Call 0x21fd0 0x20684>                                              {[«18""»]|[#0]|[$$FPTEST.M200_UCODE]|[#1]|[#1]|[#1]|[##140996]}
            <POP 21fd4-21fd8 StackAdj>                       Δ+34               {}
            <Blob 0x21fd8 [4] @>                             Δ-4                {[«4""»]}
            <POP 21fdc-21fde StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x21fde 4>                                                     {[«4""»]|[$$P2FP]}
            <MI 21fee  MOVE.L  (A7)+,0x226ba>                Δ+4                {[«4""»]}
            <POP 21ff4-21ff6 StackAdj>                       Δ+4                {}
            <Const 0x21ff6 0x226ac.4>                        Δ-4                {[##140972]}
            <Call 0x21ffc 0x102b8>                                              {[##140972]}
                NewString(VAR a : String)
            <POP 22002-22004 StackAdj>                       Δ+4                {}
        <POP 22004-2200c Naked>                              Σ0         ↓ →0x22010 ←0x22052
            <Call 0x22004 0x211b8>                                              {}
            <MI 22008  TST.B   0x226b0>                                         {}
            <MI 2200a  BEQ     0x22010>                                         {}
        <POP 2200c-22010 Naked>                              Σ0         ↓ →0x22018
            <MI 2200c  TST.L   0x226a8>                                         {}
            <MI 2200e  BNE     0x22018>                                         {}
        <POP 22010-22018 Naked>                              Σ0         →0x22052 ←0x22004
            <MI 22010  MOVE.B  #0x01,0x226c5>                                   {}
            <MI 22016  BRA     0x22052>                                         {}
        <POP 22018-22052 Naked>                              Σ0         ↓ ←0x2200c
            <Blob 0x22018 [10] @>                            Δ-10               {[«10""»]}
            <POP 22024-22026 StackAdj>                       Δ-6                {[«10""»]|[-6-]}
            <Lit 0x22026 10>                                                    {[«10""»]|[-2-]|[$$TEST AGAIN]}
            <POP 22034-22036 StackAdj>                       Δ-2                {[«10""»]|[-2-]|[$$TEST AGAIN]|[-2-]}
            <POP 22036-22037 StackAdj>                       Δ+2                {[«10""»]|[-2-]|[$$TEST AGAIN]}
            <Const 0x22037 0x1.2>                            Δ-2                {[«10""»]|[-2-]|[$$TEST AGAIN]|[#1]}
            <Call 0x22038 0x103f0>                                              {[«10""»]|[-2-]|[$$TEST AGAIN]|[#1]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 2203e-22040 StackAdj>                       Δ+6                {[«10""»]|[-2-]}
            <MI 22040  MOVE.B  (A7)+,D0>                     Δ+2                {[«10""»]}
            <MI 22042  NEG.B   D0>                                              {[«10""»]}
            <MI 22044  ADDQ.B  #0x1,D0>                                         {[«10""»]}
            <POP 22046-22048 StackAdj>                       Δ+10               {}
            <MI 22048  EXTB.W  D0>                                              {}
            <POP 0x2204a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 2204c  MOVE.B  D0,0x226c5>                                      {}
        <POP 22052-2205a Naked>                              Σ0         ↓ →0x22004 ←0x22010
            <MI 22052  TST.B   0x226c5>                                         {}
            <MI 22058  BEQ     0x22004>                                         {}
        <POP 2205a-22070 Naked>                              Σ0         ↓ →0x22078
            <Blob 0x2205a [4] @>                             Δ-4                {[«4""»]}
            <Const 0x22060 0x5c.2>                           Δ-2                {[«4""»]|[#92]}
            <Call 0x22064 0x102c0>                                              {[«4""»]|[#92]}
                AppendChar(MOD b : String; a : char)
            <POP 2206a-2206c StackAdj>                       Δ+6                {}
            <MI 2206c  TST.L   0x226a8>                                         {}
            <MI 2206e  BNE     0x22078>                                         {}
        <POP 22070-22078 Naked>                              Σ0         →0x22086
            <MI 22070  CLR.B   0x226b9>                                         {}
            <MI 22076  BRA     0x22086>                                         {}
        <POP 22078-22086 Naked>                              Σ0         ↓ ←0x2205a
            <MI 22078  MOVE.B  #0x25,0x226b1>                                   {}
            <MI 22080  MOVE.B  #0x04,0x226b9>                                   {}
        <POP 22086-2208a Naked>                              Σ0         ↓ →0x220c6 ←0x22070
            <MI 22086  TST.B   0x226b0>                                         {}
            <MI 22088  BEQ     0x220c6>                                         {}
        <POP 2208a-2208e Naked>                              Σ0         ↓ →0x220c6
            <MI 2208a  TST.L   0x226a8>                                         {}
            <MI 2208c  BNE     0x220c6>                                         {}
        <POP 2208e-220c6 Naked>                              Σ0         ↓
            <Blob 0x2208e [22] @>                            Δ-22               {[«22""»]}
            <POP 2209a-2209c StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x2209c 22>                                                    {[«22""»]|[$$Foreplane test passed!]}
            <Call 0x220ae 0x103e0>                                              {[«22""»]|[$$Foreplane test passed!]}
                WriteConsoleStringCrLf(str : String)
            <POP 220b4-220b8 StackAdj>                       Δ+24               {[-2-]}
            <MI 220b8  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x220ba 0x1.4>                            Δ-4                {[-2-]|[##1]}
            <Call 0x220be 0x103b8>                                              {[-2-]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 220c4-220c6 StackAdj>                       Δ+6                {}
        <POP 220c6-220cc Naked>                              Σ0 Δ-2     ↓ →0x220ce ←0x22086 ←0x2208a
            <MI 220c6  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 220c8  TST.L   0x226a8>                                         {[#0]}
            <MI 220ca  BNE     0x220ce>                                         {[#0]}
        <POP 220cc-220ce Naked>                              Σ-2        ↓
            <MI 220cc  ADDQ.B  #0x1,(A7)>                                       {[-2-]}
        <POP 220ce-220fc Naked>                              Σ-2 Δ+2    ↓ ←0x220c6
            <Blob 0x220ce [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x220d4 [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
            <Blob 0x220da [2] @>                             Δ-2                {[-2-]|[«4""»]|[«4""»]|[«2""»]}
            <Blob 0x220e0 [8] @>                             Δ-8                {[-2-]|[«4""»]|[«4""»]|[«2""»]|[«8""»]}
            <Call 0x220f2 0x1054a>                                              {[-2-]|[«4""»]|[«4""»]|[«2""»]|[«8""»]}
                ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
            <POP 220f8-220fc StackAdj>                       Δ+20               {}
        <POP 220fc-22102 Naked>                              Σ0         
            <Call 0x220fc 0x10284>                                              {}
                ?exit

0x222e0


@ 222e0
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 222e0-2238a Body>                                   Δ+12       
        <POP 222e0-222f6 Prologue>                           Σ0         ↓
        <POP 222f6-222fc RegCacheLoad>                       Σ0         ↓
        <POP 222fc-22308 Naked>                              Σ0         ↓ →0x2231a
            <POP 222fc-222fe StackAdj>                       Δ-2                {[-2-]}
            <Call 0x222fe 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 22304  TST.B   (A7)+>                        Δ+2                {}
            <MI 22306  BEQ     0x2231a>                                         {}
        <POP 22308-2231a Naked>                              Σ0 Δ-12    →0x2232a
            <Blob 0x22308 [12] @>                            Δ-12               {[«12""»]}
            <MI 22318  BRA     0x2232a>                                         {[«12""»]}
        <POP 2231a-2232a Naked>                              Σ0 Δ-12    ↓ ←0x222fc
            <Blob 0x2231a [12] @>                            Δ-12               {[«12""»]}
        <POP 2232a-22382 Naked>                              Σ-12 Δ+12  ↓ ←0x22308
            <POP 2232a-2232c StackAdj>                       Δ-4                {[-16-]}
            <Lit 0x2232c>                                                       {[-12-]|[$$…]}
                <Pointer.sp 0x2232c 4>                       Δ-4        
                <Const 0x22330 0x1.2>                        Δ-2        
                <Const 0x22334 0xb.2>                        Δ-2        
                <Call 0x22338 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2233e-22340 StackAdj>                   Δ+8        
            <Pointer.fp 0x22340 <LVAR -0x004 @ 4(r)>>        Δ-4                {[-12-]|[$$…]|[@@-4]}
            <Call 0x22342 0x10460>                                              {[-12-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 22348-2234c StackAdj>                       Δ+20               {}
            <MI 2234c  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 22350  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x22352 4>                           Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x22356 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x2235a 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x2235e 0x10466>                                              {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 22364-22368 StackAdj>                       Δ+16               {[2, '(A6+0x8)']}
            <MI 22368  CLR.B   (A7)>                                            {[2, '(A6+0x8)']}
            <MI 2236a  MOVE.B  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0x8)']|[2, '(A6+0xa)']}
            <MI 2236e  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
            <Call 0x22370 0x104ba>                                              {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 22376-22378 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x22378 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x2237a 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 22380-22382 StackAdj>                       Δ+4                {}
        <POP 22382-2238a Epilogue>                           Σ0         

0x223aa


@ 223aa
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 223aa-22438 Body>                                   Δ+16       
        <POP 223aa-223c0 Prologue>                           Σ0         ↓
        <POP 223c0-223c6 RegCacheLoad>                       Σ0         ↓
        <POP 223c6-223d2 Naked>                              Σ0         ↓ →0x223e4
            <POP 223c6-223c8 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x223c8 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 223ce  TST.B   (A7)+>                        Δ+2                {}
            <MI 223d0  BEQ     0x223e4>                                         {}
        <POP 223d2-223e4 Naked>                              Σ0 Δ-16    →0x223f4
            <Blob 0x223d2 [16] @>                            Δ-16               {[«16""»]}
            <MI 223e2  BRA     0x223f4>                                         {[«16""»]}
        <POP 223e4-223f4 Naked>                              Σ0 Δ-16    ↓ ←0x223c6
            <Blob 0x223e4 [16] @>                            Δ-16               {[«16""»]}
        <POP 223f4-22430 Naked>                              Σ-16 Δ+16  ↓ ←0x223d2
            <POP 223f4-223f6 StackAdj>                       Δ-4                {[-20-]}
            <Lit 0x223f6>                                                       {[-16-]|[$$…]}
                <Pointer.sp 0x223f6 4>                       Δ-4        
                <Const 0x223fa 0x1.2>                        Δ-2        
                <Const 0x223fe 0xf.2>                        Δ-2        
                <Call 0x22402 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22408-2240a StackAdj>                   Δ+8        
            <Pointer.fp 0x2240a <LVAR -0x006 @ 4(r)>>        Δ-4                {[-16-]|[$$…]|[@@-6]}
            <Call 0x2240c 0x10460>                                              {[-16-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 22412-22416 StackAdj>                       Δ+24               {}
            <MI 22416  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 22418  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 2241c  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x2241e 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 22424-22426 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x22426 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x22428 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 2242e-22430 StackAdj>                       Δ+4                {}
        <POP 22430-22438 Epilogue>                           Σ0         

0x22468


@ 22468
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 22468-224f6 Body>                                   Δ+24       
        <POP 22468-2247e Prologue>                           Σ0         ↓
        <POP 2247e-22484 RegCacheLoad>                       Σ0         ↓
        <POP 22484-22490 Naked>                              Σ0         ↓ →0x224a2
            <POP 22484-22486 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22486 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2248c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2248e  BEQ     0x224a2>                                         {}
        <POP 22490-224a2 Naked>                              Σ0 Δ-24    →0x224b2
            <Blob 0x22490 [24] @>                            Δ-24               {[«24""»]}
            <MI 224a0  BRA     0x224b2>                                         {[«24""»]}
        <POP 224a2-224b2 Naked>                              Σ0 Δ-24    ↓ ←0x22484
            <Blob 0x224a2 [24] @>                            Δ-24               {[«24""»]}
        <POP 224b2-224ee Naked>                              Σ-24 Δ+24  ↓ ←0x22490
            <POP 224b2-224b4 StackAdj>                       Δ-4                {[-28-]}
            <Lit 0x224b4>                                                       {[-24-]|[$$…]}
                <Pointer.sp 0x224b4 4>                       Δ-4        
                <Const 0x224b8 0x1.2>                        Δ-2        
                <Const 0x224bc 0x17.2>                       Δ-2        
                <Call 0x224c0 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 224c6-224c8 StackAdj>                   Δ+8        
            <Pointer.fp 0x224c8 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-24-]|[$$…]|[@@-6]}
            <Call 0x224ca 0x10460>                                              {[-24-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 224d0-224d4 StackAdj>                       Δ+32               {}
            <MI 224d4  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 224d6  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 224da  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x224dc 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 224e2-224e4 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x224e4 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x224e6 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 224ec-224ee StackAdj>                       Δ+4                {}
        <POP 224ee-224f6 Epilogue>                           Σ0         

0x22512


@ 22512
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 22512-22596 Body>                                   Δ+14       
        <POP 22512-22528 Prologue>                           Σ0         ↓
        <POP 22528-2252c RegCacheLoad>                       Σ0         ↓
        <POP 2252c-22538 Naked>                              Σ0         ↓ →0x22546
            <POP 2252c-2252e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2252e 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 22534  TST.B   (A7)+>                        Δ+2                {}
            <MI 22536  BEQ     0x22546>                                         {}
        <POP 22538-22546 Naked>                              Σ0 Δ-14    →0x22552
            <Blob 0x22538 [14] @>                            Δ-14               {[«14""»]}
            <MI 22544  BRA     0x22552>                                         {[«14""»]}
        <POP 22546-22552 Naked>                              Σ0 Δ-14    ↓ ←0x2252c
            <Blob 0x22546 [14] @>                            Δ-14               {[«14""»]}
        <POP 22552-2258e Naked>                              Σ-14 Δ+14  ↓ ←0x22538
            <POP 22552-22554 StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x22554>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x22554 4>                       Δ-4        
                <Const 0x22558 0x1.2>                        Δ-2        
                <Const 0x2255c 0xe.2>                        Δ-2        
                <Call 0x22560 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22566-22568 StackAdj>                   Δ+8        
            <Pointer.fp 0x22568 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-14-]|[$$…]|[@@-6]}
            <Call 0x2256a 0x10460>                                              {[-14-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 22570-22574 StackAdj>                       Δ+22               {}
            <MI 22574  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 22576  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 2257a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x2257c 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 22582-22584 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x22584 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x22586 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 2258c-2258e StackAdj>                       Δ+4                {}
        <POP 2258e-22596 Epilogue>                           Σ0         

0x225be


@ 225be
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 225be-2264c Body>                                   Δ+20       
        <POP 225be-225d4 Prologue>                           Σ0         ↓
        <POP 225d4-225da RegCacheLoad>                       Σ0         ↓
        <POP 225da-225e6 Naked>                              Σ0         ↓ →0x225f8
            <POP 225da-225dc StackAdj>                       Δ-2                {[-2-]}
            <Call 0x225dc 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 225e2  TST.B   (A7)+>                        Δ+2                {}
            <MI 225e4  BEQ     0x225f8>                                         {}
        <POP 225e6-225f8 Naked>                              Σ0 Δ-20    →0x22608
            <Blob 0x225e6 [20] @>                            Δ-20               {[«20""»]}
            <MI 225f6  BRA     0x22608>                                         {[«20""»]}
        <POP 225f8-22608 Naked>                              Σ0 Δ-20    ↓ ←0x225da
            <Blob 0x225f8 [20] @>                            Δ-20               {[«20""»]}
        <POP 22608-22644 Naked>                              Σ-20 Δ+20  ↓ ←0x225e6
            <POP 22608-2260a StackAdj>                       Δ-4                {[-24-]}
            <Lit 0x2260a>                                                       {[-20-]|[$$…]}
                <Pointer.sp 0x2260a 4>                       Δ-4        
                <Const 0x2260e 0x1.2>                        Δ-2        
                <Const 0x22612 0x13.2>                       Δ-2        
                <Call 0x22616 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2261c-2261e StackAdj>                   Δ+8        
            <Pointer.fp 0x2261e <LVAR -0x006 @ 4(r)>>        Δ-4                {[-20-]|[$$…]|[@@-6]}
            <Call 0x22620 0x10460>                                              {[-20-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 22626-2262a StackAdj>                       Δ+28               {}
            <MI 2262a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 2262c  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 22630  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x22632 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 22638-2263a StackAdj>                       Δ+8                {}
            <Pointer.fp 0x2263a <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x2263c 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 22642-22644 StackAdj>                       Δ+4                {}
        <POP 22644-2264c Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.1884974ed9d6365b
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 1e f6              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 26 f4              |  &     |		.PTR	0x226f4
00020010					code.end:
00020010 00 02 26 a0              |  &     |		.PTR	0x226a0
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 06 1c              |        |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 04 e0              |        |		.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 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00020118 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00020126 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00020134 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00020146 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
0002015e 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
0002016c 53 42 55 53 55 4c 4f 41  |SBUSULOA|		.TXT	'SBUSULOAD '
00020176 44 42 55 53 55 4c 4f 41  |DBUSULOA|		.TXT	'DBUSULOAD '
00020180 40 28 23 29 46 50 54 45  |@(#)FPTE|		.XXX[0x30]
00020188 53 54 2c 32 2e 30 2c 38  |ST,2.0,8|
00020190 39 2f 30 39 2f 30 34 2c  |9/09/04,|
00020198 31 37 3a 31 38 3a 31 39  |17:18:19|
000201a0 5c 20 30 31 32 33 34 35  |\ 012345|
000201a8 36 37 38 39 41 42 43 44  |6789ABCD|
000201b0 45 46                    |EF      |		.XXX[0x2]
000201b2 4d 69 63 72 6f 63 6f 64  |Microcod|		.TXT	'Microcode halted at the wrong address '
000201d8 4d 69 63 72 6f 20 61 64  |Micro ad|		.TXT	'Micro address bus parity error'
000201f6 57 43 53 20 70 61 72 69  |WCS pari|		.TXT	'WCS parity error(s) '
0002020a 46 49 55 20 62 6f 61 72  |FIU boar|		.TXT	'FIU board VI bus error'
00020220 55 6e 6b 6e 6f 77 6e 20  |Unknown |		.TXT	'Unknown error '
0002022e 54 59 50 20 20 62 61 64  |TYP  bad|		.TXT	'TYP  bad FIU bits =_'
00020242 56 41 4c 20 20 62 61 64  |VAL  bad|		.TXT	'VAL  bad FIU bits =_'
00020256 46 49 55 20 20 62 61 64  |FIU  bad|		.TXT	'FIU  bad FIU bits =_'
0002026a 53 45 51 20 20 62 61 64  |SEQ  bad|		.TXT	'SEQ  bad FIU bits =_'
0002027e 54 59 50 20 20 62 61 64  |TYP  bad|		.TXT	'TYP  bad TYP bits =_'
00020292 46 49 55 20 20 62 61 64  |FIU  bad|		.TXT	'FIU  bad TYP bits =_'
000202a6 53 45 51 20 20 62 61 64  |SEQ  bad|		.TXT	'SEQ  bad TYP bits =_'
000202ba 53 59 53 20 20 62        |SYS  b  |		.XXX[0x6]
000202c0 61 64 20 54 59 50 20 62  |ad TYP b|		.XXX[0x8]
000202c8 69 74 73 20 3d 5f        |its =_  |		.XXX[0x6]
000202ce 49 4f 43 20 20 62 61 64  |IOC  bad|		.TXT	'IOC  bad TYP bits =_'
000202e2 4d 45 4d 30 20 62 61 64  |MEM0 bad|		.TXT	'MEM0 bad TYP bits =_'
000202f6 4d 45 4d 31 20 62 61 64  |MEM1 bad|		.TXT	'MEM1 bad TYP bits =_'
0002030a 4d 45 4d 32 20 62 61 64  |MEM2 bad|		.TXT	'MEM2 bad TYP bits =_'
0002031e 4d 45 4d 33 20 62 61 64  |MEM3 bad|		.TXT	'MEM3 bad TYP bits =_'
00020332 56 41 4c 20 20 62 61 64  |VAL  bad|		.TXT	'VAL  bad VAL bits =_'
00020346 46 49 55 20 20 62 61 64  |FIU  bad|		.TXT	'FIU  bad VAL bits =_'
0002035a 53 45 51 20 20 62 61 64  |SEQ  bad|		.TXT	'SEQ  bad VAL bits =_'
0002036e 53 59                    |SY      |		.XXX[0x2]
00020370 53 20 20 62 61 64 20 56  |S  bad V|		.XXX[0x10]
00020378 41 4c 20 62 69 74 73 20  |AL bits |
00020380 3d 5f                    |=_      |		.XXX[0x2]
00020382 49 4f 43 20 20 62 61 64  |IOC  bad|		.TXT	'IOC  bad VAL bits =_'
00020396 4d 45 4d 30 20 62 61 64  |MEM0 bad|		.TXT	'MEM0 bad VAL bits =_'
000203aa 4d 45 4d 31 20 62 61 64  |MEM1 bad|		.TXT	'MEM1 bad VAL bits =_'
000203be 4d 45 4d 32 20 62 61 64  |MEM2 bad|		.TXT	'MEM2 bad VAL bits =_'
000203d2 4d 45 4d 33 20 62 61 64  |MEM3 bad|		.TXT	'MEM3 bad VAL bits =_'
000203e6 46 49 55 20 62 75 73 20  |FIU bus |		.TXT	'FIU bus parity bad'
000203f8 54 59 50 20 62 75 73 20  |TYP bus |		.TXT	'TYP bus parity bad'
0002040a 56 41 4c 20 62 75 73 20  |VAL bus |		.TXT	'VAL bus parity bad'
0002041c 42 61 64 20              |Bad     |		.XXX[0x4]
00020420 63 68 65 63 6b 62 69 74  |checkbit|		.XXX[0x20]
00020428 73 20 6f 6e 20 53 59 53  |s on SYS|
00020430 42 55 53 20 6f 72 20 61  |BUS or a|
00020438 6c 6c 20 4d 45 4d 6f 72  |ll MEMor|
00020440 69 65 73 20              |ies     |		.XXX[0x4]
00020444 42 61 64 20 63 68 65 63  |Bad chec|		.TXT	'Bad checkbits on IOC or all MEMories'
00020468 42 61 64 20 63 68 65 63  |Bad chec|		.TXT	'Bad checkbit on memory_ '
00020480 46 50 54 45 53 54 2e 4d  |FPTEST.M|		.XXX[0x10]
00020488 31 30 30 5f 55 43 4f 44  |100_UCOD|
00020490 45 20                    |E       |		.XXX[0x2]
00020492 46 50 54 45 53 54 2e 4d  |FPTEST.M|		.TXT	'FPTEST.M200_UCODE '
000204a4 50 32 46 50              |P2FP    |		.TXT	'P2FP'
000204a8 54 45 53 54 20 41 47 41  |TEST AGA|		.TXT	'TEST AGAIN'
000204b2 46 6f 72 65 70 6c 61 6e  |Foreplan|		.TXT	'Foreplane test passed!'
000204c8 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
000204cc 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
000204d0 00 00 00 00 00 00 00 01  |        |		.XXX[0x8]
000204d8 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
000204dc 00 00 00 03              |        |		.CONST	0x0,0x0,0x0,0x3
000204e0 ; --------------------------------------------------------------------------------------
000204e0 ; OMSI PASCAL Function
000204e0 ;    <LVAR  0x00e 1(r)>
000204e0 ;    <LVAR  0x00a 4(r)>
000204e0 ;    <LVAR  0x008 1(r)>
000204e0 ; --------------------------------------------------------------------------------------
000204e0					EXP_FAIL:
000204e0 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
000204e4 bf d5                    |        |		CMPA.L	(A5),A7
000204e6 62 06                    |b       |		BHI	0x204ee
000204e8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000204ec 4e 76                    |Nv      |		TRAPV
000204ee de fc 00 74              |   t    |		ADDA.W	#0x74,A7
000204f2 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000204f6 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000204fc 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00020502 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020504 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00020506 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00020508 78 12                    |x       |		MOVEQ.L	#0x12,D4
0002050a 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
0002050c 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00020512 41 fa fc 32              |A  2    |		LEA.L	0x20146,A0
00020516 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020518 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002051a 51 c8 ff fc              |Q       |		DBF	D0,0x20518
0002051e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020520 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020524 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020526 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020528 4e 93                    |N       |		JSR	(A3)
0002052a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002052c 4e 94                    |N       |		JSR	(A4)
0002052e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020530 20 4f                    | O      |		MOVEA.L	A7,A0
00020532 43 fa fb d6              |C       |		LEA.L	0x2010a,A1
00020536 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020538 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002053a 51 c8 ff fc              |Q       |		DBF	D0,0x20538
0002053e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020540 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020544 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020546 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020548 4e 93                    |N       |		JSR	(A3)
0002054a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002054c 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00020550 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00020556 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020558 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002055e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020560 4e 94                    |N       |		JSR	(A4)
00020562 de c4                    |        |		ADDA.W	D4,A7
00020564 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00020568 b0 c1                    |        |		CMPA.W	D1,A0
0002056a 67 48                    |gH      |		BEQ	0x205b4
0002056c 9e c5                    |        |		SUBA.W	D5,A7
0002056e 22 4f                    |"O      |		MOVEA.L	A7,A1
00020570 45 fa fb a6              |E       |		LEA.L	0x20118,A2
00020574 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020576 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020578 51 c8 ff fc              |Q       |		DBF	D0,0x20576
0002057c 9e c3                    |        |		SUBA.W	D3,A7
0002057e 22 4f                    |"O      |		MOVEA.L	A7,A1
00020580 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00020584 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00020586 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00020588 51 c8 ff fc              |Q       |		DBF	D0,0x20586
0002058c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002058e 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00020592 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020594 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020596 4e 93                    |N       |		JSR	(A3)
00020598 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002059a 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002059e 3f 01                    |?       |		MOVE.W	D1,-(A7)
000205a0 3f 03                    |?       |		MOVE.W	D3,-(A7)
000205a2 4e 93                    |N       |		JSR	(A3)
000205a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000205a6 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000205ac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000205ae 4e 94                    |N       |		JSR	(A4)
000205b0 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000205b4 9e c5                    |        |		SUBA.W	D5,A7
000205b6 20 4f                    | O      |		MOVEA.L	A7,A0
000205b8 43 fa fb 6c              |C  l    |		LEA.L	0x20126,A1
000205bc 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000205be 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000205c0 51 c8 ff fc              |Q       |		DBF	D0,0x205be
000205c4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000205c6 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000205ca 3f 01                    |?       |		MOVE.W	D1,-(A7)
000205cc 3f 02                    |?       |		MOVE.W	D2,-(A7)
000205ce 4e 93                    |N       |		JSR	(A3)
000205d0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000205d2 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
000205d6 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
000205dc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000205de 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000205e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000205e6 4e 94                    |N       |		JSR	(A4)
000205e8 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000205ea 20 4f                    | O      |		MOVEA.L	A7,A0
000205ec 43 fa fb 58              |C  X    |		LEA.L	0x20146,A1
000205f0 70 16                    |p       |		MOVEQ.L	#0x16,D0
000205f2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000205f4 51 c8 ff fc              |Q       |		DBF	D0,0x205f2
000205f8 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000205fc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000205fe 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020602 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020604 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00020608 4e 93                    |N       |		JSR	(A3)
0002060a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002060c 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020612 de c3                    |        |		ADDA.W	D3,A7
00020614 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00020618 4e 5e                    |N^      |		UNLK	A6
0002061a 4e 75                    |Nu      |		RTS
0002061c ; --------------------------------------------------------------------------------------
0002061c ; OMSI PASCAL Function
0002061c ;    <LVAR  0x008 1(r)>
0002061c ; --------------------------------------------------------------------------------------
0002061c					PROG_FAIL:
0002061c 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00020620 bf d5                    |        |		CMPA.L	(A5),A7
00020622 62 06                    |b       |		BHI	0x2062a
00020624 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020628 4e 76                    |Nv      |		TRAPV
0002062a de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
0002062e 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00020632 41 fa fb 38              |A  8    |		LEA.L	0x2016c,A0
00020636 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020638 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002063a 51 c8 ff fc              |Q       |		DBF	D0,0x20638
0002063e 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00020642 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020644 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020648 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002064c 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00020650 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020656 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020658 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002065c 48 80                    |H       |		EXTB.W	D0
0002065e 48 c0                    |H       |		EXTW.L	D0
00020660 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020662 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020668 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002066a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020670 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020672 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020678 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002067c 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00020680 4e 5e                    |N^      |		UNLK	A6
00020682 4e 75                    |Nu      |		RTS
00020684 ; --------------------------------------------------------------------------------------
00020684 ; OMSI PASCAL Function
00020684 ;    <LVAR  0x016 1(r)>
00020684 ;    <LVAR  0x012 4(r)>
00020684 ;    <LVAR  0x010 1(r)>
00020684 ;    <LVAR  0x00e 1(r)>
00020684 ;    <LVAR  0x00c 1(r)>
00020684 ;    <LVAR  0x008 4(r)>
00020684 ;    <LVAR -0x004 @>
00020684 ; --------------------------------------------------------------------------------------
00020684 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00020688 bf d5                    |        |		CMPA.L	(A5),A7
0002068a 62 06                    |b       |		BHI	0x20692
0002068c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020690 4e 76                    |Nv      |		TRAPV
00020692 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020696 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
0002069a 45 f9 00 01 05 02        |E       |		LEA.L	IPC_PutBool(a : Bool),A2
000206a0 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
000206a2 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000206a8 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
000206ac 4e b9 00 01 05 08        |N       |		JSR	IPC_PutString(a : String)
000206b2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206b4 1e ae 00 10              |        |		MOVE.B	(A6+0x10),(A7)
000206b8 4e 92                    |N       |		JSR	(A2)
000206ba 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206bc 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
000206c0 66 0e                    |f       |		BNE	0x206d0
000206c2 1f 2e 00 0e              | .      |		MOVE.B	(A6+0xe),-(A7)
000206c6 4e 92                    |N       |		JSR	(A2)
000206c8 1e ae 00 0c              |        |		MOVE.B	(A6+0xc),(A7)
000206cc 4e 92                    |N       |		JSR	(A2)
000206ce 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206d0 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
000206d6 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
000206da 67 12                    |g       |		BEQ	0x206ee
000206dc 9e c1                    |        |		SUBA.W	D1,A7
000206de 20 4f                    | O      |		MOVEA.L	A7,A0
000206e0 43 fa fa 8a              |C       |		LEA.L	0x2016c,A1
000206e4 70 08                    |p       |		MOVEQ.L	#0x08,D0
000206e6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000206e8 51 c8 ff fc              |Q       |		DBF	D0,0x206e6
000206ec 60 10                    |`       |		BRA	0x206fe
000206ee 9e c1                    |        |		SUBA.W	D1,A7
000206f0 20 4f                    | O      |		MOVEA.L	A7,A0
000206f2 43 fa fa 82              |C       |		LEA.L	0x20176,A1
000206f6 70 08                    |p       |		MOVEQ.L	#0x08,D0
000206f8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000206fa 51 c8 ff fc              |Q       |		DBF	D0,0x206f8
000206fe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020700 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020704 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020708 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
0002070c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020712 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020714 48 78 00 01              |Hx      |		PEA.L	0x1
00020718 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002071c 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020720 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00020726 de fc 00 18              |        |		ADDA.W	#0x18,A7
0002072a 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00020730 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020734 48 50                    |HP      |		PEA.L	(A0)
00020736 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
0002073c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002073e 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00020744 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00020748 4e 5e                    |N^      |		UNLK	A6
0002074a 4e 75                    |Nu      |		RTS
0002074c ; --------------------------------------------------------------------------------------
0002074c ; OMSI PASCAL Function
0002074c ;    <LVAR  0x008 @ 4(r)>
0002074c ; --------------------------------------------------------------------------------------
0002074c 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00020750 bf d5                    |        |		CMPA.L	(A5),A7
00020752 62 06                    |b       |		BHI	0x2075a
00020754 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020758 4e 76                    |Nv      |		TRAPV
0002075a de fc 00 28              |   (    |		ADDA.W	#0x28,A7
0002075e 48 e7 80 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D0,-(A7)
00020762 41 f9 00 02 26 ac        |A   &   |		LEA.L	0x226ac,A0
00020768 43 f9 00 02 26 a8        |C   &   |		LEA.L	0x226a8,A1
0002076e 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00020772 47 f9 00 01 02 c0        |G       |		LEA.L	AppendChar(MOD b : String; a : char),A3
00020778 52 91                    |R       |		ADDQ.L	#0x1,(A1)
0002077a 4a 39 00 02 26 b0        |J9  &   |		TST.B	0x226b0
00020780 67 0c                    |g       |		BEQ	0x2078e
00020782 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020784 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002078a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002078c 60 4a                    |`J      |		BRA	0x207d8
0002078e 20 11                    |        |		MOVE.L	(A1),D0
00020790 0c 80 00 00 00 04        |        |		CMPI.L	#0x00000004,D0
00020796 6d 0a                    |m       |		BLT	0x207a2
00020798 48 52                    |HR      |		PEA.L	(A2)
0002079a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000207a0 60 e8                    |`       |		BRA	0x2078a
000207a2 0c 80 00 00 00 01        |        |		CMPI.L	#0x00000001,D0
000207a8 6f 1e                    |o       |		BLE	0x207c8
000207aa 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000207ac 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
000207b0 4e 93                    |N       |		JSR	(A3)
000207b2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207b4 2e 90                    |.       |		MOVE.L	(A0),(A7)
000207b6 1f 3c 00 0a              | <      |		MOVE.B	#0x0a,-(A7)
000207ba 4e 93                    |N       |		JSR	(A3)
000207bc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207be 2e 90                    |.       |		MOVE.L	(A0),(A7)
000207c0 1f 3c 00 20              | <      |		MOVE.B	#0x20,-(A7)
000207c4 4e 93                    |N       |		JSR	(A3)
000207c6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000207c8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000207ca 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000207cc 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000207ce 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000207d4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207d6 20 9f                    |        |		MOVE.L	(A7)+,(A0)
000207d8 4c df 0f 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2+A3
000207dc 4e 5e                    |N^      |		UNLK	A6
000207de 4e 75                    |Nu      |		RTS
000207e0 ; --------------------------------------------------------------------------------------
000207e0 ; OMSI PASCAL Function
000207e0 ;    <LVAR  0x008 4(r)>
000207e0 ;    <LVAR -0x00a @ 2(r)>
000207e0 ;    <LVAR -0x00c 1(rw)>
000207e0 ; --------------------------------------------------------------------------------------
000207e0 4e 56 ff 9e              |NV      |		LINK.W	A6,#0xff9e
000207e4 bf d5                    |        |		CMPA.L	(A5),A7
000207e6 62 06                    |b       |		BHI	0x207ee
000207e8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000207ec 4e 76                    |Nv      |		TRAPV
000207ee de fc 00 56              |   V    |		ADDA.W	#0x56,A7
000207f2 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000207f6 43 f9 00 01 04 c0        |C       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A1
000207fc 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
00020800 47 f9 00 02 22 e0        |G   "   |		LEA.L	0x222e0,A3
00020806 49 f9 00 02 25 12        |I   %   |		LEA.L	0x22512,A4
0002080c 72 0f                    |r       |		MOVEQ.L	#0x0f,D1
0002080e 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00020810 76 0d                    |v       |		MOVEQ.L	#0x0d,D3
00020812 78 0e                    |x       |		MOVEQ.L	#0x0e,D4
00020814 3a 3c 02 00              |:<      |		MOVE.W	#0x200,D5
00020818 7c 02                    ||       |		MOVEQ.L	#0x02,D6
0002081a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002081c 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00020822 4a 1f                    |J       |		TST.B	(A7)+
00020824 67 04                    |g       |		BEQ	0x2082a
00020826 42 12                    |B       |		CLR.B	(A2)
00020828 60 04                    |`       |		BRA	0x2082e
0002082a 14 bc 00 ff              |        |		MOVE.B	#0xff,(A2)
0002082e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020830 1f 02                    |        |		MOVE.B	D2,-(A7)
00020832 4e 91                    |N       |		JSR	(A1)
00020834 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020836 4a 1f                    |J       |		TST.B	(A7)+
00020838 67 08                    |g       |		BEQ	0x20842
0002083a 1f 02                    |        |		MOVE.B	D2,-(A7)
0002083c 1f 12                    |        |		MOVE.B	(A2),-(A7)
0002083e 4e 93                    |N       |		JSR	(A3)
00020840 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020842 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020844 1f 03                    |        |		MOVE.B	D3,-(A7)
00020846 4e 91                    |N       |		JSR	(A1)
00020848 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002084a 4a 1f                    |J       |		TST.B	(A7)+
0002084c 67 08                    |g       |		BEQ	0x20856
0002084e 1f 03                    |        |		MOVE.B	D3,-(A7)
00020850 1f 12                    |        |		MOVE.B	(A2),-(A7)
00020852 4e 93                    |N       |		JSR	(A3)
00020854 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020856 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020858 1f 04                    |        |		MOVE.B	D4,-(A7)
0002085a 4e 91                    |N       |		JSR	(A1)
0002085c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002085e 4a 1f                    |J       |		TST.B	(A7)+
00020860 67 08                    |g       |		BEQ	0x2086a
00020862 1f 04                    |        |		MOVE.B	D4,-(A7)
00020864 1f 12                    |        |		MOVE.B	(A2),-(A7)
00020866 4e 93                    |N       |		JSR	(A3)
00020868 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002086a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002086c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002086e 4e 91                    |N       |		JSR	(A1)
00020870 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020872 4a 1f                    |J       |		TST.B	(A7)+
00020874 67 08                    |g       |		BEQ	0x2087e
00020876 1f 01                    |        |		MOVE.B	D1,-(A7)
00020878 1f 12                    |        |		MOVE.B	(A2),-(A7)
0002087a 4e 93                    |N       |		JSR	(A3)
0002087c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002087e 4e b9 00 02 21 56        |N   !V  |		JSR	exp_INIT_MRU.FIU()
00020884 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020886 1f 02                    |        |		MOVE.B	D2,-(A7)
00020888 4e 91                    |N       |		JSR	(A1)
0002088a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002088c 4a 1f                    |J       |		TST.B	(A7)+
0002088e 67 06                    |g       |		BEQ	0x20896
00020890 1f 02                    |        |		MOVE.B	D2,-(A7)
00020892 4e 94                    |N       |		JSR	(A4)
00020894 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020896 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020898 1f 03                    |        |		MOVE.B	D3,-(A7)
0002089a 4e 91                    |N       |		JSR	(A1)
0002089c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002089e 4a 1f                    |J       |		TST.B	(A7)+
000208a0 67 06                    |g       |		BEQ	0x208a8
000208a2 1f 03                    |        |		MOVE.B	D3,-(A7)
000208a4 4e 94                    |N       |		JSR	(A4)
000208a6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208a8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000208aa 1f 04                    |        |		MOVE.B	D4,-(A7)
000208ac 4e 91                    |N       |		JSR	(A1)
000208ae 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208b0 4a 1f                    |J       |		TST.B	(A7)+
000208b2 67 06                    |g       |		BEQ	0x208ba
000208b4 1f 04                    |        |		MOVE.B	D4,-(A7)
000208b6 4e 94                    |N       |		JSR	(A4)
000208b8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208ba 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000208bc 1f 01                    |        |		MOVE.B	D1,-(A7)
000208be 4e 91                    |N       |		JSR	(A1)
000208c0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208c2 4a 1f                    |J       |		TST.B	(A7)+
000208c4 67 06                    |g       |		BEQ	0x208cc
000208c6 1f 01                    |        |		MOVE.B	D1,-(A7)
000208c8 4e 94                    |N       |		JSR	(A4)
000208ca 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208cc 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
000208ce 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000208d0 1f 07                    |        |		MOVE.B	D7,-(A7)
000208d2 4e 91                    |N       |		JSR	(A1)
000208d4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208d6 4a 1f                    |J       |		TST.B	(A7)+
000208d8 67 0a                    |g       |		BEQ	0x208e4
000208da 1f 07                    |        |		MOVE.B	D7,-(A7)
000208dc 4e b9 00 02 24 68        |N   $h  |		JSR	0x22468
000208e2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208e4 52 07                    |R       |		ADDQ.B	#0x1,D7
000208e6 be 01                    |        |		CMP.B	D1,D7
000208e8 6f e4                    |o       |		BLE	0x208ce
000208ea 3f 05                    |?       |		MOVE.W	D5,-(A7)
000208ec 4e b9 00 02 22 3c        |N   "<  |		JSR	exp_PREP_RUN.TYP(Sw_2)
000208f2 3e 85                    |>       |		MOVE.W	D5,(A7)
000208f4 4e b9 00 02 22 ae        |N   "   |		JSR	exp_PREP_RUN.VAL(Sw_2)
000208fa 3e 85                    |>       |		MOVE.W	D5,(A7)
000208fc 4e b9 00 02 21 ca        |N   !   |		JSR	exp_PREP_RUN.SEQ(Sw_2)
00020902 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020904 3f 05                    |?       |		MOVE.W	D5,-(A7)
00020906 4e b9 00 02 26 86        |N   &   |		JSR	exp_PREP_RUN.IOC(Sw_2)
0002090c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002090e 3f 05                    |?       |		MOVE.W	D5,-(A7)
00020910 4e b9 00 02 21 3c        |N   !<  |		JSR	exp_PREP_RUN.FIU(Sw_2)
00020916 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020918 4e b9 00 02 21 70        |N   !p  |		JSR	exp_FREEZE_WORLD.FIU()
0002091e 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00020920 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020922 1f 07                    |        |		MOVE.B	D7,-(A7)
00020924 4e 91                    |N       |		JSR	(A1)
00020926 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020928 4a 1f                    |J       |		TST.B	(A7)+
0002092a 67 0a                    |g       |		BEQ	0x20936
0002092c 1f 07                    |        |		MOVE.B	D7,-(A7)
0002092e 4e b9 00 02 23 aa        |N   #   |		JSR	0x223aa
00020934 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020936 52 07                    |R       |		ADDQ.B	#0x1,D7
00020938 be 01                    |        |		CMP.B	D1,D7
0002093a 6f e4                    |o       |		BLE	0x20920
0002093c 4e b9 00 02 22 20        |N   "   |		JSR	exp_RUN_NOCHECK.TYP()
00020942 4e b9 00 02 22 92        |N   "   |		JSR	exp_RUN_NOCHECK.VAL()
00020948 4e b9 00 02 21 8e        |N   !   |		JSR	exp_RUN_NOCHECK.SEQ()
0002094e 4e b9 00 02 26 6a        |N   &j  |		JSR	exp_RUN_NOCHECK.IOC()
00020954 4e b9 00 02 21 20        |N   !   |		JSR	exp_RUN_NOCHECK.FIU()
0002095a 48 78 02 8c              |Hx      |		PEA.L	0x28c
0002095e 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
00020964 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020966 4e b9 00 02 21 70        |N   !p  |		JSR	exp_FREEZE_WORLD.FIU()
0002096c 1f 3c 00 0a              | <      |		MOVE.B	#0x0a,-(A7)
00020970 1f 06                    |        |		MOVE.B	D6,-(A7)
00020972 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00020978 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002097a 1e bc 00 08              |        |		MOVE.B	#0x08,(A7)
0002097e 1f 06                    |        |		MOVE.B	D6,-(A7)
00020980 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00020986 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020988 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
0002098c 1f 06                    |        |		MOVE.B	D6,-(A7)
0002098e 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00020994 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020996 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00020998 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002099a 1f 07                    |        |		MOVE.B	D7,-(A7)
0002099c 4e 91                    |N       |		JSR	(A1)
0002099e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000209a0 4a 1f                    |J       |		TST.B	(A7)+
000209a2 67 0a                    |g       |		BEQ	0x209ae
000209a4 1f 07                    |        |		MOVE.B	D7,-(A7)
000209a6 4e b9 00 02 25 be        |N   %   |		JSR	0x225be
000209ac 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000209ae 52 07                    |R       |		ADDQ.B	#0x1,D7
000209b0 be 01                    |        |		CMP.B	D1,D7
000209b2 6f e4                    |o       |		BLE	0x20998
000209b4 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
000209b8 4e b9 00 02 21 aa        |N   !   |		JSR	exp_READ_CUR_UADR.SEQ(&Sr_2)
000209be 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000209c0 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000209c4 3f 2e ff f6              |?.      |		MOVE.W	(A6-0xa),-(A7)
000209c8 3f 3c 02 01              |?<      |		MOVE.W	#0x201,-(A7)
000209cc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000209ce 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000209d2 48 78 00 00              |Hx      |		PEA.L	0x0
000209d6 48 78 00 01              |Hx      |		PEA.L	0x1
000209da 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
000209de 48 78 00 00              |Hx      |		PEA.L	0x0
000209e2 48 78 00 01              |Hx      |		PEA.L	0x1
000209e6 4e b9 00 01 04 a8        |N       |		JSR	?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
000209ec de fc 00 18              |        |		ADDA.W	#0x18,A7
000209f0 10 1f                    |        |		MOVE.B	(A7)+,D0
000209f2 48 80                    |H       |		EXTB.W	D0
000209f4 41 bc 00 01              |A       |		CHK.W	#0x1,D0
000209f8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000209fa 10 80                    |        |		MOVE.B	D0,(A0)
000209fc 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020a00 4e 5e                    |N^      |		UNLK	A6
00020a02 4e 75                    |Nu      |		RTS
00020a04 ; --------------------------------------------------------------------------------------
00020a04 ; OMSI PASCAL Function
00020a04 ;    <LVAR  0x010 4(w)>
00020a04 ;    <LVAR  0x00c 4(w)>
00020a04 ;    <LVAR  0x008 4(r)>
00020a04 ;    <LVAR -0x006 4(r)>
00020a04 ;    <LVAR -0x00a @ 4(r)>
00020a04 ;    <LVAR -0x00e 4(r)>
00020a04 ;    <LVAR -0x012 @ 4(r)>
00020a04 ;    <LVAR -0x013 1(w)>
00020a04 ;    <LVAR -0x014 1(w) 2(r)>
00020a04 ; --------------------------------------------------------------------------------------
00020a04 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00020a08 bf d5                    |        |		CMPA.L	(A5),A7
00020a0a 62 06                    |b       |		BHI	0x20a12
00020a0c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020a10 4e 76                    |Nv      |		TRAPV
00020a12 de fc 00 20              |        |		ADDA.W	#0x20,A7
00020a16 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00020a1a 1d 7c 00 ff ff ec        | |      |		MOVE.B	#0xff,(A6-0x14)
00020a20 20 3c 00 00 00 c0        | <      |		MOVE.L	#0xc0,D0
00020a26 d0 ae 00 08              |        |		ADD.L	(A6+0x8),D0
00020a2a 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00020a30 63 02                    |c       |		BLS	0x20a34
00020a32 4e 4f                    |NO      |		TRAP	#15
00020a34 1d 40 ff ed              | @      |		MOVE.B	D0,(A6-0x13)
00020a38 3f 2e ff ec              |?.      |		MOVE.W	(A6-0x14),-(A7)
00020a3c 42 27                    |B'      |		CLR.B	-(A7)
00020a3e 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00020a42 4e b9 00 02 21 e4        |N   !   |		JSR	exp_READ_RF_B.TYP(Sw_2, Sw_1, &Sr_8)
00020a48 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a4a 2e ae ff f2              |.       |		MOVE.L	(A6-0xe),(A7)
00020a4e 2f 2e ff ee              |/.      |		MOVE.L	(A6-0x12),-(A7)
00020a52 48 57                    |HW      |		PEA.L	(A7)
00020a54 48 78 00 00              |Hx      |		PEA.L	0x0
00020a58 48 78 00 07              |Hx      |		PEA.L	0x7
00020a5c 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00020a60 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
00020a66 de fc 00 18              |        |		ADDA.W	#0x18,A7
00020a6a 2d 6e ff f6 00 0c        |-n      |		MOVE.L	(A6-0xa),(A6+0xc)
00020a70 2d 6e ff fa 00 10        |-n      |		MOVE.L	(A6-0x6),(A6+0x10)
00020a76 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00020a7a 4e 5e                    |N^      |		UNLK	A6
00020a7c 4e 75                    |Nu      |		RTS
00020a7e ; --------------------------------------------------------------------------------------
00020a7e ; OMSI PASCAL Function
00020a7e ;    <LVAR  0x010 4(w)>
00020a7e ;    <LVAR  0x00c 4(w)>
00020a7e ;    <LVAR  0x008 4(r)>
00020a7e ;    <LVAR -0x006 4(r)>
00020a7e ;    <LVAR -0x00a @ 4(r)>
00020a7e ;    <LVAR -0x00e 4(r)>
00020a7e ;    <LVAR -0x012 @ 4(r)>
00020a7e ;    <LVAR -0x013 1(w)>
00020a7e ;    <LVAR -0x014 1(w) 2(r)>
00020a7e ; --------------------------------------------------------------------------------------
00020a7e 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc		; Spelunked
00020a82 bf d5                    |        |		CMPA.L	(A5),A7
00020a84 62 06                    |b       |		BHI	0x20a8c
00020a86 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020a8a 4e 76                    |Nv      |		TRAPV
00020a8c de fc 00 20              |        |		ADDA.W	#0x20,A7
00020a90 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00020a94 1d 7c 00 ff ff ec        | |      |		MOVE.B	#0xff,(A6-0x14)
00020a9a 20 3c 00 00 00 c0        | <      |		MOVE.L	#0xc0,D0
00020aa0 d0 ae 00 08              |        |		ADD.L	(A6+0x8),D0
00020aa4 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00020aaa 63 02                    |c       |		BLS	0x20aae
00020aac 4e 4f                    |NO      |		TRAP	#15
00020aae 1d 40 ff ed              | @      |		MOVE.B	D0,(A6-0x13)
00020ab2 3f 2e ff ec              |?.      |		MOVE.W	(A6-0x14),-(A7)
00020ab6 42 27                    |B'      |		CLR.B	-(A7)
00020ab8 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00020abc 4e b9 00 02 22 56        |N   "V  |		JSR	exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8)
00020ac2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ac4 2e ae ff f2              |.       |		MOVE.L	(A6-0xe),(A7)
00020ac8 2f 2e ff ee              |/.      |		MOVE.L	(A6-0x12),-(A7)
00020acc 48 57                    |HW      |		PEA.L	(A7)
00020ace 48 78 00 00              |Hx      |		PEA.L	0x0
00020ad2 48 78 00 07              |Hx      |		PEA.L	0x7
00020ad6 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00020ada 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
00020ae0 de fc 00 18              |        |		ADDA.W	#0x18,A7
00020ae4 2d 6e ff f6 00 0c        |-n      |		MOVE.L	(A6-0xa),(A6+0xc)
00020aea 2d 6e ff fa 00 10        |-n      |		MOVE.L	(A6-0x6),(A6+0x10)
00020af0 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00020af4 4e 5e                    |N^      |		UNLK	A6
00020af6 4e 75                    |Nu      |		RTS
00020af8 ; --------------------------------------------------------------------------------------
00020af8 ; OMSI PASCAL Function
00020af8 ;    <LVAR  0x018 4(r)>
00020af8 ;    <LVAR  0x014 4(r)>
00020af8 ;    <LVAR  0x010 4(r)>
00020af8 ;    <LVAR  0x00c 4(r)>
00020af8 ;    <LVAR  0x008 4(r)>
00020af8 ;    <LVAR -0x006 4(rw)>
00020af8 ;    <LVAR -0x00a 4(rw)>
00020af8 ;    <LVAR -0x00c @ 1(r)>
00020af8 ; --------------------------------------------------------------------------------------
00020af8 4e 56 ff 7e              |NV ~    |		LINK.W	A6,#0xff7e
00020afc bf d5                    |        |		CMPA.L	(A5),A7
00020afe 62 06                    |b       |		BHI	0x20b06
00020b00 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020b04 4e 76                    |Nv      |		TRAPV
00020b06 de fc 00 76              |   v    |		ADDA.W	#0x76,A7
00020b0a 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020b0e 7a 0c                    |z       |		MOVEQ.L	#0x0c,D5
00020b10 7c 10                    ||       |		MOVEQ.L	#0x10,D6
00020b12 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00020b14 42 27                    |B'      |		CLR.B	-(A7)
00020b16 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00020b1a 4e b9 00 02 21 02        |N   !   |		JSR	exp_READ_PAREG.FIU(Sw_1, &Sr_1)
00020b20 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020b22 42 80                    |B       |		CLR.L	D0
00020b24 10 2e ff f4              | .      |		MOVE.B	(A6-0xc),D0
00020b28 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020b2a 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00020b30 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b32 2d 5f ff f6              |-_      |		MOVE.L	(A7)+,(A6-0xa)
00020b36 2d 5f ff fa              |-_      |		MOVE.L	(A7)+,(A6-0x6)
00020b3a 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
00020b3e 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020b42 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020b46 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020b4a 48 78 00 3e              |Hx >    |		PEA.L	0x3e
00020b4e 48 78 00 01              |Hx      |		PEA.L	0x1
00020b52 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020b58 de c5                    |        |		ADDA.W	D5,A7
00020b5a 2e ba f9 70              |.  p    |		MOVE.L	0x204cc,(A7)
00020b5e 2f 3a f9 68              |/: h    |		MOVE.L	0x204c8,-(A7)
00020b62 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020b68 de c6                    |        |		ADDA.W	D6,A7
00020b6a 10 1f                    |        |		MOVE.B	(A7)+,D0
00020b6c 48 80                    |H       |		EXTB.W	D0
00020b6e 41 87                    |A       |		CHK.W	D7,D0
00020b70 10 80                    |        |		MOVE.B	D0,(A0)
00020b72 22 6e 00 14              |"n      |		MOVEA.L	(A6+0x14),A1
00020b76 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020b7a 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020b7e 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020b82 48 78 00 3d              |Hx =    |		PEA.L	0x3d
00020b86 48 78 00 01              |Hx      |		PEA.L	0x1
00020b8a 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020b90 de c5                    |        |		ADDA.W	D5,A7
00020b92 2e ba f9 38              |.  8    |		MOVE.L	0x204cc,(A7)
00020b96 2f 3a f9 30              |/: 0    |		MOVE.L	0x204c8,-(A7)
00020b9a 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020ba0 de c6                    |        |		ADDA.W	D6,A7
00020ba2 12 1f                    |        |		MOVE.B	(A7)+,D1
00020ba4 48 81                    |H       |		EXTB.W	D1
00020ba6 43 87                    |C       |		CHK.W	D7,D1
00020ba8 12 81                    |        |		MOVE.B	D1,(A1)
00020baa 24 6e 00 10              |$n      |		MOVEA.L	(A6+0x10),A2
00020bae 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020bb2 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020bb6 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020bba 48 78 00 3a              |Hx :    |		PEA.L	0x3a
00020bbe 48 78 00 01              |Hx      |		PEA.L	0x1
00020bc2 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020bc8 de c5                    |        |		ADDA.W	D5,A7
00020bca 2e ba f9 00              |.       |		MOVE.L	0x204cc,(A7)
00020bce 2f 3a f8 f8              |/:      |		MOVE.L	0x204c8,-(A7)
00020bd2 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020bd8 de c6                    |        |		ADDA.W	D6,A7
00020bda 14 1f                    |        |		MOVE.B	(A7)+,D2
00020bdc 48 82                    |H       |		EXTB.W	D2
00020bde 45 87                    |E       |		CHK.W	D7,D2
00020be0 14 82                    |        |		MOVE.B	D2,(A2)
00020be2 26 6e 00 0c              |&n      |		MOVEA.L	(A6+0xc),A3
00020be6 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020bea 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020bee 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020bf2 48 78 00 39              |Hx 9    |		PEA.L	0x39
00020bf6 48 78 00 01              |Hx      |		PEA.L	0x1
00020bfa 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020c00 de c5                    |        |		ADDA.W	D5,A7
00020c02 2e ba f8 c8              |.       |		MOVE.L	0x204cc,(A7)
00020c06 2f 3a f8 c0              |/:      |		MOVE.L	0x204c8,-(A7)
00020c0a 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020c10 de c6                    |        |		ADDA.W	D6,A7
00020c12 16 1f                    |        |		MOVE.B	(A7)+,D3
00020c14 48 83                    |H       |		EXTB.W	D3
00020c16 47 87                    |G       |		CHK.W	D7,D3
00020c18 16 83                    |        |		MOVE.B	D3,(A3)
00020c1a 28 6e 00 08              |(n      |		MOVEA.L	(A6+0x8),A4
00020c1e 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020c22 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020c26 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020c2a 48 78 00 38              |Hx 8    |		PEA.L	0x38
00020c2e 48 78 00 01              |Hx      |		PEA.L	0x1
00020c32 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020c38 de c5                    |        |		ADDA.W	D5,A7
00020c3a 2e ba f8 90              |.       |		MOVE.L	0x204cc,(A7)
00020c3e 2f 3a f8 88              |/:      |		MOVE.L	0x204c8,-(A7)
00020c42 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020c48 de c6                    |        |		ADDA.W	D6,A7
00020c4a 18 1f                    |        |		MOVE.B	(A7)+,D4
00020c4c 48 84                    |H       |		EXTB.W	D4
00020c4e 49 87                    |I       |		CHK.W	D7,D4
00020c50 18 84                    |        |		MOVE.B	D4,(A4)
00020c52 42 27                    |B'      |		CLR.B	-(A7)
00020c54 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00020c58 4e b9 00 02 26 4c        |N   &L  |		JSR	exp_READ_PAREG.IOC(Sw_1, &Sr_1)
00020c5e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020c60 42 80                    |B       |		CLR.L	D0
00020c62 10 2e ff f4              | .      |		MOVE.B	(A6-0xc),D0
00020c66 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020c68 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00020c6e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c70 2d 5f ff f6              |-_      |		MOVE.L	(A7)+,(A6-0xa)
00020c74 2d 57 ff fa              |-W      |		MOVE.L	(A7),(A6-0x6)
00020c78 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020c7a 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020c7e 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020c82 48 78 00 3f              |Hx ?    |		PEA.L	0x3f
00020c86 48 78 00 01              |Hx      |		PEA.L	0x1
00020c8a 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020c90 de c5                    |        |		ADDA.W	D5,A7
00020c92 2e ba f8 38              |.  8    |		MOVE.L	0x204cc,(A7)
00020c96 2f 3a f8 30              |/: 0    |		MOVE.L	0x204c8,-(A7)
00020c9a 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020ca0 de c6                    |        |		ADDA.W	D6,A7
00020ca2 10 10                    |        |		MOVE.B	(A0),D0
00020ca4 80 1f                    |        |		OR.B	(A7)+,D0
00020ca6 48 80                    |H       |		EXTB.W	D0
00020ca8 41 87                    |A       |		CHK.W	D7,D0
00020caa 10 80                    |        |		MOVE.B	D0,(A0)
00020cac 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020cb0 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020cb4 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020cb8 48 78 00 3e              |Hx >    |		PEA.L	0x3e
00020cbc 48 78 00 01              |Hx      |		PEA.L	0x1
00020cc0 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020cc6 de c5                    |        |		ADDA.W	D5,A7
00020cc8 2e ba f8 02              |.       |		MOVE.L	0x204cc,(A7)
00020ccc 2f 3a f7 fa              |/:      |		MOVE.L	0x204c8,-(A7)
00020cd0 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020cd6 de c6                    |        |		ADDA.W	D6,A7
00020cd8 10 11                    |        |		MOVE.B	(A1),D0
00020cda 80 1f                    |        |		OR.B	(A7)+,D0
00020cdc 48 80                    |H       |		EXTB.W	D0
00020cde 41 87                    |A       |		CHK.W	D7,D0
00020ce0 12 80                    |        |		MOVE.B	D0,(A1)
00020ce2 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020ce6 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020cea 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020cee 48 78 00 3c              |Hx <    |		PEA.L	0x3c
00020cf2 48 78 00 01              |Hx      |		PEA.L	0x1
00020cf6 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020cfc de c5                    |        |		ADDA.W	D5,A7
00020cfe 2e ba f7 cc              |.       |		MOVE.L	0x204cc,(A7)
00020d02 2f 3a f7 c4              |/:      |		MOVE.L	0x204c8,-(A7)
00020d06 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020d0c de c6                    |        |		ADDA.W	D6,A7
00020d0e 10 12                    |        |		MOVE.B	(A2),D0
00020d10 80 1f                    |        |		OR.B	(A7)+,D0
00020d12 48 80                    |H       |		EXTB.W	D0
00020d14 41 87                    |A       |		CHK.W	D7,D0
00020d16 14 80                    |        |		MOVE.B	D0,(A2)
00020d18 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020d1c 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020d20 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020d24 48 78 00 3d              |Hx =    |		PEA.L	0x3d
00020d28 48 78 00 01              |Hx      |		PEA.L	0x1
00020d2c 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020d32 de c5                    |        |		ADDA.W	D5,A7
00020d34 2e ba f7 96              |.       |		MOVE.L	0x204cc,(A7)
00020d38 2f 3a f7 8e              |/:      |		MOVE.L	0x204c8,-(A7)
00020d3c 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020d42 de c6                    |        |		ADDA.W	D6,A7
00020d44 10 13                    |        |		MOVE.B	(A3),D0
00020d46 80 1f                    |        |		OR.B	(A7)+,D0
00020d48 48 80                    |H       |		EXTB.W	D0
00020d4a 41 87                    |A       |		CHK.W	D7,D0
00020d4c 16 80                    |        |		MOVE.B	D0,(A3)
00020d4e 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00020d52 4e b9 00 02 22 02        |N   "   |		JSR	exp_READ_PARITY.TYP(&Sr_1)
00020d58 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020d5a 42 80                    |B       |		CLR.L	D0
00020d5c 10 2e ff f4              | .      |		MOVE.B	(A6-0xc),D0
00020d60 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020d62 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00020d68 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020d6a 2d 5f ff f6              |-_      |		MOVE.L	(A7)+,(A6-0xa)
00020d6e 2d 57 ff fa              |-W      |		MOVE.L	(A7),(A6-0x6)
00020d72 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020d74 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020d78 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020d7c 48 78 00 38              |Hx 8    |		PEA.L	0x38
00020d80 48 78 00 01              |Hx      |		PEA.L	0x1
00020d84 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020d8a de c5                    |        |		ADDA.W	D5,A7
00020d8c 2e ba f7 3e              |.  >    |		MOVE.L	0x204cc,(A7)
00020d90 2f 3a f7 36              |/: 6    |		MOVE.L	0x204c8,-(A7)
00020d94 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020d9a de c6                    |        |		ADDA.W	D6,A7
00020d9c 10 10                    |        |		MOVE.B	(A0),D0
00020d9e 80 1f                    |        |		OR.B	(A7)+,D0
00020da0 48 80                    |H       |		EXTB.W	D0
00020da2 41 87                    |A       |		CHK.W	D7,D0
00020da4 10 80                    |        |		MOVE.B	D0,(A0)
00020da6 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020daa 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020dae 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020db2 48 78 00 39              |Hx 9    |		PEA.L	0x39
00020db6 48 78 00 01              |Hx      |		PEA.L	0x1
00020dba 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020dc0 de c5                    |        |		ADDA.W	D5,A7
00020dc2 2e ba f7 08              |.       |		MOVE.L	0x204cc,(A7)
00020dc6 2f 3a f7 00              |/:      |		MOVE.L	0x204c8,-(A7)
00020dca 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020dd0 de c6                    |        |		ADDA.W	D6,A7
00020dd2 12 11                    |        |		MOVE.B	(A1),D1
00020dd4 82 1f                    |        |		OR.B	(A7)+,D1
00020dd6 48 81                    |H       |		EXTB.W	D1
00020dd8 43 87                    |C       |		CHK.W	D7,D1
00020dda 12 81                    |        |		MOVE.B	D1,(A1)
00020ddc 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020de0 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020de4 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020de8 48 78 00 3a              |Hx :    |		PEA.L	0x3a
00020dec 48 78 00 01              |Hx      |		PEA.L	0x1
00020df0 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020df6 de c5                    |        |		ADDA.W	D5,A7
00020df8 2e ba f6 d2              |.       |		MOVE.L	0x204cc,(A7)
00020dfc 2f 3a f6 ca              |/:      |		MOVE.L	0x204c8,-(A7)
00020e00 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020e06 de c6                    |        |		ADDA.W	D6,A7
00020e08 14 12                    |        |		MOVE.B	(A2),D2
00020e0a 84 1f                    |        |		OR.B	(A7)+,D2
00020e0c 48 82                    |H       |		EXTB.W	D2
00020e0e 45 87                    |E       |		CHK.W	D7,D2
00020e10 14 82                    |        |		MOVE.B	D2,(A2)
00020e12 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020e16 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020e1a 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020e1e 48 78 00 3d              |Hx =    |		PEA.L	0x3d
00020e22 48 78 00 02              |Hx      |		PEA.L	0x2
00020e26 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020e2c de c5                    |        |		ADDA.W	D5,A7
00020e2e 2e ba f6 ac              |.       |		MOVE.L	0x204dc,(A7)
00020e32 2f 3a f6 a4              |/:      |		MOVE.L	0x204d8,-(A7)
00020e36 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020e3c de c6                    |        |		ADDA.W	D6,A7
00020e3e 88 1f                    |        |		OR.B	(A7)+,D4
00020e40 48 84                    |H       |		EXTB.W	D4
00020e42 49 87                    |I       |		CHK.W	D7,D4
00020e44 18 84                    |        |		MOVE.B	D4,(A4)
00020e46 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00020e4a 4e b9 00 02 22 74        |N   "t  |		JSR	exp_READ_PARITY.VAL(&Sr_1)
00020e50 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020e52 42 82                    |B       |		CLR.L	D2
00020e54 14 2e ff f4              | .      |		MOVE.B	(A6-0xc),D2
00020e58 2f 02                    |/       |		MOVE.L	D2,-(A7)
00020e5a 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00020e60 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e62 2d 5f ff f6              |-_      |		MOVE.L	(A7)+,(A6-0xa)
00020e66 2d 57 ff fa              |-W      |		MOVE.L	(A7),(A6-0x6)
00020e6a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020e6c 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020e70 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020e74 48 78 00 38              |Hx 8    |		PEA.L	0x38
00020e78 48 78 00 01              |Hx      |		PEA.L	0x1
00020e7c 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020e82 de c5                    |        |		ADDA.W	D5,A7
00020e84 2e ba f6 46              |.  F    |		MOVE.L	0x204cc,(A7)
00020e88 2f 3a f6 3e              |/: >    |		MOVE.L	0x204c8,-(A7)
00020e8c 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020e92 de c6                    |        |		ADDA.W	D6,A7
00020e94 80 1f                    |        |		OR.B	(A7)+,D0
00020e96 48 80                    |H       |		EXTB.W	D0
00020e98 41 87                    |A       |		CHK.W	D7,D0
00020e9a 10 80                    |        |		MOVE.B	D0,(A0)
00020e9c 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020ea0 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020ea4 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020ea8 48 78 00 39              |Hx 9    |		PEA.L	0x39
00020eac 48 78 00 01              |Hx      |		PEA.L	0x1
00020eb0 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020eb6 de c5                    |        |		ADDA.W	D5,A7
00020eb8 2e ba f6 12              |.       |		MOVE.L	0x204cc,(A7)
00020ebc 2f 3a f6 0a              |/:      |		MOVE.L	0x204c8,-(A7)
00020ec0 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020ec6 de c6                    |        |		ADDA.W	D6,A7
00020ec8 82 1f                    |        |		OR.B	(A7)+,D1
00020eca 48 81                    |H       |		EXTB.W	D1
00020ecc 43 87                    |C       |		CHK.W	D7,D1
00020ece 12 81                    |        |		MOVE.B	D1,(A1)
00020ed0 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020ed4 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020ed8 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020edc 48 78 00 3a              |Hx :    |		PEA.L	0x3a
00020ee0 48 78 00 01              |Hx      |		PEA.L	0x1
00020ee4 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020eea de c5                    |        |		ADDA.W	D5,A7
00020eec 2e ba f5 de              |.       |		MOVE.L	0x204cc,(A7)
00020ef0 2f 3a f5 d6              |/:      |		MOVE.L	0x204c8,-(A7)
00020ef4 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020efa de c6                    |        |		ADDA.W	D6,A7
00020efc 10 13                    |        |		MOVE.B	(A3),D0
00020efe 80 1f                    |        |		OR.B	(A7)+,D0
00020f00 48 80                    |H       |		EXTB.W	D0
00020f02 41 87                    |A       |		CHK.W	D7,D0
00020f04 16 80                    |        |		MOVE.B	D0,(A3)
00020f06 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020f0a 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020f0e 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020f12 48 78 00 3c              |Hx <    |		PEA.L	0x3c
00020f16 48 78 00 02              |Hx      |		PEA.L	0x2
00020f1a 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020f20 de c5                    |        |		ADDA.W	D5,A7
00020f22 2e ba f5 b8              |.       |		MOVE.L	0x204dc,(A7)
00020f26 2f 3a f5 b0              |/:      |		MOVE.L	0x204d8,-(A7)
00020f2a 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00020f30 de c6                    |        |		ADDA.W	D6,A7
00020f32 88 1f                    |        |		OR.B	(A7)+,D4
00020f34 48 84                    |H       |		EXTB.W	D4
00020f36 49 87                    |I       |		CHK.W	D7,D4
00020f38 18 84                    |        |		MOVE.B	D4,(A4)
00020f3a 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020f3e 4e 5e                    |N^      |		UNLK	A6
00020f40 4e 75                    |Nu      |		RTS
00020f42 ; --------------------------------------------------------------------------------------
00020f42 ; OMSI PASCAL Function
00020f42 ;    <LVAR  0x010 4(w)>
00020f42 ;    <LVAR  0x00c 4(r)>
00020f42 ;    <LVAR  0x008 4(r)>
00020f42 ;    <LVAR -0x004 @ 4(r)>
00020f42 ; --------------------------------------------------------------------------------------
00020f42 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
00020f46 bf d5                    |        |		CMPA.L	(A5),A7
00020f48 62 06                    |b       |		BHI	0x20f50
00020f4a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020f4e 4e 76                    |Nv      |		TRAPV
00020f50 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
00020f54 48 e7 c3 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D1+D0,-(A7)
00020f58 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00020f5c 72 0f                    |r       |		MOVEQ.L	#0x0f,D1
00020f5e 48 51                    |HQ      |		PEA.L	(A1)
00020f60 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00020f66 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f68 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020f6a 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00020f6e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00020f72 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020f76 20 07                    |        |		MOVE.L	D7,D0
00020f78 e5 80                    |        |		ASL.L	#0x2,D0
00020f7a 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020f7c 48 78 00 04              |Hx      |		PEA.L	0x4
00020f80 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00020f86 de fc 00 10              |        |		ADDA.W	#0x10,A7
00020f8a 4e b9 00 01 03 50        |N    P  |		JSR	Quad2Long(a : Quad) : Long
00020f90 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f92 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00020f94 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00020f96 20 06                    |        |		MOVE.L	D6,D0
00020f98 52 80                    |R       |		ADDQ.L	#0x1,D0
00020f9a 53 80                    |S       |		SUBQ.L	#0x1,D0
00020f9c b0 81                    |        |		CMP.L	D1,D0
00020f9e 63 02                    |c       |		BLS	0x20fa2
00020fa0 4e 4f                    |NO      |		TRAP	#15
00020fa2 41 fa f1 fe              |A       |		LEA.L	0x201a2,A0
00020fa6 1f 30 08 00              | 0      |		MOVE.B	(A0+D0.L),-(A7)
00020faa 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020fb0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020fb2 0c 87 00 00 00 03        |        |		CMPI.L	#0x00000003,D7
00020fb8 67 10                    |g       |		BEQ	0x20fca
00020fba 0c 87 00 00 00 07        |        |		CMPI.L	#0x00000007,D7
00020fc0 67 08                    |g       |		BEQ	0x20fca
00020fc2 0c 87 00 00 00 0b        |        |		CMPI.L	#0x0000000b,D7
00020fc8 66 0e                    |f       |		BNE	0x20fd8
00020fca 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00020fcc 1f 3c 00 5f              | < _    |		MOVE.B	#0x5f,-(A7)
00020fd0 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020fd6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020fd8 52 87                    |R       |		ADDQ.L	#0x1,D7
00020fda be 81                    |        |		CMP.L	D1,D7
00020fdc 6f 8c                    |o       |		BLE	0x20f6a
00020fde 2d 51 00 10              |-Q      |		MOVE.L	(A1),(A6+0x10)
00020fe2 4c df 03 c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1
00020fe6 4e 5e                    |N^      |		UNLK	A6
00020fe8 4e 75                    |Nu      |		RTS
00020fea ; --------------------------------------------------------------------------------------
00020fea ; OMSI PASCAL Function
00020fea ;    <LVAR  0x010 @ 4(r)>
00020fea ;    <LVAR  0x00c 4(r)>
00020fea ;    <LVAR  0x008 4(r)>
00020fea ; --------------------------------------------------------------------------------------
00020fea 4e 56 ff e6              |NV      |		LINK.W	A6,#0xffe6
00020fee bf d5                    |        |		CMPA.L	(A5),A7
00020ff0 62 06                    |b       |		BHI	0x20ff8
00020ff2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020ff6 4e 76                    |Nv      |		TRAPV
00020ff8 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020ffc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020ffe 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00021002 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021006 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021008 48 78 00 00              |Hx      |		PEA.L	0x0
0002100c 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00021012 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021014 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
0002101a de fc 00 10              |        |		ADDA.W	#0x10,A7
0002101e 4a 1f                    |J       |		TST.B	(A7)+
00021020 66 24                    |f$      |		BNE	0x21046
00021022 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021024 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00021028 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002102a 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002102e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021032 4e ba ff 0e              |N       |		JSR	0x20f42
00021036 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021038 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002103e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021040 4e ba f7 0a              |N       |		JSR	0x2074c
00021044 60 0a                    |`       |		BRA	0x21050
00021046 48 6e 00 10              |Hn      |		PEA.L	(A6+0x10)
0002104a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021050 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021052 4e 5e                    |N^      |		UNLK	A6
00021054 4e 75                    |Nu      |		RTS
00021056 ; --------------------------------------------------------------------------------------
00021056 ; OMSI PASCAL Function
00021056 ;    <LVAR  0x008 4(r)>
00021056 ; --------------------------------------------------------------------------------------
00021056 4e 56 ff 92              |NV      |		LINK.W	A6,#0xff92
0002105a bf d5                    |        |		CMPA.L	(A5),A7
0002105c 62 06                    |b       |		BHI	0x21064
0002105e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021062 4e 76                    |Nv      |		TRAPV
00021064 de fc 00 6a              |   j    |		ADDA.W	#0x6a,A7
00021068 48 e7 ff e8              |H       |		MOVEM.L	A4+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002106c 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021072 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021074 74 14                    |t       |		MOVEQ.L	#0x14,D2
00021076 76 0e                    |v       |		MOVEQ.L	#0x0e,D3
00021078 78 02                    |x       |		MOVEQ.L	#0x02,D4
0002107a 7a 26                    |z&      |		MOVEQ.L	#0x26,D5
0002107c 7c 1e                    ||       |		MOVEQ.L	#0x1e,D6
0002107e 7e 16                    |~       |		MOVEQ.L	#0x16,D7
00021080 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
00021084 1f 04                    |        |		MOVE.B	D4,-(A7)
00021086 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
0002108c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002108e 4a 39 00 02 26 b0        |J9  &   |		TST.B	0x226b0
00021094 67 00 00 dc              |g       |		BEQ	0x21172
00021098 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
0002109c b0 81                    |        |		CMP.L	D1,D0
0002109e 66 28                    |f(      |		BNE	0x210c8
000210a0 9e c5                    |        |		SUBA.W	D5,A7
000210a2 20 4f                    | O      |		MOVEA.L	A7,A0
000210a4 43 fa f1 0c              |C       |		LEA.L	0x201b2,A1
000210a8 70 24                    |p$      |		MOVEQ.L	#0x24,D0
000210aa 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000210ac 51 c8 ff fc              |Q       |		DBF	D0,0x210aa
000210b0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210b2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000210b6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210b8 3f 3c 00 25              |?< %    |		MOVE.W	#0x25,-(A7)
000210bc 4e 92                    |N       |		JSR	(A2)
000210be 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210c0 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000210c2 de c5                    |        |		ADDA.W	D5,A7
000210c4 60 00 00 a0              |`       |		BRA	0x21166
000210c8 b0 84                    |        |		CMP.L	D4,D0
000210ca 66 20                    |f       |		BNE	0x210ec
000210cc 41 fa f1 28              |A  (    |		LEA.L	0x201f6,A0
000210d0 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000210d2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000210d4 51 c8 ff fc              |Q       |		DBF	D0,0x210d2
000210d8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210da 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000210de 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210e0 3f 06                    |?       |		MOVE.W	D6,-(A7)
000210e2 4e 92                    |N       |		JSR	(A2)
000210e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210e6 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000210e8 de c6                    |        |		ADDA.W	D6,A7
000210ea 60 7a                    |`z      |		BRA	0x21166
000210ec 0c 80 00 00 00 03        |        |		CMPI.L	#0x00000003,D0
000210f2 66 26                    |f&      |		BNE	0x2111a
000210f4 9e c2                    |        |		SUBA.W	D2,A7
000210f6 20 4f                    | O      |		MOVEA.L	A7,A0
000210f8 43 fa f0 fc              |C       |		LEA.L	0x201f6,A1
000210fc 70 12                    |p       |		MOVEQ.L	#0x12,D0
000210fe 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021100 51 c8 ff fc              |Q       |		DBF	D0,0x210fe
00021104 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021106 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002110a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002110c 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00021110 4e 92                    |N       |		JSR	(A2)
00021112 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021114 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021116 de c2                    |        |		ADDA.W	D2,A7
00021118 60 4c                    |`L      |		BRA	0x21166
0002111a 0c 80 00 00 00 06        |        |		CMPI.L	#0x00000006,D0
00021120 66 20                    |f       |		BNE	0x21142
00021122 41 fa f0 fc              |A       |		LEA.L	0x20220,A0
00021126 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021128 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002112a 51 c8 ff fc              |Q       |		DBF	D0,0x21128
0002112e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021130 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021134 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021136 3f 07                    |?       |		MOVE.W	D7,-(A7)
00021138 4e 92                    |N       |		JSR	(A2)
0002113a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002113c 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002113e de c7                    |        |		ADDA.W	D7,A7
00021140 60 24                    |`$      |		BRA	0x21166
00021142 9e c3                    |        |		SUBA.W	D3,A7
00021144 20 4f                    | O      |		MOVEA.L	A7,A0
00021146 43 fa f0 d8              |C       |		LEA.L	0x20220,A1
0002114a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002114c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002114e 51 c8 ff fc              |Q       |		DBF	D0,0x2114c
00021152 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021154 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021158 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002115a 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002115e 4e 92                    |N       |		JSR	(A2)
00021160 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021162 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021164 de c3                    |        |		ADDA.W	D3,A7
00021166 1f 03                    |        |		MOVE.B	D3,-(A7)
00021168 2f 0c                    |/       |		MOVE.L	A4,-(A7)
0002116a 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021170 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021172 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
00021176 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
0002117c 63 02                    |c       |		BLS	0x21180
0002117e 4e 4f                    |NO      |		TRAP	#15
00021180 13 c0 00 02 26 b9        |    &   |		MOVE.B	D0,0x226b9
00021186 42 27                    |B'      |		CLR.B	-(A7)
00021188 2f 39 00 02 26 ba        |/9  &   |		MOVE.L	0x226ba,-(A7)
0002118e 2f 39 00 02 26 ac        |/9  &   |		MOVE.L	0x226ac,-(A7)
00021194 1f 00                    |        |		MOVE.B	D0,-(A7)
00021196 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021198 20 4f                    | O      |		MOVEA.L	A7,A0
0002119a 43 f9 00 02 26 b1        |C   &   |		LEA.L	0x226b1,A1
000211a0 70 07                    |p       |		MOVEQ.L	#0x07,D0
000211a2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000211a4 51 c8 ff fc              |Q       |		DBF	D0,0x211a2
000211a8 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
000211ae de c2                    |        |		ADDA.W	D2,A7
000211b0 4c df 17 ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A4
000211b4 4e 5e                    |N^      |		UNLK	A6
000211b6 4e 75                    |Nu      |		RTS
000211b8 ; --------------------------------------------------------------------------------------
000211b8 ; OMSI PASCAL Function
000211b8 ;    <LVAR -0x003 @ 1(r)>
000211b8 ;    <LVAR -0x004 @ 1(r)>
000211b8 ;    <LVAR -0x005 @ 1(r)>
000211b8 ;    <LVAR -0x006 @ 1(r)>
000211b8 ;    <LVAR -0x007 @ 1(r)>
000211b8 ;    <LVAR -0x008 @ 1(r)>
000211b8 ;    <LVAR -0x010 4(rw)>
000211b8 ;    <LVAR -0x014 4(rw)>
000211b8 ;    <LVAR -0x018 4(r)>
000211b8 ;    <LVAR -0x01c 4(r)>
000211b8 ;    <LVAR -0x020 4(r)>
000211b8 ;    <LVAR -0x024 4(r)>
000211b8 ;    <LVAR -0x028 4(r)>
000211b8 ;    <LVAR -0x02c 4(r)>
000211b8 ;    <LVAR -0x030 4(r)>
000211b8 ;    <LVAR -0x034 4(r)>
000211b8 ;    <LVAR -0x038 4(rw)>
000211b8 ;    <LVAR -0x03c 4(rw)>
000211b8 ;    <LVAR -0x040 4(rw)>
000211b8 ;    <LVAR -0x044 4(rw)>
000211b8 ;    <LVAR -0x048 4(rw)>
000211b8 ;    <LVAR -0x04c 4(rw)>
000211b8 ;    <LVAR -0x050 4(rw)>
000211b8 ;    <LVAR -0x054 4(rw)>
000211b8 ;    <LVAR -0x058 4(rw)>
000211b8 ;    <LVAR -0x05c 4(rw)>
000211b8 ;    <LVAR -0x060 4(r)>
000211b8 ;    <LVAR -0x064 4(r)>
000211b8 ;    <LVAR -0x068 4(r)>
000211b8 ;    <LVAR -0x06c 4(r)>
000211b8 ;    <LVAR -0x070 4(r)>
000211b8 ;    <LVAR -0x074 4(r)>
000211b8 ;    <LVAR -0x078 4(r)>
000211b8 ;    <LVAR -0x07c 4(r)>
000211b8 ;    <LVAR -0x080 4(rw)>
000211b8 ;    <LVAR -0x084 4(rw)>
000211b8 ;    <LVAR -0x088 4(rw)>
000211b8 ;    <LVAR -0x08c 4(rw)>
000211b8 ;    <LVAR -0x090 4(rw)>
000211b8 ;    <LVAR -0x094 4(rw)>
000211b8 ;    <LVAR -0x098 4(rw)>
000211b8 ;    <LVAR -0x09c 4(rw)>
000211b8 ;    <LVAR -0x0a0 4(rw)>
000211b8 ;    <LVAR -0x0a4 4(rw)>
000211b8 ;    <LVAR -0x0a8 4(rw)>
000211b8 ;    <LVAR -0x0ac 4(rw)>
000211b8 ;    <LVAR -0x0b0 4(rw)>
000211b8 ;    <LVAR -0x0b4 4(rw)>
000211b8 ;    <LVAR -0x0b8 4(rw)>
000211b8 ;    <LVAR -0x0bc 4(rw)>
000211b8 ;    <LVAR -0x0c0 4(rw)>
000211b8 ;    <LVAR -0x0c4 4(rw)>
000211b8 ;    <LVAR -0x0c8 4(rw)>
000211b8 ;    <LVAR -0x0cc 4(rw)>
000211b8 ;    <LVAR -0x0d0 4(rw)>
000211b8 ;    <LVAR -0x0d4 4(rw)>
000211b8 ;    <LVAR -0x0dc @>
000211b8 ; --------------------------------------------------------------------------------------
000211b8 4e 56 fe b4              |NV      |		LINK.W	A6,#0xfeb4
000211bc bf d5                    |        |		CMPA.L	(A5),A7
000211be 62 06                    |b       |		BHI	0x211c6
000211c0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000211c4 4e 76                    |Nv      |		TRAPV
000211c6 de fc 00 70              |   p    |		ADDA.W	#0x70,A7
000211ca 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000211ce 45 fa f8 ae              |E       |		LEA.L	0x20a7e,A2
000211d2 47 ee ff 7c              |G  |    |		LEA.L	(A6-0x84),A3
000211d6 49 ee ff 80              |I       |		LEA.L	(A6-0x80),A4
000211da 76 10                    |v       |		MOVEQ.L	#0x10,D3
000211dc 78 01                    |x       |		MOVEQ.L	#0x01,D4
000211de 42 b9 00 02 26 a8        |B   &   |		CLR.L	0x226a8
000211e4 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000211e8 4e ba f5 f6              |N       |		JSR	0x207e0
000211ec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211ee 4a 2e ff f8              |J.      |		TST.B	(A6-0x8)
000211f2 66 0a                    |f       |		BNE	0x211fe
000211f4 48 78 00 01              |Hx      |		PEA.L	0x1
000211f8 4e ba fe 5c              |N  \    |		JSR	0x21056
000211fc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211fe 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
00021202 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00021206 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002120a 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
0002120e 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00021212 4e ba f8 e4              |N       |		JSR	0x20af8
00021216 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002121a 4a 2e ff f9              |J.      |		TST.B	(A6-0x7)
0002121e 67 0a                    |g       |		BEQ	0x2122a
00021220 48 78 00 02              |Hx      |		PEA.L	0x2
00021224 4e ba fe 30              |N  0    |		JSR	0x21056
00021228 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002122a 4a 2e ff fa              |J.      |		TST.B	(A6-0x6)
0002122e 67 0a                    |g       |		BEQ	0x2123a
00021230 48 78 00 03              |Hx      |		PEA.L	0x3
00021234 4e ba fe 20              |N       |		JSR	0x21056
00021238 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002123a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002123c 48 78 00 04              |Hx      |		PEA.L	0x4
00021240 4e ba f7 c2              |N       |		JSR	0x20a04
00021244 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021246 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021248 28 97                    |(       |		MOVE.L	(A7),(A4)
0002124a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002124c 48 78 00 04              |Hx      |		PEA.L	0x4
00021250 4e 92                    |N       |		JSR	(A2)
00021252 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021254 2d 5f ff c4              |-_      |		MOVE.L	(A7)+,(A6-0x3c)
00021258 2d 57 ff c8              |-W      |		MOVE.L	(A7),(A6-0x38)
0002125c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002125e 48 78 00 05              |Hx      |		PEA.L	0x5
00021262 4e ba f7 a0              |N       |		JSR	0x20a04
00021266 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021268 2d 5f ff 6c              |-_ l    |		MOVE.L	(A7)+,(A6-0x94)
0002126c 2d 57 ff 70              |-W p    |		MOVE.L	(A7),(A6-0x90)
00021270 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021272 48 78 00 05              |Hx      |		PEA.L	0x5
00021276 4e 92                    |N       |		JSR	(A2)
00021278 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002127a 2d 5f ff b4              |-_      |		MOVE.L	(A7)+,(A6-0x4c)
0002127e 2d 57 ff b8              |-W      |		MOVE.L	(A7),(A6-0x48)
00021282 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021284 48 78 00 06              |Hx      |		PEA.L	0x6
00021288 4e ba f7 7a              |N  z    |		JSR	0x20a04
0002128c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002128e 2d 5f ff 74              |-_ t    |		MOVE.L	(A7)+,(A6-0x8c)
00021292 2d 57 ff 78              |-W x    |		MOVE.L	(A7),(A6-0x88)
00021296 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021298 48 78 00 06              |Hx      |		PEA.L	0x6
0002129c 4e 92                    |N       |		JSR	(A2)
0002129e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212a0 2d 5f ff bc              |-_      |		MOVE.L	(A7)+,(A6-0x44)
000212a4 2d 5f ff c0              |-_      |		MOVE.L	(A7)+,(A6-0x40)
000212a8 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
000212aa 10 07                    |        |		MOVE.B	D7,D0
000212ac 48 80                    |H       |		EXTB.W	D0
000212ae 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
000212b2 41 bc 00 03              |A       |		CHK.W	#0x3,D0
000212b6 e7 40                    | @      |		ASL.W	#0x3,D0
000212b8 41 ee ff 24              |A  $    |		LEA.L	(A6-0xdc),A0
000212bc 12 07                    |        |		MOVE.B	D7,D1
000212be 48 81                    |H       |		EXTB.W	D1
000212c0 5e 41                    |^A      |		ADDQ.W	#0x7,D1
000212c2 04 41 00 0c              | A      |		SUBI.W	#0x000c,D1
000212c6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000212c8 34 01                    |4       |		MOVE.W	D1,D2
000212ca 48 c2                    |H       |		EXTW.L	D2
000212cc 2f 02                    |/       |		MOVE.L	D2,-(A7)
000212ce 4e ba f7 34              |N  4    |		JSR	0x20a04
000212d2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212d4 21 9f 00 60              |!  `    |		MOVE.L	(A7)+,(A0+D0.W+#0x60)
000212d8 21 9f 00 64              |!  d    |		MOVE.L	(A7)+,(A0+D0.W+#0x64)
000212dc 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
000212e0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000212e2 48 c1                    |H       |		EXTW.L	D1
000212e4 2f 01                    |/       |		MOVE.L	D1,-(A7)
000212e6 4e 92                    |N       |		JSR	(A2)
000212e8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212ea 21 5f 00 a8              |!_      |		MOVE.L	(A7)+,(A0+0xa8)
000212ee 21 5f 00 ac              |!_      |		MOVE.L	(A7)+,(A0+0xac)
000212f2 52 07                    |R       |		ADDQ.B	#0x1,D7
000212f4 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
000212f8 6f b0                    |o       |		BLE	0x212aa
000212fa 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000212fc 48 78 00 0c              |Hx      |		PEA.L	0xc
00021300 4e 92                    |N       |		JSR	(A2)
00021302 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021304 2d 5f ff 34              |-_ 4    |		MOVE.L	(A7)+,(A6-0xcc)
00021308 2d 57 ff 38              |-W 8    |		MOVE.L	(A7),(A6-0xc8)
0002130c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002130e 48 78 00 0d              |Hx      |		PEA.L	0xd
00021312 4e 92                    |N       |		JSR	(A2)
00021314 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021316 2d 5f ff 44              |-_ D    |		MOVE.L	(A7)+,(A6-0xbc)
0002131a 2d 57 ff 48              |-W H    |		MOVE.L	(A7),(A6-0xb8)
0002131e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021320 48 78 00 0e              |Hx      |		PEA.L	0xe
00021324 4e 92                    |N       |		JSR	(A2)
00021326 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021328 2d 5f ff 4c              |-_ L    |		MOVE.L	(A7)+,(A6-0xb4)
0002132c 2d 57 ff 50              |-W P    |		MOVE.L	(A7),(A6-0xb0)
00021330 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021332 48 78 00 0f              |Hx      |		PEA.L	0xf
00021336 4e 92                    |N       |		JSR	(A2)
00021338 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002133a 2d 5f ff 54              |-_ T    |		MOVE.L	(A7)+,(A6-0xac)
0002133e 2d 57 ff 58              |-W X    |		MOVE.L	(A7),(A6-0xa8)
00021342 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021344 48 78 00 0e              |Hx      |		PEA.L	0xe
00021348 4e ba f6 ba              |N       |		JSR	0x20a04
0002134c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002134e 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021352 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00021356 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
0002135a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002135e 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00021364 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021366 2f 2e ff 58              |/. X    |		MOVE.L	(A6-0xa8),-(A7)
0002136a 2f 2e ff 54              |/. T    |		MOVE.L	(A6-0xac),-(A7)
0002136e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021370 2f 2e ff 48              |/. H    |		MOVE.L	(A6-0xb8),-(A7)
00021374 2f 2e ff 44              |/. D    |		MOVE.L	(A6-0xbc),-(A7)
00021378 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
0002137e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021380 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00021386 de c3                    |        |		ADDA.W	D3,A7
00021388 2d 5f ff 54              |-_ T    |		MOVE.L	(A7)+,(A6-0xac)
0002138c 2d 57 ff 58              |-W X    |		MOVE.L	(A7),(A6-0xa8)
00021390 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021392 2f 2e ff 58              |/. X    |		MOVE.L	(A6-0xa8),-(A7)
00021396 2f 2e ff 54              |/. T    |		MOVE.L	(A6-0xac),-(A7)
0002139a 2f 3a f1 30              |/: 0    |		MOVE.L	0x204cc,-(A7)
0002139e 2f 3a f1 28              |/: (    |		MOVE.L	0x204c8,-(A7)
000213a2 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
000213a8 de c3                    |        |		ADDA.W	D3,A7
000213aa 4a 1f                    |J       |		TST.B	(A7)+
000213ac 66 3a                    |f:      |		BNE	0x213e8
000213ae 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000213b0 2f 2e ff 58              |/. X    |		MOVE.L	(A6-0xa8),-(A7)
000213b4 2f 2e ff 54              |/. T    |		MOVE.L	(A6-0xac),-(A7)
000213b8 4e ba fb 88              |N       |		JSR	0x20f42
000213bc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213be 23 df 00 02 26 ac        |#   &   |		MOVE.L	(A7)+,0x226ac
000213c4 2f 39 00 02 26 ac        |/9  &   |		MOVE.L	0x226ac,-(A7)
000213ca 1f 3c 00 5c              | < \    |		MOVE.B	#0x5c,-(A7)
000213ce 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000213d4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000213d6 13 fc 00 06 00 02 26 b1  |      & |		MOVE.B	#0x06,0x226b1
000213de 48 78 00 06              |Hx      |		PEA.L	0x6
000213e2 4e ba fc 72              |N  r    |		JSR	0x21056
000213e6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213e8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000213ea 2f 2e ff 38              |/. 8    |		MOVE.L	(A6-0xc8),-(A7)
000213ee 2f 2e ff 34              |/. 4    |		MOVE.L	(A6-0xcc),-(A7)
000213f2 2f 2e ff 48              |/. H    |		MOVE.L	(A6-0xb8),-(A7)
000213f6 2f 2e ff 44              |/. D    |		MOVE.L	(A6-0xbc),-(A7)
000213fa 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00021400 de c3                    |        |		ADDA.W	D3,A7
00021402 2d 5f ff 3c              |-_ <    |		MOVE.L	(A7)+,(A6-0xc4)
00021406 2d 57 ff 40              |-W @    |		MOVE.L	(A7),(A6-0xc0)
0002140a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002140c 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0002140e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021410 2f 2e ff 70              |/. p    |		MOVE.L	(A6-0x90),-(A7)
00021414 2f 2e ff 6c              |/. l    |		MOVE.L	(A6-0x94),-(A7)
00021418 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
0002141e de c3                    |        |		ADDA.W	D3,A7
00021420 2d 5f ff 64              |-_ d    |		MOVE.L	(A7)+,(A6-0x9c)
00021424 2d 57 ff 68              |-W h    |		MOVE.L	(A7),(A6-0x98)
00021428 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002142a 2f 2e ff c8              |/.      |		MOVE.L	(A6-0x38),-(A7)
0002142e 2f 2e ff c4              |/.      |		MOVE.L	(A6-0x3c),-(A7)
00021432 2f 2e ff b8              |/.      |		MOVE.L	(A6-0x48),-(A7)
00021436 2f 2e ff b4              |/.      |		MOVE.L	(A6-0x4c),-(A7)
0002143a 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00021440 de c3                    |        |		ADDA.W	D3,A7
00021442 2d 5f ff ac              |-_      |		MOVE.L	(A7)+,(A6-0x54)
00021446 2d 5f ff b0              |-_      |		MOVE.L	(A7)+,(A6-0x50)
0002144a 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
0002144c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002144e 1f 07                    |        |		MOVE.B	D7,-(A7)
00021450 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00021456 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021458 4a 1f                    |J       |		TST.B	(A7)+
0002145a 67 5a                    |gZ      |		BEQ	0x214b6
0002145c 10 07                    |        |		MOVE.B	D7,D0
0002145e 48 80                    |H       |		EXTB.W	D0
00021460 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
00021464 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00021468 e7 40                    | @      |		ASL.W	#0x3,D0
0002146a 41 ee ff 24              |A  $    |		LEA.L	(A6-0xdc),A0
0002146e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021470 2f 2e ff 68              |/. h    |		MOVE.L	(A6-0x98),-(A7)
00021474 2f 2e ff 64              |/. d    |		MOVE.L	(A6-0x9c),-(A7)
00021478 2f 30 00 64              |/0 d    |		MOVE.L	(A0+D0.W+#0x64),-(A7)
0002147c 2f 30 00 60              |/0 `    |		MOVE.L	(A0+D0.W+#0x60),-(A7)
00021480 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00021486 de c3                    |        |		ADDA.W	D3,A7
00021488 2d 5f ff 64              |-_ d    |		MOVE.L	(A7)+,(A6-0x9c)
0002148c 2d 57 ff 68              |-W h    |		MOVE.L	(A7),(A6-0x98)
00021490 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021492 2f 2e ff b0              |/.      |		MOVE.L	(A6-0x50),-(A7)
00021496 2f 2e ff ac              |/.      |		MOVE.L	(A6-0x54),-(A7)
0002149a 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
0002149e 2f 28 00 ac              |/(      |		MOVE.L	(A0+0xac),-(A7)
000214a2 2f 28 00 a8              |/(      |		MOVE.L	(A0+0xa8),-(A7)
000214a6 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
000214ac de c3                    |        |		ADDA.W	D3,A7
000214ae 2d 5f ff ac              |-_      |		MOVE.L	(A7)+,(A6-0x54)
000214b2 2d 5f ff b0              |-_      |		MOVE.L	(A7)+,(A6-0x50)
000214b6 52 07                    |R       |		ADDQ.B	#0x1,D7
000214b8 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
000214bc 6f 8e                    |o       |		BLE	0x2144c
000214be 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000214c0 2f 2e ff 38              |/. 8    |		MOVE.L	(A6-0xc8),-(A7)
000214c4 2f 2e ff 34              |/. 4    |		MOVE.L	(A6-0xcc),-(A7)
000214c8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000214ca 2f 2e ff 40              |/. @    |		MOVE.L	(A6-0xc0),-(A7)
000214ce 2f 2e ff 3c              |/. <    |		MOVE.L	(A6-0xc4),-(A7)
000214d2 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
000214d8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214da 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
000214e0 de c3                    |        |		ADDA.W	D3,A7
000214e2 2d 5f ff 34              |-_ 4    |		MOVE.L	(A7)+,(A6-0xcc)
000214e6 2d 57 ff 38              |-W 8    |		MOVE.L	(A7),(A6-0xc8)
000214ea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000214ec 2f 2e ff 48              |/. H    |		MOVE.L	(A6-0xb8),-(A7)
000214f0 2f 2e ff 44              |/. D    |		MOVE.L	(A6-0xbc),-(A7)
000214f4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000214f6 2f 2e ff 40              |/. @    |		MOVE.L	(A6-0xc0),-(A7)
000214fa 2f 2e ff 3c              |/. <    |		MOVE.L	(A6-0xc4),-(A7)
000214fe 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
00021504 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021506 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
0002150c de c3                    |        |		ADDA.W	D3,A7
0002150e 2d 5f ff 44              |-_ D    |		MOVE.L	(A7)+,(A6-0xbc)
00021512 2d 57 ff 48              |-W H    |		MOVE.L	(A7),(A6-0xb8)
00021516 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021518 2f 2e ff 50              |/. P    |		MOVE.L	(A6-0xb0),-(A7)
0002151c 2f 2e ff 4c              |/. L    |		MOVE.L	(A6-0xb4),-(A7)
00021520 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021522 2f 2e ff 40              |/. @    |		MOVE.L	(A6-0xc0),-(A7)
00021526 2f 2e ff 3c              |/. <    |		MOVE.L	(A6-0xc4),-(A7)
0002152a 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
00021530 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021532 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00021538 de c3                    |        |		ADDA.W	D3,A7
0002153a 2d 5f ff 4c              |-_ L    |		MOVE.L	(A7)+,(A6-0xb4)
0002153e 2d 57 ff 50              |-W P    |		MOVE.L	(A7),(A6-0xb0)
00021542 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021544 2f 2e ff 78              |/. x    |		MOVE.L	(A6-0x88),-(A7)
00021548 2f 2e ff 74              |/. t    |		MOVE.L	(A6-0x8c),-(A7)
0002154c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002154e 2f 2e ff 68              |/. h    |		MOVE.L	(A6-0x98),-(A7)
00021552 2f 2e ff 64              |/. d    |		MOVE.L	(A6-0x9c),-(A7)
00021556 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
0002155c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002155e 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00021564 de c3                    |        |		ADDA.W	D3,A7
00021566 2d 5f ff 74              |-_ t    |		MOVE.L	(A7)+,(A6-0x8c)
0002156a 2d 57 ff 78              |-W x    |		MOVE.L	(A7),(A6-0x88)
0002156e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021570 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00021572 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021574 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021576 2f 2e ff 68              |/. h    |		MOVE.L	(A6-0x98),-(A7)
0002157a 2f 2e ff 64              |/. d    |		MOVE.L	(A6-0x9c),-(A7)
0002157e 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
00021584 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021586 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
0002158c de c3                    |        |		ADDA.W	D3,A7
0002158e 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021590 28 97                    |(       |		MOVE.L	(A7),(A4)
00021592 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021594 2f 2e ff 70              |/. p    |		MOVE.L	(A6-0x90),-(A7)
00021598 2f 2e ff 6c              |/. l    |		MOVE.L	(A6-0x94),-(A7)
0002159c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002159e 2f 2e ff 68              |/. h    |		MOVE.L	(A6-0x98),-(A7)
000215a2 2f 2e ff 64              |/. d    |		MOVE.L	(A6-0x9c),-(A7)
000215a6 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
000215ac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215ae 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
000215b4 de c3                    |        |		ADDA.W	D3,A7
000215b6 2d 5f ff 6c              |-_ l    |		MOVE.L	(A7)+,(A6-0x94)
000215ba 2d 57 ff 70              |-W p    |		MOVE.L	(A7),(A6-0x90)
000215be 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000215c0 2f 2e ff c0              |/.      |		MOVE.L	(A6-0x40),-(A7)
000215c4 2f 2e ff bc              |/.      |		MOVE.L	(A6-0x44),-(A7)
000215c8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000215ca 2f 2e ff b0              |/.      |		MOVE.L	(A6-0x50),-(A7)
000215ce 2f 2e ff ac              |/.      |		MOVE.L	(A6-0x54),-(A7)
000215d2 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
000215d8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215da 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
000215e0 de c3                    |        |		ADDA.W	D3,A7
000215e2 2d 5f ff bc              |-_      |		MOVE.L	(A7)+,(A6-0x44)
000215e6 2d 57 ff c0              |-W      |		MOVE.L	(A7),(A6-0x40)
000215ea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000215ec 2f 2e ff c8              |/.      |		MOVE.L	(A6-0x38),-(A7)
000215f0 2f 2e ff c4              |/.      |		MOVE.L	(A6-0x3c),-(A7)
000215f4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000215f6 2f 2e ff b0              |/.      |		MOVE.L	(A6-0x50),-(A7)
000215fa 2f 2e ff ac              |/.      |		MOVE.L	(A6-0x54),-(A7)
000215fe 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
00021604 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021606 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
0002160c de c3                    |        |		ADDA.W	D3,A7
0002160e 2d 5f ff c4              |-_      |		MOVE.L	(A7)+,(A6-0x3c)
00021612 2d 57 ff c8              |-W      |		MOVE.L	(A7),(A6-0x38)
00021616 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021618 2f 2e ff b8              |/.      |		MOVE.L	(A6-0x48),-(A7)
0002161c 2f 2e ff b4              |/.      |		MOVE.L	(A6-0x4c),-(A7)
00021620 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021622 2f 2e ff b0              |/.      |		MOVE.L	(A6-0x50),-(A7)
00021626 2f 2e ff ac              |/.      |		MOVE.L	(A6-0x54),-(A7)
0002162a 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
00021630 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021632 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00021638 de c3                    |        |		ADDA.W	D3,A7
0002163a 2d 5f ff b4              |-_      |		MOVE.L	(A7)+,(A6-0x4c)
0002163e 2d 5f ff b8              |-_      |		MOVE.L	(A7)+,(A6-0x48)
00021642 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00021644 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021646 1f 07                    |        |		MOVE.B	D7,-(A7)
00021648 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
0002164e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021650 4a 1f                    |J       |		TST.B	(A7)+
00021652 67 70                    |gp      |		BEQ	0x216c4
00021654 10 07                    |        |		MOVE.B	D7,D0
00021656 48 80                    |H       |		EXTB.W	D0
00021658 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
0002165c 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00021660 e7 40                    | @      |		ASL.W	#0x3,D0
00021662 41 ee ff 24              |A  $    |		LEA.L	(A6-0xdc),A0
00021666 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021668 2f 30 00 64              |/0 d    |		MOVE.L	(A0+D0.W+#0x64),-(A7)
0002166c 2f 30 00 60              |/0 `    |		MOVE.L	(A0+D0.W+#0x60),-(A7)
00021670 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021672 2f 2e ff 68              |/. h    |		MOVE.L	(A6-0x98),-(A7)
00021676 2f 2e ff 64              |/. d    |		MOVE.L	(A6-0x9c),-(A7)
0002167a 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
00021680 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021682 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
00021688 de c3                    |        |		ADDA.W	D3,A7
0002168a 21 9f 00 60              |!  `    |		MOVE.L	(A7)+,(A0+D0.W+#0x60)
0002168e 21 9f 00 64              |!  d    |		MOVE.L	(A7)+,(A0+D0.W+#0x64)
00021692 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00021696 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021698 2f 28 00 ac              |/(      |		MOVE.L	(A0+0xac),-(A7)
0002169c 2f 28 00 a8              |/(      |		MOVE.L	(A0+0xa8),-(A7)
000216a0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000216a2 2f 2e ff b0              |/.      |		MOVE.L	(A6-0x50),-(A7)
000216a6 2f 2e ff ac              |/.      |		MOVE.L	(A6-0x54),-(A7)
000216aa 4e b9 00 01 03 38        |N    8  |		JSR	BitNot(a : Quad) : Quad
000216b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216b2 4e b9 00 01 03 30        |N    0  |		JSR	BitAnd(a, b : Quad) : Quad
000216b8 de c3                    |        |		ADDA.W	D3,A7
000216ba 21 5f 00 a8              |!_      |		MOVE.L	(A7)+,(A0+0xa8)
000216be 21 5f 00 ac              |!_      |		MOVE.L	(A7)+,(A0+0xac)
000216c2 60 2e                    |`.      |		BRA	0x216f2
000216c4 10 07                    |        |		MOVE.B	D7,D0
000216c6 48 80                    |H       |		EXTB.W	D0
000216c8 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
000216cc 41 bc 00 03              |A       |		CHK.W	#0x3,D0
000216d0 e7 40                    | @      |		ASL.W	#0x3,D0
000216d2 41 ee ff 24              |A  $    |		LEA.L	(A6-0xdc),A0
000216d6 21 ba ed f0 00 60        |!    `  |		MOVE.L	0x204c8,(A0+D0.W+#0x60)
000216dc 21 ba ed ee 00 64        |!    d  |		MOVE.L	0x204cc,(A0+D0.W+#0x64)
000216e2 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
000216e6 21 7a ed e0 00 a8        |!z      |		MOVE.L	0x204c8,(A0+0xa8)
000216ec 21 7a ed de 00 ac        |!z      |		MOVE.L	0x204cc,(A0+0xac)
000216f2 52 07                    |R       |		ADDQ.B	#0x1,D7
000216f4 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
000216f8 6f 00 ff 4a              |o  J    |		BLE	0x21644
000216fc 41 fa eb 44              |A  D    |		LEA.L	0x20242,A0
00021700 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021702 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021704 51 c8 ff fc              |Q       |		DBF	D0,0x21702
00021708 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002170a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002170e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021710 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021714 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002171a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002171c 2e ae ff 38              |.  8    |		MOVE.L	(A6-0xc8),(A7)
00021720 2f 2e ff 34              |/. 4    |		MOVE.L	(A6-0xcc),-(A7)
00021724 4e ba f8 c4              |N       |		JSR	0x20fea
00021728 de fc 00 20              |        |		ADDA.W	#0x20,A7
0002172c 41 fa eb 28              |A  (    |		LEA.L	0x20256,A0
00021730 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021732 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021734 51 c8 ff fc              |Q       |		DBF	D0,0x21732
00021738 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002173a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002173e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021740 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021744 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002174a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002174c 2e ae ff 40              |.  @    |		MOVE.L	(A6-0xc0),(A7)
00021750 2f 2e ff 3c              |/. <    |		MOVE.L	(A6-0xc4),-(A7)
00021754 4e ba f8 94              |N       |		JSR	0x20fea
00021758 de fc 00 20              |        |		ADDA.W	#0x20,A7
0002175c 41 fa eb 0c              |A       |		LEA.L	0x2026a,A0
00021760 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021762 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021764 51 c8 ff fc              |Q       |		DBF	D0,0x21762
00021768 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002176a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002176e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021770 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021774 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002177a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002177c 2e ae ff 48              |.  H    |		MOVE.L	(A6-0xb8),(A7)
00021780 2f 2e ff 44              |/. D    |		MOVE.L	(A6-0xbc),-(A7)
00021784 4e ba f8 64              |N  d    |		JSR	0x20fea
00021788 de fc 00 20              |        |		ADDA.W	#0x20,A7
0002178c 41 fa ea f0              |A       |		LEA.L	0x2027e,A0
00021790 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021792 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021794 51 c8 ff fc              |Q       |		DBF	D0,0x21792
00021798 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002179a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002179e 3f 04                    |?       |		MOVE.W	D4,-(A7)
000217a0 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
000217a4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000217aa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000217ac 2e ae ff 50              |.  P    |		MOVE.L	(A6-0xb0),(A7)
000217b0 2f 2e ff 4c              |/. L    |		MOVE.L	(A6-0xb4),-(A7)
000217b4 4e ba f8 34              |N  4    |		JSR	0x20fea
000217b8 de fc 00 20              |        |		ADDA.W	#0x20,A7
000217bc 41 fa ea d4              |A       |		LEA.L	0x20292,A0
000217c0 70 04                    |p       |		MOVEQ.L	#0x04,D0
000217c2 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000217c4 51 c8 ff fc              |Q       |		DBF	D0,0x217c2
000217c8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000217ca 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000217ce 3f 04                    |?       |		MOVE.W	D4,-(A7)
000217d0 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
000217d4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000217da 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000217dc 2e ae ff 68              |.  h    |		MOVE.L	(A6-0x98),(A7)
000217e0 2f 2e ff 64              |/. d    |		MOVE.L	(A6-0x9c),-(A7)
000217e4 4e ba f8 04              |N       |		JSR	0x20fea
000217e8 de fc 00 20              |        |		ADDA.W	#0x20,A7
000217ec 41 fa ea b8              |A       |		LEA.L	0x202a6,A0
000217f0 70 04                    |p       |		MOVEQ.L	#0x04,D0
000217f2 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000217f4 51 c8 ff fc              |Q       |		DBF	D0,0x217f2
000217f8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000217fa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000217fe 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021800 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021804 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002180a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002180c 2e ae ff 70              |.  p    |		MOVE.L	(A6-0x90),(A7)
00021810 2f 2e ff 6c              |/. l    |		MOVE.L	(A6-0x94),-(A7)
00021814 4e ba f7 d4              |N       |		JSR	0x20fea
00021818 de fc 00 20              |        |		ADDA.W	#0x20,A7
0002181c 41 fa ea 9c              |A       |		LEA.L	0x202ba,A0
00021820 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021822 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021824 51 c8 ff fc              |Q       |		DBF	D0,0x21822
00021828 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002182a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002182e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021830 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021834 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002183a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002183c 2e ae ff 78              |.  x    |		MOVE.L	(A6-0x88),(A7)
00021840 2f 2e ff 74              |/. t    |		MOVE.L	(A6-0x8c),-(A7)
00021844 4e ba f7 a4              |N       |		JSR	0x20fea
00021848 de fc 00 20              |        |		ADDA.W	#0x20,A7
0002184c 41 fa ea 94              |A       |		LEA.L	0x202e2,A0
00021850 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021852 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021854 51 c8 ff fc              |Q       |		DBF	D0,0x21852
00021858 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002185a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002185e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021860 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021864 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002186a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002186c 2e 94                    |.       |		MOVE.L	(A4),(A7)
0002186e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021870 4e ba f7 78              |N  x    |		JSR	0x20fea
00021874 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021878 41 fa ea 7c              |A  |    |		LEA.L	0x202f6,A0
0002187c 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002187e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021880 51 c8 ff fc              |Q       |		DBF	D0,0x2187e
00021884 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021886 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002188a 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002188c 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021890 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021896 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021898 2e ae ff 88              |.       |		MOVE.L	(A6-0x78),(A7)
0002189c 2f 2e ff 84              |/.      |		MOVE.L	(A6-0x7c),-(A7)
000218a0 4e ba f7 48              |N  H    |		JSR	0x20fea
000218a4 de fc 00 20              |        |		ADDA.W	#0x20,A7
000218a8 41 fa ea 60              |A  `    |		LEA.L	0x2030a,A0
000218ac 70 04                    |p       |		MOVEQ.L	#0x04,D0
000218ae 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000218b0 51 c8 ff fc              |Q       |		DBF	D0,0x218ae
000218b4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000218b6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000218ba 3f 04                    |?       |		MOVE.W	D4,-(A7)
000218bc 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
000218c0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000218c6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000218c8 2e ae ff 90              |.       |		MOVE.L	(A6-0x70),(A7)
000218cc 2f 2e ff 8c              |/.      |		MOVE.L	(A6-0x74),-(A7)
000218d0 4e ba f7 18              |N       |		JSR	0x20fea
000218d4 de fc 00 20              |        |		ADDA.W	#0x20,A7
000218d8 41 fa ea 44              |A  D    |		LEA.L	0x2031e,A0
000218dc 70 04                    |p       |		MOVEQ.L	#0x04,D0
000218de 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000218e0 51 c8 ff fc              |Q       |		DBF	D0,0x218de
000218e4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000218e6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000218ea 3f 04                    |?       |		MOVE.W	D4,-(A7)
000218ec 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
000218f0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000218f6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000218f8 2e ae ff 98              |.       |		MOVE.L	(A6-0x68),(A7)
000218fc 2f 2e ff 94              |/.      |		MOVE.L	(A6-0x6c),-(A7)
00021900 4e ba f6 e8              |N       |		JSR	0x20fea
00021904 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021908 41 fa ea 28              |A  (    |		LEA.L	0x20332,A0
0002190c 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002190e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021910 51 c8 ff fc              |Q       |		DBF	D0,0x2190e
00021914 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021916 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002191a 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002191c 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021920 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021926 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021928 2e ae ff a0              |.       |		MOVE.L	(A6-0x60),(A7)
0002192c 2f 2e ff 9c              |/.      |		MOVE.L	(A6-0x64),-(A7)
00021930 4e ba f6 b8              |N       |		JSR	0x20fea
00021934 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021938 41 fa ea 0c              |A       |		LEA.L	0x20346,A0
0002193c 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002193e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021940 51 c8 ff fc              |Q       |		DBF	D0,0x2193e
00021944 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021946 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002194a 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002194c 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021950 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021956 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021958 2e ae ff b0              |.       |		MOVE.L	(A6-0x50),(A7)
0002195c 2f 2e ff ac              |/.      |		MOVE.L	(A6-0x54),-(A7)
00021960 4e ba f6 88              |N       |		JSR	0x20fea
00021964 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021968 41 fa e9 f0              |A       |		LEA.L	0x2035a,A0
0002196c 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002196e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021970 51 c8 ff fc              |Q       |		DBF	D0,0x2196e
00021974 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021976 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002197a 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002197c 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021980 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021986 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021988 2e ae ff b8              |.       |		MOVE.L	(A6-0x48),(A7)
0002198c 2f 2e ff b4              |/.      |		MOVE.L	(A6-0x4c),-(A7)
00021990 4e ba f6 58              |N  X    |		JSR	0x20fea
00021994 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021998 41 fa e9 d4              |A       |		LEA.L	0x2036e,A0
0002199c 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002199e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000219a0 51 c8 ff fc              |Q       |		DBF	D0,0x2199e
000219a4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000219a6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000219aa 3f 04                    |?       |		MOVE.W	D4,-(A7)
000219ac 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
000219b0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000219b6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219b8 2e ae ff c0              |.       |		MOVE.L	(A6-0x40),(A7)
000219bc 2f 2e ff bc              |/.      |		MOVE.L	(A6-0x44),-(A7)
000219c0 4e ba f6 28              |N  (    |		JSR	0x20fea
000219c4 de fc 00 20              |        |		ADDA.W	#0x20,A7
000219c8 41 fa e9 cc              |A       |		LEA.L	0x20396,A0
000219cc 70 04                    |p       |		MOVEQ.L	#0x04,D0
000219ce 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000219d0 51 c8 ff fc              |Q       |		DBF	D0,0x219ce
000219d4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000219d6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000219da 3f 04                    |?       |		MOVE.W	D4,-(A7)
000219dc 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
000219e0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000219e6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219e8 2e ae ff c8              |.       |		MOVE.L	(A6-0x38),(A7)
000219ec 2f 2e ff c4              |/.      |		MOVE.L	(A6-0x3c),-(A7)
000219f0 4e ba f5 f8              |N       |		JSR	0x20fea
000219f4 de fc 00 20              |        |		ADDA.W	#0x20,A7
000219f8 41 fa e9 b0              |A       |		LEA.L	0x203aa,A0
000219fc 70 04                    |p       |		MOVEQ.L	#0x04,D0
000219fe 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021a00 51 c8 ff fc              |Q       |		DBF	D0,0x219fe
00021a04 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a06 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a0a 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021a0c 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021a10 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a16 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a18 2e ae ff d0              |.       |		MOVE.L	(A6-0x30),(A7)
00021a1c 2f 2e ff cc              |/.      |		MOVE.L	(A6-0x34),-(A7)
00021a20 4e ba f5 c8              |N       |		JSR	0x20fea
00021a24 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021a28 41 fa e9 94              |A       |		LEA.L	0x203be,A0
00021a2c 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021a2e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021a30 51 c8 ff fc              |Q       |		DBF	D0,0x21a2e
00021a34 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a36 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a3a 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021a3c 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021a40 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a46 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a48 2e ae ff d8              |.       |		MOVE.L	(A6-0x28),(A7)
00021a4c 2f 2e ff d4              |/.      |		MOVE.L	(A6-0x2c),-(A7)
00021a50 4e ba f5 98              |N       |		JSR	0x20fea
00021a54 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021a58 41 fa e9 78              |A  x    |		LEA.L	0x203d2,A0
00021a5c 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021a5e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021a60 51 c8 ff fc              |Q       |		DBF	D0,0x21a5e
00021a64 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a66 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a6a 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021a6c 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021a70 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a76 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a78 2e ae ff e0              |.       |		MOVE.L	(A6-0x20),(A7)
00021a7c 2f 2e ff dc              |/.      |		MOVE.L	(A6-0x24),-(A7)
00021a80 4e ba f5 68              |N  h    |		JSR	0x20fea
00021a84 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021a88 41 fa e9 5c              |A  \    |		LEA.L	0x203e6,A0
00021a8c 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021a8e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021a90 51 c8 ff fc              |Q       |		DBF	D0,0x21a8e
00021a94 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a96 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a9a 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021a9c 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021aa0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021aa6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021aa8 2e ae ff e8              |.       |		MOVE.L	(A6-0x18),(A7)
00021aac 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00021ab0 4e ba f5 38              |N  8    |		JSR	0x20fea
00021ab4 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021ab8 2e ae ff 40              |.  @    |		MOVE.L	(A6-0xc0),(A7)
00021abc 2f 2e ff 3c              |/. <    |		MOVE.L	(A6-0xc4),-(A7)
00021ac0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021ac2 2f 2e ff 38              |/. 8    |		MOVE.L	(A6-0xc8),-(A7)
00021ac6 2f 2e ff 34              |/. 4    |		MOVE.L	(A6-0xcc),-(A7)
00021aca 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021acc 2f 2e ff 48              |/. H    |		MOVE.L	(A6-0xb8),-(A7)
00021ad0 2f 2e ff 44              |/. D    |		MOVE.L	(A6-0xbc),-(A7)
00021ad4 2f 2e ff 50              |/. P    |		MOVE.L	(A6-0xb0),-(A7)
00021ad8 2f 2e ff 4c              |/. L    |		MOVE.L	(A6-0xb4),-(A7)
00021adc 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00021ae2 de c3                    |        |		ADDA.W	D3,A7
00021ae4 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00021aea de c3                    |        |		ADDA.W	D3,A7
00021aec 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00021af2 de c3                    |        |		ADDA.W	D3,A7
00021af4 2d 5f ff 2c              |-_ ,    |		MOVE.L	(A7)+,(A6-0xd4)
00021af8 2d 5f ff 30              |-_ 0    |		MOVE.L	(A7)+,(A6-0xd0)
00021afc 4a 2e ff fb              |J.      |		TST.B	(A6-0x5)
00021b00 67 46                    |gF      |		BEQ	0x21b48
00021b02 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b04 2f 2e ff 30              |/. 0    |		MOVE.L	(A6-0xd0),-(A7)
00021b08 2f 2e ff 2c              |/. ,    |		MOVE.L	(A6-0xd4),-(A7)
00021b0c 2f 3a e9 be              |/:      |		MOVE.L	0x204cc,-(A7)
00021b10 2f 3a e9 b6              |/:      |		MOVE.L	0x204c8,-(A7)
00021b14 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00021b1a de c3                    |        |		ADDA.W	D3,A7
00021b1c 4a 1f                    |J       |		TST.B	(A7)+
00021b1e 67 28                    |g(      |		BEQ	0x21b48
00021b20 41 fa e8 d6              |A       |		LEA.L	0x203f8,A0
00021b24 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021b26 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021b28 51 c8 ff fc              |Q       |		DBF	D0,0x21b26
00021b2c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b2e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021b32 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021b34 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00021b38 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021b3e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b40 4e ba ec 0a              |N       |		JSR	0x2074c
00021b44 de fc 00 16              |        |		ADDA.W	#0x16,A7
00021b48 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b4a 2f 2e ff 68              |/. h    |		MOVE.L	(A6-0x98),-(A7)
00021b4e 2f 2e ff 64              |/. d    |		MOVE.L	(A6-0x9c),-(A7)
00021b52 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b54 2f 2e ff 78              |/. x    |		MOVE.L	(A6-0x88),-(A7)
00021b58 2f 2e ff 74              |/. t    |		MOVE.L	(A6-0x8c),-(A7)
00021b5c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b5e 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00021b60 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021b62 2f 2e ff 70              |/. p    |		MOVE.L	(A6-0x90),-(A7)
00021b66 2f 2e ff 6c              |/. l    |		MOVE.L	(A6-0x94),-(A7)
00021b6a 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00021b70 de c3                    |        |		ADDA.W	D3,A7
00021b72 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00021b78 de c3                    |        |		ADDA.W	D3,A7
00021b7a 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00021b80 de c3                    |        |		ADDA.W	D3,A7
00021b82 2d 5f ff 5c              |-_ \    |		MOVE.L	(A7)+,(A6-0xa4)
00021b86 2d 5f ff 60              |-_ `    |		MOVE.L	(A7)+,(A6-0xa0)
00021b8a 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00021b8c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b8e 2f 2e ff 60              |/. `    |		MOVE.L	(A6-0xa0),-(A7)
00021b92 2f 2e ff 5c              |/. \    |		MOVE.L	(A6-0xa4),-(A7)
00021b96 10 07                    |        |		MOVE.B	D7,D0
00021b98 48 80                    |H       |		EXTB.W	D0
00021b9a 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
00021b9e 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00021ba2 e7 40                    | @      |		ASL.W	#0x3,D0
00021ba4 41 ee ff 24              |A  $    |		LEA.L	(A6-0xdc),A0
00021ba8 2f 30 00 64              |/0 d    |		MOVE.L	(A0+D0.W+#0x64),-(A7)
00021bac 2f 30 00 60              |/0 `    |		MOVE.L	(A0+D0.W+#0x60),-(A7)
00021bb0 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00021bb6 de c3                    |        |		ADDA.W	D3,A7
00021bb8 2d 5f ff 5c              |-_ \    |		MOVE.L	(A7)+,(A6-0xa4)
00021bbc 2d 5f ff 60              |-_ `    |		MOVE.L	(A7)+,(A6-0xa0)
00021bc0 52 07                    |R       |		ADDQ.B	#0x1,D7
00021bc2 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
00021bc6 6f c4                    |o       |		BLE	0x21b8c
00021bc8 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00021bcc 67 46                    |gF      |		BEQ	0x21c14
00021bce 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021bd0 2f 2e ff 60              |/. `    |		MOVE.L	(A6-0xa0),-(A7)
00021bd4 2f 2e ff 5c              |/. \    |		MOVE.L	(A6-0xa4),-(A7)
00021bd8 2f 3a e8 f2              |/:      |		MOVE.L	0x204cc,-(A7)
00021bdc 2f 3a e8 ea              |/:      |		MOVE.L	0x204c8,-(A7)
00021be0 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00021be6 de c3                    |        |		ADDA.W	D3,A7
00021be8 4a 1f                    |J       |		TST.B	(A7)+
00021bea 67 28                    |g(      |		BEQ	0x21c14
00021bec 41 fa e8 1c              |A       |		LEA.L	0x2040a,A0
00021bf0 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021bf2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021bf4 51 c8 ff fc              |Q       |		DBF	D0,0x21bf2
00021bf8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021bfa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021bfe 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021c00 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00021c04 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021c0a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c0c 4e ba eb 3e              |N  >    |		JSR	0x2074c
00021c10 de fc 00 16              |        |		ADDA.W	#0x16,A7
00021c14 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021c16 2f 2e ff b0              |/.      |		MOVE.L	(A6-0x50),-(A7)
00021c1a 2f 2e ff ac              |/.      |		MOVE.L	(A6-0x54),-(A7)
00021c1e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021c20 2f 2e ff c0              |/.      |		MOVE.L	(A6-0x40),-(A7)
00021c24 2f 2e ff bc              |/.      |		MOVE.L	(A6-0x44),-(A7)
00021c28 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021c2a 2f 2e ff c8              |/.      |		MOVE.L	(A6-0x38),-(A7)
00021c2e 2f 2e ff c4              |/.      |		MOVE.L	(A6-0x3c),-(A7)
00021c32 2f 2e ff b8              |/.      |		MOVE.L	(A6-0x48),-(A7)
00021c36 2f 2e ff b4              |/.      |		MOVE.L	(A6-0x4c),-(A7)
00021c3a 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00021c40 de c3                    |        |		ADDA.W	D3,A7
00021c42 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00021c48 de c3                    |        |		ADDA.W	D3,A7
00021c4a 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00021c50 de c3                    |        |		ADDA.W	D3,A7
00021c52 2d 5f ff a4              |-_      |		MOVE.L	(A7)+,(A6-0x5c)
00021c56 2d 5f ff a8              |-_      |		MOVE.L	(A7)+,(A6-0x58)
00021c5a 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00021c5c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021c5e 2f 2e ff a8              |/.      |		MOVE.L	(A6-0x58),-(A7)
00021c62 2f 2e ff a4              |/.      |		MOVE.L	(A6-0x5c),-(A7)
00021c66 10 07                    |        |		MOVE.B	D7,D0
00021c68 48 80                    |H       |		EXTB.W	D0
00021c6a 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
00021c6e 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00021c72 e7 40                    | @      |		ASL.W	#0x3,D0
00021c74 41 ee ff 24              |A  $    |		LEA.L	(A6-0xdc),A0
00021c78 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00021c7c 2f 28 00 ac              |/(      |		MOVE.L	(A0+0xac),-(A7)
00021c80 2f 28 00 a8              |/(      |		MOVE.L	(A0+0xa8),-(A7)
00021c84 4e b9 00 01 03 34        |N    4  |		JSR	BitOr(a, b : Quad) : Quad
00021c8a de c3                    |        |		ADDA.W	D3,A7
00021c8c 2d 5f ff a4              |-_      |		MOVE.L	(A7)+,(A6-0x5c)
00021c90 2d 5f ff a8              |-_      |		MOVE.L	(A7)+,(A6-0x58)
00021c94 52 07                    |R       |		ADDQ.B	#0x1,D7
00021c96 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
00021c9a 6f c0                    |o       |		BLE	0x21c5c
00021c9c 4a 2e ff fd              |J.      |		TST.B	(A6-0x3)
00021ca0 67 46                    |gF      |		BEQ	0x21ce8
00021ca2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021ca4 2f 2e ff a8              |/.      |		MOVE.L	(A6-0x58),-(A7)
00021ca8 2f 2e ff a4              |/.      |		MOVE.L	(A6-0x5c),-(A7)
00021cac 2f 3a e8 1e              |/:      |		MOVE.L	0x204cc,-(A7)
00021cb0 2f 3a e8 16              |/:      |		MOVE.L	0x204c8,-(A7)
00021cb4 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00021cba de c3                    |        |		ADDA.W	D3,A7
00021cbc 4a 1f                    |J       |		TST.B	(A7)+
00021cbe 67 28                    |g(      |		BEQ	0x21ce8
00021cc0 41 fa e7 5a              |A  Z    |		LEA.L	0x2041c,A0
00021cc4 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021cc6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021cc8 51 c8 ff fc              |Q       |		DBF	D0,0x21cc6
00021ccc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021cce 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021cd2 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021cd4 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00021cd8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021cde 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ce0 4e ba ea 6a              |N  j    |		JSR	0x2074c
00021ce4 de fc 00 16              |        |		ADDA.W	#0x16,A7
00021ce8 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00021cea 7c 3c                    ||<      |		MOVEQ.L	#0x3c,D6
00021cec 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00021cee 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021cf0 1f 07                    |        |		MOVE.B	D7,-(A7)
00021cf2 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00021cf8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021cfa 4a 1f                    |J       |		TST.B	(A7)+
00021cfc 66 1a                    |f       |		BNE	0x21d18
00021cfe 10 07                    |        |		MOVE.B	D7,D0
00021d00 48 80                    |H       |		EXTB.W	D0
00021d02 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
00021d06 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00021d0a 41 ee ff 24              |A  $    |		LEA.L	(A6-0xdc),A0
00021d0e 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00021d12 42 28 00 d0              |B(      |		CLR.B	(A0+0xd0)
00021d16 60 64                    |`d      |		BRA	0x21d7c
00021d18 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00021d1c 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00021d20 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00021d24 2f 06                    |/       |		MOVE.L	D6,-(A7)
00021d26 48 78 00 01              |Hx      |		PEA.L	0x1
00021d2a 4e b9 00 01 03 4c        |N    L  |		JSR	FSCALL_1034c
00021d30 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021d34 2e ba e7 96              |.       |		MOVE.L	0x204cc,(A7)
00021d38 2f 3a e7 8e              |/:      |		MOVE.L	0x204c8,-(A7)
00021d3c 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00021d42 de c3                    |        |		ADDA.W	D3,A7
00021d44 4a 1f                    |J       |		TST.B	(A7)+
00021d46 66 1a                    |f       |		BNE	0x21d62
00021d48 10 07                    |        |		MOVE.B	D7,D0
00021d4a 48 80                    |H       |		EXTB.W	D0
00021d4c 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
00021d50 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00021d54 41 ee ff 24              |A  $    |		LEA.L	(A6-0xdc),A0
00021d58 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00021d5c 11 44 00 d0              | D      |		MOVE.B	D4,(A0+0xd0)
00021d60 60 1a                    |`       |		BRA	0x21d7c
00021d62 10 07                    |        |		MOVE.B	D7,D0
00021d64 48 80                    |H       |		EXTB.W	D0
00021d66 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
00021d6a 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00021d6e 41 ee ff 24              |A  $    |		LEA.L	(A6-0xdc),A0
00021d72 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00021d76 42 28 00 d0              |B(      |		CLR.B	(A0+0xd0)
00021d7a 7a 00                    |z       |		MOVEQ.L	#0x00,D5
00021d7c 52 86                    |R       |		ADDQ.L	#0x1,D6
00021d7e 52 07                    |R       |		ADDQ.B	#0x1,D7
00021d80 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
00021d84 6f 00 ff 68              |o  h    |		BLE	0x21cee
00021d88 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021d8a 2f 2e ff 68              |/. h    |		MOVE.L	(A6-0x98),-(A7)
00021d8e 2f 2e ff 64              |/. d    |		MOVE.L	(A6-0x9c),-(A7)
00021d92 2f 3a e7 38              |/: 8    |		MOVE.L	0x204cc,-(A7)
00021d96 2f 3a e7 30              |/: 0    |		MOVE.L	0x204c8,-(A7)
00021d9a 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00021da0 de c3                    |        |		ADDA.W	D3,A7
00021da2 4a 1f                    |J       |		TST.B	(A7)+
00021da4 67 00 01 48              |g  H    |		BEQ	0x21eee
00021da8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021daa 2f 2e ff b0              |/.      |		MOVE.L	(A6-0x50),-(A7)
00021dae 2f 2e ff ac              |/.      |		MOVE.L	(A6-0x54),-(A7)
00021db2 2f 3a e7 18              |/:      |		MOVE.L	0x204cc,-(A7)
00021db6 2f 3a e7 10              |/:      |		MOVE.L	0x204c8,-(A7)
00021dba 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00021dc0 de c3                    |        |		ADDA.W	D3,A7
00021dc2 4a 1f                    |J       |		TST.B	(A7)+
00021dc4 67 00 01 28              |g  (    |		BEQ	0x21eee
00021dc8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021dca 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00021dcc 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021dce 2f 3a e6 fc              |/:      |		MOVE.L	0x204cc,-(A7)
00021dd2 2f 3a e6 f4              |/:      |		MOVE.L	0x204c8,-(A7)
00021dd6 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00021ddc de c3                    |        |		ADDA.W	D3,A7
00021dde 4a 1f                    |J       |		TST.B	(A7)+
00021de0 67 00 01 0c              |g       |		BEQ	0x21eee
00021de4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021de6 2f 2e ff c8              |/.      |		MOVE.L	(A6-0x38),-(A7)
00021dea 2f 2e ff c4              |/.      |		MOVE.L	(A6-0x3c),-(A7)
00021dee 2f 3a e6 dc              |/:      |		MOVE.L	0x204cc,-(A7)
00021df2 2f 3a e6 d4              |/:      |		MOVE.L	0x204c8,-(A7)
00021df6 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00021dfc de c3                    |        |		ADDA.W	D3,A7
00021dfe 4a 1f                    |J       |		TST.B	(A7)+
00021e00 67 00 00 ec              |g       |		BEQ	0x21eee
00021e04 4a 05                    |J       |		TST.B	D5
00021e06 67 2c                    |g,      |		BEQ	0x21e34
00021e08 41 fa e6 5e              |A  ^    |		LEA.L	0x20468,A0
00021e0c 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021e0e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021e10 51 c8 ff fc              |Q       |		DBF	D0,0x21e0e
00021e14 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021e16 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021e1a 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021e1c 3f 3c 00 24              |?< $    |		MOVE.W	#0x24,-(A7)
00021e20 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021e26 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e28 4e ba e9 22              |N  "    |		JSR	0x2074c
00021e2c de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00021e30 60 00 00 bc              |`       |		BRA	0x21eee
00021e34 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00021e36 10 07                    |        |		MOVE.B	D7,D0
00021e38 48 80                    |H       |		EXTB.W	D0
00021e3a 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
00021e3e 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00021e42 32 00                    |2       |		MOVE.W	D0,D1
00021e44 e7 41                    | A      |		ASL.W	#0x3,D1
00021e46 41 ee ff 24              |A  $    |		LEA.L	(A6-0xdc),A0
00021e4a 43 ee ff 24              |C  $    |		LEA.L	(A6-0xdc),A1
00021e4e 43 f1 00 00              |C       |		LEA.L	(A1+D0.W),A1
00021e52 4a 29 00 d0              |J)      |		TST.B	(A1+0xd0)
00021e56 67 00 00 8c              |g       |		BEQ	0x21ee4
00021e5a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021e5c 2f 30 10 64              |/0 d    |		MOVE.L	(A0+D1.W+#0x64),-(A7)
00021e60 2f 30 10 60              |/0 `    |		MOVE.L	(A0+D1.W+#0x60),-(A7)
00021e64 2f 3a e6 66              |/: f    |		MOVE.L	0x204cc,-(A7)
00021e68 2f 3a e6 5e              |/: ^    |		MOVE.L	0x204c8,-(A7)
00021e6c 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00021e72 de c3                    |        |		ADDA.W	D3,A7
00021e74 4a 1f                    |J       |		TST.B	(A7)+
00021e76 67 6c                    |gl      |		BEQ	0x21ee4
00021e78 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021e7a 41 f0 10 00              |A       |		LEA.L	(A0+D1.W),A0
00021e7e 2f 28 00 ac              |/(      |		MOVE.L	(A0+0xac),-(A7)
00021e82 2f 28 00 a8              |/(      |		MOVE.L	(A0+0xa8),-(A7)
00021e86 2f 3a e6 44              |/: D    |		MOVE.L	0x204cc,-(A7)
00021e8a 2f 3a e6 3c              |/: <    |		MOVE.L	0x204c8,-(A7)
00021e8e 4e b9 00 01 03 2c        |N    ,  |		JSR	IsEqual(a, b : Quad) : Bool
00021e94 de c3                    |        |		ADDA.W	D3,A7
00021e96 4a 1f                    |J       |		TST.B	(A7)+
00021e98 67 4a                    |gJ      |		BEQ	0x21ee4
00021e9a 9e fc 00 18              |        |		SUBA.W	#0x18,A7
00021e9e 20 4f                    | O      |		MOVEA.L	A7,A0
00021ea0 43 fa e5 c6              |C       |		LEA.L	0x20468,A1
00021ea4 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021ea6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021ea8 51 c8 ff fc              |Q       |		DBF	D0,0x21ea6
00021eac 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021eae 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021eb2 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021eb4 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021eb8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021ebe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ec0 10 07                    |        |		MOVE.B	D7,D0
00021ec2 48 80                    |H       |		EXTB.W	D0
00021ec4 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
00021ec8 48 c0                    |H       |		EXTW.L	D0
00021eca 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021ecc 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021ed2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ed4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021eda 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021edc 4e ba e8 6e              |N  n    |		JSR	0x2074c
00021ee0 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00021ee4 52 07                    |R       |		ADDQ.B	#0x1,D7
00021ee6 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
00021eea 6f 00 ff 4a              |o  J    |		BLE	0x21e36
00021eee 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021ef2 4e 5e                    |N^      |		UNLK	A6
00021ef4 4e 75                    |Nu      |		RTS
00021ef6 ; --------------------------------------------------------------------------------------
00021ef6 ; OMSI PASCAL Function
00021ef6 ; --------------------------------------------------------------------------------------
00021ef6					START:
00021ef6 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00021efa 4e f9 00 01 02 80        |N       |		JMP	?start_program
00021f00					MAIN:
00021f00 45 f9 00 02 26 b0        |E   &   |		LEA.L	0x226b0,A2
00021f06 47 f9 00 02 26 a8        |G   &   |		LEA.L	0x226a8,A3
00021f0c 49 f9 00 02 26 c6        |I   &   |		LEA.L	0x226c6,A4
00021f12 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021f14 74 07                    |t       |		MOVEQ.L	#0x07,D2
00021f16 76 04                    |v       |		MOVEQ.L	#0x04,D3
00021f18 78 0a                    |x       |		MOVEQ.L	#0x0a,D4
00021f1a 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00021f20 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f22 4e b9 00 01 03 c4        |N       |		JSR	GetArgv() : String
00021f28 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00021f2a 42 12                    |B       |		CLR.B	(A2)
00021f2c 20 54                    | T      |		MOVEA.L	(A4),A0
00021f2e 4a 50                    |JP      |		TST.W	(A0)
00021f30 67 02                    |g       |		BEQ	0x21f34
00021f32 52 12                    |R       |		ADDQ.B	#0x1,(A2)
00021f34 48 54                    |HT      |		PEA.L	(A4)
00021f36 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021f3c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f3e 4a 12                    |J       |		TST.B	(A2)
00021f40 67 08                    |g       |		BEQ	0x21f4a
00021f42 13 c1 00 02 26 c3        |    &   |		MOVE.B	D1,0x226c3
00021f48 60 14                    |`       |		BRA	0x21f5e
00021f4a 48 79 00 02 26 c2        |Hy  &   |		PEA.L	0x226c2
00021f50 48 79 00 02 26 c3        |Hy  &   |		PEA.L	0x226c3
00021f56 4e b9 00 01 05 44        |N    D  |		JSR	IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
00021f5c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f5e 48 78 00 0f              |Hx      |		PEA.L	0xf
00021f62 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00021f68 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f6a 10 39 00 02 26 c3        | 9  &   |		MOVE.B	0x226c3,D0
00021f70 48 80                    |H       |		EXTB.W	D0
00021f72 41 81                    |A       |		CHK.W	D1,D0
00021f74 1f 00                    |        |		MOVE.B	D0,-(A7)
00021f76 4e b9 00 01 04 d2        |N       |		JSR	SetExpInitDone(a : Byte)
00021f7c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021f7e 70 00                    |p       |		MOVEQ.L	#0x00,D0
00021f80 23 c0 00 02 26 be        |#   &   |		MOVE.L	D0,0x226be
00021f86 b0 82                    |        |		CMP.L	D2,D0
00021f88 63 02                    |c       |		BLS	0x21f8c
00021f8a 4e 4f                    |NO      |		TRAP	#15
00021f8c 41 f9 00 02 26 a0        |A   &   |		LEA.L	0x226a0,A0
00021f92 42 30 08 11              |B0      |		CLR.B	(A0+D0.L+#0x11)
00021f96 52 80                    |R       |		ADDQ.L	#0x1,D0
00021f98 b0 82                    |        |		CMP.L	D2,D0
00021f9a 6f e4                    |o       |		BLE	0x21f80
00021f9c 9e fc 00 12              |        |		SUBA.W	#0x12,A7
00021fa0 20 4f                    | O      |		MOVEA.L	A7,A0
00021fa2 43 fa e4 ee              |C       |		LEA.L	0x20492,A1
00021fa6 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021fa8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021faa 51 c8 ff fc              |Q       |		DBF	D0,0x21fa8
00021fae 42 27                    |B'      |		CLR.B	-(A7)
00021fb0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021fb2 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021fb6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021fb8 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
00021fbc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021fc2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021fc4 1e 81                    |        |		MOVE.B	D1,(A7)
00021fc6 1f 01                    |        |		MOVE.B	D1,-(A7)
00021fc8 1f 01                    |        |		MOVE.B	D1,-(A7)
00021fca 48 79 00 02 26 c4        |Hy  &   |		PEA.L	0x226c4
00021fd0 4e ba e6 b2              |N       |		JSR	0x20684
00021fd4 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00021fd8 2f 3a e4 ca              |/:      |		MOVE.L	0x204a4,-(A7)
00021fdc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021fde 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021fe2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021fe4 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021fe6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021fec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fee 23 df 00 02 26 ba        |#   &   |		MOVE.L	(A7)+,0x226ba
00021ff4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ff6 48 79 00 02 26 ac        |Hy  &   |		PEA.L	0x226ac
00021ffc 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022002 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022004 4e ba f1 b2              |N       |		JSR	0x211b8
00022008 4a 12                    |J       |		TST.B	(A2)
0002200a 67 04                    |g       |		BEQ	0x22010
0002200c 4a 93                    |J       |		TST.L	(A3)
0002200e 66 08                    |f       |		BNE	0x22018
00022010 13 c1 00 02 26 c5        |    &   |		MOVE.B	D1,0x226c5
00022016 60 3a                    |`:      |		BRA	0x22052
00022018 41 fa e4 98              |A       |		LEA.L	0x204b2,A0
0002201c 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002201e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022020 51 c8 ff fc              |Q       |		DBF	D0,0x2201e
00022024 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00022026 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002202a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002202c 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002202e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022034 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022036 1e 81                    |        |		MOVE.B	D1,(A7)
00022038 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
0002203e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022040 10 1f                    |        |		MOVE.B	(A7)+,D0
00022042 44 00                    |D       |		NEG.B	D0
00022044 52 00                    |R       |		ADDQ.B	#0x1,D0
00022046 de c4                    |        |		ADDA.W	D4,A7
00022048 48 80                    |H       |		EXTB.W	D0
0002204a 41 81                    |A       |		CHK.W	D1,D0
0002204c 13 c0 00 02 26 c5        |    &   |		MOVE.B	D0,0x226c5
00022052 4a 39 00 02 26 c5        |J9  &   |		TST.B	0x226c5
00022058 67 aa                    |g       |		BEQ	0x22004
0002205a 2f 39 00 02 26 ac        |/9  &   |		MOVE.L	0x226ac,-(A7)
00022060 1f 3c 00 5c              | < \    |		MOVE.B	#0x5c,-(A7)
00022064 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
0002206a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002206c 4a 93                    |J       |		TST.L	(A3)
0002206e 66 08                    |f       |		BNE	0x22078
00022070 42 39 00 02 26 b9        |B9  &   |		CLR.B	0x226b9
00022076 60 0e                    |`       |		BRA	0x22086
00022078 13 fc 00 25 00 02 26 b1  |   %  & |		MOVE.B	#0x25,0x226b1
00022080 13 c3 00 02 26 b9        |    &   |		MOVE.B	D3,0x226b9
00022086 4a 12                    |J       |		TST.B	(A2)
00022088 67 3c                    |g<      |		BEQ	0x220c6
0002208a 4a 93                    |J       |		TST.L	(A3)
0002208c 66 38                    |f8      |		BNE	0x220c6
0002208e 41 fa e4 38              |A  8    |		LEA.L	0x204c8,A0
00022092 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022094 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022096 51 c8 ff fc              |Q       |		DBF	D0,0x22094
0002209a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002209c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000220a0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000220a2 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
000220a6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000220ac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000220ae 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000220b4 de fc 00 18              |        |		ADDA.W	#0x18,A7
000220b8 42 17                    |B       |		CLR.B	(A7)
000220ba 48 78 00 01              |Hx      |		PEA.L	0x1
000220be 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000220c4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000220c6 42 27                    |B'      |		CLR.B	-(A7)
000220c8 4a 93                    |J       |		TST.L	(A3)
000220ca 66 02                    |f       |		BNE	0x220ce
000220cc 52 17                    |R       |		ADDQ.B	#0x1,(A7)
000220ce 2f 39 00 02 26 ba        |/9  &   |		MOVE.L	0x226ba,-(A7)
000220d4 2f 39 00 02 26 ac        |/9  &   |		MOVE.L	0x226ac,-(A7)
000220da 1f 39 00 02 26 b9        | 9  &   |		MOVE.B	0x226b9,-(A7)
000220e0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000220e2 20 4f                    | O      |		MOVEA.L	A7,A0
000220e4 43 f9 00 02 26 b1        |C   &   |		LEA.L	0x226b1,A1
000220ea 70 07                    |p       |		MOVEQ.L	#0x07,D0
000220ec 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000220ee 51 c8 ff fc              |Q       |		DBF	D0,0x220ec
000220f2 4e b9 00 01 05 4a        |N    J  |		JSR	?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
000220f8 de fc 00 14              |        |		ADDA.W	#0x14,A7
000220fc 4e b9 00 01 02 84        |N       |		JSR	?exit
00022102					exp_READ_PAREG.FIU(Sw_1, &Sr_1):
00022102 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022108 00 0e                    |        |		.CONST	0x000e			; Stack-delta
0002210a 0e 52 45 41 44 5f 50 41  | READ_PA|		.TXT	14,'READ_PAREG.FIU'
00022119 00                       |        |		.CONST	0x0
0002211a 03                       |        |		.CONST	0x3			; DIPROC address
0002211b 01                       |        |		.CONST	0x1			; Output Parameters
0002211c 01                       |        |		.CONST	0x1			; Input Parameters
0002211d 00                       |        |		.CONST	0x0			; In arg [1]
0002211e 00                       |        |		.CONST	0x0			; Out arg [1]
0002211f 00                       |        |		.PAD	0x0
00022120					exp_RUN_NOCHECK.FIU():
00022120 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022126 00 08                    |        |		.CONST	0x0008			; Stack-delta
00022128 0f 52 55 4e 5f 4e 4f 43  | RUN_NOC|		.TXT	15,'RUN_NOCHECK.FIU'
00022138 00                       |        |		.CONST	0x0
00022139 03                       |        |		.CONST	0x3			; DIPROC address
0002213a 00                       |        |		.CONST	0x0			; Output Parameters
0002213b 00                       |        |		.CONST	0x0			; Input Parameters
0002213c					exp_PREP_RUN.FIU(Sw_2):
0002213c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022142 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00022144 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.FIU'
00022151 00                       |        |		.CONST	0x0
00022152 03                       |        |		.CONST	0x3			; DIPROC address
00022153 00                       |        |		.CONST	0x0			; Output Parameters
00022154 01                       |        |		.CONST	0x1			; Input Parameters
00022155 01                       |        |		.CONST	0x1			; In arg [2]
00022156					exp_INIT_MRU.FIU():
00022156 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002215c 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002215e 0c 49 4e 49 54 5f 4d 52  | INIT_MR|		.TXT	12,'INIT_MRU.FIU'
0002216b 00                       |        |		.CONST	0x0
0002216c 03                       |        |		.CONST	0x3			; DIPROC address
0002216d 00                       |        |		.CONST	0x0			; Output Parameters
0002216e 00                       |        |		.CONST	0x0			; Input Parameters
0002216f 00                       |        |		.PAD	0x0
00022170					exp_FREEZE_WORLD.FIU():
00022170 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022176 00 08                    |        |		.CONST	0x0008			; Stack-delta
00022178 10 46 52 45 45 5a 45 5f  | FREEZE_|		.TXT	16,'FREEZE_WORLD.FIU'
00022189 00                       |        |		.CONST	0x0
0002218a 03                       |        |		.CONST	0x3			; DIPROC address
0002218b 00                       |        |		.CONST	0x0			; Output Parameters
0002218c 00                       |        |		.CONST	0x0			; Input Parameters
0002218d 00                       |        |		.PAD	0x0
0002218e					exp_RUN_NOCHECK.SEQ():
0002218e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022194 00 08                    |        |		.CONST	0x0008			; Stack-delta
00022196 0f 52 55 4e 5f 4e 4f 43  | RUN_NOC|		.TXT	15,'RUN_NOCHECK.SEQ'
000221a6 00                       |        |		.CONST	0x0
000221a7 02                       |        |		.CONST	0x2			; DIPROC address
000221a8 00                       |        |		.CONST	0x0			; Output Parameters
000221a9 00                       |        |		.CONST	0x0			; Input Parameters
000221aa					exp_READ_CUR_UADR.SEQ(&Sr_2):
000221aa 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000221b0 00 0c                    |        |		.CONST	0x000c			; Stack-delta
000221b2 11 52 45 41 44 5f 43 55  | READ_CU|		.TXT	17,'READ_CUR_UADR.SEQ'
000221c4 00                       |        |		.CONST	0x0
000221c5 02                       |        |		.CONST	0x2			; DIPROC address
000221c6 01                       |        |		.CONST	0x1			; Output Parameters
000221c7 00                       |        |		.CONST	0x0			; Input Parameters
000221c8 01                       |        |		.CONST	0x1			; Out arg [2]
000221c9 00                       |        |		.PAD	0x0
000221ca					exp_PREP_RUN.SEQ(Sw_2):
000221ca 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000221d0 00 0a                    |        |		.CONST	0x000a			; Stack-delta
000221d2 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.SEQ'
000221df 00                       |        |		.CONST	0x0
000221e0 02                       |        |		.CONST	0x2			; DIPROC address
000221e1 00                       |        |		.CONST	0x0			; Output Parameters
000221e2 01                       |        |		.CONST	0x1			; Input Parameters
000221e3 01                       |        |		.CONST	0x1			; In arg [2]
000221e4					exp_READ_RF_B.TYP(Sw_2, Sw_1, &Sr_8):
000221e4 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000221ea 00 10                    |        |		.CONST	0x0010			; Stack-delta
000221ec 0d 52 45 41 44 5f 52 46  | READ_RF|		.TXT	13,'READ_RF_B.TYP'
000221fa 00                       |        |		.CONST	0x0
000221fb 06                       |        |		.CONST	0x6			; DIPROC address
000221fc 01                       |        |		.CONST	0x1			; Output Parameters
000221fd 02                       |        |		.CONST	0x2			; Input Parameters
000221fe 01                       |        |		.CONST	0x1			; In arg [2]
000221ff 00                       |        |		.CONST	0x0			; In arg [1]
00022200 07                       |        |		.CONST	0x7			; Out arg [8]
00022201 00                       |        |		.PAD	0x0
00022202					exp_READ_PARITY.TYP(&Sr_1):
00022202 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022208 00 0c                    |        |		.CONST	0x000c			; Stack-delta
0002220a 0f 52 45 41 44 5f 50 41  | READ_PA|		.TXT	15,'READ_PARITY.TYP'
0002221a 00                       |        |		.CONST	0x0
0002221b 06                       |        |		.CONST	0x6			; DIPROC address
0002221c 01                       |        |		.CONST	0x1			; Output Parameters
0002221d 00                       |        |		.CONST	0x0			; Input Parameters
0002221e 00                       |        |		.CONST	0x0			; Out arg [1]
0002221f 00                       |        |		.PAD	0x0
00022220					exp_RUN_NOCHECK.TYP():
00022220 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022226 00 08                    |        |		.CONST	0x0008			; Stack-delta
00022228 0f 52 55 4e 5f 4e 4f 43  | RUN_NOC|		.TXT	15,'RUN_NOCHECK.TYP'
00022238 00                       |        |		.CONST	0x0
00022239 06                       |        |		.CONST	0x6			; DIPROC address
0002223a 00                       |        |		.CONST	0x0			; Output Parameters
0002223b 00                       |        |		.CONST	0x0			; Input Parameters
0002223c					exp_PREP_RUN.TYP(Sw_2):
0002223c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022242 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00022244 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.TYP'
00022251 00                       |        |		.CONST	0x0
00022252 06                       |        |		.CONST	0x6			; DIPROC address
00022253 00                       |        |		.CONST	0x0			; Output Parameters
00022254 01                       |        |		.CONST	0x1			; Input Parameters
00022255 01                       |        |		.CONST	0x1			; In arg [2]
00022256					exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8):
00022256 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002225c 00 10                    |        |		.CONST	0x0010			; Stack-delta
0002225e 0d 52 45 41 44 5f 52 46  | READ_RF|		.TXT	13,'READ_RF_B.VAL'
0002226c 00                       |        |		.CONST	0x0
0002226d 07                       |        |		.CONST	0x7			; DIPROC address
0002226e 01                       |        |		.CONST	0x1			; Output Parameters
0002226f 02                       |        |		.CONST	0x2			; Input Parameters
00022270 01                       |        |		.CONST	0x1			; In arg [2]
00022271 00                       |        |		.CONST	0x0			; In arg [1]
00022272 07                       |        |		.CONST	0x7			; Out arg [8]
00022273 00                       |        |		.PAD	0x0
00022274					exp_READ_PARITY.VAL(&Sr_1):
00022274 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002227a 00 0c                    |        |		.CONST	0x000c			; Stack-delta
0002227c 0f 52 45 41 44 5f 50 41  | READ_PA|		.TXT	15,'READ_PARITY.VAL'
0002228c 00                       |        |		.CONST	0x0
0002228d 07                       |        |		.CONST	0x7			; DIPROC address
0002228e 01                       |        |		.CONST	0x1			; Output Parameters
0002228f 00                       |        |		.CONST	0x0			; Input Parameters
00022290 00                       |        |		.CONST	0x0			; Out arg [1]
00022291 00                       |        |		.PAD	0x0
00022292					exp_RUN_NOCHECK.VAL():
00022292 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022298 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002229a 0f 52 55 4e 5f 4e 4f 43  | RUN_NOC|		.TXT	15,'RUN_NOCHECK.VAL'
000222aa 00                       |        |		.CONST	0x0
000222ab 07                       |        |		.CONST	0x7			; DIPROC address
000222ac 00                       |        |		.CONST	0x0			; Output Parameters
000222ad 00                       |        |		.CONST	0x0			; Input Parameters
000222ae					exp_PREP_RUN.VAL(Sw_2):
000222ae 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000222b4 00 0a                    |        |		.CONST	0x000a			; Stack-delta
000222b6 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.VAL'
000222c3 00                       |        |		.CONST	0x0
000222c4 07                       |        |		.CONST	0x7			; DIPROC address
000222c5 00                       |        |		.CONST	0x0			; Output Parameters
000222c6 01                       |        |		.CONST	0x1			; Input Parameters
000222c7 01                       |        |		.CONST	0x1			; In arg [2]
000222c8 53 45 54 5f 48 49 54 2e  |SET_HIT.|		.TXT	'SET_HIT.MEM '
000222d4 53 45 54 5f 48 49 54 2e  |SET_HIT.|		.TXT	'SET_HIT.M32 '
000222e0 ; --------------------------------------------------------------------------------------
000222e0 ; OMSI PASCAL Function
000222e0 ;    <LVAR  0x00a 1(r)>
000222e0 ;    <LVAR  0x008 1(r)>
000222e0 ;    <LVAR -0x004 @ 4(r)>
000222e0 ; --------------------------------------------------------------------------------------
000222e0 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
000222e4 bf d5                    |        |		CMPA.L	(A5),A7
000222e6 62 06                    |b       |		BHI	0x222ee
000222e8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000222ec 4e 76                    |Nv      |		TRAPV
000222ee de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000222f2 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000222f6 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
000222fa 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000222fc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000222fe 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00022304 4a 1f                    |J       |		TST.B	(A7)+
00022306 67 12                    |g       |		BEQ	0x2231a
00022308 9e c1                    |        |		SUBA.W	D1,A7
0002230a 20 4f                    | O      |		MOVEA.L	A7,A0
0002230c 43 fa ff ba              |C       |		LEA.L	0x222c8,A1
00022310 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022312 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022314 51 c8 ff fc              |Q       |		DBF	D0,0x22312
00022318 60 10                    |`       |		BRA	0x2232a
0002231a 9e c1                    |        |		SUBA.W	D1,A7
0002231c 20 4f                    | O      |		MOVEA.L	A7,A0
0002231e 43 fa ff b4              |C       |		LEA.L	0x222d4,A1
00022322 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022324 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022326 51 c8 ff fc              |Q       |		DBF	D0,0x22324
0002232a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002232c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022330 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022334 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00022338 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002233e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022340 48 52                    |HR      |		PEA.L	(A2)
00022342 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00022348 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002234c 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00022350 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022352 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022356 48 78 00 00              |Hx      |		PEA.L	0x0
0002235a 48 78 00 00              |Hx      |		PEA.L	0x0
0002235e 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00022364 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022368 42 17                    |B       |		CLR.B	(A7)
0002236a 1f 2e 00 0a              | .      |		MOVE.B	(A6+0xa),-(A7)
0002236e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022370 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00022376 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022378 48 52                    |HR      |		PEA.L	(A2)
0002237a 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00022380 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022382 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00022386 4e 5e                    |N^      |		UNLK	A6
00022388 4e 75                    |Nu      |		RTS
0002238a 52 55 4e 5f 4e 4f 43 48  |RUN_NOCH|		.TXT	'RUN_NOCHECK.MEM '
0002239a 52 55 4e 5f 4e 4f 43 48  |RUN_NOCH|		.TXT	'RUN_NOCHECK.M32 '
000223aa ; --------------------------------------------------------------------------------------
000223aa ; OMSI PASCAL Function
000223aa ;    <LVAR  0x008 1(r)>
000223aa ;    <LVAR -0x006 @ 4(r)>
000223aa ; --------------------------------------------------------------------------------------
000223aa 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
000223ae bf d5                    |        |		CMPA.L	(A5),A7
000223b0 62 06                    |b       |		BHI	0x223b8
000223b2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000223b6 4e 76                    |Nv      |		TRAPV
000223b8 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
000223bc 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000223c0 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000223c4 72 10                    |r       |		MOVEQ.L	#0x10,D1
000223c6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000223c8 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000223ce 4a 1f                    |J       |		TST.B	(A7)+
000223d0 67 12                    |g       |		BEQ	0x223e4
000223d2 9e c1                    |        |		SUBA.W	D1,A7
000223d4 20 4f                    | O      |		MOVEA.L	A7,A0
000223d6 43 fa ff b2              |C       |		LEA.L	0x2238a,A1
000223da 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000223dc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000223de 51 c8 ff fc              |Q       |		DBF	D0,0x223dc
000223e2 60 10                    |`       |		BRA	0x223f4
000223e4 9e c1                    |        |		SUBA.W	D1,A7
000223e6 20 4f                    | O      |		MOVEA.L	A7,A0
000223e8 43 fa ff b0              |C       |		LEA.L	0x2239a,A1
000223ec 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000223ee 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000223f0 51 c8 ff fc              |Q       |		DBF	D0,0x223ee
000223f4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000223f6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000223fa 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000223fe 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00022402 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022408 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002240a 48 52                    |HR      |		PEA.L	(A2)
0002240c 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00022412 de fc 00 18              |        |		ADDA.W	#0x18,A7
00022416 42 27                    |B'      |		CLR.B	-(A7)
00022418 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002241c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002241e 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00022424 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022426 48 52                    |HR      |		PEA.L	(A2)
00022428 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
0002242e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022430 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00022434 4e 5e                    |N^      |		UNLK	A6
00022436 4e 75                    |Nu      |		RTS
00022438 43 4c 45 41 52 5f 50 41  |CLEAR_PA|		.TXT	'CLEAR_PARITY_ERRORS.MEM '
00022450 43 4c 45 41 52 5f 50 41  |CLEAR_PA|		.TXT	'CLEAR_PARITY_ERRORS.M32 '
00022468 ; --------------------------------------------------------------------------------------
00022468 ; OMSI PASCAL Function
00022468 ;    <LVAR  0x008 1(r)>
00022468 ;    <LVAR -0x006 @ 4(r)>
00022468 ; --------------------------------------------------------------------------------------
00022468 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
0002246c bf d5                    |        |		CMPA.L	(A5),A7
0002246e 62 06                    |b       |		BHI	0x22476
00022470 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022474 4e 76                    |Nv      |		TRAPV
00022476 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
0002247a 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
0002247e 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00022482 72 18                    |r       |		MOVEQ.L	#0x18,D1
00022484 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022486 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002248c 4a 1f                    |J       |		TST.B	(A7)+
0002248e 67 12                    |g       |		BEQ	0x224a2
00022490 9e c1                    |        |		SUBA.W	D1,A7
00022492 20 4f                    | O      |		MOVEA.L	A7,A0
00022494 43 fa ff a2              |C       |		LEA.L	0x22438,A1
00022498 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002249a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002249c 51 c8 ff fc              |Q       |		DBF	D0,0x2249a
000224a0 60 10                    |`       |		BRA	0x224b2
000224a2 9e c1                    |        |		SUBA.W	D1,A7
000224a4 20 4f                    | O      |		MOVEA.L	A7,A0
000224a6 43 fa ff a8              |C       |		LEA.L	0x22450,A1
000224aa 70 16                    |p       |		MOVEQ.L	#0x16,D0
000224ac 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000224ae 51 c8 ff fc              |Q       |		DBF	D0,0x224ac
000224b2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000224b4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000224b8 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000224bc 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000224c0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000224c6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224c8 48 52                    |HR      |		PEA.L	(A2)
000224ca 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000224d0 de fc 00 20              |        |		ADDA.W	#0x20,A7
000224d4 42 27                    |B'      |		CLR.B	-(A7)
000224d6 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000224da 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000224dc 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000224e2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224e4 48 52                    |HR      |		PEA.L	(A2)
000224e6 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000224ec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000224ee 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000224f2 4e 5e                    |N^      |		UNLK	A6
000224f4 4e 75                    |Nu      |		RTS
000224f6 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.MEM'
00022504 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.M32'
00022512 ; --------------------------------------------------------------------------------------
00022512 ; OMSI PASCAL Function
00022512 ;    <LVAR  0x008 1(r)>
00022512 ;    <LVAR -0x006 @ 4(r)>
00022512 ; --------------------------------------------------------------------------------------
00022512 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00022516 bf d5                    |        |		CMPA.L	(A5),A7
00022518 62 06                    |b       |		BHI	0x22520
0002251a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002251e 4e 76                    |Nv      |		TRAPV
00022520 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00022524 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00022528 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
0002252c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002252e 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00022534 4a 1f                    |J       |		TST.B	(A7)+
00022536 67 0e                    |g       |		BEQ	0x22546
00022538 41 fa ff ca              |A       |		LEA.L	0x22504,A0
0002253c 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002253e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022540 51 c8 ff fc              |Q       |		DBF	D0,0x2253e
00022544 60 0c                    |`       |		BRA	0x22552
00022546 41 fa ff ca              |A       |		LEA.L	0x22512,A0
0002254a 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002254c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002254e 51 c8 ff fc              |Q       |		DBF	D0,0x2254c
00022552 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022554 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022558 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002255c 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(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 48 51                    |HQ      |		PEA.L	(A1)
0002256a 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00022570 de fc 00 16              |        |		ADDA.W	#0x16,A7
00022574 42 27                    |B'      |		CLR.B	-(A7)
00022576 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002257a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002257c 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00022582 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022584 48 51                    |HQ      |		PEA.L	(A1)
00022586 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
0002258c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002258e 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00022592 4e 5e                    |N^      |		UNLK	A6
00022594 4e 75                    |Nu      |		RTS
00022596 43 4c 45 41 52 5f 44 52  |CLEAR_DR|		.TXT	'CLEAR_DRIVE_HIT.MEM '
000225aa 43 4c 45 41 52 5f 44 52  |CLEAR_DR|		.TXT	'CLEAR_DRIVE_HIT.M32 '
000225be ; --------------------------------------------------------------------------------------
000225be ; OMSI PASCAL Function
000225be ;    <LVAR  0x008 1(r)>
000225be ;    <LVAR -0x006 @ 4(r)>
000225be ; --------------------------------------------------------------------------------------
000225be 4e 56 ff c2              |NV      |		LINK.W	A6,#0xffc2
000225c2 bf d5                    |        |		CMPA.L	(A5),A7
000225c4 62 06                    |b       |		BHI	0x225cc
000225c6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000225ca 4e 76                    |Nv      |		TRAPV
000225cc de fc 00 38              |   8    |		ADDA.W	#0x38,A7
000225d0 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000225d4 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000225d8 72 14                    |r       |		MOVEQ.L	#0x14,D1
000225da 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000225dc 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000225e2 4a 1f                    |J       |		TST.B	(A7)+
000225e4 67 12                    |g       |		BEQ	0x225f8
000225e6 9e c1                    |        |		SUBA.W	D1,A7
000225e8 20 4f                    | O      |		MOVEA.L	A7,A0
000225ea 43 fa ff aa              |C       |		LEA.L	0x22596,A1
000225ee 70 12                    |p       |		MOVEQ.L	#0x12,D0
000225f0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000225f2 51 c8 ff fc              |Q       |		DBF	D0,0x225f0
000225f6 60 10                    |`       |		BRA	0x22608
000225f8 9e c1                    |        |		SUBA.W	D1,A7
000225fa 20 4f                    | O      |		MOVEA.L	A7,A0
000225fc 43 fa ff ac              |C       |		LEA.L	0x225aa,A1
00022600 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022602 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022604 51 c8 ff fc              |Q       |		DBF	D0,0x22602
00022608 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002260a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002260e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022612 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00022616 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002261c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002261e 48 52                    |HR      |		PEA.L	(A2)
00022620 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00022626 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
0002262a 42 27                    |B'      |		CLR.B	-(A7)
0002262c 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00022630 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022632 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00022638 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002263a 48 52                    |HR      |		PEA.L	(A2)
0002263c 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00022642 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022644 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00022648 4e 5e                    |N^      |		UNLK	A6
0002264a 4e 75                    |Nu      |		RTS
0002264c					exp_READ_PAREG.IOC(Sw_1, &Sr_1):
0002264c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022652 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00022654 0e 52 45 41 44 5f 50 41  | READ_PA|		.TXT	14,'READ_PAREG.IOC'
00022663 00                       |        |		.CONST	0x0
00022664 04                       |        |		.CONST	0x4			; DIPROC address
00022665 01                       |        |		.CONST	0x1			; Output Parameters
00022666 01                       |        |		.CONST	0x1			; Input Parameters
00022667 00                       |        |		.CONST	0x0			; In arg [1]
00022668 00                       |        |		.CONST	0x0			; Out arg [1]
00022669 00                       |        |		.PAD	0x0
0002266a					exp_RUN_NOCHECK.IOC():
0002266a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022670 00 08                    |        |		.CONST	0x0008			; Stack-delta
00022672 0f 52 55 4e 5f 4e 4f 43  | RUN_NOC|		.TXT	15,'RUN_NOCHECK.IOC'
00022682 00                       |        |		.CONST	0x0
00022683 04                       |        |		.CONST	0x4			; DIPROC address
00022684 00                       |        |		.CONST	0x0			; Output Parameters
00022685 00                       |        |		.CONST	0x0			; Input Parameters
00022686					exp_PREP_RUN.IOC(Sw_2):
00022686 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002268c 00 0a                    |        |		.CONST	0x000a			; Stack-delta
0002268e 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.IOC'
0002269b 00                       |        |		.CONST	0x0
0002269c 04                       |        |		.CONST	0x4			; DIPROC address
0002269d 00                       |        |		.CONST	0x0			; Output Parameters
0002269e 01                       |        |		.CONST	0x1			; Input Parameters
0002269f 01                       |        |		.CONST	0x1			; In arg [2]
000226a0 00 00 00 00 00 00 00 00  |        |		.XXX[0x8]
000226a8 00 00 00 00              |        |		.XXX[0x4]
000226ac 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
000226b0 00                       |        |		.XXX[0x1]
000226b1 00 00 00 00 00 00 00 00  |        |		.CONST	0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0
000226b9 00 00                    |        |		.CONST	0x0,0x0
000226bb 00 00 00 00 00           |        |		.XXX[0x5]
000226c0 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0x140]