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

⟦e1b27b817⟧ M200

    Length: 10752 (0x2a00)
    Types: M200
    Notes: M200_PROGRAM
    Names: »NOVRAM.M200«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »NOVRAM.M200« 

Disassembly

0x20634


@ 20634
        <LVAR  0x00d 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
    <POP 20634-2069c Body>                                              
        <POP 20634-2064a Prologue>                           Σ0         ↓
        <POP 2064a-2064c RegCacheLoad>                       Σ0         ↓
        <POP 2064c-20694 Naked>                              Σ0         ↓
            <MI 2064c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20650  CLR.W   (A0)>                                            {}
            <MI 20652  CLR.L   D0>                                              {}
            <MI 20654  MOVE.B  (A6+0xc),D0>                                     {}
            <MI 20658  MOVE.W  D0,D1>                                           {}
            <MI 2065a  ASR.W   #0x1,D1>                                         {}
            <MI 2065c  AND.B   #0x01,(A0+0x2)>                                  {}
            <MI 20660  LSL.B   #0x1,D1>                                         {}
            <MI 20662  OR.B    D1,(A0+0x2)>                                     {}
            <MI 20666  AND.W   #0x01,D0>                                        {}
            <MI 20668  ASL.W   #0x3,D0>                                         {}
            <MI 2066a  CLR.L   D1>                                              {}
            <MI 2066c  MOVE.B  (A6+0xd),D1>                                     {}
            <MI 20670  MOVE.W  D1,D2>                                           {}
            <MI 20672  ASR.W   #0x5,D2>                                         {}
            <MI 20674  ANDI.W  #0x0007,D2>                                      {}
            <MI 20678  ADD.W   D0,D2>                                           {}
            <MI 2067a  ANDI.W  #0xfe1f,(A0+0x2)>                                {}
            <MI 20680  LSL.W   #0x5,D2>                                         {}
            <MI 20682  OR.W    D2,(A0+0x2)>                                     {}
            <MI 20686  ANDI.W  #0x001f,D1>                                      {}
            <MI 2068a  ANDI.B  #0xe0,(A0+0x3)>                                  {}
            <MI 20690  OR.B    D1,(A0+0x3)>                                     {}
        <POP 20694-2069c Epilogue>                           Σ0         

0x2069c


@ 2069c
        <LVAR  0x00a 4(w)>
        <LVAR  0x008 1(r)>
    <POP 2069c-207da Body>                                   Δ+48       
        <POP 2069c-206b2 Prologue>                           Σ0         ↓
        <POP 206b2-206b4 RegCacheLoad>                       Σ0         ↓
        <POP 206b4-206c2 Naked>                              Σ0         ↓ →0x207a6
            <MI 206b4  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 206b8  EXTB.W  D0>                                              {}
            <MI 206ba  CMPI.W  #0x000f,D0>                                      {}
            <MI 206be  BHI     0x207a6>                                         {}
        <POP 206c2-206cc Naked>                              Σ0         →0x2077a →0x207a6 →0x20742 →0x2072e →0x206ec →0x207a6 →0x20702 →0x20718 →0x207a6 →0x207a6 →0x207a6 →0x207a6 →0x20756 →0x20768 →0x2076e →0x20774
            <MI 206c2  ADD.W   D0,D0>                                           {}
            <MI 206c4  SWITCH  D0.W>                                            {}
        <POP 206ec-20702 Naked>                              Σ0 Δ-4     →0x207b8 ←0x206c2
            <POP 206ec-206ee StackAdj>                       Δ-4                {[-4-]}
            <POP 206ee-206ef StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x206ef [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 206f2  MOVE.B  0x2010b,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 206f8  MOVE.B  0x2010c,(A7+0x2)>                                {[-2-]|[«2""»]}
            <MI 206fe  BRA     0x207b8>                                         {[-2-]|[«2""»]}
        <POP 20702-20718 Naked>                              Σ0 Δ-4     →0x207b8 ←0x206c2
            <POP 20702-20704 StackAdj>                       Δ-4                {[-4-]}
            <POP 20704-20705 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x20705 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 20708  MOVE.B  0x2010f,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 2070e  MOVE.B  0x20110,(A7+0x2)>                                {[-2-]|[«2""»]}
            <MI 20714  BRA     0x207b8>                                         {[-2-]|[«2""»]}
        <POP 20718-2072e Naked>                              Σ0 Δ-4     →0x207b8 ←0x206c2
            <POP 20718-2071a StackAdj>                       Δ-4                {[-4-]}
            <POP 2071a-2071b StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x2071b [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 2071e  MOVE.B  0x20113,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 20724  MOVE.B  0x20114,(A7+0x2)>                                {[-2-]|[«2""»]}
            <MI 2072a  BRA     0x207b8>                                         {[-2-]|[«2""»]}
        <POP 2072e-20742 Naked>                              Σ0 Δ-4     →0x207b8 ←0x206c2
            <POP 2072e-20730 StackAdj>                       Δ-4                {[-4-]}
            <POP 20730-20731 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x20731 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 20734  MOVE.B  0x20117,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 2073a  MOVE.B  0x20118,(A7+0x2)>                                {[-2-]|[«2""»]}
            <MI 20740  BRA     0x207b8>                                         {[-2-]|[«2""»]}
        <POP 20742-20756 Naked>                              Σ0 Δ-4     →0x207b8 ←0x206c2
            <POP 20742-20744 StackAdj>                       Δ-4                {[-4-]}
            <POP 20744-20745 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x20745 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 20748  MOVE.B  0x2011b,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 2074e  MOVE.B  0x2011c,(A7+0x2)>                                {[-2-]|[«2""»]}
            <MI 20754  BRA     0x207b8>                                         {[-2-]|[«2""»]}
        <POP 20756-2075a Naked>                              Σ0 Δ-4     ↓ ←0x206c2
            <Blob 0x20756 [4] @>                             Δ-4                {[«4""»]}
        <POP 2075a-20768 Naked>                              Σ-4 Δ-12   →0x207c4 ←0x20768 ←0x2076e ←0x20774
            <POP 2075a-2075c StackAdj>                       Δ-4                {[-8-]}
            <Pointer.sp 0x2075c 4>                           Δ-4                {[-8-]|[^^4]}
            <Const 0x20760 0x1.2>                            Δ-2                {[-8-]|[^^4]|[#1]}
            <Const 0x20762 0x4.2>                            Δ-2                {[-8-]|[^^4]|[#1]|[#4]}
            <MI 20766  BRA     0x207c4>                                         {[-8-]|[^^4]|[#1]|[#4]}
        <POP 20768-2076e Naked>                              Σ0 Δ-4     →0x2075a ←0x206c2
            <Blob 0x20768 [4] @>                             Δ-4                {[«4""»]}
            <MI 2076c  BRA     0x2075a>                                         {[«4""»]}
        <POP 2076e-20774 Naked>                              Σ0 Δ-4     →0x2075a ←0x206c2
            <Blob 0x2076e [4] @>                             Δ-4                {[«4""»]}
            <MI 20772  BRA     0x2075a>                                         {[«4""»]}
        <POP 20774-2077a Naked>                              Σ0 Δ-4     →0x2075a ←0x206c2
            <Blob 0x20774 [4] @>                             Δ-4                {[«4""»]}
            <MI 20778  BRA     0x2075a>                                         {[«4""»]}
        <POP 2077a-207a6 Naked>                              Σ0         →0x207d2 ←0x206c2
            <Blob 0x2077a [6] @>                             Δ-6                {[«6""»]}
            <POP 2078a-2078c StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x2078c 5>                                                     {[«6""»]|[$$RESHA]}
            <MI 2079e  MOVE.L  (A7)+,(A6+0xa)>               Δ+4                {[«6""»]}
            <POP 207a2-207a4 StackAdj>                       Δ+6                {}
            <MI 207a4  BRA     0x207d2>                                         {}
        <POP 207a6-207b8 Naked>                              Σ0 Δ-4     ↓ ←0x206b4 ←0x206c2 ←0x206c2 ←0x206c2 ←0x206c2 ←0x206c2 ←0x206c2
            <POP 207a6-207a8 StackAdj>                       Δ-4                {[-4-]}
            <POP 207a8-207a9 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x207a9 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 207ac  MOVE.B  0x20135,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 207b2  MOVE.B  0x20136,(A7+0x2)>                                {[-2-]|[«2""»]}
        <POP 207b8-207c4 Naked>                              Σ-4 Δ-12   ↓ ←0x206ec ←0x20702 ←0x20718 ←0x2072e ←0x20742
            <POP 207b8-207ba StackAdj>                       Δ-4                {[-8-]}
            <Pointer.sp 0x207ba 4>                           Δ-4                {[-8-]|[^^4]}
            <Const 0x207be 0x1.2>                            Δ-2                {[-8-]|[^^4]|[#1]}
            <Const 0x207c0 0x3.2>                            Δ-2                {[-8-]|[^^4]|[#1]|[#3]}
        <POP 207c4-207d2 Naked>                              Σ-16 Δ+16  ↓ ←0x2075a
            <Call 0x207c4 0x102c4>                                              {[-16-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 207ca-207cc StackAdj>                       Δ+8                {[-8-]}
            <MI 207cc  MOVE.L  (A7)+,(A6+0xa)>               Δ+4                {[-4-]}
            <POP 207d0-207d2 StackAdj>                       Δ+4                {}
        <POP 207d2-207da Epilogue>                           Σ0         ←0x2077a

0x207da


@ 207da
        <LVAR  0x00c 2(w)>
        <LVAR  0x008 4(r)>
    <POP 207da-2081a Body>                                              
        <POP 207da-207f0 Prologue>                           Σ0         ↓
        <POP 207f0-20812 Naked>                              Σ0         ↓
            <POP 207f0-207f2 StackAdj>                       Δ-2                {[-2-]}
            <MI 207f2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x8)']}
            <Call 0x207f6 0x10592>                                              {[-2-]|[4, '(A6+0x8)']}
                ReadConfig(where : Long) : Word
            <POP 207fc-207fe StackAdj>                       Δ+4                {[-2-]}
            <MI 207fe  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20800 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20804  MOVE.W  D0,D7>                                           {}
            <MI 20806  MOVE.W  D7,D0>                                           {}
            <MI 20808  EXTW.L  D0>                                              {}
            <MI 2080a  ADD.L   D0,(A4+0x2)>                                     {}
            <MI 2080e  MOVE.W  D0,(A6+0xc)>                                     {}
        <POP 20812-2081a Epilogue>                           Σ0         

0x2081a


@ 2081a
        <LVAR -0x006 4(rw)>
        <LVAR -0x007 1(w)>
        <LVAR -0x008 @ 1(w) 2(r)>
    <POP 2081a-20906 Body>                                              
        <POP 2081a-20830 Prologue>                           Σ0         ↓
        <POP 20830-2083e RegCacheLoad>                       Σ0         ↓
        <POP 2083e-208fa Naked>                              Σ0         ↓ →0x208fe
            <MI 2083e  MOVE.L  #0x56,(A6-0x6)>                                  {}
            <POP 20846-20848 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20848 0x101.4>                          Δ-4                {[-2-]|[##257]}
            <MI 2084c  LEA.L   (A6-0x8),A4>                                     {[-2-]|[##257]}
            <Call 0x2084e 0x207da>                                              {[-2-]|[##257]}
            <POP 20850-20852 StackAdj>                       Δ+4                {[-2-]}
            <MI 20852  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20854 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20856  MOVE.W  D0,(A5+0x50)>                                    {}
            <POP 2085a-2085c StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2085c 0x102.4>                          Δ-4                {[-2-]|[##258]}
            <MI 20860  LEA.L   (A6-0x8),A4>                                     {[-2-]|[##258]}
            <Call 0x20862 0x207da>                                              {[-2-]|[##258]}
            <POP 20864-20866 StackAdj>                       Δ+4                {[-2-]}
            <MI 20866  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 20868  ASL.W   #0x8,D0>                                         {}
            <POP 2086a-2086c StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2086c 0x103.4>                          Δ-4                {[-2-]|[##259]}
            <MI 20870  LEA.L   (A6-0x8),A4>                                     {[-2-]|[##259]}
            <Call 0x20872 0x207da>                                              {[-2-]|[##259]}
            <POP 20874-20876 StackAdj>                       Δ+4                {[-2-]}
            <MI 20876  ADD.W   (A7)+,D0>                     Δ+2                {}
            <POP 0x20878 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 20880  MOVE.W  D0,(A5+0x52)>                                    {}
            <POP 20884-20886 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20886 0x104.4>                          Δ-4                {[-2-]|[##260]}
            <MI 2088a  LEA.L   (A6-0x8),A4>                                     {[-2-]|[##260]}
            <Call 0x2088c 0x207da>                                              {[-2-]|[##260]}
            <POP 2088e-20890 StackAdj>                       Δ+4                {[-2-]}
            <MI 20890  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20892 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20894  MOVE.W  D0,(A5+0x54)>                                    {}
            <POP 20898-2089a StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2089a 0x105.4>                          Δ-4                {[-2-]|[##261]}
            <MI 2089e  LEA.L   (A6-0x8),A4>                                     {[-2-]|[##261]}
            <Call 0x208a0 0x207da>                                              {[-2-]|[##261]}
            <POP 208a2-208a4 StackAdj>                       Δ+4                {[-2-]}
            <MI 208a4  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x208a6 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 208a8  MOVE.W  D0,(A5+0x56)>                                    {}
            <POP 208ac-208ae StackAdj>                       Δ-2                {[-2-]}
            <Const 0x208ae 0x106.4>                          Δ-4                {[-2-]|[##262]}
            <MI 208b2  LEA.L   (A6-0x8),A4>                                     {[-2-]|[##262]}
            <Call 0x208b4 0x207da>                                              {[-2-]|[##262]}
            <POP 208b6-208b8 StackAdj>                       Δ+4                {[-2-]}
            <MI 208b8  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x208ba LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 208bc  MOVE.B  D0,(A6-0x8)>                                     {}
            <POP 208be-208c0 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x208c0 0x107.4>                          Δ-4                {[-2-]|[##263]}
            <MI 208c4  LEA.L   (A6-0x8),A4>                                     {[-2-]|[##263]}
            <Call 0x208c6 0x207da>                                              {[-2-]|[##263]}
            <POP 208c8-208ca StackAdj>                       Δ+4                {[-2-]}
            <MI 208ca  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x208cc LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 208ce  MOVE.B  D0,(A6-0x7)>                                     {}
            <MI 208d2  MOVE.W  (A6-0x8),-(A7)>               Δ-2                {[2, '(A6-0x8)']}
            <MI 208d4  PEA.L   (A5+0x58)>                    Δ-4                {[2, '(A6-0x8)']|[4, '^(A5+0x58)']}
            <Call 0x208d8 0x20634>                                              {[2, '(A6-0x8)']|[4, '^(A5+0x58)']}
            <POP 208dc-208de StackAdj>                       Δ+4                {[2, '(A6-0x8)']}
            <Const 0x208de 0x108.4>                          Δ-4                {[2, '(A6-0x8)']|[##264]}
            <MI 208e2  LEA.L   (A6-0x8),A4>                                     {[2, '(A6-0x8)']|[##264]}
            <Call 0x208e4 0x207da>                                              {[2, '(A6-0x8)']|[##264]}
            <POP 208e6-208e8 StackAdj>                       Δ+4                {[2, '(A6-0x8)']}
            <MI 208e8  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x208ea LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 208ec  MOVE.B  D0,(A6-0x8)>                                     {}
            <MI 208ee  CLR.B   (A5+0x5c)>                                       {}
            <MI 208f2  MOVE.L  (A6-0x6),D0>                                     {}
            <MI 208f6  AND.L   #0xff,D0>                                        {}
            <MI 208f8  BNE     0x208fe>                                         {}
        <POP 208fa-208fe Naked>                              Σ0         ↓
            <MI 208fa  ADDQ.B  #0x1,(A5+0x5c)>                                  {}
        <POP 208fe-20906 Epilogue>                           Σ0         ←0x2083e

0x20906


@ 20906
        <LVAR  0x00c 2(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 2(r)>
    <POP 20906-20952 Body>                                              
        <POP 20906-2091c Prologue>                           Σ0         ↓
        <POP 2091c-20920 RegCacheLoad>                       Σ0         ↓
        <POP 20920-2094a Naked>                              Σ0         ↓
            <MI 20920  CLR.W   (A6-0x4)>                                        {}
            <MI 20922  MOVE.L  (A4),D0>                                         {}
            <MI 20924  ADD.L   (A6+0x8),D0>                                     {}
            <MI 20928  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 2092a  LEA.L   (A6-0x4),A0>                                     {[4, 'D0']}
            <MI 2092c  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'D0']|[4, 'A0']}
            <MI 2092e  ADDQ.L  #0x1,(A7)>                                       {[4, 'D0']|[-4-]}
            <Const 0x20930 0x1.2>                            Δ-2                {[4, 'D0']|[-4-]|[#1]}
            <Call 0x20934 0x10238>                                              {[4, 'D0']|[-4-]|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 2093a-2093e StackAdj>                       Δ+10               {}
            <MI 2093e  MOVE.W  (A6-0x4),D0>                                     {}
            <MI 20940  EXTW.L  D0>                                              {}
            <MI 20942  ADD.L   D0,(A4+0x6)>                                     {}
            <MI 20946  MOVE.W  D0,(A6+0xc)>                                     {}
        <POP 2094a-20952 Epilogue>                           Σ0         

0x20952


@ 20952
        <LVAR -0x006 4(r)>
        <LVAR -0x007 1(w)>
        <LVAR -0x008 1(w) 2(r)>
        <LVAR -0x00c @ 4(w)>
    <POP 20952-20a84 Body>                                              
        <POP 20952-20968 Prologue>                           Σ0         ↓
        <POP 20968-2097a RegCacheLoad>                       Σ0         ↓
        <POP 2097a-20986 Naked>                              Σ0         ↓ →0x209b8
            <POP 2097a-2097c StackAdj>                       Δ-4                {[-4-]}
            <Call 0x2097c 0x22024>                                              {[-4-]}
            <MI 20982  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 20984  BNE     0x209b8>                                         {}
        <POP 20986-209b8 Naked>                              Σ0         →0x20a7c
            <Blob 0x20986 [32] @>                            Δ-32               {[«32""»]}
            <POP 20992-20994 StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x20994 32>                                                    {[«32""»]|[$$*** invalid RESHA board info ptr]}
            <Call 0x209a8 0x103e0>                                              {[«32""»]|[$$*** invalid RESHA board info ptr]}
                WriteConsoleStringCrLf(str : String)
            <POP 209ae-209b2 StackAdj>                       Δ+36               {}
            <MI 209b2  CLR.B   (A5+0x24)>                                       {}
            <MI 209b4  BRA     0x20a7c>                                         {}
        <POP 209b8-20a7a Naked>                              Σ0         ↓ →0x20a7c ←0x2097a
            <MI 209b8  CLR.L   (A6-0x6)>                                        {}
            <POP 209bc-209be StackAdj>                       Δ-2                {[-2-]}
            <Const 0x209be 0x0.4>                            Δ-4                {[-2-]|[##0]}
            <MI 209c2  LEA.L   (A6-0xc),A4>                                     {[-2-]|[##0]}
            <Call 0x209c4 0x20906>                                              {[-2-]|[##0]}
            <POP 209c6-209c8 StackAdj>                       Δ+4                {[-2-]}
            <MI 209c8  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x209ca LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 209cc  MOVE.W  D0,(A5+0x18)>                                    {}
            <POP 209d0-209d2 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x209d2 0x1.4>                            Δ-4                {[-2-]|[##1]}
            <MI 209d6  LEA.L   (A6-0xc),A4>                                     {[-2-]|[##1]}
            <Call 0x209d8 0x20906>                                              {[-2-]|[##1]}
            <POP 209da-209dc StackAdj>                       Δ+4                {[-2-]}
            <MI 209dc  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 209de  ASL.W   #0x8,D0>                                         {}
            <POP 209e0-209e2 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x209e2 0x2.4>                            Δ-4                {[-2-]|[##2]}
            <MI 209e6  LEA.L   (A6-0xc),A4>                                     {[-2-]|[##2]}
            <Call 0x209e8 0x20906>                                              {[-2-]|[##2]}
            <POP 209ea-209ec StackAdj>                       Δ+4                {[-2-]}
            <MI 209ec  ADD.W   (A7)+,D0>                     Δ+2                {}
            <POP 0x209ee LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 209f6  MOVE.W  D0,(A5+0x1a)>                                    {}
            <POP 209fa-209fc StackAdj>                       Δ-2                {[-2-]}
            <Const 0x209fc 0x3.4>                            Δ-4                {[-2-]|[##3]}
            <MI 20a00  LEA.L   (A6-0xc),A4>                                     {[-2-]|[##3]}
            <Call 0x20a02 0x20906>                                              {[-2-]|[##3]}
            <POP 20a04-20a06 StackAdj>                       Δ+4                {[-2-]}
            <MI 20a06  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20a08 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20a0a  MOVE.W  D0,(A5+0x1c)>                                    {}
            <POP 20a0e-20a10 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20a10 0x4.4>                            Δ-4                {[-2-]|[##4]}
            <MI 20a14  LEA.L   (A6-0xc),A4>                                     {[-2-]|[##4]}
            <Call 0x20a16 0x20906>                                              {[-2-]|[##4]}
            <POP 20a18-20a1a StackAdj>                       Δ+4                {[-2-]}
            <MI 20a1a  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20a1c LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20a1e  MOVE.W  D0,(A5+0x1e)>                                    {}
            <POP 20a22-20a24 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20a24 0x5.4>                            Δ-4                {[-2-]|[##5]}
            <MI 20a28  LEA.L   (A6-0xc),A4>                                     {[-2-]|[##5]}
            <Call 0x20a2a 0x20906>                                              {[-2-]|[##5]}
            <POP 20a2c-20a2e StackAdj>                       Δ+4                {[-2-]}
            <MI 20a2e  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20a30 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20a32  MOVE.B  D0,(A6-0x8)>                                     {}
            <POP 20a36-20a38 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20a38 0x6.4>                            Δ-4                {[-2-]|[##6]}
            <MI 20a3c  LEA.L   (A6-0xc),A4>                                     {[-2-]|[##6]}
            <Call 0x20a3e 0x20906>                                              {[-2-]|[##6]}
            <POP 20a40-20a42 StackAdj>                       Δ+4                {[-2-]}
            <MI 20a42  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20a44 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20a46  MOVE.B  D0,(A6-0x7)>                                     {}
            <MI 20a4a  MOVE.W  (A6-0x8),-(A7)>               Δ-2                {[2, '(A6-0x8)']}
            <MI 20a4e  PEA.L   (A5+0x20)>                    Δ-4                {[2, '(A6-0x8)']|[4, '^(A5+0x20)']}
            <Call 0x20a52 0x20634>                                              {[2, '(A6-0x8)']|[4, '^(A5+0x20)']}
            <POP 20a56-20a58 StackAdj>                       Δ+4                {[2, '(A6-0x8)']}
            <Const 0x20a58 0x7.4>                            Δ-4                {[2, '(A6-0x8)']|[##7]}
            <MI 20a5c  LEA.L   (A6-0xc),A4>                                     {[2, '(A6-0x8)']|[##7]}
            <Call 0x20a5e 0x20906>                                              {[2, '(A6-0x8)']|[##7]}
            <POP 20a60-20a62 StackAdj>                       Δ+4                {[2, '(A6-0x8)']}
            <MI 20a62  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20a64 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20a66  MOVE.B  D0,(A6-0x8)>                                     {}
            <MI 20a6a  CLR.B   (A5+0x24)>                                       {}
            <MI 20a6c  MOVE.L  (A6-0x6),D0>                                     {}
            <MI 20a70  AND.L   #0xff,D0>                                        {}
            <MI 20a72  CMPI.L  #0x000000aa,D0>                                  {}
            <MI 20a78  BNE     0x20a7c>                                         {}
        <POP 20a7a-20a7c Naked>                              Σ0         ↓
            <MI 20a7a  ADDQ.B  #0x1,(A5+0x24)>                                  {}
        <POP 20a7c-20a84 Epilogue>                           Σ0         ←0x20986 ←0x209b8

0x20a84


@ 20a84
        <LVAR  0x008 1(r)>
        <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 -0x009 @ 1(r)>
        <LVAR -0x00a @ 1(r)>
    <POP 20a84-20bb4 Body>                                   Δ+72       
        <POP 20a84-20a9a Prologue>                           Σ0         ↓
        <POP 20a9a-20aae RegCacheLoad>                       Σ0         ↓
        <POP 20aae-20aca Naked>                              Σ0         →0x20b16 →0x20b2c →0x20ae6 →0x20b00 →0x20b42 →0x20b42 →0x20b42 →0x20b42
            <MI 20aae  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 20ab2  EXTB.W  D0>                                              {}
            <MI 20ab4  MOVE.W  D0,D1>                                           {}
            <MI 20ab6  SUBQ.W  #0x2,D1>                                         {}
            <POP 0x20ab8 LimitCheck 0x0 ≤ D1 ≤ 0xd>                             {}
            <MI 20ac0  ADD.W   D1,D1>                                           {}
            <MI 20ac2  SWITCH  D1.W>                                            {}
        <POP 20ae6-20afa Naked>                              Σ0 Δ-24    ↓ ←0x20aae
            <Pointer.fp 0x20ae6 <LVAR -0x00a @ 1(r)>>        Δ-4                {[@@-10]}
            <Pointer.fp 0x20ae8 <LVAR -0x009 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]}
            <Pointer.fp 0x20aea <LVAR -0x007 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]}
            <Pointer.fp 0x20aec <LVAR -0x006 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]|[@@-6]}
            <Pointer.fp 0x20aee <LVAR -0x005 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]}
            <Pointer.fp 0x20af0 <LVAR -0x003 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]|[@@-3]}
            <Call 0x20af4 0x2221c>                                              {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]|[@@-3]}
                exp_READ_NOVRAM_DATA.TYP(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
        <POP 20afa-20b00 Naked>                              Σ-24 Δ+24  →0x20b5c ←0x20b00 ←0x20b16 ←0x20b2c
            <POP 20afa-20afe StackAdj>                       Δ+24               {}
            <MI 20afe  BRA     0x20b5c>                                         {}
        <POP 20b00-20b16 Naked>                              Σ0 Δ-24    →0x20afa ←0x20aae
            <Pointer.fp 0x20b00 <LVAR -0x00a @ 1(r)>>        Δ-4                {[@@-10]}
            <Pointer.fp 0x20b02 <LVAR -0x009 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]}
            <Pointer.fp 0x20b04 <LVAR -0x007 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]}
            <Pointer.fp 0x20b06 <LVAR -0x006 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]|[@@-6]}
            <Pointer.fp 0x20b08 <LVAR -0x005 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]}
            <Pointer.fp 0x20b0a <LVAR -0x003 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]|[@@-3]}
            <Call 0x20b0e 0x2229e>                                              {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]|[@@-3]}
                exp_READ_NOVRAM_DATA.VAL(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
            <MI 20b14  BRA     0x20afa>                                         {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]|[@@-3]}
        <POP 20b16-20b2c Naked>                              Σ0 Δ-24    →0x20afa ←0x20aae
            <Pointer.fp 0x20b16 <LVAR -0x00a @ 1(r)>>        Δ-4                {[@@-10]}
            <Pointer.fp 0x20b18 <LVAR -0x009 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]}
            <Pointer.fp 0x20b1a <LVAR -0x007 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]}
            <Pointer.fp 0x20b1c <LVAR -0x006 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]|[@@-6]}
            <Pointer.fp 0x20b1e <LVAR -0x005 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]}
            <Pointer.fp 0x20b20 <LVAR -0x003 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]|[@@-3]}
            <Call 0x20b24 0x221cc>                                              {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]|[@@-3]}
                exp_READ_NOVRAM_DATA.SEQ(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
            <MI 20b2a  BRA     0x20afa>                                         {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]|[@@-3]}
        <POP 20b2c-20b42 Naked>                              Σ0 Δ-24    →0x20afa ←0x20aae
            <Pointer.fp 0x20b2c <LVAR -0x00a @ 1(r)>>        Δ-4                {[@@-10]}
            <Pointer.fp 0x20b2e <LVAR -0x009 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]}
            <Pointer.fp 0x20b30 <LVAR -0x007 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]}
            <Pointer.fp 0x20b32 <LVAR -0x006 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]|[@@-6]}
            <Pointer.fp 0x20b34 <LVAR -0x005 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]}
            <Pointer.fp 0x20b36 <LVAR -0x003 @ 1(r)>>        Δ-4                {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]|[@@-3]}
            <Call 0x20b3a 0x2214a>                                              {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]|[@@-3]}
                exp_READ_NOVRAM_DATA.FIU(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
            <MI 20b40  BRA     0x20afa>                                         {[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]|[@@-3]}
        <POP 20b42-20b5c Naked>                              Σ0         ↓ ←0x20aae ←0x20aae ←0x20aae ←0x20aae
            <MI 20b42  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x20b44 <LVAR -0x00a @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-10]}
            <Pointer.fp 0x20b46 <LVAR -0x009 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-10]|[@@-9]}
            <Pointer.fp 0x20b48 <LVAR -0x007 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-10]|[@@-9]|[@@-7]}
            <Pointer.fp 0x20b4a <LVAR -0x006 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-10]|[@@-9]|[@@-7]|[@@-6]}
            <Pointer.fp 0x20b4c <LVAR -0x005 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]}
            <Pointer.fp 0x20b4e <LVAR -0x003 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]|[@@-3]}
            <Call 0x20b52 0x22444>                                              {[2, 'D0']|[@@-10]|[@@-9]|[@@-7]|[@@-6]|[@@-5]|[@@-3]}
            <POP 20b58-20b5c StackAdj>                       Δ+26               {}
        <POP 20b5c-20bac Naked>                              Σ0         ↓ ←0x20afa
            <MI 20b5c  MULS.W  #0xe,D0>                                         {}
            <MI 20b60  CLR.L   D1>                                              {}
            <MI 20b62  MOVE.B  (A6-0xa),D1>                                     {}
            <MI 20b64  MOVE.W  D1,(A5+D0.W+#0x18)>                              {}
            <MI 20b68  CLR.L   D1>                                              {}
            <MI 20b6a  MOVE.B  (A6-0x9),D1>                                     {}
            <MI 20b6c  ASL.W   #0x8,D1>                                         {}
            <MI 20b6e  CLR.L   D2>                                              {}
            <MI 20b70  MOVE.B  (A6-0x8),D2>                                     {}
            <MI 20b74  ADD.W   D1,D2>                                           {}
            <MI 20b76  MOVE.W  D2,(A5+D0.W+#0x1a)>                              {}
            <MI 20b7a  CLR.L   D1>                                              {}
            <MI 20b7c  MOVE.B  (A6-0x7),D1>                                     {}
            <MI 20b7e  MOVE.W  D1,(A5+D0.W+#0x1c)>                              {}
            <MI 20b82  CLR.L   D1>                                              {}
            <MI 20b84  MOVE.B  (A6-0x6),D1>                                     {}
            <MI 20b86  MOVE.W  D1,(A5+D0.W+#0x1e)>                              {}
            <POP 20b8a-20b8c StackAdj>                       Δ-2                {[-2-]}
            <MI 20b8c  MOVE.B  (A6-0x5),(A7)>                                   {[-2-]}
            <MI 20b8e  MOVE.B  (A6-0x4),(A7+0x1)>                               {[-2-]}
            <MI 20b94  PEA.L   (A5+D0.W+#0x20)>              Δ-4                {[-2-]|[4, '^(A5+D0.W+#0x20)']}
            <Call 0x20b98 0x20634>                                              {[-2-]|[4, '^(A5+D0.W+#0x20)']}
            <POP 20b9c-20b9e StackAdj>                       Δ+6                {}
            <MI 20b9e  MOVE.B  (A6-0x3),D1>                                     {}
            <MI 20ba2  EXTB.W  D1>                                              {}
            <POP 0x20ba4 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {}
            <MI 20ba8  MOVE.B  D1,(A5+D0.W+#0x24)>                              {}
        <POP 20bac-20bb4 Epilogue>                           Σ0         

0x20bb4


@ 20bb4
        <LVAR -0x006 @>
    <POP 20bb4-20c94 Body>                                              
        <POP 20bb4-20bca Prologue>                           Σ0         ↓
        <POP 20bca-20bce RegCacheLoad>                       Σ0         ↓
        <POP 20bce-20bee Naked>                              Σ0         ↓
            <Call 0x20bce 0x2081a>                                              {}
            <Const 0x20bd2 0x6.2>                            Δ-2                {[#6]}
            <Call 0x20bd6 0x20a84>                                              {[#6]}
            <POP 20bd8-20bd9 StackAdj>                       Δ+2                {}
            <Const 0x20bd9 0x7.2>                            Δ-2                {[#7]}
            <Call 0x20bdc 0x20a84>                                              {[#7]}
            <POP 20bde-20bdf StackAdj>                       Δ+2                {}
            <Const 0x20bdf 0x3.2>                            Δ-2                {[#3]}
            <Call 0x20be2 0x20a84>                                              {[#3]}
            <POP 20be4-20be5 StackAdj>                       Δ+2                {}
            <Const 0x20be5 0x2.2>                            Δ-2                {[#2]}
            <Call 0x20be8 0x20a84>                                              {[#2]}
            <POP 20bea-20bec StackAdj>                       Δ+2                {}
            <MI 20bec  MOVEQ.L #0x0c,D7>                                        {}
        <POP 20bee-20bfe Naked>                              Σ0         ↓ →0x20c04 ←0x20c04
            <POP 20bee-20bf0 StackAdj>                       Δ-2                {[-2-]}
            <MI 20bf0  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x20bf2 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20bf8-20bfa StackAdj>                       Δ+2                {[-2-]}
            <MI 20bfa  TST.B   (A7)+>                        Δ+2                {}
            <MI 20bfc  BEQ     0x20c04>                                         {}
        <POP 20bfe-20c04 Naked>                              Σ0         ↓
            <MI 20bfe  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x20c00 0x20a84>                                              {[2, 'D7']}
            <POP 20c02-20c04 StackAdj>                       Δ+2                {}
        <POP 20c04-20c0c Naked>                              Σ0         ↓ →0x20bee ←0x20bee
            <MI 20c04  ADDQ.B  #0x1,D7>                                         {}
            <MI 20c06  CMPI.B  #0x0f,D7>                                        {}
            <MI 20c0a  BLE     0x20bee>                                         {}
        <POP 20c0c-20c18 Naked>                              Σ0         ↓ →0x20c24
            <POP 20c0c-20c0e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x20c0e 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 20c14  TST.B   (A7)+>                        Δ+2                {}
            <MI 20c16  BNE     0x20c24>                                         {}
        <POP 20c18-20c24 Naked>                              Σ0         ↓ →0x20c8c
            <POP 20c18-20c1a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x20c1a 0x10604>                                              {[-2-]}
                Is_fc07_three() : Bool
            <MI 20c20  TST.B   (A7)+>                        Δ+2                {}
            <MI 20c22  BEQ     0x20c8c>                                         {}
        <POP 20c24-20c44 Naked>                              Σ0         ↓ →0x20c76 ←0x20c0c
            <Const 0x20c24 0x0.4>                            Δ-4                {[##0]}
            <Pointer.fp 0x20c28 <LVAR -0x006 @>>             Δ-4                {[##0]|[@@-6]}
            <Call 0x20c2c 0x22078>                                              {[##0]|[@@-6]}
            <POP 20c32-20c34 StackAdj>                       Δ+8                {}
            <Call 0x20c34 0x20952>                                              {}
            <POP 20c38-20c3a StackAdj>                       Δ-4                {[-4-]}
            <Call 0x20c3a 0x2204e>                                              {[-4-]}
            <MI 20c40  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 20c42  BNE     0x20c76>                                         {}
        <POP 20c44-20c76 Naked>                              Σ0         →0x20c8c
            <Blob 0x20c44 [30] @>                            Δ-30               {[«30""»]}
            <POP 20c50-20c52 StackAdj>                       Δ-4                {[«30""»]|[-4-]}
            <Lit 0x20c52 30>                                                    {[«30""»]|[$$*** invalid TCP board info ptr]}
            <Call 0x20c66 0x103e0>                                              {[«30""»]|[$$*** invalid TCP board info ptr]}
                WriteConsoleStringCrLf(str : String)
            <POP 20c6c-20c70 StackAdj>                       Δ+34               {}
            <MI 20c70  CLR.L   (A5+0xf8)>                                       {}
            <MI 20c74  BRA     0x20c8c>                                         {}
        <POP 20c76-20c8c Naked>                              Σ0         ↓ ←0x20c24
            <MI 20c76  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']}
            <MI 20c78  LEA.L   (A5+0xf8),A0>                                    {[4, 'D6']}
            <MI 20c7c  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'D6']|[4, 'A0']}
            <Const 0x20c7e 0x4.2>                            Δ-2                {[4, 'D6']|[4, 'A0']|[#4]}
            <Call 0x20c82 0x10238>                                              {[4, 'D6']|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20c88-20c8c StackAdj>                       Δ+10               {}
        <POP 20c8c-20c94 Epilogue>                           Σ0         ←0x20c18 ←0x20c44

0x20c94


@ 20c94
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 2(r)>
    <POP 20c94-20cca Body>                                              
        <POP 20c94-20caa Prologue>                           Σ0         ↓
        <POP 20caa-20cc2 Naked>                              Σ0         ↓
            <MI 20caa  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[4, '(A6+0xa)']}
            <MI 20cae  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[4, '(A6+0xa)']|[2, '(A6+0x8)']}
            <Call 0x20cb2 0x10598>                                              {[4, '(A6+0xa)']|[2, '(A6+0x8)']}
                WriteConfig(what: Word; where : Long)
            <POP 20cb8-20cba StackAdj>                       Δ+6                {}
            <MI 20cba  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 20cbe  EXTW.L  D0>                                              {}
            <MI 20cc0  ADD.L   D0,(A4)>                                         {}
        <POP 20cc2-20cca Epilogue>                           Σ0         

0x20cca


@ 20cca
        <LVAR  0x010 1(r)>
        <LVAR  0x00f 1(r)>
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x009 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(rw)>
    <POP 20cca-20d8c Body>                                              
        <POP 20cca-20ce0 Prologue>                           Σ0         ↓
        <POP 20ce0-20ce8 RegCacheLoad>                       Σ0         ↓
        <POP 20ce8-20d84 Naked>                              Σ0         ↓
            <MI 20ce8  MOVE.L  #0x56,(A6-0x6)>                                  {}
            <Const 0x20cee 0x101.4>                          Δ-4                {[##257]}
            <MI 20cf2  CLR.L   D0>                                              {[##257]}
            <MI 20cf4  MOVE.B  (A6+0x10),D0>                                    {[##257]}
            <MI 20cf8  MOVE.W  D0,-(A7)>                     Δ-2                {[##257]|[2, 'D0']}
            <MI 20cfa  LEA.L   (A6-0x6),A4>                                     {[##257]|[2, 'D0']}
            <Call 0x20cfc 0x20c94>                                              {[##257]|[2, 'D0']}
            <POP 20cfe-20d00 StackAdj>                       Δ+6                {}
            <Const 0x20d00 0x102.4>                          Δ-4                {[##258]}
            <MI 20d04  CLR.L   D0>                                              {[##258]}
            <MI 20d06  MOVE.B  (A6+0xe),D0>                                     {[##258]}
            <MI 20d0a  MOVE.W  D0,-(A7)>                     Δ-2                {[##258]|[2, 'D0']}
            <MI 20d0c  LEA.L   (A6-0x6),A4>                                     {[##258]|[2, 'D0']}
            <Call 0x20d0e 0x20c94>                                              {[##258]|[2, 'D0']}
            <POP 20d10-20d12 StackAdj>                       Δ+6                {}
            <Const 0x20d12 0x103.4>                          Δ-4                {[##259]}
            <MI 20d16  CLR.L   D0>                                              {[##259]}
            <MI 20d18  MOVE.B  (A6+0xf),D0>                                     {[##259]}
            <MI 20d1c  MOVE.W  D0,-(A7)>                     Δ-2                {[##259]|[2, 'D0']}
            <MI 20d1e  LEA.L   (A6-0x6),A4>                                     {[##259]|[2, 'D0']}
            <Call 0x20d20 0x20c94>                                              {[##259]|[2, 'D0']}
            <POP 20d22-20d24 StackAdj>                       Δ+6                {}
            <Const 0x20d24 0x104.4>                          Δ-4                {[##260]}
            <MI 20d28  CLR.L   D0>                                              {[##260]}
            <MI 20d2a  MOVE.B  (A6+0xc),D0>                                     {[##260]}
            <MI 20d2e  MOVE.W  D0,-(A7)>                     Δ-2                {[##260]|[2, 'D0']}
            <MI 20d30  LEA.L   (A6-0x6),A4>                                     {[##260]|[2, 'D0']}
            <Call 0x20d32 0x20c94>                                              {[##260]|[2, 'D0']}
            <POP 20d34-20d36 StackAdj>                       Δ+6                {}
            <Const 0x20d36 0x105.4>                          Δ-4                {[##261]}
            <MI 20d3a  CLR.L   D0>                                              {[##261]}
            <MI 20d3c  MOVE.B  (A6+0xa),D0>                                     {[##261]}
            <MI 20d40  MOVE.W  D0,-(A7)>                     Δ-2                {[##261]|[2, 'D0']}
            <MI 20d42  LEA.L   (A6-0x6),A4>                                     {[##261]|[2, 'D0']}
            <Call 0x20d44 0x20c94>                                              {[##261]|[2, 'D0']}
            <POP 20d46-20d48 StackAdj>                       Δ+6                {}
            <Const 0x20d48 0x106.4>                          Δ-4                {[##262]}
            <MI 20d4c  CLR.L   D0>                                              {[##262]}
            <MI 20d4e  MOVE.B  (A6+0x8),D0>                                     {[##262]}
            <MI 20d52  MOVE.W  D0,-(A7)>                     Δ-2                {[##262]|[2, 'D0']}
            <MI 20d54  LEA.L   (A6-0x6),A4>                                     {[##262]|[2, 'D0']}
            <Call 0x20d56 0x20c94>                                              {[##262]|[2, 'D0']}
            <POP 20d58-20d5a StackAdj>                       Δ+6                {}
            <Const 0x20d5a 0x107.4>                          Δ-4                {[##263]}
            <MI 20d5e  CLR.L   D0>                                              {[##263]}
            <MI 20d60  MOVE.B  (A6+0x9),D0>                                     {[##263]}
            <MI 20d64  MOVE.W  D0,-(A7)>                     Δ-2                {[##263]|[2, 'D0']}
            <MI 20d66  LEA.L   (A6-0x6),A4>                                     {[##263]|[2, 'D0']}
            <Call 0x20d68 0x20c94>                                              {[##263]|[2, 'D0']}
            <POP 20d6a-20d6c StackAdj>                       Δ+6                {}
            <MI 20d6c  MOVE.L  (A6-0x6),D0>                                     {}
            <MI 20d6e  NEG.L   D0>                                              {}
            <MI 20d70  ANDI.L  #0x000000ff,D0>                                  {}
            <MI 20d76  MOVE.W  D0,D7>                                           {}
            <Const 0x20d78 0x108.4>                          Δ-4                {[##264]}
            <MI 20d7c  MOVE.W  D7,-(A7)>                     Δ-2                {[##264]|[2, 'D7']}
            <MI 20d7e  LEA.L   (A6-0x6),A4>                                     {[##264]|[2, 'D7']}
            <Call 0x20d80 0x20c94>                                              {[##264]|[2, 'D7']}
            <POP 20d82-20d84 StackAdj>                       Δ+6                {}
        <POP 20d84-20d8c Epilogue>                           Σ0         

0x20d8c


@ 20d8c
        <LVAR -0x008 @ 4(r)>
    <POP 20d8c-20f04 Body>                                              
        <POP 20d8c-20da2 Prologue>                           Σ0         ↓
        <POP 20da2-20db6 RegCacheLoad>                       Σ0         ↓
        <POP 20db6-20de2 Naked>                              Σ0         ↓
            <Blob 0x20db6 [54] @>                            Δ-54               {[«54""»]}
            <POP 20dc8-20dca StackAdj>                       Δ-4                {[«54""»]|[-4-]}
            <Lit 0x20dca 53>                                                    {[«54""»]|[$$turn WRITE PROTECT switch OFF (on front of RESHA) ...]}
            <Call 0x20dd8 0x103d8>                                              {[«54""»]|[$$turn WRITE PROTECT switch OFF (on front of RESHA) ...]}
                WriteConsoleString(str : String)
            <POP 20dde-20de2 StackAdj>                       Δ+58               {}
        <POP 20de2-20df0 Naked>                              Σ0         ↓ →0x20df2 ←0x20df0
            <POP 20de2-20de4 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x20de4 0x21fd0>                                              {[-2-]}
            <MI 20dea  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 20dec  CMP.B   #0x01,D0>                                        {}
            <MI 20dee  BNE     0x20df2>                                         {}
        <POP 20df0-20df2 Naked>                              Σ0         →0x20de2
            <MI 20df0  BRA     0x20de2>                                         {}
        <POP 20df2-20e1e Naked>                              Σ0         ↓ ←0x20de2
            <Const 0x20df2 0x4c4b.4>                         Δ-4                {[##19531]}
            <Call 0x20df6 0x10224>                                              {[##19531]}
                KC12_Sleep(dur: Long)
            <POP 20dfc-20dfd StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x20dfd [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 20e00  MOVE.B  0x201ad,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 20e06  MOVE.B  0x201ae,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 20e0c-20e0e StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x20e0e>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x20e0e 4>                       Δ-4        
                <Const 0x20e12 0x1.2>                        Δ-2        
                <Const 0x20e14 0x3.2>                        Δ-2        
                <Call 0x20e16 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20e18-20e1a StackAdj>                   Δ+8        
            <Call 0x20e1a 0x103e0>                                              {[-2-]|[«2""»]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 20e1c-20e1e StackAdj>                       Δ+8                {}
        <POP 20e1e-20e32 Naked>                              Σ0         ↓ →0x20e9e ←0x20e9e
            <Const 0x20e1e 0x0.4>                            Δ-4                {[##0]}
            <Pointer.fp 0x20e22 <LVAR -0x008 @ 4(r)>>        Δ-4                {[##0]|[@@-8]}
            <Call 0x20e24 0x220a0>                                              {[##0]|[@@-8]}
            <POP 20e2a-20e2c StackAdj>                       Δ+8                {}
            <MI 20e2c  MOVEQ.L #0x00,D7>                                        {}
            <MI 20e2e  TST.L   (A6-0x8)>                                        {}
            <MI 20e30  BEQ     0x20e9e>                                         {}
        <POP 20e32-20e3c Naked>                              Σ0         ↓ →0x20e9e
            <MI 20e32  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 20e34  CMPI.L  #0x00000002,D0>                                  {}
            <MI 20e3a  BEQ     0x20e9e>                                         {}
        <POP 20e3c-20e9e Naked>                              Σ0         ↓
            <Blob 0x20e3c [32] @>                            Δ-32               {[«32""»]}
            <POP 20e48-20e4a StackAdj>                       Δ-8                {[«32""»]|[-8-]}
            <Lit 0x20e4a 32>                                                    {[«32""»]|[-4-]|[$$*** ERROR code from REE_UPLOAD:_]}
            <MI 20e56  MOVE.L  (A6-0x8),(A7)>                                   {[«32""»]|[-4-]|[4, '(A6-0x8)']}
            <POP 20e54-20e56 StackAdj>                       Δ-8                {[«32""»]|[-4-]|[4, '(A6-0x8)']|[-8-]}
            <Call 0x20e58 0x102e4>                                              {[«32""»]|[-4-]|[4, '(A6-0x8)']|[-8-]}
                Long2String(a : Long) : String
            <POP 20e5e-20e60 StackAdj>                       Δ+4                {[«32""»]|[-4-]|[4, '(A6-0x8)']|[-4-]}
            <Call 0x20e60 0x102d0>                                              {[«32""»]|[-4-]|[4, '(A6-0x8)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20e66-20e68 StackAdj>                       Δ+8                {[«32""»]|[-4-]}
            <Call 0x20e68 0x103e0>                                              {[«32""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <MI 20e6a  MOVEA.L A7,A0>                                           {[«32""»]|[-4-]}
            <MI 20e6c  LEA.L   0x201d0,A1>                                      {[«32""»]|[-4-]}
            <BlockMove 35,A1,A0>                                                {[«32""»]|[-4-]}
            <POP 20e78-20e7a StackAdj>                       Δ-6                {[«32""»]|[-10-]}
            <Lit 0x20e7a>                                                       {[«32""»]|[-6-]|[$$…]}
                <Pointer.sp 0x20e7a 6>                       Δ-4        
                <Const 0x20e7e 0x1.2>                        Δ-2        
                <Const 0x20e80 0x23.2>                       Δ-2        
                <Call 0x20e84 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20e86-20e88 StackAdj>                   Δ+8        
            <POP 20e86-20e88 StackAdj>                       Δ-2                {[«32""»]|[-6-]|[$$…]|[-2-]}
            <POP 20e88-20e89 StackAdj>                       Δ+2                {[«32""»]|[-6-]|[$$…]}
            <Const 0x20e89 0x1.2>                            Δ-2                {[«32""»]|[-6-]|[$$…]|[#1]}
            <Call 0x20e8a 0x103f0>                                              {[«32""»]|[-6-]|[$$…]|[#1]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20e90-20e92 StackAdj>                       Δ+6                {[«32""»]|[-6-]}
            <MI 20e92  MOVE.B  (A7)+,D0>                     Δ+2                {[«32""»]|[-4-]}
            <MI 20e94  EXTB.W  D0>                                              {[«32""»]|[-4-]}
            <POP 0x20e96 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«32""»]|[-4-]}
            <POP 20e98-20e9c StackAdj>                       Δ+36               {}
            <MI 20e9c  MOVE.B  D0,D7>                                           {}
        <POP 20e9e-20ea4 Naked>                              Σ0         ↓ →0x20e1e ←0x20e1e ←0x20e32
            <MI 20e9e  TST.B   D7>                                              {}
            <MI 20ea0  BNE     0x20e1e>                                         {}
        <POP 20ea4-20eca Naked>                              Σ0         ↓
            <Blob 0x20ea4 [52] @>                            Δ-52               {[«52""»]}
            <POP 20eb0-20eb2 StackAdj>                       Δ-4                {[«52""»]|[-4-]}
            <Lit 0x20eb2 52>                                                    {[«52""»]|[$$turn WRITE PROTECT switch ON (on front of RESHA) ...]}
            <Call 0x20ec0 0x103d8>                                              {[«52""»]|[$$turn WRITE PROTECT switch ON (on front of RESHA) ...]}
                WriteConsoleString(str : String)
            <POP 20ec6-20eca StackAdj>                       Δ+56               {}
        <POP 20eca-20ed6 Naked>                              Σ0         ↓ →0x20ed8 ←0x20ed6
            <POP 20eca-20ecc StackAdj>                       Δ-2                {[-2-]}
            <Call 0x20ecc 0x21fd0>                                              {[-2-]}
            <MI 20ed2  TST.B   (A7)+>                        Δ+2                {}
            <MI 20ed4  BNE     0x20ed8>                                         {}
        <POP 20ed6-20ed8 Naked>                              Σ0         →0x20eca
            <MI 20ed6  BRA     0x20eca>                                         {}
        <POP 20ed8-20efc Naked>                              Σ0         ↓ ←0x20eca
            <POP 20ed8-20eda StackAdj>                       Δ-4                {[-4-]}
            <POP 20eda-20edb StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x20edb [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 20ede  MOVE.B  0x20229,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 20ee4  MOVE.B  0x2022a,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 20eea-20eec StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x20eec>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x20eec 4>                       Δ-4        
                <Const 0x20ef0 0x1.2>                        Δ-2        
                <Const 0x20ef2 0x3.2>                        Δ-2        
                <Call 0x20ef4 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20ef6-20ef8 StackAdj>                   Δ+8        
            <Call 0x20ef8 0x103e0>                                              {[-2-]|[«2""»]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 20efa-20efc StackAdj>                       Δ+8                {}
        <POP 20efc-20f04 Epilogue>                           Σ0         

0x20f04


@ 20f04
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 2(r)>
    <POP 20f04-20f4a Body>                                              
        <POP 20f04-20f1a Prologue>                           Σ0         ↓
        <POP 20f1a-20f1e RegCacheLoad>                       Σ0         ↓
        <POP 20f1e-20f42 Naked>                              Σ0         ↓
            <MI 20f1e  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 20f20  ADDQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 20f22  MOVE.L  (A4),D0>                                         {[-4-]}
            <MI 20f24  ADD.L   (A6+0xa),D0>                                     {[-4-]}
            <MI 20f28  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <Const 0x20f2a 0x1.2>                            Δ-2                {[-4-]|[4, 'D0']|[#1]}
            <Call 0x20f2e 0x10238>                                              {[-4-]|[4, 'D0']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20f34-20f38 StackAdj>                       Δ+10               {}
            <MI 20f38  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 20f3c  EXTW.L  D0>                                              {}
            <MI 20f3e  ADD.L   D0,(A4+0x4)>                                     {}
        <POP 20f42-20f4a Epilogue>                           Σ0         

0x20f4a


@ 20f4a
        <LVAR  0x010 1(r)>
        <LVAR  0x00f 1(r)>
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x009 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x006 4(rw)>
        <LVAR -0x00a @ 4(w)>
    <POP 20f4a-21050 Body>                                              
        <POP 20f4a-20f60 Prologue>                           Σ0         ↓
        <POP 20f60-20f68 RegCacheLoad>                       Σ0         ↓
        <POP 20f68-20f74 Naked>                              Σ0         ↓ →0x20fa4
            <POP 20f68-20f6a StackAdj>                       Δ-4                {[-4-]}
            <Call 0x20f6a 0x22024>                                              {[-4-]}
            <MI 20f70  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {}
            <MI 20f72  BNE     0x20fa4>                                         {}
        <POP 20f74-20fa4 Naked>                              Σ0         ↓
            <Blob 0x20f74 [28] @>                            Δ-28               {[«28""»]}
            <Const 0x20f80 0xe.2>                            Δ-2                {[«28""»]|[#14]}
            <POP 20f84-20f86 StackAdj>                       Δ-4                {[«28""»]|[#14]|[-4-]}
            <Lit 0x20f86 28>                                                    {[«28""»]|[#14]|[$$invalid RESHA board info ptr]}
            <Call 0x20f9a 0x103b8>                                              {[«28""»]|[#14]|[$$invalid RESHA board info ptr]}
                PopProgram(status : Byte; msg : String)
            <POP 20fa0-20fa4 StackAdj>                       Δ+34               {}
        <POP 20fa4-21048 Naked>                              Σ0         ↓ ←0x20f68
            <MI 20fa4  MOVE.L  #0x56,(A6-0x6)>                                  {}
            <Const 0x20fac 0x0.4>                            Δ-4                {[##0]}
            <MI 20fb0  CLR.L   D0>                                              {[##0]}
            <MI 20fb2  MOVE.B  (A6+0x10),D0>                                    {[##0]}
            <MI 20fb6  MOVE.W  D0,-(A7)>                     Δ-2                {[##0]|[2, 'D0']}
            <MI 20fb8  LEA.L   (A6-0xa),A4>                                     {[##0]|[2, 'D0']}
            <Call 0x20fba 0x20f04>                                              {[##0]|[2, 'D0']}
            <POP 20fbc-20fbe StackAdj>                       Δ+6                {}
            <Const 0x20fbe 0x1.4>                            Δ-4                {[##1]}
            <MI 20fc2  CLR.L   D0>                                              {[##1]}
            <MI 20fc4  MOVE.B  (A6+0xe),D0>                                     {[##1]}
            <MI 20fc8  MOVE.W  D0,-(A7)>                     Δ-2                {[##1]|[2, 'D0']}
            <MI 20fca  LEA.L   (A6-0xa),A4>                                     {[##1]|[2, 'D0']}
            <Call 0x20fcc 0x20f04>                                              {[##1]|[2, 'D0']}
            <POP 20fce-20fd0 StackAdj>                       Δ+6                {}
            <Const 0x20fd0 0x2.4>                            Δ-4                {[##2]}
            <MI 20fd4  CLR.L   D0>                                              {[##2]}
            <MI 20fd6  MOVE.B  (A6+0xf),D0>                                     {[##2]}
            <MI 20fda  MOVE.W  D0,-(A7)>                     Δ-2                {[##2]|[2, 'D0']}
            <MI 20fdc  LEA.L   (A6-0xa),A4>                                     {[##2]|[2, 'D0']}
            <Call 0x20fde 0x20f04>                                              {[##2]|[2, 'D0']}
            <POP 20fe0-20fe2 StackAdj>                       Δ+6                {}
            <Const 0x20fe2 0x3.4>                            Δ-4                {[##3]}
            <MI 20fe6  CLR.L   D0>                                              {[##3]}
            <MI 20fe8  MOVE.B  (A6+0xc),D0>                                     {[##3]}
            <MI 20fec  MOVE.W  D0,-(A7)>                     Δ-2                {[##3]|[2, 'D0']}
            <MI 20fee  LEA.L   (A6-0xa),A4>                                     {[##3]|[2, 'D0']}
            <Call 0x20ff0 0x20f04>                                              {[##3]|[2, 'D0']}
            <POP 20ff2-20ff4 StackAdj>                       Δ+6                {}
            <Const 0x20ff4 0x4.4>                            Δ-4                {[##4]}
            <MI 20ff8  CLR.L   D0>                                              {[##4]}
            <MI 20ffa  MOVE.B  (A6+0xa),D0>                                     {[##4]}
            <MI 20ffe  MOVE.W  D0,-(A7)>                     Δ-2                {[##4]|[2, 'D0']}
            <MI 21000  LEA.L   (A6-0xa),A4>                                     {[##4]|[2, 'D0']}
            <Call 0x21002 0x20f04>                                              {[##4]|[2, 'D0']}
            <POP 21004-21006 StackAdj>                       Δ+6                {}
            <Const 0x21006 0x5.4>                            Δ-4                {[##5]}
            <MI 2100a  CLR.L   D0>                                              {[##5]}
            <MI 2100c  MOVE.B  (A6+0x8),D0>                                     {[##5]}
            <MI 21010  MOVE.W  D0,-(A7)>                     Δ-2                {[##5]|[2, 'D0']}
            <MI 21012  LEA.L   (A6-0xa),A4>                                     {[##5]|[2, 'D0']}
            <Call 0x21014 0x20f04>                                              {[##5]|[2, 'D0']}
            <POP 21016-21018 StackAdj>                       Δ+6                {}
            <Const 0x21018 0x6.4>                            Δ-4                {[##6]}
            <MI 2101c  CLR.L   D0>                                              {[##6]}
            <MI 2101e  MOVE.B  (A6+0x9),D0>                                     {[##6]}
            <MI 21022  MOVE.W  D0,-(A7)>                     Δ-2                {[##6]|[2, 'D0']}
            <MI 21024  LEA.L   (A6-0xa),A4>                                     {[##6]|[2, 'D0']}
            <Call 0x21026 0x20f04>                                              {[##6]|[2, 'D0']}
            <POP 21028-2102a StackAdj>                       Δ+6                {}
            <MI 2102a  MOVE.L  (A6-0x6),D0>                                     {}
            <MI 2102e  NEG.L   D0>                                              {}
            <MI 21030  ANDI.L  #0x000000ff,D0>                                  {}
            <MI 21036  MOVE.W  D0,D7>                                           {}
            <Const 0x21038 0x7.4>                            Δ-4                {[##7]}
            <MI 2103c  MOVE.W  D7,-(A7)>                     Δ-2                {[##7]|[2, 'D7']}
            <MI 2103e  LEA.L   (A6-0xa),A4>                                     {[##7]|[2, 'D7']}
            <Call 0x21040 0x20f04>                                              {[##7]|[2, 'D7']}
            <POP 21042-21044 StackAdj>                       Δ+6                {}
            <Call 0x21044 0x20d8c>                                              {}
        <POP 21048-21050 Epilogue>                           Σ0         

0x21050


@ 21050
        <LVAR  0x008 1(r)>
        <LVAR -0x004 1(rw)>
        <LVAR -0x005 1(rw)>
        <LVAR -0x006 1(rw)>
        <LVAR -0x007 1(rw)>
        <LVAR -0x008 1(rw)>
        <LVAR -0x009 1(rw)>
        <LVAR -0x00a 1(rw)>
    <POP 21050-2121c Body>                                   Δ+50       
        <POP 21050-21066 Prologue>                           Σ0         ↓
        <POP 21066-2107e RegCacheLoad>                       Σ0         ↓
        <POP 2107e-210fc Naked>                              Σ0         →0x2111c →0x211ca →0x211a6 →0x21142 →0x21162 →0x21184 →0x211ee →0x211ee →0x211ee →0x211ee
            <MI 2107e  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 21082  EXTB.W  D0>                                              {}
            <MI 21084  MOVEQ.L #0x0e,D1>                                        {}
            <MI 21086  MULS.W  D0,D1>                                           {}
            <MI 21088  MOVE.W  (A5+D1.W+#0x18),D2>                              {}
            <POP 0x2108c LimitCheck 0x0 ≤ D2 ≤ 0xff>                            {}
            <MI 2108e  MOVE.B  D2,(A6-0xa)>                                     {}
            <MI 21090  MOVE.W  (A5+D1.W+#0x1a),D2>                              {}
            <MI 21094  LSR.W   #0x8,D2>                                         {}
            <MI 21096  MOVE.B  D2,(A6-0x9)>                                     {}
            <MI 21098  MOVE.W  (A5+D1.W+#0x1a),D2>                              {}
            <MI 2109c  AND.W   #0xff,D2>                                        {}
            <MI 2109e  MOVE.B  D2,(A6-0x8)>                                     {}
            <MI 210a0  MOVE.W  (A5+D1.W+#0x1c),D2>                              {}
            <POP 0x210a4 LimitCheck 0x0 ≤ D2 ≤ 0xff>                            {}
            <MI 210a6  MOVE.B  D2,(A6-0x7)>                                     {}
            <MI 210a8  MOVE.W  (A5+D1.W+#0x1e),D2>                              {}
            <POP 0x210ac LimitCheck 0x0 ≤ D2 ≤ 0xff>                            {}
            <MI 210ae  MOVE.B  D2,(A6-0x6)>                                     {}
            <MI 210b0  CLR.L   D2>                                              {}
            <MI 210b2  MOVE.B  (A5+D1.W+#0x22),D2>                              {}
            <MI 210b6  LSR.B   #0x1,D2>                                         {}
            <MI 210b8  ASL.W   #0x1,D2>                                         {}
            <MI 210ba  MOVE.W  (A5+D1.W+#0x22),D3>                              {}
            <MI 210be  LSL.W   #0x7,D3>                                         {}
            <MI 210c0  LSR.W   #0x8,D3>                                         {}
            <MI 210c2  LSR.W   #0x4,D3>                                         {}
            <MI 210c4  MOVE.W  D3,D4>                                           {}
            <MI 210c6  ASR.W   #0x3,D4>                                         {}
            <MI 210c8  ANDI.W  #0x0001,D4>                                      {}
            <MI 210cc  ADD.W   D2,D4>                                           {}
            <MI 210ce  MOVE.B  D4,(A6-0x5)>                                     {}
            <MI 210d2  ANDI.W  #0x0007,D3>                                      {}
            <MI 210d6  ASL.W   #0x5,D3>                                         {}
            <MI 210d8  CLR.L   D2>                                              {}
            <MI 210da  MOVE.B  (A5+D1.W+#0x23),D2>                              {}
            <MI 210de  LSL.B   #0x3,D2>                                         {}
            <MI 210e0  LSR.B   #0x3,D2>                                         {}
            <MI 210e2  ADD.W   D3,D2>                                           {}
            <MI 210e4  MOVE.B  D2,(A6-0x4)>                                     {}
            <MI 210e8  MOVE.W  D0,D1>                                           {}
            <POP 0x210ea LimitCheck 0x0 ≤ D1 ≤ 0xf>                             {}
            <MI 210f2  ADD.W   D1,D1>                                           {}
            <MI 210f4  SWITCH  D1.W>                                            {}
        <POP 2111c-2113a Naked>                              Σ0 Δ-10    ↓ ←0x2107e
            <MI 2111c  MOVE.B  (A6-0xa),-(A7)>               Δ-2                {[2, '(A6-0xa)']}
            <POP 2111e-21120 StackAdj>                       Δ-2                {[2, '(A6-0xa)']|[-2-]}
            <MI 21120  MOVE.B  (A6-0x9),(A7)>                                   {[2, '(A6-0xa)']|[-2-]}
            <MI 21122  MOVE.B  (A6-0x8),(A7+0x1)>                               {[2, '(A6-0xa)']|[-2-]}
            <MI 21126  MOVE.B  (A6-0x7),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']}
            <MI 21128  MOVE.B  (A6-0x6),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']}
            <POP 2112a-2112c StackAdj>                       Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 2112c  MOVE.B  (A6-0x5),(A7)>                                   {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 21130  MOVE.B  (A6-0x4),(A7+0x1)>                               {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <Call 0x21136 0x20f4a>                                              {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
        <POP 2113a-21142 Naked>                              Σ-10 Δ+10  →0x21214 ←0x21142 ←0x21162 ←0x21184 ←0x211a6 ←0x211ca
            <POP 2113a-2113e StackAdj>                       Δ+10               {}
            <MI 2113e  BRA     0x21214>                                         {}
        <POP 21142-21162 Naked>                              Σ0 Δ-10    →0x2113a ←0x2107e
            <MI 21142  MOVE.B  (A6-0xa),-(A7)>               Δ-2                {[2, '(A6-0xa)']}
            <POP 21144-21146 StackAdj>                       Δ-2                {[2, '(A6-0xa)']|[-2-]}
            <MI 21146  MOVE.B  (A6-0x9),(A7)>                                   {[2, '(A6-0xa)']|[-2-]}
            <MI 21148  MOVE.B  (A6-0x8),(A7+0x1)>                               {[2, '(A6-0xa)']|[-2-]}
            <MI 2114c  MOVE.B  (A6-0x7),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']}
            <MI 2114e  MOVE.B  (A6-0x6),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']}
            <POP 21150-21152 StackAdj>                       Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 21152  MOVE.B  (A6-0x5),(A7)>                                   {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 21156  MOVE.B  (A6-0x4),(A7+0x1)>                               {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <Call 0x2115c 0x20cca>                                              {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 21160  BRA     0x2113a>                                         {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
        <POP 21162-21184 Naked>                              Σ0 Δ-10    →0x2113a ←0x2107e
            <MI 21162  MOVE.B  (A6-0xa),-(A7)>               Δ-2                {[2, '(A6-0xa)']}
            <POP 21164-21166 StackAdj>                       Δ-2                {[2, '(A6-0xa)']|[-2-]}
            <MI 21166  MOVE.B  (A6-0x9),(A7)>                                   {[2, '(A6-0xa)']|[-2-]}
            <MI 21168  MOVE.B  (A6-0x8),(A7+0x1)>                               {[2, '(A6-0xa)']|[-2-]}
            <MI 2116c  MOVE.B  (A6-0x7),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']}
            <MI 2116e  MOVE.B  (A6-0x6),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']}
            <POP 21170-21172 StackAdj>                       Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 21172  MOVE.B  (A6-0x5),(A7)>                                   {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 21176  MOVE.B  (A6-0x4),(A7+0x1)>                               {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <Call 0x2117c 0x221f4>                                              {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
                exp_WRITE_NOVRAM_DATA.TYP(Sw_1, Sw_2, Sw_1, Sw_1, Sw_2)
            <MI 21182  BRA     0x2113a>                                         {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
        <POP 21184-211a6 Naked>                              Σ0 Δ-10    →0x2113a ←0x2107e
            <MI 21184  MOVE.B  (A6-0xa),-(A7)>               Δ-2                {[2, '(A6-0xa)']}
            <POP 21186-21188 StackAdj>                       Δ-2                {[2, '(A6-0xa)']|[-2-]}
            <MI 21188  MOVE.B  (A6-0x9),(A7)>                                   {[2, '(A6-0xa)']|[-2-]}
            <MI 2118a  MOVE.B  (A6-0x8),(A7+0x1)>                               {[2, '(A6-0xa)']|[-2-]}
            <MI 2118e  MOVE.B  (A6-0x7),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']}
            <MI 21190  MOVE.B  (A6-0x6),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']}
            <POP 21192-21194 StackAdj>                       Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 21194  MOVE.B  (A6-0x5),(A7)>                                   {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 21198  MOVE.B  (A6-0x4),(A7+0x1)>                               {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <Call 0x2119e 0x22276>                                              {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
                exp_WRITE_NOVRAM_DATA.VAL(Sw_1, Sw_2, Sw_1, Sw_1, Sw_2)
            <MI 211a4  BRA     0x2113a>                                         {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
        <POP 211a6-211ca Naked>                              Σ0 Δ-10    →0x2113a ←0x2107e
            <MI 211a6  MOVE.B  (A6-0xa),-(A7)>               Δ-2                {[2, '(A6-0xa)']}
            <POP 211a8-211aa StackAdj>                       Δ-2                {[2, '(A6-0xa)']|[-2-]}
            <MI 211aa  MOVE.B  (A6-0x9),(A7)>                                   {[2, '(A6-0xa)']|[-2-]}
            <MI 211ac  MOVE.B  (A6-0x8),(A7+0x1)>                               {[2, '(A6-0xa)']|[-2-]}
            <MI 211b0  MOVE.B  (A6-0x7),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']}
            <MI 211b2  MOVE.B  (A6-0x6),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']}
            <POP 211b4-211b6 StackAdj>                       Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 211b6  MOVE.B  (A6-0x5),(A7)>                                   {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 211ba  MOVE.B  (A6-0x4),(A7+0x1)>                               {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <Call 0x211c0 0x220f0>                                              {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
                exp_WRITE_NOVRAM_DATA.FIU(Sw_1, Sw_2, Sw_1, Sw_1, Sw_2)
            <MI 211c6  BRA     0x2113a>                                         {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
        <POP 211ca-211ee Naked>                              Σ0 Δ-10    →0x2113a ←0x2107e
            <MI 211ca  MOVE.B  (A6-0xa),-(A7)>               Δ-2                {[2, '(A6-0xa)']}
            <POP 211cc-211ce StackAdj>                       Δ-2                {[2, '(A6-0xa)']|[-2-]}
            <MI 211ce  MOVE.B  (A6-0x9),(A7)>                                   {[2, '(A6-0xa)']|[-2-]}
            <MI 211d0  MOVE.B  (A6-0x8),(A7+0x1)>                               {[2, '(A6-0xa)']|[-2-]}
            <MI 211d4  MOVE.B  (A6-0x7),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']}
            <MI 211d6  MOVE.B  (A6-0x6),-(A7)>               Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']}
            <POP 211d8-211da StackAdj>                       Δ-2                {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 211da  MOVE.B  (A6-0x5),(A7)>                                   {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 211de  MOVE.B  (A6-0x4),(A7+0x1)>                               {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <Call 0x211e4 0x22172>                                              {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
                exp_WRITE_NOVRAM_DATA.SEQ(Sw_1, Sw_2, Sw_1, Sw_1, Sw_2)
            <MI 211ea  BRA     0x2113a>                                         {[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
        <POP 211ee-21214 Naked>                              Σ0         ↓ ←0x2107e ←0x2107e ←0x2107e ←0x2107e
            <MI 211ee  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 211f0  MOVE.B  (A6-0xa),-(A7)>               Δ-2                {[2, 'D0']|[2, '(A6-0xa)']}
            <POP 211f2-211f4 StackAdj>                       Δ-2                {[2, 'D0']|[2, '(A6-0xa)']|[-2-]}
            <MI 211f4  MOVE.B  (A6-0x9),(A7)>                                   {[2, 'D0']|[2, '(A6-0xa)']|[-2-]}
            <MI 211f6  MOVE.B  (A6-0x8),(A7+0x1)>                               {[2, 'D0']|[2, '(A6-0xa)']|[-2-]}
            <MI 211fa  MOVE.B  (A6-0x7),-(A7)>               Δ-2                {[2, 'D0']|[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']}
            <MI 211fc  MOVE.B  (A6-0x6),-(A7)>               Δ-2                {[2, 'D0']|[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']}
            <POP 211fe-21200 StackAdj>                       Δ-2                {[2, 'D0']|[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 21200  MOVE.B  (A6-0x5),(A7)>                                   {[2, 'D0']|[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <MI 21204  MOVE.B  (A6-0x4),(A7+0x1)>                               {[2, 'D0']|[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <Call 0x2120a 0x22324>                                              {[2, 'D0']|[2, '(A6-0xa)']|[-2-]|[2, '(A6-0x7)']|[2, '(A6-0x6)']|[-2-]}
            <POP 21210-21214 StackAdj>                       Δ+12               {}
        <POP 21214-2121c Epilogue>                           Σ0         ←0x2113a

0x2121c


@ 2121c
        <LVAR  0x018 2(w)>
        <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(rw)>
    <POP 2121c-21360 Body>                                              
        <POP 2121c-21232 Prologue>                           Σ0         ↓
        <POP 21232-2124c RegCacheLoad>                       Σ0         ↓
        <POP 2124c-2129c Naked>                              Σ0         ↓ →0x212ae ←0x21336
            <Blob 0x2124c [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21250 [4] @>                             Δ-4                {[«2""»]|[«4""»]}
            <POP 21254-21256 StackAdj>                       Δ-12               {[«2""»]|[«4""»]|[-12-]}
            <MI 21256  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[«2""»]|[«4""»]|[-12-]|[4, '(A6+0x14)']}
            <Call 0x2125a 0x102cc>                                              {[«2""»]|[«4""»]|[-12-]|[4, '(A6+0x14)']}
                StringDup(a : String) : String
            <Lit 0x21260 2>                                                     {[«2""»]|[«4""»]|[-12-]|[$$ []}
            <MI 2126a  MOVE.L  (A6+0x10),(A7)>                                  {[«2""»]|[«4""»]|[-12-]|[4, '(A6+0x10)']}
            <POP 21268-2126a StackAdj>                       Δ-8                {[«2""»]|[«4""»]|[-12-]|[4, '(A6+0x10)']|[-8-]}
            <Call 0x2126e 0x102e4>                                              {[«2""»]|[«4""»]|[-12-]|[4, '(A6+0x10)']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x21274 4>                                                     {[«2""»]|[«4""»]|[-12-]|[4, '(A6+0x10)']|[-4-]|[$$] :_]}
            <Call 0x21280 0x102d8>                                              {[«2""»]|[«4""»]|[-12-]|[4, '(A6+0x10)']|[-4-]|[$$] :_]}
                StringCat4(a, b, c, d : String) : String
            <POP 21286-2128a StackAdj>                       Δ+16               {[«2""»]|[«4""»]|[-8-]}
            <Call 0x2128a 0x103e4>                                              {[«2""»]|[«4""»]|[-8-]}
                AskConsoleString(prompt : String) : String
            <POP 21290-21292 StackAdj>                       Δ+4                {[«2""»]|[«4""»]|[-4-]}
            <MI 21292  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {[«2""»]|[«4""»]}
            <POP 21294-21296 StackAdj>                       Δ+6                {}
            <MI 21296  MOVEA.L (A6-0xa),A0>                                     {}
            <MI 21298  TST.W   (A0)>                                            {}
            <MI 2129a  BNE     0x212ae>                                         {}
        <POP 2129c-212ae Naked>                              Σ0         →0x212d2
            <MI 2129c  MOVE.B  #0x01,(A6-0xc)>                                  {}
            <MI 2129e  MOVE.L  (A6+0x10),(A6-0x6)>                              {}
            <Pointer.fp 0x212a2 <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Call 0x212a4 0x102bc>                                              {[@@-10]}
                FreeString(VAR a : String)
            <POP 212aa-212ac StackAdj>                       Δ+4                {}
            <MI 212ac  BRA     0x212d2>                                         {}
        <POP 212ae-212c0 Naked>                              Σ0         ↓ →0x212d2 ←0x2124c
            <MI 212ae  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0xa)']}
            <Pointer.fp 0x212b0 <LVAR -0x00c @ 1(rw)>>       Δ-4                {[4, '(A6-0xa)']|[@@-12]}
            <Pointer.fp 0x212b2 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[4, '(A6-0xa)']|[@@-12]|[@@-6]}
            <Call 0x212b4 0x102ec>                                              {[4, '(A6-0xa)']|[@@-12]|[@@-6]}
                String2Long(src : String; VAR status : Bool; VAR retval : Long)
            <POP 212ba-212bc StackAdj>                       Δ+12               {}
            <MI 212bc  TST.B   (A6-0xc)>                                        {}
            <MI 212be  BEQ     0x212d2>                                         {}
        <POP 212c0-212ca Naked>                              Σ0         ↓ →0x212d2
            <MI 212c0  CLR.B   (A6-0xc)>                                        {}
            <MI 212c2  MOVE.L  (A6-0x6),D0>                                     {}
            <MI 212c4  CMP.L   (A6+0xc),D0>                                     {}
            <MI 212c8  BLT     0x212d2>                                         {}
        <POP 212ca-212d0 Naked>                              Σ0         ↓ →0x212d2
            <MI 212ca  CMP.L   (A6+0x8),D0>                                     {}
            <MI 212ce  BGT     0x212d2>                                         {}
        <POP 212d0-212d2 Naked>                              Σ0         ↓
            <MI 212d0  ADDQ.B  #0x1,(A6-0xc)>                                   {}
        <POP 212d2-212d6 Naked>                              Σ0         ↓ →0x21336 ←0x2129c ←0x212ae ←0x212c0 ←0x212ca
            <MI 212d2  TST.B   (A6-0xc)>                                        {}
            <MI 212d4  BNE     0x21336>                                         {}
        <POP 212d6-21336 Naked>                              Σ0         ↓
            <Blob 0x212d6 [38] @>                            Δ-38               {[«38""»]}
            <Blob 0x212e2 [4] @>                             Δ-4                {[«38""»]|[«4""»]}
            <Blob 0x212e6 [2] @>                             Δ-2                {[«38""»]|[«4""»]|[«2""»]}
            <POP 212ea-212ec StackAdj>                       Δ-8                {[«38""»]|[«4""»]|[«2""»]|[-8-]}
            <Lit 0x212ec 38>                                                    {[«38""»]|[«4""»]|[«2""»]|[-4-]|[$$Please enter an integer in the range []}
            <MI 212f8  MOVE.L  (A6+0xc),(A7)>                                   {[«38""»]|[«4""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']}
            <POP 212f6-212f8 StackAdj>                       Δ-8                {[«38""»]|[«4""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-8-]}
            <Call 0x212fc 0x102e4>                                              {[«38""»]|[«4""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x21302 4>                                                     {[«38""»]|[«4""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$ .._]}
            <MI 2130c  MOVE.L  (A6+0x8),(A7)>                                   {[«38""»]|[«4""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']}
            <POP 2130a-2130c StackAdj>                       Δ-8                {[«38""»]|[«4""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-8-]}
            <Call 0x21310 0x102e4>                                              {[«38""»]|[«4""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x21316 2>                                                     {[«38""»]|[«4""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-4-]|[$$] ]}
            <Call 0x21322 0x102dc>                                              {[«38""»]|[«4""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-4-]|[$$] ]}
                StringCat5(a, b, c, d, e : String) : String
            <POP 21328-2132c StackAdj>                       Δ+20               {[«38""»]|[«4""»]|[«2""»]|[-4-]}
            <Call 0x2132c 0x103e0>                                              {[«38""»]|[«4""»]|[«2""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21332-21336 StackAdj>                       Δ+48               {}
        <POP 21336-2133c Naked>                              Σ0         ↓ →0x2124c ←0x212d2
            <MI 21336  TST.B   (A6-0xc)>                                        {}
            <MI 21338  BEQ     0x2124c>                                         {}
        <POP 2133c-21358 Naked>                              Σ0         ↓
            <Pointer.fp 0x2133c <LVAR  0x014 @ 4(r)>>        Δ-4                {[@@20]}
            <Call 0x21340 0x102bc>                                              {[@@20]}
                FreeString(VAR a : String)
            <POP 21346-21348 StackAdj>                       Δ+4                {}
            <MI 21348  MOVE.L  (A6-0x6),D0>                                     {}
            <POP 0x2134a LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21354  MOVE.W  D0,(A6+0x18)>                                    {}
        <POP 21358-21360 Epilogue>                           Σ0         

0x21360


@ 21360
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x007 1(rw)>
        <LVAR -0x008 1(rw)>
        <LVAR -0x009 1(rw)>
        <LVAR -0x00a @ 1(rw)>
        <LVAR -0x00e @ 4(rw)>
        <LVAR -0x010 @ 1(rw)>
    <POP 21360-214c4 Body>                                              
        <POP 21360-21376 Prologue>                           Σ0         ↓
        <POP 21376-2138c RegCacheLoad>                       Σ0         ↓
        <POP 2138c-213b6 Naked>                              Σ0 Δ-4     ↓ ←0x2149c
            <POP 2138c-2138e StackAdj>                       Δ-4                {[-4-]}
            <MI 2138e  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <POP 21390-21392 StackAdj>                       Δ-4                {[-8-]}
            <MI 21392  MOVE.B  (A0),(A7)>                                       {[-8-]}
            <MI 21394  MOVE.B  (A0+0x1),(A7+0x1)>                               {[-8-]}
            <MI 2139a  MOVE.B  (A0+0x2),(A7+0x2)>                               {[-8-]}
            <MI 213a0  MOVE.B  (A0+0x3),(A7+0x3)>                               {[-8-]}
            <Call 0x213a6 0x10308>                                              {[-8-]}
                TimeToText()
            <POP 213ac-213ae StackAdj>                       Δ+4                {[-4-]}
            <MI 213ae  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {}
            <MI 213b0  MOVEA.L (A6-0xe),A0>                                     {}
            <MI 213b2  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 213b4  MOVEQ.L #0x0a,D7>                                        {[4, 'A0']}
        <POP 213b6-213de Naked>                              Σ-4        ↓ →0x213b6 ←0x213b6
            <MI 213b6  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 213b8  SUB.L   #0x09,D0>                                        {[-4-]}
            <MI 213ba  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x213bc LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-4-]}
            <MI 213c2  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 213c4  MOVE.L  D7,D1>                                           {[-4-]}
            <MI 213c6  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x213c8 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-4-]}
            <MI 213ce  MOVE.B  (A0+D1.L+#0x2),(A0+D0.L+#0x2)>                   {[-4-]}
            <MI 213d4  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 213d6  CMPI.L  #0x00000012,D7>                                  {[-4-]}
            <MI 213dc  BLE     0x213b6>                                         {[-4-]}
        <POP 213de-21434 Naked>                              Σ-4 Δ+4    ↓ →0x2145c
            <MI 213de  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 213e0  MOVE.W  #0x09,(A0)>                                      {[-4-]}
            <POP 213e2-213e4 StackAdj>                       Δ+2                {[-2-]}
            <POP 213e4-213e5 StackAdj>                       Δ+2                {}
            <Blob 0x213e5 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x213e8 [4] @>                             Δ-4                {[«2""»]|[«4""»]}
            <POP 213ec-213ee StackAdj>                       Δ-12               {[«2""»]|[«4""»]|[-12-]}
            <MI 213ee  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[«2""»]|[«4""»]|[-12-]|[4, '(A6+0xc)']}
            <Call 0x213f2 0x102cc>                                              {[«2""»]|[«4""»]|[-12-]|[4, '(A6+0xc)']}
                StringDup(a : String) : String
            <Lit 0x213f8 2>                                                     {[«2""»]|[«4""»]|[-12-]|[$$ []}
            <POP 21404-21406 StackAdj>                       Δ-4                {[«2""»]|[«4""»]|[-12-]|[$$ []|[-4-]}
            <MI 21406  MOVE.L  (A6-0xe),(A7)>                                   {[«2""»]|[«4""»]|[-12-]|[$$ []|[4, '(A6-0xe)']}
            <POP 21408-2140a StackAdj>                       Δ-4                {[«2""»]|[«4""»]|[-12-]|[$$ []|[4, '(A6-0xe)']|[-4-]}
            <Lit 0x2140a 4>                                                     {[«2""»]|[«4""»]|[-12-]|[$$ []|[4, '(A6-0xe)']|[$$] :_]}
            <Call 0x21418 0x102d8>                                              {[«2""»]|[«4""»]|[-12-]|[$$ []|[4, '(A6-0xe)']|[$$] :_]}
                StringCat4(a, b, c, d : String) : String
            <POP 2141e-21422 StackAdj>                       Δ+16               {[«2""»]|[«4""»]|[-8-]}
            <Call 0x21422 0x103e4>                                              {[«2""»]|[«4""»]|[-8-]}
                AskConsoleString(prompt : String) : String
            <POP 21428-2142a StackAdj>                       Δ+4                {[«2""»]|[«4""»]|[-4-]}
            <MI 2142a  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[«2""»]|[«4""»]}
            <POP 2142c-2142e StackAdj>                       Δ+6                {}
            <MI 2142e  MOVEA.L (A6-0xe),A0>                                     {}
            <MI 21430  TST.W   (A0)>                                            {}
            <MI 21432  BNE     0x2145c>                                         {}
        <POP 21434-2145c Naked>                              Σ0         →0x2149c
            <Pointer.fp 0x21434 <LVAR -0x00e @ 4(rw)>>       Δ-4                {[@@-14]}
            <Call 0x21436 0x102bc>                                              {[@@-14]}
                FreeString(VAR a : String)
            <POP 2143c-2143e StackAdj>                       Δ+4                {}
            <MI 2143e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21440  MOVE.B  (A0),(A6-0xa)>                                   {}
            <MI 21444  MOVE.B  (A0+0x1),(A6-0x9)>                               {}
            <MI 2144a  MOVE.B  (A0+0x2),(A6-0x8)>                               {}
            <MI 21450  MOVE.B  (A0+0x3),(A6-0x7)>                               {}
            <MI 21456  MOVE.B  #0x01,(A6-0x10)>                                 {}
            <MI 2145a  BRA     0x2149c>                                         {}
        <POP 2145c-2149c Naked>                              Σ0         ↓ ←0x213de
            <Blob 0x2145c [10] @>                            Δ-10               {[«10""»]}
            <POP 2146e-21470 StackAdj>                       Δ-8                {[«10""»]|[-8-]}
            <Lit 0x21470 9>                                                     {[«10""»]|[-4-]|[$$00:00:00_]}
            <POP 2147a-2147c StackAdj>                       Δ-4                {[«10""»]|[-4-]|[$$00:00:00_]|[-4-]}
            <MI 2147c  MOVE.L  (A6-0xe),(A7)>                                   {[«10""»]|[-4-]|[$$00:00:00_]|[4, '(A6-0xe)']}
            <Call 0x2147e 0x102d0>                                              {[«10""»]|[-4-]|[$$00:00:00_]|[4, '(A6-0xe)']}
                StringCat2(a, b : String) : String
            <POP 21484-21486 StackAdj>                       Δ+8                {[«10""»]|[-4-]}
            <MI 21486  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[«10""»]}
            <POP 21488-2148a StackAdj>                       Δ+6                {[-4-]}
            <MI 2148a  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <Pointer.fp 0x2148c <LVAR -0x00a @ 1(rw)>>       Δ-4                {[4, '(A6-0xe)']|[@@-10]}
            <Pointer.fp 0x21490 <LVAR -0x010 @ 1(rw)>>       Δ-4                {[4, '(A6-0xe)']|[@@-10]|[@@-16]}
            <Call 0x21494 0x10310>                                              {[4, '(A6-0xe)']|[@@-10]|[@@-16]}
                ConvertTimestamp(MOD input : String; b : L; VAR status : Bool)
            <POP 2149a-2149c StackAdj>                       Δ+12               {}
        <POP 2149c-214a4 Naked>                              Σ0         ↓ →0x2138c ←0x21434
            <MI 2149c  TST.B   (A6-0x10)>                                       {}
            <MI 214a0  BEQ     0x2138c>                                         {}
        <POP 214a4-214bc Naked>                              Σ0         ↓
            <MI 214a4  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 214a6  MOVE.B  (A6-0xa),(A0)>                                   {}
            <MI 214aa  MOVE.B  (A6-0x9),(A0+0x1)>                               {}
            <MI 214b0  MOVE.B  (A6-0x8),(A0+0x2)>                               {}
            <MI 214b6  MOVE.B  (A6-0x7),(A0+0x3)>                               {}
        <POP 214bc-214c4 Epilogue>                           Σ0         

0x214c4


@ 214c4
        <LVAR  0x008 1(r)>
    <POP 214c4-216ec Body>                                              
        <POP 214c4-214da Prologue>                           Σ0         ↓
        <POP 214da-214f4 RegCacheLoad>                       Σ0         ↓
        <POP 214f4-21506 Naked>                              Σ0         ↓ →0x215c8
            <MI 214f4  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 214f8  EXTB.W  D0>                                              {}
            <MI 214fa  MOVEQ.L #0x0e,D1>                                        {}
            <MI 214fc  MULS.W  D0,D1>                                           {}
            <MI 214fe  TST.B   (A5+D1.W+#0x24)>                                 {}
            <MI 21502  BNE     0x215c8>                                         {}
        <POP 21506-2154c Naked>                              Σ0         ↓ →0x21558
            <Blob 0x21506 [64] @>                            Δ-64               {[«64""»]}
            <POP 21518-2151a StackAdj>                       Δ-8                {[«64""»]|[-8-]}
            <MI 2151a  MOVE.B  D0,-(A7)>                     Δ-2                {[«64""»]|[-8-]|[2, 'D0']}
            <Call 0x2151c 0x2069c>                                              {[«64""»]|[-8-]|[2, 'D0']}
            <POP 21520-21522 StackAdj>                       Δ-2                {[«64""»]|[-8-]|[2, 'D0']|[-2-]}
            <Lit 0x21522 63>                                                    {[«64""»]|[-8-]|[$$ NOVRAM checksum error, enter new data, defaults are best guess]}
            <Call 0x21530 0x102d0>                                              {[«64""»]|[-8-]|[$$ NOVRAM checksum error, enter new data, defaults are best guess]}
                StringCat2(a, b : String) : String
            <POP 21536-21538 StackAdj>                       Δ+8                {[«64""»]|[-4-]}
            <Call 0x21538 0x103e0>                                              {[«64""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2153e-21542 StackAdj>                       Δ+66               {[-2-]}
            <Call 0x21542 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 21548  TST.B   (A7)+>                        Δ+2                {}
            <MI 2154a  BNE     0x21558>                                         {}
        <POP 2154c-21558 Naked>                              Σ0         ↓ →0x21574
            <POP 2154c-2154e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2154e 0x10604>                                              {[-2-]}
                Is_fc07_three() : Bool
            <MI 21554  TST.B   (A7)+>                        Δ+2                {}
            <MI 21556  BEQ     0x21574>                                         {}
        <POP 21558-21574 Naked>                              Σ0         →0x215b2 ←0x21506
            <MI 21558  ASL.W   #0x1,D0>                                         {}
            <MI 2155a  LEA.L   0x205ca,A0>                                      {}
            <MI 2155e  MOVE.W  (A0+D0.W),(A5+D1.W+#0x18)>                       {}
            <MI 21564  LEA.L   0x205ea,A0>                                      {}
            <MI 21568  MOVE.W  (A0+D0.W),(A5+D1.W+#0x1c)>                       {}
            <MI 2156e  LEA.L   0x2060a,A0>                                      {}
            <MI 21572  BRA     0x215b2>                                         {}
        <POP 21574-2157a Naked>                              Σ0         ↓ →0x21598 ←0x2154c
            <MI 21574  CMPI.B  #0x0c,D0>                                        {}
            <MI 21578  BLT     0x21598>                                         {}
        <POP 2157a-21586 Naked>                              Σ0         ↓ →0x21598
            <POP 2157a-2157c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2157c 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21582  TST.B   (A7)+>                        Δ+2                {}
            <MI 21584  BNE     0x21598>                                         {}
        <POP 21586-21598 Naked>                              Σ0         →0x215b8
            <MI 21586  MOVE.W  #0x7,(A5+D1.W+#0x18)>                            {}
            <MI 2158c  MOVE.W  #0x2,(A5+D1.W+#0x1c)>                            {}
            <MI 21592  CLR.W   (A5+D1.W+#0x1e)>                                 {}
            <MI 21596  BRA     0x215b8>                                         {}
        <POP 21598-215b2 Naked>                              Σ0         ↓ ←0x21574 ←0x2157a
            <MI 21598  ASL.W   #0x1,D0>                                         {}
            <MI 2159a  LEA.L   0x2056a,A0>                                      {}
            <MI 2159e  MOVE.W  (A0+D0.W),(A5+D1.W+#0x18)>                       {}
            <MI 215a4  LEA.L   0x2058a,A0>                                      {}
            <MI 215a8  MOVE.W  (A0+D0.W),(A5+D1.W+#0x1c)>                       {}
            <MI 215ae  LEA.L   0x205aa,A0>                                      {}
        <POP 215b2-215b8 Naked>                              Σ0         ↓ ←0x21558
            <MI 215b2  MOVE.W  (A0+D0.W),(A5+D1.W+#0x1e)>                       {}
        <POP 215b8-215c8 Naked>                              Σ0         ↓ ←0x21586
            <MI 215b8  CLR.W   (A5+D1.W+#0x1a)>                                 {}
            <MI 215bc  PEA.L   (A5+D1.W+#0x20)>              Δ-4                {[4, '^(A5+D1.W+#0x20)']}
            <Call 0x215c0 0x10304>                                              {[4, '^(A5+D1.W+#0x20)']}
                GetRtc() : TimeStamp
            <POP 215c6-215c8 StackAdj>                       Δ+4                {}
        <POP 215c8-216e4 Naked>                              Σ0         ↓ ←0x214f4
            <Blob 0x215c8 [18] @>                            Δ-18               {[«18""»]}
            <POP 215d8-215da StackAdj>                       Δ-6                {[«18""»]|[-6-]}
            <Lit 0x215da 17>                                                    {[«18""»]|[-2-]|[$$Enter part number]}
            <MI 215e8  MOVE.W  (A5+D1.W+#0x18),D0>                              {[«18""»]|[-2-]|[$$Enter part number]}
            <MI 215ec  EXTW.L  D0>                                              {[«18""»]|[-2-]|[$$Enter part number]}
            <MI 215ee  MOVE.L  D0,-(A7)>                     Δ-4                {[«18""»]|[-2-]|[$$Enter part number]|[4, 'D0']}
            <Const 0x215f0 0x0.4>                            Δ-4                {[«18""»]|[-2-]|[$$Enter part number]|[4, 'D0']|[##0]}
            <Const 0x215f2 0xff.4>                           Δ-4                {[«18""»]|[-2-]|[$$Enter part number]|[4, 'D0']|[##0]|[##255]}
            <Call 0x215f6 0x2121c>                                              {[«18""»]|[-2-]|[$$Enter part number]|[4, 'D0']|[##0]|[##255]}
            <POP 215f8-215fa StackAdj>                       Δ+16               {[«18""»]|[-2-]}
            <MI 215fa  MOVE.W  (A7)+,D0>                     Δ+2                {[«18""»]}
            <POP 0x215fc LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[«18""»]}
            <POP 215fe-21600 StackAdj>                       Δ+18               {}
            <MI 21600  MOVE.W  D0,(A5+D1.W+#0x18)>                              {}
            <Blob 0x21604 [20] @>                            Δ-20               {[«20""»]}
            <POP 21614-21616 StackAdj>                       Δ-6                {[«20""»]|[-6-]}
            <Lit 0x21616 19>                                                    {[«20""»]|[-2-]|[$$Enter serial number]}
            <MI 21624  CLR.L   D0>                                              {[«20""»]|[-2-]|[$$Enter serial number]}
            <MI 21626  MOVE.W  (A5+D1.W+#0x1a),D0>                              {[«20""»]|[-2-]|[$$Enter serial number]}
            <MI 2162a  MOVE.L  D0,-(A7)>                     Δ-4                {[«20""»]|[-2-]|[$$Enter serial number]|[4, 'D0']}
            <Const 0x2162c 0x0.4>                            Δ-4                {[«20""»]|[-2-]|[$$Enter serial number]|[4, 'D0']|[##0]}
            <Const 0x2162e 0x7fff.4>                         Δ-4                {[«20""»]|[-2-]|[$$Enter serial number]|[4, 'D0']|[##0]|[##32767]}
            <Call 0x21632 0x2121c>                                              {[«20""»]|[-2-]|[$$Enter serial number]|[4, 'D0']|[##0]|[##32767]}
            <POP 21634-21636 StackAdj>                       Δ+16               {[«20""»]|[-2-]}
            <MI 21636  MOVE.W  (A7)+,(A5+D1.W+#0x1a)>        Δ+2                {[«20""»]}
            <POP 2163a-2163c StackAdj>                       Δ+20               {}
            <Blob 0x2163c [22] @>                            Δ-22               {[«22""»]}
            <POP 21648-2164a StackAdj>                       Δ-6                {[«22""»]|[-6-]}
            <Lit 0x2164a 22>                                                    {[«22""»]|[-2-]|[$$Enter artwork revision]}
            <MI 21658  MOVE.W  (A5+D1.W+#0x1c),D0>                              {[«22""»]|[-2-]|[$$Enter artwork revision]}
            <MI 2165c  EXTW.L  D0>                                              {[«22""»]|[-2-]|[$$Enter artwork revision]}
            <MI 2165e  MOVE.L  D0,-(A7)>                     Δ-4                {[«22""»]|[-2-]|[$$Enter artwork revision]|[4, 'D0']}
            <Const 0x21660 0x0.4>                            Δ-4                {[«22""»]|[-2-]|[$$Enter artwork revision]|[4, 'D0']|[##0]}
            <Const 0x21662 0xff.4>                           Δ-4                {[«22""»]|[-2-]|[$$Enter artwork revision]|[4, 'D0']|[##0]|[##255]}
            <Call 0x21666 0x2121c>                                              {[«22""»]|[-2-]|[$$Enter artwork revision]|[4, 'D0']|[##0]|[##255]}
            <POP 21668-2166a StackAdj>                       Δ+16               {[«22""»]|[-2-]}
            <MI 2166a  MOVE.W  (A7)+,D0>                     Δ+2                {[«22""»]}
            <POP 0x2166c LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[«22""»]}
            <POP 2166e-21672 StackAdj>                       Δ+22               {}
            <MI 21672  MOVE.W  D0,(A5+D1.W+#0x1c)>                              {}
            <Blob 0x21676 [16] @>                            Δ-16               {[«16""»]}
            <POP 21686-21688 StackAdj>                       Δ-6                {[«16""»]|[-6-]}
            <Lit 0x21688 15>                                                    {[«16""»]|[-2-]|[$$Enter ECO level]}
            <MI 21696  MOVE.W  (A5+D1.W+#0x1e),D0>                              {[«16""»]|[-2-]|[$$Enter ECO level]}
            <MI 2169a  EXTW.L  D0>                                              {[«16""»]|[-2-]|[$$Enter ECO level]}
            <MI 2169c  MOVE.L  D0,-(A7)>                     Δ-4                {[«16""»]|[-2-]|[$$Enter ECO level]|[4, 'D0']}
            <Const 0x2169e 0x0.4>                            Δ-4                {[«16""»]|[-2-]|[$$Enter ECO level]|[4, 'D0']|[##0]}
            <Const 0x216a0 0xff.4>                           Δ-4                {[«16""»]|[-2-]|[$$Enter ECO level]|[4, 'D0']|[##0]|[##255]}
            <Call 0x216a4 0x2121c>                                              {[«16""»]|[-2-]|[$$Enter ECO level]|[4, 'D0']|[##0]|[##255]}
            <POP 216a6-216a8 StackAdj>                       Δ+16               {[«16""»]|[-2-]}
            <MI 216a8  MOVE.W  (A7)+,D0>                     Δ+2                {[«16""»]}
            <POP 0x216aa LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[«16""»]}
            <POP 216ac-216ae StackAdj>                       Δ+16               {}
            <MI 216ae  MOVE.W  D0,(A5+D1.W+#0x1e)>                              {}
            <Blob 0x216b2 [30] @>                            Δ-30               {[«30""»]}
            <POP 216c4-216c6 StackAdj>                       Δ-4                {[«30""»]|[-4-]}
            <Lit 0x216c6 29>                                                    {[«30""»]|[$$Enter build date as DD-MMM-YY]}
            <MI 216d4  PEA.L   (A5+D1.W+#0x20)>              Δ-4                {[«30""»]|[$$Enter build date as DD-MMM-YY]|[4, '^(A5+D1.W+#0x20)']}
            <Call 0x216d8 0x21360>                                              {[«30""»]|[$$Enter build date as DD-MMM-YY]|[4, '^(A5+D1.W+#0x20)']}
            <POP 216dc-216e0 StackAdj>                       Δ+38               {}
            <MI 216e0  MOVE.B  #0x01,(A5+D1.W+#0x24)>                           {}
        <POP 216e4-216ec Epilogue>                           Σ0         

0x216ec


@ 216ec
    <POP 216ec-21872 Body>                                              
        <POP 216ec-21702 Prologue>                           Σ0         ↓
        <POP 21702-21716 RegCacheLoad>                       Σ0         ↓
        <POP 21716-217c8 Naked>                              Σ0         ↓ →0x217d4
            <Blob 0x21716 [12] @>                            Δ-12               {[«12""»]}
            <POP 21726-21728 StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x21728 11>                                                    {[«12""»]|[$$Boards are:]}
            <Call 0x21736 0x103e0>                                              {[«12""»]|[$$Boards are:]}
                WriteConsoleStringCrLf(str : String)
            <POP 21738-2173a StackAdj>                       Δ+16               {}
            <Blob 0x2173a [26] @>                            Δ-26               {[«26""»]}
            <POP 21746-21748 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x21748 26>                                                    {[«26""»]|[$$    0 => TYP      1 => VAL]}
            <Call 0x21754 0x103e0>                                              {[«26""»]|[$$    0 => TYP      1 => VAL]}
                WriteConsoleStringCrLf(str : String)
            <POP 21756-2175a StackAdj>                       Δ+30               {}
            <Blob 0x2175a [26] @>                            Δ-26               {[«26""»]}
            <POP 21766-21768 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x21768 26>                                                    {[«26""»]|[$$    2 => SEQ      3 => FIU]}
            <Call 0x21774 0x103e0>                                              {[«26""»]|[$$    2 => SEQ      3 => FIU]}
                WriteConsoleStringCrLf(str : String)
            <POP 21776-21777 StackAdj>                       Δ+30       ↓       {}
            <Blob 0x21777 [28] @>                            Δ-28               {[«28""»]}
            <POP 21786-21788 StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x21788 27>                                                    {[«28""»]|[$$    4 => MEM0     5 => MEM1]}
            <Call 0x21796 0x103e0>                                              {[«28""»]|[$$    4 => MEM0     5 => MEM1]}
                WriteConsoleStringCrLf(str : String)
            <POP 21798-21799 StackAdj>                       Δ+32       ↓       {}
            <Blob 0x21799 [28] @>                            Δ-28               {[«28""»]}
            <POP 217a8-217aa StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x217aa 27>                                                    {[«28""»]|[$$    6 => MEM2     7 => MEM3]}
            <Call 0x217b8 0x103e0>                                              {[«28""»]|[$$    6 => MEM2     7 => MEM3]}
                WriteConsoleStringCrLf(str : String)
            <POP 217ba-217be StackAdj>                       Δ+30               {[-2-]}
            <Call 0x217be 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 217c4  TST.B   (A7)+>                        Δ+2                {}
            <MI 217c6  BNE     0x217d4>                                         {}
        <POP 217c8-217d4 Naked>                              Σ0         ↓ →0x217fa
            <POP 217c8-217ca StackAdj>                       Δ-2                {[-2-]}
            <Call 0x217ca 0x10604>                                              {[-2-]}
                Is_fc07_three() : Bool
            <MI 217d0  TST.B   (A7)+>                        Δ+2                {}
            <MI 217d2  BEQ     0x217fa>                                         {}
        <POP 217d4-217fa Naked>                              Σ0         →0x2181a ←0x21716
            <Blob 0x217d4 [28] @>                            Δ-28               {[«28""»]}
            <POP 217e0-217e2 StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x217e2 28>                                                    {[«28""»]|[$$    8 => IOC      9 => RESHA]}
            <Call 0x217f0 0x103e0>                                              {[«28""»]|[$$    8 => IOC      9 => RESHA]}
                WriteConsoleStringCrLf(str : String)
            <POP 217f2-217f6 StackAdj>                       Δ+32               {}
            <MI 217f6  MOVEQ.L #0x09,D7>                                        {}
            <MI 217f8  BRA     0x2181a>                                         {}
        <POP 217fa-2181a Naked>                              Σ0         ↓ ←0x217c8
            <Blob 0x217fa [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x217fe [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21802 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 21806-21808 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x21808 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$    8 => IOC]}
            <Call 0x21814 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[$$    8 => IOC]}
                WriteConsoleStringCrLf(str : String)
            <POP 21816-21818 StackAdj>                       Δ+16               {}
            <MI 21818  MOVEQ.L #0x08,D7>                                        {}
        <POP 2181a-2186a Naked>                              Σ0         ↓ ←0x217d4
            <Blob 0x2181a [14] @>                            Δ-14               {[«14""»]}
            <POP 21826-21828 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x21828 14>                                                    {[«14""»]|[-4-]|[$$Enter board :_]}
            <Const 0x21836 0x0.4>                            Δ-4                {[«14""»]|[-4-]|[$$Enter board :_]|[##0]}
            <MI 2183a  MOVE.L  D7,-(A7)>                     Δ-4                {[«14""»]|[-4-]|[$$Enter board :_]|[##0]|[4, 'D7']}
            <Call 0x2183c 0x103ec>                                              {[«14""»]|[-4-]|[$$Enter board :_]|[##0]|[4, 'D7']}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 21842-21844 StackAdj>                       Δ+12               {[«14""»]|[-4-]}
            <MI 21844  MOVE.L  (A7)+,D6>                     Δ+4                {[«14""»]}
            <POP 21846-2184a StackAdj>                       Δ+14               {}
            <POP 0x2184a LimitCheck 0x0 ≤ D6 ≤ 0x9>                             {}
            <MI 21854  LEA.L   0x2062a,A0>                                      {}
            <MI 21858  MOVE.B  (A0+D6.L),D5>                                    {}
            <MI 2185c  MOVE.B  D5,-(A7)>                     Δ-2                {[2, 'D5']}
            <Call 0x2185e 0x214c4>                                              {[2, 'D5']}
            <MI 21862  MOVE.B  D5,(A7)>                                         {[-2-]}
            <Call 0x21864 0x21050>                                              {[-2-]}
            <POP 21868-2186a StackAdj>                       Δ+2                {}
        <POP 2186a-21872 Epilogue>                           Σ0         

0x21872


@ 21872
    <POP 21872-21922 Body>                                              
        <POP 21872-21888 Prologue>                           Σ0         ↓
        <POP 21888-21890 RegCacheLoad>                       Σ0         ↓
        <POP 21890-218d6 Naked>                              Σ0         ↓ →0x21902
            <Blob 0x21890 [32] @>                            Δ-32               {[«32""»]}
            <POP 2189c-2189e StackAdj>                       Δ-6                {[«32""»]|[-6-]}
            <Lit 0x2189e 32>                                                    {[«32""»]|[-2-]|[$$Enter TCP/IP board serial number]}
            <POP 218ac-218ae StackAdj>                       Δ-4                {[«32""»]|[-2-]|[$$Enter TCP/IP board serial number]|[-4-]}
            <MI 218ae  MOVE.L  (A5+0xf8),(A7)>                                  {[«32""»]|[-2-]|[$$Enter TCP/IP board serial number]|[4, '(A5+0xf8)']}
            <Const 0x218b0 0x0.4>                            Δ-4                {[«32""»]|[-2-]|[$$Enter TCP/IP board serial number]|[4, '(A5+0xf8)']|[##0]}
            <Const 0x218b4 0xf423f.4>                        Δ-4                {[«32""»]|[-2-]|[$$Enter TCP/IP board serial number]|[4, '(A5+0xf8)']|[##0]|[##999999]}
            <Call 0x218ba 0x2121c>                                              {[«32""»]|[-2-]|[$$Enter TCP/IP board serial number]|[4, '(A5+0xf8)']|[##0]|[##999999]}
            <POP 218be-218c2 StackAdj>                       Δ+16               {[«32""»]|[-2-]}
            <MI 218c2  CLR.L   D0>                                              {[«32""»]|[-2-]}
            <MI 218c4  MOVE.W  (A7)+,D0>                     Δ+2                {[«32""»]}
            <MI 218c6  MOVE.L  D0,(A5+0xf8)>                                    {[«32""»]}
            <POP 218c8-218cc StackAdj>                       Δ+28               {[-4-]}
            <Call 0x218cc 0x2204e>                                              {[-4-]}
            <MI 218d2  MOVE.L  (A7)+,D7>                     Δ+4                {}
            <MI 218d4  BNE     0x21902>                                         {}
        <POP 218d6-21902 Naked>                              Σ0         ↓
            <Blob 0x218d6 [26] @>                            Δ-26               {[«26""»]}
            <Const 0x218e2 0xe.2>                            Δ-2                {[«26""»]|[#14]}
            <POP 218e6-218e8 StackAdj>                       Δ-4                {[«26""»]|[#14]|[-4-]}
            <Lit 0x218e8 26>                                                    {[«26""»]|[#14]|[$$invalid TCP board info ptr]}
            <Call 0x218fa 0x103b8>                                              {[«26""»]|[#14]|[$$invalid TCP board info ptr]}
                PopProgram(status : Byte; msg : String)
            <POP 21900-21902 StackAdj>                       Δ+32               {}
        <POP 21902-2191a Naked>                              Σ0         ↓ ←0x21890
            <MI 21902  LEA.L   (A5+0xf8),A0>                                    {}
            <MI 21904  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 21906  MOVE.L  D7,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D7']}
            <Const 0x21908 0x4.2>                            Δ-2                {[4, 'A0']|[4, 'D7']|[#4]}
            <Call 0x2190c 0x10238>                                              {[4, 'A0']|[4, 'D7']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 21912-21916 StackAdj>                       Δ+10               {}
            <Call 0x21916 0x20d8c>                                              {}
        <POP 2191a-21922 Epilogue>                           Σ0         

0x21922


@ 21922
        <LVAR  0x008 1(r)>
        <LVAR -0x00a @ 4(rw)>
    <POP 21922-21a54 Body>                                              
        <POP 21922-21938 Prologue>                           Σ0         ↓
        <POP 21938-2194a RegCacheLoad>                       Σ0         ↓
        <POP 2194a-2196e Naked>                              Σ0         ↓ →0x219a2
            <POP 2194a-2194c StackAdj>                       Δ-8                {[-8-]}
            <MI 2194c  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[-8-]|[2, '(A6+0x8)']}
            <Call 0x21950 0x2069c>                                              {[-8-]|[2, '(A6+0x8)']}
            <POP 21954-21956 StackAdj>                       Δ+2                {[-8-]}
            <Const 0x21956 0x8.4>                            Δ-4                {[-8-]|[##8]}
            <Call 0x2195a 0x102f8>                                              {[-8-]|[##8]}
                LeftPad(a : String; b : Long) : String
            <POP 2195c-2195e StackAdj>                       Δ+8                {[-4-]}
            <MI 2195e  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 21960  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 21964  EXTB.W  D0>                                              {}
            <MI 21966  MULS.W  #0x0e,D0>                                        {}
            <MI 21968  TST.B   (A5+D0.W+#0x24)>                                 {}
            <MI 2196c  BNE     0x219a2>                                         {}
        <POP 2196e-219a2 Naked>                              Σ0         →0x21a42
            <Blob 0x2196e [14] @>                            Δ-14               {[«14""»]}
            <POP 2197a-2197c StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <MI 2197c  MOVE.L  A4,-(A7)>                     Δ-4                {[«14""»]|[-4-]|[4, 'A4']}
            <POP 2197e-21980 StackAdj>                       Δ-4                {[«14""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x21980 14>                                                    {[«14""»]|[-4-]|[4, 'A4']|[$$Checksum error]}
            <Call 0x21992 0x102d0>                                              {[«14""»]|[-4-]|[4, 'A4']|[$$Checksum error]}
                StringCat2(a, b : String) : String
            <POP 21998-2199a StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <MI 2199a  MOVEA.L (A7)+,A4>                     Δ+4                {[«14""»]}
            <POP 2199c-2199e StackAdj>                       Δ+14               {}
            <MI 2199e  BRA     0x21a42>                                         {}
        <POP 219a2-21a10 Naked>                              Σ0         ↓ ←0x2194a
            <POP 219a2-219a4 StackAdj>                       Δ-4                {[-4-]}
            <MI 219a4  MOVE.L  A4,-(A7)>                     Δ-4                {[-4-]|[4, 'A4']}
            <POP 219a6-219a8 StackAdj>                       Δ-8                {[-4-]|[4, 'A4']|[-8-]}
            <MI 219a8  MOVE.W  (A5+D0.W+#0x18),D1>                              {[-4-]|[4, 'A4']|[-8-]}
            <MI 219ac  EXTW.L  D1>                                              {[-4-]|[4, 'A4']|[-8-]}
            <MI 219ae  MOVE.L  D1,-(A7)>                     Δ-4                {[-4-]|[4, 'A4']|[-8-]|[4, 'D1']}
            <Call 0x219b0 0x102e4>                                              {[-4-]|[4, 'A4']|[-8-]|[4, 'D1']}
                Long2String(a : Long) : String
            <POP 219b2-219b4 StackAdj>                       Δ+4                {[-4-]|[4, 'A4']|[-8-]}
            <Const 0x219b4 0x8.4>                            Δ-4                {[-4-]|[4, 'A4']|[-8-]|[##8]}
            <Call 0x219b8 0x102f8>                                              {[-4-]|[4, 'A4']|[-8-]|[##8]}
                LeftPad(a : String; b : Long) : String
            <MI 219ba  CLR.L   D1>                                              {[-4-]|[4, 'A4']|[-8-]|[##8]}
            <MI 219bc  MOVE.W  (A5+D0.W+#0x1a),D1>                              {[-4-]|[4, 'A4']|[-8-]|[##8]}
            <MI 219c0  MOVE.L  D1,-(A7)>                     Δ-4                {[-4-]|[4, 'A4']|[-8-]|[##8]|[4, 'D1']}
            <Call 0x219c2 0x102e4>                                              {[-4-]|[4, 'A4']|[-8-]|[##8]|[4, 'D1']}
                Long2String(a : Long) : String
            <POP 219c4-219c6 StackAdj>                       Δ+4                {[-4-]|[4, 'A4']|[-8-]|[##8]}
            <Const 0x219c6 0x9.4>                            Δ-4                {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]}
            <Call 0x219ca 0x102f8>                                              {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]}
                LeftPad(a : String; b : Long) : String
            <MI 219cc  MOVE.W  (A5+D0.W+#0x1c),D1>                              {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]}
            <MI 219d0  EXTW.L  D1>                                              {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]}
            <MI 219d2  MOVE.L  D1,-(A7)>                     Δ-4                {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]|[4, 'D1']}
            <Call 0x219d4 0x102e4>                                              {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]|[4, 'D1']}
                Long2String(a : Long) : String
            <POP 219d6-219d8 StackAdj>                       Δ+4                {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]}
            <Const 0x219d8 0x9.4>                            Δ-4                {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]|[##9]}
            <Call 0x219dc 0x102f8>                                              {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]|[##9]}
                LeftPad(a : String; b : Long) : String
            <MI 219de  MOVE.W  (A5+D0.W+#0x1e),D1>                              {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]|[##9]}
            <MI 219e2  EXTW.L  D1>                                              {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]|[##9]}
            <MI 219e4  MOVE.L  D1,-(A7)>                     Δ-4                {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]|[##9]|[4, 'D1']}
            <Call 0x219e6 0x102e4>                                              {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]|[##9]|[4, 'D1']}
                Long2String(a : Long) : String
            <POP 219e8-219ea StackAdj>                       Δ+4                {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]|[##9]}
            <Const 0x219ea 0x7.4>                            Δ-4                {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]|[##9]|[##7]}
            <Call 0x219ee 0x102f8>                                              {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]|[##9]|[##7]}
                LeftPad(a : String; b : Long) : String
            <POP 219f0-219f2 StackAdj>                       Δ+8                {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]}
            <Call 0x219f2 0x102dc>                                              {[-4-]|[4, 'A4']|[-8-]|[##8]|[##9]}
                StringCat5(a, b, c, d, e : String) : String
            <POP 219f8-219fc StackAdj>                       Δ+20               {[-4-]}
            <MI 219fc  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <POP 219fe-21a00 StackAdj>                       Δ-4                {[-4-]}
            <MI 21a00  MOVE.L  (A5+D0.W+#0x20),-(A7)>        Δ-4                {[-4-]|[4, '(A5+D0.W+#0x20)']}
            <Call 0x21a04 0x10308>                                              {[-4-]|[4, '(A5+D0.W+#0x20)']}
                TimeToText()
            <POP 21a0a-21a0c StackAdj>                       Δ+4                {[-4-]}
            <MI 21a0c  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {}
            <MI 21a0e  MOVEQ.L #0x0a,D7>                                        {}
        <POP 21a10-21a38 Naked>                              Σ0         ↓ →0x21a10 ←0x21a10
            <MI 21a10  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <MI 21a12  MOVEA.L (A6-0xa),A0>                                     {[4, 'A4']}
            <MI 21a14  MOVE.L  D7,D0>                                           {[4, 'A4']}
            <MI 21a16  SUBQ.L  #0x1,D0>                                         {[4, 'A4']}
            <POP 0x21a18 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[4, 'A4']}
            <MI 21a22  MOVE.B  (A0+D0.L+#0x2),-(A7)>         Δ-2                {[4, 'A4']|[2, '(A0+D0.L+#0x2)']}
            <Call 0x21a26 0x102c0>                                              {[4, 'A4']|[2, '(A0+D0.L+#0x2)']}
                AppendChar(MOD b : String; a : char)
            <POP 21a2c-21a2e StackAdj>                       Δ+6                {}
            <MI 21a2e  ADDQ.L  #0x1,D7>                                         {}
            <MI 21a30  CMPI.L  #0x00000012,D7>                                  {}
            <MI 21a36  BLE     0x21a10>                                         {}
        <POP 21a38-21a42 Naked>                              Σ0         ↓
            <Pointer.fp 0x21a38 <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Call 0x21a3a 0x102bc>                                              {[@@-10]}
                FreeString(VAR a : String)
            <POP 21a40-21a42 StackAdj>                       Δ+4                {}
        <POP 21a42-21a4c Naked>                              Σ0         ↓ ←0x2196e
            <MI 21a42  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <Call 0x21a44 0x103e0>                                              {[4, 'A4']}
                WriteConsoleStringCrLf(str : String)
            <POP 21a4a-21a4c StackAdj>                       Δ+4                {}
        <POP 21a4c-21a54 Epilogue>                           Σ0         

0x21a54


@ 21a54
    <POP 21a54-21b60 Body>                                              
        <POP 21a54-21a6a Prologue>                           Σ0         ↓
        <POP 21a6a-21a7c RegCacheLoad>                       Σ0         ↓
        <POP 21a7c-21ae8 Naked>                              Σ0         ↓
            <Blob 0x21a7c [50] @>                            Δ-50               {[«50""»]}
            <POP 21a8e-21a90 StackAdj>                       Δ-4                {[«50""»]|[-4-]}
            <Lit 0x21a90 49>                                                    {[«50""»]|[$$        Part   Serial  Artwork    ECO     Date of]}
            <Call 0x21a9e 0x103e0>                                              {[«50""»]|[$$        Part   Serial  Artwork    ECO     Date of]}
                WriteConsoleStringCrLf(str : String)
            <POP 21aa0-21aa1 StackAdj>                       Δ+54       ↓       {}
            <Blob 0x21aa1 [52] @>                            Δ-52               {[«52""»]}
            <POP 21ab0-21ab2 StackAdj>                       Δ-4                {[«52""»]|[-4-]}
            <Lit 0x21ab2 51>                                                    {[«52""»]|[$$Board  Number  Number  Revision  Level  Manufacture]}
            <Call 0x21ac0 0x103e0>                                              {[«52""»]|[$$Board  Number  Number  Revision  Level  Manufacture]}
                WriteConsoleStringCrLf(str : String)
            <POP 21ac2-21ac6 StackAdj>                       Δ+54               {[-2-]}
            <POP 21ac6-21ac7 StackAdj>                       Δ+2                {}
            <Const 0x21ac7 0x4.2>                            Δ-2                {[#4]}
            <Call 0x21aca 0x21922>                                              {[#4]}
            <POP 21acc-21acd StackAdj>                       Δ+2                {}
            <Const 0x21acd 0x7.2>                            Δ-2                {[#7]}
            <Call 0x21ad0 0x21922>                                              {[#7]}
            <POP 21ad2-21ad3 StackAdj>                       Δ+2                {}
            <Const 0x21ad3 0x6.2>                            Δ-2                {[#6]}
            <Call 0x21ad6 0x21922>                                              {[#6]}
            <POP 21ad8-21ad9 StackAdj>                       Δ+2                {}
            <Const 0x21ad9 0x2.2>                            Δ-2                {[#2]}
            <Call 0x21adc 0x21922>                                              {[#2]}
            <POP 21ade-21adf StackAdj>                       Δ+2                {}
            <Const 0x21adf 0x3.2>                            Δ-2                {[#3]}
            <Call 0x21ae2 0x21922>                                              {[#3]}
            <POP 21ae4-21ae6 StackAdj>                       Δ+2                {}
            <MI 21ae6  MOVEQ.L #0x0c,D7>                                        {}
        <POP 21ae8-21af8 Naked>                              Σ0         ↓ →0x21afe ←0x21afe
            <POP 21ae8-21aea StackAdj>                       Δ-2                {[-2-]}
            <MI 21aea  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x21aec 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 21af2-21af4 StackAdj>                       Δ+2                {[-2-]}
            <MI 21af4  TST.B   (A7)+>                        Δ+2                {}
            <MI 21af6  BEQ     0x21afe>                                         {}
        <POP 21af8-21afe Naked>                              Σ0         ↓
            <MI 21af8  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x21afa 0x21922>                                              {[2, 'D7']}
            <POP 21afc-21afe StackAdj>                       Δ+2                {}
        <POP 21afe-21b06 Naked>                              Σ0         ↓ →0x21ae8 ←0x21ae8
            <MI 21afe  ADDQ.B  #0x1,D7>                                         {}
            <MI 21b00  CMPI.B  #0x0f,D7>                                        {}
            <MI 21b04  BLE     0x21ae8>                                         {}
        <POP 21b06-21b12 Naked>                              Σ0         ↓ →0x21b1e
            <POP 21b06-21b08 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21b08 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 21b0e  TST.B   (A7)+>                        Δ+2                {}
            <MI 21b10  BNE     0x21b1e>                                         {}
        <POP 21b12-21b1e Naked>                              Σ0         ↓ →0x21b58
            <POP 21b12-21b14 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21b14 0x10604>                                              {[-2-]}
                Is_fc07_three() : Bool
            <MI 21b1a  TST.B   (A7)+>                        Δ+2                {}
            <MI 21b1c  BEQ     0x21b58>                                         {}
        <POP 21b1e-21b58 Naked>                              Σ0         ↓ ←0x21b06
            <MI 21b1e  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x21b20 0x21922>                                              {[#0]}
            <POP 21b22-21b24 StackAdj>                       Δ+2                {}
            <Blob 0x21b24 [36] @>                            Δ-36               {[«36""»]}
            <POP 21b30-21b32 StackAdj>                       Δ-8                {[«36""»]|[-8-]}
            <Lit 0x21b32 36>                                                    {[«36""»]|[-4-]|[$$TCP/IP (CMC) board serial number is_]}
            <MI 21b3e  MOVE.L  (A5+0xf8),(A7)>                                  {[«36""»]|[-4-]|[4, '(A5+0xf8)']}
            <POP 21b3c-21b3e StackAdj>                       Δ-8                {[«36""»]|[-4-]|[4, '(A5+0xf8)']|[-8-]}
            <Call 0x21b42 0x102e4>                                              {[«36""»]|[-4-]|[4, '(A5+0xf8)']|[-8-]}
                Long2String(a : Long) : String
            <POP 21b48-21b4a StackAdj>                       Δ+4                {[«36""»]|[-4-]|[4, '(A5+0xf8)']|[-4-]}
            <Call 0x21b4a 0x102d0>                                              {[«36""»]|[-4-]|[4, '(A5+0xf8)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21b50-21b52 StackAdj>                       Δ+8                {[«36""»]|[-4-]}
            <Call 0x21b52 0x103e0>                                              {[«36""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21b54-21b58 StackAdj>                       Δ+40               {}
        <POP 21b58-21b60 Epilogue>                           Σ0         ←0x21b12

0x21b60


@ 21b60
    <POP 21b60-21cb8 Body>                                              
        <POP 21b60-21b76 Prologue>                           Σ0         ↓
        <POP 21b76-21b8a RegCacheLoad>                       Σ0         ↓
        <POP 21b8a-21c1a Naked>                              Σ0         ↓ →0x21c26 ←0x21caa
            <Call 0x21b8a 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x21b90 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21b94 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21b98 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 21b9c-21b9e StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x21b9e 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
            <Call 0x21baa 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
                WriteConsoleStringCrLf(str : String)
            <POP 21bac-21bae StackAdj>                       Δ+16               {}
            <Blob 0x21bae [14] @>                            Δ-14               {[«14""»]}
            <POP 21bba-21bbc StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x21bbc 14>                                                    {[«14""»]|[$$    0 => Exit.]}
            <Call 0x21bca 0x103e0>                                              {[«14""»]|[$$    0 => Exit.]}
                WriteConsoleStringCrLf(str : String)
            <POP 21bcc-21bcd StackAdj>                       Δ+18       ↓       {}
            <Blob 0x21bcd [34] @>                            Δ-34               {[«34""»]}
            <POP 21bdc-21bde StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x21bde 33>                                                    {[«34""»]|[$$    1 => Display novram contents.]}
            <Call 0x21bea 0x103e0>                                              {[«34""»]|[$$    1 => Display novram contents.]}
                WriteConsoleStringCrLf(str : String)
            <POP 21bec-21bed StackAdj>                       Δ+38       ↓       {}
            <Blob 0x21bed [34] @>                            Δ-34               {[«34""»]}
            <POP 21bfc-21bfe StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x21bfe 33>                                                    {[«34""»]|[$$    2 => Modify  novram contents.]}
            <Call 0x21c0a 0x103e0>                                              {[«34""»]|[$$    2 => Modify  novram contents.]}
                WriteConsoleStringCrLf(str : String)
            <POP 21c0c-21c10 StackAdj>                       Δ+36               {[-2-]}
            <Call 0x21c10 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 21c16  TST.B   (A7)+>                        Δ+2                {}
            <MI 21c18  BNE     0x21c26>                                         {}
        <POP 21c1a-21c26 Naked>                              Σ0         ↓ →0x21c52
            <POP 21c1a-21c1c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21c1c 0x10604>                                              {[-2-]}
                Is_fc07_three() : Bool
            <MI 21c22  TST.B   (A7)+>                        Δ+2                {}
            <MI 21c24  BEQ     0x21c52>                                         {}
        <POP 21c26-21c52 Naked>                              Σ0         →0x21c54 ←0x21b8a
            <Blob 0x21c26 [44] @>                            Δ-44               {[«44""»]}
            <POP 21c38-21c3a StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Lit 0x21c3a 43>                                                    {[«44""»]|[$$    3 => Change TCP/IP board serial number.]}
            <Call 0x21c48 0x103e0>                                              {[«44""»]|[$$    3 => Change TCP/IP board serial number.]}
                WriteConsoleStringCrLf(str : String)
            <POP 21c4a-21c4e StackAdj>                       Δ+48               {}
            <MI 21c4e  MOVEQ.L #0x03,D7>                                        {}
            <MI 21c50  BRA     0x21c54>                                         {}
        <POP 21c52-21c54 Naked>                              Σ0         ↓ ←0x21c1a
            <MI 21c52  MOVEQ.L #0x02,D7>                                        {}
        <POP 21c54-21c8a Naked>                              Σ0         ↓ →0x21c90 ←0x21c26
            <Blob 0x21c54 [16] @>                            Δ-16               {[«16""»]}
            <POP 21c64-21c66 StackAdj>                       Δ-8                {[«16""»]|[-8-]}
            <Lit 0x21c66 15>                                                    {[«16""»]|[-4-]|[$$Enter option :_]}
            <Const 0x21c74 0x0.4>                            Δ-4                {[«16""»]|[-4-]|[$$Enter option :_]|[##0]}
            <MI 21c78  MOVE.L  D7,-(A7)>                     Δ-4                {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[4, 'D7']}
            <Call 0x21c7a 0x103ec>                                              {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[4, 'D7']}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 21c80-21c82 StackAdj>                       Δ+12               {[«16""»]|[-4-]}
            <MI 21c82  MOVE.L  (A7)+,D6>                     Δ+4                {[«16""»]}
            <POP 21c84-21c86 StackAdj>                       Δ+16               {}
            <MI 21c86  CMP.L   #0x01,D6>                                        {}
            <MI 21c88  BNE     0x21c90>                                         {}
        <POP 21c8a-21c90 Naked>                              Σ0         →0x21caa
            <Call 0x21c8a 0x21a54>                                              {}
            <MI 21c8e  BRA     0x21caa>                                         {}
        <POP 21c90-21c98 Naked>                              Σ0         ↓ →0x21c9e ←0x21c54
            <MI 21c90  CMPI.L  #0x00000002,D6>                                  {}
            <MI 21c96  BNE     0x21c9e>                                         {}
        <POP 21c98-21c9e Naked>                              Σ0         →0x21caa
            <Call 0x21c98 0x216ec>                                              {}
            <MI 21c9c  BRA     0x21caa>                                         {}
        <POP 21c9e-21ca6 Naked>                              Σ0         ↓ →0x21caa ←0x21c90
            <MI 21c9e  CMPI.L  #0x00000003,D6>                                  {}
            <MI 21ca4  BNE     0x21caa>                                         {}
        <POP 21ca6-21caa Naked>                              Σ0         ↓
            <Call 0x21ca6 0x21872>                                              {}
        <POP 21caa-21cb0 Naked>                              Σ0         ↓ →0x21b8a ←0x21c8a ←0x21c98 ←0x21c9e
            <MI 21caa  TST.L   D6>                                              {}
            <MI 21cac  BNE     0x21b8a>                                         {}
        <POP 21cb0-21cb8 Epilogue>                           Σ0         

0x21cb8


@ 21cb8
        <LVAR  0x008 1(r)>
        <LVAR -0x005 @>
        <LVAR -0x009 @>
        <LVAR -0x00a @>
        <LVAR -0x00b @ 1(r)>
        <LVAR -0x00c 1(r)>
        <LVAR -0x00d @ 1(r)>
        <LVAR -0x00e @ 1(r)>
        <LVAR -0x00f @ 1(r)>
        <LVAR -0x010 1(r)>
        <LVAR -0x011 @ 1(r)>
        <LVAR -0x012 @ 1(r)>
    <POP 21cb8-21e8c Body>                                   Δ+192      
        <POP 21cb8-21cce Prologue>                           Σ0         ↓
        <POP 21cce-21ce2 RegCacheLoad>                       Σ0         ↓
        <POP 21ce2-21cf4 Naked>                              Σ0         ↓ →0x21e84
            <MI 21ce2  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 21ce6  EXTB.W  D0>                                              {}
            <MI 21ce8  MOVEQ.L #0x0e,D1>                                        {}
            <MI 21cea  MULS.W  D0,D1>                                           {}
            <MI 21cec  TST.B   (A5+D1.W+#0x24)>                                 {}
            <MI 21cf0  BNE     0x21e84>                                         {}
        <POP 21cf4-21d00 Naked>                              Σ0         ↓ →0x21e24
            <MI 21cf4  MOVE.W  D0,D2>                                           {}
            <MI 21cf6  SUBQ.W  #0x2,D2>                                         {}
            <MI 21cf8  CMPI.W  #0x000d,D2>                                      {}
            <MI 21cfc  BHI     0x21e24>                                         {}
        <POP 21d00-21d0a Naked>                              Σ0         →0x21dbc →0x21d8c →0x21e24 →0x21e24 →0x21d26 →0x21d5c →0x21e24 →0x21e24 →0x21e24 →0x21e24 →0x21dee →0x21dee →0x21dee →0x21dee
            <MI 21d00  ADD.W   D2,D2>                                           {}
            <MI 21d02  SWITCH  D2.W>                                            {}
        <POP 21d26-21d54 Naked>                              Σ0 Δ-64    ↓ ←0x21d00
            <Pointer.fp 0x21d26 <LVAR -0x012 @ 1(r)>>        Δ-4                {[@@-18]}
            <Pointer.fp 0x21d28 <LVAR -0x011 @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]}
            <Pointer.fp 0x21d2a <LVAR -0x00f @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]}
            <Pointer.fp 0x21d2c <LVAR -0x00e @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]}
            <Pointer.fp 0x21d30 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]}
            <Pointer.fp 0x21d32 <LVAR -0x009 @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]}
            <Pointer.fp 0x21d36 <LVAR -0x00d @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]}
            <Pointer.fp 0x21d3a <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]}
            <Pointer.fp 0x21d3c <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21d3e <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21d40 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21d42 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21d44 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21d46 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21d48 <LVAR -0x005 @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]}
            <Pointer.fp 0x21d4c <LVAR -0x00b @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]|[@@-11]}
            <Call 0x21d4e 0x22244>                                              {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]|[@@-11]}
                exp_READ_NOVRAM_INFO.TYP(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_4, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_2, &Fr)
        <POP 21d54-21d5c Naked>                              Σ-64 Δ+64  →0x21e26 ←0x21d5c ←0x21d8c ←0x21dbc
            <POP 21d54-21d58 StackAdj>                       Δ+64               {}
            <MI 21d58  BRA     0x21e26>                                         {}
        <POP 21d5c-21d8c Naked>                              Σ0 Δ-64    →0x21d54 ←0x21d00
            <Pointer.fp 0x21d5c <LVAR -0x012 @ 1(r)>>        Δ-4                {[@@-18]}
            <Pointer.fp 0x21d5e <LVAR -0x011 @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]}
            <Pointer.fp 0x21d60 <LVAR -0x00f @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]}
            <Pointer.fp 0x21d62 <LVAR -0x00e @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]}
            <Pointer.fp 0x21d66 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]}
            <Pointer.fp 0x21d68 <LVAR -0x009 @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]}
            <Pointer.fp 0x21d6c <LVAR -0x00d @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]}
            <Pointer.fp 0x21d70 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]}
            <Pointer.fp 0x21d72 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21d74 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21d76 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21d78 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21d7a <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21d7c <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21d7e <LVAR -0x005 @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]}
            <Pointer.fp 0x21d82 <LVAR -0x00b @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]|[@@-11]}
            <Call 0x21d84 0x222c6>                                              {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]|[@@-11]}
                exp_READ_NOVRAM_INFO.VAL(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_4, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_2, &Fr)
            <MI 21d8a  BRA     0x21d54>                                         {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]|[@@-11]}
        <POP 21d8c-21dbc Naked>                              Σ0 Δ-64    →0x21d54 ←0x21d00
            <Pointer.fp 0x21d8c <LVAR -0x012 @ 1(r)>>        Δ-4                {[@@-18]}
            <Pointer.fp 0x21d8e <LVAR -0x011 @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]}
            <Pointer.fp 0x21d90 <LVAR -0x00f @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]}
            <Pointer.fp 0x21d92 <LVAR -0x00e @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]}
            <Pointer.fp 0x21d96 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]}
            <Pointer.fp 0x21d98 <LVAR -0x009 @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]}
            <Pointer.fp 0x21d9c <LVAR -0x00d @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]}
            <Pointer.fp 0x21da0 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]}
            <Pointer.fp 0x21da2 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21da4 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21da6 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21da8 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21daa <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21dac <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21dae <LVAR -0x005 @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]}
            <Pointer.fp 0x21db2 <LVAR -0x00b @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]|[@@-11]}
            <Call 0x21db4 0x22118>                                              {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]|[@@-11]}
                exp_READ_NOVRAM_INFO.FIU(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_4, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_2, &Fr)
            <MI 21dba  BRA     0x21d54>                                         {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]|[@@-11]}
        <POP 21dbc-21dee Naked>                              Σ0 Δ-64    →0x21d54 ←0x21d00
            <Pointer.fp 0x21dbc <LVAR -0x012 @ 1(r)>>        Δ-4                {[@@-18]}
            <Pointer.fp 0x21dbe <LVAR -0x011 @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]}
            <Pointer.fp 0x21dc0 <LVAR -0x00f @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]}
            <Pointer.fp 0x21dc2 <LVAR -0x00e @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]}
            <Pointer.fp 0x21dc6 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]}
            <Pointer.fp 0x21dc8 <LVAR -0x009 @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]}
            <Pointer.fp 0x21dcc <LVAR -0x00d @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]}
            <Pointer.fp 0x21dd0 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]}
            <Pointer.fp 0x21dd2 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21dd4 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21dd6 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21dd8 <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21dda <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21ddc <LVAR -0x00a @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21dde <LVAR -0x005 @>>             Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]}
            <Pointer.fp 0x21de2 <LVAR -0x00b @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]|[@@-11]}
            <Call 0x21de4 0x2219a>                                              {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]|[@@-11]}
                exp_READ_NOVRAM_INFO.SEQ(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_4, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_2, &Fr)
            <MI 21dea  BRA     0x21d54>                                         {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]|[@@-11]}
        <POP 21dee-21e24 Naked>                              Σ0         →0x21e26 ←0x21d00 ←0x21d00 ←0x21d00 ←0x21d00
            <MI 21dee  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x21df0 <LVAR -0x012 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-18]}
            <Pointer.fp 0x21df2 <LVAR -0x011 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-18]|[@@-17]}
            <Pointer.fp 0x21df4 <LVAR -0x00f @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]}
            <Pointer.fp 0x21df6 <LVAR -0x00e @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]}
            <Pointer.fp 0x21dfa <LVAR -0x00a @>>             Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]}
            <Pointer.fp 0x21dfc <LVAR -0x009 @>>             Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]}
            <Pointer.fp 0x21e00 <LVAR -0x00d @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]}
            <Pointer.fp 0x21e04 <LVAR -0x00a @>>             Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]}
            <Pointer.fp 0x21e06 <LVAR -0x00a @>>             Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21e08 <LVAR -0x00a @>>             Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21e0a <LVAR -0x00a @>>             Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21e0c <LVAR -0x00a @>>             Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21e0e <LVAR -0x00a @>>             Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21e10 <LVAR -0x00a @>>             Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]}
            <Pointer.fp 0x21e12 <LVAR -0x005 @>>             Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]}
            <Pointer.fp 0x21e16 <LVAR -0x00b @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]|[@@-11]}
            <Call 0x21e18 0x22560>                                              {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-10]|[@@-9]|[@@-13]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-10]|[@@-5]|[@@-11]}
            <POP 21e1e-21e22 StackAdj>                       Δ+66               {}
            <MI 21e22  BRA     0x21e26>                                         {}
        <POP 21e24-21e26 Naked>                              Σ0         ↓ ←0x21cf4 ←0x21d00 ←0x21d00 ←0x21d00 ←0x21d00 ←0x21d00 ←0x21d00
            <MI 21e24  CLR.B   (A6-0xb)>                                        {}
        <POP 21e26-21e2a Naked>                              Σ0         ↓ →0x21e34 ←0x21d54 ←0x21dee
            <MI 21e26  TST.B   (A6-0xb)>                                        {}
            <MI 21e28  BNE     0x21e34>                                         {}
        <POP 21e2a-21e34 Naked>                              Σ0         →0x21e7c
            <MI 21e2a  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x21e2c 0x214c4>                                              {[2, 'D0']}
            <POP 21e30-21e32 StackAdj>                       Δ+2                {}
            <MI 21e32  BRA     0x21e7c>                                         {}
        <POP 21e34-21e7c Naked>                              Σ0         ↓ ←0x21e26
            <MI 21e34  CLR.L   D2>                                              {}
            <MI 21e36  MOVE.B  (A6-0x12),D2>                                    {}
            <MI 21e38  MOVE.W  D2,(A5+D1.W+#0x18)>                              {}
            <MI 21e3c  CLR.L   D2>                                              {}
            <MI 21e3e  MOVE.B  (A6-0x11),D2>                                    {}
            <MI 21e40  ASL.W   #0x8,D2>                                         {}
            <MI 21e42  CLR.L   D3>                                              {}
            <MI 21e44  MOVE.B  (A6-0x10),D3>                                    {}
            <MI 21e48  ADD.W   D2,D3>                                           {}
            <MI 21e4a  MOVE.W  D3,(A5+D1.W+#0x1a)>                              {}
            <MI 21e4e  CLR.L   D2>                                              {}
            <MI 21e50  MOVE.B  (A6-0xf),D2>                                     {}
            <MI 21e52  MOVE.W  D2,(A5+D1.W+#0x1c)>                              {}
            <MI 21e56  CLR.L   D2>                                              {}
            <MI 21e58  MOVE.B  (A6-0xe),D2>                                     {}
            <MI 21e5c  MOVE.W  D2,(A5+D1.W+#0x1e)>                              {}
            <POP 21e60-21e62 StackAdj>                       Δ-2                {[-2-]}
            <MI 21e62  MOVE.B  (A6-0xd),(A7)>                                   {[-2-]}
            <MI 21e66  MOVE.B  (A6-0xc),(A7+0x1)>                               {[-2-]}
            <MI 21e6c  PEA.L   (A5+D1.W+#0x20)>              Δ-4                {[-2-]|[4, '^(A5+D1.W+#0x20)']}
            <Call 0x21e70 0x20634>                                              {[-2-]|[4, '^(A5+D1.W+#0x20)']}
            <POP 21e74-21e76 StackAdj>                       Δ+6                {}
            <MI 21e76  MOVE.B  #0x01,(A5+D1.W+#0x24)>                           {}
        <POP 21e7c-21e84 Naked>                              Σ0         ↓ ←0x21e2a
            <MI 21e7c  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x21e7e 0x21050>                                              {[2, 'D0']}
            <POP 21e82-21e84 StackAdj>                       Δ+2                {}
        <POP 21e84-21e8c Epilogue>                           Σ0         ←0x21ce2

0x21e8c


@ 21e8c
    <POP 21e8c-21eee Body>                                              
        <POP 21e8c-21ea2 Prologue>                           Σ0         ↓
        <POP 21ea2-21ea6 RegCacheLoad>                       Σ0         ↓
        <POP 21ea6-21ec8 Naked>                              Σ0         ↓
            <Const 0x21ea6 0x4.2>                            Δ-2                {[#4]}
            <Call 0x21eaa 0x21cb8>                                              {[#4]}
            <POP 21eac-21ead StackAdj>                       Δ+2                {}
            <Const 0x21ead 0x7.2>                            Δ-2                {[#7]}
            <Call 0x21eb0 0x21cb8>                                              {[#7]}
            <POP 21eb2-21eb3 StackAdj>                       Δ+2                {}
            <Const 0x21eb3 0x6.2>                            Δ-2                {[#6]}
            <Call 0x21eb6 0x21cb8>                                              {[#6]}
            <POP 21eb8-21eb9 StackAdj>                       Δ+2                {}
            <Const 0x21eb9 0x2.2>                            Δ-2                {[#2]}
            <Call 0x21ebc 0x21cb8>                                              {[#2]}
            <POP 21ebe-21ebf StackAdj>                       Δ+2                {}
            <Const 0x21ebf 0x3.2>                            Δ-2                {[#3]}
            <Call 0x21ec2 0x21cb8>                                              {[#3]}
            <POP 21ec4-21ec6 StackAdj>                       Δ+2                {}
            <MI 21ec6  MOVEQ.L #0x0c,D7>                                        {}
        <POP 21ec8-21ed8 Naked>                              Σ0         ↓ →0x21ede ←0x21ede
            <POP 21ec8-21eca StackAdj>                       Δ-2                {[-2-]}
            <MI 21eca  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x21ecc 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 21ed2-21ed4 StackAdj>                       Δ+2                {[-2-]}
            <MI 21ed4  TST.B   (A7)+>                        Δ+2                {}
            <MI 21ed6  BEQ     0x21ede>                                         {}
        <POP 21ed8-21ede Naked>                              Σ0         ↓
            <MI 21ed8  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x21eda 0x21cb8>                                              {[2, 'D7']}
            <POP 21edc-21ede StackAdj>                       Δ+2                {}
        <POP 21ede-21ee6 Naked>                              Σ0         ↓ →0x21ec8 ←0x21ec8
            <MI 21ede  ADDQ.B  #0x1,D7>                                         {}
            <MI 21ee0  CMPI.B  #0x0f,D7>                                        {}
            <MI 21ee4  BLE     0x21ec8>                                         {}
        <POP 21ee6-21eee Epilogue>                           Σ0         

0x21eee


@ 21eee
START
    <POP 21eee--0001 Body>                                              
        <POP 21eee-21ef8 Prologue>                           Σ0         
        <POP 21ef8-21f04 RegCacheLoad>                       Σ0         ↓
        <POP 21f04-21f3e Naked>                              Σ0 Δ-8     ↓ →0x21f54
            <Call 0x21f04 0x10398>                                              {}
                FSCALL_10398
            <Blob 0x21f0a [8] @>                             Δ-8                {[«8""»]}
            <POP 21f1a-21f1c StackAdj>                       Δ-6                {[«8""»]|[-6-]}
            <Call 0x21f1c 0x103c4>                                              {[«8""»]|[-6-]}
                GetArgv() : String
            <POP 21f22-21f24 StackAdj>                       Δ-4                {[«8""»]|[-10-]}
            <Lit 0x21f24 7>                                                     {[«8""»]|[-6-]|[$$CONVERT]}
            <Call 0x21f32 0x102c8>                                              {[«8""»]|[-6-]|[$$CONVERT]}
                StringEqual(a, b : String) : Byte
            <POP 21f38-21f3a StackAdj>                       Δ+8                {[«8""»]|[-2-]}
            <MI 21f3a  TST.B   (A7)+>                        Δ+2                {[«8""»]}
            <MI 21f3c  BEQ     0x21f54>                                         {[«8""»]}
        <POP 21f3e-21f54 Naked>                              Σ-8        →0x21fba
            <Const 0x21f3e 0x0.4>                            Δ-4                {[-8-]|[##0]}
            <Call 0x21f42 0x104d8>                                              {[-8-]|[##0]}
                ExpInit(a : Long)
            <POP 21f48-21f4a StackAdj>                       Δ+4                {[-8-]}
            <Call 0x21f4a 0x20bb4>                                              {[-8-]}
            <Call 0x21f4e 0x21e8c>                                              {[-8-]}
            <MI 21f52  BRA     0x21fba>                                         {[-8-]}
        <POP 21f54-21fba Naked>                              Σ-8        ↓ ←0x21f04
            <Call 0x21f54 0x105b6>                                              {[-8-]}
                R1000_Reset_L(void)
            <Blob 0x21f5a [10] @>                            Δ-10               {[-8-]|[«10""»]}
            <Blob 0x21f6a [10] @>                            Δ-10               {[-8-]|[«10""»]|[«10""»]}
            <POP 21f7a-21f7c StackAdj>                       Δ-4                {[-8-]|[«10""»]|[«10""»]|[-4-]}
            <Lit 0x21f7c 9>                                                     {[-8-]|[«10""»]|[«10""»]|[$$CONFIGURE]}
            <POP 21f86-21f88 StackAdj>                       Δ-4                {[-8-]|[«10""»]|[«10""»]|[$$CONFIGURE]|[-4-]}
            <Lit 0x21f88 9>                                                     {[-8-]|[«10""»]|[«10""»]|[$$CONFIGURE]|[$$NO_NOVRAM]}
            <POP 21f92-21f94 StackAdj>                       Δ-2                {[-8-]|[«10""»]|[«10""»]|[$$CONFIGURE]|[$$NO_NOVRAM]|[-2-]}
            <POP 21f94-21f95 StackAdj>                       Δ+2                {[-8-]|[«10""»]|[«10""»]|[$$CONFIGURE]|[$$NO_NOVRAM]}
            <Const 0x21f95 0x2.2>                            Δ-2                {[-8-]|[«10""»]|[«10""»]|[$$CONFIGURE]|[$$NO_NOVRAM]|[#2]}
            <MI 21f98  PEA.L   (A5+0xfd)>                    Δ-4                {[-8-]|[«10""»]|[«10""»]|[$$CONFIGURE]|[$$NO_NOVRAM]|[#2]|[4, '^(A5+0xfd)']}
            <Call 0x21f9c 0x103b0>                                              {[-8-]|[«10""»]|[«10""»]|[$$CONFIGURE]|[$$NO_NOVRAM]|[#2]|[4, '^(A5+0xfd)']}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 21fa2-21fa6 StackAdj>                       Δ+34               {[-8-]}
            <Const 0x21fa6 0x0.4>                            Δ-4                {[-8-]|[##0]}
            <Call 0x21faa 0x104d8>                                              {[-8-]|[##0]}
                ExpInit(a : Long)
            <POP 21fb0-21fb2 StackAdj>                       Δ+4                {[-8-]}
            <Call 0x21fb2 0x20bb4>                                              {[-8-]}
            <Call 0x21fb6 0x21b60>                                              {[-8-]}
        <POP 21fba-21fca Naked>                              Σ-8 Δ+8    ↓ ←0x21f3e
            <POP 21fba-21fbc StackAdj>                       Δ+6                {[-2-]}
            <MI 21fbc  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x21fbe 0x1.4>                            Δ-4                {[-2-]|[##1]}
            <Call 0x21fc2 0x103b8>                                              {[-2-]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 21fc8-21fca StackAdj>                       Δ+6                {}
        <POP 21fca-21fd0 Naked>                              Σ0         
            <Call 0x21fca 0x10284>                                              {}
                ?exit

0x22324


@ 22324
        <LVAR  0x012 1(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00e 2(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 2(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 22324-2241c Body>                                   Δ+22       
        <POP 22324-2233a Prologue>                           Σ0         ↓
        <POP 2233a-2234c RegCacheLoad>                       Σ0         ↓
        <POP 2234c-22358 Naked>                              Σ0         ↓ →0x2236a
            <POP 2234c-2234e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2234e 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 22354  TST.B   (A7)+>                        Δ+2                {}
            <MI 22356  BEQ     0x2236a>                                         {}
        <POP 22358-2236a Naked>                              Σ0 Δ-22    →0x2237a
            <Blob 0x22358 [22] @>                            Δ-22               {[«22""»]}
            <MI 22368  BRA     0x2237a>                                         {[«22""»]}
        <POP 2236a-2237a Naked>                              Σ0 Δ-22    ↓ ←0x2234c
            <Blob 0x2236a [22] @>                            Δ-22               {[«22""»]}
        <POP 2237a-22414 Naked>                              Σ-22 Δ+22  ↓ ←0x22358
            <POP 2237a-2237c StackAdj>                       Δ-4                {[-26-]}
            <Lit 0x2237c>                                                       {[-22-]|[$$…]}
                <Pointer.sp 0x2237c 4>                       Δ-4        
                <Const 0x22380 0x1.2>                        Δ-2        
                <Const 0x22384 0x15.2>                       Δ-2        
                <Call 0x22388 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2238e-22390 StackAdj>                   Δ+8        
            <Pointer.fp 0x22390 <LVAR -0x004 @ 4(r)>>        Δ-4                {[-22-]|[$$…]|[@@-4]}
            <Call 0x22392 0x10460>                                              {[-22-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 22398-2239c StackAdj>                       Δ+30               {}
            <MI 2239c  MOVE.B  (A6+0x10),-(A7)>              Δ-2                {[2, '(A6+0x10)']}
            <MI 223a0  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x10)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x223a2 4>                           Δ-4                {[2, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x223a6 0x0.4>                            Δ-4                {[2, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x223a8 0x0.4>                            Δ-4                {[2, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x223aa 0x10466>                                              {[2, '(A6+0x10)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 223ac-223ae StackAdj>                       Δ+16               {[2, '(A6+0x10)']}
            <MI 223ae  MOVE.W  (A6+0xe),(A7)>                                   {[2, '(A6+0xe)']}
            <MI 223b2  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0xe)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x223b4 4>                           Δ-4                {[2, '(A6+0xe)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x223b8 0x0.4>                            Δ-4                {[2, '(A6+0xe)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x223ba 0x1.4>                            Δ-4                {[2, '(A6+0xe)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##1]}
            <Call 0x223be 0x10466>                                              {[2, '(A6+0xe)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 223c0-223c2 StackAdj>                       Δ+16               {[2, '(A6+0xe)']}
            <MI 223c2  MOVE.B  (A6+0xc),(A7)>                                   {[-2-]}
            <MI 223c6  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x223c8 4>                           Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x223cc 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x223ce 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x223d0 0x10466>                                              {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 223d2-223d4 StackAdj>                       Δ+16               {[-2-]}
            <MI 223d4  MOVE.B  (A6+0xa),(A7)>                                   {[-2-]}
            <MI 223d8  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x223da 4>                           Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x223de 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x223e0 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x223e2 0x10466>                                              {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 223e4-223e6 StackAdj>                       Δ+16               {[-2-]}
            <MI 223e6  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <MI 223ea  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x223ec 4>                           Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x223f0 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x223f2 0x1.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##1]}
            <Call 0x223f6 0x10466>                                              {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 223f8-223fa StackAdj>                       Δ+16               {[2, '(A6+0x8)']}
            <MI 223fa  CLR.B   (A7)>                                            {[2, '(A6+0x8)']}
            <MI 223fc  MOVE.B  (A6+0x12),-(A7)>              Δ-2                {[2, '(A6+0x8)']|[2, '(A6+0x12)']}
            <MI 22400  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[2, '(A6+0x12)']|[4, '(A6-0x4)']}
            <Call 0x22402 0x104ba>                                              {[2, '(A6+0x8)']|[2, '(A6+0x12)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 22408-2240a StackAdj>                       Δ+8                {}
            <Pointer.fp 0x2240a <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x2240c 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 22412-22414 StackAdj>                       Δ+4                {}
        <POP 22414-2241c Epilogue>                           Σ0         

0x22444


@ 22444
        <LVAR  0x020 1(r)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 22444-22538 Body>                                   Δ+20       
        <POP 22444-2245a Prologue>                           Σ0         ↓
        <POP 2245a-2246a RegCacheLoad>                       Σ0         ↓
        <POP 2246a-22476 Naked>                              Σ0         ↓ →0x22484
            <POP 2246a-2246c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2246c 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 22472  TST.B   (A7)+>                        Δ+2                {}
            <MI 22474  BEQ     0x22484>                                         {}
        <POP 22476-22484 Naked>                              Σ0 Δ-20    →0x22490
            <Blob 0x22476 [20] @>                            Δ-20               {[«20""»]}
            <MI 22482  BRA     0x22490>                                         {[«20""»]}
        <POP 22484-22490 Naked>                              Σ0 Δ-20    ↓ ←0x2246a
            <Blob 0x22484 [20] @>                            Δ-20               {[«20""»]}
        <POP 22490-22530 Naked>                              Σ-20 Δ+20  ↓ ←0x22476
            <POP 22490-22492 StackAdj>                       Δ-4                {[-24-]}
            <Lit 0x22492>                                                       {[-20-]|[$$…]}
                <Pointer.sp 0x22492 4>                       Δ-4        
                <Const 0x22496 0x1.2>                        Δ-2        
                <Const 0x2249a 0x14.2>                       Δ-2        
                <Call 0x2249e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 224a4-224a6 StackAdj>                   Δ+8        
            <Pointer.fp 0x224a6 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-20-]|[$$…]|[@@-6]}
            <Call 0x224a8 0x10460>                                              {[-20-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 224ae-224b2 StackAdj>                       Δ+28               {}
            <MI 224b2  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 224b4  MOVE.B  (A6+0x20),-(A7)>              Δ-2                {[#0]|[2, '(A6+0x20)']}
            <MI 224b8  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x20)']|[4, '(A6-0x6)']}
            <Call 0x224ba 0x104ba>                                              {[#0]|[2, '(A6+0x20)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 224c0-224c2 StackAdj>                       Δ+4                {[#0]|[2, '(A6+0x20)']}
            <MI 224c2  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 224c4  MOVEA.L (A6+0x1c),A0>                                    {[4, '(A6-0x6)']}
            <MI 224c8  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x224ca 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x224cc 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x224ce 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 224d0-224d2 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 224d2  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 224d4  MOVEA.L (A6+0x18),A0>                                    {[4, '(A6-0x6)']}
            <MI 224d8  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x224da 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x224dc 0x1.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##1]}
            <Call 0x224e0 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##1]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 224e2-224e4 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 224e4  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 224e6  MOVEA.L (A6+0x14),A0>                                    {[4, '(A6-0x6)']}
            <MI 224ea  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x224ec 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x224ee 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x224f0 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 224f2-224f4 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 224f4  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 224f6  MOVEA.L (A6+0x10),A0>                                    {[4, '(A6-0x6)']}
            <MI 224fa  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x224fc 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x224fe 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x22500 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22502-22504 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22504  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22506  MOVEA.L (A6+0xc),A0>                                     {[4, '(A6-0x6)']}
            <MI 2250a  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x2250c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x2250e 0x1.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##1]}
            <Call 0x22512 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##1]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22514-22516 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22516  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22518  MOVEA.L (A6+0x8),A0>                                     {[4, '(A6-0x6)']}
            <MI 2251c  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Call 0x2251e 0x10478>                                              {[4, '(A6-0x6)']|[4, '^(A0)']}
                ExpOutputFlag(exp : Pointer; VAR status : Bool)
            <POP 22524-22526 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x22526 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x22528 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 2252e-22530 StackAdj>                       Δ+4                {}
        <POP 22530-22538 Epilogue>                           Σ0         

0x22560


@ 22560
        <LVAR  0x048 1(r)>
        <LVAR  0x044 4(r)>
        <LVAR  0x040 4(r)>
        <LVAR  0x03c 4(r)>
        <LVAR  0x038 4(r)>
        <LVAR  0x034 4(r)>
        <LVAR  0x030 4(r)>
        <LVAR  0x02c 4(r)>
        <LVAR  0x028 4(r)>
        <LVAR  0x024 4(r)>
        <LVAR  0x020 4(r)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 22560-226f6 Body>                                   Δ+20       
        <POP 22560-22576 Prologue>                           Σ0         ↓
        <POP 22576-2258a RegCacheLoad>                       Σ0         ↓
        <POP 2258a-22596 Naked>                              Σ0         ↓ →0x225a4
            <POP 2258a-2258c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2258c 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 22592  TST.B   (A7)+>                        Δ+2                {}
            <MI 22594  BEQ     0x225a4>                                         {}
        <POP 22596-225a4 Naked>                              Σ0 Δ-20    →0x225b0
            <Blob 0x22596 [20] @>                            Δ-20               {[«20""»]}
            <MI 225a2  BRA     0x225b0>                                         {[«20""»]}
        <POP 225a4-225b0 Naked>                              Σ0 Δ-20    ↓ ←0x2258a
            <Blob 0x225a4 [20] @>                            Δ-20               {[«20""»]}
        <POP 225b0-226ee Naked>                              Σ-20 Δ+20  ↓ ←0x22596
            <POP 225b0-225b2 StackAdj>                       Δ-4                {[-24-]}
            <Lit 0x225b2>                                                       {[-20-]|[$$…]}
                <Pointer.sp 0x225b2 4>                       Δ-4        
                <Const 0x225b6 0x1.2>                        Δ-2        
                <Const 0x225ba 0x14.2>                       Δ-2        
                <Call 0x225be 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 225c4-225c6 StackAdj>                   Δ+8        
            <Pointer.fp 0x225c6 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-20-]|[$$…]|[@@-6]}
            <Call 0x225c8 0x10460>                                              {[-20-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 225ce-225d2 StackAdj>                       Δ+28               {}
            <MI 225d2  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 225d4  MOVE.B  (A6+0x48),-(A7)>              Δ-2                {[#0]|[2, '(A6+0x48)']}
            <MI 225d8  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x48)']|[4, '(A6-0x6)']}
            <Call 0x225da 0x104ba>                                              {[#0]|[2, '(A6+0x48)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 225e0-225e2 StackAdj>                       Δ+4                {[#0]|[2, '(A6+0x48)']}
            <MI 225e2  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 225e4  MOVEA.L (A6+0x44),A0>                                    {[4, '(A6-0x6)']}
            <MI 225e8  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x225ea 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x225ec 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x225ee 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 225f0-225f2 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 225f2  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 225f4  MOVEA.L (A6+0x40),A0>                                    {[4, '(A6-0x6)']}
            <MI 225f8  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x225fa 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x225fc 0x1.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##1]}
            <Call 0x225fe 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##1]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22600-22602 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22602  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22604  MOVEA.L (A6+0x3c),A0>                                    {[4, '(A6-0x6)']}
            <MI 22608  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x2260a 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x2260c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x2260e 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22610-22612 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22612  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22614  MOVEA.L (A6+0x38),A0>                                    {[4, '(A6-0x6)']}
            <MI 22618  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x2261a 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x2261c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x2261e 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22620-22622 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22622  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22624  MOVEA.L (A6+0x34),A0>                                    {[4, '(A6-0x6)']}
            <MI 22628  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x2262a 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x2262c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x2262e 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22630-22632 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22632  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22634  MOVEA.L (A6+0x30),A0>                                    {[4, '(A6-0x6)']}
            <MI 22638  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x2263a 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x2263c 0x3.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##3]}
            <Call 0x22640 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##3]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22642-22644 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22644  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22646  MOVEA.L (A6+0x2c),A0>                                    {[4, '(A6-0x6)']}
            <MI 2264a  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x2264c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x2264e 0x1.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##1]}
            <Call 0x22650 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##1]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22652-22654 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22654  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22656  MOVEA.L (A6+0x28),A0>                                    {[4, '(A6-0x6)']}
            <MI 2265a  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x2265c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x2265e 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x22660 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22662-22664 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22664  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22666  MOVEA.L (A6+0x24),A0>                                    {[4, '(A6-0x6)']}
            <MI 2266a  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x2266c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x2266e 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x22670 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22672-22674 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22674  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22676  MOVEA.L (A6+0x20),A0>                                    {[4, '(A6-0x6)']}
            <MI 2267a  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x2267c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x2267e 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x22680 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22682-22684 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22684  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22686  MOVEA.L (A6+0x1c),A0>                                    {[4, '(A6-0x6)']}
            <MI 2268a  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x2268c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x2268e 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x22690 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 22692-22694 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 22694  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 22696  MOVEA.L (A6+0x18),A0>                                    {[4, '(A6-0x6)']}
            <MI 2269a  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x2269c 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x2269e 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x226a0 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 226a2-226a4 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 226a4  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 226a6  MOVEA.L (A6+0x14),A0>                                    {[4, '(A6-0x6)']}
            <MI 226aa  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x226ac 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x226ae 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x226b0 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 226b2-226b4 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 226b4  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 226b6  MOVEA.L (A6+0x10),A0>                                    {[4, '(A6-0x6)']}
            <MI 226ba  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x226bc 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x226be 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x226c0 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 226c2-226c4 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 226c4  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 226c6  MOVEA.L (A6+0xc),A0>                                     {[4, '(A6-0x6)']}
            <MI 226ca  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x226cc 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x226ce 0x1.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##1]}
            <Call 0x226d0 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##1]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 226d2-226d4 StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 226d4  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 226d6  MOVEA.L (A6+0x8),A0>                                     {[4, '(A6-0x6)']}
            <MI 226da  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Call 0x226dc 0x10478>                                              {[4, '(A6-0x6)']|[4, '^(A0)']}
                ExpOutputFlag(exp : Pointer; VAR status : Bool)
            <POP 226e2-226e4 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x226e4 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x226e6 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 226ec-226ee StackAdj>                       Δ+4                {}
        <POP 226ee-226f6 Epilogue>                           Σ0         

0x22704


@ 22704
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 22704-2276c Body>                                              
        <POP 22704-2271a Prologue>                           Σ0         ↓
        <POP 2271a-22764 Naked>                              Σ0         ↓
            <Blob 0x2271a [14] @>                            Δ-14               {[«14""»]}
            <Const 0x22726 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 2272a-2272c StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x2272c 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 2273e-22740 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22740  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22744  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22746  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22748  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x2274a 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 22750-22752 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x22752 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 22758-2275a StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x2275a 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 22760-22764 StackAdj>                       Δ+20               {}
        <POP 22764-2276c Epilogue>                           Σ0         

0x227c0


@ 227c0
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 227c0-228fc Body>                                              
        <POP 227c0-227d6 Prologue>                           Σ0         ↓
        <POP 227d6-227ec RegCacheLoad>                       Σ0         ↓
        <POP 227ec-2284c Naked>                              Σ0         ↓ →0x22894
            <Call 0x227ec 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x227f2 [18] @>                            Δ-18               {[«18""»]}
            <POP 227fe-22800 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x22800 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x2280c 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 2280e-2280f StackAdj>                       Δ+22       ↓       {}
            <Blob 0x2280f [14] @>                            Δ-14               {[«14""»]}
            <POP 2281e-22820 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x22820 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 2282a-2282c StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 2282c  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x22830 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 22836-22838 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x22838 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2283e-22840 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x22840 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22842-22844 StackAdj>                       Δ+18               {}
            <MI 22844  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 22848  CMPA.W  #0x01,A0>                                        {}
            <MI 2284a  BEQ     0x22894>                                         {}
        <POP 2284c-22894 Naked>                              Σ0         ↓
            <Blob 0x2284c [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x2285c [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 2286c-2286e StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x2286e 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 22878-2287a StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x2287a>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x2287a 12>                      Δ-4        
                <Const 0x2287e 0x1.2>                        Δ-2        
                <Const 0x22880 0x1e.2>                       Δ-2        
                <Call 0x22882 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22884-22886 StackAdj>                   Δ+8        
            <Call 0x22886 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 2288c-2288e StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x2288e 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22890-22894 StackAdj>                       Δ+48               {}
        <POP 22894-228f4 Naked>                              Σ0         ↓ ←0x227ec
            <Blob 0x22894 [14] @>                            Δ-14               {[«14""»]}
            <POP 228a4-228a6 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x228a6 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 228b0-228b2 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 228b2  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x228b6 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 228bc-228be StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x228be 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 228c4-228c6 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x228c6 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 228c8-228c9 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x228c9 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x228d8 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 228dc-228de StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x228de 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x228ec 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 228f2-228f4 StackAdj>                       Δ+30               {}
        <POP 228f4-228fc Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.867cc6a8ecfdf687
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 1e ee              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 29 24              |  )$    |		.PTR	0x22924
00020010					code.end:
00020010 00 02 28 fc              |  (     |		.PTR	0x228fc
00020014 00 00 00 f0              |        |		.CONST	0x000000f0
00020018					programfailurehandler:
00020018 00 02 27 04              |  '     |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 27 c0              |  '     |		.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 49 4f                    |IO      |		.TXT	'IO'
0002010c 43 20                    |C       |		.XXX[0x2]
0002010e 54 59                    |TY      |		.TXT	'TY'
00020110 50 20                    |P       |		.XXX[0x2]
00020112 56 41                    |VA      |		.TXT	'VA'
00020114 4c 20                    |L       |		.XXX[0x2]
00020116 46 49                    |FI      |		.TXT	'FI'
00020118 55 20                    |U       |		.XXX[0x2]
0002011a 53 45                    |SE      |		.TXT	'SE'
0002011c 51 20                    |Q       |		.XXX[0x2]
0002011e 4d 45 4d 30              |MEM0    |		.TXT	'MEM0'
00020122 4d 45 4d 31              |MEM1    |		.TXT	'MEM1'
00020126 4d 45 4d 32              |MEM2    |		.TXT	'MEM2'
0002012a 4d 45 4d 33              |MEM3    |		.TXT	'MEM3'
0002012e 52 45 53 48 41 20        |RESHA   |		.TXT	'RESHA '
00020134 3f 3f                    |??      |		.TXT	'??'
00020136 3f 20                    |?       |		.XXX[0x2]
00020138 2a 2a 2a 20 69 6e 76 61  |*** inva|		.TXT	'*** invalid RESHA board info ptr'
00020158 2a 2a 2a 20 69 6e 76 61  |*** inva|		.TXT	'*** invalid TCP board info ptr'
00020176 74 75 72 6e 20 57 52 49  |turn WRI|		.TXT	'turn WRITE PROTECT switch OFF (on front of RESHA) ... '
000201ac 20 4f                    | O      |		.TXT	' O'
000201ae 4b 20                    |K       |		.XXX[0x2]
000201b0 2a 2a 2a 20 45 52 52 4f  |*** ERRO|		.TXT	'*** ERROR code from REE_UPLOAD:_'
000201d0 52 45 53 48 41 20 50 52  |RESHA PR|		.XXX[0x20]
000201d8 4f 4d 20 77 72 69 74 65  |OM write|
000201e0 20 66 61 69 6c 65 64 2c  | failed,|
000201e8 20 74 72 79 20 61 67 61  | try aga|
000201f0 69 6e 5f 20              |in_     |		.XXX[0x4]
000201f4 74 75 72 6e 20 57 52 49  |turn WRI|		.TXT	'turn WRITE PROTECT switch ON (on front of RESHA) ...'
00020228 20 4f                    | O      |		.TXT	' O'
0002022a 4b 20                    |K       |		.XXX[0x2]
0002022c 69 6e 76 61 6c 69 64 20  |invalid |		.TXT	'invalid RESHA board info ptr'
00020248 50 6c 65 61 73 65 20 65  |Please e|		.TXT	'Please enter an integer in the range ['
0002026e 20 5b                    | [      |		.TXT	' ['
00020270 5d 20 3a 5f              |] :_    |		.TXT	'] :_'
00020274 20 2e 2e 5f              | .._    |		.TXT	' .._'
00020278 5d 20                    |]       |		.TXT	'] '
0002027a 20 5b                    | [      |		.TXT	' ['
0002027c 5d 20 3a 5f              |] :_    |		.TXT	'] :_'
00020280 30 30 3a 30 30 3a 30 30  |00:00:00|		.TXT	'00:00:00_ '
0002028a 45 6e 74 65 72 20 70 61  |Enter pa|		.TXT	'Enter part number '
0002029c 45 6e 74 65 72 20 73 65  |Enter se|		.TXT	'Enter serial number '
000202b0 45 6e 74 65 72 20 61 72  |Enter ar|		.TXT	'Enter artwork revision'
000202c6 45 6e 74 65 72 20 45 43  |Enter EC|		.TXT	'Enter ECO level '
000202d6 45 6e 74 65 72 20 62 75  |Enter bu|		.TXT	'Enter build date as DD-MMM-YY '
000202f4 20 4e 4f 56 52 41 4d 20  | NOVRAM |		.TXT	' NOVRAM checksum error, enter new data, defaults are best guess '
00020334 42 6f 61 72 64 73 20 61  |Boards a|		.TXT	'Boards are: '
00020340 20 20 20 20 30 20 3d 3e  |    0 =>|		.TXT	'    0 => TYP      1 => VAL'
0002035a 20 20 20 20 32 20 3d 3e  |    2 =>|		.TXT	'    2 => SEQ      3 => FIU'
00020374 20 20 20 20 34 20 3d 3e  |    4 =>|		.TXT	'    4 => MEM0     5 => MEM1 '
00020390 20 20 20 20 36 20 3d 3e  |    6 =>|		.TXT	'    6 => MEM2     7 => MEM3 '
000203ac 20 20 20 20              |        |		.TXT	'    '
000203b0 38 20 3d 3e              |8 =>    |		.TXT	'8 =>'
000203b4 20 49 4f 43              | IOC    |		.TXT	' IOC'
000203b8 20 20 20 20 38 20 3d 3e  |    8 =>|		.TXT	'    8 => IOC      9 => RESHA'
000203d4 45 6e 74 65 72 20 62 6f  |Enter bo|		.TXT	'Enter board :_'
000203e2 45 6e 74 65 72 20 54 43  |Enter TC|		.TXT	'Enter TCP/IP board serial number'
00020402 69 6e 76 61 6c 69 64 20  |invalid |		.TXT	'invalid TCP board info ptr'
0002041c 43 68 65 63 6b 73 75 6d  |Checksum|		.TXT	'Checksum error'
0002042a 20 20 20 20 20 20 20 20  |        |		.TXT	'        Part   Serial  Artwork    ECO     Date of '
0002045c 42 6f 61 72 64 20 20 4e  |Board  N|		.TXT	'Board  Number  Number  Revision  Level  Manufacture '
00020490 54 43 50 2f 49 50 20 28  |TCP/IP (|		.TXT	'TCP/IP (CMC) board serial number is_'
000204b4 4f 70 74 69              |Opti    |		.TXT	'Opti'
000204b8 6f 6e 73 20              |ons     |		.TXT	'ons '
000204bc 61 72 65 3a              |are:    |		.TXT	'are:'
000204c0 20 20 20 20 30 20 3d 3e  |    0 =>|		.TXT	'    0 => Exit.'
000204ce 20 20 20 20 31 20 3d 3e  |    1 =>|		.TXT	'    1 => Display novram contents. '
000204f0 20 20 20 20 32 20 3d 3e  |    2 =>|		.TXT	'    2 => Modify  novram contents. '
00020512 20 20 20 20 33 20 3d 3e  |    3 =>|		.TXT	'    3 => Change TCP/IP board serial number. '
0002053e 45 6e 74 65 72 20 6f 70  |Enter op|		.TXT	'Enter option :_ '
0002054e 43 4f 4e 56 45 52 54 20  |CONVERT |		.TXT	'CONVERT '
00020556 43 4f 4e 46 49 47 55 52  |CONFIGUR|		.TXT	'CONFIGURE '
00020560 4e 4f 5f 4e 4f 56 52 41  |NO_NOVRA|		.TXT	'NO_NOVRAM '
0002056a 00 00 00 00 00 05        |        |		.XXX[0x6]
00020570 00 04 00 09 00 00 00 03  |        |		.XXX[0xa8]
00020578 00 02 00 00 00 00 00 00  |        |
00020580 00 00 00 08 00 08 00 08  |        |
00020588 00 08 00 00 00 00 00 02  |        |
00020590 00 02 00 01 00 00 00 02  |        |
00020598 00 03 00 00 00 00 00 00  |        |
000205a0 00 00 00 01 00 01 00 01  |        |
000205a8 00 01 00 00 00 00 00 05  |        |
000205b0 00 05 00 01 00 00 00 01  |        |
000205b8 00 00 00 00 00 00 00 00  |        |
000205c0 00 00 00 03 00 03 00 03  |        |
000205c8 00 03 00 29 00 00 00 2d  |   )   -|
000205d0 00 2c 00 31 00 00 00 2b  | , 1   +|
000205d8 00 2a 00 00 00 00 00 00  | *      |
000205e0 00 00 00 2f 00 2f 00 2f  |   / / /|
000205e8 00 2f 00 02 00 00 00 01  | /      |
000205f0 00 01 00 02 00 00 00 02  |        |
000205f8 00 01 00 00 00 00 00 00  |        |
00020600 00 00 00 02 00 02 00 02  |        |
00020608 00 02 00 01 00 00 00 00  |        |
00020610 00 01 00 02 00 00 00 00  |        |
00020618 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0x10]
00020628 00 00 06 07 02 03 0c 0d  |        |		.XXX[0x8]
00020630 0e 0f 04 00              |        |		.XXX[0x4]
00020634 ; --------------------------------------------------------------------------------------
00020634 ; OMSI PASCAL Function
00020634 ;    <LVAR  0x00d 1(r)>
00020634 ;    <LVAR  0x00c 1(r)>
00020634 ;    <LVAR  0x008 4(r)>
00020634 ; --------------------------------------------------------------------------------------
00020634 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00020638 bf d5                    |        |		CMPA.L	(A5),A7
0002063a 62 06                    |b       |		BHI	0x20642
0002063c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020640 4e 76                    |Nv      |		TRAPV
00020642 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00020646 48 e7 f0 80              |H       |		MOVEM.L	A0+D3+D2+D1+D0,-(A7)
0002064a 76 01                    |v       |		MOVEQ.L	#0x01,D3
0002064c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020650 42 50                    |BP      |		CLR.W	(A0)
00020652 42 80                    |B       |		CLR.L	D0
00020654 10 2e 00 0c              | .      |		MOVE.B	(A6+0xc),D0
00020658 32 00                    |2       |		MOVE.W	D0,D1
0002065a e2 41                    | A      |		ASR.W	#0x1,D1
0002065c c7 28 00 02              | (      |		AND.B	D3,(A0+0x2)
00020660 e3 09                    |        |		LSL.B	#0x1,D1
00020662 83 28 00 02              | (      |		OR.B	D1,(A0+0x2)
00020666 c0 43                    | C      |		AND.W	D3,D0
00020668 e7 40                    | @      |		ASL.W	#0x3,D0
0002066a 42 81                    |B       |		CLR.L	D1
0002066c 12 2e 00 0d              | .      |		MOVE.B	(A6+0xd),D1
00020670 34 01                    |4       |		MOVE.W	D1,D2
00020672 ea 42                    | B      |		ASR.W	#0x5,D2
00020674 02 42 00 07              | B      |		ANDI.W	#0x0007,D2
00020678 d4 40                    | @      |		ADD.W	D0,D2
0002067a 02 68 fe 1f 00 02        | h      |		ANDI.W	#0xfe1f,(A0+0x2)
00020680 eb 4a                    | J      |		LSL.W	#0x5,D2
00020682 85 68 00 02              | h      |		OR.W	D2,(A0+0x2)
00020686 02 41 00 1f              | A      |		ANDI.W	#0x001f,D1
0002068a 02 28 00 e0 00 03        | (      |		ANDI.B	#0xe0,(A0+0x3)
00020690 83 28 00 03              | (      |		OR.B	D1,(A0+0x3)
00020694 4c df 01 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0
00020698 4e 5e                    |N^      |		UNLK	A6
0002069a 4e 75                    |Nu      |		RTS
0002069c ; --------------------------------------------------------------------------------------
0002069c ; OMSI PASCAL Function
0002069c ;    <LVAR  0x00a 4(w)>
0002069c ;    <LVAR  0x008 1(r)>
0002069c ; --------------------------------------------------------------------------------------
0002069c 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
000206a0 bf d5                    |        |		CMPA.L	(A5),A7
000206a2 62 06                    |b       |		BHI	0x206aa
000206a4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000206a8 4e 76                    |Nv      |		TRAPV
000206aa de fc 00 26              |   &    |		ADDA.W	#0x26,A7
000206ae 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
000206b2 72 01                    |r       |		MOVEQ.L	#0x01,D1
000206b4 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000206b8 48 80                    |H       |		EXTB.W	D0
000206ba 0c 40 00 0f              | @      |		CMPI.W	#0x000f,D0
000206be 62 00 00 e6              |b       |		BHI	switch@0x206c4[0x1]
000206c2 d0 40                    | @      |		ADD.W	D0,D0
000206c4 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000206cc 00 ae                    |        |		.CONST	0xae			; [0x0] -> 0x2077a
000206ce 00 da                    |        |		.CONST	0xda			; [0x1] -> 0x207a6
000206d0 00 76                    | v      |		.CONST	0x76			; [0x2] -> 0x20742
000206d2 00 62                    | b      |		.CONST	0x62			; [0x3] -> 0x2072e
000206d4 00 20                    |        |		.CONST	0x20			; [0x4] -> 0x206ec
000206d6 00 da                    |        |		.CONST	0xda			; [0x5] -> 0x207a6
000206d8 00 36                    | 6      |		.CONST	0x36			; [0x6] -> 0x20702
000206da 00 4c                    | L      |		.CONST	0x4c			; [0x7] -> 0x20718
000206dc 00 da                    |        |		.CONST	0xda			; [0x8] -> 0x207a6
000206de 00 da                    |        |		.CONST	0xda			; [0x9] -> 0x207a6
000206e0 00 da                    |        |		.CONST	0xda			; [0xa] -> 0x207a6
000206e2 00 da                    |        |		.CONST	0xda			; [0xb] -> 0x207a6
000206e4 00 8a                    |        |		.CONST	0x8a			; [0xc] -> 0x20756
000206e6 00 9c                    |        |		.CONST	0x9c			; [0xd] -> 0x20768
000206e8 00 a2                    |        |		.CONST	0xa2			; [0xe] -> 0x2076e
000206ea 00 a8                    |        |		.CONST	0xa8			; [0xf] -> 0x20774
000206ec					switch@0x206c4[0x4]:
000206ec 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000206ee 1e ba fa 1a              |        |		MOVE.B	0x2010a,(A7)
000206f2 1f 7a fa 17 00 01        | z      |		MOVE.B	0x2010b,(A7+0x1)
000206f8 1f 7a fa 12 00 02        | z      |		MOVE.B	0x2010c,(A7+0x2)
000206fe 60 00 00 b8              |`       |		BRA	0x207b8
00020702					switch@0x206c4[0x6]:
00020702 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020704 1e ba fa 08              |        |		MOVE.B	0x2010e,(A7)
00020708 1f 7a fa 05 00 01        | z      |		MOVE.B	0x2010f,(A7+0x1)
0002070e 1f 7a fa 00 00 02        | z      |		MOVE.B	0x20110,(A7+0x2)
00020714 60 00 00 a2              |`       |		BRA	0x207b8
00020718					switch@0x206c4[0x7]:
00020718 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002071a 1e ba f9 f6              |        |		MOVE.B	0x20112,(A7)
0002071e 1f 7a f9 f3 00 01        | z      |		MOVE.B	0x20113,(A7+0x1)
00020724 1f 7a f9 ee 00 02        | z      |		MOVE.B	0x20114,(A7+0x2)
0002072a 60 00 00 8c              |`       |		BRA	0x207b8
0002072e					switch@0x206c4[0x3]:
0002072e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020730 1e ba f9 e4              |        |		MOVE.B	0x20116,(A7)
00020734 1f 7a f9 e1 00 01        | z      |		MOVE.B	0x20117,(A7+0x1)
0002073a 1f 7a f9 dc 00 02        | z      |		MOVE.B	0x20118,(A7+0x2)
00020740 60 76                    |`v      |		BRA	0x207b8
00020742					switch@0x206c4[0x2]:
00020742 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020744 1e ba f9 d4              |        |		MOVE.B	0x2011a,(A7)
00020748 1f 7a f9 d1 00 01        | z      |		MOVE.B	0x2011b,(A7+0x1)
0002074e 1f 7a f9 cc 00 02        | z      |		MOVE.B	0x2011c,(A7+0x2)
00020754 60 62                    |`b      |		BRA	0x207b8
00020756					switch@0x206c4[0xc]:
00020756 2f 3a f9 c6              |/:      |		MOVE.L	0x2011e,-(A7)
0002075a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002075c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020760 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020762 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00020766 60 5c                    |`\      |		BRA	0x207c4
00020768					switch@0x206c4[0xd]:
00020768 2f 3a f9 b8              |/:      |		MOVE.L	0x20122,-(A7)
0002076c 60 ec                    |`       |		BRA	0x2075a
0002076e					switch@0x206c4[0xe]:
0002076e 2f 3a f9 b6              |/:      |		MOVE.L	0x20126,-(A7)
00020772 60 e6                    |`       |		BRA	0x2075a
00020774					switch@0x206c4[0xf]:
00020774 2f 3a f9 b4              |/:      |		MOVE.L	0x2012a,-(A7)
00020778 60 e0                    |`       |		BRA	0x2075a
0002077a					switch@0x206c4[0x0]:
0002077a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002077c 20 4f                    | O      |		MOVEA.L	A7,A0
0002077e 43 fa f9 ae              |C       |		LEA.L	0x2012e,A1
00020782 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020784 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020786 51 c8 ff fc              |Q       |		DBF	D0,0x20784
0002078a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002078c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020790 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020792 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00020796 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002079c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002079e 2d 5f 00 0a              |-_      |		MOVE.L	(A7)+,(A6+0xa)
000207a2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000207a4 60 2c                    |`,      |		BRA	0x207d2
000207a6					switch@0x206c4[0x1]:
000207a6					switch@0x206c4[0x5]:
000207a6					switch@0x206c4[0x8]:
000207a6					switch@0x206c4[0x9]:
000207a6					switch@0x206c4[0xa]:
000207a6					switch@0x206c4[0xb]:
000207a6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000207a8 1e ba f9 8a              |        |		MOVE.B	0x20134,(A7)
000207ac 1f 7a f9 87 00 01        | z      |		MOVE.B	0x20135,(A7+0x1)
000207b2 1f 7a f9 82 00 02        | z      |		MOVE.B	0x20136,(A7+0x2)
000207b8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000207ba 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000207be 3f 01                    |?       |		MOVE.W	D1,-(A7)
000207c0 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
000207c4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000207ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207cc 2d 5f 00 0a              |-_      |		MOVE.L	(A7)+,(A6+0xa)
000207d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207d2 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
000207d6 4e 5e                    |N^      |		UNLK	A6
000207d8 4e 75                    |Nu      |		RTS
000207da ; --------------------------------------------------------------------------------------
000207da ; OMSI PASCAL Function
000207da ;    <LVAR  0x00c 2(w)>
000207da ;    <LVAR  0x008 4(r)>
000207da ; --------------------------------------------------------------------------------------
000207da 4e 56 ff ea              |NV      |		LINK.W	A6,#0xffea		; Spelunked
000207de bf d5                    |        |		CMPA.L	(A5),A7
000207e0 62 06                    |b       |		BHI	0x207e8
000207e2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000207e6 4e 76                    |Nv      |		TRAPV
000207e8 de fc 00 12              |        |		ADDA.W	#0x12,A7
000207ec 48 e7 81 00              |H       |		MOVEM.L	D7+D0,-(A7)
000207f0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000207f2 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000207f6 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
000207fc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207fe 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020800 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00020804 3e 00                    |>       |		MOVE.W	D0,D7
00020806 30 07                    |0       |		MOVE.W	D7,D0
00020808 48 c0                    |H       |		EXTW.L	D0
0002080a d1 ac 00 02              |        |		ADD.L	D0,(A4+0x2)
0002080e 3d 40 00 0c              |=@      |		MOVE.W	D0,(A6+0xc)
00020812 4c df 00 81              |L       |		MOVEM.L	(A7)+,D0+D7
00020816 4e 5e                    |N^      |		UNLK	A6
00020818 4e 75                    |Nu      |		RTS
0002081a ; --------------------------------------------------------------------------------------
0002081a ; OMSI PASCAL Function
0002081a ;    <LVAR -0x006 4(rw)>
0002081a ;    <LVAR -0x007 1(w)>
0002081a ;    <LVAR -0x008 @ 1(w) 2(r)>
0002081a ; --------------------------------------------------------------------------------------
0002081a 4e 56 ff da              |NV      |		LINK.W	A6,#0xffda
0002081e bf d5                    |        |		CMPA.L	(A5),A7
00020820 62 06                    |b       |		BHI	0x20828
00020822 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020826 4e 76                    |Nv      |		TRAPV
00020828 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
0002082c 48 e7 c0 c8              |H       |		MOVEM.L	A4+A1+A0+D1+D0,-(A7)
00020830 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00020834 43 fa ff a4              |C       |		LEA.L	0x207da,A1
00020838 22 3c 00 00 00 ff        |"<      |		MOVE.L	#0xff,D1
0002083e 2d 7c 00 00 00 56 ff fa  |-|   V  |		MOVE.L	#0x56,(A6-0x6)
00020846 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020848 48 78 01 01              |Hx      |		PEA.L	0x101
0002084c 28 48                    |(H      |		MOVEA.L	A0,A4
0002084e 4e 91                    |N       |		JSR	(A1)
00020850 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020852 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020854 41 81                    |A       |		CHK.W	D1,D0
00020856 3b 40 00 50              |;@ P    |		MOVE.W	D0,(A5+0x50)
0002085a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002085c 48 78 01 02              |Hx      |		PEA.L	0x102
00020860 28 48                    |(H      |		MOVEA.L	A0,A4
00020862 4e 91                    |N       |		JSR	(A1)
00020864 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020866 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020868 e1 40                    | @      |		ASL.W	#0x8,D0
0002086a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002086c 48 78 01 03              |Hx      |		PEA.L	0x103
00020870 28 48                    |(H      |		MOVEA.L	A0,A4
00020872 4e 91                    |N       |		JSR	(A1)
00020874 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020876 d0 5f                    | _      |		ADD.W	(A7)+,D0
00020878 0c 40 ff ff              | @      |		CMPI.W	#0xffff,D0
0002087c 63 02                    |c       |		BLS	0x20880
0002087e 4e 4f                    |NO      |		TRAP	#15
00020880 3b 40 00 52              |;@ R    |		MOVE.W	D0,(A5+0x52)
00020884 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020886 48 78 01 04              |Hx      |		PEA.L	0x104
0002088a 28 48                    |(H      |		MOVEA.L	A0,A4
0002088c 4e 91                    |N       |		JSR	(A1)
0002088e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020890 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020892 41 81                    |A       |		CHK.W	D1,D0
00020894 3b 40 00 54              |;@ T    |		MOVE.W	D0,(A5+0x54)
00020898 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002089a 48 78 01 05              |Hx      |		PEA.L	0x105
0002089e 28 48                    |(H      |		MOVEA.L	A0,A4
000208a0 4e 91                    |N       |		JSR	(A1)
000208a2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208a4 30 1f                    |0       |		MOVE.W	(A7)+,D0
000208a6 41 81                    |A       |		CHK.W	D1,D0
000208a8 3b 40 00 56              |;@ V    |		MOVE.W	D0,(A5+0x56)
000208ac 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000208ae 48 78 01 06              |Hx      |		PEA.L	0x106
000208b2 28 48                    |(H      |		MOVEA.L	A0,A4
000208b4 4e 91                    |N       |		JSR	(A1)
000208b6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208b8 30 1f                    |0       |		MOVE.W	(A7)+,D0
000208ba 41 81                    |A       |		CHK.W	D1,D0
000208bc 10 80                    |        |		MOVE.B	D0,(A0)
000208be 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000208c0 48 78 01 07              |Hx      |		PEA.L	0x107
000208c4 28 48                    |(H      |		MOVEA.L	A0,A4
000208c6 4e 91                    |N       |		JSR	(A1)
000208c8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208ca 30 1f                    |0       |		MOVE.W	(A7)+,D0
000208cc 41 81                    |A       |		CHK.W	D1,D0
000208ce 1d 40 ff f9              | @      |		MOVE.B	D0,(A6-0x7)
000208d2 3f 10                    |?       |		MOVE.W	(A0),-(A7)
000208d4 48 6d 00 58              |Hm X    |		PEA.L	(A5+0x58)
000208d8 4e ba fd 5a              |N  Z    |		JSR	0x20634
000208dc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208de 48 78 01 08              |Hx      |		PEA.L	0x108
000208e2 28 48                    |(H      |		MOVEA.L	A0,A4
000208e4 4e 91                    |N       |		JSR	(A1)
000208e6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208e8 30 1f                    |0       |		MOVE.W	(A7)+,D0
000208ea 41 81                    |A       |		CHK.W	D1,D0
000208ec 10 80                    |        |		MOVE.B	D0,(A0)
000208ee 42 2d 00 5c              |B- \    |		CLR.B	(A5+0x5c)
000208f2 20 2e ff fa              | .      |		MOVE.L	(A6-0x6),D0
000208f6 c0 81                    |        |		AND.L	D1,D0
000208f8 66 04                    |f       |		BNE	0x208fe
000208fa 52 2d 00 5c              |R- \    |		ADDQ.B	#0x1,(A5+0x5c)
000208fe 4c df 13 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A4
00020902 4e 5e                    |N^      |		UNLK	A6
00020904 4e 75                    |Nu      |		RTS
00020906 ; --------------------------------------------------------------------------------------
00020906 ; OMSI PASCAL Function
00020906 ;    <LVAR  0x00c 2(w)>
00020906 ;    <LVAR  0x008 4(r)>
00020906 ;    <LVAR -0x004 @ 2(r)>
00020906 ; --------------------------------------------------------------------------------------
00020906 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2		; Spelunked
0002090a bf d5                    |        |		CMPA.L	(A5),A7
0002090c 62 06                    |b       |		BHI	0x20914
0002090e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020912 4e 76                    |Nv      |		TRAPV
00020914 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020918 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0002091c 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00020920 42 51                    |BQ      |		CLR.W	(A1)
00020922 20 14                    |        |		MOVE.L	(A4),D0
00020924 d0 ae 00 08              |        |		ADD.L	(A6+0x8),D0
00020928 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002092a 20 49                    | I      |		MOVEA.L	A1,A0
0002092c 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002092e 52 97                    |R       |		ADDQ.L	#0x1,(A7)
00020930 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020934 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0002093a de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002093e 30 11                    |0       |		MOVE.W	(A1),D0
00020940 48 c0                    |H       |		EXTW.L	D0
00020942 d1 ac 00 06              |        |		ADD.L	D0,(A4+0x6)
00020946 3d 40 00 0c              |=@      |		MOVE.W	D0,(A6+0xc)
0002094a 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
0002094e 4e 5e                    |N^      |		UNLK	A6
00020950 4e 75                    |Nu      |		RTS
00020952 ; --------------------------------------------------------------------------------------
00020952 ; OMSI PASCAL Function
00020952 ;    <LVAR -0x006 4(r)>
00020952 ;    <LVAR -0x007 1(w)>
00020952 ;    <LVAR -0x008 1(w) 2(r)>
00020952 ;    <LVAR -0x00c @ 4(w)>
00020952 ; --------------------------------------------------------------------------------------
00020952 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
00020956 bf d5                    |        |		CMPA.L	(A5),A7
00020958 62 06                    |b       |		BHI	0x20960
0002095a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002095e 4e 76                    |Nv      |		TRAPV
00020960 de fc 00 4c              |   L    |		ADDA.W	#0x4c,A7
00020964 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00020968 43 ee ff f4              |C       |		LEA.L	(A6-0xc),A1
0002096c 45 fa ff 98              |E       |		LEA.L	0x20906,A2
00020970 47 ed 00 24              |G  $    |		LEA.L	(A5+0x24),A3
00020974 22 3c 00 00 00 ff        |"<      |		MOVE.L	#0xff,D1
0002097a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002097c 4e b9 00 02 20 24        |N    $  |		JSR	0x22024
00020982 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00020984 66 32                    |f2      |		BNE	0x209b8
00020986 41 fa f7 d0              |A       |		LEA.L	0x20158,A0
0002098a 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002098c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002098e 51 c8 ff fc              |Q       |		DBF	D0,0x2098c
00020992 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020994 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020998 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002099c 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
000209a0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000209a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209a8 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000209ae de fc 00 24              |   $    |		ADDA.W	#0x24,A7
000209b2 42 13                    |B       |		CLR.B	(A3)
000209b4 60 00 00 c6              |`       |		BRA	0x20a7c
000209b8 42 ae ff fa              |B       |		CLR.L	(A6-0x6)
000209bc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000209be 48 78 00 00              |Hx      |		PEA.L	0x0
000209c2 28 49                    |(I      |		MOVEA.L	A1,A4
000209c4 4e 92                    |N       |		JSR	(A2)
000209c6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000209c8 30 1f                    |0       |		MOVE.W	(A7)+,D0
000209ca 41 81                    |A       |		CHK.W	D1,D0
000209cc 3b 40 00 18              |;@      |		MOVE.W	D0,(A5+0x18)
000209d0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000209d2 48 78 00 01              |Hx      |		PEA.L	0x1
000209d6 28 49                    |(I      |		MOVEA.L	A1,A4
000209d8 4e 92                    |N       |		JSR	(A2)
000209da 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000209dc 30 1f                    |0       |		MOVE.W	(A7)+,D0
000209de e1 40                    | @      |		ASL.W	#0x8,D0
000209e0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000209e2 48 78 00 02              |Hx      |		PEA.L	0x2
000209e6 28 49                    |(I      |		MOVEA.L	A1,A4
000209e8 4e 92                    |N       |		JSR	(A2)
000209ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000209ec d0 5f                    | _      |		ADD.W	(A7)+,D0
000209ee 0c 40 ff ff              | @      |		CMPI.W	#0xffff,D0
000209f2 63 02                    |c       |		BLS	0x209f6
000209f4 4e 4f                    |NO      |		TRAP	#15
000209f6 3b 40 00 1a              |;@      |		MOVE.W	D0,(A5+0x1a)
000209fa 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000209fc 48 78 00 03              |Hx      |		PEA.L	0x3
00020a00 28 49                    |(I      |		MOVEA.L	A1,A4
00020a02 4e 92                    |N       |		JSR	(A2)
00020a04 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a06 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020a08 41 81                    |A       |		CHK.W	D1,D0
00020a0a 3b 40 00 1c              |;@      |		MOVE.W	D0,(A5+0x1c)
00020a0e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020a10 48 78 00 04              |Hx      |		PEA.L	0x4
00020a14 28 49                    |(I      |		MOVEA.L	A1,A4
00020a16 4e 92                    |N       |		JSR	(A2)
00020a18 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a1a 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020a1c 41 81                    |A       |		CHK.W	D1,D0
00020a1e 3b 40 00 1e              |;@      |		MOVE.W	D0,(A5+0x1e)
00020a22 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020a24 48 78 00 05              |Hx      |		PEA.L	0x5
00020a28 28 49                    |(I      |		MOVEA.L	A1,A4
00020a2a 4e 92                    |N       |		JSR	(A2)
00020a2c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a2e 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020a30 41 81                    |A       |		CHK.W	D1,D0
00020a32 1d 40 ff f8              | @      |		MOVE.B	D0,(A6-0x8)
00020a36 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020a38 48 78 00 06              |Hx      |		PEA.L	0x6
00020a3c 28 49                    |(I      |		MOVEA.L	A1,A4
00020a3e 4e 92                    |N       |		JSR	(A2)
00020a40 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a42 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020a44 41 81                    |A       |		CHK.W	D1,D0
00020a46 1d 40 ff f9              | @      |		MOVE.B	D0,(A6-0x7)
00020a4a 3f 2e ff f8              |?.      |		MOVE.W	(A6-0x8),-(A7)
00020a4e 48 6d 00 20              |Hm      |		PEA.L	(A5+0x20)
00020a52 4e ba fb e0              |N       |		JSR	0x20634
00020a56 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a58 48 78 00 07              |Hx      |		PEA.L	0x7
00020a5c 28 49                    |(I      |		MOVEA.L	A1,A4
00020a5e 4e 92                    |N       |		JSR	(A2)
00020a60 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020a62 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020a64 41 81                    |A       |		CHK.W	D1,D0
00020a66 1d 40 ff f8              | @      |		MOVE.B	D0,(A6-0x8)
00020a6a 42 13                    |B       |		CLR.B	(A3)
00020a6c 20 2e ff fa              | .      |		MOVE.L	(A6-0x6),D0
00020a70 c0 81                    |        |		AND.L	D1,D0
00020a72 0c 80 00 00 00 aa        |        |		CMPI.L	#0x000000aa,D0
00020a78 66 02                    |f       |		BNE	0x20a7c
00020a7a 52 13                    |R       |		ADDQ.B	#0x1,(A3)
00020a7c 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
00020a80 4e 5e                    |N^      |		UNLK	A6
00020a82 4e 75                    |Nu      |		RTS
00020a84 ; --------------------------------------------------------------------------------------
00020a84 ; OMSI PASCAL Function
00020a84 ;    <LVAR  0x008 1(r)>
00020a84 ;    <LVAR -0x003 @ 1(r)>
00020a84 ;    <LVAR -0x004 1(r)>
00020a84 ;    <LVAR -0x005 @ 1(r)>
00020a84 ;    <LVAR -0x006 @ 1(r)>
00020a84 ;    <LVAR -0x007 @ 1(r)>
00020a84 ;    <LVAR -0x008 1(r)>
00020a84 ;    <LVAR -0x009 @ 1(r)>
00020a84 ;    <LVAR -0x00a @ 1(r)>
00020a84 ; --------------------------------------------------------------------------------------
00020a84 4e 56 ff b6              |NV      |		LINK.W	A6,#0xffb6		; Spelunked
00020a88 bf d5                    |        |		CMPA.L	(A5),A7
00020a8a 62 06                    |b       |		BHI	0x20a92
00020a8c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020a90 4e 76                    |Nv      |		TRAPV
00020a92 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00020a96 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00020a9a 41 ee ff f6              |A       |		LEA.L	(A6-0xa),A0
00020a9e 43 ee ff f7              |C       |		LEA.L	(A6-0x9),A1
00020aa2 45 ee ff f9              |E       |		LEA.L	(A6-0x7),A2
00020aa6 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
00020aaa 49 ee ff fb              |I       |		LEA.L	(A6-0x5),A4
00020aae 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00020ab2 48 80                    |H       |		EXTB.W	D0
00020ab4 32 00                    |2       |		MOVE.W	D0,D1
00020ab6 55 41                    |UA      |		SUBQ.W	#0x2,D1
00020ab8 0c 41 00 0d              | A      |		CMPI.W	#0x000d,D1
00020abc 63 02                    |c       |		BLS	0x20ac0
00020abe					switch@0x20ac2[0x2]:
00020abe					switch@0x20ac2[0x3]:
00020abe					switch@0x20ac2[0x6]:
00020abe					switch@0x20ac2[0x7]:
00020abe					switch@0x20ac2[0x8]:
00020abe					switch@0x20ac2[0x9]:
00020abe 4e 4e                    |NN      |		TRAP	#14
00020ac0 d2 41                    | A      |		ADD.W	D1,D1
00020ac2 32 3b 10 06 4e fb 10 02  |2;  N   |		SWITCH	D1.W
00020aca 00 4c                    | L      |		.CONST	0x4c			; [0x0] -> 0x20b16
00020acc 00 62                    | b      |		.CONST	0x62			; [0x1] -> 0x20b2c
00020ace ff f4                    |        |		.CONST	0xfff4			; [0x2] -> 0x20abe
00020ad0 ff f4                    |        |		.CONST	0xfff4			; [0x3] -> 0x20abe
00020ad2 00 1c                    |        |		.CONST	0x1c			; [0x4] -> 0x20ae6
00020ad4 00 36                    | 6      |		.CONST	0x36			; [0x5] -> 0x20b00
00020ad6 ff f4                    |        |		.CONST	0xfff4			; [0x6] -> 0x20abe
00020ad8 ff f4                    |        |		.CONST	0xfff4			; [0x7] -> 0x20abe
00020ada ff f4                    |        |		.CONST	0xfff4			; [0x8] -> 0x20abe
00020adc ff f4                    |        |		.CONST	0xfff4			; [0x9] -> 0x20abe
00020ade 00 78                    | x      |		.CONST	0x78			; [0xa] -> 0x20b42
00020ae0 00 78                    | x      |		.CONST	0x78			; [0xb] -> 0x20b42
00020ae2 00 78                    | x      |		.CONST	0x78			; [0xc] -> 0x20b42
00020ae4 00 78                    | x      |		.CONST	0x78			; [0xd] -> 0x20b42
00020ae6					switch@0x20ac2[0x4]:
00020ae6 48 50                    |HP      |		PEA.L	(A0)
00020ae8 48 51                    |HQ      |		PEA.L	(A1)
00020aea 48 52                    |HR      |		PEA.L	(A2)
00020aec 48 53                    |HS      |		PEA.L	(A3)
00020aee 48 54                    |HT      |		PEA.L	(A4)
00020af0 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00020af4 4e b9 00 02 22 1c        |N   "   |		JSR	exp_READ_NOVRAM_DATA.TYP(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
00020afa de fc 00 18              |        |		ADDA.W	#0x18,A7
00020afe 60 5c                    |`\      |		BRA	0x20b5c
00020b00					switch@0x20ac2[0x5]:
00020b00 48 50                    |HP      |		PEA.L	(A0)
00020b02 48 51                    |HQ      |		PEA.L	(A1)
00020b04 48 52                    |HR      |		PEA.L	(A2)
00020b06 48 53                    |HS      |		PEA.L	(A3)
00020b08 48 54                    |HT      |		PEA.L	(A4)
00020b0a 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00020b0e 4e b9 00 02 22 9e        |N   "   |		JSR	exp_READ_NOVRAM_DATA.VAL(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
00020b14 60 e4                    |`       |		BRA	0x20afa
00020b16					switch@0x20ac2[0x0]:
00020b16 48 50                    |HP      |		PEA.L	(A0)
00020b18 48 51                    |HQ      |		PEA.L	(A1)
00020b1a 48 52                    |HR      |		PEA.L	(A2)
00020b1c 48 53                    |HS      |		PEA.L	(A3)
00020b1e 48 54                    |HT      |		PEA.L	(A4)
00020b20 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00020b24 4e b9 00 02 21 cc        |N   !   |		JSR	exp_READ_NOVRAM_DATA.SEQ(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
00020b2a 60 ce                    |`       |		BRA	0x20afa
00020b2c					switch@0x20ac2[0x1]:
00020b2c 48 50                    |HP      |		PEA.L	(A0)
00020b2e 48 51                    |HQ      |		PEA.L	(A1)
00020b30 48 52                    |HR      |		PEA.L	(A2)
00020b32 48 53                    |HS      |		PEA.L	(A3)
00020b34 48 54                    |HT      |		PEA.L	(A4)
00020b36 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00020b3a 4e b9 00 02 21 4a        |N   !J  |		JSR	exp_READ_NOVRAM_DATA.FIU(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
00020b40 60 b8                    |`       |		BRA	0x20afa
00020b42					switch@0x20ac2[0xa]:
00020b42					switch@0x20ac2[0xb]:
00020b42					switch@0x20ac2[0xc]:
00020b42					switch@0x20ac2[0xd]:
00020b42 1f 00                    |        |		MOVE.B	D0,-(A7)
00020b44 48 50                    |HP      |		PEA.L	(A0)
00020b46 48 51                    |HQ      |		PEA.L	(A1)
00020b48 48 52                    |HR      |		PEA.L	(A2)
00020b4a 48 53                    |HS      |		PEA.L	(A3)
00020b4c 48 54                    |HT      |		PEA.L	(A4)
00020b4e 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00020b52 4e b9 00 02 24 44        |N   $D  |		JSR	0x22444
00020b58 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020b5c c1 fc 00 0e              |        |		MULS.W	#0xe,D0
00020b60 42 81                    |B       |		CLR.L	D1
00020b62 12 10                    |        |		MOVE.B	(A0),D1
00020b64 3b 81 00 18              |;       |		MOVE.W	D1,(A5+D0.W+#0x18)
00020b68 42 81                    |B       |		CLR.L	D1
00020b6a 12 11                    |        |		MOVE.B	(A1),D1
00020b6c e1 41                    | A      |		ASL.W	#0x8,D1
00020b6e 42 82                    |B       |		CLR.L	D2
00020b70 14 2e ff f8              | .      |		MOVE.B	(A6-0x8),D2
00020b74 d4 41                    | A      |		ADD.W	D1,D2
00020b76 3b 82 00 1a              |;       |		MOVE.W	D2,(A5+D0.W+#0x1a)
00020b7a 42 81                    |B       |		CLR.L	D1
00020b7c 12 12                    |        |		MOVE.B	(A2),D1
00020b7e 3b 81 00 1c              |;       |		MOVE.W	D1,(A5+D0.W+#0x1c)
00020b82 42 81                    |B       |		CLR.L	D1
00020b84 12 13                    |        |		MOVE.B	(A3),D1
00020b86 3b 81 00 1e              |;       |		MOVE.W	D1,(A5+D0.W+#0x1e)
00020b8a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020b8c 1e 94                    |        |		MOVE.B	(A4),(A7)
00020b8e 1f 6e ff fc 00 01        | n      |		MOVE.B	(A6-0x4),(A7+0x1)
00020b94 48 75 00 20              |Hu      |		PEA.L	(A5+D0.W+#0x20)
00020b98 4e ba fa 9a              |N       |		JSR	0x20634
00020b9c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020b9e 12 2e ff fd              | .      |		MOVE.B	(A6-0x3),D1
00020ba2 48 81                    |H       |		EXTB.W	D1
00020ba4 43 bc 00 01              |C       |		CHK.W	#0x1,D1
00020ba8 1b 81 00 24              |   $    |		MOVE.B	D1,(A5+D0.W+#0x24)
00020bac 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00020bb0 4e 5e                    |N^      |		UNLK	A6
00020bb2 4e 75                    |Nu      |		RTS
00020bb4 ; --------------------------------------------------------------------------------------
00020bb4 ; OMSI PASCAL Function
00020bb4 ;    <LVAR -0x006 @>
00020bb4 ; --------------------------------------------------------------------------------------
00020bb4 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
00020bb8 bf d5                    |        |		CMPA.L	(A5),A7
00020bba 62 06                    |b       |		BHI	0x20bc2
00020bbc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020bc0 4e 76                    |Nv      |		TRAPV
00020bc2 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00020bc6 48 e7 83 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D0,-(A7)
00020bca 43 fa fe b8              |C       |		LEA.L	0x20a84,A1
00020bce 4e ba fc 4a              |N  J    |		JSR	0x2081a
00020bd2 1f 3c 00 06              | <      |		MOVE.B	#0x06,-(A7)
00020bd6 4e 91                    |N       |		JSR	(A1)
00020bd8 1e bc 00 07              |        |		MOVE.B	#0x07,(A7)
00020bdc 4e 91                    |N       |		JSR	(A1)
00020bde 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
00020be2 4e 91                    |N       |		JSR	(A1)
00020be4 1e bc 00 02              |        |		MOVE.B	#0x02,(A7)
00020be8 4e 91                    |N       |		JSR	(A1)
00020bea 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020bec 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00020bee 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020bf0 1f 07                    |        |		MOVE.B	D7,-(A7)
00020bf2 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020bf8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020bfa 4a 1f                    |J       |		TST.B	(A7)+
00020bfc 67 06                    |g       |		BEQ	0x20c04
00020bfe 1f 07                    |        |		MOVE.B	D7,-(A7)
00020c00 4e 91                    |N       |		JSR	(A1)
00020c02 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020c04 52 07                    |R       |		ADDQ.B	#0x1,D7
00020c06 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
00020c0a 6f e2                    |o       |		BLE	0x20bee
00020c0c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020c0e 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
00020c14 4a 1f                    |J       |		TST.B	(A7)+
00020c16 66 0c                    |f       |		BNE	0x20c24
00020c18 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020c1a 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
00020c20 4a 1f                    |J       |		TST.B	(A7)+
00020c22 67 68                    |gh      |		BEQ	0x20c8c
00020c24 48 78 00 00              |Hx      |		PEA.L	0x0
00020c28 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00020c2c 4e b9 00 02 20 78        |N    x  |		JSR	0x22078
00020c32 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c34 4e ba fd 1c              |N       |		JSR	0x20952
00020c38 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020c3a 4e b9 00 02 20 4e        |N    N  |		JSR	0x2204e
00020c40 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00020c42 66 32                    |f2      |		BNE	0x20c76
00020c44 41 fa f5 30              |A  0    |		LEA.L	0x20176,A0
00020c48 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00020c4a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020c4c 51 c8 ff fc              |Q       |		DBF	D0,0x20c4a
00020c50 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020c52 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020c56 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020c5a 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00020c5e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c64 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c66 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020c6c de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00020c70 42 ad 00 f8              |B       |		CLR.L	(A5+0xf8)
00020c74 60 16                    |`       |		BRA	0x20c8c
00020c76 2f 06                    |/       |		MOVE.L	D6,-(A7)
00020c78 41 ed 00 f8              |A       |		LEA.L	(A5+0xf8),A0
00020c7c 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020c7e 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00020c82 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00020c88 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020c8c 4c df 03 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A0+A1
00020c90 4e 5e                    |N^      |		UNLK	A6
00020c92 4e 75                    |Nu      |		RTS
00020c94 ; --------------------------------------------------------------------------------------
00020c94 ; OMSI PASCAL Function
00020c94 ;    <LVAR  0x00a 4(r)>
00020c94 ;    <LVAR  0x008 2(r)>
00020c94 ; --------------------------------------------------------------------------------------
00020c94 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0		; Spelunked
00020c98 bf d5                    |        |		CMPA.L	(A5),A7
00020c9a 62 06                    |b       |		BHI	0x20ca2
00020c9c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020ca0 4e 76                    |Nv      |		TRAPV
00020ca2 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00020ca6 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00020caa 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
00020cae 3f 2e 00 08              |?.      |		MOVE.W	(A6+0x8),-(A7)
00020cb2 4e b9 00 01 05 98        |N       |		JSR	WriteConfig(what: Word; where : Long)
00020cb8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020cba 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00020cbe 48 c0                    |H       |		EXTW.L	D0
00020cc0 d1 94                    |        |		ADD.L	D0,(A4)
00020cc2 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00020cc6 4e 5e                    |N^      |		UNLK	A6
00020cc8 4e 75                    |Nu      |		RTS
00020cca ; --------------------------------------------------------------------------------------
00020cca ; OMSI PASCAL Function
00020cca ;    <LVAR  0x010 1(r)>
00020cca ;    <LVAR  0x00f 1(r)>
00020cca ;    <LVAR  0x00e 1(r)>
00020cca ;    <LVAR  0x00c 1(r)>
00020cca ;    <LVAR  0x00a 1(r)>
00020cca ;    <LVAR  0x009 1(r)>
00020cca ;    <LVAR  0x008 1(r)>
00020cca ;    <LVAR -0x006 @ 4(rw)>
00020cca ; --------------------------------------------------------------------------------------
00020cca 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
00020cce bf d5                    |        |		CMPA.L	(A5),A7
00020cd0 62 06                    |b       |		BHI	0x20cd8
00020cd2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020cd6 4e 76                    |Nv      |		TRAPV
00020cd8 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00020cdc 48 e7 81 c8              |H       |		MOVEM.L	A4+A1+A0+D7+D0,-(A7)
00020ce0 41 ee ff fa              |A       |		LEA.L	(A6-0x6),A0
00020ce4 43 fa ff ae              |C       |		LEA.L	0x20c94,A1
00020ce8 20 bc 00 00 00 56        |     V  |		MOVE.L	#0x56,(A0)
00020cee 48 78 01 01              |Hx      |		PEA.L	0x101
00020cf2 42 80                    |B       |		CLR.L	D0
00020cf4 10 2e 00 10              | .      |		MOVE.B	(A6+0x10),D0
00020cf8 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020cfa 28 48                    |(H      |		MOVEA.L	A0,A4
00020cfc 4e 91                    |N       |		JSR	(A1)
00020cfe 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d00 48 78 01 02              |Hx      |		PEA.L	0x102
00020d04 42 80                    |B       |		CLR.L	D0
00020d06 10 2e 00 0e              | .      |		MOVE.B	(A6+0xe),D0
00020d0a 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020d0c 28 48                    |(H      |		MOVEA.L	A0,A4
00020d0e 4e 91                    |N       |		JSR	(A1)
00020d10 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d12 48 78 01 03              |Hx      |		PEA.L	0x103
00020d16 42 80                    |B       |		CLR.L	D0
00020d18 10 2e 00 0f              | .      |		MOVE.B	(A6+0xf),D0
00020d1c 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020d1e 28 48                    |(H      |		MOVEA.L	A0,A4
00020d20 4e 91                    |N       |		JSR	(A1)
00020d22 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d24 48 78 01 04              |Hx      |		PEA.L	0x104
00020d28 42 80                    |B       |		CLR.L	D0
00020d2a 10 2e 00 0c              | .      |		MOVE.B	(A6+0xc),D0
00020d2e 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020d30 28 48                    |(H      |		MOVEA.L	A0,A4
00020d32 4e 91                    |N       |		JSR	(A1)
00020d34 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d36 48 78 01 05              |Hx      |		PEA.L	0x105
00020d3a 42 80                    |B       |		CLR.L	D0
00020d3c 10 2e 00 0a              | .      |		MOVE.B	(A6+0xa),D0
00020d40 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020d42 28 48                    |(H      |		MOVEA.L	A0,A4
00020d44 4e 91                    |N       |		JSR	(A1)
00020d46 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d48 48 78 01 06              |Hx      |		PEA.L	0x106
00020d4c 42 80                    |B       |		CLR.L	D0
00020d4e 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00020d52 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020d54 28 48                    |(H      |		MOVEA.L	A0,A4
00020d56 4e 91                    |N       |		JSR	(A1)
00020d58 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d5a 48 78 01 07              |Hx      |		PEA.L	0x107
00020d5e 42 80                    |B       |		CLR.L	D0
00020d60 10 2e 00 09              | .      |		MOVE.B	(A6+0x9),D0
00020d64 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020d66 28 48                    |(H      |		MOVEA.L	A0,A4
00020d68 4e 91                    |N       |		JSR	(A1)
00020d6a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d6c 20 10                    |        |		MOVE.L	(A0),D0
00020d6e 44 80                    |D       |		NEG.L	D0
00020d70 02 80 00 00 00 ff        |        |		ANDI.L	#0x000000ff,D0
00020d76 3e 00                    |>       |		MOVE.W	D0,D7
00020d78 48 78 01 08              |Hx      |		PEA.L	0x108
00020d7c 3f 07                    |?       |		MOVE.W	D7,-(A7)
00020d7e 28 48                    |(H      |		MOVEA.L	A0,A4
00020d80 4e 91                    |N       |		JSR	(A1)
00020d82 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d84 4c df 13 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1+A4
00020d88 4e 5e                    |N^      |		UNLK	A6
00020d8a 4e 75                    |Nu      |		RTS
00020d8c ; --------------------------------------------------------------------------------------
00020d8c ; OMSI PASCAL Function
00020d8c ;    <LVAR -0x008 @ 4(r)>
00020d8c ; --------------------------------------------------------------------------------------
00020d8c 4e 56 ff 8e              |NV      |		LINK.W	A6,#0xff8e
00020d90 bf d5                    |        |		CMPA.L	(A5),A7
00020d92 62 06                    |b       |		BHI	0x20d9a
00020d94 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020d98 4e 76                    |Nv      |		TRAPV
00020d9a de fc 00 6a              |   j    |		ADDA.W	#0x6a,A7
00020d9e 48 e7 e1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7)
00020da2 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020da8 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
00020dac 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00020db2 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020db4 74 03                    |t       |		MOVEQ.L	#0x03,D2
00020db6 9e fc 00 36              |   6    |		SUBA.W	#0x36,A7
00020dba 20 4f                    | O      |		MOVEA.L	A7,A0
00020dbc 43 fa f3 b8              |C       |		LEA.L	0x20176,A1
00020dc0 70 34                    |p4      |		MOVEQ.L	#0x34,D0
00020dc2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020dc4 51 c8 ff fc              |Q       |		DBF	D0,0x20dc2
00020dc8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020dca 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020dce 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020dd0 3f 3c 00 35              |?< 5    |		MOVE.W	#0x35,-(A7)
00020dd4 4e 92                    |N       |		JSR	(A2)
00020dd6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020dd8 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00020dde de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00020de2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020de4 4e b9 00 02 1f d0        |N       |		JSR	0x21fd0
00020dea 10 1f                    |        |		MOVE.B	(A7)+,D0
00020dec b0 01                    |        |		CMP.B	D1,D0
00020dee 66 02                    |f       |		BNE	0x20df2
00020df0 60 f0                    |`       |		BRA	0x20de2
00020df2 48 78 4c 4b              |HxLK    |		PEA.L	0x4c4b
00020df6 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
00020dfc 1e ba f3 ae              |        |		MOVE.B	0x201ac,(A7)
00020e00 1f 7a f3 ab 00 01        | z      |		MOVE.B	0x201ad,(A7+0x1)
00020e06 1f 7a f3 a6 00 02        | z      |		MOVE.B	0x201ae,(A7+0x2)
00020e0c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020e0e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020e12 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020e14 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020e16 4e 92                    |N       |		JSR	(A2)
00020e18 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e1a 4e 94                    |N       |		JSR	(A4)
00020e1c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e1e 48 78 00 00              |Hx      |		PEA.L	0x0
00020e22 48 53                    |HS      |		PEA.L	(A3)
00020e24 4e b9 00 02 20 a0        |N       |		JSR	0x220a0
00020e2a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e2c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020e2e 4a 93                    |J       |		TST.L	(A3)
00020e30 67 6c                    |gl      |		BEQ	0x20e9e
00020e32 20 13                    |        |		MOVE.L	(A3),D0
00020e34 0c 80 00 00 00 02        |        |		CMPI.L	#0x00000002,D0
00020e3a 67 62                    |gb      |		BEQ	0x20e9e
00020e3c 41 fa f3 92              |A       |		LEA.L	0x201d0,A0
00020e40 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020e42 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020e44 51 c8 ff fc              |Q       |		DBF	D0,0x20e42
00020e48 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020e4a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020e4e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020e50 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00020e54 4e 92                    |N       |		JSR	(A2)
00020e56 2e 93                    |.       |		MOVE.L	(A3),(A7)
00020e58 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020e5e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e60 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020e66 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e68 4e 94                    |N       |		JSR	(A4)
00020e6a 20 4f                    | O      |		MOVEA.L	A7,A0
00020e6c 43 fa f3 62              |C  b    |		LEA.L	0x201d0,A1
00020e70 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00020e72 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020e74 51 c8 ff fc              |Q       |		DBF	D0,0x20e72
00020e78 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020e7a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020e7e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020e80 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
00020e84 4e 92                    |N       |		JSR	(A2)
00020e86 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020e88 1e 81                    |        |		MOVE.B	D1,(A7)
00020e8a 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020e90 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020e92 10 1f                    |        |		MOVE.B	(A7)+,D0
00020e94 48 80                    |H       |		EXTB.W	D0
00020e96 41 81                    |A       |		CHK.W	D1,D0
00020e98 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00020e9c 1e 00                    |        |		MOVE.B	D0,D7
00020e9e 4a 07                    |J       |		TST.B	D7
00020ea0 66 00 ff 7c              |f  |    |		BNE	0x20e1e
00020ea4 41 fa f3 82              |A       |		LEA.L	0x20228,A0
00020ea8 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020eaa 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020eac 51 c8 ff fc              |Q       |		DBF	D0,0x20eaa
00020eb0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020eb2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020eb6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020eb8 3f 3c 00 34              |?< 4    |		MOVE.W	#0x34,-(A7)
00020ebc 4e 92                    |N       |		JSR	(A2)
00020ebe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ec0 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00020ec6 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00020eca 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020ecc 4e b9 00 02 1f d0        |N       |		JSR	0x21fd0
00020ed2 4a 1f                    |J       |		TST.B	(A7)+
00020ed4 66 02                    |f       |		BNE	0x20ed8
00020ed6 60 f2                    |`       |		BRA	0x20eca
00020ed8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020eda 1e ba f3 4c              |   L    |		MOVE.B	0x20228,(A7)
00020ede 1f 7a f3 49 00 01        | z I    |		MOVE.B	0x20229,(A7+0x1)
00020ee4 1f 7a f3 44 00 02        | z D    |		MOVE.B	0x2022a,(A7+0x2)
00020eea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020eec 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020ef0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020ef2 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020ef4 4e 92                    |N       |		JSR	(A2)
00020ef6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ef8 4e 94                    |N       |		JSR	(A4)
00020efa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020efc 4c df 1f 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4
00020f00 4e 5e                    |N^      |		UNLK	A6
00020f02 4e 75                    |Nu      |		RTS
00020f04 ; --------------------------------------------------------------------------------------
00020f04 ; OMSI PASCAL Function
00020f04 ;    <LVAR  0x00a 4(r)>
00020f04 ;    <LVAR  0x008 2(r)>
00020f04 ; --------------------------------------------------------------------------------------
00020f04 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8		; Spelunked
00020f08 bf d5                    |        |		CMPA.L	(A5),A7
00020f0a 62 06                    |b       |		BHI	0x20f12
00020f0c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020f10 4e 76                    |Nv      |		TRAPV
00020f12 de fc 00 16              |        |		ADDA.W	#0x16,A7
00020f16 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00020f1a 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
00020f1e 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020f20 52 97                    |R       |		ADDQ.L	#0x1,(A7)
00020f22 20 14                    |        |		MOVE.L	(A4),D0
00020f24 d0 ae 00 0a              |        |		ADD.L	(A6+0xa),D0
00020f28 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020f2a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020f2e 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00020f34 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020f38 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00020f3c 48 c0                    |H       |		EXTW.L	D0
00020f3e d1 ac 00 04              |        |		ADD.L	D0,(A4+0x4)
00020f42 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00020f46 4e 5e                    |N^      |		UNLK	A6
00020f48 4e 75                    |Nu      |		RTS
00020f4a ; --------------------------------------------------------------------------------------
00020f4a ; OMSI PASCAL Function
00020f4a ;    <LVAR  0x010 1(r)>
00020f4a ;    <LVAR  0x00f 1(r)>
00020f4a ;    <LVAR  0x00e 1(r)>
00020f4a ;    <LVAR  0x00c 1(r)>
00020f4a ;    <LVAR  0x00a 1(r)>
00020f4a ;    <LVAR  0x009 1(r)>
00020f4a ;    <LVAR  0x008 1(r)>
00020f4a ;    <LVAR -0x006 4(rw)>
00020f4a ;    <LVAR -0x00a @ 4(w)>
00020f4a ; --------------------------------------------------------------------------------------
00020f4a 4e 56 ff b0              |NV      |		LINK.W	A6,#0xffb0
00020f4e bf d5                    |        |		CMPA.L	(A5),A7
00020f50 62 06                    |b       |		BHI	0x20f58
00020f52 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020f56 4e 76                    |Nv      |		TRAPV
00020f58 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00020f5c 48 e7 81 e8              |H       |		MOVEM.L	A4+A2+A1+A0+D7+D0,-(A7)
00020f60 43 ee ff f6              |C       |		LEA.L	(A6-0xa),A1
00020f64 45 fa ff 9e              |E       |		LEA.L	0x20f04,A2
00020f68 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f6a 4e b9 00 02 20 24        |N    $  |		JSR	0x22024
00020f70 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00020f72 66 30                    |f0      |		BNE	0x20fa4
00020f74 41 fa f2 d2              |A       |		LEA.L	0x20248,A0
00020f78 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020f7a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020f7c 51 c8 ff fc              |Q       |		DBF	D0,0x20f7a
00020f80 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00020f84 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f86 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020f8a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020f8e 3f 3c 00 1c              |?<      |		MOVE.W	#0x1c,-(A7)
00020f92 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020f98 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f9a 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020fa0 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00020fa4 2d 7c 00 00 00 56 ff fa  |-|   V  |		MOVE.L	#0x56,(A6-0x6)
00020fac 48 78 00 00              |Hx      |		PEA.L	0x0
00020fb0 42 80                    |B       |		CLR.L	D0
00020fb2 10 2e 00 10              | .      |		MOVE.B	(A6+0x10),D0
00020fb6 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020fb8 28 49                    |(I      |		MOVEA.L	A1,A4
00020fba 4e 92                    |N       |		JSR	(A2)
00020fbc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020fbe 48 78 00 01              |Hx      |		PEA.L	0x1
00020fc2 42 80                    |B       |		CLR.L	D0
00020fc4 10 2e 00 0e              | .      |		MOVE.B	(A6+0xe),D0
00020fc8 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020fca 28 49                    |(I      |		MOVEA.L	A1,A4
00020fcc 4e 92                    |N       |		JSR	(A2)
00020fce 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020fd0 48 78 00 02              |Hx      |		PEA.L	0x2
00020fd4 42 80                    |B       |		CLR.L	D0
00020fd6 10 2e 00 0f              | .      |		MOVE.B	(A6+0xf),D0
00020fda 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020fdc 28 49                    |(I      |		MOVEA.L	A1,A4
00020fde 4e 92                    |N       |		JSR	(A2)
00020fe0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020fe2 48 78 00 03              |Hx      |		PEA.L	0x3
00020fe6 42 80                    |B       |		CLR.L	D0
00020fe8 10 2e 00 0c              | .      |		MOVE.B	(A6+0xc),D0
00020fec 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020fee 28 49                    |(I      |		MOVEA.L	A1,A4
00020ff0 4e 92                    |N       |		JSR	(A2)
00020ff2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020ff4 48 78 00 04              |Hx      |		PEA.L	0x4
00020ff8 42 80                    |B       |		CLR.L	D0
00020ffa 10 2e 00 0a              | .      |		MOVE.B	(A6+0xa),D0
00020ffe 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021000 28 49                    |(I      |		MOVEA.L	A1,A4
00021002 4e 92                    |N       |		JSR	(A2)
00021004 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021006 48 78 00 05              |Hx      |		PEA.L	0x5
0002100a 42 80                    |B       |		CLR.L	D0
0002100c 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021010 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021012 28 49                    |(I      |		MOVEA.L	A1,A4
00021014 4e 92                    |N       |		JSR	(A2)
00021016 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021018 48 78 00 06              |Hx      |		PEA.L	0x6
0002101c 42 80                    |B       |		CLR.L	D0
0002101e 10 2e 00 09              | .      |		MOVE.B	(A6+0x9),D0
00021022 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021024 28 49                    |(I      |		MOVEA.L	A1,A4
00021026 4e 92                    |N       |		JSR	(A2)
00021028 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002102a 20 2e ff fa              | .      |		MOVE.L	(A6-0x6),D0
0002102e 44 80                    |D       |		NEG.L	D0
00021030 02 80 00 00 00 ff        |        |		ANDI.L	#0x000000ff,D0
00021036 3e 00                    |>       |		MOVE.W	D0,D7
00021038 48 78 00 07              |Hx      |		PEA.L	0x7
0002103c 3f 07                    |?       |		MOVE.W	D7,-(A7)
0002103e 28 49                    |(I      |		MOVEA.L	A1,A4
00021040 4e 92                    |N       |		JSR	(A2)
00021042 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021044 4e ba fd 46              |N  F    |		JSR	0x20d8c
00021048 4c df 17 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1+A2+A4
0002104c 4e 5e                    |N^      |		UNLK	A6
0002104e 4e 75                    |Nu      |		RTS
00021050 ; --------------------------------------------------------------------------------------
00021050 ; OMSI PASCAL Function
00021050 ;    <LVAR  0x008 1(r)>
00021050 ;    <LVAR -0x004 1(rw)>
00021050 ;    <LVAR -0x005 1(rw)>
00021050 ;    <LVAR -0x006 1(rw)>
00021050 ;    <LVAR -0x007 1(rw)>
00021050 ;    <LVAR -0x008 1(rw)>
00021050 ;    <LVAR -0x009 1(rw)>
00021050 ;    <LVAR -0x00a 1(rw)>
00021050 ; --------------------------------------------------------------------------------------
00021050 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
00021054 bf d5                    |        |		CMPA.L	(A5),A7
00021056 62 06                    |b       |		BHI	0x2105e
00021058 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002105c 4e 76                    |Nv      |		TRAPV
0002105e de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00021062 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00021066 41 ee ff f6              |A       |		LEA.L	(A6-0xa),A0
0002106a 43 ee ff f7              |C       |		LEA.L	(A6-0x9),A1
0002106e 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00021072 47 ee ff f9              |G       |		LEA.L	(A6-0x7),A3
00021076 49 ee ff fa              |I       |		LEA.L	(A6-0x6),A4
0002107a 3a 3c 00 ff              |:<      |		MOVE.W	#0xff,D5
0002107e 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021082 48 80                    |H       |		EXTB.W	D0
00021084 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
00021086 c3 c0                    |        |		MULS.W	D0,D1
00021088 34 35 10 18              |45      |		MOVE.W	(A5+D1.W+#0x18),D2
0002108c 45 85                    |E       |		CHK.W	D5,D2
0002108e 10 82                    |        |		MOVE.B	D2,(A0)
00021090 34 35 10 1a              |45      |		MOVE.W	(A5+D1.W+#0x1a),D2
00021094 e0 4a                    | J      |		LSR.W	#0x8,D2
00021096 12 82                    |        |		MOVE.B	D2,(A1)
00021098 34 35 10 1a              |45      |		MOVE.W	(A5+D1.W+#0x1a),D2
0002109c c4 45                    | E      |		AND.W	D5,D2
0002109e 14 82                    |        |		MOVE.B	D2,(A2)
000210a0 34 35 10 1c              |45      |		MOVE.W	(A5+D1.W+#0x1c),D2
000210a4 45 85                    |E       |		CHK.W	D5,D2
000210a6 16 82                    |        |		MOVE.B	D2,(A3)
000210a8 34 35 10 1e              |45      |		MOVE.W	(A5+D1.W+#0x1e),D2
000210ac 45 85                    |E       |		CHK.W	D5,D2
000210ae 18 82                    |        |		MOVE.B	D2,(A4)
000210b0 42 82                    |B       |		CLR.L	D2
000210b2 14 35 10 22              | 5 "    |		MOVE.B	(A5+D1.W+#0x22),D2
000210b6 e2 0a                    |        |		LSR.B	#0x1,D2
000210b8 e3 42                    | B      |		ASL.W	#0x1,D2
000210ba 36 35 10 22              |65 "    |		MOVE.W	(A5+D1.W+#0x22),D3
000210be ef 4b                    | K      |		LSL.W	#0x7,D3
000210c0 e0 4b                    | K      |		LSR.W	#0x8,D3
000210c2 e8 4b                    | K      |		LSR.W	#0x4,D3
000210c4 38 03                    |8       |		MOVE.W	D3,D4
000210c6 e6 44                    | D      |		ASR.W	#0x3,D4
000210c8 02 44 00 01              | D      |		ANDI.W	#0x0001,D4
000210cc d8 42                    | B      |		ADD.W	D2,D4
000210ce 1d 44 ff fb              | D      |		MOVE.B	D4,(A6-0x5)
000210d2 02 43 00 07              | C      |		ANDI.W	#0x0007,D3
000210d6 eb 43                    | C      |		ASL.W	#0x5,D3
000210d8 42 82                    |B       |		CLR.L	D2
000210da 14 35 10 23              | 5 #    |		MOVE.B	(A5+D1.W+#0x23),D2
000210de e7 0a                    |        |		LSL.B	#0x3,D2
000210e0 e6 0a                    |        |		LSR.B	#0x3,D2
000210e2 d4 43                    | C      |		ADD.W	D3,D2
000210e4 1d 42 ff fc              | B      |		MOVE.B	D2,(A6-0x4)
000210e8 32 00                    |2       |		MOVE.W	D0,D1
000210ea 0c 41 00 0f              | A      |		CMPI.W	#0x000f,D1
000210ee 63 02                    |c       |		BLS	0x210f2
000210f0					switch@0x210f4[0x1]:
000210f0					switch@0x210f4[0x5]:
000210f0					switch@0x210f4[0x8]:
000210f0					switch@0x210f4[0x9]:
000210f0					switch@0x210f4[0xa]:
000210f0					switch@0x210f4[0xb]:
000210f0 4e 4e                    |NN      |		TRAP	#14
000210f2 d2 41                    | A      |		ADD.W	D1,D1
000210f4 32 3b 10 06 4e fb 10 02  |2;  N   |		SWITCH	D1.W
000210fc 00 20                    |        |		.CONST	0x20			; [0x0] -> 0x2111c
000210fe ff f4                    |        |		.CONST	0xfff4			; [0x1] -> 0x210f0
00021100 00 ce                    |        |		.CONST	0xce			; [0x2] -> 0x211ca
00021102 00 aa                    |        |		.CONST	0xaa			; [0x3] -> 0x211a6
00021104 00 46                    | F      |		.CONST	0x46			; [0x4] -> 0x21142
00021106 ff f4                    |        |		.CONST	0xfff4			; [0x5] -> 0x210f0
00021108 00 66                    | f      |		.CONST	0x66			; [0x6] -> 0x21162
0002110a 00 88                    |        |		.CONST	0x88			; [0x7] -> 0x21184
0002110c ff f4                    |        |		.CONST	0xfff4			; [0x8] -> 0x210f0
0002110e ff f4                    |        |		.CONST	0xfff4			; [0x9] -> 0x210f0
00021110 ff f4                    |        |		.CONST	0xfff4			; [0xa] -> 0x210f0
00021112 ff f4                    |        |		.CONST	0xfff4			; [0xb] -> 0x210f0
00021114 00 f2                    |        |		.CONST	0xf2			; [0xc] -> 0x211ee
00021116 00 f2                    |        |		.CONST	0xf2			; [0xd] -> 0x211ee
00021118 00 f2                    |        |		.CONST	0xf2			; [0xe] -> 0x211ee
0002111a 00 f2                    |        |		.CONST	0xf2			; [0xf] -> 0x211ee
0002111c					switch@0x210f4[0x0]:
0002111c 1f 10                    |        |		MOVE.B	(A0),-(A7)
0002111e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021120 1e 91                    |        |		MOVE.B	(A1),(A7)
00021122 1f 52 00 01              | R      |		MOVE.B	(A2),(A7+0x1)
00021126 1f 13                    |        |		MOVE.B	(A3),-(A7)
00021128 1f 14                    |        |		MOVE.B	(A4),-(A7)
0002112a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002112c 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
00021130 1f 6e ff fc 00 01        | n      |		MOVE.B	(A6-0x4),(A7+0x1)
00021136 4e ba fe 12              |N       |		JSR	0x20f4a
0002113a de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002113e 60 00 00 d4              |`       |		BRA	0x21214
00021142					switch@0x210f4[0x4]:
00021142 1f 10                    |        |		MOVE.B	(A0),-(A7)
00021144 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021146 1e 91                    |        |		MOVE.B	(A1),(A7)
00021148 1f 52 00 01              | R      |		MOVE.B	(A2),(A7+0x1)
0002114c 1f 13                    |        |		MOVE.B	(A3),-(A7)
0002114e 1f 14                    |        |		MOVE.B	(A4),-(A7)
00021150 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021152 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
00021156 1f 6e ff fc 00 01        | n      |		MOVE.B	(A6-0x4),(A7+0x1)
0002115c 4e ba fb 6c              |N  l    |		JSR	0x20cca
00021160 60 d8                    |`       |		BRA	0x2113a
00021162					switch@0x210f4[0x6]:
00021162 1f 10                    |        |		MOVE.B	(A0),-(A7)
00021164 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021166 1e 91                    |        |		MOVE.B	(A1),(A7)
00021168 1f 52 00 01              | R      |		MOVE.B	(A2),(A7+0x1)
0002116c 1f 13                    |        |		MOVE.B	(A3),-(A7)
0002116e 1f 14                    |        |		MOVE.B	(A4),-(A7)
00021170 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021172 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
00021176 1f 6e ff fc 00 01        | n      |		MOVE.B	(A6-0x4),(A7+0x1)
0002117c 4e b9 00 02 21 f4        |N   !   |		JSR	exp_WRITE_NOVRAM_DATA.TYP(Sw_1, Sw_2, Sw_1, Sw_1, Sw_2)
00021182 60 b6                    |`       |		BRA	0x2113a
00021184					switch@0x210f4[0x7]:
00021184 1f 10                    |        |		MOVE.B	(A0),-(A7)
00021186 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021188 1e 91                    |        |		MOVE.B	(A1),(A7)
0002118a 1f 52 00 01              | R      |		MOVE.B	(A2),(A7+0x1)
0002118e 1f 13                    |        |		MOVE.B	(A3),-(A7)
00021190 1f 14                    |        |		MOVE.B	(A4),-(A7)
00021192 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021194 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
00021198 1f 6e ff fc 00 01        | n      |		MOVE.B	(A6-0x4),(A7+0x1)
0002119e 4e b9 00 02 22 76        |N   "v  |		JSR	exp_WRITE_NOVRAM_DATA.VAL(Sw_1, Sw_2, Sw_1, Sw_1, Sw_2)
000211a4 60 94                    |`       |		BRA	0x2113a
000211a6					switch@0x210f4[0x3]:
000211a6 1f 10                    |        |		MOVE.B	(A0),-(A7)
000211a8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000211aa 1e 91                    |        |		MOVE.B	(A1),(A7)
000211ac 1f 52 00 01              | R      |		MOVE.B	(A2),(A7+0x1)
000211b0 1f 13                    |        |		MOVE.B	(A3),-(A7)
000211b2 1f 14                    |        |		MOVE.B	(A4),-(A7)
000211b4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000211b6 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
000211ba 1f 6e ff fc 00 01        | n      |		MOVE.B	(A6-0x4),(A7+0x1)
000211c0 4e b9 00 02 20 f0        |N       |		JSR	exp_WRITE_NOVRAM_DATA.FIU(Sw_1, Sw_2, Sw_1, Sw_1, Sw_2)
000211c6 60 00 ff 72              |`  r    |		BRA	0x2113a
000211ca					switch@0x210f4[0x2]:
000211ca 1f 10                    |        |		MOVE.B	(A0),-(A7)
000211cc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000211ce 1e 91                    |        |		MOVE.B	(A1),(A7)
000211d0 1f 52 00 01              | R      |		MOVE.B	(A2),(A7+0x1)
000211d4 1f 13                    |        |		MOVE.B	(A3),-(A7)
000211d6 1f 14                    |        |		MOVE.B	(A4),-(A7)
000211d8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000211da 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
000211de 1f 6e ff fc 00 01        | n      |		MOVE.B	(A6-0x4),(A7+0x1)
000211e4 4e b9 00 02 21 72        |N   !r  |		JSR	exp_WRITE_NOVRAM_DATA.SEQ(Sw_1, Sw_2, Sw_1, Sw_1, Sw_2)
000211ea 60 00 ff 4e              |`  N    |		BRA	0x2113a
000211ee					switch@0x210f4[0xc]:
000211ee					switch@0x210f4[0xd]:
000211ee					switch@0x210f4[0xe]:
000211ee					switch@0x210f4[0xf]:
000211ee 1f 00                    |        |		MOVE.B	D0,-(A7)
000211f0 1f 10                    |        |		MOVE.B	(A0),-(A7)
000211f2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000211f4 1e 91                    |        |		MOVE.B	(A1),(A7)
000211f6 1f 52 00 01              | R      |		MOVE.B	(A2),(A7+0x1)
000211fa 1f 13                    |        |		MOVE.B	(A3),-(A7)
000211fc 1f 14                    |        |		MOVE.B	(A4),-(A7)
000211fe 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021200 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
00021204 1f 6e ff fc 00 01        | n      |		MOVE.B	(A6-0x4),(A7+0x1)
0002120a 4e b9 00 02 23 24        |N   #$  |		JSR	0x22324
00021210 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021214 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00021218 4e 5e                    |N^      |		UNLK	A6
0002121a 4e 75                    |Nu      |		RTS
0002121c ; --------------------------------------------------------------------------------------
0002121c ; OMSI PASCAL Function
0002121c ;    <LVAR  0x018 2(w)>
0002121c ;    <LVAR  0x014 @ 4(r)>
0002121c ;    <LVAR  0x010 4(r)>
0002121c ;    <LVAR  0x00c 4(r)>
0002121c ;    <LVAR  0x008 4(r)>
0002121c ;    <LVAR -0x006 @ 4(rw)>
0002121c ;    <LVAR -0x00a @ 4(rw)>
0002121c ;    <LVAR -0x00c @ 1(rw)>
0002121c ; --------------------------------------------------------------------------------------
0002121c 4e 56 ff 7c              |NV |    |		LINK.W	A6,#0xff7c
00021220 bf d5                    |        |		CMPA.L	(A5),A7
00021222 62 06                    |b       |		BHI	0x2122a
00021224 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021228 4e 76                    |Nv      |		TRAPV
0002122a de fc 00 78              |   x    |		ADDA.W	#0x78,A7
0002122e 48 e7 f8 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
00021232 43 ee ff f4              |C       |		LEA.L	(A6-0xc),A1
00021236 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
0002123c 47 ee ff f6              |G       |		LEA.L	(A6-0xa),A3
00021240 49 ee ff fa              |I       |		LEA.L	(A6-0x6),A4
00021244 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021246 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00021248 76 02                    |v       |		MOVEQ.L	#0x02,D3
0002124a 78 04                    |x       |		MOVEQ.L	#0x04,D4
0002124c 3f 3a f0 20              |?:      |		MOVE.W	0x2026e,-(A7)
00021250 2f 3a f0 1e              |/:      |		MOVE.L	0x20270,-(A7)
00021254 9e c2                    |        |		SUBA.W	D2,A7
00021256 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
0002125a 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021260 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00021264 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021266 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021268 4e 92                    |N       |		JSR	(A2)
0002126a 2e ae 00 10              |.       |		MOVE.L	(A6+0x10),(A7)
0002126e 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021274 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00021278 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002127a 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002127c 4e 92                    |N       |		JSR	(A2)
0002127e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021280 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00021286 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002128a 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00021290 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021292 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021294 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021296 20 53                    | S      |		MOVEA.L	(A3),A0
00021298 4a 50                    |JP      |		TST.W	(A0)
0002129a 66 12                    |f       |		BNE	0x212ae
0002129c 12 81                    |        |		MOVE.B	D1,(A1)
0002129e 28 ae 00 10              |(       |		MOVE.L	(A6+0x10),(A4)
000212a2 48 53                    |HS      |		PEA.L	(A3)
000212a4 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000212aa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212ac 60 24                    |`$      |		BRA	0x212d2
000212ae 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000212b0 48 51                    |HQ      |		PEA.L	(A1)
000212b2 48 54                    |HT      |		PEA.L	(A4)
000212b4 4e b9 00 01 02 ec        |N       |		JSR	String2Long(src : String; VAR status : Bool; VAR retval : Long)
000212ba de c2                    |        |		ADDA.W	D2,A7
000212bc 4a 11                    |J       |		TST.B	(A1)
000212be 67 12                    |g       |		BEQ	0x212d2
000212c0 42 11                    |B       |		CLR.B	(A1)
000212c2 20 14                    |        |		MOVE.L	(A4),D0
000212c4 b0 ae 00 0c              |        |		CMP.L	(A6+0xc),D0
000212c8 6d 08                    |m       |		BLT	0x212d2
000212ca b0 ae 00 08              |        |		CMP.L	(A6+0x8),D0
000212ce 6e 02                    |n       |		BGT	0x212d2
000212d0 52 11                    |R       |		ADDQ.B	#0x1,(A1)
000212d2 4a 11                    |J       |		TST.B	(A1)
000212d4 66 60                    |f`      |		BNE	0x21336
000212d6 41 fa ef 96              |A       |		LEA.L	0x2026e,A0
000212da 70 12                    |p       |		MOVEQ.L	#0x12,D0
000212dc 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000212de 51 c8 ff fc              |Q       |		DBF	D0,0x212dc
000212e2 2f 3a ef 90              |/:      |		MOVE.L	0x20274,-(A7)
000212e6 3f 3a ef 90              |?:      |		MOVE.W	0x20278,-(A7)
000212ea 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000212ec 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
000212f0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000212f2 3f 3c 00 26              |?< &    |		MOVE.W	#0x26,-(A7)
000212f6 4e 92                    |N       |		JSR	(A2)
000212f8 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
000212fc 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021302 48 6f 00 12              |Ho      |		PEA.L	(A7+0x12)
00021306 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021308 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002130a 4e 92                    |N       |		JSR	(A2)
0002130c 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00021310 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021316 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
0002131a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002131c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002131e 4e 92                    |N       |		JSR	(A2)
00021320 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021322 4e b9 00 01 02 dc        |N       |		JSR	StringCat5(a, b, c, d, e : String) : String
00021328 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002132c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021332 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021336 4a 11                    |J       |		TST.B	(A1)
00021338 67 00 ff 12              |g       |		BEQ	0x2124c
0002133c 48 6e 00 14              |Hn      |		PEA.L	(A6+0x14)
00021340 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021346 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021348 20 14                    |        |		MOVE.L	(A4),D0
0002134a 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021350 63 02                    |c       |		BLS	0x21354
00021352 4e 4f                    |NO      |		TRAP	#15
00021354 3d 40 00 18              |=@      |		MOVE.W	D0,(A6+0x18)
00021358 4c df 1f 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3+A4
0002135c 4e 5e                    |N^      |		UNLK	A6
0002135e 4e 75                    |Nu      |		RTS
00021360 ; --------------------------------------------------------------------------------------
00021360 ; OMSI PASCAL Function
00021360 ;    <LVAR  0x00c 4(r)>
00021360 ;    <LVAR  0x008 4(r)>
00021360 ;    <LVAR -0x007 1(rw)>
00021360 ;    <LVAR -0x008 1(rw)>
00021360 ;    <LVAR -0x009 1(rw)>
00021360 ;    <LVAR -0x00a @ 1(rw)>
00021360 ;    <LVAR -0x00e @ 4(rw)>
00021360 ;    <LVAR -0x010 @ 1(rw)>
00021360 ; --------------------------------------------------------------------------------------
00021360 4e 56 ff 96              |NV      |		LINK.W	A6,#0xff96
00021364 bf d5                    |        |		CMPA.L	(A5),A7
00021366 62 06                    |b       |		BHI	0x2136e
00021368 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002136c 4e 76                    |Nv      |		TRAPV
0002136e de fc 00 5a              |   Z    |		ADDA.W	#0x5a,A7
00021372 48 e7 fd f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7)
00021376 45 ee ff f2              |E       |		LEA.L	(A6-0xe),A2
0002137a 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
0002137e 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00021384 74 01                    |t       |		MOVEQ.L	#0x01,D2
00021386 76 09                    |v       |		MOVEQ.L	#0x09,D3
00021388 78 7d                    |x}      |		MOVEQ.L	#0x7d,D4
0002138a 7a 0c                    |z       |		MOVEQ.L	#0x0c,D5
0002138c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002138e 20 53                    | S      |		MOVEA.L	(A3),A0
00021390 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021392 1e 90                    |        |		MOVE.B	(A0),(A7)
00021394 1f 68 00 01 00 01        | h      |		MOVE.B	(A0+0x1),(A7+0x1)
0002139a 1f 68 00 02 00 02        | h      |		MOVE.B	(A0+0x2),(A7+0x2)
000213a0 1f 68 00 03 00 03        | h      |		MOVE.B	(A0+0x3),(A7+0x3)
000213a6 4e b9 00 01 03 08        |N       |		JSR	TimeToText()
000213ac 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213ae 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000213b0 20 52                    | R      |		MOVEA.L	(A2),A0
000213b2 2f 08                    |/       |		MOVE.L	A0,-(A7)
000213b4 7e 0a                    |~       |		MOVEQ.L	#0x0a,D7
000213b6 20 07                    |        |		MOVE.L	D7,D0
000213b8 90 83                    |        |		SUB.L	D3,D0
000213ba 53 80                    |S       |		SUBQ.L	#0x1,D0
000213bc b0 84                    |        |		CMP.L	D4,D0
000213be 63 02                    |c       |		BLS	0x213c2
000213c0 4e 4f                    |NO      |		TRAP	#15
000213c2 20 57                    | W      |		MOVEA.L	(A7),A0
000213c4 22 07                    |"       |		MOVE.L	D7,D1
000213c6 53 81                    |S       |		SUBQ.L	#0x1,D1
000213c8 b2 84                    |        |		CMP.L	D4,D1
000213ca 63 02                    |c       |		BLS	0x213ce
000213cc 4e 4f                    |NO      |		TRAP	#15
000213ce 11 b0 18 02 08 02        |        |		MOVE.B	(A0+D1.L+#0x2),(A0+D0.L+#0x2)
000213d4 52 87                    |R       |		ADDQ.L	#0x1,D7
000213d6 0c 87 00 00 00 12        |        |		CMPI.L	#0x00000012,D7
000213dc 6f d8                    |o       |		BLE	0x213b6
000213de 20 57                    | W      |		MOVEA.L	(A7),A0
000213e0 30 83                    |0       |		MOVE.W	D3,(A0)
000213e2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000213e4 3e ba ee 94              |>       |		MOVE.W	0x2027a,(A7)
000213e8 2f 3a ee 92              |/:      |		MOVE.L	0x2027c,-(A7)
000213ec 9e c5                    |        |		SUBA.W	D5,A7
000213ee 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000213f2 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000213f8 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
000213fc 3f 02                    |?       |		MOVE.W	D2,-(A7)
000213fe 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00021402 4e 94                    |N       |		JSR	(A4)
00021404 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021406 2e 92                    |.       |		MOVE.L	(A2),(A7)
00021408 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002140a 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
0002140e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021410 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00021414 4e 94                    |N       |		JSR	(A4)
00021416 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021418 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
0002141e de fc 00 10              |        |		ADDA.W	#0x10,A7
00021422 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00021428 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002142a 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002142c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002142e 20 52                    | R      |		MOVEA.L	(A2),A0
00021430 4a 50                    |JP      |		TST.W	(A0)
00021432 66 28                    |f(      |		BNE	0x2145c
00021434 48 52                    |HR      |		PEA.L	(A2)
00021436 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002143c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002143e 20 53                    | S      |		MOVEA.L	(A3),A0
00021440 1d 50 ff f6              | P      |		MOVE.B	(A0),(A6-0xa)
00021444 1d 68 00 01 ff f7        | h      |		MOVE.B	(A0+0x1),(A6-0x9)
0002144a 1d 68 00 02 ff f8        | h      |		MOVE.B	(A0+0x2),(A6-0x8)
00021450 1d 68 00 03 ff f9        | h      |		MOVE.B	(A0+0x3),(A6-0x7)
00021456 1d 42 ff f0              | B      |		MOVE.B	D2,(A6-0x10)
0002145a 60 40                    |`@      |		BRA	0x2149c
0002145c 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00021460 20 4f                    | O      |		MOVEA.L	A7,A0
00021462 43 fa ee 1c              |C       |		LEA.L	0x20280,A1
00021466 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021468 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002146a 51 c8 ff fc              |Q       |		DBF	D0,0x21468
0002146e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021470 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021474 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021476 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021478 4e 94                    |N       |		JSR	(A4)
0002147a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002147c 2e 92                    |.       |		MOVE.L	(A2),(A7)
0002147e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021484 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021486 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00021488 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002148a 2e 92                    |.       |		MOVE.L	(A2),(A7)
0002148c 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00021490 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00021494 4e b9 00 01 03 10        |N       |		JSR	ConvertTimestamp(MOD input : String; b : L; VAR status : Bool)
0002149a de c5                    |        |		ADDA.W	D5,A7
0002149c 4a 2e ff f0              |J.      |		TST.B	(A6-0x10)
000214a0 67 00 fe ea              |g       |		BEQ	0x2138c
000214a4 20 53                    | S      |		MOVEA.L	(A3),A0
000214a6 10 ae ff f6              |        |		MOVE.B	(A6-0xa),(A0)
000214aa 11 6e ff f7 00 01        | n      |		MOVE.B	(A6-0x9),(A0+0x1)
000214b0 11 6e ff f8 00 02        | n      |		MOVE.B	(A6-0x8),(A0+0x2)
000214b6 11 6e ff f9 00 03        | n      |		MOVE.B	(A6-0x7),(A0+0x3)
000214bc 4c df 1f bf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4
000214c0 4e 5e                    |N^      |		UNLK	A6
000214c2 4e 75                    |Nu      |		RTS
000214c4 ; --------------------------------------------------------------------------------------
000214c4 ; OMSI PASCAL Function
000214c4 ;    <LVAR  0x008 1(r)>
000214c4 ; --------------------------------------------------------------------------------------
000214c4 4e 56 ff 6e              |NV n    |		LINK.W	A6,#0xff6e
000214c8 bf d5                    |        |		CMPA.L	(A5),A7
000214ca 62 06                    |b       |		BHI	0x214d2
000214cc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000214d0 4e 76                    |Nv      |		TRAPV
000214d2 de fc 00 90              |        |		ADDA.W	#0x90,A7
000214d6 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000214da 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000214e0 47 f8 00 00              |G       |		LEA.L	0x0,A3
000214e4 49 fa fd 36              |I  6    |		LEA.L	0x2121c,A4
000214e8 76 01                    |v       |		MOVEQ.L	#0x01,D3
000214ea 78 10                    |x       |		MOVEQ.L	#0x10,D4
000214ec 7a 12                    |z       |		MOVEQ.L	#0x12,D5
000214ee 3c 3c 00 ff              |<<      |		MOVE.W	#0xff,D6
000214f2 7e 14                    |~       |		MOVEQ.L	#0x14,D7
000214f4 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000214f8 48 80                    |H       |		EXTB.W	D0
000214fa 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
000214fc c3 c0                    |        |		MULS.W	D0,D1
000214fe 4a 35 10 24              |J5 $    |		TST.B	(A5+D1.W+#0x24)
00021502 66 00 00 c4              |f       |		BNE	0x215c8
00021506 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
0002150a 20 4f                    | O      |		MOVEA.L	A7,A0
0002150c 43 fa ed e6              |C       |		LEA.L	0x202f4,A1
00021510 74 3e                    |t>      |		MOVEQ.L	#0x3e,D2
00021512 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021514 51 ca ff fc              |Q       |		DBF	D2,0x21512
00021518 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002151a 1f 00                    |        |		MOVE.B	D0,-(A7)
0002151c 4e ba f1 7e              |N  ~    |		JSR	0x2069c
00021520 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021522 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021526 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021528 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
0002152c 4e 92                    |N       |		JSR	(A2)
0002152e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021530 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021536 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021538 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002153e de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00021542 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
00021548 4a 1f                    |J       |		TST.B	(A7)+
0002154a 66 0c                    |f       |		BNE	0x21558
0002154c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002154e 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
00021554 4a 1f                    |J       |		TST.B	(A7)+
00021556 67 1c                    |g       |		BEQ	0x21574
00021558 e3 40                    | @      |		ASL.W	#0x1,D0
0002155a 41 fa f0 6e              |A  n    |		LEA.L	0x205ca,A0
0002155e 3b b0 00 00 10 18        |;       |		MOVE.W	(A0+D0.W),(A5+D1.W+#0x18)
00021564 41 fa f0 84              |A       |		LEA.L	0x205ea,A0
00021568 3b b0 00 00 10 1c        |;       |		MOVE.W	(A0+D0.W),(A5+D1.W+#0x1c)
0002156e 41 fa f0 9a              |A       |		LEA.L	0x2060a,A0
00021572 60 3e                    |`>      |		BRA	0x215b2
00021574 0c 00 00 0c              |        |		CMPI.B	#0x0c,D0
00021578 6d 1e                    |m       |		BLT	0x21598
0002157a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002157c 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021582 4a 1f                    |J       |		TST.B	(A7)+
00021584 66 12                    |f       |		BNE	0x21598
00021586 3b bc 00 07 10 18        |;       |		MOVE.W	#0x7,(A5+D1.W+#0x18)
0002158c 3b bc 00 02 10 1c        |;       |		MOVE.W	#0x2,(A5+D1.W+#0x1c)
00021592 42 75 10 1e              |Bu      |		CLR.W	(A5+D1.W+#0x1e)
00021596 60 20                    |`       |		BRA	0x215b8
00021598 e3 40                    | @      |		ASL.W	#0x1,D0
0002159a 41 fa ef ce              |A       |		LEA.L	0x2056a,A0
0002159e 3b b0 00 00 10 18        |;       |		MOVE.W	(A0+D0.W),(A5+D1.W+#0x18)
000215a4 41 fa ef e4              |A       |		LEA.L	0x2058a,A0
000215a8 3b b0 00 00 10 1c        |;       |		MOVE.W	(A0+D0.W),(A5+D1.W+#0x1c)
000215ae 41 fa ef fa              |A       |		LEA.L	0x205aa,A0
000215b2 3b b0 00 00 10 1e        |;       |		MOVE.W	(A0+D0.W),(A5+D1.W+#0x1e)
000215b8 42 75 10 1a              |Bu      |		CLR.W	(A5+D1.W+#0x1a)
000215bc 48 75 10 20              |Hu      |		PEA.L	(A5+D1.W+#0x20)
000215c0 4e b9 00 01 03 04        |N       |		JSR	GetRtc() : TimeStamp
000215c6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000215c8 9e c5                    |        |		SUBA.W	D5,A7
000215ca 20 4f                    | O      |		MOVEA.L	A7,A0
000215cc 43 fa ec bc              |C       |		LEA.L	0x2028a,A1
000215d0 70 10                    |p       |		MOVEQ.L	#0x10,D0
000215d2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000215d4 51 c8 ff fc              |Q       |		DBF	D0,0x215d2
000215d8 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000215da 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000215de 3f 03                    |?       |		MOVE.W	D3,-(A7)
000215e0 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
000215e4 4e 92                    |N       |		JSR	(A2)
000215e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215e8 30 35 10 18              |05      |		MOVE.W	(A5+D1.W+#0x18),D0
000215ec 48 c0                    |H       |		EXTW.L	D0
000215ee 2f 00                    |/       |		MOVE.L	D0,-(A7)
000215f0 48 53                    |HS      |		PEA.L	(A3)
000215f2 48 78 00 ff              |Hx      |		PEA.L	0xff
000215f6 4e 94                    |N       |		JSR	(A4)
000215f8 de c4                    |        |		ADDA.W	D4,A7
000215fa 30 1f                    |0       |		MOVE.W	(A7)+,D0
000215fc 41 86                    |A       |		CHK.W	D6,D0
000215fe de c5                    |        |		ADDA.W	D5,A7
00021600 3b 80 10 18              |;       |		MOVE.W	D0,(A5+D1.W+#0x18)
00021604 9e c7                    |        |		SUBA.W	D7,A7
00021606 20 4f                    | O      |		MOVEA.L	A7,A0
00021608 43 fa ec 92              |C       |		LEA.L	0x2029c,A1
0002160c 70 12                    |p       |		MOVEQ.L	#0x12,D0
0002160e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021610 51 c8 ff fc              |Q       |		DBF	D0,0x2160e
00021614 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021616 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002161a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002161c 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00021620 4e 92                    |N       |		JSR	(A2)
00021622 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021624 42 80                    |B       |		CLR.L	D0
00021626 30 35 10 1a              |05      |		MOVE.W	(A5+D1.W+#0x1a),D0
0002162a 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002162c 48 53                    |HS      |		PEA.L	(A3)
0002162e 48 78 7f ff              |Hx      |		PEA.L	0x7fff
00021632 4e 94                    |N       |		JSR	(A4)
00021634 de c4                    |        |		ADDA.W	D4,A7
00021636 3b 9f 10 1a              |;       |		MOVE.W	(A7)+,(A5+D1.W+#0x1a)
0002163a de c7                    |        |		ADDA.W	D7,A7
0002163c 41 fa ec 88              |A       |		LEA.L	0x202c6,A0
00021640 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021642 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021644 51 c8 ff fc              |Q       |		DBF	D0,0x21642
00021648 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002164a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002164e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021650 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00021654 4e 92                    |N       |		JSR	(A2)
00021656 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021658 30 35 10 1c              |05      |		MOVE.W	(A5+D1.W+#0x1c),D0
0002165c 48 c0                    |H       |		EXTW.L	D0
0002165e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021660 48 53                    |HS      |		PEA.L	(A3)
00021662 48 78 00 ff              |Hx      |		PEA.L	0xff
00021666 4e 94                    |N       |		JSR	(A4)
00021668 de c4                    |        |		ADDA.W	D4,A7
0002166a 30 1f                    |0       |		MOVE.W	(A7)+,D0
0002166c 41 86                    |A       |		CHK.W	D6,D0
0002166e de fc 00 16              |        |		ADDA.W	#0x16,A7
00021672 3b 80 10 1c              |;       |		MOVE.W	D0,(A5+D1.W+#0x1c)
00021676 9e c4                    |        |		SUBA.W	D4,A7
00021678 20 4f                    | O      |		MOVEA.L	A7,A0
0002167a 43 fa ec 4a              |C  J    |		LEA.L	0x202c6,A1
0002167e 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021680 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021682 51 c8 ff fc              |Q       |		DBF	D0,0x21680
00021686 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021688 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002168c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002168e 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00021692 4e 92                    |N       |		JSR	(A2)
00021694 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021696 30 35 10 1e              |05      |		MOVE.W	(A5+D1.W+#0x1e),D0
0002169a 48 c0                    |H       |		EXTW.L	D0
0002169c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002169e 48 53                    |HS      |		PEA.L	(A3)
000216a0 48 78 00 ff              |Hx      |		PEA.L	0xff
000216a4 4e 94                    |N       |		JSR	(A4)
000216a6 de c4                    |        |		ADDA.W	D4,A7
000216a8 30 1f                    |0       |		MOVE.W	(A7)+,D0
000216aa 41 86                    |A       |		CHK.W	D6,D0
000216ac de c4                    |        |		ADDA.W	D4,A7
000216ae 3b 80 10 1e              |;       |		MOVE.W	D0,(A5+D1.W+#0x1e)
000216b2 9e fc 00 1e              |        |		SUBA.W	#0x1e,A7
000216b6 20 4f                    | O      |		MOVEA.L	A7,A0
000216b8 43 fa ec 1c              |C       |		LEA.L	0x202d6,A1
000216bc 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
000216be 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000216c0 51 c8 ff fc              |Q       |		DBF	D0,0x216be
000216c4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000216c6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000216ca 3f 03                    |?       |		MOVE.W	D3,-(A7)
000216cc 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
000216d0 4e 92                    |N       |		JSR	(A2)
000216d2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216d4 48 75 10 20              |Hu      |		PEA.L	(A5+D1.W+#0x20)
000216d8 4e ba fc 86              |N       |		JSR	0x21360
000216dc de fc 00 26              |   &    |		ADDA.W	#0x26,A7
000216e0 1b 83 10 24              |   $    |		MOVE.B	D3,(A5+D1.W+#0x24)
000216e4 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000216e8 4e 5e                    |N^      |		UNLK	A6
000216ea 4e 75                    |Nu      |		RTS
000216ec ; --------------------------------------------------------------------------------------
000216ec ; OMSI PASCAL Function
000216ec ; --------------------------------------------------------------------------------------
000216ec 4e 56 ff 98              |NV      |		LINK.W	A6,#0xff98
000216f0 bf d5                    |        |		CMPA.L	(A5),A7
000216f2 62 06                    |b       |		BHI	0x216fa
000216f4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000216f8 4e 76                    |Nv      |		TRAPV
000216fa de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
000216fe 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021702 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021708 47 f9 00 01 03 e0        |G       |		LEA.L	WriteConsoleStringCrLf(str : String),A3
0002170e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021710 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00021712 76 10                    |v       |		MOVEQ.L	#0x10,D3
00021714 78 1a                    |x       |		MOVEQ.L	#0x1a,D4
00021716 9e c2                    |        |		SUBA.W	D2,A7
00021718 20 4f                    | O      |		MOVEA.L	A7,A0
0002171a 43 fa ec 18              |C       |		LEA.L	0x20334,A1
0002171e 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021720 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021722 51 c8 ff fc              |Q       |		DBF	D0,0x21720
00021726 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021728 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002172c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002172e 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00021732 4e 92                    |N       |		JSR	(A2)
00021734 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021736 4e 93                    |N       |		JSR	(A3)
00021738 de c3                    |        |		ADDA.W	D3,A7
0002173a 41 fa ec 1e              |A       |		LEA.L	0x2035a,A0
0002173e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021740 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021742 51 c8 ff fc              |Q       |		DBF	D0,0x21740
00021746 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021748 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002174c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002174e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021750 4e 92                    |N       |		JSR	(A2)
00021752 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021754 4e 93                    |N       |		JSR	(A3)
00021756 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
0002175a 41 fa ec 18              |A       |		LEA.L	0x20374,A0
0002175e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021760 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021762 51 c8 ff fc              |Q       |		DBF	D0,0x21760
00021766 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021768 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002176c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002176e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021770 4e 92                    |N       |		JSR	(A2)
00021772 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021774 4e 93                    |N       |		JSR	(A3)
00021776 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021778 20 4f                    | O      |		MOVEA.L	A7,A0
0002177a 43 fa eb f8              |C       |		LEA.L	0x20374,A1
0002177e 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00021780 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021782 51 c8 ff fc              |Q       |		DBF	D0,0x21780
00021786 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021788 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002178c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002178e 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00021792 4e 92                    |N       |		JSR	(A2)
00021794 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021796 4e 93                    |N       |		JSR	(A3)
00021798 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002179a 20 4f                    | O      |		MOVEA.L	A7,A0
0002179c 43 fa eb f2              |C       |		LEA.L	0x20390,A1
000217a0 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000217a2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000217a4 51 c8 ff fc              |Q       |		DBF	D0,0x217a2
000217a8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000217aa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000217ae 3f 01                    |?       |		MOVE.W	D1,-(A7)
000217b0 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
000217b4 4e 92                    |N       |		JSR	(A2)
000217b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217b8 4e 93                    |N       |		JSR	(A3)
000217ba de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000217be 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
000217c4 4a 1f                    |J       |		TST.B	(A7)+
000217c6 66 0c                    |f       |		BNE	0x217d4
000217c8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000217ca 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
000217d0 4a 1f                    |J       |		TST.B	(A7)+
000217d2 67 26                    |g&      |		BEQ	0x217fa
000217d4 41 fa eb fe              |A       |		LEA.L	0x203d4,A0
000217d8 70 06                    |p       |		MOVEQ.L	#0x06,D0
000217da 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000217dc 51 c8 ff fc              |Q       |		DBF	D0,0x217da
000217e0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000217e2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000217e6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000217e8 3f 3c 00 1c              |?<      |		MOVE.W	#0x1c,-(A7)
000217ec 4e 92                    |N       |		JSR	(A2)
000217ee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217f0 4e 93                    |N       |		JSR	(A3)
000217f2 de fc 00 20              |        |		ADDA.W	#0x20,A7
000217f6 7e 09                    |~       |		MOVEQ.L	#0x09,D7
000217f8 60 20                    |`       |		BRA	0x2181a
000217fa 2f 3a eb b8              |/:      |		MOVE.L	0x203b4,-(A7)
000217fe 2f 3a eb b0              |/:      |		MOVE.L	0x203b0,-(A7)
00021802 2f 3a eb a8              |/:      |		MOVE.L	0x203ac,-(A7)
00021806 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021808 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002180c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002180e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021810 4e 92                    |N       |		JSR	(A2)
00021812 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021814 4e 93                    |N       |		JSR	(A3)
00021816 de c3                    |        |		ADDA.W	D3,A7
00021818 7e 08                    |~       |		MOVEQ.L	#0x08,D7
0002181a 41 fa eb c6              |A       |		LEA.L	0x203e2,A0
0002181e 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021820 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021822 51 c8 ff fc              |Q       |		DBF	D0,0x21820
00021826 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021828 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002182c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002182e 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00021832 4e 92                    |N       |		JSR	(A2)
00021834 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021836 48 78 00 00              |Hx      |		PEA.L	0x0
0002183a 2f 07                    |/       |		MOVE.L	D7,-(A7)
0002183c 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00021842 de c2                    |        |		ADDA.W	D2,A7
00021844 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00021846 de fc 00 0e              |        |		ADDA.W	#0xe,A7
0002184a 0c 86 00 00 00 09        |        |		CMPI.L	#0x00000009,D6
00021850 63 02                    |c       |		BLS	0x21854
00021852 4e 4f                    |NO      |		TRAP	#15
00021854 41 fa ed d4              |A       |		LEA.L	0x2062a,A0
00021858 1a 30 68 00              | 0h     |		MOVE.B	(A0+D6.L),D5
0002185c 1f 05                    |        |		MOVE.B	D5,-(A7)
0002185e 4e ba fc 64              |N  d    |		JSR	0x214c4
00021862 1e 85                    |        |		MOVE.B	D5,(A7)
00021864 4e ba f7 ea              |N       |		JSR	0x21050
00021868 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002186a 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
0002186e 4e 5e                    |N^      |		UNLK	A6
00021870 4e 75                    |Nu      |		RTS
00021872 ; --------------------------------------------------------------------------------------
00021872 ; OMSI PASCAL Function
00021872 ; --------------------------------------------------------------------------------------
00021872 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00021876 bf d5                    |        |		CMPA.L	(A5),A7
00021878 62 06                    |b       |		BHI	0x21880
0002187a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002187e 4e 76                    |Nv      |		TRAPV
00021880 de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
00021884 48 e7 e1 c0              |H       |		MOVEM.L	A1+A0+D7+D2+D1+D0,-(A7)
00021888 43 ed 00 f8              |C       |		LEA.L	(A5+0xf8),A1
0002188c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002188e 74 20                    |t       |		MOVEQ.L	#0x20,D2
00021890 41 fa eb 70              |A  p    |		LEA.L	0x20402,A0
00021894 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021896 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021898 51 c8 ff fc              |Q       |		DBF	D0,0x21896
0002189c 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002189e 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000218a2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000218a4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000218a6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000218ac 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000218ae 2e 91                    |.       |		MOVE.L	(A1),(A7)
000218b0 48 78 00 00              |Hx      |		PEA.L	0x0
000218b4 2f 3c 00 0f 42 3f        |/<  B?  |		MOVE.L	#0xf423f,-(A7)
000218ba 4e ba f9 60              |N  `    |		JSR	0x2121c
000218be de fc 00 10              |        |		ADDA.W	#0x10,A7
000218c2 42 80                    |B       |		CLR.L	D0
000218c4 30 1f                    |0       |		MOVE.W	(A7)+,D0
000218c6 22 80                    |"       |		MOVE.L	D0,(A1)
000218c8 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000218cc 4e b9 00 02 20 4e        |N    N  |		JSR	0x2204e
000218d2 2e 1f                    |.       |		MOVE.L	(A7)+,D7
000218d4 66 2c                    |f,      |		BNE	0x21902
000218d6 41 fa eb 44              |A  D    |		LEA.L	0x2041c,A0
000218da 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000218dc 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000218de 51 c8 ff fc              |Q       |		DBF	D0,0x218dc
000218e2 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000218e6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000218e8 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000218ec 3f 01                    |?       |		MOVE.W	D1,-(A7)
000218ee 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
000218f2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000218f8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218fa 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021900 de c2                    |        |		ADDA.W	D2,A7
00021902 20 49                    | I      |		MOVEA.L	A1,A0
00021904 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021906 2f 07                    |/       |		MOVE.L	D7,-(A7)
00021908 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
0002190c 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00021912 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021916 4e ba f4 74              |N  t    |		JSR	0x20d8c
0002191a 4c df 03 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1
0002191e 4e 5e                    |N^      |		UNLK	A6
00021920 4e 75                    |Nu      |		RTS
00021922 ; --------------------------------------------------------------------------------------
00021922 ; OMSI PASCAL Function
00021922 ;    <LVAR  0x008 1(r)>
00021922 ;    <LVAR -0x00a @ 4(rw)>
00021922 ; --------------------------------------------------------------------------------------
00021922 4e 56 ff a2              |NV      |		LINK.W	A6,#0xffa2		; Spelunked
00021926 bf d5                    |        |		CMPA.L	(A5),A7
00021928 62 06                    |b       |		BHI	0x21930
0002192a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002192e 4e 76                    |Nv      |		TRAPV
00021930 de fc 00 4c              |   L    |		ADDA.W	#0x4c,A7
00021934 48 e7 e1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7)
00021938 43 f9 00 01 02 f8        |C       |		LEA.L	LeftPad(a : String; b : Long) : String,A1
0002193e 45 f9 00 01 02 e4        |E       |		LEA.L	Long2String(a : Long) : String,A2
00021944 47 ee ff f6              |G       |		LEA.L	(A6-0xa),A3
00021948 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
0002194a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002194c 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00021950 4e ba ed 4a              |N  J    |		JSR	0x2069c
00021954 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021956 48 78 00 08              |Hx      |		PEA.L	0x8
0002195a 4e 91                    |N       |		JSR	(A1)
0002195c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002195e 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021960 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021964 48 80                    |H       |		EXTB.W	D0
00021966 c1 c2                    |        |		MULS.W	D2,D0
00021968 4a 35 00 24              |J5 $    |		TST.B	(A5+D0.W+#0x24)
0002196c 66 34                    |f4      |		BNE	0x219a2
0002196e 41 fa ea ba              |A       |		LEA.L	0x2042a,A0
00021972 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021974 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021976 51 c8 ff fc              |Q       |		DBF	D0,0x21974
0002197a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002197c 2f 0c                    |/       |		MOVE.L	A4,-(A7)
0002197e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021980 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021984 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021988 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002198a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021990 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021992 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021998 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002199a 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002199c de c2                    |        |		ADDA.W	D2,A7
0002199e 60 00 00 a2              |`       |		BRA	0x21a42
000219a2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000219a4 2f 0c                    |/       |		MOVE.L	A4,-(A7)
000219a6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000219a8 32 35 00 18              |25      |		MOVE.W	(A5+D0.W+#0x18),D1
000219ac 48 c1                    |H       |		EXTW.L	D1
000219ae 2f 01                    |/       |		MOVE.L	D1,-(A7)
000219b0 4e 92                    |N       |		JSR	(A2)
000219b2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219b4 48 78 00 08              |Hx      |		PEA.L	0x8
000219b8 4e 91                    |N       |		JSR	(A1)
000219ba 42 81                    |B       |		CLR.L	D1
000219bc 32 35 00 1a              |25      |		MOVE.W	(A5+D0.W+#0x1a),D1
000219c0 2f 01                    |/       |		MOVE.L	D1,-(A7)
000219c2 4e 92                    |N       |		JSR	(A2)
000219c4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219c6 48 78 00 09              |Hx      |		PEA.L	0x9
000219ca 4e 91                    |N       |		JSR	(A1)
000219cc 32 35 00 1c              |25      |		MOVE.W	(A5+D0.W+#0x1c),D1
000219d0 48 c1                    |H       |		EXTW.L	D1
000219d2 2f 01                    |/       |		MOVE.L	D1,-(A7)
000219d4 4e 92                    |N       |		JSR	(A2)
000219d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219d8 48 78 00 09              |Hx      |		PEA.L	0x9
000219dc 4e 91                    |N       |		JSR	(A1)
000219de 32 35 00 1e              |25      |		MOVE.W	(A5+D0.W+#0x1e),D1
000219e2 48 c1                    |H       |		EXTW.L	D1
000219e4 2f 01                    |/       |		MOVE.L	D1,-(A7)
000219e6 4e 92                    |N       |		JSR	(A2)
000219e8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219ea 48 78 00 07              |Hx      |		PEA.L	0x7
000219ee 4e 91                    |N       |		JSR	(A1)
000219f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000219f2 4e b9 00 01 02 dc        |N       |		JSR	StringCat5(a, b, c, d, e : String) : String
000219f8 de fc 00 14              |        |		ADDA.W	#0x14,A7
000219fc 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000219fe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a00 2f 35 00 20              |/5      |		MOVE.L	(A5+D0.W+#0x20),-(A7)
00021a04 4e b9 00 01 03 08        |N       |		JSR	TimeToText()
00021a0a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a0c 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021a0e 7e 0a                    |~       |		MOVEQ.L	#0x0a,D7
00021a10 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00021a12 20 53                    | S      |		MOVEA.L	(A3),A0
00021a14 20 07                    |        |		MOVE.L	D7,D0
00021a16 53 80                    |S       |		SUBQ.L	#0x1,D0
00021a18 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
00021a1e 63 02                    |c       |		BLS	0x21a22
00021a20 4e 4f                    |NO      |		TRAP	#15
00021a22 1f 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),-(A7)
00021a26 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00021a2c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021a2e 52 87                    |R       |		ADDQ.L	#0x1,D7
00021a30 0c 87 00 00 00 12        |        |		CMPI.L	#0x00000012,D7
00021a36 6f d8                    |o       |		BLE	0x21a10
00021a38 48 53                    |HS      |		PEA.L	(A3)
00021a3a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021a40 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a42 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00021a44 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021a4a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a4c 4c df 1f 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4
00021a50 4e 5e                    |N^      |		UNLK	A6
00021a52 4e 75                    |Nu      |		RTS
00021a54 ; --------------------------------------------------------------------------------------
00021a54 ; OMSI PASCAL Function
00021a54 ; --------------------------------------------------------------------------------------
00021a54 4e 56 ff 98              |NV      |		LINK.W	A6,#0xff98
00021a58 bf d5                    |        |		CMPA.L	(A5),A7
00021a5a 62 06                    |b       |		BHI	0x21a62
00021a5c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021a60 4e 76                    |Nv      |		TRAPV
00021a62 de fc 00 64              |   d    |		ADDA.W	#0x64,A7
00021a66 48 e7 c1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D1+D0,-(A7)
00021a6a 45 fa fe b6              |E       |		LEA.L	0x21922,A2
00021a6e 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00021a74 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00021a7a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021a7c 9e fc 00 32              |   2    |		SUBA.W	#0x32,A7
00021a80 20 4f                    | O      |		MOVEA.L	A7,A0
00021a82 43 fa e9 a6              |C       |		LEA.L	0x2042a,A1
00021a86 70 30                    |p0      |		MOVEQ.L	#0x30,D0
00021a88 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021a8a 51 c8 ff fc              |Q       |		DBF	D0,0x21a88
00021a8e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a90 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a94 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a96 3f 3c 00 31              |?< 1    |		MOVE.W	#0x31,-(A7)
00021a9a 4e 93                    |N       |		JSR	(A3)
00021a9c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a9e 4e 94                    |N       |		JSR	(A4)
00021aa0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021aa2 20 4f                    | O      |		MOVEA.L	A7,A0
00021aa4 43 fa e9 b6              |C       |		LEA.L	0x2045c,A1
00021aa8 70 32                    |p2      |		MOVEQ.L	#0x32,D0
00021aaa 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021aac 51 c8 ff fc              |Q       |		DBF	D0,0x21aaa
00021ab0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ab2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ab6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021ab8 3f 3c 00 33              |?< 3    |		MOVE.W	#0x33,-(A7)
00021abc 4e 93                    |N       |		JSR	(A3)
00021abe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ac0 4e 94                    |N       |		JSR	(A4)
00021ac2 de fc 00 36              |   6    |		ADDA.W	#0x36,A7
00021ac6 1e bc 00 04              |        |		MOVE.B	#0x04,(A7)
00021aca 4e 92                    |N       |		JSR	(A2)
00021acc 1e bc 00 07              |        |		MOVE.B	#0x07,(A7)
00021ad0 4e 92                    |N       |		JSR	(A2)
00021ad2 1e bc 00 06              |        |		MOVE.B	#0x06,(A7)
00021ad6 4e 92                    |N       |		JSR	(A2)
00021ad8 1e bc 00 02              |        |		MOVE.B	#0x02,(A7)
00021adc 4e 92                    |N       |		JSR	(A2)
00021ade 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
00021ae2 4e 92                    |N       |		JSR	(A2)
00021ae4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021ae6 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00021ae8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021aea 1f 07                    |        |		MOVE.B	D7,-(A7)
00021aec 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00021af2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021af4 4a 1f                    |J       |		TST.B	(A7)+
00021af6 67 06                    |g       |		BEQ	0x21afe
00021af8 1f 07                    |        |		MOVE.B	D7,-(A7)
00021afa 4e 92                    |N       |		JSR	(A2)
00021afc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021afe 52 07                    |R       |		ADDQ.B	#0x1,D7
00021b00 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
00021b04 6f e2                    |o       |		BLE	0x21ae8
00021b06 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b08 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
00021b0e 4a 1f                    |J       |		TST.B	(A7)+
00021b10 66 0c                    |f       |		BNE	0x21b1e
00021b12 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b14 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
00021b1a 4a 1f                    |J       |		TST.B	(A7)+
00021b1c 67 3a                    |g:      |		BEQ	0x21b58
00021b1e 42 27                    |B'      |		CLR.B	-(A7)
00021b20 4e 92                    |N       |		JSR	(A2)
00021b22 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b24 41 fa e9 8e              |A       |		LEA.L	0x204b4,A0
00021b28 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021b2a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021b2c 51 c8 ff fc              |Q       |		DBF	D0,0x21b2a
00021b30 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021b32 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021b36 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b38 3f 3c 00 24              |?< $    |		MOVE.W	#0x24,-(A7)
00021b3c 4e 93                    |N       |		JSR	(A3)
00021b3e 2e ad 00 f8              |.       |		MOVE.L	(A5+0xf8),(A7)
00021b42 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021b48 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021b4a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021b50 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b52 4e 94                    |N       |		JSR	(A4)
00021b54 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00021b58 4c df 1f 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2+A3+A4
00021b5c 4e 5e                    |N^      |		UNLK	A6
00021b5e 4e 75                    |Nu      |		RTS
00021b60 ; --------------------------------------------------------------------------------------
00021b60 ; OMSI PASCAL Function
00021b60 ; --------------------------------------------------------------------------------------
00021b60 4e 56 ff 90              |NV      |		LINK.W	A6,#0xff90
00021b64 bf d5                    |        |		CMPA.L	(A5),A7
00021b66 62 06                    |b       |		BHI	0x21b6e
00021b68 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021b6c 4e 76                    |Nv      |		TRAPV
00021b6e de fc 00 68              |   h    |		ADDA.W	#0x68,A7
00021b72 48 e7 fb f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
00021b76 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021b7c 47 f9 00 01 03 e0        |G       |		LEA.L	WriteConsoleStringCrLf(str : String),A3
00021b82 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021b84 74 10                    |t       |		MOVEQ.L	#0x10,D2
00021b86 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00021b88 78 21                    |x!      |		MOVEQ.L	#0x21,D4
00021b8a 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021b90 2f 3a e9 2a              |/: *    |		MOVE.L	0x204bc,-(A7)
00021b94 2f 3a e9 22              |/: "    |		MOVE.L	0x204b8,-(A7)
00021b98 2f 3a e9 1a              |/:      |		MOVE.L	0x204b4,-(A7)
00021b9c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b9e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ba2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021ba4 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021ba6 4e 92                    |N       |		JSR	(A2)
00021ba8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021baa 4e 93                    |N       |		JSR	(A3)
00021bac de c2                    |        |		ADDA.W	D2,A7
00021bae 41 fa e9 1e              |A       |		LEA.L	0x204ce,A0
00021bb2 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021bb4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021bb6 51 c8 ff fc              |Q       |		DBF	D0,0x21bb4
00021bba 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021bbc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021bc0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021bc2 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00021bc6 4e 92                    |N       |		JSR	(A2)
00021bc8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021bca 4e 93                    |N       |		JSR	(A3)
00021bcc 9e c2                    |        |		SUBA.W	D2,A7
00021bce 20 4f                    | O      |		MOVEA.L	A7,A0
00021bd0 43 fa e8 fc              |C       |		LEA.L	0x204ce,A1
00021bd4 70 20                    |p       |		MOVEQ.L	#0x20,D0
00021bd6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021bd8 51 c8 ff fc              |Q       |		DBF	D0,0x21bd6
00021bdc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021bde 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021be2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021be4 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021be6 4e 92                    |N       |		JSR	(A2)
00021be8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021bea 4e 93                    |N       |		JSR	(A3)
00021bec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021bee 20 4f                    | O      |		MOVEA.L	A7,A0
00021bf0 43 fa e8 fe              |C       |		LEA.L	0x204f0,A1
00021bf4 70 20                    |p       |		MOVEQ.L	#0x20,D0
00021bf6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021bf8 51 c8 ff fc              |Q       |		DBF	D0,0x21bf6
00021bfc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021bfe 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021c02 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c04 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021c06 4e 92                    |N       |		JSR	(A2)
00021c08 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c0a 4e 93                    |N       |		JSR	(A3)
00021c0c de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00021c10 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
00021c16 4a 1f                    |J       |		TST.B	(A7)+
00021c18 66 0c                    |f       |		BNE	0x21c26
00021c1a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021c1c 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
00021c22 4a 1f                    |J       |		TST.B	(A7)+
00021c24 67 2c                    |g,      |		BEQ	0x21c52
00021c26 9e fc 00 2c              |   ,    |		SUBA.W	#0x2c,A7
00021c2a 20 4f                    | O      |		MOVEA.L	A7,A0
00021c2c 43 fa e8 e4              |C       |		LEA.L	0x20512,A1
00021c30 70 2a                    |p*      |		MOVEQ.L	#0x2a,D0
00021c32 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021c34 51 c8 ff fc              |Q       |		DBF	D0,0x21c32
00021c38 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c3a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021c3e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c40 3f 3c 00 2b              |?< +    |		MOVE.W	#0x2b,-(A7)
00021c44 4e 92                    |N       |		JSR	(A2)
00021c46 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c48 4e 93                    |N       |		JSR	(A3)
00021c4a de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021c4e 7e 03                    |~       |		MOVEQ.L	#0x03,D7
00021c50 60 02                    |`       |		BRA	0x21c54
00021c52 7e 02                    |~       |		MOVEQ.L	#0x02,D7
00021c54 9e c2                    |        |		SUBA.W	D2,A7
00021c56 20 4f                    | O      |		MOVEA.L	A7,A0
00021c58 43 fa e8 e4              |C       |		LEA.L	0x2053e,A1
00021c5c 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021c5e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021c60 51 c8 ff fc              |Q       |		DBF	D0,0x21c5e
00021c64 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021c66 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021c6a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c6c 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00021c70 4e 92                    |N       |		JSR	(A2)
00021c72 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c74 48 78 00 00              |Hx      |		PEA.L	0x0
00021c78 2f 07                    |/       |		MOVE.L	D7,-(A7)
00021c7a 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00021c80 de c3                    |        |		ADDA.W	D3,A7
00021c82 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00021c84 de c2                    |        |		ADDA.W	D2,A7
00021c86 bc 81                    |        |		CMP.L	D1,D6
00021c88 66 06                    |f       |		BNE	0x21c90
00021c8a 4e ba fd c8              |N       |		JSR	0x21a54
00021c8e 60 1a                    |`       |		BRA	0x21caa
00021c90 0c 86 00 00 00 02        |        |		CMPI.L	#0x00000002,D6
00021c96 66 06                    |f       |		BNE	0x21c9e
00021c98 4e ba fa 52              |N  R    |		JSR	0x216ec
00021c9c 60 0c                    |`       |		BRA	0x21caa
00021c9e 0c 86 00 00 00 03        |        |		CMPI.L	#0x00000003,D6
00021ca4 66 04                    |f       |		BNE	0x21caa
00021ca6 4e ba fb ca              |N       |		JSR	0x21872
00021caa 4a 86                    |J       |		TST.L	D6
00021cac 66 00 fe dc              |f       |		BNE	0x21b8a
00021cb0 4c df 0f df              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2+A3
00021cb4 4e 5e                    |N^      |		UNLK	A6
00021cb6 4e 75                    |Nu      |		RTS
00021cb8 ; --------------------------------------------------------------------------------------
00021cb8 ; OMSI PASCAL Function
00021cb8 ;    <LVAR  0x008 1(r)>
00021cb8 ;    <LVAR -0x005 @>
00021cb8 ;    <LVAR -0x009 @>
00021cb8 ;    <LVAR -0x00a @>
00021cb8 ;    <LVAR -0x00b @ 1(r)>
00021cb8 ;    <LVAR -0x00c 1(r)>
00021cb8 ;    <LVAR -0x00d @ 1(r)>
00021cb8 ;    <LVAR -0x00e @ 1(r)>
00021cb8 ;    <LVAR -0x00f @ 1(r)>
00021cb8 ;    <LVAR -0x010 1(r)>
00021cb8 ;    <LVAR -0x011 @ 1(r)>
00021cb8 ;    <LVAR -0x012 @ 1(r)>
00021cb8 ; --------------------------------------------------------------------------------------
00021cb8 4e 56 ff 80              |NV      |		LINK.W	A6,#0xff80		; Spelunked
00021cbc bf d5                    |        |		CMPA.L	(A5),A7
00021cbe 62 06                    |b       |		BHI	0x21cc6
00021cc0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021cc4 4e 76                    |Nv      |		TRAPV
00021cc6 de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
00021cca 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00021cce 41 ee ff f6              |A       |		LEA.L	(A6-0xa),A0
00021cd2 43 ee ff f5              |C       |		LEA.L	(A6-0xb),A1
00021cd6 45 ee ff ee              |E       |		LEA.L	(A6-0x12),A2
00021cda 47 ee ff ef              |G       |		LEA.L	(A6-0x11),A3
00021cde 49 ee ff f1              |I       |		LEA.L	(A6-0xf),A4
00021ce2 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021ce6 48 80                    |H       |		EXTB.W	D0
00021ce8 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
00021cea c3 c0                    |        |		MULS.W	D0,D1
00021cec 4a 35 10 24              |J5 $    |		TST.B	(A5+D1.W+#0x24)
00021cf0 66 00 01 92              |f       |		BNE	0x21e84
00021cf4 34 00                    |4       |		MOVE.W	D0,D2
00021cf6 55 42                    |UB      |		SUBQ.W	#0x2,D2
00021cf8 0c 42 00 0d              | B      |		CMPI.W	#0x000d,D2
00021cfc 62 00 01 26              |b  &    |		BHI	switch@0x21d02[0x2]
00021d00 d4 42                    | B      |		ADD.W	D2,D2
00021d02 34 3b 20 06 4e fb 20 02  |4;  N   |		SWITCH	D2.W
00021d0a 00 b2                    |        |		.CONST	0xb2			; [0x0] -> 0x21dbc
00021d0c 00 82                    |        |		.CONST	0x82			; [0x1] -> 0x21d8c
00021d0e 01 1a                    |        |		.CONST	0x11a			; [0x2] -> 0x21e24
00021d10 01 1a                    |        |		.CONST	0x11a			; [0x3] -> 0x21e24
00021d12 00 1c                    |        |		.CONST	0x1c			; [0x4] -> 0x21d26
00021d14 00 52                    | R      |		.CONST	0x52			; [0x5] -> 0x21d5c
00021d16 01 1a                    |        |		.CONST	0x11a			; [0x6] -> 0x21e24
00021d18 01 1a                    |        |		.CONST	0x11a			; [0x7] -> 0x21e24
00021d1a 01 1a                    |        |		.CONST	0x11a			; [0x8] -> 0x21e24
00021d1c 01 1a                    |        |		.CONST	0x11a			; [0x9] -> 0x21e24
00021d1e 00 e4                    |        |		.CONST	0xe4			; [0xa] -> 0x21dee
00021d20 00 e4                    |        |		.CONST	0xe4			; [0xb] -> 0x21dee
00021d22 00 e4                    |        |		.CONST	0xe4			; [0xc] -> 0x21dee
00021d24 00 e4                    |        |		.CONST	0xe4			; [0xd] -> 0x21dee
00021d26					switch@0x21d02[0x4]:
00021d26 48 52                    |HR      |		PEA.L	(A2)
00021d28 48 53                    |HS      |		PEA.L	(A3)
00021d2a 48 54                    |HT      |		PEA.L	(A4)
00021d2c 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00021d30 48 50                    |HP      |		PEA.L	(A0)
00021d32 48 6e ff f7              |Hn      |		PEA.L	(A6-0x9)
00021d36 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
00021d3a 48 50                    |HP      |		PEA.L	(A0)
00021d3c 48 50                    |HP      |		PEA.L	(A0)
00021d3e 48 50                    |HP      |		PEA.L	(A0)
00021d40 48 50                    |HP      |		PEA.L	(A0)
00021d42 48 50                    |HP      |		PEA.L	(A0)
00021d44 48 50                    |HP      |		PEA.L	(A0)
00021d46 48 50                    |HP      |		PEA.L	(A0)
00021d48 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00021d4c 48 51                    |HQ      |		PEA.L	(A1)
00021d4e 4e b9 00 02 22 44        |N   "D  |		JSR	exp_READ_NOVRAM_INFO.TYP(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_4, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_2, &Fr)
00021d54 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00021d58 60 00 00 cc              |`       |		BRA	0x21e26
00021d5c					switch@0x21d02[0x5]:
00021d5c 48 52                    |HR      |		PEA.L	(A2)
00021d5e 48 53                    |HS      |		PEA.L	(A3)
00021d60 48 54                    |HT      |		PEA.L	(A4)
00021d62 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00021d66 48 50                    |HP      |		PEA.L	(A0)
00021d68 48 6e ff f7              |Hn      |		PEA.L	(A6-0x9)
00021d6c 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
00021d70 48 50                    |HP      |		PEA.L	(A0)
00021d72 48 50                    |HP      |		PEA.L	(A0)
00021d74 48 50                    |HP      |		PEA.L	(A0)
00021d76 48 50                    |HP      |		PEA.L	(A0)
00021d78 48 50                    |HP      |		PEA.L	(A0)
00021d7a 48 50                    |HP      |		PEA.L	(A0)
00021d7c 48 50                    |HP      |		PEA.L	(A0)
00021d7e 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00021d82 48 51                    |HQ      |		PEA.L	(A1)
00021d84 4e b9 00 02 22 c6        |N   "   |		JSR	exp_READ_NOVRAM_INFO.VAL(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_4, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_2, &Fr)
00021d8a 60 c8                    |`       |		BRA	0x21d54
00021d8c					switch@0x21d02[0x1]:
00021d8c 48 52                    |HR      |		PEA.L	(A2)
00021d8e 48 53                    |HS      |		PEA.L	(A3)
00021d90 48 54                    |HT      |		PEA.L	(A4)
00021d92 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00021d96 48 50                    |HP      |		PEA.L	(A0)
00021d98 48 6e ff f7              |Hn      |		PEA.L	(A6-0x9)
00021d9c 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
00021da0 48 50                    |HP      |		PEA.L	(A0)
00021da2 48 50                    |HP      |		PEA.L	(A0)
00021da4 48 50                    |HP      |		PEA.L	(A0)
00021da6 48 50                    |HP      |		PEA.L	(A0)
00021da8 48 50                    |HP      |		PEA.L	(A0)
00021daa 48 50                    |HP      |		PEA.L	(A0)
00021dac 48 50                    |HP      |		PEA.L	(A0)
00021dae 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00021db2 48 51                    |HQ      |		PEA.L	(A1)
00021db4 4e b9 00 02 21 18        |N   !   |		JSR	exp_READ_NOVRAM_INFO.FIU(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_4, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_2, &Fr)
00021dba 60 98                    |`       |		BRA	0x21d54
00021dbc					switch@0x21d02[0x0]:
00021dbc 48 52                    |HR      |		PEA.L	(A2)
00021dbe 48 53                    |HS      |		PEA.L	(A3)
00021dc0 48 54                    |HT      |		PEA.L	(A4)
00021dc2 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00021dc6 48 50                    |HP      |		PEA.L	(A0)
00021dc8 48 6e ff f7              |Hn      |		PEA.L	(A6-0x9)
00021dcc 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
00021dd0 48 50                    |HP      |		PEA.L	(A0)
00021dd2 48 50                    |HP      |		PEA.L	(A0)
00021dd4 48 50                    |HP      |		PEA.L	(A0)
00021dd6 48 50                    |HP      |		PEA.L	(A0)
00021dd8 48 50                    |HP      |		PEA.L	(A0)
00021dda 48 50                    |HP      |		PEA.L	(A0)
00021ddc 48 50                    |HP      |		PEA.L	(A0)
00021dde 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00021de2 48 51                    |HQ      |		PEA.L	(A1)
00021de4 4e b9 00 02 21 9a        |N   !   |		JSR	exp_READ_NOVRAM_INFO.SEQ(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_4, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_2, &Fr)
00021dea 60 00 ff 68              |`  h    |		BRA	0x21d54
00021dee					switch@0x21d02[0xa]:
00021dee					switch@0x21d02[0xb]:
00021dee					switch@0x21d02[0xc]:
00021dee					switch@0x21d02[0xd]:
00021dee 1f 00                    |        |		MOVE.B	D0,-(A7)
00021df0 48 52                    |HR      |		PEA.L	(A2)
00021df2 48 53                    |HS      |		PEA.L	(A3)
00021df4 48 54                    |HT      |		PEA.L	(A4)
00021df6 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00021dfa 48 50                    |HP      |		PEA.L	(A0)
00021dfc 48 6e ff f7              |Hn      |		PEA.L	(A6-0x9)
00021e00 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
00021e04 48 50                    |HP      |		PEA.L	(A0)
00021e06 48 50                    |HP      |		PEA.L	(A0)
00021e08 48 50                    |HP      |		PEA.L	(A0)
00021e0a 48 50                    |HP      |		PEA.L	(A0)
00021e0c 48 50                    |HP      |		PEA.L	(A0)
00021e0e 48 50                    |HP      |		PEA.L	(A0)
00021e10 48 50                    |HP      |		PEA.L	(A0)
00021e12 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00021e16 48 51                    |HQ      |		PEA.L	(A1)
00021e18 4e b9 00 02 25 60        |N   %`  |		JSR	0x22560
00021e1e de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00021e22 60 02                    |`       |		BRA	0x21e26
00021e24					switch@0x21d02[0x2]:
00021e24					switch@0x21d02[0x3]:
00021e24					switch@0x21d02[0x6]:
00021e24					switch@0x21d02[0x7]:
00021e24					switch@0x21d02[0x8]:
00021e24					switch@0x21d02[0x9]:
00021e24 42 11                    |B       |		CLR.B	(A1)
00021e26 4a 11                    |J       |		TST.B	(A1)
00021e28 66 0a                    |f       |		BNE	0x21e34
00021e2a 1f 00                    |        |		MOVE.B	D0,-(A7)
00021e2c 4e ba f6 96              |N       |		JSR	0x214c4
00021e30 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021e32 60 48                    |`H      |		BRA	0x21e7c
00021e34 42 82                    |B       |		CLR.L	D2
00021e36 14 12                    |        |		MOVE.B	(A2),D2
00021e38 3b 82 10 18              |;       |		MOVE.W	D2,(A5+D1.W+#0x18)
00021e3c 42 82                    |B       |		CLR.L	D2
00021e3e 14 13                    |        |		MOVE.B	(A3),D2
00021e40 e1 42                    | B      |		ASL.W	#0x8,D2
00021e42 42 83                    |B       |		CLR.L	D3
00021e44 16 2e ff f0              | .      |		MOVE.B	(A6-0x10),D3
00021e48 d6 42                    | B      |		ADD.W	D2,D3
00021e4a 3b 83 10 1a              |;       |		MOVE.W	D3,(A5+D1.W+#0x1a)
00021e4e 42 82                    |B       |		CLR.L	D2
00021e50 14 14                    |        |		MOVE.B	(A4),D2
00021e52 3b 82 10 1c              |;       |		MOVE.W	D2,(A5+D1.W+#0x1c)
00021e56 42 82                    |B       |		CLR.L	D2
00021e58 14 2e ff f2              | .      |		MOVE.B	(A6-0xe),D2
00021e5c 3b 82 10 1e              |;       |		MOVE.W	D2,(A5+D1.W+#0x1e)
00021e60 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021e62 1e ae ff f3              |        |		MOVE.B	(A6-0xd),(A7)
00021e66 1f 6e ff f4 00 01        | n      |		MOVE.B	(A6-0xc),(A7+0x1)
00021e6c 48 75 10 20              |Hu      |		PEA.L	(A5+D1.W+#0x20)
00021e70 4e ba e7 c2              |N       |		JSR	0x20634
00021e74 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021e76 1b bc 00 01 10 24        |     $  |		MOVE.B	#0x01,(A5+D1.W+#0x24)
00021e7c 1f 00                    |        |		MOVE.B	D0,-(A7)
00021e7e 4e ba f1 d0              |N       |		JSR	0x21050
00021e82 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021e84 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
00021e88 4e 5e                    |N^      |		UNLK	A6
00021e8a 4e 75                    |Nu      |		RTS
00021e8c ; --------------------------------------------------------------------------------------
00021e8c ; OMSI PASCAL Function
00021e8c ; --------------------------------------------------------------------------------------
00021e8c 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00021e90 bf d5                    |        |		CMPA.L	(A5),A7
00021e92 62 06                    |b       |		BHI	0x21e9a
00021e94 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021e98 4e 76                    |Nv      |		TRAPV
00021e9a de fc 00 14              |        |		ADDA.W	#0x14,A7
00021e9e 48 e7 01 80              |H       |		MOVEM.L	A0+D7,-(A7)
00021ea2 41 fa fe 14              |A       |		LEA.L	0x21cb8,A0
00021ea6 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
00021eaa 4e 90                    |N       |		JSR	(A0)
00021eac 1e bc 00 07              |        |		MOVE.B	#0x07,(A7)
00021eb0 4e 90                    |N       |		JSR	(A0)
00021eb2 1e bc 00 06              |        |		MOVE.B	#0x06,(A7)
00021eb6 4e 90                    |N       |		JSR	(A0)
00021eb8 1e bc 00 02              |        |		MOVE.B	#0x02,(A7)
00021ebc 4e 90                    |N       |		JSR	(A0)
00021ebe 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
00021ec2 4e 90                    |N       |		JSR	(A0)
00021ec4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021ec6 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00021ec8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021eca 1f 07                    |        |		MOVE.B	D7,-(A7)
00021ecc 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00021ed2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021ed4 4a 1f                    |J       |		TST.B	(A7)+
00021ed6 67 06                    |g       |		BEQ	0x21ede
00021ed8 1f 07                    |        |		MOVE.B	D7,-(A7)
00021eda 4e 90                    |N       |		JSR	(A0)
00021edc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021ede 52 07                    |R       |		ADDQ.B	#0x1,D7
00021ee0 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
00021ee4 6f e2                    |o       |		BLE	0x21ec8
00021ee6 4c df 01 80              |L       |		MOVEM.L	(A7)+,D7+A0
00021eea 4e 5e                    |N^      |		UNLK	A6
00021eec 4e 75                    |Nu      |		RTS
00021eee ; --------------------------------------------------------------------------------------
00021eee ; OMSI PASCAL Function
00021eee ; --------------------------------------------------------------------------------------
00021eee					START:
00021eee 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00021ef2 4e f9 00 01 02 80        |N       |		JMP	?start_program
00021ef8					MAIN:
00021ef8 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021efe 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021f00 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
00021f02 76 09                    |v       |		MOVEQ.L	#0x09,D3
00021f04 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00021f0a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021f0c 20 4f                    | O      |		MOVEA.L	A7,A0
00021f0e 43 fa e6 3e              |C  >    |		LEA.L	0x2054e,A1
00021f12 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021f14 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f16 51 c8 ff fc              |Q       |		DBF	D0,0x21f14
00021f1a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021f1c 4e b9 00 01 03 c4        |N       |		JSR	GetArgv() : String
00021f22 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f24 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00021f28 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f2a 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00021f2e 4e 92                    |N       |		JSR	(A2)
00021f30 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f32 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00021f38 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f3a 4a 1f                    |J       |		TST.B	(A7)+
00021f3c 67 16                    |g       |		BEQ	0x21f54
00021f3e 48 78 00 00              |Hx      |		PEA.L	0x0
00021f42 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00021f48 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f4a 4e ba ec 68              |N  h    |		JSR	0x20bb4
00021f4e 4e ba ff 3c              |N  <    |		JSR	0x21e8c
00021f52 60 66                    |`f      |		BRA	0x21fba
00021f54 4e b9 00 01 05 b6        |N       |		JSR	R1000_Reset_L(void)
00021f5a 9e c2                    |        |		SUBA.W	D2,A7
00021f5c 20 4f                    | O      |		MOVEA.L	A7,A0
00021f5e 43 fa e5 f6              |C       |		LEA.L	0x20556,A1
00021f62 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021f64 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f66 51 c8 ff fc              |Q       |		DBF	D0,0x21f64
00021f6a 9e c2                    |        |		SUBA.W	D2,A7
00021f6c 20 4f                    | O      |		MOVEA.L	A7,A0
00021f6e 43 fa e5 f0              |C       |		LEA.L	0x20560,A1
00021f72 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021f74 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f76 51 c8 ff fc              |Q       |		DBF	D0,0x21f74
00021f7a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f7c 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00021f80 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f82 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021f84 4e 92                    |N       |		JSR	(A2)
00021f86 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f88 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021f8c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f8e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021f90 4e 92                    |N       |		JSR	(A2)
00021f92 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021f94 1e bc 00 02              |        |		MOVE.B	#0x02,(A7)
00021f98 48 6d 00 fd              |Hm      |		PEA.L	(A5+0xfd)
00021f9c 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00021fa2 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00021fa6 48 78 00 00              |Hx      |		PEA.L	0x0
00021faa 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00021fb0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021fb2 4e ba ec 00              |N       |		JSR	0x20bb4
00021fb6 4e ba fb a8              |N       |		JSR	0x21b60
00021fba 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021fbc 42 17                    |B       |		CLR.B	(A7)
00021fbe 48 78 00 01              |Hx      |		PEA.L	0x1
00021fc2 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021fc8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021fca 4e b9 00 01 02 84        |N       |		JSR	?exit
00021fd0 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00021fd4 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00021fd8 bf d5                    |        |		CMPA.L	(A5),A7
00021fda 4e 76                    |Nv      |		TRAPV
00021fdc 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
00021fe0 30 39 93 03 e0 00        |09      |		MOVE.W	0x9303e000,D0
00021fe6 02 40 00 08              | @      |		ANDI.W	#0x0008,D0
00021fea 67 00 00 06              |g       |		BEQ	0x21ff2
00021fee 52 2e 00 08              |R.      |		ADDQ.B	#0x1,(A6+0x8)
00021ff2 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00021ff6 4e 5e                    |N^      |		UNLK	A6
00021ff8 4e 75                    |Nu      |		RTS
00021ffa 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000		; Spelunked
00021ffe 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00022002 bf d5                    |        |		CMPA.L	(A5),A7
00022004 4e 76                    |Nv      |		TRAPV
00022006 30 3c 02 01              |0<      |		MOVE.W	#0x201,D0
0002200a 4e b9 80 00 20 64        |N    d  |		JSR	0x80002064
00022010 67 00 00 06              |g       |		BEQ	0x22018
00022014 30 7c 00 00              |0|      |		MOVEA.W	#0x0,A0
00022018 2d 48 00 08              |-H      |		MOVE.L	A0,(A6+0x8)
0002201c 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00022020 4e 5e                    |N^      |		UNLK	A6
00022022 4e 75                    |Nu      |		RTS
00022024 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00022028 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
0002202c bf d5                    |        |		CMPA.L	(A5),A7
0002202e 4e 76                    |Nv      |		TRAPV
00022030 30 3c 07 00              |0<      |		MOVE.W	#0x700,D0
00022034 4e b9 80 00 20 64        |N    d  |		JSR	0x80002064
0002203a 67 00 00 06              |g       |		BEQ	0x22042
0002203e 30 7c 00 00              |0|      |		MOVEA.W	#0x0,A0
00022042 2d 48 00 08              |-H      |		MOVE.L	A0,(A6+0x8)
00022046 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
0002204a 4e 5e                    |N^      |		UNLK	A6
0002204c 4e 75                    |Nu      |		RTS
0002204e 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00022052 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00022056 bf d5                    |        |		CMPA.L	(A5),A7
00022058 4e 76                    |Nv      |		TRAPV
0002205a 30 3c 08 00              |0<      |		MOVE.W	#0x800,D0
0002205e 4e b9 80 00 20 64        |N    d  |		JSR	0x80002064
00022064 67 00 00 06              |g       |		BEQ	0x2206c
00022068 30 7c 00 00              |0|      |		MOVEA.W	#0x0,A0
0002206c 2d 48 00 08              |-H      |		MOVE.L	A0,(A6+0x8)
00022070 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00022074 4e 5e                    |N^      |		UNLK	A6
00022076 4e 75                    |Nu      |		RTS
00022078 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
0002207c 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00022080 bf d5                    |        |		CMPA.L	(A5),A7
00022082 4e 76                    |Nv      |		TRAPV
00022084 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
00022088 4e b9 80 00 20 5c        |N    \  |		JSR	0x8000205c
0002208e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022092 42 90                    |B       |		CLR.L	(A0)
00022094 11 41 00 03              | A      |		MOVE.B	D1,(A0+0x3)
00022098 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
0002209c 4e 5e                    |N^      |		UNLK	A6
0002209e 4e 75                    |Nu      |		RTS
000220a0 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
000220a4 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
000220a8 bf d5                    |        |		CMPA.L	(A5),A7
000220aa 4e 76                    |Nv      |		TRAPV
000220ac 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
000220b0 4e b9 80 00 20 60        |N    `  |		JSR	0x80002060
000220b6 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000220ba 42 90                    |B       |		CLR.L	(A0)
000220bc 11 41 00 03              | A      |		MOVE.B	D1,(A0+0x3)
000220c0 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
000220c4 4e 5e                    |N^      |		UNLK	A6
000220c6 4e 75                    |Nu      |		RTS
000220c8 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000		; Spelunked
000220cc 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
000220d0 bf d5                    |        |		CMPA.L	(A5),A7
000220d2 4e 76                    |Nv      |		TRAPV
000220d4 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
000220d8 4e b9 80 00 20 6c        |N    l  |		JSR	0x8000206c
000220de 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000220e2 42 90                    |B       |		CLR.L	(A0)
000220e4 11 41 00 03              | A      |		MOVE.B	D1,(A0+0x3)
000220e8 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
000220ec 4e 5e                    |N^      |		UNLK	A6
000220ee 4e 75                    |Nu      |		RTS
000220f0					exp_WRITE_NOVRAM_DATA.FIU(Sw_1, Sw_2, Sw_1, Sw_1, Sw_2):
000220f0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000220f6 00 12                    |        |		.CONST	0x0012			; Stack-delta
000220f8 15 57 52 49 54 45 5f 4e  | WRITE_N|		.TXT	21,'WRITE_NOVRAM_DATA.FIU'
0002210e 00                       |        |		.CONST	0x0
0002210f 03                       |        |		.CONST	0x3			; DIPROC address
00022110 00                       |        |		.CONST	0x0			; Output Parameters
00022111 05                       |        |		.CONST	0x5			; Input Parameters
00022112 00                       |        |		.CONST	0x0			; In arg [1]
00022113 01                       |        |		.CONST	0x1			; In arg [2]
00022114 00                       |        |		.CONST	0x0			; In arg [1]
00022115 00                       |        |		.CONST	0x0			; In arg [1]
00022116 01                       |        |		.CONST	0x1			; In arg [2]
00022117 00                       |        |		.PAD	0x0
00022118					exp_READ_NOVRAM_INFO.FIU(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_4, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_2, &Fr):
00022118 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002211e 00 48                    | H      |		.CONST	0x0048			; Stack-delta
00022120 14 52 45 41 44 5f 4e 4f  | READ_NO|		.TXT	20,'READ_NOVRAM_INFO.FIU'
00022135 00                       |        |		.CONST	0x0
00022136 03                       |        |		.CONST	0x3			; DIPROC address
00022137 10                       |        |		.CONST	0x10			; Output Parameters
00022138 00                       |        |		.CONST	0x0			; Input Parameters
00022139 00                       |        |		.CONST	0x0			; Out arg [1]
0002213a 01                       |        |		.CONST	0x1			; Out arg [2]
0002213b 00                       |        |		.CONST	0x0			; Out arg [1]
0002213c 00                       |        |		.CONST	0x0			; Out arg [1]
0002213d 00                       |        |		.CONST	0x0			; Out arg [1]
0002213e 03                       |        |		.CONST	0x3			; Out arg [4]
0002213f 01                       |        |		.CONST	0x1			; Out arg [2]
00022140 00                       |        |		.CONST	0x0			; Out arg [1]
00022141 00                       |        |		.CONST	0x0			; Out arg [1]
00022142 00                       |        |		.CONST	0x0			; Out arg [1]
00022143 00                       |        |		.CONST	0x0			; Out arg [1]
00022144 00                       |        |		.CONST	0x0			; Out arg [1]
00022145 00                       |        |		.CONST	0x0			; Out arg [1]
00022146 00                       |        |		.CONST	0x0			; Out arg [1]
00022147 01                       |        |		.CONST	0x1			; Out arg [2]
00022148 08                       |        |		.CONST	0x8			; Out arg flag
00022149 00                       |        |		.PAD	0x0
0002214a					exp_READ_NOVRAM_DATA.FIU(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr):
0002214a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022150 00 20                    |        |		.CONST	0x0020			; Stack-delta
00022152 14 52 45 41 44 5f 4e 4f  | READ_NO|		.TXT	20,'READ_NOVRAM_DATA.FIU'
00022167 00                       |        |		.CONST	0x0
00022168 03                       |        |		.CONST	0x3			; DIPROC address
00022169 06                       |        |		.CONST	0x6			; Output Parameters
0002216a 00                       |        |		.CONST	0x0			; Input Parameters
0002216b 00                       |        |		.CONST	0x0			; Out arg [1]
0002216c 01                       |        |		.CONST	0x1			; Out arg [2]
0002216d 00                       |        |		.CONST	0x0			; Out arg [1]
0002216e 00                       |        |		.CONST	0x0			; Out arg [1]
0002216f 01                       |        |		.CONST	0x1			; Out arg [2]
00022170 08                       |        |		.CONST	0x8			; Out arg flag
00022171 00                       |        |		.PAD	0x0
00022172					exp_WRITE_NOVRAM_DATA.SEQ(Sw_1, Sw_2, Sw_1, Sw_1, Sw_2):
00022172 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022178 00 12                    |        |		.CONST	0x0012			; Stack-delta
0002217a 15 57 52 49 54 45 5f 4e  | WRITE_N|		.TXT	21,'WRITE_NOVRAM_DATA.SEQ'
00022190 00                       |        |		.CONST	0x0
00022191 02                       |        |		.CONST	0x2			; DIPROC address
00022192 00                       |        |		.CONST	0x0			; Output Parameters
00022193 05                       |        |		.CONST	0x5			; Input Parameters
00022194 00                       |        |		.CONST	0x0			; In arg [1]
00022195 01                       |        |		.CONST	0x1			; In arg [2]
00022196 00                       |        |		.CONST	0x0			; In arg [1]
00022197 00                       |        |		.CONST	0x0			; In arg [1]
00022198 01                       |        |		.CONST	0x1			; In arg [2]
00022199 00                       |        |		.PAD	0x0
0002219a					exp_READ_NOVRAM_INFO.SEQ(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_4, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_2, &Fr):
0002219a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000221a0 00 48                    | H      |		.CONST	0x0048			; Stack-delta
000221a2 14 52 45 41 44 5f 4e 4f  | READ_NO|		.TXT	20,'READ_NOVRAM_INFO.SEQ'
000221b7 00                       |        |		.CONST	0x0
000221b8 02                       |        |		.CONST	0x2			; DIPROC address
000221b9 10                       |        |		.CONST	0x10			; Output Parameters
000221ba 00                       |        |		.CONST	0x0			; Input Parameters
000221bb 00                       |        |		.CONST	0x0			; Out arg [1]
000221bc 01                       |        |		.CONST	0x1			; Out arg [2]
000221bd 00                       |        |		.CONST	0x0			; Out arg [1]
000221be 00                       |        |		.CONST	0x0			; Out arg [1]
000221bf 00                       |        |		.CONST	0x0			; Out arg [1]
000221c0 03                       |        |		.CONST	0x3			; Out arg [4]
000221c1 01                       |        |		.CONST	0x1			; Out arg [2]
000221c2 00                       |        |		.CONST	0x0			; Out arg [1]
000221c3 00                       |        |		.CONST	0x0			; Out arg [1]
000221c4 00                       |        |		.CONST	0x0			; Out arg [1]
000221c5 00                       |        |		.CONST	0x0			; Out arg [1]
000221c6 00                       |        |		.CONST	0x0			; Out arg [1]
000221c7 00                       |        |		.CONST	0x0			; Out arg [1]
000221c8 00                       |        |		.CONST	0x0			; Out arg [1]
000221c9 01                       |        |		.CONST	0x1			; Out arg [2]
000221ca 08                       |        |		.CONST	0x8			; Out arg flag
000221cb 00                       |        |		.PAD	0x0
000221cc					exp_READ_NOVRAM_DATA.SEQ(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr):
000221cc 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000221d2 00 20                    |        |		.CONST	0x0020			; Stack-delta
000221d4 14 52 45 41 44 5f 4e 4f  | READ_NO|		.TXT	20,'READ_NOVRAM_DATA.SEQ'
000221e9 00                       |        |		.CONST	0x0
000221ea 02                       |        |		.CONST	0x2			; DIPROC address
000221eb 06                       |        |		.CONST	0x6			; Output Parameters
000221ec 00                       |        |		.CONST	0x0			; Input Parameters
000221ed 00                       |        |		.CONST	0x0			; Out arg [1]
000221ee 01                       |        |		.CONST	0x1			; Out arg [2]
000221ef 00                       |        |		.CONST	0x0			; Out arg [1]
000221f0 00                       |        |		.CONST	0x0			; Out arg [1]
000221f1 01                       |        |		.CONST	0x1			; Out arg [2]
000221f2 08                       |        |		.CONST	0x8			; Out arg flag
000221f3 00                       |        |		.PAD	0x0
000221f4					exp_WRITE_NOVRAM_DATA.TYP(Sw_1, Sw_2, Sw_1, Sw_1, Sw_2):
000221f4 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000221fa 00 12                    |        |		.CONST	0x0012			; Stack-delta
000221fc 15 57 52 49 54 45 5f 4e  | WRITE_N|		.TXT	21,'WRITE_NOVRAM_DATA.TYP'
00022212 00                       |        |		.CONST	0x0
00022213 06                       |        |		.CONST	0x6			; DIPROC address
00022214 00                       |        |		.CONST	0x0			; Output Parameters
00022215 05                       |        |		.CONST	0x5			; Input Parameters
00022216 00                       |        |		.CONST	0x0			; In arg [1]
00022217 01                       |        |		.CONST	0x1			; In arg [2]
00022218 00                       |        |		.CONST	0x0			; In arg [1]
00022219 00                       |        |		.CONST	0x0			; In arg [1]
0002221a 01                       |        |		.CONST	0x1			; In arg [2]
0002221b 00                       |        |		.PAD	0x0
0002221c					exp_READ_NOVRAM_DATA.TYP(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr):
0002221c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00022222 00 20                    |        |		.CONST	0x0020			; Stack-delta
00022224 14 52 45 41 44 5f 4e 4f  | READ_NO|		.TXT	20,'READ_NOVRAM_DATA.TYP'
00022239 00                       |        |		.CONST	0x0
0002223a 06                       |        |		.CONST	0x6			; DIPROC address
0002223b 06                       |        |		.CONST	0x6			; Output Parameters
0002223c 00                       |        |		.CONST	0x0			; Input Parameters
0002223d 00                       |        |		.CONST	0x0			; Out arg [1]
0002223e 01                       |        |		.CONST	0x1			; Out arg [2]
0002223f 00                       |        |		.CONST	0x0			; Out arg [1]
00022240 00                       |        |		.CONST	0x0			; Out arg [1]
00022241 01                       |        |		.CONST	0x1			; Out arg [2]
00022242 08                       |        |		.CONST	0x8			; Out arg flag
00022243 00                       |        |		.PAD	0x0
00022244					exp_READ_NOVRAM_INFO.TYP(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_4, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_2, &Fr):
00022244 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002224a 00 48                    | H      |		.CONST	0x0048			; Stack-delta
0002224c 14 52 45 41 44 5f 4e 4f  | READ_NO|		.TXT	20,'READ_NOVRAM_INFO.TYP'
00022261 00                       |        |		.CONST	0x0
00022262 06                       |        |		.CONST	0x6			; DIPROC address
00022263 10                       |        |		.CONST	0x10			; Output Parameters
00022264 00                       |        |		.CONST	0x0			; Input Parameters
00022265 00                       |        |		.CONST	0x0			; Out arg [1]
00022266 01                       |        |		.CONST	0x1			; Out arg [2]
00022267 00                       |        |		.CONST	0x0			; Out arg [1]
00022268 00                       |        |		.CONST	0x0			; Out arg [1]
00022269 00                       |        |		.CONST	0x0			; Out arg [1]
0002226a 03                       |        |		.CONST	0x3			; Out arg [4]
0002226b 01                       |        |		.CONST	0x1			; Out arg [2]
0002226c 00                       |        |		.CONST	0x0			; Out arg [1]
0002226d 00                       |        |		.CONST	0x0			; Out arg [1]
0002226e 00                       |        |		.CONST	0x0			; Out arg [1]
0002226f 00                       |        |		.CONST	0x0			; Out arg [1]
00022270 00                       |        |		.CONST	0x0			; Out arg [1]
00022271 00                       |        |		.CONST	0x0			; Out arg [1]
00022272 00                       |        |		.CONST	0x0			; Out arg [1]
00022273 01                       |        |		.CONST	0x1			; Out arg [2]
00022274 08                       |        |		.CONST	0x8			; Out arg flag
00022275 00                       |        |		.PAD	0x0
00022276					exp_WRITE_NOVRAM_DATA.VAL(Sw_1, Sw_2, Sw_1, Sw_1, Sw_2):
00022276 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002227c 00 12                    |        |		.CONST	0x0012			; Stack-delta
0002227e 15 57 52 49 54 45 5f 4e  | WRITE_N|		.TXT	21,'WRITE_NOVRAM_DATA.VAL'
00022294 00                       |        |		.CONST	0x0
00022295 07                       |        |		.CONST	0x7			; DIPROC address
00022296 00                       |        |		.CONST	0x0			; Output Parameters
00022297 05                       |        |		.CONST	0x5			; Input Parameters
00022298 00                       |        |		.CONST	0x0			; In arg [1]
00022299 01                       |        |		.CONST	0x1			; In arg [2]
0002229a 00                       |        |		.CONST	0x0			; In arg [1]
0002229b 00                       |        |		.CONST	0x0			; In arg [1]
0002229c 01                       |        |		.CONST	0x1			; In arg [2]
0002229d 00                       |        |		.PAD	0x0
0002229e					exp_READ_NOVRAM_DATA.VAL(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr):
0002229e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000222a4 00 20                    |        |		.CONST	0x0020			; Stack-delta
000222a6 14 52 45 41 44 5f 4e 4f  | READ_NO|		.TXT	20,'READ_NOVRAM_DATA.VAL'
000222bb 00                       |        |		.CONST	0x0
000222bc 07                       |        |		.CONST	0x7			; DIPROC address
000222bd 06                       |        |		.CONST	0x6			; Output Parameters
000222be 00                       |        |		.CONST	0x0			; Input Parameters
000222bf 00                       |        |		.CONST	0x0			; Out arg [1]
000222c0 01                       |        |		.CONST	0x1			; Out arg [2]
000222c1 00                       |        |		.CONST	0x0			; Out arg [1]
000222c2 00                       |        |		.CONST	0x0			; Out arg [1]
000222c3 01                       |        |		.CONST	0x1			; Out arg [2]
000222c4 08                       |        |		.CONST	0x8			; Out arg flag
000222c5 00                       |        |		.PAD	0x0
000222c6					exp_READ_NOVRAM_INFO.VAL(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_4, &Sr_2, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_1, &Sr_2, &Fr):
000222c6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000222cc 00 48                    | H      |		.CONST	0x0048			; Stack-delta
000222ce 14 52 45 41 44 5f 4e 4f  | READ_NO|		.TXT	20,'READ_NOVRAM_INFO.VAL'
000222e3 00                       |        |		.CONST	0x0
000222e4 07                       |        |		.CONST	0x7			; DIPROC address
000222e5 10                       |        |		.CONST	0x10			; Output Parameters
000222e6 00                       |        |		.CONST	0x0			; Input Parameters
000222e7 00                       |        |		.CONST	0x0			; Out arg [1]
000222e8 01                       |        |		.CONST	0x1			; Out arg [2]
000222e9 00                       |        |		.CONST	0x0			; Out arg [1]
000222ea 00                       |        |		.CONST	0x0			; Out arg [1]
000222eb 00                       |        |		.CONST	0x0			; Out arg [1]
000222ec 03                       |        |		.CONST	0x3			; Out arg [4]
000222ed 01                       |        |		.CONST	0x1			; Out arg [2]
000222ee 00                       |        |		.CONST	0x0			; Out arg [1]
000222ef 00                       |        |		.CONST	0x0			; Out arg [1]
000222f0 00                       |        |		.CONST	0x0			; Out arg [1]
000222f1 00                       |        |		.CONST	0x0			; Out arg [1]
000222f2 00                       |        |		.CONST	0x0			; Out arg [1]
000222f3 00                       |        |		.CONST	0x0			; Out arg [1]
000222f4 00                       |        |		.CONST	0x0			; Out arg [1]
000222f5 01                       |        |		.CONST	0x1			; Out arg [2]
000222f6 08                       |        |		.CONST	0x8			; Out arg flag
000222f7 00                       |        |		.PAD	0x0
000222f8 57 52 49 54 45 5f 4e 4f  |WRITE_NO|		.TXT	'WRITE_NOVRAM_DATA.MEM '
0002230e 57 52 49 54 45 5f 4e 4f  |WRITE_NO|		.TXT	'WRITE_NOVRAM_DATA.M32 '
00022324 ; --------------------------------------------------------------------------------------
00022324 ; OMSI PASCAL Function
00022324 ;    <LVAR  0x012 1(r)>
00022324 ;    <LVAR  0x010 1(r)>
00022324 ;    <LVAR  0x00e 2(r)>
00022324 ;    <LVAR  0x00c 1(r)>
00022324 ;    <LVAR  0x00a 1(r)>
00022324 ;    <LVAR  0x008 2(r)>
00022324 ;    <LVAR -0x004 @ 4(r)>
00022324 ; --------------------------------------------------------------------------------------
00022324 4e 56 ff b6              |NV      |		LINK.W	A6,#0xffb6
00022328 bf d5                    |        |		CMPA.L	(A5),A7
0002232a 62 06                    |b       |		BHI	0x22332
0002232c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022330 4e 76                    |Nv      |		TRAPV
00022332 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00022336 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
0002233a 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
0002233e 47 f8 00 00              |G       |		LEA.L	0x0,A3
00022342 49 f9 00 01 04 66        |I    f  |		LEA.L	ExpInputParam(exp : Pointer; ptr : Pointer; len : L),A4
00022348 72 10                    |r       |		MOVEQ.L	#0x10,D1
0002234a 74 16                    |t       |		MOVEQ.L	#0x16,D2
0002234c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002234e 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00022354 4a 1f                    |J       |		TST.B	(A7)+
00022356 67 12                    |g       |		BEQ	0x2236a
00022358 9e c2                    |        |		SUBA.W	D2,A7
0002235a 20 4f                    | O      |		MOVEA.L	A7,A0
0002235c 43 fa ff 9a              |C       |		LEA.L	0x222f8,A1
00022360 70 14                    |p       |		MOVEQ.L	#0x14,D0
00022362 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022364 51 c8 ff fc              |Q       |		DBF	D0,0x22362
00022368 60 10                    |`       |		BRA	0x2237a
0002236a 9e c2                    |        |		SUBA.W	D2,A7
0002236c 20 4f                    | O      |		MOVEA.L	A7,A0
0002236e 43 fa ff 9e              |C       |		LEA.L	0x2230e,A1
00022372 70 14                    |p       |		MOVEQ.L	#0x14,D0
00022374 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022376 51 c8 ff fc              |Q       |		DBF	D0,0x22374
0002237a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002237c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022380 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022384 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
00022388 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002238e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022390 48 52                    |HR      |		PEA.L	(A2)
00022392 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00022398 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
0002239c 1f 2e 00 10              | .      |		MOVE.B	(A6+0x10),-(A7)
000223a0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000223a2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000223a6 48 53                    |HS      |		PEA.L	(A3)
000223a8 48 53                    |HS      |		PEA.L	(A3)
000223aa 4e 94                    |N       |		JSR	(A4)
000223ac de c1                    |        |		ADDA.W	D1,A7
000223ae 3e ae 00 0e              |>       |		MOVE.W	(A6+0xe),(A7)
000223b2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000223b4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000223b8 48 53                    |HS      |		PEA.L	(A3)
000223ba 48 78 00 01              |Hx      |		PEA.L	0x1
000223be 4e 94                    |N       |		JSR	(A4)
000223c0 de c1                    |        |		ADDA.W	D1,A7
000223c2 1e ae 00 0c              |        |		MOVE.B	(A6+0xc),(A7)
000223c6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000223c8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000223cc 48 53                    |HS      |		PEA.L	(A3)
000223ce 48 53                    |HS      |		PEA.L	(A3)
000223d0 4e 94                    |N       |		JSR	(A4)
000223d2 de c1                    |        |		ADDA.W	D1,A7
000223d4 1e ae 00 0a              |        |		MOVE.B	(A6+0xa),(A7)
000223d8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000223da 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000223de 48 53                    |HS      |		PEA.L	(A3)
000223e0 48 53                    |HS      |		PEA.L	(A3)
000223e2 4e 94                    |N       |		JSR	(A4)
000223e4 de c1                    |        |		ADDA.W	D1,A7
000223e6 3e ae 00 08              |>       |		MOVE.W	(A6+0x8),(A7)
000223ea 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000223ec 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000223f0 48 53                    |HS      |		PEA.L	(A3)
000223f2 48 78 00 01              |Hx      |		PEA.L	0x1
000223f6 4e 94                    |N       |		JSR	(A4)
000223f8 de c1                    |        |		ADDA.W	D1,A7
000223fa 42 17                    |B       |		CLR.B	(A7)
000223fc 1f 2e 00 12              | .      |		MOVE.B	(A6+0x12),-(A7)
00022400 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022402 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00022408 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002240a 48 52                    |HR      |		PEA.L	(A2)
0002240c 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00022412 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022414 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00022418 4e 5e                    |N^      |		UNLK	A6
0002241a 4e 75                    |Nu      |		RTS
0002241c 52 45 41 44 5f 4e 4f 56  |READ_NOV|		.TXT	'READ_NOVRAM_DATA.MEM'
00022430 52 45 41 44 5f 4e 4f 56  |READ_NOV|		.TXT	'READ_NOVRAM_DATA.M32'
00022444 ; --------------------------------------------------------------------------------------
00022444 ; OMSI PASCAL Function
00022444 ;    <LVAR  0x020 1(r)>
00022444 ;    <LVAR  0x01c 4(r)>
00022444 ;    <LVAR  0x018 4(r)>
00022444 ;    <LVAR  0x014 4(r)>
00022444 ;    <LVAR  0x010 4(r)>
00022444 ;    <LVAR  0x00c 4(r)>
00022444 ;    <LVAR  0x008 4(r)>
00022444 ;    <LVAR -0x006 @ 4(r)>
00022444 ; --------------------------------------------------------------------------------------
00022444 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
00022448 bf d5                    |        |		CMPA.L	(A5),A7
0002244a 62 06                    |b       |		BHI	0x22452
0002244c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022450 4e 76                    |Nv      |		TRAPV
00022452 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
00022456 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
0002245a 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
0002245e 45 f8 00 00              |E       |		LEA.L	0x0,A2
00022462 47 f9 00 01 04 72        |G    r  |		LEA.L	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L),A3
00022468 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
0002246a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002246c 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00022472 4a 1f                    |J       |		TST.B	(A7)+
00022474 67 0e                    |g       |		BEQ	0x22484
00022476 41 fa ff b8              |A       |		LEA.L	0x22430,A0
0002247a 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002247c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002247e 51 c8 ff fc              |Q       |		DBF	D0,0x2247c
00022482 60 0c                    |`       |		BRA	0x22490
00022484 41 fa ff be              |A       |		LEA.L	0x22444,A0
00022488 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002248a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002248c 51 c8 ff fc              |Q       |		DBF	D0,0x2248a
00022490 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022492 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022496 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002249a 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
0002249e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000224a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224a6 48 51                    |HQ      |		PEA.L	(A1)
000224a8 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000224ae de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000224b2 42 27                    |B'      |		CLR.B	-(A7)
000224b4 1f 2e 00 20              | .      |		MOVE.B	(A6+0x20),-(A7)
000224b8 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000224ba 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000224c0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000224c2 2e 91                    |.       |		MOVE.L	(A1),(A7)
000224c4 20 6e 00 1c              | n      |		MOVEA.L	(A6+0x1c),A0
000224c8 48 50                    |HP      |		PEA.L	(A0)
000224ca 48 52                    |HR      |		PEA.L	(A2)
000224cc 48 52                    |HR      |		PEA.L	(A2)
000224ce 4e 93                    |N       |		JSR	(A3)
000224d0 de c1                    |        |		ADDA.W	D1,A7
000224d2 2e 91                    |.       |		MOVE.L	(A1),(A7)
000224d4 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
000224d8 48 50                    |HP      |		PEA.L	(A0)
000224da 48 52                    |HR      |		PEA.L	(A2)
000224dc 48 78 00 01              |Hx      |		PEA.L	0x1
000224e0 4e 93                    |N       |		JSR	(A3)
000224e2 de c1                    |        |		ADDA.W	D1,A7
000224e4 2e 91                    |.       |		MOVE.L	(A1),(A7)
000224e6 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
000224ea 48 50                    |HP      |		PEA.L	(A0)
000224ec 48 52                    |HR      |		PEA.L	(A2)
000224ee 48 52                    |HR      |		PEA.L	(A2)
000224f0 4e 93                    |N       |		JSR	(A3)
000224f2 de c1                    |        |		ADDA.W	D1,A7
000224f4 2e 91                    |.       |		MOVE.L	(A1),(A7)
000224f6 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000224fa 48 50                    |HP      |		PEA.L	(A0)
000224fc 48 52                    |HR      |		PEA.L	(A2)
000224fe 48 52                    |HR      |		PEA.L	(A2)
00022500 4e 93                    |N       |		JSR	(A3)
00022502 de c1                    |        |		ADDA.W	D1,A7
00022504 2e 91                    |.       |		MOVE.L	(A1),(A7)
00022506 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002250a 48 50                    |HP      |		PEA.L	(A0)
0002250c 48 52                    |HR      |		PEA.L	(A2)
0002250e 48 78 00 01              |Hx      |		PEA.L	0x1
00022512 4e 93                    |N       |		JSR	(A3)
00022514 de c1                    |        |		ADDA.W	D1,A7
00022516 2e 91                    |.       |		MOVE.L	(A1),(A7)
00022518 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002251c 48 50                    |HP      |		PEA.L	(A0)
0002251e 4e b9 00 01 04 78        |N    x  |		JSR	ExpOutputFlag(exp : Pointer; VAR status : Bool)
00022524 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022526 48 51                    |HQ      |		PEA.L	(A1)
00022528 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
0002252e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022530 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
00022534 4e 5e                    |N^      |		UNLK	A6
00022536 4e 75                    |Nu      |		RTS
00022538 52 45 41 44 5f 4e 4f 56  |READ_NOV|		.TXT	'READ_NOVRAM_INFO.MEM'
0002254c 52 45 41 44 5f 4e 4f 56  |READ_NOV|		.TXT	'READ_NOVRAM_INFO.M32'
00022560 ; --------------------------------------------------------------------------------------
00022560 ; OMSI PASCAL Function
00022560 ;    <LVAR  0x048 1(r)>
00022560 ;    <LVAR  0x044 4(r)>
00022560 ;    <LVAR  0x040 4(r)>
00022560 ;    <LVAR  0x03c 4(r)>
00022560 ;    <LVAR  0x038 4(r)>
00022560 ;    <LVAR  0x034 4(r)>
00022560 ;    <LVAR  0x030 4(r)>
00022560 ;    <LVAR  0x02c 4(r)>
00022560 ;    <LVAR  0x028 4(r)>
00022560 ;    <LVAR  0x024 4(r)>
00022560 ;    <LVAR  0x020 4(r)>
00022560 ;    <LVAR  0x01c 4(r)>
00022560 ;    <LVAR  0x018 4(r)>
00022560 ;    <LVAR  0x014 4(r)>
00022560 ;    <LVAR  0x010 4(r)>
00022560 ;    <LVAR  0x00c 4(r)>
00022560 ;    <LVAR  0x008 4(r)>
00022560 ;    <LVAR -0x006 @ 4(r)>
00022560 ; --------------------------------------------------------------------------------------
00022560 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
00022564 bf d5                    |        |		CMPA.L	(A5),A7
00022566 62 06                    |b       |		BHI	0x2256e
00022568 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002256c 4e 76                    |Nv      |		TRAPV
0002256e de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00022572 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
00022576 43 f8 00 00              |C       |		LEA.L	0x0,A1
0002257a 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
0002257e 47 f9 00 01 04 72        |G    r  |		LEA.L	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L),A3
00022584 49 f8 00 01              |I       |		LEA.L	0x1,A4
00022588 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
0002258a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002258c 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00022592 4a 1f                    |J       |		TST.B	(A7)+
00022594 67 0e                    |g       |		BEQ	0x225a4
00022596 41 fa ff b4              |A       |		LEA.L	0x2254c,A0
0002259a 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002259c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002259e 51 c8 ff fc              |Q       |		DBF	D0,0x2259c
000225a2 60 0c                    |`       |		BRA	0x225b0
000225a4 41 fa ff ba              |A       |		LEA.L	0x22560,A0
000225a8 70 04                    |p       |		MOVEQ.L	#0x04,D0
000225aa 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000225ac 51 c8 ff fc              |Q       |		DBF	D0,0x225aa
000225b0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000225b2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000225b6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000225ba 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
000225be 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000225c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000225c6 48 52                    |HR      |		PEA.L	(A2)
000225c8 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000225ce de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000225d2 42 27                    |B'      |		CLR.B	-(A7)
000225d4 1f 2e 00 48              | . H    |		MOVE.B	(A6+0x48),-(A7)
000225d8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000225da 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000225e0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000225e2 2e 92                    |.       |		MOVE.L	(A2),(A7)
000225e4 20 6e 00 44              | n D    |		MOVEA.L	(A6+0x44),A0
000225e8 48 50                    |HP      |		PEA.L	(A0)
000225ea 48 51                    |HQ      |		PEA.L	(A1)
000225ec 48 51                    |HQ      |		PEA.L	(A1)
000225ee 4e 93                    |N       |		JSR	(A3)
000225f0 de c1                    |        |		ADDA.W	D1,A7
000225f2 2e 92                    |.       |		MOVE.L	(A2),(A7)
000225f4 20 6e 00 40              | n @    |		MOVEA.L	(A6+0x40),A0
000225f8 48 50                    |HP      |		PEA.L	(A0)
000225fa 48 51                    |HQ      |		PEA.L	(A1)
000225fc 48 54                    |HT      |		PEA.L	(A4)
000225fe 4e 93                    |N       |		JSR	(A3)
00022600 de c1                    |        |		ADDA.W	D1,A7
00022602 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022604 20 6e 00 3c              | n <    |		MOVEA.L	(A6+0x3c),A0
00022608 48 50                    |HP      |		PEA.L	(A0)
0002260a 48 51                    |HQ      |		PEA.L	(A1)
0002260c 48 51                    |HQ      |		PEA.L	(A1)
0002260e 4e 93                    |N       |		JSR	(A3)
00022610 de c1                    |        |		ADDA.W	D1,A7
00022612 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022614 20 6e 00 38              | n 8    |		MOVEA.L	(A6+0x38),A0
00022618 48 50                    |HP      |		PEA.L	(A0)
0002261a 48 51                    |HQ      |		PEA.L	(A1)
0002261c 48 51                    |HQ      |		PEA.L	(A1)
0002261e 4e 93                    |N       |		JSR	(A3)
00022620 de c1                    |        |		ADDA.W	D1,A7
00022622 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022624 20 6e 00 34              | n 4    |		MOVEA.L	(A6+0x34),A0
00022628 48 50                    |HP      |		PEA.L	(A0)
0002262a 48 51                    |HQ      |		PEA.L	(A1)
0002262c 48 51                    |HQ      |		PEA.L	(A1)
0002262e 4e 93                    |N       |		JSR	(A3)
00022630 de c1                    |        |		ADDA.W	D1,A7
00022632 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022634 20 6e 00 30              | n 0    |		MOVEA.L	(A6+0x30),A0
00022638 48 50                    |HP      |		PEA.L	(A0)
0002263a 48 51                    |HQ      |		PEA.L	(A1)
0002263c 48 78 00 03              |Hx      |		PEA.L	0x3
00022640 4e 93                    |N       |		JSR	(A3)
00022642 de c1                    |        |		ADDA.W	D1,A7
00022644 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022646 20 6e 00 2c              | n ,    |		MOVEA.L	(A6+0x2c),A0
0002264a 48 50                    |HP      |		PEA.L	(A0)
0002264c 48 51                    |HQ      |		PEA.L	(A1)
0002264e 48 54                    |HT      |		PEA.L	(A4)
00022650 4e 93                    |N       |		JSR	(A3)
00022652 de c1                    |        |		ADDA.W	D1,A7
00022654 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022656 20 6e 00 28              | n (    |		MOVEA.L	(A6+0x28),A0
0002265a 48 50                    |HP      |		PEA.L	(A0)
0002265c 48 51                    |HQ      |		PEA.L	(A1)
0002265e 48 51                    |HQ      |		PEA.L	(A1)
00022660 4e 93                    |N       |		JSR	(A3)
00022662 de c1                    |        |		ADDA.W	D1,A7
00022664 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022666 20 6e 00 24              | n $    |		MOVEA.L	(A6+0x24),A0
0002266a 48 50                    |HP      |		PEA.L	(A0)
0002266c 48 51                    |HQ      |		PEA.L	(A1)
0002266e 48 51                    |HQ      |		PEA.L	(A1)
00022670 4e 93                    |N       |		JSR	(A3)
00022672 de c1                    |        |		ADDA.W	D1,A7
00022674 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022676 20 6e 00 20              | n      |		MOVEA.L	(A6+0x20),A0
0002267a 48 50                    |HP      |		PEA.L	(A0)
0002267c 48 51                    |HQ      |		PEA.L	(A1)
0002267e 48 51                    |HQ      |		PEA.L	(A1)
00022680 4e 93                    |N       |		JSR	(A3)
00022682 de c1                    |        |		ADDA.W	D1,A7
00022684 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022686 20 6e 00 1c              | n      |		MOVEA.L	(A6+0x1c),A0
0002268a 48 50                    |HP      |		PEA.L	(A0)
0002268c 48 51                    |HQ      |		PEA.L	(A1)
0002268e 48 51                    |HQ      |		PEA.L	(A1)
00022690 4e 93                    |N       |		JSR	(A3)
00022692 de c1                    |        |		ADDA.W	D1,A7
00022694 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022696 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
0002269a 48 50                    |HP      |		PEA.L	(A0)
0002269c 48 51                    |HQ      |		PEA.L	(A1)
0002269e 48 51                    |HQ      |		PEA.L	(A1)
000226a0 4e 93                    |N       |		JSR	(A3)
000226a2 de c1                    |        |		ADDA.W	D1,A7
000226a4 2e 92                    |.       |		MOVE.L	(A2),(A7)
000226a6 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
000226aa 48 50                    |HP      |		PEA.L	(A0)
000226ac 48 51                    |HQ      |		PEA.L	(A1)
000226ae 48 51                    |HQ      |		PEA.L	(A1)
000226b0 4e 93                    |N       |		JSR	(A3)
000226b2 de c1                    |        |		ADDA.W	D1,A7
000226b4 2e 92                    |.       |		MOVE.L	(A2),(A7)
000226b6 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000226ba 48 50                    |HP      |		PEA.L	(A0)
000226bc 48 51                    |HQ      |		PEA.L	(A1)
000226be 48 51                    |HQ      |		PEA.L	(A1)
000226c0 4e 93                    |N       |		JSR	(A3)
000226c2 de c1                    |        |		ADDA.W	D1,A7
000226c4 2e 92                    |.       |		MOVE.L	(A2),(A7)
000226c6 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000226ca 48 50                    |HP      |		PEA.L	(A0)
000226cc 48 51                    |HQ      |		PEA.L	(A1)
000226ce 48 54                    |HT      |		PEA.L	(A4)
000226d0 4e 93                    |N       |		JSR	(A3)
000226d2 de c1                    |        |		ADDA.W	D1,A7
000226d4 2e 92                    |.       |		MOVE.L	(A2),(A7)
000226d6 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000226da 48 50                    |HP      |		PEA.L	(A0)
000226dc 4e b9 00 01 04 78        |N    x  |		JSR	ExpOutputFlag(exp : Pointer; VAR status : Bool)
000226e2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226e4 48 52                    |HR      |		PEA.L	(A2)
000226e6 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000226ec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000226ee 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
000226f2 4e 5e                    |N^      |		UNLK	A6
000226f4 4e 75                    |Nu      |		RTS
000226f6 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00022704 ; --------------------------------------------------------------------------------------
00022704 ; OMSI PASCAL Function
00022704 ;    <LVAR  0x008 1(r)>
00022704 ; --------------------------------------------------------------------------------------
00022704					PROG_FAIL:
00022704 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00022708 bf d5                    |        |		CMPA.L	(A5),A7
0002270a 62 06                    |b       |		BHI	0x22712
0002270c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022710 4e 76                    |Nv      |		TRAPV
00022712 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00022716 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0002271a 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
0002271e 70 06                    |p       |		MOVEQ.L	#0x06,D0
00022720 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022722 51 c8 ff fc              |Q       |		DBF	D0,0x22720
00022726 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
0002272a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002272c 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00022730 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022734 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00022738 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002273e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022740 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00022744 48 80                    |H       |		EXTB.W	D0
00022746 48 c0                    |H       |		EXTW.L	D0
00022748 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002274a 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00022750 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022752 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022758 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002275a 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022760 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022764 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00022768 4e 5e                    |N^      |		UNLK	A6
0002276a 4e 75                    |Nu      |		RTS
0002276c 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
0002277a 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00022788 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00022796 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
000227a8 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
000227c0 ; --------------------------------------------------------------------------------------
000227c0 ; OMSI PASCAL Function
000227c0 ;    <LVAR  0x00e 1(r)>
000227c0 ;    <LVAR  0x00a 4(r)>
000227c0 ;    <LVAR  0x008 1(r)>
000227c0 ; --------------------------------------------------------------------------------------
000227c0					EXP_FAIL:
000227c0 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
000227c4 bf d5                    |        |		CMPA.L	(A5),A7
000227c6 62 06                    |b       |		BHI	0x227ce
000227c8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000227cc 4e 76                    |Nv      |		TRAPV
000227ce de fc 00 74              |   t    |		ADDA.W	#0x74,A7
000227d2 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000227d6 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000227dc 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
000227e2 72 01                    |r       |		MOVEQ.L	#0x01,D1
000227e4 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
000227e6 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
000227e8 78 12                    |x       |		MOVEQ.L	#0x12,D4
000227ea 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
000227ec 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000227f2 41 fa ff b4              |A       |		LEA.L	0x227a8,A0
000227f6 70 08                    |p       |		MOVEQ.L	#0x08,D0
000227f8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000227fa 51 c8 ff fc              |Q       |		DBF	D0,0x227f8
000227fe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022800 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022804 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022806 3f 04                    |?       |		MOVE.W	D4,-(A7)
00022808 4e 93                    |N       |		JSR	(A3)
0002280a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002280c 4e 94                    |N       |		JSR	(A4)
0002280e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022810 20 4f                    | O      |		MOVEA.L	A7,A0
00022812 43 fa ff 58              |C  X    |		LEA.L	0x2276c,A1
00022816 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022818 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002281a 51 c8 ff fc              |Q       |		DBF	D0,0x22818
0002281e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022820 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00022824 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022826 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022828 4e 93                    |N       |		JSR	(A3)
0002282a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002282c 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00022830 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00022836 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022838 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002283e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022840 4e 94                    |N       |		JSR	(A4)
00022842 de c4                    |        |		ADDA.W	D4,A7
00022844 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00022848 b0 c1                    |        |		CMPA.W	D1,A0
0002284a 67 48                    |gH      |		BEQ	0x22894
0002284c 9e c5                    |        |		SUBA.W	D5,A7
0002284e 22 4f                    |"O      |		MOVEA.L	A7,A1
00022850 45 fa ff 28              |E  (    |		LEA.L	0x2277a,A2
00022854 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022856 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022858 51 c8 ff fc              |Q       |		DBF	D0,0x22856
0002285c 9e c3                    |        |		SUBA.W	D3,A7
0002285e 22 4f                    |"O      |		MOVEA.L	A7,A1
00022860 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00022864 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00022866 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00022868 51 c8 ff fc              |Q       |		DBF	D0,0x22866
0002286c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002286e 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00022872 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022874 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022876 4e 93                    |N       |		JSR	(A3)
00022878 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002287a 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002287e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022880 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022882 4e 93                    |N       |		JSR	(A3)
00022884 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022886 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002288c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002288e 4e 94                    |N       |		JSR	(A4)
00022890 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00022894 9e c5                    |        |		SUBA.W	D5,A7
00022896 20 4f                    | O      |		MOVEA.L	A7,A0
00022898 43 fa fe ee              |C       |		LEA.L	0x22788,A1
0002289c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002289e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000228a0 51 c8 ff fc              |Q       |		DBF	D0,0x2289e
000228a4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000228a6 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000228aa 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228ac 3f 02                    |?       |		MOVE.W	D2,-(A7)
000228ae 4e 93                    |N       |		JSR	(A3)
000228b0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000228b2 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
000228b6 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
000228bc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000228be 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000228c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228c6 4e 94                    |N       |		JSR	(A4)
000228c8 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000228ca 20 4f                    | O      |		MOVEA.L	A7,A0
000228cc 43 fa fe da              |C       |		LEA.L	0x227a8,A1
000228d0 70 16                    |p       |		MOVEQ.L	#0x16,D0
000228d2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000228d4 51 c8 ff fc              |Q       |		DBF	D0,0x228d2
000228d8 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000228dc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000228de 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000228e2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228e4 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000228e8 4e 93                    |N       |		JSR	(A3)
000228ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228ec 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000228f2 de c3                    |        |		ADDA.W	D3,A7
000228f4 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
000228f8 4e 5e                    |N^      |		UNLK	A6
000228fa 4e 75                    |Nu      |		RTS