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

⟦2ddb28072⟧ M200

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

Derivation

└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »CEDIT.M200« 
    └─ ⟦this⟧ »CEDIT.M200« 

Disassembly

0x20590


@ 20590
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(rw)>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x004 @ 4(rw)>
    <POP 20590-20640 Body>                                              
        <POP 20590-205a6 Prologue>                           Σ0         ↓
        <POP 205a6-205b4 RegCacheLoad>                       Σ0         ↓
        <POP 205b4-205ba Naked>                              Σ0         ↓ →0x205c4
            <MI 205b4  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 205b6  CMPA.W  #0x01,A0>                                        {}
            <MI 205b8  BNE     0x205c4>                                         {}
        <POP 205ba-205c4 Naked>                              Σ0         ↓
            <Pointer.fp 0x205ba <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x205bc 0x102b8>                                              {[@@8]}
                NewString(VAR a : String)
            <POP 205c2-205c4 StackAdj>                       Δ+4                {}
        <POP 205c4-2061c Naked>                              Σ0         ↓ →0x20628 ←0x205b4
            <Blob 0x205c4 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x205c8 [4] @>                             Δ-4                {[«2""»]|[«4""»]}
            <POP 205cc-205ce StackAdj>                       Δ-4                {[«2""»]|[«4""»]|[-4-]}
            <MI 205ce  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']}
            <POP 205d0-205d2 StackAdj>                       Δ-4                {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[-4-]}
            <Lit 0x205d2 2>                                                     {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[$$ []}
            <MI 205e2  MOVE.L  (A6+0x8),(A7)>                                   {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 205dc-205e2 StackAdj>                       Δ-8                {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]}
            <Call 0x205e4 0x102cc>                                              {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x205ea 4>                                                     {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]|[$$] :_]}
            <Call 0x205fc 0x102d8>                                              {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]|[$$] :_]}
                StringCat4(a, b, c, d : String) : String
            <POP 20602-20606 StackAdj>                       Δ+16               {[«2""»]|[«4""»]|[-4-]}
            <MI 20606  MOVE.L  (A7)+,(A6+0xc)>               Δ+4                {[«2""»]|[«4""»]}
            <POP 20608-2060a StackAdj>                       Δ+2                {[«2""»]|[-2-]}
            <MI 2060a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, '(A6+0xc)']}
            <Call 0x2060c 0x103e4>                                              {[«2""»]|[-2-]|[4, '(A6+0xc)']}
                AskConsoleString(prompt : String) : String
            <POP 20612-20614 StackAdj>                       Δ+4                {[«2""»]|[-2-]}
            <MI 20614  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {}
            <MI 20616  MOVEA.L (A6-0x4),A0>                                     {}
            <MI 20618  TST.W   (A0)>                                            {}
            <MI 2061a  BEQ     0x20628>                                         {}
        <POP 2061c-20628 Naked>                              Σ0         →0x20634
            <Pointer.fp 0x2061c <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x2061e 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 20624-20626 StackAdj>                       Δ+4                {}
            <MI 20626  BRA     0x20634>                                         {}
        <POP 20628-20634 Naked>                              Σ0         ↓ ←0x205c4
            <Pointer.fp 0x20628 <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x2062a 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 20630-20632 StackAdj>                       Δ+4                {}
            <MI 20632  MOVE.L  (A6+0x8),(A6-0x4)>                               {}
        <POP 20634-20638 Naked>                              Σ0         ↓ ←0x2061c
            <MI 20634  MOVE.L  (A6-0x4),(A6+0x10)>                              {}
        <POP 20638-20640 Epilogue>                           Σ0         

0x20640


@ 20640
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(rw)>
    <POP 20640-2085c Body>                                              
        <POP 20640-20656 Prologue>                           Σ0         ↓
        <POP 20656-2065e RegCacheLoad>                       Σ0         ↓
        <POP 2065e-20674 Naked>                              Σ0         ↓ →0x20676
            <POP 2065e-20660 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x20660 0x103c4>                                              {[-4-]}
                GetArgv() : String
            <MI 20666  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 2066a  MOVEQ.L #0x00,D7>                                        {}
            <MI 2066c  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 20670  TST.W   (A0)>                                            {}
            <MI 20672  BEQ     0x20676>                                         {}
        <POP 20674-20676 Naked>                              Σ0         ↓
            <MI 20674  ADDQ.B  #0x1,D7>                                         {}
        <POP 20676-2067a Naked>                              Σ0         ↓ →0x206a6 ←0x2065e
            <MI 20676  TST.B   D7>                                              {}
            <MI 20678  BNE     0x206a6>                                         {}
        <POP 2067a-206a6 Naked>                              Σ0         ↓
            <Pointer.fp 0x2067a <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x2067e 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 20684-20685 StackAdj>                       Δ+4                {}
            <Blob 0x20685 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20688 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 2068c-2068e StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x2068e 8>                                                     {[«4""»]|[«4""»]|[$$STANDARD]}
            <MI 206a0  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«4""»]|[«4""»]}
            <POP 206a4-206a6 StackAdj>                       Δ+8                {}
        <POP 206a6-206de Naked>                              Σ0 Δ-36    ↓ →0x206f2 ←0x20676
            <MI 206a6  MOVEA.L (A6+0x10),A0>                                    {}
            <Blob 0x206aa [36] @>                            Δ-36               {[«36""»]}
            <POP 206ba-206bc StackAdj>                       Δ-8                {[«36""»]|[-8-]}
            <Lit 0x206bc 35>                                                    {[«36""»]|[-4-]|[$$Enter name of configuration to edit]}
            <POP 206ca-206cc StackAdj>                       Δ-4                {[«36""»]|[-4-]|[$$Enter name of configuration to edit]|[-4-]}
            <MI 206cc  MOVE.L  (A6-0x8),(A7)>                                   {[«36""»]|[-4-]|[$$Enter name of configuration to edit]|[4, '(A6-0x8)']}
            <Call 0x206d0 0x20590>                                              {[«36""»]|[-4-]|[$$Enter name of configuration to edit]|[4, '(A6-0x8)']}
            <POP 206d4-206d6 StackAdj>                       Δ+8                {[«36""»]|[-4-]}
            <MI 206d6  MOVEA.L (A7)+,A1>                     Δ+4                {[«36""»]}
            <MI 206d8  MOVE.L  A1,(A0)>                                         {[«36""»]}
            <MI 206da  TST.B   D7>                                              {[«36""»]}
            <MI 206dc  BEQ     0x206f2>                                         {[«36""»]}
        <POP 206de-206f2 Naked>                              Σ-36       →0x2072a
            <MI 206de  MOVEA.L (A6+0xc),A2>                                     {[-36-]}
            <POP 206e2-206e4 StackAdj>                       Δ-4                {[-40-]}
            <MI 206e4  MOVE.L  A1,-(A7)>                     Δ-4                {[-40-]|[4, 'A1']}
            <Call 0x206e6 0x102cc>                                              {[-40-]|[4, 'A1']}
                StringDup(a : String) : String
            <POP 206ec-206ee StackAdj>                       Δ+4                {[-40-]}
            <MI 206ee  MOVE.L  (A7)+,(A2)>                   Δ+4                {[-36-]}
            <MI 206f0  BRA     0x2072a>                                         {[-36-]}
        <POP 206f2-2072a Naked>                              Σ-36       ↓ ←0x206a6
            <MI 206f2  MOVEA.L (A6+0xc),A2>                                     {[-36-]}
            <Blob 0x206f6 [36] @>                            Δ-36               {[-36-]|[«36""»]}
            <POP 20706-20708 StackAdj>                       Δ-8                {[-36-]|[«36""»]|[-8-]}
            <Lit 0x20708 35>                                                    {[-36-]|[«36""»]|[-4-]|[$$Enter name of configuration to save]}
            <MI 20716  MOVE.L  A1,(A7)>                                         {[-36-]|[«36""»]|[-4-]|[4, 'A1']}
            <POP 20710-20716 StackAdj>                       Δ-8                {[-36-]|[«36""»]|[-4-]|[4, 'A1']|[-8-]}
            <Call 0x20718 0x102cc>                                              {[-36-]|[«36""»]|[-4-]|[4, 'A1']|[-8-]}
                StringDup(a : String) : String
            <POP 2071e-20720 StackAdj>                       Δ+4                {[-36-]|[«36""»]|[-4-]|[4, 'A1']|[-4-]}
            <Call 0x20720 0x20590>                                              {[-36-]|[«36""»]|[-4-]|[4, 'A1']|[-4-]}
            <POP 20724-20726 StackAdj>                       Δ+8                {[-36-]|[«36""»]|[-4-]}
            <MI 20726  MOVE.L  (A7)+,(A2)>                   Δ+4                {[-36-]|[«36""»]}
            <POP 20728-2072a StackAdj>                       Δ+36               {[-36-]}
        <POP 2072a-20772 Naked>                              Σ-36 Δ+36  ↓ →0x20786 ←0x206de
            <POP 2072a-2072c StackAdj>                       Δ-4                {[-40-]}
            <MI 2072c  MOVE.L  A1,-(A7)>                     Δ-4                {[-40-]|[4, 'A1']}
            <Call 0x2072e 0x102f0>                                              {[-40-]|[4, 'A1']}
                ToUpper(a : String) : String
            <POP 20734-20736 StackAdj>                       Δ+4                {[-40-]}
            <MI 20736  MOVE.L  (A7)+,(A0)>                   Δ+4                {[-36-]}
            <POP 20738-2073c StackAdj>                       Δ+32               {[-4-]}
            <POP 2073c-2073d StackAdj>                       Δ+4                {}
            <Blob 0x2073d [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20740 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x20744 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 20748-2074a StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x2074a 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$.M200_CONFIG]}
            <MI 2075a  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 2075e-20760 StackAdj>                       Δ+4                {[«4""»]|[«4""»]}
            <MI 20760  MOVE.L  (A0),(A7)>                                       {[«4""»]|[4, '(A0)']}
            <MI 20762  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[«4""»]|[4, '(A0)']|[4, '(A6-0x8)']}
            <Call 0x20766 0x10300>                                              {[«4""»]|[4, '(A0)']|[4, '(A6-0x8)']}
                FSCALL_10300
            <POP 2076c-2076e StackAdj>                       Δ+8                {[«4""»]}
            <MI 2076e  TST.L   (A7)+>                        Δ+4                {}
            <MI 20770  BNE     0x20786>                                         {}
        <POP 20772-20786 Naked>                              Σ0         →0x20792
            <POP 20772-20774 StackAdj>                       Δ-4                {[-4-]}
            <MI 20774  MOVE.L  (A0),-(A7)>                   Δ-4                {[-4-]|[4, '(A0)']}
            <MI 20776  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A0)']|[4, '(A6-0x8)']}
            <Call 0x2077a 0x102d0>                                              {[-4-]|[4, '(A0)']|[4, '(A6-0x8)']}
                StringCat2(a, b : String) : String
            <POP 20780-20782 StackAdj>                       Δ+8                {[-4-]}
            <MI 20782  MOVE.L  (A7)+,(A0)>                   Δ+4                {}
            <MI 20784  BRA     0x20792>                                         {}
        <POP 20786-20792 Naked>                              Σ0         ↓ ←0x2072a
            <Pointer.fp 0x20786 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x2078a 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 20790-20792 StackAdj>                       Δ+4                {}
        <POP 20792-207da Naked>                              Σ0         ↓ →0x207ee ←0x20772
            <MI 20792  MOVEA.L (A6+0xc),A0>                                     {}
            <POP 20796-20798 StackAdj>                       Δ-4                {[-4-]}
            <MI 20798  MOVE.L  (A0),-(A7)>                   Δ-4                {[-4-]|[4, '(A0)']}
            <Call 0x2079a 0x102f0>                                              {[-4-]|[4, '(A0)']}
                ToUpper(a : String) : String
            <POP 207a0-207a2 StackAdj>                       Δ+4                {[-4-]}
            <MI 207a2  MOVE.L  (A7)+,(A0)>                   Δ+4                {}
            <Blob 0x207a4 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x207a8 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x207ac [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 207b0-207b2 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x207b2 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$.M200_CONFIG]}
            <MI 207c2  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 207c6-207c8 StackAdj>                       Δ+4                {[«4""»]|[«4""»]}
            <MI 207c8  MOVE.L  (A0),(A7)>                                       {[«4""»]|[4, '(A0)']}
            <MI 207ca  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[«4""»]|[4, '(A0)']|[4, '(A6-0x8)']}
            <Call 0x207ce 0x10300>                                              {[«4""»]|[4, '(A0)']|[4, '(A6-0x8)']}
                FSCALL_10300
            <POP 207d4-207d6 StackAdj>                       Δ+8                {[«4""»]}
            <MI 207d6  TST.L   (A7)+>                        Δ+4                {}
            <MI 207d8  BNE     0x207ee>                                         {}
        <POP 207da-207ee Naked>                              Σ0         →0x207fa
            <POP 207da-207dc StackAdj>                       Δ-4                {[-4-]}
            <MI 207dc  MOVE.L  (A0),-(A7)>                   Δ-4                {[-4-]|[4, '(A0)']}
            <MI 207de  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A0)']|[4, '(A6-0x8)']}
            <Call 0x207e2 0x102d0>                                              {[-4-]|[4, '(A0)']|[4, '(A6-0x8)']}
                StringCat2(a, b : String) : String
            <POP 207e8-207ea StackAdj>                       Δ+8                {[-4-]}
            <MI 207ea  MOVE.L  (A7)+,(A0)>                   Δ+4                {}
            <MI 207ec  BRA     0x207fa>                                         {}
        <POP 207ee-207fa Naked>                              Σ0         ↓ ←0x20792
            <Pointer.fp 0x207ee <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x207f2 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 207f8-207fa StackAdj>                       Δ+4                {}
        <POP 207fa-20854 Naked>                              Σ0         ↓ ←0x207da
            <Blob 0x207fa [16] @>                            Δ-16               {[«16""»]}
            <POP 2080c-2080e StackAdj>                       Δ-4                {[«16""»]|[-4-]}
            <Lit 0x2080e 15>                                                    {[«16""»]|[$$STANDARD.CONFIG]}
            <MI 20820  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«16""»]}
            <POP 20824-20828 StackAdj>                       Δ+10               {[-6-]}
            <MI 20828  MOVE.L  (A0),(A7)>                                       {[-2-]|[4, '(A0)']}
            <MI 2082a  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A0)']|[4, '(A6-0x8)']}
            <Call 0x2082e 0x102c8>                                              {[-2-]|[4, '(A0)']|[4, '(A6-0x8)']}
                StringEqual(a, b : String) : Byte
            <POP 20834-20836 StackAdj>                       Δ+8                {[-2-]}
            <MI 20836  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 20838  EXTB.W  D0>                                              {}
            <POP 0x2083a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 2083c  MOVE.B  D0,0x2149a>                                      {}
            <Pointer.fp 0x20842 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x20846 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 2084c-2084e StackAdj>                       Δ+4                {}
            <MI 2084e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20852  MOVE.B  D7,(A0)>                                         {}
        <POP 20854-2085c Epilogue>                           Σ0         

0x2085c


