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

⟦d0a70eeab⟧ M200

    Length: 6144 (0x1800)
    Types: M200
    Notes: @(#)CEDIT,2.1,90/12/03,17:18:19, M200_PROGRAM
    Names: »CEDIT.M200«

Derivation

└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »CEDIT.M200« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »CEDIT.M200« 

Disassembly

0x205a4


@ 205a4
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(rw)>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x004 @ 4(rw)>
    <POP 205a4-20654 Body>                                              
        <POP 205a4-205ba Prologue>                           Σ0         ↓
        <POP 205ba-205c8 RegCacheLoad>                       Σ0         ↓
        <POP 205c8-205ce Naked>                              Σ0         ↓ →0x205d8
            <MI 205c8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 205ca  CMPA.W  #0x01,A0>                                        {}
            <MI 205cc  BNE     0x205d8>                                         {}
        <POP 205ce-205d8 Naked>                              Σ0         ↓
            <Pointer.fp 0x205ce <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x205d0 0x102b8>                                              {[@@8]}
                NewString(VAR a : String)
            <POP 205d6-205d8 StackAdj>                       Δ+4                {}
        <POP 205d8-20630 Naked>                              Σ0         ↓ →0x2063c ←0x205c8
            <Blob 0x205d8 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x205dc [4] @>                             Δ-4                {[«2""»]|[«4""»]}
            <POP 205e0-205e2 StackAdj>                       Δ-4                {[«2""»]|[«4""»]|[-4-]}
            <MI 205e2  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']}
            <POP 205e4-205e6 StackAdj>                       Δ-4                {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[-4-]}
            <Lit 0x205e6 2>                                                     {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[$$ []}
            <MI 205f6  MOVE.L  (A6+0x8),(A7)>                                   {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 205f0-205f6 StackAdj>                       Δ-8                {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]}
            <Call 0x205f8 0x102cc>                                              {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x205fe 4>                                                     {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]|[$$] :_]}
            <Call 0x20610 0x102d8>                                              {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]|[$$] :_]}
                StringCat4(a, b, c, d : String) : String
            <POP 20616-2061a StackAdj>                       Δ+16               {[«2""»]|[«4""»]|[-4-]}
            <MI 2061a  MOVE.L  (A7)+,(A6+0xc)>               Δ+4                {[«2""»]|[«4""»]}
            <POP 2061c-2061e StackAdj>                       Δ+2                {[«2""»]|[-2-]}
            <MI 2061e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, '(A6+0xc)']}
            <Call 0x20620 0x103e4>                                              {[«2""»]|[-2-]|[4, '(A6+0xc)']}
                AskConsoleString(prompt : String) : String
            <POP 20626-20628 StackAdj>                       Δ+4                {[«2""»]|[-2-]}
            <MI 20628  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {}
            <MI 2062a  MOVEA.L (A6-0x4),A0>                                     {}
            <MI 2062c  TST.W   (A0)>                                            {}
            <MI 2062e  BEQ     0x2063c>                                         {}
        <POP 20630-2063c Naked>                              Σ0         →0x20648
            <Pointer.fp 0x20630 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x20632 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 20638-2063a StackAdj>                       Δ+4                {}
            <MI 2063a  BRA     0x20648>                                         {}
        <POP 2063c-20648 Naked>                              Σ0         ↓ ←0x205d8
            <Pointer.fp 0x2063c <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x2063e 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 20644-20646 StackAdj>                       Δ+4                {}
            <MI 20646  MOVE.L  (A6+0x8),(A6-0x4)>                               {}
        <POP 20648-2064c Naked>                              Σ0         ↓ ←0x20630
            <MI 20648  MOVE.L  (A6-0x4),(A6+0x10)>                              {}
        <POP 2064c-20654 Epilogue>                           Σ0         

0x20654


