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

⟦33c9ba8df⟧ M200

    Length: 16384 (0x4000)
    Types: M200
    Notes: @(#)LOADER,2.7,92/11/05,17:18:19, M200_PROGRAM
    Names: »LOADER.M200«

Derivation

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

Disassembly

0x2069e


@ 2069e
        <LVAR  0x016 1(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @>
    <POP 2069e-20766 Body>                                   Δ+10       
        <POP 2069e-206b4 Prologue>                           Σ0         ↓
        <POP 206b4-206bc RegCacheLoad>                       Σ0         ↓
        <POP 206bc-206dc Naked>                              Σ0         ↓ →0x206ea
            <Call 0x206bc 0x10538>                                              {}
                IPC_Init(void)
            <MI 206c2  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[4, '(A6+0x12)']}
            <Call 0x206c6 0x10508>                                              {[4, '(A6+0x12)']}
                IPC_PutString(a : String)
            <POP 206cc-206ce StackAdj>                       Δ+2                {[-2-]}
            <MI 206ce  MOVE.B  (A6+0x10),(A7)>                                  {[-2-]}
            <Call 0x206d2 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 206d4-206d6 StackAdj>                       Δ+2                {}
            <MI 206d6  TST.B   (A6+0x16)>                                       {}
            <MI 206da  BNE     0x206ea>                                         {}
        <POP 206dc-206ea Naked>                              Σ0         ↓
            <MI 206dc  MOVE.B  (A6+0xe),-(A7)>               Δ-2                {[2, '(A6+0xe)']}
            <Call 0x206e0 0x10502>                                              {[2, '(A6+0xe)']}
                IPC_PutBool(a : Bool)
            <MI 206e2  MOVE.B  (A6+0xc),(A7)>                                   {[-2-]}
            <Call 0x206e6 0x10502>                                              {[-2-]}
                IPC_PutBool(a : Bool)
            <POP 206e8-206ea StackAdj>                       Δ+2                {}
        <POP 206ea-206f6 Naked>                              Σ0         ↓ →0x20708 ←0x206bc
            <Call 0x206ea 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 206f0  TST.B   (A6+0x16)>                                       {}
            <MI 206f4  BEQ     0x20708>                                         {}
        <POP 206f6-20708 Naked>                              Σ0 Δ-10    →0x20718
            <Blob 0x206f6 [10] @>                            Δ-10               {[«10""»]}
            <MI 20706  BRA     0x20718>                                         {[«10""»]}
        <POP 20708-20718 Naked>                              Σ0 Δ-10    ↓ ←0x206ea
            <Blob 0x20708 [10] @>                            Δ-10               {[«10""»]}
        <POP 20718-2075e Naked>                              Σ-10 Δ+10  ↓ ←0x206f6
            <POP 20718-2071a StackAdj>                       Δ-4                {[-14-]}
            <Lit 0x2071a>                                                       {[-10-]|[$$…]}
                <Pointer.sp 0x2071a 4>                       Δ-4        
                <Const 0x2071e 0x1.2>                        Δ-2        
                <Const 0x20722 0x9.2>                        Δ-2        
                <Call 0x20726 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2072c-2072e StackAdj>                   Δ+8        
            <Const 0x2072e 0x1.4>                            Δ-4                {[-10-]|[$$…]|[##1]}
            <Const 0x20732 0x2.2>                            Δ-2                {[-10-]|[$$…]|[##1]|[#2]}
            <Pointer.fp 0x20736 <LVAR -0x004 @>>             Δ-4                {[-10-]|[$$…]|[##1]|[#2]|[@@-4]}
            <Call 0x2073a 0x103b0>                                              {[-10-]|[$$…]|[##1]|[#2]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 20740-20744 StackAdj>                       Δ+24               {}
            <Call 0x20744 0x10538>                                              {}
                IPC_Init(void)
            <MI 2074a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 2074e  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x20750 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 20756-20758 StackAdj>                       Δ+4                {}
            <Call 0x20758 0x1051a>                                              {}
                IPC_GetEnd(void)
        <POP 2075e-20766 Epilogue>                           Σ0         

0x20766


@ 20766
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x008 @ 1(r)>
        <LVAR -0x00c @ 4(r)>
    <POP 20766-20834 Body>                                   Δ+4        
        <POP 20766-2077c Prologue>                           Σ0         ↓
        <POP 2077c-2078e RegCacheLoad>                       Σ0         ↓
        <POP 2078e-207ca Naked>                              Σ0         ↓ →0x2082c
            <Blob 0x2078e [18] @>                            Δ-18               {[«18""»]}
            <POP 2079a-2079c StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x2079c 18>                                                    {[«18""»]|[$$COPYRIGHT_INFO.TXT]}
            <POP 207ae-207b0 StackAdj>                       Δ-2                {[«18""»]|[$$COPYRIGHT_INFO.TXT]|[-2-]}
            <MI 207b0  CLR.B   (A7)>                                            {[«18""»]|[$$COPYRIGHT_INFO.TXT]|[-2-]}
            <MI 207b2  CLR.B   -(A7)>                        Δ-2                {[«18""»]|[$$COPYRIGHT_INFO.TXT]|[-2-]|[#0]}
            <Const 0x207b4 0x0.4>                            Δ-4                {[«18""»]|[$$COPYRIGHT_INFO.TXT]|[-2-]|[#0]|[##0]}
            <Pointer.fp 0x207b8 <LVAR -0x008 @ 1(r)>>        Δ-4                {[«18""»]|[$$COPYRIGHT_INFO.TXT]|[-2-]|[#0]|[##0]|[@@-8]}
            <Pointer.fp 0x207ba <LVAR -0x00c @ 4(r)>>        Δ-4                {[«18""»]|[$$COPYRIGHT_INFO.TXT]|[-2-]|[#0]|[##0]|[@@-8]|[@@-12]}
            <Call 0x207bc 0x10380>                                              {[«18""»]|[$$COPYRIGHT_INFO.TXT]|[-2-]|[#0]|[##0]|[@@-8]|[@@-12]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 207c2-207c6 StackAdj>                       Δ+38               {}
            <MI 207c6  TST.B   (A6-0x8)>                                        {}
            <MI 207c8  BNE     0x2082c>                                         {}
        <POP 207ca-207d0 Naked>                              Σ0         ↓
            <Call 0x207ca 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 207d0-207ea Naked>                              Σ0         ↓ →0x207f4 ←0x207fc
            <Pointer.fp 0x207d0 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x207d2 0x102b8>                                              {[@@-6]}
                NewString(VAR a : String)
            <MI 207d8  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <Pointer.fp 0x207da <LVAR -0x006 @ 4(r)>>        Δ-4                {[4, '(A6-0xc)']|[@@-6]}
            <Pointer.fp 0x207dc <LVAR -0x002 @ 1(r)>>        Δ-4                {[4, '(A6-0xc)']|[@@-6]|[@@-2]}
            <Call 0x207de 0x1043c>                                              {[4, '(A6-0xc)']|[@@-6]|[@@-2]}
                FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 207e4-207e6 StackAdj>                       Δ+12               {}
            <MI 207e6  TST.B   (A6-0x2)>                                        {}
            <MI 207e8  BNE     0x207f4>                                         {}
        <POP 207ea-207f4 Naked>                              Σ0 Δ-4     →0x207fc
            <MI 207ea  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x207ec 0x103e0>                                              {[4, '(A6-0x6)']}
                WriteConsoleStringCrLf(str : String)
            <MI 207f2  BRA     0x207fc>                                         {[4, '(A6-0x6)']}
        <POP 207f4-207fc Naked>                              Σ0 Δ-4     ↓ ←0x207d0
            <Pointer.fp 0x207f4 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x207f6 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
        <POP 207fc-20802 Naked>                              Σ-4 Δ+4    ↓ →0x207d0 ←0x207ea
            <POP 207fc-207fe StackAdj>                       Δ+4                {}
            <MI 207fe  TST.B   (A6-0x2)>                                        {}
            <MI 20800  BEQ     0x207d0>                                         {}
        <POP 20802-2082c Naked>                              Σ0         ↓
            <Call 0x20802 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <MI 20808  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x2080a 0x2.2>                            Δ-2                {[#0]|[#2]}
            <Const 0x2080e 0x1.4>                            Δ-4                {[#0]|[#2]|[##1]}
            <Pointer.fp 0x20812 <LVAR -0x008 @ 1(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-8]}
            <Pointer.fp 0x20814 <LVAR -0x00c @ 4(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-8]|[@@-12]}
            <Call 0x20816 0x1038c>                                              {[#0]|[#2]|[##1]|[@@-8]|[@@-12]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 2081c-2081e StackAdj>                       Δ+12               {[#0]|[#2]}
            <POP 2081e-2081f StackAdj>                       Δ+4                {}
            <Const 0x2081f 0x2faee.4>                        Δ-4                {[##195310]}
            <Call 0x20824 0x10224>                                              {[##195310]}
                KC12_Sleep(dur: Long)
            <POP 2082a-2082c StackAdj>                       Δ+4                {}
        <POP 2082c-20834 Epilogue>                           Σ0         ←0x2078e

0x20834


@ 20834
        <LVAR  0x008 4(r)>
    <POP 20834-208ce Body>                                              
        <POP 20834-2084a Prologue>                           Σ0         ↓
        <POP 2084a-2084e RegCacheLoad>                       Σ0         ↓
        <POP 2084e-20856 Naked>                              Σ0         ↓ →0x2085e
            <MI 2084e  TST.B   0x23ec4>                                         {}
            <MI 20854  BEQ     0x2085e>                                         {}
        <POP 20856-2085e Naked>                              Σ0         ↓
            <MI 20856  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20858  ORI.W   #0x4000,(A0+0x4)>                                {}
        <POP 2085e-20866 Naked>                              Σ0         ↓ →0x2086e ←0x2084e
            <MI 2085e  TST.B   0x23ec5>                                         {}
            <MI 20864  BEQ     0x2086e>                                         {}
        <POP 20866-2086e Naked>                              Σ0         ↓
            <MI 20866  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20868  ORI.W   #0x2000,(A0+0x4)>                                {}
        <POP 2086e-20876 Naked>                              Σ0         ↓ →0x2087e ←0x2085e
            <MI 2086e  TST.B   0x23ec6>                                         {}
            <MI 20874  BEQ     0x2087e>                                         {}
        <POP 20876-2087e Naked>                              Σ0         ↓
            <MI 20876  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20878  ORI.W   #0x1000,(A0+0x4)>                                {}
        <POP 2087e-20886 Naked>                              Σ0         ↓ →0x2088e ←0x2086e
            <MI 2087e  TST.B   0x23ec9>                                         {}
            <MI 20884  BEQ     0x2088e>                                         {}
        <POP 20886-2088e Naked>                              Σ0         ↓
            <MI 20886  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20888  ORI.W   #0x0200,(A0+0x4)>                                {}
        <POP 2088e-20896 Naked>                              Σ0         ↓ →0x2089e ←0x2087e
            <MI 2088e  TST.B   0x23eca>                                         {}
            <MI 20894  BEQ     0x2089e>                                         {}
        <POP 20896-2089e Naked>                              Σ0         ↓
            <MI 20896  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20898  ORI.W   #0x0100,(A0+0x4)>                                {}
        <POP 2089e-208aa Naked>                              Σ0         ↓ →0x208b2 ←0x2088e
            <MI 2089e  MOVE.B  0x23e98,D0>                                      {}
            <MI 208a4  LSL.B   #0x7,D0>                                         {}
            <MI 208a6  LSR.B   #0x7,D0>                                         {}
            <MI 208a8  BEQ     0x208b2>                                         {}
        <POP 208aa-208b2 Naked>                              Σ0         ↓
            <MI 208aa  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 208ac  ORI.W   #0x0800,(A0+0x4)>                                {}
        <POP 208b2-208be Naked>                              Σ0         ↓ →0x208c6 ←0x2089e
            <MI 208b2  MOVE.B  0x23e98,D0>                                      {}
            <MI 208b8  LSL.B   #0x6,D0>                                         {}
            <MI 208ba  LSR.B   #0x7,D0>                                         {}
            <MI 208bc  BEQ     0x208c6>                                         {}
        <POP 208be-208c6 Naked>                              Σ0         ↓
            <MI 208be  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 208c0  ORI.W   #0x0400,(A0+0x4)>                                {}
        <POP 208c6-208ce Epilogue>                           Σ0         ←0x208b2

0x208ce


@ 208ce
        <LVAR -0x004 @>
    <POP 208ce-2094e Body>                                              
        <POP 208ce-208e4 Prologue>                           Σ0         ↓
        <POP 208e4-20946 Naked>                              Σ0         ↓
            <Call 0x208e4 0x10538>                                              {}
                IPC_Init(void)
            <MI 208ea  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x208ec 0x10502>                                              {[#0]}
                IPC_PutBool(a : Bool)
            <POP 208f2-208f4 StackAdj>                       Δ+2                {}
            <Call 0x208f4 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x208fa [10] @>                            Δ-10               {[«10""»]}
            <POP 2090c-2090e StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x2090e 9>                                                     {[«10""»]|[$$CONFIGURE]}
            <Const 0x20922 0x1.4>                            Δ-4                {[«10""»]|[$$CONFIGURE]|[##1]}
            <Const 0x20926 0x2.2>                            Δ-2                {[«10""»]|[$$CONFIGURE]|[##1]|[#2]}
            <Pointer.fp 0x2092a <LVAR -0x004 @>>             Δ-4                {[«10""»]|[$$CONFIGURE]|[##1]|[#2]|[@@-4]}
            <Call 0x2092e 0x103b0>                                              {[«10""»]|[$$CONFIGURE]|[##1]|[#2]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 20934-20938 StackAdj>                       Δ+24               {}
            <Const 0x20938 0x241be.4>                        Δ-4                {[##147902]}
            <Call 0x2093e 0x105a4>                                              {[##147902]}
                Read_fc0c() : Word
            <POP 20944-20946 StackAdj>                       Δ+4                {}
        <POP 20946-2094e Epilogue>                           Σ0         

0x2094e


@ 2094e
    <POP 2094e-2099a Body>                                              
        <POP 2094e-20964 Prologue>                           Σ0         ↓
        <POP 20964-2096a RegCacheLoad>                       Σ0         ↓
        <POP 2096a-20992 Naked>                              Σ0         ↓
            <MI 2096a  CLR.W   0x241d4>                                         {}
            <MI 2096c  CLR.L   D0>                                              {}
            <MI 2096e  MOVE.W  0x241d4,D0>                                      {}
            <MI 20970  MOVE.L  D0,D1>                                           {}
            <MI 20972  ASL.L   #0x8,D1>                                         {}
            <MI 20974  ASL.L   #0x4,D1>                                         {}
            <MI 20976  ADDQ.L  #0x4,D0>                                         {}
            <MI 20978  ASL.L   #0x8,D0>                                         {}
            <MI 2097a  ADD.L   D1,D0>                                           {}
            <MI 2097c  ADDI.L  #0x00000080,D0>                                  {}
            <POP 0x20982 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 2098c  MOVE.W  D0,0x241d2>                                      {}
        <POP 20992-2099a Epilogue>                           Σ0         

0x2099a


@ 2099a
        <LVAR  0x008 1(r)>
        <LVAR -0x003 1(r)>
        <LVAR -0x004 1(w)>
        <LVAR -0x005 1(w)>
        <LVAR -0x006 1(w) 4(r)>
        <LVAR -0x007 1(w)>
        <LVAR -0x008 1(w)>
        <LVAR -0x009 1(w)>
        <LVAR -0x00a 1(w) 4(r)>
        <LVAR -0x00b @ 1(r)>
        <LVAR -0x00c 1(r)>
        <LVAR -0x00d @ 1(r)>
        <LVAR -0x00e @ 1(r)>
        <LVAR -0x00f @ 1(r)>
        <LVAR -0x010 1(r)>
        <LVAR -0x011 @ 1(r)>
        <LVAR -0x012 @ 1(r)>
    <POP 2099a-20ad6 Body>                                   Δ+72       
        <POP 2099a-209b0 Prologue>                           Σ0         ↓
        <POP 209b0-209c2 RegCacheLoad>                       Σ0         ↓
        <POP 209c2-209de Naked>                              Σ0         →0x20a44 →0x20a2c →0x209fa →0x20a14 →0x20a5c →0x20a5c →0x20a5c →0x20a5c
            <MI 209c2  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 209c6  EXTB.W  D0>                                              {}
            <MI 209c8  MOVE.W  D0,D1>                                           {}
            <MI 209ca  SUBQ.W  #0x2,D1>                                         {}
            <POP 0x209cc LimitCheck 0x0 ≤ D1 ≤ 0xd>                             {}
            <MI 209d4  ADD.W   D1,D1>                                           {}
            <MI 209d6  SWITCH  D1.W>                                            {}
        <POP 209fa-20a10 Naked>                              Σ0 Δ-24    ↓ ←0x209c2
            <Pointer.fp 0x209fa <LVAR -0x012 @ 1(r)>>        Δ-4                {[@@-18]}
            <Pointer.fp 0x209fc <LVAR -0x011 @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]}
            <Pointer.fp 0x209fe <LVAR -0x00f @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]}
            <Pointer.fp 0x20a00 <LVAR -0x00e @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]}
            <Pointer.fp 0x20a02 <LVAR -0x00d @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]}
            <Pointer.fp 0x20a06 <LVAR -0x00b @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]|[@@-11]}
            <Call 0x20a0a 0x23476>                                              {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]|[@@-11]}
                exp_READ_NOVRAM_DATA.TYP(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
        <POP 20a10-20a14 Naked>                              Σ-24 Δ+24  →0x20a78 ←0x20a14 ←0x20a2c ←0x20a44
            <POP 20a10-20a12 StackAdj>                       Δ+24               {}
            <MI 20a12  BRA     0x20a78>                                         {}
        <POP 20a14-20a2c Naked>                              Σ0 Δ-24    →0x20a10 ←0x209c2
            <Pointer.fp 0x20a14 <LVAR -0x012 @ 1(r)>>        Δ-4                {[@@-18]}
            <Pointer.fp 0x20a16 <LVAR -0x011 @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]}
            <Pointer.fp 0x20a18 <LVAR -0x00f @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]}
            <Pointer.fp 0x20a1a <LVAR -0x00e @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]}
            <Pointer.fp 0x20a1c <LVAR -0x00d @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]}
            <Pointer.fp 0x20a20 <LVAR -0x00b @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]|[@@-11]}
            <Call 0x20a24 0x2352e>                                              {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]|[@@-11]}
                exp_READ_NOVRAM_DATA.VAL(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
            <MI 20a2a  BRA     0x20a10>                                         {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]|[@@-11]}
        <POP 20a2c-20a44 Naked>                              Σ0 Δ-24    →0x20a10 ←0x209c2
            <Pointer.fp 0x20a2c <LVAR -0x012 @ 1(r)>>        Δ-4                {[@@-18]}
            <Pointer.fp 0x20a2e <LVAR -0x011 @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]}
            <Pointer.fp 0x20a30 <LVAR -0x00f @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]}
            <Pointer.fp 0x20a32 <LVAR -0x00e @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]}
            <Pointer.fp 0x20a34 <LVAR -0x00d @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]}
            <Pointer.fp 0x20a38 <LVAR -0x00b @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]|[@@-11]}
            <Call 0x20a3c 0x23348>                                              {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]|[@@-11]}
                exp_READ_NOVRAM_DATA.FIU(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
            <MI 20a42  BRA     0x20a10>                                         {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]|[@@-11]}
        <POP 20a44-20a5c Naked>                              Σ0 Δ-24    →0x20a10 ←0x209c2
            <Pointer.fp 0x20a44 <LVAR -0x012 @ 1(r)>>        Δ-4                {[@@-18]}
            <Pointer.fp 0x20a46 <LVAR -0x011 @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]}
            <Pointer.fp 0x20a48 <LVAR -0x00f @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]}
            <Pointer.fp 0x20a4a <LVAR -0x00e @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]}
            <Pointer.fp 0x20a4c <LVAR -0x00d @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]}
            <Pointer.fp 0x20a50 <LVAR -0x00b @ 1(r)>>        Δ-4                {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]|[@@-11]}
            <Call 0x20a54 0x233fc>                                              {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]|[@@-11]}
                exp_READ_NOVRAM_DATA.SEQ(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
            <MI 20a5a  BRA     0x20a10>                                         {[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]|[@@-11]}
        <POP 20a5c-20a78 Naked>                              Σ0         ↓ ←0x209c2 ←0x209c2 ←0x209c2 ←0x209c2
            <MI 20a5c  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x20a5e <LVAR -0x012 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-18]}
            <Pointer.fp 0x20a60 <LVAR -0x011 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-18]|[@@-17]}
            <Pointer.fp 0x20a62 <LVAR -0x00f @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]}
            <Pointer.fp 0x20a64 <LVAR -0x00e @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]}
            <Pointer.fp 0x20a66 <LVAR -0x00d @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]}
            <Pointer.fp 0x20a6a <LVAR -0x00b @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]|[@@-11]}
            <Call 0x20a6e 0x235ec>                                              {[2, 'D0']|[@@-18]|[@@-17]|[@@-15]|[@@-14]|[@@-13]|[@@-11]}
            <POP 20a74-20a78 StackAdj>                       Δ+26               {}
        <POP 20a78-20a7e Naked>                              Σ0         ↓ →0x20ace ←0x20a10
            <MI 20a78  TST.B   (A6-0xb)>                                        {}
            <MI 20a7c  BEQ     0x20ace>                                         {}
        <POP 20a7e-20ace Naked>                              Σ0         ↓
            <MI 20a7e  MOVE.B  (A6-0x12),(A6-0xa)>                              {}
            <MI 20a82  MOVE.B  (A6-0x11),(A6-0x9)>                              {}
            <MI 20a86  MOVE.B  (A6-0x10),(A6-0x8)>                              {}
            <MI 20a8c  MOVE.B  (A6-0xf),(A6-0x7)>                               {}
            <MI 20a90  MOVE.B  (A6-0xe),(A6-0x6)>                               {}
            <MI 20a94  MOVE.B  (A6-0xd),(A6-0x5)>                               {}
            <MI 20a9a  MOVE.B  (A6-0xc),(A6-0x4)>                               {}
            <MI 20aa0  CLR.B   (A6-0x3)>                                        {}
            <MI 20aa4  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <MI 20aa8  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']}
            <MI 20aac  PEA.L   (A7)>                         Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[4, '^(A7)']}
            <Const 0x20aae 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[4, '^(A7)']|[##0]}
            <Const 0x20ab2 0x7.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[4, '^(A7)']|[##0]|[##7]}
            <MI 20ab6  ASL.W   #0x3,D0>                                         {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[4, '^(A7)']|[##0]|[##7]}
            <MI 20ab8  LEA.L   0x23e90,A0>                                      {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[4, '^(A7)']|[##0]|[##7]}
            <MI 20abe  LEA.L   (A0+D0.W),A0>                                    {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[4, '^(A7)']|[##0]|[##7]}
            <MI 20ac2  PEA.L   (A0+0x34a)>                   Δ-4                {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[4, '^(A7)']|[##0]|[##7]|[4, '^(A0+0x34a)']}
            <Call 0x20ac6 0x104b4>                                              {[4, '(A6-0x6)']|[4, '(A6-0xa)']|[4, '^(A7)']|[##0]|[##7]|[4, '^(A0+0x34a)']}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 20acc-20ace StackAdj>                       Δ+24               {}
        <POP 20ace-20ad6 Epilogue>                           Σ0         ←0x20a78

0x20ad6


@ 20ad6
        <LVAR -0x001 1(r)>
        <LVAR -0x002 1(w)>
        <LVAR -0x003 1(w)>
        <LVAR -0x004 1(w) 4(r)>
        <LVAR -0x005 1(w)>
        <LVAR -0x006 1(w)>
        <LVAR -0x007 1(w)>
        <LVAR -0x008 1(w) 4(r)>
    <POP 20ad6-20ba2 Body>                                              
        <POP 20ad6-20aec Prologue>                           Σ0         ↓
        <POP 20aec-20af6 RegCacheLoad>                       Σ0         ↓
        <POP 20af6-20b9a Naked>                              Σ0         ↓
            <POP 20af6-20af8 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20af8 0x101.4>                          Δ-4                {[-2-]|[##257]}
            <Call 0x20afc 0x10592>                                              {[-2-]|[##257]}
                ReadConfig(where : Long) : Word
            <POP 20afe-20b00 StackAdj>                       Δ+4                {[-2-]}
            <MI 20b00  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20b02 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20b04  MOVE.B  D0,(A6-0x8)>                                     {}
            <POP 20b08-20b0a StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20b0a 0x102.4>                          Δ-4                {[-2-]|[##258]}
            <Call 0x20b0e 0x10592>                                              {[-2-]|[##258]}
                ReadConfig(where : Long) : Word
            <POP 20b10-20b12 StackAdj>                       Δ+4                {[-2-]}
            <MI 20b12  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20b14 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20b16  MOVE.B  D0,(A6-0x7)>                                     {}
            <POP 20b1a-20b1c StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20b1c 0x103.4>                          Δ-4                {[-2-]|[##259]}
            <Call 0x20b20 0x10592>                                              {[-2-]|[##259]}
                ReadConfig(where : Long) : Word
            <POP 20b22-20b24 StackAdj>                       Δ+4                {[-2-]}
            <MI 20b24  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20b26 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20b28  MOVE.B  D0,(A6-0x6)>                                     {}
            <POP 20b2c-20b2e StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20b2e 0x104.4>                          Δ-4                {[-2-]|[##260]}
            <Call 0x20b32 0x10592>                                              {[-2-]|[##260]}
                ReadConfig(where : Long) : Word
            <POP 20b34-20b36 StackAdj>                       Δ+4                {[-2-]}
            <MI 20b36  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20b38 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20b3a  MOVE.B  D0,(A6-0x5)>                                     {}
            <POP 20b3e-20b40 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20b40 0x105.4>                          Δ-4                {[-2-]|[##261]}
            <Call 0x20b44 0x10592>                                              {[-2-]|[##261]}
                ReadConfig(where : Long) : Word
            <POP 20b46-20b48 StackAdj>                       Δ+4                {[-2-]}
            <MI 20b48  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20b4a LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20b4c  MOVE.B  D0,(A6-0x4)>                                     {}
            <POP 20b50-20b52 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20b52 0x106.4>                          Δ-4                {[-2-]|[##262]}
            <Call 0x20b56 0x10592>                                              {[-2-]|[##262]}
                ReadConfig(where : Long) : Word
            <POP 20b58-20b5a StackAdj>                       Δ+4                {[-2-]}
            <MI 20b5a  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20b5c LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20b5e  MOVE.B  D0,(A6-0x3)>                                     {}
            <POP 20b62-20b64 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20b64 0x107.4>                          Δ-4                {[-2-]|[##263]}
            <Call 0x20b68 0x10592>                                              {[-2-]|[##263]}
                ReadConfig(where : Long) : Word
            <POP 20b6a-20b6c StackAdj>                       Δ+4                {[-2-]}
            <MI 20b6c  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x20b6e LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20b70  MOVE.B  D0,(A6-0x2)>                                     {}
            <MI 20b74  CLR.B   (A6-0x1)>                                        {}
            <MI 20b78  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 20b7c  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
            <MI 20b80  PEA.L   (A7)>                         Δ-4                {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[4, '^(A7)']}
            <Const 0x20b82 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[4, '^(A7)']|[##0]}
            <Const 0x20b86 0x7.4>                            Δ-4                {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[4, '^(A7)']|[##0]|[##7]}
            <Const 0x20b8a 0x241fa.4>                        Δ-4                {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[4, '^(A7)']|[##0]|[##7]|[##147962]}
            <Call 0x20b90 0x104b4>                                              {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[4, '^(A7)']|[##0]|[##7]|[##147962]}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 20b96-20b9a StackAdj>                       Δ+24               {}
        <POP 20b9a-20ba2 Epilogue>                           Σ0         

0x20ba2


@ 20ba2
    <POP 20ba2-20c26 Body>                                              
        <POP 20ba2-20bb8 Prologue>                           Σ0         ↓
        <POP 20bb8-20bbe RegCacheLoad>                       Σ0         ↓
        <POP 20bbe-20bc0 Naked>                              Σ0         ↓
            <MI 20bbe  MOVEQ.L #0x00,D7>                                        {}
        <POP 20bc0-20be2 Naked>                              Σ0         ↓ →0x20bc0 ←0x20bc0
            <MI 20bc0  MOVE.B  D7,D0>                                           {}
            <MI 20bc2  EXTB.W  D0>                                              {}
            <MI 20bc4  ASL.W   #0x3,D0>                                         {}
            <MI 20bc6  LEA.L   0x23e90,A0>                                      {}
            <MI 20bcc  LEA.L   (A0+D0.W),A0>                                    {}
            <MI 20bd0  MOVE.L  0x205aa,(A0+0x34a)>                              {}
            <MI 20bd6  MOVE.L  0x205ae,(A0+0x34e)>                              {}
            <MI 20bdc  ADDQ.B  #0x1,D7>                                         {}
            <MI 20bde  CMP.B   #0x0f,D7>                                        {}
            <MI 20be0  BLE     0x20bc0>                                         {}
        <POP 20be2-20c02 Naked>                              Σ0         ↓
            <Call 0x20be2 0x20ad6>                                              {}
            <Const 0x20be6 0x2.2>                            Δ-2                {[#2]}
            <Call 0x20bea 0x2099a>                                              {[#2]}
            <POP 20bec-20bed StackAdj>                       Δ+2                {}
            <Const 0x20bed 0x3.2>                            Δ-2                {[#3]}
            <Call 0x20bf0 0x2099a>                                              {[#3]}
            <POP 20bf2-20bf3 StackAdj>                       Δ+2                {}
            <Const 0x20bf3 0x6.2>                            Δ-2                {[#6]}
            <Call 0x20bf6 0x2099a>                                              {[#6]}
            <POP 20bf8-20bf9 StackAdj>                       Δ+2                {}
            <Const 0x20bf9 0x7.2>                            Δ-2                {[#7]}
            <Call 0x20bfc 0x2099a>                                              {[#7]}
            <POP 20bfe-20c00 StackAdj>                       Δ+2                {}
            <MI 20c00  MOVEQ.L #0x0c,D7>                                        {}
        <POP 20c02-20c12 Naked>                              Σ0         ↓ →0x20c18 ←0x20c18
            <POP 20c02-20c04 StackAdj>                       Δ-2                {[-2-]}
            <MI 20c04  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x20c06 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20c0c-20c0e StackAdj>                       Δ+2                {[-2-]}
            <MI 20c0e  TST.B   (A7)+>                        Δ+2                {}
            <MI 20c10  BEQ     0x20c18>                                         {}
        <POP 20c12-20c18 Naked>                              Σ0         ↓
            <MI 20c12  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x20c14 0x2099a>                                              {[2, 'D7']}
            <POP 20c16-20c18 StackAdj>                       Δ+2                {}
        <POP 20c18-20c1e Naked>                              Σ0         ↓ →0x20c02 ←0x20c02
            <MI 20c18  ADDQ.B  #0x1,D7>                                         {}
            <MI 20c1a  CMP.B   #0x0f,D7>                                        {}
            <MI 20c1c  BLE     0x20c02>                                         {}
        <POP 20c1e-20c26 Epilogue>                           Σ0         

0x20c26


@ 20c26
        <LVAR  0x008 4(r)>
        <LVAR -0x004 1(rw)>
    <POP 20c26-20d3c Body>                                              
        <POP 20c26-20c3c Prologue>                           Σ0         ↓
        <POP 20c3c-20c44 RegCacheLoad>                       Σ0         ↓
        <POP 20c44-20c5e Naked>                              Σ0         ↓ →0x20c96
            <Const 0x20c44 0x5.2>                            Δ-2                {[#5]}
            <Const 0x20c48 0x2.2>                            Δ-2                {[#5]|[#2]}
            <Call 0x20c4c 0x1048a>                                              {[#5]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 20c52-20c54 StackAdj>                       Δ+4                {}
            <MI 20c54  MOVE.B  0x241bf,D0>                                      {}
            <MI 20c5a  LSR.B   #0x7,D0>                                         {}
            <MI 20c5c  BNE     0x20c96>                                         {}
        <POP 20c5e-20c70 Naked>                              Σ0         ↓ →0x20c78
            <MI 20c5e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20c62  MOVE.B  #0x01,(A0)>                                      {}
            <POP 20c64-20c66 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x20c66 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 20c6c  TST.B   (A7)+>                        Δ+2                {}
            <MI 20c6e  BEQ     0x20c78>                                         {}
        <POP 20c70-20c78 Naked>                              Σ0         →0x20c7e
            <Call 0x20c70 0x232ee>                                              {}
                exp_LOAD_HRAM_8_0.FIU()
            <MI 20c76  BRA     0x20c7e>                                         {}
        <POP 20c78-20c7e Naked>                              Σ0         ↓ ←0x20c5e
            <Call 0x20c78 0x2330c>                                              {}
                exp_LOAD_HRAM_32_0.FIU()
        <POP 20c7e-20c96 Naked>                              Σ0         ↓ ←0x20c70
            <Call 0x20c7e 0x2338a>                                              {}
                exp_LOAD_HRAM_1.FIU()
            <Call 0x20c84 0x235aa>                                              {}
                exp_ALIGN_CSA.VAL()
            <Call 0x20c8a 0x23514>                                              {}
                exp_ALIGN_CSA.TYP()
            <Call 0x20c90 0x105c2>                                              {}
                Or_fc0c_80(void)
        <POP 20c96-20c9a Naked>                              Σ0         ↓ ←0x20c44
            <MI 20c96  CLR.B   (A6-0x4)>                                        {}
            <MI 20c98  MOVEQ.L #0x0c,D7>                                        {}
        <POP 20c9a-20caa Naked>                              Σ0         ↓ →0x20cb6 ←0x20cb6
            <POP 20c9a-20c9c StackAdj>                       Δ-2                {[-2-]}
            <MI 20c9c  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x20c9e 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20ca4-20ca6 StackAdj>                       Δ+2                {[-2-]}
            <MI 20ca6  TST.B   (A7)+>                        Δ+2                {}
            <MI 20ca8  BEQ     0x20cb6>                                         {}
        <POP 20caa-20cb6 Naked>                              Σ0         ↓
            <MI 20caa  CLR.L   D0>                                              {}
            <MI 20cac  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 20cae  ADDQ.W  #0x1,D0>                                         {}
            <POP 0x20cb0 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20cb4  MOVE.B  D0,(A6-0x4)>                                     {}
        <POP 20cb6-20cbc Naked>                              Σ0         ↓ →0x20c9a ←0x20c9a
            <MI 20cb6  ADDQ.B  #0x1,D7>                                         {}
            <MI 20cb8  CMP.B   #0x0f,D7>                                        {}
            <MI 20cba  BLE     0x20c9a>                                         {}
        <POP 20cbc-20cbe Naked>                              Σ0         ↓
            <MI 20cbc  MOVEQ.L #0x0c,D7>                                        {}
        <POP 20cbe-20cce Naked>                              Σ0         ↓ →0x20d10 ←0x20d10
            <POP 20cbe-20cc0 StackAdj>                       Δ-2                {[-2-]}
            <MI 20cc0  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x20cc2 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20cc8-20cca StackAdj>                       Δ+2                {[-2-]}
            <MI 20cca  TST.B   (A7)+>                        Δ+2                {}
            <MI 20ccc  BEQ     0x20d10>                                         {}
        <POP 20cce-20d10 Naked>                              Σ0         ↓
            <MI 20cce  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <POP 20cd0-20cd2 StackAdj>                       Δ-2                {[2, 'D7']|[-2-]}
            <MI 20cd2  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']|[-2-]|[2, 'D7']}
            <Call 0x20cd4 0x104c6>                                              {[2, 'D7']|[-2-]|[2, 'D7']}
                EQ_1c218(a : Byte) : Bool
            <POP 20cda-20cdc StackAdj>                       Δ+2                {[2, 'D7']|[-2-]}
            <MI 20cdc  MOVE.B  (A7),D0>                                         {[2, 'D7']|[-2-]}
            <MI 20cde  EXTB.W  D0>                                              {[2, 'D7']|[-2-]}
            <POP 0x20ce0 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']|[-2-]}
            <MI 20ce2  MOVE.B  D0,(A7)>                                         {[2, 'D7']|[-2-]}
            <POP 20ce4-20ce6 StackAdj>                       Δ-2                {[2, 'D7']|[-4-]}
            <Call 0x20ce6 0x104cc>                                              {[2, 'D7']|[-4-]}
                MemOnly2MB() : Bool
            <MI 20cec  MOVE.B  (A7),D0>                                         {[2, 'D7']|[-4-]}
            <MI 20cee  EXTB.W  D0>                                              {[2, 'D7']|[-4-]}
            <POP 0x20cf0 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[2, 'D7']|[-4-]}
            <MI 20cf2  MOVE.B  D0,(A7)>                                         {[2, 'D7']|[-4-]}
            <MI 20cf4  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[2, 'D7']|[-4-]|[2, '(A6-0x4)']}
            <Call 0x20cf6 0x2386c>                                              {[2, 'D7']|[-4-]|[2, '(A6-0x4)']}
            <POP 20cfc-20cfe StackAdj>                       Δ+6                {[2, 'D7']}
            <MI 20cfe  MOVE.B  D7,(A7)>                                         {[-2-]}
            <Call 0x20d00 0x23954>                                              {[-2-]}
            <MI 20d06  MOVE.B  D7,(A7)>                                         {[-2-]}
            <Call 0x20d08 0x23a08>                                              {[-2-]}
            <POP 20d0e-20d10 StackAdj>                       Δ+2                {}
        <POP 20d10-20d16 Naked>                              Σ0         ↓ →0x20cbe ←0x20cbe
            <MI 20d10  ADDQ.B  #0x1,D7>                                         {}
            <MI 20d12  CMP.B   #0x0f,D7>                                        {}
            <MI 20d14  BLE     0x20cbe>                                         {}
        <POP 20d16-20d34 Naked>                              Σ0         ↓
            <Call 0x20d16 0x233de>                                              {}
                exp_CLEAR_PARITY.FIU()
            <Call 0x20d1c 0x2358c>                                              {}
                exp_CLEAR_PARITY.VAL()
            <Call 0x20d22 0x234f6>                                              {}
                exp_CLEAR_PARITY.TYP()
            <Call 0x20d28 0x23458>                                              {}
                exp_CLEAR_PARITY.SEQ()
            <Call 0x20d2e 0x105b0>                                              {}
                FifoInit(void)
        <POP 20d34-20d3c Epilogue>                           Σ0         

0x20d3c


@ 20d3c
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c @ 4(r)>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x004 @ 4(rw)>
        <LVAR -0x006 @>
        <LVAR -0x025 1(rw)>
        <LVAR -0x026 @>
        <LVAR -0x02a @>
        <LVAR -0x02c @ 1(r)>
    <POP 20d3c-20ee6 Body>                                   Δ+30       
        <POP 20d3c-20d52 Prologue>                           Σ0         ↓
        <POP 20d52-20d6a RegCacheLoad>                       Σ0         ↓
        <POP 20d6a-20d72 Naked>                              Σ0         ↓ →0x20d84
            <MI 20d6a  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 20d6e  TST.B   (A0)>                                            {}
            <MI 20d70  BEQ     0x20d84>                                         {}
        <POP 20d72-20d84 Naked>                              Σ0         →0x20d90
            <MI 20d72  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 20d76  LEA.L   (A6-0x26),A1>                                    {}
            <BlockMove 32,A0,A1>                                                {}
            <MI 20d82  BRA     0x20d90>                                         {}
        <POP 20d84-20d90 Naked>                              Σ0         ↓ ←0x20d6a
            <MI 20d84  LEA.L   (A6-0x26),A1>                                    {}
            <BlockMove 32,A0,A1>                                                {}
        <POP 20d90-20d96 Naked>                              Σ0         ↓ →0x20da2 ←0x20d72 ←0x20ea0
            <MI 20d90  TST.B   (A6-0x25)>                                       {}
            <MI 20d94  BNE     0x20da2>                                         {}
        <POP 20d96-20da2 Naked>                              Σ0 Δ-30    →0x20e16
            <Blob 0x20d96 [30] (A6-0x6)>                     Δ-30               {[«30»]}
            <MI 20da0  BRA     0x20e16>                                         {[«30»]}
        <POP 20da2-20e02 Naked>                              Σ0         ↓ →0x20e28 ←0x20d90
            <Blob 0x20da2 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x20da6 [30] (A6-0x6)>                     Δ-30               {[«2""»]|[«30»]}
            <Blob 0x20db0 [4] @>                             Δ-4                {[«2""»]|[«30»]|[«4""»]}
            <POP 20db4-20db6 StackAdj>                       Δ-12               {[«2""»]|[«30»]|[«4""»]|[-12-]}
            <MI 20db6  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[«2""»]|[«30»]|[«4""»]|[-12-]|[4, '(A6+0xc)']}
            <Call 0x20dba 0x102cc>                                              {[«2""»]|[«30»]|[«4""»]|[-12-]|[4, '(A6+0xc)']}
                StringDup(a : String) : String
            <Lit 0x20dc0 2>                                                     {[«2""»]|[«30»]|[«4""»]|[-12-]|[$$ []}
            <POP 20dca-20dcc StackAdj>                       Δ-4                {[«2""»]|[«30»]|[«4""»]|[-12-]|[$$ []|[-4-]}
            <Lit 0x20dcc>                                                       {[«2""»]|[«30»]|[«4""»]|[-12-]|[$$ []|[$$…]}
                <Pointer.sp 0x20dcc 24>                      Δ-4        
                <Const 0x20dd0 0x1.2>                        Δ-2        
                <Const 0x20dd2 0x1e.2>                       Δ-2        
                <Call 0x20dd4 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20dd6-20dd8 StackAdj>                   Δ+8        
            <POP 20dd6-20dd8 StackAdj>                       Δ-4                {[«2""»]|[«30»]|[«4""»]|[-12-]|[$$ []|[$$…]|[-4-]}
            <Lit 0x20dd8 4>                                                     {[«2""»]|[«30»]|[«4""»]|[-12-]|[$$ []|[$$…]|[$$] :_]}
            <Call 0x20de6 0x102d8>                                              {[«2""»]|[«30»]|[«4""»]|[-12-]|[$$ []|[$$…]|[$$] :_]}
                StringCat4(a, b, c, d : String) : String
            <POP 20dec-20dee StackAdj>                       Δ+16               {[«2""»]|[«30»]|[«4""»]|[-8-]}
            <Call 0x20dee 0x103e4>                                              {[«2""»]|[«30»]|[«4""»]|[-8-]}
                AskConsoleString(prompt : String) : String
            <POP 20df4-20df6 StackAdj>                       Δ+4                {[«2""»]|[«30»]|[«4""»]|[-4-]}
            <MI 20df6  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {[«2""»]|[«30»]|[«4""»]}
            <POP 20df8-20dfc StackAdj>                       Δ+36               {}
            <MI 20dfc  MOVEA.L (A6-0x4),A0>                                     {}
            <MI 20dfe  TST.W   (A0)>                                            {}
            <MI 20e00  BNE     0x20e28>                                         {}
        <POP 20e02-20e16 Naked>                              Σ0 Δ-30    ↓
            <Pointer.fp 0x20e02 <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x20e04 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 20e0a-20e0c StackAdj>                       Δ+4                {}
            <Blob 0x20e0c [30] (A6-0x6)>                     Δ-30               {[«30»]}
        <POP 20e16-20e28 Naked>                              Σ-30 Δ+30  ↓ ←0x20d96
            <POP 20e16-20e18 StackAdj>                       Δ-4                {[-34-]}
            <Lit 0x20e18>                                                       {[-30-]|[$$…]}
                <Pointer.sp 0x20e18 4>                       Δ-4        
                <Const 0x20e1c 0x1.2>                        Δ-2        
                <Const 0x20e1e 0x1e.2>                       Δ-2        
                <Call 0x20e20 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20e22-20e24 StackAdj>                   Δ+8        
            <MI 20e24  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {[-30-]}
            <POP 20e26-20e28 StackAdj>                       Δ+30               {}
        <POP 20e28-20e48 Naked>                              Σ0         ↓ →0x20e64 ←0x20da2
            <POP 20e28-20e2a StackAdj>                       Δ-4                {[-4-]}
            <MI 20e2a  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x4)']}
            <Call 0x20e2c 0x102f0>                                              {[-4-]|[4, '(A6-0x4)']}
                ToUpper(a : String) : String
            <POP 20e32-20e34 StackAdj>                       Δ+4                {[-4-]}
            <MI 20e34  MOVE.L  (A7),(A6-0x4)>                                   {[-4-]}
            <MI 20e36  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x4)']}
            <MI 20e38  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x4)']|[4, '(A6+0x8)']}
            <Call 0x20e3c 0x10300>                                              {[-4-]|[4, '(A6-0x4)']|[4, '(A6+0x8)']}
                FSCALL_10300
            <POP 20e42-20e44 StackAdj>                       Δ+8                {[-4-]}
            <MI 20e44  TST.L   (A7)+>                        Δ+4                {}
            <MI 20e46  BNE     0x20e64>                                         {}
        <POP 20e48-20e64 Naked>                              Σ0         ↓
            <POP 20e48-20e4a StackAdj>                       Δ-4                {[-4-]}
            <MI 20e4a  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x4)']}
            <POP 20e4c-20e4e StackAdj>                       Δ-4                {[-4-]|[4, '(A6-0x4)']|[-4-]}
            <MI 20e4e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x4)']|[-4-]|[4, '(A6+0x8)']}
            <Call 0x20e52 0x102cc>                                              {[-4-]|[4, '(A6-0x4)']|[-4-]|[4, '(A6+0x8)']}
                StringDup(a : String) : String
            <POP 20e58-20e5a StackAdj>                       Δ+4                {[-4-]|[4, '(A6-0x4)']|[-4-]}
            <Call 0x20e5a 0x102d0>                                              {[-4-]|[4, '(A6-0x4)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20e60-20e62 StackAdj>                       Δ+8                {[-4-]}
            <MI 20e62  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {}
        <POP 20e64-20e86 Naked>                              Σ0         ↓ →0x20ea0 ←0x20e28
            <MI 20e64  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 20e66  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x4)']|[#0]}
            <Const 0x20e68 0x1.2>                            Δ-2                {[4, '(A6-0x4)']|[#0]|[#1]}
            <Const 0x20e6a 0x0.4>                            Δ-4                {[4, '(A6-0x4)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x20e6e <LVAR -0x02c @ 1(r)>>        Δ-4                {[4, '(A6-0x4)']|[#0]|[#1]|[##0]|[@@-44]}
            <Pointer.fp 0x20e72 <LVAR -0x02a @>>             Δ-4                {[4, '(A6-0x4)']|[#0]|[#1]|[##0]|[@@-44]|[@@-42]}
            <Call 0x20e76 0x10380>                                              {[4, '(A6-0x4)']|[#0]|[#1]|[##0]|[@@-44]|[@@-42]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20e7c-20e80 StackAdj>                       Δ+20               {}
            <MI 20e80  TST.B   (A6-0x2c)>                                       {}
            <MI 20e84  BNE     0x20ea0>                                         {}
        <POP 20e86-20ea0 Naked>                              Σ0         →0x20eb2
            <MI 20e86  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20e88 0x2.2>                            Δ-2                {[#0]|[#2]}
            <Const 0x20e8a 0x1.4>                            Δ-4                {[#0]|[#2]|[##1]}
            <Pointer.fp 0x20e8e <LVAR -0x02c @ 1(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-44]}
            <Pointer.fp 0x20e92 <LVAR -0x02a @>>             Δ-4                {[#0]|[#2]|[##1]|[@@-44]|[@@-42]}
            <Call 0x20e96 0x1038c>                                              {[#0]|[#2]|[##1]|[@@-44]|[@@-42]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20e9c-20e9e StackAdj>                       Δ+16               {}
            <MI 20e9e  BRA     0x20eb2>                                         {}
        <POP 20ea0-20eb2 Naked>                              Σ0         →0x20d90 ←0x20e64
            <Pointer.fp 0x20ea0 <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x20ea2 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 20ea8-20eaa StackAdj>                       Δ+4                {}
            <MI 20eaa  MOVE.B  #0x01,(A6-0x25)>                                 {}
            <MI 20eae  BRA     0x20d90>                                         {}
        <POP 20eb2-20ede Naked>                              Σ0         ↓ ←0x20e86
            <MI 20eb2  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 20eb4  MOVEA.L (A6+0x14),A0>                                    {[4, '(A6-0x4)']}
            <MI 20eb8  PEA.L   (A0+0x2)>                     Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x2)']}
            <Pointer.fp 0x20ebc <LVAR -0x006 @>>             Δ-4                {[4, '(A6-0x4)']|[4, '^(A0+0x2)']|[@@-6]}
            <Call 0x20ebe 0x1058c>                                              {[4, '(A6-0x4)']|[4, '^(A0+0x2)']|[@@-6]}
                FSCALL_1058c
            <POP 20ec4-20ec6 StackAdj>                       Δ+12               {}
            <Pointer.fp 0x20ec6 <LVAR  0x00c @ 4(r)>>        Δ-4                {[@@12]}
            <Call 0x20eca 0x102bc>                                              {[@@12]}
                FreeString(VAR a : String)
            <POP 20ed0-20ed2 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x20ed2 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x20ed6 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 20edc-20ede StackAdj>                       Δ+4                {}
        <POP 20ede-20ee6 Epilogue>                           Σ0         

0x20ee6


@ 20ee6
        <LVAR  0x008 1(r)>
        <LVAR -0x002 @>
    <POP 20ee6-20f92 Body>                                              
        <POP 20ee6-20efc Prologue>                           Σ0         ↓
        <POP 20efc-20f06 RegCacheLoad>                       Σ0         ↓
        <POP 20f06-20f8a Naked>                              Σ0         ↓
            <Blob 0x20f06 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x20f12 [12] @>                            Δ-12               {[«14""»]|[«12""»]}
            <Const 0x20f22 0x23ecb.4>                        Δ-4                {[«14""»]|[«12""»]|[##147147]}
            <Const 0x20f28 0x2405d.4>                        Δ-4                {[«14""»]|[«12""»]|[##147147]|[##147549]}
            <POP 20f2e-20f30 StackAdj>                       Δ-4                {[«14""»]|[«12""»]|[##147147]|[##147549]|[-4-]}
            <Lit 0x20f30 14>                                                    {[«14""»]|[«12""»]|[##147147]|[##147549]|[$$Microcode file]}
            <POP 20f3c-20f3e StackAdj>                       Δ-4                {[«14""»]|[«12""»]|[##147147]|[##147549]|[$$Microcode file]|[-4-]}
            <Lit 0x20f3e 11>                                                    {[«14""»]|[«12""»]|[##147147]|[##147549]|[$$Microcode file]|[$$.M200_UCODE]}
            <Call 0x20f4c 0x20d3c>                                              {[«14""»]|[«12""»]|[##147147]|[##147549]|[$$Microcode file]|[$$.M200_UCODE]}
            <POP 20f50-20f51 StackAdj>                       Δ+42       ↓       {}
            <Blob 0x20f51 [30] 0x23ecd>                      Δ-30               {[«30»]}
            <MI 20f62  CLR.B   -(A7)>                        Δ-2                {[«30»]|[#0]}
            <POP 20f64-20f66 StackAdj>                       Δ-4                {[«30»]|[#0]|[-4-]}
            <Lit 0x20f66>                                                       {[«30»]|[#0]|[$$…]}
                <Pointer.sp 0x20f66 6>                       Δ-4        
                <Const 0x20f6a 0x1.2>                        Δ-2        
                <Const 0x20f6c 0x1e.2>                       Δ-2        
                <Call 0x20f70 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20f72-20f74 StackAdj>                   Δ+8        
            <POP 20f72-20f74 StackAdj>                       Δ-2                {[«30»]|[#0]|[$$…]|[-2-]}
            <MI 20f74  MOVE.B  (A6+0x8),(A7)>                                   {[«30»]|[#0]|[$$…]|[-2-]}
            <Const 0x20f78 0x1.2>                            Δ-2                {[«30»]|[#0]|[$$…]|[-2-]|[#1]}
            <MI 20f7a  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[«30»]|[#0]|[$$…]|[-2-]|[#1]|[2, '(A6+0x8)']}
            <Pointer.fp 0x20f7e <LVAR -0x002 @>>             Δ-4                {[«30»]|[#0]|[$$…]|[-2-]|[#1]|[2, '(A6+0x8)']|[@@-2]}
            <Call 0x20f82 0x2069e>                                              {[«30»]|[#0]|[$$…]|[-2-]|[#1]|[2, '(A6+0x8)']|[@@-2]}
            <POP 20f86-20f8a StackAdj>                       Δ+46               {}
        <POP 20f8a-20f92 Epilogue>                           Σ0         

0x20f92


@ 20f92
        <LVAR -0x004 1(rw)>
    <POP 20f92-210fe Body>                                              
        <POP 20f92-20fa8 Prologue>                           Σ0         ↓
        <POP 20fa8-20fd0 RegCacheLoad>                       Σ0         ↓
        <POP 20fd0-20fe2 Naked>                              Σ0         ↓ →0x20fe6
            <Call 0x20fd0 0x234d4>                                              {}
                exp_LOAD_BENIGN_UWORD.TYP()
            <POP 20fd6-20fd8 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x20fd8 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 20fde  TST.B   (A7)+>                        Δ+2                {}
            <MI 20fe0  BEQ     0x20fe6>                                         {}
        <POP 20fe2-20fe6 Naked>                              Σ0         →0x20fea
            <MI 20fe2  CLR.B   (A6-0x4)>                                        {}
            <MI 20fe4  BRA     0x20fea>                                         {}
        <POP 20fe6-20fea Naked>                              Σ0         ↓ ←0x20fd0
            <MI 20fe6  MOVE.B  #0xff,(A6-0x4)>                                  {}
        <POP 20fea-20ff6 Naked>                              Σ0         ↓ →0x20ffe ←0x20fe2
            <POP 20fea-20fec StackAdj>                       Δ-2                {[-2-]}
            <Const 0x20fec 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x20fee 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20ff0-20ff2 StackAdj>                       Δ+2                {[-2-]}
            <MI 20ff2  TST.B   (A7)+>                        Δ+2                {}
            <MI 20ff4  BEQ     0x20ffe>                                         {}
        <POP 20ff6-20ffe Naked>                              Σ0         ↓
            <Const 0x20ff6 0xc.2>                            Δ-2                {[#12]}
            <MI 20ff8  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[#12]|[2, '(A6-0x4)']}
            <Call 0x20ffa 0x236f8>                                              {[#12]|[2, '(A6-0x4)']}
            <POP 20ffc-20ffe StackAdj>                       Δ+4                {}
        <POP 20ffe-2100a Naked>                              Σ0         ↓ →0x21012 ←0x20fea
            <POP 20ffe-21000 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21000 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x21002 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 21004-21006 StackAdj>                       Δ+2                {[-2-]}
            <MI 21006  TST.B   (A7)+>                        Δ+2                {}
            <MI 21008  BEQ     0x21012>                                         {}
        <POP 2100a-21012 Naked>                              Σ0         ↓
            <Const 0x2100a 0xd.2>                            Δ-2                {[#13]}
            <MI 2100c  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[#13]|[2, '(A6-0x4)']}
            <Call 0x2100e 0x236f8>                                              {[#13]|[2, '(A6-0x4)']}
            <POP 21010-21012 StackAdj>                       Δ+4                {}
        <POP 21012-2101e Naked>                              Σ0         ↓ →0x21026 ←0x20ffe
            <POP 21012-21014 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21014 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x21016 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 21018-2101a StackAdj>                       Δ+2                {[-2-]}
            <MI 2101a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2101c  BEQ     0x21026>                                         {}
        <POP 2101e-21026 Naked>                              Σ0         ↓
            <Const 0x2101e 0xe.2>                            Δ-2                {[#14]}
            <MI 21020  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[#14]|[2, '(A6-0x4)']}
            <Call 0x21022 0x236f8>                                              {[#14]|[2, '(A6-0x4)']}
            <POP 21024-21026 StackAdj>                       Δ+4                {}
        <POP 21026-21032 Naked>                              Σ0         ↓ →0x2103a ←0x21012
            <POP 21026-21028 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21028 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x2102a 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2102c-2102e StackAdj>                       Δ+2                {[-2-]}
            <MI 2102e  TST.B   (A7)+>                        Δ+2                {}
            <MI 21030  BEQ     0x2103a>                                         {}
        <POP 21032-2103a Naked>                              Σ0         ↓
            <Const 0x21032 0xf.2>                            Δ-2                {[#15]}
            <MI 21034  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[#15]|[2, '(A6-0x4)']}
            <Call 0x21036 0x236f8>                                              {[#15]|[2, '(A6-0x4)']}
            <POP 21038-2103a StackAdj>                       Δ+4                {}
        <POP 2103a-2104c Naked>                              Σ0         ↓ →0x21052 ←0x21026
            <Call 0x2103a 0x233a6>                                              {}
                exp_INIT_MRU.FIU()
            <POP 21040-21042 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21042 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x21044 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 21046-21048 StackAdj>                       Δ+2                {[-2-]}
            <MI 21048  TST.B   (A7)+>                        Δ+2                {}
            <MI 2104a  BEQ     0x21052>                                         {}
        <POP 2104c-21052 Naked>                              Σ0         ↓
            <Const 0x2104c 0xc.2>                            Δ-2                {[#12]}
            <Call 0x2104e 0x23ab2>                                              {[#12]}
            <POP 21050-21052 StackAdj>                       Δ+2                {}
        <POP 21052-2105e Naked>                              Σ0         ↓ →0x21064 ←0x2103a
            <POP 21052-21054 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21054 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x21056 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 21058-2105a StackAdj>                       Δ+2                {[-2-]}
            <MI 2105a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2105c  BEQ     0x21064>                                         {}
        <POP 2105e-21064 Naked>                              Σ0         ↓
            <Const 0x2105e 0xd.2>                            Δ-2                {[#13]}
            <Call 0x21060 0x23ab2>                                              {[#13]}
            <POP 21062-21064 StackAdj>                       Δ+2                {}
        <POP 21064-21070 Naked>                              Σ0         ↓ →0x21076 ←0x21052
            <POP 21064-21066 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21066 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x21068 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2106a-2106c StackAdj>                       Δ+2                {[-2-]}
            <MI 2106c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2106e  BEQ     0x21076>                                         {}
        <POP 21070-21076 Naked>                              Σ0         ↓
            <Const 0x21070 0xe.2>                            Δ-2                {[#14]}
            <Call 0x21072 0x23ab2>                                              {[#14]}
            <POP 21074-21076 StackAdj>                       Δ+2                {}
        <POP 21076-21082 Naked>                              Σ0         ↓ →0x21088 ←0x21064
            <POP 21076-21078 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21078 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x2107a 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2107c-2107e StackAdj>                       Δ+2                {[-2-]}
            <MI 2107e  TST.B   (A7)+>                        Δ+2                {}
            <MI 21080  BEQ     0x21088>                                         {}
        <POP 21082-21088 Naked>                              Σ0         ↓
            <Const 0x21082 0xf.2>                            Δ-2                {[#15]}
            <Call 0x21084 0x23ab2>                                              {[#15]}
            <POP 21086-21088 StackAdj>                       Δ+2                {}
        <POP 21088-210ba Naked>                              Σ0         ↓ →0x210c0 ←0x21076
            <Const 0x21088 0x145.2>                          Δ-2                {[#325]}
            <Call 0x2108a 0x234ba>                                              {[#325]}
                exp_PREP_RUN.TYP(Sw_2)
            <POP 21090-21091 StackAdj>                       Δ+2                {}
            <Const 0x21091 0x145.2>                          Δ-2                {[#325]}
            <Call 0x21092 0x23572>                                              {[#325]}
                exp_PREP_RUN.VAL(Sw_2)
            <POP 21098-21099 StackAdj>                       Δ+2                {}
            <Const 0x21099 0x145.2>                          Δ-2                {[#325]}
            <Call 0x2109a 0x23b50>                                              {[#325]}
                exp_PREP_RUN.IOC(Sw_2)
            <POP 210a0-210a1 StackAdj>                       Δ+2                {}
            <Const 0x210a1 0x145.2>                          Δ-2                {[#325]}
            <Call 0x210a2 0x2343e>                                              {[#325]}
                exp_PREP_RUN.SEQ(Sw_2)
            <POP 210a8-210a9 StackAdj>                       Δ+2                {}
            <Const 0x210a9 0x145.2>                          Δ-2                {[#325]}
            <Call 0x210aa 0x23370>                                              {[#325]}
                exp_PREP_RUN.FIU(Sw_2)
            <Const 0x210b0 0xc.2>                            Δ-2                {[#325]|[#12]}
            <Call 0x210b2 0x104c0>                                              {[#325]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 210b4-210b6 StackAdj>                       Δ+2                {[#325]}
            <MI 210b6  TST.B   (A7)+>                        Δ+2                {}
            <MI 210b8  BEQ     0x210c0>                                         {}
        <POP 210ba-210c0 Naked>                              Σ0         ↓
            <Const 0x210ba 0xc.2>                            Δ-2                {[#12]}
            <Call 0x210bc 0x23a08>                                              {[#12]}
            <POP 210be-210c0 StackAdj>                       Δ+2                {}
        <POP 210c0-210cc Naked>                              Σ0         ↓ →0x210d2 ←0x21088
            <POP 210c0-210c2 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x210c2 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x210c4 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 210c6-210c8 StackAdj>                       Δ+2                {[-2-]}
            <MI 210c8  TST.B   (A7)+>                        Δ+2                {}
            <MI 210ca  BEQ     0x210d2>                                         {}
        <POP 210cc-210d2 Naked>                              Σ0         ↓
            <Const 0x210cc 0xd.2>                            Δ-2                {[#13]}
            <Call 0x210ce 0x23a08>                                              {[#13]}
            <POP 210d0-210d2 StackAdj>                       Δ+2                {}
        <POP 210d2-210de Naked>                              Σ0         ↓ →0x210e4 ←0x210c0
            <POP 210d2-210d4 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x210d4 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x210d6 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 210d8-210da StackAdj>                       Δ+2                {[-2-]}
            <MI 210da  TST.B   (A7)+>                        Δ+2                {}
            <MI 210dc  BEQ     0x210e4>                                         {}
        <POP 210de-210e4 Naked>                              Σ0         ↓
            <Const 0x210de 0xe.2>                            Δ-2                {[#14]}
            <Call 0x210e0 0x23a08>                                              {[#14]}
            <POP 210e2-210e4 StackAdj>                       Δ+2                {}
        <POP 210e4-210f0 Naked>                              Σ0         ↓ →0x210f6 ←0x210d2
            <POP 210e4-210e6 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x210e6 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x210e8 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 210ea-210ec StackAdj>                       Δ+2                {[-2-]}
            <MI 210ec  TST.B   (A7)+>                        Δ+2                {}
            <MI 210ee  BEQ     0x210f6>                                         {}
        <POP 210f0-210f6 Naked>                              Σ0         ↓
            <Const 0x210f0 0xf.2>                            Δ-2                {[#15]}
            <Call 0x210f2 0x23a08>                                              {[#15]}
            <POP 210f4-210f6 StackAdj>                       Δ+2                {}
        <POP 210f6-210fe Epilogue>                           Σ0         ←0x210e4

0x210fe


@ 210fe
        <LVAR -0x002 @ 2(w)>
        <LVAR -0x004 @>
    <POP 210fe-21242 Body>                                              
        <POP 210fe-21114 Prologue>                           Σ0         ↓
        <POP 21114-2112c RegCacheLoad>                       Σ0         ↓
        <POP 2112c-21138 Naked>                              Σ0         ↓ →0x211a4
            <Call 0x2112c 0x20f92>                                              {}
            <MI 21130  TST.B   0x23e9e>                                         {}
            <MI 21136  BEQ     0x211a4>                                         {}
        <POP 21138-21164 Naked>                              Σ0 Δ-58    ↓ →0x211a2
            <Blob 0x21138 [58] @>                            Δ-58               {[«58""»]}
            <POP 21144-21146 StackAdj>                       Δ-6                {[«58""»]|[-6-]}
            <Lit 0x21146 58>                                                    {[«58""»]|[-2-]|[$$Do you want to enter the CLI prior to starting the machine]}
            <POP 21154-21156 StackAdj>                       Δ-2                {[«58""»]|[-2-]|[$$Do you want to enter the CLI prior to starting the machine]|[-2-]}
            <MI 21156  CLR.B   (A7)>                                            {[«58""»]|[-2-]|[$$Do you want to enter the CLI prior to starting the machine]|[-2-]}
            <Call 0x21158 0x103f0>                                              {[«58""»]|[-2-]|[$$Do you want to enter the CLI prior to starting the machine]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 2115e-21160 StackAdj>                       Δ+6                {[«58""»]|[-2-]}
            <MI 21160  TST.B   (A7)+>                        Δ+2                {[«58""»]}
            <MI 21162  BEQ     0x211a2>                                         {[«58""»]}
        <POP 21164-211a2 Naked>                              Σ-58       ↓
            <POP 21164-21166 StackAdj>                       Δ-4                {[-62-]}
            <POP 21166-21167 StackAdj>                       Δ+2                {[-60-]}
            <Blob 0x21167 [2] @>                             Δ-2                {[-60-]|[«2""»]}
            <MI 2116a  MOVE.B  0x201bd,(A7+0x1)>                                {[-60-]|[«2""»]}
            <MI 21170  MOVE.B  0x201be,(A7+0x2)>                                {[-60-]|[«2""»]}
            <POP 21176-21178 StackAdj>                       Δ-4                {[-60-]|[«2""»]|[-4-]}
            <Lit 0x21178>                                                       {[-60-]|[«2""»]|[$$…]}
                <Pointer.sp 0x21178 4>                       Δ-4        
                <Const 0x2117c 0x1.2>                        Δ-2        
                <Const 0x2117e 0x3.2>                        Δ-2        
                <Call 0x21182 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21188-2118a StackAdj>                   Δ+8        
            <Const 0x2118a 0x1.4>                            Δ-4                {[-60-]|[«2""»]|[$$…]|[##1]}
            <Const 0x2118e 0x1.2>                            Δ-2                {[-60-]|[«2""»]|[$$…]|[##1]|[#1]}
            <Pointer.fp 0x21190 <LVAR -0x004 @>>             Δ-4                {[-60-]|[«2""»]|[$$…]|[##1]|[#1]|[@@-4]}
            <Call 0x21194 0x103b0>                                              {[-60-]|[«2""»]|[$$…]|[##1]|[#1]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 2119a-2119e StackAdj>                       Δ+18               {[-58-]}
            <Call 0x2119e 0x20f92>                                              {[-58-]}
        <POP 211a2-211a4 Naked>                              Σ-58 Δ+58  ↓ ←0x21138
            <POP 211a2-211a4 StackAdj>                       Δ+58               {}
        <POP 211a4-211ce Naked>                              Σ0         ↓ →0x211d4 ←0x2112c
            <Call 0x211a4 0x233c0>                                              {}
                exp_FREEZE_WORLD.FIU()
            <Call 0x211aa 0x2349e>                                              {}
                exp_RUN_NORMAL.TYP()
            <Call 0x211b0 0x23556>                                              {}
                exp_RUN_NORMAL.VAL()
            <Call 0x211b6 0x23424>                                              {}
                exp_RUN_CHECK.SEQ()
            <Call 0x211bc 0x23b36>                                              {}
                exp_RUN_CHECK.IOC()
            <POP 211c2-211c4 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x211c4 0xc.2>                            Δ-2                {[-2-]|[#12]}
            <Call 0x211c6 0x104c0>                                              {[-2-]|[#12]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 211c8-211ca StackAdj>                       Δ+2                {[-2-]}
            <MI 211ca  TST.B   (A7)+>                        Δ+2                {}
            <MI 211cc  BEQ     0x211d4>                                         {}
        <POP 211ce-211d4 Naked>                              Σ0         ↓
            <Const 0x211ce 0xc.2>                            Δ-2                {[#12]}
            <Call 0x211d0 0x237be>                                              {[#12]}
            <POP 211d2-211d4 StackAdj>                       Δ+2                {}
        <POP 211d4-211e0 Naked>                              Σ0         ↓ →0x211e6 ←0x211a4
            <POP 211d4-211d6 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x211d6 0xd.2>                            Δ-2                {[-2-]|[#13]}
            <Call 0x211d8 0x104c0>                                              {[-2-]|[#13]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 211da-211dc StackAdj>                       Δ+2                {[-2-]}
            <MI 211dc  TST.B   (A7)+>                        Δ+2                {}
            <MI 211de  BEQ     0x211e6>                                         {}
        <POP 211e0-211e6 Naked>                              Σ0         ↓
            <Const 0x211e0 0xd.2>                            Δ-2                {[#13]}
            <Call 0x211e2 0x237be>                                              {[#13]}
            <POP 211e4-211e6 StackAdj>                       Δ+2                {}
        <POP 211e6-211f2 Naked>                              Σ0         ↓ →0x211f8 ←0x211d4
            <POP 211e6-211e8 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x211e8 0xe.2>                            Δ-2                {[-2-]|[#14]}
            <Call 0x211ea 0x104c0>                                              {[-2-]|[#14]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 211ec-211ee StackAdj>                       Δ+2                {[-2-]}
            <MI 211ee  TST.B   (A7)+>                        Δ+2                {}
            <MI 211f0  BEQ     0x211f8>                                         {}
        <POP 211f2-211f8 Naked>                              Σ0         ↓
            <Const 0x211f2 0xe.2>                            Δ-2                {[#14]}
            <Call 0x211f4 0x237be>                                              {[#14]}
            <POP 211f6-211f8 StackAdj>                       Δ+2                {}
        <POP 211f8-21204 Naked>                              Σ0         ↓ →0x2120a ←0x211e6
            <POP 211f8-211fa StackAdj>                       Δ-2                {[-2-]}
            <Const 0x211fa 0xf.2>                            Δ-2                {[-2-]|[#15]}
            <Call 0x211fc 0x104c0>                                              {[-2-]|[#15]}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 211fe-21200 StackAdj>                       Δ+2                {[-2-]}
            <MI 21200  TST.B   (A7)+>                        Δ+2                {}
            <MI 21202  BEQ     0x2120a>                                         {}
        <POP 21204-2120a Naked>                              Σ0         ↓
            <Const 0x21204 0xf.2>                            Δ-2                {[#15]}
            <Call 0x21206 0x237be>                                              {[#15]}
            <POP 21208-2120a StackAdj>                       Δ+2                {}
        <POP 2120a-2123a Naked>                              Σ0         ↓ ←0x211f8
            <Call 0x2120a 0x2332c>                                              {}
                exp_RUN_NORMAL.FIU()
            <MI 21210  MOVE.W  #0x01,(A6-0x2)>                                  {}
            <MI 21214  LEA.L   (A6-0x2),A0>                                     {}
            <MI 21218  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 2121a  ADDQ.L  #0x1,(A7)>                                       {[-4-]}
            <Const 0x2121c 0xfc10.4>                         Δ-4                {[-4-]|[##64528]}
            <Const 0x21222 0x1.2>                            Δ-2                {[-4-]|[##64528]|[#1]}
            <Call 0x21224 0x10238>                                              {[-4-]|[##64528]|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 2122a-2122c StackAdj>                       Δ+6                {[-4-]}
            <POP 2122c-2122d StackAdj>                       Δ+4                {}
            <Const 0x2122d 0x9896.4>                         Δ-4                {[##39062]}
            <Call 0x21232 0x10224>                                              {[##39062]}
                KC12_Sleep(dur: Long)
            <POP 21238-2123a StackAdj>                       Δ+4                {}
        <POP 2123a-21242 Epilogue>                           Σ0         

0x21242


@ 21242
        <LVAR  0x00c 1(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00c @ 4(rw)>
    <POP 21242-21312 Body>                                              
        <POP 21242-21258 Prologue>                           Σ0         ↓
        <POP 21258-21260 RegCacheLoad>                       Σ0         ↓
        <POP 21260-21262 Naked>                              Σ0         ↓
            <MI 21260  MOVEQ.L #0x00,D7>                                        {}
        <POP 21262-212b4 Naked>                              Σ0         ↓ →0x212c0 ←0x212c0
            <MI 21262  MOVE.L  D7,D4>                                           {}
            <MI 21264  MOVEQ.L #0x0a,D3>                                        {}
            <Call 0x21266 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 2126c  LEA.L   0x205b2,A0>                                      {}
            <Blob 0x21270 [10] (A0+D4.L)>                    Δ-10               {[«10»]}
            <POP 21280-21282 StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x21282>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x21282 4>                       Δ-4        
                <Const 0x21286 0x1.2>                        Δ-2        
                <Const 0x21288 0xa.2>                        Δ-2        
                <Call 0x2128a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21290-21292 StackAdj>                   Δ+8        
            <MI 21292  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[«10»]}
            <POP 21294-21296 StackAdj>                       Δ+4                {[-6-]}
            <MI 21296  MOVE.L  (A6+0x8),(A7)>                                   {[-2-]|[4, '(A6+0x8)']}
            <MI 2129a  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0xc)']}
            <Call 0x2129c 0x102c8>                                              {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0xc)']}
                StringEqual(a, b : String) : Byte
            <POP 212a2-212a4 StackAdj>                       Δ+8                {[-2-]}
            <MI 212a4  MOVE.B  (A7)+,D6>                     Δ+2                {}
            <Pointer.fp 0x212a6 <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x212a8 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 212ae-212b0 StackAdj>                       Δ+4                {}
            <MI 212b0  TST.B   D6>                                              {}
            <MI 212b2  BEQ     0x212c0>                                         {}
        <POP 212b4-212c0 Naked>                              Σ0         →0x2130a
            <MI 212b4  LEA.L   0x20602,A0>                                      {}
            <MI 212b8  MOVE.B  (A0+D7.L),(A6+0xc)>                              {}
            <MI 212be  BRA     0x2130a>                                         {}
        <POP 212c0-212ca Naked>                              Σ0         ↓ →0x21262 ←0x21262
            <MI 212c0  ADDQ.L  #0x1,D7>                                         {}
            <MI 212c2  CMPI.L  #0x00000007,D7>                                  {}
            <MI 212c8  BLE     0x21262>                                         {}
        <POP 212ca-2130a Naked>                              Σ0         ↓
            <Blob 0x212ca [22] @>                            Δ-22               {[«22""»]}
            <Const 0x212dc 0xe.2>                            Δ-2                {[«22""»]|[#14]}
            <POP 212e0-212e2 StackAdj>                       Δ-8                {[«22""»]|[#14]|[-8-]}
            <Lit 0x212e2 21>                                                    {[«22""»]|[#14]|[-4-]|[$$Unknown stack KIND :_]}
            <POP 212f2-212f4 StackAdj>                       Δ-4                {[«22""»]|[#14]|[-4-]|[$$Unknown stack KIND :_]|[-4-]}
            <MI 212f4  MOVE.L  (A6+0x8),(A7)>                                   {[«22""»]|[#14]|[-4-]|[$$Unknown stack KIND :_]|[4, '(A6+0x8)']}
            <Call 0x212f8 0x102d0>                                              {[«22""»]|[#14]|[-4-]|[$$Unknown stack KIND :_]|[4, '(A6+0x8)']}
                StringCat2(a, b : String) : String
            <POP 212fe-21300 StackAdj>                       Δ+8                {[«22""»]|[#14]|[-4-]}
            <Call 0x21300 0x103b8>                                              {[«22""»]|[#14]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 21306-2130a StackAdj>                       Δ+28               {}
        <POP 2130a-21312 Epilogue>                           Σ0         ←0x212b4

0x21312


@ 21312
        <LVAR  0x00e 4(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x002 2(w)>
        <LVAR -0x004 2(w) 4(r)>
        <LVAR -0x006 2(w)>
        <LVAR -0x008 2(w) 4(r)>
        <LVAR -0x418 @>
        <LVAR -0x41e @ 1(r)>
    <POP 21312-21462 Body>                                              
        <POP 21312-21328 Prologue>                           Σ0         ↓
        <POP 21328-2133c RegCacheLoad>                       Σ0         ↓
        <POP 2133c-2136a Naked>                              Σ0         ↓ →0x2145a
            <MI 2133c  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[4, '(A6+0xa)']}
            <Blob 0x21340 [4] 0x241d6>                       Δ-4                {[4, '(A6+0xa)']|[«4»]}
            <Const 0x21346 0x400.2>                          Δ-2                {[4, '(A6+0xa)']|[«4»]|[#1024]}
            <Call 0x2134a 0x10238>                                              {[4, '(A6+0xa)']|[«4»]|[#1024]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 21350-21352 StackAdj>                       Δ+10               {}
            <MI 21352  MOVEA.L (A6+0xe),A0>                                     {}
            <MI 21356  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 21358  CLR.W   -(A7)>                        Δ-2                {[4, 'A0']|[#0]}
            <Call 0x2135a 0x1023c>                                              {[4, 'A0']|[#0]}
                KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
            <POP 21360-21362 StackAdj>                       Δ+6                {}
            <MI 21362  TST.B   (A6+0x8)>                                        {}
            <MI 21366  BEQ     0x2145a>                                         {}
        <POP 2136a-21370 Naked>                              Σ0         ↓
            <MI 2136a  MOVE.L  #0xffffb1e0,D7>                                  {}
        <POP 21370-21386 Naked>                              Σ0         ↓ →0x2138a ←0x21386
            <MI 21370  LEA.L   (A6-0x418),A0>                                   {}
            <MI 21374  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 21376  CLR.W   -(A7)>                        Δ-2                {[4, 'A0']|[#0]}
            <Pointer.fp 0x21378 <LVAR -0x41e @ 1(r)>>        Δ-4                {[4, 'A0']|[#0]|[@@-1054]}
            <Call 0x2137a 0x1023e>                                              {[4, 'A0']|[#0]|[@@-1054]}
                KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
            <POP 21380-21382 StackAdj>                       Δ+10               {}
            <MI 21382  ADDQ.L  #0x1,D7>                                         {}
            <MI 21384  BEQ     0x2138a>                                         {}
        <POP 21386-2138a Naked>                              Σ0         ↓ →0x21370
            <MI 21386  TST.B   (A6-0x41e)>                                      {}
            <MI 21388  BEQ     0x21370>                                         {}
        <POP 2138a-21390 Naked>                              Σ0         ↓ →0x2145a ←0x21370
            <MI 2138a  TST.B   (A6-0x41e)>                                      {}
            <MI 2138c  BNE     0x2145a>                                         {}
        <POP 21390-2145a Naked>                              Σ0         ↓
            <MI 21390  MOVEA.L (A6+0xe),A0>                                     {}
            <MI 21394  MOVE.W  (A0),(A6-0x8)>                                   {}
            <MI 21396  MOVE.W  (A0+0x2),(A6-0x6)>                               {}
            <MI 2139c  MOVE.W  (A0+0x4),(A6-0x4)>                               {}
            <MI 213a0  MOVE.W  (A0+0x6),(A6-0x2)>                               {}
            <Blob 0x213a6 [20] @>                            Δ-20               {[«20""»]}
            <POP 213b2-213b4 StackAdj>                       Δ-8                {[«20""»]|[-8-]}
            <Lit 0x213b4 20>                                                    {[«20""»]|[-4-]|[$$Last header sent =>_]}
            <MI 213c4  MOVE.L  (A6-0x4),(A7)>                                   {[«20""»]|[-4-]|[4, '(A6-0x4)']}
            <POP 213be-213c4 StackAdj>                       Δ-8                {[«20""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
            <MI 213c6  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[«20""»]|[-4-]|[4, '(A6-0x4)']|[-8-]|[4, '(A6-0x8)']}
            <Const 0x213c8 0x10.4>                           Δ-4                {[«20""»]|[-4-]|[4, '(A6-0x4)']|[-8-]|[4, '(A6-0x8)']|[##16]}
            <Call 0x213cc 0x1035c>                                              {[«20""»]|[-4-]|[4, '(A6-0x4)']|[-8-]|[4, '(A6-0x8)']|[##16]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 213d2-213d4 StackAdj>                       Δ+12               {[«20""»]|[-4-]|[4, '(A6-0x4)']|[-4-]}
            <Call 0x213d4 0x102d0>                                              {[«20""»]|[-4-]|[4, '(A6-0x4)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 213da-213dc StackAdj>                       Δ+8                {[«20""»]|[-4-]}
            <Call 0x213dc 0x103d8>                                              {[«20""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 213e2-213e4 StackAdj>                       Δ+24               {}
            <MI 213e4  MOVE.W  (A0+0x8),(A6-0x8)>                               {}
            <MI 213e8  MOVE.W  (A0+0xa),(A6-0x6)>                               {}
            <MI 213ee  MOVE.W  (A0+0xc),(A6-0x4)>                               {}
            <MI 213f2  MOVE.W  (A0+0xe),(A6-0x2)>                               {}
            <Blob 0x213f8 [2] @>                             Δ-2                {[«2""»]}
            <POP 213fc-213fe StackAdj>                       Δ-8                {[«2""»]|[-8-]}
            <Lit 0x213fe 2>                                                     {[«2""»]|[-4-]|[$$_ ]}
            <MI 2140e  MOVE.L  (A6-0x4),(A7)>                                   {[«2""»]|[-4-]|[4, '(A6-0x4)']}
            <POP 21408-2140e StackAdj>                       Δ-8                {[«2""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
            <MI 21410  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[«2""»]|[-4-]|[4, '(A6-0x4)']|[-8-]|[4, '(A6-0x8)']}
            <Const 0x21412 0x10.4>                           Δ-4                {[«2""»]|[-4-]|[4, '(A6-0x4)']|[-8-]|[4, '(A6-0x8)']|[##16]}
            <Call 0x21416 0x1035c>                                              {[«2""»]|[-4-]|[4, '(A6-0x4)']|[-8-]|[4, '(A6-0x8)']|[##16]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 2141c-2141e StackAdj>                       Δ+12               {[«2""»]|[-4-]|[4, '(A6-0x4)']|[-4-]}
            <Call 0x2141e 0x102d0>                                              {[«2""»]|[-4-]|[4, '(A6-0x4)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21424-21426 StackAdj>                       Δ+8                {[«2""»]|[-4-]}
            <Call 0x21426 0x103e0>                                              {[«2""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2142c-2142e StackAdj>                       Δ+6                {}
            <Blob 0x2142e [24] @>                            Δ-24               {[«24""»]}
            <Const 0x2143a 0xe.2>                            Δ-2                {[«24""»]|[#14]}
            <POP 2143e-21440 StackAdj>                       Δ-4                {[«24""»]|[#14]|[-4-]}
            <Lit 0x21440 24>                                                    {[«24""»]|[#14]|[$$No response to page load]}
            <Call 0x21450 0x103b8>                                              {[«24""»]|[#14]|[$$No response to page load]}
                PopProgram(status : Byte; msg : String)
            <POP 21456-2145a StackAdj>                       Δ+30               {}
        <POP 2145a-21462 Epilogue>                           Σ0         ←0x2133c ←0x2138a

0x21462


@ 21462
        <LVAR -0x003 @ 1(r)>
        <LVAR -0x005 @ 1(r)>
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x007 @ 1(r)>
        <LVAR -0x008 @ 1(r)>
        <LVAR -0x009 @ 1(r)>
        <LVAR -0x00a @>
        <LVAR -0x00b @>
    <POP 21462-21546 Body>                                              
        <POP 21462-21478 Prologue>                           Σ0         ↓
        <POP 21478-2148a RegCacheLoad>                       Σ0         ↓
        <POP 2148a-214de Naked>                              Σ0         ↓
            <Const 0x2148a 0x4.2>                            Δ-2                {[#4]}
            <Pointer.fp 0x2148e <LVAR -0x00b @>>             Δ-4                {[#4]|[@@-11]}
            <Pointer.fp 0x21490 <LVAR -0x009 @ 1(r)>>        Δ-4                {[#4]|[@@-11]|[@@-9]}
            <Pointer.fp 0x21494 <LVAR -0x00a @>>             Δ-4                {[#4]|[@@-11]|[@@-9]|[@@-10]}
            <Call 0x21496 0x10484>                                              {[#4]|[@@-11]|[@@-9]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 21498-2149a StackAdj>                       Δ+12               {[#4]}
            <POP 2149a-2149b StackAdj>                       Δ+2                {}
            <Const 0x2149b 0x6.2>                            Δ-2                {[#6]}
            <Pointer.fp 0x2149e <LVAR -0x00b @>>             Δ-4                {[#6]|[@@-11]}
            <Pointer.fp 0x214a0 <LVAR -0x008 @ 1(r)>>        Δ-4                {[#6]|[@@-11]|[@@-8]}
            <Pointer.fp 0x214a4 <LVAR -0x00a @>>             Δ-4                {[#6]|[@@-11]|[@@-8]|[@@-10]}
            <Call 0x214a6 0x10484>                                              {[#6]|[@@-11]|[@@-8]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 214a8-214aa StackAdj>                       Δ+12               {[#6]}
            <POP 214aa-214ab StackAdj>                       Δ+2                {}
            <Const 0x214ab 0x7.2>                            Δ-2                {[#7]}
            <Pointer.fp 0x214ae <LVAR -0x00b @>>             Δ-4                {[#7]|[@@-11]}
            <Pointer.fp 0x214b0 <LVAR -0x007 @ 1(r)>>        Δ-4                {[#7]|[@@-11]|[@@-7]}
            <Pointer.fp 0x214b4 <LVAR -0x00a @>>             Δ-4                {[#7]|[@@-11]|[@@-7]|[@@-10]}
            <Call 0x214b6 0x10484>                                              {[#7]|[@@-11]|[@@-7]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 214b8-214ba StackAdj>                       Δ+12               {[#7]}
            <POP 214ba-214bb StackAdj>                       Δ+2                {}
            <Const 0x214bb 0x3.2>                            Δ-2                {[#3]}
            <Pointer.fp 0x214be <LVAR -0x00b @>>             Δ-4                {[#3]|[@@-11]}
            <Pointer.fp 0x214c0 <LVAR -0x006 @ 1(r)>>        Δ-4                {[#3]|[@@-11]|[@@-6]}
            <Pointer.fp 0x214c4 <LVAR -0x00a @>>             Δ-4                {[#3]|[@@-11]|[@@-6]|[@@-10]}
            <Call 0x214c6 0x10484>                                              {[#3]|[@@-11]|[@@-6]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 214c8-214ca StackAdj>                       Δ+12               {[#3]}
            <POP 214ca-214cb StackAdj>                       Δ+2                {}
            <Const 0x214cb 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x214ce <LVAR -0x00b @>>             Δ-4                {[#2]|[@@-11]}
            <Pointer.fp 0x214d0 <LVAR -0x005 @ 1(r)>>        Δ-4                {[#2]|[@@-11]|[@@-5]}
            <Pointer.fp 0x214d4 <LVAR -0x00a @>>             Δ-4                {[#2]|[@@-11]|[@@-5]|[@@-10]}
            <Call 0x214d6 0x10484>                                              {[#2]|[@@-11]|[@@-5]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 214d8-214da StackAdj>                       Δ+14               {}
            <MI 214da  MOVEQ.L #0x00,D7>                                        {}
            <MI 214dc  MOVEQ.L #0x0c,D6>                                        {}
        <POP 214de-214ee Naked>                              Σ0         ↓ →0x2150a ←0x2150a
            <POP 214de-214e0 StackAdj>                       Δ-2                {[-2-]}
            <MI 214e0  MOVE.B  D6,-(A7)>                     Δ-2                {[-2-]|[2, 'D6']}
            <Call 0x214e2 0x104c0>                                              {[-2-]|[2, 'D6']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 214e8-214ea StackAdj>                       Δ+2                {[-2-]}
            <MI 214ea  TST.B   (A7)+>                        Δ+2                {}
            <MI 214ec  BEQ     0x2150a>                                         {}
        <POP 214ee-2150a Naked>                              Σ0         ↓
            <MI 214ee  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <Pointer.fp 0x214f0 <LVAR -0x00b @>>             Δ-4                {[2, 'D6']|[@@-11]}
            <Pointer.fp 0x214f2 <LVAR -0x003 @ 1(r)>>        Δ-4                {[2, 'D6']|[@@-11]|[@@-3]}
            <Pointer.fp 0x214f6 <LVAR -0x00a @>>             Δ-4                {[2, 'D6']|[@@-11]|[@@-3]|[@@-10]}
            <Call 0x214f8 0x10484>                                              {[2, 'D6']|[@@-11]|[@@-3]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 214fa-214fc StackAdj>                       Δ+14               {}
            <MI 214fc  MOVE.B  D7,D0>                                           {}
            <MI 214fe  OR.B    (A6-0x3),D0>                                     {}
            <MI 21502  EXTB.W  D0>                                              {}
            <POP 0x21504 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21508  MOVE.B  D0,D7>                                           {}
        <POP 2150a-21512 Naked>                              Σ0         ↓ →0x214de ←0x214de
            <MI 2150a  ADDQ.B  #0x1,D6>                                         {}
            <MI 2150c  CMPI.B  #0x0f,D6>                                        {}
            <MI 21510  BLE     0x214de>                                         {}
        <POP 21512-21518 Naked>                              Σ0         ↓ →0x21534
            <MI 21512  TST.B   (A6-0x9)>                                        {}
            <MI 21516  BNE     0x21534>                                         {}
        <POP 21518-2151e Naked>                              Σ0         ↓ →0x21534
            <MI 21518  TST.B   (A6-0x8)>                                        {}
            <MI 2151c  BNE     0x21534>                                         {}
        <POP 2151e-21524 Naked>                              Σ0         ↓ →0x21534
            <MI 2151e  TST.B   (A6-0x7)>                                        {}
            <MI 21522  BNE     0x21534>                                         {}
        <POP 21524-2152a Naked>                              Σ0         ↓ →0x21534
            <MI 21524  TST.B   (A6-0x6)>                                        {}
            <MI 21528  BNE     0x21534>                                         {}
        <POP 2152a-21530 Naked>                              Σ0         ↓ →0x21534
            <MI 2152a  TST.B   (A6-0x5)>                                        {}
            <MI 2152e  BNE     0x21534>                                         {}
        <POP 21530-21534 Naked>                              Σ0         ↓ →0x2153e
            <MI 21530  TST.B   D7>                                              {}
            <MI 21532  BEQ     0x2153e>                                         {}
        <POP 21534-2153e Naked>                              Σ0         ↓ ←0x21512 ←0x21518 ←0x2151e ←0x21524 ←0x2152a
            <Const 0x21534 0xc.2>                            Δ-2                {[#12]}
            <Call 0x21536 0x105da>                                              {[#12]}
                Set_fc01(a : Byte)
            <POP 2153c-2153e StackAdj>                       Δ+2                {}
        <POP 2153e-21546 Epilogue>                           Σ0         ←0x21530

0x21546


@ 21546
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x004 2(w)>
        <LVAR -0x006 2(w) 4(r)>
        <LVAR -0x008 2(w)>
        <LVAR -0x00a 2(w) 4(r)>
        <LVAR -0x00c @>
        <LVAR -0x00d @>
        <LVAR -0x00e @ 1(r)>
        <LVAR -0x41e @>
        <LVAR -0x420 2(rw)>
        <LVAR -0x422 2(rw)>
        <LVAR -0x424 2(rw)>
        <LVAR -0x426 2(rw)>
        <LVAR -0x428 2(rw)>
        <LVAR -0x42a 2(r)>
        <LVAR -0x42c 2(r)>
        <LVAR -0x42e @ 2(rw)>
        <LVAR -0x43a @ 4(r)>
        <LVAR -0x83e 2(r)>
        <LVAR -0x840 2(r) 4(w)>
        <LVAR -0x844 4(w)>
        <LVAR -0x848 @ 4(r)>
        <LVAR -0x84c @ 4(r)>
    <POP 21546-21806 Body>                                              
        <POP 21546-2155c Prologue>                           Σ0         ↓
        <POP 2155c-21574 RegCacheLoad>                       Σ0         ↓
        <POP 21574-2160e Naked>                              Σ0         ↓ →0x21614
            <Pointer.fp 0x21574 <LVAR -0x84c @ 4(r)>>        Δ-4                {[@@-2124]}
            <Call 0x21576 0x102b8>                                              {[@@-2124]}
                NewString(VAR a : String)
            <MI 2157c  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <MI 2157e  MOVE.L  (A6-0x84c),-(A7)>             Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x84c)']}
            <Pointer.fp 0x21580 <LVAR -0x00c @>>             Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x84c)']|[@@-12]}
            <Call 0x21584 0x102fc>                                              {[4, '(A6+0x8)']|[4, '(A6-0x84c)']|[@@-12]}
                FirstField(MOD input : String; MOD output : String; VAR c : Bool
            <POP 2158a-2158c StackAdj>                       Δ+12               {}
            <Pointer.fp 0x2158c <LVAR -0x848 @ 4(r)>>        Δ-4                {[@@-2120]}
            <Call 0x2158e 0x102b8>                                              {[@@-2120]}
                NewString(VAR a : String)
            <MI 21594  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <MI 21596  MOVE.L  (A6-0x848),-(A7)>             Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x848)']}
            <Pointer.fp 0x21598 <LVAR -0x00c @>>             Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x848)']|[@@-12]}
            <Call 0x2159c 0x102fc>                                              {[4, '(A6+0x8)']|[4, '(A6-0x848)']|[@@-12]}
                FirstField(MOD input : String; MOD output : String; VAR c : Bool
            <POP 215a2-215a4 StackAdj>                       Δ+6                {[4, '(A6+0x8)']|[-2-]}
            <MI 215a4  MOVE.L  (A6-0x848),(A7)>                                 {[-2-]|[4, '(A6-0x848)']}
            <Call 0x215a6 0x21242>                                              {[-2-]|[4, '(A6-0x848)']}
            <POP 215aa-215ac StackAdj>                       Δ+4                {[-2-]}
            <MI 215ac  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 215ae  EXTB.W  D0>                                              {}
            <POP 0x215b0 LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {}
            <MI 215b4  MOVE.B  D0,D5>                                           {}
            <MI 215b6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 215b8  MOVE.L  (A6-0x848),-(A7)>             Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x848)']}
            <Pointer.fp 0x215ba <LVAR -0x00c @>>             Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x848)']|[@@-12]}
            <Call 0x215be 0x102fc>                                              {[4, '(A6+0x8)']|[4, '(A6-0x848)']|[@@-12]}
                FirstField(MOD input : String; MOD output : String; VAR c : Bool
            <MI 215c4  MOVE.L  (A6-0x848),(A7)>                                 {[4, '(A6+0x8)']|[4, '(A6-0x848)']|[4, '(A6-0x848)']}
            <Const 0x215c6 0x10.4>                           Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x848)']|[4, '(A6-0x848)']|[##16]}
            <Call 0x215ca 0x10360>                                              {[4, '(A6+0x8)']|[4, '(A6-0x848)']|[4, '(A6-0x848)']|[##16]}
                ?StringToInt64()
            <POP 215d0-215d2 StackAdj>                       Δ+8                {[4, '(A6+0x8)']|[4, '(A6-0x848)']}
            <MI 215d2  MOVE.L  (A7)+,(A6-0x844)>             Δ+4                {[4, '(A6+0x8)']}
            <MI 215d6  MOVE.L  (A7)+,(A6-0x840)>             Δ+4                {}
            <MI 215da  MOVE.W  0x241d2,(A6-0x42e)>                              {}
            <MI 215e2  CLR.W   (A6-0x42c)>                                      {}
            <MI 215e6  CLR.W   (A6-0x42a)>                                      {}
            <MI 215ea  MOVE.W  #0x100,(A6-0x428)>                               {}
            <MI 215f0  MOVE.W  (A6-0x840),(A6-0x426)>                           {}
            <MI 215f6  MOVE.W  (A6-0x83e),(A6-0x424)>                           {}
            <MI 215fc  CLR.W   (A6-0x422)>                                      {}
            <MI 21600  MOVE.B  D5,D0>                                           {}
            <MI 21602  EXTB.W  D0>                                              {}
            <MI 21604  MOVE.W  D0,(A6-0x420)>                                   {}
            <MI 21606  TST.B   0x241c0>                                         {}
            <MI 2160c  BEQ     0x21614>                                         {}
        <POP 2160e-21614 Naked>                              Σ0         ↓
            <MI 2160e  ORI.W   #0x0008,D0>                                      {}
            <MI 21612  MOVE.W  D0,(A6-0x420)>                                   {}
        <POP 21614-2163e Naked>                              Σ0 Δ-4     ↓ ←0x21574
            <MI 21614  MOVE.L  (A6-0x84c),-(A7)>             Δ-4                {[4, '(A6-0x84c)']}
            <MI 21616  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x84c)']|[#0]}
            <Const 0x21618 0x2.2>                            Δ-2                {[4, '(A6-0x84c)']|[#0]|[#2]}
            <Const 0x2161a 0x0.4>                            Δ-4                {[4, '(A6-0x84c)']|[#0]|[#2]|[##0]}
            <Pointer.fp 0x2161e <LVAR -0x00d @>>             Δ-4                {[4, '(A6-0x84c)']|[#0]|[#2]|[##0]|[@@-13]}
            <Pointer.fp 0x21622 <LVAR -0x43a @ 4(r)>>        Δ-4                {[4, '(A6-0x84c)']|[#0]|[#2]|[##0]|[@@-13]|[@@-1082]}
            <Call 0x21626 0x10380>                                              {[4, '(A6-0x84c)']|[#0]|[#2]|[##0]|[@@-13]|[@@-1082]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 2162c-2162e StackAdj>                       Δ+20               {}
            <MI 2162e  MOVEA.L (A6-0x43a),A0>                                   {}
            <MI 21632  MOVE.W  (A0+0x20),D0>                                    {}
            <MI 21636  SUBQ.W  #0x1,D0>                                         {}
            <MI 21638  EXTW.L  D0>                                              {}
            <MI 2163a  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 2163c  MOVEQ.L #0x00,D6>                                        {[4, 'D0']}
        <POP 2163e-21644 Naked>                              Σ-4        ↓ →0x217ce ←0x217c8
            <MI 2163e  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 21640  BGT     0x217ce>                                         {[-4-]}
        <POP 21644-21684 Naked>                              Σ-4        ↓
            <MI 21644  MOVE.L  (A6-0x43a),-(A7)>             Δ-4                {[-4-]|[4, '(A6-0x43a)']}
            <POP 0x21648 LimitCheck 0x0 ≤ D6 ≤ 0x4000>                          {[-4-]|[4, '(A6-0x43a)']}
            <MI 21652  MOVE.W  D6,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0x43a)']|[2, 'D6']}
            <MI 21654  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x43a)']|[2, 'D6']|[#0]}
            <Const 0x21656 0x200.2>                          Δ-2                {[-4-]|[4, '(A6-0x43a)']|[2, 'D6']|[#0]|[#512]}
            <Const 0x2165a 0x2.2>                            Δ-2                {[-4-]|[4, '(A6-0x43a)']|[2, 'D6']|[#0]|[#512]|[#2]}
            <Blob 0x2165c [4] 0x241d6>                       Δ-4                {[-4-]|[4, '(A6-0x43a)']|[2, 'D6']|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x21662 <LVAR -0x00d @>>             Δ-4                {[-4-]|[4, '(A6-0x43a)']|[2, 'D6']|[#0]|[#512]|[#2]|[«4»]|[@@-13]}
            <Call 0x21666 0x10384>                                              {[-4-]|[4, '(A6-0x43a)']|[2, 'D6']|[#0]|[#512]|[#2]|[«4»]|[@@-13]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 2166c-2166e StackAdj>                       Δ+20               {[-4-]}
            <MI 2166e  LEA.L   (A6-0x42e),A0>                                   {[-4-]}
            <MI 21672  MOVE.L  A0,-(A7)>                     Δ-4                {[-4-]|[4, 'A0']}
            <MI 21674  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, 'A0']|[#0]}
            <Call 0x21676 0x1023c>                                              {[-4-]|[4, 'A0']|[#0]}
                KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
            <POP 2167c-2167e StackAdj>                       Δ+6                {[-4-]}
            <MI 2167e  MOVE.L  #0xffffb1e0,D7>                                  {[-4-]}
        <POP 21684-2169e Naked>                              Σ-4        ↓ →0x216a4 ←0x2169e
            <MI 21684  LEA.L   (A6-0x41e),A0>                                   {[-4-]}
            <MI 21688  MOVE.L  A0,-(A7)>                     Δ-4                {[-4-]|[4, 'A0']}
            <MI 2168a  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, 'A0']|[#0]}
            <Pointer.fp 0x2168c <LVAR -0x00e @ 1(r)>>        Δ-4                {[-4-]|[4, 'A0']|[#0]|[@@-14]}
            <Call 0x21690 0x1023e>                                              {[-4-]|[4, 'A0']|[#0]|[@@-14]}
                KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
            <POP 21696-2169a StackAdj>                       Δ+10               {[-4-]}
            <MI 2169a  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 2169c  BEQ     0x216a4>                                         {[-4-]}
        <POP 2169e-216a4 Naked>                              Σ-4        ↓ →0x21684
            <MI 2169e  TST.B   (A6-0xe)>                                        {[-4-]}
            <MI 216a2  BEQ     0x21684>                                         {[-4-]}
        <POP 216a4-216ac Naked>                              Σ-4        ↓ →0x21786 ←0x21684
            <MI 216a4  TST.B   (A6-0xe)>                                        {[-4-]}
            <MI 216a8  BNE     0x21786>                                         {[-4-]}
        <POP 216ac-21786 Naked>                              Σ-4        ↓
            <Call 0x216ac 0x21462>                                              {[-4-]}
            <MI 216b0  MOVE.W  (A6-0x42e),(A6-0xa)>                             {[-4-]}
            <MI 216b6  MOVE.W  (A6-0x42c),(A6-0x8)>                             {[-4-]}
            <MI 216bc  MOVE.W  (A6-0x42a),(A6-0x6)>                             {[-4-]}
            <MI 216c2  MOVE.W  (A6-0x428),(A6-0x4)>                             {[-4-]}
            <Blob 0x216c8 [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 216d4-216d6 StackAdj>                       Δ-8                {[-4-]|[«20""»]|[-8-]}
            <Lit 0x216d6 20>                                                    {[-4-]|[«20""»]|[-4-]|[$$Last header sent =>_]}
            <MI 216e4  MOVE.L  (A6-0x6),(A7)>                                   {[-4-]|[«20""»]|[-4-]|[4, '(A6-0x6)']}
            <POP 216de-216e4 StackAdj>                       Δ-8                {[-4-]|[«20""»]|[-4-]|[4, '(A6-0x6)']|[-8-]}
            <MI 216e8  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-4-]|[«20""»]|[-4-]|[4, '(A6-0x6)']|[-8-]|[4, '(A6-0xa)']}
            <Const 0x216ec 0x10.4>                           Δ-4                {[-4-]|[«20""»]|[-4-]|[4, '(A6-0x6)']|[-8-]|[4, '(A6-0xa)']|[##16]}
            <Call 0x216f0 0x1035c>                                              {[-4-]|[«20""»]|[-4-]|[4, '(A6-0x6)']|[-8-]|[4, '(A6-0xa)']|[##16]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 216f6-216f8 StackAdj>                       Δ+12               {[-4-]|[«20""»]|[-4-]|[4, '(A6-0x6)']|[-4-]}
            <Call 0x216f8 0x102d0>                                              {[-4-]|[«20""»]|[-4-]|[4, '(A6-0x6)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 216fe-21700 StackAdj>                       Δ+8                {[-4-]|[«20""»]|[-4-]}
            <Call 0x21700 0x103d8>                                              {[-4-]|[«20""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 21706-2170a StackAdj>                       Δ+24               {[-4-]}
            <MI 2170a  MOVE.W  (A6-0x426),(A6-0xa)>                             {[-4-]}
            <MI 21710  MOVE.W  (A6-0x424),(A6-0x8)>                             {[-4-]}
            <MI 21716  MOVE.W  (A6-0x422),(A6-0x6)>                             {[-4-]}
            <MI 2171c  MOVE.W  (A6-0x420),(A6-0x4)>                             {[-4-]}
            <Blob 0x21720 [2] @>                             Δ-2                {[-4-]|[«2""»]}
            <POP 21724-21726 StackAdj>                       Δ-8                {[-4-]|[«2""»]|[-8-]}
            <Lit 0x21726 2>                                                     {[-4-]|[«2""»]|[-4-]|[$$_ ]}
            <MI 21734  MOVE.L  (A6-0x6),(A7)>                                   {[-4-]|[«2""»]|[-4-]|[4, '(A6-0x6)']}
            <POP 2172e-21734 StackAdj>                       Δ-8                {[-4-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[-8-]}
            <MI 21738  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-4-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[-8-]|[4, '(A6-0xa)']}
            <Const 0x2173c 0x10.4>                           Δ-4                {[-4-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[-8-]|[4, '(A6-0xa)']|[##16]}
            <Call 0x21740 0x1035c>                                              {[-4-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[-8-]|[4, '(A6-0xa)']|[##16]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 21746-21748 StackAdj>                       Δ+12               {[-4-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[-4-]}
            <Call 0x21748 0x102d0>                                              {[-4-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2174e-21750 StackAdj>                       Δ+8                {[-4-]|[«2""»]|[-4-]}
            <Call 0x21750 0x103e0>                                              {[-4-]|[«2""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21756-21758 StackAdj>                       Δ+6                {[-4-]}
            <Blob 0x21758 [24] @>                            Δ-24               {[-4-]|[«24""»]}
            <Const 0x21764 0xe.2>                            Δ-2                {[-4-]|[«24""»]|[#14]}
            <POP 21768-2176a StackAdj>                       Δ-4                {[-4-]|[«24""»]|[#14]|[-4-]}
            <Lit 0x2176a 24>                                                    {[-4-]|[«24""»]|[#14]|[$$No response to page load]}
            <Call 0x2177c 0x103b8>                                              {[-4-]|[«24""»]|[#14]|[$$No response to page load]}
                PopProgram(status : Byte; msg : String)
            <POP 21782-21786 StackAdj>                       Δ+30               {[-4-]}
        <POP 21786-2179e Naked>                              Σ-4        ↓ →0x217b4 ←0x216a4
            <MI 21786  CLR.L   D0>                                              {[-4-]}
            <MI 21788  MOVE.W  (A6-0x420),D0>                                   {[-4-]}
            <MI 2178a  ADDI.L  #0x00002000,D0>                                  {[-4-]}
            <MI 21790  ANDI.L  #0x0000ffff,D0>                                  {[-4-]}
            <MI 21796  MOVE.W  D0,(A6-0x420)>                                   {[-4-]}
            <MI 21798  ANDI.W  #0xfff0,D0>                                      {[-4-]}
            <MI 2179c  BNE     0x217b4>                                         {[-4-]}
        <POP 2179e-217b4 Naked>                              Σ-4        ↓
            <MI 2179e  CLR.L   D0>                                              {[-4-]}
            <MI 217a0  MOVE.W  (A6-0x422),D0>                                   {[-4-]}
            <MI 217a4  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x217a6 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-4-]}
            <MI 217b0  MOVE.W  D0,(A6-0x422)>                                   {[-4-]}
        <POP 217b4-217c2 Naked>                              Σ-4        ↓ →0x217c8 ←0x21786
            <MI 217b4  ADDQ.L  #0x1,0x241c6>                                    {[-4-]}
            <MI 217ba  TST.B   0x241c0>                                         {[-4-]}
            <MI 217c0  BEQ     0x217c8>                                         {[-4-]}
        <POP 217c2-217c8 Naked>                              Σ-4        ↓
            <MI 217c2  ADDQ.L  #0x1,0x241c2>                                    {[-4-]}
        <POP 217c8-217ce Naked>                              Σ-4        ↓ →0x2163e ←0x217b4
            <MI 217c8  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 217ca  BVC     0x2163e>                                         {[-4-]}
        <POP 217ce-217fe Naked>                              Σ-4 Δ+4    ↓ ←0x2163e
            <POP 217ce-217d0 StackAdj>                       Δ+2                {[-2-]}
            <MI 217d0  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x217d2 0x2.2>                            Δ-2                {[-2-]|[#2]}
            <Const 0x217d4 0x1.4>                            Δ-4                {[-2-]|[#2]|[##1]}
            <Pointer.fp 0x217d8 <LVAR -0x00d @>>             Δ-4                {[-2-]|[#2]|[##1]|[@@-13]}
            <Pointer.fp 0x217dc <LVAR -0x43a @ 4(r)>>        Δ-4                {[-2-]|[#2]|[##1]|[@@-13]|[@@-1082]}
            <Call 0x217e0 0x1038c>                                              {[-2-]|[#2]|[##1]|[@@-13]|[@@-1082]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 217e6-217ea StackAdj>                       Δ+16               {}
            <Pointer.fp 0x217ea <LVAR -0x84c @ 4(r)>>        Δ-4                {[@@-2124]}
            <Call 0x217ec 0x102bc>                                              {[@@-2124]}
                FreeString(VAR a : String)
            <POP 217f2-217f4 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x217f4 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x217f6 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 217fc-217fe StackAdj>                       Δ+4                {}
        <POP 217fe-21806 Epilogue>                           Σ0         

0x21806


@ 21806
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 2(rw)>
        <LVAR -0x010 1(rw)>
        <LVAR -0x012 2(w)>
        <LVAR -0x013 1(r)>
        <LVAR -0x014 1(r) 2(r)>
        <LVAR -0x016 @ 2(r)>
        <LVAR -0x01a 4(rw)>
        <LVAR -0x01e 4(rw)>
        <LVAR -0x020 2(w)>
        <LVAR -0x022 2(r) 4(r)>
        <LVAR -0x024 2(r)>
        <LVAR -0x026 2(r) 4(r)>
    <POP 21806-21f02 Body>                                              
        <POP 21806-2181c Prologue>                           Σ0         ↓
        <POP 2181c-21828 RegCacheLoad>                       Σ0         ↓
        <POP 21828-21838 Naked>                              Σ0         ↓
            <MI 21828  CLR.L   D0>                                              {}
            <MI 2182a  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 2182c  ADDQ.L  #0x3,D0>                                         {}
            <MI 2182e  ANDI.L  #0x0000fffc,D0>                                  {}
            <MI 21834  MOVE.W  D0,(A6+0x8)>                                     {}
            <MI 21836  MOVEQ.L #0x00,D7>                                        {}
        <POP 21838-2187a Naked>                              Σ0         ↓ →0x21838 ←0x21838
            <MI 21838  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 2183a  MOVE.W  (A6+0x8),D0>                                     {}
            <POP 0x2183c LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21840  CLR.L   D1>                                              {}
            <MI 21842  MOVE.W  D0,D1>                                           {}
            <MI 21844  ASL.L   #0x1,D1>                                         {}
            <POP 0x21846 LimitCheck 0x0 ≤ D7 ≤ 0x3>                             {}
            <MI 21850  MOVE.L  D7,D0>                                           {}
            <MI 21852  ASL.L   #0x1,D0>                                         {}
            <MI 21854  LEA.L   0x2060a,A1>                                      {}
            <MI 21858  MOVE.W  (A1+D0.L),(A0+D1.L)>                             {}
            <MI 2185e  CLR.L   D0>                                              {}
            <MI 21860  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 21862  ADDQ.L  #0x1,D0>                                         {}
            <POP 0x21864 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 2186e  MOVE.W  D0,(A6+0x8)>                                     {}
            <MI 21870  ADDQ.L  #0x1,D7>                                         {}
            <MI 21872  CMPI.L  #0x00000003,D7>                                  {}
            <MI 21878  BLE     0x21838>                                         {}
        <POP 2187a-218ae Naked>                              Σ0         ↓ →0x218b0
            <Pointer.fp 0x2187a <LVAR -0x016 @ 2(r)>>        Δ-4                {[@@-22]}
            <Call 0x2187e 0x10304>                                              {[@@-22]}
                GetRtc() : TimeStamp
            <POP 21884-21886 StackAdj>                       Δ+4                {}
            <MI 21886  CLR.W   (A6-0x26)>                                       {}
            <MI 2188a  CLR.W   (A6-0x24)>                                       {}
            <MI 2188e  CLR.W   (A6-0x22)>                                       {}
            <MI 21892  MOVE.W  (A6-0x16),(A6-0x20)>                             {}
            <MI 21898  CLR.B   (A6-0x10)>                                       {}
            <MI 2189a  CLR.L   D0>                                              {}
            <MI 2189c  MOVE.B  (A6-0x14),D0>                                    {}
            <MI 218a0  LSR.B   #0x1,D0>                                         {}
            <MI 218a2  MOVE.W  D0,D1>                                           {}
            <MI 218a4  ANDI.W  #0x0003,D1>                                      {}
            <MI 218a8  CMPI.W  #0x0003,D1>                                      {}
            <MI 218ac  BNE     0x218b0>                                         {}
        <POP 218ae-218b0 Naked>                              Σ0         ↓
            <MI 218ae  ADDQ.B  #0x1,(A6-0x10)>                                  {}
        <POP 218b0-21984 Naked>                              Σ0         ↓ ←0x2187a
            <MI 218b0  MOVE.W  D0,D1>                                           {}
            <MI 218b2  ASR.W   #0x2,D1>                                         {}
            <MI 218b4  MOVE.B  (A6-0x10),D2>                                    {}
            <MI 218b6  EXTB.W  D2>                                              {}
            <MI 218b8  MULS.W  #0x18,D2>                                        {}
            <MI 218bc  LEA.L   0x2061a,A0>                                      {}
            <MI 218c0  MOVE.W  (A6-0x14),D3>                                    {}
            <MI 218c4  LSL.W   #0x7,D3>                                         {}
            <MI 218c6  LSR.W   #0x8,D3>                                         {}
            <MI 218c8  LSR.W   #0x4,D3>                                         {}
            <MI 218ca  SUBQ.W  #0x1,D3>                                         {}
            <POP 0x218cc LimitCheck 0x0 ≤ D3 ≤ 0xb>                             {}
            <MI 218d0  ASL.W   #0x1,D3>                                         {}
            <MI 218d2  LEA.L   (A0+D2.W),A0>                                    {}
            <MI 218d6  EXTW.L  D1>                                              {}
            <MI 218d8  CLR.L   D2>                                              {}
            <MI 218da  MOVE.W  (A0+D3.W),D2>                                    {}
            <MI 218de  ADD.L   D1,D2>                                           {}
            <MI 218e0  CLR.L   D1>                                              {}
            <MI 218e2  MOVE.B  (A6-0x13),D1>                                    {}
            <MI 218e6  LSL.B   #0x3,D1>                                         {}
            <MI 218e8  LSR.B   #0x3,D1>                                         {}
            <MI 218ea  ADD.L   D2,D1>                                           {}
            <MI 218ec  SUBQ.L  #0x1,D1>                                         {}
            <POP 0x218ee LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 218f8  MOVE.W  D1,(A6-0x12)>                                    {}
            <POP 218fc-21900 StackAdj>                       Δ-24               {[-24-]}
            <Const 0x21900 0x16d.4>                          Δ-4                {[-24-]|[##365]}
            <Call 0x21904 0x10354>                                              {[-24-]|[##365]}
                Long2Quad(a : Long) : Quad
            <POP 2190a-2190c StackAdj>                       Δ-4                {[-24-]|[##365]|[-4-]}
            <MI 2190c  EXTW.L  D0>                                              {[-24-]|[##365]|[-4-]}
            <MI 2190e  MOVE.L  D0,-(A7)>                     Δ-4                {[-24-]|[##365]|[-4-]|[4, 'D0']}
            <Call 0x21910 0x10354>                                              {[-24-]|[##365]|[-4-]|[4, 'D0']}
                Long2Quad(a : Long) : Quad
            <POP 21916-21918 StackAdj>                       Δ+4                {[-24-]|[##365]|[-4-]}
            <Call 0x21918 0x1031c>                                              {[-24-]|[##365]|[-4-]}
                Multiply(a, b : Quad) : Quad
            <POP 2191e-21920 StackAdj>                       Δ+8                {[-24-]}
            <MI 21920  CLR.L   D0>                                              {[-24-]}
            <MI 21922  MOVE.W  D1,D0>                                           {[-24-]}
            <MI 21924  MOVE.L  D0,-(A7)>                     Δ-4                {[-24-]|[4, 'D0']}
            <Call 0x21926 0x10354>                                              {[-24-]|[4, 'D0']}
                Long2Quad(a : Long) : Quad
            <POP 2192c-2192e StackAdj>                       Δ+4                {[-24-]}
            <Call 0x2192e 0x10314>                                              {[-24-]}
                Add(a, b : Quad) : Quad
            <POP 21934-21938 StackAdj>                       Δ+16               {[-8-]}
            <MI 21938  MOVE.L  (A7)+,(A6-0x1e)>              Δ+4                {[-4-]}
            <MI 2193c  MOVE.L  (A7),(A6-0x1a)>                                  {[-4-]}
            <POP 21940-21944 StackAdj>                       Δ-12               {[-16-]}
            <MI 21944  MOVE.L  (A6-0x22),-(A7)>              Δ-4                {[-16-]|[4, '(A6-0x22)']}
            <MI 21948  MOVE.L  (A6-0x26),-(A7)>              Δ-4                {[-16-]|[4, '(A6-0x22)']|[4, '(A6-0x26)']}
            <Const 0x2194c 0x1.4>                            Δ-4                {[-16-]|[4, '(A6-0x22)']|[4, '(A6-0x26)']|[##1]}
            <Call 0x21950 0x10344>                                              {[-16-]|[4, '(A6-0x22)']|[4, '(A6-0x26)']|[##1]}
                BitShift(a : Quad ; howmuch : integer) : Quad
            <MI 21956  MOVE.L  (A6-0x1a),(A7)>                                  {[-16-]|[4, '(A6-0x22)']|[4, '(A6-0x26)']|[4, '(A6-0x1a)']}
            <MI 2195a  MOVE.L  (A6-0x1e),-(A7)>              Δ-4                {[-16-]|[4, '(A6-0x22)']|[4, '(A6-0x26)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
            <Blob 0x2195e [4] @>                             Δ-4                {[-16-]|[4, '(A6-0x22)']|[4, '(A6-0x26)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[«4""»]}
            <Blob 0x21962 [4] @>                             Δ-4                {[-16-]|[4, '(A6-0x22)']|[4, '(A6-0x26)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[«4""»]|[«4""»]}
            <Call 0x21966 0x1031c>                                              {[-16-]|[4, '(A6-0x22)']|[4, '(A6-0x26)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[«4""»]|[«4""»]}
                Multiply(a, b : Quad) : Quad
            <POP 2196c-21970 StackAdj>                       Δ+16               {[-16-]|[4, '(A6-0x22)']|[4, '(A6-0x26)']}
            <Call 0x21970 0x10314>                                              {[-16-]|[4, '(A6-0x22)']|[4, '(A6-0x26)']}
                Add(a, b : Quad) : Quad
            <POP 21976-2197a StackAdj>                       Δ+16               {[-8-]}
            <MI 2197a  MOVE.L  (A7)+,(A6-0x1e)>              Δ+4                {[-4-]}
            <MI 2197e  MOVE.L  (A7)+,(A6-0x1a)>              Δ+4                {}
            <MI 21982  MOVEQ.L #0x00,D7>                                        {}
        <POP 21984-219c2 Naked>                              Σ0         ↓ →0x21984 ←0x21984
            <MI 21984  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21986  MOVE.W  (A6+0x8),D0>                                     {}
            <POP 0x21988 LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 2198c  CLR.L   D1>                                              {}
            <MI 2198e  MOVE.W  D0,D1>                                           {}
            <MI 21990  ASL.L   #0x1,D1>                                         {}
            <POP 0x21992 LimitCheck 0x0 ≤ D7 ≤ 0x3>                             {}
            <MI 2199c  MOVE.L  D7,D0>                                           {}
            <MI 2199e  ASL.L   #0x1,D0>                                         {}
            <MI 219a0  MOVE.W  (A6+D0.L-#0x1e),(A0+D1.L)>                       {}
            <MI 219a6  CLR.L   D0>                                              {}
            <MI 219a8  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 219aa  ADDQ.L  #0x1,D0>                                         {}
            <POP 0x219ac LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 219b6  MOVE.W  D0,(A6+0x8)>                                     {}
            <MI 219b8  ADDQ.L  #0x1,D7>                                         {}
            <MI 219ba  CMPI.L  #0x00000003,D7>                                  {}
            <MI 219c0  BLE     0x21984>                                         {}
        <POP 219c2-219c4 Naked>                              Σ0         ↓
            <MI 219c2  MOVEQ.L #0x00,D7>                                        {}
        <POP 219c4-219c6 Naked>                              Σ0         ↓ ←0x21a28
            <MI 219c4  MOVEQ.L #0x00,D6>                                        {}
        <POP 219c6-21a28 Naked>                              Σ0         ↓ →0x219c6 ←0x219c6
            <MI 219c6  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 219c8  MOVE.W  (A6+0x8),D0>                                     {}
            <POP 0x219ca LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 219ce  CLR.L   D1>                                              {}
            <MI 219d0  MOVE.W  D0,D1>                                           {}
            <MI 219d2  ASL.L   #0x1,D1>                                         {}
            <POP 0x219d4 LimitCheck 0x0 ≤ D7 ≤ 0x9>                             {}
            <MI 219de  LEA.L   0x2064a,A1>                                      {}
            <MI 219e2  MOVE.B  (A1+D7.L),D0>                                    {}
            <MI 219e6  EXTB.W  D0>                                              {}
            <MI 219e8  ASL.W   #0x3,D0>                                         {}
            <MI 219ea  LEA.L   0x23e90,A1>                                      {}
            <POP 0x219f0 LimitCheck 0x0 ≤ D6 ≤ 0x3>                             {}
            <MI 219fa  MOVE.L  D6,D2>                                           {}
            <MI 219fc  ASL.L   #0x1,D2>                                         {}
            <MI 219fe  LEA.L   (A1+D0.W),A1>                                    {}
            <MI 21a02  LEA.L   (A1+D2.L),A1>                                    {}
            <MI 21a06  MOVE.W  (A1+0x34a),(A0+D1.L)>                            {}
            <MI 21a0c  CLR.L   D0>                                              {}
            <MI 21a0e  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 21a10  ADDQ.L  #0x1,D0>                                         {}
            <POP 0x21a12 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21a1c  MOVE.W  D0,(A6+0x8)>                                     {}
            <MI 21a1e  ADDQ.L  #0x1,D6>                                         {}
            <MI 21a20  CMPI.L  #0x00000003,D6>                                  {}
            <MI 21a26  BLE     0x219c6>                                         {}
        <POP 21a28-21a32 Naked>                              Σ0         ↓ →0x219c4
            <MI 21a28  ADDQ.L  #0x1,D7>                                         {}
            <MI 21a2a  CMPI.L  #0x00000009,D7>                                  {}
            <MI 21a30  BLE     0x219c4>                                         {}
        <POP 21a32-21a34 Naked>                              Σ0         ↓
            <MI 21a32  MOVEQ.L #0x00,D7>                                        {}
        <POP 21a34-21a36 Naked>                              Σ0         ↓ ←0x21a64
            <MI 21a34  MOVEQ.L #0x00,D6>                                        {}
        <POP 21a36-21a64 Naked>                              Σ0         ↓ →0x21a36 ←0x21a36
            <MI 21a36  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21a38  MOVE.W  (A6+0x8),D0>                                     {}
            <POP 0x21a3a LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21a3e  CLR.L   D1>                                              {}
            <MI 21a40  MOVE.W  D0,D1>                                           {}
            <MI 21a42  ASL.L   #0x1,D1>                                         {}
            <MI 21a44  CLR.W   (A0+D1.L)>                                       {}
            <MI 21a48  CLR.L   D0>                                              {}
            <MI 21a4a  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 21a4c  ADDQ.L  #0x1,D0>                                         {}
            <POP 0x21a4e LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21a58  MOVE.W  D0,(A6+0x8)>                                     {}
            <MI 21a5a  ADDQ.L  #0x1,D6>                                         {}
            <MI 21a5c  CMPI.L  #0x00000003,D6>                                  {}
            <MI 21a62  BLE     0x21a36>                                         {}
        <POP 21a64-21a6e Naked>                              Σ0         ↓ →0x21a34
            <MI 21a64  ADDQ.L  #0x1,D7>                                         {}
            <MI 21a66  CMPI.L  #0x00000006,D7>                                  {}
            <MI 21a6c  BLE     0x21a34>                                         {}
        <POP 21a6e-21a70 Naked>                              Σ0         ↓
            <MI 21a6e  MOVEQ.L #0x00,D7>                                        {}
        <POP 21a70-21a92 Naked>                              Σ0         ↓ →0x21a70 ←0x21a70
            <MI 21a70  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21a72  CLR.L   D0>                                              {}
            <MI 21a74  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 21a76  ADD.L   D7,D0>                                           {}
            <POP 0x21a78 LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21a82  ASL.L   #0x1,D0>                                         {}
            <MI 21a84  CLR.W   (A0+D0.L)>                                       {}
            <MI 21a88  ADDQ.L  #0x1,D7>                                         {}
            <MI 21a8a  CMPI.L  #0x00000007,D7>                                  {}
            <MI 21a90  BLE     0x21a70>                                         {}
        <POP 21a92-21a9e Naked>                              Σ0         ↓ →0x21aaa
            <POP 21a92-21a94 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21a94 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 21a9a  TST.B   (A7)+>                        Δ+2                {}
            <MI 21a9c  BNE     0x21aaa>                                         {}
        <POP 21a9e-21aaa Naked>                              Σ0         ↓ →0x21b10
            <POP 21a9e-21aa0 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21aa0 0x10604>                                              {[-2-]}
                Is_fc07_three() : Bool
            <MI 21aa6  TST.B   (A7)+>                        Δ+2                {}
            <MI 21aa8  BEQ     0x21b10>                                         {}
        <POP 21aaa-21ab6 Naked>                              Σ0         ↓ →0x21ada ←0x21a92
            <POP 21aaa-21aac StackAdj>                       Δ-4                {[-4-]}
            <Call 0x21aac 0x23bbe>                                              {[-4-]}
            <MI 21ab2  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 21ab4  BEQ     0x21ada>                                         {}
        <POP 21ab6-21ada Naked>                              Σ0         ↓
            <MI 21ab6  MOVE.L  D5,-(A7)>                     Δ-4                {[4, 'D5']}
            <MI 21ab8  MOVEA.L (A6+0xa),A0>                                     {[4, 'D5']}
            <MI 21aba  MOVE.W  (A6+0x8),D0>                                     {[4, 'D5']}
            <POP 0x21abc LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {[4, 'D5']}
            <MI 21ac0  CLR.L   D1>                                              {[4, 'D5']}
            <MI 21ac2  MOVE.W  D0,D1>                                           {[4, 'D5']}
            <MI 21ac4  ASL.L   #0x1,D1>                                         {[4, 'D5']}
            <MI 21ac6  LEA.L   (A0+D1.L),A0>                                    {[4, 'D5']}
            <MI 21aca  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'D5']|[4, 'A0']}
            <Const 0x21acc 0x8.2>                            Δ-2                {[4, 'D5']|[4, 'A0']|[#8]}
            <Call 0x21ad0 0x10238>                                              {[4, 'D5']|[4, 'A0']|[#8]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 21ad6-21ada StackAdj>                       Δ+10               {}
        <POP 21ada-21ae6 Naked>                              Σ0         ↓ →0x21b10 ←0x21aaa
            <POP 21ada-21adc StackAdj>                       Δ-4                {[-4-]}
            <Call 0x21adc 0x23be8>                                              {[-4-]}
            <MI 21ae2  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 21ae4  BEQ     0x21b10>                                         {}
        <POP 21ae6-21b10 Naked>                              Σ0         ↓
            <MI 21ae6  MOVE.L  D5,-(A7)>                     Δ-4                {[4, 'D5']}
            <MI 21ae8  MOVEA.L (A6+0xa),A0>                                     {[4, 'D5']}
            <MI 21aea  CLR.L   D0>                                              {[4, 'D5']}
            <MI 21aec  MOVE.W  (A6+0x8),D0>                                     {[4, 'D5']}
            <MI 21aee  ADDQ.L  #0x4,D0>                                         {[4, 'D5']}
            <POP 0x21af0 LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {[4, 'D5']}
            <MI 21afa  ASL.L   #0x1,D0>                                         {[4, 'D5']}
            <MI 21afc  LEA.L   (A0+D0.L),A0>                                    {[4, 'D5']}
            <MI 21b00  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'D5']|[4, 'A0']}
            <Const 0x21b02 0x8.2>                            Δ-2                {[4, 'D5']|[4, 'A0']|[#8]}
            <Call 0x21b06 0x10238>                                              {[4, 'D5']|[4, 'A0']|[#8]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 21b0c-21b10 StackAdj>                       Δ+10               {}
        <POP 21b10-21b2e Naked>                              Σ0         ↓ →0x21b3a ←0x21a9e ←0x21ada
            <MI 21b10  CLR.L   D0>                                              {}
            <MI 21b12  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 21b14  ADDQ.L  #0x8,D0>                                         {}
            <POP 0x21b16 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21b20  MOVE.W  D0,(A6+0x8)>                                     {}
            <POP 21b22-21b24 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21b24 0x105f8>                                              {[-2-]}
                Is_fc07_one() : Bool
            <MI 21b2a  TST.B   (A7)+>                        Δ+2                {}
            <MI 21b2c  BNE     0x21b3a>                                         {}
        <POP 21b2e-21b3a Naked>                              Σ0         ↓ →0x21b4e
            <POP 21b2e-21b30 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21b30 0x105fe>                                              {[-2-]}
                Is_fc07_two() : Bool
            <MI 21b36  TST.B   (A7)+>                        Δ+2                {}
            <MI 21b38  BEQ     0x21b4e>                                         {}
        <POP 21b3a-21b4e Naked>                              Σ0         →0x21b8c ←0x21b10
            <MI 21b3a  MOVEA.L (A6+0xa),A0>                                     {}
            <POP 0x21b3c LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21b40  CLR.L   D1>                                              {}
            <MI 21b42  MOVE.W  D0,D1>                                           {}
            <MI 21b44  ASL.L   #0x1,D1>                                         {}
            <MI 21b46  MOVE.W  #0x3,(A0+D1.L)>                                  {}
            <MI 21b4c  BRA     0x21b8c>                                         {}
        <POP 21b4e-21b5a Naked>                              Σ0         ↓ →0x21b66 ←0x21b2e
            <POP 21b4e-21b50 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21b50 0x10604>                                              {[-2-]}
                Is_fc07_three() : Bool
            <MI 21b56  TST.B   (A7)+>                        Δ+2                {}
            <MI 21b58  BNE     0x21b66>                                         {}
        <POP 21b5a-21b66 Naked>                              Σ0         ↓ →0x21b7a
            <POP 21b5a-21b5c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21b5c 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 21b62  TST.B   (A7)+>                        Δ+2                {}
            <MI 21b64  BEQ     0x21b7a>                                         {}
        <POP 21b66-21b7a Naked>                              Σ0         →0x21b8c ←0x21b4e
            <MI 21b66  MOVEA.L (A6+0xa),A0>                                     {}
            <POP 0x21b68 LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21b6c  CLR.L   D1>                                              {}
            <MI 21b6e  MOVE.W  D0,D1>                                           {}
            <MI 21b70  ASL.L   #0x1,D1>                                         {}
            <MI 21b72  MOVE.W  #0x4,(A0+D1.L)>                                  {}
            <MI 21b78  BRA     0x21b8c>                                         {}
        <POP 21b7a-21b8c Naked>                              Σ0         ↓ ←0x21b5a
            <MI 21b7a  MOVEA.L (A6+0xa),A0>                                     {}
            <POP 0x21b7c LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21b80  CLR.L   D1>                                              {}
            <MI 21b82  MOVE.W  D0,D1>                                           {}
            <MI 21b84  ASL.L   #0x1,D1>                                         {}
            <MI 21b86  MOVE.W  #0x2,(A0+D1.L)>                                  {}
        <POP 21b8c-21b98 Naked>                              Σ0         ↓ →0x21bb4 ←0x21b3a ←0x21b66
            <POP 21b8c-21b8e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21b8e 0x10610>                                              {[-2-]}
                Is_fc07_one_or_three() : Bool
            <MI 21b94  TST.B   (A7)+>                        Δ+2                {}
            <MI 21b96  BEQ     0x21bb4>                                         {}
        <POP 21b98-21bb4 Naked>                              Σ0         →0x21bcc
            <MI 21b98  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21b9a  CLR.L   D1>                                              {}
            <MI 21b9c  MOVE.W  D0,D1>                                           {}
            <MI 21b9e  ADDQ.L  #0x1,D1>                                         {}
            <POP 0x21ba0 LimitCheck 0x0 ≤ D1 ≤ 0x1ff>                           {}
            <MI 21baa  ASL.L   #0x1,D1>                                         {}
            <MI 21bac  MOVE.W  #0x1,(A0+D1.L)>                                  {}
            <MI 21bb2  BRA     0x21bcc>                                         {}
        <POP 21bb4-21bcc Naked>                              Σ0         ↓ ←0x21b8c
            <MI 21bb4  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21bb6  CLR.L   D1>                                              {}
            <MI 21bb8  MOVE.W  D0,D1>                                           {}
            <MI 21bba  ADDQ.L  #0x1,D1>                                         {}
            <POP 0x21bbc LimitCheck 0x0 ≤ D1 ≤ 0x1ff>                           {}
            <MI 21bc6  ASL.L   #0x1,D1>                                         {}
            <MI 21bc8  CLR.W   (A0+D1.L)>                                       {}
        <POP 21bcc-21c94 Naked>                              Σ0         ↓ ←0x21b98
            <MI 21bcc  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21bce  CLR.L   D1>                                              {}
            <MI 21bd0  MOVE.W  D0,D1>                                           {}
            <MI 21bd2  MOVE.L  D1,D0>                                           {}
            <MI 21bd4  ADDQ.L  #0x2,D0>                                         {}
            <POP 0x21bd6 LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21be0  ASL.L   #0x1,D0>                                         {}
            <MI 21be2  CLR.W   (A0+D0.L)>                                       {}
            <MI 21be6  MOVE.L  D1,D0>                                           {}
            <MI 21be8  ADDQ.L  #0x3,D0>                                         {}
            <POP 0x21bea LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21bf4  ASL.L   #0x1,D0>                                         {}
            <MI 21bf6  CLR.W   (A0+D0.L)>                                       {}
            <MI 21bfa  ADDQ.L  #0x4,D1>                                         {}
            <POP 0x21bfc LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 21c06  MOVE.W  D1,(A6+0x8)>                                     {}
            <POP 0x21c08 LimitCheck 0x0 ≤ D1 ≤ 0x1ff>                           {}
            <MI 21c0c  CLR.L   D0>                                              {}
            <MI 21c0e  MOVE.W  D1,D0>                                           {}
            <MI 21c10  ASL.L   #0x1,D0>                                         {}
            <MI 21c12  MOVE.W  #0x2,(A0+D0.L)>                                  {}
            <MI 21c18  CLR.L   D0>                                              {}
            <MI 21c1a  MOVE.W  D1,D0>                                           {}
            <MI 21c1c  MOVE.L  D0,D1>                                           {}
            <MI 21c1e  ADDQ.L  #0x1,D1>                                         {}
            <POP 0x21c20 LimitCheck 0x0 ≤ D1 ≤ 0x1ff>                           {}
            <MI 21c2a  ASL.L   #0x1,D1>                                         {}
            <MI 21c2c  CLR.W   (A0+D1.L)>                                       {}
            <Const 0x21c30 0x410.4>                          Δ-4                {[##1040]}
            <MI 21c34  MOVE.L  D0,D1>                                           {[##1040]}
            <MI 21c36  ADDQ.L  #0x2,D1>                                         {[##1040]}
            <POP 0x21c38 LimitCheck 0x0 ≤ D1 ≤ 0x1ff>                           {[##1040]}
            <MI 21c42  ASL.L   #0x1,D1>                                         {[##1040]}
            <MI 21c44  LEA.L   (A0+D1.L),A1>                                    {[##1040]}
            <MI 21c48  MOVE.L  A1,-(A7)>                     Δ-4                {[##1040]|[4, 'A1']}
            <Const 0x21c4a 0x6.2>                            Δ-2                {[##1040]|[4, 'A1']|[#6]}
            <Call 0x21c4e 0x10238>                                              {[##1040]|[4, 'A1']|[#6]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 21c54-21c58 StackAdj>                       Δ+10               {}
            <MI 21c58  ADDQ.L  #0x5,D0>                                         {}
            <POP 0x21c5a LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21c64  MOVE.W  D0,(A6+0x8)>                                     {}
            <POP 0x21c66 LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21c6a  CLR.L   D1>                                              {}
            <MI 21c6c  MOVE.W  D0,D1>                                           {}
            <MI 21c6e  ASL.L   #0x1,D1>                                         {}
            <MI 21c70  MOVE.W  0x2425a,(A0+D1.L)>                               {}
            <MI 21c78  CLR.L   D1>                                              {}
            <MI 21c7a  MOVE.W  D0,D1>                                           {}
            <MI 21c7c  ADDQ.L  #0x1,D1>                                         {}
            <POP 0x21c7e LimitCheck 0x0 ≤ D1 ≤ 0x1ff>                           {}
            <MI 21c88  ASL.L   #0x1,D1>                                         {}
            <MI 21c8a  MOVE.W  0x2425c,(A0+D1.L)>                               {}
            <MI 21c92  MOVEQ.L #0x00,D7>                                        {}
        <POP 21c94-21cce Naked>                              Σ0         ↓ →0x21c94 ←0x21c94
            <MI 21c94  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21c96  CLR.L   D0>                                              {}
            <MI 21c98  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 21c9a  ADDQ.L  #0x2,D0>                                         {}
            <MI 21c9c  ADD.L   D7,D0>                                           {}
            <POP 0x21c9e LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21ca8  ASL.L   #0x1,D0>                                         {}
            <POP 0x21caa LimitCheck 0x0 ≤ D7 ≤ 0x3>                             {}
            <MI 21cb4  MOVE.L  D7,D1>                                           {}
            <MI 21cb6  ASL.L   #0x1,D1>                                         {}
            <MI 21cb8  LEA.L   0x2425a,A1>                                      {}
            <MI 21cbe  MOVE.W  (A1+D1.L+#0x4),(A0+D0.L)>                        {}
            <MI 21cc4  ADDQ.L  #0x1,D7>                                         {}
            <MI 21cc6  CMPI.L  #0x00000003,D7>                                  {}
            <MI 21ccc  BLE     0x21c94>                                         {}
        <POP 21cce-21d0a Naked>                              Σ0         ↓
            <MI 21cce  CLR.L   D0>                                              {}
            <MI 21cd0  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 21cd2  ADDQ.L  #0x6,D0>                                         {}
            <MI 21cd4  ADDQ.L  #0x8,D0>                                         {}
            <POP 0x21cd6 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21ce0  MOVE.W  D0,(A6+0x8)>                                     {}
            <MI 21ce2  MOVEA.L (A6+0xa),A0>                                     {}
            <POP 0x21ce4 LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21ce8  CLR.L   D1>                                              {}
            <MI 21cea  MOVE.W  D0,D1>                                           {}
            <MI 21cec  ASL.L   #0x1,D1>                                         {}
            <MI 21cee  ANDI.W  #0x00ff,(A0+D1.L)>                               {}
            <MI 21cf4  CLR.L   D1>                                              {}
            <MI 21cf6  MOVE.W  D0,D1>                                           {}
            <MI 21cf8  ADDQ.L  #0x4,D1>                                         {}
            <MI 21cfa  ADDQ.L  #0x4,D1>                                         {}
            <POP 0x21cfc LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 21d06  MOVE.W  D1,(A6+0x8)>                                     {}
            <MI 21d08  MOVEQ.L #0x00,D7>                                        {}
        <POP 21d0a-21d26 Naked>                              Σ0         ↓ →0x21d66 ←0x21d8e
            <POP 21d0a-21d0c StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21d0c 0xb.4>                            Δ-4                {[-2-]|[##11]}
            <MI 21d10  ADD.L   D7,(A7)>                                         {[-6-]}
            <Call 0x21d12 0x10592>                                              {[-6-]}
                ReadConfig(where : Long) : Word
            <POP 21d18-21d1a StackAdj>                       Δ+4                {[-2-]}
            <MI 21d1a  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 21d1c  EXTW.L  D0>                                              {}
            <MI 21d1e  MOVE.L  D0,D6>                                           {}
            <MI 21d20  BTST.L  #0x0,D7>                                         {}
            <MI 21d24  BEQ     0x21d66>                                         {}
        <POP 21d26-21d66 Naked>                              Σ0         →0x21d8e
            <MI 21d26  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21d28  MOVE.W  (A6+0x8),D0>                                     {}
            <POP 0x21d2a LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21d2e  CLR.L   D1>                                              {}
            <MI 21d30  MOVE.W  D0,D1>                                           {}
            <MI 21d32  ASL.L   #0x1,D1>                                         {}
            <MI 21d34  MOVE.L  D6,D0>                                           {}
            <MI 21d36  ANDI.L  #0x000000ff,D0>                                  {}
            <MI 21d3c  CLR.L   D2>                                              {}
            <MI 21d3e  MOVE.W  (A0+D1.L),D2>                                    {}
            <MI 21d42  ADD.L   D2,D0>                                           {}
            <POP 0x21d44 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21d4e  MOVE.W  D0,(A0+D1.L)>                                    {}
            <MI 21d52  CLR.L   D0>                                              {}
            <MI 21d54  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 21d56  ADDQ.L  #0x1,D0>                                         {}
            <POP 0x21d58 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21d62  MOVE.W  D0,(A6+0x8)>                                     {}
            <MI 21d64  BRA     0x21d8e>                                         {}
        <POP 21d66-21d8e Naked>                              Σ0         ↓ ←0x21d0a
            <MI 21d66  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21d68  MOVE.W  (A6+0x8),D0>                                     {}
            <POP 0x21d6a LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21d6e  CLR.L   D1>                                              {}
            <MI 21d70  MOVE.W  D0,D1>                                           {}
            <MI 21d72  ASL.L   #0x1,D1>                                         {}
            <MI 21d74  MOVE.L  #0x100,D4>                                       {}
            <MI 21d7a  MOVE.L  D6,D3>                                           {}
            <Call 0x21d7c 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21d82  MOVE.L  D4,D0>                                           {}
            <MI 21d84  ANDI.L  #0x0000ff00,D0>                                  {}
            <MI 21d8a  MOVE.W  D0,(A0+D1.L)>                                    {}
        <POP 21d8e-21d9a Naked>                              Σ0         ↓ →0x21d0a ←0x21d26
            <MI 21d8e  ADDQ.L  #0x1,D7>                                         {}
            <MI 21d90  CMPI.L  #0x0000001f,D7>                                  {}
            <MI 21d96  BLE     0x21d0a>                                         {}
        <POP 21d9a-21d9c Naked>                              Σ0         ↓
            <MI 21d9a  MOVEQ.L #0x00,D7>                                        {}
        <POP 21d9c-21db8 Naked>                              Σ0         ↓ →0x21df8 ←0x21e20
            <POP 21d9c-21d9e StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21d9e 0x181.4>                          Δ-4                {[-2-]|[##385]}
            <MI 21da2  ADD.L   D7,(A7)>                                         {[-6-]}
            <Call 0x21da4 0x10592>                                              {[-6-]}
                ReadConfig(where : Long) : Word
            <POP 21daa-21dac StackAdj>                       Δ+4                {[-2-]}
            <MI 21dac  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 21dae  EXTW.L  D0>                                              {}
            <MI 21db0  MOVE.L  D0,D6>                                           {}
            <MI 21db2  BTST.L  #0x0,D7>                                         {}
            <MI 21db6  BEQ     0x21df8>                                         {}
        <POP 21db8-21df8 Naked>                              Σ0         →0x21e20
            <MI 21db8  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21dba  MOVE.W  (A6+0x8),D0>                                     {}
            <POP 0x21dbc LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21dc0  CLR.L   D1>                                              {}
            <MI 21dc2  MOVE.W  D0,D1>                                           {}
            <MI 21dc4  ASL.L   #0x1,D1>                                         {}
            <MI 21dc6  MOVE.L  D6,D0>                                           {}
            <MI 21dc8  ANDI.L  #0x000000ff,D0>                                  {}
            <MI 21dce  CLR.L   D2>                                              {}
            <MI 21dd0  MOVE.W  (A0+D1.L),D2>                                    {}
            <MI 21dd4  ADD.L   D2,D0>                                           {}
            <POP 0x21dd6 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21de0  MOVE.W  D0,(A0+D1.L)>                                    {}
            <MI 21de4  CLR.L   D0>                                              {}
            <MI 21de6  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 21de8  ADDQ.L  #0x1,D0>                                         {}
            <POP 0x21dea LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21df4  MOVE.W  D0,(A6+0x8)>                                     {}
            <MI 21df6  BRA     0x21e20>                                         {}
        <POP 21df8-21e20 Naked>                              Σ0         ↓ ←0x21d9c
            <MI 21df8  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21dfa  MOVE.W  (A6+0x8),D0>                                     {}
            <POP 0x21dfc LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21e00  CLR.L   D1>                                              {}
            <MI 21e02  MOVE.W  D0,D1>                                           {}
            <MI 21e04  ASL.L   #0x1,D1>                                         {}
            <MI 21e06  MOVE.L  #0x100,D4>                                       {}
            <MI 21e0c  MOVE.L  D6,D3>                                           {}
            <Call 0x21e0e 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21e14  MOVE.L  D4,D0>                                           {}
            <MI 21e16  ANDI.L  #0x0000ff00,D0>                                  {}
            <MI 21e1c  MOVE.W  D0,(A0+D1.L)>                                    {}
        <POP 21e20-21e2c Naked>                              Σ0         ↓ →0x21d9c ←0x21db8
            <MI 21e20  ADDQ.L  #0x1,D7>                                         {}
            <MI 21e22  CMPI.L  #0x0000004f,D7>                                  {}
            <MI 21e28  BLE     0x21d9c>                                         {}
        <POP 21e2c-21e2e Naked>                              Σ0         ↓
            <MI 21e2c  MOVEQ.L #0x00,D7>                                        {}
        <POP 21e2e-21e4a Naked>                              Σ0         ↓ →0x21e8a ←0x21eb2
            <POP 21e2e-21e30 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21e30 0x1d0.4>                          Δ-4                {[-2-]|[##464]}
            <MI 21e34  ADD.L   D7,(A7)>                                         {[-6-]}
            <Call 0x21e36 0x10592>                                              {[-6-]}
                ReadConfig(where : Long) : Word
            <POP 21e3c-21e3e StackAdj>                       Δ+4                {[-2-]}
            <MI 21e3e  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 21e40  EXTW.L  D0>                                              {}
            <MI 21e42  MOVE.L  D0,D6>                                           {}
            <MI 21e44  BTST.L  #0x0,D7>                                         {}
            <MI 21e48  BEQ     0x21e8a>                                         {}
        <POP 21e4a-21e8a Naked>                              Σ0         →0x21eb2
            <MI 21e4a  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21e4c  MOVE.W  (A6+0x8),D0>                                     {}
            <POP 0x21e4e LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21e52  CLR.L   D1>                                              {}
            <MI 21e54  MOVE.W  D0,D1>                                           {}
            <MI 21e56  ASL.L   #0x1,D1>                                         {}
            <MI 21e58  MOVE.L  D6,D0>                                           {}
            <MI 21e5a  ANDI.L  #0x000000ff,D0>                                  {}
            <MI 21e60  CLR.L   D2>                                              {}
            <MI 21e62  MOVE.W  (A0+D1.L),D2>                                    {}
            <MI 21e66  ADD.L   D2,D0>                                           {}
            <POP 0x21e68 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21e72  MOVE.W  D0,(A0+D1.L)>                                    {}
            <MI 21e76  CLR.L   D0>                                              {}
            <MI 21e78  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 21e7a  ADDQ.L  #0x1,D0>                                         {}
            <POP 0x21e7c LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 21e86  MOVE.W  D0,(A6+0x8)>                                     {}
            <MI 21e88  BRA     0x21eb2>                                         {}
        <POP 21e8a-21eb2 Naked>                              Σ0         ↓ ←0x21e2e
            <MI 21e8a  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21e8c  MOVE.W  (A6+0x8),D0>                                     {}
            <POP 0x21e8e LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21e92  CLR.L   D1>                                              {}
            <MI 21e94  MOVE.W  D0,D1>                                           {}
            <MI 21e96  ASL.L   #0x1,D1>                                         {}
            <MI 21e98  MOVE.L  #0x100,D4>                                       {}
            <MI 21e9e  MOVE.L  D6,D3>                                           {}
            <Call 0x21ea0 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21ea6  MOVE.L  D4,D0>                                           {}
            <MI 21ea8  ANDI.L  #0x0000ff00,D0>                                  {}
            <MI 21eae  MOVE.W  D0,(A0+D1.L)>                                    {}
        <POP 21eb2-21ebe Naked>                              Σ0         ↓ →0x21e2e ←0x21e4a
            <MI 21eb2  ADDQ.L  #0x1,D7>                                         {}
            <MI 21eb4  CMPI.L  #0x0000001d,D7>                                  {}
            <MI 21eba  BLE     0x21e2e>                                         {}
        <POP 21ebe-21efa Naked>                              Σ0         ↓
            <POP 21ebe-21ec0 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21ec0 0x180.4>                          Δ-4                {[-2-]|[##384]}
            <Call 0x21ec4 0x10592>                                              {[-2-]|[##384]}
                ReadConfig(where : Long) : Word
            <POP 21eca-21ecc StackAdj>                       Δ+4                {[-2-]}
            <MI 21ecc  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 21ece  EXTW.L  D0>                                              {}
            <MI 21ed0  MOVE.L  D0,D6>                                           {}
            <MI 21ed2  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21ed4  MOVE.W  (A6+0x8),D0>                                     {}
            <POP 0x21ed6 LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 21eda  CLR.L   D1>                                              {}
            <MI 21edc  MOVE.W  D0,D1>                                           {}
            <MI 21ede  ASL.L   #0x1,D1>                                         {}
            <MI 21ee0  MOVE.L  #0x100,D4>                                       {}
            <MI 21ee6  MOVE.L  D6,D3>                                           {}
            <Call 0x21ee8 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21eee  MOVE.L  D4,D0>                                           {}
            <MI 21ef0  ANDI.L  #0x0000ff00,D0>                                  {}
            <MI 21ef6  MOVE.W  D0,(A0+D1.L)>                                    {}
        <POP 21efa-21f02 Epilogue>                           Σ0         

0x21f02


@ 21f02
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 2(r)>
        <LVAR -0x004 2(w)>
        <LVAR -0x006 2(r)>
        <LVAR -0x008 2(w)>
        <LVAR -0x00a 2(r)>
        <LVAR -0x00c 2(w)>
        <LVAR -0x00e 2(r)>
        <LVAR -0x010 2(r)>
        <LVAR -0x012 @ 2(w)>
        <LVAR -0x414 @>
        <LVAR -0x41e @ 4(rw)>
        <LVAR -0x426 @ 4(rw)>
        <LVAR -0x42a @ 4(rw)>
    <POP 21f02-2210e Body>                                   Δ-8        
        <POP 21f02-21f18 Prologue>                           Σ0         ↓
        <POP 21f18-21f26 RegCacheLoad>                       Σ0         ↓
        <POP 21f26-21f28 Naked>                              Σ0         ↓
            <MI 21f26  MOVEQ.L #0x00,D6>                                        {}
        <POP 21f28-21f3e Naked>                              Σ0         ↓ →0x21f28 ←0x21f28
            <POP 0x21f28 LimitCheck 0x0 ≤ D6 ≤ 0x1ff>                           {}
            <MI 21f2a  CLR.L   D0>                                              {}
            <MI 21f2c  MOVE.W  D6,D0>                                           {}
            <MI 21f2e  ASL.L   #0x1,D0>                                         {}
            <MI 21f30  LEA.L   (A6-0x42a),A0>                                   {}
            <MI 21f34  CLR.W   (A0+D0.L+#0x16)>                                 {}
            <MI 21f38  ADDQ.W  #0x1,D6>                                         {}
            <MI 21f3a  CMP.W   #0x1ff,D6>                                       {}
            <MI 21f3c  BLS     0x21f28>                                         {}
        <POP 21f3e-21f44 Naked>                              Σ0         ↓
            <MI 21f3e  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21f42  MOVE.L  (A0),(A6-0x426)>                                 {}
        <POP 21f44-21f4c Naked>                              Σ0 Δ-4     ↓ →0x21f76 ←0x21f6c
            <MI 21f44  MOVEA.L (A6-0x426),A0>                                   {}
            <MI 21f46  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 21f48  CMPA.W  #0x01,A0>                                        {[4, 'A0']}
            <MI 21f4a  BEQ     0x21f76>                                         {[4, 'A0']}
        <POP 21f4c-21f56 Naked>                              Σ-4        ↓
            <MI 21f4c  CLR.L   (A0+0x26)>                                       {[-4-]}
            <MI 21f50  MOVE.L  (A0+0x2a),(A6-0x41e)>                            {[-4-]}
        <POP 21f56-21f5e Naked>                              Σ-4        ↓ →0x21f6c ←0x21f5e
            <MI 21f56  MOVEA.L (A6-0x41e),A0>                                   {[-4-]}
            <MI 21f5a  CMPA.W  #0x01,A0>                                        {[-4-]}
            <MI 21f5c  BEQ     0x21f6c>                                         {[-4-]}
        <POP 21f5e-21f6c Naked>                              Σ-4        →0x21f56
            <MI 21f5e  MOVEA.L (A7),A1>                                         {[-4-]}
            <MI 21f60  ADDQ.L  #0x1,(A1+0x26)>                                  {[-4-]}
            <MI 21f64  MOVE.L  (A0+0x4),(A6-0x41e)>                             {[-4-]}
            <MI 21f6a  BRA     0x21f56>                                         {[-4-]}
        <POP 21f6c-21f76 Naked>                              Σ-4 Δ+4    →0x21f44 ←0x21f56
            <MI 21f6c  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 21f6e  MOVE.L  (A0+0x2e),(A6-0x426)>                            {[-4-]}
            <POP 21f72-21f74 StackAdj>                       Δ+4                {}
            <MI 21f74  BRA     0x21f44>                                         {}
        <POP 21f76-21f7a Naked>                              Σ-4 Δ+4    ↓ ←0x21f44
            <POP 21f76-21f78 StackAdj>                       Δ+4                {}
            <MI 21f78  MOVEQ.L #0x00,D6>                                        {}
        <POP 21f7a-21f86 Naked>                              Σ0         ↓ →0x220b4 ←0x220a2
            <MI 21f7a  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21f7e  MOVEA.L (A0),A1>                                         {}
            <MI 21f80  CMPA.W  #0x01,A1>                                        {}
            <MI 21f82  BEQ     0x220b4>                                         {}
        <POP 21f86-21f8c Naked>                              Σ0         ↓
            <MI 21f86  MOVE.L  A1,(A6-0x426)>                                   {}
            <MI 21f88  MOVEA.W #0x01,A3>                                        {}
            <MI 21f8a  MOVEQ.L #0x00,D7>                                        {}
        <POP 21f8c-21f92 Naked>                              Σ0         ↓ →0x21fa8 ←0x21fa6
            <MI 21f8c  MOVEA.L (A6-0x426),A0>                                   {}
            <MI 21f8e  CMPA.W  #0x01,A0>                                        {}
            <MI 21f90  BEQ     0x21fa8>                                         {}
        <POP 21f92-21f96 Naked>                              Σ0         ↓ →0x21fa8
            <MI 21f92  TST.B   D7>                                              {}
            <MI 21f94  BNE     0x21fa8>                                         {}
        <POP 21f96-21f9c Naked>                              Σ0         ↓ →0x21fa0
            <MI 21f96  TST.L   (A0+0x26)>                                       {}
            <MI 21f9a  BNE     0x21fa0>                                         {}
        <POP 21f9c-21fa0 Naked>                              Σ0         →0x21fa6
            <MI 21f9c  MOVEQ.L #0x01,D7>                                        {}
            <MI 21f9e  BRA     0x21fa6>                                         {}
        <POP 21fa0-21fa6 Naked>                              Σ0         ↓ ←0x21f96
            <MI 21fa0  MOVEA.L A0,A3>                                           {}
            <MI 21fa2  MOVE.L  (A0+0x2e),(A6-0x426)>                            {}
        <POP 21fa6-21fa8 Naked>                              Σ0         →0x21f8c ←0x21f9c
            <MI 21fa6  BRA     0x21f8c>                                         {}
        <POP 21fa8-21fac Naked>                              Σ0         ↓ →0x21fd8 ←0x21f8c ←0x21f92
            <MI 21fa8  TST.B   D7>                                              {}
            <MI 21faa  BNE     0x21fd8>                                         {}
        <POP 21fac-21fd8 Naked>                              Σ0         ↓
            <Blob 0x21fac [30] @>                            Δ-30               {[«30""»]}
            <Const 0x21fb8 0xe.2>                            Δ-2                {[«30""»]|[#14]}
            <POP 21fba-21fbc StackAdj>                       Δ-4                {[«30""»]|[#14]|[-4-]}
            <Lit 0x21fbc 30>                                                    {[«30""»]|[#14]|[$$No possible elaboration order!]}
            <Call 0x21fce 0x103b8>                                              {[«30""»]|[#14]|[$$No possible elaboration order!]}
                PopProgram(status : Byte; msg : String)
            <POP 21fd4-21fd8 StackAdj>                       Δ+36               {}
        <POP 21fd8-2201c Naked>                              Σ0         ↓ ←0x21fa8
            <POP 0x21fd8 LimitCheck 0x0 ≤ D6 ≤ 0x1ff>                           {}
            <MI 21fda  CLR.L   D0>                                              {}
            <MI 21fdc  MOVE.W  D6,D0>                                           {}
            <MI 21fde  ASL.L   #0x1,D0>                                         {}
            <MI 21fe0  LEA.L   (A6-0x42a),A0>                                   {}
            <MI 21fe4  MOVEA.L (A6-0x426),A1>                                   {}
            <MI 21fe6  MOVE.W  (A1+0x22),(A0+D0.L+#0x16)>                       {}
            <MI 21fec  CLR.L   D0>                                              {}
            <MI 21fee  MOVE.W  D6,D0>                                           {}
            <MI 21ff0  MOVE.L  D0,D1>                                           {}
            <MI 21ff2  ADDQ.L  #0x1,D1>                                         {}
            <POP 0x21ff4 LimitCheck 0x0 ≤ D1 ≤ 0x1ff>                           {}
            <MI 21ffa  ASL.L   #0x1,D1>                                         {}
            <MI 21ffc  LEA.L   (A6-0x42a),A0>                                   {}
            <MI 22000  MOVE.W  (A1+0x24),(A0+D1.L+#0x16)>                       {}
            <MI 22006  ADDQ.L  #0x2,D0>                                         {}
            <POP 0x22008 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 22012  MOVE.W  D0,D6>                                           {}
            <MI 22014  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 22018  MOVE.L  (A0),(A6-0x42a)>                                 {}
        <POP 2201c-22026 Naked>                              Σ0 Δ-4     ↓ →0x22088 ←0x2207c
            <MI 2201c  MOVEA.L (A6-0x42a),A0>                                   {}
            <MI 22020  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 22022  CMPA.W  #0x01,A0>                                        {[4, 'A0']}
            <MI 22024  BEQ     0x22088>                                         {[4, 'A0']}
        <POP 22026-22030 Naked>                              Σ-4        ↓
            <MI 22026  MOVE.L  (A0+0x2a),(A6-0x41e)>                            {[-4-]}
            <MI 2202c  MOVEA.W #0x01,A4>                                        {[-4-]}
            <MI 2202e  MOVEQ.L #0x00,D7>                                        {[-4-]}
        <POP 22030-22038 Naked>                              Σ-4        ↓ →0x22050 ←0x2204e
            <MI 22030  MOVEA.L (A6-0x41e),A0>                                   {[-4-]}
            <MI 22034  CMPA.W  #0x01,A0>                                        {[-4-]}
            <MI 22036  BEQ     0x22050>                                         {[-4-]}
        <POP 22038-2203c Naked>                              Σ-4        ↓ →0x22050
            <MI 22038  TST.B   D7>                                              {[-4-]}
            <MI 2203a  BNE     0x22050>                                         {[-4-]}
        <POP 2203c-22042 Naked>                              Σ-4        ↓ →0x22046
            <MI 2203c  MOVEA.L (A0),A1>                                         {[-4-]}
            <MI 2203e  CMPA.L  (A6-0x426),A1>                                   {[-4-]}
            <MI 22040  BNE     0x22046>                                         {[-4-]}
        <POP 22042-22046 Naked>                              Σ-4        →0x2204e
            <MI 22042  MOVEQ.L #0x01,D7>                                        {[-4-]}
            <MI 22044  BRA     0x2204e>                                         {[-4-]}
        <POP 22046-2204e Naked>                              Σ-4        ↓ ←0x2203c
            <MI 22046  MOVEA.L A0,A4>                                           {[-4-]}
            <MI 22048  MOVE.L  (A0+0x4),(A6-0x41e)>                             {[-4-]}
        <POP 2204e-22050 Naked>                              Σ-4        →0x22030 ←0x22042
            <MI 2204e  BRA     0x22030>                                         {[-4-]}
        <POP 22050-22054 Naked>                              Σ-4        ↓ →0x2207c ←0x22030 ←0x22038
            <MI 22050  TST.B   D7>                                              {[-4-]}
            <MI 22052  BEQ     0x2207c>                                         {[-4-]}
        <POP 22054-2205e Naked>                              Σ-4        ↓ →0x22066
            <MI 22054  MOVEA.L (A7),A1>                                         {[-4-]}
            <MI 22056  SUBQ.L  #0x1,(A1+0x26)>                                  {[-4-]}
            <MI 2205a  CMPA.W  #0x01,A4>                                        {[-4-]}
            <MI 2205c  BNE     0x22066>                                         {[-4-]}
        <POP 2205e-22066 Naked>                              Σ-4        →0x2206c
            <MI 2205e  MOVE.L  (A0+0x4),(A1+0x2a)>                              {[-4-]}
            <MI 22064  BRA     0x2206c>                                         {[-4-]}
        <POP 22066-2206c Naked>                              Σ-4        ↓ ←0x22054
            <MI 22066  MOVE.L  (A0+0x4),(A4+0x4)>                               {[-4-]}
        <POP 2206c-2207c Naked>                              Σ-4        ↓ ←0x2205e
            <Pointer.fp 0x2206c <LVAR -0x41e @ 4(rw)>>       Δ-4                {[-4-]|[@@-1054]}
            <Const 0x22070 0x8.4>                            Δ-4                {[-4-]|[@@-1054]|[##8]}
            <Call 0x22074 0x102a8>                                              {[-4-]|[@@-1054]|[##8]}
                Free2(a : Pointer; b : Long)
            <POP 2207a-2207c StackAdj>                       Δ+8                {[-4-]}
        <POP 2207c-22088 Naked>                              Σ-4 Δ+4    →0x2201c ←0x22050
            <MI 2207c  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 2207e  MOVE.L  (A0+0x2e),(A6-0x42a)>                            {[-4-]}
            <POP 22084-22086 StackAdj>                       Δ+4                {}
            <MI 22086  BRA     0x2201c>                                         {}
        <POP 22088-2208e Naked>                              Σ-4 Δ+4    ↓ →0x2209a ←0x2201c
            <POP 22088-2208a StackAdj>                       Δ+4                {}
            <MI 2208a  CMPA.W  #0x01,A3>                                        {}
            <MI 2208c  BNE     0x2209a>                                         {}
        <POP 2208e-2209a Naked>                              Σ0         →0x220a2
            <MI 2208e  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 22092  MOVEA.L (A6-0x426),A1>                                   {}
            <MI 22094  MOVE.L  (A1+0x2e),(A0)>                                  {}
            <MI 22098  BRA     0x220a2>                                         {}
        <POP 2209a-220a2 Naked>                              Σ0         ↓ ←0x22088
            <MI 2209a  MOVEA.L (A6-0x426),A0>                                   {}
            <MI 2209c  MOVE.L  (A0+0x2e),(A3+0x2e)>                             {}
        <POP 220a2-220b4 Naked>                              Σ0         →0x21f7a ←0x2208e
            <Pointer.fp 0x220a2 <LVAR -0x426 @ 4(rw)>>       Δ-4                {[@@-1062]}
            <Const 0x220a4 0x32.4>                           Δ-4                {[@@-1062]|[##50]}
            <Call 0x220a8 0x102a8>                                              {[@@-1062]|[##50]}
                Free2(a : Pointer; b : Long)
            <POP 220ae-220b0 StackAdj>                       Δ+8                {}
            <MI 220b0  BRA     0x21f7a>                                         {}
        <POP 220b4-220be Naked>                              Σ0         ↓ →0x220ca ←0x21f7a
            <MI 220b4  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 220b8  CMPI.W  #0x0004,D0>                                      {}
            <MI 220bc  BNE     0x220ca>                                         {}
        <POP 220be-220ca Naked>                              Σ0         ↓
            <Pointer.fp 0x220be <LVAR -0x414 @>>             Δ-4                {[@@-1044]}
            <MI 220c2  MOVE.W  D6,-(A7)>                     Δ-2                {[@@-1044]|[2, 'D6']}
            <Call 0x220c4 0x21806>                                              {[@@-1044]|[2, 'D6']}
            <POP 220c8-220ca StackAdj>                       Δ+6                {}
        <POP 220ca-22106 Naked>                              Σ0         ↓ ←0x220b4
            <MI 220ca  MOVE.W  0x241d2,(A6-0x12)>                               {}
            <MI 220d2  CLR.W   (A6-0x10)>                                       {}
            <MI 220d6  CLR.W   (A6-0xe)>                                        {}
            <MI 220da  MOVE.W  #0x100,(A6-0xc)>                                 {}
            <MI 220e0  CLR.W   (A6-0xa)>                                        {}
            <MI 220e4  MOVE.W  (A6+0x8),(A6-0x8)>                               {}
            <MI 220ea  CLR.W   (A6-0x6)>                                        {}
            <MI 220ee  MOVE.W  #0x0e,(A6-0x4)>                                  {}
            <Pointer.fp 0x220f2 <LVAR -0x012 @ 2(w)>>        Δ-4                {[@@-18]}
            <MI 220f6  LEA.L   (A6-0x414),A0>                                   {[@@-18]}
            <MI 220fa  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-18]|[4, 'A0']}
            <Const 0x220fc 0x1.2>                            Δ-2                {[@@-18]|[4, 'A0']|[#1]}
            <Call 0x220fe 0x21312>                                              {[@@-18]|[4, 'A0']|[#1]}
            <POP 22102-22106 StackAdj>                       Δ+10               {}
        <POP 22106-2210e Epilogue>                           Σ0         

0x2210e


@ 2210e
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x003 @ 1(rw)>
        <LVAR -0x008 @ 4(rw)>
    <POP 2210e-22252 Body>                                              
        <POP 2210e-22124 Prologue>                           Σ0         ↓
        <POP 22124-22138 RegCacheLoad>                       Σ0         ↓
        <POP 22138-2215a Naked>                              Σ0         ↓ →0x2218a
            <POP 22138-2213a StackAdj>                       Δ-4                {[-4-]}
            <MI 2213a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x8)']}
            <Call 0x2213c 0x102cc>                                              {[-4-]|[4, '(A6+0x8)']}
                StringDup(a : String) : String
            <POP 22142-22144 StackAdj>                       Δ+4                {[-4-]}
            <MI 22144  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 22146  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 22148  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']|[4, '(A6+0x8)']}
            <Pointer.fp 0x2214a <LVAR -0x003 @ 1(rw)>>       Δ-4                {[4, '(A6-0x8)']|[4, '(A6+0x8)']|[@@-3]}
            <Call 0x2214c 0x102fc>                                              {[4, '(A6-0x8)']|[4, '(A6+0x8)']|[@@-3]}
                FirstField(MOD input : String; MOD output : String; VAR c : Bool
            <POP 22152-22156 StackAdj>                       Δ+12               {}
            <MI 22156  TST.B   (A6-0x3)>                                        {}
            <MI 22158  BNE     0x2218a>                                         {}
        <POP 2215a-2218a Naked>                              Σ0         ↓
            <Blob 0x2215a [32] @>                            Δ-32               {[«32""»]}
            <Const 0x2216a 0xe.2>                            Δ-2                {[«32""»]|[#14]}
            <POP 2216c-2216e StackAdj>                       Δ-4                {[«32""»]|[#14]|[-4-]}
            <Lit 0x2216e 31>                                                    {[«32""»]|[#14]|[$$No subsystem in WITH directive.]}
            <Call 0x22180 0x103b8>                                              {[«32""»]|[#14]|[$$No subsystem in WITH directive.]}
                PopProgram(status : Byte; msg : String)
            <POP 22186-2218a StackAdj>                       Δ+38               {}
        <POP 2218a-22196 Naked>                              Σ0         ↓ ←0x22138
            <Pointer.fp 0x2218a <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x2218c 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 22192-22194 StackAdj>                       Δ+4                {}
            <MI 22194  MOVEQ.L #0x00,D7>                                        {}
        <POP 22196-221c8 Naked>                              Σ0         ↓ →0x221fe ←0x221fe
            <POP 22196-22198 StackAdj>                       Δ-4                {[-4-]}
            <MI 22198  MOVE.B  D7,-(A7)>                     Δ-2                {[-4-]|[2, 'D7']}
            <Call 0x2219a 0x10586>                                              {[-4-]|[2, 'D7']}
                Config_Entry_Name(a : Byte) : String
            <POP 221a0-221a2 StackAdj>                       Δ+2                {[-4-]}
            <MI 221a2  MOVE.L  (A7),(A6-0x8)>                                   {[-4-]}
            <POP 221a4-221a6 StackAdj>                       Δ+2                {[-2-]}
            <MI 221a6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x8)']}
            <MI 221a8  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x8)']}
            <Call 0x221aa 0x102c8>                                              {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x8)']}
                StringEqual(a, b : String) : Byte
            <POP 221b0-221b2 StackAdj>                       Δ+8                {[-2-]}
            <MI 221b2  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 221b4  EXTB.W  D0>                                              {}
            <POP 0x221b6 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 221b8  MOVE.B  D0,(A6-0x3)>                                     {}
            <Pointer.fp 0x221ba <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x221bc 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 221c2-221c4 StackAdj>                       Δ+4                {}
            <MI 221c4  TST.B   D0>                                              {}
            <MI 221c6  BEQ     0x221fe>                                         {}
        <POP 221c8-221fe Naked>                              Σ0         →0x22240
            <MI 221c8  MOVE.B  D7,D0>                                           {}
            <MI 221ca  EXTB.W  D0>                                              {}
            <MI 221cc  ASL.W   #0x5,D0>                                         {}
            <MI 221ce  LEA.L   0x23e90,A0>                                      {}
            <Blob 0x221d4 [30] (A0+D0.W+#0x5d)>              Δ-30               {[«30»]}
            <POP 221e4-221e6 StackAdj>                       Δ-4                {[«30»]|[-4-]}
            <Lit 0x221e6>                                                       {[«30»]|[$$…]}
                <Pointer.sp 0x221e6 4>                       Δ-4        
                <Const 0x221ea 0x1.2>                        Δ-2        
                <Const 0x221ec 0x1e.2>                       Δ-2        
                <Call 0x221ee 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 221f4-221f6 StackAdj>                   Δ+8        
            <MI 221f6  MOVE.L  (A7)+,(A6+0xc)>               Δ+4                {[«30»]}
            <POP 221fa-221fc StackAdj>                       Δ+30               {}
            <MI 221fc  BRA     0x22240>                                         {}
        <POP 221fe-22206 Naked>                              Σ0         ↓ →0x22196 ←0x22196
            <MI 221fe  ADDQ.B  #0x1,D7>                                         {}
            <MI 22200  CMPI.B  #0x09,D7>                                        {}
            <MI 22204  BLE     0x22196>                                         {}
        <POP 22206-22240 Naked>                              Σ0         ↓
            <Blob 0x22206 [26] @>                            Δ-26               {[«26""»]}
            <Const 0x22218 0xe.2>                            Δ-2                {[«26""»]|[#14]}
            <POP 2221a-2221c StackAdj>                       Δ-8                {[«26""»]|[#14]|[-8-]}
            <Lit 0x2221c 25>                                                    {[«26""»]|[#14]|[-4-]|[$$Unknown subsystem name :_]}
            <POP 2222c-2222e StackAdj>                       Δ-4                {[«26""»]|[#14]|[-4-]|[$$Unknown subsystem name :_]|[-4-]}
            <MI 2222e  MOVE.L  (A6+0x8),(A7)>                                   {[«26""»]|[#14]|[-4-]|[$$Unknown subsystem name :_]|[4, '(A6+0x8)']}
            <Call 0x22230 0x102d0>                                              {[«26""»]|[#14]|[-4-]|[$$Unknown subsystem name :_]|[4, '(A6+0x8)']}
                StringCat2(a, b : String) : String
            <POP 22236-22238 StackAdj>                       Δ+8                {[«26""»]|[#14]|[-4-]}
            <Call 0x22238 0x103b8>                                              {[«26""»]|[#14]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 2223e-22240 StackAdj>                       Δ+32               {}
        <POP 22240-2224a Naked>                              Σ0         ↓ ←0x221c8
            <Pointer.fp 0x22240 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x22242 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 22248-2224a StackAdj>                       Δ+4                {}
        <POP 2224a-22252 Epilogue>                           Σ0         

0x22252


@ 22252
        <LVAR -0x010 @ 4(rw)>
        <LVAR -0x018 4(rw)>
        <LVAR -0x01c 4(rw)>
        <LVAR -0x03a @>
        <LVAR -0x03e @ 4(rw)>
    <POP 22252-22460 Body>                                   Δ-4        
        <POP 22252-22268 Prologue>                           Σ0         ↓
        <POP 22268-2226e RegCacheLoad>                       Σ0         ↓
        <POP 2226e-2227c Naked>                              Σ0         ↓
            <Pointer.fp 0x2226e <LVAR -0x03e @ 4(rw)>>       Δ-4                {[@@-62]}
            <Call 0x22272 0x102b8>                                              {[@@-62]}
                NewString(VAR a : String)
            <POP 22278-2227a StackAdj>                       Δ+4                {}
            <MI 2227a  MOVEQ.L #0x00,D5>                                        {}
        <POP 2227c-222b2 Naked>                              Σ0         ↓ ←0x2239a
            <MI 2227c  MOVE.B  D5,D0>                                           {}
            <MI 2227e  EXTB.W  D0>                                              {}
            <MI 22280  ASL.W   #0x5,D0>                                         {}
            <MI 22282  LEA.L   0x23e90,A0>                                      {}
            <Blob 0x22288 [30] (A0+D0.W+#0x5d)>              Δ-30               {[«30»]}
            <POP 22298-2229a StackAdj>                       Δ-4                {[«30»]|[-4-]}
            <Lit 0x2229a>                                                       {[«30»]|[$$…]}
                <Pointer.sp 0x2229a 4>                       Δ-4        
                <Const 0x2229e 0x1.2>                        Δ-2        
                <Const 0x222a0 0x1e.2>                       Δ-2        
                <Call 0x222a2 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 222a8-222aa StackAdj>                   Δ+8        
            <MI 222aa  MOVE.L  (A7)+,(A6-0x3e)>              Δ+4                {[«30»]}
            <POP 222ae-222b0 StackAdj>                       Δ+30               {}
            <MI 222b0  MOVEQ.L #0x01,D6>                                        {}
        <POP 222b2-222be Naked>                              Σ0         ↓ →0x222ce ←0x222ec
            <MI 222b2  MOVEA.L (A6-0x3e),A0>                                    {}
            <MI 222b6  MOVE.W  (A0),D0>                                         {}
            <MI 222b8  EXTW.L  D0>                                              {}
            <MI 222ba  CMP.L   D0,D6>                                           {}
            <MI 222bc  BLE     0x222ce>                                         {}
        <POP 222be-222ce Naked>                              Σ0         →0x222ec
            <MI 222be  MOVE.L  D6,D0>                                           {}
            <MI 222c0  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x222c2 LimitCheck 0x0 ≤ D0 ≤ 0x1d>                            {}
            <MI 222c8  CLR.B   (A6+D0.L-#0x3a)>                                 {}
            <MI 222cc  BRA     0x222ec>                                         {}
        <POP 222ce-222ec Naked>                              Σ0         ↓ ←0x222b2
            <MI 222ce  MOVE.L  D6,D0>                                           {}
            <MI 222d0  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x222d2 LimitCheck 0x0 ≤ D0 ≤ 0x1d>                            {}
            <MI 222d8  MOVE.L  D6,D1>                                           {}
            <MI 222da  SUBQ.L  #0x1,D1>                                         {}
            <POP 0x222dc LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {}
            <MI 222e6  MOVE.B  (A0+D1.L+#0x2),(A6+D0.L-#0x3a)>                  {}
        <POP 222ec-222f2 Naked>                              Σ0         ↓ →0x222b2 ←0x222be
            <MI 222ec  ADDQ.L  #0x1,D6>                                         {}
            <MI 222ee  CMP.L   #0x1e,D6>                                        {}
            <MI 222f0  BLE     0x222b2>                                         {}
        <POP 222f2-222fe Naked>                              Σ0         ↓
            <MI 222f2  MOVE.L  0x241ca,(A6-0x1c)>                               {}
            <MI 222fa  MOVEA.W #0x01,A3>                                        {}
            <MI 222fc  MOVEQ.L #0x00,D7>                                        {}
        <POP 222fe-22306 Naked>                              Σ0         ↓ →0x22328 ←0x22326
            <MI 222fe  MOVEA.L (A6-0x1c),A0>                                    {}
            <MI 22302  CMPA.W  #0x01,A0>                                        {}
            <MI 22304  BEQ     0x22328>                                         {}
        <POP 22306-2230a Naked>                              Σ0         ↓ →0x22328
            <MI 22306  TST.B   D7>                                              {}
            <MI 22308  BNE     0x22328>                                         {}
        <POP 2230a-22312 Naked>                              Σ0         ↓
            <MI 2230a  LEA.L   (A6-0x3a),A1>                                    {}
            <MI 2230e  MOVEA.L A0,A2>                                           {}
            <MI 22310  MOVEQ.L #0x1d,D0>                                        {}
        <POP 22312-22318 Naked>                              Σ0         ↓ →0x22312 ←0x22312
            <MI 22312  CMPM.B  (A1)+,(A2)+>                                     {}
            <MI 22314  DBNE    D0,0x22312>                                      {}
        <POP 22318-2231a Naked>                              Σ0         ↓ →0x2231e
            <MI 22318  BNE     0x2231e>                                         {}
        <POP 2231a-2231e Naked>                              Σ0         →0x22326
            <MI 2231a  MOVEQ.L #0x01,D7>                                        {}
            <MI 2231c  BRA     0x22326>                                         {}
        <POP 2231e-22326 Naked>                              Σ0         ↓ ←0x22318
            <MI 2231e  MOVEA.L A0,A3>                                           {}
            <MI 22320  MOVE.L  (A0+0x2e),(A6-0x1c)>                             {}
        <POP 22326-22328 Naked>                              Σ0         →0x222fe ←0x2231a
            <MI 22326  BRA     0x222fe>                                         {}
        <POP 22328-2232c Naked>                              Σ0         ↓ →0x2237e ←0x222fe ←0x22306
            <MI 22328  TST.B   D7>                                              {}
            <MI 2232a  BNE     0x2237e>                                         {}
        <POP 2232c-2237e Naked>                              Σ0         ↓
            <Blob 0x2232c [42] @>                            Δ-42               {[«42""»]}
            <Blob 0x22338 [30] (A6-0x1c)>                    Δ-30               {[«42""»]|[«30»]}
            <Const 0x22344 0xe.2>                            Δ-2                {[«42""»]|[«30»]|[#14]}
            <POP 22348-2234a StackAdj>                       Δ-8                {[«42""»]|[«30»]|[#14]|[-8-]}
            <Lit 0x2234a 42>                                                    {[«42""»]|[«30»]|[#14]|[-4-]|[$$Kernel elaborated subsystem not on list :_]}
            <POP 2235a-2235c StackAdj>                       Δ-4                {[«42""»]|[«30»]|[#14]|[-4-]|[$$Kernel elaborated subsystem not on list :_]|[-4-]}
            <Lit 0x2235c>                                                       {[«42""»]|[«30»]|[#14]|[-4-]|[$$Kernel elaborated subsystem not on list :_]|[$$…]}
                <Pointer.sp 0x2235c 14>                      Δ-4        
                <Const 0x22360 0x1.2>                        Δ-2        
                <Const 0x22362 0x1e.2>                       Δ-2        
                <Call 0x22364 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2236a-2236c StackAdj>                   Δ+8        
            <Call 0x2236c 0x102d0>                                              {[«42""»]|[«30»]|[#14]|[-4-]|[$$Kernel elaborated subsystem not on list :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 22372-22374 StackAdj>                       Δ+8                {[«42""»]|[«30»]|[#14]|[-4-]}
            <Call 0x22374 0x103b8>                                              {[«42""»]|[«30»]|[#14]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 2237a-2237e StackAdj>                       Δ+78               {}
        <POP 2237e-22382 Naked>                              Σ0         ↓ →0x22390 ←0x22328
            <MI 2237e  CMPA.W  #0x01,A3>                                        {}
            <MI 22380  BNE     0x22390>                                         {}
        <POP 22382-22390 Naked>                              Σ0         →0x2239a
            <MI 22382  MOVEA.L (A6-0x1c),A0>                                    {}
            <MI 22386  MOVE.L  (A0+0x2e),0x241ca>                               {}
            <MI 2238e  BRA     0x2239a>                                         {}
        <POP 22390-2239a Naked>                              Σ0         ↓ ←0x2237e
            <MI 22390  MOVEA.L (A6-0x1c),A0>                                    {}
            <MI 22394  MOVE.L  (A0+0x2e),(A3+0x2e)>                             {}
        <POP 2239a-223b8 Naked>                              Σ0         ↓ →0x2227c ←0x22382
            <MI 2239a  MOVEA.L (A6-0x1c),A0>                                    {}
            <MI 2239e  MOVE.L  0x241ce,(A0+0x2e)>                               {}
            <MI 223a6  MOVE.L  (A6-0x1c),0x241ce>                               {}
            <MI 223ae  ADDQ.B  #0x1,D5>                                         {}
            <MI 223b0  CMPI.B  #0x04,D5>                                        {}
            <MI 223b4  BLE     0x2227c>                                         {}
        <POP 223b8-223cc Naked>                              Σ0         ↓
            <Pointer.fp 0x223b8 <LVAR -0x03e @ 4(rw)>>       Δ-4                {[@@-62]}
            <Call 0x223bc 0x102bc>                                              {[@@-62]}
                FreeString(VAR a : String)
            <POP 223c2-223c4 StackAdj>                       Δ+4                {}
            <MI 223c4  MOVE.L  0x241ce,(A6-0x18)>                               {}
        <POP 223cc-223d6 Naked>                              Σ0         ↓ →0x22458 ←0x22448
            <MI 223cc  MOVEA.L (A6-0x18),A0>                                    {}
            <MI 223d0  CMPA.W  #0x01,A0>                                        {}
            <MI 223d2  BEQ     0x22458>                                         {}
        <POP 223d6-223de Naked>                              Σ0         ↓
            <MI 223d6  MOVE.L  0x241ca,(A6-0x1c)>                               {}
        <POP 223de-223e8 Naked>                              Σ0 Δ-4     ↓ →0x22448 ←0x2243c
            <MI 223de  MOVEA.L (A6-0x1c),A0>                                    {}
            <MI 223e2  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 223e4  CMPA.W  #0x01,A0>                                        {[4, 'A0']}
            <MI 223e6  BEQ     0x22448>                                         {[4, 'A0']}
        <POP 223e8-223f2 Naked>                              Σ-4        ↓
            <MI 223e8  MOVE.L  (A0+0x2a),(A6-0x10)>                             {[-4-]}
            <MI 223ee  MOVEA.W #0x01,A4>                                        {[-4-]}
            <MI 223f0  MOVEQ.L #0x00,D7>                                        {[-4-]}
        <POP 223f2-223fa Naked>                              Σ-4        ↓ →0x22414 ←0x22412
            <MI 223f2  MOVEA.L (A6-0x10),A0>                                    {[-4-]}
            <MI 223f6  CMPA.W  #0x01,A0>                                        {[-4-]}
            <MI 223f8  BEQ     0x22414>                                         {[-4-]}
        <POP 223fa-223fe Naked>                              Σ-4        ↓ →0x22414
            <MI 223fa  TST.B   D7>                                              {[-4-]}
            <MI 223fc  BNE     0x22414>                                         {[-4-]}
        <POP 223fe-22406 Naked>                              Σ-4        ↓ →0x2240a
            <MI 223fe  MOVEA.L (A0),A1>                                         {[-4-]}
            <MI 22400  CMPA.L  (A6-0x18),A1>                                    {[-4-]}
            <MI 22404  BNE     0x2240a>                                         {[-4-]}
        <POP 22406-2240a Naked>                              Σ-4        →0x22412
            <MI 22406  MOVEQ.L #0x01,D7>                                        {[-4-]}
            <MI 22408  BRA     0x22412>                                         {[-4-]}
        <POP 2240a-22412 Naked>                              Σ-4        ↓ ←0x223fe
            <MI 2240a  MOVEA.L A0,A4>                                           {[-4-]}
            <MI 2240c  MOVE.L  (A0+0x4),(A6-0x10)>                              {[-4-]}
        <POP 22412-22414 Naked>                              Σ-4        →0x223f2 ←0x22406
            <MI 22412  BRA     0x223f2>                                         {[-4-]}
        <POP 22414-22418 Naked>                              Σ-4        ↓ →0x2243c ←0x223f2 ←0x223fa
            <MI 22414  TST.B   D7>                                              {[-4-]}
            <MI 22416  BEQ     0x2243c>                                         {[-4-]}
        <POP 22418-2241c Naked>                              Σ-4        ↓ →0x22426
            <MI 22418  CMPA.W  #0x01,A4>                                        {[-4-]}
            <MI 2241a  BNE     0x22426>                                         {[-4-]}
        <POP 2241c-22426 Naked>                              Σ-4        →0x2242c
            <MI 2241c  MOVEA.L (A7),A1>                                         {[-4-]}
            <MI 2241e  MOVE.L  (A0+0x4),(A1+0x2a)>                              {[-4-]}
            <MI 22424  BRA     0x2242c>                                         {[-4-]}
        <POP 22426-2242c Naked>                              Σ-4        ↓ ←0x22418
            <MI 22426  MOVE.L  (A0+0x4),(A4+0x4)>                               {[-4-]}
        <POP 2242c-2243c Naked>                              Σ-4        ↓ ←0x2241c
            <Pointer.fp 0x2242c <LVAR -0x010 @ 4(rw)>>       Δ-4                {[-4-]|[@@-16]}
            <Const 0x22430 0x8.4>                            Δ-4                {[-4-]|[@@-16]|[##8]}
            <Call 0x22434 0x102a8>                                              {[-4-]|[@@-16]|[##8]}
                Free2(a : Pointer; b : Long)
            <POP 2243a-2243c StackAdj>                       Δ+8                {[-4-]}
        <POP 2243c-22448 Naked>                              Σ-4 Δ+4    →0x223de ←0x22414
            <MI 2243c  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 2243e  MOVE.L  (A0+0x2e),(A6-0x1c)>                             {[-4-]}
            <POP 22444-22446 StackAdj>                       Δ+4                {}
            <MI 22446  BRA     0x223de>                                         {}
        <POP 22448-22458 Naked>                              Σ-4 Δ+4    →0x223cc ←0x223de
            <POP 22448-2244a StackAdj>                       Δ+4                {}
            <MI 2244a  MOVEA.L (A6-0x18),A0>                                    {}
            <MI 2244e  MOVE.L  (A0+0x2e),(A6-0x18)>                             {}
            <MI 22454  BRA     0x223cc>                                         {}
        <POP 22458-22460 Epilogue>                           Σ0         ←0x223cc

0x22460


@ 22460
    <POP 22460-224f0 Body>                                              
        <POP 22460-22476 Prologue>                           Σ0         ↓
        <POP 22476-2247a RegCacheLoad>                       Σ0         ↓
        <POP 2247a-2248c Naked>                              Σ0         ↓ →0x224e8
            <POP 2247a-2247c StackAdj>                       Δ-4                {[-4-]}
            <Call 0x2247c 0x103f8>                                              {[-4-]}
                GetConsoleConfig() : Long
            <MI 22482  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 22484  CMPI.L  #0x00000003,D0>                                  {}
            <MI 2248a  BNE     0x224e8>                                         {}
        <POP 2248c-224e8 Naked>                              Σ0         ↓
            <Blob 0x2248c [38] @>                            Δ-38               {[«38""»]}
            <POP 22498-2249a StackAdj>                       Δ-4                {[«38""»]|[-4-]}
            <Lit 0x2249a 38>                                                    {[«38""»]|[$$Returning to LOCAL mode to start R1000]}
            <Call 0x224ac 0x103e0>                                              {[«38""»]|[$$Returning to LOCAL mode to start R1000]}
                WriteConsoleStringCrLf(str : String)
            <POP 224b2-224b4 StackAdj>                       Δ+42               {}
            <Call 0x224b4 0x10216>                                              {}
                KC0b
            <Blob 0x224ba [42] @>                            Δ-42               {[«42""»]}
            <POP 224ca-224cc StackAdj>                       Δ-4                {[«42""»]|[-4-]}
            <Lit 0x224cc 41>                                                    {[«42""»]|[$$Returned to LOCAL, starting R1000 cluster]}
            <Call 0x224de 0x103e0>                                              {[«42""»]|[$$Returned to LOCAL, starting R1000 cluster]}
                WriteConsoleStringCrLf(str : String)
            <POP 224e4-224e8 StackAdj>                       Δ+46               {}
        <POP 224e8-224f0 Epilogue>                           Σ0         ←0x2247a

0x224f0


@ 224f0
        <LVAR -0x001 1(r)>
        <LVAR -0x002 1(r)>
        <LVAR -0x003 1(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x404 @>
        <LVAR -0x406 2(w)>
        <LVAR -0x408 2(w) 4(w)>
        <LVAR -0x40c 4(w)>
        <LVAR -0x410 2(w) 4(w)>
        <LVAR -0x414 @ 2(w) 4(w)>
    <POP 224f0-225ea Body>                                              
        <POP 224f0-22506 Prologue>                           Σ0         ↓
        <POP 22506-2250a RegCacheLoad>                       Σ0         ↓
        <POP 2250a-225c0 Naked>                              Σ0         ↓ →0x225c6
            <Call 0x2250a 0x22252>                                              {}
            <Const 0x2250e 0x241ce.4>                        Δ-4                {[##147918]}
            <Const 0x22514 0x4.2>                            Δ-2                {[##147918]|[#4]}
            <Call 0x22518 0x21f02>                                              {[##147918]|[#4]}
            <POP 2251c-2251e StackAdj>                       Δ+6                {}
            <Const 0x2251e 0x241ca.4>                        Δ-4                {[##147914]}
            <Const 0x22524 0xf.2>                            Δ-2                {[##147914]|[#15]}
            <Call 0x22528 0x21f02>                                              {[##147914]|[#15]}
            <POP 2252c-2252e StackAdj>                       Δ+6                {}
            <Call 0x2252e 0x22460>                                              {}
            <Call 0x22532 0x20766>                                              {}
            <Blob 0x22536 [54] @>                            Δ-54               {[«54""»]}
            <POP 22542-22544 StackAdj>                       Δ-4                {[«54""»]|[-4-]}
            <Lit 0x22544 54>                                                    {[«54""»]|[$$Starting R1000 Environment - it now owns this console.]}
            <Call 0x22558 0x103e0>                                              {[«54""»]|[$$Starting R1000 Environment - it now owns this console.]}
                WriteConsoleStringCrLf(str : String)
            <POP 2255e-22562 StackAdj>                       Δ+58               {}
            <MI 22562  MOVE.L  0x20654,(A6-0x414)>                              {}
            <MI 22566  MOVE.L  0x20658,(A6-0x410)>                              {}
            <MI 2256c  MOVE.L  0x2065c,(A6-0x40c)>                              {}
            <MI 22572  MOVE.L  0x20660,(A6-0x408)>                              {}
            <Pointer.fp 0x22578 <LVAR -0x414 @ 2(w) 4(w)>>   Δ-4                {[@@-1044]}
            <Call 0x2257a 0x20834>                                              {[@@-1044]}
            <POP 2257e-22580 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x22580 <LVAR -0x004 @ 1(r)>>        Δ-4                {[@@-4]}
            <Call 0x22584 0x1059e>                                              {[@@-4]}
                ReadClusterNo(VAR a : Long)
            <POP 2258a-2258c StackAdj>                       Δ+4                {}
            <MI 2258c  CLR.L   D0>                                              {}
            <MI 2258e  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 22592  ASL.W   #0x8,D0>                                         {}
            <MI 22594  CLR.L   D1>                                              {}
            <MI 22596  MOVE.B  (A6-0x3),D1>                                     {}
            <MI 2259a  ADD.W   D0,D1>                                           {}
            <MI 2259c  MOVE.W  D1,(A6-0x408)>                                   {}
            <MI 225a0  CLR.L   D0>                                              {}
            <MI 225a2  MOVE.B  (A6-0x2),D0>                                     {}
            <MI 225a6  ASL.W   #0x8,D0>                                         {}
            <MI 225a8  CLR.L   D1>                                              {}
            <MI 225aa  MOVE.B  (A6-0x1),D1>                                     {}
            <MI 225ae  ADD.W   D0,D1>                                           {}
            <MI 225b0  MOVE.W  D1,(A6-0x406)>                                   {}
            <POP 225b4-225b6 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x225b6 0x105ce>                                              {[-2-]}
                ReadKeySwitch() : Bool
            <MI 225bc  TST.B   (A7)+>                        Δ+2                {}
            <MI 225be  BEQ     0x225c6>                                         {}
        <POP 225c0-225c6 Naked>                              Σ0         ↓
            <MI 225c0  ORI.W   #0x8000,(A6-0x410)>                              {}
        <POP 225c6-225e2 Naked>                              Σ0         ↓ ←0x2250a
            <MI 225c6  MOVE.W  0x241d2,(A6-0x414)>                              {}
            <MI 225cc  ANDI.W  #0xff00,(A6-0x414)>                              {}
            <Pointer.fp 0x225d0 <LVAR -0x414 @ 2(w) 4(w)>>   Δ-4                {[@@-1044]}
            <MI 225d2  LEA.L   (A6-0x404),A0>                                   {[@@-1044]}
            <MI 225d6  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-1044]|[4, 'A0']}
            <MI 225d8  CLR.B   -(A7)>                        Δ-2                {[@@-1044]|[4, 'A0']|[#0]}
            <Call 0x225da 0x21312>                                              {[@@-1044]|[4, 'A0']|[#0]}
            <POP 225de-225e2 StackAdj>                       Δ+10               {}
        <POP 225e2-225ea Epilogue>                           Σ0         

0x225ea


@ 225ea
        <LVAR  0x00c 1(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @>
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x00c @ 4(rw)>
    <POP 225ea-226a2 Body>                                              
        <POP 225ea-22600 Prologue>                           Σ0         ↓
        <POP 22600-2260c RegCacheLoad>                       Σ0         ↓
        <POP 2260c-22630 Naked>                              Σ0         ↓
            <MI 2260c  MOVE.B  #0x04,(A6+0xc)>                                  {}
            <Pointer.fp 0x22612 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x22614 0x102b8>                                              {[@@-6]}
                NewString(VAR a : String)
            <MI 2261a  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <MI 2261e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Pointer.fp 0x22620 <LVAR -0x002 @>>             Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x6)']|[@@-2]}
            <Call 0x22624 0x102fc>                                              {[4, '(A6+0x8)']|[4, '(A6-0x6)']|[@@-2]}
                FirstField(MOD input : String; MOD output : String; VAR c : Bool
            <POP 2262a-2262e StackAdj>                       Δ+12               {}
            <MI 2262e  MOVEQ.L #0x00,D7>                                        {}
        <POP 22630-22682 Naked>                              Σ0         ↓ →0x22688 ←0x22688
            <MI 22630  MOVE.B  D7,D0>                                           {}
            <MI 22632  EXTB.W  D0>                                              {}
            <MI 22634  MULS.W  #0x0a,D0>                                        {}
            <MI 22636  LEA.L   0x20664,A0>                                      {}
            <Blob 0x2263a [10] (A0+D0.W)>                    Δ-10               {[«10»]}
            <POP 2264a-2264c StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x2264c>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x2264c 4>                       Δ-4        
                <Const 0x22650 0x1.2>                        Δ-2        
                <Const 0x22652 0xa.2>                        Δ-2        
                <Call 0x22654 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2265a-2265c StackAdj>                   Δ+8        
            <MI 2265c  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[«10»]}
            <POP 2265e-22660 StackAdj>                       Δ+4                {[-6-]}
            <MI 22660  MOVE.L  (A6-0x6),(A7)>                                   {[-2-]|[4, '(A6-0x6)']}
            <MI 22662  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x6)']|[4, '(A6-0xc)']}
            <Call 0x22664 0x102c8>                                              {[-2-]|[4, '(A6-0x6)']|[4, '(A6-0xc)']}
                StringEqual(a, b : String) : Byte
            <POP 2266a-2266c StackAdj>                       Δ+8                {[-2-]}
            <MI 2266c  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 2266e  EXTB.W  D0>                                              {}
            <POP 0x22670 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 22672  MOVE.B  D0,D6>                                           {}
            <Pointer.fp 0x22674 <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x22676 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 2267c-2267e StackAdj>                       Δ+4                {}
            <MI 2267e  TST.B   D6>                                              {}
            <MI 22680  BEQ     0x22688>                                         {}
        <POP 22682-22688 Naked>                              Σ0         →0x22690
            <MI 22682  MOVE.B  D7,(A6+0xc)>                                     {}
            <MI 22686  BRA     0x22690>                                         {}
        <POP 22688-22690 Naked>                              Σ0         ↓ →0x22630 ←0x22630
            <MI 22688  ADDQ.B  #0x1,D7>                                         {}
            <MI 2268a  CMPI.B  #0x03,D7>                                        {}
            <MI 2268e  BLE     0x22630>                                         {}
        <POP 22690-2269a Naked>                              Σ0         ↓ ←0x22682
            <Pointer.fp 0x22690 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x22692 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 22698-2269a StackAdj>                       Δ+4                {}
        <POP 2269a-226a2 Epilogue>                           Σ0         

0x226a2


@ 226a2
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c 4(w)>
        <LVAR -0x010 @ 4(w)>
    <POP 226a2-22760 Body>                                              
        <POP 226a2-226b8 Prologue>                           Σ0         ↓
        <POP 226b8-226c6 RegCacheLoad>                       Σ0         ↓
        <POP 226c6-226e0 Naked>                              Σ0         ↓ →0x226ee
            <Pointer.fp 0x226c6 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x226c8 0x102b8>                                              {[@@-8]}
                NewString(VAR a : String)
            <MI 226ce  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <MI 226d0  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x8)']}
            <Pointer.fp 0x226d2 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x8)']|[@@-4]}
            <Call 0x226d4 0x102fc>                                              {[4, '(A6+0x8)']|[4, '(A6-0x8)']|[@@-4]}
                FirstField(MOD input : String; MOD output : String; VAR c : Bool
            <POP 226da-226dc StackAdj>                       Δ+12               {}
            <MI 226dc  TST.B   (A6-0x4)>                                        {}
            <MI 226de  BEQ     0x226ee>                                         {}
        <POP 226e0-226ee Naked>                              Σ0         ↓
            <MI 226e0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 226e2  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x8)']}
            <Pointer.fp 0x226e4 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x8)']|[@@-4]}
            <Call 0x226e6 0x102fc>                                              {[4, '(A6+0x8)']|[4, '(A6-0x8)']|[@@-4]}
                FirstField(MOD input : String; MOD output : String; VAR c : Bool
            <POP 226ec-226ee StackAdj>                       Δ+12               {}
        <POP 226ee-226f2 Naked>                              Σ0         ↓ →0x22722 ←0x226c6
            <MI 226ee  TST.B   (A6-0x4)>                                        {}
            <MI 226f0  BNE     0x22722>                                         {}
        <POP 226f2-22722 Naked>                              Σ0         ↓
            <Blob 0x226f2 [34] @>                            Δ-34               {[«34""»]}
            <Const 0x226fe 0xe.2>                            Δ-2                {[«34""»]|[#14]}
            <POP 22702-22704 StackAdj>                       Δ-4                {[«34""»]|[#14]|[-4-]}
            <Lit 0x22704 34>                                                    {[«34""»]|[#14]|[$$Bad syntax in SUBSYSTEM directive!]}
            <Call 0x22718 0x103b8>                                              {[«34""»]|[#14]|[$$Bad syntax in SUBSYSTEM directive!]}
                PopProgram(status : Byte; msg : String)
            <POP 2271e-22722 StackAdj>                       Δ+40               {}
        <POP 22722-22758 Naked>                              Σ0         ↓ ←0x226ee
            <POP 22722-22724 StackAdj>                       Δ-8                {[-8-]}
            <MI 22724  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x8)']}
            <Const 0x22726 0x10.4>                           Δ-4                {[-8-]|[4, '(A6-0x8)']|[##16]}
            <Call 0x2272a 0x10360>                                              {[-8-]|[4, '(A6-0x8)']|[##16]}
                ?StringToInt64()
            <POP 22730-22732 StackAdj>                       Δ+8                {[-8-]}
            <MI 22732  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 22736  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 2273a  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2273e  LEA.L   (A0+0x1e),A0>                                    {}
            <MI 22742  LEA.L   (A6-0x10),A1>                                    {}
            <BlockMove 8,A1,A0>                                                 {}
            <Pointer.fp 0x2274e <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x22750 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 22756-22758 StackAdj>                       Δ+4                {}
        <POP 22758-22760 Epilogue>                           Σ0         

0x22760


@ 22760
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 @ 4(rw)>
        <LVAR -0x003 @ 1(r)>
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x00a @ 4(r)>
        <LVAR -0x00e @ 4(rw)>
        <LVAR -0x016 @ 4(rw)>
        <LVAR -0x01a @ 4(rw)>
        <LVAR -0x01c @>
        <LVAR -0x020 @ 4(r)>
    <POP 22760-22a9e Body>                                   Δ+12       
        <POP 22760-22776 Prologue>                           Σ0         ↓
        <POP 22776-22782 RegCacheLoad>                       Σ0         ↓
        <POP 22782-227a4 Naked>                              Σ0         ↓ →0x227d4
            <Pointer.fp 0x22782 <LVAR -0x01a @ 4(rw)>>       Δ-4                {[@@-26]}
            <Call 0x22784 0x102b8>                                              {[@@-26]}
                NewString(VAR a : String)
            <MI 2278a  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <MI 2278e  MOVE.L  (A6-0x1a),-(A7)>              Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x1a)']}
            <Pointer.fp 0x22790 <LVAR -0x003 @ 1(r)>>        Δ-4                {[4, '(A6+0x8)']|[4, '(A6-0x1a)']|[@@-3]}
            <Call 0x22794 0x102fc>                                              {[4, '(A6+0x8)']|[4, '(A6-0x1a)']|[@@-3]}
                FirstField(MOD input : String; MOD output : String; VAR c : Bool
            <POP 2279a-2279e StackAdj>                       Δ+12               {}
            <MI 2279e  TST.B   (A6-0x3)>                                        {}
            <MI 227a2  BNE     0x227d4>                                         {}
        <POP 227a4-227d4 Naked>                              Σ0         ↓
            <Blob 0x227a4 [30] @>                            Δ-30               {[«30""»]}
            <Const 0x227b4 0xe.2>                            Δ-2                {[«30""»]|[#14]}
            <POP 227b6-227b8 StackAdj>                       Δ-4                {[«30""»]|[#14]|[-4-]}
            <Lit 0x227b8 29>                                                    {[«30""»]|[#14]|[$$Bad syntax in WITH directive!]}
            <Call 0x227ca 0x103b8>                                              {[«30""»]|[#14]|[$$Bad syntax in WITH directive!]}
                PopProgram(status : Byte; msg : String)
            <POP 227d0-227d4 StackAdj>                       Δ+36               {}
        <POP 227d4-22826 Naked>                              Σ0         ↓ →0x2283a ←0x22782
            <POP 227d4-227d6 StackAdj>                       Δ-4                {[-4-]}
            <MI 227d6  MOVE.L  (A6-0x1a),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x1a)']}
            <Call 0x227d8 0x102f0>                                              {[-4-]|[4, '(A6-0x1a)']}
                ToUpper(a : String) : String
            <POP 227de-227e0 StackAdj>                       Δ+4                {[-4-]}
            <MI 227e0  MOVE.L  (A7)+,(A6-0x1a)>              Δ+4                {}
            <Pointer.fp 0x227e2 <LVAR  0x008 @ 4(rw)>>       Δ-4                {[@@8]}
            <Call 0x227e6 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 227ec-227ee StackAdj>                       Δ+2                {[-2-]}
            <POP 227ee-227ef StackAdj>                       Δ+2                {}
            <Blob 0x227ef [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x227f2 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x227f6 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 227fa-227fc StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x227fc 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$.MLOAD]}
            <MI 2280e  MOVE.L  (A7)+,(A6+0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 22812-22814 StackAdj>                       Δ+2                {[«2""»]|[«2""»]}
            <MI 22814  MOVE.L  (A6-0x1a),-(A7)>              Δ-4                {[«2""»]|[«2""»]|[4, '(A6-0x1a)']}
            <MI 22816  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«2""»]|[«2""»]|[4, '(A6-0x1a)']|[4, '(A6+0x8)']}
            <Call 0x2281a 0x10300>                                              {[«2""»]|[«2""»]|[4, '(A6-0x1a)']|[4, '(A6+0x8)']}
                FSCALL_10300
            <POP 22820-22822 StackAdj>                       Δ+8                {[«2""»]|[«2""»]}
            <MI 22822  TST.L   (A7)+>                        Δ+4                {}
            <MI 22824  BNE     0x2283a>                                         {}
        <POP 22826-2283a Naked>                              Σ0         →0x22846
            <POP 22826-22828 StackAdj>                       Δ-4                {[-4-]}
            <MI 22828  MOVE.L  (A6-0x1a),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x1a)']}
            <MI 2282a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x1a)']|[4, '(A6+0x8)']}
            <Call 0x2282e 0x102d0>                                              {[-4-]|[4, '(A6-0x1a)']|[4, '(A6+0x8)']}
                StringCat2(a, b : String) : String
            <POP 22834-22836 StackAdj>                       Δ+8                {[-4-]}
            <MI 22836  MOVE.L  (A7)+,(A6-0x1a)>              Δ+4                {}
            <MI 22838  BRA     0x22846>                                         {}
        <POP 2283a-22846 Naked>                              Σ0         ↓ ←0x227d4
            <Pointer.fp 0x2283a <LVAR  0x008 @ 4(rw)>>       Δ-4                {[@@8]}
            <Call 0x2283e 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 22844-22846 StackAdj>                       Δ+4                {}
        <POP 22846-2286c Naked>                              Σ0         ↓ ←0x22826
            <MI 22846  MOVE.L  (A6-0x1a),-(A7)>              Δ-4                {[4, '(A6-0x1a)']}
            <MI 22848  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x1a)']|[#0]}
            <Const 0x2284a 0x2.2>                            Δ-2                {[4, '(A6-0x1a)']|[#0]|[#2]}
            <Const 0x2284c 0x0.4>                            Δ-4                {[4, '(A6-0x1a)']|[#0]|[#2]|[##0]}
            <Pointer.fp 0x22850 <LVAR -0x01c @>>             Δ-4                {[4, '(A6-0x1a)']|[#0]|[#2]|[##0]|[@@-28]}
            <Pointer.fp 0x22854 <LVAR -0x020 @ 4(r)>>        Δ-4                {[4, '(A6-0x1a)']|[#0]|[#2]|[##0]|[@@-28]|[@@-32]}
            <Call 0x22858 0x10380>                                              {[4, '(A6-0x1a)']|[#0]|[#2]|[##0]|[@@-28]|[@@-32]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 2285e-22862 StackAdj>                       Δ+20               {}
            <MI 22862  MOVE.L  0x241ca,(A6-0xe)>                                {}
            <MI 2286a  MOVEQ.L #0x01,D7>                                        {}
        <POP 2286c-22874 Naked>                              Σ0         ↓ →0x22894 ←0x22892
            <MI 2286c  MOVEA.L (A6-0xe),A0>                                     {}
            <MI 22870  CMPA.W  #0x01,A0>                                        {}
            <MI 22872  BEQ     0x22894>                                         {}
        <POP 22874-22878 Naked>                              Σ0         ↓ →0x22894
            <MI 22874  TST.B   D7>                                              {}
            <MI 22876  BEQ     0x22894>                                         {}
        <POP 22878-22880 Naked>                              Σ0         ↓
            <MI 22878  MOVEA.L (A6-0x20),A1>                                    {}
            <MI 2287c  MOVEA.L A0,A2>                                           {}
            <MI 2287e  MOVEQ.L #0x1d,D0>                                        {}
        <POP 22880-22886 Naked>                              Σ0         ↓ →0x22880 ←0x22880
            <MI 22880  CMPM.B  (A1)+,(A2)+>                                     {}
            <MI 22882  DBNE    D0,0x22880>                                      {}
        <POP 22886-22888 Naked>                              Σ0         ↓ →0x2288c
            <MI 22886  BNE     0x2288c>                                         {}
        <POP 22888-2288c Naked>                              Σ0         →0x22892
            <MI 22888  MOVEQ.L #0x00,D7>                                        {}
            <MI 2288a  BRA     0x22892>                                         {}
        <POP 2288c-22892 Naked>                              Σ0         ↓ ←0x22886
            <MI 2288c  MOVE.L  (A0+0x2e),(A6-0xe)>                              {}
        <POP 22892-22894 Naked>                              Σ0         →0x2286c ←0x22888
            <MI 22892  BRA     0x2286c>                                         {}
        <POP 22894-22898 Naked>                              Σ0         ↓ →0x228de ←0x2286c ←0x22874
            <MI 22894  TST.B   D7>                                              {}
            <MI 22896  BEQ     0x228de>                                         {}
        <POP 22898-228de Naked>                              Σ0         ↓
            <Pointer.fp 0x22898 <LVAR -0x00e @ 4(rw)>>       Δ-4                {[@@-14]}
            <Const 0x2289c 0x32.4>                           Δ-4                {[@@-14]|[##50]}
            <Call 0x228a0 0x1029c>                                              {[@@-14]|[##50]}
                Malloc1(length : Long) : Pointer
            <POP 228a6-228a8 StackAdj>                       Δ+8                {}
            <MI 228a8  MOVEA.L (A6-0xe),A0>                                     {}
            <MI 228ac  MOVEA.L (A6-0x20),A1>                                    {}
            <MI 228b0  MOVEA.L A0,A2>                                           {}
            <BlockMove 30,A1,A2>                                                {}
            <MI 228ba  MOVE.L  #0x01,(A0+0x2a)>                                 {}
            <MI 228be  MOVE.L  0x241ca,(A0+0x2e)>                               {}
            <MI 228c6  LEA.L   (A0+0x1e),A0>                                    {}
            <MI 228ca  LEA.L   0x20696,A1>                                      {}
            <BlockMove 8,A1,A0>                                                 {}
            <MI 228d6  MOVE.L  (A6-0xe),0x241ca>                                {}
        <POP 228de-228e6 Naked>                              Σ0         ↓ →0x22958 ←0x22894
            <MI 228de  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 228e2  CMPA.W  #0x01,A0>                                        {}
            <MI 228e4  BEQ     0x22958>                                         {}
        <POP 228e6-228ee Naked>                              Σ0         ↓
            <MI 228e6  MOVEA.L 0x241ca,A4>                                      {}
            <MI 228ec  MOVEQ.L #0x00,D6>                                        {}
        <POP 228ee-228f2 Naked>                              Σ0         ↓ →0x22906 ←0x22904
            <MI 228ee  CMPA.W  #0x01,A4>                                        {}
            <MI 228f0  BEQ     0x22906>                                         {}
        <POP 228f2-228f6 Naked>                              Σ0         ↓ →0x22906
            <MI 228f2  TST.B   D6>                                              {}
            <MI 228f4  BNE     0x22906>                                         {}
        <POP 228f6-228fc Naked>                              Σ0         ↓ →0x22900
            <MI 228f6  CMPA.L  (A6+0xc),A4>                                     {}
            <MI 228fa  BNE     0x22900>                                         {}
        <POP 228fc-22900 Naked>                              Σ0         →0x22904
            <MI 228fc  MOVEQ.L #0x01,D6>                                        {}
            <MI 228fe  BRA     0x22904>                                         {}
        <POP 22900-22904 Naked>                              Σ0         ↓ ←0x228f6
            <MI 22900  MOVEA.L (A4+0x2e),A4>                                    {}
        <POP 22904-22906 Naked>                              Σ0         →0x228ee ←0x228fc
            <MI 22904  BRA     0x228ee>                                         {}
        <POP 22906-2290a Naked>                              Σ0         ↓ →0x22934 ←0x228ee ←0x228f2
            <MI 22906  TST.B   D6>                                              {}
            <MI 22908  BNE     0x22934>                                         {}
        <POP 2290a-22934 Naked>                              Σ0         ↓
            <Blob 0x2290a [24] @>                            Δ-24               {[«24""»]}
            <Const 0x22916 0xe.2>                            Δ-2                {[«24""»]|[#14]}
            <POP 22918-2291a StackAdj>                       Δ-4                {[«24""»]|[#14]|[-4-]}
            <Lit 0x2291a 24>                                                    {[«24""»]|[#14]|[$$Can't find USER of WITH!]}
            <Call 0x2292c 0x103b8>                                              {[«24""»]|[#14]|[$$Can't find USER of WITH!]}
                PopProgram(status : Byte; msg : String)
            <POP 22932-22934 StackAdj>                       Δ+30               {}
        <POP 22934-22958 Naked>                              Σ0         ↓ ←0x22906
            <Pointer.fp 0x22934 <LVAR -0x00a @ 4(r)>>        Δ-4                {[@@-10]}
            <Const 0x22938 0x8.4>                            Δ-4                {[@@-10]|[##8]}
            <Call 0x2293c 0x1029c>                                              {[@@-10]|[##8]}
                Malloc1(length : Long) : Pointer
            <POP 22942-22944 StackAdj>                       Δ+8                {}
            <MI 22944  MOVEA.L (A6-0xa),A0>                                     {}
            <MI 22948  MOVE.L  (A6-0xe),(A0)>                                   {}
            <MI 2294c  MOVE.L  (A4+0x2a),(A0+0x4)>                              {}
            <MI 22952  MOVE.L  (A6-0xa),(A4+0x2a)>                              {}
        <POP 22958-2295e Naked>                              Σ0         ↓ →0x22a72 ←0x228de
            <MI 22958  TST.B   D7>                                              {}
            <MI 2295a  BEQ     0x22a72>                                         {}
        <POP 2295e-22996 Naked>                              Σ0         ↓
            <Blob 0x2295e [10] @>                            Δ-10               {[«10""»]}
            <POP 2296a-2296c StackAdj>                       Δ-8                {[«10""»]|[-8-]}
            <Lit 0x2296c 10>                                                    {[«10""»]|[-4-]|[$$Loading :_]}
            <MI 2297c  MOVE.L  (A6-0x1a),(A7)>                                  {[«10""»]|[-4-]|[4, '(A6-0x1a)']}
            <POP 22976-2297c StackAdj>                       Δ-8                {[«10""»]|[-4-]|[4, '(A6-0x1a)']|[-8-]}
            <Call 0x2297e 0x102cc>                                              {[«10""»]|[-4-]|[4, '(A6-0x1a)']|[-8-]}
                StringDup(a : String) : String
            <POP 22984-22986 StackAdj>                       Δ+4                {[«10""»]|[-4-]|[4, '(A6-0x1a)']|[-4-]}
            <Call 0x22986 0x102d0>                                              {[«10""»]|[-4-]|[4, '(A6-0x1a)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2298c-2298e StackAdj>                       Δ+8                {[«10""»]|[-4-]}
            <Call 0x2298e 0x103e0>                                              {[«10""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22994-22996 StackAdj>                       Δ+14               {}
        <POP 22996-229ca Naked>                              Σ0         ↓ →0x229da ←0x22a6a
            <Pointer.fp 0x22996 <LVAR -0x016 @ 4(rw)>>       Δ-4                {[@@-22]}
            <Call 0x2299a 0x102b8>                                              {[@@-22]}
                NewString(VAR a : String)
            <MI 229a0  MOVE.L  (A6-0x20),(A7)>                                  {[4, '(A6-0x20)']}
            <Pointer.fp 0x229a4 <LVAR -0x016 @ 4(rw)>>       Δ-4                {[4, '(A6-0x20)']|[@@-22]}
            <Pointer.fp 0x229a8 <LVAR -0x006 @ 1(r)>>        Δ-4                {[4, '(A6-0x20)']|[@@-22]|[@@-6]}
            <Call 0x229ac 0x1043c>                                              {[4, '(A6-0x20)']|[@@-22]|[@@-6]}
                FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 229b2-229b4 StackAdj>                       Δ+4                {[4, '(A6-0x20)']|[@@-22]}
            <MI 229b4  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x20)']|[4, '(A6-0x16)']}
            <Call 0x229b8 0x102f0>                                              {[4, '(A6-0x20)']|[4, '(A6-0x16)']}
                ToUpper(a : String) : String
            <POP 229be-229c0 StackAdj>                       Δ+4                {[4, '(A6-0x20)']}
            <MI 229c0  MOVEA.L (A7)+,A0>                     Δ+4                {}
            <MI 229c2  MOVE.L  A0,(A6-0x16)>                                    {}
            <MI 229c6  TST.W   (A0)>                                            {}
            <MI 229c8  BNE     0x229da>                                         {}
        <POP 229ca-229d4 Naked>                              Σ0 Δ-4     ↓ ←0x22a2e
            <Pointer.fp 0x229ca <LVAR -0x016 @ 4(rw)>>       Δ-4                {[@@-22]}
            <Call 0x229ce 0x102bc>                                              {[@@-22]}
                FreeString(VAR a : String)
        <POP 229d4-229da Naked>                              Σ-4 Δ+4    →0x22a6a ←0x22a1a
            <POP 229d4-229d6 StackAdj>                       Δ+4                {}
            <MI 229d6  BRA     0x22a6a>                                         {}
        <POP 229da-229fa Naked>                              Σ0         →0x22a1a →0x22a04 →0x22a22 →0x22a2e →0x22a30 ←0x22996
            <POP 229da-229dc StackAdj>                       Δ-2                {[-2-]}
            <MI 229dc  MOVE.L  A0,-(A7)>                     Δ-4                {[-2-]|[4, 'A0']}
            <Call 0x229de 0x225ea>                                              {[-2-]|[4, 'A0']}
            <POP 229e2-229e4 StackAdj>                       Δ+4                {[-2-]}
            <MI 229e4  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 229e6  EXTB.W  D0>                                              {}
            <POP 0x229e8 LimitCheck 0x0 ≤ D0 ≤ 0x4>                             {}
            <MI 229f0  ADD.W   D0,D0>                                           {}
            <MI 229f2  SWITCH  D0.W>                                            {}
        <POP 22a04-22a16 Naked>                              Σ0 Δ-8     ↓ ←0x229da
            <MI 22a04  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[4, '(A6-0xe)']}
            <POP 22a08-22a0a StackAdj>                       Δ-4                {[4, '(A6-0xe)']|[-4-]}
            <MI 22a0a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6-0xe)']|[-4-]|[4, 'A0']}
            <Call 0x22a0c 0x2210e>                                              {[4, '(A6-0xe)']|[-4-]|[4, 'A0']}
            <POP 22a10-22a12 StackAdj>                       Δ+4                {[4, '(A6-0xe)']|[-4-]}
            <Call 0x22a12 0x22760>                                              {[4, '(A6-0xe)']|[-4-]}
        <POP 22a16-22a1a Naked>                              Σ-8 Δ+8    →0x22a6a ←0x22a22
            <POP 22a16-22a18 StackAdj>                       Δ+8                {}
            <MI 22a18  BRA     0x22a6a>                                         {}
        <POP 22a1a-22a22 Naked>                              Σ0 Δ-4     →0x229d4 ←0x229da
            <MI 22a1a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Call 0x22a1c 0x21546>                                              {[4, 'A0']}
            <MI 22a20  BRA     0x229d4>                                         {[4, 'A0']}
        <POP 22a22-22a2e Naked>                              Σ0 Δ-8     →0x22a16 ←0x229da
            <MI 22a22  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[4, '(A6-0xe)']}
            <MI 22a26  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6-0xe)']|[4, 'A0']}
            <Call 0x22a28 0x226a2>                                              {[4, '(A6-0xe)']|[4, 'A0']}
            <MI 22a2c  BRA     0x22a16>                                         {[4, '(A6-0xe)']|[4, 'A0']}
        <POP 22a2e-22a30 Naked>                              Σ0         →0x229ca ←0x229da
            <MI 22a2e  BRA     0x229ca>                                         {}
        <POP 22a30-22a6a Naked>                              Σ0         ↓ ←0x229da
            <Blob 0x22a30 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22a34 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x22a38 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x22a3c [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <Const 0x22a40 0xe.2>                            Δ-2                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]}
            <POP 22a42-22a44 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[-8-]}
            <Lit 0x22a44 16>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[-4-]|[$$Bad syntax in :_]}
            <POP 22a54-22a56 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[-4-]|[$$Bad syntax in :_]|[-4-]}
            <MI 22a56  MOVE.L  (A6-0x1a),(A7)>                                  {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[-4-]|[$$Bad syntax in :_]|[4, '(A6-0x1a)']}
            <Call 0x22a58 0x102d0>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[-4-]|[$$Bad syntax in :_]|[4, '(A6-0x1a)']}
                StringCat2(a, b : String) : String
            <POP 22a5e-22a60 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[-4-]}
            <Call 0x22a60 0x103b8>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 22a66-22a6a StackAdj>                       Δ+22               {}
        <POP 22a6a-22a72 Naked>                              Σ0         ↓ →0x22996 ←0x229d4 ←0x22a16
            <MI 22a6a  TST.B   (A6-0x6)>                                        {}
            <MI 22a6e  BEQ     0x22996>                                         {}
        <POP 22a72-22a96 Naked>                              Σ0         ↓ ←0x22958
            <MI 22a72  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x22a74 0x2.2>                            Δ-2                {[#0]|[#2]}
            <Const 0x22a76 0x1.4>                            Δ-4                {[#0]|[#2]|[##1]}
            <Pointer.fp 0x22a7a <LVAR -0x01c @>>             Δ-4                {[#0]|[#2]|[##1]|[@@-28]}
            <Pointer.fp 0x22a7e <LVAR -0x020 @ 4(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-28]|[@@-32]}
            <Call 0x22a82 0x1038c>                                              {[#0]|[#2]|[##1]|[@@-28]|[@@-32]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 22a88-22a8c StackAdj>                       Δ+16               {}
            <Pointer.fp 0x22a8c <LVAR -0x01a @ 4(rw)>>       Δ-4                {[@@-26]}
            <Call 0x22a8e 0x102bc>                                              {[@@-26]}
                FreeString(VAR a : String)
            <POP 22a94-22a96 StackAdj>                       Δ+4                {}
        <POP 22a96-22a9e Epilogue>                           Σ0         

0x22a9e


@ 22a9e
    <POP 22a9e-22b08 Body>                                              
        <POP 22a9e-22ab4 Prologue>                           Σ0         ↓
        <POP 22ab4-22ab6 RegCacheLoad>                       Σ0         ↓
        <POP 22ab6-22ab8 Naked>                              Σ0         ↓
            <MI 22ab6  MOVEQ.L #0x00,D7>                                        {}
        <POP 22ab8-22b00 Naked>                              Σ0         ↓ →0x22ab8 ←0x22ab8
            <MI 22ab8  MOVE.B  D7,D0>                                           {}
            <MI 22aba  EXTB.W  D0>                                              {}
            <MI 22abc  ASL.W   #0x5,D0>                                         {}
            <MI 22abe  LEA.L   0x23e90,A0>                                      {}
            <Blob 0x22ac4 [30] (A0+D0.W+#0x5d)>              Δ-30               {[«30»]}
            <POP 22ad4-22ad6 StackAdj>                       Δ-4                {[«30»]|[-4-]}
            <Lit 0x22ad6>                                                       {[«30»]|[$$…]}
                <Pointer.sp 0x22ad6 4>                       Δ-4        
                <Const 0x22ada 0x1.2>                        Δ-2        
                <Const 0x22ade 0x1e.2>                       Δ-2        
                <Call 0x22ae0 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22ae6-22ae8 StackAdj>                   Δ+8        
            <MI 22ae8  MOVEA.L (A7)+,A4>                     Δ+4                {[«30»]}
            <POP 22aea-22aec StackAdj>                       Δ+30               {}
            <Const 0x22aec 0x1.4>                            Δ-4                {[##1]}
            <MI 22af0  MOVE.L  A4,-(A7)>                     Δ-4                {[##1]|[4, 'A4']}
            <Call 0x22af2 0x22760>                                              {[##1]|[4, 'A4']}
            <POP 22af6-22af8 StackAdj>                       Δ+8                {}
            <MI 22af8  ADDQ.B  #0x1,D7>                                         {}
            <MI 22afa  CMPI.B  #0x04,D7>                                        {}
            <MI 22afe  BLE     0x22ab8>                                         {}
        <POP 22b00-22b08 Epilogue>                           Σ0         

0x22b08


@ 22b08
        <LVAR -0x004 @ 4(rw)>
    <POP 22b08-22b72 Body>                                              
        <POP 22b08-22b1e Prologue>                           Σ0         ↓
        <POP 22b1e-22b22 RegCacheLoad>                       Σ0         ↓
        <POP 22b22-22b6a Naked>                              Σ0         ↓
            <Blob 0x22b22 [20] @>                            Δ-20               {[«20""»]}
            <POP 22b34-22b36 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x22b36 19>                                                    {[«20""»]|[$$CURRENT.M200_CONFIG]}
            <MI 22b4a  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {[«20""»]}
            <POP 22b4c-22b50 StackAdj>                       Δ+16               {[-4-]}
            <MI 22b50  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <Const 0x22b52 0x23e9a.4>                        Δ-4                {[4, '(A6-0x4)']|[##147098]}
            <Call 0x22b58 0x10574>                                              {[4, '(A6-0x4)']|[##147098]}
                Write_ConfigFile(name: String; dst: Pointer)
            <POP 22b5e-22b60 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x22b60 <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x22b62 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 22b68-22b6a StackAdj>                       Δ+4                {}
        <POP 22b6a-22b72 Epilogue>                           Σ0         

0x22b72


@ 22b72
        <LVAR -0x006 @ 4(rw)>
    <POP 22b72-22d56 Body>                                              
        <POP 22b72-22b88 Prologue>                           Σ0         ↓
        <POP 22b88-22b9a RegCacheLoad>                       Σ0         ↓
        <POP 22b9a-22bba Naked>                              Σ0         ↓ →0x22bbe
            <MI 22b9a  MOVE.L  #0x02,0x241c2>                                   {}
            <MI 22ba0  MOVE.L  #0x02,0x241c6>                                   {}
            <MI 22ba6  MOVE.L  #0x01,0x241ca>                                   {}
            <MI 22bac  MOVE.L  #0x01,0x241ce>                                   {}
            <MI 22bb2  TST.B   0x23e9f>                                         {}
            <MI 22bb8  BEQ     0x22bbe>                                         {}
        <POP 22bba-22bbe Naked>                              Σ0         →0x22bc0
            <MI 22bba  MOVEQ.L #0x04,D6>                                        {}
            <MI 22bbc  BRA     0x22bc0>                                         {}
        <POP 22bbe-22bc0 Naked>                              Σ0         ↓ ←0x22b9a
            <MI 22bbe  MOVEQ.L #0x09,D6>                                        {}
        <POP 22bc0-22bc8 Naked>                              Σ0 Δ-2     ↓ →0x22bd2 ←0x22bba
            <MI 22bc0  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <MI 22bc2  MOVEQ.L #0x00,D7>                                        {[2, 'D6']}
            <MI 22bc4  CMP.B   (A7),D7>                                         {[2, 'D6']}
            <MI 22bc6  BGT     0x22bd2>                                         {[2, 'D6']}
        <POP 22bc8-22bd2 Naked>                              Σ-2        ↓
            <MI 22bc8  MOVE.B  (A7),D0>                                         {[-2-]}
            <POP 0x22bca LimitCheck D0 ≤ 0x9>                                   {[-2-]}
                <MI 22bca  CMPI.B  #0x09,D0>                            
                <MI 22bce  BLE     0x22bd2>                             
                <MI 22bd0  TRAP    #15>                                 
        <POP 22bd2-22bd6 Naked>                              Σ-2        ↓ →0x22c46 ←0x22bc0 ←0x22bd6
            <MI 22bd2  CMP.B   (A7),D7>                                         {[-2-]}
            <MI 22bd4  BGT     0x22c46>                                         {[-2-]}
        <POP 22bd6-22c46 Naked>                              Σ-2        ↓ →0x22bd2
            <MI 22bd6  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 22bd8  EXTB.W  D0>                                              {[-2-]}
            <MI 22bda  ASL.W   #0x5,D0>                                         {[-2-]}
            <MI 22bdc  LEA.L   0x23e90,A0>                                      {[-2-]}
            <Blob 0x22be2 [16] @>                            Δ-16               {[-2-]|[«16""»]}
            <Blob 0x22bf2 [2] @>                             Δ-2                {[-2-]|[«16""»]|[«2""»]}
            <Blob 0x22bf6 [2] @>                             Δ-2                {[-2-]|[«16""»]|[«2""»]|[«2""»]}
            <Blob 0x22bfa [2] @>                             Δ-2                {[-2-]|[«16""»]|[«2""»]|[«2""»]|[«2""»]}
            <MI 22bfe  PEA.L   (A0+D0.W+#0x5b)>              Δ-4                {[-2-]|[«16""»]|[«2""»]|[«2""»]|[«2""»]|[4, '^(A0+D0.W+#0x5b)']}
            <MI 22c02  LEA.L   (A0+D0.W),A0>                                    {[-2-]|[«16""»]|[«2""»]|[«2""»]|[«2""»]|[4, '^(A0+D0.W+#0x5b)']}
            <MI 22c06  PEA.L   (A0+0x1ed)>                   Δ-4                {[-2-]|[«16""»]|[«2""»]|[«2""»]|[«2""»]|[4, '^(A0+D0.W+#0x5b)']|[4, '^(A0+0x1ed)']}
            <POP 22c0a-22c0c StackAdj>                       Δ-8                {[-2-]|[«16""»]|[«2""»]|[«2""»]|[«2""»]|[4, '^(A0+D0.W+#0x5b)']|[4, '^(A0+0x1ed)']|[-8-]}
            <Lit 0x22c0c 15>                                                    {[-2-]|[«16""»]|[«2""»]|[«2""»]|[«2""»]|[4, '^(A0+D0.W+#0x5b)']|[4, '^(A0+0x1ed)']|[-4-]|[$$Enter name for_]}
            <POP 22c18-22c1a StackAdj>                       Δ-6                {[-2-]|[«16""»]|[«2""»]|[«2""»]|[«2""»]|[4, '^(A0+D0.W+#0x5b)']|[4, '^(A0+0x1ed)']|[-4-]|[$$Enter name for_]|[-6-]}
            <MI 22c1a  MOVE.B  D7,(A7)>                                         {[-2-]|[«16""»]|[«2""»]|[«2""»]|[«2""»]|[4, '^(A0+D0.W+#0x5b)']|[4, '^(A0+0x1ed)']|[-4-]|[$$Enter name for_]|[-6-]}
            <Call 0x22c1c 0x10586>                                              {[-2-]|[«16""»]|[«2""»]|[«2""»]|[«2""»]|[4, '^(A0+D0.W+#0x5b)']|[4, '^(A0+0x1ed)']|[-4-]|[$$Enter name for_]|[-6-]}
                Config_Entry_Name(a : Byte) : String
            <POP 22c22-22c24 StackAdj>                       Δ+2                {[-2-]|[«16""»]|[«2""»]|[«2""»]|[«2""»]|[4, '^(A0+D0.W+#0x5b)']|[4, '^(A0+0x1ed)']|[-4-]|[$$Enter name for_]|[-4-]}
            <Call 0x22c24 0x102d0>                                              {[-2-]|[«16""»]|[«2""»]|[«2""»]|[«2""»]|[4, '^(A0+D0.W+#0x5b)']|[4, '^(A0+0x1ed)']|[-4-]|[$$Enter name for_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 22c2a-22c2c StackAdj>                       Δ+4                {[-2-]|[«16""»]|[«2""»]|[«2""»]|[«2""»]|[4, '^(A0+D0.W+#0x5b)']|[4, '^(A0+0x1ed)']|[-4-]|[$$Enter name for_]}
            <Lit 0x22c2c 6>                                                     {[-2-]|[«16""»]|[«2""»]|[«2""»]|[«2""»]|[4, '^(A0+D0.W+#0x5b)']|[4, '^(A0+0x1ed)']|[-4-]|[$$.MLOAD]}
            <Call 0x22c3a 0x20d3c>                                              {[-2-]|[«16""»]|[«2""»]|[«2""»]|[«2""»]|[4, '^(A0+D0.W+#0x5b)']|[4, '^(A0+0x1ed)']|[-4-]|[$$.MLOAD]}
            <POP 22c3e-22c42 StackAdj>                       Δ+38               {[-2-]}
            <MI 22c42  ADDQ.B  #0x1,D7>                                         {[-2-]}
            <MI 22c44  BVC     0x22bd2>                                         {[-2-]}
        <POP 22c46-22c50 Naked>                              Σ-2 Δ+2    ↓ ←0x22bd2
            <POP 22c46-22c48 StackAdj>                       Δ+2                {}
            <MI 22c48  MOVE.B  #0x01,0x241c0>                                   {}
            <MI 22c4e  MOVEQ.L #0x00,D7>                                        {}
        <POP 22c50-22c92 Naked>                              Σ0         ↓ →0x22c50 ←0x22c50
            <MI 22c50  MOVE.B  D7,D0>                                           {}
            <MI 22c52  EXTB.W  D0>                                              {}
            <MI 22c54  ASL.W   #0x5,D0>                                         {}
            <MI 22c56  LEA.L   0x23e90,A0>                                      {}
            <Blob 0x22c5c [30] (A0+D0.W+#0x5d)>              Δ-30               {[«30»]}
            <POP 22c6c-22c6e StackAdj>                       Δ-4                {[«30»]|[-4-]}
            <Lit 0x22c6e>                                                       {[«30»]|[$$…]}
                <Pointer.sp 0x22c6e 4>                       Δ-4        
                <Const 0x22c72 0x1.2>                        Δ-2        
                <Const 0x22c74 0x1e.2>                       Δ-2        
                <Call 0x22c76 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22c78-22c7a StackAdj>                   Δ+8        
            <MI 22c7a  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«30»]}
            <POP 22c7c-22c7e StackAdj>                       Δ+30               {}
            <Const 0x22c7e 0x1.4>                            Δ-4                {[##1]}
            <MI 22c82  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[##1]|[4, '(A6-0x6)']}
            <Call 0x22c84 0x22760>                                              {[##1]|[4, '(A6-0x6)']}
            <POP 22c88-22c8a StackAdj>                       Δ+8                {}
            <MI 22c8a  ADDQ.B  #0x1,D7>                                         {}
            <MI 22c8c  CMPI.B  #0x04,D7>                                        {}
            <MI 22c90  BLE     0x22c50>                                         {}
        <POP 22c92-22ca0 Naked>                              Σ0         ↓ →0x22cbe
            <MI 22c92  CLR.B   0x241c0>                                         {}
            <MI 22c98  TST.B   0x23e9f>                                         {}
            <MI 22c9e  BNE     0x22cbe>                                         {}
        <POP 22ca0-22cbe Naked>                              Σ0         ↓
            <Const 0x22ca0 0x1.4>                            Δ-4                {[##1]}
            <POP 22ca4-22ca6 StackAdj>                       Δ-8                {[##1]|[-8-]}
            <Const 0x22ca6 0x9.2>                            Δ-2                {[##1]|[-8-]|[#9]}
            <Call 0x22caa 0x10586>                                              {[##1]|[-8-]|[#9]}
                Config_Entry_Name(a : Byte) : String
            <POP 22cb0-22cb2 StackAdj>                       Δ+2                {[##1]|[-8-]}
            <Call 0x22cb2 0x2210e>                                              {[##1]|[-8-]}
            <POP 22cb6-22cb8 StackAdj>                       Δ+4                {[##1]|[-4-]}
            <Call 0x22cb8 0x22760>                                              {[##1]|[-4-]}
            <POP 22cbc-22cbe StackAdj>                       Δ+8                {}
        <POP 22cbe-22d4e Naked>                              Σ0         ↓ ←0x22c92
            <Blob 0x22cbe [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x22cc2 [26] @>                            Δ-26               {[«2""»]|[«26""»]}
            <POP 22cce-22cd0 StackAdj>                       Δ-8                {[«2""»]|[«26""»]|[-8-]}
            <Blob 0x22cd0 [4] 0x241c2>                       Δ-4                {[«2""»]|[«26""»]|[-8-]|[«4»]}
            <Call 0x22cd6 0x102e4>                                              {[«2""»]|[«26""»]|[-8-]|[«4»]}
                Long2String(a : Long) : String
            <Lit 0x22cdc 2>                                                     {[«2""»]|[«26""»]|[-8-]|[$$/ ]}
            <POP 22ce6-22ce7 StackAdj>                       Δ-4                {[«2""»]|[«26""»]|[-8-]|[$$/ ]|[-4-]}
            <Blob 0x22ce7 [4] 0x241c6>                       Δ-4                {[«2""»]|[«26""»]|[-8-]|[$$/ ]|[-4-]|[«4»]}
            <Call 0x22cec 0x102e4>                                              {[«2""»]|[«26""»]|[-8-]|[$$/ ]|[-4-]|[«4»]}
                Long2String(a : Long) : String
            <Lit 0x22cf2 26>                                                    {[«2""»]|[«26""»]|[-8-]|[$$/ ]|[-4-]|[$$ wired/total pages loaded.]}
            <Call 0x22d00 0x102d8>                                              {[«2""»]|[«26""»]|[-8-]|[$$/ ]|[-4-]|[$$ wired/total pages loaded.]}
                StringCat4(a, b, c, d : String) : String
            <POP 22d06-22d08 StackAdj>                       Δ+16               {[«2""»]|[«26""»]|[-4-]}
            <Call 0x22d08 0x103d8>                                              {[«2""»]|[«26""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 22d0e-22d0f StackAdj>                       Δ+32       ↓       {}
            <Blob 0x22d0f [20] @>                            Δ-20               {[«20""»]}
            <POP 22d20-22d22 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x22d22 19>                                                    {[«20""»]|[$$CURRENT.M200_CONFIG]}
            <MI 22d30  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«20""»]}
            <POP 22d32-22d34 StackAdj>                       Δ+16               {[-4-]}
            <MI 22d34  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <Const 0x22d36 0x23e9a.4>                        Δ-4                {[4, '(A6-0x6)']|[##147098]}
            <Call 0x22d3c 0x10574>                                              {[4, '(A6-0x6)']|[##147098]}
                Write_ConfigFile(name: String; dst: Pointer)
            <POP 22d42-22d44 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x22d44 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x22d46 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 22d4c-22d4e StackAdj>                       Δ+4                {}
        <POP 22d4e-22d56 Epilogue>                           Σ0         

0x22d56


@ 22d56
        <LVAR -0x002 @>
        <LVAR -0x006 @ 4(rw)>
        <LVAR -0x007 @ 1(r)>
    <POP 22d56-23016 Body>                                              
        <POP 22d56-22d6c Prologue>                           Σ0         ↓
        <POP 22d6c-22d86 RegCacheLoad>                       Σ0         ↓
        <POP 22d86-22da0 Naked>                              Σ0         ↓ →0x22da2
            <POP 22d86-22d88 StackAdj>                       Δ-8                {[-8-]}
            <Call 0x22d88 0x103c4>                                              {[-8-]}
                GetArgv() : String
            <Call 0x22d8e 0x102f0>                                              {[-8-]}
                ToUpper(a : String) : String
            <POP 22d94-22d96 StackAdj>                       Δ+4                {[-4-]}
            <MI 22d96  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {}
            <MI 22d98  MOVEQ.L #0x00,D7>                                        {}
            <MI 22d9a  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 22d9c  TST.W   (A0)>                                            {}
            <MI 22d9e  BNE     0x22da2>                                         {}
        <POP 22da0-22da2 Naked>                              Σ0         ↓
            <MI 22da0  ADDQ.B  #0x1,D7>                                         {}
        <POP 22da2-22da6 Naked>                              Σ0         ↓ →0x22e10 ←0x22d86 ←0x22f9e
            <MI 22da2  TST.B   D7>                                              {}
            <MI 22da4  BEQ     0x22e10>                                         {}
        <POP 22da6-22dec Naked>                              Σ0         ↓ →0x22e10
            <Pointer.fp 0x22da6 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x22da8 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 22dae-22daf StackAdj>                       Δ+4        ↓       {}
            <Blob 0x22daf [50] @>                            Δ-50               {[«50""»]}
            <POP 22dc0-22dc2 StackAdj>                       Δ-12               {[«50""»]|[-12-]}
            <Lit 0x22dc2 49>                                                    {[«50""»]|[-8-]|[$$Enter name of configuration to boot [STANDARD] :_]}
            <Call 0x22dd0 0x103e4>                                              {[«50""»]|[-8-]|[$$Enter name of configuration to boot [STANDARD] :_]}
                AskConsoleString(prompt : String) : String
            <POP 22dd6-22dd8 StackAdj>                       Δ+4                {[«50""»]|[-8-]}
            <Call 0x22dd8 0x102f0>                                              {[«50""»]|[-8-]}
                ToUpper(a : String) : String
            <POP 22dde-22de0 StackAdj>                       Δ+4                {[«50""»]|[-4-]}
            <MI 22de0  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«50""»]}
            <POP 22de2-22de6 StackAdj>                       Δ+50               {}
            <MI 22de6  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 22de8  TST.W   (A0)>                                            {}
            <MI 22dea  BNE     0x22e10>                                         {}
        <POP 22dec-22e10 Naked>                              Σ0         ↓
            <Pointer.fp 0x22dec <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x22dee 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 22df4-22df5 StackAdj>                       Δ+4                {}
            <Blob 0x22df5 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22df8 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 22dfc-22dfe StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22dfe 8>                                                     {[«4""»]|[«4""»]|[$$STANDARD]}
            <MI 22e0c  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«4""»]|[«4""»]}
            <POP 22e0e-22e10 StackAdj>                       Δ+8                {}
        <POP 22e10-22e58 Naked>                              Σ0 Δ-16    ↓ →0x22f0a ←0x22da2 ←0x22da6
            <Blob 0x22e10 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22e14 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x22e18 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 22e1c-22e1e StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 22e1e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x6)']}
            <POP 22e20-22e22 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x6)']|[-4-]}
            <Lit 0x22e22 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x6)']|[$$.M200_CONFIG]}
            <Call 0x22e2e 0x102d0>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x6)']|[$$.M200_CONFIG]}
                StringCat2(a, b : String) : String
            <POP 22e34-22e36 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <MI 22e36  MOVEA.L (A7)+,A0>                     Δ+4                {[«4""»]|[«4""»]|[«4""»]}
            <MI 22e38  MOVE.L  A0,(A6-0x6)>                                     {[«4""»]|[«4""»]|[«4""»]}
            <MI 22e3a  MOVE.L  A0,-(A7)>                     Δ-4                {[«4""»]|[«4""»]|[«4""»]|[4, 'A0']}
            <MI 22e3c  MOVE.L  A0,-(A7)>                     Δ-4                {[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[4, 'A0']}
            <Const 0x22e3e 0x3.4>                            Δ-4                {[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[4, 'A0']|[##3]}
            <Const 0x22e42 0x23e9a.4>                        Δ-4                {[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[4, 'A0']|[##3]|[##147098]}
            <Pointer.fp 0x22e48 <LVAR -0x007 @ 1(r)>>        Δ-4                {[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[4, 'A0']|[##3]|[##147098]|[@@-7]}
            <Call 0x22e4a 0x1056e>                                              {[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[4, 'A0']|[##3]|[##147098]|[@@-7]}
                Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
            <POP 22e50-22e52 StackAdj>                       Δ+16               {[«4""»]|[«4""»]|[«4""»]|[4, 'A0']}
            <MI 22e52  TST.B   (A6-0x7)>                                        {[«4""»]|[«4""»]|[«4""»]|[4, 'A0']}
            <MI 22e54  BNE     0x22f0a>                                         {[«4""»]|[«4""»]|[«4""»]|[4, 'A0']}
        <POP 22e58-22e5c Naked>                              Σ-16       ↓ →0x22e84
            <MI 22e58  TST.B   D7>                                              {[-16-]}
            <MI 22e5a  BNE     0x22e84>                                         {[-16-]}
        <POP 22e5c-22e84 Naked>                              Σ-16       ↓
            <Blob 0x22e5c [26] @>                            Δ-26               {[-16-]|[«26""»]}
            <Const 0x22e68 0xe.2>                            Δ-2                {[-16-]|[«26""»]|[#14]}
            <POP 22e6a-22e6c StackAdj>                       Δ-4                {[-16-]|[«26""»]|[#14]|[-4-]}
            <Lit 0x22e6c 26>                                                    {[-16-]|[«26""»]|[#14]|[$$Could not read Config file]}
            <Call 0x22e7a 0x103b8>                                              {[-16-]|[«26""»]|[#14]|[$$Could not read Config file]}
                PopProgram(status : Byte; msg : String)
            <POP 22e80-22e84 StackAdj>                       Δ+32               {[-16-]}
        <POP 22e84-22eb2 Naked>                              Σ-16 Δ-60  ↓ →0x22f08 ←0x22e58
            <Blob 0x22e84 [60] @>                            Δ-60               {[-16-]|[«60""»]}
            <POP 22e94-22e96 StackAdj>                       Δ-6                {[-16-]|[«60""»]|[-6-]}
            <Lit 0x22e96 59>                                                    {[-16-]|[«60""»]|[-2-]|[$$Could not read configuration file, do you want to create it]}
            <POP 22ea2-22ea4 StackAdj>                       Δ-2                {[-16-]|[«60""»]|[-2-]|[$$Could not read configuration file, do you want to create it]|[-2-]}
            <MI 22ea4  CLR.B   (A7)>                                            {[-16-]|[«60""»]|[-2-]|[$$Could not read configuration file, do you want to create it]|[-2-]}
            <Call 0x22ea6 0x103f0>                                              {[-16-]|[«60""»]|[-2-]|[$$Could not read configuration file, do you want to create it]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 22eac-22eae StackAdj>                       Δ+6                {[-16-]|[«60""»]|[-2-]}
            <MI 22eae  TST.B   (A7)+>                        Δ+2                {[-16-]|[«60""»]}
            <MI 22eb0  BEQ     0x22f08>                                         {[-16-]|[«60""»]}
        <POP 22eb2-22f08 Naked>                              Σ-76       ↓
            <Blob 0x22eb2 [6] @>                             Δ-6                {[-76-]|[«6""»]}
            <POP 22ec2-22ec4 StackAdj>                       Δ-4                {[-76-]|[«6""»]|[-4-]}
            <Lit 0x22ec4 5>                                                     {[-76-]|[«6""»]|[$$CEDIT]}
            <POP 22ed0-22ed2 StackAdj>                       Δ-4                {[-76-]|[«6""»]|[$$CEDIT]|[-4-]}
            <MI 22ed2  MOVEA.L (A7+0x4a),A0>                                    {[-76-]|[«6""»]|[$$CEDIT]|[-4-]}
            <MI 22ed6  MOVE.L  A0,-(A7)>                     Δ-4                {[-76-]|[«6""»]|[$$CEDIT]|[-4-]|[4, 'A0']}
            <Call 0x22ed8 0x102cc>                                              {[-76-]|[«6""»]|[$$CEDIT]|[-4-]|[4, 'A0']}
                StringDup(a : String) : String
            <POP 22ede-22ee0 StackAdj>                       Δ+2                {[-76-]|[«6""»]|[$$CEDIT]|[-4-]|[-2-]}
            <POP 22ee0-22ee1 StackAdj>                       Δ+2                {[-76-]|[«6""»]|[$$CEDIT]|[-4-]}
            <Const 0x22ee1 0x1.2>                            Δ-2                {[-76-]|[«6""»]|[$$CEDIT]|[-4-]|[#1]}
            <Pointer.fp 0x22ee2 <LVAR -0x002 @>>             Δ-4                {[-76-]|[«6""»]|[$$CEDIT]|[-4-]|[#1]|[@@-2]}
            <Call 0x22ee6 0x103b0>                                              {[-76-]|[«6""»]|[$$CEDIT]|[-4-]|[#1]|[@@-2]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 22eec-22eee StackAdj>                       Δ+20               {[-76-]}
            <MI 22eee  MOVEA.L (A7+0x3c),A0>                                    {[-76-]}
            <MI 22ef2  MOVE.L  A0,-(A7)>                     Δ-4                {[-76-]|[4, 'A0']}
            <Const 0x22ef4 0x3.4>                            Δ-4                {[-76-]|[4, 'A0']|[##3]}
            <Const 0x22ef8 0x23e9a.4>                        Δ-4                {[-76-]|[4, 'A0']|[##3]|[##147098]}
            <Pointer.fp 0x22efe <LVAR -0x007 @ 1(r)>>        Δ-4                {[-76-]|[4, 'A0']|[##3]|[##147098]|[@@-7]}
            <Call 0x22f00 0x1056e>                                              {[-76-]|[4, 'A0']|[##3]|[##147098]|[@@-7]}
                Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
            <POP 22f06-22f08 StackAdj>                       Δ+16               {[-76-]}
        <POP 22f08-22f0a Naked>                              Σ-76 Δ+60  ↓ ←0x22e84
            <POP 22f08-22f0a StackAdj>                       Δ+60               {[-16-]}
        <POP 22f0a-22f10 Naked>                              Σ-16       ↓ →0x22f9e ←0x22e10
            <MI 22f0a  TST.B   (A6-0x7)>                                        {[-16-]}
            <MI 22f0c  BEQ     0x22f9e>                                         {[-16-]}
        <POP 22f10-22f1a Naked>                              Σ-16       ↓ →0x22f9e
            <MI 22f10  TST.B   0x23e9d>                                         {[-16-]}
            <MI 22f16  BEQ     0x22f9e>                                         {[-16-]}
        <POP 22f1a-22f44 Naked>                              Σ-16 Δ-38  ↓ →0x22f9a
            <Blob 0x22f1a [38] @>                            Δ-38               {[-16-]|[«38""»]}
            <POP 22f26-22f28 StackAdj>                       Δ-6                {[-16-]|[«38""»]|[-6-]}
            <Lit 0x22f28 38>                                                    {[-16-]|[«38""»]|[-2-]|[$$Do you want to edit this configuration]}
            <POP 22f34-22f36 StackAdj>                       Δ-2                {[-16-]|[«38""»]|[-2-]|[$$Do you want to edit this configuration]|[-2-]}
            <MI 22f36  CLR.B   (A7)>                                            {[-16-]|[«38""»]|[-2-]|[$$Do you want to edit this configuration]|[-2-]}
            <Call 0x22f38 0x103f0>                                              {[-16-]|[«38""»]|[-2-]|[$$Do you want to edit this configuration]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 22f3e-22f40 StackAdj>                       Δ+6                {[-16-]|[«38""»]|[-2-]}
            <MI 22f40  TST.B   (A7)+>                        Δ+2                {[-16-]|[«38""»]}
            <MI 22f42  BEQ     0x22f9a>                                         {[-16-]|[«38""»]}
        <POP 22f44-22f9a Naked>                              Σ-54       ↓
            <Blob 0x22f44 [6] @>                             Δ-6                {[-54-]|[«6""»]}
            <POP 22f54-22f56 StackAdj>                       Δ-4                {[-54-]|[«6""»]|[-4-]}
            <Lit 0x22f56 5>                                                     {[-54-]|[«6""»]|[$$CEDIT]}
            <POP 22f62-22f64 StackAdj>                       Δ-4                {[-54-]|[«6""»]|[$$CEDIT]|[-4-]}
            <MI 22f64  MOVEA.L (A7+0x34),A0>                                    {[-54-]|[«6""»]|[$$CEDIT]|[-4-]}
            <MI 22f68  MOVE.L  A0,-(A7)>                     Δ-4                {[-54-]|[«6""»]|[$$CEDIT]|[-4-]|[4, 'A0']}
            <Call 0x22f6a 0x102cc>                                              {[-54-]|[«6""»]|[$$CEDIT]|[-4-]|[4, 'A0']}
                StringDup(a : String) : String
            <POP 22f70-22f72 StackAdj>                       Δ+2                {[-54-]|[«6""»]|[$$CEDIT]|[-4-]|[-2-]}
            <POP 22f72-22f73 StackAdj>                       Δ+2                {[-54-]|[«6""»]|[$$CEDIT]|[-4-]}
            <Const 0x22f73 0x1.2>                            Δ-2                {[-54-]|[«6""»]|[$$CEDIT]|[-4-]|[#1]}
            <Pointer.fp 0x22f74 <LVAR -0x002 @>>             Δ-4                {[-54-]|[«6""»]|[$$CEDIT]|[-4-]|[#1]|[@@-2]}
            <Call 0x22f78 0x103b0>                                              {[-54-]|[«6""»]|[$$CEDIT]|[-4-]|[#1]|[@@-2]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 22f7e-22f80 StackAdj>                       Δ+20               {[-54-]}
            <MI 22f80  MOVEA.L (A7+0x26),A0>                                    {[-54-]}
            <MI 22f84  MOVE.L  A0,-(A7)>                     Δ-4                {[-54-]|[4, 'A0']}
            <Const 0x22f86 0x3.4>                            Δ-4                {[-54-]|[4, 'A0']|[##3]}
            <Const 0x22f8a 0x23e9a.4>                        Δ-4                {[-54-]|[4, 'A0']|[##3]|[##147098]}
            <Pointer.fp 0x22f90 <LVAR -0x007 @ 1(r)>>        Δ-4                {[-54-]|[4, 'A0']|[##3]|[##147098]|[@@-7]}
            <Call 0x22f92 0x1056e>                                              {[-54-]|[4, 'A0']|[##3]|[##147098]|[@@-7]}
                Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
            <POP 22f98-22f9a StackAdj>                       Δ+16               {[-54-]}
        <POP 22f9a-22f9e Naked>                              Σ-54 Δ+38  ↓ ←0x22f1a
            <POP 22f9a-22f9e StackAdj>                       Δ+38               {[-16-]}
        <POP 22f9e-22fa8 Naked>                              Σ-16 Δ+16  ↓ →0x22da2 ←0x22f0a ←0x22f10
            <POP 22f9e-22fa0 StackAdj>                       Δ+16               {}
            <MI 22fa0  MOVEQ.L #0x01,D7>                                        {}
            <MI 22fa2  TST.B   (A6-0x7)>                                        {}
            <MI 22fa4  BEQ     0x22da2>                                         {}
        <POP 22fa8-22fe0 Naked>                              Σ0         ↓ →0x2300e
            <Blob 0x22fa8 [20] @>                            Δ-20               {[«20""»]}
            <POP 22fb4-22fb6 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x22fb6 20>                                                    {[«20""»]|[$$STANDARD.M200_CONFIG]}
            <MI 22fc2  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«20""»]}
            <POP 22fc4-22fc6 StackAdj>                       Δ+16               {[-4-]}
            <MI 22fc6  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <Const 0x22fc8 0x3.4>                            Δ-4                {[4, '(A6-0x6)']|[##3]}
            <Const 0x22fcc 0x2402c.4>                        Δ-4                {[4, '(A6-0x6)']|[##3]|[##147500]}
            <Pointer.fp 0x22fd2 <LVAR -0x007 @ 1(r)>>        Δ-4                {[4, '(A6-0x6)']|[##3]|[##147500]|[@@-7]}
            <Call 0x22fd4 0x1056e>                                              {[4, '(A6-0x6)']|[##3]|[##147500]|[@@-7]}
                Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
            <POP 22fda-22fdc StackAdj>                       Δ+16               {}
            <MI 22fdc  TST.B   (A6-0x7)>                                        {}
            <MI 22fde  BNE     0x2300e>                                         {}
        <POP 22fe0-2300e Naked>                              Σ0         ↓
            <Blob 0x22fe0 [36] @>                            Δ-36               {[«36""»]}
            <Const 0x22ff2 0xe.2>                            Δ-2                {[«36""»]|[#14]}
            <POP 22ff4-22ff6 StackAdj>                       Δ-4                {[«36""»]|[#14]|[-4-]}
            <Lit 0x22ff6 35>                                                    {[«36""»]|[#14]|[$$Could not read STANDARD.M200_CONFIG]}
            <Call 0x23004 0x103b8>                                              {[«36""»]|[#14]|[$$Could not read STANDARD.M200_CONFIG]}
                PopProgram(status : Byte; msg : String)
            <POP 2300a-2300e StackAdj>                       Δ+42               {}
        <POP 2300e-23016 Epilogue>                           Σ0         ←0x22fa8

0x23016


@ 23016
        <LVAR -0x004 @>
    <POP 23016-230ae Body>                                              
        <POP 23016-2302c Prologue>                           Σ0         ↓
        <POP 2302c-23030 RegCacheLoad>                       Σ0         ↓
        <POP 23030-23038 Naked>                              Σ0         ↓ →0x230a6
            <MI 23030  TST.B   0x23e9c>                                         {}
            <MI 23036  BEQ     0x230a6>                                         {}
        <POP 23038-2306a Naked>                              Σ0 Δ-10    ↓ →0x230a4
            <Blob 0x23038 [10] @>                            Δ-10               {[«10""»]}
            <POP 23048-2304a StackAdj>                       Δ-6                {[«10""»]|[-6-]}
            <Lit 0x2304a 9>                                                     {[«10""»]|[-2-]|[$$Enter CLI]}
            <POP 2305a-2305c StackAdj>                       Δ-2                {[«10""»]|[-2-]|[$$Enter CLI]|[-2-]}
            <MI 2305c  CLR.B   (A7)>                                            {[«10""»]|[-2-]|[$$Enter CLI]|[-2-]}
            <Call 0x2305e 0x103f0>                                              {[«10""»]|[-2-]|[$$Enter CLI]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 23064-23066 StackAdj>                       Δ+6                {[«10""»]|[-2-]}
            <MI 23066  TST.B   (A7)+>                        Δ+2                {[«10""»]}
            <MI 23068  BEQ     0x230a4>                                         {[«10""»]}
        <POP 2306a-230a4 Naked>                              Σ-10       ↓
            <POP 2306a-2306c StackAdj>                       Δ-4                {[-14-]}
            <POP 2306c-2306d StackAdj>                       Δ+2                {[-12-]}
            <Blob 0x2306d [2] @>                             Δ-2                {[-12-]|[«2""»]}
            <MI 23070  MOVE.B  0x20593,(A7+0x1)>                                {[-12-]|[«2""»]}
            <MI 23076  MOVE.B  0x20594,(A7+0x2)>                                {[-12-]|[«2""»]}
            <POP 2307c-2307e StackAdj>                       Δ-4                {[-12-]|[«2""»]|[-4-]}
            <Lit 0x2307e>                                                       {[-12-]|[«2""»]|[$$…]}
                <Pointer.sp 0x2307e 4>                       Δ-4        
                <Const 0x23082 0x1.2>                        Δ-2        
                <Const 0x23084 0x3.2>                        Δ-2        
                <Call 0x23088 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2308e-23090 StackAdj>                   Δ+8        
            <Const 0x23090 0x1.4>                            Δ-4                {[-12-]|[«2""»]|[$$…]|[##1]}
            <Const 0x23094 0x1.2>                            Δ-2                {[-12-]|[«2""»]|[$$…]|[##1]|[#1]}
            <Pointer.fp 0x23096 <LVAR -0x004 @>>             Δ-4                {[-12-]|[«2""»]|[$$…]|[##1]|[#1]|[@@-4]}
            <Call 0x2309a 0x103b0>                                              {[-12-]|[«2""»]|[$$…]|[##1]|[#1]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 230a0-230a4 StackAdj>                       Δ+18               {[-10-]}
        <POP 230a4-230a6 Naked>                              Σ-10 Δ+10  ↓ ←0x23038
            <POP 230a4-230a6 StackAdj>                       Δ+10               {}
        <POP 230a6-230ae Epilogue>                           Σ0         ←0x23030

0x230ae


@ 230ae
        <LVAR -0x004 @ 4(r)>
        <LVAR -0x008 @>
        <LVAR -0x00a @>
        <LVAR -0x00c @ 2(r)>
        <LVAR -0x010 @>
    <POP 230ae-2313c Body>                                              
        <POP 230ae-230c4 Prologue>                           Σ0         ↓
        <POP 230c4-230d0 RegCacheLoad>                       Σ0         ↓
        <POP 230d0-23134 Naked>                              Σ0         ↓
            <Const 0x230d0 0x400.4>                          Δ-4                {[##1024]}
            <MI 230d4  LEA.L   (A6-0x10),A0>                                    {[##1024]}
            <MI 230d8  MOVE.L  A0,-(A7)>                     Δ-4                {[##1024]|[4, 'A0']}
            <Const 0x230da 0x4.2>                            Δ-2                {[##1024]|[4, 'A0']|[#4]}
            <Call 0x230dc 0x10238>                                              {[##1024]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 230de-230e0 StackAdj>                       Δ+10               {}
            <Const 0x230e0 0x404.4>                          Δ-4                {[##1028]}
            <MI 230e4  LEA.L   (A6-0xc),A0>                                     {[##1028]}
            <MI 230e8  MOVE.L  A0,-(A7)>                     Δ-4                {[##1028]|[4, 'A0']}
            <Const 0x230ea 0x2.2>                            Δ-2                {[##1028]|[4, 'A0']|[#2]}
            <Call 0x230ec 0x10238>                                              {[##1028]|[4, 'A0']|[#2]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 230ee-230f0 StackAdj>                       Δ+10               {}
            <Const 0x230f0 0x406.4>                          Δ-4                {[##1030]}
            <MI 230f4  LEA.L   (A6-0xa),A0>                                     {[##1030]}
            <MI 230f8  MOVE.L  A0,-(A7)>                     Δ-4                {[##1030]|[4, 'A0']}
            <Const 0x230fa 0x2.2>                            Δ-2                {[##1030]|[4, 'A0']|[#2]}
            <Call 0x230fc 0x10238>                                              {[##1030]|[4, 'A0']|[#2]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 230fe-23100 StackAdj>                       Δ+10               {}
            <Const 0x23100 0x408.4>                          Δ-4                {[##1032]}
            <MI 23104  LEA.L   (A6-0x8),A0>                                     {[##1032]}
            <MI 23108  MOVE.L  A0,-(A7)>                     Δ-4                {[##1032]|[4, 'A0']}
            <Const 0x2310a 0x4.2>                            Δ-2                {[##1032]|[4, 'A0']|[#4]}
            <Call 0x2310c 0x10238>                                              {[##1032]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 2310e-23110 StackAdj>                       Δ+10               {}
            <Const 0x23110 0x40c.4>                          Δ-4                {[##1036]}
            <MI 23114  LEA.L   (A6-0x4),A0>                                     {[##1036]}
            <MI 23118  MOVE.L  A0,-(A7)>                     Δ-4                {[##1036]|[4, 'A0']}
            <Const 0x2311a 0x4.2>                            Δ-2                {[##1036]|[4, 'A0']|[#4]}
            <Call 0x2311c 0x10238>                                              {[##1036]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 2311e-23120 StackAdj>                       Δ+10               {}
            <MI 23120  MOVEQ.L #0x00,D0>                                        {}
            <MI 23122  MULU.W  (A6-0xc),D0>                                     {}
            <MI 23126  CLR.L   D1>                                              {}
            <MI 23128  MOVE.W  D0,D1>                                           {}
            <MI 2312a  ADD.L   (A6-0x4),D1>                                     {}
            <MI 2312e  MOVE.L  D1,0x241d6>                                      {}
        <POP 23134-2313c Epilogue>                           Σ0         

0x2313c


@ 2313c
        <LVAR -0x00e 4(r)>
        <LVAR -0x012 4(r)>
        <LVAR -0x016 @ 4(r)>
        <LVAR -0x01a @ 4(r)>
        <LVAR -0x01c @ 1(r)>
    <POP 2313c-2322c Body>                                              
        <POP 2313c-23152 Prologue>                           Σ0         ↓
        <POP 23152-23168 RegCacheLoad>                       Σ0         ↓
        <POP 23168-231a8 Naked>                              Σ0         ↓ →0x231de
            <Blob 0x23168 [12] @>                            Δ-12               {[«12""»]}
            <POP 2317a-2317c StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x2317c 11>                                                    {[«12""»]|[$$BOOT_REASON]}
            <POP 2318c-2318e StackAdj>                       Δ-2                {[«12""»]|[$$BOOT_REASON]|[-2-]}
            <MI 2318e  CLR.B   (A7)>                                            {[«12""»]|[$$BOOT_REASON]|[-2-]}
            <MI 23190  CLR.B   -(A7)>                        Δ-2                {[«12""»]|[$$BOOT_REASON]|[-2-]|[#0]}
            <Const 0x23192 0x0.4>                            Δ-4                {[«12""»]|[$$BOOT_REASON]|[-2-]|[#0]|[##0]}
            <Pointer.fp 0x23196 <LVAR -0x01c @ 1(r)>>        Δ-4                {[«12""»]|[$$BOOT_REASON]|[-2-]|[#0]|[##0]|[@@-28]}
            <Pointer.fp 0x23198 <LVAR -0x01a @ 4(r)>>        Δ-4                {[«12""»]|[$$BOOT_REASON]|[-2-]|[#0]|[##0]|[@@-28]|[@@-26]}
            <Call 0x2319a 0x10380>                                              {[«12""»]|[$$BOOT_REASON]|[-2-]|[#0]|[##0]|[@@-28]|[@@-26]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 231a0-231a4 StackAdj>                       Δ+32               {}
            <MI 231a4  TST.B   (A6-0x1c)>                                       {}
            <MI 231a6  BEQ     0x231de>                                         {}
        <POP 231a8-231b2 Naked>                              Σ0         ↓
            <MI 231a8  CLR.W   0x2425a>                                         {}
            <MI 231aa  CLR.W   0x2425c>                                         {}
            <MI 231b0  MOVEQ.L #0x00,D7>                                        {}
        <POP 231b2-231c8 Naked>                              Σ0         ↓ →0x231b2 ←0x231b2
            <POP 0x231b2 LimitCheck 0x0 ≤ D7 ≤ 0x3>                             {}
            <MI 231b8  MOVE.L  D7,D0>                                           {}
            <MI 231ba  ASL.L   #0x1,D0>                                         {}
            <MI 231bc  LEA.L   0x2425a,A0>                                      {}
            <MI 231be  CLR.W   (A0+D0.L+#0x4)>                                  {}
            <MI 231c2  ADDQ.L  #0x1,D7>                                         {}
            <MI 231c4  CMP.L   #0x03,D7>                                        {}
            <MI 231c6  BLE     0x231b2>                                         {}
        <POP 231c8-231de Naked>                              Σ0         →0x23224
            <Const 0x231c8 0x2.2>                            Δ-2                {[#2]}
            <MI 231ca  CLR.B   -(A7)>                        Δ-2                {[#2]|[#0]}
            <Const 0x231cc 0x1.4>                            Δ-4                {[#2]|[#0]|[##1]}
            <Pointer.fp 0x231d0 <LVAR -0x01c @ 1(r)>>        Δ-4                {[#2]|[#0]|[##1]|[@@-28]}
            <Pointer.fp 0x231d2 <LVAR -0x01a @ 4(r)>>        Δ-4                {[#2]|[#0]|[##1]|[@@-28]|[@@-26]}
            <Call 0x231d4 0x1038c>                                              {[#2]|[#0]|[##1]|[@@-28]|[@@-26]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 231da-231dc StackAdj>                       Δ+16               {}
            <MI 231dc  BRA     0x23224>                                         {}
        <POP 231de-23224 Naked>                              Σ0         ↓ ←0x23168
            <MI 231de  MOVE.L  (A6-0x1a),-(A7)>              Δ-4                {[4, '(A6-0x1a)']}
            <MI 231e0  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x1a)']|[#0]}
            <MI 231e2  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x1a)']|[#0]|[#0]}
            <Const 0x231e4 0x8.2>                            Δ-2                {[4, '(A6-0x1a)']|[#0]|[#0]|[#8]}
            <Const 0x231e8 0x1.2>                            Δ-2                {[4, '(A6-0x1a)']|[#0]|[#0]|[#8]|[#1]}
            <MI 231ea  LEA.L   (A6-0x16),A0>                                    {[4, '(A6-0x1a)']|[#0]|[#0]|[#8]|[#1]}
            <MI 231ee  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6-0x1a)']|[#0]|[#0]|[#8]|[#1]|[4, 'A0']}
            <Pointer.fp 0x231f0 <LVAR -0x01c @ 1(r)>>        Δ-4                {[4, '(A6-0x1a)']|[#0]|[#0]|[#8]|[#1]|[4, 'A0']|[@@-28]}
            <Call 0x231f2 0x10384>                                              {[4, '(A6-0x1a)']|[#0]|[#0]|[#8]|[#1]|[4, 'A0']|[@@-28]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 231f8-231fc StackAdj>                       Δ+18               {[-2-]}
            <POP 231fc-231fd StackAdj>                       Δ+2                {}
            <Const 0x231fd 0x2.2>                            Δ-2                {[#2]}
            <Const 0x231fe 0x1.2>                            Δ-2                {[#2]|[#1]}
            <Const 0x23200 0x1.4>                            Δ-4                {[#2]|[#1]|[##1]}
            <Pointer.fp 0x23204 <LVAR -0x01c @ 1(r)>>        Δ-4                {[#2]|[#1]|[##1]|[@@-28]}
            <Pointer.fp 0x23206 <LVAR -0x01a @ 4(r)>>        Δ-4                {[#2]|[#1]|[##1]|[@@-28]|[@@-26]}
            <Call 0x23208 0x1038c>                                              {[#2]|[#1]|[##1]|[@@-28]|[@@-26]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 2320e-23210 StackAdj>                       Δ+16               {}
            <MI 23210  MOVE.L  (A6-0x16),0x2425a>                               {}
            <MI 23214  MOVE.L  (A6-0x12),0x2425e>                               {}
            <MI 2321c  MOVE.L  (A6-0xe),0x24262>                                {}
        <POP 23224-2322c Epilogue>                           Σ0         ←0x231c8

0x2322c


@ 2322c
START
    <POP 2322c--0001 Body>                                              
        <POP 2322c-23236 Prologue>                           Σ0         
        <POP 23236-2323c RegCacheLoad>                       Σ0         ↓
        <POP 2323c-232e8 Naked>                              Σ0         ↓
            <Call 0x2323c 0x10398>                                              {}
                FSCALL_10398
            <MI 23242  CLR.B   0x24267>                                         {}
            <Const 0x23244 0x23e98.4>                        Δ-4                {[##147096]}
            <Call 0x2324a 0x105aa>                                              {[##147096]}
                Read_fc00() : Byte
            <POP 23250-23252 StackAdj>                       Δ+4                {}
            <Call 0x23252 0x2313c>                                              {}
            <Call 0x23256 0x230ae>                                              {}
            <Call 0x2325a 0x22d56>                                              {}
            <Call 0x2325e 0x23016>                                              {}
            <Call 0x23262 0x208ce>                                              {}
            <Const 0x23266 0x0.4>                            Δ-4                {[##0]}
            <Call 0x2326a 0x104d8>                                              {[##0]}
                ExpInit(a : Long)
            <POP 23270-23272 StackAdj>                       Δ+4                {}
            <Call 0x23272 0x2094e>                                              {}
            <Call 0x23276 0x20ba2>                                              {}
            <Const 0x2327a 0x24267.4>                        Δ-4                {[##148071]}
            <Call 0x2327c 0x20c26>                                              {[##148071]}
            <POP 23280-23282 StackAdj>                       Δ+2                {[-2-]}
            <POP 23282-23283 StackAdj>                       Δ+2                {}
            <Blob 0x23283 [2] 0x24267>                       Δ-2                {[«2»]}
            <Call 0x23284 0x20ee6>                                              {[«2»]}
            <POP 23288-2328a StackAdj>                       Δ+2                {}
            <Call 0x2328a 0x210fe>                                              {}
            <Call 0x2328e 0x22b72>                                              {}
            <Call 0x23292 0x224f0>                                              {}
            <Call 0x23296 0x10222>                                              {}
                KC11_Live(void)
            <Blob 0x2329c [8] @>                             Δ-8                {[«8""»]}
            <POP 232ac-232ae StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Lit 0x232ae 7>                                                     {[«8""»]|[$$MONITOR]}
            <Const 0x232c2 0x1.4>                            Δ-4                {[«8""»]|[$$MONITOR]|[##1]}
            <Const 0x232c6 0x2.2>                            Δ-2                {[«8""»]|[$$MONITOR]|[##1]|[#2]}
            <Const 0x232ca 0x24266.4>                        Δ-4                {[«8""»]|[$$MONITOR]|[##1]|[#2]|[##148070]}
            <Call 0x232d0 0x103b0>                                              {[«8""»]|[$$MONITOR]|[##1]|[#2]|[##148070]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 232d6-232da StackAdj>                       Δ+20               {[-2-]}
            <MI 232da  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x232dc 0x1.4>                            Δ-4                {[-2-]|[##1]}
            <Call 0x232e0 0x103b8>                                              {[-2-]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 232e6-232e8 StackAdj>                       Δ+6                {}
        <POP 232e8-232ee Naked>                              Σ0         
            <Call 0x232e8 0x10284>                                              {}
                ?exit

0x235ec


@ 235ec
        <LVAR  0x020 1(r)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 235ec-236e0 Body>                                   Δ+20       
        <POP 235ec-23602 Prologue>                           Σ0         ↓
        <POP 23602-23612 RegCacheLoad>                       Σ0         ↓
        <POP 23612-2361e Naked>                              Σ0         ↓ →0x2362c
            <POP 23612-23614 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x23614 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2361a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2361c  BEQ     0x2362c>                                         {}
        <POP 2361e-2362c Naked>                              Σ0 Δ-20    →0x23638
            <Blob 0x2361e [20] @>                            Δ-20               {[«20""»]}
            <MI 2362a  BRA     0x23638>                                         {[«20""»]}
        <POP 2362c-23638 Naked>                              Σ0 Δ-20    ↓ ←0x23612
            <Blob 0x2362c [20] @>                            Δ-20               {[«20""»]}
        <POP 23638-236d8 Naked>                              Σ-20 Δ+20  ↓ ←0x2361e
            <POP 23638-2363a StackAdj>                       Δ-4                {[-24-]}
            <Lit 0x2363a>                                                       {[-20-]|[$$…]}
                <Pointer.sp 0x2363a 4>                       Δ-4        
                <Const 0x2363e 0x1.2>                        Δ-2        
                <Const 0x23642 0x14.2>                       Δ-2        
                <Call 0x23646 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2364c-2364e StackAdj>                   Δ+8        
            <Pointer.fp 0x2364e <LVAR -0x006 @ 4(r)>>        Δ-4                {[-20-]|[$$…]|[@@-6]}
            <Call 0x23650 0x10460>                                              {[-20-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 23656-2365a StackAdj>                       Δ+28               {}
            <MI 2365a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 2365c  MOVE.B  (A6+0x20),-(A7)>              Δ-2                {[#0]|[2, '(A6+0x20)']}
            <MI 23660  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x20)']|[4, '(A6-0x6)']}
            <Call 0x23662 0x104ba>                                              {[#0]|[2, '(A6+0x20)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 23668-2366a StackAdj>                       Δ+4                {[#0]|[2, '(A6+0x20)']}
            <MI 2366a  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 2366c  MOVEA.L (A6+0x1c),A0>                                    {[4, '(A6-0x6)']}
            <MI 23670  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x23672 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x23674 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x23676 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 23678-2367a StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 2367a  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 2367c  MOVEA.L (A6+0x18),A0>                                    {[4, '(A6-0x6)']}
            <MI 23680  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x23682 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x23684 0x1.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##1]}
            <Call 0x23688 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##1]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 2368a-2368c StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 2368c  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 2368e  MOVEA.L (A6+0x14),A0>                                    {[4, '(A6-0x6)']}
            <MI 23692  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x23694 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x23696 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x23698 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 2369a-2369c StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 2369c  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 2369e  MOVEA.L (A6+0x10),A0>                                    {[4, '(A6-0x6)']}
            <MI 236a2  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x236a4 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x236a6 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
            <Call 0x236a8 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##0]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 236aa-236ac StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 236ac  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 236ae  MOVEA.L (A6+0xc),A0>                                     {[4, '(A6-0x6)']}
            <MI 236b2  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Const 0x236b4 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]}
            <Const 0x236b6 0x1.4>                            Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##1]}
            <Call 0x236ba 0x10472>                                              {[4, '(A6-0x6)']|[4, '^(A0)']|[##0]|[##1]}
                ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
            <POP 236bc-236be StackAdj>                       Δ+12               {[4, '(A6-0x6)']}
            <MI 236be  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <MI 236c0  MOVEA.L (A6+0x8),A0>                                     {[4, '(A6-0x6)']}
            <MI 236c4  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x6)']|[4, '^(A0)']}
            <Call 0x236c6 0x10478>                                              {[4, '(A6-0x6)']|[4, '^(A0)']}
                ExpOutputFlag(exp : Pointer; VAR status : Bool)
            <POP 236cc-236ce StackAdj>                       Δ+8                {}
            <Pointer.fp 0x236ce <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x236d0 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 236d6-236d8 StackAdj>                       Δ+4                {}
        <POP 236d8-236e0 Epilogue>                           Σ0         

0x236f8


@ 236f8
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 236f8-237a2 Body>                                   Δ+12       
        <POP 236f8-2370e Prologue>                           Σ0         ↓
        <POP 2370e-23714 RegCacheLoad>                       Σ0         ↓
        <POP 23714-23720 Naked>                              Σ0         ↓ →0x23732
            <POP 23714-23716 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x23716 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2371c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2371e  BEQ     0x23732>                                         {}
        <POP 23720-23732 Naked>                              Σ0 Δ-12    →0x23742
            <Blob 0x23720 [12] @>                            Δ-12               {[«12""»]}
            <MI 23730  BRA     0x23742>                                         {[«12""»]}
        <POP 23732-23742 Naked>                              Σ0 Δ-12    ↓ ←0x23714
            <Blob 0x23732 [12] @>                            Δ-12               {[«12""»]}
        <POP 23742-2379a Naked>                              Σ-12 Δ+12  ↓ ←0x23720
            <POP 23742-23744 StackAdj>                       Δ-4                {[-16-]}
            <Lit 0x23744>                                                       {[-12-]|[$$…]}
                <Pointer.sp 0x23744 4>                       Δ-4        
                <Const 0x23748 0x1.2>                        Δ-2        
                <Const 0x2374c 0xb.2>                        Δ-2        
                <Call 0x23750 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23756-23758 StackAdj>                   Δ+8        
            <Pointer.fp 0x23758 <LVAR -0x004 @ 4(r)>>        Δ-4                {[-12-]|[$$…]|[@@-4]}
            <Call 0x2375a 0x10460>                                              {[-12-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 23760-23764 StackAdj>                       Δ+20               {}
            <MI 23764  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 23768  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x2376a 4>                           Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x2376e 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x23772 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x23776 0x10466>                                              {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 2377c-23780 StackAdj>                       Δ+16               {[2, '(A6+0x8)']}
            <MI 23780  CLR.B   (A7)>                                            {[2, '(A6+0x8)']}
            <MI 23782  MOVE.B  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0x8)']|[2, '(A6+0xa)']}
            <MI 23786  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
            <Call 0x23788 0x104ba>                                              {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 2378e-23790 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x23790 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x23792 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 23798-2379a StackAdj>                       Δ+4                {}
        <POP 2379a-237a2 Epilogue>                           Σ0         

0x237be


@ 237be
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 237be-2384c Body>                                   Δ+14       
        <POP 237be-237d4 Prologue>                           Σ0         ↓
        <POP 237d4-237da RegCacheLoad>                       Σ0         ↓
        <POP 237da-237e6 Naked>                              Σ0         ↓ →0x237f8
            <POP 237da-237dc StackAdj>                       Δ-2                {[-2-]}
            <Call 0x237dc 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 237e2  TST.B   (A7)+>                        Δ+2                {}
            <MI 237e4  BEQ     0x237f8>                                         {}
        <POP 237e6-237f8 Naked>                              Σ0 Δ-14    →0x23808
            <Blob 0x237e6 [14] @>                            Δ-14               {[«14""»]}
            <MI 237f6  BRA     0x23808>                                         {[«14""»]}
        <POP 237f8-23808 Naked>                              Σ0 Δ-14    ↓ ←0x237da
            <Blob 0x237f8 [14] @>                            Δ-14               {[«14""»]}
        <POP 23808-23844 Naked>                              Σ-14 Δ+14  ↓ ←0x237e6
            <POP 23808-2380a StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x2380a>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x2380a 4>                       Δ-4        
                <Const 0x2380e 0x1.2>                        Δ-2        
                <Const 0x23812 0xd.2>                        Δ-2        
                <Call 0x23816 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2381c-2381e StackAdj>                   Δ+8        
            <Pointer.fp 0x2381e <LVAR -0x006 @ 4(r)>>        Δ-4                {[-14-]|[$$…]|[@@-6]}
            <Call 0x23820 0x10460>                                              {[-14-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 23826-2382a StackAdj>                       Δ+22               {}
            <MI 2382a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 2382c  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 23830  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x23832 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 23838-2383a StackAdj>                       Δ+8                {}
            <Pointer.fp 0x2383a <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x2383c 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 23842-23844 StackAdj>                       Δ+4                {}
        <POP 23844-2384c Epilogue>                           Σ0         

0x2386c


@ 2386c
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 2386c-23930 Body>                                   Δ+16       
        <POP 2386c-23882 Prologue>                           Σ0         ↓
        <POP 23882-23888 RegCacheLoad>                       Σ0         ↓
        <POP 23888-23894 Naked>                              Σ0         ↓ →0x238a6
            <POP 23888-2388a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2388a 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 23890  TST.B   (A7)+>                        Δ+2                {}
            <MI 23892  BEQ     0x238a6>                                         {}
        <POP 23894-238a6 Naked>                              Σ0 Δ-16    →0x238b6
            <Blob 0x23894 [16] @>                            Δ-16               {[«16""»]}
            <MI 238a4  BRA     0x238b6>                                         {[«16""»]}
        <POP 238a6-238b6 Naked>                              Σ0 Δ-16    ↓ ←0x23888
            <Blob 0x238a6 [16] @>                            Δ-16               {[«16""»]}
        <POP 238b6-23928 Naked>                              Σ-16 Δ+16  ↓ ←0x23894
            <POP 238b6-238b8 StackAdj>                       Δ-4                {[-20-]}
            <Lit 0x238b8>                                                       {[-16-]|[$$…]}
                <Pointer.sp 0x238b8 4>                       Δ-4        
                <Const 0x238bc 0x1.2>                        Δ-2        
                <Const 0x238c0 0xf.2>                        Δ-2        
                <Call 0x238c4 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 238ca-238cc StackAdj>                   Δ+8        
            <Pointer.fp 0x238cc <LVAR -0x004 @ 4(r)>>        Δ-4                {[-16-]|[$$…]|[@@-4]}
            <Call 0x238ce 0x10460>                                              {[-16-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 238d4-238d8 StackAdj>                       Δ+24               {}
            <MI 238d8  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 238da  MOVE.B  (A6+0xc),-(A7)>               Δ-2                {[4, '(A6-0x4)']|[2, '(A6+0xc)']}
            <Call 0x238de 0x1046c>                                              {[4, '(A6-0x4)']|[2, '(A6+0xc)']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 238e4-238e6 StackAdj>                       Δ+2                {[4, '(A6-0x4)']}
            <MI 238e6  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <MI 238e8  MOVE.B  (A6+0xa),-(A7)>               Δ-2                {[4, '(A6-0x4)']|[2, '(A6+0xa)']}
            <Call 0x238ec 0x1046c>                                              {[4, '(A6-0x4)']|[2, '(A6+0xa)']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 238f2-238f4 StackAdj>                       Δ+4                {[-2-]}
            <MI 238f4  MOVE.B  (A6+0x8),(A7)>                                   {[-2-]}
            <MI 238f8  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x4)']}
            <Pointer.sp 0x238fa 4>                           Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]}
            <Const 0x238fe 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x23902 0x0.4>                            Δ-4                {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x23906 0x10466>                                              {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 2390c-2390e StackAdj>                       Δ+16               {[-2-]}
            <MI 2390e  CLR.B   (A7)>                                            {[-2-]}
            <MI 23910  MOVE.B  (A6+0xe),-(A7)>               Δ-2                {[-2-]|[2, '(A6+0xe)']}
            <MI 23914  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0xe)']|[4, '(A6-0x4)']}
            <Call 0x23916 0x104ba>                                              {[-2-]|[2, '(A6+0xe)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 2391c-2391e StackAdj>                       Δ+8                {}
            <Pointer.fp 0x2391e <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x23920 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 23926-23928 StackAdj>                       Δ+4                {}
        <POP 23928-23930 Epilogue>                           Σ0         

0x23954


@ 23954
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 23954-239d8 Body>                                   Δ+18       
        <POP 23954-2396a Prologue>                           Σ0         ↓
        <POP 2396a-2396e RegCacheLoad>                       Σ0         ↓
        <POP 2396e-2397a Naked>                              Σ0         ↓ →0x23988
            <POP 2396e-23970 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x23970 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 23976  TST.B   (A7)+>                        Δ+2                {}
            <MI 23978  BEQ     0x23988>                                         {}
        <POP 2397a-23988 Naked>                              Σ0 Δ-18    →0x23994
            <Blob 0x2397a [18] @>                            Δ-18               {[«18""»]}
            <MI 23986  BRA     0x23994>                                         {[«18""»]}
        <POP 23988-23994 Naked>                              Σ0 Δ-18    ↓ ←0x2396e
            <Blob 0x23988 [18] @>                            Δ-18               {[«18""»]}
        <POP 23994-239d0 Naked>                              Σ-18 Δ+18  ↓ ←0x2397a
            <POP 23994-23996 StackAdj>                       Δ-4                {[-22-]}
            <Lit 0x23996>                                                       {[-18-]|[$$…]}
                <Pointer.sp 0x23996 4>                       Δ-4        
                <Const 0x2399a 0x1.2>                        Δ-2        
                <Const 0x2399e 0x12.2>                       Δ-2        
                <Call 0x239a2 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 239a8-239aa StackAdj>                   Δ+8        
            <Pointer.fp 0x239aa <LVAR -0x006 @ 4(r)>>        Δ-4                {[-18-]|[$$…]|[@@-6]}
            <Call 0x239ac 0x10460>                                              {[-18-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 239b2-239b6 StackAdj>                       Δ+26               {}
            <MI 239b6  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 239b8  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 239bc  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x239be 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 239c4-239c6 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x239c6 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x239c8 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 239ce-239d0 StackAdj>                       Δ+4                {}
        <POP 239d0-239d8 Epilogue>                           Σ0         

0x23a08


@ 23a08
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 23a08-23a96 Body>                                   Δ+24       
        <POP 23a08-23a1e Prologue>                           Σ0         ↓
        <POP 23a1e-23a24 RegCacheLoad>                       Σ0         ↓
        <POP 23a24-23a30 Naked>                              Σ0         ↓ →0x23a42
            <POP 23a24-23a26 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x23a26 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 23a2c  TST.B   (A7)+>                        Δ+2                {}
            <MI 23a2e  BEQ     0x23a42>                                         {}
        <POP 23a30-23a42 Naked>                              Σ0 Δ-24    →0x23a52
            <Blob 0x23a30 [24] @>                            Δ-24               {[«24""»]}
            <MI 23a40  BRA     0x23a52>                                         {[«24""»]}
        <POP 23a42-23a52 Naked>                              Σ0 Δ-24    ↓ ←0x23a24
            <Blob 0x23a42 [24] @>                            Δ-24               {[«24""»]}
        <POP 23a52-23a8e Naked>                              Σ-24 Δ+24  ↓ ←0x23a30
            <POP 23a52-23a54 StackAdj>                       Δ-4                {[-28-]}
            <Lit 0x23a54>                                                       {[-24-]|[$$…]}
                <Pointer.sp 0x23a54 4>                       Δ-4        
                <Const 0x23a58 0x1.2>                        Δ-2        
                <Const 0x23a5c 0x17.2>                       Δ-2        
                <Call 0x23a60 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23a66-23a68 StackAdj>                   Δ+8        
            <Pointer.fp 0x23a68 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-24-]|[$$…]|[@@-6]}
            <Call 0x23a6a 0x10460>                                              {[-24-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 23a70-23a74 StackAdj>                       Δ+32               {}
            <MI 23a74  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 23a76  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 23a7a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x23a7c 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 23a82-23a84 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x23a84 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x23a86 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 23a8c-23a8e StackAdj>                       Δ+4                {}
        <POP 23a8e-23a96 Epilogue>                           Σ0         

0x23ab2


@ 23ab2
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 23ab2-23b36 Body>                                   Δ+14       
        <POP 23ab2-23ac8 Prologue>                           Σ0         ↓
        <POP 23ac8-23acc RegCacheLoad>                       Σ0         ↓
        <POP 23acc-23ad8 Naked>                              Σ0         ↓ →0x23ae6
            <POP 23acc-23ace StackAdj>                       Δ-2                {[-2-]}
            <Call 0x23ace 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 23ad4  TST.B   (A7)+>                        Δ+2                {}
            <MI 23ad6  BEQ     0x23ae6>                                         {}
        <POP 23ad8-23ae6 Naked>                              Σ0 Δ-14    →0x23af2
            <Blob 0x23ad8 [14] @>                            Δ-14               {[«14""»]}
            <MI 23ae4  BRA     0x23af2>                                         {[«14""»]}
        <POP 23ae6-23af2 Naked>                              Σ0 Δ-14    ↓ ←0x23acc
            <Blob 0x23ae6 [14] @>                            Δ-14               {[«14""»]}
        <POP 23af2-23b2e Naked>                              Σ-14 Δ+14  ↓ ←0x23ad8
            <POP 23af2-23af4 StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x23af4>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x23af4 4>                       Δ-4        
                <Const 0x23af8 0x1.2>                        Δ-2        
                <Const 0x23afc 0xe.2>                        Δ-2        
                <Call 0x23b00 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23b06-23b08 StackAdj>                   Δ+8        
            <Pointer.fp 0x23b08 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-14-]|[$$…]|[@@-6]}
            <Call 0x23b0a 0x10460>                                              {[-14-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 23b10-23b14 StackAdj>                       Δ+22               {}
            <MI 23b14  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 23b16  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 23b1a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x23b1c 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 23b22-23b24 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x23b24 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x23b26 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 23b2c-23b2e StackAdj>                       Δ+4                {}
        <POP 23b2e-23b36 Epilogue>                           Σ0         

0x23c98


@ 23c98
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 23c98-23d00 Body>                                              
        <POP 23c98-23cae Prologue>                           Σ0         ↓
        <POP 23cae-23cf8 Naked>                              Σ0         ↓
            <Blob 0x23cae [14] @>                            Δ-14               {[«14""»]}
            <Const 0x23cba 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 23cbe-23cc0 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x23cc0 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 23cd2-23cd4 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 23cd4  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 23cd8  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 23cda  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 23cdc  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x23cde 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 23ce4-23ce6 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x23ce6 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 23cec-23cee StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x23cee 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 23cf4-23cf8 StackAdj>                       Δ+20               {}
        <POP 23cf8-23d00 Epilogue>                           Σ0         

0x23d54


@ 23d54
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 23d54-23e90 Body>                                              
        <POP 23d54-23d6a Prologue>                           Σ0         ↓
        <POP 23d6a-23d80 RegCacheLoad>                       Σ0         ↓
        <POP 23d80-23de0 Naked>                              Σ0         ↓ →0x23e28
            <Call 0x23d80 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x23d86 [18] @>                            Δ-18               {[«18""»]}
            <POP 23d92-23d94 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x23d94 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x23da0 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 23da2-23da3 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x23da3 [14] @>                            Δ-14               {[«14""»]}
            <POP 23db2-23db4 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x23db4 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 23dbe-23dc0 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 23dc0  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x23dc4 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 23dca-23dcc StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x23dcc 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 23dd2-23dd4 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x23dd4 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23dd6-23dd8 StackAdj>                       Δ+18               {}
            <MI 23dd8  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 23ddc  CMPA.W  #0x01,A0>                                        {}
            <MI 23dde  BEQ     0x23e28>                                         {}
        <POP 23de0-23e28 Naked>                              Σ0         ↓
            <Blob 0x23de0 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x23df0 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 23e00-23e02 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x23e02 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 23e0c-23e0e StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x23e0e>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x23e0e 12>                      Δ-4        
                <Const 0x23e12 0x1.2>                        Δ-2        
                <Const 0x23e14 0x1e.2>                       Δ-2        
                <Call 0x23e16 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23e18-23e1a StackAdj>                   Δ+8        
            <Call 0x23e1a 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 23e20-23e22 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x23e22 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23e24-23e28 StackAdj>                       Δ+48               {}
        <POP 23e28-23e88 Naked>                              Σ0         ↓ ←0x23d80
            <Blob 0x23e28 [14] @>                            Δ-14               {[«14""»]}
            <POP 23e38-23e3a StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x23e3a 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 23e44-23e46 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 23e46  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x23e4a 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 23e50-23e52 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x23e52 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 23e58-23e5a StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x23e5a 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23e5c-23e5d StackAdj>                       Δ+18       ↓       {}
            <Blob 0x23e5d [24] @>                            Δ-24               {[«24""»]}
            <Const 0x23e6c 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 23e70-23e72 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x23e72 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x23e80 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 23e86-23e88 StackAdj>                       Δ+30               {}
        <POP 23e88-23e90 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   import ident.513757dcb5b128a7
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 32 2c              |  2,    |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 42 b0              |  B     |		.PTR	0x242b0
00020010					code.end:
00020010 00 02 3e 90              |  >     |		.PTR	0x23e90
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 3c 98              |  <     |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 3d 54              |  =T    |		.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 53 42 55 53 55 4c 4f 41  |SBUSULOA|		.TXT	'SBUSULOAD '
00020114 44 42 55 53 55 4c 4f 41  |DBUSULOA|		.TXT	'DBUSULOAD '
0002011e 40 28                    |@(      |		.XXX[0x2]
00020120 23 29 4c 4f 41 44 45 52  |#)LOADER|		.XXX[0x20]
00020128 2c 32 2e 37 2c 39 32 2f  |,2.7,92/|
00020130 31 31 2f 30 35 2c 31 37  |11/05,17|
00020138 3a 31 38 3a 31 39 5c 20  |:18:19\ |
00020140 2e 4d                    |.M      |		.TXT	'.M'
00020142 4c 4f                    |LO      |		.TXT	'LO'
00020144 41 44                    |AD      |		.TXT	'AD'
00020146 43 4f 50 59 52 49 47 48  |COPYRIGH|		.TXT	'COPYRIGHT_INFO.TXT'
00020158 43 4f 4e 46 49 47 55 52  |CONFIGUR|		.TXT	'CONFIGURE '
00020162 20 5b                    | [      |		.TXT	' ['
00020164 5d 20 3a 5f              |] :_    |		.TXT	'] :_'
00020168 4d 69 63 72 6f 63 6f 64  |Microcod|		.TXT	'Microcode file'
00020176 2e 4d 32 30 30 5f 55 43  |.M200_UC|		.TXT	'.M200_UCODE '
00020182 44 6f 20 79 6f 75 20 77  |Do you w|		.TXT	'Do you want to enter the CLI prior to starting the machine'
000201bc 43 4c                    |CL      |		.TXT	'CL'
000201be 49 20                    |I       |		.XXX[0x2]
000201c0 43 4f 44 45 20 20 20 20  |CODE    |		.XXX[0x50]
000201c8 20 20 54 59 50 45 20 20  |  TYPE  |
000201d0 20 20 20 20 53 59 53 54  |    SYST|
000201d8 45 4d 20 20 20 20 43 4f  |EM    CO|
000201e0 4e 54 52 4f 4c 20 20 20  |NTROL   |
000201e8 44 41 54 41 20 20 20 20  |DATA    |
000201f0 20 20 49 4d 50 4f 52 54  |  IMPORT|
000201f8 20 20 20 20 51 55 45 55  |    QUEU|
00020200 45 20 20 20 20 20 52 45  |E     RE|
00020208 53 45 52 56 45 44 20 20  |SERVED  |
00020210 55 6e 6b 6e 6f 77 6e 20  |Unknown |		.TXT	'Unknown stack KIND :_ '
00020226 4e 6f 20 72 65 73 70 6f  |No respo|		.TXT	'No response to page load'
0002023e 4c 61 73 74 20 68 65 61  |Last hea|		.TXT	'Last header sent =>_'
00020252 5f 20                    |_       |		.TXT	'_ '
00020254 4e 6f 20 72 65 73 70 6f  |No respo|		.TXT	'No response to page load'
0002026c 4c 61 73 74 20 68 65 61  |Last hea|		.TXT	'Last header sent =>_'
00020280 5f 20                    |_       |		.TXT	'_ '
00020282 4e 6f 20 70 6f 73 73 69  |No possi|		.TXT	'No possible elaboration order!'
000202a0 4e 6f 20 73 75 62 73 79  |No subsy|		.TXT	'No subsystem in WITH directive. '
000202c0 55 6e 6b 6e 6f 77 6e 20  |Unknown |		.TXT	'Unknown subsystem name :_ '
000202da 4b 65 72 6e 65 6c 20 65  |Kernel e|		.TXT	'Kernel elaborated subsystem not on list :_'
00020304 52 65 74 75 72 6e 69 6e  |Returnin|		.TXT	'Returning to LOCAL mode to start R1000'
0002032a 52 65 74 75 72 6e 65 64  |Returned|		.TXT	'Returned to LOCAL, starting R1000 cluster '
00020354 53 74 61 72 74 69 6e 67  |Starting|		.TXT	'Starting R1000 Environment - it now owns this console.'
0002038a 4c 4f 41 44 20 20        |LOAD    |		.XXX[0x6]
00020390 20 20 20 20 57 49 54 48  |    WITH|		.XXX[0x28]
00020398 20 20 20 20 20 20 53 55  |      SU|
000203a0 42 53 59 53 54 45 4d 20  |BSYSTEM |
000203a8 45 4e 44 20 20 20 20 20  |END     |
000203b0 20 20 4f 54 48 45 52 20  |  OTHER |
000203b8 20 20 20 20              |        |		.XXX[0x4]
000203bc 42 61 64 20 73 79 6e 74  |Bad synt|		.TXT	'Bad syntax in SUBSYSTEM directive!'
000203de 42 61 64 20 73 79 6e 74  |Bad synt|		.TXT	'Bad syntax in WITH directive! '
000203fc 43 61 6e 27 74 20 66 69  |Can't fi|		.TXT	'Can't find USER of WITH!'
00020414 4c 6f 61 64 69 6e 67 20  |Loading |		.TXT	'Loading :_'
0002041e 42 61 64 20              |Bad     |		.TXT	'Bad '
00020422 73 79 6e 74              |synt    |		.TXT	'synt'
00020426 61 78 20 69              |ax i    |		.TXT	'ax i'
0002042a 6e 20 3a 5f              |n :_    |		.TXT	'n :_'
0002042e 43 55 52 52 45 4e 54 2e  |CURRENT.|		.TXT	'CURRENT.M200_CONFIG '
00020442 45 6e 74 65 72 20 6e 61  |Enter na|		.TXT	'Enter name for_ '
00020452 2f 20                    |/       |		.TXT	'/ '
00020454 20 77 69 72 65 64 2f 74  | wired/t|		.TXT	' wired/total pages loaded.'
0002046e 43 55 52 52 45 4e 54 2e  |CURRENT.|		.TXT	'CURRENT.M200_CONFIG '
00020482 45 6e 74 65 72 20 6e 61  |Enter na|		.TXT	'Enter name of configuration to boot [STANDARD] :_ '
000204b4 43 6f 75 6c 64 20 6e 6f  |Could no|		.TXT	'Could not read configuration file, do you want to create it '
000204f0 44 6f 20 79 6f 75 20 77  |Do you w|		.TXT	'Do you want to edit this configuration'
00020516 53 54 41 4e              |STAN    |		.TXT	'STAN'
0002051a 44 41 52 44              |DARD    |		.TXT	'DARD'
0002051e 2e 4d 32 30              |.M20    |		.TXT	'.M20'
00020522 30 5f 43 4f              |0_CO    |		.TXT	'0_CO'
00020526 4e 46 49 47              |NFIG    |		.TXT	'NFIG'
0002052a 43 6f 75 6c 64 20 6e 6f  |Could no|		.TXT	'Could not read Config file'
00020544 43 45 44 49 54 20        |CEDIT   |		.TXT	'CEDIT '
0002054a 43 45 44 49 54 20        |CEDIT   |		.TXT	'CEDIT '
00020550 53 54 41 4e 44 41 52 44  |STANDARD|		.TXT	'STANDARD.M200_CONFIG'
00020564 43 6f 75 6c 64 20 6e 6f  |Could no|		.TXT	'Could not read STANDARD.M200_CONFIG '
00020588 45 6e 74 65 72 20 43 4c  |Enter CL|		.TXT	'Enter CLI '
00020592 43 4c                    |CL      |		.TXT	'CL'
00020594 49 20                    |I       |		.XXX[0x2]
00020596 42 4f 4f 54 5f 52 45 41  |BOOT_REA|		.TXT	'BOOT_REASON '
000205a2 4d 4f 4e 49 54 4f 52 20  |MONITOR |		.TXT	'MONITOR '
000205aa 00 00 00 00 00 00        |        |		.XXX[0x6]
000205b0 00 00                    |        |		.XXX[0x2]
000205b2 43 4f 44 45 20 20 20 20  |CODE    |		.TXT	'CODE      '
000205bc 54 59 50 45 20 20 20 20  |TYPE    |		.TXT	'TYPE      '
000205c6 53 59 53 54 45 4d 20 20  |SYSTEM  |		.TXT	'SYSTEM    '
000205d0 43 4f 4e 54 52 4f 4c 20  |CONTROL |		.TXT	'CONTROL   '
000205da 44 41 54 41 20 20 20 20  |DATA    |		.TXT	'DATA      '
000205e4 49 4d 50 4f 52 54 20 20  |IMPORT  |		.TXT	'IMPORT    '
000205ee 51 55 45 55 45 20 20 20  |QUEUE   |		.TXT	'QUEUE     '
000205f8 52 45 53 45 52 56 45 44  |RESERVED|		.TXT	'RESERVED  '
00020602 06 02 07 01 04 05        |        |		.XXX[0x6]
00020608 03 00                    |        |		.XXX[0x2]
0002060a 00 00 00 00 00 04 c4 b4  |        |		.CONST	0x0000,0x0000,0x0004,0xc4b4
00020612 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00020616 00 01 51 80              |  Q     |		.CONST	0x0,0x1,0x51,0x80
0002061a					days_per_month:
0002061a 00 00 00 1f 00 3b 00 5a  |     ; Z|		.CONST	0,31,59,90,120,151,181,212,243,273,304,334
00020632					days_per_month_leap:
00020632 00 00 00 1f 00 3c 00 5b  |     < [|		.CONST	0,31,60,91,121,152,182,213,244,274,305,335
0002064a 00 02 03 04 06 07 0c 0d  |        |		.CONST	0x00,0x02,0x03,0x04,0x06,0x07,0x0c,0x0d,0x0e
00020653 0f 04 00 00 88           |        |		.XXX[0x5]
00020658 00 00 02 00 00 01 00 04  |        |		.XXX[0x40]
00020660 00 00 00 00 4c 4f 41 44  |    LOAD|
00020668 20 20 20 20 20 20 57 49  |      WI|
00020670 54 48 20 20 20 20 20 20  |TH      |
00020678 53 55 42 53 59 53 54 45  |SUBSYSTE|
00020680 4d 20 45 4e 44 20 20 20  |M END   |
00020688 20 20 20 20 4f 54 48 45  |    OTHE|
00020690 52 20 20 20 20 20 0b ad  |R       |
00020698 0b ad 0b ad 0b ad        |        |		.XXX[0x6]
0002069e ; --------------------------------------------------------------------------------------
0002069e ; OMSI PASCAL Function
0002069e ;    <LVAR  0x016 1(r)>
0002069e ;    <LVAR  0x012 4(r)>
0002069e ;    <LVAR  0x010 1(r)>
0002069e ;    <LVAR  0x00e 1(r)>
0002069e ;    <LVAR  0x00c 1(r)>
0002069e ;    <LVAR  0x008 4(r)>
0002069e ;    <LVAR -0x004 @>
0002069e ; --------------------------------------------------------------------------------------
0002069e 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
000206a2 bf d5                    |        |		CMPA.L	(A5),A7
000206a4 62 06                    |b       |		BHI	0x206ac
000206a6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000206aa 4e 76                    |Nv      |		TRAPV
000206ac de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000206b0 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000206b4 45 f9 00 01 05 02        |E       |		LEA.L	IPC_PutBool(a : Bool),A2
000206ba 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
000206bc 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000206c2 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
000206c6 4e b9 00 01 05 08        |N       |		JSR	IPC_PutString(a : String)
000206cc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206ce 1e ae 00 10              |        |		MOVE.B	(A6+0x10),(A7)
000206d2 4e 92                    |N       |		JSR	(A2)
000206d4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206d6 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
000206da 66 0e                    |f       |		BNE	0x206ea
000206dc 1f 2e 00 0e              | .      |		MOVE.B	(A6+0xe),-(A7)
000206e0 4e 92                    |N       |		JSR	(A2)
000206e2 1e ae 00 0c              |        |		MOVE.B	(A6+0xc),(A7)
000206e6 4e 92                    |N       |		JSR	(A2)
000206e8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206ea 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
000206f0 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
000206f4 67 12                    |g       |		BEQ	0x20708
000206f6 9e c1                    |        |		SUBA.W	D1,A7
000206f8 20 4f                    | O      |		MOVEA.L	A7,A0
000206fa 43 fa fa 0e              |C       |		LEA.L	0x2010a,A1
000206fe 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020700 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020702 51 c8 ff fc              |Q       |		DBF	D0,0x20700
00020706 60 10                    |`       |		BRA	0x20718
00020708 9e c1                    |        |		SUBA.W	D1,A7
0002070a 20 4f                    | O      |		MOVEA.L	A7,A0
0002070c 43 fa fa 06              |C       |		LEA.L	0x20114,A1
00020710 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020712 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020714 51 c8 ff fc              |Q       |		DBF	D0,0x20712
00020718 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002071a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002071e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020722 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00020726 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002072c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002072e 48 78 00 01              |Hx      |		PEA.L	0x1
00020732 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020736 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002073a 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00020740 de fc 00 18              |        |		ADDA.W	#0x18,A7
00020744 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
0002074a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0002074e 48 50                    |HP      |		PEA.L	(A0)
00020750 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00020756 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020758 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
0002075e 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00020762 4e 5e                    |N^      |		UNLK	A6
00020764 4e 75                    |Nu      |		RTS
00020766 ; --------------------------------------------------------------------------------------
00020766 ; OMSI PASCAL Function
00020766 ;    <LVAR -0x002 @ 1(r)>
00020766 ;    <LVAR -0x006 @ 4(r)>
00020766 ;    <LVAR -0x008 @ 1(r)>
00020766 ;    <LVAR -0x00c @ 4(r)>
00020766 ; --------------------------------------------------------------------------------------
00020766 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
0002076a bf d5                    |        |		CMPA.L	(A5),A7
0002076c 62 06                    |b       |		BHI	0x20774
0002076e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020772 4e 76                    |Nv      |		TRAPV
00020774 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00020778 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
0002077c 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
00020780 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00020784 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
00020788 49 ee ff fe              |I       |		LEA.L	(A6-0x2),A4
0002078c 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
0002078e 41 fa f9 c8              |A       |		LEA.L	0x20158,A0
00020792 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020794 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020796 51 c8 ff fc              |Q       |		DBF	D0,0x20794
0002079a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002079c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000207a0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000207a4 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
000207a8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000207ae 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000207b0 42 17                    |B       |		CLR.B	(A7)
000207b2 42 27                    |B'      |		CLR.B	-(A7)
000207b4 48 78 00 00              |Hx      |		PEA.L	0x0
000207b8 48 52                    |HR      |		PEA.L	(A2)
000207ba 48 53                    |HS      |		PEA.L	(A3)
000207bc 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000207c2 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
000207c6 4a 12                    |J       |		TST.B	(A2)
000207c8 66 62                    |fb      |		BNE	0x2082c
000207ca 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000207d0 48 51                    |HQ      |		PEA.L	(A1)
000207d2 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000207d8 2e 93                    |.       |		MOVE.L	(A3),(A7)
000207da 48 51                    |HQ      |		PEA.L	(A1)
000207dc 48 54                    |HT      |		PEA.L	(A4)
000207de 4e b9 00 01 04 3c        |N    <  |		JSR	FileReadLine(file : File; VAR a : String; VAR b : Byte)
000207e4 de c1                    |        |		ADDA.W	D1,A7
000207e6 4a 14                    |J       |		TST.B	(A4)
000207e8 66 0a                    |f       |		BNE	0x207f4
000207ea 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000207ec 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000207f2 60 08                    |`       |		BRA	0x207fc
000207f4 48 51                    |HQ      |		PEA.L	(A1)
000207f6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000207fc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207fe 4a 14                    |J       |		TST.B	(A4)
00020800 67 ce                    |g       |		BEQ	0x207d0
00020802 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00020808 42 27                    |B'      |		CLR.B	-(A7)
0002080a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002080e 48 78 00 01              |Hx      |		PEA.L	0x1
00020812 48 52                    |HR      |		PEA.L	(A2)
00020814 48 53                    |HS      |		PEA.L	(A3)
00020816 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
0002081c de c1                    |        |		ADDA.W	D1,A7
0002081e 2e bc 00 02 fa ee        |.       |		MOVE.L	#0x2faee,(A7)
00020824 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
0002082a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002082c 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
00020830 4e 5e                    |N^      |		UNLK	A6
00020832 4e 75                    |Nu      |		RTS
00020834 ; --------------------------------------------------------------------------------------
00020834 ; OMSI PASCAL Function
00020834 ;    <LVAR  0x008 4(r)>
00020834 ; --------------------------------------------------------------------------------------
00020834 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00020838 bf d5                    |        |		CMPA.L	(A5),A7
0002083a 62 06                    |b       |		BHI	0x20842
0002083c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020840 4e 76                    |Nv      |		TRAPV
00020842 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020846 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0002084a 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
0002084e 4a 39 00 02 3e c4        |J9  >   |		TST.B	0x23ec4
00020854 67 08                    |g       |		BEQ	0x2085e
00020856 20 51                    | Q      |		MOVEA.L	(A1),A0
00020858 00 68 40 00 00 04        | h@     |		ORI.W	#0x4000,(A0+0x4)
0002085e 4a 39 00 02 3e c5        |J9  >   |		TST.B	0x23ec5
00020864 67 08                    |g       |		BEQ	0x2086e
00020866 20 51                    | Q      |		MOVEA.L	(A1),A0
00020868 00 68 20 00 00 04        | h      |		ORI.W	#0x2000,(A0+0x4)
0002086e 4a 39 00 02 3e c6        |J9  >   |		TST.B	0x23ec6
00020874 67 08                    |g       |		BEQ	0x2087e
00020876 20 51                    | Q      |		MOVEA.L	(A1),A0
00020878 00 68 10 00 00 04        | h      |		ORI.W	#0x1000,(A0+0x4)
0002087e 4a 39 00 02 3e c9        |J9  >   |		TST.B	0x23ec9
00020884 67 08                    |g       |		BEQ	0x2088e
00020886 20 51                    | Q      |		MOVEA.L	(A1),A0
00020888 00 68 02 00 00 04        | h      |		ORI.W	#0x0200,(A0+0x4)
0002088e 4a 39 00 02 3e ca        |J9  >   |		TST.B	0x23eca
00020894 67 08                    |g       |		BEQ	0x2089e
00020896 20 51                    | Q      |		MOVEA.L	(A1),A0
00020898 00 68 01 00 00 04        | h      |		ORI.W	#0x0100,(A0+0x4)
0002089e 10 39 00 02 3e 98        | 9  >   |		MOVE.B	0x23e98,D0
000208a4 ef 08                    |        |		LSL.B	#0x7,D0
000208a6 ee 08                    |        |		LSR.B	#0x7,D0
000208a8 67 08                    |g       |		BEQ	0x208b2
000208aa 20 51                    | Q      |		MOVEA.L	(A1),A0
000208ac 00 68 08 00 00 04        | h      |		ORI.W	#0x0800,(A0+0x4)
000208b2 10 39 00 02 3e 98        | 9  >   |		MOVE.B	0x23e98,D0
000208b8 ed 08                    |        |		LSL.B	#0x6,D0
000208ba ee 08                    |        |		LSR.B	#0x7,D0
000208bc 67 08                    |g       |		BEQ	0x208c6
000208be 20 51                    | Q      |		MOVEA.L	(A1),A0
000208c0 00 68 04 00 00 04        | h      |		ORI.W	#0x0400,(A0+0x4)
000208c6 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
000208ca 4e 5e                    |N^      |		UNLK	A6
000208cc 4e 75                    |Nu      |		RTS
000208ce ; --------------------------------------------------------------------------------------
000208ce ; OMSI PASCAL Function
000208ce ;    <LVAR -0x004 @>
000208ce ; --------------------------------------------------------------------------------------
000208ce 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
000208d2 bf d5                    |        |		CMPA.L	(A5),A7
000208d4 62 06                    |b       |		BHI	0x208dc
000208d6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000208da 4e 76                    |Nv      |		TRAPV
000208dc de fc 00 28              |   (    |		ADDA.W	#0x28,A7
000208e0 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
000208e4 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000208ea 42 27                    |B'      |		CLR.B	-(A7)
000208ec 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
000208f2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208f4 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
000208fa 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
000208fe 20 4f                    | O      |		MOVEA.L	A7,A0
00020900 43 fa f8 56              |C  V    |		LEA.L	0x20158,A1
00020904 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020906 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020908 51 c8 ff fc              |Q       |		DBF	D0,0x20906
0002090c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002090e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020912 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020916 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
0002091a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020920 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020922 48 78 00 01              |Hx      |		PEA.L	0x1
00020926 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002092a 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002092e 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00020934 de fc 00 18              |        |		ADDA.W	#0x18,A7
00020938 48 79 00 02 41 be        |Hy  A   |		PEA.L	0x241be
0002093e 4e b9 00 01 05 a4        |N       |		JSR	Read_fc0c() : Word
00020944 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020946 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
0002094a 4e 5e                    |N^      |		UNLK	A6
0002094c 4e 75                    |Nu      |		RTS
0002094e ; --------------------------------------------------------------------------------------
0002094e ; OMSI PASCAL Function
0002094e ; --------------------------------------------------------------------------------------
0002094e 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00020952 bf d5                    |        |		CMPA.L	(A5),A7
00020954 62 06                    |b       |		BHI	0x2095c
00020956 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002095a 4e 76                    |Nv      |		TRAPV
0002095c de fc 00 14              |        |		ADDA.W	#0x14,A7
00020960 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00020964 41 f9 00 02 41 d4        |A   A   |		LEA.L	0x241d4,A0
0002096a 42 50                    |BP      |		CLR.W	(A0)
0002096c 42 80                    |B       |		CLR.L	D0
0002096e 30 10                    |0       |		MOVE.W	(A0),D0
00020970 22 00                    |"       |		MOVE.L	D0,D1
00020972 e1 81                    |        |		ASL.L	#0x8,D1
00020974 e9 81                    |        |		ASL.L	#0x4,D1
00020976 58 80                    |X       |		ADDQ.L	#0x4,D0
00020978 e1 80                    |        |		ASL.L	#0x8,D0
0002097a d0 81                    |        |		ADD.L	D1,D0
0002097c 06 80 00 00 00 80        |        |		ADDI.L	#0x00000080,D0
00020982 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00020988 63 02                    |c       |		BLS	0x2098c
0002098a 4e 4f                    |NO      |		TRAP	#15
0002098c 33 c0 00 02 41 d2        |3   A   |		MOVE.W	D0,0x241d2
00020992 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00020996 4e 5e                    |N^      |		UNLK	A6
00020998 4e 75                    |Nu      |		RTS
0002099a ; --------------------------------------------------------------------------------------
0002099a ; OMSI PASCAL Function
0002099a ;    <LVAR  0x008 1(r)>
0002099a ;    <LVAR -0x003 1(r)>
0002099a ;    <LVAR -0x004 1(w)>
0002099a ;    <LVAR -0x005 1(w)>
0002099a ;    <LVAR -0x006 1(w) 4(r)>
0002099a ;    <LVAR -0x007 1(w)>
0002099a ;    <LVAR -0x008 1(w)>
0002099a ;    <LVAR -0x009 1(w)>
0002099a ;    <LVAR -0x00a 1(w) 4(r)>
0002099a ;    <LVAR -0x00b @ 1(r)>
0002099a ;    <LVAR -0x00c 1(r)>
0002099a ;    <LVAR -0x00d @ 1(r)>
0002099a ;    <LVAR -0x00e @ 1(r)>
0002099a ;    <LVAR -0x00f @ 1(r)>
0002099a ;    <LVAR -0x010 1(r)>
0002099a ;    <LVAR -0x011 @ 1(r)>
0002099a ;    <LVAR -0x012 @ 1(r)>
0002099a ; --------------------------------------------------------------------------------------
0002099a 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae		; Spelunked
0002099e bf d5                    |        |		CMPA.L	(A5),A7
000209a0 62 06                    |b       |		BHI	0x209a8
000209a2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000209a6 4e 76                    |Nv      |		TRAPV
000209a8 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
000209ac 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
000209b0 43 ee ff ee              |C       |		LEA.L	(A6-0x12),A1
000209b4 45 ee ff ef              |E       |		LEA.L	(A6-0x11),A2
000209b8 47 ee ff f1              |G       |		LEA.L	(A6-0xf),A3
000209bc 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
000209c0 74 18                    |t       |		MOVEQ.L	#0x18,D2
000209c2 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000209c6 48 80                    |H       |		EXTB.W	D0
000209c8 32 00                    |2       |		MOVE.W	D0,D1
000209ca 55 41                    |UA      |		SUBQ.W	#0x2,D1
000209cc 0c 41 00 0d              | A      |		CMPI.W	#0x000d,D1
000209d0 63 02                    |c       |		BLS	0x209d4
000209d2					switch@0x209d6[0x2]:
000209d2					switch@0x209d6[0x3]:
000209d2					switch@0x209d6[0x6]:
000209d2					switch@0x209d6[0x7]:
000209d2					switch@0x209d6[0x8]:
000209d2					switch@0x209d6[0x9]:
000209d2 4e 4e                    |NN      |		TRAP	#14
000209d4 d2 41                    | A      |		ADD.W	D1,D1
000209d6 32 3b 10 06 4e fb 10 02  |2;  N   |		SWITCH	D1.W
000209de 00 66                    | f      |		.CONST	0x66			; [0x0] -> 0x20a44
000209e0 00 4e                    | N      |		.CONST	0x4e			; [0x1] -> 0x20a2c
000209e2 ff f4                    |        |		.CONST	0xfff4			; [0x2] -> 0x209d2
000209e4 ff f4                    |        |		.CONST	0xfff4			; [0x3] -> 0x209d2
000209e6 00 1c                    |        |		.CONST	0x1c			; [0x4] -> 0x209fa
000209e8 00 36                    | 6      |		.CONST	0x36			; [0x5] -> 0x20a14
000209ea ff f4                    |        |		.CONST	0xfff4			; [0x6] -> 0x209d2
000209ec ff f4                    |        |		.CONST	0xfff4			; [0x7] -> 0x209d2
000209ee ff f4                    |        |		.CONST	0xfff4			; [0x8] -> 0x209d2
000209f0 ff f4                    |        |		.CONST	0xfff4			; [0x9] -> 0x209d2
000209f2 00 7e                    | ~      |		.CONST	0x7e			; [0xa] -> 0x20a5c
000209f4 00 7e                    | ~      |		.CONST	0x7e			; [0xb] -> 0x20a5c
000209f6 00 7e                    | ~      |		.CONST	0x7e			; [0xc] -> 0x20a5c
000209f8 00 7e                    | ~      |		.CONST	0x7e			; [0xd] -> 0x20a5c
000209fa					switch@0x209d6[0x4]:
000209fa 48 51                    |HQ      |		PEA.L	(A1)
000209fc 48 52                    |HR      |		PEA.L	(A2)
000209fe 48 53                    |HS      |		PEA.L	(A3)
00020a00 48 54                    |HT      |		PEA.L	(A4)
00020a02 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
00020a06 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
00020a0a 4e b9 00 02 34 76        |N   4v  |		JSR	exp_READ_NOVRAM_DATA.TYP(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
00020a10 de c2                    |        |		ADDA.W	D2,A7
00020a12 60 64                    |`d      |		BRA	0x20a78
00020a14					switch@0x209d6[0x5]:
00020a14 48 51                    |HQ      |		PEA.L	(A1)
00020a16 48 52                    |HR      |		PEA.L	(A2)
00020a18 48 53                    |HS      |		PEA.L	(A3)
00020a1a 48 54                    |HT      |		PEA.L	(A4)
00020a1c 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
00020a20 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
00020a24 4e b9 00 02 35 2e        |N   5.  |		JSR	exp_READ_NOVRAM_DATA.VAL(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
00020a2a 60 e4                    |`       |		BRA	0x20a10
00020a2c					switch@0x209d6[0x1]:
00020a2c 48 51                    |HQ      |		PEA.L	(A1)
00020a2e 48 52                    |HR      |		PEA.L	(A2)
00020a30 48 53                    |HS      |		PEA.L	(A3)
00020a32 48 54                    |HT      |		PEA.L	(A4)
00020a34 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
00020a38 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
00020a3c 4e b9 00 02 33 48        |N   3H  |		JSR	exp_READ_NOVRAM_DATA.FIU(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
00020a42 60 cc                    |`       |		BRA	0x20a10
00020a44					switch@0x209d6[0x0]:
00020a44 48 51                    |HQ      |		PEA.L	(A1)
00020a46 48 52                    |HR      |		PEA.L	(A2)
00020a48 48 53                    |HS      |		PEA.L	(A3)
00020a4a 48 54                    |HT      |		PEA.L	(A4)
00020a4c 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
00020a50 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
00020a54 4e b9 00 02 33 fc        |N   3   |		JSR	exp_READ_NOVRAM_DATA.SEQ(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr)
00020a5a 60 b4                    |`       |		BRA	0x20a10
00020a5c					switch@0x209d6[0xa]:
00020a5c					switch@0x209d6[0xb]:
00020a5c					switch@0x209d6[0xc]:
00020a5c					switch@0x209d6[0xd]:
00020a5c 1f 00                    |        |		MOVE.B	D0,-(A7)
00020a5e 48 51                    |HQ      |		PEA.L	(A1)
00020a60 48 52                    |HR      |		PEA.L	(A2)
00020a62 48 53                    |HS      |		PEA.L	(A3)
00020a64 48 54                    |HT      |		PEA.L	(A4)
00020a66 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
00020a6a 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
00020a6e 4e b9 00 02 35 ec        |N   5   |		JSR	0x235ec
00020a74 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020a78 4a 2e ff f5              |J.      |		TST.B	(A6-0xb)
00020a7c 67 50                    |gP      |		BEQ	0x20ace
00020a7e 1d 51 ff f6              | Q      |		MOVE.B	(A1),(A6-0xa)
00020a82 1d 52 ff f7              | R      |		MOVE.B	(A2),(A6-0x9)
00020a86 1d 6e ff f0 ff f8        | n      |		MOVE.B	(A6-0x10),(A6-0x8)
00020a8c 1d 53 ff f9              | S      |		MOVE.B	(A3),(A6-0x7)
00020a90 1d 54 ff fa              | T      |		MOVE.B	(A4),(A6-0x6)
00020a94 1d 6e ff f3 ff fb        | n      |		MOVE.B	(A6-0xd),(A6-0x5)
00020a9a 1d 6e ff f4 ff fc        | n      |		MOVE.B	(A6-0xc),(A6-0x4)
00020aa0 42 2e ff fd              |B.      |		CLR.B	(A6-0x3)
00020aa4 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020aa8 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020aac 48 57                    |HW      |		PEA.L	(A7)
00020aae 48 78 00 00              |Hx      |		PEA.L	0x0
00020ab2 48 78 00 07              |Hx      |		PEA.L	0x7
00020ab6 e7 40                    | @      |		ASL.W	#0x3,D0
00020ab8 41 f9 00 02 3e 90        |A   >   |		LEA.L	0x23e90,A0
00020abe 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00020ac2 48 68 03 4a              |Hh J    |		PEA.L	(A0+0x34a)
00020ac6 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
00020acc de c2                    |        |		ADDA.W	D2,A7
00020ace 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00020ad2 4e 5e                    |N^      |		UNLK	A6
00020ad4 4e 75                    |Nu      |		RTS
00020ad6 ; --------------------------------------------------------------------------------------
00020ad6 ; OMSI PASCAL Function
00020ad6 ;    <LVAR -0x001 1(r)>
00020ad6 ;    <LVAR -0x002 1(w)>
00020ad6 ;    <LVAR -0x003 1(w)>
00020ad6 ;    <LVAR -0x004 1(w) 4(r)>
00020ad6 ;    <LVAR -0x005 1(w)>
00020ad6 ;    <LVAR -0x006 1(w)>
00020ad6 ;    <LVAR -0x007 1(w)>
00020ad6 ;    <LVAR -0x008 1(w) 4(r)>
00020ad6 ; --------------------------------------------------------------------------------------
00020ad6 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00020ada bf d5                    |        |		CMPA.L	(A5),A7
00020adc 62 06                    |b       |		BHI	0x20ae4
00020ade 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020ae2 4e 76                    |Nv      |		TRAPV
00020ae4 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00020ae8 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00020aec 41 f9 00 01 05 92        |A       |		LEA.L	ReadConfig(where : Long) : Word,A0
00020af2 32 3c 00 ff              |2<      |		MOVE.W	#0xff,D1
00020af6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020af8 48 78 01 01              |Hx      |		PEA.L	0x101
00020afc 4e 90                    |N       |		JSR	(A0)
00020afe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b00 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020b02 41 81                    |A       |		CHK.W	D1,D0
00020b04 1d 40 ff f8              | @      |		MOVE.B	D0,(A6-0x8)
00020b08 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020b0a 48 78 01 02              |Hx      |		PEA.L	0x102
00020b0e 4e 90                    |N       |		JSR	(A0)
00020b10 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b12 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020b14 41 81                    |A       |		CHK.W	D1,D0
00020b16 1d 40 ff f9              | @      |		MOVE.B	D0,(A6-0x7)
00020b1a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020b1c 48 78 01 03              |Hx      |		PEA.L	0x103
00020b20 4e 90                    |N       |		JSR	(A0)
00020b22 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b24 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020b26 41 81                    |A       |		CHK.W	D1,D0
00020b28 1d 40 ff fa              | @      |		MOVE.B	D0,(A6-0x6)
00020b2c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020b2e 48 78 01 04              |Hx      |		PEA.L	0x104
00020b32 4e 90                    |N       |		JSR	(A0)
00020b34 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b36 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020b38 41 81                    |A       |		CHK.W	D1,D0
00020b3a 1d 40 ff fb              | @      |		MOVE.B	D0,(A6-0x5)
00020b3e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020b40 48 78 01 05              |Hx      |		PEA.L	0x105
00020b44 4e 90                    |N       |		JSR	(A0)
00020b46 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b48 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020b4a 41 81                    |A       |		CHK.W	D1,D0
00020b4c 1d 40 ff fc              | @      |		MOVE.B	D0,(A6-0x4)
00020b50 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020b52 48 78 01 06              |Hx      |		PEA.L	0x106
00020b56 4e 90                    |N       |		JSR	(A0)
00020b58 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b5a 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020b5c 41 81                    |A       |		CHK.W	D1,D0
00020b5e 1d 40 ff fd              | @      |		MOVE.B	D0,(A6-0x3)
00020b62 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020b64 48 78 01 07              |Hx      |		PEA.L	0x107
00020b68 4e 90                    |N       |		JSR	(A0)
00020b6a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b6c 30 1f                    |0       |		MOVE.W	(A7)+,D0
00020b6e 41 81                    |A       |		CHK.W	D1,D0
00020b70 1d 40 ff fe              | @      |		MOVE.B	D0,(A6-0x2)
00020b74 42 2e ff ff              |B.      |		CLR.B	(A6-0x1)
00020b78 2f 2e ff fc              |/.      |		MOVE.L	(A6-0x4),-(A7)
00020b7c 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
00020b80 48 57                    |HW      |		PEA.L	(A7)
00020b82 48 78 00 00              |Hx      |		PEA.L	0x0
00020b86 48 78 00 07              |Hx      |		PEA.L	0x7
00020b8a 48 79 00 02 41 fa        |Hy  A   |		PEA.L	0x241fa
00020b90 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
00020b96 de fc 00 18              |        |		ADDA.W	#0x18,A7
00020b9a 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00020b9e 4e 5e                    |N^      |		UNLK	A6
00020ba0 4e 75                    |Nu      |		RTS
00020ba2 ; --------------------------------------------------------------------------------------
00020ba2 ; OMSI PASCAL Function
00020ba2 ; --------------------------------------------------------------------------------------
00020ba2 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
00020ba6 bf d5                    |        |		CMPA.L	(A5),A7
00020ba8 62 06                    |b       |		BHI	0x20bb0
00020baa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020bae 4e 76                    |Nv      |		TRAPV
00020bb0 de fc 00 20              |        |		ADDA.W	#0x20,A7
00020bb4 48 e7 c1 c0              |H       |		MOVEM.L	A1+A0+D7+D1+D0,-(A7)
00020bb8 43 fa fd e0              |C       |		LEA.L	0x2099a,A1
00020bbc 72 0f                    |r       |		MOVEQ.L	#0x0f,D1
00020bbe 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020bc0 10 07                    |        |		MOVE.B	D7,D0
00020bc2 48 80                    |H       |		EXTB.W	D0
00020bc4 e7 40                    | @      |		ASL.W	#0x3,D0
00020bc6 41 f9 00 02 3e 90        |A   >   |		LEA.L	0x23e90,A0
00020bcc 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00020bd0 21 7a f9 d8 03 4a        |!z   J  |		MOVE.L	0x205aa,(A0+0x34a)
00020bd6 21 7a f9 d6 03 4e        |!z   N  |		MOVE.L	0x205ae,(A0+0x34e)
00020bdc 52 07                    |R       |		ADDQ.B	#0x1,D7
00020bde be 01                    |        |		CMP.B	D1,D7
00020be0 6f de                    |o       |		BLE	0x20bc0
00020be2 4e ba fe f2              |N       |		JSR	0x20ad6
00020be6 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020bea 4e 91                    |N       |		JSR	(A1)
00020bec 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
00020bf0 4e 91                    |N       |		JSR	(A1)
00020bf2 1e bc 00 06              |        |		MOVE.B	#0x06,(A7)
00020bf6 4e 91                    |N       |		JSR	(A1)
00020bf8 1e bc 00 07              |        |		MOVE.B	#0x07,(A7)
00020bfc 4e 91                    |N       |		JSR	(A1)
00020bfe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020c00 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00020c02 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020c04 1f 07                    |        |		MOVE.B	D7,-(A7)
00020c06 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020c0c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020c0e 4a 1f                    |J       |		TST.B	(A7)+
00020c10 67 06                    |g       |		BEQ	0x20c18
00020c12 1f 07                    |        |		MOVE.B	D7,-(A7)
00020c14 4e 91                    |N       |		JSR	(A1)
00020c16 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020c18 52 07                    |R       |		ADDQ.B	#0x1,D7
00020c1a be 01                    |        |		CMP.B	D1,D7
00020c1c 6f e4                    |o       |		BLE	0x20c02
00020c1e 4c df 03 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1
00020c22 4e 5e                    |N^      |		UNLK	A6
00020c24 4e 75                    |Nu      |		RTS
00020c26 ; --------------------------------------------------------------------------------------
00020c26 ; OMSI PASCAL Function
00020c26 ;    <LVAR  0x008 4(r)>
00020c26 ;    <LVAR -0x004 1(rw)>
00020c26 ; --------------------------------------------------------------------------------------
00020c26 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
00020c2a bf d5                    |        |		CMPA.L	(A5),A7
00020c2c 62 06                    |b       |		BHI	0x20c34
00020c2e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020c32 4e 76                    |Nv      |		TRAPV
00020c34 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00020c38 48 e7 e1 c0              |H       |		MOVEM.L	A1+A0+D7+D2+D1+D0,-(A7)
00020c3c 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00020c40 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020c42 74 0f                    |t       |		MOVEQ.L	#0x0f,D2
00020c44 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
00020c48 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020c4c 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00020c52 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c54 10 39 00 02 41 bf        | 9  A   |		MOVE.B	0x241bf,D0
00020c5a ee 08                    |        |		LSR.B	#0x7,D0
00020c5c 66 38                    |f8      |		BNE	0x20c96
00020c5e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020c62 10 81                    |        |		MOVE.B	D1,(A0)
00020c64 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020c66 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00020c6c 4a 1f                    |J       |		TST.B	(A7)+
00020c6e 67 08                    |g       |		BEQ	0x20c78
00020c70 4e b9 00 02 32 ee        |N   2   |		JSR	exp_LOAD_HRAM_8_0.FIU()
00020c76 60 06                    |`       |		BRA	0x20c7e
00020c78 4e b9 00 02 33 0c        |N   3   |		JSR	exp_LOAD_HRAM_32_0.FIU()
00020c7e 4e b9 00 02 33 8a        |N   3   |		JSR	exp_LOAD_HRAM_1.FIU()
00020c84 4e b9 00 02 35 aa        |N   5   |		JSR	exp_ALIGN_CSA.VAL()
00020c8a 4e b9 00 02 35 14        |N   5   |		JSR	exp_ALIGN_CSA.TYP()
00020c90 4e b9 00 01 05 c2        |N       |		JSR	Or_fc0c_80(void)
00020c96 42 11                    |B       |		CLR.B	(A1)
00020c98 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00020c9a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020c9c 1f 07                    |        |		MOVE.B	D7,-(A7)
00020c9e 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020ca4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ca6 4a 1f                    |J       |		TST.B	(A7)+
00020ca8 67 0c                    |g       |		BEQ	0x20cb6
00020caa 42 80                    |B       |		CLR.L	D0
00020cac 10 11                    |        |		MOVE.B	(A1),D0
00020cae 52 40                    |R@      |		ADDQ.W	#0x1,D0
00020cb0 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00020cb4 12 80                    |        |		MOVE.B	D0,(A1)
00020cb6 52 07                    |R       |		ADDQ.B	#0x1,D7
00020cb8 be 02                    |        |		CMP.B	D2,D7
00020cba 6f de                    |o       |		BLE	0x20c9a
00020cbc 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00020cbe 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020cc0 1f 07                    |        |		MOVE.B	D7,-(A7)
00020cc2 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020cc8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020cca 4a 1f                    |J       |		TST.B	(A7)+
00020ccc 67 42                    |gB      |		BEQ	0x20d10
00020cce 1f 07                    |        |		MOVE.B	D7,-(A7)
00020cd0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020cd2 1f 07                    |        |		MOVE.B	D7,-(A7)
00020cd4 4e b9 00 01 04 c6        |N       |		JSR	EQ_1c218(a : Byte) : Bool
00020cda 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020cdc 10 17                    |        |		MOVE.B	(A7),D0
00020cde 48 80                    |H       |		EXTB.W	D0
00020ce0 41 81                    |A       |		CHK.W	D1,D0
00020ce2 1e 80                    |        |		MOVE.B	D0,(A7)
00020ce4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020ce6 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00020cec 10 17                    |        |		MOVE.B	(A7),D0
00020cee 48 80                    |H       |		EXTB.W	D0
00020cf0 41 81                    |A       |		CHK.W	D1,D0
00020cf2 1e 80                    |        |		MOVE.B	D0,(A7)
00020cf4 1f 11                    |        |		MOVE.B	(A1),-(A7)
00020cf6 4e b9 00 02 38 6c        |N   8l  |		JSR	0x2386c
00020cfc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020cfe 1e 87                    |        |		MOVE.B	D7,(A7)
00020d00 4e b9 00 02 39 54        |N   9T  |		JSR	0x23954
00020d06 1e 87                    |        |		MOVE.B	D7,(A7)
00020d08 4e b9 00 02 3a 08        |N   :   |		JSR	0x23a08
00020d0e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d10 52 07                    |R       |		ADDQ.B	#0x1,D7
00020d12 be 02                    |        |		CMP.B	D2,D7
00020d14 6f a8                    |o       |		BLE	0x20cbe
00020d16 4e b9 00 02 33 de        |N   3   |		JSR	exp_CLEAR_PARITY.FIU()
00020d1c 4e b9 00 02 35 8c        |N   5   |		JSR	exp_CLEAR_PARITY.VAL()
00020d22 4e b9 00 02 34 f6        |N   4   |		JSR	exp_CLEAR_PARITY.TYP()
00020d28 4e b9 00 02 34 58        |N   4X  |		JSR	exp_CLEAR_PARITY.SEQ()
00020d2e 4e b9 00 01 05 b0        |N       |		JSR	FifoInit(void)
00020d34 4c df 03 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1
00020d38 4e 5e                    |N^      |		UNLK	A6
00020d3a 4e 75                    |Nu      |		RTS
00020d3c ; --------------------------------------------------------------------------------------
00020d3c ; OMSI PASCAL Function
00020d3c ;    <LVAR  0x014 4(r)>
00020d3c ;    <LVAR  0x010 4(r)>
00020d3c ;    <LVAR  0x00c @ 4(r)>
00020d3c ;    <LVAR  0x008 @ 4(r)>
00020d3c ;    <LVAR -0x004 @ 4(rw)>
00020d3c ;    <LVAR -0x006 @>
00020d3c ;    <LVAR -0x025 1(rw)>
00020d3c ;    <LVAR -0x026 @>
00020d3c ;    <LVAR -0x02a @>
00020d3c ;    <LVAR -0x02c @ 1(r)>
00020d3c ; --------------------------------------------------------------------------------------
00020d3c 4e 56 ff 60              |NV `    |		LINK.W	A6,#0xff60
00020d40 bf d5                    |        |		CMPA.L	(A5),A7
00020d42 62 06                    |b       |		BHI	0x20d4a
00020d44 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020d48 4e 76                    |Nv      |		TRAPV
00020d4a de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00020d4e 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00020d52 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00020d56 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
00020d5a 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00020d60 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020d62 74 1e                    |t       |		MOVEQ.L	#0x1e,D2
00020d64 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00020d66 78 02                    |x       |		MOVEQ.L	#0x02,D4
00020d68 7a 10                    |z       |		MOVEQ.L	#0x10,D5
00020d6a 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00020d6e 4a 10                    |J       |		TST.B	(A0)
00020d70 67 12                    |g       |		BEQ	0x20d84
00020d72 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00020d76 43 ee ff da              |C       |		LEA.L	(A6-0x26),A1
00020d7a 70 1f                    |p       |		MOVEQ.L	#0x1f,D0
00020d7c 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00020d7e 51 c8 ff fc              |Q       |		DBF	D0,0x20d7c
00020d82 60 0c                    |`       |		BRA	0x20d90
00020d84 43 ee ff da              |C       |		LEA.L	(A6-0x26),A1
00020d88 70 1f                    |p       |		MOVEQ.L	#0x1f,D0
00020d8a 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00020d8c 51 c8 ff fc              |Q       |		DBF	D0,0x20d8a
00020d90 4a 2e ff db              |J.      |		TST.B	(A6-0x25)
00020d94 66 0c                    |f       |		BNE	0x20da2
00020d96 20 4b                    | K      |		MOVEA.L	A3,A0
00020d98 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00020d9a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020d9c 51 c8 ff fc              |Q       |		DBF	D0,0x20d9a
00020da0 60 74                    |`t      |		BRA	0x20e16
00020da2 3f 3a f3 be              |?:      |		MOVE.W	0x20162,-(A7)
00020da6 20 4b                    | K      |		MOVEA.L	A3,A0
00020da8 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00020daa 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020dac 51 c8 ff fc              |Q       |		DBF	D0,0x20daa
00020db0 2f 3a f3 b2              |/:      |		MOVE.L	0x20164,-(A7)
00020db4 9e c3                    |        |		SUBA.W	D3,A7
00020db6 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00020dba 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020dc0 48 6f 00 32              |Ho 2    |		PEA.L	(A7+0x32)
00020dc4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020dc6 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020dc8 4e 94                    |N       |		JSR	(A4)
00020dca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020dcc 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00020dd0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020dd2 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020dd4 4e 94                    |N       |		JSR	(A4)
00020dd6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020dd8 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00020ddc 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020dde 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00020de2 4e 94                    |N       |		JSR	(A4)
00020de4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020de6 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00020dec de c5                    |        |		ADDA.W	D5,A7
00020dee 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00020df4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020df6 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00020df8 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00020dfc 20 52                    | R      |		MOVEA.L	(A2),A0
00020dfe 4a 50                    |JP      |		TST.W	(A0)
00020e00 66 26                    |f&      |		BNE	0x20e28
00020e02 48 52                    |HR      |		PEA.L	(A2)
00020e04 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020e0a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e0c 20 4b                    | K      |		MOVEA.L	A3,A0
00020e0e 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00020e10 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020e12 51 c8 ff fc              |Q       |		DBF	D0,0x20e10
00020e16 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020e18 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020e1c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020e1e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020e20 4e 94                    |N       |		JSR	(A4)
00020e22 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e24 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00020e26 de c2                    |        |		ADDA.W	D2,A7
00020e28 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020e2a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020e2c 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
00020e32 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e34 24 97                    |$       |		MOVE.L	(A7),(A2)
00020e36 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020e38 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020e3c 4e b9 00 01 03 00        |N       |		JSR	FSCALL_10300
00020e42 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e44 4a 9f                    |J       |		TST.L	(A7)+
00020e46 66 1c                    |f       |		BNE	0x20e64
00020e48 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020e4a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020e4c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020e4e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020e52 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020e58 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e5a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020e60 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e62 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00020e64 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020e66 42 27                    |B'      |		CLR.B	-(A7)
00020e68 1f 01                    |        |		MOVE.B	D1,-(A7)
00020e6a 48 78 00 00              |Hx      |		PEA.L	0x0
00020e6e 48 6e ff d4              |Hn      |		PEA.L	(A6-0x2c)
00020e72 48 6e ff d6              |Hn      |		PEA.L	(A6-0x2a)
00020e76 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020e7c de fc 00 14              |        |		ADDA.W	#0x14,A7
00020e80 4a 2e ff d4              |J.      |		TST.B	(A6-0x2c)
00020e84 66 1a                    |f       |		BNE	0x20ea0
00020e86 42 27                    |B'      |		CLR.B	-(A7)
00020e88 1f 04                    |        |		MOVE.B	D4,-(A7)
00020e8a 48 78 00 01              |Hx      |		PEA.L	0x1
00020e8e 48 6e ff d4              |Hn      |		PEA.L	(A6-0x2c)
00020e92 48 6e ff d6              |Hn      |		PEA.L	(A6-0x2a)
00020e96 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020e9c de c5                    |        |		ADDA.W	D5,A7
00020e9e 60 12                    |`       |		BRA	0x20eb2
00020ea0 48 52                    |HR      |		PEA.L	(A2)
00020ea2 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020ea8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020eaa 1d 41 ff db              | A      |		MOVE.B	D1,(A6-0x25)
00020eae 60 00 fe e0              |`       |		BRA	0x20d90
00020eb2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020eb4 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00020eb8 48 68 00 02              |Hh      |		PEA.L	(A0+0x2)
00020ebc 48 53                    |HS      |		PEA.L	(A3)
00020ebe 4e b9 00 01 05 8c        |N       |		JSR	FSCALL_1058c
00020ec4 de c3                    |        |		ADDA.W	D3,A7
00020ec6 48 6e 00 0c              |Hn      |		PEA.L	(A6+0xc)
00020eca 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020ed0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ed2 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00020ed6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020edc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ede 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00020ee2 4e 5e                    |N^      |		UNLK	A6
00020ee4 4e 75                    |Nu      |		RTS
00020ee6 ; --------------------------------------------------------------------------------------
00020ee6 ; OMSI PASCAL Function
00020ee6 ;    <LVAR  0x008 1(r)>
00020ee6 ;    <LVAR -0x002 @>
00020ee6 ; --------------------------------------------------------------------------------------
00020ee6 4e 56 ff b0              |NV      |		LINK.W	A6,#0xffb0
00020eea bf d5                    |        |		CMPA.L	(A5),A7
00020eec 62 06                    |b       |		BHI	0x20ef4
00020eee 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020ef2 4e 76                    |Nv      |		TRAPV
00020ef4 de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
00020ef8 48 e7 e0 e0              |H       |		MOVEM.L	A2+A1+A0+D2+D1+D0,-(A7)
00020efc 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020f02 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020f04 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00020f06 41 fa f2 6e              |A  n    |		LEA.L	0x20176,A0
00020f0a 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020f0c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020f0e 51 c8 ff fc              |Q       |		DBF	D0,0x20f0c
00020f12 9e c2                    |        |		SUBA.W	D2,A7
00020f14 20 4f                    | O      |		MOVEA.L	A7,A0
00020f16 43 fa f2 5e              |C  ^    |		LEA.L	0x20176,A1
00020f1a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00020f1c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020f1e 51 c8 ff fc              |Q       |		DBF	D0,0x20f1c
00020f22 48 79 00 02 3e cb        |Hy  >   |		PEA.L	0x23ecb
00020f28 48 79 00 02 40 5d        |Hy  @]  |		PEA.L	0x2405d
00020f2e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f30 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00020f34 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020f36 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00020f3a 4e 92                    |N       |		JSR	(A2)
00020f3c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f3e 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00020f42 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020f44 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00020f48 4e 92                    |N       |		JSR	(A2)
00020f4a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f4c 4e ba fd ee              |N       |		JSR	0x20d3c
00020f50 de c2                    |        |		ADDA.W	D2,A7
00020f52 20 4f                    | O      |		MOVEA.L	A7,A0
00020f54 43 f9 00 02 3e cd        |C   >   |		LEA.L	0x23ecd,A1
00020f5a 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00020f5c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020f5e 51 c8 ff fc              |Q       |		DBF	D0,0x20f5c
00020f62 42 27                    |B'      |		CLR.B	-(A7)
00020f64 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f66 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020f6a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020f6c 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00020f70 4e 92                    |N       |		JSR	(A2)
00020f72 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020f74 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00020f78 1f 01                    |        |		MOVE.B	D1,-(A7)
00020f7a 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00020f7e 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00020f82 4e ba f7 1a              |N       |		JSR	0x2069e
00020f86 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00020f8a 4c df 07 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2
00020f8e 4e 5e                    |N^      |		UNLK	A6
00020f90 4e 75                    |Nu      |		RTS
00020f92 ; --------------------------------------------------------------------------------------
00020f92 ; OMSI PASCAL Function
00020f92 ;    <LVAR -0x004 1(rw)>
00020f92 ; --------------------------------------------------------------------------------------
00020f92 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00020f96 bf d5                    |        |		CMPA.L	(A5),A7
00020f98 62 06                    |b       |		BHI	0x20fa0
00020f9a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020f9e 4e 76                    |Nv      |		TRAPV
00020fa0 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00020fa4 48 e7 f8 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
00020fa8 41 f9 00 01 04 c0        |A       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A0
00020fae 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00020fb2 45 f9 00 02 36 f8        |E   6   |		LEA.L	0x236f8,A2
00020fb8 47 f9 00 02 3a b2        |G   :   |		LEA.L	0x23ab2,A3
00020fbe 49 f9 00 02 3a 08        |I   :   |		LEA.L	0x23a08,A4
00020fc4 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020fc6 72 0d                    |r       |		MOVEQ.L	#0x0d,D1
00020fc8 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00020fca 76 0f                    |v       |		MOVEQ.L	#0x0f,D3
00020fcc 38 3c 01 45              |8< E    |		MOVE.W	#0x145,D4
00020fd0 4e b9 00 02 34 d4        |N   4   |		JSR	exp_LOAD_BENIGN_UWORD.TYP()
00020fd6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020fd8 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00020fde 4a 1f                    |J       |		TST.B	(A7)+
00020fe0 67 04                    |g       |		BEQ	0x20fe6
00020fe2 42 11                    |B       |		CLR.B	(A1)
00020fe4 60 04                    |`       |		BRA	0x20fea
00020fe6 12 bc 00 ff              |        |		MOVE.B	#0xff,(A1)
00020fea 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020fec 1f 00                    |        |		MOVE.B	D0,-(A7)
00020fee 4e 90                    |N       |		JSR	(A0)
00020ff0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ff2 4a 1f                    |J       |		TST.B	(A7)+
00020ff4 67 08                    |g       |		BEQ	0x20ffe
00020ff6 1f 00                    |        |		MOVE.B	D0,-(A7)
00020ff8 1f 11                    |        |		MOVE.B	(A1),-(A7)
00020ffa 4e 92                    |N       |		JSR	(A2)
00020ffc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ffe 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021000 1f 01                    |        |		MOVE.B	D1,-(A7)
00021002 4e 90                    |N       |		JSR	(A0)
00021004 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021006 4a 1f                    |J       |		TST.B	(A7)+
00021008 67 08                    |g       |		BEQ	0x21012
0002100a 1f 01                    |        |		MOVE.B	D1,-(A7)
0002100c 1f 11                    |        |		MOVE.B	(A1),-(A7)
0002100e 4e 92                    |N       |		JSR	(A2)
00021010 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021012 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021014 1f 02                    |        |		MOVE.B	D2,-(A7)
00021016 4e 90                    |N       |		JSR	(A0)
00021018 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002101a 4a 1f                    |J       |		TST.B	(A7)+
0002101c 67 08                    |g       |		BEQ	0x21026
0002101e 1f 02                    |        |		MOVE.B	D2,-(A7)
00021020 1f 11                    |        |		MOVE.B	(A1),-(A7)
00021022 4e 92                    |N       |		JSR	(A2)
00021024 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021026 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021028 1f 03                    |        |		MOVE.B	D3,-(A7)
0002102a 4e 90                    |N       |		JSR	(A0)
0002102c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002102e 4a 1f                    |J       |		TST.B	(A7)+
00021030 67 08                    |g       |		BEQ	0x2103a
00021032 1f 03                    |        |		MOVE.B	D3,-(A7)
00021034 1f 11                    |        |		MOVE.B	(A1),-(A7)
00021036 4e 92                    |N       |		JSR	(A2)
00021038 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002103a 4e b9 00 02 33 a6        |N   3   |		JSR	exp_INIT_MRU.FIU()
00021040 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021042 1f 00                    |        |		MOVE.B	D0,-(A7)
00021044 4e 90                    |N       |		JSR	(A0)
00021046 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021048 4a 1f                    |J       |		TST.B	(A7)+
0002104a 67 06                    |g       |		BEQ	0x21052
0002104c 1f 00                    |        |		MOVE.B	D0,-(A7)
0002104e 4e 93                    |N       |		JSR	(A3)
00021050 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021052 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021054 1f 01                    |        |		MOVE.B	D1,-(A7)
00021056 4e 90                    |N       |		JSR	(A0)
00021058 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002105a 4a 1f                    |J       |		TST.B	(A7)+
0002105c 67 06                    |g       |		BEQ	0x21064
0002105e 1f 01                    |        |		MOVE.B	D1,-(A7)
00021060 4e 93                    |N       |		JSR	(A3)
00021062 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021064 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021066 1f 02                    |        |		MOVE.B	D2,-(A7)
00021068 4e 90                    |N       |		JSR	(A0)
0002106a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002106c 4a 1f                    |J       |		TST.B	(A7)+
0002106e 67 06                    |g       |		BEQ	0x21076
00021070 1f 02                    |        |		MOVE.B	D2,-(A7)
00021072 4e 93                    |N       |		JSR	(A3)
00021074 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021076 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021078 1f 03                    |        |		MOVE.B	D3,-(A7)
0002107a 4e 90                    |N       |		JSR	(A0)
0002107c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002107e 4a 1f                    |J       |		TST.B	(A7)+
00021080 67 06                    |g       |		BEQ	0x21088
00021082 1f 03                    |        |		MOVE.B	D3,-(A7)
00021084 4e 93                    |N       |		JSR	(A3)
00021086 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021088 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002108a 4e b9 00 02 34 ba        |N   4   |		JSR	exp_PREP_RUN.TYP(Sw_2)
00021090 3e 84                    |>       |		MOVE.W	D4,(A7)
00021092 4e b9 00 02 35 72        |N   5r  |		JSR	exp_PREP_RUN.VAL(Sw_2)
00021098 3e 84                    |>       |		MOVE.W	D4,(A7)
0002109a 4e b9 00 02 3b 50        |N   ;P  |		JSR	exp_PREP_RUN.IOC(Sw_2)
000210a0 3e 84                    |>       |		MOVE.W	D4,(A7)
000210a2 4e b9 00 02 34 3e        |N   4>  |		JSR	exp_PREP_RUN.SEQ(Sw_2)
000210a8 3e 84                    |>       |		MOVE.W	D4,(A7)
000210aa 4e b9 00 02 33 70        |N   3p  |		JSR	exp_PREP_RUN.FIU(Sw_2)
000210b0 1f 00                    |        |		MOVE.B	D0,-(A7)
000210b2 4e 90                    |N       |		JSR	(A0)
000210b4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210b6 4a 1f                    |J       |		TST.B	(A7)+
000210b8 67 06                    |g       |		BEQ	0x210c0
000210ba 1f 00                    |        |		MOVE.B	D0,-(A7)
000210bc 4e 94                    |N       |		JSR	(A4)
000210be 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210c0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000210c2 1f 01                    |        |		MOVE.B	D1,-(A7)
000210c4 4e 90                    |N       |		JSR	(A0)
000210c6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210c8 4a 1f                    |J       |		TST.B	(A7)+
000210ca 67 06                    |g       |		BEQ	0x210d2
000210cc 1f 01                    |        |		MOVE.B	D1,-(A7)
000210ce 4e 94                    |N       |		JSR	(A4)
000210d0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210d2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000210d4 1f 02                    |        |		MOVE.B	D2,-(A7)
000210d6 4e 90                    |N       |		JSR	(A0)
000210d8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210da 4a 1f                    |J       |		TST.B	(A7)+
000210dc 67 06                    |g       |		BEQ	0x210e4
000210de 1f 02                    |        |		MOVE.B	D2,-(A7)
000210e0 4e 94                    |N       |		JSR	(A4)
000210e2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210e4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000210e6 1f 03                    |        |		MOVE.B	D3,-(A7)
000210e8 4e 90                    |N       |		JSR	(A0)
000210ea 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210ec 4a 1f                    |J       |		TST.B	(A7)+
000210ee 67 06                    |g       |		BEQ	0x210f6
000210f0 1f 03                    |        |		MOVE.B	D3,-(A7)
000210f2 4e 94                    |N       |		JSR	(A4)
000210f4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210f6 4c df 1f 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3+A4
000210fa 4e 5e                    |N^      |		UNLK	A6
000210fc 4e 75                    |Nu      |		RTS
000210fe ; --------------------------------------------------------------------------------------
000210fe ; OMSI PASCAL Function
000210fe ;    <LVAR -0x002 @ 2(w)>
000210fe ;    <LVAR -0x004 @>
000210fe ; --------------------------------------------------------------------------------------
000210fe 4e 56 ff 84              |NV      |		LINK.W	A6,#0xff84
00021102 bf d5                    |        |		CMPA.L	(A5),A7
00021104 62 06                    |b       |		BHI	0x2110c
00021106 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002110a 4e 76                    |Nv      |		TRAPV
0002110c de fc 00 78              |   x    |		ADDA.W	#0x78,A7
00021110 48 e7 fe e0              |H       |		MOVEM.L	A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021114 43 f9 00 01 04 c0        |C       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A1
0002111a 45 f9 00 02 37 be        |E   7   |		LEA.L	0x237be,A2
00021120 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021122 74 3a                    |t:      |		MOVEQ.L	#0x3a,D2
00021124 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00021126 78 0d                    |x       |		MOVEQ.L	#0x0d,D4
00021128 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
0002112a 7c 0f                    ||       |		MOVEQ.L	#0x0f,D6
0002112c 4e ba fe 64              |N  d    |		JSR	0x20f92
00021130 4a 39 00 02 3e 9e        |J9  >   |		TST.B	0x23e9e
00021136 67 6c                    |gl      |		BEQ	0x211a4
00021138 41 fa f0 82              |A       |		LEA.L	0x201bc,A0
0002113c 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
0002113e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021140 51 c8 ff fc              |Q       |		DBF	D0,0x2113e
00021144 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021146 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002114a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002114c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002114e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021154 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021156 42 17                    |B       |		CLR.B	(A7)
00021158 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
0002115e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021160 4a 1f                    |J       |		TST.B	(A7)+
00021162 67 3e                    |g>      |		BEQ	0x211a2
00021164 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021166 1e ba f0 54              |   T    |		MOVE.B	0x201bc,(A7)
0002116a 1f 7a f0 51 00 01        | z Q    |		MOVE.B	0x201bd,(A7+0x1)
00021170 1f 7a f0 4c 00 02        | z L    |		MOVE.B	0x201be,(A7+0x2)
00021176 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021178 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002117c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002117e 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00021182 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021188 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002118a 48 78 00 01              |Hx      |		PEA.L	0x1
0002118e 1f 01                    |        |		MOVE.B	D1,-(A7)
00021190 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021194 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
0002119a de fc 00 12              |        |		ADDA.W	#0x12,A7
0002119e 4e ba fd f2              |N       |		JSR	0x20f92
000211a2 de c2                    |        |		ADDA.W	D2,A7
000211a4 4e b9 00 02 33 c0        |N   3   |		JSR	exp_FREEZE_WORLD.FIU()
000211aa 4e b9 00 02 34 9e        |N   4   |		JSR	exp_RUN_NORMAL.TYP()
000211b0 4e b9 00 02 35 56        |N   5V  |		JSR	exp_RUN_NORMAL.VAL()
000211b6 4e b9 00 02 34 24        |N   4$  |		JSR	exp_RUN_CHECK.SEQ()
000211bc 4e b9 00 02 3b 36        |N   ;6  |		JSR	exp_RUN_CHECK.IOC()
000211c2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000211c4 1f 03                    |        |		MOVE.B	D3,-(A7)
000211c6 4e 91                    |N       |		JSR	(A1)
000211c8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000211ca 4a 1f                    |J       |		TST.B	(A7)+
000211cc 67 06                    |g       |		BEQ	0x211d4
000211ce 1f 03                    |        |		MOVE.B	D3,-(A7)
000211d0 4e 92                    |N       |		JSR	(A2)
000211d2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000211d4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000211d6 1f 04                    |        |		MOVE.B	D4,-(A7)
000211d8 4e 91                    |N       |		JSR	(A1)
000211da 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000211dc 4a 1f                    |J       |		TST.B	(A7)+
000211de 67 06                    |g       |		BEQ	0x211e6
000211e0 1f 04                    |        |		MOVE.B	D4,-(A7)
000211e2 4e 92                    |N       |		JSR	(A2)
000211e4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000211e6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000211e8 1f 05                    |        |		MOVE.B	D5,-(A7)
000211ea 4e 91                    |N       |		JSR	(A1)
000211ec 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000211ee 4a 1f                    |J       |		TST.B	(A7)+
000211f0 67 06                    |g       |		BEQ	0x211f8
000211f2 1f 05                    |        |		MOVE.B	D5,-(A7)
000211f4 4e 92                    |N       |		JSR	(A2)
000211f6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000211f8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000211fa 1f 06                    |        |		MOVE.B	D6,-(A7)
000211fc 4e 91                    |N       |		JSR	(A1)
000211fe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021200 4a 1f                    |J       |		TST.B	(A7)+
00021202 67 06                    |g       |		BEQ	0x2120a
00021204 1f 06                    |        |		MOVE.B	D6,-(A7)
00021206 4e 92                    |N       |		JSR	(A2)
00021208 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002120a 4e b9 00 02 33 2c        |N   3,  |		JSR	exp_RUN_NORMAL.FIU()
00021210 3d 41 ff fe              |=A      |		MOVE.W	D1,(A6-0x2)
00021214 41 ee ff fe              |A       |		LEA.L	(A6-0x2),A0
00021218 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002121a 52 97                    |R       |		ADDQ.L	#0x1,(A7)
0002121c 2f 3c 00 00 fc 10        |/<      |		MOVE.L	#0xfc10,-(A7)
00021222 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021224 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0002122a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002122c 2e bc 00 00 98 96        |.       |		MOVE.L	#0x9896,(A7)
00021232 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
00021238 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002123a 4c df 07 7f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2
0002123e 4e 5e                    |N^      |		UNLK	A6
00021240 4e 75                    |Nu      |		RTS
00021242 ; --------------------------------------------------------------------------------------
00021242 ; OMSI PASCAL Function
00021242 ;    <LVAR  0x00c 1(w)>
00021242 ;    <LVAR  0x008 4(r)>
00021242 ;    <LVAR -0x00c @ 4(rw)>
00021242 ; --------------------------------------------------------------------------------------
00021242 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00021246 bf d5                    |        |		CMPA.L	(A5),A7
00021248 62 06                    |b       |		BHI	0x21250
0002124a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002124e 4e 76                    |Nv      |		TRAPV
00021250 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
00021254 48 e7 fb e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
00021258 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
0002125c 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
0002125e 74 01                    |t       |		MOVEQ.L	#0x01,D2
00021260 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021262 28 07                    |(       |		MOVE.L	D7,D4
00021264 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00021266 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
0002126c 41 fa f3 44              |A  D    |		LEA.L	0x205b2,A0
00021270 9e c1                    |        |		SUBA.W	D1,A7
00021272 22 4f                    |"O      |		MOVEA.L	A7,A1
00021274 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
00021278 70 09                    |p       |		MOVEQ.L	#0x09,D0
0002127a 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
0002127c 51 c8 ff fc              |Q       |		DBF	D0,0x2127a
00021280 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021282 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021286 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021288 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002128a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021290 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021292 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00021294 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021296 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
0002129a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002129c 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000212a2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212a4 1c 1f                    |        |		MOVE.B	(A7)+,D6
000212a6 48 52                    |HR      |		PEA.L	(A2)
000212a8 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000212ae 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212b0 4a 06                    |J       |		TST.B	D6
000212b2 67 0c                    |g       |		BEQ	0x212c0
000212b4 41 fa f3 4c              |A  L    |		LEA.L	0x20602,A0
000212b8 1d 70 78 00 00 0c        | px     |		MOVE.B	(A0+D7.L),(A6+0xc)
000212be 60 4a                    |`J      |		BRA	0x2130a
000212c0 52 87                    |R       |		ADDQ.L	#0x1,D7
000212c2 0c 87 00 00 00 07        |        |		CMPI.L	#0x00000007,D7
000212c8 6f 98                    |o       |		BLE	0x21262
000212ca 9e fc 00 16              |        |		SUBA.W	#0x16,A7
000212ce 20 4f                    | O      |		MOVEA.L	A7,A0
000212d0 43 fa ef 3e              |C  >    |		LEA.L	0x20210,A1
000212d4 70 14                    |p       |		MOVEQ.L	#0x14,D0
000212d6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000212d8 51 c8 ff fc              |Q       |		DBF	D0,0x212d6
000212dc 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000212e0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000212e2 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000212e6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000212e8 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
000212ec 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000212f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000212f4 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
000212f8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000212fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021300 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021306 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
0002130a 4c df 07 df              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2
0002130e 4e 5e                    |N^      |		UNLK	A6
00021310 4e 75                    |Nu      |		RTS
00021312 ; --------------------------------------------------------------------------------------
00021312 ; OMSI PASCAL Function
00021312 ;    <LVAR  0x00e 4(r)>
00021312 ;    <LVAR  0x00a 4(r)>
00021312 ;    <LVAR  0x008 1(r)>
00021312 ;    <LVAR -0x002 2(w)>
00021312 ;    <LVAR -0x004 2(w) 4(r)>
00021312 ;    <LVAR -0x006 2(w)>
00021312 ;    <LVAR -0x008 2(w) 4(r)>
00021312 ;    <LVAR -0x418 @>
00021312 ;    <LVAR -0x41e @ 1(r)>
00021312 ; --------------------------------------------------------------------------------------
00021312 4e 56 fb 82              |NV      |		LINK.W	A6,#0xfb82
00021316 bf d5                    |        |		CMPA.L	(A5),A7
00021318 62 06                    |b       |		BHI	0x21320
0002131a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002131e 4e 76                    |Nv      |		TRAPV
00021320 de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00021324 48 e7 f9 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00021328 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
0002132c 47 ee ff fc              |G       |		LEA.L	(A6-0x4),A3
00021330 49 ee fb e2              |I       |		LEA.L	(A6-0x41e),A4
00021334 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021336 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
00021338 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
0002133a 78 18                    |x       |		MOVEQ.L	#0x18,D4
0002133c 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
00021340 2f 39 00 02 41 d6        |/9  A   |		MOVE.L	0x241d6,-(A7)
00021346 3f 3c 04 00              |?<      |		MOVE.W	#0x400,-(A7)
0002134a 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00021350 de c2                    |        |		ADDA.W	D2,A7
00021352 20 6e 00 0e              | n      |		MOVEA.L	(A6+0xe),A0
00021356 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021358 42 67                    |Bg      |		CLR.W	-(A7)
0002135a 4e b9 00 01 02 3c        |N    <  |		JSR	KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
00021360 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021362 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00021366 67 00 00 f2              |g       |		BEQ	0x2145a
0002136a 2e 3c ff ff b1 e0        |.<      |		MOVE.L	#0xffffb1e0,D7
00021370 41 ee fb e8              |A       |		LEA.L	(A6-0x418),A0
00021374 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021376 42 67                    |Bg      |		CLR.W	-(A7)
00021378 48 54                    |HT      |		PEA.L	(A4)
0002137a 4e b9 00 01 02 3e        |N    >  |		JSR	KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
00021380 de c2                    |        |		ADDA.W	D2,A7
00021382 52 87                    |R       |		ADDQ.L	#0x1,D7
00021384 67 04                    |g       |		BEQ	0x2138a
00021386 4a 14                    |J       |		TST.B	(A4)
00021388 67 e6                    |g       |		BEQ	0x21370
0002138a 4a 14                    |J       |		TST.B	(A4)
0002138c 66 00 00 cc              |f       |		BNE	0x2145a
00021390 20 6e 00 0e              | n      |		MOVEA.L	(A6+0xe),A0
00021394 34 90                    |4       |		MOVE.W	(A0),(A2)
00021396 3d 68 00 02 ff fa        |=h      |		MOVE.W	(A0+0x2),(A6-0x6)
0002139c 36 a8 00 04              |6       |		MOVE.W	(A0+0x4),(A3)
000213a0 3d 68 00 06 ff fe        |=h      |		MOVE.W	(A0+0x6),(A6-0x2)
000213a6 43 fa ee aa              |C       |		LEA.L	0x20252,A1
000213aa 70 04                    |p       |		MOVEQ.L	#0x04,D0
000213ac 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
000213ae 51 c8 ff fc              |Q       |		DBF	D0,0x213ac
000213b2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000213b4 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000213b8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000213ba 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
000213be 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000213c4 2e 93                    |.       |		MOVE.L	(A3),(A7)
000213c6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000213c8 48 78 00 10              |Hx      |		PEA.L	0x10
000213cc 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
000213d2 de c3                    |        |		ADDA.W	D3,A7
000213d4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000213da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213dc 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000213e2 de c4                    |        |		ADDA.W	D4,A7
000213e4 34 a8 00 08              |4       |		MOVE.W	(A0+0x8),(A2)
000213e8 3d 68 00 0a ff fa        |=h      |		MOVE.W	(A0+0xa),(A6-0x6)
000213ee 36 a8 00 0c              |6       |		MOVE.W	(A0+0xc),(A3)
000213f2 3d 68 00 0e ff fe        |=h      |		MOVE.W	(A0+0xe),(A6-0x2)
000213f8 3f 3a ee 58              |?: X    |		MOVE.W	0x20252,-(A7)
000213fc 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000213fe 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021402 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021404 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00021408 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002140e 2e 93                    |.       |		MOVE.L	(A3),(A7)
00021410 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021412 48 78 00 10              |Hx      |		PEA.L	0x10
00021416 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
0002141c de c3                    |        |		ADDA.W	D3,A7
0002141e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021424 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021426 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002142c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002142e 41 fa ee 0e              |A       |		LEA.L	0x2023e,A0
00021432 70 05                    |p       |		MOVEQ.L	#0x05,D0
00021434 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021436 51 c8 ff fc              |Q       |		DBF	D0,0x21434
0002143a 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
0002143e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021440 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021444 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021446 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021448 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002144e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021450 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021456 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
0002145a 4c df 1f 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4
0002145e 4e 5e                    |N^      |		UNLK	A6
00021460 4e 75                    |Nu      |		RTS
00021462 ; --------------------------------------------------------------------------------------
00021462 ; OMSI PASCAL Function
00021462 ;    <LVAR -0x003 @ 1(r)>
00021462 ;    <LVAR -0x005 @ 1(r)>
00021462 ;    <LVAR -0x006 @ 1(r)>
00021462 ;    <LVAR -0x007 @ 1(r)>
00021462 ;    <LVAR -0x008 @ 1(r)>
00021462 ;    <LVAR -0x009 @ 1(r)>
00021462 ;    <LVAR -0x00a @>
00021462 ;    <LVAR -0x00b @>
00021462 ; --------------------------------------------------------------------------------------
00021462 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
00021466 bf d5                    |        |		CMPA.L	(A5),A7
00021468 62 06                    |b       |		BHI	0x21470
0002146a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002146e 4e 76                    |Nv      |		TRAPV
00021470 de fc 00 36              |   6    |		ADDA.W	#0x36,A7
00021474 48 e7 e3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D2+D1+D0,-(A7)
00021478 41 ee ff f5              |A       |		LEA.L	(A6-0xb),A0
0002147c 43 ee ff f6              |C       |		LEA.L	(A6-0xa),A1
00021480 45 f9 00 01 04 84        |E       |		LEA.L	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool),A2
00021486 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00021488 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
0002148a 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
0002148e 48 50                    |HP      |		PEA.L	(A0)
00021490 48 6e ff f7              |Hn      |		PEA.L	(A6-0x9)
00021494 48 51                    |HQ      |		PEA.L	(A1)
00021496 4e 92                    |N       |		JSR	(A2)
00021498 de c1                    |        |		ADDA.W	D1,A7
0002149a 1e bc 00 06              |        |		MOVE.B	#0x06,(A7)
0002149e 48 50                    |HP      |		PEA.L	(A0)
000214a0 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000214a4 48 51                    |HQ      |		PEA.L	(A1)
000214a6 4e 92                    |N       |		JSR	(A2)
000214a8 de c1                    |        |		ADDA.W	D1,A7
000214aa 1e bc 00 07              |        |		MOVE.B	#0x07,(A7)
000214ae 48 50                    |HP      |		PEA.L	(A0)
000214b0 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
000214b4 48 51                    |HQ      |		PEA.L	(A1)
000214b6 4e 92                    |N       |		JSR	(A2)
000214b8 de c1                    |        |		ADDA.W	D1,A7
000214ba 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
000214be 48 50                    |HP      |		PEA.L	(A0)
000214c0 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000214c4 48 51                    |HQ      |		PEA.L	(A1)
000214c6 4e 92                    |N       |		JSR	(A2)
000214c8 de c1                    |        |		ADDA.W	D1,A7
000214ca 1e bc 00 02              |        |		MOVE.B	#0x02,(A7)
000214ce 48 50                    |HP      |		PEA.L	(A0)
000214d0 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
000214d4 48 51                    |HQ      |		PEA.L	(A1)
000214d6 4e 92                    |N       |		JSR	(A2)
000214d8 de c2                    |        |		ADDA.W	D2,A7
000214da 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000214dc 7c 0c                    ||       |		MOVEQ.L	#0x0c,D6
000214de 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000214e0 1f 06                    |        |		MOVE.B	D6,-(A7)
000214e2 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
000214e8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000214ea 4a 1f                    |J       |		TST.B	(A7)+
000214ec 67 1c                    |g       |		BEQ	0x2150a
000214ee 1f 06                    |        |		MOVE.B	D6,-(A7)
000214f0 48 50                    |HP      |		PEA.L	(A0)
000214f2 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
000214f6 48 51                    |HQ      |		PEA.L	(A1)
000214f8 4e 92                    |N       |		JSR	(A2)
000214fa de c2                    |        |		ADDA.W	D2,A7
000214fc 10 07                    |        |		MOVE.B	D7,D0
000214fe 80 2e ff fd              | .      |		OR.B	(A6-0x3),D0
00021502 48 80                    |H       |		EXTB.W	D0
00021504 41 bc 00 01              |A       |		CHK.W	#0x1,D0
00021508 1e 00                    |        |		MOVE.B	D0,D7
0002150a 52 06                    |R       |		ADDQ.B	#0x1,D6
0002150c 0c 06 00 0f              |        |		CMPI.B	#0x0f,D6
00021510 6f cc                    |o       |		BLE	0x214de
00021512 4a 2e ff f7              |J.      |		TST.B	(A6-0x9)
00021516 66 1c                    |f       |		BNE	0x21534
00021518 4a 2e ff f8              |J.      |		TST.B	(A6-0x8)
0002151c 66 16                    |f       |		BNE	0x21534
0002151e 4a 2e ff f9              |J.      |		TST.B	(A6-0x7)
00021522 66 10                    |f       |		BNE	0x21534
00021524 4a 2e ff fa              |J.      |		TST.B	(A6-0x6)
00021528 66 0a                    |f       |		BNE	0x21534
0002152a 4a 2e ff fb              |J.      |		TST.B	(A6-0x5)
0002152e 66 04                    |f       |		BNE	0x21534
00021530 4a 07                    |J       |		TST.B	D7
00021532 67 0a                    |g       |		BEQ	0x2153e
00021534 1f 01                    |        |		MOVE.B	D1,-(A7)
00021536 4e b9 00 01 05 da        |N       |		JSR	Set_fc01(a : Byte)
0002153c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002153e 4c df 07 c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0+A1+A2
00021542 4e 5e                    |N^      |		UNLK	A6
00021544 4e 75                    |Nu      |		RTS
00021546 ; --------------------------------------------------------------------------------------
00021546 ; OMSI PASCAL Function
00021546 ;    <LVAR  0x008 @ 4(r)>
00021546 ;    <LVAR -0x004 2(w)>
00021546 ;    <LVAR -0x006 2(w) 4(r)>
00021546 ;    <LVAR -0x008 2(w)>
00021546 ;    <LVAR -0x00a 2(w) 4(r)>
00021546 ;    <LVAR -0x00c @>
00021546 ;    <LVAR -0x00d @>
00021546 ;    <LVAR -0x00e @ 1(r)>
00021546 ;    <LVAR -0x41e @>
00021546 ;    <LVAR -0x420 2(rw)>
00021546 ;    <LVAR -0x422 2(rw)>
00021546 ;    <LVAR -0x424 2(rw)>
00021546 ;    <LVAR -0x426 2(rw)>
00021546 ;    <LVAR -0x428 2(rw)>
00021546 ;    <LVAR -0x42a 2(r)>
00021546 ;    <LVAR -0x42c 2(r)>
00021546 ;    <LVAR -0x42e @ 2(rw)>
00021546 ;    <LVAR -0x43a @ 4(r)>
00021546 ;    <LVAR -0x83e 2(r)>
00021546 ;    <LVAR -0x840 2(r) 4(w)>
00021546 ;    <LVAR -0x844 4(w)>
00021546 ;    <LVAR -0x848 @ 4(r)>
00021546 ;    <LVAR -0x84c @ 4(r)>
00021546 ; --------------------------------------------------------------------------------------
00021546 4e 56 f7 48              |NV H    |		LINK.W	A6,#0xf748
0002154a bf d5                    |        |		CMPA.L	(A5),A7
0002154c 62 06                    |b       |		BHI	0x21554
0002154e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021552 4e 76                    |Nv      |		TRAPV
00021554 de fc 00 6c              |   l    |		ADDA.W	#0x6c,A7
00021558 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002155c 43 ee f7 b8              |C       |		LEA.L	(A6-0x848),A1
00021560 45 ee fb e0              |E       |		LEA.L	(A6-0x420),A2
00021564 47 ee f7 b4              |G       |		LEA.L	(A6-0x84c),A3
00021568 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
0002156c 72 02                    |r       |		MOVEQ.L	#0x02,D1
0002156e 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00021570 76 14                    |v       |		MOVEQ.L	#0x14,D3
00021572 78 01                    |x       |		MOVEQ.L	#0x01,D4
00021574 48 53                    |HS      |		PEA.L	(A3)
00021576 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
0002157c 2e 94                    |.       |		MOVE.L	(A4),(A7)
0002157e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021580 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00021584 4e b9 00 01 02 fc        |N       |		JSR	FirstField(MOD input : String; MOD output : String; VAR c : Bool
0002158a de c2                    |        |		ADDA.W	D2,A7
0002158c 48 51                    |HQ      |		PEA.L	(A1)
0002158e 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021594 2e 94                    |.       |		MOVE.L	(A4),(A7)
00021596 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021598 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
0002159c 4e b9 00 01 02 fc        |N       |		JSR	FirstField(MOD input : String; MOD output : String; VAR c : Bool
000215a2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000215a4 2e 91                    |.       |		MOVE.L	(A1),(A7)
000215a6 4e ba fc 9a              |N       |		JSR	0x21242
000215aa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000215ac 10 1f                    |        |		MOVE.B	(A7)+,D0
000215ae 48 80                    |H       |		EXTB.W	D0
000215b0 41 bc 00 07              |A       |		CHK.W	#0x7,D0
000215b4 1a 00                    |        |		MOVE.B	D0,D5
000215b6 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000215b8 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000215ba 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
000215be 4e b9 00 01 02 fc        |N       |		JSR	FirstField(MOD input : String; MOD output : String; VAR c : Bool
000215c4 2e 91                    |.       |		MOVE.L	(A1),(A7)
000215c6 48 78 00 10              |Hx      |		PEA.L	0x10
000215ca 4e b9 00 01 03 60        |N    `  |		JSR	?StringToInt64()
000215d0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215d2 2d 5f f7 bc              |-_      |		MOVE.L	(A7)+,(A6-0x844)
000215d6 2d 5f f7 c0              |-_      |		MOVE.L	(A7)+,(A6-0x840)
000215da 3d 79 00 02 41 d2 fb d2  |=y  A   |		MOVE.W	0x241d2,(A6-0x42e)
000215e2 42 6e fb d4              |Bn      |		CLR.W	(A6-0x42c)
000215e6 42 6e fb d6              |Bn      |		CLR.W	(A6-0x42a)
000215ea 3d 7c 01 00 fb d8        |=|      |		MOVE.W	#0x100,(A6-0x428)
000215f0 3d 6e f7 c0 fb da        |=n      |		MOVE.W	(A6-0x840),(A6-0x426)
000215f6 3d 6e f7 c2 fb dc        |=n      |		MOVE.W	(A6-0x83e),(A6-0x424)
000215fc 42 6e fb de              |Bn      |		CLR.W	(A6-0x422)
00021600 10 05                    |        |		MOVE.B	D5,D0
00021602 48 80                    |H       |		EXTB.W	D0
00021604 34 80                    |4       |		MOVE.W	D0,(A2)
00021606 4a 39 00 02 41 c0        |J9  A   |		TST.B	0x241c0
0002160c 67 06                    |g       |		BEQ	0x21614
0002160e 00 40 00 08              | @      |		ORI.W	#0x0008,D0
00021612 34 80                    |4       |		MOVE.W	D0,(A2)
00021614 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021616 42 27                    |B'      |		CLR.B	-(A7)
00021618 1f 01                    |        |		MOVE.B	D1,-(A7)
0002161a 48 78 00 00              |Hx      |		PEA.L	0x0
0002161e 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
00021622 48 6e fb c6              |Hn      |		PEA.L	(A6-0x43a)
00021626 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0002162c de c3                    |        |		ADDA.W	D3,A7
0002162e 20 6e fb c6              | n      |		MOVEA.L	(A6-0x43a),A0
00021632 30 28 00 20              |0(      |		MOVE.W	(A0+0x20),D0
00021636 53 40                    |S@      |		SUBQ.W	#0x1,D0
00021638 48 c0                    |H       |		EXTW.L	D0
0002163a 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002163c 7c 00                    ||       |		MOVEQ.L	#0x00,D6
0002163e bc 97                    |        |		CMP.L	(A7),D6
00021640 6e 00 01 8c              |n       |		BGT	0x217ce
00021644 2f 2e fb c6              |/.      |		MOVE.L	(A6-0x43a),-(A7)
00021648 0c 86 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D6
0002164e 63 02                    |c       |		BLS	0x21652
00021650 4e 4f                    |NO      |		TRAP	#15
00021652 3f 06                    |?       |		MOVE.W	D6,-(A7)
00021654 42 67                    |Bg      |		CLR.W	-(A7)
00021656 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
0002165a 1f 01                    |        |		MOVE.B	D1,-(A7)
0002165c 2f 39 00 02 41 d6        |/9  A   |		MOVE.L	0x241d6,-(A7)
00021662 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
00021666 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
0002166c de c3                    |        |		ADDA.W	D3,A7
0002166e 41 ee fb d2              |A       |		LEA.L	(A6-0x42e),A0
00021672 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021674 42 67                    |Bg      |		CLR.W	-(A7)
00021676 4e b9 00 01 02 3c        |N    <  |		JSR	KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
0002167c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002167e 2e 3c ff ff b1 e0        |.<      |		MOVE.L	#0xffffb1e0,D7
00021684 41 ee fb e2              |A       |		LEA.L	(A6-0x41e),A0
00021688 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002168a 42 67                    |Bg      |		CLR.W	-(A7)
0002168c 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00021690 4e b9 00 01 02 3e        |N    >  |		JSR	KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
00021696 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002169a 52 87                    |R       |		ADDQ.L	#0x1,D7
0002169c 67 06                    |g       |		BEQ	0x216a4
0002169e 4a 2e ff f2              |J.      |		TST.B	(A6-0xe)
000216a2 67 e0                    |g       |		BEQ	0x21684
000216a4 4a 2e ff f2              |J.      |		TST.B	(A6-0xe)
000216a8 66 00 00 dc              |f       |		BNE	0x21786
000216ac 4e ba fd b4              |N       |		JSR	0x21462
000216b0 3d 6e fb d2 ff f6        |=n      |		MOVE.W	(A6-0x42e),(A6-0xa)
000216b6 3d 6e fb d4 ff f8        |=n      |		MOVE.W	(A6-0x42c),(A6-0x8)
000216bc 3d 6e fb d6 ff fa        |=n      |		MOVE.W	(A6-0x42a),(A6-0x6)
000216c2 3d 6e fb d8 ff fc        |=n      |		MOVE.W	(A6-0x428),(A6-0x4)
000216c8 41 fa eb b6              |A       |		LEA.L	0x20280,A0
000216cc 70 04                    |p       |		MOVEQ.L	#0x04,D0
000216ce 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000216d0 51 c8 ff fc              |Q       |		DBF	D0,0x216ce
000216d4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000216d6 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000216da 3f 04                    |?       |		MOVE.W	D4,-(A7)
000216dc 3f 03                    |?       |		MOVE.W	D3,-(A7)
000216de 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000216e4 2e ae ff fa              |.       |		MOVE.L	(A6-0x6),(A7)
000216e8 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
000216ec 48 78 00 10              |Hx      |		PEA.L	0x10
000216f0 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
000216f6 de c2                    |        |		ADDA.W	D2,A7
000216f8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000216fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021700 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00021706 de fc 00 18              |        |		ADDA.W	#0x18,A7
0002170a 3d 6e fb da ff f6        |=n      |		MOVE.W	(A6-0x426),(A6-0xa)
00021710 3d 6e fb dc ff f8        |=n      |		MOVE.W	(A6-0x424),(A6-0x8)
00021716 3d 6e fb de ff fa        |=n      |		MOVE.W	(A6-0x422),(A6-0x6)
0002171c 3d 52 ff fc              |=R      |		MOVE.W	(A2),(A6-0x4)
00021720 3f 3a eb 5e              |?: ^    |		MOVE.W	0x20280,-(A7)
00021724 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021726 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002172a 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002172c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002172e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021734 2e ae ff fa              |.       |		MOVE.L	(A6-0x6),(A7)
00021738 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
0002173c 48 78 00 10              |Hx      |		PEA.L	0x10
00021740 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
00021746 de c2                    |        |		ADDA.W	D2,A7
00021748 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002174e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021750 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021756 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021758 41 fa eb 12              |A       |		LEA.L	0x2026c,A0
0002175c 70 05                    |p       |		MOVEQ.L	#0x05,D0
0002175e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021760 51 c8 ff fc              |Q       |		DBF	D0,0x2175e
00021764 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00021768 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002176a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002176e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021770 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00021774 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002177a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002177c 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021782 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00021786 42 80                    |B       |		CLR.L	D0
00021788 30 12                    |0       |		MOVE.W	(A2),D0
0002178a 06 80 00 00 20 00        |        |		ADDI.L	#0x00002000,D0
00021790 02 80 00 00 ff ff        |        |		ANDI.L	#0x0000ffff,D0
00021796 34 80                    |4       |		MOVE.W	D0,(A2)
00021798 02 40 ff f0              | @      |		ANDI.W	#0xfff0,D0
0002179c 66 16                    |f       |		BNE	0x217b4
0002179e 42 80                    |B       |		CLR.L	D0
000217a0 30 2e fb de              |0.      |		MOVE.W	(A6-0x422),D0
000217a4 52 80                    |R       |		ADDQ.L	#0x1,D0
000217a6 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000217ac 63 02                    |c       |		BLS	0x217b0
000217ae 4e 4f                    |NO      |		TRAP	#15
000217b0 3d 40 fb de              |=@      |		MOVE.W	D0,(A6-0x422)
000217b4 52 b9 00 02 41 c6        |R   A   |		ADDQ.L	#0x1,0x241c6
000217ba 4a 39 00 02 41 c0        |J9  A   |		TST.B	0x241c0
000217c0 67 06                    |g       |		BEQ	0x217c8
000217c2 52 b9 00 02 41 c2        |R   A   |		ADDQ.L	#0x1,0x241c2
000217c8 52 86                    |R       |		ADDQ.L	#0x1,D6
000217ca 68 00 fe 72              |h  r    |		BVC	0x2163e
000217ce 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000217d0 42 17                    |B       |		CLR.B	(A7)
000217d2 1f 01                    |        |		MOVE.B	D1,-(A7)
000217d4 48 78 00 01              |Hx      |		PEA.L	0x1
000217d8 48 6e ff f3              |Hn      |		PEA.L	(A6-0xd)
000217dc 48 6e fb c6              |Hn      |		PEA.L	(A6-0x43a)
000217e0 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000217e6 de fc 00 10              |        |		ADDA.W	#0x10,A7
000217ea 48 53                    |HS      |		PEA.L	(A3)
000217ec 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000217f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000217f4 48 54                    |HT      |		PEA.L	(A4)
000217f6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000217fc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000217fe 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021802 4e 5e                    |N^      |		UNLK	A6
00021804 4e 75                    |Nu      |		RTS
00021806 ; --------------------------------------------------------------------------------------
00021806 ; OMSI PASCAL Function
00021806 ;    <LVAR  0x00a 4(r)>
00021806 ;    <LVAR  0x008 2(rw)>
00021806 ;    <LVAR -0x010 1(rw)>
00021806 ;    <LVAR -0x012 2(w)>
00021806 ;    <LVAR -0x013 1(r)>
00021806 ;    <LVAR -0x014 1(r) 2(r)>
00021806 ;    <LVAR -0x016 @ 2(r)>
00021806 ;    <LVAR -0x01a 4(rw)>
00021806 ;    <LVAR -0x01e 4(rw)>
00021806 ;    <LVAR -0x020 2(w)>
00021806 ;    <LVAR -0x022 2(r) 4(r)>
00021806 ;    <LVAR -0x024 2(r)>
00021806 ;    <LVAR -0x026 2(r) 4(r)>
00021806 ; --------------------------------------------------------------------------------------
00021806 4e 56 ff 78              |NV x    |		LINK.W	A6,#0xff78
0002180a bf d5                    |        |		CMPA.L	(A5),A7
0002180c 62 06                    |b       |		BHI	0x21814
0002180e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021812 4e 76                    |Nv      |		TRAPV
00021814 de fc 00 62              |   b    |		ADDA.W	#0x62,A7
00021818 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002181c 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00021820 47 ee 00 0a              |G       |		LEA.L	(A6+0xa),A3
00021824 49 ee ff f0              |I       |		LEA.L	(A6-0x10),A4
00021828 42 80                    |B       |		CLR.L	D0
0002182a 30 12                    |0       |		MOVE.W	(A2),D0
0002182c 56 80                    |V       |		ADDQ.L	#0x3,D0
0002182e 02 80 00 00 ff fc        |        |		ANDI.L	#0x0000fffc,D0
00021834 34 80                    |4       |		MOVE.W	D0,(A2)
00021836 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021838 20 53                    | S      |		MOVEA.L	(A3),A0
0002183a 30 12                    |0       |		MOVE.W	(A2),D0
0002183c 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021840 42 81                    |B       |		CLR.L	D1
00021842 32 00                    |2       |		MOVE.W	D0,D1
00021844 e3 81                    |        |		ASL.L	#0x1,D1
00021846 0c 87 00 00 00 03        |        |		CMPI.L	#0x00000003,D7
0002184c 63 02                    |c       |		BLS	0x21850
0002184e 4e 4f                    |NO      |		TRAP	#15
00021850 20 07                    |        |		MOVE.L	D7,D0
00021852 e3 80                    |        |		ASL.L	#0x1,D0
00021854 43 fa ed b4              |C       |		LEA.L	0x2060a,A1
00021858 31 b1 08 00 18 00        |1       |		MOVE.W	(A1+D0.L),(A0+D1.L)
0002185e 42 80                    |B       |		CLR.L	D0
00021860 30 12                    |0       |		MOVE.W	(A2),D0
00021862 52 80                    |R       |		ADDQ.L	#0x1,D0
00021864 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
0002186a 63 02                    |c       |		BLS	0x2186e
0002186c 4e 4f                    |NO      |		TRAP	#15
0002186e 34 80                    |4       |		MOVE.W	D0,(A2)
00021870 52 87                    |R       |		ADDQ.L	#0x1,D7
00021872 0c 87 00 00 00 03        |        |		CMPI.L	#0x00000003,D7
00021878 6f be                    |o       |		BLE	0x21838
0002187a 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
0002187e 4e b9 00 01 03 04        |N       |		JSR	GetRtc() : TimeStamp
00021884 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021886 42 6e ff da              |Bn      |		CLR.W	(A6-0x26)
0002188a 42 6e ff dc              |Bn      |		CLR.W	(A6-0x24)
0002188e 42 6e ff de              |Bn      |		CLR.W	(A6-0x22)
00021892 3d 6e ff ea ff e0        |=n      |		MOVE.W	(A6-0x16),(A6-0x20)
00021898 42 14                    |B       |		CLR.B	(A4)
0002189a 42 80                    |B       |		CLR.L	D0
0002189c 10 2e ff ec              | .      |		MOVE.B	(A6-0x14),D0
000218a0 e2 08                    |        |		LSR.B	#0x1,D0
000218a2 32 00                    |2       |		MOVE.W	D0,D1
000218a4 02 41 00 03              | A      |		ANDI.W	#0x0003,D1
000218a8 0c 41 00 03              | A      |		CMPI.W	#0x0003,D1
000218ac 66 02                    |f       |		BNE	0x218b0
000218ae 52 14                    |R       |		ADDQ.B	#0x1,(A4)
000218b0 32 00                    |2       |		MOVE.W	D0,D1
000218b2 e4 41                    | A      |		ASR.W	#0x2,D1
000218b4 14 14                    |        |		MOVE.B	(A4),D2
000218b6 48 82                    |H       |		EXTB.W	D2
000218b8 c5 fc 00 18              |        |		MULS.W	#0x18,D2
000218bc 41 fa ed 5c              |A  \    |		LEA.L	days_per_month,A0
000218c0 36 2e ff ec              |6.      |		MOVE.W	(A6-0x14),D3
000218c4 ef 4b                    | K      |		LSL.W	#0x7,D3
000218c6 e0 4b                    | K      |		LSR.W	#0x8,D3
000218c8 e8 4b                    | K      |		LSR.W	#0x4,D3
000218ca 53 43                    |SC      |		SUBQ.W	#0x1,D3
000218cc 47 bc 00 0b              |G       |		CHK.W	#0xb,D3
000218d0 e3 43                    | C      |		ASL.W	#0x1,D3
000218d2 41 f0 20 00              |A       |		LEA.L	(A0+D2.W),A0
000218d6 48 c1                    |H       |		EXTW.L	D1
000218d8 42 82                    |B       |		CLR.L	D2
000218da 34 30 30 00              |400     |		MOVE.W	(A0+D3.W),D2
000218de d4 81                    |        |		ADD.L	D1,D2
000218e0 42 81                    |B       |		CLR.L	D1
000218e2 12 2e ff ed              | .      |		MOVE.B	(A6-0x13),D1
000218e6 e7 09                    |        |		LSL.B	#0x3,D1
000218e8 e6 09                    |        |		LSR.B	#0x3,D1
000218ea d2 82                    |        |		ADD.L	D2,D1
000218ec 53 81                    |S       |		SUBQ.L	#0x1,D1
000218ee 0c 81 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D1
000218f4 63 02                    |c       |		BLS	0x218f8
000218f6 4e 4f                    |NO      |		TRAP	#15
000218f8 3d 41 ff ee              |=A      |		MOVE.W	D1,(A6-0x12)
000218fc 9e fc 00 18              |        |		SUBA.W	#0x18,A7
00021900 48 78 01 6d              |Hx m    |		PEA.L	0x16d
00021904 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
0002190a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002190c 48 c0                    |H       |		EXTW.L	D0
0002190e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021910 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
00021916 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021918 4e b9 00 01 03 1c        |N       |		JSR	Multiply(a, b : Quad) : Quad
0002191e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021920 42 80                    |B       |		CLR.L	D0
00021922 30 01                    |0       |		MOVE.W	D1,D0
00021924 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021926 4e b9 00 01 03 54        |N    T  |		JSR	Long2Quad(a : Long) : Quad
0002192c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002192e 4e b9 00 01 03 14        |N       |		JSR	Add(a, b : Quad) : Quad
00021934 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021938 2d 5f ff e2              |-_      |		MOVE.L	(A7)+,(A6-0x1e)
0002193c 2d 57 ff e6              |-W      |		MOVE.L	(A7),(A6-0x1a)
00021940 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00021944 2f 2e ff de              |/.      |		MOVE.L	(A6-0x22),-(A7)
00021948 2f 2e ff da              |/.      |		MOVE.L	(A6-0x26),-(A7)
0002194c 48 78 00 01              |Hx      |		PEA.L	0x1
00021950 4e b9 00 01 03 44        |N    D  |		JSR	BitShift(a : Quad ; howmuch : integer) : Quad
00021956 2e ae ff e6              |.       |		MOVE.L	(A6-0x1a),(A7)
0002195a 2f 2e ff e2              |/.      |		MOVE.L	(A6-0x1e),-(A7)
0002195e 2f 3a ec b6              |/:      |		MOVE.L	0x20616,-(A7)
00021962 2f 3a ec ae              |/:      |		MOVE.L	0x20612,-(A7)
00021966 4e b9 00 01 03 1c        |N       |		JSR	Multiply(a, b : Quad) : Quad
0002196c de fc 00 10              |        |		ADDA.W	#0x10,A7
00021970 4e b9 00 01 03 14        |N       |		JSR	Add(a, b : Quad) : Quad
00021976 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002197a 2d 5f ff e2              |-_      |		MOVE.L	(A7)+,(A6-0x1e)
0002197e 2d 5f ff e6              |-_      |		MOVE.L	(A7)+,(A6-0x1a)
00021982 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021984 20 53                    | S      |		MOVEA.L	(A3),A0
00021986 30 12                    |0       |		MOVE.W	(A2),D0
00021988 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
0002198c 42 81                    |B       |		CLR.L	D1
0002198e 32 00                    |2       |		MOVE.W	D0,D1
00021990 e3 81                    |        |		ASL.L	#0x1,D1
00021992 0c 87 00 00 00 03        |        |		CMPI.L	#0x00000003,D7
00021998 63 02                    |c       |		BLS	0x2199c
0002199a 4e 4f                    |NO      |		TRAP	#15
0002199c 20 07                    |        |		MOVE.L	D7,D0
0002199e e3 80                    |        |		ASL.L	#0x1,D0
000219a0 31 b6 08 e2 18 00        |1       |		MOVE.W	(A6+D0.L-#0x1e),(A0+D1.L)
000219a6 42 80                    |B       |		CLR.L	D0
000219a8 30 12                    |0       |		MOVE.W	(A2),D0
000219aa 52 80                    |R       |		ADDQ.L	#0x1,D0
000219ac 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000219b2 63 02                    |c       |		BLS	0x219b6
000219b4 4e 4f                    |NO      |		TRAP	#15
000219b6 34 80                    |4       |		MOVE.W	D0,(A2)
000219b8 52 87                    |R       |		ADDQ.L	#0x1,D7
000219ba 0c 87 00 00 00 03        |        |		CMPI.L	#0x00000003,D7
000219c0 6f c2                    |o       |		BLE	0x21984
000219c2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000219c4 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000219c6 20 53                    | S      |		MOVEA.L	(A3),A0
000219c8 30 12                    |0       |		MOVE.W	(A2),D0
000219ca 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
000219ce 42 81                    |B       |		CLR.L	D1
000219d0 32 00                    |2       |		MOVE.W	D0,D1
000219d2 e3 81                    |        |		ASL.L	#0x1,D1
000219d4 0c 87 00 00 00 09        |        |		CMPI.L	#0x00000009,D7
000219da 63 02                    |c       |		BLS	0x219de
000219dc 4e 4f                    |NO      |		TRAP	#15
000219de 43 fa ec 6a              |C  j    |		LEA.L	0x2064a,A1
000219e2 10 31 78 00              | 1x     |		MOVE.B	(A1+D7.L),D0
000219e6 48 80                    |H       |		EXTB.W	D0
000219e8 e7 40                    | @      |		ASL.W	#0x3,D0
000219ea 43 f9 00 02 3e 90        |C   >   |		LEA.L	0x23e90,A1
000219f0 0c 86 00 00 00 03        |        |		CMPI.L	#0x00000003,D6
000219f6 63 02                    |c       |		BLS	0x219fa
000219f8 4e 4f                    |NO      |		TRAP	#15
000219fa 24 06                    |$       |		MOVE.L	D6,D2
000219fc e3 82                    |        |		ASL.L	#0x1,D2
000219fe 43 f1 00 00              |C       |		LEA.L	(A1+D0.W),A1
00021a02 43 f1 28 00              |C (     |		LEA.L	(A1+D2.L),A1
00021a06 31 a9 03 4a 18 00        |1  J    |		MOVE.W	(A1+0x34a),(A0+D1.L)
00021a0c 42 80                    |B       |		CLR.L	D0
00021a0e 30 12                    |0       |		MOVE.W	(A2),D0
00021a10 52 80                    |R       |		ADDQ.L	#0x1,D0
00021a12 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021a18 63 02                    |c       |		BLS	0x21a1c
00021a1a 4e 4f                    |NO      |		TRAP	#15
00021a1c 34 80                    |4       |		MOVE.W	D0,(A2)
00021a1e 52 86                    |R       |		ADDQ.L	#0x1,D6
00021a20 0c 86 00 00 00 03        |        |		CMPI.L	#0x00000003,D6
00021a26 6f 9e                    |o       |		BLE	0x219c6
00021a28 52 87                    |R       |		ADDQ.L	#0x1,D7
00021a2a 0c 87 00 00 00 09        |        |		CMPI.L	#0x00000009,D7
00021a30 6f 92                    |o       |		BLE	0x219c4
00021a32 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021a34 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00021a36 20 53                    | S      |		MOVEA.L	(A3),A0
00021a38 30 12                    |0       |		MOVE.W	(A2),D0
00021a3a 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021a3e 42 81                    |B       |		CLR.L	D1
00021a40 32 00                    |2       |		MOVE.W	D0,D1
00021a42 e3 81                    |        |		ASL.L	#0x1,D1
00021a44 42 70 18 00              |Bp      |		CLR.W	(A0+D1.L)
00021a48 42 80                    |B       |		CLR.L	D0
00021a4a 30 12                    |0       |		MOVE.W	(A2),D0
00021a4c 52 80                    |R       |		ADDQ.L	#0x1,D0
00021a4e 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021a54 63 02                    |c       |		BLS	0x21a58
00021a56 4e 4f                    |NO      |		TRAP	#15
00021a58 34 80                    |4       |		MOVE.W	D0,(A2)
00021a5a 52 86                    |R       |		ADDQ.L	#0x1,D6
00021a5c 0c 86 00 00 00 03        |        |		CMPI.L	#0x00000003,D6
00021a62 6f d2                    |o       |		BLE	0x21a36
00021a64 52 87                    |R       |		ADDQ.L	#0x1,D7
00021a66 0c 87 00 00 00 06        |        |		CMPI.L	#0x00000006,D7
00021a6c 6f c6                    |o       |		BLE	0x21a34
00021a6e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021a70 20 53                    | S      |		MOVEA.L	(A3),A0
00021a72 42 80                    |B       |		CLR.L	D0
00021a74 30 12                    |0       |		MOVE.W	(A2),D0
00021a76 d0 87                    |        |		ADD.L	D7,D0
00021a78 0c 80 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D0
00021a7e 63 02                    |c       |		BLS	0x21a82
00021a80 4e 4f                    |NO      |		TRAP	#15
00021a82 e3 80                    |        |		ASL.L	#0x1,D0
00021a84 42 70 08 00              |Bp      |		CLR.W	(A0+D0.L)
00021a88 52 87                    |R       |		ADDQ.L	#0x1,D7
00021a8a 0c 87 00 00 00 07        |        |		CMPI.L	#0x00000007,D7
00021a90 6f de                    |o       |		BLE	0x21a70
00021a92 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021a94 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
00021a9a 4a 1f                    |J       |		TST.B	(A7)+
00021a9c 66 0c                    |f       |		BNE	0x21aaa
00021a9e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021aa0 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
00021aa6 4a 1f                    |J       |		TST.B	(A7)+
00021aa8 67 66                    |gf      |		BEQ	0x21b10
00021aaa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021aac 4e b9 00 02 3b be        |N   ;   |		JSR	0x23bbe
00021ab2 2a 1f                    |*       |		MOVE.L	(A7)+,D5
00021ab4 67 24                    |g$      |		BEQ	0x21ada
00021ab6 2f 05                    |/       |		MOVE.L	D5,-(A7)
00021ab8 20 53                    | S      |		MOVEA.L	(A3),A0
00021aba 30 12                    |0       |		MOVE.W	(A2),D0
00021abc 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021ac0 42 81                    |B       |		CLR.L	D1
00021ac2 32 00                    |2       |		MOVE.W	D0,D1
00021ac4 e3 81                    |        |		ASL.L	#0x1,D1
00021ac6 41 f0 18 00              |A       |		LEA.L	(A0+D1.L),A0
00021aca 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021acc 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00021ad0 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00021ad6 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021ada 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021adc 4e b9 00 02 3b e8        |N   ;   |		JSR	0x23be8
00021ae2 2a 1f                    |*       |		MOVE.L	(A7)+,D5
00021ae4 67 2a                    |g*      |		BEQ	0x21b10
00021ae6 2f 05                    |/       |		MOVE.L	D5,-(A7)
00021ae8 20 53                    | S      |		MOVEA.L	(A3),A0
00021aea 42 80                    |B       |		CLR.L	D0
00021aec 30 12                    |0       |		MOVE.W	(A2),D0
00021aee 58 80                    |X       |		ADDQ.L	#0x4,D0
00021af0 0c 80 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D0
00021af6 63 02                    |c       |		BLS	0x21afa
00021af8 4e 4f                    |NO      |		TRAP	#15
00021afa e3 80                    |        |		ASL.L	#0x1,D0
00021afc 41 f0 08 00              |A       |		LEA.L	(A0+D0.L),A0
00021b00 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021b02 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00021b06 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00021b0c de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021b10 42 80                    |B       |		CLR.L	D0
00021b12 30 12                    |0       |		MOVE.W	(A2),D0
00021b14 50 80                    |P       |		ADDQ.L	#0x8,D0
00021b16 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021b1c 63 02                    |c       |		BLS	0x21b20
00021b1e 4e 4f                    |NO      |		TRAP	#15
00021b20 34 80                    |4       |		MOVE.W	D0,(A2)
00021b22 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b24 4e b9 00 01 05 f8        |N       |		JSR	Is_fc07_one() : Bool
00021b2a 4a 1f                    |J       |		TST.B	(A7)+
00021b2c 66 0c                    |f       |		BNE	0x21b3a
00021b2e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b30 4e b9 00 01 05 fe        |N       |		JSR	Is_fc07_two() : Bool
00021b36 4a 1f                    |J       |		TST.B	(A7)+
00021b38 67 14                    |g       |		BEQ	0x21b4e
00021b3a 20 53                    | S      |		MOVEA.L	(A3),A0
00021b3c 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021b40 42 81                    |B       |		CLR.L	D1
00021b42 32 00                    |2       |		MOVE.W	D0,D1
00021b44 e3 81                    |        |		ASL.L	#0x1,D1
00021b46 31 bc 00 03 18 00        |1       |		MOVE.W	#0x3,(A0+D1.L)
00021b4c 60 3e                    |`>      |		BRA	0x21b8c
00021b4e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b50 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
00021b56 4a 1f                    |J       |		TST.B	(A7)+
00021b58 66 0c                    |f       |		BNE	0x21b66
00021b5a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b5c 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
00021b62 4a 1f                    |J       |		TST.B	(A7)+
00021b64 67 14                    |g       |		BEQ	0x21b7a
00021b66 20 53                    | S      |		MOVEA.L	(A3),A0
00021b68 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021b6c 42 81                    |B       |		CLR.L	D1
00021b6e 32 00                    |2       |		MOVE.W	D0,D1
00021b70 e3 81                    |        |		ASL.L	#0x1,D1
00021b72 31 bc 00 04 18 00        |1       |		MOVE.W	#0x4,(A0+D1.L)
00021b78 60 12                    |`       |		BRA	0x21b8c
00021b7a 20 53                    | S      |		MOVEA.L	(A3),A0
00021b7c 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021b80 42 81                    |B       |		CLR.L	D1
00021b82 32 00                    |2       |		MOVE.W	D0,D1
00021b84 e3 81                    |        |		ASL.L	#0x1,D1
00021b86 31 bc 00 02 18 00        |1       |		MOVE.W	#0x2,(A0+D1.L)
00021b8c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b8e 4e b9 00 01 06 10        |N       |		JSR	Is_fc07_one_or_three() : Bool
00021b94 4a 1f                    |J       |		TST.B	(A7)+
00021b96 67 1c                    |g       |		BEQ	0x21bb4
00021b98 20 53                    | S      |		MOVEA.L	(A3),A0
00021b9a 42 81                    |B       |		CLR.L	D1
00021b9c 32 00                    |2       |		MOVE.W	D0,D1
00021b9e 52 81                    |R       |		ADDQ.L	#0x1,D1
00021ba0 0c 81 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D1
00021ba6 63 02                    |c       |		BLS	0x21baa
00021ba8 4e 4f                    |NO      |		TRAP	#15
00021baa e3 81                    |        |		ASL.L	#0x1,D1
00021bac 31 bc 00 01 18 00        |1       |		MOVE.W	#0x1,(A0+D1.L)
00021bb2 60 18                    |`       |		BRA	0x21bcc
00021bb4 20 53                    | S      |		MOVEA.L	(A3),A0
00021bb6 42 81                    |B       |		CLR.L	D1
00021bb8 32 00                    |2       |		MOVE.W	D0,D1
00021bba 52 81                    |R       |		ADDQ.L	#0x1,D1
00021bbc 0c 81 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D1
00021bc2 63 02                    |c       |		BLS	0x21bc6
00021bc4 4e 4f                    |NO      |		TRAP	#15
00021bc6 e3 81                    |        |		ASL.L	#0x1,D1
00021bc8 42 70 18 00              |Bp      |		CLR.W	(A0+D1.L)
00021bcc 20 53                    | S      |		MOVEA.L	(A3),A0
00021bce 42 81                    |B       |		CLR.L	D1
00021bd0 32 00                    |2       |		MOVE.W	D0,D1
00021bd2 20 01                    |        |		MOVE.L	D1,D0
00021bd4 54 80                    |T       |		ADDQ.L	#0x2,D0
00021bd6 0c 80 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D0
00021bdc 63 02                    |c       |		BLS	0x21be0
00021bde 4e 4f                    |NO      |		TRAP	#15
00021be0 e3 80                    |        |		ASL.L	#0x1,D0
00021be2 42 70 08 00              |Bp      |		CLR.W	(A0+D0.L)
00021be6 20 01                    |        |		MOVE.L	D1,D0
00021be8 56 80                    |V       |		ADDQ.L	#0x3,D0
00021bea 0c 80 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D0
00021bf0 63 02                    |c       |		BLS	0x21bf4
00021bf2 4e 4f                    |NO      |		TRAP	#15
00021bf4 e3 80                    |        |		ASL.L	#0x1,D0
00021bf6 42 70 08 00              |Bp      |		CLR.W	(A0+D0.L)
00021bfa 58 81                    |X       |		ADDQ.L	#0x4,D1
00021bfc 0c 81 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D1
00021c02 63 02                    |c       |		BLS	0x21c06
00021c04 4e 4f                    |NO      |		TRAP	#15
00021c06 34 81                    |4       |		MOVE.W	D1,(A2)
00021c08 43 bc 01 ff              |C       |		CHK.W	#0x1ff,D1
00021c0c 42 80                    |B       |		CLR.L	D0
00021c0e 30 01                    |0       |		MOVE.W	D1,D0
00021c10 e3 80                    |        |		ASL.L	#0x1,D0
00021c12 31 bc 00 02 08 00        |1       |		MOVE.W	#0x2,(A0+D0.L)
00021c18 42 80                    |B       |		CLR.L	D0
00021c1a 30 01                    |0       |		MOVE.W	D1,D0
00021c1c 22 00                    |"       |		MOVE.L	D0,D1
00021c1e 52 81                    |R       |		ADDQ.L	#0x1,D1
00021c20 0c 81 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D1
00021c26 63 02                    |c       |		BLS	0x21c2a
00021c28 4e 4f                    |NO      |		TRAP	#15
00021c2a e3 81                    |        |		ASL.L	#0x1,D1
00021c2c 42 70 18 00              |Bp      |		CLR.W	(A0+D1.L)
00021c30 48 78 04 10              |Hx      |		PEA.L	0x410
00021c34 22 00                    |"       |		MOVE.L	D0,D1
00021c36 54 81                    |T       |		ADDQ.L	#0x2,D1
00021c38 0c 81 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D1
00021c3e 63 02                    |c       |		BLS	0x21c42
00021c40 4e 4f                    |NO      |		TRAP	#15
00021c42 e3 81                    |        |		ASL.L	#0x1,D1
00021c44 43 f0 18 00              |C       |		LEA.L	(A0+D1.L),A1
00021c48 2f 09                    |/       |		MOVE.L	A1,-(A7)
00021c4a 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021c4e 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00021c54 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021c58 5a 80                    |Z       |		ADDQ.L	#0x5,D0
00021c5a 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021c60 63 02                    |c       |		BLS	0x21c64
00021c62 4e 4f                    |NO      |		TRAP	#15
00021c64 34 80                    |4       |		MOVE.W	D0,(A2)
00021c66 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021c6a 42 81                    |B       |		CLR.L	D1
00021c6c 32 00                    |2       |		MOVE.W	D0,D1
00021c6e e3 81                    |        |		ASL.L	#0x1,D1
00021c70 31 b9 00 02 42 5a 18 00  |1   BZ  |		MOVE.W	0x2425a,(A0+D1.L)
00021c78 42 81                    |B       |		CLR.L	D1
00021c7a 32 00                    |2       |		MOVE.W	D0,D1
00021c7c 52 81                    |R       |		ADDQ.L	#0x1,D1
00021c7e 0c 81 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D1
00021c84 63 02                    |c       |		BLS	0x21c88
00021c86 4e 4f                    |NO      |		TRAP	#15
00021c88 e3 81                    |        |		ASL.L	#0x1,D1
00021c8a 31 b9 00 02 42 5c 18 00  |1   B\  |		MOVE.W	0x2425c,(A0+D1.L)
00021c92 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021c94 20 53                    | S      |		MOVEA.L	(A3),A0
00021c96 42 80                    |B       |		CLR.L	D0
00021c98 30 12                    |0       |		MOVE.W	(A2),D0
00021c9a 54 80                    |T       |		ADDQ.L	#0x2,D0
00021c9c d0 87                    |        |		ADD.L	D7,D0
00021c9e 0c 80 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D0
00021ca4 63 02                    |c       |		BLS	0x21ca8
00021ca6 4e 4f                    |NO      |		TRAP	#15
00021ca8 e3 80                    |        |		ASL.L	#0x1,D0
00021caa 0c 87 00 00 00 03        |        |		CMPI.L	#0x00000003,D7
00021cb0 63 02                    |c       |		BLS	0x21cb4
00021cb2 4e 4f                    |NO      |		TRAP	#15
00021cb4 22 07                    |"       |		MOVE.L	D7,D1
00021cb6 e3 81                    |        |		ASL.L	#0x1,D1
00021cb8 43 f9 00 02 42 5a        |C   BZ  |		LEA.L	0x2425a,A1
00021cbe 31 b1 18 04 08 00        |1       |		MOVE.W	(A1+D1.L+#0x4),(A0+D0.L)
00021cc4 52 87                    |R       |		ADDQ.L	#0x1,D7
00021cc6 0c 87 00 00 00 03        |        |		CMPI.L	#0x00000003,D7
00021ccc 6f c6                    |o       |		BLE	0x21c94
00021cce 42 80                    |B       |		CLR.L	D0
00021cd0 30 12                    |0       |		MOVE.W	(A2),D0
00021cd2 5c 80                    |\       |		ADDQ.L	#0x6,D0
00021cd4 50 80                    |P       |		ADDQ.L	#0x8,D0
00021cd6 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021cdc 63 02                    |c       |		BLS	0x21ce0
00021cde 4e 4f                    |NO      |		TRAP	#15
00021ce0 34 80                    |4       |		MOVE.W	D0,(A2)
00021ce2 20 53                    | S      |		MOVEA.L	(A3),A0
00021ce4 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021ce8 42 81                    |B       |		CLR.L	D1
00021cea 32 00                    |2       |		MOVE.W	D0,D1
00021cec e3 81                    |        |		ASL.L	#0x1,D1
00021cee 02 70 00 ff 18 00        | p      |		ANDI.W	#0x00ff,(A0+D1.L)
00021cf4 42 81                    |B       |		CLR.L	D1
00021cf6 32 00                    |2       |		MOVE.W	D0,D1
00021cf8 58 81                    |X       |		ADDQ.L	#0x4,D1
00021cfa 58 81                    |X       |		ADDQ.L	#0x4,D1
00021cfc 0c 81 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D1
00021d02 63 02                    |c       |		BLS	0x21d06
00021d04 4e 4f                    |NO      |		TRAP	#15
00021d06 34 81                    |4       |		MOVE.W	D1,(A2)
00021d08 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021d0a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021d0c 48 78 00 0b              |Hx      |		PEA.L	0xb
00021d10 df 97                    |        |		ADD.L	D7,(A7)
00021d12 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
00021d18 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021d1a 30 1f                    |0       |		MOVE.W	(A7)+,D0
00021d1c 48 c0                    |H       |		EXTW.L	D0
00021d1e 2c 00                    |,       |		MOVE.L	D0,D6
00021d20 08 07 00 00              |        |		BTST.L	#0x0,D7
00021d24 67 40                    |g@      |		BEQ	0x21d66
00021d26 20 53                    | S      |		MOVEA.L	(A3),A0
00021d28 30 12                    |0       |		MOVE.W	(A2),D0
00021d2a 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021d2e 42 81                    |B       |		CLR.L	D1
00021d30 32 00                    |2       |		MOVE.W	D0,D1
00021d32 e3 81                    |        |		ASL.L	#0x1,D1
00021d34 20 06                    |        |		MOVE.L	D6,D0
00021d36 02 80 00 00 00 ff        |        |		ANDI.L	#0x000000ff,D0
00021d3c 42 82                    |B       |		CLR.L	D2
00021d3e 34 30 18 00              |40      |		MOVE.W	(A0+D1.L),D2
00021d42 d0 82                    |        |		ADD.L	D2,D0
00021d44 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021d4a 63 02                    |c       |		BLS	0x21d4e
00021d4c 4e 4f                    |NO      |		TRAP	#15
00021d4e 31 80 18 00              |1       |		MOVE.W	D0,(A0+D1.L)
00021d52 42 80                    |B       |		CLR.L	D0
00021d54 30 12                    |0       |		MOVE.W	(A2),D0
00021d56 52 80                    |R       |		ADDQ.L	#0x1,D0
00021d58 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021d5e 63 02                    |c       |		BLS	0x21d62
00021d60 4e 4f                    |NO      |		TRAP	#15
00021d62 34 80                    |4       |		MOVE.W	D0,(A2)
00021d64 60 28                    |`(      |		BRA	0x21d8e
00021d66 20 53                    | S      |		MOVEA.L	(A3),A0
00021d68 30 12                    |0       |		MOVE.W	(A2),D0
00021d6a 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021d6e 42 81                    |B       |		CLR.L	D1
00021d70 32 00                    |2       |		MOVE.W	D0,D1
00021d72 e3 81                    |        |		ASL.L	#0x1,D1
00021d74 28 3c 00 00 01 00        |(<      |		MOVE.L	#0x100,D4
00021d7a 26 06                    |&       |		MOVE.L	D6,D3
00021d7c 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021d82 20 04                    |        |		MOVE.L	D4,D0
00021d84 02 80 00 00 ff 00        |        |		ANDI.L	#0x0000ff00,D0
00021d8a 31 80 18 00              |1       |		MOVE.W	D0,(A0+D1.L)
00021d8e 52 87                    |R       |		ADDQ.L	#0x1,D7
00021d90 0c 87 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D7
00021d96 6f 00 ff 72              |o  r    |		BLE	0x21d0a
00021d9a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021d9c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021d9e 48 78 01 81              |Hx      |		PEA.L	0x181
00021da2 df 97                    |        |		ADD.L	D7,(A7)
00021da4 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
00021daa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021dac 30 1f                    |0       |		MOVE.W	(A7)+,D0
00021dae 48 c0                    |H       |		EXTW.L	D0
00021db0 2c 00                    |,       |		MOVE.L	D0,D6
00021db2 08 07 00 00              |        |		BTST.L	#0x0,D7
00021db6 67 40                    |g@      |		BEQ	0x21df8
00021db8 20 53                    | S      |		MOVEA.L	(A3),A0
00021dba 30 12                    |0       |		MOVE.W	(A2),D0
00021dbc 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021dc0 42 81                    |B       |		CLR.L	D1
00021dc2 32 00                    |2       |		MOVE.W	D0,D1
00021dc4 e3 81                    |        |		ASL.L	#0x1,D1
00021dc6 20 06                    |        |		MOVE.L	D6,D0
00021dc8 02 80 00 00 00 ff        |        |		ANDI.L	#0x000000ff,D0
00021dce 42 82                    |B       |		CLR.L	D2
00021dd0 34 30 18 00              |40      |		MOVE.W	(A0+D1.L),D2
00021dd4 d0 82                    |        |		ADD.L	D2,D0
00021dd6 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021ddc 63 02                    |c       |		BLS	0x21de0
00021dde 4e 4f                    |NO      |		TRAP	#15
00021de0 31 80 18 00              |1       |		MOVE.W	D0,(A0+D1.L)
00021de4 42 80                    |B       |		CLR.L	D0
00021de6 30 12                    |0       |		MOVE.W	(A2),D0
00021de8 52 80                    |R       |		ADDQ.L	#0x1,D0
00021dea 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021df0 63 02                    |c       |		BLS	0x21df4
00021df2 4e 4f                    |NO      |		TRAP	#15
00021df4 34 80                    |4       |		MOVE.W	D0,(A2)
00021df6 60 28                    |`(      |		BRA	0x21e20
00021df8 20 53                    | S      |		MOVEA.L	(A3),A0
00021dfa 30 12                    |0       |		MOVE.W	(A2),D0
00021dfc 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021e00 42 81                    |B       |		CLR.L	D1
00021e02 32 00                    |2       |		MOVE.W	D0,D1
00021e04 e3 81                    |        |		ASL.L	#0x1,D1
00021e06 28 3c 00 00 01 00        |(<      |		MOVE.L	#0x100,D4
00021e0c 26 06                    |&       |		MOVE.L	D6,D3
00021e0e 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021e14 20 04                    |        |		MOVE.L	D4,D0
00021e16 02 80 00 00 ff 00        |        |		ANDI.L	#0x0000ff00,D0
00021e1c 31 80 18 00              |1       |		MOVE.W	D0,(A0+D1.L)
00021e20 52 87                    |R       |		ADDQ.L	#0x1,D7
00021e22 0c 87 00 00 00 4f        |     O  |		CMPI.L	#0x0000004f,D7
00021e28 6f 00 ff 72              |o  r    |		BLE	0x21d9c
00021e2c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021e2e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021e30 48 78 01 d0              |Hx      |		PEA.L	0x1d0
00021e34 df 97                    |        |		ADD.L	D7,(A7)
00021e36 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
00021e3c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e3e 30 1f                    |0       |		MOVE.W	(A7)+,D0
00021e40 48 c0                    |H       |		EXTW.L	D0
00021e42 2c 00                    |,       |		MOVE.L	D0,D6
00021e44 08 07 00 00              |        |		BTST.L	#0x0,D7
00021e48 67 40                    |g@      |		BEQ	0x21e8a
00021e4a 20 53                    | S      |		MOVEA.L	(A3),A0
00021e4c 30 12                    |0       |		MOVE.W	(A2),D0
00021e4e 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021e52 42 81                    |B       |		CLR.L	D1
00021e54 32 00                    |2       |		MOVE.W	D0,D1
00021e56 e3 81                    |        |		ASL.L	#0x1,D1
00021e58 20 06                    |        |		MOVE.L	D6,D0
00021e5a 02 80 00 00 00 ff        |        |		ANDI.L	#0x000000ff,D0
00021e60 42 82                    |B       |		CLR.L	D2
00021e62 34 30 18 00              |40      |		MOVE.W	(A0+D1.L),D2
00021e66 d0 82                    |        |		ADD.L	D2,D0
00021e68 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021e6e 63 02                    |c       |		BLS	0x21e72
00021e70 4e 4f                    |NO      |		TRAP	#15
00021e72 31 80 18 00              |1       |		MOVE.W	D0,(A0+D1.L)
00021e76 42 80                    |B       |		CLR.L	D0
00021e78 30 12                    |0       |		MOVE.W	(A2),D0
00021e7a 52 80                    |R       |		ADDQ.L	#0x1,D0
00021e7c 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00021e82 63 02                    |c       |		BLS	0x21e86
00021e84 4e 4f                    |NO      |		TRAP	#15
00021e86 34 80                    |4       |		MOVE.W	D0,(A2)
00021e88 60 28                    |`(      |		BRA	0x21eb2
00021e8a 20 53                    | S      |		MOVEA.L	(A3),A0
00021e8c 30 12                    |0       |		MOVE.W	(A2),D0
00021e8e 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021e92 42 81                    |B       |		CLR.L	D1
00021e94 32 00                    |2       |		MOVE.W	D0,D1
00021e96 e3 81                    |        |		ASL.L	#0x1,D1
00021e98 28 3c 00 00 01 00        |(<      |		MOVE.L	#0x100,D4
00021e9e 26 06                    |&       |		MOVE.L	D6,D3
00021ea0 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021ea6 20 04                    |        |		MOVE.L	D4,D0
00021ea8 02 80 00 00 ff 00        |        |		ANDI.L	#0x0000ff00,D0
00021eae 31 80 18 00              |1       |		MOVE.W	D0,(A0+D1.L)
00021eb2 52 87                    |R       |		ADDQ.L	#0x1,D7
00021eb4 0c 87 00 00 00 1d        |        |		CMPI.L	#0x0000001d,D7
00021eba 6f 00 ff 72              |o  r    |		BLE	0x21e2e
00021ebe 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021ec0 48 78 01 80              |Hx      |		PEA.L	0x180
00021ec4 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
00021eca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ecc 30 1f                    |0       |		MOVE.W	(A7)+,D0
00021ece 48 c0                    |H       |		EXTW.L	D0
00021ed0 2c 00                    |,       |		MOVE.L	D0,D6
00021ed2 20 53                    | S      |		MOVEA.L	(A3),A0
00021ed4 30 12                    |0       |		MOVE.W	(A2),D0
00021ed6 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021eda 42 81                    |B       |		CLR.L	D1
00021edc 32 00                    |2       |		MOVE.W	D0,D1
00021ede e3 81                    |        |		ASL.L	#0x1,D1
00021ee0 28 3c 00 00 01 00        |(<      |		MOVE.L	#0x100,D4
00021ee6 26 06                    |&       |		MOVE.L	D6,D3
00021ee8 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021eee 20 04                    |        |		MOVE.L	D4,D0
00021ef0 02 80 00 00 ff 00        |        |		ANDI.L	#0x0000ff00,D0
00021ef6 31 80 18 00              |1       |		MOVE.W	D0,(A0+D1.L)
00021efa 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021efe 4e 5e                    |N^      |		UNLK	A6
00021f00 4e 75                    |Nu      |		RTS
00021f02 ; --------------------------------------------------------------------------------------
00021f02 ; OMSI PASCAL Function
00021f02 ;    <LVAR  0x00a 4(r)>
00021f02 ;    <LVAR  0x008 2(r)>
00021f02 ;    <LVAR -0x004 2(w)>
00021f02 ;    <LVAR -0x006 2(r)>
00021f02 ;    <LVAR -0x008 2(w)>
00021f02 ;    <LVAR -0x00a 2(r)>
00021f02 ;    <LVAR -0x00c 2(w)>
00021f02 ;    <LVAR -0x00e 2(r)>
00021f02 ;    <LVAR -0x010 2(r)>
00021f02 ;    <LVAR -0x012 @ 2(w)>
00021f02 ;    <LVAR -0x414 @>
00021f02 ;    <LVAR -0x41e @ 4(rw)>
00021f02 ;    <LVAR -0x426 @ 4(rw)>
00021f02 ;    <LVAR -0x42a @ 4(rw)>
00021f02 ; --------------------------------------------------------------------------------------
00021f02 4e 56 fb 6e              |NV n    |		LINK.W	A6,#0xfb6e
00021f06 bf d5                    |        |		CMPA.L	(A5),A7
00021f08 62 06                    |b       |		BHI	0x21f10
00021f0a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021f0e 4e 76                    |Nv      |		TRAPV
00021f10 de fc 00 68              |   h    |		ADDA.W	#0x68,A7
00021f14 48 e7 fb f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
00021f18 45 ee fb da              |E       |		LEA.L	(A6-0x426),A2
00021f1c 74 01                    |t       |		MOVEQ.L	#0x01,D2
00021f1e 26 3c 00 00 01 ff        |&<      |		MOVE.L	#0x1ff,D3
00021f24 78 0e                    |x       |		MOVEQ.L	#0x0e,D4
00021f26 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00021f28 4d 83                    |M       |		CHK.W	D3,D6
00021f2a 42 80                    |B       |		CLR.L	D0
00021f2c 30 06                    |0       |		MOVE.W	D6,D0
00021f2e e3 80                    |        |		ASL.L	#0x1,D0
00021f30 41 ee fb d6              |A       |		LEA.L	(A6-0x42a),A0
00021f34 42 70 08 16              |Bp      |		CLR.W	(A0+D0.L+#0x16)
00021f38 52 46                    |RF      |		ADDQ.W	#0x1,D6
00021f3a bc 43                    | C      |		CMP.W	D3,D6
00021f3c 63 ea                    |c       |		BLS	0x21f28
00021f3e 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00021f42 24 90                    |$       |		MOVE.L	(A0),(A2)
00021f44 20 52                    | R      |		MOVEA.L	(A2),A0
00021f46 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021f48 b0 c2                    |        |		CMPA.W	D2,A0
00021f4a 67 2a                    |g*      |		BEQ	0x21f76
00021f4c 42 a8 00 26              |B  &    |		CLR.L	(A0+0x26)
00021f50 2d 68 00 2a fb e2        |-h *    |		MOVE.L	(A0+0x2a),(A6-0x41e)
00021f56 20 6e fb e2              | n      |		MOVEA.L	(A6-0x41e),A0
00021f5a b0 c2                    |        |		CMPA.W	D2,A0
00021f5c 67 0e                    |g       |		BEQ	0x21f6c
00021f5e 22 57                    |"W      |		MOVEA.L	(A7),A1
00021f60 52 a9 00 26              |R  &    |		ADDQ.L	#0x1,(A1+0x26)
00021f64 2d 68 00 04 fb e2        |-h      |		MOVE.L	(A0+0x4),(A6-0x41e)
00021f6a 60 ea                    |`       |		BRA	0x21f56
00021f6c 20 57                    | W      |		MOVEA.L	(A7),A0
00021f6e 24 a8 00 2e              |$  .    |		MOVE.L	(A0+0x2e),(A2)
00021f72 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f74 60 ce                    |`       |		BRA	0x21f44
00021f76 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f78 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00021f7a 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00021f7e 22 50                    |"P      |		MOVEA.L	(A0),A1
00021f80 b2 c2                    |        |		CMPA.W	D2,A1
00021f82 67 00 01 30              |g  0    |		BEQ	0x220b4
00021f86 24 89                    |$       |		MOVE.L	A1,(A2)
00021f88 36 42                    |6B      |		MOVEA.W	D2,A3
00021f8a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021f8c 20 52                    | R      |		MOVEA.L	(A2),A0
00021f8e b0 c2                    |        |		CMPA.W	D2,A0
00021f90 67 16                    |g       |		BEQ	0x21fa8
00021f92 4a 07                    |J       |		TST.B	D7
00021f94 66 12                    |f       |		BNE	0x21fa8
00021f96 4a a8 00 26              |J  &    |		TST.L	(A0+0x26)
00021f9a 66 04                    |f       |		BNE	0x21fa0
00021f9c 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00021f9e 60 06                    |`       |		BRA	0x21fa6
00021fa0 26 48                    |&H      |		MOVEA.L	A0,A3
00021fa2 24 a8 00 2e              |$  .    |		MOVE.L	(A0+0x2e),(A2)
00021fa6 60 e4                    |`       |		BRA	0x21f8c
00021fa8 4a 07                    |J       |		TST.B	D7
00021faa 66 2c                    |f,      |		BNE	0x21fd8
00021fac 41 fa e2 f2              |A       |		LEA.L	0x202a0,A0
00021fb0 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021fb2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021fb4 51 c8 ff fc              |Q       |		DBF	D0,0x21fb2
00021fb8 1f 04                    |        |		MOVE.B	D4,-(A7)
00021fba 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021fbc 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021fc0 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021fc2 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00021fc6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021fcc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fce 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021fd4 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00021fd8 4d 83                    |M       |		CHK.W	D3,D6
00021fda 42 80                    |B       |		CLR.L	D0
00021fdc 30 06                    |0       |		MOVE.W	D6,D0
00021fde e3 80                    |        |		ASL.L	#0x1,D0
00021fe0 41 ee fb d6              |A       |		LEA.L	(A6-0x42a),A0
00021fe4 22 52                    |"R      |		MOVEA.L	(A2),A1
00021fe6 31 a9 00 22 08 16        |1  "    |		MOVE.W	(A1+0x22),(A0+D0.L+#0x16)
00021fec 42 80                    |B       |		CLR.L	D0
00021fee 30 06                    |0       |		MOVE.W	D6,D0
00021ff0 22 00                    |"       |		MOVE.L	D0,D1
00021ff2 52 81                    |R       |		ADDQ.L	#0x1,D1
00021ff4 b2 83                    |        |		CMP.L	D3,D1
00021ff6 63 02                    |c       |		BLS	0x21ffa
00021ff8 4e 4f                    |NO      |		TRAP	#15
00021ffa e3 81                    |        |		ASL.L	#0x1,D1
00021ffc 41 ee fb d6              |A       |		LEA.L	(A6-0x42a),A0
00022000 31 a9 00 24 18 16        |1  $    |		MOVE.W	(A1+0x24),(A0+D1.L+#0x16)
00022006 54 80                    |T       |		ADDQ.L	#0x2,D0
00022008 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
0002200e 63 02                    |c       |		BLS	0x22012
00022010 4e 4f                    |NO      |		TRAP	#15
00022012 3c 00                    |<       |		MOVE.W	D0,D6
00022014 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00022018 2d 50 fb d6              |-P      |		MOVE.L	(A0),(A6-0x42a)
0002201c 20 6e fb d6              | n      |		MOVEA.L	(A6-0x42a),A0
00022020 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022022 b0 c2                    |        |		CMPA.W	D2,A0
00022024 67 62                    |gb      |		BEQ	0x22088
00022026 2d 68 00 2a fb e2        |-h *    |		MOVE.L	(A0+0x2a),(A6-0x41e)
0002202c 38 42                    |8B      |		MOVEA.W	D2,A4
0002202e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022030 20 6e fb e2              | n      |		MOVEA.L	(A6-0x41e),A0
00022034 b0 c2                    |        |		CMPA.W	D2,A0
00022036 67 18                    |g       |		BEQ	0x22050
00022038 4a 07                    |J       |		TST.B	D7
0002203a 66 14                    |f       |		BNE	0x22050
0002203c 22 50                    |"P      |		MOVEA.L	(A0),A1
0002203e b3 d2                    |        |		CMPA.L	(A2),A1
00022040 66 04                    |f       |		BNE	0x22046
00022042 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022044 60 08                    |`       |		BRA	0x2204e
00022046 28 48                    |(H      |		MOVEA.L	A0,A4
00022048 2d 68 00 04 fb e2        |-h      |		MOVE.L	(A0+0x4),(A6-0x41e)
0002204e 60 e0                    |`       |		BRA	0x22030
00022050 4a 07                    |J       |		TST.B	D7
00022052 67 28                    |g(      |		BEQ	0x2207c
00022054 22 57                    |"W      |		MOVEA.L	(A7),A1
00022056 53 a9 00 26              |S  &    |		SUBQ.L	#0x1,(A1+0x26)
0002205a b8 c2                    |        |		CMPA.W	D2,A4
0002205c 66 08                    |f       |		BNE	0x22066
0002205e 23 68 00 04 00 2a        |#h   *  |		MOVE.L	(A0+0x4),(A1+0x2a)
00022064 60 06                    |`       |		BRA	0x2206c
00022066 29 68 00 04 00 04        |)h      |		MOVE.L	(A0+0x4),(A4+0x4)
0002206c 48 6e fb e2              |Hn      |		PEA.L	(A6-0x41e)
00022070 48 78 00 08              |Hx      |		PEA.L	0x8
00022074 4e b9 00 01 02 a8        |N       |		JSR	Free2(a : Pointer; b : Long)
0002207a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002207c 20 57                    | W      |		MOVEA.L	(A7),A0
0002207e 2d 68 00 2e fb d6        |-h .    |		MOVE.L	(A0+0x2e),(A6-0x42a)
00022084 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022086 60 94                    |`       |		BRA	0x2201c
00022088 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002208a b6 c2                    |        |		CMPA.W	D2,A3
0002208c 66 0c                    |f       |		BNE	0x2209a
0002208e 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00022092 22 52                    |"R      |		MOVEA.L	(A2),A1
00022094 20 a9 00 2e              |   .    |		MOVE.L	(A1+0x2e),(A0)
00022098 60 08                    |`       |		BRA	0x220a2
0002209a 20 52                    | R      |		MOVEA.L	(A2),A0
0002209c 27 68 00 2e 00 2e        |'h . .  |		MOVE.L	(A0+0x2e),(A3+0x2e)
000220a2 48 52                    |HR      |		PEA.L	(A2)
000220a4 48 78 00 32              |Hx 2    |		PEA.L	0x32
000220a8 4e b9 00 01 02 a8        |N       |		JSR	Free2(a : Pointer; b : Long)
000220ae 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000220b0 60 00 fe c8              |`       |		BRA	0x21f7a
000220b4 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
000220b8 0c 40 00 04              | @      |		CMPI.W	#0x0004,D0
000220bc 66 0c                    |f       |		BNE	0x220ca
000220be 48 6e fb ec              |Hn      |		PEA.L	(A6-0x414)
000220c2 3f 06                    |?       |		MOVE.W	D6,-(A7)
000220c4 4e ba f7 40              |N  @    |		JSR	0x21806
000220c8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000220ca 3d 79 00 02 41 d2 ff ee  |=y  A   |		MOVE.W	0x241d2,(A6-0x12)
000220d2 42 6e ff f0              |Bn      |		CLR.W	(A6-0x10)
000220d6 42 6e ff f2              |Bn      |		CLR.W	(A6-0xe)
000220da 3d 7c 01 00 ff f4        |=|      |		MOVE.W	#0x100,(A6-0xc)
000220e0 42 6e ff f6              |Bn      |		CLR.W	(A6-0xa)
000220e4 3d 6e 00 08 ff f8        |=n      |		MOVE.W	(A6+0x8),(A6-0x8)
000220ea 42 6e ff fa              |Bn      |		CLR.W	(A6-0x6)
000220ee 3d 44 ff fc              |=D      |		MOVE.W	D4,(A6-0x4)
000220f2 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
000220f6 41 ee fb ec              |A       |		LEA.L	(A6-0x414),A0
000220fa 2f 08                    |/       |		MOVE.L	A0,-(A7)
000220fc 1f 02                    |        |		MOVE.B	D2,-(A7)
000220fe 4e ba f2 12              |N       |		JSR	0x21312
00022102 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00022106 4c df 1f df              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2+A3+A4
0002210a 4e 5e                    |N^      |		UNLK	A6
0002210c 4e 75                    |Nu      |		RTS
0002210e ; --------------------------------------------------------------------------------------
0002210e ; OMSI PASCAL Function
0002210e ;    <LVAR  0x00c 4(w)>
0002210e ;    <LVAR  0x008 @ 4(r)>
0002210e ;    <LVAR -0x003 @ 1(rw)>
0002210e ;    <LVAR -0x008 @ 4(rw)>
0002210e ; --------------------------------------------------------------------------------------
0002210e 4e 56 ff 98              |NV      |		LINK.W	A6,#0xff98
00022112 bf d5                    |        |		CMPA.L	(A5),A7
00022114 62 06                    |b       |		BHI	0x2211c
00022116 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002211a 4e 76                    |Nv      |		TRAPV
0002211c de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00022120 48 e7 f9 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00022124 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00022128 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
0002212c 49 ee ff fd              |I       |		LEA.L	(A6-0x3),A4
00022130 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022132 74 1e                    |t       |		MOVEQ.L	#0x1e,D2
00022134 76 20                    |v       |		MOVEQ.L	#0x20,D3
00022136 78 0e                    |x       |		MOVEQ.L	#0x0e,D4
00022138 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002213a 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002213c 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022142 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022144 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022146 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022148 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002214a 48 54                    |HT      |		PEA.L	(A4)
0002214c 4e b9 00 01 02 fc        |N       |		JSR	FirstField(MOD input : String; MOD output : String; VAR c : Bool
00022152 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00022156 4a 14                    |J       |		TST.B	(A4)
00022158 66 30                    |f0      |		BNE	0x2218a
0002215a 9e c3                    |        |		SUBA.W	D3,A7
0002215c 20 4f                    | O      |		MOVEA.L	A7,A0
0002215e 43 fa e1 40              |C  @    |		LEA.L	0x202a0,A1
00022162 70 1e                    |p       |		MOVEQ.L	#0x1e,D0
00022164 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022166 51 c8 ff fc              |Q       |		DBF	D0,0x22164
0002216a 1f 04                    |        |		MOVE.B	D4,-(A7)
0002216c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002216e 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00022172 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022174 3f 3c 00 1f              |?<      |		MOVE.W	#0x1f,-(A7)
00022178 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002217e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022180 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022186 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
0002218a 48 52                    |HR      |		PEA.L	(A2)
0002218c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022192 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022194 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022196 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022198 1f 07                    |        |		MOVE.B	D7,-(A7)
0002219a 4e b9 00 01 05 86        |N       |		JSR	Config_Entry_Name(a : Byte) : String
000221a0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000221a2 24 97                    |$       |		MOVE.L	(A7),(A2)
000221a4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000221a6 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000221a8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000221aa 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000221b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221b2 10 1f                    |        |		MOVE.B	(A7)+,D0
000221b4 48 80                    |H       |		EXTB.W	D0
000221b6 41 81                    |A       |		CHK.W	D1,D0
000221b8 18 80                    |        |		MOVE.B	D0,(A4)
000221ba 48 52                    |HR      |		PEA.L	(A2)
000221bc 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000221c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000221c4 4a 00                    |J       |		TST.B	D0
000221c6 67 36                    |g6      |		BEQ	0x221fe
000221c8 10 07                    |        |		MOVE.B	D7,D0
000221ca 48 80                    |H       |		EXTB.W	D0
000221cc eb 40                    | @      |		ASL.W	#0x5,D0
000221ce 41 f9 00 02 3e 90        |A   >   |		LEA.L	0x23e90,A0
000221d4 9e c2                    |        |		SUBA.W	D2,A7
000221d6 22 4f                    |"O      |		MOVEA.L	A7,A1
000221d8 41 f0 00 5d              |A  ]    |		LEA.L	(A0+D0.W+#0x5d),A0
000221dc 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000221de 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000221e0 51 c8 ff fc              |Q       |		DBF	D0,0x221de
000221e4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000221e6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000221ea 3f 01                    |?       |		MOVE.W	D1,-(A7)
000221ec 3f 02                    |?       |		MOVE.W	D2,-(A7)
000221ee 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000221f4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221f6 2d 5f 00 0c              |-_      |		MOVE.L	(A7)+,(A6+0xc)
000221fa de c2                    |        |		ADDA.W	D2,A7
000221fc 60 42                    |`B      |		BRA	0x22240
000221fe 52 07                    |R       |		ADDQ.B	#0x1,D7
00022200 0c 07 00 09              |        |		CMPI.B	#0x09,D7
00022204 6f 90                    |o       |		BLE	0x22196
00022206 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
0002220a 20 4f                    | O      |		MOVEA.L	A7,A0
0002220c 43 fa e0 b2              |C       |		LEA.L	0x202c0,A1
00022210 70 18                    |p       |		MOVEQ.L	#0x18,D0
00022212 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022214 51 c8 ff fc              |Q       |		DBF	D0,0x22212
00022218 1f 04                    |        |		MOVE.B	D4,-(A7)
0002221a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002221c 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00022220 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022222 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
00022226 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002222c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002222e 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022230 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022236 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022238 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002223e de c3                    |        |		ADDA.W	D3,A7
00022240 48 53                    |HS      |		PEA.L	(A3)
00022242 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022248 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002224a 4c df 1f 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4
0002224e 4e 5e                    |N^      |		UNLK	A6
00022250 4e 75                    |Nu      |		RTS
00022252 ; --------------------------------------------------------------------------------------
00022252 ; OMSI PASCAL Function
00022252 ;    <LVAR -0x010 @ 4(rw)>
00022252 ;    <LVAR -0x018 4(rw)>
00022252 ;    <LVAR -0x01c 4(rw)>
00022252 ;    <LVAR -0x03a @>
00022252 ;    <LVAR -0x03e @ 4(rw)>
00022252 ; --------------------------------------------------------------------------------------
00022252 4e 56 ff 26              |NV &    |		LINK.W	A6,#0xff26
00022256 bf d5                    |        |		CMPA.L	(A5),A7
00022258 62 06                    |b       |		BHI	0x22260
0002225a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002225e 4e 76                    |Nv      |		TRAPV
00022260 de fc 00 9a              |        |		ADDA.W	#0x9a,A7
00022264 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022268 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002226a 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
0002226c 78 1d                    |x       |		MOVEQ.L	#0x1d,D4
0002226e 48 6e ff c2              |Hn      |		PEA.L	(A6-0x3e)
00022272 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022278 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002227a 7a 00                    |z       |		MOVEQ.L	#0x00,D5
0002227c 10 05                    |        |		MOVE.B	D5,D0
0002227e 48 80                    |H       |		EXTB.W	D0
00022280 eb 40                    | @      |		ASL.W	#0x5,D0
00022282 41 f9 00 02 3e 90        |A   >   |		LEA.L	0x23e90,A0
00022288 9e c3                    |        |		SUBA.W	D3,A7
0002228a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002228c 41 f0 00 5d              |A  ]    |		LEA.L	(A0+D0.W+#0x5d),A0
00022290 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00022292 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00022294 51 c8 ff fc              |Q       |		DBF	D0,0x22292
00022298 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002229a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002229e 3f 02                    |?       |		MOVE.W	D2,-(A7)
000222a0 3f 03                    |?       |		MOVE.W	D3,-(A7)
000222a2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000222a8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000222aa 2d 5f ff c2              |-_      |		MOVE.L	(A7)+,(A6-0x3e)
000222ae de c3                    |        |		ADDA.W	D3,A7
000222b0 7c 01                    ||       |		MOVEQ.L	#0x01,D6
000222b2 20 6e ff c2              | n      |		MOVEA.L	(A6-0x3e),A0
000222b6 30 10                    |0       |		MOVE.W	(A0),D0
000222b8 48 c0                    |H       |		EXTW.L	D0
000222ba bc 80                    |        |		CMP.L	D0,D6
000222bc 6f 10                    |o       |		BLE	0x222ce
000222be 20 06                    |        |		MOVE.L	D6,D0
000222c0 53 80                    |S       |		SUBQ.L	#0x1,D0
000222c2 b0 84                    |        |		CMP.L	D4,D0
000222c4 63 02                    |c       |		BLS	0x222c8
000222c6 4e 4f                    |NO      |		TRAP	#15
000222c8 42 36 08 c6              |B6      |		CLR.B	(A6+D0.L-#0x3a)
000222cc 60 1e                    |`       |		BRA	0x222ec
000222ce 20 06                    |        |		MOVE.L	D6,D0
000222d0 53 80                    |S       |		SUBQ.L	#0x1,D0
000222d2 b0 84                    |        |		CMP.L	D4,D0
000222d4 63 02                    |c       |		BLS	0x222d8
000222d6 4e 4f                    |NO      |		TRAP	#15
000222d8 22 06                    |"       |		MOVE.L	D6,D1
000222da 53 81                    |S       |		SUBQ.L	#0x1,D1
000222dc 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
000222e2 63 02                    |c       |		BLS	0x222e6
000222e4 4e 4f                    |NO      |		TRAP	#15
000222e6 1d b0 18 02 08 c6        |        |		MOVE.B	(A0+D1.L+#0x2),(A6+D0.L-#0x3a)
000222ec 52 86                    |R       |		ADDQ.L	#0x1,D6
000222ee bc 83                    |        |		CMP.L	D3,D6
000222f0 6f c0                    |o       |		BLE	0x222b2
000222f2 2d 79 00 02 41 ca ff e4  |-y  A   |		MOVE.L	0x241ca,(A6-0x1c)
000222fa 36 42                    |6B      |		MOVEA.W	D2,A3
000222fc 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000222fe 20 6e ff e4              | n      |		MOVEA.L	(A6-0x1c),A0
00022302 b0 c2                    |        |		CMPA.W	D2,A0
00022304 67 22                    |g"      |		BEQ	0x22328
00022306 4a 07                    |J       |		TST.B	D7
00022308 66 1e                    |f       |		BNE	0x22328
0002230a 43 ee ff c6              |C       |		LEA.L	(A6-0x3a),A1
0002230e 24 48                    |$H      |		MOVEA.L	A0,A2
00022310 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00022312 b5 09                    |        |		CMPM.B	(A1)+,(A2)+
00022314 56 c8 ff fc              |V       |		DBNE	D0,0x22312
00022318 66 04                    |f       |		BNE	0x2231e
0002231a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002231c 60 08                    |`       |		BRA	0x22326
0002231e 26 48                    |&H      |		MOVEA.L	A0,A3
00022320 2d 68 00 2e ff e4        |-h .    |		MOVE.L	(A0+0x2e),(A6-0x1c)
00022326 60 d6                    |`       |		BRA	0x222fe
00022328 4a 07                    |J       |		TST.B	D7
0002232a 66 52                    |fR      |		BNE	0x2237e
0002232c 41 fa df d6              |A       |		LEA.L	0x20304,A0
00022330 70 14                    |p       |		MOVEQ.L	#0x14,D0
00022332 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022334 51 c8 ff fc              |Q       |		DBF	D0,0x22332
00022338 41 ee ff e4              |A       |		LEA.L	(A6-0x1c),A0
0002233c 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
0002233e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022340 51 c8 ff fc              |Q       |		DBF	D0,0x2233e
00022344 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00022348 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002234a 48 6f 00 28              |Ho (    |		PEA.L	(A7+0x28)
0002234e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022350 3f 3c 00 2a              |?< *    |		MOVE.W	#0x2a,-(A7)
00022354 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002235a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002235c 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00022360 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022362 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022364 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002236a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002236c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022372 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022374 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002237a de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
0002237e b6 c2                    |        |		CMPA.W	D2,A3
00022380 66 0e                    |f       |		BNE	0x22390
00022382 20 6e ff e4              | n      |		MOVEA.L	(A6-0x1c),A0
00022386 23 e8 00 2e 00 02 41 ca  |#  .  A |		MOVE.L	(A0+0x2e),0x241ca
0002238e 60 0a                    |`       |		BRA	0x2239a
00022390 20 6e ff e4              | n      |		MOVEA.L	(A6-0x1c),A0
00022394 27 68 00 2e 00 2e        |'h . .  |		MOVE.L	(A0+0x2e),(A3+0x2e)
0002239a 20 6e ff e4              | n      |		MOVEA.L	(A6-0x1c),A0
0002239e 21 79 00 02 41 ce 00 2e  |!y  A  .|		MOVE.L	0x241ce,(A0+0x2e)
000223a6 23 ee ff e4 00 02 41 ce  |#     A |		MOVE.L	(A6-0x1c),0x241ce
000223ae 52 05                    |R       |		ADDQ.B	#0x1,D5
000223b0 0c 05 00 04              |        |		CMPI.B	#0x04,D5
000223b4 6f 00 fe c6              |o       |		BLE	0x2227c
000223b8 48 6e ff c2              |Hn      |		PEA.L	(A6-0x3e)
000223bc 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000223c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000223c4 2d 79 00 02 41 ce ff e8  |-y  A   |		MOVE.L	0x241ce,(A6-0x18)
000223cc 20 6e ff e8              | n      |		MOVEA.L	(A6-0x18),A0
000223d0 b0 c2                    |        |		CMPA.W	D2,A0
000223d2 67 00 00 84              |g       |		BEQ	0x22458
000223d6 2d 79 00 02 41 ca ff e4  |-y  A   |		MOVE.L	0x241ca,(A6-0x1c)
000223de 20 6e ff e4              | n      |		MOVEA.L	(A6-0x1c),A0
000223e2 2f 08                    |/       |		MOVE.L	A0,-(A7)
000223e4 b0 c2                    |        |		CMPA.W	D2,A0
000223e6 67 60                    |g`      |		BEQ	0x22448
000223e8 2d 68 00 2a ff f0        |-h *    |		MOVE.L	(A0+0x2a),(A6-0x10)
000223ee 38 42                    |8B      |		MOVEA.W	D2,A4
000223f0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000223f2 20 6e ff f0              | n      |		MOVEA.L	(A6-0x10),A0
000223f6 b0 c2                    |        |		CMPA.W	D2,A0
000223f8 67 1a                    |g       |		BEQ	0x22414
000223fa 4a 07                    |J       |		TST.B	D7
000223fc 66 16                    |f       |		BNE	0x22414
000223fe 22 50                    |"P      |		MOVEA.L	(A0),A1
00022400 b3 ee ff e8              |        |		CMPA.L	(A6-0x18),A1
00022404 66 04                    |f       |		BNE	0x2240a
00022406 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022408 60 08                    |`       |		BRA	0x22412
0002240a 28 48                    |(H      |		MOVEA.L	A0,A4
0002240c 2d 68 00 04 ff f0        |-h      |		MOVE.L	(A0+0x4),(A6-0x10)
00022412 60 de                    |`       |		BRA	0x223f2
00022414 4a 07                    |J       |		TST.B	D7
00022416 67 24                    |g$      |		BEQ	0x2243c
00022418 b8 c2                    |        |		CMPA.W	D2,A4
0002241a 66 0a                    |f       |		BNE	0x22426
0002241c 22 57                    |"W      |		MOVEA.L	(A7),A1
0002241e 23 68 00 04 00 2a        |#h   *  |		MOVE.L	(A0+0x4),(A1+0x2a)
00022424 60 06                    |`       |		BRA	0x2242c
00022426 29 68 00 04 00 04        |)h      |		MOVE.L	(A0+0x4),(A4+0x4)
0002242c 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00022430 48 78 00 08              |Hx      |		PEA.L	0x8
00022434 4e b9 00 01 02 a8        |N       |		JSR	Free2(a : Pointer; b : Long)
0002243a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002243c 20 57                    | W      |		MOVEA.L	(A7),A0
0002243e 2d 68 00 2e ff e4        |-h .    |		MOVE.L	(A0+0x2e),(A6-0x1c)
00022444 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022446 60 96                    |`       |		BRA	0x223de
00022448 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002244a 20 6e ff e8              | n      |		MOVEA.L	(A6-0x18),A0
0002244e 2d 68 00 2e ff e8        |-h .    |		MOVE.L	(A0+0x2e),(A6-0x18)
00022454 60 00 ff 76              |`  v    |		BRA	0x223cc
00022458 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002245c 4e 5e                    |N^      |		UNLK	A6
0002245e 4e 75                    |Nu      |		RTS
00022460 ; --------------------------------------------------------------------------------------
00022460 ; OMSI PASCAL Function
00022460 ; --------------------------------------------------------------------------------------
00022460 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
00022464 bf d5                    |        |		CMPA.L	(A5),A7
00022466 62 06                    |b       |		BHI	0x2246e
00022468 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002246c 4e 76                    |Nv      |		TRAPV
0002246e de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
00022472 48 e7 e0 c0              |H       |		MOVEM.L	A1+A0+D2+D1+D0,-(A7)
00022476 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022478 74 2a                    |t*      |		MOVEQ.L	#0x2a,D2
0002247a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002247c 4e b9 00 01 03 f8        |N       |		JSR	GetConsoleConfig() : Long
00022482 20 1f                    |        |		MOVE.L	(A7)+,D0
00022484 0c 80 00 00 00 03        |        |		CMPI.L	#0x00000003,D0
0002248a 66 5c                    |f\      |		BNE	0x224e8
0002248c 41 fa de 9c              |A       |		LEA.L	0x2032a,A0
00022490 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022492 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022494 51 c8 ff fc              |Q       |		DBF	D0,0x22492
00022498 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002249a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002249e 3f 01                    |?       |		MOVE.W	D1,-(A7)
000224a0 3f 3c 00 26              |?< &    |		MOVE.W	#0x26,-(A7)
000224a4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000224aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224ac 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000224b2 de c2                    |        |		ADDA.W	D2,A7
000224b4 4e b9 00 01 02 16        |N       |		JSR	KC0b
000224ba 9e c2                    |        |		SUBA.W	D2,A7
000224bc 20 4f                    | O      |		MOVEA.L	A7,A0
000224be 43 fa de 6a              |C  j    |		LEA.L	0x2032a,A1
000224c2 70 28                    |p(      |		MOVEQ.L	#0x28,D0
000224c4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000224c6 51 c8 ff fc              |Q       |		DBF	D0,0x224c4
000224ca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000224cc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000224d0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000224d2 3f 3c 00 29              |?< )    |		MOVE.W	#0x29,-(A7)
000224d6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000224dc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224de 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000224e4 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
000224e8 4c df 03 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1
000224ec 4e 5e                    |N^      |		UNLK	A6
000224ee 4e 75                    |Nu      |		RTS
000224f0 ; --------------------------------------------------------------------------------------
000224f0 ; OMSI PASCAL Function
000224f0 ;    <LVAR -0x001 1(r)>
000224f0 ;    <LVAR -0x002 1(r)>
000224f0 ;    <LVAR -0x003 1(r)>
000224f0 ;    <LVAR -0x004 @ 1(r)>
000224f0 ;    <LVAR -0x404 @>
000224f0 ;    <LVAR -0x406 2(w)>
000224f0 ;    <LVAR -0x408 2(w) 4(w)>
000224f0 ;    <LVAR -0x40c 4(w)>
000224f0 ;    <LVAR -0x410 2(w) 4(w)>
000224f0 ;    <LVAR -0x414 @ 2(w) 4(w)>
000224f0 ; --------------------------------------------------------------------------------------
000224f0 4e 56 fb 96              |NV      |		LINK.W	A6,#0xfb96
000224f4 bf d5                    |        |		CMPA.L	(A5),A7
000224f6 62 06                    |b       |		BHI	0x224fe
000224f8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000224fc 4e 76                    |Nv      |		TRAPV
000224fe de fc 00 56              |   V    |		ADDA.W	#0x56,A7
00022502 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00022506 43 ee fb ec              |C       |		LEA.L	(A6-0x414),A1
0002250a 4e ba fd 46              |N  F    |		JSR	0x22252
0002250e 48 79 00 02 41 ce        |Hy  A   |		PEA.L	0x241ce
00022514 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00022518 4e ba f9 e8              |N       |		JSR	0x21f02
0002251c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002251e 48 79 00 02 41 ca        |Hy  A   |		PEA.L	0x241ca
00022524 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00022528 4e ba f9 d8              |N       |		JSR	0x21f02
0002252c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002252e 4e ba ff 30              |N  0    |		JSR	0x22460
00022532 4e ba e2 32              |N  2    |		JSR	0x20766
00022536 41 fa de 52              |A  R    |		LEA.L	0x2038a,A0
0002253a 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
0002253c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002253e 51 c8 ff fc              |Q       |		DBF	D0,0x2253c
00022542 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022544 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022548 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002254c 3f 3c 00 36              |?< 6    |		MOVE.W	#0x36,-(A7)
00022550 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022556 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022558 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002255e de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00022562 22 ba e0 f0              |"       |		MOVE.L	0x20654,(A1)
00022566 2d 7a e0 f0 fb f0        |-z      |		MOVE.L	0x20658,(A6-0x410)
0002256c 2d 7a e0 ee fb f4        |-z      |		MOVE.L	0x2065c,(A6-0x40c)
00022572 2d 7a e0 ec fb f8        |-z      |		MOVE.L	0x20660,(A6-0x408)
00022578 48 51                    |HQ      |		PEA.L	(A1)
0002257a 4e ba e2 b8              |N       |		JSR	0x20834
0002257e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022580 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00022584 4e b9 00 01 05 9e        |N       |		JSR	ReadClusterNo(VAR a : Long)
0002258a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002258c 42 80                    |B       |		CLR.L	D0
0002258e 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00022592 e1 40                    | @      |		ASL.W	#0x8,D0
00022594 42 81                    |B       |		CLR.L	D1
00022596 12 2e ff fd              | .      |		MOVE.B	(A6-0x3),D1
0002259a d2 40                    | @      |		ADD.W	D0,D1
0002259c 3d 41 fb f8              |=A      |		MOVE.W	D1,(A6-0x408)
000225a0 42 80                    |B       |		CLR.L	D0
000225a2 10 2e ff fe              | .      |		MOVE.B	(A6-0x2),D0
000225a6 e1 40                    | @      |		ASL.W	#0x8,D0
000225a8 42 81                    |B       |		CLR.L	D1
000225aa 12 2e ff ff              | .      |		MOVE.B	(A6-0x1),D1
000225ae d2 40                    | @      |		ADD.W	D0,D1
000225b0 3d 41 fb fa              |=A      |		MOVE.W	D1,(A6-0x406)
000225b4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000225b6 4e b9 00 01 05 ce        |N       |		JSR	ReadKeySwitch() : Bool
000225bc 4a 1f                    |J       |		TST.B	(A7)+
000225be 67 06                    |g       |		BEQ	0x225c6
000225c0 00 6e 80 00 fb f0        | n      |		ORI.W	#0x8000,(A6-0x410)
000225c6 32 b9 00 02 41 d2        |2   A   |		MOVE.W	0x241d2,(A1)
000225cc 02 51 ff 00              | Q      |		ANDI.W	#0xff00,(A1)
000225d0 48 51                    |HQ      |		PEA.L	(A1)
000225d2 41 ee fb fc              |A       |		LEA.L	(A6-0x404),A0
000225d6 2f 08                    |/       |		MOVE.L	A0,-(A7)
000225d8 42 27                    |B'      |		CLR.B	-(A7)
000225da 4e ba ed 36              |N  6    |		JSR	0x21312
000225de de fc 00 0a              |        |		ADDA.W	#0xa,A7
000225e2 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
000225e6 4e 5e                    |N^      |		UNLK	A6
000225e8 4e 75                    |Nu      |		RTS
000225ea ; --------------------------------------------------------------------------------------
000225ea ; OMSI PASCAL Function
000225ea ;    <LVAR  0x00c 1(w)>
000225ea ;    <LVAR  0x008 4(r)>
000225ea ;    <LVAR -0x002 @>
000225ea ;    <LVAR -0x006 @ 4(r)>
000225ea ;    <LVAR -0x00c @ 4(rw)>
000225ea ; --------------------------------------------------------------------------------------
000225ea 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
000225ee bf d5                    |        |		CMPA.L	(A5),A7
000225f0 62 06                    |b       |		BHI	0x225f8
000225f2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000225f6 4e 76                    |Nv      |		TRAPV
000225f8 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
000225fc 48 e7 e3 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D2+D1+D0,-(A7)
00022600 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00022604 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
00022608 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
0002260a 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002260c 1d 7c 00 04 00 0c        | |      |		MOVE.B	#0x04,(A6+0xc)
00022612 48 52                    |HR      |		PEA.L	(A2)
00022614 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
0002261a 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
0002261e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022620 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00022624 4e b9 00 01 02 fc        |N       |		JSR	FirstField(MOD input : String; MOD output : String; VAR c : Bool
0002262a de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002262e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022630 10 07                    |        |		MOVE.B	D7,D0
00022632 48 80                    |H       |		EXTB.W	D0
00022634 c1 c1                    |        |		MULS.W	D1,D0
00022636 41 fa e0 2c              |A  ,    |		LEA.L	0x20664,A0
0002263a 9e c1                    |        |		SUBA.W	D1,A7
0002263c 22 4f                    |"O      |		MOVEA.L	A7,A1
0002263e 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00022642 70 09                    |p       |		MOVEQ.L	#0x09,D0
00022644 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00022646 51 c8 ff fc              |Q       |		DBF	D0,0x22644
0002264a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002264c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022650 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022652 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022654 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002265a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002265c 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
0002265e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022660 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022662 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022664 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
0002266a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002266c 10 1f                    |        |		MOVE.B	(A7)+,D0
0002266e 48 80                    |H       |		EXTB.W	D0
00022670 41 82                    |A       |		CHK.W	D2,D0
00022672 1c 00                    |        |		MOVE.B	D0,D6
00022674 48 53                    |HS      |		PEA.L	(A3)
00022676 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002267c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002267e 4a 06                    |J       |		TST.B	D6
00022680 67 06                    |g       |		BEQ	0x22688
00022682 1d 47 00 0c              | G      |		MOVE.B	D7,(A6+0xc)
00022686 60 08                    |`       |		BRA	0x22690
00022688 52 07                    |R       |		ADDQ.B	#0x1,D7
0002268a 0c 07 00 03              |        |		CMPI.B	#0x03,D7
0002268e 6f a0                    |o       |		BLE	0x22630
00022690 48 52                    |HR      |		PEA.L	(A2)
00022692 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022698 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002269a 4c df 0f c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0+A1+A2+A3
0002269e 4e 5e                    |N^      |		UNLK	A6
000226a0 4e 75                    |Nu      |		RTS
000226a2 ; --------------------------------------------------------------------------------------
000226a2 ; OMSI PASCAL Function
000226a2 ;    <LVAR  0x00c 4(r)>
000226a2 ;    <LVAR  0x008 @ 4(r)>
000226a2 ;    <LVAR -0x004 @ 1(r)>
000226a2 ;    <LVAR -0x008 @ 4(r)>
000226a2 ;    <LVAR -0x00c 4(w)>
000226a2 ;    <LVAR -0x010 @ 4(w)>
000226a2 ; --------------------------------------------------------------------------------------
000226a2 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
000226a6 bf d5                    |        |		CMPA.L	(A5),A7
000226a8 62 06                    |b       |		BHI	0x226b0
000226aa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000226ae 4e 76                    |Nv      |		TRAPV
000226b0 de fc 00 50              |   P    |		ADDA.W	#0x50,A7
000226b4 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
000226b8 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
000226bc 47 ee ff fc              |G       |		LEA.L	(A6-0x4),A3
000226c0 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
000226c4 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000226c6 48 52                    |HR      |		PEA.L	(A2)
000226c8 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000226ce 2e 94                    |.       |		MOVE.L	(A4),(A7)
000226d0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000226d2 48 53                    |HS      |		PEA.L	(A3)
000226d4 4e b9 00 01 02 fc        |N       |		JSR	FirstField(MOD input : String; MOD output : String; VAR c : Bool
000226da de c1                    |        |		ADDA.W	D1,A7
000226dc 4a 13                    |J       |		TST.B	(A3)
000226de 67 0e                    |g       |		BEQ	0x226ee
000226e0 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000226e2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000226e4 48 53                    |HS      |		PEA.L	(A3)
000226e6 4e b9 00 01 02 fc        |N       |		JSR	FirstField(MOD input : String; MOD output : String; VAR c : Bool
000226ec de c1                    |        |		ADDA.W	D1,A7
000226ee 4a 13                    |J       |		TST.B	(A3)
000226f0 66 30                    |f0      |		BNE	0x22722
000226f2 41 fa dc ea              |A       |		LEA.L	0x203de,A0
000226f6 70 10                    |p       |		MOVEQ.L	#0x10,D0
000226f8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000226fa 51 c8 ff fc              |Q       |		DBF	D0,0x226f8
000226fe 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00022702 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022704 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00022708 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002270c 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00022710 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022716 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022718 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002271e de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00022722 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022724 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022726 48 78 00 10              |Hx      |		PEA.L	0x10
0002272a 4e b9 00 01 03 60        |N    `  |		JSR	?StringToInt64()
00022730 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022732 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022736 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
0002273a 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002273e 41 e8 00 1e              |A       |		LEA.L	(A0+0x1e),A0
00022742 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
00022746 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022748 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002274a 51 c8 ff fc              |Q       |		DBF	D0,0x22748
0002274e 48 54                    |HT      |		PEA.L	(A4)
00022750 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022756 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022758 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
0002275c 4e 5e                    |N^      |		UNLK	A6
0002275e 4e 75                    |Nu      |		RTS
00022760 ; --------------------------------------------------------------------------------------
00022760 ; OMSI PASCAL Function
00022760 ;    <LVAR  0x00c 4(r)>
00022760 ;    <LVAR  0x008 @ 4(rw)>
00022760 ;    <LVAR -0x003 @ 1(r)>
00022760 ;    <LVAR -0x006 @ 1(r)>
00022760 ;    <LVAR -0x00a @ 4(r)>
00022760 ;    <LVAR -0x00e @ 4(rw)>
00022760 ;    <LVAR -0x016 @ 4(rw)>
00022760 ;    <LVAR -0x01a @ 4(rw)>
00022760 ;    <LVAR -0x01c @>
00022760 ;    <LVAR -0x020 @ 4(r)>
00022760 ; --------------------------------------------------------------------------------------
00022760 4e 56 ff 7c              |NV |    |		LINK.W	A6,#0xff7c
00022764 bf d5                    |        |		CMPA.L	(A5),A7
00022766 62 06                    |b       |		BHI	0x2276e
00022768 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002276c 4e 76                    |Nv      |		TRAPV
0002276e de fc 00 64              |   d    |		ADDA.W	#0x64,A7
00022772 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022776 47 ee ff e6              |G       |		LEA.L	(A6-0x1a),A3
0002277a 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002277c 76 0e                    |v       |		MOVEQ.L	#0x0e,D3
0002277e 78 1e                    |x       |		MOVEQ.L	#0x1e,D4
00022780 7a 02                    |z       |		MOVEQ.L	#0x02,D5
00022782 48 53                    |HS      |		PEA.L	(A3)
00022784 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
0002278a 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
0002278e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022790 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00022794 4e b9 00 01 02 fc        |N       |		JSR	FirstField(MOD input : String; MOD output : String; VAR c : Bool
0002279a de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002279e 4a 2e ff fd              |J.      |		TST.B	(A6-0x3)
000227a2 66 30                    |f0      |		BNE	0x227d4
000227a4 9e c4                    |        |		SUBA.W	D4,A7
000227a6 20 4f                    | O      |		MOVEA.L	A7,A0
000227a8 43 fa dc 34              |C  4    |		LEA.L	0x203de,A1
000227ac 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
000227ae 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000227b0 51 c8 ff fc              |Q       |		DBF	D0,0x227ae
000227b4 1f 03                    |        |		MOVE.B	D3,-(A7)
000227b6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000227b8 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000227bc 3f 02                    |?       |		MOVE.W	D2,-(A7)
000227be 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
000227c2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000227c8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000227ca 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000227d0 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
000227d4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000227d6 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000227d8 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
000227de 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000227e0 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
000227e2 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
000227e6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000227ec 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000227ee 3e ba d9 54              |>  T    |		MOVE.W	0x20144,(A7)
000227f2 3f 3a d9 4e              |?: N    |		MOVE.W	0x20142,-(A7)
000227f6 3f 3a d9 48              |?: H    |		MOVE.W	0x20140,-(A7)
000227fa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000227fc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022800 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022802 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00022806 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002280c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002280e 2d 5f 00 08              |-_      |		MOVE.L	(A7)+,(A6+0x8)
00022812 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022814 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022816 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002281a 4e b9 00 01 03 00        |N       |		JSR	FSCALL_10300
00022820 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022822 4a 9f                    |J       |		TST.L	(A7)+
00022824 66 14                    |f       |		BNE	0x2283a
00022826 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022828 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002282a 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0002282e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022834 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022836 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00022838 60 0c                    |`       |		BRA	0x22846
0002283a 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
0002283e 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022844 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022846 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022848 42 27                    |B'      |		CLR.B	-(A7)
0002284a 1f 05                    |        |		MOVE.B	D5,-(A7)
0002284c 48 78 00 00              |Hx      |		PEA.L	0x0
00022850 48 6e ff e4              |Hn      |		PEA.L	(A6-0x1c)
00022854 48 6e ff e0              |Hn      |		PEA.L	(A6-0x20)
00022858 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0002285e de fc 00 14              |        |		ADDA.W	#0x14,A7
00022862 2d 79 00 02 41 ca ff f2  |-y  A   |		MOVE.L	0x241ca,(A6-0xe)
0002286a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002286c 20 6e ff f2              | n      |		MOVEA.L	(A6-0xe),A0
00022870 b0 c2                    |        |		CMPA.W	D2,A0
00022872 67 20                    |g       |		BEQ	0x22894
00022874 4a 07                    |J       |		TST.B	D7
00022876 67 1c                    |g       |		BEQ	0x22894
00022878 22 6e ff e0              |"n      |		MOVEA.L	(A6-0x20),A1
0002287c 24 48                    |$H      |		MOVEA.L	A0,A2
0002287e 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00022880 b5 09                    |        |		CMPM.B	(A1)+,(A2)+
00022882 56 c8 ff fc              |V       |		DBNE	D0,0x22880
00022886 66 04                    |f       |		BNE	0x2288c
00022888 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002288a 60 06                    |`       |		BRA	0x22892
0002288c 2d 68 00 2e ff f2        |-h .    |		MOVE.L	(A0+0x2e),(A6-0xe)
00022892 60 d8                    |`       |		BRA	0x2286c
00022894 4a 07                    |J       |		TST.B	D7
00022896 67 46                    |gF      |		BEQ	0x228de
00022898 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
0002289c 48 78 00 32              |Hx 2    |		PEA.L	0x32
000228a0 4e b9 00 01 02 9c        |N       |		JSR	Malloc1(length : Long) : Pointer
000228a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228a8 20 6e ff f2              | n      |		MOVEA.L	(A6-0xe),A0
000228ac 22 6e ff e0              |"n      |		MOVEA.L	(A6-0x20),A1
000228b0 24 48                    |$H      |		MOVEA.L	A0,A2
000228b2 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000228b4 14 d9                    |        |		MOVE.B	(A1)+,(A2)+
000228b6 51 c8 ff fc              |Q       |		DBF	D0,0x228b4
000228ba 21 42 00 2a              |!B *    |		MOVE.L	D2,(A0+0x2a)
000228be 21 79 00 02 41 ca 00 2e  |!y  A  .|		MOVE.L	0x241ca,(A0+0x2e)
000228c6 41 e8 00 1e              |A       |		LEA.L	(A0+0x1e),A0
000228ca 43 fa dd ca              |C       |		LEA.L	0x20696,A1
000228ce 70 07                    |p       |		MOVEQ.L	#0x07,D0
000228d0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000228d2 51 c8 ff fc              |Q       |		DBF	D0,0x228d0
000228d6 23 ee ff f2 00 02 41 ca  |#     A |		MOVE.L	(A6-0xe),0x241ca
000228de 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000228e2 b0 c2                    |        |		CMPA.W	D2,A0
000228e4 67 72                    |gr      |		BEQ	0x22958
000228e6 28 79 00 02 41 ca        |(y  A   |		MOVEA.L	0x241ca,A4
000228ec 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000228ee b8 c2                    |        |		CMPA.W	D2,A4
000228f0 67 14                    |g       |		BEQ	0x22906
000228f2 4a 06                    |J       |		TST.B	D6
000228f4 66 10                    |f       |		BNE	0x22906
000228f6 b9 ee 00 0c              |        |		CMPA.L	(A6+0xc),A4
000228fa 66 04                    |f       |		BNE	0x22900
000228fc 7c 01                    ||       |		MOVEQ.L	#0x01,D6
000228fe 60 04                    |`       |		BRA	0x22904
00022900 28 6c 00 2e              |(l .    |		MOVEA.L	(A4+0x2e),A4
00022904 60 e8                    |`       |		BRA	0x228ee
00022906 4a 06                    |J       |		TST.B	D6
00022908 66 2a                    |f*      |		BNE	0x22934
0002290a 41 fa db 08              |A       |		LEA.L	0x20414,A0
0002290e 70 05                    |p       |		MOVEQ.L	#0x05,D0
00022910 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022912 51 c8 ff fc              |Q       |		DBF	D0,0x22910
00022916 1f 03                    |        |		MOVE.B	D3,-(A7)
00022918 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002291a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002291e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022920 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00022924 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002292a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002292c 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022932 de c4                    |        |		ADDA.W	D4,A7
00022934 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00022938 48 78 00 08              |Hx      |		PEA.L	0x8
0002293c 4e b9 00 01 02 9c        |N       |		JSR	Malloc1(length : Long) : Pointer
00022942 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022944 20 6e ff f6              | n      |		MOVEA.L	(A6-0xa),A0
00022948 20 ae ff f2              |        |		MOVE.L	(A6-0xe),(A0)
0002294c 21 6c 00 2a 00 04        |!l *    |		MOVE.L	(A4+0x2a),(A0+0x4)
00022952 29 6e ff f6 00 2a        |)n   *  |		MOVE.L	(A6-0xa),(A4+0x2a)
00022958 4a 07                    |J       |		TST.B	D7
0002295a 67 00 01 16              |g       |		BEQ	0x22a72
0002295e 41 fa da be              |A       |		LEA.L	0x2041e,A0
00022962 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022964 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022966 51 c8 ff fc              |Q       |		DBF	D0,0x22964
0002296a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002296c 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00022970 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022972 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00022976 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002297c 2e 93                    |.       |		MOVE.L	(A3),(A7)
0002297e 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022984 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022986 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002298c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002298e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022994 de c3                    |        |		ADDA.W	D3,A7
00022996 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
0002299a 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000229a0 2e ae ff e0              |.       |		MOVE.L	(A6-0x20),(A7)
000229a4 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
000229a8 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000229ac 4e b9 00 01 04 3c        |N    <  |		JSR	FileReadLine(file : File; VAR a : String; VAR b : Byte)
000229b2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000229b4 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
000229b8 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
000229be 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000229c0 20 5f                    | _      |		MOVEA.L	(A7)+,A0
000229c2 2d 48 ff ea              |-H      |		MOVE.L	A0,(A6-0x16)
000229c6 4a 50                    |JP      |		TST.W	(A0)
000229c8 66 10                    |f       |		BNE	0x229da
000229ca 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
000229ce 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000229d4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000229d6 60 00 00 92              |`       |		BRA	0x22a6a
000229da 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000229dc 2f 08                    |/       |		MOVE.L	A0,-(A7)
000229de 4e ba fc 0a              |N       |		JSR	0x225ea
000229e2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000229e4 10 1f                    |        |		MOVE.B	(A7)+,D0
000229e6 48 80                    |H       |		EXTB.W	D0
000229e8 0c 40 00 04              | @      |		CMPI.W	#0x0004,D0
000229ec 63 02                    |c       |		BLS	0x229f0
000229ee 4e 4e                    |NN      |		TRAP	#14
000229f0 d0 40                    | @      |		ADD.W	D0,D0
000229f2 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000229fa 00 20                    |        |		.CONST	0x20			; [0x0] -> 0x22a1a
000229fc 00 0a                    |        |		.CONST	0xa			; [0x1] -> 0x22a04
000229fe 00 28                    | (      |		.CONST	0x28			; [0x2] -> 0x22a22
00022a00 00 34                    | 4      |		.CONST	0x34			; [0x3] -> 0x22a2e
00022a02 00 36                    | 6      |		.CONST	0x36			; [0x4] -> 0x22a30
00022a04					switch@0x229f2[0x1]:
00022a04 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
00022a08 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022a0a 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022a0c 4e ba f7 00              |N       |		JSR	0x2210e
00022a10 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a12 4e ba fd 4c              |N  L    |		JSR	0x22760
00022a16 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022a18 60 50                    |`P      |		BRA	0x22a6a
00022a1a					switch@0x229f2[0x0]:
00022a1a 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022a1c 4e ba eb 28              |N  (    |		JSR	0x21546
00022a20 60 b2                    |`       |		BRA	0x229d4
00022a22					switch@0x229f2[0x2]:
00022a22 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
00022a26 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022a28 4e ba fc 78              |N  x    |		JSR	0x226a2
00022a2c 60 e8                    |`       |		BRA	0x22a16
00022a2e					switch@0x229f2[0x3]:
00022a2e 60 9a                    |`       |		BRA	0x229ca
00022a30					switch@0x229f2[0x4]:
00022a30 2f 3a d9 f8              |/:      |		MOVE.L	0x2042a,-(A7)
00022a34 2f 3a d9 f0              |/:      |		MOVE.L	0x20426,-(A7)
00022a38 2f 3a d9 e8              |/:      |		MOVE.L	0x20422,-(A7)
00022a3c 2f 3a d9 e0              |/:      |		MOVE.L	0x2041e,-(A7)
00022a40 1f 03                    |        |		MOVE.B	D3,-(A7)
00022a42 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022a44 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00022a48 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022a4a 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
00022a4e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022a54 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a56 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022a58 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022a5e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022a60 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022a66 de fc 00 16              |        |		ADDA.W	#0x16,A7
00022a6a 4a 2e ff fa              |J.      |		TST.B	(A6-0x6)
00022a6e 67 00 ff 26              |g  &    |		BEQ	0x22996
00022a72 42 27                    |B'      |		CLR.B	-(A7)
00022a74 1f 05                    |        |		MOVE.B	D5,-(A7)
00022a76 48 78 00 01              |Hx      |		PEA.L	0x1
00022a7a 48 6e ff e4              |Hn      |		PEA.L	(A6-0x1c)
00022a7e 48 6e ff e0              |Hn      |		PEA.L	(A6-0x20)
00022a82 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00022a88 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022a8c 48 53                    |HS      |		PEA.L	(A3)
00022a8e 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022a94 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a96 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022a9a 4e 5e                    |N^      |		UNLK	A6
00022a9c 4e 75                    |Nu      |		RTS
00022a9e ; --------------------------------------------------------------------------------------
00022a9e ; OMSI PASCAL Function
00022a9e ; --------------------------------------------------------------------------------------
00022a9e 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae		; Spelunked
00022aa2 bf d5                    |        |		CMPA.L	(A5),A7
00022aa4 62 06                    |b       |		BHI	0x22aac
00022aa6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022aaa 4e 76                    |Nv      |		TRAPV
00022aac de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
00022ab0 48 e7 c1 c8              |H       |		MOVEM.L	A4+A1+A0+D7+D1+D0,-(A7)
00022ab4 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
00022ab6 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022ab8 10 07                    |        |		MOVE.B	D7,D0
00022aba 48 80                    |H       |		EXTB.W	D0
00022abc eb 40                    | @      |		ASL.W	#0x5,D0
00022abe 41 f9 00 02 3e 90        |A   >   |		LEA.L	0x23e90,A0
00022ac4 9e c1                    |        |		SUBA.W	D1,A7
00022ac6 22 4f                    |"O      |		MOVEA.L	A7,A1
00022ac8 41 f0 00 5d              |A  ]    |		LEA.L	(A0+D0.W+#0x5d),A0
00022acc 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00022ace 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00022ad0 51 c8 ff fc              |Q       |		DBF	D0,0x22ace
00022ad4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022ad6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022ada 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022ade 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022ae0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022ae6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022ae8 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00022aea de c1                    |        |		ADDA.W	D1,A7
00022aec 48 78 00 01              |Hx      |		PEA.L	0x1
00022af0 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00022af2 4e ba fc 6c              |N  l    |		JSR	0x22760
00022af6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022af8 52 07                    |R       |		ADDQ.B	#0x1,D7
00022afa 0c 07 00 04              |        |		CMPI.B	#0x04,D7
00022afe 6f b8                    |o       |		BLE	0x22ab8
00022b00 4c df 13 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A4
00022b04 4e 5e                    |N^      |		UNLK	A6
00022b06 4e 75                    |Nu      |		RTS
00022b08 ; --------------------------------------------------------------------------------------
00022b08 ; OMSI PASCAL Function
00022b08 ;    <LVAR -0x004 @ 4(rw)>
00022b08 ; --------------------------------------------------------------------------------------
00022b08 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8		; Spelunked
00022b0c bf d5                    |        |		CMPA.L	(A5),A7
00022b0e 62 06                    |b       |		BHI	0x22b16
00022b10 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022b14 4e 76                    |Nv      |		TRAPV
00022b16 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00022b1a 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
00022b1e 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00022b22 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00022b26 20 4f                    | O      |		MOVEA.L	A7,A0
00022b28 43 fa d9 04              |C       |		LEA.L	0x2042e,A1
00022b2c 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022b2e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022b30 51 c8 ff fc              |Q       |		DBF	D0,0x22b2e
00022b34 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022b36 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022b3a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022b3e 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00022b42 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022b48 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022b4a 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022b4c de fc 00 10              |        |		ADDA.W	#0x10,A7
00022b50 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022b52 48 79 00 02 3e 9a        |Hy  >   |		PEA.L	0x23e9a
00022b58 4e b9 00 01 05 74        |N    t  |		JSR	Write_ConfigFile(name: String; dst: Pointer)
00022b5e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022b60 48 52                    |HR      |		PEA.L	(A2)
00022b62 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022b68 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b6a 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
00022b6e 4e 5e                    |N^      |		UNLK	A6
00022b70 4e 75                    |Nu      |		RTS
00022b72 ; --------------------------------------------------------------------------------------
00022b72 ; OMSI PASCAL Function
00022b72 ;    <LVAR -0x006 @ 4(rw)>
00022b72 ; --------------------------------------------------------------------------------------
00022b72 4e 56 ff 86              |NV      |		LINK.W	A6,#0xff86
00022b76 bf d5                    |        |		CMPA.L	(A5),A7
00022b78 62 06                    |b       |		BHI	0x22b80
00022b7a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022b7e 4e 76                    |Nv      |		TRAPV
00022b80 de fc 00 72              |   r    |		ADDA.W	#0x72,A7
00022b84 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022b88 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00022b8e 49 ee ff fa              |I       |		LEA.L	(A6-0x6),A4
00022b92 74 01                    |t       |		MOVEQ.L	#0x01,D2
00022b94 76 02                    |v       |		MOVEQ.L	#0x02,D3
00022b96 78 10                    |x       |		MOVEQ.L	#0x10,D4
00022b98 7a 1e                    |z       |		MOVEQ.L	#0x1e,D5
00022b9a 23 c3 00 02 41 c2        |#   A   |		MOVE.L	D3,0x241c2
00022ba0 23 c3 00 02 41 c6        |#   A   |		MOVE.L	D3,0x241c6
00022ba6 23 c2 00 02 41 ca        |#   A   |		MOVE.L	D2,0x241ca
00022bac 23 c2 00 02 41 ce        |#   A   |		MOVE.L	D2,0x241ce
00022bb2 4a 39 00 02 3e 9f        |J9  >   |		TST.B	0x23e9f
00022bb8 67 04                    |g       |		BEQ	0x22bbe
00022bba 7c 04                    ||       |		MOVEQ.L	#0x04,D6
00022bbc 60 02                    |`       |		BRA	0x22bc0
00022bbe 7c 09                    ||       |		MOVEQ.L	#0x09,D6
00022bc0 1f 06                    |        |		MOVE.B	D6,-(A7)
00022bc2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022bc4 be 17                    |        |		CMP.B	(A7),D7
00022bc6 6e 0a                    |n       |		BGT	0x22bd2
00022bc8 10 17                    |        |		MOVE.B	(A7),D0
00022bca 0c 00 00 09              |        |		CMPI.B	#0x09,D0
00022bce 6f 02                    |o       |		BLE	0x22bd2
00022bd0 4e 4f                    |NO      |		TRAP	#15
00022bd2 be 17                    |        |		CMP.B	(A7),D7
00022bd4 6e 70                    |np      |		BGT	0x22c46
00022bd6 10 07                    |        |		MOVE.B	D7,D0
00022bd8 48 80                    |H       |		EXTB.W	D0
00022bda eb 40                    | @      |		ASL.W	#0x5,D0
00022bdc 41 f9 00 02 3e 90        |A   >   |		LEA.L	0x23e90,A0
00022be2 9e c4                    |        |		SUBA.W	D4,A7
00022be4 22 4f                    |"O      |		MOVEA.L	A7,A1
00022be6 45 fa d8 5a              |E  Z    |		LEA.L	0x20442,A2
00022bea 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
00022bec 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00022bee 51 c9 ff fc              |Q       |		DBF	D1,0x22bec
00022bf2 3f 3a d5 50              |?: P    |		MOVE.W	0x20144,-(A7)
00022bf6 3f 3a d5 4a              |?: J    |		MOVE.W	0x20142,-(A7)
00022bfa 3f 3a d5 44              |?: D    |		MOVE.W	0x20140,-(A7)
00022bfe 48 70 00 5b              |Hp [    |		PEA.L	(A0+D0.W+#0x5b)
00022c02 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00022c06 48 68 01 ed              |Hh      |		PEA.L	(A0+0x1ed)
00022c0a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022c0c 48 6f 00 16              |Ho      |		PEA.L	(A7+0x16)
00022c10 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022c12 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00022c16 4e 93                    |N       |		JSR	(A3)
00022c18 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022c1a 1e 87                    |        |		MOVE.B	D7,(A7)
00022c1c 4e b9 00 01 05 86        |N       |		JSR	Config_Entry_Name(a : Byte) : String
00022c22 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022c24 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022c2a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c2c 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00022c30 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022c32 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00022c36 4e 93                    |N       |		JSR	(A3)
00022c38 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c3a 4e ba e1 00              |N       |		JSR	0x20d3c
00022c3e de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00022c42 52 07                    |R       |		ADDQ.B	#0x1,D7
00022c44 68 8c                    |h       |		BVC	0x22bd2
00022c46 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022c48 13 c2 00 02 41 c0        |    A   |		MOVE.B	D2,0x241c0
00022c4e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022c50 10 07                    |        |		MOVE.B	D7,D0
00022c52 48 80                    |H       |		EXTB.W	D0
00022c54 eb 40                    | @      |		ASL.W	#0x5,D0
00022c56 41 f9 00 02 3e 90        |A   >   |		LEA.L	0x23e90,A0
00022c5c 9e c5                    |        |		SUBA.W	D5,A7
00022c5e 22 4f                    |"O      |		MOVEA.L	A7,A1
00022c60 41 f0 00 5d              |A  ]    |		LEA.L	(A0+D0.W+#0x5d),A0
00022c64 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00022c66 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00022c68 51 c8 ff fc              |Q       |		DBF	D0,0x22c66
00022c6c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c6e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c72 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022c74 3f 05                    |?       |		MOVE.W	D5,-(A7)
00022c76 4e 93                    |N       |		JSR	(A3)
00022c78 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c7a 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00022c7c de c5                    |        |		ADDA.W	D5,A7
00022c7e 48 78 00 01              |Hx      |		PEA.L	0x1
00022c82 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00022c84 4e ba fa da              |N       |		JSR	0x22760
00022c88 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c8a 52 07                    |R       |		ADDQ.B	#0x1,D7
00022c8c 0c 07 00 04              |        |		CMPI.B	#0x04,D7
00022c90 6f be                    |o       |		BLE	0x22c50
00022c92 42 39 00 02 41 c0        |B9  A   |		CLR.B	0x241c0
00022c98 4a 39 00 02 3e 9f        |J9  >   |		TST.B	0x23e9f
00022c9e 66 1e                    |f       |		BNE	0x22cbe
00022ca0 48 78 00 01              |Hx      |		PEA.L	0x1
00022ca4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022ca6 1f 3c 00 09              | <      |		MOVE.B	#0x09,-(A7)
00022caa 4e b9 00 01 05 86        |N       |		JSR	Config_Entry_Name(a : Byte) : String
00022cb0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022cb2 4e ba f4 5a              |N  Z    |		JSR	0x2210e
00022cb6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022cb8 4e ba fa a6              |N       |		JSR	0x22760
00022cbc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022cbe 3f 3a d7 92              |?:      |		MOVE.W	0x20452,-(A7)
00022cc2 41 fa d7 aa              |A       |		LEA.L	0x2046e,A0
00022cc6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022cc8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022cca 51 c8 ff fc              |Q       |		DBF	D0,0x22cc8
00022cce 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022cd0 2f 39 00 02 41 c2        |/9  A   |		MOVE.L	0x241c2,-(A7)
00022cd6 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00022cdc 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00022ce0 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022ce2 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022ce4 4e 93                    |N       |		JSR	(A3)
00022ce6 2e b9 00 02 41 c6        |.   A   |		MOVE.L	0x241c6,(A7)
00022cec 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00022cf2 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00022cf6 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022cf8 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
00022cfc 4e 93                    |N       |		JSR	(A3)
00022cfe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d00 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00022d06 de c4                    |        |		ADDA.W	D4,A7
00022d08 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00022d0e de fc 00 0c              |        |		ADDA.W	#0xc,A7
00022d12 20 4f                    | O      |		MOVEA.L	A7,A0
00022d14 43 fa d7 58              |C  X    |		LEA.L	0x2046e,A1
00022d18 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022d1a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022d1c 51 c8 ff fc              |Q       |		DBF	D0,0x22d1a
00022d20 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d22 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d26 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022d28 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00022d2c 4e 93                    |N       |		JSR	(A3)
00022d2e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d30 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00022d32 de c4                    |        |		ADDA.W	D4,A7
00022d34 2e 94                    |.       |		MOVE.L	(A4),(A7)
00022d36 48 79 00 02 3e 9a        |Hy  >   |		PEA.L	0x23e9a
00022d3c 4e b9 00 01 05 74        |N    t  |		JSR	Write_ConfigFile(name: String; dst: Pointer)
00022d42 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d44 48 54                    |HT      |		PEA.L	(A4)
00022d46 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022d4c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022d4e 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022d52 4e 5e                    |N^      |		UNLK	A6
00022d54 4e 75                    |Nu      |		RTS
00022d56 ; --------------------------------------------------------------------------------------
00022d56 ; OMSI PASCAL Function
00022d56 ;    <LVAR -0x002 @>
00022d56 ;    <LVAR -0x006 @ 4(rw)>
00022d56 ;    <LVAR -0x007 @ 1(r)>
00022d56 ; --------------------------------------------------------------------------------------
00022d56 4e 56 ff 5c              |NV \    |		LINK.W	A6,#0xff5c
00022d5a bf d5                    |        |		CMPA.L	(A5),A7
00022d5c 62 06                    |b       |		BHI	0x22d64
00022d5e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022d62 4e 76                    |Nv      |		TRAPV
00022d64 de fc 00 98              |        |		ADDA.W	#0x98,A7
00022d68 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022d6c 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00022d70 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00022d76 49 ee ff f9              |I       |		LEA.L	(A6-0x7),A4
00022d7a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022d7c 74 10                    |t       |		MOVEQ.L	#0x10,D2
00022d7e 76 14                    |v       |		MOVEQ.L	#0x14,D3
00022d80 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
00022d82 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00022d84 7c 3c                    ||<      |		MOVEQ.L	#0x3c,D6
00022d86 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022d88 4e b9 00 01 03 c4        |N       |		JSR	GetArgv() : String
00022d8e 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
00022d94 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022d96 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022d98 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022d9a 20 52                    | R      |		MOVEA.L	(A2),A0
00022d9c 4a 50                    |JP      |		TST.W	(A0)
00022d9e 66 02                    |f       |		BNE	0x22da2
00022da0 52 07                    |R       |		ADDQ.B	#0x1,D7
00022da2 4a 07                    |J       |		TST.B	D7
00022da4 67 6a                    |gj      |		BEQ	0x22e10
00022da6 48 52                    |HR      |		PEA.L	(A2)
00022da8 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022dae 9e fc 00 2e              |   .    |		SUBA.W	#0x2e,A7
00022db2 20 4f                    | O      |		MOVEA.L	A7,A0
00022db4 43 fa d6 cc              |C       |		LEA.L	0x20482,A1
00022db8 70 30                    |p0      |		MOVEQ.L	#0x30,D0
00022dba 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022dbc 51 c8 ff fc              |Q       |		DBF	D0,0x22dba
00022dc0 9e c4                    |        |		SUBA.W	D4,A7
00022dc2 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00022dc6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022dc8 3f 3c 00 31              |?< 1    |		MOVE.W	#0x31,-(A7)
00022dcc 4e 93                    |N       |		JSR	(A3)
00022dce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022dd0 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00022dd6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022dd8 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
00022dde 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022de0 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022de2 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00022de6 20 52                    | R      |		MOVEA.L	(A2),A0
00022de8 4a 50                    |JP      |		TST.W	(A0)
00022dea 66 24                    |f$      |		BNE	0x22e10
00022dec 48 52                    |HR      |		PEA.L	(A2)
00022dee 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022df4 2e ba d7 24              |.  $    |		MOVE.L	0x2051a,(A7)
00022df8 2f 3a d7 1c              |/:      |		MOVE.L	0x20516,-(A7)
00022dfc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022dfe 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022e02 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022e04 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00022e08 4e 93                    |N       |		JSR	(A3)
00022e0a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e0c 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022e0e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e10 2f 3a d7 14              |/:      |		MOVE.L	0x20526,-(A7)
00022e14 2f 3a d7 0c              |/:      |		MOVE.L	0x20522,-(A7)
00022e18 2f 3a d7 04              |/:      |		MOVE.L	0x2051e,-(A7)
00022e1c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022e1e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022e20 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022e22 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00022e26 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022e28 3f 04                    |?       |		MOVE.W	D4,-(A7)
00022e2a 4e 93                    |N       |		JSR	(A3)
00022e2c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e2e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022e34 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e36 20 5f                    | _      |		MOVEA.L	(A7)+,A0
00022e38 24 88                    |$       |		MOVE.L	A0,(A2)
00022e3a 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022e3c 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022e3e 48 78 00 03              |Hx      |		PEA.L	0x3
00022e42 48 79 00 02 3e 9a        |Hy  >   |		PEA.L	0x23e9a
00022e48 48 54                    |HT      |		PEA.L	(A4)
00022e4a 4e b9 00 01 05 6e        |N    n  |		JSR	Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
00022e50 de c2                    |        |		ADDA.W	D2,A7
00022e52 4a 14                    |J       |		TST.B	(A4)
00022e54 66 00 00 b4              |f       |		BNE	0x22f0a
00022e58 4a 07                    |J       |		TST.B	D7
00022e5a 66 28                    |f(      |		BNE	0x22e84
00022e5c 41 fa d6 e6              |A       |		LEA.L	0x20544,A0
00022e60 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022e62 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022e64 51 c8 ff fc              |Q       |		DBF	D0,0x22e62
00022e68 1f 05                    |        |		MOVE.B	D5,-(A7)
00022e6a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022e6c 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00022e70 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022e72 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
00022e76 4e 93                    |N       |		JSR	(A3)
00022e78 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e7a 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022e80 de fc 00 20              |        |		ADDA.W	#0x20,A7
00022e84 9e c6                    |        |		SUBA.W	D6,A7
00022e86 20 4f                    | O      |		MOVEA.L	A7,A0
00022e88 43 fa d6 2a              |C  *    |		LEA.L	0x204b4,A1
00022e8c 70 3a                    |p:      |		MOVEQ.L	#0x3a,D0
00022e8e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022e90 51 c8 ff fc              |Q       |		DBF	D0,0x22e8e
00022e94 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00022e96 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00022e9a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022e9c 3f 3c 00 3b              |?< ;    |		MOVE.W	#0x3b,-(A7)
00022ea0 4e 93                    |N       |		JSR	(A3)
00022ea2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022ea4 42 17                    |B       |		CLR.B	(A7)
00022ea6 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00022eac 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022eae 4a 1f                    |J       |		TST.B	(A7)+
00022eb0 67 56                    |gV      |		BEQ	0x22f08
00022eb2 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00022eb4 20 4f                    | O      |		MOVEA.L	A7,A0
00022eb6 43 fa d6 8c              |C       |		LEA.L	0x20544,A1
00022eba 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022ebc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022ebe 51 c8 ff fc              |Q       |		DBF	D0,0x22ebc
00022ec2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022ec4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022ec8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022eca 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00022ece 4e 93                    |N       |		JSR	(A3)
00022ed0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022ed2 20 6f 00 4a              | o J    |		MOVEA.L	(A7+0x4a),A0
00022ed6 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022ed8 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022ede 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022ee0 1e 81                    |        |		MOVE.B	D1,(A7)
00022ee2 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00022ee6 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00022eec de c3                    |        |		ADDA.W	D3,A7
00022eee 20 6f 00 3c              | o <    |		MOVEA.L	(A7+0x3c),A0
00022ef2 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022ef4 48 78 00 03              |Hx      |		PEA.L	0x3
00022ef8 48 79 00 02 3e 9a        |Hy  >   |		PEA.L	0x23e9a
00022efe 48 54                    |HT      |		PEA.L	(A4)
00022f00 4e b9 00 01 05 6e        |N    n  |		JSR	Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
00022f06 de c2                    |        |		ADDA.W	D2,A7
00022f08 de c6                    |        |		ADDA.W	D6,A7
00022f0a 4a 14                    |J       |		TST.B	(A4)
00022f0c 67 00 00 90              |g       |		BEQ	0x22f9e
00022f10 4a 39 00 02 3e 9d        |J9  >   |		TST.B	0x23e9d
00022f16 67 00 00 86              |g       |		BEQ	0x22f9e
00022f1a 41 fa d5 fa              |A       |		LEA.L	0x20516,A0
00022f1e 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022f20 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022f22 51 c8 ff fc              |Q       |		DBF	D0,0x22f20
00022f26 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00022f28 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00022f2c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022f2e 3f 3c 00 26              |?< &    |		MOVE.W	#0x26,-(A7)
00022f32 4e 93                    |N       |		JSR	(A3)
00022f34 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022f36 42 17                    |B       |		CLR.B	(A7)
00022f38 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00022f3e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022f40 4a 1f                    |J       |		TST.B	(A7)+
00022f42 67 56                    |gV      |		BEQ	0x22f9a
00022f44 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00022f46 20 4f                    | O      |		MOVEA.L	A7,A0
00022f48 43 fa d6 00              |C       |		LEA.L	0x2054a,A1
00022f4c 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022f4e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022f50 51 c8 ff fc              |Q       |		DBF	D0,0x22f4e
00022f54 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f56 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022f5a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022f5c 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00022f60 4e 93                    |N       |		JSR	(A3)
00022f62 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022f64 20 6f 00 34              | o 4    |		MOVEA.L	(A7+0x34),A0
00022f68 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022f6a 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022f70 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022f72 1e 81                    |        |		MOVE.B	D1,(A7)
00022f74 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00022f78 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00022f7e de c3                    |        |		ADDA.W	D3,A7
00022f80 20 6f 00 26              | o &    |		MOVEA.L	(A7+0x26),A0
00022f84 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022f86 48 78 00 03              |Hx      |		PEA.L	0x3
00022f8a 48 79 00 02 3e 9a        |Hy  >   |		PEA.L	0x23e9a
00022f90 48 54                    |HT      |		PEA.L	(A4)
00022f92 4e b9 00 01 05 6e        |N    n  |		JSR	Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
00022f98 de c2                    |        |		ADDA.W	D2,A7
00022f9a de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00022f9e de c2                    |        |		ADDA.W	D2,A7
00022fa0 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00022fa2 4a 14                    |J       |		TST.B	(A4)
00022fa4 67 00 fd fc              |g       |		BEQ	0x22da2
00022fa8 41 fa d5 ba              |A       |		LEA.L	0x20564,A0
00022fac 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022fae 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022fb0 51 c8 ff fc              |Q       |		DBF	D0,0x22fae
00022fb4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022fb6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022fba 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022fbc 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022fbe 4e 93                    |N       |		JSR	(A3)
00022fc0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022fc2 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00022fc4 de c2                    |        |		ADDA.W	D2,A7
00022fc6 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022fc8 48 78 00 03              |Hx      |		PEA.L	0x3
00022fcc 48 79 00 02 40 2c        |Hy  @,  |		PEA.L	0x2402c
00022fd2 48 54                    |HT      |		PEA.L	(A4)
00022fd4 4e b9 00 01 05 6e        |N    n  |		JSR	Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
00022fda de c2                    |        |		ADDA.W	D2,A7
00022fdc 4a 14                    |J       |		TST.B	(A4)
00022fde 66 2e                    |f.      |		BNE	0x2300e
00022fe0 9e fc 00 24              |   $    |		SUBA.W	#0x24,A7
00022fe4 20 4f                    | O      |		MOVEA.L	A7,A0
00022fe6 43 fa d5 7c              |C  |    |		LEA.L	0x20564,A1
00022fea 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00022fec 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022fee 51 c8 ff fc              |Q       |		DBF	D0,0x22fec
00022ff2 1f 05                    |        |		MOVE.B	D5,-(A7)
00022ff4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022ff6 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00022ffa 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022ffc 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
00023000 4e 93                    |N       |		JSR	(A3)
00023002 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023004 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002300a de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
0002300e 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00023012 4e 5e                    |N^      |		UNLK	A6
00023014 4e 75                    |Nu      |		RTS
00023016 ; --------------------------------------------------------------------------------------
00023016 ; OMSI PASCAL Function
00023016 ;    <LVAR -0x004 @>
00023016 ; --------------------------------------------------------------------------------------
00023016 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
0002301a bf d5                    |        |		CMPA.L	(A5),A7
0002301c 62 06                    |b       |		BHI	0x23024
0002301e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023022 4e 76                    |Nv      |		TRAPV
00023024 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00023028 48 e7 e0 c0              |H       |		MOVEM.L	A1+A0+D2+D1+D0,-(A7)
0002302c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002302e 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
00023030 4a 39 00 02 3e 9c        |J9  >   |		TST.B	0x23e9c
00023036 67 6e                    |gn      |		BEQ	0x230a6
00023038 9e c2                    |        |		SUBA.W	D2,A7
0002303a 20 4f                    | O      |		MOVEA.L	A7,A0
0002303c 43 fa d5 4a              |C  J    |		LEA.L	0x20588,A1
00023040 70 08                    |p       |		MOVEQ.L	#0x08,D0
00023042 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023044 51 c8 ff fc              |Q       |		DBF	D0,0x23042
00023048 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002304a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002304e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023050 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00023054 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002305a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002305c 42 17                    |B       |		CLR.B	(A7)
0002305e 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00023064 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023066 4a 1f                    |J       |		TST.B	(A7)+
00023068 67 3a                    |g:      |		BEQ	0x230a4
0002306a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002306c 1e ba d5 24              |   $    |		MOVE.B	0x20592,(A7)
00023070 1f 7a d5 21 00 01        | z !    |		MOVE.B	0x20593,(A7+0x1)
00023076 1f 7a d5 1c 00 02        | z      |		MOVE.B	0x20594,(A7+0x2)
0002307c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002307e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023082 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023084 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00023088 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002308e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023090 48 78 00 01              |Hx      |		PEA.L	0x1
00023094 1f 01                    |        |		MOVE.B	D1,-(A7)
00023096 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002309a 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
000230a0 de fc 00 12              |        |		ADDA.W	#0x12,A7
000230a4 de c2                    |        |		ADDA.W	D2,A7
000230a6 4c df 03 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1
000230aa 4e 5e                    |N^      |		UNLK	A6
000230ac 4e 75                    |Nu      |		RTS
000230ae ; --------------------------------------------------------------------------------------
000230ae ; OMSI PASCAL Function
000230ae ;    <LVAR -0x004 @ 4(r)>
000230ae ;    <LVAR -0x008 @>
000230ae ;    <LVAR -0x00a @>
000230ae ;    <LVAR -0x00c @ 2(r)>
000230ae ;    <LVAR -0x010 @>
000230ae ; --------------------------------------------------------------------------------------
000230ae 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
000230b2 bf d5                    |        |		CMPA.L	(A5),A7
000230b4 62 06                    |b       |		BHI	0x230bc
000230b6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000230ba 4e 76                    |Nv      |		TRAPV
000230bc de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
000230c0 48 e7 f8 c0              |H       |		MOVEM.L	A1+A0+D4+D3+D2+D1+D0,-(A7)
000230c4 43 f9 00 01 02 38        |C    8  |		LEA.L	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word),A1
000230ca 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
000230cc 76 04                    |v       |		MOVEQ.L	#0x04,D3
000230ce 78 02                    |x       |		MOVEQ.L	#0x02,D4
000230d0 48 78 04 00              |Hx      |		PEA.L	0x400
000230d4 41 ee ff f0              |A       |		LEA.L	(A6-0x10),A0
000230d8 2f 08                    |/       |		MOVE.L	A0,-(A7)
000230da 3f 03                    |?       |		MOVE.W	D3,-(A7)
000230dc 4e 91                    |N       |		JSR	(A1)
000230de de c2                    |        |		ADDA.W	D2,A7
000230e0 48 78 04 04              |Hx      |		PEA.L	0x404
000230e4 41 ee ff f4              |A       |		LEA.L	(A6-0xc),A0
000230e8 2f 08                    |/       |		MOVE.L	A0,-(A7)
000230ea 3f 04                    |?       |		MOVE.W	D4,-(A7)
000230ec 4e 91                    |N       |		JSR	(A1)
000230ee de c2                    |        |		ADDA.W	D2,A7
000230f0 48 78 04 06              |Hx      |		PEA.L	0x406
000230f4 41 ee ff f6              |A       |		LEA.L	(A6-0xa),A0
000230f8 2f 08                    |/       |		MOVE.L	A0,-(A7)
000230fa 3f 04                    |?       |		MOVE.W	D4,-(A7)
000230fc 4e 91                    |N       |		JSR	(A1)
000230fe de c2                    |        |		ADDA.W	D2,A7
00023100 48 78 04 08              |Hx      |		PEA.L	0x408
00023104 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00023108 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002310a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002310c 4e 91                    |N       |		JSR	(A1)
0002310e de c2                    |        |		ADDA.W	D2,A7
00023110 48 78 04 0c              |Hx      |		PEA.L	0x40c
00023114 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
00023118 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002311a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002311c 4e 91                    |N       |		JSR	(A1)
0002311e de c2                    |        |		ADDA.W	D2,A7
00023120 70 00                    |p       |		MOVEQ.L	#0x00,D0
00023122 c0 ee ff f4              |        |		MULU.W	(A6-0xc),D0
00023126 42 81                    |B       |		CLR.L	D1
00023128 32 00                    |2       |		MOVE.W	D0,D1
0002312a d2 ae ff fc              |        |		ADD.L	(A6-0x4),D1
0002312e 23 c1 00 02 41 d6        |#   A   |		MOVE.L	D1,0x241d6
00023134 4c df 03 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1
00023138 4e 5e                    |N^      |		UNLK	A6
0002313a 4e 75                    |Nu      |		RTS
0002313c ; --------------------------------------------------------------------------------------
0002313c ; OMSI PASCAL Function
0002313c ;    <LVAR -0x00e 4(r)>
0002313c ;    <LVAR -0x012 4(r)>
0002313c ;    <LVAR -0x016 @ 4(r)>
0002313c ;    <LVAR -0x01a @ 4(r)>
0002313c ;    <LVAR -0x01c @ 1(r)>
0002313c ; --------------------------------------------------------------------------------------
0002313c 4e 56 ff 94              |NV      |		LINK.W	A6,#0xff94
00023140 bf d5                    |        |		CMPA.L	(A5),A7
00023142 62 06                    |b       |		BHI	0x2314a
00023144 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023148 4e 76                    |Nv      |		TRAPV
0002314a de fc 00 50              |   P    |		ADDA.W	#0x50,A7
0002314e 48 e7 f9 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00023152 45 ee ff e4              |E       |		LEA.L	(A6-0x1c),A2
00023156 47 f9 00 02 42 5a        |G   BZ  |		LEA.L	0x2425a,A3
0002315c 49 ee ff e6              |I       |		LEA.L	(A6-0x1a),A4
00023160 72 01                    |r       |		MOVEQ.L	#0x01,D1
00023162 74 03                    |t       |		MOVEQ.L	#0x03,D2
00023164 76 02                    |v       |		MOVEQ.L	#0x02,D3
00023166 78 10                    |x       |		MOVEQ.L	#0x10,D4
00023168 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
0002316c 20 4f                    | O      |		MOVEA.L	A7,A0
0002316e 43 fa d4 26              |C  &    |		LEA.L	0x20596,A1
00023172 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00023174 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023176 51 c8 ff fc              |Q       |		DBF	D0,0x23174
0002317a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002317c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023180 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023182 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00023186 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002318c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002318e 42 17                    |B       |		CLR.B	(A7)
00023190 42 27                    |B'      |		CLR.B	-(A7)
00023192 48 78 00 00              |Hx      |		PEA.L	0x0
00023196 48 52                    |HR      |		PEA.L	(A2)
00023198 48 54                    |HT      |		PEA.L	(A4)
0002319a 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000231a0 de fc 00 20              |        |		ADDA.W	#0x20,A7
000231a4 4a 12                    |J       |		TST.B	(A2)
000231a6 67 36                    |g6      |		BEQ	0x231de
000231a8 42 53                    |BS      |		CLR.W	(A3)
000231aa 42 79 00 02 42 5c        |By  B\  |		CLR.W	0x2425c
000231b0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000231b2 be 82                    |        |		CMP.L	D2,D7
000231b4 63 02                    |c       |		BLS	0x231b8
000231b6 4e 4f                    |NO      |		TRAP	#15
000231b8 20 07                    |        |		MOVE.L	D7,D0
000231ba e3 80                    |        |		ASL.L	#0x1,D0
000231bc 20 4b                    | K      |		MOVEA.L	A3,A0
000231be 42 70 08 04              |Bp      |		CLR.W	(A0+D0.L+#0x4)
000231c2 52 87                    |R       |		ADDQ.L	#0x1,D7
000231c4 be 82                    |        |		CMP.L	D2,D7
000231c6 6f ea                    |o       |		BLE	0x231b2
000231c8 1f 03                    |        |		MOVE.B	D3,-(A7)
000231ca 42 27                    |B'      |		CLR.B	-(A7)
000231cc 48 78 00 01              |Hx      |		PEA.L	0x1
000231d0 48 52                    |HR      |		PEA.L	(A2)
000231d2 48 54                    |HT      |		PEA.L	(A4)
000231d4 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000231da de c4                    |        |		ADDA.W	D4,A7
000231dc 60 46                    |`F      |		BRA	0x23224
000231de 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000231e0 42 67                    |Bg      |		CLR.W	-(A7)
000231e2 42 67                    |Bg      |		CLR.W	-(A7)
000231e4 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
000231e8 1f 01                    |        |		MOVE.B	D1,-(A7)
000231ea 41 ee ff ea              |A       |		LEA.L	(A6-0x16),A0
000231ee 2f 08                    |/       |		MOVE.L	A0,-(A7)
000231f0 48 52                    |HR      |		PEA.L	(A2)
000231f2 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
000231f8 de fc 00 12              |        |		ADDA.W	#0x12,A7
000231fc 1e 83                    |        |		MOVE.B	D3,(A7)
000231fe 1f 01                    |        |		MOVE.B	D1,-(A7)
00023200 48 78 00 01              |Hx      |		PEA.L	0x1
00023204 48 52                    |HR      |		PEA.L	(A2)
00023206 48 54                    |HT      |		PEA.L	(A4)
00023208 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
0002320e de c4                    |        |		ADDA.W	D4,A7
00023210 26 ae ff ea              |&       |		MOVE.L	(A6-0x16),(A3)
00023214 23 ee ff ee 00 02 42 5e  |#     B^|		MOVE.L	(A6-0x12),0x2425e
0002321c 23 ee ff f2 00 02 42 62  |#     Bb|		MOVE.L	(A6-0xe),0x24262
00023224 4c df 1f 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4
00023228 4e 5e                    |N^      |		UNLK	A6
0002322a 4e 75                    |Nu      |		RTS
0002322c ; --------------------------------------------------------------------------------------
0002322c ; OMSI PASCAL Function
0002322c ; --------------------------------------------------------------------------------------
0002322c					START:
0002322c 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00023230 4e f9 00 01 02 80        |N       |		JMP	?start_program
00023236					MAIN:
00023236 45 f9 00 02 42 67        |E   Bg  |		LEA.L	0x24267,A2
0002323c 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00023242 42 12                    |B       |		CLR.B	(A2)
00023244 48 79 00 02 3e 98        |Hy  >   |		PEA.L	0x23e98
0002324a 4e b9 00 01 05 aa        |N       |		JSR	Read_fc00() : Byte
00023250 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023252 4e ba fe e8              |N       |		JSR	0x2313c
00023256 4e ba fe 56              |N  V    |		JSR	0x230ae
0002325a 4e ba fa fa              |N       |		JSR	0x22d56
0002325e 4e ba fd b6              |N       |		JSR	0x23016
00023262 4e ba d6 6a              |N  j    |		JSR	0x208ce
00023266 48 78 00 00              |Hx      |		PEA.L	0x0
0002326a 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00023270 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023272 4e ba d6 da              |N       |		JSR	0x2094e
00023276 4e ba d9 2a              |N  *    |		JSR	0x20ba2
0002327a 48 52                    |HR      |		PEA.L	(A2)
0002327c 4e ba d9 a8              |N       |		JSR	0x20c26
00023280 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023282 1e 92                    |        |		MOVE.B	(A2),(A7)
00023284 4e ba dc 60              |N  `    |		JSR	0x20ee6
00023288 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002328a 4e ba de 72              |N  r    |		JSR	0x210fe
0002328e 4e ba f8 e2              |N       |		JSR	0x22b72
00023292 4e ba f2 5c              |N  \    |		JSR	0x224f0
00023296 4e b9 00 01 02 22        |N    "  |		JSR	KC11_Live(void)
0002329c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002329e 20 4f                    | O      |		MOVEA.L	A7,A0
000232a0 43 fa d3 00              |C       |		LEA.L	0x205a2,A1
000232a4 70 06                    |p       |		MOVEQ.L	#0x06,D0
000232a6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000232a8 51 c8 ff fc              |Q       |		DBF	D0,0x232a6
000232ac 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000232ae 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000232b2 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000232b6 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
000232ba 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000232c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000232c2 48 78 00 01              |Hx      |		PEA.L	0x1
000232c6 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000232ca 48 79 00 02 42 66        |Hy  Bf  |		PEA.L	0x24266
000232d0 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
000232d6 de fc 00 14              |        |		ADDA.W	#0x14,A7
000232da 42 17                    |B       |		CLR.B	(A7)
000232dc 48 78 00 01              |Hx      |		PEA.L	0x1
000232e0 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000232e6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000232e8 4e b9 00 01 02 84        |N       |		JSR	?exit
000232ee					exp_LOAD_HRAM_8_0.FIU():
000232ee 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000232f4 00 08                    |        |		.CONST	0x0008			; Stack-delta
000232f6 11 4c 4f 41 44 5f 48 52  | LOAD_HR|		.TXT	17,'LOAD_HRAM_8_0.FIU'
00023308 00                       |        |		.CONST	0x0
00023309 03                       |        |		.CONST	0x3			; DIPROC address
0002330a 00                       |        |		.CONST	0x0			; Output Parameters
0002330b 00                       |        |		.CONST	0x0			; Input Parameters
0002330c					exp_LOAD_HRAM_32_0.FIU():
0002330c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023312 00 08                    |        |		.CONST	0x0008			; Stack-delta
00023314 12 4c 4f 41 44 5f 48 52  | LOAD_HR|		.TXT	18,'LOAD_HRAM_32_0.FIU'
00023327 00                       |        |		.CONST	0x0
00023328 03                       |        |		.CONST	0x3			; DIPROC address
00023329 00                       |        |		.CONST	0x0			; Output Parameters
0002332a 00                       |        |		.CONST	0x0			; Input Parameters
0002332b 00                       |        |		.PAD	0x0
0002332c					exp_RUN_NORMAL.FIU():
0002332c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023332 00 08                    |        |		.CONST	0x0008			; Stack-delta
00023334 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.FIU'
00023343 00                       |        |		.CONST	0x0
00023344 03                       |        |		.CONST	0x3			; DIPROC address
00023345 00                       |        |		.CONST	0x0			; Output Parameters
00023346 00                       |        |		.CONST	0x0			; Input Parameters
00023347 00                       |        |		.PAD	0x0
00023348					exp_READ_NOVRAM_DATA.FIU(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr):
00023348 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002334e 00 20                    |        |		.CONST	0x0020			; Stack-delta
00023350 14 52 45 41 44 5f 4e 4f  | READ_NO|		.TXT	20,'READ_NOVRAM_DATA.FIU'
00023365 00                       |        |		.CONST	0x0
00023366 03                       |        |		.CONST	0x3			; DIPROC address
00023367 06                       |        |		.CONST	0x6			; Output Parameters
00023368 00                       |        |		.CONST	0x0			; Input Parameters
00023369 00                       |        |		.CONST	0x0			; Out arg [1]
0002336a 01                       |        |		.CONST	0x1			; Out arg [2]
0002336b 00                       |        |		.CONST	0x0			; Out arg [1]
0002336c 00                       |        |		.CONST	0x0			; Out arg [1]
0002336d 01                       |        |		.CONST	0x1			; Out arg [2]
0002336e 08                       |        |		.CONST	0x8			; Out arg flag
0002336f 00                       |        |		.PAD	0x0
00023370					exp_PREP_RUN.FIU(Sw_2):
00023370 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023376 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00023378 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.FIU'
00023385 00                       |        |		.CONST	0x0
00023386 03                       |        |		.CONST	0x3			; DIPROC address
00023387 00                       |        |		.CONST	0x0			; Output Parameters
00023388 01                       |        |		.CONST	0x1			; Input Parameters
00023389 01                       |        |		.CONST	0x1			; In arg [2]
0002338a					exp_LOAD_HRAM_1.FIU():
0002338a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023390 00 08                    |        |		.CONST	0x0008			; Stack-delta
00023392 0f 4c 4f 41 44 5f 48 52  | LOAD_HR|		.TXT	15,'LOAD_HRAM_1.FIU'
000233a2 00                       |        |		.CONST	0x0
000233a3 03                       |        |		.CONST	0x3			; DIPROC address
000233a4 00                       |        |		.CONST	0x0			; Output Parameters
000233a5 00                       |        |		.CONST	0x0			; Input Parameters
000233a6					exp_INIT_MRU.FIU():
000233a6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000233ac 00 08                    |        |		.CONST	0x0008			; Stack-delta
000233ae 0c 49 4e 49 54 5f 4d 52  | INIT_MR|		.TXT	12,'INIT_MRU.FIU'
000233bb 00                       |        |		.CONST	0x0
000233bc 03                       |        |		.CONST	0x3			; DIPROC address
000233bd 00                       |        |		.CONST	0x0			; Output Parameters
000233be 00                       |        |		.CONST	0x0			; Input Parameters
000233bf 00                       |        |		.PAD	0x0
000233c0					exp_FREEZE_WORLD.FIU():
000233c0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000233c6 00 08                    |        |		.CONST	0x0008			; Stack-delta
000233c8 10 46 52 45 45 5a 45 5f  | FREEZE_|		.TXT	16,'FREEZE_WORLD.FIU'
000233d9 00                       |        |		.CONST	0x0
000233da 03                       |        |		.CONST	0x3			; DIPROC address
000233db 00                       |        |		.CONST	0x0			; Output Parameters
000233dc 00                       |        |		.CONST	0x0			; Input Parameters
000233dd 00                       |        |		.PAD	0x0
000233de					exp_CLEAR_PARITY.FIU():
000233de 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000233e4 00 08                    |        |		.CONST	0x0008			; Stack-delta
000233e6 10 43 4c 45 41 52 5f 50  | CLEAR_P|		.TXT	16,'CLEAR_PARITY.FIU'
000233f7 00                       |        |		.CONST	0x0
000233f8 03                       |        |		.CONST	0x3			; DIPROC address
000233f9 00                       |        |		.CONST	0x0			; Output Parameters
000233fa 00                       |        |		.CONST	0x0			; Input Parameters
000233fb 00                       |        |		.PAD	0x0
000233fc					exp_READ_NOVRAM_DATA.SEQ(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr):
000233fc 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023402 00 20                    |        |		.CONST	0x0020			; Stack-delta
00023404 14 52 45 41 44 5f 4e 4f  | READ_NO|		.TXT	20,'READ_NOVRAM_DATA.SEQ'
00023419 00                       |        |		.CONST	0x0
0002341a 02                       |        |		.CONST	0x2			; DIPROC address
0002341b 06                       |        |		.CONST	0x6			; Output Parameters
0002341c 00                       |        |		.CONST	0x0			; Input Parameters
0002341d 00                       |        |		.CONST	0x0			; Out arg [1]
0002341e 01                       |        |		.CONST	0x1			; Out arg [2]
0002341f 00                       |        |		.CONST	0x0			; Out arg [1]
00023420 00                       |        |		.CONST	0x0			; Out arg [1]
00023421 01                       |        |		.CONST	0x1			; Out arg [2]
00023422 08                       |        |		.CONST	0x8			; Out arg flag
00023423 00                       |        |		.PAD	0x0
00023424					exp_RUN_CHECK.SEQ():
00023424 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002342a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002342c 0d 52 55 4e 5f 43 48 45  | RUN_CHE|		.TXT	13,'RUN_CHECK.SEQ'
0002343a 00                       |        |		.CONST	0x0
0002343b 02                       |        |		.CONST	0x2			; DIPROC address
0002343c 00                       |        |		.CONST	0x0			; Output Parameters
0002343d 00                       |        |		.CONST	0x0			; Input Parameters
0002343e					exp_PREP_RUN.SEQ(Sw_2):
0002343e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023444 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00023446 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.SEQ'
00023453 00                       |        |		.CONST	0x0
00023454 02                       |        |		.CONST	0x2			; DIPROC address
00023455 00                       |        |		.CONST	0x0			; Output Parameters
00023456 01                       |        |		.CONST	0x1			; Input Parameters
00023457 01                       |        |		.CONST	0x1			; In arg [2]
00023458					exp_CLEAR_PARITY.SEQ():
00023458 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002345e 00 08                    |        |		.CONST	0x0008			; Stack-delta
00023460 10 43 4c 45 41 52 5f 50  | CLEAR_P|		.TXT	16,'CLEAR_PARITY.SEQ'
00023471 00                       |        |		.CONST	0x0
00023472 02                       |        |		.CONST	0x2			; DIPROC address
00023473 00                       |        |		.CONST	0x0			; Output Parameters
00023474 00                       |        |		.CONST	0x0			; Input Parameters
00023475 00                       |        |		.PAD	0x0
00023476					exp_READ_NOVRAM_DATA.TYP(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr):
00023476 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002347c 00 20                    |        |		.CONST	0x0020			; Stack-delta
0002347e 14 52 45 41 44 5f 4e 4f  | READ_NO|		.TXT	20,'READ_NOVRAM_DATA.TYP'
00023493 00                       |        |		.CONST	0x0
00023494 06                       |        |		.CONST	0x6			; DIPROC address
00023495 06                       |        |		.CONST	0x6			; Output Parameters
00023496 00                       |        |		.CONST	0x0			; Input Parameters
00023497 00                       |        |		.CONST	0x0			; Out arg [1]
00023498 01                       |        |		.CONST	0x1			; Out arg [2]
00023499 00                       |        |		.CONST	0x0			; Out arg [1]
0002349a 00                       |        |		.CONST	0x0			; Out arg [1]
0002349b 01                       |        |		.CONST	0x1			; Out arg [2]
0002349c 08                       |        |		.CONST	0x8			; Out arg flag
0002349d 00                       |        |		.PAD	0x0
0002349e					exp_RUN_NORMAL.TYP():
0002349e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000234a4 00 08                    |        |		.CONST	0x0008			; Stack-delta
000234a6 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.TYP'
000234b5 00                       |        |		.CONST	0x0
000234b6 06                       |        |		.CONST	0x6			; DIPROC address
000234b7 00                       |        |		.CONST	0x0			; Output Parameters
000234b8 00                       |        |		.CONST	0x0			; Input Parameters
000234b9 00                       |        |		.PAD	0x0
000234ba					exp_PREP_RUN.TYP(Sw_2):
000234ba 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000234c0 00 0a                    |        |		.CONST	0x000a			; Stack-delta
000234c2 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.TYP'
000234cf 00                       |        |		.CONST	0x0
000234d0 06                       |        |		.CONST	0x6			; DIPROC address
000234d1 00                       |        |		.CONST	0x0			; Output Parameters
000234d2 01                       |        |		.CONST	0x1			; Input Parameters
000234d3 01                       |        |		.CONST	0x1			; In arg [2]
000234d4					exp_LOAD_BENIGN_UWORD.TYP():
000234d4 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000234da 00 08                    |        |		.CONST	0x0008			; Stack-delta
000234dc 15 4c 4f 41 44 5f 42 45  | LOAD_BE|		.TXT	21,'LOAD_BENIGN_UWORD.TYP'
000234f2 00                       |        |		.CONST	0x0
000234f3 06                       |        |		.CONST	0x6			; DIPROC address
000234f4 00                       |        |		.CONST	0x0			; Output Parameters
000234f5 00                       |        |		.CONST	0x0			; Input Parameters
000234f6					exp_CLEAR_PARITY.TYP():
000234f6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000234fc 00 08                    |        |		.CONST	0x0008			; Stack-delta
000234fe 10 43 4c 45 41 52 5f 50  | CLEAR_P|		.TXT	16,'CLEAR_PARITY.TYP'
0002350f 00                       |        |		.CONST	0x0
00023510 06                       |        |		.CONST	0x6			; DIPROC address
00023511 00                       |        |		.CONST	0x0			; Output Parameters
00023512 00                       |        |		.CONST	0x0			; Input Parameters
00023513 00                       |        |		.PAD	0x0
00023514					exp_ALIGN_CSA.TYP():
00023514 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002351a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002351c 0d 41 4c 49 47 4e 5f 43  | ALIGN_C|		.TXT	13,'ALIGN_CSA.TYP'
0002352a 00                       |        |		.CONST	0x0
0002352b 06                       |        |		.CONST	0x6			; DIPROC address
0002352c 00                       |        |		.CONST	0x0			; Output Parameters
0002352d 00                       |        |		.CONST	0x0			; Input Parameters
0002352e					exp_READ_NOVRAM_DATA.VAL(&Sr_1, &Sr_2, &Sr_1, &Sr_1, &Sr_2, &Fr):
0002352e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023534 00 20                    |        |		.CONST	0x0020			; Stack-delta
00023536 14 52 45 41 44 5f 4e 4f  | READ_NO|		.TXT	20,'READ_NOVRAM_DATA.VAL'
0002354b 00                       |        |		.CONST	0x0
0002354c 07                       |        |		.CONST	0x7			; DIPROC address
0002354d 06                       |        |		.CONST	0x6			; Output Parameters
0002354e 00                       |        |		.CONST	0x0			; Input Parameters
0002354f 00                       |        |		.CONST	0x0			; Out arg [1]
00023550 01                       |        |		.CONST	0x1			; Out arg [2]
00023551 00                       |        |		.CONST	0x0			; Out arg [1]
00023552 00                       |        |		.CONST	0x0			; Out arg [1]
00023553 01                       |        |		.CONST	0x1			; Out arg [2]
00023554 08                       |        |		.CONST	0x8			; Out arg flag
00023555 00                       |        |		.PAD	0x0
00023556					exp_RUN_NORMAL.VAL():
00023556 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002355c 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002355e 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.VAL'
0002356d 00                       |        |		.CONST	0x0
0002356e 07                       |        |		.CONST	0x7			; DIPROC address
0002356f 00                       |        |		.CONST	0x0			; Output Parameters
00023570 00                       |        |		.CONST	0x0			; Input Parameters
00023571 00                       |        |		.PAD	0x0
00023572					exp_PREP_RUN.VAL(Sw_2):
00023572 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023578 00 0a                    |        |		.CONST	0x000a			; Stack-delta
0002357a 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.VAL'
00023587 00                       |        |		.CONST	0x0
00023588 07                       |        |		.CONST	0x7			; DIPROC address
00023589 00                       |        |		.CONST	0x0			; Output Parameters
0002358a 01                       |        |		.CONST	0x1			; Input Parameters
0002358b 01                       |        |		.CONST	0x1			; In arg [2]
0002358c					exp_CLEAR_PARITY.VAL():
0002358c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023592 00 08                    |        |		.CONST	0x0008			; Stack-delta
00023594 10 43 4c 45 41 52 5f 50  | CLEAR_P|		.TXT	16,'CLEAR_PARITY.VAL'
000235a5 00                       |        |		.CONST	0x0
000235a6 07                       |        |		.CONST	0x7			; DIPROC address
000235a7 00                       |        |		.CONST	0x0			; Output Parameters
000235a8 00                       |        |		.CONST	0x0			; Input Parameters
000235a9 00                       |        |		.PAD	0x0
000235aa					exp_ALIGN_CSA.VAL():
000235aa 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000235b0 00 08                    |        |		.CONST	0x0008			; Stack-delta
000235b2 0d 41 4c 49 47 4e 5f 43  | ALIGN_C|		.TXT	13,'ALIGN_CSA.VAL'
000235c0 00                       |        |		.CONST	0x0
000235c1 07                       |        |		.CONST	0x7			; DIPROC address
000235c2 00                       |        |		.CONST	0x0			; Output Parameters
000235c3 00                       |        |		.CONST	0x0			; Input Parameters
000235c4 52 45 41 44 5f 4e 4f 56  |READ_NOV|		.TXT	'READ_NOVRAM_DATA.MEM'
000235d8 52 45 41 44 5f 4e 4f 56  |READ_NOV|		.TXT	'READ_NOVRAM_DATA.M32'
000235ec ; --------------------------------------------------------------------------------------
000235ec ; OMSI PASCAL Function
000235ec ;    <LVAR  0x020 1(r)>
000235ec ;    <LVAR  0x01c 4(r)>
000235ec ;    <LVAR  0x018 4(r)>
000235ec ;    <LVAR  0x014 4(r)>
000235ec ;    <LVAR  0x010 4(r)>
000235ec ;    <LVAR  0x00c 4(r)>
000235ec ;    <LVAR  0x008 4(r)>
000235ec ;    <LVAR -0x006 @ 4(r)>
000235ec ; --------------------------------------------------------------------------------------
000235ec 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
000235f0 bf d5                    |        |		CMPA.L	(A5),A7
000235f2 62 06                    |b       |		BHI	0x235fa
000235f4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000235f8 4e 76                    |Nv      |		TRAPV
000235fa de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
000235fe 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
00023602 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
00023606 45 f8 00 00              |E       |		LEA.L	0x0,A2
0002360a 47 f9 00 01 04 72        |G    r  |		LEA.L	ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L),A3
00023610 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00023612 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023614 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002361a 4a 1f                    |J       |		TST.B	(A7)+
0002361c 67 0e                    |g       |		BEQ	0x2362c
0002361e 41 fa ff b8              |A       |		LEA.L	0x235d8,A0
00023622 70 04                    |p       |		MOVEQ.L	#0x04,D0
00023624 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00023626 51 c8 ff fc              |Q       |		DBF	D0,0x23624
0002362a 60 0c                    |`       |		BRA	0x23638
0002362c 41 fa ff be              |A       |		LEA.L	0x235ec,A0
00023630 70 04                    |p       |		MOVEQ.L	#0x04,D0
00023632 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00023634 51 c8 ff fc              |Q       |		DBF	D0,0x23632
00023638 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002363a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002363e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023642 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00023646 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002364c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002364e 48 51                    |HQ      |		PEA.L	(A1)
00023650 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00023656 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
0002365a 42 27                    |B'      |		CLR.B	-(A7)
0002365c 1f 2e 00 20              | .      |		MOVE.B	(A6+0x20),-(A7)
00023660 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023662 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00023668 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002366a 2e 91                    |.       |		MOVE.L	(A1),(A7)
0002366c 20 6e 00 1c              | n      |		MOVEA.L	(A6+0x1c),A0
00023670 48 50                    |HP      |		PEA.L	(A0)
00023672 48 52                    |HR      |		PEA.L	(A2)
00023674 48 52                    |HR      |		PEA.L	(A2)
00023676 4e 93                    |N       |		JSR	(A3)
00023678 de c1                    |        |		ADDA.W	D1,A7
0002367a 2e 91                    |.       |		MOVE.L	(A1),(A7)
0002367c 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
00023680 48 50                    |HP      |		PEA.L	(A0)
00023682 48 52                    |HR      |		PEA.L	(A2)
00023684 48 78 00 01              |Hx      |		PEA.L	0x1
00023688 4e 93                    |N       |		JSR	(A3)
0002368a de c1                    |        |		ADDA.W	D1,A7
0002368c 2e 91                    |.       |		MOVE.L	(A1),(A7)
0002368e 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00023692 48 50                    |HP      |		PEA.L	(A0)
00023694 48 52                    |HR      |		PEA.L	(A2)
00023696 48 52                    |HR      |		PEA.L	(A2)
00023698 4e 93                    |N       |		JSR	(A3)
0002369a de c1                    |        |		ADDA.W	D1,A7
0002369c 2e 91                    |.       |		MOVE.L	(A1),(A7)
0002369e 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000236a2 48 50                    |HP      |		PEA.L	(A0)
000236a4 48 52                    |HR      |		PEA.L	(A2)
000236a6 48 52                    |HR      |		PEA.L	(A2)
000236a8 4e 93                    |N       |		JSR	(A3)
000236aa de c1                    |        |		ADDA.W	D1,A7
000236ac 2e 91                    |.       |		MOVE.L	(A1),(A7)
000236ae 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000236b2 48 50                    |HP      |		PEA.L	(A0)
000236b4 48 52                    |HR      |		PEA.L	(A2)
000236b6 48 78 00 01              |Hx      |		PEA.L	0x1
000236ba 4e 93                    |N       |		JSR	(A3)
000236bc de c1                    |        |		ADDA.W	D1,A7
000236be 2e 91                    |.       |		MOVE.L	(A1),(A7)
000236c0 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000236c4 48 50                    |HP      |		PEA.L	(A0)
000236c6 4e b9 00 01 04 78        |N    x  |		JSR	ExpOutputFlag(exp : Pointer; VAR status : Bool)
000236cc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000236ce 48 51                    |HQ      |		PEA.L	(A1)
000236d0 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000236d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000236d8 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
000236dc 4e 5e                    |N^      |		UNLK	A6
000236de 4e 75                    |Nu      |		RTS
000236e0 53 45 54 5f 48 49 54 2e  |SET_HIT.|		.TXT	'SET_HIT.MEM '
000236ec 53 45 54 5f 48 49 54 2e  |SET_HIT.|		.TXT	'SET_HIT.M32 '
000236f8 ; --------------------------------------------------------------------------------------
000236f8 ; OMSI PASCAL Function
000236f8 ;    <LVAR  0x00a 1(r)>
000236f8 ;    <LVAR  0x008 1(r)>
000236f8 ;    <LVAR -0x004 @ 4(r)>
000236f8 ; --------------------------------------------------------------------------------------
000236f8 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
000236fc bf d5                    |        |		CMPA.L	(A5),A7
000236fe 62 06                    |b       |		BHI	0x23706
00023700 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023704 4e 76                    |Nv      |		TRAPV
00023706 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
0002370a 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
0002370e 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00023712 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00023714 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023716 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002371c 4a 1f                    |J       |		TST.B	(A7)+
0002371e 67 12                    |g       |		BEQ	0x23732
00023720 9e c1                    |        |		SUBA.W	D1,A7
00023722 20 4f                    | O      |		MOVEA.L	A7,A0
00023724 43 fa ff ba              |C       |		LEA.L	0x236e0,A1
00023728 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002372a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002372c 51 c8 ff fc              |Q       |		DBF	D0,0x2372a
00023730 60 10                    |`       |		BRA	0x23742
00023732 9e c1                    |        |		SUBA.W	D1,A7
00023734 20 4f                    | O      |		MOVEA.L	A7,A0
00023736 43 fa ff b4              |C       |		LEA.L	0x236ec,A1
0002373a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002373c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002373e 51 c8 ff fc              |Q       |		DBF	D0,0x2373c
00023742 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023744 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023748 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002374c 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00023750 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023756 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023758 48 52                    |HR      |		PEA.L	(A2)
0002375a 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00023760 de fc 00 14              |        |		ADDA.W	#0x14,A7
00023764 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00023768 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002376a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002376e 48 78 00 00              |Hx      |		PEA.L	0x0
00023772 48 78 00 00              |Hx      |		PEA.L	0x0
00023776 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
0002377c de fc 00 10              |        |		ADDA.W	#0x10,A7
00023780 42 17                    |B       |		CLR.B	(A7)
00023782 1f 2e 00 0a              | .      |		MOVE.B	(A6+0xa),-(A7)
00023786 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023788 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
0002378e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023790 48 52                    |HR      |		PEA.L	(A2)
00023792 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00023798 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002379a 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
0002379e 4e 5e                    |N^      |		UNLK	A6
000237a0 4e 75                    |Nu      |		RTS
000237a2 52 55 4e 5f 43 48 45 43  |RUN_CHEC|		.TXT	'RUN_CHECK.MEM '
000237b0 52 55 4e 5f 43 48 45 43  |RUN_CHEC|		.TXT	'RUN_CHECK.M32 '
000237be ; --------------------------------------------------------------------------------------
000237be ; OMSI PASCAL Function
000237be ;    <LVAR  0x008 1(r)>
000237be ;    <LVAR -0x006 @ 4(r)>
000237be ; --------------------------------------------------------------------------------------
000237be 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
000237c2 bf d5                    |        |		CMPA.L	(A5),A7
000237c4 62 06                    |b       |		BHI	0x237cc
000237c6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000237ca 4e 76                    |Nv      |		TRAPV
000237cc de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000237d0 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000237d4 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000237d8 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
000237da 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000237dc 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000237e2 4a 1f                    |J       |		TST.B	(A7)+
000237e4 67 12                    |g       |		BEQ	0x237f8
000237e6 9e c1                    |        |		SUBA.W	D1,A7
000237e8 20 4f                    | O      |		MOVEA.L	A7,A0
000237ea 43 fa ff b6              |C       |		LEA.L	0x237a2,A1
000237ee 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000237f0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000237f2 51 c8 ff fc              |Q       |		DBF	D0,0x237f0
000237f6 60 10                    |`       |		BRA	0x23808
000237f8 9e c1                    |        |		SUBA.W	D1,A7
000237fa 20 4f                    | O      |		MOVEA.L	A7,A0
000237fc 43 fa ff b2              |C       |		LEA.L	0x237b0,A1
00023800 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023802 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023804 51 c8 ff fc              |Q       |		DBF	D0,0x23802
00023808 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002380a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002380e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023812 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00023816 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002381c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002381e 48 52                    |HR      |		PEA.L	(A2)
00023820 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00023826 de fc 00 16              |        |		ADDA.W	#0x16,A7
0002382a 42 27                    |B'      |		CLR.B	-(A7)
0002382c 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00023830 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023832 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00023838 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002383a 48 52                    |HR      |		PEA.L	(A2)
0002383c 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00023842 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023844 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00023848 4e 5e                    |N^      |		UNLK	A6
0002384a 4e 75                    |Nu      |		RTS
0002384c 4c 4f 41 44 5f 43 4f 4e  |LOAD_CON|		.TXT	'LOAD_CONFIG.MEM '
0002385c 4c 4f 41 44 5f 43 4f 4e  |LOAD_CON|		.TXT	'LOAD_CONFIG.M32 '
0002386c ; --------------------------------------------------------------------------------------
0002386c ; OMSI PASCAL Function
0002386c ;    <LVAR  0x00e 1(r)>
0002386c ;    <LVAR  0x00c 1(r)>
0002386c ;    <LVAR  0x00a 1(r)>
0002386c ;    <LVAR  0x008 1(r)>
0002386c ;    <LVAR -0x004 @ 4(r)>
0002386c ; --------------------------------------------------------------------------------------
0002386c 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00023870 bf d5                    |        |		CMPA.L	(A5),A7
00023872 62 06                    |b       |		BHI	0x2387a
00023874 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023878 4e 76                    |Nv      |		TRAPV
0002387a de fc 00 34              |   4    |		ADDA.W	#0x34,A7
0002387e 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00023882 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00023886 72 10                    |r       |		MOVEQ.L	#0x10,D1
00023888 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002388a 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00023890 4a 1f                    |J       |		TST.B	(A7)+
00023892 67 12                    |g       |		BEQ	0x238a6
00023894 9e c1                    |        |		SUBA.W	D1,A7
00023896 20 4f                    | O      |		MOVEA.L	A7,A0
00023898 43 fa ff b2              |C       |		LEA.L	0x2384c,A1
0002389c 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
0002389e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000238a0 51 c8 ff fc              |Q       |		DBF	D0,0x2389e
000238a4 60 10                    |`       |		BRA	0x238b6
000238a6 9e c1                    |        |		SUBA.W	D1,A7
000238a8 20 4f                    | O      |		MOVEA.L	A7,A0
000238aa 43 fa ff b0              |C       |		LEA.L	0x2385c,A1
000238ae 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000238b0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000238b2 51 c8 ff fc              |Q       |		DBF	D0,0x238b0
000238b6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000238b8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000238bc 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000238c0 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
000238c4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000238ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000238cc 48 52                    |HR      |		PEA.L	(A2)
000238ce 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000238d4 de fc 00 18              |        |		ADDA.W	#0x18,A7
000238d8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000238da 1f 2e 00 0c              | .      |		MOVE.B	(A6+0xc),-(A7)
000238de 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
000238e4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000238e6 2e 92                    |.       |		MOVE.L	(A2),(A7)
000238e8 1f 2e 00 0a              | .      |		MOVE.B	(A6+0xa),-(A7)
000238ec 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
000238f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000238f4 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
000238f8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000238fa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000238fe 48 78 00 00              |Hx      |		PEA.L	0x0
00023902 48 78 00 00              |Hx      |		PEA.L	0x0
00023906 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
0002390c de c1                    |        |		ADDA.W	D1,A7
0002390e 42 17                    |B       |		CLR.B	(A7)
00023910 1f 2e 00 0e              | .      |		MOVE.B	(A6+0xe),-(A7)
00023914 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023916 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
0002391c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002391e 48 52                    |HR      |		PEA.L	(A2)
00023920 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00023926 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023928 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
0002392c 4e 5e                    |N^      |		UNLK	A6
0002392e 4e 75                    |Nu      |		RTS
00023930 43 4c 45 41 52 5f 54 41  |CLEAR_TA|		.TXT	'CLEAR_TAGSTORE.MEM'
00023942 43 4c 45 41 52 5f 54 41  |CLEAR_TA|		.TXT	'CLEAR_TAGSTORE.M32'
00023954 ; --------------------------------------------------------------------------------------
00023954 ; OMSI PASCAL Function
00023954 ;    <LVAR  0x008 1(r)>
00023954 ;    <LVAR -0x006 @ 4(r)>
00023954 ; --------------------------------------------------------------------------------------
00023954 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00023958 bf d5                    |        |		CMPA.L	(A5),A7
0002395a 62 06                    |b       |		BHI	0x23962
0002395c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023960 4e 76                    |Nv      |		TRAPV
00023962 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00023966 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0002396a 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
0002396e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023970 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00023976 4a 1f                    |J       |		TST.B	(A7)+
00023978 67 0e                    |g       |		BEQ	0x23988
0002397a 41 fa ff c6              |A       |		LEA.L	0x23942,A0
0002397e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00023980 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023982 51 c8 ff fc              |Q       |		DBF	D0,0x23980
00023986 60 0c                    |`       |		BRA	0x23994
00023988 41 fa ff ca              |A       |		LEA.L	0x23954,A0
0002398c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002398e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023990 51 c8 ff fc              |Q       |		DBF	D0,0x2398e
00023994 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023996 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002399a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002399e 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
000239a2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000239a8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000239aa 48 51                    |HQ      |		PEA.L	(A1)
000239ac 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000239b2 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000239b6 42 27                    |B'      |		CLR.B	-(A7)
000239b8 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000239bc 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000239be 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000239c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000239c6 48 51                    |HQ      |		PEA.L	(A1)
000239c8 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000239ce 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000239d0 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
000239d4 4e 5e                    |N^      |		UNLK	A6
000239d6 4e 75                    |Nu      |		RTS
000239d8 43 4c 45 41 52 5f 50 41  |CLEAR_PA|		.TXT	'CLEAR_PARITY_ERRORS.MEM '
000239f0 43 4c 45 41 52 5f 50 41  |CLEAR_PA|		.TXT	'CLEAR_PARITY_ERRORS.M32 '
00023a08 ; --------------------------------------------------------------------------------------
00023a08 ; OMSI PASCAL Function
00023a08 ;    <LVAR  0x008 1(r)>
00023a08 ;    <LVAR -0x006 @ 4(r)>
00023a08 ; --------------------------------------------------------------------------------------
00023a08 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
00023a0c bf d5                    |        |		CMPA.L	(A5),A7
00023a0e 62 06                    |b       |		BHI	0x23a16
00023a10 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023a14 4e 76                    |Nv      |		TRAPV
00023a16 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
00023a1a 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00023a1e 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00023a22 72 18                    |r       |		MOVEQ.L	#0x18,D1
00023a24 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023a26 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00023a2c 4a 1f                    |J       |		TST.B	(A7)+
00023a2e 67 12                    |g       |		BEQ	0x23a42
00023a30 9e c1                    |        |		SUBA.W	D1,A7
00023a32 20 4f                    | O      |		MOVEA.L	A7,A0
00023a34 43 fa ff a2              |C       |		LEA.L	0x239d8,A1
00023a38 70 16                    |p       |		MOVEQ.L	#0x16,D0
00023a3a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023a3c 51 c8 ff fc              |Q       |		DBF	D0,0x23a3a
00023a40 60 10                    |`       |		BRA	0x23a52
00023a42 9e c1                    |        |		SUBA.W	D1,A7
00023a44 20 4f                    | O      |		MOVEA.L	A7,A0
00023a46 43 fa ff a8              |C       |		LEA.L	0x239f0,A1
00023a4a 70 16                    |p       |		MOVEQ.L	#0x16,D0
00023a4c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023a4e 51 c8 ff fc              |Q       |		DBF	D0,0x23a4c
00023a52 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023a54 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023a58 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023a5c 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00023a60 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023a66 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a68 48 52                    |HR      |		PEA.L	(A2)
00023a6a 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00023a70 de fc 00 20              |        |		ADDA.W	#0x20,A7
00023a74 42 27                    |B'      |		CLR.B	-(A7)
00023a76 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00023a7a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023a7c 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00023a82 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a84 48 52                    |HR      |		PEA.L	(A2)
00023a86 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00023a8c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023a8e 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00023a92 4e 5e                    |N^      |		UNLK	A6
00023a94 4e 75                    |Nu      |		RTS
00023a96 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.MEM'
00023aa4 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.M32'
00023ab2 ; --------------------------------------------------------------------------------------
00023ab2 ; OMSI PASCAL Function
00023ab2 ;    <LVAR  0x008 1(r)>
00023ab2 ;    <LVAR -0x006 @ 4(r)>
00023ab2 ; --------------------------------------------------------------------------------------
00023ab2 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00023ab6 bf d5                    |        |		CMPA.L	(A5),A7
00023ab8 62 06                    |b       |		BHI	0x23ac0
00023aba 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023abe 4e 76                    |Nv      |		TRAPV
00023ac0 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00023ac4 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00023ac8 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
00023acc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023ace 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00023ad4 4a 1f                    |J       |		TST.B	(A7)+
00023ad6 67 0e                    |g       |		BEQ	0x23ae6
00023ad8 41 fa ff ca              |A       |		LEA.L	0x23aa4,A0
00023adc 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023ade 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023ae0 51 c8 ff fc              |Q       |		DBF	D0,0x23ade
00023ae4 60 0c                    |`       |		BRA	0x23af2
00023ae6 41 fa ff ca              |A       |		LEA.L	0x23ab2,A0
00023aea 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023aec 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023aee 51 c8 ff fc              |Q       |		DBF	D0,0x23aec
00023af2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023af4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023af8 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023afc 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00023b00 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023b06 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023b08 48 51                    |HQ      |		PEA.L	(A1)
00023b0a 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00023b10 de fc 00 16              |        |		ADDA.W	#0x16,A7
00023b14 42 27                    |B'      |		CLR.B	-(A7)
00023b16 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00023b1a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00023b1c 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00023b22 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023b24 48 51                    |HQ      |		PEA.L	(A1)
00023b26 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00023b2c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023b2e 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00023b32 4e 5e                    |N^      |		UNLK	A6
00023b34 4e 75                    |Nu      |		RTS
00023b36					exp_RUN_CHECK.IOC():
00023b36 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023b3c 00 08                    |        |		.CONST	0x0008			; Stack-delta
00023b3e 0d 52 55 4e 5f 43 48 45  | RUN_CHE|		.TXT	13,'RUN_CHECK.IOC'
00023b4c 00                       |        |		.CONST	0x0
00023b4d 04                       |        |		.CONST	0x4			; DIPROC address
00023b4e 00                       |        |		.CONST	0x0			; Output Parameters
00023b4f 00                       |        |		.CONST	0x0			; Input Parameters
00023b50					exp_PREP_RUN.IOC(Sw_2):
00023b50 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023b56 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00023b58 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.IOC'
00023b65 00                       |        |		.CONST	0x0
00023b66 04                       |        |		.CONST	0x4			; DIPROC address
00023b67 00                       |        |		.CONST	0x0			; Output Parameters
00023b68 01                       |        |		.CONST	0x1			; Input Parameters
00023b69 01                       |        |		.CONST	0x1			; In arg [2]
00023b6a 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000		; Spelunked
00023b6e 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00023b72 bf d5                    |        |		CMPA.L	(A5),A7
00023b74 4e 76                    |Nv      |		TRAPV
00023b76 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
00023b7a 30 39 93 03 e0 00        |09      |		MOVE.W	0x9303e000,D0
00023b80 02 40 00 08              | @      |		ANDI.W	#0x0008,D0
00023b84 67 00 00 06              |g       |		BEQ	0x23b8c
00023b88 52 2e 00 08              |R.      |		ADDQ.B	#0x1,(A6+0x8)
00023b8c 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00023b90 4e 5e                    |N^      |		UNLK	A6
00023b92 4e 75                    |Nu      |		RTS
00023b94 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000		; Spelunked
00023b98 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00023b9c bf d5                    |        |		CMPA.L	(A5),A7
00023b9e 4e 76                    |Nv      |		TRAPV
00023ba0 30 3c 02 01              |0<      |		MOVE.W	#0x201,D0
00023ba4 4e b9 80 00 20 64        |N    d  |		JSR	0x80002064
00023baa 67 00 00 06              |g       |		BEQ	0x23bb2
00023bae 30 7c 00 00              |0|      |		MOVEA.W	#0x0,A0
00023bb2 2d 48 00 08              |-H      |		MOVE.L	A0,(A6+0x8)
00023bb6 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00023bba 4e 5e                    |N^      |		UNLK	A6
00023bbc 4e 75                    |Nu      |		RTS
00023bbe 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00023bc2 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00023bc6 bf d5                    |        |		CMPA.L	(A5),A7
00023bc8 4e 76                    |Nv      |		TRAPV
00023bca 30 3c 07 00              |0<      |		MOVE.W	#0x700,D0
00023bce 4e b9 80 00 20 64        |N    d  |		JSR	0x80002064
00023bd4 67 00 00 06              |g       |		BEQ	0x23bdc
00023bd8 30 7c 00 00              |0|      |		MOVEA.W	#0x0,A0
00023bdc 2d 48 00 08              |-H      |		MOVE.L	A0,(A6+0x8)
00023be0 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00023be4 4e 5e                    |N^      |		UNLK	A6
00023be6 4e 75                    |Nu      |		RTS
00023be8 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00023bec 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00023bf0 bf d5                    |        |		CMPA.L	(A5),A7
00023bf2 4e 76                    |Nv      |		TRAPV
00023bf4 30 3c 08 00              |0<      |		MOVE.W	#0x800,D0
00023bf8 4e b9 80 00 20 64        |N    d  |		JSR	0x80002064
00023bfe 67 00 00 06              |g       |		BEQ	0x23c06
00023c02 30 7c 00 00              |0|      |		MOVEA.W	#0x0,A0
00023c06 2d 48 00 08              |-H      |		MOVE.L	A0,(A6+0x8)
00023c0a 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00023c0e 4e 5e                    |N^      |		UNLK	A6
00023c10 4e 75                    |Nu      |		RTS
00023c12 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000		; Spelunked
00023c16 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00023c1a bf d5                    |        |		CMPA.L	(A5),A7
00023c1c 4e 76                    |Nv      |		TRAPV
00023c1e 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
00023c22 4e b9 80 00 20 5c        |N    \  |		JSR	0x8000205c
00023c28 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00023c2c 42 90                    |B       |		CLR.L	(A0)
00023c2e 11 41 00 03              | A      |		MOVE.B	D1,(A0+0x3)
00023c32 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00023c36 4e 5e                    |N^      |		UNLK	A6
00023c38 4e 75                    |Nu      |		RTS
00023c3a 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000		; Spelunked
00023c3e 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00023c42 bf d5                    |        |		CMPA.L	(A5),A7
00023c44 4e 76                    |Nv      |		TRAPV
00023c46 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
00023c4a 4e b9 80 00 20 60        |N    `  |		JSR	0x80002060
00023c50 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00023c54 42 90                    |B       |		CLR.L	(A0)
00023c56 11 41 00 03              | A      |		MOVE.B	D1,(A0+0x3)
00023c5a 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00023c5e 4e 5e                    |N^      |		UNLK	A6
00023c60 4e 75                    |Nu      |		RTS
00023c62 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000		; Spelunked
00023c66 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00023c6a bf d5                    |        |		CMPA.L	(A5),A7
00023c6c 4e 76                    |Nv      |		TRAPV
00023c6e 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
00023c72 4e b9 80 00 20 6c        |N    l  |		JSR	0x8000206c
00023c78 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00023c7c 42 90                    |B       |		CLR.L	(A0)
00023c7e 11 41 00 03              | A      |		MOVE.B	D1,(A0+0x3)
00023c82 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00023c86 4e 5e                    |N^      |		UNLK	A6
00023c88 4e 75                    |Nu      |		RTS
00023c8a 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00023c98 ; --------------------------------------------------------------------------------------
00023c98 ; OMSI PASCAL Function
00023c98 ;    <LVAR  0x008 1(r)>
00023c98 ; --------------------------------------------------------------------------------------
00023c98					PROG_FAIL:
00023c98 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00023c9c bf d5                    |        |		CMPA.L	(A5),A7
00023c9e 62 06                    |b       |		BHI	0x23ca6
00023ca0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023ca4 4e 76                    |Nv      |		TRAPV
00023ca6 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00023caa 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00023cae 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00023cb2 70 06                    |p       |		MOVEQ.L	#0x06,D0
00023cb4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023cb6 51 c8 ff fc              |Q       |		DBF	D0,0x23cb4
00023cba 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00023cbe 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023cc0 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00023cc4 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023cc8 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00023ccc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023cd2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023cd4 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00023cd8 48 80                    |H       |		EXTB.W	D0
00023cda 48 c0                    |H       |		EXTW.L	D0
00023cdc 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023cde 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00023ce4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023ce6 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023cec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023cee 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00023cf4 de fc 00 14              |        |		ADDA.W	#0x14,A7
00023cf8 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00023cfc 4e 5e                    |N^      |		UNLK	A6
00023cfe 4e 75                    |Nu      |		RTS
00023d00 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00023d0e 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00023d1c 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00023d2a 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00023d3c 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00023d54 ; --------------------------------------------------------------------------------------
00023d54 ; OMSI PASCAL Function
00023d54 ;    <LVAR  0x00e 1(r)>
00023d54 ;    <LVAR  0x00a 4(r)>
00023d54 ;    <LVAR  0x008 1(r)>
00023d54 ; --------------------------------------------------------------------------------------
00023d54					EXP_FAIL:
00023d54 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00023d58 bf d5                    |        |		CMPA.L	(A5),A7
00023d5a 62 06                    |b       |		BHI	0x23d62
00023d5c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023d60 4e 76                    |Nv      |		TRAPV
00023d62 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00023d66 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00023d6a 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00023d70 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00023d76 72 01                    |r       |		MOVEQ.L	#0x01,D1
00023d78 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00023d7a 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00023d7c 78 12                    |x       |		MOVEQ.L	#0x12,D4
00023d7e 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00023d80 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00023d86 41 fa ff b4              |A       |		LEA.L	0x23d3c,A0
00023d8a 70 08                    |p       |		MOVEQ.L	#0x08,D0
00023d8c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023d8e 51 c8 ff fc              |Q       |		DBF	D0,0x23d8c
00023d92 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023d94 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023d98 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023d9a 3f 04                    |?       |		MOVE.W	D4,-(A7)
00023d9c 4e 93                    |N       |		JSR	(A3)
00023d9e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023da0 4e 94                    |N       |		JSR	(A4)
00023da2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023da4 20 4f                    | O      |		MOVEA.L	A7,A0
00023da6 43 fa ff 58              |C  X    |		LEA.L	0x23d00,A1
00023daa 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023dac 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023dae 51 c8 ff fc              |Q       |		DBF	D0,0x23dac
00023db2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023db4 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00023db8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023dba 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023dbc 4e 93                    |N       |		JSR	(A3)
00023dbe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023dc0 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00023dc4 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00023dca 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023dcc 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023dd2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023dd4 4e 94                    |N       |		JSR	(A4)
00023dd6 de c4                    |        |		ADDA.W	D4,A7
00023dd8 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00023ddc b0 c1                    |        |		CMPA.W	D1,A0
00023dde 67 48                    |gH      |		BEQ	0x23e28
00023de0 9e c5                    |        |		SUBA.W	D5,A7
00023de2 22 4f                    |"O      |		MOVEA.L	A7,A1
00023de4 45 fa ff 28              |E  (    |		LEA.L	0x23d0e,A2
00023de8 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023dea 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023dec 51 c8 ff fc              |Q       |		DBF	D0,0x23dea
00023df0 9e c3                    |        |		SUBA.W	D3,A7
00023df2 22 4f                    |"O      |		MOVEA.L	A7,A1
00023df4 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00023df8 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00023dfa 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00023dfc 51 c8 ff fc              |Q       |		DBF	D0,0x23dfa
00023e00 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023e02 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00023e06 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023e08 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023e0a 4e 93                    |N       |		JSR	(A3)
00023e0c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023e0e 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00023e12 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023e14 3f 03                    |?       |		MOVE.W	D3,-(A7)
00023e16 4e 93                    |N       |		JSR	(A3)
00023e18 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e1a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023e20 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e22 4e 94                    |N       |		JSR	(A4)
00023e24 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00023e28 9e c5                    |        |		SUBA.W	D5,A7
00023e2a 20 4f                    | O      |		MOVEA.L	A7,A0
00023e2c 43 fa fe ee              |C       |		LEA.L	0x23d1c,A1
00023e30 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023e32 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023e34 51 c8 ff fc              |Q       |		DBF	D0,0x23e32
00023e38 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023e3a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00023e3e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023e40 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023e42 4e 93                    |N       |		JSR	(A3)
00023e44 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023e46 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00023e4a 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
00023e50 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023e52 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023e58 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e5a 4e 94                    |N       |		JSR	(A4)
00023e5c 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023e5e 20 4f                    | O      |		MOVEA.L	A7,A0
00023e60 43 fa fe da              |C       |		LEA.L	0x23d3c,A1
00023e64 70 16                    |p       |		MOVEQ.L	#0x16,D0
00023e66 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023e68 51 c8 ff fc              |Q       |		DBF	D0,0x23e66
00023e6c 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00023e70 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023e72 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00023e76 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023e78 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00023e7c 4e 93                    |N       |		JSR	(A3)
00023e7e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e80 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00023e86 de c3                    |        |		ADDA.W	D3,A7
00023e88 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00023e8c 4e 5e                    |N^      |		UNLK	A6
00023e8e 4e 75                    |Nu      |		RTS