@ 2085c
        <LVAR  0x008 4(r)>
    <POP 2085c-208f0 Body>                                              
        <POP 2085c-20872 Prologue>                           Σ0         ↓
        <POP 20872-20874 RegCacheLoad>                       Σ0         ↓
        <POP 20874-208be Naked>                              Σ0         ↓
            <MI 20874  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20878  CLR.B   (A0+0x5)>                                        {}
            <MI 2087c  CLR.B   (A0+0x4)>                                        {}
            <MI 20880  CLR.B   (A0+0x3)>                                        {}
            <MI 20884  CLR.B   (A0+0x2)>                                        {}
            <MI 20888  MOVE.B  #0x01,(A0+0x2a)>                                 {}
            <MI 2088c  CLR.B   (A0+0x2b)>                                       {}
            <MI 20890  CLR.B   (A0+0x2c)>                                       {}
            <MI 20894  CLR.B   (A0+0x2d)>                                       {}
            <MI 20898  CLR.B   (A0+0x2e)>                                       {}
            <MI 2089c  MOVE.B  #0x01,(A0+0x2f)>                                 {}
            <MI 208a0  MOVE.B  #0x01,(A0+0x30)>                                 {}
            <MI 208a4  MOVE.B  #0x01,(A0+0x31)>                                 {}
            <MI 208a8  CLR.B   (A0+0x32)>                                       {}
            <MI 208ac  LEA.L   (A0+0x33),A0>                                    {}
            <MI 208b0  LEA.L   0x2019c,A1>                                      {}
            <BlockMove 30,A1,A0>                                                {}
            <MI 208bc  MOVEQ.L #0x00,D7>                                        {}
        <POP 208be-208e8 Naked>                              Σ0         ↓ →0x208be ←0x208be
            <MI 208be  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 208c2  MOVE.B  D7,D0>                                           {}
            <MI 208c4  EXTB.W  D0>                                              {}
            <MI 208c6  ASL.W   #0x5,D0>                                         {}
            <MI 208c8  MOVE.B  #0x01,(A0+D0.W+#0x51)>                           {}
            <MI 208cc  CLR.B   (A0+D0.W+#0x52)>                                 {}
            <MI 208d0  LEA.L   (A0+D0.W+#0x53),A0>                              {}
            <MI 208d4  LEA.L   0x201ba,A1>                                      {}
            <BlockMove 30,A1,A0>                                                {}
            <MI 208e0  ADDQ.B  #0x1,D7>                                         {}
            <MI 208e2  CMPI.B  #0x09,D7>                                        {}
            <MI 208e6  BLE     0x208be>                                         {}
        <POP 208e8-208f0 Epilogue>                           Σ0         

0x208f0


@ 208f0
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @ 1(r)>
    <POP 208f0-2093a Body>                                              
        <POP 208f0-20906 Prologue>                           Σ0         ↓
        <POP 20906-2090c RegCacheLoad>                       Σ0         ↓
        <POP 2090c-2092a Naked>                              Σ0         ↓ →0x20932
            <MI 2090c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Const 0x20910 0x3.4>                            Δ-4                {[4, '(A6+0x8)']|[##3]}
            <Const 0x20914 0x2149c.4>                        Δ-4                {[4, '(A6+0x8)']|[##3]|[##136348]}
            <Pointer.fp 0x20916 <LVAR -0x002 @ 1(r)>>        Δ-4                {[4, '(A6+0x8)']|[##3]|[##136348]|[@@-2]}
            <Call 0x2091a 0x1056e>                                              {[4, '(A6+0x8)']|[##3]|[##136348]|[@@-2]}
                Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
            <POP 20920-20924 StackAdj>                       Δ+16               {}
            <MI 20924  TST.B   (A6-0x2)>                                        {}
            <MI 20928  BNE     0x20932>                                         {}
        <POP 2092a-20932 Naked>                              Σ0         ↓
            <Const 0x2092a 0x2149c.4>                        Δ-4                {[##136348]}
            <Call 0x2092c 0x2085c>                                              {[##136348]}
            <POP 20930-20932 StackAdj>                       Δ+4                {}
        <POP 20932-2093a Epilogue>                           Σ0         ←0x2090c

0x2093a


@ 2093a
        <LVAR -0x002 @ 1(r)>
        <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 2093a-20b50 Body>                                              
        <POP 2093a-20950 Prologue>                           Σ0         ↓
        <POP 20950-20968 RegCacheLoad>                       Σ0         ↓
        <POP 20968-209a0 Naked>                              Σ0 Δ-30    ↓ →0x209bc
            <MI 20968  MOVE.W  0x2058a,(A6-0x8)>                                {}
            <MI 2096e  MOVE.W  0x2058c,(A6-0x6)>                                {}
            <MI 20974  MOVE.W  0x2058e,(A6-0x4)>                                {}
            <Pointer.fp 0x2097a <LVAR -0x008 @ 1(r) 2(w)>>   Δ-4                {[@@-8]}
            <Pointer.fp 0x2097e <LVAR -0x002 @ 1(r)>>        Δ-4                {[@@-8]|[@@-2]}
            <Call 0x20982 0x1057a>                                              {[@@-8]|[@@-2]}
                Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
            <POP 20988-20989 StackAdj>                       Δ+8        ↓       {}
            <Blob 0x20989 [30] @>                            Δ-30               {[«30""»]}
            <MI 2099a  TST.B   (A6-0x2)>                                        {[«30""»]}
            <MI 2099e  BEQ     0x209bc>                                         {[«30""»]}
        <POP 209a0-209bc Naked>                              Σ-30       ↓ →0x20b44
            <POP 209a0-209a2 StackAdj>                       Δ-6                {[-36-]}
            <Lit 0x209a2>                                                       {[-32-]|[$$…]}
                <Pointer.sp 0x209a2 6>                       Δ-4        
                <Const 0x209a6 0x1.2>                        Δ-2        
                <Const 0x209a8 0x1d.2>                       Δ-2        
                <Call 0x209ac 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 209ae-209b0 StackAdj>                   Δ+8        
            <POP 209ae-209b0 StackAdj>                       Δ-2                {[-32-]|[$$…]|[-2-]}
            <MI 209b0  CLR.B   (A7)>                                            {[-32-]|[$$…]|[-2-]}
            <Call 0x209b2 0x103f0>                                              {[-32-]|[$$…]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 209b4-209b6 StackAdj>                       Δ+6                {[-32-]}
            <MI 209b6  TST.B   (A7)+>                        Δ+2                {[-30-]}
            <MI 209b8  BEQ     0x20b44>                                         {[-30-]}
        <POP 209bc-209e2 Naked>                              Σ-30 Δ-52  ↓ →0x209e4 ←0x20968
            <MI 209bc  CLR.B   (A6-0x8)>                                        {[-30-]}
            <Blob 0x209c0 [44] @>                            Δ-44               {[-30-]|[«44""»]}
            <POP 209cc-209ce StackAdj>                       Δ-6                {[-30-]|[«44""»]|[-6-]}
            <Lit 0x209ce 44>                                                    {[-30-]|[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]}
            <POP 209d8-209da StackAdj>                       Δ-2                {[-30-]|[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
            <MI 209da  CLR.B   (A7)>                                            {[-30-]|[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
            <MI 209dc  TST.B   (A6-0x7)>                                        {[-30-]|[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
            <MI 209e0  BNE     0x209e4>                                         {[-30-]|[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
        <POP 209e2-209e4 Naked>                              Σ-82       ↓
            <MI 209e2  ADDQ.B  #0x1,(A7)>                                       {[-82-]}
        <POP 209e4-209ee Naked>                              Σ-82 Δ+8   ↓ →0x20abc ←0x209bc
            <Call 0x209e4 0x103f0>                                              {[-82-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 209e6-209e8 StackAdj>                       Δ+6                {[-76-]}
            <MI 209e8  TST.B   (A7)+>                        Δ+2                {[-74-]}
            <MI 209ea  BEQ     0x20abc>                                         {[-74-]}
        <POP 209ee-20abc Naked>                              Σ-74       →0x20b36
            <MI 209ee  CLR.B   (A6-0x7)>                                        {[-74-]}
            <MI 209f2  CLR.B   (A6-0x5)>                                        {[-74-]}
            <MI 209f6  CLR.B   (A6-0x3)>                                        {[-74-]}
            <Blob 0x209fa [60] @>                            Δ-60               {[-74-]|[«60""»]}
            <POP 20a06-20a08 StackAdj>                       Δ-4                {[-74-]|[«60""»]|[-4-]}
            <Lit 0x20a08 60>                                                    {[-74-]|[«60""»]|[$$NOTE: 32 MB boards must be installed as MEM 0 or MEM 2 only.]}
            <Call 0x20a14 0x103e0>                                              {[-74-]|[«60""»]|[$$NOTE: 32 MB boards must be installed as MEM 0 or MEM 2 only.]}
                WriteConsoleStringCrLf(str : String)
            <POP 20a1a-20a1e StackAdj>                       Δ+64               {[-74-]}
            <Blob 0x20a1e [60] @>                            Δ-60               {[-74-]|[«60""»]}
            <POP 20a2a-20a2c StackAdj>                       Δ-4                {[-74-]|[«60""»]|[-4-]}
            <Lit 0x20a2c 60>                                                    {[-74-]|[«60""»]|[$$      8 MB boards cannot be in the same CPU as 32 MB boards.]}
            <Call 0x20a38 0x103e0>                                              {[-74-]|[«60""»]|[$$      8 MB boards cannot be in the same CPU as 32 MB boards.]}
                WriteConsoleStringCrLf(str : String)
            <POP 20a3e-20a3f StackAdj>                       Δ+64       ↓       {[-74-]}
            <Blob 0x20a3f [26] @>                            Δ-26               {[-74-]|[«26""»]}
            <POP 20a50-20a52 StackAdj>                       Δ-4                {[-74-]|[«26""»]|[-4-]}
            <Lit 0x20a52 25>                                                    {[-74-]|[«26""»]|[$$Does memory board 0 exist]}
            <MI 20a5e  MOVEA.L (A7)+,A4>                     Δ+4                {[-74-]|[«26""»]}
            <POP 20a60-20a62 StackAdj>                       Δ+20               {[-74-]|[-6-]}
            <MI 20a62  MOVE.L  A4,(A7)>                                         {[-74-]|[-2-]|[4, 'A4']}
            <MI 20a64  MOVE.B  (A6-0x6),D0>                                     {[-74-]|[-2-]|[4, 'A4']}
            <MI 20a68  EXTB.W  D0>                                              {[-74-]|[-2-]|[4, 'A4']}
            <POP 0x20a6a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-74-]|[-2-]|[4, 'A4']}
            <MI 20a6c  MOVE.B  D0,-(A7)>                     Δ-2                {[-74-]|[-2-]|[4, 'A4']|[2, 'D0']}
            <Call 0x20a6e 0x103f0>                                              {[-74-]|[-2-]|[4, 'A4']|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20a70-20a72 StackAdj>                       Δ+6                {[-74-]|[-2-]}
            <MI 20a72  MOVE.B  (A7)+,D0>                     Δ+2                {[-74-]}
            <MI 20a74  EXTB.W  D0>                                              {[-74-]}
            <POP 0x20a76 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-74-]}
            <MI 20a78  MOVE.B  D0,(A6-0x6)>                                     {[-74-]}
            <Blob 0x20a7c [26] @>                            Δ-26               {[-74-]|[«26""»]}
            <POP 20a8e-20a90 StackAdj>                       Δ-4                {[-74-]|[«26""»]|[-4-]}
            <Lit 0x20a90 25>                                                    {[-74-]|[«26""»]|[$$Does memory board 2 exist]}
            <MI 20a9c  MOVEA.L (A7)+,A4>                     Δ+4                {[-74-]|[«26""»]}
            <POP 20a9e-20aa0 StackAdj>                       Δ+20               {[-74-]|[-6-]}
            <MI 20aa0  MOVE.L  A4,(A7)>                                         {[-74-]|[-2-]|[4, 'A4']}
            <MI 20aa2  MOVE.B  (A6-0x4),D0>                                     {[-74-]|[-2-]|[4, 'A4']}
            <MI 20aa6  EXTB.W  D0>                                              {[-74-]|[-2-]|[4, 'A4']}
            <POP 0x20aa8 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-74-]|[-2-]|[4, 'A4']}
            <MI 20aaa  MOVE.B  D0,-(A7)>                     Δ-2                {[-74-]|[-2-]|[4, 'A4']|[2, 'D0']}
            <Call 0x20aac 0x103f0>                                              {[-74-]|[-2-]|[4, 'A4']|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20aae-20ab0 StackAdj>                       Δ+6                {[-74-]|[-2-]}
            <MI 20ab0  MOVE.B  (A7)+,D0>                     Δ+2                {[-74-]}
            <MI 20ab2  EXTB.W  D0>                                              {[-74-]}
            <POP 0x20ab4 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-74-]}
            <MI 20ab6  MOVE.B  D0,(A6-0x4)>                                     {[-74-]}
            <MI 20aba  BRA     0x20b36>                                         {[-74-]}
        <POP 20abc-20ac2 Naked>                              Σ-74       ↓ ←0x209e4
            <MI 20abc  MOVE.B  #0x01,(A6-0x7)>                                  {[-74-]}
            <MI 20ac0  MOVEQ.L #0x00,D7>                                        {[-74-]}
        <POP 20ac2-20b36 Naked>                              Σ-74       ↓ →0x20ac2 ←0x20ac2
            <Blob 0x20ac2 [18] @>                            Δ-18               {[-74-]|[«18""»]}
            <Blob 0x20ace [2] @>                             Δ-2                {[-74-]|[«18""»]|[«2""»]}
            <Blob 0x20ad2 [2] @>                             Δ-2                {[-74-]|[«18""»]|[«2""»]|[«2""»]}
            <Blob 0x20ad6 [2] @>                             Δ-2                {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]}
            <POP 20ada-20adc StackAdj>                       Δ-8                {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-8-]}
            <Lit 0x20adc 18>                                                    {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$Does memory board_]}
            <MI 20ae8  MOVE.L  D7,(A7)>                                         {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']}
            <POP 20ae6-20ae8 StackAdj>                       Δ-8                {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-8-]}
            <Call 0x20aea 0x102e4>                                              {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x20af0 6>                                                     {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-4-]|[$$ exist]}
            <Call 0x20afe 0x102d4>                                              {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-4-]|[$$ exist]}
                StringCat3(a, b, c : String) : String
            <POP 20b04-20b08 StackAdj>                       Δ+12               {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <MI 20b08  MOVEA.L (A7)+,A4>                     Δ+4                {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]}
            <POP 20b0a-20b0e StackAdj>                       Δ+24               {[-74-]}
            <POP 0x20b0e LimitCheck 0x0 ≤ D7 ≤ 0x3>                             {[-74-]}
            <POP 20b14-20b16 StackAdj>                       Δ-2                {[-76-]}
            <MI 20b16  MOVE.L  A4,-(A7)>                     Δ-4                {[-76-]|[4, 'A4']}
            <MI 20b18  MOVE.B  (A6+D7.L-#0x6),D0>                               {[-76-]|[4, 'A4']}
            <MI 20b1c  EXTB.W  D0>                                              {[-76-]|[4, 'A4']}
            <POP 0x20b1e LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-76-]|[4, 'A4']}
            <MI 20b20  MOVE.B  D0,-(A7)>                     Δ-2                {[-76-]|[4, 'A4']|[2, 'D0']}
            <Call 0x20b22 0x103f0>                                              {[-76-]|[4, 'A4']|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20b24-20b26 StackAdj>                       Δ+6                {[-76-]}
            <MI 20b26  MOVE.B  (A7)+,D0>                     Δ+2                {[-74-]}
            <MI 20b28  EXTB.W  D0>                                              {[-74-]}
            <POP 0x20b2a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-74-]}
            <MI 20b2c  MOVE.B  D0,(A6+D7.L-#0x6)>                               {[-74-]}
            <MI 20b30  ADDQ.L  #0x1,D7>                                         {[-74-]}
            <MI 20b32  CMP.L   #0x03,D7>                                        {[-74-]}
            <MI 20b34  BLE     0x20ac2>                                         {[-74-]}
        <POP 20b36-20b44 Naked>                              Σ-74 Δ+44  ↓ ←0x209ee
            <POP 20b36-20b38 StackAdj>                       Δ+44               {[-30-]}
            <Pointer.fp 0x20b38 <LVAR -0x008 @ 1(r) 2(w)>>   Δ-4                {[-30-]|[@@-8]}
            <Call 0x20b3c 0x10580>                                              {[-30-]|[@@-8]}
                Write_HARDWARE.M200_CONFIG(a : Pointer)
            <POP 20b42-20b44 StackAdj>                       Δ+4                {[-30-]}
        <POP 20b44-20b48 Naked>                              Σ-30 Δ+30  ↓ ←0x209a0
            <POP 20b44-20b48 StackAdj>                       Δ+30               {}
        <POP 20b48-20b50 Epilogue>                           Σ0         

0x20b50


@ 20b50
    <POP 20b50-20c74 Body>                                              
        <POP 20b50-20b66 Prologue>                           Σ0         ↓
        <POP 20b66-20b82 RegCacheLoad>                       Σ0         ↓
        <POP 20b82-20c6c Naked>                              Σ0         ↓
            <Blob 0x20b82 [40] @>                            Δ-40               {[«40""»]}
            <POP 20b92-20b94 StackAdj>                       Δ-6                {[«40""»]|[-6-]}
            <Lit 0x20b94 39>                                                    {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
            <MI 20ba2  MOVE.B  0x2149e,D0>                                      {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
            <MI 20ba4  EXTB.W  D0>                                              {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
            <POP 0x20ba6 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
            <MI 20ba8  MOVE.B  D0,-(A7)>                     Δ-2                {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]|[2, 'D0']}
            <Call 0x20baa 0x103f0>                                              {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20bac-20bae StackAdj>                       Δ+6                {[«40""»]|[-2-]}
            <MI 20bae  MOVE.B  (A7)+,D0>                     Δ+2                {[«40""»]}
            <MI 20bb0  EXTB.W  D0>                                              {[«40""»]}
            <POP 0x20bb2 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«40""»]}
            <POP 20bb4-20bb6 StackAdj>                       Δ+40               {}
            <MI 20bb6  MOVE.B  D0,0x2149e>                                      {}
            <Blob 0x20bb8 [30] @>                            Δ-30               {[«30""»]}
            <POP 20bc4-20bc6 StackAdj>                       Δ-6                {[«30""»]|[-6-]}
            <Lit 0x20bc6 30>                                                    {[«30""»]|[-2-]|[$$Allow editing of configuration]}
            <MI 20bd2  MOVE.B  0x2149f,D0>                                      {[«30""»]|[-2-]|[$$Allow editing of configuration]}
            <MI 20bd8  EXTB.W  D0>                                              {[«30""»]|[-2-]|[$$Allow editing of configuration]}
            <POP 0x20bda LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«30""»]|[-2-]|[$$Allow editing of configuration]}
            <MI 20bdc  MOVE.B  D0,-(A7)>                     Δ-2                {[«30""»]|[-2-]|[$$Allow editing of configuration]|[2, 'D0']}
            <Call 0x20bde 0x103f0>                                              {[«30""»]|[-2-]|[$$Allow editing of configuration]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20be0-20be2 StackAdj>                       Δ+6                {[«30""»]|[-2-]}
            <MI 20be2  MOVE.B  (A7)+,D0>                     Δ+2                {[«30""»]}
            <MI 20be4  EXTB.W  D0>                                              {[«30""»]}
            <POP 0x20be6 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«30""»]}
            <POP 20be8-20bea StackAdj>                       Δ+30               {}
            <MI 20bea  MOVE.B  D0,0x2149f>                                      {}
            <Blob 0x20bf0 [58] @>                            Δ-58               {[«58""»]}
            <POP 20c00-20c02 StackAdj>                       Δ-6                {[«58""»]|[-6-]}
            <Lit 0x20c02 57>                                                    {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
            <MI 20c10  MOVE.B  0x214a0,D0>                                      {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
            <MI 20c16  EXTB.W  D0>                                              {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
            <POP 0x20c18 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
            <MI 20c1a  MOVE.B  D0,-(A7)>                     Δ-2                {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]|[2, 'D0']}
            <Call 0x20c1c 0x103f0>                                              {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20c1e-20c20 StackAdj>                       Δ+6                {[«58""»]|[-2-]}
            <MI 20c20  MOVE.B  (A7)+,D0>                     Δ+2                {[«58""»]}
            <MI 20c22  EXTB.W  D0>                                              {[«58""»]}
            <POP 0x20c24 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«58""»]}
            <POP 20c26-20c28 StackAdj>                       Δ+58               {}
            <MI 20c28  MOVE.B  D0,0x214a0>                                      {}
            <Blob 0x20c2e [34] @>                            Δ-34               {[«34""»]}
            <POP 20c3e-20c40 StackAdj>                       Δ-6                {[«34""»]|[-6-]}
            <Lit 0x20c40 33>                                                    {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
            <MI 20c4e  MOVE.B  0x214a1,D0>                                      {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
            <MI 20c54  EXTB.W  D0>                                              {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
            <POP 0x20c56 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
            <MI 20c58  MOVE.B  D0,-(A7)>                     Δ-2                {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]|[2, 'D0']}
            <Call 0x20c5a 0x103f0>                                              {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20c5c-20c5e StackAdj>                       Δ+6                {[«34""»]|[-2-]}
            <MI 20c5e  MOVE.B  (A7)+,D0>                     Δ+2                {[«34""»]}
            <MI 20c60  EXTB.W  D0>                                              {[«34""»]}
            <POP 0x20c62 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«34""»]}
            <POP 20c64-20c66 StackAdj>                       Δ+34               {}
            <MI 20c66  MOVE.B  D0,0x214a1>                                      {}
        <POP 20c6c-20c74 Epilogue>                           Σ0         

0x20c74


@ 20c74
    <POP 20c74-20dda Body>                                              
        <POP 20c74-20c8a Prologue>                           Σ0         ↓
        <POP 20c8a-20ca8 RegCacheLoad>                       Σ0         ↓
        <POP 20ca8-20dd2 Naked>                              Σ0         ↓
            <Blob 0x20ca8 [30] @>                            Δ-30               {[«30""»]}
            <POP 20cb8-20cba StackAdj>                       Δ-6                {[«30""»]|[-6-]}
            <Lit 0x20cba 29>                                                    {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
            <MI 20cc6  MOVE.B  0x214c6,D0>                                      {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
            <MI 20cc8  EXTB.W  D0>                                              {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
            <POP 0x20cca LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
            <MI 20ccc  MOVE.B  D0,-(A7)>                     Δ-2                {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]|[2, 'D0']}
            <Call 0x20cce 0x103f0>                                              {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20cd0-20cd2 StackAdj>                       Δ+6                {[«30""»]|[-2-]}
            <MI 20cd2  MOVE.B  (A7)+,D0>                     Δ+2                {[«30""»]}
            <MI 20cd4  EXTB.W  D0>                                              {[«30""»]}
            <POP 0x20cd6 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«30""»]}
            <POP 20cd8-20cda StackAdj>                       Δ+30               {}
            <MI 20cda  MOVE.B  D0,0x214c6>                                      {}
            <Blob 0x20cdc [44] @>                            Δ-44               {[«44""»]}
            <POP 20cec-20cee StackAdj>                       Δ-6                {[«44""»]|[-6-]}
            <Lit 0x20cee 43>                                                    {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
            <MI 20cfc  MOVE.B  0x214c7,D0>                                      {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
            <MI 20d02  EXTB.W  D0>                                              {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
            <POP 0x20d04 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
            <MI 20d06  MOVE.B  D0,-(A7)>                     Δ-2                {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]|[2, 'D0']}
            <Call 0x20d08 0x103f0>                                              {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20d0a-20d0c StackAdj>                       Δ+6                {[«44""»]|[-2-]}
            <MI 20d0c  MOVE.B  (A7)+,D0>                     Δ+2                {[«44""»]}
            <MI 20d0e  EXTB.W  D0>                                              {[«44""»]}
            <POP 0x20d10 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«44""»]}
            <POP 20d12-20d14 StackAdj>                       Δ+44               {}
            <MI 20d14  MOVE.B  D0,0x214c7>                                      {}
            <Blob 0x20d1a [30] @>                            Δ-30               {[«30""»]}
            <POP 20d2a-20d2c StackAdj>                       Δ-6                {[«30""»]|[-6-]}
            <Lit 0x20d2c 29>                                                    {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
            <MI 20d38  MOVE.B  0x214c8,D0>                                      {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
            <MI 20d3e  EXTB.W  D0>                                              {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
            <POP 0x20d40 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
            <MI 20d42  MOVE.B  D0,-(A7)>                     Δ-2                {[«30""»]|[-2-]|[$$Call Rational on kernel crash]|[2, 'D0']}
            <Call 0x20d44 0x103f0>                                              {[«30""»]|[-2-]|[$$Call Rational on kernel crash]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20d46-20d48 StackAdj>                       Δ+6                {[«30""»]|[-2-]}
            <MI 20d48  MOVE.B  (A7)+,D0>                     Δ+2                {[«30""»]}
            <MI 20d4a  EXTB.W  D0>                                              {[«30""»]}
            <POP 0x20d4c LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«30""»]}
            <POP 20d4e-20d50 StackAdj>                       Δ+30               {}
            <MI 20d50  MOVE.B  D0,0x214c8>                                      {}
            <MI 20d56  CLR.B   0x214c9>                                         {}
            <MI 20d5c  CLR.B   0x214ca>                                         {}
            <Blob 0x20d62 [36] @>                            Δ-36               {[«36""»]}
            <POP 20d6e-20d70 StackAdj>                       Δ-6                {[«36""»]|[-6-]}
            <Lit 0x20d70 36>                                                    {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
            <MI 20d7c  MOVE.B  0x214cb,D0>                                      {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
            <MI 20d82  EXTB.W  D0>                                              {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
            <POP 0x20d84 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
            <MI 20d86  MOVE.B  D0,-(A7)>                     Δ-2                {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]|[2, 'D0']}
            <Call 0x20d88 0x103f0>                                              {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20d8a-20d8c StackAdj>                       Δ+6                {[«36""»]|[-2-]}
            <MI 20d8c  MOVE.B  (A7)+,D0>                     Δ+2                {[«36""»]}
            <MI 20d8e  EXTB.W  D0>                                              {[«36""»]}
            <POP 0x20d90 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«36""»]}
            <POP 20d92-20d94 StackAdj>                       Δ+36               {}
            <MI 20d94  MOVE.B  D0,0x214cb>                                      {}
            <Blob 0x20d9a [20] @>                            Δ-20               {[«20""»]}
            <POP 20da6-20da8 StackAdj>                       Δ-6                {[«20""»]|[-6-]}
            <Lit 0x20da8 20>                                                    {[«20""»]|[-2-]|[$$Auto boot the kernel]}
            <MI 20db4  MOVE.B  0x214cc,D0>                                      {[«20""»]|[-2-]|[$$Auto boot the kernel]}
            <MI 20dba  EXTB.W  D0>                                              {[«20""»]|[-2-]|[$$Auto boot the kernel]}
            <POP 0x20dbc LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«20""»]|[-2-]|[$$Auto boot the kernel]}
            <MI 20dbe  MOVE.B  D0,-(A7)>                     Δ-2                {[«20""»]|[-2-]|[$$Auto boot the kernel]|[2, 'D0']}
            <Call 0x20dc0 0x103f0>                                              {[«20""»]|[-2-]|[$$Auto boot the kernel]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20dc2-20dc4 StackAdj>                       Δ+6                {[«20""»]|[-2-]}
            <MI 20dc4  MOVE.B  (A7)+,D0>                     Δ+2                {[«20""»]}
            <MI 20dc6  EXTB.W  D0>                                              {[«20""»]}
            <POP 0x20dc8 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«20""»]}
            <POP 20dca-20dcc StackAdj>                       Δ+20               {}
            <MI 20dcc  MOVE.B  D0,0x214cc>                                      {}
        <POP 20dd2-20dda Epilogue>                           Σ0         

0x20dda


@ 20dda
        <LVAR -0x008 @ 1(r)>
    <POP 20dda-20f2a Body>                                              
        <POP 20dda-20df0 Prologue>                           Σ0         ↓
        <POP 20df0-20e08 RegCacheLoad>                       Σ0         ↓
        <POP 20e08-20e10 Naked>                              Σ0         ↓ →0x20e14
            <MI 20e08  TST.B   0x2149a>                                         {}
            <MI 20e0e  BEQ     0x20e14>                                         {}
        <POP 20e10-20e14 Naked>                              Σ0         →0x20e48
            <MI 20e10  CLR.B   0x214cd>                                         {}
            <MI 20e12  BRA     0x20e48>                                         {}
        <POP 20e14-20e48 Naked>                              Σ0         ↓ ←0x20e08
            <Blob 0x20e14 [42] @>                            Δ-42               {[«42""»]}
            <POP 20e20-20e22 StackAdj>                       Δ-6                {[«42""»]|[-6-]}
            <Lit 0x20e22 42>                                                    {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
            <MI 20e2e  MOVE.B  0x214cd,D0>                                      {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
            <MI 20e30  EXTB.W  D0>                                              {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
            <POP 0x20e32 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
            <MI 20e34  MOVE.B  D0,-(A7)>                     Δ-2                {[«42""»]|[-2-]|[$$Take microcode from standard configuration]|[2, 'D0']}
            <Call 0x20e36 0x103f0>                                              {[«42""»]|[-2-]|[$$Take microcode from standard configuration]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20e3c-20e3e StackAdj>                       Δ+6                {[«42""»]|[-2-]}
            <MI 20e3e  MOVE.B  (A7)+,D0>                     Δ+2                {[«42""»]}
            <MI 20e40  EXTB.W  D0>                                              {[«42""»]}
            <POP 0x20e42 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«42""»]}
            <POP 20e44-20e46 StackAdj>                       Δ+42               {}
            <MI 20e46  MOVE.B  D0,0x214cd>                                      {}
        <POP 20e48-20e4e Naked>                              Σ0         ↓ →0x20f22 ←0x20e10
            <MI 20e48  TST.B   0x214cd>                                         {}
            <MI 20e4a  BNE     0x20f22>                                         {}
        <POP 20e4e-20eb6 Naked>                              Σ0         ↓ →0x20ede ←0x20f04
            <Blob 0x20e4e [58] @>                            Δ-58               {[«58""»]}
            <POP 20e5a-20e5c StackAdj>                       Δ-6                {[«58""»]|[-6-]}
            <Lit 0x20e5c 58>                                                    {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
            <MI 20e68  MOVE.B  0x214ce,D0>                                      {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
            <MI 20e6e  EXTB.W  D0>                                              {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
            <POP 0x20e70 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
            <MI 20e72  MOVE.B  D0,-(A7)>                     Δ-2                {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]|[2, 'D0']}
            <Call 0x20e74 0x103f0>                                              {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]|[2, 'D0']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20e7a-20e7c StackAdj>                       Δ+6                {[«58""»]|[-2-]}
            <MI 20e7c  MOVE.B  (A7)+,D0>                     Δ+2                {[«58""»]}
            <MI 20e7e  EXTB.W  D0>                                              {[«58""»]}
            <POP 0x20e80 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«58""»]}
            <POP 20e82-20e84 StackAdj>                       Δ+58               {}
            <MI 20e84  MOVE.B  D0,0x214ce>                                      {}
            <Blob 0x20e8a [30] 0x214cf>                      Δ-30               {[«30»]}
            <POP 20e9c-20e9e StackAdj>                       Δ-4                {[«30»]|[-4-]}
            <Lit 0x20e9e>                                                       {[«30»]|[$$…]}
                <Pointer.sp 0x20e9e 4>                       Δ-4        
                <Const 0x20ea2 0x1.2>                        Δ-2        
                <Const 0x20ea4 0x1e.2>                       Δ-2        
                <Call 0x20ea6 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20ea8-20eaa StackAdj>                   Δ+8        
            <MI 20eaa  MOVEA.L (A7)+,A4>                     Δ+4                {[«30»]}
            <POP 20eac-20eae StackAdj>                       Δ+30               {}
            <MI 20eae  TST.B   0x214ce>                                         {}
            <MI 20eb4  BEQ     0x20ede>                                         {}
        <POP 20eb6-20ede Naked>                              Σ0         →0x20f04
            <Blob 0x20eb6 [28] @>                            Δ-28               {[«28""»]}
            <POP 20ec2-20ec4 StackAdj>                       Δ-8                {[«28""»]|[-8-]}
            <Lit 0x20ec4 28>                                                    {[«28""»]|[-4-]|[$$Enter default microcode name]}
            <POP 20ece-20ed0 StackAdj>                       Δ-4                {[«28""»]|[-4-]|[$$Enter default microcode name]|[-4-]}
            <MI 20ed0  MOVE.L  A4,(A7)>                                         {[«28""»]|[-4-]|[$$Enter default microcode name]|[4, 'A4']}
            <Call 0x20ed2 0x20590>                                              {[«28""»]|[-4-]|[$$Enter default microcode name]|[4, 'A4']}
            <POP 20ed6-20ed8 StackAdj>                       Δ+8                {[«28""»]|[-4-]}
            <MI 20ed8  MOVEA.L (A7)+,A4>                     Δ+4                {[«28""»]}
            <POP 20eda-20edc StackAdj>                       Δ+28               {}
            <MI 20edc  BRA     0x20f04>                                         {}
        <POP 20ede-20f04 Naked>                              Σ0         ↓ ←0x20e4e
            <Blob 0x20ede [20] @>                            Δ-20               {[«20""»]}
            <POP 20eea-20eec StackAdj>                       Δ-8                {[«20""»]|[-8-]}
            <Lit 0x20eec 20>                                                    {[«20""»]|[-4-]|[$$Enter microcode name]}
            <POP 20ef6-20ef8 StackAdj>                       Δ-4                {[«20""»]|[-4-]|[$$Enter microcode name]|[-4-]}
            <MI 20ef8  MOVE.L  A4,(A7)>                                         {[«20""»]|[-4-]|[$$Enter microcode name]|[4, 'A4']}
            <Call 0x20efa 0x20590>                                              {[«20""»]|[-4-]|[$$Enter microcode name]|[4, 'A4']}
            <POP 20efe-20f00 StackAdj>                       Δ+8                {[«20""»]|[-4-]}
            <MI 20f00  MOVEA.L (A7)+,A4>                     Δ+4                {[«20""»]}
            <POP 20f02-20f04 StackAdj>                       Δ+20               {}
        <POP 20f04-20f22 Naked>                              Σ0         ↓ →0x20e4e ←0x20eb6
            <MI 20f04  MOVE.L  A4,-(A7)>                     Δ-4                {[4, 'A4']}
            <Const 0x20f06 0x214cf.4>                        Δ-4                {[4, 'A4']|[##136399]}
            <Pointer.fp 0x20f0c <LVAR -0x008 @ 1(r)>>        Δ-4                {[4, 'A4']|[##136399]|[@@-8]}
            <Call 0x20f10 0x1058c>                                              {[4, 'A4']|[##136399]|[@@-8]}
                FSCALL_1058c
            <POP 20f16-20f1a StackAdj>                       Δ+12               {}
            <MI 20f1a  TST.B   (A6-0x8)>                                        {}
            <MI 20f1e  BEQ     0x20e4e>                                         {}
        <POP 20f22-20f2a Epilogue>                           Σ0         ←0x20e48

0x20f2a


@ 20f2a
        <LVAR -0x002 @ 1(r)>
    <POP 20f2a-21144 Body>                                              
        <POP 20f2a-20f40 Prologue>                           Σ0         ↓
        <POP 20f40-20f4c RegCacheLoad>                       Σ0         ↓
        <POP 20f4c-20f54 Naked>                              Σ0         ↓ →0x20f58
            <MI 20f4c  TST.B   0x214a1>                                         {}
            <MI 20f52  BEQ     0x20f58>                                         {}
        <POP 20f54-20f58 Naked>                              Σ0         →0x20f5a
            <MI 20f54  MOVEQ.L #0x04,D6>                                        {}
            <MI 20f56  BRA     0x20f5a>                                         {}
        <POP 20f58-20f5a Naked>                              Σ0         ↓ ←0x20f4c
            <MI 20f58  MOVEQ.L #0x09,D6>                                        {}
        <POP 20f5a-20f62 Naked>                              Σ0 Δ-2     ↓ →0x20f6c ←0x20f54
            <MI 20f5a  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <MI 20f5c  MOVEQ.L #0x00,D7>                                        {[2, 'D6']}
            <MI 20f5e  CMP.B   (A7),D7>                                         {[2, 'D6']}
            <MI 20f60  BGT     0x20f6c>                                         {[2, 'D6']}
        <POP 20f62-20f6c Naked>                              Σ-2        ↓
            <MI 20f62  MOVE.B  (A7),D0>                                         {[-2-]}
            <POP 0x20f64 LimitCheck D0 ≤ 0x9>                                   {[-2-]}
                <MI 20f64  CMPI.B  #0x09,D0>                            
                <MI 20f68  BLE     0x20f6c>                             
                <MI 20f6a  TRAP    #15>                                 
        <POP 20f6c-20f72 Naked>                              Σ-2        ↓ →0x2113a ←0x20f5a ←0x21132
            <MI 20f6c  CMP.B   (A7),D7>                                         {[-2-]}
            <MI 20f6e  BGT     0x2113a>                                         {[-2-]}
        <POP 20f72-20f8a Naked>                              Σ-2 Δ-6    ↓ →0x20f90
            <MI 20f72  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 20f74  EXTB.W  D0>                                              {[-2-]}
            <MI 20f76  ASL.W   #0x5,D0>                                         {[-2-]}
            <MI 20f78  LEA.L   0x21492,A0>                                      {[-2-]}
            <MI 20f7e  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <MI 20f80  MOVE.L  A0,-(A7)>                     Δ-4                {[-2-]|[2, 'D0']|[4, 'A0']}
            <MI 20f82  TST.B   0x2149a>                                         {[-2-]|[2, 'D0']|[4, 'A0']}
            <MI 20f88  BEQ     0x20f90>                                         {[-2-]|[2, 'D0']|[4, 'A0']}
        <POP 20f8a-20f90 Naked>                              Σ-8        →0x20ffc
            <MI 20f8a  CLR.B   (A0+D0.W+#0x5b)>                                 {[-8-]}
            <MI 20f8e  BRA     0x20ffc>                                         {[-8-]}
        <POP 20f90-20ffc Naked>                              Σ-8        ↓ ←0x20f72
            <Blob 0x20f90 [6] @>                             Δ-6                {[-8-]|[«6""»]}
            <Blob 0x20fa0 [28] @>                            Δ-28               {[-8-]|[«6""»]|[«28""»]}
            <POP 20fac-20fb0 StackAdj>                       Δ-10               {[-8-]|[«6""»]|[«28""»]|[-10-]}
            <Lit 0x20fb0 5>                                                     {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]}
            <POP 20fbc-20fbe StackAdj>                       Δ-6                {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-6-]}
            <MI 20fbe  MOVE.B  D7,(A7)>                                         {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-6-]}
            <Call 0x20fc0 0x10586>                                              {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-6-]}
                Config_Entry_Name(a : Byte) : String
            <POP 20fc6-20fc8 StackAdj>                       Δ-2                {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-8-]}
            <Lit 0x20fc8 28>                                                    {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-4-]|[$$ from standard configuration]}
            <Call 0x20fd6 0x102d4>                                              {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-4-]|[$$ from standard configuration]}
                StringCat3(a, b, c : String) : String
            <POP 20fdc-20fde StackAdj>                       Δ+12               {[-8-]|[«6""»]|[«28""»]|[-6-]}
            <MI 20fde  MOVE.B  (A0+D0.W+#0x5b),D1>                              {[-8-]|[«6""»]|[«28""»]|[-6-]}
            <MI 20fe2  EXTB.W  D1>                                              {[-8-]|[«6""»]|[«28""»]|[-6-]}
            <POP 0x20fe4 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[-8-]|[«6""»]|[«28""»]|[-6-]}
            <MI 20fe6  MOVE.B  D1,-(A7)>                     Δ-2                {[-8-]|[«6""»]|[«28""»]|[-6-]|[2, 'D1']}
            <Call 0x20fe8 0x103f0>                                              {[-8-]|[«6""»]|[«28""»]|[-6-]|[2, 'D1']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20fee-20ff0 StackAdj>                       Δ+6                {[-8-]|[«6""»]|[«28""»]|[-2-]}
            <MI 20ff0  MOVE.B  (A7)+,D1>                     Δ+2                {[-8-]|[«6""»]|[«28""»]}
            <MI 20ff2  EXTB.W  D1>                                              {[-8-]|[«6""»]|[«28""»]}
            <POP 0x20ff4 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[-8-]|[«6""»]|[«28""»]}
            <POP 20ff6-20ff8 StackAdj>                       Δ+34               {[-8-]}
            <MI 20ff8  MOVE.B  D1,(A0+D0.W+#0x5b)>                              {[-8-]}
        <POP 20ffc-21004 Naked>                              Σ-8        ↓ →0x21132 ←0x20f8a
            <MI 20ffc  TST.B   (A0+D0.W+#0x5b)>                                 {[-8-]}
            <MI 21000  BNE     0x21132>                                         {[-8-]}
        <POP 21004-21096 Naked>                              Σ-8        ↓ →0x210d6 ←0x21118
            <MI 21004  MOVEA.L (A7),A0>                                         {[-8-]}
            <MI 21006  MOVE.W  (A7+0x4),D0>                                     {[-8-]}
            <Blob 0x2100a [36] @>                            Δ-36               {[-8-]|[«36""»]}
            <POP 21016-2101a StackAdj>                       Δ-10               {[-8-]|[«36""»]|[-10-]}
            <Lit 0x2101a 36>                                                    {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]}
            <POP 21026-21028 StackAdj>                       Δ-6                {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-6-]}
            <MI 21028  MOVE.B  D7,(A7)>                                         {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-6-]}
            <Call 0x2102a 0x10586>                                              {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-6-]}
                Config_Entry_Name(a : Byte) : String
            <POP 21030-21032 StackAdj>                       Δ+2                {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-4-]}
            <Call 0x21032 0x102d0>                                              {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21038-2103a StackAdj>                       Δ+8                {[-8-]|[«36""»]|[-6-]}
            <MI 2103a  MOVE.B  (A0+D0.W+#0x5c),D1>                              {[-8-]|[«36""»]|[-6-]}
            <MI 2103e  EXTB.W  D1>                                              {[-8-]|[«36""»]|[-6-]}
            <POP 0x21040 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[-8-]|[«36""»]|[-6-]}
            <MI 21042  MOVE.B  D1,-(A7)>                     Δ-2                {[-8-]|[«36""»]|[-6-]|[2, 'D1']}
            <Call 0x21044 0x103f0>                                              {[-8-]|[«36""»]|[-6-]|[2, 'D1']}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 2104a-2104c StackAdj>                       Δ+6                {[-8-]|[«36""»]|[-2-]}
            <MI 2104c  MOVE.B  (A7)+,D1>                     Δ+2                {[-8-]|[«36""»]}
            <MI 2104e  EXTB.W  D1>                                              {[-8-]|[«36""»]}
            <POP 0x21050 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[-8-]|[«36""»]}
            <POP 21052-21056 StackAdj>                       Δ+36               {[-8-]}
            <MI 21056  MOVE.B  D1,(A0+D0.W+#0x5c)>                              {[-8-]}
            <MI 2105a  MOVE.B  D7,D1>                                           {[-8-]}
            <MI 2105c  EXTB.W  D1>                                              {[-8-]}
            <MI 2105e  MOVE.W  D1,D2>                                           {[-8-]}
            <MI 21060  ASL.W   #0x5,D2>                                         {[-8-]}
            <MI 21062  LEA.L   0x21492,A1>                                      {[-8-]}
            <Blob 0x21068 [30] (A1+D2.W+#0x5d)>              Δ-30               {[-8-]|[«30»]}
            <POP 2107a-2107c StackAdj>                       Δ-4                {[-8-]|[«30»]|[-4-]}
            <Lit 0x2107c>                                                       {[-8-]|[«30»]|[$$…]}
                <Pointer.sp 0x2107c 4>                       Δ-4        
                <Const 0x21080 0x1.2>                        Δ-2        
                <Const 0x21082 0x1e.2>                       Δ-2        
                <Call 0x21086 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21088-2108a StackAdj>                   Δ+8        
            <MI 2108a  MOVEA.L (A7)+,A4>                     Δ+4                {[-8-]|[«30»]}
            <POP 2108c-21090 StackAdj>                       Δ+30               {[-8-]}
            <MI 21090  TST.B   (A0+D0.W+#0x5c)>                                 {[-8-]}
            <MI 21094  BEQ     0x210d6>                                         {[-8-]}
        <POP 21096-210d6 Naked>                              Σ-8        →0x21118
            <Blob 0x21096 [34] @>                            Δ-34               {[-8-]|[«34""»]}
            <POP 210a6-210a8 StackAdj>                       Δ-12               {[-8-]|[«34""»]|[-12-]}
            <Lit 0x210a8 33>                                                    {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]}
            <POP 210b4-210b6 StackAdj>                       Δ-6                {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-6-]}
            <MI 210b6  MOVE.B  D1,(A7)>                                         {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-6-]}
            <Call 0x210b8 0x10586>                                              {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-6-]}
                Config_Entry_Name(a : Byte) : String
            <POP 210be-210c0 StackAdj>                       Δ+2                {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-4-]}
            <Call 0x210c0 0x102d0>                                              {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 210c6-210c8 StackAdj>                       Δ+4                {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]}
            <MI 210c8  MOVE.L  A4,(A7)>                                         {[-8-]|[«34""»]|[-8-]|[4, 'A4']}
            <Call 0x210ca 0x20590>                                              {[-8-]|[«34""»]|[-8-]|[4, 'A4']}
            <POP 210ce-210d0 StackAdj>                       Δ+8                {[-8-]|[«34""»]|[-4-]}
            <MI 210d0  MOVEA.L (A7)+,A4>                     Δ+4                {[-8-]|[«34""»]}
            <POP 210d2-210d4 StackAdj>                       Δ+34               {[-8-]}
            <MI 210d4  BRA     0x21118>                                         {[-8-]}
        <POP 210d6-21118 Naked>                              Σ-8        ↓ ←0x21004
            <Blob 0x210d6 [26] @>                            Δ-26               {[-8-]|[«26""»]}
            <POP 210e8-210ea StackAdj>                       Δ-12               {[-8-]|[«26""»]|[-12-]}
            <Lit 0x210ea 25>                                                    {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]}
            <POP 210f6-210f8 StackAdj>                       Δ-6                {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-6-]}
            <MI 210f8  MOVE.B  D1,(A7)>                                         {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-6-]}
            <Call 0x210fa 0x10586>                                              {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-6-]}
                Config_Entry_Name(a : Byte) : String
            <POP 21100-21102 StackAdj>                       Δ+2                {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-4-]}
            <Call 0x21102 0x102d0>                                              {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21108-2110a StackAdj>                       Δ+4                {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]}
            <MI 2110a  MOVE.L  A4,(A7)>                                         {[-8-]|[«26""»]|[-8-]|[4, 'A4']}
            <Call 0x2110c 0x20590>                                              {[-8-]|[«26""»]|[-8-]|[4, 'A4']}
            <POP 21110-21112 StackAdj>                       Δ+8                {[-8-]|[«26""»]|[-4-]}
            <MI 21112  MOVEA.L (A7)+,A4>                     Δ+4                {[-8-]|[«26""»]}
            <POP 21114-21118 StackAdj>                       Δ+26               {[-8-]}
        <POP 21118-21132 Naked>                              Σ-8        ↓ →0x21004 ←0x21096
            <MI 21118  MOVE.L  A4,-(A7)>                     Δ-4                {[-8-]|[4, 'A4']}
            <MI 2111a  PEA.L   (A0+D0.W+#0x5d)>              Δ-4                {[-8-]|[4, 'A4']|[4, '^(A0+D0.W+#0x5d)']}
            <Pointer.fp 0x2111e <LVAR -0x002 @ 1(r)>>        Δ-4                {[-8-]|[4, 'A4']|[4, '^(A0+D0.W+#0x5d)']|[@@-2]}
            <Call 0x21122 0x1058c>                                              {[-8-]|[4, 'A4']|[4, '^(A0+D0.W+#0x5d)']|[@@-2]}
                FSCALL_1058c
            <POP 21128-2112a StackAdj>                       Δ+12               {[-8-]}
            <MI 2112a  TST.B   (A6-0x2)>                                        {[-8-]}
            <MI 2112e  BEQ     0x21004>                                         {[-8-]}
        <POP 21132-2113a Naked>                              Σ-8 Δ+6    ↓ →0x20f6c ←0x20ffc
            <POP 21132-21134 StackAdj>                       Δ+6                {[-2-]}
            <MI 21134  ADDQ.B  #0x1,D7>                                         {[-2-]}
            <MI 21136  BVC     0x20f6c>                                         {[-2-]}
        <POP 2113a-2113c Naked>                              Σ-2 Δ+2    ↓ ←0x20f6c
            <POP 2113a-2113c StackAdj>                       Δ+2                {}
        <POP 2113c-21144 Epilogue>                           Σ0         

0x21144


@ 21144
    <POP 21144-2116a Body>                                              
        <POP 21144-21156 Prologue>                           Σ0         ↓
        <POP 21156-21166 Naked>                              Σ0         ↓
            <Call 0x21156 0x20b50>                                              {}
            <Call 0x2115a 0x20c74>                                              {}
            <Call 0x2115e 0x20dda>                                              {}
            <Call 0x21162 0x20f2a>                                              {}
        <POP 21166-2116a Epilogue>                           Σ0         

0x2116a


@ 2116a
        <LVAR  0x008 4(r)>
    <POP 2116a-211c6 Body>                                              
        <POP 2116a-21180 Prologue>                           Σ0         ↓
        <POP 21180-211be Naked>                              Σ0         ↓
            <MI 21180  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Const 0x21184 0x2149c.4>                        Δ-4                {[4, '(A6+0x8)']|[##136348]}
            <Call 0x2118a 0x10574>                                              {[4, '(A6+0x8)']|[##136348]}
                Write_ConfigFile(name: String; dst: Pointer)
            <POP 21190-21192 StackAdj>                       Δ+8                {}
            <Blob 0x21192 [20] @>                            Δ-20               {[«20""»]}
            <POP 2119e-211a0 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x211a0 20>                                                    {[«20""»]|[$$Configuration saved.]}
            <Call 0x211b4 0x103e0>                                              {[«20""»]|[$$Configuration saved.]}
                WriteConsoleStringCrLf(str : String)
            <POP 211ba-211be StackAdj>                       Δ+24               {}
        <POP 211be-211c6 Epilogue>                           Σ0         

0x211c6


@ 211c6
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(r)>
    <POP 211c6-21260 Body>                                              
        <POP 211c6-211dc Prologue>                           Σ0         ↓
        <POP 211dc-211e6 RegCacheLoad>                       Σ0         ↓
        <POP 211e6-2120a Naked>                              Σ0 Δ-30    ↓ →0x2122c
            <Pointer.fp 0x211e6 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x211e8 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-12]|[@@-8]}
            <Pointer.fp 0x211ea <LVAR -0x004 @ 1(r)>>        Δ-4                {[@@-12]|[@@-8]|[@@-4]}
            <Call 0x211ee 0x20640>                                              {[@@-12]|[@@-8]|[@@-4]}
            <POP 211f2-211f3 StackAdj>                       Δ+12       ↓       {}
            <Blob 0x211f3 [30] @>                            Δ-30               {[«30""»]}
            <MI 21204  TST.B   (A6-0x4)>                                        {[«30""»]}
            <MI 21208  BNE     0x2122c>                                         {[«30""»]}
        <POP 2120a-2122c Naked>                              Σ-30       ↓ →0x21254
            <POP 2120a-2120c StackAdj>                       Δ-6                {[-36-]}
            <Lit 0x2120c>                                                       {[-32-]|[$$…]}
                <Pointer.sp 0x2120c 6>                       Δ-4        
                <Const 0x21210 0x1.2>                        Δ-2        
                <Const 0x21212 0x1d.2>                       Δ-2        
                <Call 0x21216 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2121c-2121e StackAdj>                   Δ+8        
            <POP 2121c-2121e StackAdj>                       Δ-2                {[-32-]|[$$…]|[-2-]}
            <POP 2121e-2121f StackAdj>                       Δ+2                {[-32-]|[$$…]}
            <Const 0x2121f 0x1.2>                            Δ-2                {[-32-]|[$$…]|[#1]}
            <Call 0x21220 0x103f0>                                              {[-32-]|[$$…]|[#1]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 21226-21228 StackAdj>                       Δ+6                {[-32-]}
            <MI 21228  TST.B   (A7)+>                        Δ+2                {[-30-]}
            <MI 2122a  BEQ     0x21254>                                         {[-30-]}
        <POP 2122c-21254 Naked>                              Σ-30       ↓ ←0x211e6
            <MI 2122c  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-30-]|[4, '(A6-0xc)']}
            <Call 0x2122e 0x208f0>                                              {[-30-]|[4, '(A6-0xc)']}
            <POP 21232-21234 StackAdj>                       Δ+4                {[-30-]}
            <Call 0x21234 0x21144>                                              {[-30-]}
            <MI 21238  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-30-]|[4, '(A6-0x8)']}
            <Call 0x2123a 0x2116a>                                              {[-30-]|[4, '(A6-0x8)']}
            <POP 2123e-21240 StackAdj>                       Δ+4                {[-30-]}
            <Pointer.fp 0x21240 <LVAR -0x00c @ 4(r)>>        Δ-4                {[-30-]|[@@-12]}
            <Call 0x21242 0x102bc>                                              {[-30-]|[@@-12]}
                FreeString(VAR a : String)
            <POP 21248-2124a StackAdj>                       Δ+4                {[-30-]}
            <Pointer.fp 0x2124a <LVAR -0x008 @ 4(r)>>        Δ-4                {[-30-]|[@@-8]}
            <Call 0x2124c 0x102bc>                                              {[-30-]|[@@-8]}
                FreeString(VAR a : String)
            <POP 21252-21254 StackAdj>                       Δ+4                {[-30-]}
        <POP 21254-21258 Naked>                              Σ-30 Δ+30  ↓ ←0x2120a
            <POP 21254-21258 StackAdj>                       Δ+30               {}
        <POP 21258-21260 Epilogue>                           Σ0         

0x21260


@ 21260
START
    <POP 21260--0001 Body>                                              
        <POP 21260-2126a Prologue>                           Σ0         
        <POP 2126a-21286 Naked>                              Σ0         ↓
            <Call 0x2126a 0x10398>                                              {}
                FSCALL_10398
            <Call 0x21270 0x2093a>                                              {}
            <Call 0x21274 0x211c6>                                              {}
            <MI 21278  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x2127a 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x2127e 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 21284-21286 StackAdj>                       Δ+6                {}
        <POP 21286-2128c Naked>                              Σ0         
            <Call 0x21286 0x10284>                                              {}
                ?exit

0x2129a


@ 2129a
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 2129a-21302 Body>                                              
        <POP 2129a-212b0 Prologue>                           Σ0         ↓
        <POP 212b0-212fa Naked>                              Σ0         ↓
            <Blob 0x212b0 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x212bc 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 212c0-212c2 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x212c2 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 212d4-212d6 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 212d6  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 212da  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 212dc  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 212de  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x212e0 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 212e6-212e8 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x212e8 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 212ee-212f0 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x212f0 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 212f6-212fa StackAdj>                       Δ+20               {}
        <POP 212fa-21302 Epilogue>                           Σ0         

0x21356


@ 21356
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 21356-21492 Body>                                              
        <POP 21356-2136c Prologue>                           Σ0         ↓
        <POP 2136c-21382 RegCacheLoad>                       Σ0         ↓
        <POP 21382-213e2 Naked>                              Σ0         ↓ →0x2142a
            <Call 0x21382 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x21388 [18] @>                            Δ-18               {[«18""»]}
            <POP 21394-21396 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x21396 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x213a2 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 213a4-213a5 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x213a5 [14] @>                            Δ-14               {[«14""»]}
            <POP 213b4-213b6 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x213b6 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 213c0-213c2 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 213c2  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x213c6 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 213cc-213ce StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x213ce 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 213d4-213d6 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x213d6 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 213d8-213da StackAdj>                       Δ+18               {}
            <MI 213da  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 213de  CMPA.W  #0x01,A0>                                        {}
            <MI 213e0  BEQ     0x2142a>                                         {}
        <POP 213e2-2142a Naked>                              Σ0         ↓
            <Blob 0x213e2 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x213f2 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 21402-21404 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x21404 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 2140e-21410 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x21410>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x21410 12>                      Δ-4        
                <Const 0x21414 0x1.2>                        Δ-2        
                <Const 0x21416 0x1e.2>                       Δ-2        
                <Call 0x21418 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2141a-2141c StackAdj>                   Δ+8        
            <Call 0x2141c 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 21422-21424 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x21424 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21426-2142a StackAdj>                       Δ+48               {}
        <POP 2142a-2148a Naked>                              Σ0         ↓ ←0x21382
            <Blob 0x2142a [14] @>                            Δ-14               {[«14""»]}
            <POP 2143a-2143c StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x2143c 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 21446-21448 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 21448  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x2144c 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 21452-21454 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x21454 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2145a-2145c StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x2145c 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2145e-2145f StackAdj>                       Δ+18       ↓       {}
            <Blob 0x2145f [24] @>                            Δ-24               {[«24""»]}
            <Const 0x2146e 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 21472-21474 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x21474 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x21482 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 21488-2148a StackAdj>                       Δ+30               {}
        <POP 2148a-21492 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.f1fedfe934174466
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 12 60              |   `    |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 16 3e              |   >    |		.PTR	0x2163e
00020010					code.end:
00020010 00 02 14 92              |        |		.PTR	0x21492
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 12 9a              |        |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 13 56              |   V    |		.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 45 6e 74 65 72 20 6e 61  |Enter na|		.TXT	'Enter name of configuration to edit '
00020160 45 6e 74 65 72 20 6e 61  |Enter na|		.TXT	'Enter name of configuration to save '
00020184 53 54 41 4e              |STAN    |		.TXT	'STAN'
00020188 44 41 52 44              |DARD    |		.TXT	'DARD'
0002018c 53 54 41 4e 44 41 52 44  |STANDARD|		.TXT	'STANDARD.CONFIG '
0002019c 43 55 52 52              |CURR    |		.XXX[0x4]
000201a0 45 4e 54 20 20 20 20 20  |ENT     |		.XXX[0x8]
000201a8 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x30]
000201d8 43 68 61 6e 67 65 20 68  |Change h|		.TXT	'Change hardware configuration '
000201f6 44 6f 65 73 20 74 68 69  |Does thi|		.TXT	'Does this processor have 32 MB memory boards'
00020222 49 73 20 74 68 69        |Is thi  |		.XXX[0x6]
00020228 73 20 61 20 6d 75 6c 74  |s a mult|		.XXX[0x10]
00020230 69 2d 70 72 6f 63 65 73  |i-proces|
00020238 73 6f 72 20              |sor     |		.XXX[0x4]
0002023c 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.'
00020278 20 20 20 20 20 20 38 20  |      8 |		.TXT	'      8 MB boards cannot be in the same CPU as 32 MB boards.'
000202b4 44 6f 65 73 20 6d 65 6d  |Does mem|		.TXT	'Does memory board 0 exist '
000202ce 44 6f 65 73 20 6d 65 6d  |Does mem|		.TXT	'Does memory board 2 exist '
000202e8 44 6f 65 73 20 6d 65 6d  |Does mem|		.TXT	'Does memory board_'
000202fa 20 65                    | e      |		.TXT	' e'
000202fc 78 69                    |xi      |		.TXT	'xi'
000202fe 73 74                    |st      |		.TXT	'st'
00020300 41 6c 6c 6f 77 20 6f 70  |Allow op|		.TXT	'Allow operator to enter CLI immediately '
00020328 41 6c 6c 6f 77 20 65 64  |Allow ed|		.TXT	'Allow editing of configuration'
00020346 41 6c 6c 6f 77 20 6f 70  |Allow op|		.TXT	'Allow operator to enter CLI prior to starting the cluster '
00020380 4c 6f 61 64 20 6b 65 72  |Load ker|		.TXT	'Load kernel layer subsystems only '
000203a2 41 75 74 6f 20 62 6f 6f  |Auto boo|		.TXT	'Auto boot the kernel debugger '
000203c0 57 61 69 74 20 66 6f 72  |Wait for|		.TXT	'Wait for remote debugging on kernel crashes '
000203ec 43 61 6c 6c 20 52 61 74  |Call Rat|		.TXT	'Call Rational on kernel crash '
0002040a 41 75 74 6f 20 62 6f 6f  |Auto boo|		.TXT	'Auto boot the environment elaborator'
0002042e 41 75 74 6f 20 62 6f 6f  |Auto boo|		.TXT	'Auto boot the kernel'
00020442 54 61 6b 65 20 6d 69 63  |Take mic|		.TXT	'Take microcode from standard configuration'
0002046c 53 68 6f 75 6c 64 20 74  |Should t|		.TXT	'Should this configuration query for microcode when booting'
000204a6 45 6e 74 65 72 20 64 65  |Enter de|		.TXT	'Enter default microcode name'
000204c2 45 6e 74 65 72 20 6d 69  |Enter mi|		.TXT	'Enter microcode name'
000204d6 20 66 72 6f 6d 20 73 74  | from st|		.TXT	' from standard configuration'
000204f2 53 68 6f 75 6c 64 20 74  |Should t|		.TXT	'Should this configuration query for_'
00020516 45 6e 74 65 72 20 64 65  |Enter de|		.TXT	'Enter default subsystem name for_ '
00020538 45 6e 74 65 72 20 73 75  |Enter su|		.TXT	'Enter subsystem name for_ '
00020552 54 61 6b 65 5f 20        |Take_   |		.TXT	'Take_ '
00020558 43 6f 6e 66 69 67 75 72  |Configur|		.TXT	'Configuration saved.'
0002056c 43 68 61 6e 67 65 20 73  |Change s|		.TXT	'Change software configuration '
0002058a 01 01 01 01 01 01        |        |		.XXX[0x6]
00020590 ; --------------------------------------------------------------------------------------
00020590 ; OMSI PASCAL Function
00020590 ;    <LVAR  0x010 4(w)>
00020590 ;    <LVAR  0x00c 4(rw)>
00020590 ;    <LVAR  0x008 @ 4(r)>
00020590 ;    <LVAR -0x004 @ 4(rw)>
00020590 ; --------------------------------------------------------------------------------------
00020590 4e 56 ff c2              |NV      |		LINK.W	A6,#0xffc2
00020594 bf d5                    |        |		CMPA.L	(A5),A7
00020596 62 06                    |b       |		BHI	0x2059e
00020598 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002059c 4e 76                    |Nv      |		TRAPV
0002059e de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
000205a2 48 e7 80 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D0,-(A7)
000205a6 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
000205aa 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
000205ae 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
000205b2 70 01                    |p       |		MOVEQ.L	#0x01,D0
000205b4 20 51                    | Q      |		MOVEA.L	(A1),A0
000205b6 b0 c0                    |        |		CMPA.W	D0,A0
000205b8 66 0a                    |f       |		BNE	0x205c4
000205ba 48 51                    |HQ      |		PEA.L	(A1)
000205bc 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000205c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205c4 3f 3a fb 70              |?: p    |		MOVE.W	0x20136,-(A7)
000205c8 2f 3a fb 6e              |/: n    |		MOVE.L	0x20138,-(A7)
000205cc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000205ce 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000205d0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000205d2 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
000205d6 3f 00                    |?       |		MOVE.W	D0,-(A7)
000205d8 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
000205dc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000205e2 2e 91                    |.       |		MOVE.L	(A1),(A7)
000205e4 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000205ea 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
000205ee 3f 00                    |?       |		MOVE.W	D0,-(A7)
000205f0 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
000205f4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000205fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000205fc 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00020602 de fc 00 10              |        |		ADDA.W	#0x10,A7
00020606 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00020608 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002060a 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002060c 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00020612 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020614 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00020616 20 52                    | R      |		MOVEA.L	(A2),A0
00020618 4a 50                    |JP      |		TST.W	(A0)
0002061a 67 0c                    |g       |		BEQ	0x20628
0002061c 48 51                    |HQ      |		PEA.L	(A1)
0002061e 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020624 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020626 60 0c                    |`       |		BRA	0x20634
00020628 48 52                    |HR      |		PEA.L	(A2)
0002062a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020630 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020632 24 91                    |$       |		MOVE.L	(A1),(A2)
00020634 2d 52 00 10              |-R      |		MOVE.L	(A2),(A6+0x10)
00020638 4c df 0f 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2+A3
0002063c 4e 5e                    |N^      |		UNLK	A6
0002063e 4e 75                    |Nu      |		RTS
00020640 ; --------------------------------------------------------------------------------------
00020640 ; OMSI PASCAL Function
00020640 ;    <LVAR  0x010 4(r)>
00020640 ;    <LVAR  0x00c 4(r)>
00020640 ;    <LVAR  0x008 4(r)>
00020640 ;    <LVAR -0x008 @ 4(rw)>
00020640 ; --------------------------------------------------------------------------------------
00020640 4e 56 ff 68              |NV h    |		LINK.W	A6,#0xff68
00020644 bf d5                    |        |		CMPA.L	(A5),A7
00020646 62 06                    |b       |		BHI	0x2064e
00020648 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002064c 4e 76                    |Nv      |		TRAPV
0002064e de fc 00 90              |        |		ADDA.W	#0x90,A7
00020652 48 e7 f9 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00020656 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020658 74 24                    |t$      |		MOVEQ.L	#0x24,D2
0002065a 76 23                    |v#      |		MOVEQ.L	#0x23,D3
0002065c 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
0002065e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020660 4e b9 00 01 03 c4        |N       |		JSR	GetArgv() : String
00020666 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
0002066a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002066c 20 6e ff f8              | n      |		MOVEA.L	(A6-0x8),A0
00020670 4a 50                    |JP      |		TST.W	(A0)
00020672 67 02                    |g       |		BEQ	0x20676
00020674 52 07                    |R       |		ADDQ.B	#0x1,D7
00020676 4a 07                    |J       |		TST.B	D7
00020678 66 2c                    |f,      |		BNE	0x206a6
0002067a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002067e 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020684 2e ba fb 02              |.       |		MOVE.L	0x20188,(A7)
00020688 2f 3a fa fa              |/:      |		MOVE.L	0x20184,-(A7)
0002068c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002068e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020692 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020694 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00020698 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002069e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000206a0 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
000206a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000206a6 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000206aa 9e c2                    |        |		SUBA.W	D2,A7
000206ac 22 4f                    |"O      |		MOVEA.L	A7,A1
000206ae 45 fa fa 8c              |E       |		LEA.L	0x2013c,A2
000206b2 70 22                    |p"      |		MOVEQ.L	#0x22,D0
000206b4 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000206b6 51 c8 ff fc              |Q       |		DBF	D0,0x206b4
000206ba 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000206bc 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000206c0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000206c2 3f 03                    |?       |		MOVE.W	D3,-(A7)
000206c4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000206ca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206cc 2e ae ff f8              |.       |		MOVE.L	(A6-0x8),(A7)
000206d0 4e ba fe be              |N       |		JSR	0x20590
000206d4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000206d6 22 5f                    |"_      |		MOVEA.L	(A7)+,A1
000206d8 20 89                    |        |		MOVE.L	A1,(A0)
000206da 4a 07                    |J       |		TST.B	D7
000206dc 67 14                    |g       |		BEQ	0x206f2
000206de 24 6e 00 0c              |$n      |		MOVEA.L	(A6+0xc),A2
000206e2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000206e4 2f 09                    |/       |		MOVE.L	A1,-(A7)
000206e6 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000206ec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206ee 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000206f0 60 38                    |`8      |		BRA	0x2072a
000206f2 24 6e 00 0c              |$n      |		MOVEA.L	(A6+0xc),A2
000206f6 9e c2                    |        |		SUBA.W	D2,A7
000206f8 26 4f                    |&O      |		MOVEA.L	A7,A3
000206fa 49 fa fa 64              |I  d    |		LEA.L	0x20160,A4
000206fe 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00020700 16 dc                    |        |		MOVE.B	(A4)+,(A3)+
00020702 51 c8 ff fc              |Q       |		DBF	D0,0x20700
00020706 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020708 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002070c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002070e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020710 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020716 2e 89                    |.       |		MOVE.L	A1,(A7)
00020718 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
0002071e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020720 4e ba fe 6e              |N  n    |		JSR	0x20590
00020724 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020726 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00020728 de c2                    |        |		ADDA.W	D2,A7
0002072a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002072c 2f 09                    |/       |		MOVE.L	A1,-(A7)
0002072e 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
00020734 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020736 20 9f                    |        |		MOVE.L	(A7)+,(A0)
00020738 de fc 00 20              |        |		ADDA.W	#0x20,A7
0002073c 2e ba f9 f4              |.       |		MOVE.L	0x20132,(A7)
00020740 2f 3a f9 ec              |/:      |		MOVE.L	0x2012e,-(A7)
00020744 2f 3a f9 e4              |/:      |		MOVE.L	0x2012a,-(A7)
00020748 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002074a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002074e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020750 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020752 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020758 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002075a 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
0002075e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020760 2e 90                    |.       |		MOVE.L	(A0),(A7)
00020762 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
00020766 4e b9 00 01 03 00        |N       |		JSR	FSCALL_10300
0002076c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002076e 4a 9f                    |J       |		TST.L	(A7)+
00020770 66 14                    |f       |		BNE	0x20786
00020772 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020774 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00020776 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
0002077a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020780 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020782 20 9f                    |        |		MOVE.L	(A7)+,(A0)
00020784 60 0c                    |`       |		BRA	0x20792
00020786 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002078a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020790 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020792 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00020796 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020798 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002079a 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
000207a0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207a2 20 9f                    |        |		MOVE.L	(A7)+,(A0)
000207a4 2f 3a f9 8c              |/:      |		MOVE.L	0x20132,-(A7)
000207a8 2f 3a f9 84              |/:      |		MOVE.L	0x2012e,-(A7)
000207ac 2f 3a f9 7c              |/: |    |		MOVE.L	0x2012a,-(A7)
000207b0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000207b2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000207b6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000207b8 3f 04                    |?       |		MOVE.W	D4,-(A7)
000207ba 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000207c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207c2 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
000207c6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207c8 2e 90                    |.       |		MOVE.L	(A0),(A7)
000207ca 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
000207ce 4e b9 00 01 03 00        |N       |		JSR	FSCALL_10300
000207d4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207d6 4a 9f                    |J       |		TST.L	(A7)+
000207d8 66 14                    |f       |		BNE	0x207ee
000207da 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000207dc 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000207de 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
000207e2 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000207e8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207ea 20 9f                    |        |		MOVE.L	(A7)+,(A0)
000207ec 60 0c                    |`       |		BRA	0x207fa
000207ee 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000207f2 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000207f8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207fa 9e fc 00 10              |        |		SUBA.W	#0x10,A7
000207fe 22 4f                    |"O      |		MOVEA.L	A7,A1
00020800 45 fa f9 8a              |E       |		LEA.L	0x2018c,A2
00020804 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00020806 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020808 51 c8 ff fc              |Q       |		DBF	D0,0x20806
0002080c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002080e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020812 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020814 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00020818 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002081e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020820 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
00020824 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020828 2e 90                    |.       |		MOVE.L	(A0),(A7)
0002082a 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
0002082e 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00020834 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020836 10 1f                    |        |		MOVE.B	(A7)+,D0
00020838 48 80                    |H       |		EXTB.W	D0
0002083a 41 81                    |A       |		CHK.W	D1,D0
0002083c 13 c0 00 02 14 9a        |        |		MOVE.B	D0,0x2149a
00020842 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00020846 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002084c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002084e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020852 10 87                    |        |		MOVE.B	D7,(A0)
00020854 4c df 1f 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4
00020858 4e 5e                    |N^      |		UNLK	A6
0002085a 4e 75                    |Nu      |		RTS
0002085c ; --------------------------------------------------------------------------------------
0002085c ; OMSI PASCAL Function
0002085c ;    <LVAR  0x008 4(r)>
0002085c ; --------------------------------------------------------------------------------------
0002085c 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
00020860 bf d5                    |        |		CMPA.L	(A5),A7
00020862 62 06                    |b       |		BHI	0x2086a
00020864 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020868 4e 76                    |Nv      |		TRAPV
0002086a de fc 00 22              |   "    |		ADDA.W	#0x22,A7
0002086e 48 e7 c1 c0              |H       |		MOVEM.L	A1+A0+D7+D1+D0,-(A7)
00020872 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020874 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020878 42 28 00 05              |B(      |		CLR.B	(A0+0x5)
0002087c 42 28 00 04              |B(      |		CLR.B	(A0+0x4)
00020880 42 28 00 03              |B(      |		CLR.B	(A0+0x3)
00020884 42 28 00 02              |B(      |		CLR.B	(A0+0x2)
00020888 11 41 00 2a              | A *    |		MOVE.B	D1,(A0+0x2a)
0002088c 42 28 00 2b              |B( +    |		CLR.B	(A0+0x2b)
00020890 42 28 00 2c              |B( ,    |		CLR.B	(A0+0x2c)
00020894 42 28 00 2d              |B( -    |		CLR.B	(A0+0x2d)
00020898 42 28 00 2e              |B( .    |		CLR.B	(A0+0x2e)
0002089c 11 41 00 2f              | A /    |		MOVE.B	D1,(A0+0x2f)
000208a0 11 41 00 30              | A 0    |		MOVE.B	D1,(A0+0x30)
000208a4 11 41 00 31              | A 1    |		MOVE.B	D1,(A0+0x31)
000208a8 42 28 00 32              |B( 2    |		CLR.B	(A0+0x32)
000208ac 41 e8 00 33              |A  3    |		LEA.L	(A0+0x33),A0
000208b0 43 fa f8 ea              |C       |		LEA.L	0x2019c,A1
000208b4 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000208b6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000208b8 51 c8 ff fc              |Q       |		DBF	D0,0x208b6
000208bc 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000208be 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000208c2 10 07                    |        |		MOVE.B	D7,D0
000208c4 48 80                    |H       |		EXTB.W	D0
000208c6 eb 40                    | @      |		ASL.W	#0x5,D0
000208c8 11 81 00 51              |   Q    |		MOVE.B	D1,(A0+D0.W+#0x51)
000208cc 42 30 00 52              |B0 R    |		CLR.B	(A0+D0.W+#0x52)
000208d0 41 f0 00 53              |A  S    |		LEA.L	(A0+D0.W+#0x53),A0
000208d4 43 fa f8 e4              |C       |		LEA.L	0x201ba,A1
000208d8 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000208da 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000208dc 51 c8 ff fc              |Q       |		DBF	D0,0x208da
000208e0 52 07                    |R       |		ADDQ.B	#0x1,D7
000208e2 0c 07 00 09              |        |		CMPI.B	#0x09,D7
000208e6 6f d6                    |o       |		BLE	0x208be
000208e8 4c df 03 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1
000208ec 4e 5e                    |N^      |		UNLK	A6
000208ee 4e 75                    |Nu      |		RTS
000208f0 ; --------------------------------------------------------------------------------------
000208f0 ; OMSI PASCAL Function
000208f0 ;    <LVAR  0x008 4(r)>
000208f0 ;    <LVAR -0x002 @ 1(r)>
000208f0 ; --------------------------------------------------------------------------------------
000208f0 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
000208f4 bf d5                    |        |		CMPA.L	(A5),A7
000208f6 62 06                    |b       |		BHI	0x208fe
000208f8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000208fc 4e 76                    |Nv      |		TRAPV
000208fe de fc 00 18              |        |		ADDA.W	#0x18,A7
00020902 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00020906 41 f9 00 02 14 9c        |A       |		LEA.L	0x2149c,A0
0002090c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020910 48 78 00 03              |Hx      |		PEA.L	0x3
00020914 48 50                    |HP      |		PEA.L	(A0)
00020916 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
0002091a 4e b9 00 01 05 6e        |N    n  |		JSR	Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
00020920 de fc 00 10              |        |		ADDA.W	#0x10,A7
00020924 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
00020928 66 08                    |f       |		BNE	0x20932
0002092a 48 50                    |HP      |		PEA.L	(A0)
0002092c 4e ba ff 2e              |N  .    |		JSR	0x2085c
00020930 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020932 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00020936 4e 5e                    |N^      |		UNLK	A6
00020938 4e 75                    |Nu      |		RTS
0002093a ; --------------------------------------------------------------------------------------
0002093a ; OMSI PASCAL Function
0002093a ;    <LVAR -0x002 @ 1(r)>
0002093a ;    <LVAR -0x003 1(r)>
0002093a ;    <LVAR -0x004 1(rw) 2(w)>
0002093a ;    <LVAR -0x005 1(r)>
0002093a ;    <LVAR -0x006 1(rw) 2(w)>
0002093a ;    <LVAR -0x007 1(rw)>
0002093a ;    <LVAR -0x008 @ 1(r) 2(w)>
0002093a ; --------------------------------------------------------------------------------------
0002093a 4e 56 ff 26              |NV &    |		LINK.W	A6,#0xff26
0002093e bf d5                    |        |		CMPA.L	(A5),A7
00020940 62 06                    |b       |		BHI	0x20948
00020942 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020946 4e 76                    |Nv      |		TRAPV
00020948 de fc 00 ca              |        |		ADDA.W	#0xca,A7
0002094c 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020950 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020956 47 f9 00 01 03 f0        |G       |		LEA.L	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool,A3
0002095c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002095e 74 2c                    |t,      |		MOVEQ.L	#0x2c,D2
00020960 76 3c                    |v<      |		MOVEQ.L	#0x3c,D3
00020962 78 19                    |x       |		MOVEQ.L	#0x19,D4
00020964 7a 14                    |z       |		MOVEQ.L	#0x14,D5
00020966 7c 03                    ||       |		MOVEQ.L	#0x03,D6
00020968 3d 7a fc 20 ff f8        |=z      |		MOVE.W	0x2058a,(A6-0x8)
0002096e 3d 7a fc 1c ff fa        |=z      |		MOVE.W	0x2058c,(A6-0x6)
00020974 3d 7a fc 18 ff fc        |=z      |		MOVE.W	0x2058e,(A6-0x4)
0002097a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002097e 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00020982 4e b9 00 01 05 7a        |N    z  |		JSR	Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
00020988 9e fc 00 16              |        |		SUBA.W	#0x16,A7
0002098c 20 4f                    | O      |		MOVEA.L	A7,A0
0002098e 43 fa f8 48              |C  H    |		LEA.L	0x201d8,A1
00020992 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00020994 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020996 51 c8 ff fc              |Q       |		DBF	D0,0x20994
0002099a 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
0002099e 67 1c                    |g       |		BEQ	0x209bc
000209a0 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000209a2 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000209a6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000209a8 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
000209ac 4e 92                    |N       |		JSR	(A2)
000209ae 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000209b0 42 17                    |B       |		CLR.B	(A7)
000209b2 4e 93                    |N       |		JSR	(A3)
000209b4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000209b6 4a 1f                    |J       |		TST.B	(A7)+
000209b8 67 00 01 8a              |g       |		BEQ	0x20b44
000209bc 42 2e ff f8              |B.      |		CLR.B	(A6-0x8)
000209c0 41 fa f8 60              |A  `    |		LEA.L	0x20222,A0
000209c4 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000209c6 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000209c8 51 c8 ff fc              |Q       |		DBF	D0,0x209c6
000209cc 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000209ce 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000209d2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000209d4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000209d6 4e 92                    |N       |		JSR	(A2)
000209d8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000209da 42 17                    |B       |		CLR.B	(A7)
000209dc 4a 2e ff f9              |J.      |		TST.B	(A6-0x7)
000209e0 66 02                    |f       |		BNE	0x209e4
000209e2 52 17                    |R       |		ADDQ.B	#0x1,(A7)
000209e4 4e 93                    |N       |		JSR	(A3)
000209e6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000209e8 4a 1f                    |J       |		TST.B	(A7)+
000209ea 67 00 00 d0              |g       |		BEQ	0x20abc
000209ee 42 2e ff f9              |B.      |		CLR.B	(A6-0x7)
000209f2 42 2e ff fb              |B.      |		CLR.B	(A6-0x5)
000209f6 42 2e ff fd              |B.      |		CLR.B	(A6-0x3)
000209fa 41 fa f8 7c              |A  |    |		LEA.L	0x20278,A0
000209fe 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00020a00 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020a02 51 c8 ff fc              |Q       |		DBF	D0,0x20a00
00020a06 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a08 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a0c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a0e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020a10 4e 92                    |N       |		JSR	(A2)
00020a12 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a14 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020a1a de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00020a1e 41 fa f8 94              |A       |		LEA.L	0x202b4,A0
00020a22 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00020a24 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020a26 51 c8 ff fc              |Q       |		DBF	D0,0x20a24
00020a2a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a2c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a30 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a32 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020a34 4e 92                    |N       |		JSR	(A2)
00020a36 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a38 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020a3e de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00020a42 20 4f                    | O      |		MOVEA.L	A7,A0
00020a44 43 fa f8 6e              |C  n    |		LEA.L	0x202b4,A1
00020a48 70 18                    |p       |		MOVEQ.L	#0x18,D0
00020a4a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020a4c 51 c8 ff fc              |Q       |		DBF	D0,0x20a4a
00020a50 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a52 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a56 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a58 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020a5a 4e 92                    |N       |		JSR	(A2)
00020a5c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a5e 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020a60 de c5                    |        |		ADDA.W	D5,A7
00020a62 2e 8c                    |.       |		MOVE.L	A4,(A7)
00020a64 10 2e ff fa              | .      |		MOVE.B	(A6-0x6),D0
00020a68 48 80                    |H       |		EXTB.W	D0
00020a6a 41 81                    |A       |		CHK.W	D1,D0
00020a6c 1f 00                    |        |		MOVE.B	D0,-(A7)
00020a6e 4e 93                    |N       |		JSR	(A3)
00020a70 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020a72 10 1f                    |        |		MOVE.B	(A7)+,D0
00020a74 48 80                    |H       |		EXTB.W	D0
00020a76 41 81                    |A       |		CHK.W	D1,D0
00020a78 1d 40 ff fa              | @      |		MOVE.B	D0,(A6-0x6)
00020a7c 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
00020a80 20 4f                    | O      |		MOVEA.L	A7,A0
00020a82 43 fa f8 4a              |C  J    |		LEA.L	0x202ce,A1
00020a86 70 18                    |p       |		MOVEQ.L	#0x18,D0
00020a88 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020a8a 51 c8 ff fc              |Q       |		DBF	D0,0x20a88
00020a8e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a90 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a94 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a96 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020a98 4e 92                    |N       |		JSR	(A2)
00020a9a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a9c 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020a9e de c5                    |        |		ADDA.W	D5,A7
00020aa0 2e 8c                    |.       |		MOVE.L	A4,(A7)
00020aa2 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00020aa6 48 80                    |H       |		EXTB.W	D0
00020aa8 41 81                    |A       |		CHK.W	D1,D0
00020aaa 1f 00                    |        |		MOVE.B	D0,-(A7)
00020aac 4e 93                    |N       |		JSR	(A3)
00020aae 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020ab0 10 1f                    |        |		MOVE.B	(A7)+,D0
00020ab2 48 80                    |H       |		EXTB.W	D0
00020ab4 41 81                    |A       |		CHK.W	D1,D0
00020ab6 1d 40 ff fc              | @      |		MOVE.B	D0,(A6-0x4)
00020aba 60 7a                    |`z      |		BRA	0x20b36
00020abc 1d 41 ff f9              | A      |		MOVE.B	D1,(A6-0x7)
00020ac0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020ac2 41 fa f8 36              |A  6    |		LEA.L	0x202fa,A0
00020ac6 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020ac8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020aca 51 c8 ff fc              |Q       |		DBF	D0,0x20ac8
00020ace 3f 3a f8 2e              |?: .    |		MOVE.W	0x202fe,-(A7)
00020ad2 3f 3a f8 28              |?: (    |		MOVE.W	0x202fc,-(A7)
00020ad6 3f 3a f8 22              |?: "    |		MOVE.W	0x202fa,-(A7)
00020ada 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020adc 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00020ae0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020ae2 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00020ae6 4e 92                    |N       |		JSR	(A2)
00020ae8 2e 87                    |.       |		MOVE.L	D7,(A7)
00020aea 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020af0 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00020af4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020af6 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00020afa 4e 92                    |N       |		JSR	(A2)
00020afc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020afe 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00020b04 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020b08 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020b0a de fc 00 18              |        |		ADDA.W	#0x18,A7
00020b0e be 86                    |        |		CMP.L	D6,D7
00020b10 63 02                    |c       |		BLS	0x20b14
00020b12 4e 4f                    |NO      |		TRAP	#15
00020b14 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020b16 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00020b18 10 36 78 fa              | 6x     |		MOVE.B	(A6+D7.L-#0x6),D0
00020b1c 48 80                    |H       |		EXTB.W	D0
00020b1e 41 81                    |A       |		CHK.W	D1,D0
00020b20 1f 00                    |        |		MOVE.B	D0,-(A7)
00020b22 4e 93                    |N       |		JSR	(A3)
00020b24 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020b26 10 1f                    |        |		MOVE.B	(A7)+,D0
00020b28 48 80                    |H       |		EXTB.W	D0
00020b2a 41 81                    |A       |		CHK.W	D1,D0
00020b2c 1d 80 78 fa              |  x     |		MOVE.B	D0,(A6+D7.L-#0x6)
00020b30 52 87                    |R       |		ADDQ.L	#0x1,D7
00020b32 be 86                    |        |		CMP.L	D6,D7
00020b34 6f 8c                    |o       |		BLE	0x20ac2
00020b36 de c2                    |        |		ADDA.W	D2,A7
00020b38 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00020b3c 4e b9 00 01 05 80        |N       |		JSR	Write_HARDWARE.M200_CONFIG(a : Pointer)
00020b42 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b44 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00020b48 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020b4c 4e 5e                    |N^      |		UNLK	A6
00020b4e 4e 75                    |Nu      |		RTS
00020b50 ; --------------------------------------------------------------------------------------
00020b50 ; OMSI PASCAL Function
00020b50 ; --------------------------------------------------------------------------------------
00020b50 4e 56 ff 88              |NV      |		LINK.W	A6,#0xff88
00020b54 bf d5                    |        |		CMPA.L	(A5),A7
00020b56 62 06                    |b       |		BHI	0x20b5e
00020b58 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020b5c 4e 76                    |Nv      |		TRAPV
00020b5e de fc 00 78              |   x    |		ADDA.W	#0x78,A7
00020b62 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00020b66 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020b6c 47 f9 00 01 03 f0        |G       |		LEA.L	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool,A3
00020b72 49 f9 00 02 14 9e        |I       |		LEA.L	0x2149e,A4
00020b78 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020b7a 74 28                    |t(      |		MOVEQ.L	#0x28,D2
00020b7c 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00020b7e 78 3a                    |x:      |		MOVEQ.L	#0x3a,D4
00020b80 7a 22                    |z"      |		MOVEQ.L	#0x22,D5
00020b82 9e c2                    |        |		SUBA.W	D2,A7
00020b84 20 4f                    | O      |		MOVEA.L	A7,A0
00020b86 43 fa f7 78              |C  x    |		LEA.L	0x20300,A1
00020b8a 70 26                    |p&      |		MOVEQ.L	#0x26,D0
00020b8c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020b8e 51 c8 ff fc              |Q       |		DBF	D0,0x20b8c
00020b92 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020b94 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020b98 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020b9a 3f 3c 00 27              |?< '    |		MOVE.W	#0x27,-(A7)
00020b9e 4e 92                    |N       |		JSR	(A2)
00020ba0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ba2 10 14                    |        |		MOVE.B	(A4),D0
00020ba4 48 80                    |H       |		EXTB.W	D0
00020ba6 41 81                    |A       |		CHK.W	D1,D0
00020ba8 1f 00                    |        |		MOVE.B	D0,-(A7)
00020baa 4e 93                    |N       |		JSR	(A3)
00020bac 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020bae 10 1f                    |        |		MOVE.B	(A7)+,D0
00020bb0 48 80                    |H       |		EXTB.W	D0
00020bb2 41 81                    |A       |		CHK.W	D1,D0
00020bb4 de c2                    |        |		ADDA.W	D2,A7
00020bb6 18 80                    |        |		MOVE.B	D0,(A4)
00020bb8 41 fa f7 8c              |A       |		LEA.L	0x20346,A0
00020bbc 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00020bbe 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020bc0 51 c8 ff fc              |Q       |		DBF	D0,0x20bbe
00020bc4 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020bc6 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020bca 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020bcc 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020bce 4e 92                    |N       |		JSR	(A2)
00020bd0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020bd2 10 39 00 02 14 9f        | 9      |		MOVE.B	0x2149f,D0
00020bd8 48 80                    |H       |		EXTB.W	D0
00020bda 41 81                    |A       |		CHK.W	D1,D0
00020bdc 1f 00                    |        |		MOVE.B	D0,-(A7)
00020bde 4e 93                    |N       |		JSR	(A3)
00020be0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020be2 10 1f                    |        |		MOVE.B	(A7)+,D0
00020be4 48 80                    |H       |		EXTB.W	D0
00020be6 41 81                    |A       |		CHK.W	D1,D0
00020be8 de c3                    |        |		ADDA.W	D3,A7
00020bea 13 c0 00 02 14 9f        |        |		MOVE.B	D0,0x2149f
00020bf0 9e c4                    |        |		SUBA.W	D4,A7
00020bf2 20 4f                    | O      |		MOVEA.L	A7,A0
00020bf4 43 fa f7 50              |C  P    |		LEA.L	0x20346,A1
00020bf8 70 38                    |p8      |		MOVEQ.L	#0x38,D0
00020bfa 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020bfc 51 c8 ff fc              |Q       |		DBF	D0,0x20bfa
00020c00 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020c02 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020c06 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020c08 3f 3c 00 39              |?< 9    |		MOVE.W	#0x39,-(A7)
00020c0c 4e 92                    |N       |		JSR	(A2)
00020c0e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c10 10 39 00 02 14 a0        | 9      |		MOVE.B	0x214a0,D0
00020c16 48 80                    |H       |		EXTB.W	D0
00020c18 41 81                    |A       |		CHK.W	D1,D0
00020c1a 1f 00                    |        |		MOVE.B	D0,-(A7)
00020c1c 4e 93                    |N       |		JSR	(A3)
00020c1e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020c20 10 1f                    |        |		MOVE.B	(A7)+,D0
00020c22 48 80                    |H       |		EXTB.W	D0
00020c24 41 81                    |A       |		CHK.W	D1,D0
00020c26 de c4                    |        |		ADDA.W	D4,A7
00020c28 13 c0 00 02 14 a0        |        |		MOVE.B	D0,0x214a0
00020c2e 9e c5                    |        |		SUBA.W	D5,A7
00020c30 20 4f                    | O      |		MOVEA.L	A7,A0
00020c32 43 fa f7 4c              |C  L    |		LEA.L	0x20380,A1
00020c36 70 20                    |p       |		MOVEQ.L	#0x20,D0
00020c38 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020c3a 51 c8 ff fc              |Q       |		DBF	D0,0x20c38
00020c3e 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020c40 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020c44 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020c46 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
00020c4a 4e 92                    |N       |		JSR	(A2)
00020c4c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c4e 10 39 00 02 14 a1        | 9      |		MOVE.B	0x214a1,D0
00020c54 48 80                    |H       |		EXTB.W	D0
00020c56 41 81                    |A       |		CHK.W	D1,D0
00020c58 1f 00                    |        |		MOVE.B	D0,-(A7)
00020c5a 4e 93                    |N       |		JSR	(A3)
00020c5c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020c5e 10 1f                    |        |		MOVE.B	(A7)+,D0
00020c60 48 80                    |H       |		EXTB.W	D0
00020c62 41 81                    |A       |		CHK.W	D1,D0
00020c64 de c5                    |        |		ADDA.W	D5,A7
00020c66 13 c0 00 02 14 a1        |        |		MOVE.B	D0,0x214a1
00020c6c 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00020c70 4e 5e                    |N^      |		UNLK	A6
00020c72 4e 75                    |Nu      |		RTS
00020c74 ; --------------------------------------------------------------------------------------
00020c74 ; OMSI PASCAL Function
00020c74 ; --------------------------------------------------------------------------------------
00020c74 4e 56 ff 92              |NV      |		LINK.W	A6,#0xff92
00020c78 bf d5                    |        |		CMPA.L	(A5),A7
00020c7a 62 06                    |b       |		BHI	0x20c82
00020c7c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020c80 4e 76                    |Nv      |		TRAPV
00020c82 de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
00020c86 48 e7 fe f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020c8a 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020c90 47 f9 00 01 03 f0        |G       |		LEA.L	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool,A3
00020c96 49 f9 00 02 14 c6        |I       |		LEA.L	0x214c6,A4
00020c9c 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020c9e 74 1e                    |t       |		MOVEQ.L	#0x1e,D2
00020ca0 76 1d                    |v       |		MOVEQ.L	#0x1d,D3
00020ca2 78 2c                    |x,      |		MOVEQ.L	#0x2c,D4
00020ca4 7a 24                    |z$      |		MOVEQ.L	#0x24,D5
00020ca6 7c 14                    ||       |		MOVEQ.L	#0x14,D6
00020ca8 9e c2                    |        |		SUBA.W	D2,A7
00020caa 20 4f                    | O      |		MOVEA.L	A7,A0
00020cac 43 fa f6 f4              |C       |		LEA.L	0x203a2,A1
00020cb0 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00020cb2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020cb4 51 c8 ff fc              |Q       |		DBF	D0,0x20cb2
00020cb8 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020cba 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020cbe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020cc0 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020cc2 4e 92                    |N       |		JSR	(A2)
00020cc4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020cc6 10 14                    |        |		MOVE.B	(A4),D0
00020cc8 48 80                    |H       |		EXTB.W	D0
00020cca 41 81                    |A       |		CHK.W	D1,D0
00020ccc 1f 00                    |        |		MOVE.B	D0,-(A7)
00020cce 4e 93                    |N       |		JSR	(A3)
00020cd0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020cd2 10 1f                    |        |		MOVE.B	(A7)+,D0
00020cd4 48 80                    |H       |		EXTB.W	D0
00020cd6 41 81                    |A       |		CHK.W	D1,D0
00020cd8 de c2                    |        |		ADDA.W	D2,A7
00020cda 18 80                    |        |		MOVE.B	D0,(A4)
00020cdc 9e c4                    |        |		SUBA.W	D4,A7
00020cde 20 4f                    | O      |		MOVEA.L	A7,A0
00020ce0 43 fa f6 de              |C       |		LEA.L	0x203c0,A1
00020ce4 70 2a                    |p*      |		MOVEQ.L	#0x2a,D0
00020ce6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020ce8 51 c8 ff fc              |Q       |		DBF	D0,0x20ce6
00020cec 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020cee 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020cf2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020cf4 3f 3c 00 2b              |?< +    |		MOVE.W	#0x2b,-(A7)
00020cf8 4e 92                    |N       |		JSR	(A2)
00020cfa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020cfc 10 39 00 02 14 c7        | 9      |		MOVE.B	0x214c7,D0
00020d02 48 80                    |H       |		EXTB.W	D0
00020d04 41 81                    |A       |		CHK.W	D1,D0
00020d06 1f 00                    |        |		MOVE.B	D0,-(A7)
00020d08 4e 93                    |N       |		JSR	(A3)
00020d0a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d0c 10 1f                    |        |		MOVE.B	(A7)+,D0
00020d0e 48 80                    |H       |		EXTB.W	D0
00020d10 41 81                    |A       |		CHK.W	D1,D0
00020d12 de c4                    |        |		ADDA.W	D4,A7
00020d14 13 c0 00 02 14 c7        |        |		MOVE.B	D0,0x214c7
00020d1a 9e c2                    |        |		SUBA.W	D2,A7
00020d1c 20 4f                    | O      |		MOVEA.L	A7,A0
00020d1e 43 fa f6 cc              |C       |		LEA.L	0x203ec,A1
00020d22 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00020d24 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020d26 51 c8 ff fc              |Q       |		DBF	D0,0x20d24
00020d2a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020d2c 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020d30 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020d32 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020d34 4e 92                    |N       |		JSR	(A2)
00020d36 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d38 10 39 00 02 14 c8        | 9      |		MOVE.B	0x214c8,D0
00020d3e 48 80                    |H       |		EXTB.W	D0
00020d40 41 81                    |A       |		CHK.W	D1,D0
00020d42 1f 00                    |        |		MOVE.B	D0,-(A7)
00020d44 4e 93                    |N       |		JSR	(A3)
00020d46 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d48 10 1f                    |        |		MOVE.B	(A7)+,D0
00020d4a 48 80                    |H       |		EXTB.W	D0
00020d4c 41 81                    |A       |		CHK.W	D1,D0
00020d4e de c2                    |        |		ADDA.W	D2,A7
00020d50 13 c0 00 02 14 c8        |        |		MOVE.B	D0,0x214c8
00020d56 42 39 00 02 14 c9        |B9      |		CLR.B	0x214c9
00020d5c 42 39 00 02 14 ca        |B9      |		CLR.B	0x214ca
00020d62 41 fa f6 ca              |A       |		LEA.L	0x2042e,A0
00020d66 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020d68 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020d6a 51 c8 ff fc              |Q       |		DBF	D0,0x20d68
00020d6e 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020d70 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020d74 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020d76 3f 05                    |?       |		MOVE.W	D5,-(A7)
00020d78 4e 92                    |N       |		JSR	(A2)
00020d7a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d7c 10 39 00 02 14 cb        | 9      |		MOVE.B	0x214cb,D0
00020d82 48 80                    |H       |		EXTB.W	D0
00020d84 41 81                    |A       |		CHK.W	D1,D0
00020d86 1f 00                    |        |		MOVE.B	D0,-(A7)
00020d88 4e 93                    |N       |		JSR	(A3)
00020d8a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d8c 10 1f                    |        |		MOVE.B	(A7)+,D0
00020d8e 48 80                    |H       |		EXTB.W	D0
00020d90 41 81                    |A       |		CHK.W	D1,D0
00020d92 de c5                    |        |		ADDA.W	D5,A7
00020d94 13 c0 00 02 14 cb        |        |		MOVE.B	D0,0x214cb
00020d9a 41 fa f6 a6              |A       |		LEA.L	0x20442,A0
00020d9e 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020da0 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020da2 51 c8 ff fc              |Q       |		DBF	D0,0x20da0
00020da6 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020da8 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020dac 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020dae 3f 06                    |?       |		MOVE.W	D6,-(A7)
00020db0 4e 92                    |N       |		JSR	(A2)
00020db2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020db4 10 39 00 02 14 cc        | 9      |		MOVE.B	0x214cc,D0
00020dba 48 80                    |H       |		EXTB.W	D0
00020dbc 41 81                    |A       |		CHK.W	D1,D0
00020dbe 1f 00                    |        |		MOVE.B	D0,-(A7)
00020dc0 4e 93                    |N       |		JSR	(A3)
00020dc2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020dc4 10 1f                    |        |		MOVE.B	(A7)+,D0
00020dc6 48 80                    |H       |		EXTB.W	D0
00020dc8 41 81                    |A       |		CHK.W	D1,D0
00020dca de c6                    |        |		ADDA.W	D6,A7
00020dcc 13 c0 00 02 14 cc        |        |		MOVE.B	D0,0x214cc
00020dd2 4c df 1f 7f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4
00020dd6 4e 5e                    |N^      |		UNLK	A6
00020dd8 4e 75                    |Nu      |		RTS
00020dda ; --------------------------------------------------------------------------------------
00020dda ; OMSI PASCAL Function
00020dda ;    <LVAR -0x008 @ 1(r)>
00020dda ; --------------------------------------------------------------------------------------
00020dda 4e 56 ff 7c              |NV |    |		LINK.W	A6,#0xff7c
00020dde bf d5                    |        |		CMPA.L	(A5),A7
00020de0 62 06                    |b       |		BHI	0x20de8
00020de2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020de6 4e 76                    |Nv      |		TRAPV
00020de8 de fc 00 7c              |   |    |		ADDA.W	#0x7c,A7
00020dec 48 e7 fe f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020df0 45 f9 00 02 14 cd        |E       |		LEA.L	0x214cd,A2
00020df6 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020dfc 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020dfe 74 1e                    |t       |		MOVEQ.L	#0x1e,D2
00020e00 76 2a                    |v*      |		MOVEQ.L	#0x2a,D3
00020e02 78 3a                    |x:      |		MOVEQ.L	#0x3a,D4
00020e04 7a 1c                    |z       |		MOVEQ.L	#0x1c,D5
00020e06 7c 14                    ||       |		MOVEQ.L	#0x14,D6
00020e08 4a 39 00 02 14 9a        |J9      |		TST.B	0x2149a
00020e0e 67 04                    |g       |		BEQ	0x20e14
00020e10 42 12                    |B       |		CLR.B	(A2)
00020e12 60 34                    |`4      |		BRA	0x20e48
00020e14 41 fa f6 56              |A  V    |		LEA.L	0x2046c,A0
00020e18 70 14                    |p       |		MOVEQ.L	#0x14,D0
00020e1a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020e1c 51 c8 ff fc              |Q       |		DBF	D0,0x20e1a
00020e20 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020e22 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020e26 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020e28 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020e2a 4e 93                    |N       |		JSR	(A3)
00020e2c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e2e 10 12                    |        |		MOVE.B	(A2),D0
00020e30 48 80                    |H       |		EXTB.W	D0
00020e32 41 81                    |A       |		CHK.W	D1,D0
00020e34 1f 00                    |        |		MOVE.B	D0,-(A7)
00020e36 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020e3c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020e3e 10 1f                    |        |		MOVE.B	(A7)+,D0
00020e40 48 80                    |H       |		EXTB.W	D0
00020e42 41 81                    |A       |		CHK.W	D1,D0
00020e44 de c3                    |        |		ADDA.W	D3,A7
00020e46 14 80                    |        |		MOVE.B	D0,(A2)
00020e48 4a 12                    |J       |		TST.B	(A2)
00020e4a 66 00 00 d6              |f       |		BNE	0x20f22
00020e4e 41 fa f6 56              |A  V    |		LEA.L	0x204a6,A0
00020e52 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00020e54 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020e56 51 c8 ff fc              |Q       |		DBF	D0,0x20e54
00020e5a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020e5c 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020e60 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020e62 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020e64 4e 93                    |N       |		JSR	(A3)
00020e66 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e68 10 39 00 02 14 ce        | 9      |		MOVE.B	0x214ce,D0
00020e6e 48 80                    |H       |		EXTB.W	D0
00020e70 41 81                    |A       |		CHK.W	D1,D0
00020e72 1f 00                    |        |		MOVE.B	D0,-(A7)
00020e74 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020e7a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020e7c 10 1f                    |        |		MOVE.B	(A7)+,D0
00020e7e 48 80                    |H       |		EXTB.W	D0
00020e80 41 81                    |A       |		CHK.W	D1,D0
00020e82 de c4                    |        |		ADDA.W	D4,A7
00020e84 13 c0 00 02 14 ce        |        |		MOVE.B	D0,0x214ce
00020e8a 9e c2                    |        |		SUBA.W	D2,A7
00020e8c 20 4f                    | O      |		MOVEA.L	A7,A0
00020e8e 43 f9 00 02 14 cf        |C       |		LEA.L	0x214cf,A1
00020e94 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00020e96 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020e98 51 c8 ff fc              |Q       |		DBF	D0,0x20e96
00020e9c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020e9e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020ea2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020ea4 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020ea6 4e 93                    |N       |		JSR	(A3)
00020ea8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020eaa 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020eac de c2                    |        |		ADDA.W	D2,A7
00020eae 4a 39 00 02 14 ce        |J9      |		TST.B	0x214ce
00020eb4 67 28                    |g(      |		BEQ	0x20ede
00020eb6 41 fa f6 0a              |A       |		LEA.L	0x204c2,A0
00020eba 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020ebc 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020ebe 51 c8 ff fc              |Q       |		DBF	D0,0x20ebc
00020ec2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020ec4 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020ec8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020eca 3f 05                    |?       |		MOVE.W	D5,-(A7)
00020ecc 4e 93                    |N       |		JSR	(A3)
00020ece 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ed0 2e 8c                    |.       |		MOVE.L	A4,(A7)
00020ed2 4e ba f6 bc              |N       |		JSR	0x20590
00020ed6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ed8 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020eda de c5                    |        |		ADDA.W	D5,A7
00020edc 60 26                    |`&      |		BRA	0x20f04
00020ede 41 fa f5 f6              |A       |		LEA.L	0x204d6,A0
00020ee2 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020ee4 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020ee6 51 c8 ff fc              |Q       |		DBF	D0,0x20ee4
00020eea 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020eec 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020ef0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020ef2 3f 06                    |?       |		MOVE.W	D6,-(A7)
00020ef4 4e 93                    |N       |		JSR	(A3)
00020ef6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ef8 2e 8c                    |.       |		MOVE.L	A4,(A7)
00020efa 4e ba f6 94              |N       |		JSR	0x20590
00020efe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f00 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020f02 de c6                    |        |		ADDA.W	D6,A7
00020f04 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00020f06 48 79 00 02 14 cf        |Hy      |		PEA.L	0x214cf
00020f0c 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00020f10 4e b9 00 01 05 8c        |N       |		JSR	FSCALL_1058c
00020f16 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020f1a 4a 2e ff f8              |J.      |		TST.B	(A6-0x8)
00020f1e 67 00 ff 2e              |g  .    |		BEQ	0x20e4e
00020f22 4c df 1f 7f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4
00020f26 4e 5e                    |N^      |		UNLK	A6
00020f28 4e 75                    |Nu      |		RTS
00020f2a ; --------------------------------------------------------------------------------------
00020f2a ; OMSI PASCAL Function
00020f2a ;    <LVAR -0x002 @ 1(r)>
00020f2a ; --------------------------------------------------------------------------------------
00020f2a 4e 56 ff 78              |NV x    |		LINK.W	A6,#0xff78
00020f2e bf d5                    |        |		CMPA.L	(A5),A7
00020f30 62 06                    |b       |		BHI	0x20f38
00020f32 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020f36 4e 76                    |Nv      |		TRAPV
00020f38 de fc 00 80              |        |		ADDA.W	#0x80,A7
00020f3c 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020f40 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020f46 76 01                    |v       |		MOVEQ.L	#0x01,D3
00020f48 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
00020f4a 7a 22                    |z"      |		MOVEQ.L	#0x22,D5
00020f4c 4a 39 00 02 14 a1        |J9      |		TST.B	0x214a1
00020f52 67 04                    |g       |		BEQ	0x20f58
00020f54 7c 04                    ||       |		MOVEQ.L	#0x04,D6
00020f56 60 02                    |`       |		BRA	0x20f5a
00020f58 7c 09                    ||       |		MOVEQ.L	#0x09,D6
00020f5a 1f 06                    |        |		MOVE.B	D6,-(A7)
00020f5c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020f5e be 17                    |        |		CMP.B	(A7),D7
00020f60 6e 0a                    |n       |		BGT	0x20f6c
00020f62 10 17                    |        |		MOVE.B	(A7),D0
00020f64 0c 00 00 09              |        |		CMPI.B	#0x09,D0
00020f68 6f 02                    |o       |		BLE	0x20f6c
00020f6a 4e 4f                    |NO      |		TRAP	#15
00020f6c be 17                    |        |		CMP.B	(A7),D7
00020f6e 6e 00 01 ca              |n       |		BGT	0x2113a
00020f72 10 07                    |        |		MOVE.B	D7,D0
00020f74 48 80                    |H       |		EXTB.W	D0
00020f76 eb 40                    | @      |		ASL.W	#0x5,D0
00020f78 41 f9 00 02 14 92        |A       |		LEA.L	0x21492,A0
00020f7e 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020f80 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020f82 4a 39 00 02 14 9a        |J9      |		TST.B	0x2149a
00020f88 67 06                    |g       |		BEQ	0x20f90
00020f8a 42 30 00 5b              |B0 [    |		CLR.B	(A0+D0.W+#0x5b)
00020f8e 60 6c                    |`l      |		BRA	0x20ffc
00020f90 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020f92 22 4f                    |"O      |		MOVEA.L	A7,A1
00020f94 45 fa f5 bc              |E       |		LEA.L	0x20552,A2
00020f98 72 04                    |r       |		MOVEQ.L	#0x04,D1
00020f9a 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020f9c 51 c9 ff fc              |Q       |		DBF	D1,0x20f9a
00020fa0 43 fa f5 50              |C  P    |		LEA.L	0x204f2,A1
00020fa4 72 06                    |r       |		MOVEQ.L	#0x06,D1
00020fa6 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
00020fa8 51 c9 ff fc              |Q       |		DBF	D1,0x20fa6
00020fac 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020fb0 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00020fb4 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020fb6 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00020fba 4e 93                    |N       |		JSR	(A3)
00020fbc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020fbe 1e 87                    |        |		MOVE.B	D7,(A7)
00020fc0 4e b9 00 01 05 86        |N       |		JSR	Config_Entry_Name(a : Byte) : String
00020fc6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020fc8 48 6f 00 12              |Ho      |		PEA.L	(A7+0x12)
00020fcc 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020fce 3f 3c 00 1c              |?<      |		MOVE.W	#0x1c,-(A7)
00020fd2 4e 93                    |N       |		JSR	(A3)
00020fd4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020fd6 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00020fdc de c4                    |        |		ADDA.W	D4,A7
00020fde 12 30 00 5b              | 0 [    |		MOVE.B	(A0+D0.W+#0x5b),D1
00020fe2 48 81                    |H       |		EXTB.W	D1
00020fe4 43 83                    |C       |		CHK.W	D3,D1
00020fe6 1f 01                    |        |		MOVE.B	D1,-(A7)
00020fe8 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020fee 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020ff0 12 1f                    |        |		MOVE.B	(A7)+,D1
00020ff2 48 81                    |H       |		EXTB.W	D1
00020ff4 43 83                    |C       |		CHK.W	D3,D1
00020ff6 de c5                    |        |		ADDA.W	D5,A7
00020ff8 11 81 00 5b              |   [    |		MOVE.B	D1,(A0+D0.W+#0x5b)
00020ffc 4a 30 00 5b              |J0 [    |		TST.B	(A0+D0.W+#0x5b)
00021000 66 00 01 30              |f  0    |		BNE	0x21132
00021004 20 57                    | W      |		MOVEA.L	(A7),A0
00021006 30 2f 00 04              |0/      |		MOVE.W	(A7+0x4),D0
0002100a 43 fa f5 0a              |C       |		LEA.L	0x20516,A1
0002100e 72 08                    |r       |		MOVEQ.L	#0x08,D1
00021010 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
00021012 51 c9 ff fc              |Q       |		DBF	D1,0x21010
00021016 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
0002101a 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
0002101e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021020 3f 3c 00 24              |?< $    |		MOVE.W	#0x24,-(A7)
00021024 4e 93                    |N       |		JSR	(A3)
00021026 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021028 1e 87                    |        |		MOVE.B	D7,(A7)
0002102a 4e b9 00 01 05 86        |N       |		JSR	Config_Entry_Name(a : Byte) : String
00021030 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021032 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021038 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002103a 12 30 00 5c              | 0 \    |		MOVE.B	(A0+D0.W+#0x5c),D1
0002103e 48 81                    |H       |		EXTB.W	D1
00021040 43 83                    |C       |		CHK.W	D3,D1
00021042 1f 01                    |        |		MOVE.B	D1,-(A7)
00021044 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
0002104a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002104c 12 1f                    |        |		MOVE.B	(A7)+,D1
0002104e 48 81                    |H       |		EXTB.W	D1
00021050 43 83                    |C       |		CHK.W	D3,D1
00021052 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00021056 11 81 00 5c              |   \    |		MOVE.B	D1,(A0+D0.W+#0x5c)
0002105a 12 07                    |        |		MOVE.B	D7,D1
0002105c 48 81                    |H       |		EXTB.W	D1
0002105e 34 01                    |4       |		MOVE.W	D1,D2
00021060 eb 42                    | B      |		ASL.W	#0x5,D2
00021062 43 f9 00 02 14 92        |C       |		LEA.L	0x21492,A1
00021068 9e fc 00 1e              |        |		SUBA.W	#0x1e,A7
0002106c 24 4f                    |$O      |		MOVEA.L	A7,A2
0002106e 43 f1 20 5d              |C  ]    |		LEA.L	(A1+D2.W+#0x5d),A1
00021072 74 1d                    |t       |		MOVEQ.L	#0x1d,D2
00021074 14 d9                    |        |		MOVE.B	(A1)+,(A2)+
00021076 51 ca ff fc              |Q       |		DBF	D2,0x21074
0002107a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002107c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021080 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021082 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00021086 4e 93                    |N       |		JSR	(A3)
00021088 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002108a 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002108c de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00021090 4a 30 00 5c              |J0 \    |		TST.B	(A0+D0.W+#0x5c)
00021094 67 40                    |g@      |		BEQ	0x210d6
00021096 9e c5                    |        |		SUBA.W	D5,A7
00021098 22 4f                    |"O      |		MOVEA.L	A7,A1
0002109a 45 fa f4 7a              |E  z    |		LEA.L	0x20516,A2
0002109e 74 20                    |t       |		MOVEQ.L	#0x20,D2
000210a0 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000210a2 51 ca ff fc              |Q       |		DBF	D2,0x210a0
000210a6 9e c4                    |        |		SUBA.W	D4,A7
000210a8 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000210ac 3f 03                    |?       |		MOVE.W	D3,-(A7)
000210ae 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
000210b2 4e 93                    |N       |		JSR	(A3)
000210b4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210b6 1e 81                    |        |		MOVE.B	D1,(A7)
000210b8 4e b9 00 01 05 86        |N       |		JSR	Config_Entry_Name(a : Byte) : String
000210be 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210c0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000210c6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000210c8 2e 8c                    |.       |		MOVE.L	A4,(A7)
000210ca 4e ba f4 c4              |N       |		JSR	0x20590
000210ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210d0 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000210d2 de c5                    |        |		ADDA.W	D5,A7
000210d4 60 42                    |`B      |		BRA	0x21118
000210d6 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
000210da 22 4f                    |"O      |		MOVEA.L	A7,A1
000210dc 45 fa f4 5a              |E  Z    |		LEA.L	0x20538,A2
000210e0 74 18                    |t       |		MOVEQ.L	#0x18,D2
000210e2 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000210e4 51 ca ff fc              |Q       |		DBF	D2,0x210e2
000210e8 9e c4                    |        |		SUBA.W	D4,A7
000210ea 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000210ee 3f 03                    |?       |		MOVE.W	D3,-(A7)
000210f0 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
000210f4 4e 93                    |N       |		JSR	(A3)
000210f6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210f8 1e 81                    |        |		MOVE.B	D1,(A7)
000210fa 4e b9 00 01 05 86        |N       |		JSR	Config_Entry_Name(a : Byte) : String
00021100 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021102 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021108 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002110a 2e 8c                    |.       |		MOVE.L	A4,(A7)
0002110c 4e ba f4 82              |N       |		JSR	0x20590
00021110 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021112 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021114 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00021118 2f 0c                    |/       |		MOVE.L	A4,-(A7)
0002111a 48 70 00 5d              |Hp ]    |		PEA.L	(A0+D0.W+#0x5d)
0002111e 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00021122 4e b9 00 01 05 8c        |N       |		JSR	FSCALL_1058c
00021128 de c4                    |        |		ADDA.W	D4,A7
0002112a 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
0002112e 67 00 fe d4              |g       |		BEQ	0x21004
00021132 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021134 52 07                    |R       |		ADDQ.B	#0x1,D7
00021136 68 00 fe 34              |h  4    |		BVC	0x20f6c
0002113a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002113c 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021140 4e 5e                    |N^      |		UNLK	A6
00021142 4e 75                    |Nu      |		RTS
00021144 ; --------------------------------------------------------------------------------------
00021144 ; OMSI PASCAL Function
00021144 ; --------------------------------------------------------------------------------------
00021144 4e 56 ff fc              |NV      |		LINK.W	A6,#0xfffc
00021148 bf d5                    |        |		CMPA.L	(A5),A7
0002114a 62 06                    |b       |		BHI	0x21152
0002114c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021150 4e 76                    |Nv      |		TRAPV
00021152 de fc 00 04              |        |		ADDA.W	#0x4,A7
00021156 4e ba f9 f8              |N       |		JSR	0x20b50
0002115a 4e ba fb 18              |N       |		JSR	0x20c74
0002115e 4e ba fc 7a              |N  z    |		JSR	0x20dda
00021162 4e ba fd c6              |N       |		JSR	0x20f2a
00021166 4e 5e                    |N^      |		UNLK	A6
00021168 4e 75                    |Nu      |		RTS
0002116a ; --------------------------------------------------------------------------------------
0002116a ; OMSI PASCAL Function
0002116a ;    <LVAR  0x008 4(r)>
0002116a ; --------------------------------------------------------------------------------------
0002116a 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
0002116e bf d5                    |        |		CMPA.L	(A5),A7
00021170 62 06                    |b       |		BHI	0x21178
00021172 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021176 4e 76                    |Nv      |		TRAPV
00021178 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
0002117c 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00021180 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021184 48 79 00 02 14 9c        |Hy      |		PEA.L	0x2149c
0002118a 4e b9 00 01 05 74        |N    t  |		JSR	Write_ConfigFile(name: String; dst: Pointer)
00021190 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021192 41 fa f3 d8              |A       |		LEA.L	0x2056c,A0
00021196 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021198 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002119a 51 c8 ff fc              |Q       |		DBF	D0,0x21198
0002119e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000211a0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000211a4 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000211a8 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
000211ac 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000211b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211b4 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000211ba de fc 00 18              |        |		ADDA.W	#0x18,A7
000211be 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000211c2 4e 5e                    |N^      |		UNLK	A6
000211c4 4e 75                    |Nu      |		RTS
000211c6 ; --------------------------------------------------------------------------------------
000211c6 ; OMSI PASCAL Function
000211c6 ;    <LVAR -0x004 @ 1(r)>
000211c6 ;    <LVAR -0x008 @ 4(r)>
000211c6 ;    <LVAR -0x00c @ 4(r)>
000211c6 ; --------------------------------------------------------------------------------------
000211c6 4e 56 ff ac              |NV      |		LINK.W	A6,#0xffac
000211ca bf d5                    |        |		CMPA.L	(A5),A7
000211cc 62 06                    |b       |		BHI	0x211d4
000211ce 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000211d2 4e 76                    |Nv      |		TRAPV
000211d4 de fc 00 48              |   H    |		ADDA.W	#0x48,A7
000211d8 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
000211dc 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
000211e0 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
000211e4 72 01                    |r       |		MOVEQ.L	#0x01,D1
000211e6 48 52                    |HR      |		PEA.L	(A2)
000211e8 48 53                    |HS      |		PEA.L	(A3)
000211ea 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000211ee 4e ba f4 50              |N  P    |		JSR	0x20640
000211f2 9e fc 00 12              |        |		SUBA.W	#0x12,A7
000211f6 20 4f                    | O      |		MOVEA.L	A7,A0
000211f8 43 fa f3 72              |C  r    |		LEA.L	0x2056c,A1
000211fc 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
000211fe 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021200 51 c8 ff fc              |Q       |		DBF	D0,0x211fe
00021204 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00021208 66 22                    |f"      |		BNE	0x2122c
0002120a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002120c 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021210 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021212 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
00021216 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002121c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002121e 1e 81                    |        |		MOVE.B	D1,(A7)
00021220 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00021226 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021228 4a 1f                    |J       |		TST.B	(A7)+
0002122a 67 28                    |g(      |		BEQ	0x21254
0002122c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002122e 4e ba f6 c0              |N       |		JSR	0x208f0
00021232 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021234 4e ba ff 0e              |N       |		JSR	0x21144
00021238 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002123a 4e ba ff 2e              |N  .    |		JSR	0x2116a
0002123e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021240 48 52                    |HR      |		PEA.L	(A2)
00021242 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021248 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002124a 48 53                    |HS      |		PEA.L	(A3)
0002124c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021252 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021254 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00021258 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
0002125c 4e 5e                    |N^      |		UNLK	A6
0002125e 4e 75                    |Nu      |		RTS
00021260 ; --------------------------------------------------------------------------------------
00021260 ; OMSI PASCAL Function
00021260 ; --------------------------------------------------------------------------------------
00021260					START:
00021260 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00021264 4e f9 00 01 02 80        |N       |		JMP	?start_program
0002126a					MAIN:
0002126a 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00021270 4e ba f6 c8              |N       |		JSR	0x2093a
00021274 4e ba ff 50              |N  P    |		JSR	0x211c6
00021278 42 27                    |B'      |		CLR.B	-(A7)
0002127a 48 78 00 01              |Hx      |		PEA.L	0x1
0002127e 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021284 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021286 4e b9 00 01 02 84        |N       |		JSR	?exit
0002128c 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
0002129a ; --------------------------------------------------------------------------------------
0002129a ; OMSI PASCAL Function
0002129a ;    <LVAR  0x008 1(r)>
0002129a ; --------------------------------------------------------------------------------------
0002129a					PROG_FAIL:
0002129a 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
0002129e bf d5                    |        |		CMPA.L	(A5),A7
000212a0 62 06                    |b       |		BHI	0x212a8
000212a2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000212a6 4e 76                    |Nv      |		TRAPV
000212a8 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000212ac 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
000212b0 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
000212b4 70 06                    |p       |		MOVEQ.L	#0x06,D0
000212b6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000212b8 51 c8 ff fc              |Q       |		DBF	D0,0x212b6
000212bc 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
000212c0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000212c2 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000212c6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000212ca 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000212ce 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000212d4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212d6 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000212da 48 80                    |H       |		EXTB.W	D0
000212dc 48 c0                    |H       |		EXTW.L	D0
000212de 2f 00                    |/       |		MOVE.L	D0,-(A7)
000212e0 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000212e6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212e8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000212ee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212f0 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000212f6 de fc 00 14              |        |		ADDA.W	#0x14,A7
000212fa 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000212fe 4e 5e                    |N^      |		UNLK	A6
00021300 4e 75                    |Nu      |		RTS
00021302 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00021310 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
0002131e 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
0002132c 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
0002133e 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00021356 ; --------------------------------------------------------------------------------------
00021356 ; OMSI PASCAL Function
00021356 ;    <LVAR  0x00e 1(r)>
00021356 ;    <LVAR  0x00a 4(r)>
00021356 ;    <LVAR  0x008 1(r)>
00021356 ; --------------------------------------------------------------------------------------
00021356					EXP_FAIL:
00021356 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
0002135a bf d5                    |        |		CMPA.L	(A5),A7
0002135c 62 06                    |b       |		BHI	0x21364
0002135e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021362 4e 76                    |Nv      |		TRAPV
00021364 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00021368 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
0002136c 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00021372 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00021378 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002137a 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
0002137c 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
0002137e 78 12                    |x       |		MOVEQ.L	#0x12,D4
00021380 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00021382 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021388 41 fa ff b4              |A       |		LEA.L	0x2133e,A0
0002138c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002138e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021390 51 c8 ff fc              |Q       |		DBF	D0,0x2138e
00021394 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021396 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002139a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002139c 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002139e 4e 93                    |N       |		JSR	(A3)
000213a0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213a2 4e 94                    |N       |		JSR	(A4)
000213a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213a6 20 4f                    | O      |		MOVEA.L	A7,A0
000213a8 43 fa ff 58              |C  X    |		LEA.L	0x21302,A1
000213ac 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000213ae 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000213b0 51 c8 ff fc              |Q       |		DBF	D0,0x213ae
000213b4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000213b6 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000213ba 3f 01                    |?       |		MOVE.W	D1,-(A7)
000213bc 3f 02                    |?       |		MOVE.W	D2,-(A7)
000213be 4e 93                    |N       |		JSR	(A3)
000213c0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000213c2 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
000213c6 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
000213cc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000213ce 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000213d4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213d6 4e 94                    |N       |		JSR	(A4)
000213d8 de c4                    |        |		ADDA.W	D4,A7
000213da 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
000213de b0 c1                    |        |		CMPA.W	D1,A0
000213e0 67 48                    |gH      |		BEQ	0x2142a
000213e2 9e c5                    |        |		SUBA.W	D5,A7
000213e4 22 4f                    |"O      |		MOVEA.L	A7,A1
000213e6 45 fa ff 28              |E  (    |		LEA.L	0x21310,A2
000213ea 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000213ec 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000213ee 51 c8 ff fc              |Q       |		DBF	D0,0x213ec
000213f2 9e c3                    |        |		SUBA.W	D3,A7
000213f4 22 4f                    |"O      |		MOVEA.L	A7,A1
000213f6 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
000213fa 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000213fc 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000213fe 51 c8 ff fc              |Q       |		DBF	D0,0x213fc
00021402 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021404 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00021408 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002140a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002140c 4e 93                    |N       |		JSR	(A3)
0002140e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021410 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021414 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021416 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021418 4e 93                    |N       |		JSR	(A3)
0002141a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002141c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021422 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021424 4e 94                    |N       |		JSR	(A4)
00021426 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
0002142a 9e c5                    |        |		SUBA.W	D5,A7
0002142c 20 4f                    | O      |		MOVEA.L	A7,A0
0002142e 43 fa fe ee              |C       |		LEA.L	0x2131e,A1
00021432 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021434 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021436 51 c8 ff fc              |Q       |		DBF	D0,0x21434
0002143a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002143c 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021440 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021442 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021444 4e 93                    |N       |		JSR	(A3)
00021446 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021448 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
0002144c 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
00021452 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021454 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002145a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002145c 4e 94                    |N       |		JSR	(A4)
0002145e 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021460 20 4f                    | O      |		MOVEA.L	A7,A0
00021462 43 fa fe da              |C       |		LEA.L	0x2133e,A1
00021466 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021468 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002146a 51 c8 ff fc              |Q       |		DBF	D0,0x21468
0002146e 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00021472 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021474 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021478 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002147a 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
0002147e 4e 93                    |N       |		JSR	(A3)
00021480 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021482 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021488 de c3                    |        |		ADDA.W	D3,A7
0002148a 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
0002148e 4e 5e                    |N^      |		UNLK	A6
00021490 4e 75                    |Nu      |		RTS