@ 20654
        <LVAR  0x008 4(r)>
    <POP 20654-206e8 Body>                                              
        <POP 20654-2066a Prologue>                           Σ0         ↓
        <POP 2066a-2066c RegCacheLoad>                       Σ0         ↓
        <POP 2066c-206b6 Naked>                              Σ0         ↓
            <MI 2066c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20670  CLR.B   (A0+0x5)>                                        {}
            <MI 20674  CLR.B   (A0+0x4)>                                        {}
            <MI 20678  CLR.B   (A0+0x3)>                                        {}
            <MI 2067c  CLR.B   (A0+0x2)>                                        {}
            <MI 20680  MOVE.B  #0x01,(A0+0x2a)>                                 {}
            <MI 20684  CLR.B   (A0+0x2b)>                                       {}
            <MI 20688  CLR.B   (A0+0x2c)>                                       {}
            <MI 2068c  CLR.B   (A0+0x2d)>                                       {}
            <MI 20690  CLR.B   (A0+0x2e)>                                       {}
            <MI 20694  MOVE.B  #0x01,(A0+0x2f)>                                 {}
            <MI 20698  MOVE.B  #0x01,(A0+0x30)>                                 {}
            <MI 2069c  MOVE.B  #0x01,(A0+0x31)>                                 {}
            <MI 206a0  CLR.B   (A0+0x32)>                                       {}
            <MI 206a4  LEA.L   (A0+0x33),A0>                                    {}
            <MI 206a8  LEA.L   0x2013c,A1>                                      {}
            <BlockMove 30,A1,A0>                                                {}
            <MI 206b4  MOVEQ.L #0x00,D7>                                        {}
        <POP 206b6-206e0 Naked>                              Σ0         ↓ →0x206b6 ←0x206b6
            <MI 206b6  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 206ba  MOVE.B  D7,D0>                                           {}
            <MI 206bc  EXTB.W  D0>                                              {}
            <MI 206be  ASL.W   #0x5,D0>                                         {}
            <MI 206c0  MOVE.B  #0x01,(A0+D0.W+#0x51)>                           {}
            <MI 206c4  CLR.B   (A0+D0.W+#0x52)>                                 {}
            <MI 206c8  LEA.L   (A0+D0.W+#0x53),A0>                              {}
            <MI 206cc  LEA.L   0x2015a,A1>                                      {}
            <BlockMove 30,A1,A0>                                                {}
            <MI 206d8  ADDQ.B  #0x1,D7>                                         {}
            <MI 206da  CMPI.B  #0x09,D7>                                        {}
            <MI 206de  BLE     0x206b6>                                         {}
        <POP 206e0-206e8 Epilogue>                           Σ0         

0x206e8


@ 206e8
        <LVAR -0x002 @>
        <LVAR -0x003 1(r)>
        <LVAR -0x004 1(rw) 2(w)>
        <LVAR -0x005 1(r)>
        <LVAR -0x006 1(rw) 2(w)>
        <LVAR -0x007 1(rw)>
        <LVAR -0x008 @ 1(r) 2(w)>
    <POP 206e8-208ce Body>                                              
        <POP 206e8-206fe Prologue>                           Σ0         ↓
        <POP 206fe-20714 RegCacheLoad>                       Σ0         ↓
        <POP 20714-20756 Naked>                              Σ0 Δ-52    ↓ →0x20758
            <MI 20714  MOVE.W  0x2059e,(A6-0x8)>                                {}
            <MI 20718  MOVE.W  0x205a0,(A6-0x6)>                                {}
            <MI 2071e  MOVE.W  0x205a2,(A6-0x4)>                                {}
            <Pointer.fp 0x20724 <LVAR -0x008 @ 1(r) 2(w)>>   Δ-4                {[@@-8]}
            <Pointer.fp 0x20726 <LVAR -0x002 @>>             Δ-4                {[@@-8]|[@@-2]}
            <Call 0x2072a 0x1057a>                                              {[@@-8]|[@@-2]}
                Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
            <POP 20730-20732 StackAdj>                       Δ+8                {}
            <MI 20732  CLR.B   (A6-0x8)>                                        {}
            <Blob 0x20734 [44] @>                            Δ-44               {[«44""»]}
            <POP 20740-20742 StackAdj>                       Δ-6                {[«44""»]|[-6-]}
            <Lit 0x20742 44>                                                    {[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]}
            <POP 2074c-2074e StackAdj>                       Δ-2                {[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
            <MI 2074e  CLR.B   (A7)>                                            {[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
            <MI 20750  TST.B   (A6-0x7)>                                        {[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
            <MI 20754  BNE     0x20758>                                         {[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
        <POP 20756-20758 Naked>                              Σ-52       ↓
            <MI 20756  ADDQ.B  #0x1,(A7)>                                       {[-52-]}
        <POP 20758-20766 Naked>                              Σ-52 Δ+8   ↓ →0x2083c ←0x20714
            <Call 0x20758 0x103f0>                                              {[-52-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 2075e-20760 StackAdj>                       Δ+6                {[-46-]}
            <MI 20760  TST.B   (A7)+>                        Δ+2                {[-44-]}
            <MI 20762  BEQ     0x2083c>                                         {[-44-]}
        <POP 20766-2083c Naked>                              Σ-44       →0x208ba
            <MI 20766  CLR.B   (A6-0x7)>                                        {[-44-]}
            <MI 2076a  CLR.B   (A6-0x5)>                                        {[-44-]}
            <MI 2076e  CLR.B   (A6-0x3)>                                        {[-44-]}
            <Blob 0x20772 [60] @>                            Δ-60               {[-44-]|[«60""»]}
            <POP 2077e-20780 StackAdj>                       Δ-4                {[-44-]|[«60""»]|[-4-]}
            <Lit 0x20780 60>                                                    {[-44-]|[«60""»]|[$$NOTE: 32 MB boards must be installed as MEM 0 or MEM 2 only.]}
            <Call 0x2078c 0x103e0>                                              {[-44-]|[«60""»]|[$$NOTE: 32 MB boards must be installed as MEM 0 or MEM 2 only.]}
                WriteConsoleStringCrLf(str : String)
            <POP 20792-20796 StackAdj>                       Δ+64               {[-44-]}
            <Blob 0x20796 [60] @>                            Δ-60               {[-44-]|[«60""»]}
            <POP 207a2-207a4 StackAdj>                       Δ-4                {[-44-]|[«60""»]|[-4-]}
            <Lit 0x207a4 60>                                                    {[-44-]|[«60""»]|[$$      8 MB boards cannot be in the same CPU as 32 MB boards.]}
            <Call 0x207b0 0x103e0>                                              {[-44-]|[«60""»]|[$$      8 MB boards cannot be in the same CPU as 32 MB boards.]}
                WriteConsoleStringCrLf(str : String)
            <POP 207b6-207b7 StackAdj>                       Δ+64       ↓       {[-44-]}
            <Blob 0x207b7 [26] @>                            Δ-26               {[-44-]|[«26""»]}
            <POP 207c8-207ca StackAdj>                       Δ-4                {[-44-]|[«26""»]|[-4-]}
            <Lit 0x207ca 25>                                                    {[-44-]|[«26""»]|[$$Does memory board 0 exist]}
            <MI 207d6  MOVEA.L (A7)+,A4>                     Δ+4                {[-44-]|[«26""»]}
            <POP 207d8-207da StackAdj>                       Δ+20               {[-44-]|[-6-]}
            <MI 207da  MOVE.L  A4,(A7)>                                         {[-44-]|[-2-]|[4, 'A4']}
            <MI 207dc  MOVE.B  (A6-0x6),D0>                                     {[-44-]|[-2-]|[4, 'A4']}
            <MI 207e0  EXTB.W  D0>                                              {[-44-]|[-2-]|[4, 'A4']}
            <POP 0x207e2 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-44-]|[-2-]|[4, 'A4']}
            <MI 207e4  MOVE.B  D0,-(A7)>                     Δ-2                {[-44-]|[-2-]|[4, 'A4']|[2, 'D0']}
            <Call 0x207e6 0x103f0>                                              {[-44-]|[-2-]|[4, 'A4']|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 207ec-207ee StackAdj>                       Δ+6                {[-44-]|[-2-]}
            <MI 207ee  MOVE.B  (A7)+,D0>                     Δ+2                {[-44-]}
            <MI 207f0  EXTB.W  D0>                                              {[-44-]}
            <POP 0x207f2 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-44-]}
            <MI 207f4  MOVE.B  D0,(A6-0x6)>                                     {[-44-]}
            <Blob 0x207f8 [26] @>                            Δ-26               {[-44-]|[«26""»]}
            <POP 2080a-2080c StackAdj>                       Δ-4                {[-44-]|[«26""»]|[-4-]}
            <Lit 0x2080c 25>                                                    {[-44-]|[«26""»]|[$$Does memory board 2 exist]}
            <MI 20818  MOVEA.L (A7)+,A4>                     Δ+4                {[-44-]|[«26""»]}
            <POP 2081a-2081c StackAdj>                       Δ+20               {[-44-]|[-6-]}
            <MI 2081c  MOVE.L  A4,(A7)>                                         {[-44-]|[-2-]|[4, 'A4']}
            <MI 2081e  MOVE.B  (A6-0x4),D0>                                     {[-44-]|[-2-]|[4, 'A4']}
            <MI 20822  EXTB.W  D0>                                              {[-44-]|[-2-]|[4, 'A4']}
            <POP 0x20824 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-44-]|[-2-]|[4, 'A4']}
            <MI 20826  MOVE.B  D0,-(A7)>                     Δ-2                {[-44-]|[-2-]|[4, 'A4']|[2, 'D0']}
            <Call 0x20828 0x103f0>                                              {[-44-]|[-2-]|[4, 'A4']|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 2082e-20830 StackAdj>                       Δ+6                {[-44-]|[-2-]}
            <MI 20830  MOVE.B  (A7)+,D0>                     Δ+2                {[-44-]}
            <MI 20832  EXTB.W  D0>                                              {[-44-]}
            <POP 0x20834 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-44-]}
            <MI 20836  MOVE.B  D0,(A6-0x4)>                                     {[-44-]}
            <MI 2083a  BRA     0x208ba>                                         {[-44-]}
        <POP 2083c-20842 Naked>                              Σ-44       ↓ ←0x20758
            <MI 2083c  MOVE.B  #0x01,(A6-0x7)>                                  {[-44-]}
            <MI 20840  MOVEQ.L #0x00,D7>                                        {[-44-]}
        <POP 20842-208ba Naked>                              Σ-44       ↓ →0x20842 ←0x20842
            <Blob 0x20842 [18] @>                            Δ-18               {[-44-]|[«18""»]}
            <Blob 0x2084e [2] @>                             Δ-2                {[-44-]|[«18""»]|[«2""»]}
            <Blob 0x20852 [2] @>                             Δ-2                {[-44-]|[«18""»]|[«2""»]|[«2""»]}
            <Blob 0x20856 [2] @>                             Δ-2                {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]}
            <POP 2085a-2085c StackAdj>                       Δ-8                {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-8-]}
            <Lit 0x2085c 18>                                                    {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$Does memory board_]}
            <MI 20868  MOVE.L  D7,(A7)>                                         {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']}
            <POP 20866-20868 StackAdj>                       Δ-8                {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-8-]}
            <Call 0x2086a 0x102e4>                                              {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x20870 6>                                                     {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-4-]|[$$ exist]}
            <Call 0x2087e 0x102d4>                                              {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-4-]|[$$ exist]}
                StringCat3(a, b, c : String) : String
            <POP 20884-20888 StackAdj>                       Δ+12               {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <MI 20888  MOVEA.L (A7)+,A4>                     Δ+4                {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]}
            <POP 2088a-2088e StackAdj>                       Δ+24               {[-44-]}
            <POP 0x2088e LimitCheck 0x0 ≤ D7 ≤ 0x3>                             {[-44-]}
            <POP 20894-20896 StackAdj>                       Δ-2                {[-46-]}
            <MI 20896  MOVE.L  A4,-(A7)>                     Δ-4                {[-46-]|[4, 'A4']}
            <MI 20898  MOVE.B  (A6+D7.L-#0x6),D0>                               {[-46-]|[4, 'A4']}
            <MI 2089c  EXTB.W  D0>                                              {[-46-]|[4, 'A4']}
            <POP 0x2089e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-46-]|[4, 'A4']}
            <MI 208a0  MOVE.B  D0,-(A7)>                     Δ-2                {[-46-]|[4, 'A4']|[2, 'D0']}
            <Call 0x208a2 0x103f0>                                              {[-46-]|[4, 'A4']|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 208a8-208aa StackAdj>                       Δ+6                {[-46-]}
            <MI 208aa  MOVE.B  (A7)+,D0>                     Δ+2                {[-44-]}
            <MI 208ac  EXTB.W  D0>                                              {[-44-]}
            <POP 0x208ae LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-44-]}
            <MI 208b0  MOVE.B  D0,(A6+D7.L-#0x6)>                               {[-44-]}
            <MI 208b4  ADDQ.L  #0x1,D7>                                         {[-44-]}
            <MI 208b6  CMP.L   #0x03,D7>                                        {[-44-]}
            <MI 208b8  BLE     0x20842>                                         {[-44-]}
        <POP 208ba-208c6 Naked>                              Σ-44 Δ+44  ↓ ←0x20766
            <POP 208ba-208bc StackAdj>                       Δ+44               {}
            <Pointer.fp 0x208bc <LVAR -0x008 @ 1(r) 2(w)>>   Δ-4                {[@@-8]}
            <Call 0x208be 0x10580>                                              {[@@-8]}
                Write_HARDWARE.M200_CONFIG(a : Pointer)
            <POP 208c4-208c6 StackAdj>                       Δ+4                {}
        <POP 208c6-208ce Epilogue>                           Σ0         

0x208ce


@ 208ce
    <POP 208ce-209f2 Body>                                              
        <POP 208ce-208e4 Prologue>                           Σ0         ↓
        <POP 208e4-20900 RegCacheLoad>                       Σ0         ↓
        <POP 20900-209ea Naked>                              Σ0         ↓
            <Blob 0x20900 [40] @>                            Δ-40               {[«40""»]}
            <POP 20910-20912 StackAdj>                       Δ-6                {[«40""»]|[-6-]}
            <Lit 0x20912 39>                                                    {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
            <MI 20920  MOVE.B  0x214ea,D0>                                      {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
            <MI 20922  EXTB.W  D0>                                              {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
            <POP 0x20924 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
            <MI 20926  MOVE.B  D0,-(A7)>                     Δ-2                {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]|[2, 'D0']}
            <Call 0x20928 0x103f0>                                              {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 2092a-2092c StackAdj>                       Δ+6                {[«40""»]|[-2-]}
            <MI 2092c  MOVE.B  (A7)+,D0>                     Δ+2                {[«40""»]}
            <MI 2092e  EXTB.W  D0>                                              {[«40""»]}
            <POP 0x20930 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«40""»]}
            <POP 20932-20934 StackAdj>                       Δ+40               {}
            <MI 20934  MOVE.B  D0,0x214ea>                                      {}
            <Blob 0x20936 [30] @>                            Δ-30               {[«30""»]}
            <POP 20942-20944 StackAdj>                       Δ-6                {[«30""»]|[-6-]}
            <Lit 0x20944 30>                                                    {[«30""»]|[-2-]|[$$Allow editing of configuration]}
            <MI 20950  MOVE.B  0x214eb,D0>                                      {[«30""»]|[-2-]|[$$Allow editing of configuration]}
            <MI 20956  EXTB.W  D0>                                              {[«30""»]|[-2-]|[$$Allow editing of configuration]}
            <POP 0x20958 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«30""»]|[-2-]|[$$Allow editing of configuration]}
            <MI 2095a  MOVE.B  D0,-(A7)>                     Δ-2                {[«30""»]|[-2-]|[$$Allow editing of configuration]|[2, 'D0']}
            <Call 0x2095c 0x103f0>                                              {[«30""»]|[-2-]|[$$Allow editing of configuration]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 2095e-20960 StackAdj>                       Δ+6                {[«30""»]|[-2-]}
            <MI 20960  MOVE.B  (A7)+,D0>                     Δ+2                {[«30""»]}
            <MI 20962  EXTB.W  D0>                                              {[«30""»]}
            <POP 0x20964 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«30""»]}
            <POP 20966-20968 StackAdj>                       Δ+30               {}
            <MI 20968  MOVE.B  D0,0x214eb>                                      {}
            <Blob 0x2096e [58] @>                            Δ-58               {[«58""»]}
            <POP 2097e-20980 StackAdj>                       Δ-6                {[«58""»]|[-6-]}
            <Lit 0x20980 57>                                                    {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
            <MI 2098e  MOVE.B  0x214ec,D0>                                      {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
            <MI 20994  EXTB.W  D0>                                              {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
            <POP 0x20996 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
            <MI 20998  MOVE.B  D0,-(A7)>                     Δ-2                {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]|[2, 'D0']}
            <Call 0x2099a 0x103f0>                                              {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 2099c-2099e StackAdj>                       Δ+6                {[«58""»]|[-2-]}
            <MI 2099e  MOVE.B  (A7)+,D0>                     Δ+2                {[«58""»]}
            <MI 209a0  EXTB.W  D0>                                              {[«58""»]}
            <POP 0x209a2 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«58""»]}
            <POP 209a4-209a6 StackAdj>                       Δ+58               {}
            <MI 209a6  MOVE.B  D0,0x214ec>                                      {}
            <Blob 0x209ac [34] @>                            Δ-34               {[«34""»]}
            <POP 209bc-209be StackAdj>                       Δ-6                {[«34""»]|[-6-]}
            <Lit 0x209be 33>                                                    {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
            <MI 209cc  MOVE.B  0x214ed,D0>                                      {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
            <MI 209d2  EXTB.W  D0>                                              {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
            <POP 0x209d4 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
            <MI 209d6  MOVE.B  D0,-(A7)>                     Δ-2                {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]|[2, 'D0']}
            <Call 0x209d8 0x103f0>                                              {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 209da-209dc StackAdj>                       Δ+6                {[«34""»]|[-2-]}
            <MI 209dc  MOVE.B  (A7)+,D0>                     Δ+2                {[«34""»]}
            <MI 209de  EXTB.W  D0>                                              {[«34""»]}
            <POP 0x209e0 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«34""»]}
            <POP 209e2-209e4 StackAdj>                       Δ+34               {}
            <MI 209e4  MOVE.B  D0,0x214ed>                                      {}
        <POP 209ea-209f2 Epilogue>                           Σ0         

0x209f2


@ 209f2
    <POP 209f2-20b58 Body>                                              
        <POP 209f2-20a08 Prologue>                           Σ0         ↓
        <POP 20a08-20a26 RegCacheLoad>                       Σ0         ↓
        <POP 20a26-20b50 Naked>                              Σ0         ↓
            <Blob 0x20a26 [30] @>                            Δ-30               {[«30""»]}
            <POP 20a36-20a38 StackAdj>                       Δ-6                {[«30""»]|[-6-]}
            <Lit 0x20a38 29>                                                    {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
            <MI 20a44  MOVE.B  0x21512,D0>                                      {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
            <MI 20a46  EXTB.W  D0>                                              {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
            <POP 0x20a48 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
            <MI 20a4a  MOVE.B  D0,-(A7)>                     Δ-2                {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]|[2, 'D0']}
            <Call 0x20a4c 0x103f0>                                              {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20a4e-20a50 StackAdj>                       Δ+6                {[«30""»]|[-2-]}
            <MI 20a50  MOVE.B  (A7)+,D0>                     Δ+2                {[«30""»]}
            <MI 20a52  EXTB.W  D0>                                              {[«30""»]}
            <POP 0x20a54 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«30""»]}
            <POP 20a56-20a58 StackAdj>                       Δ+30               {}
            <MI 20a58  MOVE.B  D0,0x21512>                                      {}
            <Blob 0x20a5a [44] @>                            Δ-44               {[«44""»]}
            <POP 20a6a-20a6c StackAdj>                       Δ-6                {[«44""»]|[-6-]}
            <Lit 0x20a6c 43>                                                    {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
            <MI 20a7a  MOVE.B  0x21513,D0>                                      {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
            <MI 20a80  EXTB.W  D0>                                              {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
            <POP 0x20a82 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
            <MI 20a84  MOVE.B  D0,-(A7)>                     Δ-2                {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]|[2, 'D0']}
            <Call 0x20a86 0x103f0>                                              {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20a88-20a8a StackAdj>                       Δ+6                {[«44""»]|[-2-]}
            <MI 20a8a  MOVE.B  (A7)+,D0>                     Δ+2                {[«44""»]}
            <MI 20a8c  EXTB.W  D0>                                              {[«44""»]}
            <POP 0x20a8e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«44""»]}
            <POP 20a90-20a92 StackAdj>                       Δ+44               {}
            <MI 20a92  MOVE.B  D0,0x21513>                                      {}
            <Blob 0x20a98 [30] @>                            Δ-30               {[«30""»]}
            <POP 20aa8-20aaa StackAdj>                       Δ-6                {[«30""»]|[-6-]}
            <Lit 0x20aaa 29>                                                    {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
            <MI 20ab6  MOVE.B  0x21514,D0>                                      {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
            <MI 20abc  EXTB.W  D0>                                              {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
            <POP 0x20abe LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
            <MI 20ac0  MOVE.B  D0,-(A7)>                     Δ-2                {[«30""»]|[-2-]|[$$Call Rational on kernel crash]|[2, 'D0']}
            <Call 0x20ac2 0x103f0>                                              {[«30""»]|[-2-]|[$$Call Rational on kernel crash]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20ac4-20ac6 StackAdj>                       Δ+6                {[«30""»]|[-2-]}
            <MI 20ac6  MOVE.B  (A7)+,D0>                     Δ+2                {[«30""»]}
            <MI 20ac8  EXTB.W  D0>                                              {[«30""»]}
            <POP 0x20aca LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«30""»]}
            <POP 20acc-20ace StackAdj>                       Δ+30               {}
            <MI 20ace  MOVE.B  D0,0x21514>                                      {}
            <MI 20ad4  CLR.B   0x21515>                                         {}
            <MI 20ada  CLR.B   0x21516>                                         {}
            <Blob 0x20ae0 [36] @>                            Δ-36               {[«36""»]}
            <POP 20aec-20aee StackAdj>                       Δ-6                {[«36""»]|[-6-]}
            <Lit 0x20aee 36>                                                    {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
            <MI 20afa  MOVE.B  0x21517,D0>                                      {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
            <MI 20b00  EXTB.W  D0>                                              {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
            <POP 0x20b02 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
            <MI 20b04  MOVE.B  D0,-(A7)>                     Δ-2                {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]|[2, 'D0']}
            <Call 0x20b06 0x103f0>                                              {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20b08-20b0a StackAdj>                       Δ+6                {[«36""»]|[-2-]}
            <MI 20b0a  MOVE.B  (A7)+,D0>                     Δ+2                {[«36""»]}
            <MI 20b0c  EXTB.W  D0>                                              {[«36""»]}
            <POP 0x20b0e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«36""»]}
            <POP 20b10-20b12 StackAdj>                       Δ+36               {}
            <MI 20b12  MOVE.B  D0,0x21517>                                      {}
            <Blob 0x20b18 [20] @>                            Δ-20               {[«20""»]}
            <POP 20b24-20b26 StackAdj>                       Δ-6                {[«20""»]|[-6-]}
            <Lit 0x20b26 20>                                                    {[«20""»]|[-2-]|[$$Auto boot the kernel]}
            <MI 20b32  MOVE.B  0x21518,D0>                                      {[«20""»]|[-2-]|[$$Auto boot the kernel]}
            <MI 20b38  EXTB.W  D0>                                              {[«20""»]|[-2-]|[$$Auto boot the kernel]}
            <POP 0x20b3a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«20""»]|[-2-]|[$$Auto boot the kernel]}
            <MI 20b3c  MOVE.B  D0,-(A7)>                     Δ-2                {[«20""»]|[-2-]|[$$Auto boot the kernel]|[2, 'D0']}
            <Call 0x20b3e 0x103f0>                                              {[«20""»]|[-2-]|[$$Auto boot the kernel]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20b40-20b42 StackAdj>                       Δ+6                {[«20""»]|[-2-]}
            <MI 20b42  MOVE.B  (A7)+,D0>                     Δ+2                {[«20""»]}
            <MI 20b44  EXTB.W  D0>                                              {[«20""»]}
            <POP 0x20b46 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«20""»]}
            <POP 20b48-20b4a StackAdj>                       Δ+20               {}
            <MI 20b4a  MOVE.B  D0,0x21518>                                      {}
        <POP 20b50-20b58 Epilogue>                           Σ0         

0x20b58


@ 20b58
        <LVAR -0x008 @ 1(r)>
    <POP 20b58-20ca8 Body>                                              
        <POP 20b58-20b6e Prologue>                           Σ0         ↓
        <POP 20b6e-20b86 RegCacheLoad>                       Σ0         ↓
        <POP 20b86-20b8e Naked>                              Σ0         ↓ →0x20b92
            <MI 20b86  TST.B   0x214e6>                                         {}
            <MI 20b8c  BEQ     0x20b92>                                         {}
        <POP 20b8e-20b92 Naked>                              Σ0         →0x20bc6
            <MI 20b8e  CLR.B   0x21519>                                         {}
            <MI 20b90  BRA     0x20bc6>                                         {}
        <POP 20b92-20bc6 Naked>                              Σ0         ↓ ←0x20b86
            <Blob 0x20b92 [42] @>                            Δ-42               {[«42""»]}
            <POP 20b9e-20ba0 StackAdj>                       Δ-6                {[«42""»]|[-6-]}
            <Lit 0x20ba0 42>                                                    {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
            <MI 20bac  MOVE.B  0x21519,D0>                                      {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
            <MI 20bae  EXTB.W  D0>                                              {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
            <POP 0x20bb0 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
            <MI 20bb2  MOVE.B  D0,-(A7)>                     Δ-2                {[«42""»]|[-2-]|[$$Take microcode from standard configuration]|[2, 'D0']}
            <Call 0x20bb4 0x103f0>                                              {[«42""»]|[-2-]|[$$Take microcode from standard configuration]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20bba-20bbc StackAdj>                       Δ+6                {[«42""»]|[-2-]}
            <MI 20bbc  MOVE.B  (A7)+,D0>                     Δ+2                {[«42""»]}
            <MI 20bbe  EXTB.W  D0>                                              {[«42""»]}
            <POP 0x20bc0 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«42""»]}
            <POP 20bc2-20bc4 StackAdj>                       Δ+42               {}
            <MI 20bc4  MOVE.B  D0,0x21519>                                      {}
        <POP 20bc6-20bcc Naked>                              Σ0         ↓ →0x20ca0 ←0x20b8e
            <MI 20bc6  TST.B   0x21519>                                         {}
            <MI 20bc8  BNE     0x20ca0>                                         {}
        <POP 20bcc-20c34 Naked>                              Σ0         ↓ →0x20c5c ←0x20c82
            <Blob 0x20bcc [58] @>                            Δ-58               {[«58""»]}
            <POP 20bd8-20bda StackAdj>                       Δ-6                {[«58""»]|[-6-]}
            <Lit 0x20bda 58>                                                    {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
            <MI 20be6  MOVE.B  0x2151a,D0>                                      {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
            <MI 20bec  EXTB.W  D0>                                              {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
            <POP 0x20bee LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
            <MI 20bf0  MOVE.B  D0,-(A7)>                     Δ-2                {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]|[2, 'D0']}
            <Call 0x20bf2 0x103f0>                                              {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20bf8-20bfa StackAdj>                       Δ+6                {[«58""»]|[-2-]}
            <MI 20bfa  MOVE.B  (A7)+,D0>                     Δ+2                {[«58""»]}
            <MI 20bfc  EXTB.W  D0>                                              {[«58""»]}
            <POP 0x20bfe LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«58""»]}
            <POP 20c00-20c02 StackAdj>                       Δ+58               {}
            <MI 20c02  MOVE.B  D0,0x2151a>                                      {}
            <Blob 0x20c08 [30] 0x2151b>                      Δ-30               {[«30»]}
            <POP 20c1a-20c1c StackAdj>                       Δ-4                {[«30»]|[-4-]}
            <Lit 0x20c1c>                                                       {[«30»]|[$$…]}
                <Pointer.sp 0x20c1c 4>                       Δ-4        
                <Const 0x20c20 0x1.2>                        Δ-2        
                <Const 0x20c22 0x1e.2>                       Δ-2        
                <Call 0x20c24 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20c26-20c28 StackAdj>                   Δ+8        
            <MI 20c28  MOVEA.L (A7)+,A4>                     Δ+4                {[«30»]}
            <POP 20c2a-20c2c StackAdj>                       Δ+30               {}
            <MI 20c2c  TST.B   0x2151a>                                         {}
            <MI 20c32  BEQ     0x20c5c>                                         {}
        <POP 20c34-20c5c Naked>                              Σ0         →0x20c82
            <Blob 0x20c34 [28] @>                            Δ-28               {[«28""»]}
            <POP 20c40-20c42 StackAdj>                       Δ-8                {[«28""»]|[-8-]}
            <Lit 0x20c42 28>                                                    {[«28""»]|[-4-]|[$$Enter default microcode name]}
            <POP 20c4c-20c4e StackAdj>                       Δ-4                {[«28""»]|[-4-]|[$$Enter default microcode name]|[-4-]}
            <MI 20c4e  MOVE.L  A4,(A7)>                                         {[«28""»]|[-4-]|[$$Enter default microcode name]|[4, 'A4']}
            <Call 0x20c50 0x205a4>                                              {[«28""»]|[-4-]|[$$Enter default microcode name]|[4, 'A4']}
            <POP 20c54-20c56 StackAdj>                       Δ+8                {[«28""»]|[-4-]}
            <MI 20c56  MOVEA.L (A7)+,A4>                     Δ+4                {[«28""»]}
            <POP 20c58-20c5a StackAdj>                       Δ+28               {}
            <MI 20c5a  BRA     0x20c82>                                         {}
        <POP 20c5c-20c82 Naked>                              Σ0         ↓ ←0x20bcc
            <Blob 0x20c5c [20] @>                            Δ-20               {[«20""»]}
            <POP 20c68-20c6a StackAdj>                       Δ-8                {[«20""»]|[-8-]}
            <Lit 0x20c6a 20>                                                    {[«20""»]|[-4-]|[$$Enter microcode name]}
            <POP 20c74-20c76 StackAdj>                       Δ-4                {[«20""»]|[-4-]|[$$Enter microcode name]|[-4-]}
            <MI 20c76  MOVE.L  A4,(A7)>                                         {[«20""»]|[-4-]|[$$Enter microcode name]|[4, 'A4']}
            <Call 0x20c78 0x205a4>                                              {[«20""»]|[-4-]|[$$Enter microcode name]|[4, 'A4']}
            <POP 20c7c-20c7e StackAdj>                       Δ+8                {[«20""»]|[-4-]}
            <MI 20c7e  MOVEA.L (A7)+,A4>                     Δ+4                {[«20""»]}
            <POP 20c80-20c82 StackAdj>                       Δ+20               {}
        <POP 20c82-20ca0 Naked>                              Σ0         ↓ →0x20bcc ←0x20c34
            <MI 20c82  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <Const 0x20c84 0x2151b.4>                        Δ-4                {[4, 'A4']|[##136475]}
            <Pointer.fp 0x20c8a <LVAR -0x008 @ 1(r)>>        Δ-4                {[4, 'A4']|[##136475]|[@@-8]}
            <Call 0x20c8e 0x1058c>                                              {[4, 'A4']|[##136475]|[@@-8]}
                FSCALL_1058c
            <POP 20c94-20c98 StackAdj>                       Δ+12               {}
            <MI 20c98  TST.B   (A6-0x8)>                                        {}
            <MI 20c9c  BEQ     0x20bcc>                                         {}
        <POP 20ca0-20ca8 Epilogue>                           Σ0         ←0x20bc6

0x20ca8


@ 20ca8
        <LVAR -0x002 @ 1(r)>
    <POP 20ca8-20ec2 Body>                                              
        <POP 20ca8-20cbe Prologue>                           Σ0         ↓
        <POP 20cbe-20cca RegCacheLoad>                       Σ0         ↓
        <POP 20cca-20cd2 Naked>                              Σ0         ↓ →0x20cd6
            <MI 20cca  TST.B   0x214ed>                                         {}
            <MI 20cd0  BEQ     0x20cd6>                                         {}
        <POP 20cd2-20cd6 Naked>                              Σ0         →0x20cd8
            <MI 20cd2  MOVEQ.L #0x04,D6>                                        {}
            <MI 20cd4  BRA     0x20cd8>                                         {}
        <POP 20cd6-20cd8 Naked>                              Σ0         ↓ ←0x20cca
            <MI 20cd6  MOVEQ.L #0x09,D6>                                        {}
        <POP 20cd8-20ce0 Naked>                              Σ0 Δ-2     ↓ →0x20cea ←0x20cd2
            <MI 20cd8  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <MI 20cda  MOVEQ.L #0x00,D7>                                        {[2, 'D6']}
            <MI 20cdc  CMP.B   (A7),D7>                                         {[2, 'D6']}
            <MI 20cde  BGT     0x20cea>                                         {[2, 'D6']}
        <POP 20ce0-20cea Naked>                              Σ-2        ↓
            <MI 20ce0  MOVE.B  (A7),D0>                                         {[-2-]}
            <POP 0x20ce2 LimitCheck D0 ≤ 0x9>                                   {[-2-]}
                <MI 20ce2  CMPI.B  #0x09,D0>                            
                <MI 20ce6  BLE     0x20cea>                             
                <MI 20ce8  TRAP    #15>                                 
        <POP 20cea-20cf0 Naked>                              Σ-2        ↓ →0x20eb8 ←0x20cd8 ←0x20eb0
            <MI 20cea  CMP.B   (A7),D7>                                         {[-2-]}
            <MI 20cec  BGT     0x20eb8>                                         {[-2-]}
        <POP 20cf0-20d08 Naked>                              Σ-2 Δ-6    ↓ →0x20d0e
            <MI 20cf0  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 20cf2  EXTB.W  D0>                                              {[-2-]}
            <MI 20cf4  ASL.W   #0x5,D0>                                         {[-2-]}
            <MI 20cf6  LEA.L   0x214de,A0>                                      {[-2-]}
            <MI 20cfc  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <MI 20cfe  MOVE.L  A0,-(A7)>                     Δ-4                {[-2-]|[2, 'D0']|[4, 'A0']}
            <MI 20d00  TST.B   0x214e6>                                         {[-2-]|[2, 'D0']|[4, 'A0']}
            <MI 20d06  BEQ     0x20d0e>                                         {[-2-]|[2, 'D0']|[4, 'A0']}
        <POP 20d08-20d0e Naked>                              Σ-8        →0x20d7a
            <MI 20d08  CLR.B   (A0+D0.W+#0x5b)>                                 {[-8-]}
            <MI 20d0c  BRA     0x20d7a>                                         {[-8-]}
        <POP 20d0e-20d7a Naked>                              Σ-8        ↓ ←0x20cf0
            <Blob 0x20d0e [6] @>                             Δ-6                {[-8-]|[«6""»]}
            <Blob 0x20d1e [28] @>                            Δ-28               {[-8-]|[«6""»]|[«28""»]}
            <POP 20d2a-20d2e StackAdj>                       Δ-10               {[-8-]|[«6""»]|[«28""»]|[-10-]}
            <Lit 0x20d2e 5>                                                     {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]}
            <POP 20d3a-20d3c StackAdj>                       Δ-6                {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-6-]}
            <MI 20d3c  MOVE.B  D7,(A7)>                                         {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-6-]}
            <Call 0x20d3e 0x10586>                                              {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-6-]}
                Config_Entry_Name(a : Byte) : String
            <POP 20d44-20d46 StackAdj>                       Δ-2                {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-8-]}
            <Lit 0x20d46 28>                                                    {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-4-]|[$$ from standard configuration]}
            <Call 0x20d54 0x102d4>                                              {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-4-]|[$$ from standard configuration]}
                StringCat3(a, b, c : String) : String
            <POP 20d5a-20d5c StackAdj>                       Δ+12               {[-8-]|[«6""»]|[«28""»]|[-6-]}
            <MI 20d5c  MOVE.B  (A0+D0.W+#0x5b),D1>                              {[-8-]|[«6""»]|[«28""»]|[-6-]}
            <MI 20d60  EXTB.W  D1>                                              {[-8-]|[«6""»]|[«28""»]|[-6-]}
            <POP 0x20d62 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[-8-]|[«6""»]|[«28""»]|[-6-]}
            <MI 20d64  MOVE.B  D1,-(A7)>                     Δ-2                {[-8-]|[«6""»]|[«28""»]|[-6-]|[2, 'D1']}
            <Call 0x20d66 0x103f0>                                              {[-8-]|[«6""»]|[«28""»]|[-6-]|[2, 'D1']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20d6c-20d6e StackAdj>                       Δ+6                {[-8-]|[«6""»]|[«28""»]|[-2-]}
            <MI 20d6e  MOVE.B  (A7)+,D1>                     Δ+2                {[-8-]|[«6""»]|[«28""»]}
            <MI 20d70  EXTB.W  D1>                                              {[-8-]|[«6""»]|[«28""»]}
            <POP 0x20d72 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[-8-]|[«6""»]|[«28""»]}
            <POP 20d74-20d76 StackAdj>                       Δ+34               {[-8-]}
            <MI 20d76  MOVE.B  D1,(A0+D0.W+#0x5b)>                              {[-8-]}
        <POP 20d7a-20d82 Naked>                              Σ-8        ↓ →0x20eb0 ←0x20d08
            <MI 20d7a  TST.B   (A0+D0.W+#0x5b)>                                 {[-8-]}
            <MI 20d7e  BNE     0x20eb0>                                         {[-8-]}
        <POP 20d82-20e14 Naked>                              Σ-8        ↓ →0x20e54 ←0x20e96
            <MI 20d82  MOVEA.L (A7),A0>                                         {[-8-]}
            <MI 20d84  MOVE.W  (A7+0x4),D0>                                     {[-8-]}
            <Blob 0x20d88 [36] @>                            Δ-36               {[-8-]|[«36""»]}
            <POP 20d94-20d98 StackAdj>                       Δ-10               {[-8-]|[«36""»]|[-10-]}
            <Lit 0x20d98 36>                                                    {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]}
            <POP 20da4-20da6 StackAdj>                       Δ-6                {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-6-]}
            <MI 20da6  MOVE.B  D7,(A7)>                                         {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-6-]}
            <Call 0x20da8 0x10586>                                              {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-6-]}
                Config_Entry_Name(a : Byte) : String
            <POP 20dae-20db0 StackAdj>                       Δ+2                {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-4-]}
            <Call 0x20db0 0x102d0>                                              {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20db6-20db8 StackAdj>                       Δ+8                {[-8-]|[«36""»]|[-6-]}
            <MI 20db8  MOVE.B  (A0+D0.W+#0x5c),D1>                              {[-8-]|[«36""»]|[-6-]}
            <MI 20dbc  EXTB.W  D1>                                              {[-8-]|[«36""»]|[-6-]}
            <POP 0x20dbe LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[-8-]|[«36""»]|[-6-]}
            <MI 20dc0  MOVE.B  D1,-(A7)>                     Δ-2                {[-8-]|[«36""»]|[-6-]|[2, 'D1']}
            <Call 0x20dc2 0x103f0>                                              {[-8-]|[«36""»]|[-6-]|[2, 'D1']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20dc8-20dca StackAdj>                       Δ+6                {[-8-]|[«36""»]|[-2-]}
            <MI 20dca  MOVE.B  (A7)+,D1>                     Δ+2                {[-8-]|[«36""»]}
            <MI 20dcc  EXTB.W  D1>                                              {[-8-]|[«36""»]}
            <POP 0x20dce LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[-8-]|[«36""»]}
            <POP 20dd0-20dd4 StackAdj>                       Δ+36               {[-8-]}
            <MI 20dd4  MOVE.B  D1,(A0+D0.W+#0x5c)>                              {[-8-]}
            <MI 20dd8  MOVE.B  D7,D1>                                           {[-8-]}
            <MI 20dda  EXTB.W  D1>                                              {[-8-]}
            <MI 20ddc  MOVE.W  D1,D2>                                           {[-8-]}
            <MI 20dde  ASL.W   #0x5,D2>                                         {[-8-]}
            <MI 20de0  LEA.L   0x214de,A1>                                      {[-8-]}
            <Blob 0x20de6 [30] (A1+D2.W+#0x5d)>              Δ-30               {[-8-]|[«30»]}
            <POP 20df8-20dfa StackAdj>                       Δ-4                {[-8-]|[«30»]|[-4-]}
            <Lit 0x20dfa>                                                       {[-8-]|[«30»]|[$$…]}
                <Pointer.sp 0x20dfa 4>                       Δ-4        
                <Const 0x20dfe 0x1.2>                        Δ-2        
                <Const 0x20e00 0x1e.2>                       Δ-2        
                <Call 0x20e04 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20e06-20e08 StackAdj>                   Δ+8        
            <MI 20e08  MOVEA.L (A7)+,A4>                     Δ+4                {[-8-]|[«30»]}
            <POP 20e0a-20e0e StackAdj>                       Δ+30               {[-8-]}
            <MI 20e0e  TST.B   (A0+D0.W+#0x5c)>                                 {[-8-]}
            <MI 20e12  BEQ     0x20e54>                                         {[-8-]}
        <POP 20e14-20e54 Naked>                              Σ-8        →0x20e96
            <Blob 0x20e14 [34] @>                            Δ-34               {[-8-]|[«34""»]}
            <POP 20e24-20e26 StackAdj>                       Δ-12               {[-8-]|[«34""»]|[-12-]}
            <Lit 0x20e26 33>                                                    {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]}
            <POP 20e32-20e34 StackAdj>                       Δ-6                {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-6-]}
            <MI 20e34  MOVE.B  D1,(A7)>                                         {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-6-]}
            <Call 0x20e36 0x10586>                                              {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-6-]}
                Config_Entry_Name(a : Byte) : String
            <POP 20e3c-20e3e StackAdj>                       Δ+2                {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-4-]}
            <Call 0x20e3e 0x102d0>                                              {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20e44-20e46 StackAdj>                       Δ+4                {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]}
            <MI 20e46  MOVE.L  A4,(A7)>                                         {[-8-]|[«34""»]|[-8-]|[4, 'A4']}
            <Call 0x20e48 0x205a4>                                              {[-8-]|[«34""»]|[-8-]|[4, 'A4']}
            <POP 20e4c-20e4e StackAdj>                       Δ+8                {[-8-]|[«34""»]|[-4-]}
            <MI 20e4e  MOVEA.L (A7)+,A4>                     Δ+4                {[-8-]|[«34""»]}
            <POP 20e50-20e52 StackAdj>                       Δ+34               {[-8-]}
            <MI 20e52  BRA     0x20e96>                                         {[-8-]}
        <POP 20e54-20e96 Naked>                              Σ-8        ↓ ←0x20d82
            <Blob 0x20e54 [26] @>                            Δ-26               {[-8-]|[«26""»]}
            <POP 20e66-20e68 StackAdj>                       Δ-12               {[-8-]|[«26""»]|[-12-]}
            <Lit 0x20e68 25>                                                    {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]}
            <POP 20e74-20e76 StackAdj>                       Δ-6                {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-6-]}
            <MI 20e76  MOVE.B  D1,(A7)>                                         {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-6-]}
            <Call 0x20e78 0x10586>                                              {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-6-]}
                Config_Entry_Name(a : Byte) : String
            <POP 20e7e-20e80 StackAdj>                       Δ+2                {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-4-]}
            <Call 0x20e80 0x102d0>                                              {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20e86-20e88 StackAdj>                       Δ+4                {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]}
            <MI 20e88  MOVE.L  A4,(A7)>                                         {[-8-]|[«26""»]|[-8-]|[4, 'A4']}
            <Call 0x20e8a 0x205a4>                                              {[-8-]|[«26""»]|[-8-]|[4, 'A4']}
            <POP 20e8e-20e90 StackAdj>                       Δ+8                {[-8-]|[«26""»]|[-4-]}
            <MI 20e90  MOVEA.L (A7)+,A4>                     Δ+4                {[-8-]|[«26""»]}
            <POP 20e92-20e96 StackAdj>                       Δ+26               {[-8-]}
        <POP 20e96-20eb0 Naked>                              Σ-8        ↓ →0x20d82 ←0x20e14
            <MI 20e96  MOVE.L  A4,-(A7)>                     Δ-4                {[-8-]|[4, 'A4']}
            <MI 20e98  PEA.L   (A0+D0.W+#0x5d)>              Δ-4                {[-8-]|[4, 'A4']|[4, '^(A0+D0.W+#0x5d)']}
            <Pointer.fp 0x20e9c <LVAR -0x002 @ 1(r)>>        Δ-4                {[-8-]|[4, 'A4']|[4, '^(A0+D0.W+#0x5d)']|[@@-2]}
            <Call 0x20ea0 0x1058c>                                              {[-8-]|[4, 'A4']|[4, '^(A0+D0.W+#0x5d)']|[@@-2]}
                FSCALL_1058c
            <POP 20ea6-20ea8 StackAdj>                       Δ+12               {[-8-]}
            <MI 20ea8  TST.B   (A6-0x2)>                                        {[-8-]}
            <MI 20eac  BEQ     0x20d82>                                         {[-8-]}
        <POP 20eb0-20eb8 Naked>                              Σ-8 Δ+6    ↓ →0x20cea ←0x20d7a
            <POP 20eb0-20eb2 StackAdj>                       Δ+6                {[-2-]}
            <MI 20eb2  ADDQ.B  #0x1,D7>                                         {[-2-]}
            <MI 20eb4  BVC     0x20cea>                                         {[-2-]}
        <POP 20eb8-20eba Naked>                              Σ-2 Δ+2    ↓ ←0x20cea
            <POP 20eb8-20eba StackAdj>                       Δ+2                {}
        <POP 20eba-20ec2 Epilogue>                           Σ0         

0x20ec2


@ 20ec2
    <POP 20ec2-20ee8 Body>                                              
        <POP 20ec2-20ed4 Prologue>                           Σ0         ↓
        <POP 20ed4-20ee4 Naked>                              Σ0         ↓
            <Call 0x20ed4 0x208ce>                                              {}
            <Call 0x20ed8 0x209f2>                                              {}
            <Call 0x20edc 0x20b58>                                              {}
            <Call 0x20ee0 0x20ca8>                                              {}
        <POP 20ee4-20ee8 Epilogue>                           Σ0         

0x20ee8


@ 20ee8
        <LVAR  0x008 4(r)>
    <POP 20ee8-20f44 Body>                                              
        <POP 20ee8-20efe Prologue>                           Σ0         ↓
        <POP 20efe-20f3c Naked>                              Σ0         ↓
            <MI 20efe  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Const 0x20f02 0x214e8.4>                        Δ-4                {[4, '(A6+0x8)']|[##136424]}
            <Call 0x20f08 0x10574>                                              {[4, '(A6+0x8)']|[##136424]}
                Write_ConfigFile(name: String; dst: Pointer)
            <POP 20f0e-20f10 StackAdj>                       Δ+8                {}
            <Blob 0x20f10 [20] @>                            Δ-20               {[«20""»]}
            <POP 20f1c-20f1e StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x20f1e 20>                                                    {[«20""»]|[$$Configuration saved.]}
            <Call 0x20f32 0x103e0>                                              {[«20""»]|[$$Configuration saved.]}
                WriteConsoleStringCrLf(str : String)
            <POP 20f38-20f3c StackAdj>                       Δ+24               {}
        <POP 20f3c-20f44 Epilogue>                           Σ0         

0x20f44


@ 20f44
        <LVAR -0x004 @ 1(rw)>
        <LVAR -0x008 @ 4(rw)>
        <LVAR -0x00c @ 4(rw)>
    <POP 20f44-21250 Body>                                   Δ+4        
        <POP 20f44-20f5a Prologue>                           Σ0         ↓
        <POP 20f5a-20f76 RegCacheLoad>                       Σ0         ↓
        <POP 20f76-20f82 Naked>                              Σ0         ↓ →0x2104e
            <MI 20f76  MOVEA.L 0x2167a,A0>                                      {}
            <MI 20f7c  TST.W   (A0)>                                            {}
            <MI 20f7e  BLE     0x2104e>                                         {}
        <POP 20f82-20fce Naked>                              Σ0 Δ-12    ↓ →0x20ff8
            <POP 20f82-20f84 StackAdj>                       Δ-4                {[-4-]}
            <Blob 0x20f84 [4] 0x2167a>                       Δ-4                {[-4-]|[«4»]}
            <Call 0x20f8a 0x102f0>                                              {[-4-]|[«4»]}
                ToUpper(a : String) : String
            <POP 20f90-20f92 StackAdj>                       Δ+4                {[-4-]}
            <MI 20f92  MOVEA.L (A7)+,A0>                     Δ+4                {}
            <MI 20f94  MOVE.L  A0,(A6-0xc)>                                     {}
            <POP 20f96-20f98 StackAdj>                       Δ-4                {[-4-]}
            <MI 20f98  MOVE.L  A0,-(A7)>                     Δ-4                {[-4-]|[4, 'A0']}
            <Call 0x20f9a 0x102cc>                                              {[-4-]|[4, 'A0']}
                StringDup(a : String) : String
            <POP 20fa0-20fa2 StackAdj>                       Δ+4                {[-4-]}
            <MI 20fa2  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <Blob 0x20fa4 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20fa8 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x20fac [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 20fb0-20fb2 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 20fb2  MOVE.L  A0,-(A7)>                     Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']}
            <POP 20fb4-20fb6 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[-4-]}
            <Lit 0x20fb6 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
            <Call 0x20fc2 0x10300>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
                FSCALL_10300
            <POP 20fc8-20fca StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 20fca  TST.L   (A7)+>                        Δ+4                {[«4""»]|[«4""»]|[«4""»]}
            <MI 20fcc  BNE     0x20ff8>                                         {[«4""»]|[«4""»]|[«4""»]}
        <POP 20fce-20ff8 Naked>                              Σ-12       ↓
            <Blob 0x20fce [4] @>                             Δ-4                {[-12-]|[«4""»]}
            <Blob 0x20fd2 [4] @>                             Δ-4                {[-12-]|[«4""»]|[«4""»]}
            <Blob 0x20fd6 [4] @>                             Δ-4                {[-12-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 20fda-20fdc StackAdj>                       Δ-4                {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 20fdc  MOVE.L  A0,-(A7)>                     Δ-4                {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']}
            <POP 20fde-20fe0 StackAdj>                       Δ-4                {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[-4-]}
            <Lit 0x20fe0 12>                                                    {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
            <Call 0x20fec 0x102d0>                                              {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
                StringCat2(a, b : String) : String
            <POP 20ff2-20ff4 StackAdj>                       Δ+8                {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 20ff4  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[-12-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 20ff6-20ff8 StackAdj>                       Δ+12               {[-12-]}
        <POP 20ff8-21018 Naked>                              Σ-12 Δ+12  ↓ →0x2104a ←0x20f82
            <POP 20ff8-20ffa StackAdj>                       Δ+8                {[-4-]}
            <MI 20ffa  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <Const 0x20ffc 0x3.4>                            Δ-4                {[4, '(A6-0xc)']|[##3]}
            <Const 0x21000 0x214e8.4>                        Δ-4                {[4, '(A6-0xc)']|[##3]|[##136424]}
            <Pointer.fp 0x21006 <LVAR -0x004 @ 1(rw)>>       Δ-4                {[4, '(A6-0xc)']|[##3]|[##136424]|[@@-4]}
            <Call 0x2100a 0x1056e>                                              {[4, '(A6-0xc)']|[##3]|[##136424]|[@@-4]}
                Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
            <POP 21010-21012 StackAdj>                       Δ+16               {}
            <MI 21012  TST.B   (A6-0x4)>                                        {}
            <MI 21016  BNE     0x2104a>                                         {}
        <POP 21018-2104a Naked>                              Σ0         ↓
            <Blob 0x21018 [26] @>                            Δ-26               {[«26""»]}
            <POP 21024-21026 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x21026 26>                                                    {[«26""»]|[$$creating new Configuration]}
            <Call 0x21034 0x103e0>                                              {[«26""»]|[$$creating new Configuration]}
                WriteConsoleStringCrLf(str : String)
            <POP 2103a-2103e StackAdj>                       Δ+30               {}
            <Const 0x2103e 0x214e8.4>                        Δ-4                {[##136424]}
            <Call 0x21044 0x20654>                                              {[##136424]}
            <POP 21048-2104a StackAdj>                       Δ+4                {}
        <POP 2104a-2104e Naked>                              Σ0         →0x211a2 ←0x20ff8
            <MI 2104a  BRA     0x211a2>                                         {}
        <POP 2104e-210ca Naked>                              Σ0 Δ-56    ↓ →0x210f4 ←0x20f76 ←0x2119a
            <Blob 0x2104e [36] @>                            Δ-36               {[«36""»]}
            <Blob 0x2105e [4] @>                             Δ-4                {[«36""»]|[«4""»]}
            <Blob 0x21062 [4] @>                             Δ-4                {[«36""»]|[«4""»]|[«4""»]}
            <POP 21066-21068 StackAdj>                       Δ-12               {[«36""»]|[«4""»]|[«4""»]|[-12-]}
            <Lit 0x21068 35>                                                    {[«36""»]|[«4""»]|[«4""»]|[-8-]|[$$Enter name of configuration to edit]}
            <POP 21072-21074 StackAdj>                       Δ-4                {[«36""»]|[«4""»]|[«4""»]|[-8-]|[$$Enter name of configuration to edit]|[-4-]}
            <Lit 0x21074 8>                                                     {[«36""»]|[«4""»]|[«4""»]|[-8-]|[$$Enter name of configuration to edit]|[$$STANDARD]}
            <Call 0x21080 0x205a4>                                              {[«36""»]|[«4""»]|[«4""»]|[-8-]|[$$Enter name of configuration to edit]|[$$STANDARD]}
            <POP 21084-21086 StackAdj>                       Δ+8                {[«36""»]|[«4""»]|[«4""»]|[-8-]}
            <Call 0x21086 0x102f0>                                              {[«36""»]|[«4""»]|[«4""»]|[-8-]}
                ToUpper(a : String) : String
            <POP 2108c-2108e StackAdj>                       Δ+4                {[«36""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 2108e  MOVEA.L (A7)+,A0>                     Δ+4                {[«36""»]|[«4""»]|[«4""»]}
            <MI 21090  MOVE.L  A0,(A6-0xc)>                                     {[«36""»]|[«4""»]|[«4""»]}
            <POP 21092-21094 StackAdj>                       Δ-4                {[«36""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 21094  MOVE.L  A0,-(A7)>                     Δ-4                {[«36""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']}
            <Call 0x21096 0x102cc>                                              {[«36""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']}
                StringDup(a : String) : String
            <POP 2109c-2109e StackAdj>                       Δ+4                {[«36""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 2109e  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«36""»]|[«4""»]|[«4""»]}
            <Blob 0x210a0 [4] @>                             Δ-4                {[«36""»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x210a4 [4] @>                             Δ-4                {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x210a8 [4] @>                             Δ-4                {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 210ac-210ae StackAdj>                       Δ-4                {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 210ae  MOVE.L  A0,-(A7)>                     Δ-4                {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']}
            <POP 210b0-210b2 StackAdj>                       Δ-4                {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[-4-]}
            <Lit 0x210b2 12>                                                    {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
            <Call 0x210be 0x10300>                                              {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
                FSCALL_10300
            <POP 210c4-210c6 StackAdj>                       Δ+8                {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 210c6  TST.L   (A7)+>                        Δ+4                {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 210c8  BNE     0x210f4>                                         {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
        <POP 210ca-210f4 Naked>                              Σ-56       ↓
            <Blob 0x210ca [4] @>                             Δ-4                {[-56-]|[«4""»]}
            <Blob 0x210ce [4] @>                             Δ-4                {[-56-]|[«4""»]|[«4""»]}
            <Blob 0x210d2 [4] @>                             Δ-4                {[-56-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 210d6-210d8 StackAdj>                       Δ-4                {[-56-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 210d8  MOVE.L  A0,-(A7)>                     Δ-4                {[-56-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']}
            <POP 210da-210dc StackAdj>                       Δ-4                {[-56-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[-4-]}
            <Lit 0x210dc 12>                                                    {[-56-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
            <Call 0x210e8 0x102d0>                                              {[-56-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
                StringCat2(a, b : String) : String
            <POP 210ee-210f0 StackAdj>                       Δ+8                {[-56-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 210f0  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[-56-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 210f2-210f4 StackAdj>                       Δ+12               {[-56-]}
        <POP 210f4-21116 Naked>                              Σ-56 Δ+56  ↓ →0x2114a ←0x2104e
            <POP 210f4-210f8 StackAdj>                       Δ+52               {[-4-]}
            <MI 210f8  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <Const 0x210fa 0x3.4>                            Δ-4                {[4, '(A6-0xc)']|[##3]}
            <Const 0x210fe 0x214e8.4>                        Δ-4                {[4, '(A6-0xc)']|[##3]|[##136424]}
            <Pointer.fp 0x21104 <LVAR -0x004 @ 1(rw)>>       Δ-4                {[4, '(A6-0xc)']|[##3]|[##136424]|[@@-4]}
            <Call 0x21108 0x1056e>                                              {[4, '(A6-0xc)']|[##3]|[##136424]|[@@-4]}
                Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
            <POP 2110e-21110 StackAdj>                       Δ+16               {}
            <MI 21110  TST.B   (A6-0x4)>                                        {}
            <MI 21114  BEQ     0x2114a>                                         {}
        <POP 21116-2114a Naked>                              Σ0         →0x2119a
            <Blob 0x21116 [36] @>                            Δ-36               {[«36""»]}
            <POP 21126-21128 StackAdj>                       Δ-12               {[«36""»]|[-12-]}
            <Lit 0x21128 35>                                                    {[«36""»]|[-8-]|[$$Enter name of configuration to save]}
            <POP 21132-21134 StackAdj>                       Δ-4                {[«36""»]|[-8-]|[$$Enter name of configuration to save]|[-4-]}
            <MI 21134  MOVE.L  (A6-0x8),(A7)>                                   {[«36""»]|[-8-]|[$$Enter name of configuration to save]|[4, '(A6-0x8)']}
            <Call 0x21136 0x205a4>                                              {[«36""»]|[-8-]|[$$Enter name of configuration to save]|[4, '(A6-0x8)']}
            <POP 2113a-2113c StackAdj>                       Δ+8                {[«36""»]|[-8-]}
            <Call 0x2113c 0x102f0>                                              {[«36""»]|[-8-]}
                ToUpper(a : String) : String
            <POP 21142-21144 StackAdj>                       Δ+4                {[«36""»]|[-4-]}
            <MI 21144  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«36""»]}
            <POP 21146-21148 StackAdj>                       Δ+36               {}
            <MI 21148  BRA     0x2119a>                                         {}
        <POP 2114a-21184 Naked>                              Σ0         ↓ →0x21190 ←0x210f4
            <Blob 0x2114a [40] @>                            Δ-40               {[«40""»]}
            <POP 2115a-2115c StackAdj>                       Δ-6                {[«40""»]|[-6-]}
            <Lit 0x2115c 39>                                                    {[«40""»]|[-2-]|[$$Configuration does not exist, create it]}
            <POP 21168-2116a StackAdj>                       Δ-2                {[«40""»]|[-2-]|[$$Configuration does not exist, create it]|[-2-]}
            <POP 2116a-2116b StackAdj>                       Δ+2                {[«40""»]|[-2-]|[$$Configuration does not exist, create it]}
            <Const 0x2116b 0x1.2>                            Δ-2                {[«40""»]|[-2-]|[$$Configuration does not exist, create it]|[#1]}
            <Call 0x2116c 0x103f0>                                              {[«40""»]|[-2-]|[$$Configuration does not exist, create it]|[#1]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 21172-21174 StackAdj>                       Δ+6                {[«40""»]|[-2-]}
            <MI 21174  MOVE.B  (A7)+,D0>                     Δ+2                {[«40""»]}
            <MI 21176  EXTB.W  D0>                                              {[«40""»]}
            <POP 0x21178 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«40""»]}
            <POP 2117a-2117c StackAdj>                       Δ+40               {}
            <MI 2117c  MOVE.B  D0,(A6-0x4)>                                     {}
            <MI 21180  TST.B   D0>                                              {}
            <MI 21182  BEQ     0x21190>                                         {}
        <POP 21184-21190 Naked>                              Σ0 Δ-4     →0x21198
            <Const 0x21184 0x214e8.4>                        Δ-4                {[##136424]}
            <Call 0x2118a 0x20654>                                              {[##136424]}
            <MI 2118e  BRA     0x21198>                                         {[##136424]}
        <POP 21190-21198 Naked>                              Σ0 Δ-4     ↓ ←0x2114a
            <Pointer.fp 0x21190 <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x21192 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
        <POP 21198-2119a Naked>                              Σ-4 Δ+4    ↓ ←0x21184
            <POP 21198-2119a StackAdj>                       Δ+4                {}
        <POP 2119a-211a2 Naked>                              Σ0         ↓ →0x2104e ←0x21116
            <MI 2119a  TST.B   (A6-0x4)>                                        {}
            <MI 2119e  BEQ     0x2104e>                                         {}
        <POP 211a2-211fc Naked>                              Σ0 Δ-12    ↓ →0x21226 ←0x2104a
            <Blob 0x211a2 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x211a6 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 211aa-211ac StackAdj>                       Δ-2                {[«4""»]|[«4""»]|[-2-]}
            <MI 211ac  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[«4""»]|[«4""»]|[-2-]|[4, '(A6-0x8)']}
            <POP 211ae-211b0 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-2-]|[4, '(A6-0x8)']|[-4-]}
            <Lit 0x211b0 8>                                                     {[«4""»]|[«4""»]|[-2-]|[4, '(A6-0x8)']|[$$STANDARD]}
            <Call 0x211bc 0x102c8>                                              {[«4""»]|[«4""»]|[-2-]|[4, '(A6-0x8)']|[$$STANDARD]}
                StringEqual(a, b : String) : Byte
            <POP 211c2-211c4 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-2-]}
            <MI 211c4  MOVE.B  (A7)+,D0>                     Δ+2                {[«4""»]|[«4""»]}
            <MI 211c6  EXTB.W  D0>                                              {[«4""»]|[«4""»]}
            <POP 0x211c8 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«4""»]|[«4""»]}
            <POP 211ca-211cc StackAdj>                       Δ+8                {}
            <MI 211cc  MOVE.B  D0,0x214e6>                                      {}
            <Blob 0x211d2 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x211d6 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x211da [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 211de-211e0 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 211e0  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']}
            <POP 211e2-211e4 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[-4-]}
            <Lit 0x211e4 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[$$.M200_CONFIG]}
            <Call 0x211f0 0x10300>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[$$.M200_CONFIG]}
                FSCALL_10300
            <POP 211f6-211f8 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 211f8  TST.L   (A7)+>                        Δ+4                {[«4""»]|[«4""»]|[«4""»]}
            <MI 211fa  BNE     0x21226>                                         {[«4""»]|[«4""»]|[«4""»]}
        <POP 211fc-21226 Naked>                              Σ-12       ↓
            <Blob 0x211fc [4] @>                             Δ-4                {[-12-]|[«4""»]}
            <Blob 0x21200 [4] @>                             Δ-4                {[-12-]|[«4""»]|[«4""»]}
            <Blob 0x21204 [4] @>                             Δ-4                {[-12-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 21208-2120a StackAdj>                       Δ-4                {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 2120a  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']}
            <POP 2120c-2120e StackAdj>                       Δ-4                {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[-4-]}
            <Lit 0x2120e 12>                                                    {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[$$.M200_CONFIG]}
            <Call 0x2121a 0x102d0>                                              {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[$$.M200_CONFIG]}
                StringCat2(a, b : String) : String
            <POP 21220-21222 StackAdj>                       Δ+8                {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 21222  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[-12-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 21224-21226 StackAdj>                       Δ+12               {[-12-]}
        <POP 21226-21248 Naked>                              Σ-12 Δ+12  ↓ ←0x211a2
            <POP 21226-21228 StackAdj>                       Δ+12               {}
            <Call 0x21228 0x20ec2>                                              {}
            <MI 2122c  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Call 0x2122e 0x20ee8>                                              {[4, '(A6-0x8)']}
            <POP 21232-21234 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x21234 <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x21236 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 2123c-2123e StackAdj>                       Δ+4                {}
            <Pointer.fp 0x2123e <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x21240 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 21246-21248 StackAdj>                       Δ+4                {}
        <POP 21248-21250 Epilogue>                           Σ0         

0x21250


@ 21250
START
    <POP 21250--0001 Body>                                              
        <POP 21250-2125a Prologue>                           Σ0         
        <POP 2125a-21262 RegCacheLoad>                       Σ0         ↓
        <POP 21262-21278 Naked>                              Σ0         ↓ →0x212c0
            <Call 0x21262 0x10398>                                              {}
                FSCALL_10398
            <POP 21268-2126a StackAdj>                       Δ-4                {[-4-]}
            <Call 0x2126a 0x103c4>                                              {[-4-]}
                GetArgv() : String
            <MI 21270  MOVE.L  (A7)+,0x2167a>                Δ+4                {}
            <MI 21272  MOVEA.L 0x2167a,A0>                                      {}
            <MI 21274  TST.W   (A0)>                                            {}
            <MI 21276  BNE     0x212c0>                                         {}
        <POP 21278-212ac Naked>                              Σ0 Δ-30    ↓ →0x212be
            <Blob 0x21278 [30] @>                            Δ-30               {[«30""»]}
            <POP 21288-2128a StackAdj>                       Δ-6                {[«30""»]|[-6-]}
            <Lit 0x2128a 29>                                                    {[«30""»]|[-2-]|[$$Change hardware configuration]}
            <POP 2129c-2129e StackAdj>                       Δ-2                {[«30""»]|[-2-]|[$$Change hardware configuration]|[-2-]}
            <MI 2129e  CLR.B   (A7)>                                            {[«30""»]|[-2-]|[$$Change hardware configuration]|[-2-]}
            <Call 0x212a0 0x103f0>                                              {[«30""»]|[-2-]|[$$Change hardware configuration]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 212a6-212a8 StackAdj>                       Δ+6                {[«30""»]|[-2-]}
            <MI 212a8  TST.B   (A7)+>                        Δ+2                {[«30""»]}
            <MI 212aa  BEQ     0x212be>                                         {[«30""»]}
        <POP 212ac-212be Naked>                              Σ-30       ↓
            <Call 0x212ac 0x206e8>                                              {[-30-]}
            <MI 212b0  CLR.B   -(A7)>                        Δ-2                {[-30-]|[#0]}
            <Const 0x212b2 0x1.4>                            Δ-4                {[-30-]|[#0]|[##1]}
            <Call 0x212b6 0x103b8>                                              {[-30-]|[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 212bc-212be StackAdj>                       Δ+6                {[-30-]}
        <POP 212be-212c0 Naked>                              Σ-30 Δ+30  ↓ ←0x21278
            <POP 212be-212c0 StackAdj>                       Δ+30               {}
        <POP 212c0-212d2 Naked>                              Σ0         ↓ ←0x21262
            <Call 0x212c0 0x20f44>                                              {}
            <MI 212c4  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x212c6 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x212ca 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 212d0-212d2 StackAdj>                       Δ+6                {}
        <POP 212d2-212d8 Naked>                              Σ0         
            <Call 0x212d2 0x10284>                                              {}
                ?exit

0x212e6


@ 212e6
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 212e6-2134e Body>                                              
        <POP 212e6-212fc Prologue>                           Σ0         ↓
        <POP 212fc-21346 Naked>                              Σ0         ↓
            <Blob 0x212fc [14] @>                            Δ-14               {[«14""»]}
            <Const 0x21308 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 2130c-2130e StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x2130e 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 21320-21322 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21322  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21326  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21328  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2132a  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x2132c 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 21332-21334 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x21334 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2133a-2133c StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x2133c 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 21342-21346 StackAdj>                       Δ+20               {}
        <POP 21346-2134e Epilogue>                           Σ0         

0x213a2


@ 213a2
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 213a2-214de Body>                                              
        <POP 213a2-213b8 Prologue>                           Σ0         ↓
        <POP 213b8-213ce RegCacheLoad>                       Σ0         ↓
        <POP 213ce-2142e Naked>                              Σ0         ↓ →0x21476
            <Call 0x213ce 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x213d4 [18] @>                            Δ-18               {[«18""»]}
            <POP 213e0-213e2 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x213e2 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x213ee 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 213f0-213f1 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x213f1 [14] @>                            Δ-14               {[«14""»]}
            <POP 21400-21402 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x21402 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 2140c-2140e StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 2140e  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x21412 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 21418-2141a StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x2141a 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21420-21422 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x21422 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21424-21426 StackAdj>                       Δ+18               {}
            <MI 21426  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 2142a  CMPA.W  #0x01,A0>                                        {}
            <MI 2142c  BEQ     0x21476>                                         {}
        <POP 2142e-21476 Naked>                              Σ0         ↓
            <Blob 0x2142e [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x2143e [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 2144e-21450 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x21450 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 2145a-2145c StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x2145c>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x2145c 12>                      Δ-4        
                <Const 0x21460 0x1.2>                        Δ-2        
                <Const 0x21462 0x1e.2>                       Δ-2        
                <Call 0x21464 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21466-21468 StackAdj>                   Δ+8        
            <Call 0x21468 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 2146e-21470 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x21470 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21472-21476 StackAdj>                       Δ+48               {}
        <POP 21476-214d6 Naked>                              Σ0         ↓ ←0x213ce
            <Blob 0x21476 [14] @>                            Δ-14               {[«14""»]}
            <POP 21486-21488 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x21488 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 21492-21494 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 21494  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x21498 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 2149e-214a0 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x214a0 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 214a6-214a8 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x214a8 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 214aa-214ab StackAdj>                       Δ+18       ↓       {}
            <Blob 0x214ab [24] @>                            Δ-24               {[«24""»]}
            <Const 0x214ba 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 214be-214c0 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x214c0 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x214ce 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 214d4-214d6 StackAdj>                       Δ+30               {}
        <POP 214d6-214de Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   import ident.d94867300bda0973
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 12 50              |   P    |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 16 8e              |        |		.PTR	0x2168e
00020010					code.end:
00020010 00 02 14 de              |        |		.PTR	0x214de
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 12 e6              |        |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 13 a2              |        |		.CODE	EXP_FAIL
00020020 00 00 00 00              |        |		.CONST	0x00000000
00020024					exp_init_done:
00020024 00                       |        |		.CONST	0x00
00020025 00                       |        |		.CONST	0x00
00020026 00 00                    |        |		.CONST	0x0000
00020028 00 00                    |        |		.CONST	0x0000
0002002a 00 00                    |        |		.XXX[0x2]
0002002c 00 00                    |        |		.CONST	0x0000
0002002e 00 00                    |        |		.CONST	0x0000
00020030 00 00                    |        |		.CONST	0x0000
00020032 00 00 00 00 00 00        |        |		.XXX[0x6]
00020038 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0xb0]
000200e8 00 00 00 00              |        |		.XXX[0x4]
000200ec 00 00 00 00              |        |		.PTR	0x0
000200f0					is_open_ERROR_LOG:
000200f0 00                       |        |		.CONST	0x0
000200f1					write_error_ERROR_LOG:
000200f1 00                       |        |		.CONST	0x0
000200f2 00 00 00 00              |        |		.CONST	0x00000000
000200f6 00 00 00 00              |        |		.CONST	0x00000000
000200fa 00                       |        |		.CONST	0x00
000200fb 00                       |        |		.CONST	0x00
000200fc					file_ERROR_LOG:
000200fc 00 00 00 00              |        |		.CONST	0x00000000
00020100 00 00 00 00              |        |		.CONST	0x00000000
00020104 00 00                    |        |		.CONST	0x0000
00020106 00 00                    |        |		.CONST	0x0000
00020108					somekindoffsflag:
00020108 00                       |        |		.CONST	0x00
00020109 00                       |        |		.CONST	0x00
0002010a 40 28 23 29 43 45        |@(#)CE  |		.XXX[0x6]
00020110 44 49 54 2c 32 2e 31 2c  |DIT,2.1,|		.XXX[0x18]
00020118 39 30 2f 31 32 2f 30 33  |90/12/03|
00020120 2c 31 37 3a 31 38 3a 31  |,17:18:1|
00020128 39 5c                    |9\      |		.XXX[0x2]
0002012a 2e 4d 32 30              |.M20    |		.TXT	'.M20'
0002012e 30 5f 43 4f              |0_CO    |		.TXT	'0_CO'
00020132 4e 46 49 47              |NFIG    |		.TXT	'NFIG'
00020136 20 5b                    | [      |		.TXT	' ['
00020138 5d 20 3a 5f              |] :_    |		.TXT	'] :_'
0002013c 43 55 52 52              |CURR    |		.XXX[0x4]
00020140 45 4e 54 20 20 20 20 20  |ENT     |		.XXX[0x8]
00020148 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x30]
00020178 44 6f 65 73 20 74 68 69  |Does thi|		.TXT	'Does this processor have 32 MB memory boards'
000201a4					t_Is_this_a_multi_processor_:
000201a4 49 73 20 74 68 69 73 20  |Is this |		.TXT	'Is this a multi-processor '
000201be 4e 4f 54 45 3a 20 33 32  |NOTE: 32|		.TXT	'NOTE: 32 MB boards must be installed as MEM 0 or MEM 2 only.'
000201fa 20 20 20 20 20 20 38 20  |      8 |		.TXT	'      8 MB boards cannot be in the same CPU as 32 MB boards.'
00020236 44 6f 65 73 20 6d 65 6d  |Does mem|		.TXT	'Does memory board 0 exist '
00020250 44 6f 65 73 20 6d 65 6d  |Does mem|		.TXT	'Does memory board 2 exist '
0002026a 44 6f 65 73 20 6d 65 6d  |Does mem|		.TXT	'Does memory board_'
0002027c 20 65                    | e      |		.TXT	' e'
0002027e 78 69                    |xi      |		.TXT	'xi'
00020280 73 74                    |st      |		.TXT	'st'
00020282 41 6c 6c 6f 77 20 6f 70  |Allow op|		.TXT	'Allow operator to enter CLI immediately '
000202aa 41 6c 6c 6f 77 20 65 64  |Allow ed|		.TXT	'Allow editing of configuration'
000202c8 41 6c 6c 6f 77 20 6f 70  |Allow op|		.TXT	'Allow operator to enter CLI prior to starting the cluster '
00020302 4c 6f 61 64 20 6b 65 72  |Load ker|		.TXT	'Load kernel layer subsystems only '
00020324 41 75 74 6f 20 62 6f 6f  |Auto boo|		.TXT	'Auto boot the kernel debugger '
00020342 57 61 69 74 20 66 6f 72  |Wait for|		.TXT	'Wait for remote debugging on kernel crashes '
0002036e 43 61 6c 6c 20 52 61 74  |Call Rat|		.TXT	'Call Rational on kernel crash '
0002038c 41 75 74 6f 20 62 6f 6f  |Auto boo|		.TXT	'Auto boot the environment elaborator'
000203b0 41 75 74 6f 20 62 6f 6f  |Auto boo|		.TXT	'Auto boot the kernel'
000203c4 54 61 6b 65 20 6d 69 63  |Take mic|		.TXT	'Take microcode from standard configuration'
000203ee 53 68 6f 75 6c 64 20 74  |Should t|		.TXT	'Should this configuration query for microcode when booting'
00020428 45 6e 74 65 72 20 64 65  |Enter de|		.TXT	'Enter default microcode name'
00020444 45 6e 74 65 72 20 6d 69  |Enter mi|		.TXT	'Enter microcode name'
00020458 20 66 72 6f 6d 20 73 74  | from st|		.TXT	' from standard configuration'
00020474 53 68 6f 75 6c 64 20 74  |Should t|		.TXT	'Should this configuration query for_'
00020498 45 6e 74 65 72 20 64 65  |Enter de|		.TXT	'Enter default subsystem name for_ '
000204ba 45 6e 74 65 72 20 73 75  |Enter su|		.TXT	'Enter subsystem name for_ '
000204d4 54 61 6b 65 5f 20        |Take_   |		.TXT	'Take_ '
000204da 43 6f 6e 66 69 67 75 72  |Configur|		.TXT	'Configuration saved.'
000204ee 45 6e 74 65 72 20 6e 61  |Enter na|		.TXT	'Enter name of configuration to edit '
00020512 45 6e 74 65 72 20 6e 61  |Enter na|		.TXT	'Enter name of configuration to save '
00020536 43 6f 6e 66 69 67 75 72  |Configur|		.TXT	'Configuration does not exist, create it '
0002055e 53 54 41 4e              |STAN    |		.TXT	'STAN'
00020562 44 41 52 44              |DARD    |		.TXT	'DARD'
00020566 63 72 65 61 74 69 6e 67  |creating|		.TXT	'creating new Configuration'
00020580 43 68 61 6e 67 65 20 68  |Change h|		.TXT	'Change hardware configuration '
0002059e					proto_hw_config:
0002059e 00 00 01 00 01 00        |        |		.CONST	0x0,0x0,0x1,0x0,0x1,0x0
000205a4 ; --------------------------------------------------------------------------------------
000205a4 ; OMSI PASCAL Function
000205a4 ;    <LVAR  0x010 4(w)>
000205a4 ;    <LVAR  0x00c 4(rw)>
000205a4 ;    <LVAR  0x008 @ 4(r)>
000205a4 ;    <LVAR -0x004 @ 4(rw)>
000205a4 ; --------------------------------------------------------------------------------------
000205a4 4e 56 ff c2              |NV      |		LINK.W	A6,#0xffc2
000205a8 bf d5                    |        |		CMPA.L	(A5),A7
000205aa 62 06                    |b       |		BHI	0x205b2
000205ac 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000205b0 4e 76                    |Nv      |		TRAPV
000205b2 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
000205b6 48 e7 80 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D0,-(A7)
000205ba 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
000205be 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
000205c2 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
000205c6 70 01                    |p       |		MOVEQ.L	#0x01,D0
000205c8 20 51                    | Q      |		MOVEA.L	(A1),A0
000205ca b0 c0                    |        |		CMPA.W	D0,A0
000205cc 66 0a                    |f       |		BNE	0x205d8
000205ce 48 51                    |HQ      |		PEA.L	(A1)
000205d0 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000205d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205d8 3f 3a fb 5c              |?: \    |		MOVE.W	0x20136,-(A7)
000205dc 2f 3a fb 5a              |/: Z    |		MOVE.L	0x20138,-(A7)
000205e0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000205e2 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000205e4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000205e6 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
000205ea 3f 00                    |?       |		MOVE.W	D0,-(A7)
000205ec 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
000205f0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000205f6 2e 91                    |.       |		MOVE.L	(A1),(A7)
000205f8 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000205fe 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00020602 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020604 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00020608 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002060e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020610 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00020616 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002061a 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
0002061c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002061e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020620 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00020626 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020628 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0002062a 20 52                    | R      |		MOVEA.L	(A2),A0
0002062c 4a 50                    |JP      |		TST.W	(A0)
0002062e 67 0c                    |g       |		BEQ	0x2063c
00020630 48 51                    |HQ      |		PEA.L	(A1)
00020632 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020638 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002063a 60 0c                    |`       |		BRA	0x20648
0002063c 48 52                    |HR      |		PEA.L	(A2)
0002063e 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020644 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020646 24 91                    |$       |		MOVE.L	(A1),(A2)
00020648 2d 52 00 10              |-R      |		MOVE.L	(A2),(A6+0x10)
0002064c 4c df 0f 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2+A3
00020650 4e 5e                    |N^      |		UNLK	A6
00020652 4e 75                    |Nu      |		RTS
00020654 ; --------------------------------------------------------------------------------------
00020654 ; OMSI PASCAL Function
00020654 ;    <LVAR  0x008 4(r)>
00020654 ; --------------------------------------------------------------------------------------
00020654 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
00020658 bf d5                    |        |		CMPA.L	(A5),A7
0002065a 62 06                    |b       |		BHI	0x20662
0002065c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020660 4e 76                    |Nv      |		TRAPV
00020662 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00020666 48 e7 c1 c0              |H       |		MOVEM.L	A1+A0+D7+D1+D0,-(A7)
0002066a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002066c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020670 42 28 00 05              |B(      |		CLR.B	(A0+0x5)
00020674 42 28 00 04              |B(      |		CLR.B	(A0+0x4)
00020678 42 28 00 03              |B(      |		CLR.B	(A0+0x3)
0002067c 42 28 00 02              |B(      |		CLR.B	(A0+0x2)
00020680 11 41 00 2a              | A *    |		MOVE.B	D1,(A0+0x2a)
00020684 42 28 00 2b              |B( +    |		CLR.B	(A0+0x2b)
00020688 42 28 00 2c              |B( ,    |		CLR.B	(A0+0x2c)
0002068c 42 28 00 2d              |B( -    |		CLR.B	(A0+0x2d)
00020690 42 28 00 2e              |B( .    |		CLR.B	(A0+0x2e)
00020694 11 41 00 2f              | A /    |		MOVE.B	D1,(A0+0x2f)
00020698 11 41 00 30              | A 0    |		MOVE.B	D1,(A0+0x30)
0002069c 11 41 00 31              | A 1    |		MOVE.B	D1,(A0+0x31)
000206a0 42 28 00 32              |B( 2    |		CLR.B	(A0+0x32)
000206a4 41 e8 00 33              |A  3    |		LEA.L	(A0+0x33),A0
000206a8 43 fa fa 92              |C       |		LEA.L	0x2013c,A1
000206ac 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000206ae 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000206b0 51 c8 ff fc              |Q       |		DBF	D0,0x206ae
000206b4 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000206b6 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000206ba 10 07                    |        |		MOVE.B	D7,D0
000206bc 48 80                    |H       |		EXTB.W	D0
000206be eb 40                    | @      |		ASL.W	#0x5,D0
000206c0 11 81 00 51              |   Q    |		MOVE.B	D1,(A0+D0.W+#0x51)
000206c4 42 30 00 52              |B0 R    |		CLR.B	(A0+D0.W+#0x52)
000206c8 41 f0 00 53              |A  S    |		LEA.L	(A0+D0.W+#0x53),A0
000206cc 43 fa fa 8c              |C       |		LEA.L	0x2015a,A1
000206d0 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000206d2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000206d4 51 c8 ff fc              |Q       |		DBF	D0,0x206d2
000206d8 52 07                    |R       |		ADDQ.B	#0x1,D7
000206da 0c 07 00 09              |        |		CMPI.B	#0x09,D7
000206de 6f d6                    |o       |		BLE	0x206b6
000206e0 4c df 03 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1
000206e4 4e 5e                    |N^      |		UNLK	A6
000206e6 4e 75                    |Nu      |		RTS
000206e8 ; --------------------------------------------------------------------------------------
000206e8 ; OMSI PASCAL Function
000206e8 ;    <LVAR -0x002 @>
000206e8 ;    <LVAR -0x003 1(r)>
000206e8 ;    <LVAR -0x004 1(rw) 2(w)>
000206e8 ;    <LVAR -0x005 1(r)>
000206e8 ;    <LVAR -0x006 1(rw) 2(w)>
000206e8 ;    <LVAR -0x007 1(rw)>
000206e8 ;    <LVAR -0x008 @ 1(r) 2(w)>
000206e8 ; --------------------------------------------------------------------------------------
000206e8 4e 56 ff 44              |NV D    |		LINK.W	A6,#0xff44
000206ec bf d5                    |        |		CMPA.L	(A5),A7
000206ee 62 06                    |b       |		BHI	0x206f6
000206f0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000206f4 4e 76                    |Nv      |		TRAPV
000206f6 de fc 00 ac              |        |		ADDA.W	#0xac,A7
000206fa 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000206fe 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020704 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
00020708 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002070a 74 2c                    |t,      |		MOVEQ.L	#0x2c,D2
0002070c 76 3c                    |v<      |		MOVEQ.L	#0x3c,D3
0002070e 78 19                    |x       |		MOVEQ.L	#0x19,D4
00020710 7a 14                    |z       |		MOVEQ.L	#0x14,D5
00020712 7c 03                    ||       |		MOVEQ.L	#0x03,D6
00020714 36 ba fe 88              |6       |		MOVE.W	proto_hw_config,(A3)
00020718 3d 7a fe 86 ff fa        |=z      |		MOVE.W	0x205a0,(A6-0x6)
0002071e 3d 7a fe 82 ff fc        |=z      |		MOVE.W	0x205a2,(A6-0x4)
00020724 48 53                    |HS      |		PEA.L	(A3)
00020726 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
0002072a 4e b9 00 01 05 7a        |N    z  |		JSR	Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
00020730 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020732 42 13                    |B       |		CLR.B	(A3)
00020734 41 fa fa 6e              |A  n    |		LEA.L	t_Is_this_a_multi_processor_,A0
00020738 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002073a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002073c 51 c8 ff fc              |Q       |		DBF	D0,0x2073a
00020740 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020742 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020746 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020748 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002074a 4e 92                    |N       |		JSR	(A2)
0002074c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002074e 42 17                    |B       |		CLR.B	(A7)
00020750 4a 2e ff f9              |J.      |		TST.B	(A6-0x7)
00020754 66 02                    |f       |		BNE	0x20758
00020756 52 17                    |R       |		ADDQ.B	#0x1,(A7)
00020758 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
0002075e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020760 4a 1f                    |J       |		TST.B	(A7)+
00020762 67 00 00 d8              |g       |		BEQ	0x2083c
00020766 42 2e ff f9              |B.      |		CLR.B	(A6-0x7)
0002076a 42 2e ff fb              |B.      |		CLR.B	(A6-0x5)
0002076e 42 2e ff fd              |B.      |		CLR.B	(A6-0x3)
00020772 41 fa fa 86              |A       |		LEA.L	0x201fa,A0
00020776 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00020778 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002077a 51 c8 ff fc              |Q       |		DBF	D0,0x20778
0002077e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020780 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020784 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020786 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020788 4e 92                    |N       |		JSR	(A2)
0002078a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002078c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020792 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00020796 41 fa fa 9e              |A       |		LEA.L	0x20236,A0
0002079a 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
0002079c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002079e 51 c8 ff fc              |Q       |		DBF	D0,0x2079c
000207a2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000207a4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000207a8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000207aa 3f 03                    |?       |		MOVE.W	D3,-(A7)
000207ac 4e 92                    |N       |		JSR	(A2)
000207ae 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207b0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000207b6 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
000207ba 20 4f                    | O      |		MOVEA.L	A7,A0
000207bc 43 fa fa 78              |C  x    |		LEA.L	0x20236,A1
000207c0 70 18                    |p       |		MOVEQ.L	#0x18,D0
000207c2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000207c4 51 c8 ff fc              |Q       |		DBF	D0,0x207c2
000207c8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000207ca 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000207ce 3f 01                    |?       |		MOVE.W	D1,-(A7)
000207d0 3f 04                    |?       |		MOVE.W	D4,-(A7)
000207d2 4e 92                    |N       |		JSR	(A2)
000207d4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207d6 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000207d8 de c5                    |        |		ADDA.W	D5,A7
000207da 2e 8c                    |.       |		MOVE.L	A4,(A7)
000207dc 10 2e ff fa              | .      |		MOVE.B	(A6-0x6),D0
000207e0 48 80                    |H       |		EXTB.W	D0
000207e2 41 81                    |A       |		CHK.W	D1,D0
000207e4 1f 00                    |        |		MOVE.B	D0,-(A7)
000207e6 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
000207ec 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000207ee 10 1f                    |        |		MOVE.B	(A7)+,D0
000207f0 48 80                    |H       |		EXTB.W	D0
000207f2 41 81                    |A       |		CHK.W	D1,D0
000207f4 1d 40 ff fa              | @      |		MOVE.B	D0,(A6-0x6)
000207f8 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
000207fc 20 4f                    | O      |		MOVEA.L	A7,A0
000207fe 43 fa fa 50              |C  P    |		LEA.L	0x20250,A1
00020802 70 18                    |p       |		MOVEQ.L	#0x18,D0
00020804 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020806 51 c8 ff fc              |Q       |		DBF	D0,0x20804
0002080a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002080c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020810 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020812 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020814 4e 92                    |N       |		JSR	(A2)
00020816 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020818 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002081a de c5                    |        |		ADDA.W	D5,A7
0002081c 2e 8c                    |.       |		MOVE.L	A4,(A7)
0002081e 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00020822 48 80                    |H       |		EXTB.W	D0
00020824 41 81                    |A       |		CHK.W	D1,D0
00020826 1f 00                    |        |		MOVE.B	D0,-(A7)
00020828 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
0002082e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020830 10 1f                    |        |		MOVE.B	(A7)+,D0
00020832 48 80                    |H       |		EXTB.W	D0
00020834 41 81                    |A       |		CHK.W	D1,D0
00020836 1d 40 ff fc              | @      |		MOVE.B	D0,(A6-0x4)
0002083a 60 7e                    |`~      |		BRA	0x208ba
0002083c 1d 41 ff f9              | A      |		MOVE.B	D1,(A6-0x7)
00020840 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020842 41 fa fa 38              |A  8    |		LEA.L	0x2027c,A0
00020846 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020848 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002084a 51 c8 ff fc              |Q       |		DBF	D0,0x20848
0002084e 3f 3a fa 30              |?: 0    |		MOVE.W	0x20280,-(A7)
00020852 3f 3a fa 2a              |?: *    |		MOVE.W	0x2027e,-(A7)
00020856 3f 3a fa 24              |?: $    |		MOVE.W	0x2027c,-(A7)
0002085a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002085c 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00020860 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020862 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00020866 4e 92                    |N       |		JSR	(A2)
00020868 2e 87                    |.       |		MOVE.L	D7,(A7)
0002086a 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020870 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00020874 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020876 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
0002087a 4e 92                    |N       |		JSR	(A2)
0002087c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002087e 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00020884 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020888 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002088a de fc 00 18              |        |		ADDA.W	#0x18,A7
0002088e be 86                    |        |		CMP.L	D6,D7
00020890 63 02                    |c       |		BLS	0x20894
00020892 4e 4f                    |NO      |		TRAP	#15
00020894 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020896 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00020898 10 36 78 fa              | 6x     |		MOVE.B	(A6+D7.L-#0x6),D0
0002089c 48 80                    |H       |		EXTB.W	D0
0002089e 41 81                    |A       |		CHK.W	D1,D0
000208a0 1f 00                    |        |		MOVE.B	D0,-(A7)
000208a2 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
000208a8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000208aa 10 1f                    |        |		MOVE.B	(A7)+,D0
000208ac 48 80                    |H       |		EXTB.W	D0
000208ae 41 81                    |A       |		CHK.W	D1,D0
000208b0 1d 80 78 fa              |  x     |		MOVE.B	D0,(A6+D7.L-#0x6)
000208b4 52 87                    |R       |		ADDQ.L	#0x1,D7
000208b6 be 86                    |        |		CMP.L	D6,D7
000208b8 6f 88                    |o       |		BLE	0x20842
000208ba de c2                    |        |		ADDA.W	D2,A7
000208bc 48 53                    |HS      |		PEA.L	(A3)
000208be 4e b9 00 01 05 80        |N       |		JSR	Write_HARDWARE.M200_CONFIG(a : Pointer)
000208c4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208c6 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000208ca 4e 5e                    |N^      |		UNLK	A6
000208cc 4e 75                    |Nu      |		RTS
000208ce ; --------------------------------------------------------------------------------------
000208ce ; OMSI PASCAL Function
000208ce ; --------------------------------------------------------------------------------------
000208ce 4e 56 ff 88              |NV      |		LINK.W	A6,#0xff88
000208d2 bf d5                    |        |		CMPA.L	(A5),A7
000208d4 62 06                    |b       |		BHI	0x208dc
000208d6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000208da 4e 76                    |Nv      |		TRAPV
000208dc de fc 00 78              |   x    |		ADDA.W	#0x78,A7
000208e0 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000208e4 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000208ea 47 f9 00 01 03 f0        |G       |		LEA.L	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool,A3
000208f0 49 f9 00 02 14 ea        |I       |		LEA.L	0x214ea,A4
000208f6 72 01                    |r       |		MOVEQ.L	#0x01,D1
000208f8 74 28                    |t(      |		MOVEQ.L	#0x28,D2
000208fa 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
000208fc 78 3a                    |x:      |		MOVEQ.L	#0x3a,D4
000208fe 7a 22                    |z"      |		MOVEQ.L	#0x22,D5
00020900 9e c2                    |        |		SUBA.W	D2,A7
00020902 20 4f                    | O      |		MOVEA.L	A7,A0
00020904 43 fa f9 7c              |C  |    |		LEA.L	0x20282,A1
00020908 70 26                    |p&      |		MOVEQ.L	#0x26,D0
0002090a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002090c 51 c8 ff fc              |Q       |		DBF	D0,0x2090a
00020910 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020912 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020916 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020918 3f 3c 00 27              |?< '    |		MOVE.W	#0x27,-(A7)
0002091c 4e 92                    |N       |		JSR	(A2)
0002091e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020920 10 14                    |        |		MOVE.B	(A4),D0
00020922 48 80                    |H       |		EXTB.W	D0
00020924 41 81                    |A       |		CHK.W	D1,D0
00020926 1f 00                    |        |		MOVE.B	D0,-(A7)
00020928 4e 93                    |N       |		JSR	(A3)
0002092a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002092c 10 1f                    |        |		MOVE.B	(A7)+,D0
0002092e 48 80                    |H       |		EXTB.W	D0
00020930 41 81                    |A       |		CHK.W	D1,D0
00020932 de c2                    |        |		ADDA.W	D2,A7
00020934 18 80                    |        |		MOVE.B	D0,(A4)
00020936 41 fa f9 90              |A       |		LEA.L	0x202c8,A0
0002093a 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
0002093c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002093e 51 c8 ff fc              |Q       |		DBF	D0,0x2093c
00020942 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020944 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020948 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002094a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002094c 4e 92                    |N       |		JSR	(A2)
0002094e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020950 10 39 00 02 14 eb        | 9      |		MOVE.B	0x214eb,D0
00020956 48 80                    |H       |		EXTB.W	D0
00020958 41 81                    |A       |		CHK.W	D1,D0
0002095a 1f 00                    |        |		MOVE.B	D0,-(A7)
0002095c 4e 93                    |N       |		JSR	(A3)
0002095e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020960 10 1f                    |        |		MOVE.B	(A7)+,D0
00020962 48 80                    |H       |		EXTB.W	D0
00020964 41 81                    |A       |		CHK.W	D1,D0
00020966 de c3                    |        |		ADDA.W	D3,A7
00020968 13 c0 00 02 14 eb        |        |		MOVE.B	D0,0x214eb
0002096e 9e c4                    |        |		SUBA.W	D4,A7
00020970 20 4f                    | O      |		MOVEA.L	A7,A0
00020972 43 fa f9 54              |C  T    |		LEA.L	0x202c8,A1
00020976 70 38                    |p8      |		MOVEQ.L	#0x38,D0
00020978 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002097a 51 c8 ff fc              |Q       |		DBF	D0,0x20978
0002097e 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020980 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020984 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020986 3f 3c 00 39              |?< 9    |		MOVE.W	#0x39,-(A7)
0002098a 4e 92                    |N       |		JSR	(A2)
0002098c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002098e 10 39 00 02 14 ec        | 9      |		MOVE.B	0x214ec,D0
00020994 48 80                    |H       |		EXTB.W	D0
00020996 41 81                    |A       |		CHK.W	D1,D0
00020998 1f 00                    |        |		MOVE.B	D0,-(A7)
0002099a 4e 93                    |N       |		JSR	(A3)
0002099c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002099e 10 1f                    |        |		MOVE.B	(A7)+,D0
000209a0 48 80                    |H       |		EXTB.W	D0
000209a2 41 81                    |A       |		CHK.W	D1,D0
000209a4 de c4                    |        |		ADDA.W	D4,A7
000209a6 13 c0 00 02 14 ec        |        |		MOVE.B	D0,0x214ec
000209ac 9e c5                    |        |		SUBA.W	D5,A7
000209ae 20 4f                    | O      |		MOVEA.L	A7,A0
000209b0 43 fa f9 50              |C  P    |		LEA.L	0x20302,A1
000209b4 70 20                    |p       |		MOVEQ.L	#0x20,D0
000209b6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000209b8 51 c8 ff fc              |Q       |		DBF	D0,0x209b6
000209bc 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000209be 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000209c2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000209c4 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
000209c8 4e 92                    |N       |		JSR	(A2)
000209ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209cc 10 39 00 02 14 ed        | 9      |		MOVE.B	0x214ed,D0
000209d2 48 80                    |H       |		EXTB.W	D0
000209d4 41 81                    |A       |		CHK.W	D1,D0
000209d6 1f 00                    |        |		MOVE.B	D0,-(A7)
000209d8 4e 93                    |N       |		JSR	(A3)
000209da 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000209dc 10 1f                    |        |		MOVE.B	(A7)+,D0
000209de 48 80                    |H       |		EXTB.W	D0
000209e0 41 81                    |A       |		CHK.W	D1,D0
000209e2 de c5                    |        |		ADDA.W	D5,A7
000209e4 13 c0 00 02 14 ed        |        |		MOVE.B	D0,0x214ed
000209ea 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
000209ee 4e 5e                    |N^      |		UNLK	A6
000209f0 4e 75                    |Nu      |		RTS
000209f2 ; --------------------------------------------------------------------------------------
000209f2 ; OMSI PASCAL Function
000209f2 ; --------------------------------------------------------------------------------------
000209f2 4e 56 ff 92              |NV      |		LINK.W	A6,#0xff92
000209f6 bf d5                    |        |		CMPA.L	(A5),A7
000209f8 62 06                    |b       |		BHI	0x20a00
000209fa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000209fe 4e 76                    |Nv      |		TRAPV
00020a00 de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
00020a04 48 e7 fe f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020a08 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020a0e 47 f9 00 01 03 f0        |G       |		LEA.L	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool,A3
00020a14 49 f9 00 02 15 12        |I       |		LEA.L	0x21512,A4
00020a1a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020a1c 74 1e                    |t       |		MOVEQ.L	#0x1e,D2
00020a1e 76 1d                    |v       |		MOVEQ.L	#0x1d,D3
00020a20 78 2c                    |x,      |		MOVEQ.L	#0x2c,D4
00020a22 7a 24                    |z$      |		MOVEQ.L	#0x24,D5
00020a24 7c 14                    ||       |		MOVEQ.L	#0x14,D6
00020a26 9e c2                    |        |		SUBA.W	D2,A7
00020a28 20 4f                    | O      |		MOVEA.L	A7,A0
00020a2a 43 fa f8 f8              |C       |		LEA.L	0x20324,A1
00020a2e 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00020a30 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020a32 51 c8 ff fc              |Q       |		DBF	D0,0x20a30
00020a36 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020a38 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020a3c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a3e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020a40 4e 92                    |N       |		JSR	(A2)
00020a42 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a44 10 14                    |        |		MOVE.B	(A4),D0
00020a46 48 80                    |H       |		EXTB.W	D0
00020a48 41 81                    |A       |		CHK.W	D1,D0
00020a4a 1f 00                    |        |		MOVE.B	D0,-(A7)
00020a4c 4e 93                    |N       |		JSR	(A3)
00020a4e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020a50 10 1f                    |        |		MOVE.B	(A7)+,D0
00020a52 48 80                    |H       |		EXTB.W	D0
00020a54 41 81                    |A       |		CHK.W	D1,D0
00020a56 de c2                    |        |		ADDA.W	D2,A7
00020a58 18 80                    |        |		MOVE.B	D0,(A4)
00020a5a 9e c4                    |        |		SUBA.W	D4,A7
00020a5c 20 4f                    | O      |		MOVEA.L	A7,A0
00020a5e 43 fa f8 e2              |C       |		LEA.L	0x20342,A1
00020a62 70 2a                    |p*      |		MOVEQ.L	#0x2a,D0
00020a64 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020a66 51 c8 ff fc              |Q       |		DBF	D0,0x20a64
00020a6a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020a6c 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020a70 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a72 3f 3c 00 2b              |?< +    |		MOVE.W	#0x2b,-(A7)
00020a76 4e 92                    |N       |		JSR	(A2)
00020a78 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a7a 10 39 00 02 15 13        | 9      |		MOVE.B	0x21513,D0
00020a80 48 80                    |H       |		EXTB.W	D0
00020a82 41 81                    |A       |		CHK.W	D1,D0
00020a84 1f 00                    |        |		MOVE.B	D0,-(A7)
00020a86 4e 93                    |N       |		JSR	(A3)
00020a88 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020a8a 10 1f                    |        |		MOVE.B	(A7)+,D0
00020a8c 48 80                    |H       |		EXTB.W	D0
00020a8e 41 81                    |A       |		CHK.W	D1,D0
00020a90 de c4                    |        |		ADDA.W	D4,A7
00020a92 13 c0 00 02 15 13        |        |		MOVE.B	D0,0x21513
00020a98 9e c2                    |        |		SUBA.W	D2,A7
00020a9a 20 4f                    | O      |		MOVEA.L	A7,A0
00020a9c 43 fa f8 d0              |C       |		LEA.L	0x2036e,A1
00020aa0 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00020aa2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020aa4 51 c8 ff fc              |Q       |		DBF	D0,0x20aa2
00020aa8 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020aaa 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020aae 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020ab0 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020ab2 4e 92                    |N       |		JSR	(A2)
00020ab4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ab6 10 39 00 02 15 14        | 9      |		MOVE.B	0x21514,D0
00020abc 48 80                    |H       |		EXTB.W	D0
00020abe 41 81                    |A       |		CHK.W	D1,D0
00020ac0 1f 00                    |        |		MOVE.B	D0,-(A7)
00020ac2 4e 93                    |N       |		JSR	(A3)
00020ac4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020ac6 10 1f                    |        |		MOVE.B	(A7)+,D0
00020ac8 48 80                    |H       |		EXTB.W	D0
00020aca 41 81                    |A       |		CHK.W	D1,D0
00020acc de c2                    |        |		ADDA.W	D2,A7
00020ace 13 c0 00 02 15 14        |        |		MOVE.B	D0,0x21514
00020ad4 42 39 00 02 15 15        |B9      |		CLR.B	0x21515
00020ada 42 39 00 02 15 16        |B9      |		CLR.B	0x21516
00020ae0 41 fa f8 ce              |A       |		LEA.L	0x203b0,A0
00020ae4 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020ae6 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020ae8 51 c8 ff fc              |Q       |		DBF	D0,0x20ae6
00020aec 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020aee 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020af2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020af4 3f 05                    |?       |		MOVE.W	D5,-(A7)
00020af6 4e 92                    |N       |		JSR	(A2)
00020af8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020afa 10 39 00 02 15 17        | 9      |		MOVE.B	0x21517,D0
00020b00 48 80                    |H       |		EXTB.W	D0
00020b02 41 81                    |A       |		CHK.W	D1,D0
00020b04 1f 00                    |        |		MOVE.B	D0,-(A7)
00020b06 4e 93                    |N       |		JSR	(A3)
00020b08 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020b0a 10 1f                    |        |		MOVE.B	(A7)+,D0
00020b0c 48 80                    |H       |		EXTB.W	D0
00020b0e 41 81                    |A       |		CHK.W	D1,D0
00020b10 de c5                    |        |		ADDA.W	D5,A7
00020b12 13 c0 00 02 15 17        |        |		MOVE.B	D0,0x21517
00020b18 41 fa f8 aa              |A       |		LEA.L	0x203c4,A0
00020b1c 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020b1e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020b20 51 c8 ff fc              |Q       |		DBF	D0,0x20b1e
00020b24 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020b26 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020b2a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020b2c 3f 06                    |?       |		MOVE.W	D6,-(A7)
00020b2e 4e 92                    |N       |		JSR	(A2)
00020b30 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b32 10 39 00 02 15 18        | 9      |		MOVE.B	0x21518,D0
00020b38 48 80                    |H       |		EXTB.W	D0
00020b3a 41 81                    |A       |		CHK.W	D1,D0
00020b3c 1f 00                    |        |		MOVE.B	D0,-(A7)
00020b3e 4e 93                    |N       |		JSR	(A3)
00020b40 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020b42 10 1f                    |        |		MOVE.B	(A7)+,D0
00020b44 48 80                    |H       |		EXTB.W	D0
00020b46 41 81                    |A       |		CHK.W	D1,D0
00020b48 de c6                    |        |		ADDA.W	D6,A7
00020b4a 13 c0 00 02 15 18        |        |		MOVE.B	D0,0x21518
00020b50 4c df 1f 7f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4
00020b54 4e 5e                    |N^      |		UNLK	A6
00020b56 4e 75                    |Nu      |		RTS
00020b58 ; --------------------------------------------------------------------------------------
00020b58 ; OMSI PASCAL Function
00020b58 ;    <LVAR -0x008 @ 1(r)>
00020b58 ; --------------------------------------------------------------------------------------
00020b58 4e 56 ff 7c              |NV |    |		LINK.W	A6,#0xff7c
00020b5c bf d5                    |        |		CMPA.L	(A5),A7
00020b5e 62 06                    |b       |		BHI	0x20b66
00020b60 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020b64 4e 76                    |Nv      |		TRAPV
00020b66 de fc 00 7c              |   |    |		ADDA.W	#0x7c,A7
00020b6a 48 e7 fe f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020b6e 45 f9 00 02 15 19        |E       |		LEA.L	0x21519,A2
00020b74 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020b7a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020b7c 74 1e                    |t       |		MOVEQ.L	#0x1e,D2
00020b7e 76 2a                    |v*      |		MOVEQ.L	#0x2a,D3
00020b80 78 3a                    |x:      |		MOVEQ.L	#0x3a,D4
00020b82 7a 1c                    |z       |		MOVEQ.L	#0x1c,D5
00020b84 7c 14                    ||       |		MOVEQ.L	#0x14,D6
00020b86 4a 39 00 02 14 e6        |J9      |		TST.B	0x214e6
00020b8c 67 04                    |g       |		BEQ	0x20b92
00020b8e 42 12                    |B       |		CLR.B	(A2)
00020b90 60 34                    |`4      |		BRA	0x20bc6
00020b92 41 fa f8 5a              |A  Z    |		LEA.L	0x203ee,A0
00020b96 70 14                    |p       |		MOVEQ.L	#0x14,D0
00020b98 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020b9a 51 c8 ff fc              |Q       |		DBF	D0,0x20b98
00020b9e 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020ba0 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020ba4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020ba6 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020ba8 4e 93                    |N       |		JSR	(A3)
00020baa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020bac 10 12                    |        |		MOVE.B	(A2),D0
00020bae 48 80                    |H       |		EXTB.W	D0
00020bb0 41 81                    |A       |		CHK.W	D1,D0
00020bb2 1f 00                    |        |		MOVE.B	D0,-(A7)
00020bb4 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020bba 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020bbc 10 1f                    |        |		MOVE.B	(A7)+,D0
00020bbe 48 80                    |H       |		EXTB.W	D0
00020bc0 41 81                    |A       |		CHK.W	D1,D0
00020bc2 de c3                    |        |		ADDA.W	D3,A7
00020bc4 14 80                    |        |		MOVE.B	D0,(A2)
00020bc6 4a 12                    |J       |		TST.B	(A2)
00020bc8 66 00 00 d6              |f       |		BNE	0x20ca0
00020bcc 41 fa f8 5a              |A  Z    |		LEA.L	0x20428,A0
00020bd0 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00020bd2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020bd4 51 c8 ff fc              |Q       |		DBF	D0,0x20bd2
00020bd8 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020bda 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020bde 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020be0 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020be2 4e 93                    |N       |		JSR	(A3)
00020be4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020be6 10 39 00 02 15 1a        | 9      |		MOVE.B	0x2151a,D0
00020bec 48 80                    |H       |		EXTB.W	D0
00020bee 41 81                    |A       |		CHK.W	D1,D0
00020bf0 1f 00                    |        |		MOVE.B	D0,-(A7)
00020bf2 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020bf8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020bfa 10 1f                    |        |		MOVE.B	(A7)+,D0
00020bfc 48 80                    |H       |		EXTB.W	D0
00020bfe 41 81                    |A       |		CHK.W	D1,D0
00020c00 de c4                    |        |		ADDA.W	D4,A7
00020c02 13 c0 00 02 15 1a        |        |		MOVE.B	D0,0x2151a
00020c08 9e c2                    |        |		SUBA.W	D2,A7
00020c0a 20 4f                    | O      |		MOVEA.L	A7,A0
00020c0c 43 f9 00 02 15 1b        |C       |		LEA.L	0x2151b,A1
00020c12 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00020c14 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020c16 51 c8 ff fc              |Q       |		DBF	D0,0x20c14
00020c1a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020c1c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020c20 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020c22 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020c24 4e 93                    |N       |		JSR	(A3)
00020c26 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c28 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020c2a de c2                    |        |		ADDA.W	D2,A7
00020c2c 4a 39 00 02 15 1a        |J9      |		TST.B	0x2151a
00020c32 67 28                    |g(      |		BEQ	0x20c5c
00020c34 41 fa f8 0e              |A       |		LEA.L	0x20444,A0
00020c38 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020c3a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020c3c 51 c8 ff fc              |Q       |		DBF	D0,0x20c3a
00020c40 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020c42 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020c46 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020c48 3f 05                    |?       |		MOVE.W	D5,-(A7)
00020c4a 4e 93                    |N       |		JSR	(A3)
00020c4c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c4e 2e 8c                    |.       |		MOVE.L	A4,(A7)
00020c50 4e ba f9 52              |N  R    |		JSR	0x205a4
00020c54 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c56 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020c58 de c5                    |        |		ADDA.W	D5,A7
00020c5a 60 26                    |`&      |		BRA	0x20c82
00020c5c 41 fa f7 fa              |A       |		LEA.L	0x20458,A0
00020c60 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020c62 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020c64 51 c8 ff fc              |Q       |		DBF	D0,0x20c62
00020c68 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020c6a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020c6e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020c70 3f 06                    |?       |		MOVE.W	D6,-(A7)
00020c72 4e 93                    |N       |		JSR	(A3)
00020c74 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c76 2e 8c                    |.       |		MOVE.L	A4,(A7)
00020c78 4e ba f9 2a              |N  *    |		JSR	0x205a4
00020c7c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c7e 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020c80 de c6                    |        |		ADDA.W	D6,A7
00020c82 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00020c84 48 79 00 02 15 1b        |Hy      |		PEA.L	0x2151b
00020c8a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00020c8e 4e b9 00 01 05 8c        |N       |		JSR	FSCALL_1058c
00020c94 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020c98 4a 2e ff f8              |J.      |		TST.B	(A6-0x8)
00020c9c 67 00 ff 2e              |g  .    |		BEQ	0x20bcc
00020ca0 4c df 1f 7f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4
00020ca4 4e 5e                    |N^      |		UNLK	A6
00020ca6 4e 75                    |Nu      |		RTS
00020ca8 ; --------------------------------------------------------------------------------------
00020ca8 ; OMSI PASCAL Function
00020ca8 ;    <LVAR -0x002 @ 1(r)>
00020ca8 ; --------------------------------------------------------------------------------------
00020ca8 4e 56 ff 78              |NV x    |		LINK.W	A6,#0xff78
00020cac bf d5                    |        |		CMPA.L	(A5),A7
00020cae 62 06                    |b       |		BHI	0x20cb6
00020cb0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020cb4 4e 76                    |Nv      |		TRAPV
00020cb6 de fc 00 80              |        |		ADDA.W	#0x80,A7
00020cba 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020cbe 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020cc4 76 01                    |v       |		MOVEQ.L	#0x01,D3
00020cc6 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
00020cc8 7a 22                    |z"      |		MOVEQ.L	#0x22,D5
00020cca 4a 39 00 02 14 ed        |J9      |		TST.B	0x214ed
00020cd0 67 04                    |g       |		BEQ	0x20cd6
00020cd2 7c 04                    ||       |		MOVEQ.L	#0x04,D6
00020cd4 60 02                    |`       |		BRA	0x20cd8
00020cd6 7c 09                    ||       |		MOVEQ.L	#0x09,D6
00020cd8 1f 06                    |        |		MOVE.B	D6,-(A7)
00020cda 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020cdc be 17                    |        |		CMP.B	(A7),D7
00020cde 6e 0a                    |n       |		BGT	0x20cea
00020ce0 10 17                    |        |		MOVE.B	(A7),D0
00020ce2 0c 00 00 09              |        |		CMPI.B	#0x09,D0
00020ce6 6f 02                    |o       |		BLE	0x20cea
00020ce8 4e 4f                    |NO      |		TRAP	#15
00020cea be 17                    |        |		CMP.B	(A7),D7
00020cec 6e 00 01 ca              |n       |		BGT	0x20eb8
00020cf0 10 07                    |        |		MOVE.B	D7,D0
00020cf2 48 80                    |H       |		EXTB.W	D0
00020cf4 eb 40                    | @      |		ASL.W	#0x5,D0
00020cf6 41 f9 00 02 14 de        |A       |		LEA.L	0x214de,A0
00020cfc 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020cfe 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020d00 4a 39 00 02 14 e6        |J9      |		TST.B	0x214e6
00020d06 67 06                    |g       |		BEQ	0x20d0e
00020d08 42 30 00 5b              |B0 [    |		CLR.B	(A0+D0.W+#0x5b)
00020d0c 60 6c                    |`l      |		BRA	0x20d7a
00020d0e 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020d10 22 4f                    |"O      |		MOVEA.L	A7,A1
00020d12 45 fa f7 c0              |E       |		LEA.L	0x204d4,A2
00020d16 72 04                    |r       |		MOVEQ.L	#0x04,D1
00020d18 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020d1a 51 c9 ff fc              |Q       |		DBF	D1,0x20d18
00020d1e 43 fa f7 54              |C  T    |		LEA.L	0x20474,A1
00020d22 72 06                    |r       |		MOVEQ.L	#0x06,D1
00020d24 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
00020d26 51 c9 ff fc              |Q       |		DBF	D1,0x20d24
00020d2a 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020d2e 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00020d32 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020d34 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00020d38 4e 93                    |N       |		JSR	(A3)
00020d3a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d3c 1e 87                    |        |		MOVE.B	D7,(A7)
00020d3e 4e b9 00 01 05 86        |N       |		JSR	Config_Entry_Name(a : Byte) : String
00020d44 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020d46 48 6f 00 12              |Ho      |		PEA.L	(A7+0x12)
00020d4a 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020d4c 3f 3c 00 1c              |?<      |		MOVE.W	#0x1c,-(A7)
00020d50 4e 93                    |N       |		JSR	(A3)
00020d52 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d54 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00020d5a de c4                    |        |		ADDA.W	D4,A7
00020d5c 12 30 00 5b              | 0 [    |		MOVE.B	(A0+D0.W+#0x5b),D1
00020d60 48 81                    |H       |		EXTB.W	D1
00020d62 43 83                    |C       |		CHK.W	D3,D1
00020d64 1f 01                    |        |		MOVE.B	D1,-(A7)
00020d66 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020d6c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d6e 12 1f                    |        |		MOVE.B	(A7)+,D1
00020d70 48 81                    |H       |		EXTB.W	D1
00020d72 43 83                    |C       |		CHK.W	D3,D1
00020d74 de c5                    |        |		ADDA.W	D5,A7
00020d76 11 81 00 5b              |   [    |		MOVE.B	D1,(A0+D0.W+#0x5b)
00020d7a 4a 30 00 5b              |J0 [    |		TST.B	(A0+D0.W+#0x5b)
00020d7e 66 00 01 30              |f  0    |		BNE	0x20eb0
00020d82 20 57                    | W      |		MOVEA.L	(A7),A0
00020d84 30 2f 00 04              |0/      |		MOVE.W	(A7+0x4),D0
00020d88 43 fa f7 0e              |C       |		LEA.L	0x20498,A1
00020d8c 72 08                    |r       |		MOVEQ.L	#0x08,D1
00020d8e 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
00020d90 51 c9 ff fc              |Q       |		DBF	D1,0x20d8e
00020d94 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020d98 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020d9c 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020d9e 3f 3c 00 24              |?< $    |		MOVE.W	#0x24,-(A7)
00020da2 4e 93                    |N       |		JSR	(A3)
00020da4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020da6 1e 87                    |        |		MOVE.B	D7,(A7)
00020da8 4e b9 00 01 05 86        |N       |		JSR	Config_Entry_Name(a : Byte) : String
00020dae 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020db0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020db6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020db8 12 30 00 5c              | 0 \    |		MOVE.B	(A0+D0.W+#0x5c),D1
00020dbc 48 81                    |H       |		EXTB.W	D1
00020dbe 43 83                    |C       |		CHK.W	D3,D1
00020dc0 1f 01                    |        |		MOVE.B	D1,-(A7)
00020dc2 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020dc8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020dca 12 1f                    |        |		MOVE.B	(A7)+,D1
00020dcc 48 81                    |H       |		EXTB.W	D1
00020dce 43 83                    |C       |		CHK.W	D3,D1
00020dd0 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00020dd4 11 81 00 5c              |   \    |		MOVE.B	D1,(A0+D0.W+#0x5c)
00020dd8 12 07                    |        |		MOVE.B	D7,D1
00020dda 48 81                    |H       |		EXTB.W	D1
00020ddc 34 01                    |4       |		MOVE.W	D1,D2
00020dde eb 42                    | B      |		ASL.W	#0x5,D2
00020de0 43 f9 00 02 14 de        |C       |		LEA.L	0x214de,A1
00020de6 9e fc 00 1e              |        |		SUBA.W	#0x1e,A7
00020dea 24 4f                    |$O      |		MOVEA.L	A7,A2
00020dec 43 f1 20 5d              |C  ]    |		LEA.L	(A1+D2.W+#0x5d),A1
00020df0 74 1d                    |t       |		MOVEQ.L	#0x1d,D2
00020df2 14 d9                    |        |		MOVE.B	(A1)+,(A2)+
00020df4 51 ca ff fc              |Q       |		DBF	D2,0x20df2
00020df8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020dfa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020dfe 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020e00 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00020e04 4e 93                    |N       |		JSR	(A3)
00020e06 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e08 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020e0a de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00020e0e 4a 30 00 5c              |J0 \    |		TST.B	(A0+D0.W+#0x5c)
00020e12 67 40                    |g@      |		BEQ	0x20e54
00020e14 9e c5                    |        |		SUBA.W	D5,A7
00020e16 22 4f                    |"O      |		MOVEA.L	A7,A1
00020e18 45 fa f6 7e              |E  ~    |		LEA.L	0x20498,A2
00020e1c 74 20                    |t       |		MOVEQ.L	#0x20,D2
00020e1e 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020e20 51 ca ff fc              |Q       |		DBF	D2,0x20e1e
00020e24 9e c4                    |        |		SUBA.W	D4,A7
00020e26 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020e2a 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020e2c 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
00020e30 4e 93                    |N       |		JSR	(A3)
00020e32 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e34 1e 81                    |        |		MOVE.B	D1,(A7)
00020e36 4e b9 00 01 05 86        |N       |		JSR	Config_Entry_Name(a : Byte) : String
00020e3c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e3e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020e44 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e46 2e 8c                    |.       |		MOVE.L	A4,(A7)
00020e48 4e ba f7 5a              |N  Z    |		JSR	0x205a4
00020e4c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e4e 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020e50 de c5                    |        |		ADDA.W	D5,A7
00020e52 60 42                    |`B      |		BRA	0x20e96
00020e54 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
00020e58 22 4f                    |"O      |		MOVEA.L	A7,A1
00020e5a 45 fa f6 5e              |E  ^    |		LEA.L	0x204ba,A2
00020e5e 74 18                    |t       |		MOVEQ.L	#0x18,D2
00020e60 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020e62 51 ca ff fc              |Q       |		DBF	D2,0x20e60
00020e66 9e c4                    |        |		SUBA.W	D4,A7
00020e68 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020e6c 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020e6e 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
00020e72 4e 93                    |N       |		JSR	(A3)
00020e74 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e76 1e 81                    |        |		MOVE.B	D1,(A7)
00020e78 4e b9 00 01 05 86        |N       |		JSR	Config_Entry_Name(a : Byte) : String
00020e7e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e80 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020e86 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e88 2e 8c                    |.       |		MOVE.L	A4,(A7)
00020e8a 4e ba f7 18              |N       |		JSR	0x205a4
00020e8e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e90 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020e92 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020e96 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00020e98 48 70 00 5d              |Hp ]    |		PEA.L	(A0+D0.W+#0x5d)
00020e9c 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00020ea0 4e b9 00 01 05 8c        |N       |		JSR	FSCALL_1058c
00020ea6 de c4                    |        |		ADDA.W	D4,A7
00020ea8 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
00020eac 67 00 fe d4              |g       |		BEQ	0x20d82
00020eb0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020eb2 52 07                    |R       |		ADDQ.B	#0x1,D7
00020eb4 68 00 fe 34              |h  4    |		BVC	0x20cea
00020eb8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020eba 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020ebe 4e 5e                    |N^      |		UNLK	A6
00020ec0 4e 75                    |Nu      |		RTS
00020ec2 ; --------------------------------------------------------------------------------------
00020ec2 ; OMSI PASCAL Function
00020ec2 ; --------------------------------------------------------------------------------------
00020ec2 4e 56 ff fc              |NV      |		LINK.W	A6,#0xfffc
00020ec6 bf d5                    |        |		CMPA.L	(A5),A7
00020ec8 62 06                    |b       |		BHI	0x20ed0
00020eca 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020ece 4e 76                    |Nv      |		TRAPV
00020ed0 de fc 00 04              |        |		ADDA.W	#0x4,A7
00020ed4 4e ba f9 f8              |N       |		JSR	0x208ce
00020ed8 4e ba fb 18              |N       |		JSR	0x209f2
00020edc 4e ba fc 7a              |N  z    |		JSR	0x20b58
00020ee0 4e ba fd c6              |N       |		JSR	0x20ca8
00020ee4 4e 5e                    |N^      |		UNLK	A6
00020ee6 4e 75                    |Nu      |		RTS
00020ee8 ; --------------------------------------------------------------------------------------
00020ee8 ; OMSI PASCAL Function
00020ee8 ;    <LVAR  0x008 4(r)>
00020ee8 ; --------------------------------------------------------------------------------------
00020ee8 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
00020eec bf d5                    |        |		CMPA.L	(A5),A7
00020eee 62 06                    |b       |		BHI	0x20ef6
00020ef0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020ef4 4e 76                    |Nv      |		TRAPV
00020ef6 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020efa 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00020efe 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020f02 48 79 00 02 14 e8        |Hy      |		PEA.L	0x214e8
00020f08 4e b9 00 01 05 74        |N    t  |		JSR	Write_ConfigFile(name: String; dst: Pointer)
00020f0e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f10 41 fa f5 dc              |A       |		LEA.L	0x204ee,A0
00020f14 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020f16 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020f18 51 c8 ff fc              |Q       |		DBF	D0,0x20f16
00020f1c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f1e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020f22 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020f26 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00020f2a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020f30 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f32 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020f38 de fc 00 18              |        |		ADDA.W	#0x18,A7
00020f3c 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00020f40 4e 5e                    |N^      |		UNLK	A6
00020f42 4e 75                    |Nu      |		RTS
00020f44 ; --------------------------------------------------------------------------------------
00020f44 ; OMSI PASCAL Function
00020f44 ;    <LVAR -0x004 @ 1(rw)>
00020f44 ;    <LVAR -0x008 @ 4(rw)>
00020f44 ;    <LVAR -0x00c @ 4(rw)>
00020f44 ; --------------------------------------------------------------------------------------
00020f44 4e 56 ff 60              |NV `    |		LINK.W	A6,#0xff60
00020f48 bf d5                    |        |		CMPA.L	(A5),A7
00020f4a 62 06                    |b       |		BHI	0x20f52
00020f4c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020f50 4e 76                    |Nv      |		TRAPV
00020f52 de fc 00 94              |        |		ADDA.W	#0x94,A7
00020f56 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020f5a 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020f60 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
00020f64 49 ee ff f4              |I       |		LEA.L	(A6-0xc),A4
00020f68 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020f6a 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00020f6c 76 24                    |v$      |		MOVEQ.L	#0x24,D3
00020f6e 78 10                    |x       |		MOVEQ.L	#0x10,D4
00020f70 7a 23                    |z#      |		MOVEQ.L	#0x23,D5
00020f72 7c 08                    ||       |		MOVEQ.L	#0x08,D6
00020f74 7e 28                    |~(      |		MOVEQ.L	#0x28,D7
00020f76 20 79 00 02 16 7a        | y   z  |		MOVEA.L	0x2167a,A0
00020f7c 4a 50                    |JP      |		TST.W	(A0)
00020f7e 6f 00 00 ce              |o       |		BLE	0x2104e
00020f82 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f84 2f 39 00 02 16 7a        |/9   z  |		MOVE.L	0x2167a,-(A7)
00020f8a 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
00020f90 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f92 20 5f                    | _      |		MOVEA.L	(A7)+,A0
00020f94 28 88                    |(       |		MOVE.L	A0,(A4)
00020f96 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f98 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020f9a 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020fa0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020fa2 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00020fa4 2f 3a f1 8c              |/:      |		MOVE.L	0x20132,-(A7)
00020fa8 2f 3a f1 84              |/:      |		MOVE.L	0x2012e,-(A7)
00020fac 2f 3a f1 7c              |/: |    |		MOVE.L	0x2012a,-(A7)
00020fb0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020fb2 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020fb4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020fb6 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020fba 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020fbc 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020fbe 4e 92                    |N       |		JSR	(A2)
00020fc0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020fc2 4e b9 00 01 03 00        |N       |		JSR	FSCALL_10300
00020fc8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020fca 4a 9f                    |J       |		TST.L	(A7)+
00020fcc 66 2a                    |f*      |		BNE	0x20ff8
00020fce 2f 3a f1 62              |/: b    |		MOVE.L	0x20132,-(A7)
00020fd2 2f 3a f1 5a              |/: Z    |		MOVE.L	0x2012e,-(A7)
00020fd6 2f 3a f1 52              |/: R    |		MOVE.L	0x2012a,-(A7)
00020fda 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020fdc 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020fde 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020fe0 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020fe4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020fe6 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020fe8 4e 92                    |N       |		JSR	(A2)
00020fea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020fec 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020ff2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ff4 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00020ff6 de c2                    |        |		ADDA.W	D2,A7
00020ff8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ffa 2e 94                    |.       |		MOVE.L	(A4),(A7)
00020ffc 48 78 00 03              |Hx      |		PEA.L	0x3
00021000 48 79 00 02 14 e8        |Hy      |		PEA.L	0x214e8
00021006 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002100a 4e b9 00 01 05 6e        |N    n  |		JSR	Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
00021010 de c4                    |        |		ADDA.W	D4,A7
00021012 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00021016 66 32                    |f2      |		BNE	0x2104a
00021018 41 fa f5 66              |A  f    |		LEA.L	0x20580,A0
0002101c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002101e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021020 51 c8 ff fc              |Q       |		DBF	D0,0x2101e
00021024 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021026 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002102a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002102c 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
00021030 4e 92                    |N       |		JSR	(A2)
00021032 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021034 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002103a de fc 00 1e              |        |		ADDA.W	#0x1e,A7
0002103e 48 79 00 02 14 e8        |Hy      |		PEA.L	0x214e8
00021044 4e ba f6 0e              |N       |		JSR	0x20654
00021048 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002104a 60 00 01 56              |`  V    |		BRA	0x211a2
0002104e 9e c3                    |        |		SUBA.W	D3,A7
00021050 20 4f                    | O      |		MOVEA.L	A7,A0
00021052 43 fa f4 9a              |C       |		LEA.L	0x204ee,A1
00021056 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00021058 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002105a 51 c8 ff fc              |Q       |		DBF	D0,0x21058
0002105e 2f 3a f5 02              |/:      |		MOVE.L	0x20562,-(A7)
00021062 2f 3a f4 fa              |/:      |		MOVE.L	0x2055e,-(A7)
00021066 9e c2                    |        |		SUBA.W	D2,A7
00021068 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
0002106c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002106e 3f 05                    |?       |		MOVE.W	D5,-(A7)
00021070 4e 92                    |N       |		JSR	(A2)
00021072 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021074 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00021078 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002107a 3f 06                    |?       |		MOVE.W	D6,-(A7)
0002107c 4e 92                    |N       |		JSR	(A2)
0002107e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021080 4e ba f5 22              |N  "    |		JSR	0x205a4
00021084 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021086 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
0002108c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002108e 20 5f                    | _      |		MOVEA.L	(A7)+,A0
00021090 28 88                    |(       |		MOVE.L	A0,(A4)
00021092 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021094 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021096 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
0002109c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002109e 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
000210a0 2f 3a f0 90              |/:      |		MOVE.L	0x20132,-(A7)
000210a4 2f 3a f0 88              |/:      |		MOVE.L	0x2012e,-(A7)
000210a8 2f 3a f0 80              |/:      |		MOVE.L	0x2012a,-(A7)
000210ac 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210ae 2f 08                    |/       |		MOVE.L	A0,-(A7)
000210b0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210b2 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000210b6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210b8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000210ba 4e 92                    |N       |		JSR	(A2)
000210bc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210be 4e b9 00 01 03 00        |N       |		JSR	FSCALL_10300
000210c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210c6 4a 9f                    |J       |		TST.L	(A7)+
000210c8 66 2a                    |f*      |		BNE	0x210f4
000210ca 2f 3a f0 66              |/: f    |		MOVE.L	0x20132,-(A7)
000210ce 2f 3a f0 5e              |/: ^    |		MOVE.L	0x2012e,-(A7)
000210d2 2f 3a f0 56              |/: V    |		MOVE.L	0x2012a,-(A7)
000210d6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210d8 2f 08                    |/       |		MOVE.L	A0,-(A7)
000210da 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210dc 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000210e0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210e2 3f 02                    |?       |		MOVE.W	D2,-(A7)
000210e4 4e 92                    |N       |		JSR	(A2)
000210e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210e8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000210ee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210f0 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
000210f2 de c2                    |        |		ADDA.W	D2,A7
000210f4 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
000210f8 2e 94                    |.       |		MOVE.L	(A4),(A7)
000210fa 48 78 00 03              |Hx      |		PEA.L	0x3
000210fe 48 79 00 02 14 e8        |Hy      |		PEA.L	0x214e8
00021104 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021108 4e b9 00 01 05 6e        |N    n  |		JSR	Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
0002110e de c4                    |        |		ADDA.W	D4,A7
00021110 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00021114 67 34                    |g4      |		BEQ	0x2114a
00021116 9e c3                    |        |		SUBA.W	D3,A7
00021118 20 4f                    | O      |		MOVEA.L	A7,A0
0002111a 43 fa f3 f6              |C       |		LEA.L	0x20512,A1
0002111e 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00021120 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021122 51 c8 ff fc              |Q       |		DBF	D0,0x21120
00021126 9e c2                    |        |		SUBA.W	D2,A7
00021128 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002112c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002112e 3f 05                    |?       |		MOVE.W	D5,-(A7)
00021130 4e 92                    |N       |		JSR	(A2)
00021132 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021134 2e 93                    |.       |		MOVE.L	(A3),(A7)
00021136 4e ba f4 6c              |N  l    |		JSR	0x205a4
0002113a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002113c 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
00021142 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021144 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021146 de c3                    |        |		ADDA.W	D3,A7
00021148 60 50                    |`P      |		BRA	0x2119a
0002114a 9e c7                    |        |		SUBA.W	D7,A7
0002114c 20 4f                    | O      |		MOVEA.L	A7,A0
0002114e 43 fa f3 e6              |C       |		LEA.L	0x20536,A1
00021152 70 26                    |p&      |		MOVEQ.L	#0x26,D0
00021154 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021156 51 c8 ff fc              |Q       |		DBF	D0,0x21154
0002115a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002115c 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021160 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021162 3f 3c 00 27              |?< '    |		MOVE.W	#0x27,-(A7)
00021166 4e 92                    |N       |		JSR	(A2)
00021168 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002116a 1e 81                    |        |		MOVE.B	D1,(A7)
0002116c 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00021172 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021174 10 1f                    |        |		MOVE.B	(A7)+,D0
00021176 48 80                    |H       |		EXTB.W	D0
00021178 41 81                    |A       |		CHK.W	D1,D0
0002117a de c7                    |        |		ADDA.W	D7,A7
0002117c 1d 40 ff fc              | @      |		MOVE.B	D0,(A6-0x4)
00021180 4a 00                    |J       |		TST.B	D0
00021182 67 0c                    |g       |		BEQ	0x21190
00021184 48 79 00 02 14 e8        |Hy      |		PEA.L	0x214e8
0002118a 4e ba f4 c8              |N       |		JSR	0x20654
0002118e 60 08                    |`       |		BRA	0x21198
00021190 48 54                    |HT      |		PEA.L	(A4)
00021192 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021198 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002119a 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
0002119e 67 00 fe ae              |g       |		BEQ	0x2104e
000211a2 2f 3a f3 be              |/:      |		MOVE.L	0x20562,-(A7)
000211a6 2f 3a f3 b6              |/:      |		MOVE.L	0x2055e,-(A7)
000211aa 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000211ac 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000211ae 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000211b0 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000211b4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000211b6 3f 06                    |?       |		MOVE.W	D6,-(A7)
000211b8 4e 92                    |N       |		JSR	(A2)
000211ba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211bc 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000211c2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211c4 10 1f                    |        |		MOVE.B	(A7)+,D0
000211c6 48 80                    |H       |		EXTB.W	D0
000211c8 41 81                    |A       |		CHK.W	D1,D0
000211ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211cc 13 c0 00 02 14 e6        |        |		MOVE.B	D0,0x214e6
000211d2 2f 3a ef 5e              |/: ^    |		MOVE.L	0x20132,-(A7)
000211d6 2f 3a ef 56              |/: V    |		MOVE.L	0x2012e,-(A7)
000211da 2f 3a ef 4e              |/: N    |		MOVE.L	0x2012a,-(A7)
000211de 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000211e0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000211e2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000211e4 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000211e8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000211ea 3f 02                    |?       |		MOVE.W	D2,-(A7)
000211ec 4e 92                    |N       |		JSR	(A2)
000211ee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211f0 4e b9 00 01 03 00        |N       |		JSR	FSCALL_10300
000211f6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211f8 4a 9f                    |J       |		TST.L	(A7)+
000211fa 66 2a                    |f*      |		BNE	0x21226
000211fc 2f 3a ef 34              |/: 4    |		MOVE.L	0x20132,-(A7)
00021200 2f 3a ef 2c              |/: ,    |		MOVE.L	0x2012e,-(A7)
00021204 2f 3a ef 24              |/: $    |		MOVE.L	0x2012a,-(A7)
00021208 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002120a 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002120c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002120e 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021212 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021214 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021216 4e 92                    |N       |		JSR	(A2)
00021218 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002121a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021220 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021222 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021224 de c2                    |        |		ADDA.W	D2,A7
00021226 de c2                    |        |		ADDA.W	D2,A7
00021228 4e ba fc 98              |N       |		JSR	0x20ec2
0002122c 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002122e 4e ba fc b8              |N       |		JSR	0x20ee8
00021232 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021234 48 54                    |HT      |		PEA.L	(A4)
00021236 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002123c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002123e 48 53                    |HS      |		PEA.L	(A3)
00021240 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021246 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021248 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002124c 4e 5e                    |N^      |		UNLK	A6
0002124e 4e 75                    |Nu      |		RTS
00021250 ; --------------------------------------------------------------------------------------
00021250 ; OMSI PASCAL Function
00021250 ; --------------------------------------------------------------------------------------
00021250					START:
00021250 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00021254 4e f9 00 01 02 80        |N       |		JMP	?start_program
0002125a					MAIN:
0002125a 45 f9 00 02 16 7a        |E    z  |		LEA.L	0x2167a,A2
00021260 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
00021262 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00021268 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002126a 4e b9 00 01 03 c4        |N       |		JSR	GetArgv() : String
00021270 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00021272 20 52                    | R      |		MOVEA.L	(A2),A0
00021274 4a 50                    |JP      |		TST.W	(A0)
00021276 66 48                    |fH      |		BNE	0x212c0
00021278 9e c1                    |        |		SUBA.W	D1,A7
0002127a 20 4f                    | O      |		MOVEA.L	A7,A0
0002127c 43 fa f3 02              |C       |		LEA.L	0x20580,A1
00021280 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00021282 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021284 51 c8 ff fc              |Q       |		DBF	D0,0x21282
00021288 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002128a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002128e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021292 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
00021296 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002129c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002129e 42 17                    |B       |		CLR.B	(A7)
000212a0 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
000212a6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000212a8 4a 1f                    |J       |		TST.B	(A7)+
000212aa 67 12                    |g       |		BEQ	0x212be
000212ac 4e ba f4 3a              |N  :    |		JSR	0x206e8
000212b0 42 27                    |B'      |		CLR.B	-(A7)
000212b2 48 78 00 01              |Hx      |		PEA.L	0x1
000212b6 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000212bc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000212be de c1                    |        |		ADDA.W	D1,A7
000212c0 4e ba fc 82              |N       |		JSR	0x20f44
000212c4 42 27                    |B'      |		CLR.B	-(A7)
000212c6 48 78 00 01              |Hx      |		PEA.L	0x1
000212ca 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000212d0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000212d2 4e b9 00 01 02 84        |N       |		JSR	?exit
000212d8 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
000212e6 ; --------------------------------------------------------------------------------------
000212e6 ; OMSI PASCAL Function
000212e6 ;    <LVAR  0x008 1(r)>
000212e6 ; --------------------------------------------------------------------------------------
000212e6					PROG_FAIL:
000212e6 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
000212ea bf d5                    |        |		CMPA.L	(A5),A7
000212ec 62 06                    |b       |		BHI	0x212f4
000212ee 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000212f2 4e 76                    |Nv      |		TRAPV
000212f4 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000212f8 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
000212fc 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00021300 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021302 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021304 51 c8 ff fc              |Q       |		DBF	D0,0x21302
00021308 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
0002130c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002130e 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00021312 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021316 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
0002131a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021320 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021322 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021326 48 80                    |H       |		EXTB.W	D0
00021328 48 c0                    |H       |		EXTW.L	D0
0002132a 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002132c 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021332 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021334 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002133a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002133c 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021342 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021346 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0002134a 4e 5e                    |N^      |		UNLK	A6
0002134c 4e 75                    |Nu      |		RTS
0002134e 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
0002135c 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
0002136a 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00021378 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
0002138a 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
000213a2 ; --------------------------------------------------------------------------------------
000213a2 ; OMSI PASCAL Function
000213a2 ;    <LVAR  0x00e 1(r)>
000213a2 ;    <LVAR  0x00a 4(r)>
000213a2 ;    <LVAR  0x008 1(r)>
000213a2 ; --------------------------------------------------------------------------------------
000213a2					EXP_FAIL:
000213a2 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
000213a6 bf d5                    |        |		CMPA.L	(A5),A7
000213a8 62 06                    |b       |		BHI	0x213b0
000213aa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000213ae 4e 76                    |Nv      |		TRAPV
000213b0 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
000213b4 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000213b8 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000213be 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
000213c4 72 01                    |r       |		MOVEQ.L	#0x01,D1
000213c6 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
000213c8 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
000213ca 78 12                    |x       |		MOVEQ.L	#0x12,D4
000213cc 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
000213ce 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000213d4 41 fa ff b4              |A       |		LEA.L	0x2138a,A0
000213d8 70 08                    |p       |		MOVEQ.L	#0x08,D0
000213da 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000213dc 51 c8 ff fc              |Q       |		DBF	D0,0x213da
000213e0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000213e2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000213e6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000213e8 3f 04                    |?       |		MOVE.W	D4,-(A7)
000213ea 4e 93                    |N       |		JSR	(A3)
000213ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213ee 4e 94                    |N       |		JSR	(A4)
000213f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213f2 20 4f                    | O      |		MOVEA.L	A7,A0
000213f4 43 fa ff 58              |C  X    |		LEA.L	0x2134e,A1
000213f8 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000213fa 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000213fc 51 c8 ff fc              |Q       |		DBF	D0,0x213fa
00021400 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021402 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021406 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021408 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002140a 4e 93                    |N       |		JSR	(A3)
0002140c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002140e 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00021412 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00021418 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002141a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021420 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021422 4e 94                    |N       |		JSR	(A4)
00021424 de c4                    |        |		ADDA.W	D4,A7
00021426 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
0002142a b0 c1                    |        |		CMPA.W	D1,A0
0002142c 67 48                    |gH      |		BEQ	0x21476
0002142e 9e c5                    |        |		SUBA.W	D5,A7
00021430 22 4f                    |"O      |		MOVEA.L	A7,A1
00021432 45 fa ff 28              |E  (    |		LEA.L	0x2135c,A2
00021436 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021438 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002143a 51 c8 ff fc              |Q       |		DBF	D0,0x21438
0002143e 9e c3                    |        |		SUBA.W	D3,A7
00021440 22 4f                    |"O      |		MOVEA.L	A7,A1
00021442 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00021446 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00021448 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
0002144a 51 c8 ff fc              |Q       |		DBF	D0,0x21448
0002144e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021450 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00021454 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021456 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021458 4e 93                    |N       |		JSR	(A3)
0002145a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002145c 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021460 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021462 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021464 4e 93                    |N       |		JSR	(A3)
00021466 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021468 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002146e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021470 4e 94                    |N       |		JSR	(A4)
00021472 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021476 9e c5                    |        |		SUBA.W	D5,A7
00021478 20 4f                    | O      |		MOVEA.L	A7,A0
0002147a 43 fa fe ee              |C       |		LEA.L	0x2136a,A1
0002147e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021480 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021482 51 c8 ff fc              |Q       |		DBF	D0,0x21480
00021486 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021488 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002148c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002148e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021490 4e 93                    |N       |		JSR	(A3)
00021492 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021494 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00021498 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
0002149e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000214a0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000214a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214a8 4e 94                    |N       |		JSR	(A4)
000214aa 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000214ac 20 4f                    | O      |		MOVEA.L	A7,A0
000214ae 43 fa fe da              |C       |		LEA.L	0x2138a,A1
000214b2 70 16                    |p       |		MOVEQ.L	#0x16,D0
000214b4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000214b6 51 c8 ff fc              |Q       |		DBF	D0,0x214b4
000214ba 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000214be 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000214c0 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000214c4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000214c6 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000214ca 4e 93                    |N       |		JSR	(A3)
000214cc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214ce 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000214d4 de c3                    |        |		ADDA.W	D3,A7
000214d6 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
000214da 4e 5e                    |N^      |		UNLK	A6
000214dc 4e 75                    |Nu      |		RTS